YNU_JEUS/app_home/himed/xpapps/pam/pamcomnxp/xp/SPPAO00900_미수입력.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPPAO00900" position="absolute 0 0 1100 330" titletext="미수입력" onload="SPPAO00900_onload">
    <Layouts>
      <Layout>
        <Shape id="line1" linetype="horizontal" class="line_1" position="absolute 0 25 1084 31" style="strokepen:3 solid #33bbbbff;"/>
        <Static id="caption1" text="미수내역" class="tit_2" position="absolute 5 8 113 24"/>
        <Static id="caption3" text="수납할 금액" class="cell_1" position="absolute 904 240 979 263" style="color:blue;padding:0 0 0 0;align:center middle;"/>
        <Static id="caption4" text="미수총액" class="cell_1" position="absolute 904 265 979 288" style="padding:0 0 0 5;align:left middle;"/>
        <Button id="btn_addrow" taborder="1" text="행추가" class="btn2" position="absolute 975 4 1028 23" onclick="btn_addrow_onclick"/>
        <Button id="btn_delrow" taborder="2" text="행삭제" class="btn2" position="absolute 1031 4 1084 23" onclick="btn_delrow_onclick"/>
        <MaskEdit id="opt_rcptamt" taborder="3" readonly="true" mask="(-)#,##0" position="absolute 982 242 1082 261"/>
        <MaskEdit id="opt_uncoamt" taborder="4" readonly="true" mask="(-)#,##0" position="absolute 982 267 1082 286"/>
        <Grid id="datagrid1" taborder="5" binddataset="ds_main_h_unco" useinputpanel="false" position="absolute 0 29 1084 238" autofittype="col" autoenter="select" selectchangetype="down" selecttype="row" autoupdatetype="itemselect" onenterdown="datagrid1_onenterdown">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="45"/>
                <Column size="85"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="40"/>
                <Column size="176"/>
                <Column size="70"/>
                <Column size="70"/>
                <Column size="70"/>
                <Column size="70"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="239"/>
                <Column size="40"/>
                <Column size="40"/>
                <Column size="40"/>
                <Column size="40"/>
                <Column size="40"/>
                <Column size="40"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
              </Columns>
              <Rows>
                <Row size="40" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell text="pid"/>
                <Cell col="1" text="rcptdd"/>
                <Cell col="2" text="rcptno"/>
                <Cell col="3" text="rcptseqno"/>
                <Cell col="4" text="seqno"/>
                <Cell col="5" text="instcd"/>
                <Cell col="6" text="rcptstat"/>
                <Cell col="7" text="구분"/>
                <Cell col="8" text="진료일"/>
                <Cell col="9" text="cretno"/>
                <Cell col="10" text="orddeptcd"/>
                <Cell col="11" text="orddrid"/>
                <Cell col="12" text="dschdd"/>
                <Cell col="13" text="insukind"/>
                <Cell col="14" text="suppkind"/>
                <Cell col="15" text="uncorcptflag"/>
                <Cell col="16" text="uncocls"/>
                <Cell col="17" text="코드"/>
                <Cell col="18" text="미수명칭"/>
                <Cell col="19" text="급여&#10;미수"/>
                <Cell col="20" text="비급여&#10;미수"/>
                <Cell col="21" text="선택&#10;미수"/>
                <Cell col="22" text="미수액"/>
                <Cell col="23" text="rcptamt"/>
                <Cell col="24" text="debtamt"/>
                <Cell col="25" text="endyn"/>
                <Cell col="26" text="clincstdyno"/>
                <Cell col="27" text="empid"/>
                <Cell col="28" text="rcptexecdd"/>
                <Cell col="29" text="rcpttm"/>
                <Cell col="30" text="rcptrid"/>
                <Cell col="31" text="적용사유"/>
                <Cell col="32" colspan="3" text="외래미수율&#10;(급여/비급여/선택)" taborder="undefined"/>
                <Cell col="35" colspan="3" text="입원미수율&#10;(급여/비급여/선택)" taborder="undefined"/>
                <Cell col="38" text="caption1"/>
                <Cell col="39" text="caption2"/>
                <Cell col="40" text="caption3"/>
                <Cell col="41" text="caption4"/>
                <Cell col="42" text="caption5"/>
              </Band>
              <Band id="body">
                <Cell text="bind:pid"/>
                <Cell col="1" text="bind:rcptdd"/>
                <Cell col="2" text="bind:rcptno"/>
                <Cell col="3" text="bind:rcptseqno"/>
                <Cell col="4" text="bind:seqno"/>
                <Cell col="5" text="bind:instcd"/>
                <Cell col="6" text="bind:rcptstat"/>
                <Cell col="7" displaytype="combo" edittype="combo" style="align:center middle;" text="bind:ordtype" combodataset="ds_init_P0028list" combocodecol="cdid" combodatacol="cdnm"/>
                <Cell col="8" displaytype="date" style="align:center middle;" text="bind:orddd" mask="yyyy-MM-dd" calendardisplaynulltype="none"/>
                <Cell col="9" text="bind:cretno"/>
                <Cell col="10" text="bind:orddeptcd"/>
                <Cell col="11" text="bind:orddrid"/>
                <Cell col="12" text="bind:dschdd"/>
                <Cell col="13" text="bind:insukind"/>
                <Cell col="14" text="bind:suppkind"/>
                <Cell col="15" text="bind:uncorcptflag"/>
                <Cell col="16" text="bind:uncocls"/>
                <Cell col="17" displaytype="text" edittype="text" style="align:center;" text="bind:uncocd" taborder="1"/>
                <Cell col="18" displaytype="combo" edittype="combo" text="bind:uncocd" combodataset="ds_init_uncocd" combocodecol="cd" combodatacol="nm" combodisplayrowcount="20"/>
                <Cell col="19" displaytype="number" edittype="masknumber" style="align:right middle;" text="bind:uncopayamt" mask="#,##0" editautoselect="true"/>
                <Cell col="20" displaytype="number" edittype="masknumber" style="align:right middle;" text="bind:unconopyamt" mask="#,##0" editautoselect="true"/>
                <Cell col="21" displaytype="number" edittype="masknumber" style="align:right middle;" text="bind:uncospecamt" mask="#,##0" editautoselect="true"/>
                <Cell col="22" displaytype="number" edittype="masknumber" style="align:right middle;" text="bind:uncoamt" mask="#,##0" editautoselect="true" taborder="2"/>
                <Cell col="23" text="bind:rcptamt"/>
                <Cell col="24" text="bind:debtamt"/>
                <Cell col="25" text="bind:endyn"/>
                <Cell col="26" text="bind:clincstdyno"/>
                <Cell col="27" text="bind:empid"/>
                <Cell col="28" text="bind:rcptexecdd"/>
                <Cell col="29" text="bind:rcpttm"/>
                <Cell col="30" text="bind:rcptrid"/>
                <Cell col="31" displaytype="text" edittype="text" text="bind:apprsn" editautoselect="true"/>
                <Cell col="32" style="align:right middle;" text="bind:outpayapprate"/>
                <Cell col="33" style="align:right middle;" text="bind:outnopyapprate"/>
                <Cell col="34" style="align:right middle;" text="bind:outspecapprate"/>
                <Cell col="35" style="align:right middle;" text="bind:inpayapprate"/>
                <Cell col="36" style="align:right middle;" text="bind:innopyapprate"/>
                <Cell col="37" style="align:right middle;" text="bind:inspecapprate"/>
                <Cell col="38" text="bind:remfact"/>
                <Cell col="39" text="bind:fstrgstrid"/>
                <Cell col="40" text="bind:fstrgstdt"/>
                <Cell col="41" text="bind:lastupdtrid"/>
                <Cell col="42" text="bind:lastupdtdt"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Static id="caption2" text="비급여본인" class="cell_1" position="absolute 553 240 628 263" style="color:blue;padding:0 0 0 0;align:center middle;"/>
        <Static id="caption5" text="선택본인" class="cell_1" position="absolute 736 240 796 263" style="color:blue;padding:0 0 0 0;align:center middle;"/>
        <MaskEdit id="output1" taborder="6" readonly="true" mask="(-)#,##0" position="absolute 799 242 899 261"/>
        <MaskEdit id="output2" taborder="7" readonly="true" mask="(-)#,##0" position="absolute 631 242 731 261"/>
        <Static id="caption6" text="급여본인" class="cell_1" position="absolute 382 240 445 263" style="color:blue;padding:0 0 0 0;align:center middle;"/>
        <MaskEdit id="output3" taborder="8" readonly="true" mask="(-)#,##0" position="absolute 447 242 547 261"/>
        <Static id="caption7" text="비급여미수" class="cell_1" position="absolute 553 265 628 288" tooltiptext="원단위 사사오입" style="padding:0 0 0 0;align:center middle;"/>
        <Static id="caption8" text="선택미수" class="cell_1" position="absolute 736 265 796 288" tooltiptext="원단위 사사오입" style="padding:0 0 0 0;align:center middle;"/>
        <Static id="caption9" text="급여미수" class="cell_1" position="absolute 382 265 445 288" tooltiptext="원단위 사사오입" style="padding:0 0 0 0;align:center middle;"/>
        <MaskEdit id="output4" taborder="9" readonly="true" mask="(-)#,##0" position="absolute 799 267 899 286"/>
        <MaskEdit id="output5" taborder="10" readonly="true" mask="(-)#,##0" position="absolute 631 267 731 286"/>
        <MaskEdit id="output6" taborder="11" readonly="true" mask="(-)#,##0" position="absolute 447 267 547 286"/>
        <Static id="caption10" text="※ 미수코드관리에서 설정된 미수율에 따라 미수금액 자동설정됨&#13;&#10;※ 미수를 복수건 등록하는 경우, &#13;&#10;    기 발생된 금액을 제외한 본인부담금액에서 미수율을 적용" position="absolute 5 244 379 290" style="color:red;"/>
        <Button id="btn_confirm" taborder="12" text="확인" class="btn4" position="absolute 967 295 1023 317" onclick="btn_confirm_onclick"/>
        <Button id="btn_cancel" taborder="13" text="취소" class="btn4" position="absolute 1026 295 1082 317" onclick="btn_cancel_onclick"/>
        <Shape id="line88" linetype="horizontal" class="line_6" position="absolute 0 290 1084 296"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_datagrid1" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="pid" type="STRING"/>
          <Column id="rcptdd" type="STRING"/>
          <Column id="rcptno" type="STRING"/>
          <Column id="rcptseqno" type="STRING"/>
          <Column id="seqno" type="STRING"/>
          <Column id="instcd" type="STRING"/>
          <Column id="rcptstat" type="STRING"/>
          <Column id="ordtype" type="STRING"/>
          <Column id="orddd" type="STRING"/>
          <Column id="cretno" type="STRING"/>
          <Column id="orddeptcd" type="STRING"/>
          <Column id="orddrid" type="STRING"/>
          <Column id="dschdd" type="STRING"/>
          <Column id="insukind" type="STRING"/>
          <Column id="suppkind" type="STRING"/>
          <Column id="uncorcptflag" type="STRING"/>
          <Column id="uncocls" type="STRING"/>
          <Column id="uncocd" type="STRING"/>
          <Column id="uncopayamt" type="STRING"/>
          <Column id="unconopyamt" type="STRING"/>
          <Column id="uncospecamt" type="STRING"/>
          <Column id="uncoamt" type="STRING"/>
          <Column id="rcptamt" type="STRING"/>
          <Column id="debtamt" type="STRING"/>
          <Column id="endyn" type="STRING"/>
          <Column id="clincstdyno" type="STRING"/>
          <Column id="empid" type="STRING"/>
          <Column id="rcptexecdd" type="STRING"/>
          <Column id="rcpttm" type="STRING"/>
          <Column id="rcptrid" type="STRING"/>
          <Column id="apprsn" type="STRING"/>
          <Column id="outpayapprate" type="STRING"/>
          <Column id="outnopyapprate" type="STRING"/>
          <Column id="outspecapprate" type="STRING"/>
          <Column id="inpayapprate" type="STRING"/>
          <Column id="innopyapprate" type="STRING"/>
          <Column id="inspecapprate" type="STRING"/>
          <Column id="remfact" type="STRING"/>
          <Column id="fstrgstrid" type="STRING"/>
          <Column id="fstrgstdt" type="STRING"/>
          <Column id="lastupdtrid" type="STRING"/>
          <Column id="lastupdtdt" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_hidden_session" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_P0028list" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cdid" type="STRING" size="256"/>
          <Column id="cdnm" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_main_unco" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="totrcptamt" type="STRING" size="256"/>
          <Column id="totuncoamt" type="STRING" size="256"/>
          <Column id="rcptpayamt" type="STRING" size="256"/>
          <Column id="rcptnopyamt" type="STRING" size="256"/>
          <Column id="rcptspecamt" type="STRING" size="256"/>
          <Column id="uncopayamt" type="STRING" size="256"/>
          <Column id="unconopyamt" type="STRING" size="256"/>
          <Column id="uncospecamt" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_tmp" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_main_h_unco" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_main_h_unco_oncolumnchanged">
        <ColumnInfo>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="rcptdd" type="STRING" size="256"/>
          <Column id="rcptno" type="STRING" size="256"/>
          <Column id="rcptseqno" type="STRING" size="256"/>
          <Column id="seqno" type="STRING" size="256"/>
          <Column id="instcd" type="STRING" size="256"/>
          <Column id="rcptstat" type="STRING" size="256"/>
          <Column id="ordtype" type="STRING" size="256"/>
          <Column id="orddd" type="STRING" size="256"/>
          <Column id="cretno" type="STRING" size="256"/>
          <Column id="orddeptcd" type="STRING" size="256"/>
          <Column id="orddrid" type="STRING" size="256"/>
          <Column id="dschdd" type="STRING" size="256"/>
          <Column id="insukind" type="STRING" size="256"/>
          <Column id="suppkind" type="STRING" size="256"/>
          <Column id="uncorcptflag" type="STRING" size="256"/>
          <Column id="uncocls" type="STRING" size="256"/>
          <Column id="uncocd" type="STRING" size="256"/>
          <Column id="uncopayamt" type="STRING" size="256"/>
          <Column id="unconopyamt" type="STRING" size="256"/>
          <Column id="uncospecamt" type="STRING" size="256"/>
          <Column id="uncoamt" type="STRING" size="256"/>
          <Column id="rcptamt" type="STRING" size="256"/>
          <Column id="debtamt" type="STRING" size="256"/>
          <Column id="endyn" type="STRING" size="256"/>
          <Column id="clincstdyno" type="STRING" size="256"/>
          <Column id="empid" type="STRING" size="256"/>
          <Column id="rcptexecdd" type="STRING" size="256"/>
          <Column id="rcpttm" type="STRING" size="256"/>
          <Column id="rcptrid" type="STRING" size="256"/>
          <Column id="apprsn" type="STRING" size="256"/>
          <Column id="outpayapprate" type="STRING" size="256"/>
          <Column id="outnopyapprate" type="STRING" size="256"/>
          <Column id="outspecapprate" type="STRING" size="256"/>
          <Column id="inpayapprate" type="STRING" size="256"/>
          <Column id="innopyapprate" type="STRING" size="256"/>
          <Column id="inspecapprate" type="STRING" size="256"/>
          <Column id="remfact" type="STRING" size="256"/>
          <Column id="fstrgstrid" type="STRING" size="256"/>
          <Column id="fstrgstdt" type="STRING" size="256"/>
          <Column id="lastupdtrid" type="STRING" size="256"/>
          <Column id="lastupdtdt" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_uncocd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <table id="uncocd" count_ref="uncocd">
          <column id="cd" desc="미수코드" type="cdata" ref="uncocd.cd"/>
          <column id="nm" desc="미수코드명" type="cdata" ref="uncocd.nm"/>
          <column id="cls" desc="미수코드분류" type="cdata" ref="uncocd.cls"/>
          <column id="outpayapprate" desc="외래급여미수율" type="cdata" ref="uncocd.outpayapprate"/>
          <column id="outnopyapprate" desc="외래비급여미수율" type="cdata" ref="uncocd.outnopyapprate"/>
          <column id="outspecapprate" desc="외래선택진료미수율" type="cdata" ref="uncocd.outspecapprate"/>
          <column id="inpayapprate" desc="입원급여미수율" type="cdata" ref="uncocd.inpayapprate"/>
          <column id="innopyapprate" desc="입원비급여미수율" type="cdata" ref="uncocd.innopyapprate"/>
          <column id="inspecapprate" desc="입원선택진료미수율" type="cdata" ref="uncocd.inspecapprate"/>
        </table>
        <ColumnInfo>
          <Column id="cd" type="STRING" size="256" sumtext="미수코드"/>
          <Column id="nm" type="STRING" size="256" sumtext="미수코드명"/>
          <Column id="cls" type="STRING" size="256" sumtext="미수코드분류"/>
          <Column id="outpayapprate" type="STRING" size="256" sumtext="외래급여미수율"/>
          <Column id="outnopyapprate" type="STRING" size="256" sumtext="외래비급여미수율"/>
          <Column id="outspecapprate" type="STRING" size="256" sumtext="외래선택진료미수율"/>
          <Column id="inpayapprate" type="STRING" size="256" sumtext="입원급여미수율"/>
          <Column id="innopyapprate" type="STRING" size="256" sumtext="입원비급여미수율"/>
          <Column id="inspecapprate" type="STRING" size="256" sumtext="입원선택진료미수율"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_rcptuserinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_rcptuser_rcptuserinfosend" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_main_h_dcgm" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_temp_uncocd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <table id="uncocd" count_ref="uncocd">
          <column id="cd" desc="미수코드" type="cdata" ref="uncocd.cd"/>
          <column id="nm" desc="미수코드명" type="cdata" ref="uncocd.nm"/>
          <column id="cls" desc="미수코드분류" type="cdata" ref="uncocd.cls"/>
          <column id="outpayapprate" desc="외래급여미수율" type="cdata" ref="uncocd.outpayapprate"/>
          <column id="outnopyapprate" desc="외래비급여미수율" type="cdata" ref="uncocd.outnopyapprate"/>
          <column id="outspecapprate" desc="외래선택진료미수율" type="cdata" ref="uncocd.outspecapprate"/>
          <column id="inpayapprate" desc="입원급여미수율" type="cdata" ref="uncocd.inpayapprate"/>
          <column id="innopyapprate" desc="입원비급여미수율" type="cdata" ref="uncocd.innopyapprate"/>
          <column id="inspecapprate" desc="입원선택진료미수율" type="cdata" ref="uncocd.inspecapprate"/>
        </table>
        <ColumnInfo>
          <Column id="cd" type="STRING" size="256" sumtext="미수코드"/>
          <Column id="nm" type="STRING" size="256" sumtext="미수코드명"/>
          <Column id="cls" type="STRING" size="256" sumtext="미수코드분류"/>
          <Column id="outpayapprate" type="STRING" size="256" sumtext="외래급여미수율"/>
          <Column id="outnopyapprate" type="STRING" size="256" sumtext="외래비급여미수율"/>
          <Column id="outspecapprate" type="STRING" size="256" sumtext="외래선택진료미수율"/>
          <Column id="inpayapprate" type="STRING" size="256" sumtext="입원급여미수율"/>
          <Column id="innopyapprate" type="STRING" size="256" sumtext="입원비급여미수율"/>
          <Column id="inspecapprate" type="STRING" size="256" sumtext="입원선택진료미수율"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="output3" propid="value" datasetid="ds_main_unco" columnid="rcptpayamt"/>
      <BindItem id="item1" compid="output2" propid="value" datasetid="ds_main_unco" columnid="rcptnopyamt"/>
      <BindItem id="item2" compid="output1" propid="value" datasetid="ds_main_unco" columnid="rcptspecamt"/>
      <BindItem id="item3" compid="opt_rcptamt" propid="value" datasetid="ds_main_unco" columnid="totrcptamt"/>
      <BindItem id="item4" compid="output6" propid="value" datasetid="ds_main_unco" columnid="uncopayamt"/>
      <BindItem id="item5" compid="output5" propid="value" datasetid="ds_main_unco" columnid="unconopyamt"/>
      <BindItem id="item6" compid="output4" propid="value" datasetid="ds_main_unco" columnid="uncospecamt"/>
      <BindItem id="item7" compid="opt_uncoamt" propid="value" datasetid="ds_main_unco" columnid="totuncoamt"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[include 'com_commonxp::comm_main.xjs';
include 'pam_opatmngtxp::PMOCOM.xjs';
include 'pam_pamcomnxp::PAM.xjs';

var gOrdtype, gOrddd, gTotrcptamt, strSend, strRcv, gPayOwnbAmt, gNopyOwnbAmt, gSpecOwnbamt;

var retValPam = new Object();

function fInit() {
	
	ds_main_unco.setColumn("totrcptamt",  "0");
	ds_main_unco.setColumn("rcptpayamt",  "0");
	ds_main_unco.setColumn("rcptnopyamt", "0");
	ds_main_unco.setColumn("rcptspecamt", "0");
	ds_main_unco.setColumn("totuncoamt",  "0");
	ds_main_unco.setColumn("uncopayamt",  "0");
	ds_main_unco.setColumn("unconopyamt", "0");
	ds_main_unco.setColumn("uncospecamt", "0");
	
	ds_main_h_unco.clearData();
}
 
function fUncoamtCalc() {
	
	if (ds_main_h_unco.rowcount > 0) {
		
		var unco_uncoamt     = 0;
		var unco_uncopayamt  = 0;
		var unco_unconopyamt = 0;
		var unco_uncospecamt = 0;
		
		var totrcptamt = ds_main_unco.getColumn(0, "totrcptamt");
		
		for (var i = 0; i < ds_main_h_unco.rowcount; i++) {
		
			unco_uncoamt += parseInt(ds_main_h_unco.getColumn(i, "uncoamt"));
			
			var value = parseInt(ds_main_h_unco.getColumn(i, "uncopayamt"));
 			if (!utlf_isNull(value)) {
				unco_uncopayamt += value;
 			}
 			
 			value = parseInt(ds_main_h_unco.getColumn(i, "unconopyamt"));
 			if (!utlf_isNull(value)) {
				unco_unconopyamt += value;
 			}
 			
 			value = parseInt(ds_main_h_unco.getColumn(i, "uncospecamt"));
 			if (!utlf_isNull(value)) {
				unco_uncospecamt += value;
 			}
		}
		
		totrcptamt = parseInt(totrcptamt.toString());
		
		if (totrcptamt < unco_uncoamt) {
			sysf_messageBox("미수총액이 수납금액을 초과합니다!", "E999");
		}
		
		ds_main_unco.setColumn(0, "totuncoamt",  unco_uncoamt);
		ds_main_unco.setColumn(0, "uncopayamt",  unco_uncopayamt);
		ds_main_unco.setColumn(0, "unconopyamt", unco_unconopyamt);
		ds_main_unco.setColumn(0, "uncospecamt", unco_uncospecamt);
		
	} else {
		
		ds_main_unco.setColumn(0, "totuncoamt",  "0");
		ds_main_unco.setColumn(0, "uncopayamt",  "0");
		ds_main_unco.setColumn(0, "unconopyamt", "0");
		ds_main_unco.setColumn(0, "uncospecamt", "0");
	}
	
	return true;
}

function SPPAO00900_onload(obj:Form, e:LoadEventInfo){
	
	// 폼 초기화
	frmf_initForm(obj);
	grdf_initGrid(this.datagrid1);
	
	fInit();
	fGetUserInfosSampling();
	
	var ds_in = dsf_createDsRow("ds_in", [{col:"sess_posinstcd", type:"string", size:256, val:ds_hidden_session.getColumn(0, "sess_posinstcd")}], false);
	
	ds_init_uncocd.clearData();
	
	//20200227 고영민 정해영 팀장님 요청으로 코로나관련 코드 3가지 임시 상단 배치(본원)
	/*var oParam = {};
	oParam.id      = "TRPAMCOM01";
	oParam.service = "pamcomnapp.PamComn";
	oParam.method  = "reqGetComCD";
	oParam.inds    = "req=ds_in";
	oParam.outds   = "ds_init_uncocd=uncocd";
	oParam.async   = false;
	
	tranf_submit(oParam);*/
	
	if(sysf_getUserInfo("dutplceinstcd") == "031"){
		var oParam = {};
		oParam.id      = "TRPAMCOM01";
		oParam.service = "pamcomnapp.PamComn";
		oParam.method  = "reqGetComCD";
		oParam.inds    = "req=ds_in";
		oParam.outds   = "ds_temp_uncocd=uncocd";
		oParam.async   = false;
		
		tranf_submit(oParam);
		
		ds_init_uncocd.addRow();
		ds_init_uncocd.copyRow(ds_init_uncocd.rowcount-1, ds_temp_uncocd, 95);
		ds_init_uncocd.addRow();
		ds_init_uncocd.copyRow(ds_init_uncocd.rowcount-1, ds_temp_uncocd, 96);
		ds_init_uncocd.addRow();
		ds_init_uncocd.copyRow(ds_init_uncocd.rowcount-1, ds_temp_uncocd, 97);
		ds_init_uncocd.appendData(ds_temp_uncocd);
	}
	else{
		var oParam = {};
		oParam.id      = "TRPAMCOM01";
		oParam.service = "pamcomnapp.PamComn";
		oParam.method  = "reqGetComCD";
		oParam.inds    = "req=ds_in";
		oParam.outds   = "ds_init_uncocd=uncocd";
		oParam.async   = false;
		
		tranf_submit(oParam);
	}
	//20200227 고영민 정해영 팀장님 요청으로 코로나관련 코드 3가지 임시 상단 배치 end
	
	appf_getCodeList([{dsNm:"ds_init_P0028list", cdGrpId:"P0028"}]);
	
	if (frmf_checkOpener()) {
		
		opener.frmf_setParameter("SPPAO00900_RTN", "");
		
	    gOrdtype     = objPam.ordtype;     // 진료형태(ordtype)       
		gOrddd       = objPam.orddd;       // 진료일자
		gTotrcptamt  = objPam.cashamt;     // 수납대상금액
		strSend      = objPam.dsStrSend;   // parent가 이미 가지고 있던 미수 내역
		strRcv       = objPam.dsStrRcv;    // 팝업이 닫힐때 미수내역을 받을 위치
		gBrateFlag   = objPam.brateflag;   // 외래 또는 입원요율
		gPayOwnbAmt  = objPam.payownbamt;  // 본인 급여총액
		gNopyOwnbAmt = objPam.nopyownbamt; // 비급여 본인부담금액
		gSpecOwnbamt = objPam.specownbamt; // 선택진료 본인부담금액
		
		if (utlf_isNull(gBrateFlag)) {
			gBrateFlag = "O";
		}
		
		if (utlf_isNull(gPayOwnbAmt)) {
			gPayOwnbAmt = 0;
		}
		
		if (utlf_isNull(gNopyOwnbAmt)) {
			gNopyOwnbAmt = 0;
		}
		
		if (utlf_isNull(gSpecOwnbamt)) {
			gSpecOwnbamt = 0;
		}
		
		ds_main_unco.setColumn(0, "rcptpayamt",  gPayOwnbAmt);
		ds_main_unco.setColumn(0, "rcptnopyamt", gNopyOwnbAmt);
		ds_main_unco.setColumn(0, "rcptspecamt", gSpecOwnbamt);
		ds_main_unco.setColumn(0, "totrcptamt",  gTotrcptamt);
		
		if (!utlf_isNull(strSend) && strSend != " " && strSend != "-" && strSend.rowcount > 0) {
			
			ds_main_h_unco.copyData(strSend);
			
			ds_main_h_unco.addColumn("uncopayamt",     "string");
			ds_main_h_unco.addColumn("unconopyamt",    "string");
			ds_main_h_unco.addColumn("uncospecamt",    "string");
			
			ds_main_h_unco.addColumn("outpayapprate",  "string");
			ds_main_h_unco.addColumn("outnopyapprate", "string");
			ds_main_h_unco.addColumn("outspecapprate", "string");
			ds_main_h_unco.addColumn("inpayapprate",   "string");
			ds_main_h_unco.addColumn("innopyapprate",  "string");
			ds_main_h_unco.addColumn("inspecapprate",  "string");
			
			for (var i = 0; i < ds_main_h_unco.rowcount; i++) {
				ds_main_h_unco.setColumn(i, "uncopayamt",     "0");
				ds_main_h_unco.setColumn(i, "unconopyamt",    "0");
				ds_main_h_unco.setColumn(i, "uncospecamt",    "0");
				
				ds_main_h_unco.setColumn(i, "outpayapprate",  "0");
				ds_main_h_unco.setColumn(i, "outnopyapprate", "0");
				ds_main_h_unco.setColumn(i, "outspecapprate", "0");
				ds_main_h_unco.setColumn(i, "inpayapprate",   "0");
				ds_main_h_unco.setColumn(i, "innopyapprate",  "0");
				ds_main_h_unco.setColumn(i, "inspecapprate",  "0");
			}
			
			fUncoamtCalc();
		}
		
		opener.frmf_setParameter("SPPAO00900_PARM", "");
		
	} else {
		
		gOrddd = PMO001_TODAY;
		ds_main_unco.setColumn("totrcptamt", "0");
	}
	
	// 화면 오프시점에 자동 행추가
	if (ds_main_h_unco.rowcount < 1) {
		btn_addrow.click();
	}
}

function btn_addrow_onclick(obj:Button,  e:ClickEventInfo) {
	
	if (utlf_isNull(gOrddd) || gOrddd == " " || gOrddd == "-" || gOrddd.length != 8) {
		messageBox("진료이력이 선택되지 않았습니다", "E999", "");
		return;
	}
	
	var idx = ds_main_h_unco.addRow();
	
	ds_main_h_unco.setColumn(idx, "ordtype",        gOrdtype);
	ds_main_h_unco.setColumn(idx, "orddd",          gOrddd);
	ds_main_h_unco.setColumn(idx, "uncorcptflag",   "1");      // 미수발생
	ds_main_h_unco.setColumn(idx, "uncocd",         "-");
	
	ds_main_h_unco.setColumn(idx, "uncopayamt",     "0");
	ds_main_h_unco.setColumn(idx, "unconopyamt",    "0");
	ds_main_h_unco.setColumn(idx, "uncospecamt",    "0");
	ds_main_h_unco.setColumn(idx, "uncoamt",        "0");
	
	ds_main_h_unco.setColumn(idx, "outpayapprate",  "0");
	ds_main_h_unco.setColumn(idx, "outnopyapprate", "0");
	ds_main_h_unco.setColumn(idx, "outspecapprate", "0");
	ds_main_h_unco.setColumn(idx, "inpayapprate",   "0");
	ds_main_h_unco.setColumn(idx, "innopyapprate",  "0");
	ds_main_h_unco.setColumn(idx, "inspecapprate",  "0");
}

function btn_confirm_onclick(obj:Button,  e:ClickEventInfo) {
	
	if (frmf_checkOpener()) {
		
		// 수납마감 사용자 관리 조회
		getRcptuserInfo();
		
		var uncoyn = ds_rcptuserinfo.getColumn(0, "uncoyn");
		
		var unco_uncocd;
		var unco_uncoamt;
		
		var totalUncoAmt = 0;
		
		for (var i = 0; i < ds_main_h_unco.rowcount; i++) {
			
			unco_uncocd  = ds_main_h_unco.getColumn(i, "uncocd");
			unco_uncoamt = ds_main_h_unco.getColumn(i, "uncoamt");
			
			totalUncoAmt += parseInt(ds_main_h_unco.getColumn(i, "uncoamt").toString());
			
			if (utlf_isNull(unco_uncocd) || unco_uncocd == " " || unco_uncocd == "-") {
				sysf_messageBox("미수명칭 중 미선택된 행이 준재합니다!", "E999");
				return;
			}
			
			if (!unco_uncoamt.toString().isNumber()) {
				sysf_messageBox("미수액 중 수치형이 아닌 행이 존재합니다!", "E999");
				return;
			}
			
			// 일반 미수 권한 체크
			if (unco_uncocd == "A01" && uncoyn != "Y") {
				sysf_messageBox("일반미수 발생 권한이 없습니다.", "E999");
				return;
			}
		}
		
		opener.frmf_setParameter("SPPAO00900_RTN", "Y");
		opener.frmf_setParameter("SPPAO00900_TotUncoAmt", ds_main_unco.getColumn(0, "totuncoamt"));
		
		retValPam.rtn = "Y";
		retValPam.totuncoamt = parseInt(ds_main_unco.getColumn(0, "totuncoamt"));
		
		//var ds = eval('opener.' + strRcv);
		
		if (!utlf_isNull(strRcv) && strRcv != " " && strRcv != "-") {
			strRcv.copyData(ds_main_h_unco);
		}
		
		this.close(retValPam);
	}
}

function btn_cancel_onclick(obj:Button,  e:ClickEventInfo) {
	if (frmf_checkOpener()) {
		opener.frmf_setParameter("SPPAO00900_RTN", "N");
		this.close();
	}
}

function ds_main_h_unco_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo) {
	
    if (e.columnid == "uncoamt") {
        if (!fUncoamtCalc()) {
			ds_main_h_unco.setColumn(e.row, "uncoamt", 0);
        }
    }
	
    // 미수코드 선택 시
    if (e.columnid == "uncocd") {
		
        // 미수구분 설정(기관/개인)
		ds_main_h_unco.setColumn(e.row, "uncocls", ds_init_uncocd.lookup("cd", ds_main_h_unco.getColumn(e.row, "uncocd"), "cls"));
		
        // 미수율 설정(외래)
        ds_main_h_unco.setColumn(e.row, "outpayapprate",  ds_init_uncocd.lookup("cd", ds_main_h_unco.getColumn(e.row, "uncocd"), "outpayapprate"));
        ds_main_h_unco.setColumn(e.row, "outnopyapprate", ds_init_uncocd.lookup("cd", ds_main_h_unco.getColumn(e.row, "uncocd"), "outnopyapprate"));
        ds_main_h_unco.setColumn(e.row, "outspecapprate", ds_init_uncocd.lookup("cd", ds_main_h_unco.getColumn(e.row, "uncocd"), "outspecapprate"));
        
        // 미수율 설정(입원)
        ds_main_h_unco.setColumn(e.row, "inpayapprate",  ds_init_uncocd.lookup("cd", ds_main_h_unco.getColumn(e.row, "uncocd"), "inpayapprate"));
        ds_main_h_unco.setColumn(e.row, "innopyapprate", ds_init_uncocd.lookup("cd", ds_main_h_unco.getColumn(e.row, "uncocd"), "innopyapprate"));
        ds_main_h_unco.setColumn(e.row, "inspecapprate", ds_init_uncocd.lookup("cd", ds_main_h_unco.getColumn(e.row, "uncocd"), "inspecapprate"));

        // 요율에 따른 미수율 설정
        var payAppRate = 0;
        var nopyAppRate = 0;
        var specAppRate = 0;

        if (gBrateFlag == "O") {
            payAppRate  = ds_init_uncocd.lookup("cd", ds_main_h_unco.getColumn(e.row, "uncocd"), "outpayapprate");
            nopyAppRate = ds_init_uncocd.lookup("cd", ds_main_h_unco.getColumn(e.row, "uncocd"), "outnopyapprate");
            specAppRate = ds_init_uncocd.lookup("cd", ds_main_h_unco.getColumn(e.row, "uncocd"), "outspecapprate");
        } else {
			payAppRate  = ds_init_uncocd.lookup("cd", ds_main_h_unco.getColumn(e.row, "uncocd"), "inpayapprate");
            nopyAppRate = ds_init_uncocd.lookup("cd", ds_main_h_unco.getColumn(e.row, "uncocd"), "innopyapprate");
            specAppRate = ds_init_uncocd.lookup("cd", ds_main_h_unco.getColumn(e.row, "uncocd"), "inspecapprate");
        }

        // 미수 대상이 되는 본인부담금액을 재계산하여 전달함.
        // 1. 재계산을 위해 현재 설정되어있는 금액은 제외처리
        // 2. 수납대상금액 - 기미수금액
        var payOwnbamt2 = parseInt(ds_main_unco.getColumn(0, "rcptpayamt"))
                        - parseInt(ds_main_unco.getColumn(0, "uncopayamt"))
                        - parseInt(ds_main_h_unco.getColumn(e.row, "uncopayamt"));
		
        var nopyOwnbamt2 = parseInt(ds_main_unco.getColumn(0, "rcptnopyamt"))
                         - parseInt(ds_main_unco.getColumn(0, "unconopyamt"))
                         - parseInt(ds_main_h_unco.getColumn(e.row, "unconopyamt"));
		
        var specOwnbamt2 = parseInt(ds_main_unco.getColumn(0, "rcptspecamt"))
                         - parseInt(ds_main_unco.getColumn(0, "uncospecamt"))
                         - parseInt(ds_main_h_unco.getColumn(e.row, "uncospecamt"));
		
        // 미수금액 설정
        var uncoAmtArr = fGetUncoAmt(payAppRate, nopyAppRate, specAppRate, payOwnbamt2, nopyOwnbamt2, specOwnbamt2);
		
		ds_main_h_unco.setColumn(e.row, "uncopayamt",  uncoAmtArr[1]);
		ds_main_h_unco.setColumn(e.row, "unconopyamt", uncoAmtArr[2]);
		ds_main_h_unco.setColumn(e.row, "uncospecamt", uncoAmtArr[3]);
		ds_main_h_unco.setColumn(e.row, "uncoamt",     uncoAmtArr[0]);
		
        // 미수금액 재계산
        fUncoamtCalc();
    }
}
function btn_delrow_onclick(obj:Button,  e:ClickEventInfo)
{
	var currow = ds_main_h_unco.rowposition; //.row;
	if(currow < 0){
		sysf_messageBox("먼저 삭제할 내역을 선택하십시요!","E999","");
		return;
	}					
	//datagrid1.deleteitem(currow);
	ds_main_h_unco.deleteRow(currow);
	fUncoamtCalc();
}

function datagrid1_onenterdown(obj:Grid, e:GridEditEventInfo)
{
	datagrid1.moveToNextCell();
}
]]></Script>
  </Form>
</FDL>