YNU_JEUS/app_home/himed/xpapps/pam/patinfomngtxp/xp/SMPMC02402_응급대불환자리스트.xfdl

<?xml version="1.0" encoding="utf-8" standalone="no"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMPMC02402" position="absolute 0 0 1219 784" titletext="응급대불환자리스트" onload="SMPMC02402_onload">
    <Layouts>
      <Layout>
        <Static id="caption16" position="absolute 5 760 490 775" style="" text="※ 색표시된 컬럼은 수정 가능합니다."/>
        <Static id="caption6" text="응급대불환자리스트" class="tit_1" position="absolute 0 0 160 25"/>
        <Shape id="line1" class="line_10" position="absolute 0 66 1194 70"/>
        <Grid id="grd_espm" taborder="4" binddataset="ds_main_h_espm_espm" useinputpanel="false" position="absolute 0 70 1194 747" onexpanddown="grd_espm_onexpanddown" autoenter="select" oncloseup="grd_espm_oncloseup">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="25" band="left"/>
                <Column size="70" band="left"/>
                <Column size="55" band="left"/>
                <Column size="15" band="left"/>
                <Column size="70"/>
                <Column size="70"/>
                <Column size="90"/>
                <Column size="69"/>
                <Column size="33"/>
                <Column size="100"/>
                <Column size="85"/>
                <Column size="85"/>
                <Column size="70"/>
                <Column size="70"/>
                <Column size="85"/>
                <Column size="70"/>
                <Column size="90"/>
                <Column size="100"/>
                <Column size="85"/>
                <Column size="85"/>
                <Column size="500"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell text="√"/>
                <Cell col="1" text="등록번호"/>
                <Cell col="2" text="환자명"/>
                <Cell col="3" text="-"/>
                <Cell col="4" colspan="2" text="진료기간" taborder="undefined"/>
                <Cell col="6" text="진료과"/>
                <Cell col="7" text="진료의"/>
                <Cell col="8" text="유형"/>
                <Cell col="9" text="보조"/>
                <Cell col="10" text="총진료비"/>
                <Cell col="11" text="미수금"/>
                <Cell col="12" colspan="2" text="대불적용기간" taborder="undefined"/>
                <Cell col="14" text="대불청구액"/>
                <Cell col="15" text="청구일자"/>
                <Cell col="16" text="대불제외미수금"/>
                <Cell col="17" text="대불입금일자"/>
                <Cell col="18" text="대불입금액"/>
                <Cell col="19" text="미수잔액"/>
                <Cell col="20" text="메모"/>
              </Band>
              <Band id="body">
                <Cell displaytype="checkbox" edittype="checkbox" text="bind:espm_ckbox" expr="expr:(espm_ckbox == 'true' || espm_ckbox == '1') ? '1' : '0'"/>
                <Cell col="1" style="align:left middle;" text="bind:espm_pid"/>
                <Cell col="2" style="align:left middle;" text="bind:espm_hngnm"/>
                <Cell col="3" displaytype="text" edittype="expand" expandshow="show"/>
                <Cell col="4" displaytype="date" style="align:left middle;" text="bind:espm_fromdd" mask="yyyy-MM-dd" calendardisplaynulltype="none"/>
                <Cell col="5" displaytype="date" style="align:left middle;" text="bind:espm_todd" mask="yyyy-MM-dd" calendardisplaynulltype="none"/>
                <Cell col="6" text="bind:espm_orddeptcdnm" wordwrap="char"/>
                <Cell col="7" style="align:left middle;" text="bind:espm_medispclidnm"/>
                <Cell col="8" style="align:center middle;" text="bind:espm_insukind"/>
                <Cell col="9" displaytype="combo" text="bind:espm_suppkind" combodataset="ds_init_suppkind" combocodecol="cd" combodatacol="nm"/>
                <Cell col="10" displaytype="number" text="bind:espm_erordamt" mask="9,999"/>
                <Cell col="11" displaytype="number" text="bind:espm_uncoamt" mask="9,999"/>
                <Cell col="12" displaytype="date" style="align:left middle;" text="bind:espm_appfromdd" mask="yyyy-MM-dd" calendardisplaynulltype="none"/>
                <Cell col="13" displaytype="date" style="align:left middle;" text="bind:espm_appenddd" mask="yyyy-MM-dd" calendardisplaynulltype="none"/>
                <Cell col="14" displaytype="number" text="bind:espm_clamamt" mask="9,999"/>
                <Cell col="15" displaytype="normal" style="align:left middle;" text="bind:espm_clamdd" mask="####-##-##" calendardisplaynulltype="none"/>
                <Cell col="16" displaytype="number" text="bind:espm_clamrestamt" mask="9,999"/>
                <Cell col="17" displaytype="normal" edittype="date" style="align:center middle;color:#ff0066ff;color2:#ff0066ff;font:dutum,9,bold;" text="bind:espm_rcptdd" mask="####-##-##" calendardisplaynulltype="none"/>
                <Cell col="18" displaytype="number" edittype="masknumber" style="color:#ff0066ff;color2:#ff0066ff;font:dutum,9,bold;" text="bind:espm_rcptamt" wordwrap="char" mask="9,999"/>
                <Cell col="19" displaytype="number" edittype="none" text="bind:espm_uncorestamt" mask="9,999"/>
                <Cell col="20" displaytype="text" edittype="text" style="font:dutum,9,bold;" text="bind:espm_remfact"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Div id="grp" taborder="13" position="absolute 0 25 1194 58" class="div_SA2">
          <Layouts>
            <Layout>
              <Button id="button1" taborder="0" text="조회" onclick="group3_button1_onclick" class="btn1" position="absolute 1130 6 1186 28" anchor="default"/>
              <Static id="caption7" text="~" position="absolute 348 7 359 27" style="align:center ;" anchor="default"/>
              <Static id="caption4" text="기준일자 :" class="search_name" position="absolute 19 8 105 25" anchor="default"/>
              <Shape id="line4" linetype="vertical" class="line_4" position="absolute 470 7 473 27" anchor="default"/>
              <Calendar id="ipt_fromdd" taborder="1" dateformat="yyyy-MM-dd" class="input_search" position="absolute 258 7 343 26" anchor="default" autoselect="true" autoskip="true"/>
              <Calendar id="ipt_todd" taborder="2" dateformat="yyyy-MM-dd" class="input_search" position="absolute 364 7 449 26" anchor="default" autoselect="true" autoskip="true"/>
              <Radio id="radio1" taborder="3" columncount="-1" rowcount="-1" codecolumn="codecolumn" datacolumn="datacolumn" position="absolute 109 9 254 24" anchor="default" index="-1" style="textpadding:0 3 0 3;">
                <Dataset id="innerdataset">
                  <ColumnInfo>
                    <Column id="codecolumn"/>
                    <Column id="datacolumn"/>
                  </ColumnInfo>
                  <Rows>
                    <Row>
                      <Col id="codecolumn">genrdd</Col>
                      <Col id="datacolumn">생성일자</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">clamdd</Col>
                      <Col id="datacolumn">청구일자</Col>
                    </Row>
                  </Rows>
                </Dataset>
              </Radio>
              <Edit id="ipt_pid" taborder="4" onkeyup="group3_ipt_pid_onkeyup" position="absolute 584 7 664 26" anchor="default" autoselect="true"/>
              <Button id="btn_pid" taborder="5" onclick="group3_btn_pid_onclick" class="icon_search" position="absolute 899 9 915 25" anchor="default"/>
              <Static id="caption3" text="등록번호 :" class="search_name" position="absolute 494 8 580 25" style="align:center middle;" anchor="default"/>
              <Button id="btn_excel" taborder="9" text="엑셀" onclick="group3_btn_excel_onclick" class="btn7" position="absolute 1073 6 1129 28" anchor="default"/>
              <Button id="btn_unco" taborder="10" text="미수수납" onclick="group3_btn_unco_onclick" class="btn3" position="absolute 992 6 1072 28" anchor="default"/>
              <Edit id="output3" taborder="11" readonly="true" class="output_fix" enable="false" position="absolute 815 7 890 26" style=":disabled {background:URL('theme://images/bg_edit_D.png') stretch 5,5;}"/>
              <Edit id="output2" taborder="12" readonly="true" class="output_fix" enable="false" position="absolute 738 7 813 26" style=":disabled {background:URL('theme://images/bg_edit_D.png') stretch 5,5;}"/>
              <Edit id="output1" taborder="13" readonly="true" class="output_fix" enable="false" position="absolute 666 7 736 26" style=":disabled {background:URL('theme://images/bg_edit_D.png') stretch 5,5;}"/>
            </Layout>
          </Layouts>
        </Div>
        <Shape id="line32" class="line_6" position="absolute 0 748 1194 751"/>
        <Button id="btn_save" taborder="14" text="저장" onclick="group5_btn_save_onclick" class="btn4" position="absolute 1068 753 1124 775"/>
        <Button id="btn_init" taborder="15" text="초기화" onclick="group5_btn_init_onclick" class="btn4" position="absolute 1126 753 1194 775"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_init_P0083list" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo/>
      </Dataset>
      <Dataset id="ds_main_patinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo/>
      </Dataset>
      <Dataset id="ds_main" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo/>
      </Dataset>
      <Dataset id="ds_init" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo/>
      </Dataset>
      <Dataset id="ds_temp" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo>
          <Column id="temp" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo>
          <Column id="data2" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_send_data1" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo>
          <Column id="ddflag" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="appfromdd" type="STRING" size="256"/>
          <Column id="apptodd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="ddflag"/>
            <Col id="pid"/>
            <Col id="appfromdd"/>
            <Col id="apptodd"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_send_data3" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="indd" type="STRING" size="256"/>
          <Column id="cretno" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="pid"/>
            <Col id="indd"/>
            <Col id="cretno"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_patinfo_patinfolist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="hngnm" type="STRING" size="256"/>
          <Column id="rrgstno1" type="STRING" size="256"/>
          <Column id="rrgstno2" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="pid"/>
            <Col id="hngnm"/>
            <Col id="rrgstno1"/>
            <Col id="rrgstno2"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_hidden" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo>
          <Column id="hidden" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="hidden"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_h_espm" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo/>
      </Dataset>
      <Dataset id="ds_init_P0083list_P0083" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo>
          <Column id="cdnm" type="STRING" size="256"/>
          <Column id="cdid" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="cdnm"/>
            <Col id="cdid"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_h_espm_espm" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep" oncolumnchanged="ds_main_h_espm_espm_oncolumnchanged">
        <ColumnInfo>
          <Column id="espm_ckbox" type="STRING" size="256"/>
          <Column id="espm_pid" type="STRING" size="256"/>
          <Column id="espm_hngnm" type="STRING" size="256"/>
          <Column id="espm_fromdd" type="STRING" size="256"/>
          <Column id="espm_todd" type="STRING" size="256"/>
          <Column id="espm_orddeptcd" type="STRING" size="256"/>
          <Column id="espm_orddeptcdnm" type="STRING" size="256"/>
          <Column id="espm_medispclid" type="STRING" size="256"/>
          <Column id="espm_medispclidnm" type="STRING" size="256"/>
          <Column id="espm_insukind" type="STRING" size="256"/>
          <Column id="espm_suppkind" type="STRING" size="256"/>
          <Column id="espm_uncoamt" type="STRING" size="256"/>
          <Column id="espm_appfromdd" type="STRING" size="256"/>
          <Column id="espm_appenddd" type="STRING" size="256"/>
          <Column id="espm_clamamt" type="STRING" size="256"/>
          <Column id="espm_clamdd" type="STRING" size="256"/>
          <Column id="espm_uncorestamt" type="STRING" size="256"/>
          <Column id="espm_uncocd" type="STRING" size="256"/>
          <Column id="espm_remfact" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_hidden_rcv_h_espm" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_node_bk_main" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_node_bk_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_source" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="srchcond" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_insukind" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_disccd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_suppkind" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_orddeptcd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_orddrid" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_reducd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_uncocd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_proccd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_subjno" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_rcptflag" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_hidden_data2" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_send_data2" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Bind>
      <BindItem id="item4" compid="grp.output1" propid="value" datasetid="ds_main_patinfo_patinfolist" columnid="hngnm"/>
      <BindItem id="item5" compid="grp.output2" propid="value" datasetid="ds_main_patinfo_patinfolist" columnid="rrgstno1"/>
      <BindItem id="item6" compid="grp.output3" propid="value" datasetid="ds_main_patinfo_patinfolist" columnid="rrgstno2"/>
      <BindItem id="item0" compid="grp.ipt_fromdd" propid="value" datasetid="ds_send_data1" columnid="appfromdd"/>
      <BindItem id="item1" compid="grp.ipt_todd" propid="value" datasetid="ds_send_data1" columnid="apptodd"/>
      <BindItem id="item2" compid="grp.radio1" propid="value" datasetid="ds_send_data1" columnid="ddflag"/>
      <BindItem id="item3" compid="grp.ipt_pid" propid="value" datasetid="ds_main_patinfo_patinfolist" columnid="pid"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[include "com_commonxp::comm_main.xjs"
include "com_basiccodexp::ZBC001.xjs"
include "pam_pamcomnxp::PAM001.xjs"

var arErrorCode = new HashArray();


// prefix를 삭제하기
function dsf_copyDsWithoutPrefix(destDS, srcDS, prefix) {
    destDS.clear();
    destDS.loadXML(srcDS.saveXML(srcDS, "a"));

    var objCol = new Object();
    var sColID = "";
    for (var i = 0; i < srcDS.getColCount(); i++) {
        sColID = srcDS.getColID(i);

        destDS.updateColID(sColID, String(sColID).replace(prefix, ""));
    }

    destDS.applyChange();
}


function SMPMC02402_onload(obj: Form, e: LoadEventInfo) {
    frmf_initForm(obj);
//    grdf_initGrid(grd_espm);

    ds_node_bk_main.clearData();
    ds_node_bk_send.clearData();

    ds_node_bk_main.copyData(ds_main);
    ds_node_bk_send.copyData(ds_send);

    fInitialize();

    //원무사용 기초코드 조회 cache기능 추가
    if (frmf_copyFromCache("TRPAMCOM01_depttree", ds_init_orddeptcd)) {
        frmf_copyFromCache("TRPAMCOM01_disccdtree", ds_init_disccd);
        frmf_copyFromCache("TRPAMCOM01_insukindtree", ds_init_insukind);
        frmf_copyFromCache("TRPAMCOM01_suppkindtree", ds_init_suppkind);
        frmf_copyFromCache("TRPAMCOM01_depttree", ds_init_orddeptcd);
        frmf_copyFromCache("TRPAMCOM01_orddridtree", ds_init_orddrid);
        frmf_copyFromCache("TRPAMCOM01_reducdtree", ds_init_reducd);
        frmf_copyFromCache("TRPAMCOM01_uncocdtree", ds_init_uncocd);
        frmf_copyFromCache("TRPAMCOM01_proccdtree", ds_init_proccd);
        frmf_copyFromCache("TRPAMCOM01_subjnotree", ds_init_subjno);
        frmf_copyFromCache("TRPAMCOM01_rcptflagtree", ds_init_rcptflag);

    }
    else {
        ds_hidden.clearData();
        dsf_makeValue(ds_hidden, "sess_posinstcd", "string", sysf_getUserInfo("dutplceinstcd"));

        //if ( submit("TRPAMCOM01") ) {
        var oParam = {};
        oParam.id = "TRPAMCOM01";
        oParam.service = "pamcomnapp.PamComn";
        oParam.method = "reqGetComCD";
        oParam.inds = "req=ds_hidden";
        oParam.outds = "ds_init_disccd=disccd " +
            "ds_init_insukind=insukind " +
            "ds_init_suppkind=suppkind " +
            "ds_init_orddeptcd=orddeptcd " +
            "ds_init_orddrid=orddrid " +
            "ds_init_reducd=reducd " +
            "ds_init_uncocd=uncocd " +
            "ds_init_proccd=proccd " +
            "ds_init_subjno=subjno " +
            "ds_init_rcptflag=rcptflag";
        oParam.async = false;
        oParam.callback = "cf_TRPAMCOM01";

        tranf_submit(oParam);

        if (arErrorCode.pop("TRPAMCOM01") > -1) {

            frmf_storeIntoCache("TRPAMCOM01_depttree", ds_init_orddeptcd); //,"540");

            frmf_storeIntoCache("TRPAMCOM01_disccdtree", ds_init_disccd);
            frmf_storeIntoCache("TRPAMCOM01_insukindtree", ds_init_insukind);
            frmf_storeIntoCache("TRPAMCOM01_suppkindtree", ds_init_suppkind);
            frmf_storeIntoCache("TRPAMCOM01_depttree", ds_init_orddeptcd);
            frmf_storeIntoCache("TRPAMCOM01_orddridtree", ds_init_orddrid);
            frmf_storeIntoCache("TRPAMCOM01_reducdtree", ds_init_reducd);
            frmf_storeIntoCache("TRPAMCOM01_uncocdtree", ds_init_uncocd);
            frmf_storeIntoCache("TRPAMCOM01_proccdtree", ds_init_proccd);
            frmf_storeIntoCache("TRPAMCOM01_subjnotree", ds_init_subjno);
            frmf_storeIntoCache("TRPAMCOM01_rcptflagtree", ds_init_rcptflag);
        }
    }
}

function cf_TRPAMCOM01(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}

function fInitialize() {
    ds_main.copyData(ds_node_bk_main);
    ds_send.copyData(ds_node_bk_send);

    ds_send_data1.setColumn(0, "ddflag", "clamdd");

    ds_send_data1.setColumn(0, "appfromdd", utlf_getCurrentDate().substr(0, 6) + "01");
    ds_send_data1.setColumn(0, "apptodd", utlf_getCurrentDate());

    ds_source.clearData();
    ds_source.addRow();
}

//보조유형세팅
function fEactlistClick0() {
    for (var a = 0; a < grd_espm.rows; a++) {
        var espm_insukind = ds_main_h_espm_espm.getColumn(a, "espm_insukind");
        var dsName = 'ds_init_suppkind' + a;
        dsf_createDs(dsName);
        dsName.copyData(ds_init_suppkind, false);
        dsName.filter("up == '" + espm_insukind + "' && (io == 'A' || io == 'I'");
        grd_espm.setCellProperty("Body", iCol, "combodataset", "dsName");
    }
}

//입금액 저장
function fSave() {
    if (ds_main_h_espm_espm.getCaseCount("espm_ckbox=='true' || espm_ckbox == '1' ") == 0) {
        sysf_messageBox("체크된 내역이 있어야 저장 가능합니다.", "E999");
        return;
    }

    ds_hidden_data2.clearData();
    dsf_copyColInfo(ds_hidden_data2, ds_main_h_espm_espm);

    var iSelRow = 0;

    for (var a = 0; a < ds_main_h_espm_espm.rowcount; a++) {
        if (ds_main_h_espm_espm.getColumn(a, "espm_ckbox") == "true" || ds_main_h_espm_espm.getColumn(a, "espm_ckbox") == "1") {
            ds_hidden_data2.copyRow(ds_hidden_data2.addRow(), ds_main_h_espm_espm, a);
        }
    }

    dsf_copyDsWithoutPrefix(ds_send_data2, ds_hidden_data2, "espm_");

    //if(submit("TXPMC02405")) 
    var oParam = {};
    oParam.id = "TXPMC02405";
    oParam.service = "patinfomngtapp.ERSubtApp";
    oParam.method = "reqSetEspm_Rcpt";
    oParam.inds = "req=ds_send_data2";
    oParam.outds = "ds_temp=temp";
    oParam.async = false;
    oParam.callback = "cf_TXPMC02405";

    tranf_submit(oParam);

    if (arErrorCode.pop("TXPMC02405") > -1) {
        fSearch();
    }
}

function cf_TXPMC02405(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}

//조회
function fSearch() {
    ds_send_data1.setColumn(0, "pid", ds_main_patinfo_patinfolist.getColumn(0, "pid"));

    var oParam = {};
    oParam.id = "TRPMC02407";
    oParam.service = "patinfomngtapp.ERSubtApp";
    oParam.method = "reqGetErubudList";
    oParam.inds = "req=ds_send_data1";
    oParam.outds = "ds_hidden_rcv_h_espm=espm";
    oParam.async = false;
    tranf_submit(oParam);

    dsf_copyDsWithPrefix(ds_main_h_espm_espm, ds_hidden_rcv_h_espm, "espm_");

    fEactlistClick0();
}

function group3_button1_onclick(obj: Button, e: ClickEventInfo) {
    fSearch();
}

function fGetPid() {
    ds_send_data1.setColumn(0, "pid", ds_main_patinfo_patinfolist.getColumn(0, "pid"));

    var vcheck_pid = utlf_transNullToEmpty(ds_send_data1.getColumn(0, "pid"));

    //환자번호 null체크
    if (vcheck_pid == "" || vcheck_pid == " " || vcheck_pid == "-") {
        sysf_messageBox("환자등록번호가 입력되지", "E007");
        return;
    }
    //환자번호 조건으로 인적정보 조회
    ds_source.setColumn(0, "srchcond", "1");
    ds_source.setColumn(0, "pid", ipt_pid.text);

    //환자등록번호 체크
    var oParam = {};
    oParam.id = "TRPMC02500";
    oParam.service = "patinfomngtapp.PatBaseInfo";
    oParam.method = "reqGetPatInfo";
    oParam.inds = "req=ds_source";
    oParam.outds = "ds_main_patinfo_patinfolist=patinfolist";
    oParam.async = false;
    oParam.callback = "cf_TRPMC02500";

    tranf_submit(oParam);

    if (arErrorCode.pop("TRPMC02500") > -1) {
        var vcheck_pid = ds_main_patinfo_patinfolist.getColumn(0, "pid");
        if (utlf_isNull(vcheck_pid) || vcheck_pid == " " || vcheck_pid == "-") {
            //조회내역 체크
            sysf_messageBox("존재하지 않는 등록번호", "E008"); //E008=입니다

            dsf_makeValue(ds_main_patinfo_patinfolist, "pid", "string", "");
            dsf_makeValue(ds_main_patinfo_patinfolist, "hngnm", "string", "");
            dsf_makeValue(ds_main_patinfo_patinfolist, "rrgstno1", "string", "");
            dsf_makeValue(ds_main_patinfo_patinfolist, "rrgstno2", "string", "");

            ipt_pid.setFocus();
            return;
        }
        else {
            fSearch();
        }
    }
}


function cf_TRPMC02500(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}

function group3_ipt_pid_onkeyup(obj: Edit, e: KeyEventInfo) {
    if (e.keycode == 13) {
        obj.updateToDataset();
        fGetPid();
    }
}

function group3_btn_pid_onclick(obj: Button, e: ClickEventInfo) {
    var objArg = new Object();
    objArg.arg_ds_send = ds_source;

    frmf_modal("SPPMC02500", "SPPMC02500", objArg, "", "1", "150", "150", "", "", "", "", "", "M");
}

function group3_btn_excel_onclick(obj: Button, e: ClickEventInfo) {
    grdf_exportExcel(grd_espm, 'excel', "Sheet1", true, "", 'user', true);
}

function group3_btn_unco_onclick(obj: Button, e: ClickEventInfo) {
    frmf_setParameter("SMPAM00100_PID_PARM", ds_main_h_espm_espm.getColumn(grd_espm.row, "espm_pid"));
    frmf_open("SMPAM00100", "SMPAM00100", "", "", "", "", "", "", "", "", "", "", "M");
}

function group5_btn_save_onclick(obj: Button, e: ClickEventInfo) {
    fSave();
}

function group5_btn_init_onclick(obj: Button, e: ClickEventInfo) {
    fInitialize();
}

function grd_espm_onexpanddown(obj: Grid, e: GridMouseEventInfo) {
    var iRow = ds_main_h_espm_espm.rowposition;

    ds_send_data3.setColumn(0, "pid", ds_main_h_espm_espm.getColumn(iRow, "espm_pid"));
    ds_send_data3.setColumn(0, "indd", ds_main_h_espm_espm.getColumn(iRow, "espm_inoutdd"));
    ds_send_data3.setColumn(0, "cretno", ds_main_h_espm_espm.getColumn(iRow, "espm_cretno"));

    frmf_modal("SMPMC02403", "SMPMC02403", "", "", "", "", "", "", "", "", "", "", "M");
}

function grd_espm_oncloseup(obj: Grid, e: GridEditEventInfo) {
    obj.moveToNextCell();
    var value = String(e.value).substr(0, 8);
    ds_main_h_espm_espm.setColumn(e.row, 'espm_rcptdd', value);
}

function ds_main_h_espm_espm_oncolumnchanged(obj: Dataset, e: DSColChangeEventInfo) {
    if (e.columnid == 'espm_ckbox') {
        var value = obj.getColumn(e.row, 'espm_ckbox');
        value = (value == 'true' || value == '1') ? 'true' : 'false';
        obj.setColumn(e.row, 'espm_ckbox', value);
    }
}
]]></Script>
  </Form>
</FDL>