YNU_JEUS/app_home/himed/xpapps/emr/ercarexp/xp/SMMNE12000_외래접수환자리스트.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMMNE12000" position="absolute 0 0 1120 805" titletext="외래환자리스트" oninit="SMMNE12000_oninit" onload="SMMNE12000_onload" ontimer="SMMNE12000_ontimer">
    <Layouts>
      <Layout>
        <Shape position="absolute 0 97 1100 103" linetype="horizontal" id="line1" class="line_10"/>
        <Static text="외래환자 리스트" position="absolute 0 81 126 97" align="align:center middle;" id="caption2" class="tit_2"/>
        <Grid position="absolute 0 102 1100 782" align="align:center middle;" id="grd_outpatlist" binddataset="ds_grd_outpatlist" oncellclick="grd_outpatlist_oncellclick" oncloseup="grd_outpatlist_oncloseup" onlbuttonup="grd_outpatlist_onlbuttonup" autoenter="key">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="50"/>
                <Column size="130"/>
                <Column size="70"/>
                <Column size="75"/>
                <Column size="55"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="65"/>
                <Column size="85"/>
                <Column size="320"/>
                <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 text="구분"/>
                <Cell col="1" text="내원일시"/>
                <Cell col="2" text="성명"/>
                <Cell col="3" text="등록번호"/>
                <Cell col="4" text="S/A"/>
                <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="One Stop"/>
                <Cell col="12" text="orddd"/>
                <Cell col="13" text="cretno"/>
                <Cell col="14" text="instcd"/>
                <Cell col="15" text="acptseqno"/>
              </Band>
              <Band id="body">
                <Cell displaytype="combo" edittype="combo" text="bind:elbulbodstat" combodataset="ds_init_M0062" combocodecol="cdid" combodatacol="cdnm" enable="false"/>
                <Cell col="1" displaytype="date" text="bind:ordddt" mask="yyyy-MM-dd HH:mm" calendardisplaynulltype="nulltext"/>
                <Cell col="2" text="bind:hngnm"/>
                <Cell col="3" text="bind:pid"/>
                <Cell col="4" text="bind:sexage"/>
                <Cell col="5" text="bind:orddeptnm"/>
                <Cell col="6" displaytype="combo" edittype="combo" text="bind:rsrvflag" combodataset="ds_init_P0341" combocodecol="cdid" combodatacol="cdnm" enable="false"/>
                <Cell col="7" text="bind:orddrnm"/>
                <Cell col="8" text="bind:icd10cd"/>
                <Cell col="9" text="bind:diagnm"/>
                <Cell col="10" text="bind:prcptdayaftrcptyn"/>
                <Cell col="11" text="bind:onestop"/>
                <Cell col="12" text="bind:orddd"/>
                <Cell col="13" text="bind:cretno"/>
                <Cell col="14" text="bind:instcd"/>
                <Cell col="15" text="bind:orddrid"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Static text="외래 환자 조회" position="absolute 0 0 125 25" id="caption1" class="tit_1"/>
        <Div id="Div00" taborder="1" position="absolute 0 25 1097 62" class="div_SA">
          <Layouts>
            <Layout>
              <Static id="caption14" text="진 료 일" class="search_name" position="absolute 6 11 72 28" anchor="default"/>
              <Calendar id="ipt_orddd" taborder="1" class="input" position="absolute 75 9 165 28" anchor="default" autoselect="true"/>
              <Static id="caption26" text="진 료 과" class="search_name" position="absolute 193 11 259 28" anchor="default"/>
              <Combo id="cmb_orddept" taborder="2" innerdataset="ds_init_cmb_orddept" codecolumn="deptcd" datacolumn="depthngnm" class="combo_default" position="absolute 262 9 412 28" anchor="default" onitemchanged="Div00_cmb_orddept_onitemchanged"/>
              <Static id="caption29" text="진 료 의" class="search_name" position="absolute 442 11 508 28" anchor="default"/>
              <Combo id="cmb_orddrid" taborder="3" innerdataset="@ds_init_userlist" codecolumn="userid" datacolumn="usernm" position="absolute 511 9 601 28" anchor="default" onitemchanged="Div00_cmb_orddrid_onitemchanged"/>
              <Static id="caption30" text="등록번호" class="search_name" position="absolute 628 11 694 28" anchor="default"/>
              <Edit id="ipt_pid" taborder="4" class="input_search" position="absolute 697 9 787 28" anchor="default" onkeydown="Div00_ipt_pid_onkeydown" autoselect="true"/>
              <Button id="btn_reqpatnm" taborder="5" enable="false" position="absolute 788 8 813 28" anchor="default" onclick="Div00_btn_reqpatnm_onclick"/>
              <Static id="caption6" text="성    명" class="search_name" position="absolute 826 12 887 29" anchor="default"/>
              <Edit id="ipt_hngnm" taborder="6" class="input_search" position="absolute 890 10 980 29" anchor="default" onkeydown="Div00_ipt_hngnm_onkeydown" autoselect="true"/>
              <Button id="btn_patsrch" taborder="7" class="icon_search" position="absolute 987 12 1003 28" anchor="default" onclick="Div00_btn_patsrch_onclick"/>
              <Shape id="line3" linetype="vertical" position="absolute 1017 5 1023 31" anchor="default"/>
              <Button id="btn_req" taborder="8" text="조회" class="btn1" position="absolute 1035 8 1091 30" anchor="default" onclick="Div00_btn_req_onclick"/>
            </Layout>
          </Layouts>
        </Div>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_grd_outpatlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="elbulbodstat" type="STRING"/>
          <Column id="ordddt" type="STRING"/>
          <Column id="hngnm" type="STRING"/>
          <Column id="pid" type="STRING"/>
          <Column id="sexage" type="STRING"/>
          <Column id="orddeptnm" type="STRING"/>
          <Column id="rsrvflag" type="STRING"/>
          <Column id="orddrnm" type="STRING"/>
          <Column id="icd10cd" type="STRING"/>
          <Column id="diagnm" type="STRING"/>
          <Column id="prcptdayaftrcptyn" type="STRING"/>
          <Column id="onestop" type="STRING"/>
          <Column id="orddd" type="STRING"/>
          <Column id="cretno" type="STRING"/>
          <Column id="instcd" type="STRING"/>
          <Column id="orddrid" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_cmb_orddept" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="depthngnm" type="STRING"/>
          <Column id="deptcd" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_cond" 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="orddd" type="STRING" size="256"/>
          <Column id="orddeptcd" type="STRING" size="256"/>
          <Column id="orddrid" type="STRING" size="256"/>
          <Column id="hngnm" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="pid"/>
            <Col id="orddd"/>
            <Col id="orddeptcd"/>
            <Col id="orddrid"/>
            <Col id="hngnm"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_init_userlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="usernm" type="STRING" size="256"/>
          <Column id="userid" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_reqdata" 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="orddd" type="STRING" size="256"/>
          <Column id="orddeptcd" type="STRING" size="256"/>
          <Column id="orddrid" type="STRING" size="256"/>
          <Column id="hngnm" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="pid"/>
            <Col id="orddd"/>
            <Col id="orddeptcd"/>
            <Col id="orddrid"/>
            <Col id="hngnm"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_init_M0062" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_P0341" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_hidden" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="srchcond" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="hngnm" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="srchcond"/>
            <Col id="pid"/>
            <Col id="hngnm"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_init_patnm" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="Div00.ipt_orddd" propid="value" datasetid="ds_init_cond" columnid="orddd"/>
      <BindItem id="item1" compid="Div00.cmb_orddept" propid="value" datasetid="ds_init_cond" columnid="orddeptcd"/>
      <BindItem id="item2" compid="Div00.cmb_orddrid" propid="value" datasetid="ds_init_cond" columnid="orddrid"/>
      <BindItem id="item3" compid="Div00.ipt_pid" propid="value" datasetid="ds_init_cond" columnid="pid"/>
      <BindItem id="item4" compid="Div00.ipt_hngnm" propid="value" datasetid="ds_init_cond" columnid="hngnm"/>
    </Bind>
    <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 "com_basiccodexp::ZBC001.xjs";
//include "com_departmentcodexp::ZSU001.xjs";
include "com_userdeptinfoxp::ZSU001.xjs";
include "emr_prcpmngtxp::MMO001.xjs";


function fReqOutPatList() {
	//model.copyNode("/root/send/reqdata", "/root/main/cond");
	//ds_reqdata.clear();
	dsf_copyDs(ds_reqdata,ds_init_cond,"replace");
	
	//submit("TRMNE12000");
	var oParam = {};
	oParam.id          = "TRMNE12000";
	oParam.service     = "ercareapp.ERRgst";    // TRMNE12000.xml의 action\target의 값을 설정
	oParam.method      = "reqGetOutPatList";    // TRMNE12000.xml의 action\method의 값을 설정
	oParam.inds        = "req=ds_reqdata";
	oParam.outds       = "ds_grd_outpatlist=outpatlist";	
	oParam.transaction = false;
	oParam.async       = false;
	//oParam.callback    = "cf_TRMNE12000";

	tranf_submit(oParam);
	
}

function fOrddridList() {
	//model.removeNodeset("/root/init/userlist");	
	//model.makeNode("/root/init/userlist/usercombo");
	//mmbfGetUserComboList("/root/send/reqdata", "/root/init/userlist", cmb_orddept.value, "0330");
	lf_mmbfGetUserComboList(ds_init_userlist, Div00.cmb_orddept.value, "0330");
	
	
	//addComboInstance("/root/init/userlist", "userid^usernm", "-^전체", "usercombo"); //의사콤보 전체항목 추가
	dsf_addDsItem( ds_init_userlist, "userid", "usernm", "전체", "-", "above");
	
	Div00.cmb_orddrid.index = 0;
	//model.refresh();
}
			
function SMMNE12000_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SMMNE12000_onload(obj:Form, e:LoadEventInfo)
{
	//var sOUTPATLIST_PATH = "/root/main/outpatinfo/outpatlist";
	grdf_initGrid(grd_outpatlist);				
	ds_grd_outpatlist.clearData();
	
	ds_init_cond.setColumn(0,"orddd", utlf_getCurrentDate()); 

    // Code와 Value의 값에 해당되는 것으로 판단됨 kimdo3 : 20160624
	//zbcfGetCodeList(new Array("M0062", "P0341"), new Array("",""));
	var arrParam 	= [{dsNm: "ds_init_M0062", cdGrpId: "M0062"}
					  ,{dsNm: "ds_init_P0341", cdGrpId: "P0341"}					  
					  ]
	appf_getCodeList(arrParam);

	//mmbfGetDeptCodeComboList("/root/send/reqdata", "/root/init/orddept", "O");
	lf_mmbfGetDeptCodeComboList(ds_init_cmb_orddept, "O");
	
	//mmbfGetUserComboList("/root/send/reqdata", "/root/init/userlist", getUserInfo("dutplcecd"), "0330");
	lf_mmbfGetUserComboList(ds_init_userlist , sysf_getUserInfo("dutplcecd"),"0330", "", "M");
	
	//addComboInstance("/root/init/userlist", "userid^usernm", "-^전체", "usercombo"); //의사콤보 전체항목 추가
	dsf_addDsItem( ds_init_userlist, "userid", "usernm", "전체", "-", "above");
	
	//model.setValue("/root/main/cond/orddeptcd", "2280000000"); // 응급의학과  	
	ds_init_cond.setColumn(0, "orddeptcd", "2280000000");
	
	//속도개선
	this.setTimer(0, 100);
	//fOrddridList();					
}

function Div00_ipt_pid_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		obj.setFocus();
        obj.updateToDataset();
        
        //inputEnterKey("btn_reqpatnm", "DOMActivate");
        frmf_inputEnterKey("Div00.btn_reqpatnm", "onclick", new ClickEventInfo);
        
		
	}
}

function Div00_btn_req_onclick(obj:Button,  e:ClickEventInfo)
{
	fReqOutPatList();	
}

function Div00_btn_patsrch_onclick(obj:Button,  e:ClickEventInfo)
{
	//modal("SPPMC02500");
	frmf_modal("SPPMC02500", "SPPMC02500", "", "", "", "", "", "", "", "", "", "", "M");
    					
	//var sPid = model.getValue("/root/main/patinfo/patinfolist/pid");
    var sPid  = ds_patinfolist.getColumn(0, "pid");
	
	//var sHngnm = model.getValue("/root/main/patinfo/patinfolist/hngnm");
	var sHngnm  = ds_patinfolist.getColumn(0, "hngnm");

	//model.setValue("/root/main/cond/pid", sPid);
	ds_init_cond.setColumn(0, "pid", sPid);
	
	//model.setValue("/root/main/cond/hngnm", sHngnm);
	ds_init_cond.setColumn(0, "hngnm", sHngnm);
	
	//model.refresh();
}

function Div00_ipt_hngnm_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		obj.setFocus();
        obj.updateToDataset();
        
//      model.setValue("/root/hidden/srchcond", "2");
// 		model.setValue("/root/hidden/hngnm", ipt_hngnm.currentText);
        ds_hidden.setColumn(0, "srchcond", "2");
        ds_hidden.setColumn(0, "hngnm", ipt_hngnm.currentText);
      
	
		//modal("SPPMC02500", "1","150", "150", "SPPMC02500", "/root/hidden", "/root/send");
		var objArg = new Object();
		objArg.arg_ds_send = ds_hidden;
		frmf_modal("SPPMC02500", "SPPMC02500", objArg, "","", "" ,"", "", "", "", "", "", "M");			
						
// 		var pid = model.getValue("/root/main/patinfo/patinfolist/pid");
// 		var hngnm = model.getValue("/root/main/patinfo/patinfolist/hngnm");			
		var pid = ds_patinfolist.getColumn(0,"pid");
		var hngnm = ds_patinfolist.getColumn(0,"hngnm");
		
// 		model.setValue("/root/main/cond/pid", pid);
// 		model.setValue("/root/main/cond/hngnm", hngnm);
		ds_init_cond.setColumn(0, "pid", pid);
		ds_init_cond.setColumn(0, "hngnm", hngnm);
		
// 		model.refresh();
// 		
		
	}
}

function Div00_btn_reqpatnm_onclick(obj:Button,  e:ClickEventInfo)
{
	//fPidTrim("/root/main/cond/pid")
	//var pid = model.getValue("/root/main/cond/pid");
	var pid = utlf_trim(ds_init_cond.getColumn(0,"pid"));
	if(pid == ""){
		return;
	} 
	
	if(lf_reqPatInfo(ds_init_patnm, "pid", "ptbs", pid)==true){
	
		//var hngnm = model.getValue("/root/init/patnm/patnm/hngnm");
		var hngnm = ds_init_patnm.getColumn(0, "hngnm");
		ds_init_cond.setColumn(0, "hngnm", hngnm);
		
// 		model.setValue("/root/main/cond/hngnm", hngnm);
// 		model.refresh();
		
		fReqOutPatList();
	}
	//model.refresh();
}


function Div00_cmb_orddept_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
{
	fOrddridList();
}

function Div00_cmb_orddrid_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
{
	fReqOutPatList();
}

function SMMNE12000_ontimer(obj:Form, e:TimerEventInfo)
{
	if (e.timerid == 0) {
		this.killTimer(0);
		fOrddridList();
	}
}

var lastrow1 = -1;
var lastcol1 = -1;
var bDrop1 = false;

function grd_outpatlist_oncellclick(obj:Grid, e:GridClickEventInfo)
{
	lastrow1 = -1;
	lastcol1 = -1;
}

function grd_outpatlist_oncloseup(obj:Grid, e:GridEditEventInfo)
{
	var dsGridBind = eval(obj.binddataset);
	var preVal = utlf_transNullToEmpty(dsGridBind.getColumn(e.row, e.col));
	var posVal = utlf_transNullToEmpty(e.value);
	
	if( bDrop1 == true && (!utlf_isNull(posVal) || preVal != posVal) ){				
 		obj.showEditor(false);
	}
	
	bDrop1 = false;
	lastrow1 = e.row;
 	lastcol1 = e.col;
}

function grd_outpatlist_onlbuttonup(obj:Grid, e:GridMouseEventInfo)
{
	grdf_setSelectedCell(obj, e);
	
	var dsGridBind = eval(obj.binddataset);
	
	// Combo DropDown Click 처리	
	obj.autoenter = "key";		
	
	if( e.fromreferenceobject.name == "dropbutton" ){
		bDrop1 = true;
	}
	if( e.row > -1 && obj.getCellProperty("body", e.col, "edittype") == "combo" ){		
		// Combo 선택시 활성화 및  combodatacol 변경
		if( grdf_getSelectedCols(obj).length == 0 && grdf_getSelectedRows(obj).length == 0 && obj.getEditText() == undefined ){			
			obj.showEditor(true);
		}else{
			if(!obj.isDropdownCombo() && (lastrow1 != e.row || lastcol1 != e.col)) {
				obj.setCellPos(e.col);
				dsGridBind.rowposition = e.row;				
				obj.showEditor(true);				
				if(bDrop1) {					
					obj.dropdownCombo();
				}
			}
		}
	}else{
		obj.autoenter = "key";
	}
}
]]></Script>
  </Form>
</FDL>