YNU_JEUS/app_home/himed/xpapps/pam/aftjudgxp/xp/SMPID37100_접촉환자조회.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMPPI01100" position="absolute 0 0 1156 764" titletext="접촉 환자 조회" oninit="SMPPI01100_oninit" onload="SMPPI01100_onload">
    <Layouts>
      <Layout>
        <Div position="absolute 0 26 1139 732" id="grp_biz" scrollbars="autoboth" anchor="all">
          <Layouts>
            <Layout>
              <Div position="absolute 0 0 1133 41" align="align:center top;" id="group1" class="div_SA" anchor="left top right">
                <Layouts>
                  <Layout width="1160" height="40">
                    <Button position="absolute 1063 10 1119 32" id="btn_select" class="btn1" taborder="5" text="조회" anchor="top right" onclick="grp_biz_group1_btn_select_onclick"/>
                    <Shape position="absolute 1045 5 1051 38" linetype="vertical" id="line3" class="line_4" anchor="top right"/>
                    <Static text="조회기간 :" position="absolute 15 13 100 30" id="caption2" class="search_name" anchor="left top"/>
                    <Calendar position="absolute 101 13 216 32" id="ipt_fromdd" enable="true" mask="yyyy-mm-dd" anchor="left top" onkeydown="grp_biz_group1_input2_onkeydown" oneditclick="grp_biz_group1_ipt_fromdd_oneditclick" onkeyup="grp_biz_group1_ipt_fromdd_onkeyup" onchanged="grp_biz_group1_ipt_fromdd_onchanged" autoselect="true" taborder="2"/>
                    <Calendar id="ipt_todd" taborder="3" onkeydown="grp_biz_group1_input2_onkeydown" position="absolute 241 13 356 32" mask="yyyy-mm-dd" onkeyup="grp_biz_group1_ipt_todd_onkeyup" autoselect="true" anchor="left top"/>
                    <Static id="Static00" text="~" position="absolute 220 13 238 33" style="align:center middle;" anchor="left top"/>
                    <Static id="caption05" text="병동 :" class="search_name" position="absolute 383 15 456 32" anchor="left top"/>
                    <Combo id="cmb_wardcd" taborder="6" position="absolute 434 12 592 32" index="-1" innerdataset="@ds_init_wardcd" codecolumn="cd" datacolumn="nm" anchor="left top" onitemchanged="grp_biz_group1_cmb_wardcd_onitemchanged"/>
                    <Static id="caption00" text="병실 :" class="search_name" position="absolute 599 15 647 32" anchor="left top"/>
                    <Combo id="cmb_roomcd" taborder="7" position="absolute 650 12 728 32" innerdataset="@ds_cmb_roomcd" codecolumn="cd" datacolumn="nm" anchor="left top"/>
                  </Layout>
                </Layouts>
              </Div>
              <Button id="btn_excelsave" taborder="4" text="엑셀저장" onclick="grp_biz_btn_excelsave_onclick" class="btn7" position="absolute 1053 49 1133 68" anchor="top right"/>
              <Grid id="grd_dpcdlist" class="datagrid3" taborder="5" binddataset="ds_grd_dpcdlist" autoenter="select" useinputpanel="false" cellsizingtype="both" cellclickbound="control" position="absolute 0 70 1133 705" anchor="all" extendsizetype="row" cellmovingtype="none">
                <Formats>
                  <Format id="default">
                    <Columns>
                      <Column size="54"/>
                      <Column size="64"/>
                      <Column size="80"/>
                      <Column size="35"/>
                      <Column size="35"/>
                      <Column size="80"/>
                      <Column size="80"/>
                      <Column size="63"/>
                      <Column size="80"/>
                      <Column size="59"/>
                      <Column size="100"/>
                      <Column size="63"/>
                      <Column size="43"/>
                      <Column size="65"/>
                      <Column size="52"/>
                      <Column size="84"/>
                      <Column size="68"/>
                    </Columns>
                    <Rows>
                      <Row size="24" band="head"/>
                      <Row size="24"/>
                    </Rows>
                    <Band id="head">
                      <Cell displaytype="normal" text="병실"/>
                      <Cell col="1" displaytype="normal" text="환자번호"/>
                      <Cell col="2" displaytype="normal" text="환자명"/>
                      <Cell col="3" displaytype="normal" text="나이"/>
                      <Cell col="4" displaytype="normal" text="성별"/>
                      <Cell col="5" displaytype="normal" text="입원일자"/>
                      <Cell col="6" displaytype="normal" text="입실일"/>
                      <Cell col="7" text="입실시간"/>
                      <Cell col="8" displaytype="normal" text="퇴실일"/>
                      <Cell col="9" text="퇴실시간"/>
                      <Cell col="10" displaytype="normal" text="진료과"/>
                      <Cell col="11" displaytype="normal" text="담당의"/>
                      <Cell col="12" displaytype="normal" text="상태"/>
                      <Cell col="13" displaytype="normal" text="전실병실"/>
                      <Cell col="14" displaytype="normal" text="비고"/>
                      <Cell col="15" text="퇴원일자"/>
                      <Cell col="16" displaytype="normal" text="현재병실"/>
                    </Band>
                    <Band id="body">
                      <Cell displaytype="text" style="align:left middle;padding:0 0 0 5;" text="bind:roomcd" combodataset="ds_init_roomcd" combocodecol="cd" combodatacol="nm"/>
                      <Cell col="1" displaytype="text" style="align:left middle;" text="bind:pid"/>
                      <Cell col="2" displaytype="text" style="align:left middle;" text="bind:hngnm"/>
                      <Cell col="3" displaytype="number" style="padding:0 5 0 0;" text="bind:page"/>
                      <Cell col="4" displaytype="text" style="align:center middle;" text="bind:sex"/>
                      <Cell col="5" displaytype="date" text="bind:indd"/>
                      <Cell col="6" displaytype="date" text="bind:fromdd"/>
                      <Cell col="7" displaytype="expr:utlf_isNull(getColumn(currow, self.text.replace('bind:','') )) == true || getColumn(currow, self.text.replace('bind:','')) == '-' ? 'nomal' : 'date'" text="bind:fromtm" mask="expr:utlf_isNull(getColumn(currow, self.text.replace('bind:','') )) == true || getColumn(currow, self.text.replace('bind:','')) == '-' ? '' : 'HH:mm'"/>
                      <Cell col="8" displaytype="expr:expr:utlf_isNull(getColumn(currow, self.text.replace(&quot;bind:&quot;,&quot;&quot;) )) == true ? &quot;normal&quot; : &quot;date&quot;" text="bind:todd"/>
                      <Cell col="9" displaytype="expr:utlf_isNull(getColumn(currow, self.text.replace('bind:','') )) == true || getColumn(currow, self.text.replace('bind:','')) == '-' ? 'nomal' : 'date'" text="bind:totm" mask="expr:utlf_isNull(getColumn(currow, self.text.replace('bind:','') )) == true || getColumn(currow, self.text.replace('bind:','')) == '-' ? '' : 'HH:mm'"/>
                      <Cell col="10" displaytype="combo" style="padding:0 0 0 5;" text="bind:orddeptcd" combodataset="ds_init_cmb_orddeptcd" combocodecol="cd" combodatacol="nm"/>
                      <Cell col="11" displaytype="combo" style="padding:0 0 0 5;" text="bind:medispclid" combodataset="ds_init_orddrid" combocodecol="cd" combodatacol="nm"/>
                      <Cell col="12" displaytype="normal" text="bind:histstat"/>
                      <Cell col="13" displaytype="normal" style="padding:0 0 0 5;" text="bind:to_roomcd" combodataset="ds_init_roomcd" combocodecol="cd" combodatacol="nm"/>
                      <Cell col="14" displaytype="normal" text="bind:bigo"/>
                      <Cell col="15" displaytype="expr:expr:expr:utlf_isNull(getColumn(currow, self.text.replace(&quot;bind:&quot;,&quot;&quot;) )) == true ? &quot;normal&quot; : &quot;date&quot;" text="bind:dschdd"/>
                      <Cell col="16" displaytype="normal" text="bind:trandd"/>
                    </Band>
                  </Format>
                </Formats>
              </Grid>
              <Static id="cap_judgtrgtman" text="접촉 환자 대상자" onclick="cap_diag_onclick" class="tit_2" position="absolute 0 52 192 72" anchor="left top"/>
            </Layout>
          </Layouts>
        </Div>
        <Static id="cap_title" text="접촉 환자 조회" class="tit_1" position="absolute 0 0 272 26"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_grd_dpcdlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false" oncolumnchanged="ds_grd_dpcdlist_oncolumnchanged">
        <ColumnInfo>
          <Column id="roomcd" type="STRING" size="255"/>
          <Column id="pid" type="STRING" size="255"/>
          <Column id="hngnm" type="STRING" size="255"/>
          <Column id="page" type="STRING" size="255"/>
          <Column id="sex" type="STRING" size="255"/>
          <Column id="indd" type="STRING" size="255"/>
          <Column id="fromdd" type="STRING" size="255"/>
          <Column id="todd" type="STRING" size="255"/>
          <Column id="orddeptcd" type="STRING" size="255"/>
          <Column id="medispclid" type="STRING" size="255"/>
          <Column id="histstat" type="STRING" size="255"/>
          <Column id="to_roomcd" type="STRING" size="255"/>
          <Column id="bigo" type="STRING" size="255"/>
          <Column id="trandd" type="STRING" size="255"/>
          <Column id="dschdd" type="STRING" size="256"/>
          <Column id="fromtm" type="STRING" size="256"/>
          <Column id="totm" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="fromdd" type="STRING" size="256"/>
          <Column id="todd" type="STRING" size="256"/>
          <Column id="wardcd" type="STRING" size="256"/>
          <Column id="roomcd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_init_cmb_orddeptcd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_wardcd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_roomcd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_orddrid" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <FilteredDataset id="ds_cmb_roomcd" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" binddataset="@ds_init_roomcd"/>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="grp_biz.group1.ipt_fromdd" propid="value" datasetid="ds_send" columnid="fromdd"/>
      <BindItem id="item1" compid="grp_biz.group1.ipt_todd" propid="value" datasetid="ds_send" columnid="todd"/>
      <BindItem id="item2" compid="grp_biz.group1.cmb_wardcd" propid="value" datasetid="ds_send" columnid="wardcd"/>
      <BindItem id="item3" compid="grp_biz.group1.cmb_roomcd" propid="value" datasetid="ds_send" columnid="roomcd"/>
    </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";

var lgv_hscroll_pos = 0; 
var lgv_vscroll_pos = 0; 

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

function SMPPI01100_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(grp_biz.grd_dpcdlist);
//	grdf_setRowTypeIcon(grp_biz.grd_dpcdlist, 0);
	grdf_setToolTipBind(grp_biz.grd_dpcdlist);	
	
	dsf_createDsRow("ds_search", {col: "sess_posinstcd", val: sysf_getUserInfo("dutplceinstcd")});
		
	var oParam = {};
    oParam.id          = "TRPAI01803";
    oParam.service     = "pamcomnapp.PamComn";
    oParam.method      = "reqGetComCD";
    oParam.inds        = "req=ds_search";
    oParam.outds       = "ds_init_cmb_orddeptcd=orddeptcd ds_init_orddrid=orddrid ds_init_wardcd=wardcd ds_init_roomcd=roomcd";
    oParam.async       = false;
    //oParam.callback    = "cf_TRPAI01803";
	tranf_submit(oParam);

	fInitialize();
}

function fInitialize(){
	var mm = utlf_getCurrentDate().toDate().getAddDate(-1,"M").getDateFormat("YYYYMMDD");		
	var lastdate = utlf_lastDateNum(mm)			

	ds_send.setColumn(0,"fromdd", mm.substr(0,6) + '01');
	ds_send.setColumn(0,"todd", mm.substr(0,6) + lastdate);
	//fGetDocuList();
}

function cf_TRPPI01001(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) return;
}

function fGetDocuList(){

	lgv_hscroll_pos = grp_biz.grd_dpcdlist.hscrollbar.pos;
	lgv_vscroll_pos = grp_biz.grd_dpcdlist.vscrollbar.pos;
	
	var oParam = {};
		oParam.id          = "TRPPI01300";
		oParam.service     = "aftjudgapp.InAftJudgTrgtMan";
		oParam.method      = "reqGetCnctPatList";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_grd_dpcdlist=rsltlist";
		oParam.async       = false;
		oParam.callback    = "cf_TRPPI01300";

	tranf_submit(oParam);
}

function cf_TRPPI01300(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) {return};
    
    grp_biz.grd_dpcdlist.hscrollbar.pos = lgv_hscroll_pos;
	grp_biz.grd_dpcdlist.vscrollbar.pos = lgv_vscroll_pos;
}


function grp_biz_btn_excelsave_onclick(obj:Button,  e:ClickEventInfo)
{
	//grdf_exportExcel(switch1.case1.grd_bfprcplist_excel, "환자진료정보처방이력", "SheetName", false, null, "open", true);

	if (ds_grd_dpcdlist.rowcount > 0) {
		grdf_exportExcel(grp_biz.grd_dpcdlist, grp_biz.cap_judgtrgtman.text , "see", false, null, "open", true);
	}else{
		sysf_messageBox("엑셀저장할 내역이", "I004");	
	}	
}

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

function grp_biz_group1_ipt_fromdd_onkeyup(obj:Calendar, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		obj.updateToDataset();
		grp_biz.group1.ipt_todd.setFocus();
		//grp_biz_group1_btn_select_onclick();
	}
}

function grp_biz_group1_ipt_todd_onkeyup(obj:Calendar, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		obj.updateToDataset();
		grp_biz_group1_btn_select_onclick();
	}
}

function grp_biz_group1_ipt_fromdd_onchanged(obj:Calendar, e:ChangeEventInfo)
{
	grp_biz.group1.ipt_todd.value = e.postvalue;
}

function grp_biz_group1_cmb_wardcd_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
{
	ds_cmb_roomcd.filter("wd=='"+e.postvalue+"'");
}
]]></Script>
  </Form>
</FDL>