YNU_JEUS/app_home/himed/xpapps/ast/hsctxp/xp/SMABO01300_입원예정.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMABO01300" position="absolute 0 0 1201 786" titletext="BMT 입원예정자 조회" oninit="SMABO01300_oninit" onload="SMABO01300_onload">
    <Layouts>
      <Layout>
        <Static id="caption6" text="입원 예정" class="tit_1" position="absolute 0 0 200 23"/>
        <Button id="btn_save" taborder="1" text="출력" class="btn6" position="absolute 0 24 56 46" onclick="btn_save_onclick"/>
        <Static id="caption1" text="입원 예정" class="tit_2" position="absolute 0 94 91 115"/>
        <Shape id="line1" class="line_10" position="absolute 0 110 1194 116" anchor="left top right"/>
        <Div id="grp_sea" taborder="2" class="div_SA" position="absolute 0 47 1194 82" anchor="left top right">
          <Layouts>
            <Layout>
              <Static id="caption2" text="기간(입원예정일) :" class="search_name" position="absolute 15 10 153 27"/>
              <Static id="caption5" text="~" class="search_no_b" position="absolute 258 10 270 27"/>
              <Shape id="line13" linetype="vertical" class="line_4" position="absolute 1104 7 1110 29" anchor="top right"/>
              <Calendar id="input1" taborder="0" autoselect="true" autoskip="true" dateformat="yyyy-MM-dd" class="input_s_essential" position="absolute 154 8 254 27"/>
              <Calendar id="input25" taborder="1" autoselect="true" autoskip="true" dateformat="yyyy-MM-dd" class="input_s_essential" position="absolute 272 8 372 27"/>
              <Static id="caption3" text="Unit :" class="search_name" position="absolute 397 10 457 27"/>
              <Combo id="combo1" taborder="2" innerdataset="@ds_init_cmbinfo_trnptwardcd_A0479" codecolumn="cdid" datacolumn="cdnm" class="combo_search" position="absolute 453 8 553 27"/>
              <Button id="btn_sea" taborder="5" text="조회" class="btn1" position="absolute 1123 7 1179 29" anchor="top right" onclick="grp_sea_btn_sea_onclick"/>
              <Combo id="combo2" taborder="3" innerdataset="@ds_init_cmbinfo_trnptroomcd_A0480" codecolumn="cdid" datacolumn="cdnm" class="combo_search" position="absolute 634 8 734 27"/>
              <Static id="caption4" text="병실 :" class="search_name" position="absolute 575 10 635 27"/>
              <Edit id="ipt_pid" taborder="4" autoselect="true" autoskip="true" class="input_essential" position="absolute 841 8 941 27" onkeyup="grp_sea_ipt_pid_onkeyup"/>
              <Static id="caption16" text="등록번호 :" class="search_name" position="absolute 757 10 843 27"/>
              <Button id="btn_pid" taborder="6" onclick="btn_pid_onclick" position="absolute 924 11 938 24"/>
            </Layout>
          </Layouts>
        </Div>
        <Button id="btn_excsave" taborder="3" text="엑셀저장" class="btn7" position="absolute 1114 91 1194 110" anchor="top right" onclick="btn_excsave_onclick"/>
        <Grid id="grd_inschepsnlist" class="datagrid1" taborder="4" binddataset="ds_main_inschepsnlist_item" useinputpanel="false" cellsizingtype="col" autofittype="col" position="absolute 0 115 1194 779" anchor="all">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="24"/>
                <Column size="85"/>
                <Column size="60"/>
                <Column size="150"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="150"/>
                <Column size="100"/>
                <Column size="80"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="54"/>
              </Rows>
              <Band id="head">
                <Cell/>
                <Cell col="1" text="Unit"/>
                <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" expr="currow+1"/>
                <Cell col="1" edittype="none" text="bind:trnptwardcd" wordwrap="word"/>
                <Cell col="2" edittype="none" text="bind:trnptroomcd"/>
                <Cell col="3" edittype="none" text="bind:deptcd"/>
                <Cell col="4" edittype="none" text="bind:pid"/>
                <Cell col="5" text="bind:hngnm"/>
                <Cell col="6" text="bind:rrgstno"/>
                <Cell col="7" displaytype="combo" edittype="combo" style="align:center middle;" text="bind:sex" combodataset="ds_init_cmbinfo_sex_P0313" combocodecol="cdid" combodatacol="cdnm"/>
                <Cell col="8" text="bind:age"/>
                <Cell col="9" displaytype="date" text="bind:inschedd" calendardisplaynulltype="nulltext"/>
                <Cell col="10" displaytype="date" text="bind:indd" calendardisplaynulltype="nulltext"/>
                <Cell col="11" text="bind:atdoctid"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_send_req" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="inschefromdd" type="STRING" size="256"/>
          <Column id="inschetodd" type="STRING" size="256"/>
          <Column id="trnptwardcd" type="STRING" size="256"/>
          <Column id="trnptroomcd" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="inschefromdd"/>
            <Col id="inschetodd"/>
            <Col id="trnptwardcd"/>
            <Col id="trnptroomcd"/>
            <Col id="pid"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_inschepsnlist_item" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="trnptwardcd" type="STRING" size="256" sumtext="병동명"/>
          <Column id="trnptroomcd" type="STRING" size="256" sumtext="병실코드"/>
          <Column id="deptcd" type="STRING" size="256" sumtext="진료과명"/>
          <Column id="pid" type="STRING" size="256" sumtext="등록번호"/>
          <Column id="hngnm" type="STRING" size="256" sumtext="환자명"/>
          <Column id="rrgstno" type="STRING" size="256" sumtext="주민번호"/>
          <Column id="sex" type="STRING" size="256" sumtext="성별"/>
          <Column id="age" type="STRING" size="256" sumtext="나이"/>
          <Column id="inschedd" type="STRING" size="256" sumtext="입원예정일"/>
          <Column id="indd" type="STRING" size="256" sumtext="원무입원일"/>
          <Column id="atdoctid" type="STRING" size="256" sumtext="주치의"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_cmbinfo_trnptwardcd_A0479" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cdnm" type="STRING" size="256"/>
          <Column id="cdid" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_cmbinfo_trnptroomcd_A0480" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cdnm" type="STRING" size="256"/>
          <Column id="cdid" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_cmbinfo_sex_P0313" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cdnm" type="STRING" size="256"/>
          <Column id="cdid" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_temp_paminfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_main_hsctinfo_patinfolist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_temp_bmtpatientinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_main" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="grp_sea.input1" propid="value" datasetid="ds_send_req" columnid="inschefromdd"/>
      <BindItem id="item1" compid="grp_sea.input25" propid="value" datasetid="ds_send_req" columnid="inschetodd"/>
      <BindItem id="item2" compid="grp_sea.combo1" propid="value" datasetid="ds_send_req" columnid="trnptwardcd"/>
      <BindItem id="item3" compid="grp_sea.combo2" propid="value" datasetid="ds_send_req" columnid="trnptroomcd"/>
      <BindItem id="item4" compid="grp_sea.ipt_pid" propid="value" datasetid="ds_send_req" columnid="pid"/>
    </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 "ast_hsctxp::bmtcommon.xjs";
function SMABO01300_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SMABO01300_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(grd_inschepsnlist);
	
	var arrParam = [{dsNm: "ds_init_cmbinfo_sex_P0313", cdGrpId: "P0313"}]
	appf_getCodeList(arrParam);
	
	ds_send_req.setColumn(0, "inschefromdd", utlf_getCurrentDate().toDate().getAddDate(-0,"M").getDateFormat("YYYYMMDD"));
	ds_send_req.setColumn(0, "inschetodd", utlf_getCurrentDate());
	
	if ( frmf_checkOpener()) 
	{
		var param = opener.frmf_getParameter("opener_parameter_id");
		
		if(!utlf_isNull(param))
		{
			condarray = param.split("▦");
			
			ds_send_req.setColumn(0, "pid", condarray[0]);
			return;
		}
	}
	
	var paminfo = sysf_getGlobalVariable("paminfo");
	
	if (!utlf_isNull(paminfo))
	{
		ds_temp_paminfo.clearData();
		dsf_setCSVToDs("ds_temp_paminfo", paminfo);

		var pid = ds_temp_paminfo.getColumn(0, "pid");
		
		ds_send_req.setColumn(0, "pid", pid);
	}
	else 
	{
		var gv_pid = sysf_getGlobalVariable("gv_pid", "A");
		if(!utlf_isNull(gv_pid))
		{
			ds_send_req.setColumn(0, "pid", gv_pid);

		}
	}
}

function grp_sea_btn_sea_onclick(obj:Button,  e:ClickEventInfo)
{
	var oParam = {};
		oParam.id          = "TRABO01301";
		oParam.service     = "hsctcoordinatorapp.HsctSchedule";
		oParam.method      = "reqGetBmtInScheList";
		oParam.inds        = "req=ds_send_req";
		oParam.outds       = "ds_main_inschepsnlist_item=item";
		oParam.async       = false;
		//oParam.callback    = "cf_TRABO01301";

	tranf_submit(oParam);
}

function grp_sea_ipt_pid_onkeyup(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		obj.updateToDataset();
		grp_sea_btn_sea_onclick();
	}
}

function btn_pid_onclick(obj:Button,  e:ClickEventInfo)
{
	abofGetBmtPatientSearch("ds_main_hsctinfo_patinfolist", "ds_temp_bmtpatientinfo") 
	ds_send_req.setColumn(0, "pid", ds_main_hsctinfo_patinfolist.getColumn(0, "pid"));
}

function btn_excsave_onclick(obj:Button,  e:ClickEventInfo)
{
	if(ds_main_inschepsnlist_item.rowcount > 0)
	{
		grdf_exportExcel(grd_inschepsnlist, "입원예정", "Sheet");
	}	
}

function btn_save_onclick(obj:Button,  e:ClickEventInfo)
{
	var objDOM = rptf_createDOM(); 
		rptf_setNodeListToDOM(objDOM, "/root/main/inschepsnlist/item", ds_main_inschepsnlist_item); 
		rptf_setNodeListToDOM(objDOM, "/root/send/req", ds_send_req);
		
	var objParam = new Object();
		objParam.xml_data_XML1 = objDOM.documentElement.source;          // 최상의노드 XML 스트링 추출
	var option = "";
		rptf_exeReportPreview30(["RPABO01301"],[objParam], option);
}
]]></Script>
  </Form>
</FDL>