YNU_JEUS/app_home/himed/xpapps/pam/bfjudgxp/xp/SPPIJ04200_MOU예상금액조회.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPPIJ04200" position="absolute 0 0 1205 732" titletext="MOU 예상금액 조회" oninit="SPPIJ04200_oninit" onload="SPPIJ04200_onload">
    <Layouts>
      <Layout>
        <Static id="caption6" text="MOU 예상금액 조회" class="tit_1" position="absolute 2 1 218 24"/>
        <Div id="group2" taborder="1" class="div_SA" position="absolute 2 25 1196 67">
          <Layouts>
            <Layout>
              <Static id="caption10" text="환자번호 :" class="search_name" position="absolute 10 12 96 29" anchor="default"/>
              <Edit id="input4" taborder="7" class="input_s_essential" enable="false" position="absolute 100 11 220 30" anchor="default"/>
              <Static id="caption4" text="입원일자 :" class="search_name" position="absolute 235 12 321 29" anchor="default"/>
              <Edit id="input1" taborder="8" class="input_s_essential" enable="false" position="absolute 325 11 445 30" anchor="default"/>
            </Layout>
          </Layouts>
        </Div>
        <Shape id="line1" class="line_10" position="absolute 3 93 1195 102" style="strokepen:3 solid #33bbbbff;"/>
        <Static id="caption2" text="진료 내역" class="tit_2" position="absolute 5 77 305 99"/>
        <Grid id="datagrid1" taborder="2" binddataset="ds_datagrid1" useinputpanel="false" autofittype="col" position="absolute 3 99 1195 721" cellsizingtype="col">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="25"/>
                <Column size="25"/>
                <Column size="80"/>
                <Column size="80"/>
                <Column size="200"/>
                <Column size="45"/>
                <Column size="30"/>
                <Column size="70"/>
                <Column size="70"/>
                <Column size="0"/>
                <Column size="70"/>
                <Column size="80"/>
                <Column size="70"/>
                <Column size="70"/>
                <Column size="0"/>
                <Column size="70"/>
                <Column size="80"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24" band="head"/>
                <Row size="24"/>
                <Row size="24" band="summ"/>
              </Rows>
              <Band id="head">
                <Cell rowspan="2" text="항" taborder="undefined" suppress="1"/>
                <Cell col="1" rowspan="2" text="목" taborder="undefined"/>
                <Cell col="2" rowspan="2" text="그룹수가" taborder="undefined"/>
                <Cell col="3" rowspan="2" text="수가코드" taborder="undefined"/>
                <Cell col="4" rowspan="2" text="수가명" taborder="undefined"/>
                <Cell col="5" rowspan="2" text="1일량" taborder="undefined"/>
                <Cell col="6" rowspan="2" text="일수" taborder="undefined"/>
                <Cell col="7" colspan="5" text="MOU 예상가" taborder="undefined"/>
                <Cell col="12" colspan="5" text="원 발생금액" taborder="undefined"/>
                <Cell row="1" col="7" text="단가"/>
                <Cell row="1" col="8" text="금액"/>
                <Cell row="1" col="9" text="종별가산"/>
                <Cell row="1" col="10" text="선택진료"/>
                <Cell row="1" col="11" text="계"/>
                <Cell row="1" col="12" text="단가"/>
                <Cell row="1" col="13" text="금액"/>
                <Cell row="1" col="14" text="종별가산"/>
                <Cell row="1" col="15" text="선택진료"/>
                <Cell row="1" col="16" text="계"/>
              </Band>
              <Band id="body">
                <Cell text="bind:moulrg"/>
                <Cell col="1" text="bind:moumdl"/>
                <Cell col="2" style="align:left middle;" text="bind:grupcalcscorcd"/>
                <Cell col="3" style="align:left middle;" text="bind:snglcalcscorcd"/>
                <Cell col="4" style="align:left middle;" text="bind:calcnm"/>
                <Cell col="5" displaytype="number" style="align:right middle;" text="bind:calcqty"/>
                <Cell col="6" displaytype="number" style="align:right middle;" text="bind:calcdays"/>
                <Cell col="7" displaytype="number" style="align:right middle;" text="bind:moucost"/>
                <Cell col="8" displaytype="number" style="align:right middle;" text="bind:mouamt"/>
                <Cell col="9" displaytype="number" style="align:right middle;" text="bind:mouhospaddamt"/>
                <Cell col="10" displaytype="number" style="align:right middle;" text="bind:mouspecamt"/>
                <Cell col="11" displaytype="number" style="align:right middle;" text="bind:moutotamt"/>
                <Cell col="12" displaytype="number" style="align:right middle;" text="bind:appunitcost"/>
                <Cell col="13" displaytype="number" style="align:right middle;" text="bind:calcamt"/>
                <Cell col="14" displaytype="number" style="align:right middle;" text="bind:hospaddamt"/>
                <Cell col="15" displaytype="number" style="align:right middle;" text="bind:specamt"/>
                <Cell col="16" displaytype="number" style="align:right middle;" text="bind:totamt"/>
              </Band>
              <Band id="summary">
                <Cell/>
                <Cell col="1"/>
                <Cell col="2"/>
                <Cell col="3"/>
                <Cell col="4" style="align:left middle;" text="합계"/>
                <Cell col="5"/>
                <Cell col="6"/>
                <Cell col="7"/>
                <Cell col="8" displaytype="number" expr="expr:getSum('mouamt')" mask="#,###"/>
                <Cell col="9" displaytype="number" expr="expr:getSum('mouhospaddamt')"/>
                <Cell col="10" displaytype="number" expr="expr:getSum('mouspecamt')"/>
                <Cell col="11" displaytype="number" expr="expr:getSum('moutotamt')"/>
                <Cell col="12"/>
                <Cell col="13" displaytype="number" expr="expr:getSum('calcamt')"/>
                <Cell col="14" displaytype="number" expr="expr:getSum('hospaddamt')"/>
                <Cell col="15" displaytype="number" expr="expr:getSum('specamt')"/>
                <Cell col="16" displaytype="number" expr="expr:getSum('totamt')"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Button id="button1" taborder="3" text="엑셀저장" class="btn7" position="absolute 1115 75 1195 94" onclick="button1_onclick"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_datagrid1" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="moulrg" type="STRING"/>
          <Column id="moumdl" type="STRING"/>
          <Column id="grupcalcscorcd" type="STRING"/>
          <Column id="snglcalcscorcd" type="STRING"/>
          <Column id="calcnm" type="STRING"/>
          <Column id="calcqty" type="STRING"/>
          <Column id="calcdays" type="STRING"/>
          <Column id="moucost" type="STRING"/>
          <Column id="mouamt" type="STRING"/>
          <Column id="mouhospaddamt" type="STRING"/>
          <Column id="mouspecamt" type="STRING"/>
          <Column id="moutotamt" type="STRING"/>
          <Column id="appunitcost" type="STRING"/>
          <Column id="calcamt" type="STRING"/>
          <Column id="hospaddamt" type="STRING"/>
          <Column id="specamt" type="STRING"/>
          <Column id="totamt" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_chklist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="dschyn" type="STRING" size="256"/>
          <Column id="indayyn" type="STRING" size="256"/>
          <Column id="drgyn" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_send" 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="indd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="group2.input4" propid="value" datasetid="ds_send" columnid="pid"/>
      <BindItem id="item1" compid="group2.input1" propid="value" datasetid="ds_send" columnid="indd"/>
    </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";
include "emr_prcpmngtxp::MMOCommon.xjs"

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

function SPPIJ04200_onload(obj:Form, e:LoadEventInfo)
{
	ds_send.copyData(args_ds_send)

	var oParam = {};
		oParam.id          = "TRPIJ04201";
		oParam.service     = "bfjudgapp.InHospJudgDetl";
		oParam.method      = "reqGetMouCalcChk";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_chklist=chklist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRPIJ04201";

	tranf_submit(oParam);
	
	var dschyn = ds_chklist.getColumn(0, "dschyn");
	var indayyn = ds_chklist.getColumn(0, "indayyn");
	var drgyn =  ds_chklist.getColumn(0, "drgyn");
	
	if (dschyn == "N") {
		sysf_messageBox("퇴원환자만 조회 가능합니다!", "E999");
		return;
	}					
	if (indayyn == "N") {
		sysf_messageBox("재원일수 30일 초과 대상은 조회 불가능합니다!", "E999");
		return;
	}					
	if (drgyn == "N") {
		sysf_messageBox("DRG 대상은 조회 불가능합니다!", "E999");
		return;
	}		
	
	var oParam = {};
		oParam.id          = "TRPIJ04200";
		oParam.service     = "bfjudgapp.InHospJudgDetl";
		oParam.method      = "reqGetMouCalcList";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_datagrid1=grdlist1";
		oParam.async       = false;
		//oParam.callback    = "cf_TRPIJ04200";

	tranf_submit(oParam);	
}

function button1_onclick(obj:Button,  e:ClickEventInfo)
{
	var pid = ds_send.getColumn(0, "pid");
	var indd = ds_send.getColumn(0, "indd");
		
	if (ds_datagrid1.rowcount > 0) 
	{
		grdf_exportExcel(datagrid1, "MOU예상금액_"+pid+"_"+indd, "see");
	} 
	else 
	{
		sysf_messageBox("엑셀저장할 내역이", "I004");		///엑셀저장할 내역이 없습니다.
	}
}
]]></Script>
  </Form>
</FDL>