YNU_JEUS/app_home/himed/xpapps/pam/bfjudgcarexp/xp/SMPPI00800_사전심사제외환자관리.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMPPI00800" position="absolute 0 0 960 730" titletext="외래사전심사 제외환자관리 관리" oninit="SMPPI00800_oninit" onload="SMPPI00800_onload">
    <Layouts>
      <Layout>
        <Div position="absolute 0 28 942 620" id="grp_biz" scrollbars="autoboth" anchor="all">
          <Layouts>
            <Layout>
              <Grid position="absolute 0 78 940 592" id="grd_drgclist" class="datagrid3" binddataset="ds_grd_drgclist" autofittype="col" anchor="left top right" cellsizingtype="col" autoenter="select" onenterdown="grp_biz_grd_drgclist_onenterdown" onexpanddown="grp_biz_grd_drgclist_onexpanddown">
                <Formats>
                  <Format id="default">
                    <Columns>
                      <Column size="25"/>
                      <Column size="62"/>
                      <Column size="66"/>
                      <Column size="75"/>
                      <Column size="75"/>
                      <Column size="96"/>
                      <Column size="92"/>
                      <Column size="162"/>
                      <Column size="60"/>
                      <Column size="118"/>
                      <Column size="60"/>
                      <Column size="117"/>
                    </Columns>
                    <Rows>
                      <Row size="24" band="head"/>
                      <Row size="24"/>
                    </Rows>
                    <Band id="head">
                      <Cell/>
                      <Cell col="1" text="제어코드"/>
                      <Cell col="2" text="제어타입"/>
                      <Cell col="3" text="환자번호"/>
                      <Cell col="4" text="환자명"/>
                      <Cell col="5" text="시작일자"/>
                      <Cell col="6" text="종료일자"/>
                      <Cell col="7" text="비고"/>
                      <Cell col="8" text="등록자"/>
                      <Cell col="9" text="등록일자"/>
                      <Cell col="10" text="수정자"/>
                      <Cell col="11" text="수정일자"/>
                    </Band>
                    <Band id="body">
                      <Cell celltype="head"/>
                      <Cell col="1" displaytype="text" edittype="expr:ds_grd_drgclist.getRowType(currow) == 1 ? &quot;readonly&quot; : &quot;text&quot;" style="align:center middle;" text="bind:rulecd" enable="false"/>
                      <Cell col="2" displaytype="text" edittype="expr:ds_grd_drgclist.getRowType(currow) == 1 ? &quot;readonly&quot; : &quot;text&quot;" style="align:center middle;" text="bind:typecd" enable="false"/>
                      <Cell col="3" displaytype="text" edittype="expr:ds_grd_drgclist.getRowType(currow) == 1 ? &quot;readonly&quot; : &quot;text&quot;" style="align:left middle;" text="bind:pid" expandshow="show" enable="false"/>
                      <Cell col="4" style="align:left middle;" text="bind:patnm" expandshow="hide"/>
                      <Cell col="5" displaytype="date" edittype="expr:ds_grd_drgclist.getRowType(currow) == 1 ? &quot;readonly&quot; : &quot;date&quot;" style="align:left middle;" text="bind:fromdd" mask="yyyy-MM-dd" calendardisplaynulltype="nulltext" enable="false"/>
                      <Cell col="6" displaytype="date" edittype="date" style="align:left middle;" text="bind:todd" mask="yyyy-MM-dd" calendardisplaynulltype="nulltext"/>
                      <Cell col="7" displaytype="text" edittype="text" text="bind:cmnt"/>
                      <Cell col="8" displaytype="text" edittype="text" style="align:center middle;" text="bind:fstrgstrid"/>
                      <Cell col="9" displaytype="date" edittype="date" style="align:center middle;" text="bind:fstrgstdt" mask="yyyy-MM-dd hh:mm" calendardisplaynulltype="nulltext"/>
                      <Cell col="10" style="align:center middle;" text="bind:lastupdtrid"/>
                      <Cell col="11" displaytype="date" edittype="date" text="bind:lastupdtdt" mask="yyyy-MM-dd hh:mm" calendardisplaynulltype="nulltext"/>
                    </Band>
                  </Format>
                </Formats>
              </Grid>
              <Static text="외래사전심사 제외환자관리 리스트" position="absolute 4 56 238 79" id="cap_judgtrgtman" class="tit_2"/>
              <Shape position="absolute 0 69 940 83" linetype="horizontal" id="line1" class="line_1" style="strokepen:3 solid #33bbbbff;" anchor="left top right"/>
              <Div position="absolute 1 0 941 40" align="align:center top;" id="group1" class="div_SA" anchor="left top right">
                <Layouts>
                  <Layout>
                    <Button position="absolute 875 10 931 32" id="btn_select" class="btn1" taborder="32" text="조회" anchor="top right" onclick="grp_biz_group1_btn_select_onclick"/>
                    <Shape position="absolute 857 5 863 38" linetype="vertical" id="line3" class="line_4" anchor="top right"/>
                    <Static text="제어코드 :" position="absolute 8 12 103 29" id="caption30" class="search_name" anchor="default"/>
                    <Edit position="absolute 270 10 350 29" id="ipt_cd_name" anchor="default" onkeydown="grp_biz_group1_ipt_cd_name_onkeydown"/>
                    <Static text="제어타입 :" position="absolute 183 6 282 34" id="caption1" class="search_name" anchor="default"/>
                    <Edit position="absolute 95 10 170 29" id="input1" anchor="default" onkeydown="grp_biz_group1_input1_onkeydown"/>
                    <Static text="환자번호 :" position="absolute 373 12 472 29" id="caption2" class="search_name" anchor="default"/>
                    <Edit position="absolute 460 10 540 29" id="input2" anchor="default" onkeydown="grp_biz_group1_input2_onkeydown"/>
                    <Button id="button17" taborder="33" class="icon_search" position="absolute 543 12 559 28" onclick="grp_biz_group1_button17_onclick"/>
                    <Edit id="input00" taborder="34" onkeydown="grp_biz_group1_input2_onkeydown" position="absolute 567 11 647 30" enable="false"/>
                  </Layout>
                </Layouts>
              </Div>
              <Button position="absolute 717 52 789 71" id="btn_excelsave" class="btn7" text="엑셀저장" anchor="top right" onclick="grp_biz_btn_excelsave_onclick"/>
              <Button position="absolute 898 52 940 71" id="button1" class="btn5" text="저장" anchor="top right" onclick="grp_biz_button1_onclick"/>
              <Button position="absolute 790 52 843 71" id="button2" class="btn2" text="행삭제" anchor="top right" onclick="grp_biz_button2_onclick"/>
              <Button position="absolute 844 52 897 71" id="button3" class="btn2" text="행추가" anchor="top right" onclick="grp_biz_button3_onclick"/>
            </Layout>
          </Layouts>
        </Div>
        <Button position="absolute 884 622 940 644" id="btn_cancel" class="btn4" text="종료" onclick="btn_cancel_onclick" anchor="top right"/>
        <Static id="cap_title" text="외래사전심사 제외환자관리 관리" class="tit_1" position="absolute 1 4 217 27"/>
        <ListBox id="ListBox00" taborder="1" position="absolute 4 624 880 724" onitemclick="ListBox00_onitemclick" innerdataset="@ds_init" datacolumn="hngnm" codecolumn="typecd" style="border:0 solid #9ebed4ff ;" enableevent="false" enable="true" readonly="true" anchor="left top right"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_grd_drgclist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="rulecd" type="STRING"/>
          <Column id="typecd" type="STRING"/>
          <Column id="pid" type="STRING"/>
          <Column id="patnm" type="STRING"/>
          <Column id="fromdd" type="STRING"/>
          <Column id="todd" type="STRING"/>
          <Column id="cmnt" type="STRING"/>
          <Column id="fstrgstrid" type="STRING"/>
          <Column id="fstrgstdt" type="STRING"/>
          <Column id="lastupdtrid" type="STRING"/>
          <Column id="lastupdtdt" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="typecd" type="STRING" size="256"/>
          <Column id="hngnm" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
          <Row/>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_send_data1" 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="hngnm" type="STRING" size="256"/>
          <Column id="srchcond" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_patinfolist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Bind>
      <BindItem id="item1" compid="ListBox00" propid="" datasetid="ds_init" columnid="hngnm"/>
      <BindItem id="item0" compid="ListBox00" propid="value" datasetid="ds_init" columnid="hngnm"/>
    </Bind>
    <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 SMPPI00800_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SMPPI00800_onload(obj:Form, e:LoadEventInfo)
{
	grp_biz.group1.input1.value ="111";
	grdf_initGrid(grp_biz.grd_drgclist);
	grdf_setRowTypeIcon(grp_biz.grd_drgclist, 0);
	fInitialize();
}

function fInitialize(){
	dsf_createDsRow("ds_send", [{col:"instcd", type:"STRING", size:256, val: sysf_getUserInfo("dutplceinstcd")}]);
	
	var oParam = {};
		oParam.id          = "TRPPI01001";
		oParam.service     = "bfjudgcareapp.BfJudgCareMngt";
		oParam.method      = "reqGetRudt111List";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_init=rslt";
		oParam.async       = false;
		//oParam.callback    = "cf_TRPPI01001";

	tranf_submit(oParam);
		
	fGetDocuList();
}

function fGetDocuList(){
	dsf_createDsRow("ds_send1", [{col:"instcd", type:"STRING", size:256, val: sysf_getUserInfo("dutplceinstcd")}
							  ,  {col:"rulecd", type:"STRING", size:256, val: grp_biz.group1.input1.value}
							  ,  {col:"typecd", type:"STRING", size:256, val: grp_biz.group1.ipt_cd_name.value}
							  ,  {col:"pid", type:"STRING", size:256, val: grp_biz.group1.input2.value}]);
							  
	var oParam = {};
		oParam.id          = "TRPPI01001";
		oParam.service     = "bfjudgcareapp.BfJudgCareMngt";
		oParam.method      = "reqGetDrgCalcList";
		oParam.inds        = "req=ds_send1";
		oParam.outds       = "ds_grd_drgclist=rslt";
		oParam.async       = false;
		//oParam.callback    = "cf_TRPPI01001";

	tranf_submit(oParam);
}

function grp_biz_group1_btn_select_onclick(obj:Button,  e:ClickEventInfo)
{
	fGetDocuList()
}

function grp_biz_group1_input1_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13)
	 {
		fGetDocuList();
	 }
}

function grp_biz_group1_ipt_cd_name_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13)
	 {
		fGetDocuList();
	 }
}

function grp_biz_group1_input2_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13)
	 {
		fGetDocuList();
	 }
}

function grp_biz_btn_excelsave_onclick(obj:Button,  e:ClickEventInfo)
{
	if (ds_grd_drgclist.rowcount > 0) {
		grdf_exportExcel(grp_biz.grd_drgclist, "exportExcel", "see");
	} else {
		sysf_messageBox("엑셀저장할 내역이", "I004");		///엑셀저장할 내역이 없습니다.
	}
}

function grp_biz_button2_onclick(obj:Button,  e:ClickEventInfo)
{
	fSpclGridDeleteRow();
}

function fSpclGridDeleteRow(){
	var SelectedRows = grdf_getSelectedRows(grp_biz.grd_drgclist);
	grdf_setStatus(grp_biz.grd_drgclist, "D", SelectedRows);
}

function grp_biz_button3_onclick(obj:Button,  e:ClickEventInfo)
{
	fSpclGridInsertRow();
}

function fSpclGridInsertRow()
{
	var addRw = ds_grd_drgclist.addRow();

	ds_grd_drgclist.setColumn(addRw, "fromdd", utlf_getCurrentDate());
	ds_grd_drgclist.setColumn(addRw, "todd", "99991231");
}

function grp_biz_button1_onclick(obj:Button,  e:ClickEventInfo)
{
	var updtdata = grdf_getGridUpdateData(grp_biz.grd_drgclist);

	if ( updtdata.rowcount == 0)
	{
		sysf_messageBox("변경된 데이터가","I004");
		return;
	}
	
	for (var i = ds_grd_drgclist.rowcount-1; i >= 0; i--)
	{
		var pid = ds_grd_drgclist.getColumn(i,"pid");
		var rulecd = ds_grd_drgclist.getColumn(i,"rulecd");
		var typecd = ds_grd_drgclist.getColumn(i,"typecd");
		if (ds_grd_drgclist.getRowType(i) == 8 && (utlf_isNull(pid) || utlf_isNull(rulecd) || utlf_isNull(typecd) )) {
			ds_grd_drgclist.deleteRow(i);
		}
	}
	
	for (var i = 0; i < ds_grd_drgclist.rowcount; i++)
	{
		if (ds_grd_drgclist.getRowType(i) == 2 || ds_grd_drgclist.getRowType(i) == 4 ) 
		{
			var rulecd = grp_biz.grd_drgclist.getBindCellIndex("body","rulecd");
			var typecd = grp_biz.grd_drgclist.getBindCellIndex("body","typecd");
			var pid = grp_biz.grd_drgclist.getBindCellIndex("body","pid");
			var fromdd = grp_biz.grd_drgclist.getBindCellIndex("body","fromdd");
			var todd = grp_biz.grd_drgclist.getBindCellIndex("body","todd");
			
			
			if(!frmf_chkMdtGrid(grp_biz.grd_drgclist,[rulecd,typecd,pid,fromdd,todd],["제어코드","제어타입","환자번호","시작일자","종료일자"]))
			{
				return;
			}
		}
	}
	
	if (sysf_messageBox("저장", "S001") == 6) 
	{
		var Ids = dsf_createDsRow("ds_send", [{col:"instcd", type:"STRING", size:256, val :sysf_getUserInfo("dutplceinstcd") }
											 , {col:"calccd", type:"STRING", size:256, val : grp_biz.group1.input1.value}
											 , {col:"cd_name", type:"STRING", size:256, val :grp_biz.group1.ipt_cd_name.value}]);
		var oParam = {};
			oParam.id          = "TXPPI01001";
			oParam.service     = "bfjudgcareapp.BfJudgCareMngt";
			oParam.method      = "reqExeDrgCalcList";
			oParam.inds        = "srch="+Ids+" req=ds_grd_drgclist:U";
			oParam.outds       = "ds_grd_drgclist=rslt";
			oParam.async       = false;
			//oParam.callback    = "cf_TXPPI01001";

		tranf_submit(oParam);
	}
}

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

function grp_biz_group1_button17_onclick(obj:Button,  e:ClickEventInfo)
{
	var srch_pid = grp_biz.group1.input2.value;
	
	ds_send_data1.setColumn(0, "pid", srch_pid);
	ds_send_data1.setColumn(0, "srchcond", "1");
	
	var objArg = new Object();
	objArg.arg_ds_send = ds_send_data1;
	
	frmf_modal("SPPMC02500","SPPMC02500",objArg,"",1,10,10,"","","","","","M");
	
	var srch_pid = ds_patinfolist.getColumn(0, "pid");
	var srch_hngnm = ds_patinfolist.getColumn(0, "hngnm");
	
	if(!utlf_isNull(srch_pid)){
		grp_biz.group1.input2.value = srch_pid;
		grp_biz.group1.input00.value= srch_hngnm;
		ds_patinfolist.clearData();
	}
}

function grp_biz_grd_drgclist_onenterdown(obj:Grid, e:GridEditEventInfo)
{
	ds_patinfolist.clearData();
	
	ds_send_data1.setColumn(0, "pid", e.value);
	ds_send_data1.setColumn(0, "srchcond", "1");
	
	var oParam = {};
		oParam.id       = "TRPMC02500";
		oParam.service  = "patinfomngtapp.PatBaseInfo";
		oParam.method   = "reqGetPatInfo";
		oParam.inds     = "req=ds_send_data1";
		oParam.outds    = "ds_patinfolist=patinfolist";
		oParam.async    = false;
		//oParam.callback = "cf_TRPMC02500";
		
		tranf_submit(oParam);
	
	if (ds_patinfolist.rowcount == 1) {
		ds_grd_drgclist.setColumn(e.row,"pid",ds_patinfolist.getColumn(0, "pid"))
		ds_grd_drgclist.setColumn(e.row,"patnm",ds_patinfolist.getColumn(0, "hngnm"));
		ds_patinfolist.clearData();
	} else {
		var objArg = new Object();
		objArg.arg_ds_send = ds_send_data1;
		
		frmf_modal("SPPMC02500","SPPMC02500",objArg,"",1,10,10,"","","","","","M");
		
		if(ds_patinfolist.rowcount > 0){
			ds_grd_drgclist.setColumn(e.row,"pid",ds_patinfolist.getColumn(0, "pid"))
			ds_grd_drgclist.setColumn(e.row,"patnm",ds_patinfolist.getColumn(0, "hngnm"));
			ds_patinfolist.clearData();
		}
		
	}
		
}

function grp_biz_grd_drgclist_onexpanddown(obj:Grid, e:GridMouseEventInfo)
{
	if (ds_grd_drgclist.getRowType(e.row) != 1 ) {
		ds_patinfolist.clearData();
		obj.updateToDataset();
		ds_send_data1.setColumn(0, "pid", obj.getCellText(e.row ,e.col));
		
		if ( obj.getBindCellIndex("body","pid") == e.col ){
			ds_send_data1.setColumn(0, "srchcond", "1");
		} else if ( obj.getBindCellIndex("body","patnm") == e.col ){
			ds_send_data1.setColumn(0, "srchcond", "2");
		}	
		
		var objArg = new Object();
		objArg.arg_ds_send = ds_send_data1;
		
		frmf_modal("SPPMC02500","SPPMC02500",objArg,"",1,10,10,"","","","","","M");
		
		if(ds_patinfolist.rowcount > 0){
			ds_grd_drgclist.setColumn(e.row,"pid",ds_patinfolist.getColumn(0, "pid"))
			ds_grd_drgclist.setColumn(e.row,"patnm",ds_patinfolist.getColumn(0, "hngnm"));
			ds_patinfolist.clearData();
		}
	}

}
]]></Script>
  </Form>
</FDL>