YNU_JEUS/app_home/himed/xpapps/emr/prcpmngtxp/xp/SPMMO16300_진단없는처방진단덤프.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPMMO16300" position="absolute 0 0 1256 805" titletext="진단없는 처방 진단 덤프" oninit="SPMMO16300_oninit" onload="SPMMO16300_onload">
    <Layouts>
      <Layout>
        <Static text="처방기준 진단덤프" position="absolute 0 5 147 27" id="caption18" class="tit_2"/>
        <Button position="absolute 355 3 397 22" id="button37" class="btn2" text="조회" onclick="button37_onclick"/>
        <Button position="absolute 401 3 443 22" id="button2" class="btn5" text="저장" onclick="button2_onclick"/>
        <Shape position="absolute 0 22 602 28" linetype="horizontal" id="line5" class="line_10"/>
        <Grid position="absolute 0 27 602 779" id="datagrid1" binddataset="ds_otpt_otptlist" autoenter="select" cellsizingtype="col" cellclickbound="cell">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="23"/>
                <Column size="38"/>
                <Column size="53"/>
                <Column size="100"/>
                <Column size="62"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="85"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="21"/>
              </Rows>
              <Band id="head">
                <Cell/>
                <Cell col="1"/>
                <Cell col="2" text="INSTCD"/>
                <Cell col="3" text="PID"/>
                <Cell col="4" text="CRETNO"/>
                <Cell col="5" text="ORDDD"/>
                <Cell col="6" text="ORDDEPTCD"/>
                <Cell col="7" text="ORDDRID"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" expr="currow+1"/>
                <Cell col="1" displaytype="checkbox" edittype="checkbox" text="bind:status" expr="expr:status == 'Y' ? 1 : 0"/>
                <Cell col="2" text="bind:instcd"/>
                <Cell col="3" text="bind:pid"/>
                <Cell col="4" text="bind:cretno"/>
                <Cell col="5" text="bind:orddd"/>
                <Cell col="6" text="bind:orddeptcd"/>
                <Cell col="7" text="bind:orddrid"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Calendar position="absolute 132 3 230 22" align="align:center middle;" id="cmb_bfprcpdd" class="input_search" autoselect="true" onchanged="cmb_bfprcpdd_onchanged"/>
        <Button position="absolute 447 3 516 22" id="button1" class="btn7" text="EXCEL" onclick="button1_onclick"/>
        <Edit readonly="true" position="absolute 557 3 600 22" align="align:center middle;" id="output1" style="padding:0 0 0 0;align:center middle;font:Dotum,9,bold;"/>
        <Static text="서버 :" position="absolute 523 3 563 23" id="caption1"/>
        <Calendar position="absolute 249 3 347 22" align="align:center middle;" id="input1" class="input_search" enable="false" autoselect="true"/>
        <Static text="-" position="absolute 238 4 248 24" id="caption2"/>
      </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="cond1" type="STRING" size="256"/>
          <Column id="todd" type="STRING" size="256"/>
          <Column id="mode" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_main" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="instcd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_otpt_otptlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_otpt_otptlist_oncolumnchanged">
        <ColumnInfo>
          <Column id="status" type="STRING" size="256" sumtext="상태"/>
          <Column id="instcd" type="STRING" size="256" sumtext="기관코드"/>
          <Column id="pid" type="STRING" size="256" sumtext="환자id"/>
          <Column id="cretno" type="STRING" size="256" sumtext="cretno"/>
          <Column id="orddd" type="STRING" size="256" sumtext="진료일자"/>
          <Column id="orddeptcd" type="STRING" size="256" sumtext="진료과"/>
          <Column id="orddrid" type="STRING" size="256" sumtext="진료의"/>
          <Column id="actorddd" type="STRING" size="256" sumtext="예약진료일자"/>
          <Column id="actcretno" type="STRING" size="256" sumtext="예약생성번호"/>
        </ColumnInfo>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="cmb_bfprcpdd" propid="value" datasetid="ds_send" columnid="cond1"/>
      <BindItem id="item1" compid="input1" propid="value" datasetid="ds_send" columnid="todd"/>
      <BindItem id="item2" compid="output1" propid="value" datasetid="ds_main" columnid="instcd"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2017-09-07
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2017-09-07      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs";
function SPMMO16300_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SPMMO16300_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(datagrid1);
	
	ds_send.setColumn(0, "cond1",  utlf_getCurrentDate());
	ds_send.setColumn(0, "todd",   utlf_getCurrentDate());				
	ds_main.setColumn(0, "instcd", sysf_getUserInfo("dutplceinstcd"));
}

function cmb_bfprcpdd_onchanged(obj:Calendar, e:ChangeEventInfo)
{
	var oParam = {};
		oParam.id          = "TRMMO00100";
		oParam.service     = "prcpmngtapp.PrcpMngt";
		oParam.method      = "reqGetNoDiagPrcpList";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_otpt_otptlist=otptlist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRMMO00100";

	tranf_submit(oParam);
}

function button37_onclick(obj:Button,  e:ClickEventInfo)
{
	var oParam = {};
		oParam.id          = "TRMMO00100";
		oParam.service     = "prcpmngtapp.PrcpMngt";
		oParam.method      = "reqGetNoDiagPrcpList";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_otpt_otptlist=otptlist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRMMO00100";

	tranf_submit(oParam);
}

function button2_onclick(obj:Button,  e:ClickEventInfo)
{
	var oParam = {};
		oParam.id          = "TXMMO16301";
		oParam.service     = "prcpmngtapp.PrcpMngt";
		oParam.method      = "reqExeSaveDiagDump";
		oParam.inds        = "otptlist=ds_otpt_otptlist";
		oParam.outds       = "";
		oParam.async       = false;
		//oParam.callback    = "cf_TXMMO16301";

	tranf_submit(oParam);

	var oParam = {};
		oParam.id          = "TRMMO00100";
		oParam.service     = "prcpmngtapp.PrcpMngt";
		oParam.method      = "reqGetNoDiagPrcpList";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_otpt_otptlist=otptlist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRMMO00100";

	tranf_submit(oParam);
}

function ds_otpt_otptlist_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
{
	if(e.columnid == "status")
	{
		obj.setColumn(e.row, "status", (e.newvalue == "Y" || e.newvalue == 1) ? "Y" : "N");
	}
}

function button1_onclick(obj:Button,  e:ClickEventInfo)
{
	grdf_exportExcel(datagrid1, ds_send.getColumn(0, "cond1")+"_진단없는처방수진정보", "SheetName", "true", "", "");
}
]]></Script>
  </Form>
</FDL>