YNU_JEUS/app_home/himed/xpapps/ast/healexamxp/xp/SPAHA03000_건진컨설트관리.xfdl

<?xml version="1.0" encoding="utf-8" standalone="no"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPAHA03000" position="absolute 0 0 799 364" titletext="건진컨설트관리" oninit="SPAHA03000_oninit" onload="SPAHA03000_onload">
    <Layouts>
      <Layout>
        <Static id="caption22" text="건진컨설트관리" class="tit_1" position="absolute 0 0 189 25"/>
        <Div id="grp_sea" taborder="1" position="absolute 0 25 795 65" class="div_SA">
          <Layouts>
            <Layout>
              <Static id="caption49" text="환자번호 :" class="search_name" position="absolute 8 13 97 30"/>
              <Edit id="ipt_srchpid" taborder="1" class="input_search" position="absolute 90 12 151 31" autoselect="true" autoskip="true" onkeyup="grp_sea_ipt_srchpid_onkeyup"/>
              <Edit id="opt_srchpnm" taborder="2" readonly="true" class="output" position="absolute 175 12 236 31"/>
              <Button id="btn_srchpat" taborder="3" class="icon_search" position="absolute 155 13 171 29" onclick="grp_sea_btn_srchpat_onclick"/>
              <Static id="caption47" text="진료일자 :" class="search_name" position="absolute 248 13 330 29"/>
              <Calendar id="ipt_fromdd" taborder="4" class="input_s_essential" position="absolute 325 11 428 30" autoselect="true" autoskip="true" onkeyup="grp_sea_ipt_fromdd_onkeyup"/>
              <Static id="caption19" text="~" class="search_n_b" position="absolute 428 12 440 29" style="font:,,bolder;"/>
              <Calendar id="ipt_todd" taborder="5" class="input_s_essential" position="absolute 439 11 542 30" autoselect="true" autoskip="true" onkeyup="grp_sea_ipt_todd_onkeyup"/>
              <Static id="caption1" text="진료과:" class="search_name" position="absolute 553 13 607 30"/>
              <Combo id="cmb_orddeptcd" taborder="6" innerdataset="@ds_init_orddept" codecolumn="deptcd" datacolumn="depthngnm" class="combo_default" position="absolute 613 11 723 30" columncount="-1" rowcount="-1" autoselect="true" autoskip="true"/>
              <Button id="btn_search" taborder="7" text="조회" class="btn1" position="absolute 730 10 786 32" onclick="grp_sea_btn_search_onclick"/>
            </Layout>
          </Layouts>
        </Div>
        <Shape id="line18" class="line_10" position="absolute 0 89 795 100" anchor="left top right"/>
        <Grid id="grd_cnst" taborder="2" binddataset="ds_main_item" useinputpanel="false" position="absolute 0 96 795 356" style="align:center ;" onaftersort="group2_grd_cnst_onaftersort" autoenter="select" autofittype="col" cellsizingtype="col" anchor="all">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="24"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="152"/>
                <Column size="100"/>
                <Column size="100"/>
              </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="진료여부"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" expr="currow+1"/>
                <Cell col="1" text="bind:pid"/>
                <Cell col="2" text="bind:hngnm"/>
                <Cell col="3" text="bind:orddd"/>
                <Cell col="4" text="bind:ordtm"/>
                <Cell col="5" text="bind:depthngnm"/>
                <Cell col="6" text="bind:orddrnm"/>
                <Cell col="7" text="bind:dracptyn"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Button id="btn_excsave" taborder="3" text="엑셀" class="btn7" position="absolute 736 72 794 91" onclick="btn_excsave_onclick"/>
      </Layout>
    </Layouts>
    <Objects>
      <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="pid" type="STRING" size="256"/>
          <Column id="hngnm" type="STRING" size="256"/>
          <Column id="orddeptcd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="fromdd"/>
            <Col id="todd"/>
            <Col id="pid"/>
            <Col id="hngnm"/>
            <Col id="orddeptcd"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_item" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="pid" type="STRING" size="256" sumtext=""/>
          <Column id="hngnm" type="STRING" size="256" sumtext=""/>
          <Column id="orddd" type="STRING" size="256" sumtext=""/>
          <Column id="ordtm" type="STRING" size="256" sumtext=""/>
          <Column id="depthngnm" type="STRING" size="256" sumtext=""/>
          <Column id="orddrnm" type="STRING" size="256" sumtext=""/>
          <Column id="dracptyn" type="STRING" size="256" sumtext=""/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_orddept" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Bind>
      <BindItem id="item2" compid="grp_sea.ipt_srchpid" propid="value" datasetid="ds_send" columnid="pid"/>
      <BindItem id="item3" compid="grp_sea.opt_srchpnm" propid="value" datasetid="ds_send" columnid="hngnm"/>
      <BindItem id="item1" compid="grp_sea.ipt_fromdd" propid="value" datasetid="ds_send" columnid="fromdd"/>
      <BindItem id="item0" compid="grp_sea.ipt_todd" propid="value" datasetid="ds_send" columnid="todd"/>
      <BindItem id="item4" compid="grp_sea.cmb_orddeptcd" propid="value" datasetid="ds_send" columnid="orddeptcd"/>
    </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 "emr_prcpmngtxp::MMO001.xjs";
include "emr_prcpmngtxp::MMOCommon.xjs";
include "ast_healexamxp::AHA001.xjs";

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

function SPAHA03000_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(grd_cnst);
	
	grp_sea.ipt_fromdd.value = utlf_getCurrentDate();
	grp_sea.ipt_todd.value = utlf_getCurrentDate();

	lf_mmbfGetDeptCodeComboList(ds_init_orddept, "O");
	frmf_addComboItem("grp_sea.cmb_orddeptcd", "----전체----", "", "above");
}

function grp_sea_ipt_srchpid_onkeyup(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		obj.updateToDataset();
		grp_sea.btn_search.click();
	}
}

function grp_sea_btn_srchpat_onclick(obj:Button,  e:ClickEventInfo)
{
	fSearchPatInfo("SMAHA00100",   "pid", grp_sea.ipt_srchpid.value, "N", "ds_send" ,grp_sea.ipt_srchpid.value, grp_sea.opt_srchpnm.value);  
}

function grp_sea_ipt_fromdd_onkeyup(obj:Calendar, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		grp_sea.ipt_todd.setFocus();
	}
}

function grp_sea_ipt_todd_onkeyup(obj:Calendar, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		grp_sea.ipt_todd.setFocus();
	}
}

function grp_sea_btn_search_onclick(obj:Button,  e:ClickEventInfo)
{
	var oParam = {};
		oParam.id          = "TRAHA00198";
		oParam.service     = "healexamrsrvacptapp.RsrvAcpt";
		oParam.method      = "reqGetCnstList";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_main_item=item";
		oParam.async       = false;
		//oParam.callback    = "cf_TRAHA00198";

	tranf_submit(oParam);
}

function btn_excsave_onclick(obj:Button,  e:ClickEventInfo)
{
	grdf_exportExcel(grd_cnst, "excel", "Sheet1", "true", "", "");
}
]]></Script>
  </Form>
</FDL>