YNU_JEUS/app_home/himed/xpapps/pam/bfjudgxp/xp/SPPIJ02601_수기료계산.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPPIJ02601" position="absolute 0 0 1201 776" titletext="수가계산" oninit="SPPIJ02601_oninit" onload="SPPIJ02601_onload">
    <Layouts>
      <Layout>
        <Static id="caption6" text="수기료계산" class="tit_1" position="absolute 1 0 217 23"/>
        <Div id="group2" taborder="1" class="div_SA" position="absolute 1 24 1195 66" anchor="left top right">
          <Layouts>
            <Layout>
              <Static id="caption10" text="환자번호 :" class="search_name" position="absolute 10 12 96 29" anchor="default"/>
              <Edit id="input4" taborder="1" class="input_s_essential" enable="false" position="absolute 100 10 220 29" anchor="default" onkeydown="group2_input4_onkeydown"/>
            </Layout>
          </Layouts>
        </Div>
        <Static id="caption2" text="일당수기료 내역" class="tit_2" position="absolute 2 72 126 94"/>
        <Shape id="line1" class="line_1" position="absolute 1 87 848 98" style="strokepen:3 solid #33bbbbff;"/>
        <Grid id="datagrid1" taborder="2" binddataset="ds_grd_grdlist1" useinputpanel="false" position="absolute 1 94 847 729" cellsizingtype="col">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="28"/>
                <Column size="100"/>
                <Column size="224"/>
                <Column size="70"/>
                <Column size="30"/>
                <Column size="80"/>
                <Column size="80"/>
                <Column size="80"/>
                <Column size="80"/>
                <Column size="30"/>
                <Column size="80"/>
                <Column size="80"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell text="±" treelevel="bind:rn"/>
                <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="비급여"/>
                <Cell col="8" text="선택진료"/>
                <Cell col="9" text="요율"/>
                <Cell col="10" text="급여청구"/>
                <Cell col="11" text="급여본인부담"/>
              </Band>
              <Band id="body">
                <Cell displaytype="tree" edittype="tree" text="bind:rn" treestartlevel="1" treelevel="bind:rn"/>
                <Cell col="1" displaytype="normal" style="align:left middle;" text="bind:snglcalcscorcd"/>
                <Cell col="2" style="align:left middle;" text="bind:hngnm"/>
                <Cell col="3" displaytype="date" text="bind:execdd" mask="yyyy-MM-dd"/>
                <Cell col="4" style="align:right middle;" text="bind:calcdays"/>
                <Cell col="5" displaytype="number" style="align:right middle;" text="bind:payamt"/>
                <Cell col="6" displaytype="number" style="align:right middle;" text="bind:allownbamt"/>
                <Cell col="7" displaytype="number" style="align:right middle;" text="bind:nopyamt"/>
                <Cell col="8" displaytype="number" style="align:right middle;" text="bind:specamt"/>
                <Cell col="9" displaytype="number" style="align:right middle;" text="bind:payownbrate"/>
                <Cell col="10" displaytype="number" style="align:right middle;" text="bind:payinsubamt"/>
                <Cell col="11" displaytype="number" style="align:right middle;" text="bind:payownbamt"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Shape id="line4" class="line_1" position="absolute 851 89 1195 95" style="strokepen:3 solid #33bbbbff;" anchor="left top right"/>
        <Grid id="grd_ipsc" taborder="3" binddataset="ds_grd_grdlist2" useinputpanel="false" position="absolute 851 94 1195 728" anchor="left top right" cellsizingtype="both">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="22"/>
                <Column size="81"/>
                <Column size="100"/>
                <Column size="264"/>
                <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="상태"/>
              </Band>
              <Band id="body">
                <Cell displaytype="checkbox" edittype="checkbox" text="bind:chk"/>
                <Cell col="1" displaytype="date" text="bind:recaldd" mask="yyyy-MM-dd"/>
                <Cell col="2" displaytype="text" text="bind:calcscorcd"/>
                <Cell col="3" displaytype="text" text="bind:calcscornm"/>
                <Cell col="4" displaytype="combo" edittype="combo" text="bind:execprcpstatcd" enable="false"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Shape id="roundrect2" type="roundrectangle" class="roundrect_search" position="absolute 2 735 1196 770"/>
        <Calendar id="ipt_hopedd" taborder="4" class="input_search" position="absolute 99 743 205 762" ontextchanged="ipt_hopedd_ontextchanged" onchanged="ipt_hopedd_onchanged"/>
        <Static id="caption45" text="계산일자 :" class="search_name" position="absolute 12 745 112 762"/>
        <Static id="caption1" text="~" position="absolute 215 743 240 762"/>
        <Calendar id="input5" taborder="5" class="input_search" position="absolute 235 743 341 762" onchanged="input5_onchanged"/>
        <Static id="caption3" text="계산종류 :" class="search_name" position="absolute 364 745 440 762" style="align:center middle;"/>
        <Radio id="radio1" taborder="6" columncount="2" rowcount="0" codecolumn="value" datacolumn="label" position="absolute 456 742 661 762" innerdataset="@ds_rdo_calckind"/>
        <Button id="btn_calc" taborder="7" text="계산" class="btn1" position="absolute 1072 742 1128 764" onclick="btn_calc_onclick"/>
        <Button id="button2" taborder="8" text="닫기" class="btn1" position="absolute 1132 742 1188 764" onclick="button2_onclick"/>
        <Static id="caption9" text="일당수기료 계산 대상일자" class="tit_2" position="absolute 851 72 1047 94"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_grd_ipsc" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="ipsc_chk" type="STRING"/>
          <Column id="ipsc_recaldd" type="STRING"/>
          <Column id="exec_calcscorcd" type="STRING"/>
          <Column id="exec_calcscornm" type="STRING"/>
          <Column id="exec_execprcpstatcd" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_main_send" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="pid" type="STRING" size="256" sumtext="환자번호"/>
          <Column id="instcd" type="STRING" size="256" sumtext="기관기호"/>
          <Column id="indd" type="STRING" size="256" sumtext="일련번호"/>
          <Column id="cretno" type="STRING" size="256" sumtext="일련번호"/>
          <Column id="mskind" type="STRING" size="256" sumtext="일련번호"/>
          <Column id="fromdd" type="STRING" size="256"/>
          <Column id="ordfromdd" type="STRING" size="256"/>
          <Column id="todd" type="STRING" size="256"/>
          <Column id="ordtodd" type="STRING" size="256"/>
          <Column id="checkyn" type="STRING" size="256"/>
          <Column id="insukind" type="STRING" size="256"/>
          <Column id="suppkind" type="STRING" size="256"/>
          <Column id="ordtype" type="STRING" size="256"/>
          <Column id="brateflag" type="STRING" size="256"/>
          <Column id="age" type="STRING" size="256"/>
          <Column id="mig" type="STRING" size="256"/>
          <Column id="calckind" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="checkyn">N</Col>
            <Col id="ordtype">I</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_grd_grdlist1" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="rn" type="STRING" size="256" sumtext="내원유형"/>
          <Column id="snglcalcscorcd" type="STRING" size="256" sumtext="내원유형"/>
          <Column id="hngnm" type="STRING" size="256" sumtext="처방일"/>
          <Column id="execdd" type="STRING" size="256" sumtext="1회량"/>
          <Column id="calcdays" type="STRING" size="256" sumtext="회수"/>
          <Column id="payamt" type="STRING" size="256" sumtext="일투"/>
          <Column id="allownbamt" type="STRING" size="256" sumtext="일수"/>
          <Column id="nopyamt" type="STRING" size="256" sumtext="처방과"/>
          <Column id="specamt" type="STRING" size="256" sumtext="주치의"/>
          <Column id="payownbrate" type="STRING" size="256" sumtext="시행일"/>
          <Column id="payinsubamt" type="STRING" size="256" sumtext="시행일"/>
          <Column id="payownbamt" type="STRING" size="256" sumtext="시행일"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_grd_grdlist2" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="chk" type="STRING" size="256" sumtext="체크"/>
          <Column id="recaldd" type="STRING" size="256" sumtext="재계산일자"/>
          <Column id="calcscorcd" type="STRING" size="256" sumtext="수가코드"/>
          <Column id="calcscornm" type="STRING" size="256" sumtext="수가명칭"/>
          <Column id="execprcpstatcd" type="STRING" size="256" sumtext="실시상태"/>
          <Column id="execdd" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_rdo_calckind" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="label" type="STRING" size="256"/>
          <Column id="value" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="label">일자별</Col>
            <Col id="value">D</Col>
          </Row>
          <Row>
            <Col id="label">대상별</Col>
            <Col id="value">C</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_item11_endcnclstat_endcnclstat" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="dschnotiyn" type="STRING" size="256" sumtext="퇴원확정여부"/>
          <Column id="indschacptstat" type="STRING" size="256" sumtext="입퇴원접수상태"/>
          <Column id="dschjudgprcsstat" type="STRING" size="256" sumtext="심사상태"/>
          <Column id="maxexectm" type="STRING" size="256" sumtext="마지막실시일자"/>
          <Column id="admamtcalcyn" type="STRING" size="256" sumtext="병실료계산확인"/>
          <Column id="calcmissyn" type="STRING" size="256" sumtext="처방계산확인"/>
          <Column id="ipscendyn" type="STRING" size="256" sumtext="소급계산완료"/>
          <Column id="dumpexistyn" type="STRING" size="256" sumtext="외래덤프데이터존재"/>
          <Column id="dupexecdd" type="STRING" size="256" sumtext="중복계산일자"/>
          <Column id="check0" type="STRING" size="256" sumtext="check0"/>
          <Column id="check1" type="STRING" size="256" sumtext="check1"/>
          <Column id="check2" type="STRING" size="256" sumtext="check2"/>
          <Column id="check3" type="STRING" size="256" sumtext="check3"/>
          <Column id="check4" type="STRING" size="256" sumtext="check4"/>
          <Column id="check5" type="STRING" size="256" sumtext="check5"/>
          <Column id="nog3reasnyn" type="STRING" size="256" sumtext="nog3reasnyn"/>
          <Column id="dumpclamkeyexistyn" type="STRING" size="256" sumtext="dumpclamkeyexistyn"/>
          <Column id="dschantichk" type="STRING" size="256" sumtext="dschantichk"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_item11_endcnclstat_recal" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="recalcdd" type="STRING" size="256" sumtext="재계산일자"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_item11_endcnclstat_drginfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="opchkyn" type="STRING" size="256" sumtext="opchkyn"/>
          <Column id="drgmchkyn" type="STRING" size="256" sumtext="drgmchkyn"/>
          <Column id="rslt" type="STRING" size="256" sumtext="rslt"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="group2.input4" propid="value" datasetid="ds_main_send" columnid="pid"/>
      <BindItem id="item1" compid="radio1" propid="value" datasetid="ds_main_send" columnid="calckind"/>
      <BindItem id="item2" compid="ipt_hopedd" propid="value" datasetid="ds_main_send" columnid="ordfromdd"/>
      <BindItem id="item3" compid="input5" propid="value" datasetid="ds_main_send" columnid="ordtodd"/>
    </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";

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

function SPPIJ02601_onload(obj:Form, e:LoadEventInfo)
{
	ds_init.copyData(args_ds_send);
	
	ds_main_send.setColumn(0, "pid", ds_init.getColumn(0, "pid"));
	ds_main_send.setColumn(0, "instcd", ds_init.getColumn(0, "instcd"));
	ds_main_send.setColumn(0, "indd", ds_init.getColumn(0, "indd"));
	ds_main_send.setColumn(0, "cretno", ds_init.getColumn(0, "cretno"));
	ds_main_send.setColumn(0, "mskind", ds_init.getColumn(0, "mskind"));
	ds_main_send.setColumn(0, "fromdd", ds_init.getColumn(0, "fromdd"));
	ds_main_send.setColumn(0, "ordfromdd", ds_init.getColumn(0, "ordfromdd"));
	ds_main_send.setColumn(0, "todd", ds_init.getColumn(0, "todd"));
	ds_main_send.setColumn(0, "ordtodd", ds_init.getColumn(0, "ordtodd"));
	ds_main_send.setColumn(0, "insukind", ds_init.getColumn(0, "insukind"));
	ds_main_send.setColumn(0, "suppkind", ds_init.getColumn(0, "suppkind"));
	ds_main_send.setColumn(0, "brateflag", ds_init.getColumn(0, "brateflag"));
	ds_main_send.setColumn(0, "age", ds_init.getColumn(0, "age"));
	ds_main_send.setColumn(0, "mig", ds_init.getColumn(0, "mig"));
	
	
	var oParam = {};
		oParam.id          = "TRPIJ02601";
		oParam.service     = "bfjudgapp.InHospJudgDetl";
		oParam.method      = "reqGetSugiCalcList";
		oParam.inds        = "req=ds_main_send";
		oParam.outds       = "ds_grd_grdlist1=grdlist1 ds_grd_grdlist2=grdlist2";
		oParam.async       = false;
		//oParam.callback    = "cf_TRPIJ02601";

	tranf_submit(oParam);

	ds_main_send.setColumn(0, "calckind", "D");
	//radio1.refresh();
}

function group2_input4_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13){
		setInputNodeCurText();
	}
}

//계산
function btn_calc_onclick(obj:Button,  e:ClickEventInfo)
{
	if(ds_main_send.getColumn(0, "ordfromdd") > ds_main_send.getColumn(0, "ordtodd"))
	{
		sysf_messageBox("계산일자 시작일이 종료일보다 더 큽니다. 시작일을 확인 해주십시요.", "E999");
		return;
	}				
	var oParam = {};
		oParam.id          = "TRPIJ00207";
		oParam.service     = "bfjudgapp.InHospJudg";
		oParam.method      = "reqNotiDschStat2";
		oParam.inds        = "req=ds_main_send";
		oParam.outds       = "ds_item11_endcnclstat_endcnclstat=endcnclstat ds_item11_endcnclstat_recal=recal ds_item11_endcnclstat_drginfo=drginfo";
		oParam.async       = false;
		//oParam.callback    = "cf_TRPIJ00207";

	tranf_submit(oParam);
	
	var indschacptstat = ds_item11_endcnclstat_endcnclstat.getColumn(0, "indschacptstat");
	var dschjudgprcsstat = ds_item11_endcnclstat_endcnclstat.getColumn(0, "dschjudgprcsstat");
	var dschnotiyn = ds_item11_endcnclstat_endcnclstat.getColumn(0, "dschnotiyn");
	
	if (dschjudgprcsstat == "C" || dschjudgprcsstat == "E")
	{
		sysf_messageBox("이미 마감처리가 된 환자입니다. 심사취소 ", "E001");
		return;
	}
							
	var msg = sysf_messageBox("수기료계산을 시작","S001");
	if (msg == 6) { // 수기료계산을 적용한다.
		if(ds_main_send.getColumn(0, "calckind") == "C")
		{
			if(ds_grd_grdlist2.rowcount > 0)
			{
				var updtdata = grdf_getGridUpdateData(grd_ipsc);
				//model.makeValue("/root/send/grdlist2",grd_ipsc.getUpdateDataAll("i"));
			} else {
				sysf_messageBox("리스트에 대상자가","I004");
				return false;
			}
		} else {
			
		}
		
		fMakeCopyColumn(ds_grd_grdlist2,"recaldd","execdd");
		var oParam = {};
			oParam.id          = "TXPIJ03001";
			oParam.service     = "bfjudgapp.InHospJudgDetl";
			oParam.method      = "reqExeSugiCalc";
			oParam.inds        = "req=ds_main_send grdlist2=ds_grd_grdlist2";
			oParam.outds       = "";
			oParam.async       = false;
			//oParam.callback    = "cf_TXPIJ03001";

		tranf_submit(oParam);
		
		if (sysf_messageBox("수기료 계산이 완료 되었습니다. 창을 닫히게","S001") == 6) {
			this.close();
		} else {
			var oParam = {};
				oParam.id          = "TRPIJ02601";
				oParam.service     = "bfjudgapp.InHospJudgDetl";
				oParam.method      = "reqGetSugiCalcList";
				oParam.inds        = "req=ds_main_send";
				oParam.outds       = "ds_grd_grdlist1=grdlist1 ds_grd_grdlist2=grdlist2";
				oParam.async       = false;
				//oParam.callback    = "cf_TRPIJ02601";

			tranf_submit(oParam);
		}
	}
}
//닫기
function button2_onclick(obj:Button,  e:ClickEventInfo)
{
	this.close();
}

function ipt_hopedd_onchanged(obj:Calendar, e:ChangeEventInfo)
{
	var oParam = {};
		oParam.id          = "TRPIJ02601";
		oParam.service     = "bfjudgapp.InHospJudgDetl";
		oParam.method      = "reqGetSugiCalcList";
		oParam.inds        = "req=ds_main_send";
		oParam.outds       = "ds_grd_grdlist1=grdlist1 ds_grd_grdlist1=grdlist2";
		oParam.async       = false;
		//oParam.callback    = "cf_TRPIJ02601";

	tranf_submit(oParam);
}

function input5_onchanged(obj:Calendar, e:ChangeEventInfo)
{
	var oParam = {};
		oParam.id          = "TRPIJ02601";
		oParam.service     = "bfjudgapp.InHospJudgDetl";
		oParam.method      = "reqGetSugiCalcList";
		oParam.inds        = "req=ds_main_send";
		oParam.outds       = "ds_grd_grdlist1=grdlist1 ds_grd_grdlist1=grdlist2";
		oParam.async       = false;
		//oParam.callback    = "cf_TRPIJ02601";

	tranf_submit(oParam);
}

function fMakeCopyColumn(objDs,sColSrc,sColTgt) {
	if(utlf_isNull(objDs.getColumnInfo(sColTgt))) objDs.addColumn(sColTgt,"string");
	for(var i = 0 ; i < objDs.rowcount ; i++) {
		objDs.setColumn(i,sColTgt,objDs.getColumn(i,sColSrc));
	}
}]]></Script>
  </Form>
</FDL>