YNU_JEUS/app_home/himed/xpapps/pam/bfjudgxp/xp/SPPIJ00800_퇴원확정변경.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPPIJ00800" position="absolute 0 0 866 331" titletext="퇴원확정 변경 관리" oninit="SPPIJ00800_oninit" onload="SPPIJ00800_onload">
    <Layouts>
      <Layout>
        <Shape id="rectangle1" type="rectangle" onclick="rectangle1_onclick" position="absolute 0 197 866 326" anchor="left right bottom"/>
        <Static text="퇴원확정 변경" position="absolute 0 0 115 21" id="caption1" class="tit_2" anchor="left top"/>
        <Shape position="absolute 0 17 866 23" linetype="horizontal" id="line1" class="line_1" style="strokepen:3 solid #33bbbbff;" anchor="left top right"/>
        <Static text="환자번호" position="absolute 0 24 71 43" id="caption3" class="cell_1" anchor="left top"/>
        <Edit position="absolute 70 24 170 43" id="ipt_pid" class="input_default" oneditclick="ipt_pid_oneditclick" onkeydown="ipt_pid_onkeydown" anchor="left top" autoselect="true" taborder="1"/>
        <Grid position="absolute 0 48 866 191" id="datagrid1" binddataset="ds_datagrid1" autofittype="col" cellsizingtype="col" anchor="all" oncloseup="datagrid1_oncloseup" taborder="4">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="17"/>
                <Column size="70"/>
                <Column size="75"/>
                <Column size="20"/>
                <Column size="20"/>
                <Column size="105"/>
                <Column size="70"/>
                <Column size="105"/>
                <Column size="20"/>
                <Column size="30"/>
                <Column size="191"/>
                <Column size="80"/>
                <Column size="30"/>
                <Column size="30"/>
              </Columns>
              <Rows>
                <Row size="34" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell/>
                <Cell col="1" text="환자명"/>
                <Cell col="2" text="최초입원일"/>
                <Cell col="3" text="예&#13;&#10;고"/>
                <Cell col="4" text="확&#13;&#10;정"/>
                <Cell col="5" text="확정일자"/>
                <Cell col="6" text="확정자"/>
                <Cell col="7" text="수정일자"/>
                <Cell col="8" text="상&#13;&#10;태"/>
                <Cell col="9" text="추가&#13;&#10;처방"/>
                <Cell col="10" text="KTAS"/>
                <Cell col="11" text="변경사유"/>
                <Cell col="12" text="입외&#13;&#10;구분"/>
                <Cell col="13" text="사유&#13;&#10;이력"/>
              </Band>
              <Band id="body">
                <Cell celltype="head"/>
                <Cell col="1" text="bind:hngnm"/>
                <Cell col="2" displaytype="date" text="bind:indd" mask="yyyy-MM-dd"/>
                <Cell col="3" text="bind:dschdclrtyn"/>
                <Cell col="4" text="bind:dschnotiyn"/>
                <Cell col="5" displaytype="normal" edittype="none" text="bind:dschnotidt" mask="####-##-## ##:##"/>
                <Cell col="6" text="bind:dschnotirgstnm"/>
                <Cell col="7" displaytype="normal" edittype="none" text="bind:dschnotirgstdt" mask="####-##-## ##:##"/>
                <Cell col="8" text="bind:indschstat"/>
                <Cell col="9" text="bind:iprcaddyn" taborder="0"/>
                <Cell col="10" displaytype="combo" edittype="none" text="bind:specordtype" taborder="1" combodataset="ds_init_PK103list" combocodecol="cdid" combodatacol="detldesc" combodisplayrowcount="100"/>
                <Cell col="11" displaytype="text" text="bind:rem"/>
                <Cell col="12" displaytype="normal" edittype="none" text="bind:brateflag"/>
                <Cell col="13" displaytype="text" edittype="normal" text="bind:otheropinfo"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Button position="absolute 280 24 345 43" id="btn_noti" class="btn2" text="퇴원확정" onclick="btn_noti_onclick" anchor="left top" taborder="3"/>
        <Button position="absolute 180 24 277 43" id="btn_noticncl" class="btn2" text="퇴원확정 취소" onclick="btn_noticncl_onclick" anchor="left top" taborder="0"/>
        <Button position="absolute 813 24 866 43" id="btn_close" class="btn4" text="닫 기" onclick="btn_close_onclick" anchor="top right" taborder="2"/>
        <Static id="caption7" text="* 퇴원확정 취소 : 처방 DC 및 추가처방 가능 (확정='N', 확정자='심사자명', 추가처방='Y')" position="absolute 15 201 512 221" anchor="left bottom" style="color:blue;"/>
        <Static id="caption6" text="* 응급실/화학요법실/일일수술실 환자는 진행되지 않습니다.  " position="absolute 15 281 358 301" anchor="left bottom" style="color:crimson;"/>
        <Static id="caption5" text="* 청구 생성된 환자인 경우 진행되지 않습니다." position="absolute 15 261 331 281" anchor="left bottom" style="color:crimson;"/>
        <Static id="caption4" text="* 상태가 &quot;가퇴원&quot; 혹은 &quot;퇴원&quot;인 경우 진행되지 않습니다." position="absolute 15 221 331 241" anchor="left bottom" style="color:crimson;"/>
        <Static id="caption2" text="* 퇴원 확정 당일인 경우  진행 되지 않습니다." position="absolute 15 241 303 261" anchor="left bottom" style="color:crimson;"/>
        <Static id="caption8" text="   → 2015년 3월 20일자로 모든 환자에 대해 변경 가능하도록 수정하였습니다. " position="absolute 15 301 446 321" anchor="left bottom" style="color:crimson;"/>
        <Button id="btn_ktas" taborder="5" text="KTAS &amp; 입외구분 변경" class="btn2" position="absolute 348 24 488 43" anchor="left top" onclick="btn_ktas_onclick"/>
        <Div id="grp_ktasresn" taborder="6" position="absolute 108 136 704 259" style="background:white;border:2 solid #808080ff ;" visible="false">
          <Layouts>
            <Layout>
              <Static id="caption1" text="KTAS &amp; 입외구분 변경사유 입력" class="tit_2" position="absolute 1 4 222 25" anchor="left top" onclick="grp_ktasresn_caption1_onclick"/>
              <TextArea id="ipt_rem" taborder="1" position="absolute 2 23 591 117" anchor="default"/>
              <Button id="btn_ktassave" taborder="2" text="변경 저장" position="absolute 467 1 539 21" class="btn5" onclick="grp_ktasresn_btn_ktassave_onclick" anchor="default"/>
              <Button id="Button00" taborder="3" text="닫기" position="absolute 540 1 591 21" class="btn4" onclick="grp_ktasresn_Button00_onclick" anchor="default"/>
              <Combo id="cmb_ktas" taborder="4" position="absolute 259 1 466 21" index="-1" innerdataset="@ds_init_PK103list" codecolumn="cdid" datacolumn="detldesc" visible="true" onitemchanged="grp_ktasresn_cmb_ktas_onitemchanged" anchor="default"/>
            </Layout>
          </Layouts>
        </Div>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_datagrid1" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="hngnm" type="STRING"/>
          <Column id="indd" type="STRING"/>
          <Column id="dschdclrtyn" type="STRING"/>
          <Column id="dschnotiyn" type="STRING"/>
          <Column id="dschnotidt" type="STRING"/>
          <Column id="dschnotirgstnm" type="STRING"/>
          <Column id="dschnotirgstdt" type="STRING"/>
          <Column id="indschstat" type="STRING"/>
          <Column id="iprcaddyn" type="STRING"/>
          <Column id="cretno" type="STRING" size="256"/>
          <Column id="seqno" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_send_upt" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="indd" type="STRING" size="256"/>
          <Column id="cretno" type="STRING" size="256"/>
          <Column id="seqno" type="STRING" size="256"/>
          <Column id="gbn" type="STRING" size="256"/>
          <Column id="specordtype" type="STRING" size="256"/>
          <Column id="brateflag" type="STRING" size="256"/>
          <Column id="rem" type="STRING" size="256"/>
          <Column id="otheropinfo" type="STRING" size="256"/>
          <Column id="remstatus" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_init_PK103list" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2016-05-24
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2016-05-24      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs";
include "pam_pamcomnxp::PAM001.xjs";

function SPPIJ00800_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SPPIJ00800_onload(obj:Form, e:LoadEventInfo)
{
	grdf_setRowTypeIcon(datagrid1, 0);
	grdf_setToolTipBind(datagrid1); 
	
	var arrParam = new Array();
	arrParam = [{dsNm: "ds_init_PK103list", cdGrpId: "PK103", showValue: false}];
		
	pamfGetCodeList(arrParam, true, "cf_pamfGetCodeList");
	
	if(frmf_checkOpener()){
		ipt_pid.value = spid
		cf_TRPIJ00801();
	}
}

function cf_pamfGetCodeList(){
	var addrow = ds_init_PK103list.addRow();
	ds_init_PK103list.setColumn(addrow,"cdid","I");
	ds_init_PK103list.setColumn(addrow,"cdnm","I");
	ds_init_PK103list.setColumn(addrow,"detldesc","입퇴변경 I -> O");
	
	addrow = ds_init_PK103list.addRow();
	ds_init_PK103list.setColumn(addrow,"cdid","O");
	ds_init_PK103list.setColumn(addrow,"cdnm","O");
	ds_init_PK103list.setColumn(addrow,"detldesc","외퇴변경 O ->");
	
}
function fDschNotiChange(gubun) {		

	var pid = ipt_pid.value;
	var row = ds_datagrid1.rowposition;

 	var indd = ds_datagrid1.getColumn(row, "indd");
 	var cretno = ds_datagrid1.getColumn(row, "cretno");
	var seqno = ds_datagrid1.getColumn(row, "seqno");
	var dschnotiyn = ds_datagrid1.getColumn(row, "dschnotiyn");
  	var indschstat = ds_datagrid1.getColumn(row, "indschstat");
  	var specordtype = ds_datagrid1.getColumn(row, "specordtype");
  	var brateflag = ds_datagrid1.getColumn(row, "brateflag");
  	var rem = ds_datagrid1.getColumn(row, "rem");
  	var otheropinfo = ds_datagrid1.getColumn(row, "otheropinfo");
  	var remstatus = ds_datagrid1.getColumn(row, "remstatus");
	var userid = sysf_getUserId();
	var specordtype_old = ds_datagrid1.getColumn(row, "specordtype_old");
	
	
  	ds_send_upt.setColumn(0, "pid", pid);
  	ds_send_upt.setColumn(0, "indd", indd);
  	ds_send_upt.setColumn(0, "cretno", cretno);
  	ds_send_upt.setColumn(0, "seqno", seqno);
  	ds_send_upt.setColumn(0, "gbn", gubun);
  	ds_send_upt.setColumn(0, "specordtype", specordtype);
  	ds_send_upt.setColumn(0, "brateflag", brateflag);
  	ds_send_upt.setColumn(0, "remstatus", remstatus);
	//if(pid == '')
	if( utlf_isNull(pid))
	{
		sysf_messageBox("변경할 대상이 ","I004");
		return;
	}
	if (gubun == "Y")
	{
		if (dschnotiyn == "Y")
		{
			sysf_messageBox("이미 퇴원확정 상태이므로 실행할 수","I004");	  // 퇴원확정 클릭 시 기존 확정 상태 체크함
			return;
		}
	}
	
	if (gubun == "N") {
		if (indschstat != "재") {
			sysf_messageBox("상태가 가퇴원 혹은 퇴원인 경우 퇴원확정 취소할 수","I004");	// 퇴원확정 취소 클릭 시 수납 상태 체크함
			return;
		}
		if (dschnotiyn == "N") {
			sysf_messageBox("퇴원확정 상태가 아니므로 취소할 수","I004");	  // 퇴원확정 취소 클릭 시 기존 확정 상태 체크함
			return;
		}
	}
	
	if (gubun == "K") {
		if (rem == grp_ktasresn.ipt_rem.value || utlf_isNull(grp_ktasresn.ipt_rem.value)) {
			sysf_messageBox("KTAS 변경 사유는","I003");
			return;
		}
		
		ds_send_upt.setColumn(0, "rem", utlf_transNullToEmpty(grp_ktasresn.ipt_rem.value));
		ds_send_upt.setColumn(0, "otheropinfo", utlf_transNullToEmpty(otheropinfo) +
											"\r\n[id:"+ userid +"]" + 
											"[val:"+ specordtype_old +"]->"  +
											"[val:"+ specordtype +"]" + 
											"[dt:"+ utlf_getCurrentDateTime() +"]" + 
											"[rem:"+ utlf_transNullToEmpty(grp_ktasresn.ipt_rem.value) +"]");
	}
	
	var oParam = {};
		oParam.id          = "TXPIJ00801";
		oParam.service     = "bfjudgapp.InHospJudg";
		oParam.method      = "reqChgNoti";
		oParam.inds        = "req=ds_send_upt";
		oParam.outds       = "";
		oParam.async       = false;
		oParam.callback    = "cf_TRPIJ00801";

	tranf_submit(oParam);


}

function cf_TRPIJ00801(){
	ipt_pid.updateToDataset();
	dsf_createDsRow("ds_send", [{col:"pid", type:"STRING", size:256, val : ipt_pid.value}]);
	var oParam = {};
		oParam.id          = "TRPIJ00801";
		oParam.service     = "bfjudgapp.InHospJudg";
		oParam.method      = "reqGetInpt";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_datagrid1=gridinpt";
		oParam.async       = false;
		//oParam.callback    = "cf_TRPIJ00801";

	tranf_submit(oParam);
	
	grp_ktasresn.visible = false;	
}

function btn_close_onclick(obj:Button,  e:ClickEventInfo)
{
	this.close();
}

function btn_noticncl_onclick(obj:Button,  e:ClickEventInfo)
{
	fDschNotiChange('N');
}

function btn_noti_onclick(obj:Button,  e:ClickEventInfo)
{
	var posi = ds_datagrid1.rowposition;
	//응급실 퇴실취소 유무 체크하여 메세지 팝업 by 설승민 2020.03.09
	if(ds_datagrid1.getColumn(posi,"erorddeptcd") == '2280000000' && (ds_datagrid1.getColumn(posi,"eroutdt") == '-' || utlf_isNull(ds_datagrid1.getColumn(posi,"eroutdt")))){
		if(ds_datagrid1.getColumn(posi,"dschnotidt").substr(0,1) == '-'){
			sysf_messageBox("응급실 퇴실취소입니다. 응급실로 문의주세요");
			return;
		}
	}
	fDschNotiChange('Y');
}

function ipt_pid_onkeydown(obj:Edit, e:KeyEventInfo)
{
	var Ids = dsf_createDsRow("ds_send", [{col:"pid", type:"STRING", size:256, val : ipt_pid.value}]);
											 
	if(e.keycode == 13)
	 {
		cf_TRPIJ00801();
 
	 }
}

//function 
function datagrid1_onkeydown(obj:Grid, e:KeyEventInfo)
{
	
}

function datagrid1_oncloseup(obj:Grid, e:GridEditEventInfo)
{
	var ioflag = ds_init_PK103list.lookupExpr("cdid=='"+e.value+"'","cdnm");
	ds_datagrid1.setColumn(e.row, "brateflag", ioflag);
}

function btn_ktas_onclick(obj:Button,  e:ClickEventInfo)
{
	var row = ds_datagrid1.rowposition;
	var specordtype = ds_datagrid1.getColumn(row, "specordtype");
	
	grp_ktasresn.ipt_rem.value = "";
	grp_ktasresn.cmb_ktas.value = specordtype;
	grp_ktasresn.visible = true;
}

function grp_ktasresn_Button00_onclick(obj:Button,  e:ClickEventInfo)
{
	grp_ktasresn.visible = false;
}

function grp_ktasresn_btn_ktassave_onclick(obj:Button,  e:ClickEventInfo)
{
	fDschNotiChange('K');
	//grp_ktasresn.visible = false;
}

function grp_ktasresn_cmb_ktas_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
{
	var row = ds_datagrid1.rowposition;
	var ioflag = ds_init_PK103list.lookupExpr("cdid=='"+obj.value+"'","cdnm");
	
	if (obj.value != "I" && obj.value != "O") {
		ds_datagrid1.setColumn(row, "specordtype", obj.value);
	}

	ds_datagrid1.setColumn(row, "brateflag", ioflag);

}

function grp_ktasresn_caption1_onclick(obj:Static,  e:ClickEventInfo)
{
	
}
]]></Script>
  </Form>
</FDL>