YNU_JEUS/app_home/himed/xpapps/emr/carerecxp/xp/SPMNR04800_지시처방 불러오기.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPMNR04800" position="absolute 0 0 784 656" titletext="지시처방 불러오기" oninit="SPMNR04800_oninit" onload="SPMNR04800_onload">
    <Layouts>
      <Layout>
        <Static text="의사 지시처방 리스트" position="absolute 0 9 170 30" id="caption42" class="tit_2"/>
        <Shape position="absolute 0 25 385 31" linetype="horizontal" id="line18" class="line_10"/>
        <Static text="간호 setting 지시처방" position="absolute 392 9 549 30" id="caption1" class="tit_2"/>
        <Shape position="absolute 392 24 777 33" linetype="horizontal" id="line1" class="line_10"/>
        <Grid position="absolute 0 30 385 650" id="grd_doctprcplist" class="datagrid1" binddataset="ds_main_prcpinfo_doctprcplist" autoenter="select" autofittype="col" treeusecheckbox="false" treeinitstatus="expand,null" oncellclick="grd_doctprcplist_oncellclick">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="21"/>
                <Column size="37"/>
                <Column size="300"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
              </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="prcpcd"/>
                <Cell col="4" text="instcd"/>
                <Cell col="5" text="depth"/>
                <Cell col="6" text="prcpclscd1"/>
                <Cell col="7" text="prcpclscd2"/>
                <Cell col="8" text="prcpclscd3"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" expr="currow+1"/>
                <Cell col="1" displaytype="checkbox" edittype="expr:edittype" style="controlbackground:EXPR(controlbackground);controlborder:EXPR(controlborder);" text="bind:check" expr="expr:check == 'true' ? 1 : 0"/>
                <Cell col="2" displaytype="tree" edittype="tree" style="align:left middle;padding:3 3 3 3;" text="bind:prcpnm" wordwrap="word" treestartlevel="1" treelevel="expr:depth"/>
                <Cell col="3" text="bind:prcpcd"/>
                <Cell col="4" text="bind:instcd"/>
                <Cell col="5" text="bind:depth"/>
                <Cell col="6" text="bind:prcpclscd1"/>
                <Cell col="7" text="bind:prcpclscd2"/>
                <Cell col="8" text="bind:prcpclscd3"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Grid position="absolute 392 30 777 650" id="grd_careprcplist" class="datagrid1" binddataset="ds_main_prcpinfo_careprcplist" autoenter="select" autofittype="col" cellsizingtype="col" treeusecheckbox="false" treeinitstatus="expand,null" oncellclick="grd_careprcplist_oncellclick">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="25"/>
                <Column size="37"/>
                <Column size="300"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
              </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="prcpcd"/>
                <Cell col="4" text="instcd"/>
                <Cell col="5" text="deptcd"/>
                <Cell col="6" text="prcpclscd1"/>
                <Cell col="7" text="prcpclscd2"/>
                <Cell col="8" text="prcpclscd3"/>
                <Cell col="9" text="depth"/>
              </Band>
              <Band id="body">
                <Cell celltype="head"/>
                <Cell col="1" displaytype="checkbox" edittype="expr:edittype" style="controlbackground:EXPR(controlbackground);controlborder:EXPR(controlborder);" text="bind:check" expr="expr:check == 'true' ? 1 : 0"/>
                <Cell col="2" displaytype="tree" edittype="tree" style="align:left middle;padding:0 0 0 3;" text="bind:prcpnm" treestartlevel="1" treelevel="expr:depth"/>
                <Cell col="3" text="bind:prcpcd"/>
                <Cell col="4" text="bind:instcd"/>
                <Cell col="5" text="bind:deptcd"/>
                <Cell col="6" text="bind:prcpclscd1"/>
                <Cell col="7" text="bind:prcpclscd2"/>
                <Cell col="8" text="bind:prcpclscd3"/>
                <Cell col="9" text="bind:depth"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Button position="absolute 734 6 776 25" id="btn_save" class="btn5" text="저장" onclick="btn_save_onclick"/>
        <Button position="absolute 320 6 384 25" id="btn_selmove" class="btn2" text="선택이동" onclick="btn_selmove_onclick"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_main_prcpinfo_doctprcplist" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_main_prcpinfo_doctprcplist_oncolumnchanged">
        <ColumnInfo>
          <Column id="check" type="STRING" size="256" sumtext="선택"/>
          <Column id="prcpnm" type="STRING" size="256" sumtext="지시처방"/>
          <Column id="prcpcd" type="STRING" size="256" sumtext="처방코드"/>
          <Column id="instcd" type="STRING" size="256" sumtext="기관코드"/>
          <Column id="depth" type="STRING" size="256" sumtext="레벨"/>
          <Column id="prcpclscd1" type="STRING" size="256" sumtext="처방분류코드1"/>
          <Column id="prcpclscd2" type="STRING" size="256" sumtext="처방분류코드2"/>
          <Column id="prcpclscd3" type="STRING" size="256" sumtext="처방분류코드3"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_main_prcpinfo_careprcplist" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_main_prcpinfo_careprcplist_oncolumnchanged">
        <ColumnInfo>
          <Column id="check" type="STRING" size="256" sumtext="선택"/>
          <Column id="prcpnm" type="STRING" size="256" sumtext="지시처방"/>
          <Column id="prcpcd" type="STRING" size="256" sumtext="처방코드"/>
          <Column id="instcd" type="STRING" size="256" sumtext="기관코드"/>
          <Column id="deptcd" type="STRING" size="256" sumtext="부서코드"/>
          <Column id="prcpclscd1" type="STRING" size="256" sumtext="처방분류코드1"/>
          <Column id="prcpclscd2" type="STRING" size="256" sumtext="처방분류코드2"/>
          <Column id="prcpclscd3" type="STRING" size="256" sumtext="처방분류코드3"/>
          <Column id="depth" type="STRING" size="256" sumtext="레벨"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_temp_prcpinfo_doctprcplist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_temp_prcpinfo_careprcplist" 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 		:	2015-11-13
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2015-11-13      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs";
include "emr_carecomxp::CareCom.xjs";
var arErrorCode = new HashArray();
function SPMNR04800_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SPMNR04800_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(grd_doctprcplist);
	grdf_initGrid(grd_careprcplist);
	grdf_setRowTypeIcon(grd_careprcplist, 0);

	grdf_setToolTipBind(grd_doctprcplist)
	grdf_setToolTipBind(grd_careprcplist)
	fInitialize();
}

function fInitialize()
{
	var iRow = 0;
	dsf_makeValue(ds_send, "deptcd", "string","all");
	
	var oParam = {};
		oParam.id          = "TRMNR04801";
		oParam.service     = "carerecapp.RecItemMngt";
		oParam.method      = "reqGetDirecPrcpList";
		oParam.inds        = "reqCond=ds_send";
		oParam.outds       = "ds_main_prcpinfo_doctprcplist=doctprcplist ds_main_prcpinfo_careprcplist=careprcplist";
		oParam.async       = false;
		oParam.callback    = "cf_TRMNR04801";

	tranf_submit(oParam);

	if(arErrorCode.pop("TRMNR04801") > -1)
	{
		ds_temp_prcpinfo_doctprcplist.copyData(ds_main_prcpinfo_doctprcplist);
		ds_temp_prcpinfo_careprcplist.copyData(ds_main_prcpinfo_careprcplist);
		
		ds_main_prcpinfo_doctprcplist.updatecontrol = false;
		for(var iRow = 0; iRow < ds_main_prcpinfo_doctprcplist.rowcount; iRow++)
		{
			ds_main_prcpinfo_doctprcplist.setRowType(iRow, "");
			
			if(ds_main_prcpinfo_doctprcplist.getColumn(iRow, "depth") == "1")
			{
				dsf_makeValue(ds_main_prcpinfo_doctprcplist, "edittype", "string", "none", iRow);
				dsf_makeValue(ds_main_prcpinfo_doctprcplist, "controlbackground", "string", "silver", iRow);
				dsf_makeValue(ds_main_prcpinfo_doctprcplist, "controlborder", "string", "1 solid #708090cc", iRow);
			}
			else
			{
				dsf_makeValue(ds_main_prcpinfo_doctprcplist, "edittype", "string", "checkbox", iRow);
				dsf_makeValue(ds_main_prcpinfo_doctprcplist, "controlbackground", "string", "", iRow);
				dsf_makeValue(ds_main_prcpinfo_doctprcplist, "controlborder", "string", "", iRow);
			}
		}
		ds_main_prcpinfo_doctprcplist.updatecontrol = true;
		
		ds_main_prcpinfo_careprcplist.updatecontrol = false;
		ds_main_prcpinfo_careprcplist.enableevent = false;
		for(var iRow = 0; iRow < ds_main_prcpinfo_careprcplist.rowcount; iRow++)
		{
			ds_main_prcpinfo_careprcplist.setRowType(iRow, "");
			
			if(ds_main_prcpinfo_careprcplist.getColumn(iRow, "depth") == "1")
			{
				dsf_makeValue(ds_main_prcpinfo_careprcplist, "edittype", "string", "none", iRow);
				dsf_makeValue(ds_main_prcpinfo_careprcplist, "controlbackground", "string", "silver", iRow);
				dsf_makeValue(ds_main_prcpinfo_careprcplist, "controlborder", "string", "1 solid #708090cc", iRow);
			}
			else
			{
				dsf_makeValue(ds_main_prcpinfo_careprcplist, "edittype", "string", "", iRow);
				dsf_makeValue(ds_main_prcpinfo_careprcplist, "controlbackground", "string", "", iRow);
				dsf_makeValue(ds_main_prcpinfo_careprcplist, "controlborder", "string", "", iRow);
			}
		}
		ds_main_prcpinfo_careprcplist.enableevent = true;
		ds_main_prcpinfo_careprcplist.updatecontrol = true;
	}
}

function cf_TRMNR04801(sSvcId, nErrorCode, sErrorMsg) 
{
	arErrorCode.push(sSvcId, nErrorCode);
    if(nErrorCode < 0) return;
}

function ds_main_prcpinfo_doctprcplist_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
{
	if(e.columnid == "check")
	{
		obj.setColumn(e.row, "check", (e.newvalue == "true" || e.newvalue == 1) ? "true" : "false");
	}
}

function ds_main_prcpinfo_careprcplist_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
{
	if(e.columnid == "check")
	{
		obj.setColumn(e.row, "check", (e.newvalue == "true" || e.newvalue == 1) ? "true" : "false");
	}
	
	fDelGridRow();
}

function fDelGridRow()
{
	var sCheck = "";
	var sStatus = 0;
	var iRow = ds_main_prcpinfo_careprcplist.rowposition;
	sCheck = ds_main_prcpinfo_careprcplist.getColumn(iRow, "check");
	if(sCheck == "true")
	{
		sStatus = ds_main_prcpinfo_careprcplist.getRowType(iRow);
		if(sStatus == 2)
		{
			ds_main_prcpinfo_careprcplist.deleteRow(iRow);
		}
		else
		{
			ds_main_prcpinfo_careprcplist.updatecontrol = false;
			ds_main_prcpinfo_careprcplist.setRowType(iRow, "d");
			ds_main_prcpinfo_careprcplist.updatecontrol = true;
		}
	}
	else
	{
		ds_main_prcpinfo_careprcplist.updatecontrol = false;
		ds_main_prcpinfo_careprcplist.setRowType(iRow, "");
		ds_main_prcpinfo_careprcplist.updatecontrol = true;
	}
		
}


function grd_doctprcplist_oncellclick(obj:Grid, e:GridClickEventInfo)
{
	fClinckGridRow("doct");
}

function fClinckGridRow(pFlag)
{
	var sDepth = 0;
	var iRow = 0;
	var iCol = 0;
	switch(pFlag)
	{
		case "doct" :
			iRow = ds_main_prcpinfo_doctprcplist.rowposition;
			iCol = grd_doctprcplist.currentcol;
			if(iRow < 0) return;
			if(iCol == 1) return;
			sDepth = ds_main_prcpinfo_doctprcplist.getColumn(iRow, "depth");
			if(sDepth == 1) return;
			
			if(ds_main_prcpinfo_doctprcplist.getColumn(iRow, "check") == "true")
			{
				ds_main_prcpinfo_doctprcplist.setColumn(iRow, "check","false");
			}
			else
			{
				ds_main_prcpinfo_doctprcplist.setColumn(iRow, "check","true");
			}
			
		break;	
		case "care" :
			iRow = ds_main_prcpinfo_careprcplist.rowposition;
			iCol = grd_careprcplist.currentcol;
			if(iRow < 0) return;
			if(iCol == 2) return;
			sDepth = ds_main_prcpinfo_careprcplist.getColumn(iRow, "depth");
			if(sDepth == 1) return;
			if(ds_main_prcpinfo_careprcplist.getColumn(iRow, "check") == "true")
			{
				ds_main_prcpinfo_careprcplist.setColumn(iRow, "check","false");
				fDelGridRow();
			}
			else
			{
				ds_main_prcpinfo_careprcplist.setColumn(iRow, "check","true");
				fDelGridRow();
			}
		break;			
	}	
}

function grd_careprcplist_oncellclick(obj:Grid, e:GridClickEventInfo)
{
	if(ds_main_prcpinfo_careprcplist.rowposition > -1 && e.col > 0)
	{
		if(e.col == 1)
		{
			fClinckGridRow("care");
		}
	}
}

function btn_selmove_onclick(obj:Button,  e:ClickEventInfo)
{
	fSendPrcpList();
}

function fSendPrcpList()
{
	var iCarePrcpRow = -1;
	var sPrcpCD = "";
	var sPrcpClsCD1 = "";
	var sPrcpClsCD2 = "";
	var sPrcpClsCD3 = "";
	var iPrcpClsCD1 = "";
	var iPrcpClsCD2 = "";
	var iPrcpClsCD3 = "";

	for(var iRow = 0; iRow < ds_main_prcpinfo_doctprcplist.rowcount; iRow++)
	{
		if(ds_main_prcpinfo_doctprcplist.getColumn(iRow, "check") == "true")
		{
			sPrcpCD = ds_main_prcpinfo_doctprcplist.getColumn(iRow, "prcpcd");
			ds_main_prcpinfo_doctprcplist.setColumn(iRow, "check","false");
			
			if(!utlf_isNull(ds_main_prcpinfo_careprcplist.lookup("prcpcd", sPrcpCD, "prcpcd")))
			{
				continue;
			}
			
			iCarePrcpRow = ds_main_prcpinfo_careprcplist.addRow();
			ds_main_prcpinfo_careprcplist.enableevent = false;
			ds_main_prcpinfo_careprcplist.updatecontrol = false;
			ds_main_prcpinfo_careprcplist.setColumn(iCarePrcpRow, "prcpnm", ds_main_prcpinfo_doctprcplist.getColumn(iRow, "prcpnm"));
			ds_main_prcpinfo_careprcplist.setColumn(iCarePrcpRow, "prcpcd", ds_main_prcpinfo_doctprcplist.getColumn(iRow, "prcpcd"));
			ds_main_prcpinfo_careprcplist.setColumn(iCarePrcpRow, "instcd", ds_main_prcpinfo_doctprcplist.getColumn(iRow, "instcd"));
			ds_main_prcpinfo_careprcplist.setColumn(iCarePrcpRow, "deptcd", "all");
			ds_main_prcpinfo_careprcplist.setColumn(iCarePrcpRow, "prcpclscd1", ds_main_prcpinfo_doctprcplist.getColumn(iRow, "prcpclscd1"));
			ds_main_prcpinfo_careprcplist.setColumn(iCarePrcpRow, "prcpclscd2", ds_main_prcpinfo_doctprcplist.getColumn(iRow, "prcpclscd2"));
			ds_main_prcpinfo_careprcplist.setColumn(iCarePrcpRow, "prcpclscd3", ds_main_prcpinfo_doctprcplist.getColumn(iRow, "prcpclscd3"));
			ds_main_prcpinfo_careprcplist.setColumn(iCarePrcpRow, "depth", 2);
			ds_main_prcpinfo_careprcplist.updatecontrol = true;
			ds_main_prcpinfo_careprcplist.enableevent = true;
		}
	}
}

function btn_save_onclick(obj:Button,  e:ClickEventInfo)
{
	fSave();
}

function fSave()
{
	var sSaveData = grdf_getGridUpdateData(grd_careprcplist);
	
	if(sSaveData.rowcount == 0)
	{
		sysf_messageBox("저장할 데이터가","I004");
		return;
	}	

	var oParam = {};
		oParam.id          = "TXMNR04801";
		oParam.service     = "carerecapp.RecItemMngt";
		oParam.method      = "reqExeDirecPrcpList";
		oParam.inds        = "careprcplist=ds_main_prcpinfo_careprcplist:u";
		oParam.outds       = "";
		oParam.async       = false;
		oParam.callback    = "cf_TXMNR04801";

	tranf_submit(oParam);

	if(arErrorCode.pop("TXMNR04801") > -1)
	{
		opener.frmf_setParameter("SMMNR04800_SaveFlag","Y");
		this.close();	
	}
}

function cf_TXMNR04801(sSvcId, nErrorCode, sErrorMsg) 
{
	arErrorCode.push(sSvcId, nErrorCode);
    if(nErrorCode < 0) return;
}]]></Script>
  </Form>
</FDL>