YNU_JEUS/app_home/himed/xpapps/pam/bfjudgxp/xp/SPPIJ04600_KDRG재원일괄자동생성.xfdl

<?xml version="1.0" encoding="utf-8" standalone="no"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPPIJ04300" position="absolute 0 0 905 910" titletext="재원 KDRG 번호생성프로그램" oninit="SPPIJ04300_oninit" onload="SPPIJ04300_onload" ontimer="SPPIJ04300_ontimer">
    <Layouts>
      <Layout>
        <Div id="group1" scrollbars="autoboth" position="absolute 0 15 900 905" style="" anchor="all">
          <Layouts>
            <Layout>
              <Static id="caption1" class="tit_2" position="absolute 0 75 110 97" style="" text="대상리스트" anchor="default"/>
              <Shape id="line1" class="line_10" linetype="horizontal" position="absolute 0 89 895 100" style="" anchor="left top right"/>
              <Div id="group2" position="absolute 0 9 895 50" style="align: top;" class="div_SA" anchor="left top right">
                <Layouts>
                  <Layout>
                    <Button id="btn_select" class="btn1" taborder="32" position="absolute 834 10 890 32" style="" text="조회" onclick="group1_group2_btn_select_onclick" anchor="top right"/>
                    <Shape id="line3" class="line_4" linetype="vertical" position="absolute 825 5 828 38" style="" anchor="top right"/>
                    <Edit id="ipt_patunitsrch" class="input_search" taborder="3" position="absolute 86 10 176 29" style="" anchor="default" onkeypress="group1_group2_ipt_patunitsrch_onkeypress" onkeydown="group1_group2_ipt_patunitsrch_onkeydown"/>
                    <Static id="caption18" class="search_name" position="absolute 8 12 91 29" style="" text="환자조회" anchor="default"/>
                    <Radio datacolumn="datacolumn" codecolumn="codecolumn" columncount="-1" rowcount="-1" id="radio1" position="absolute 208 10 313 30" style="" anchor="default">
                      <Dataset id="innerdataset">
                        <ColumnInfo>
                          <Column id="codecolumn"/>
                          <Column id="datacolumn"/>
                        </ColumnInfo>
                        <Rows>
                          <Row>
                            <Col id="codecolumn">A</Col>
                            <Col id="datacolumn">재원</Col>
                          </Row>
                          <Row>
                            <Col id="codecolumn">D</Col>
                            <Col id="datacolumn">퇴원</Col>
                          </Row>
                        </Rows>
                      </Dataset>
                    </Radio>
                    <Button id="btn_cd" taborder="33" class="icon_search" position="absolute 177 10 193 29" anchor="default" onclick="group1_group2_btn_cd_onclick"/>
                    <CheckBox id="CheckBox00" taborder="34" text="KDRG번호 미생성만 보기" position="absolute 325 9 486 28" truevalue="N" falsevalue="Y" anchor="default"/>
                    <CheckBox id="chk_autorepeat" taborder="35" text="자동조회" value="0" truevalue="1" falsevalue="0" position="absolute 502 10 572 25" onchanged="group1_group2_chk_autorepeat_onchanged"/>
                    <Edit id="ipt_settime" taborder="36" class="input_search" position="absolute 578 7 616 26" onkeydown="group1_group2_ipt_settime_onkeydown" oneditclick="group1_group2_ipt_settime_oneditclick"/>
                    <Static id="caption7" text="초" position="absolute 621 9 641 29"/>
                  </Layout>
                </Layouts>
              </Div>
              <Button id="button3" class="btn4" position="absolute 839 866 895 888" style="" text="종료" onclick="group1_button3_onclick" anchor="default"/>
              <Button id="button4" class="btn4" position="absolute 792 69 896 91" style="" text="DRG번호생성" onclick="group1_button4_onclick" anchor="top right"/>
              <Button id="button1" class="btn4" position="absolute 666 69 790 91" style="" text="대상자수집 실행" onclick="group1_button1_onclick" anchor="top right"/>
              <Button id="button2" class="btn4" enable="False" visible="false" position="absolute 604 867 660 889" style="" text="배포" onclick="group1_button2_onclick" anchor="default"/>
              <Grid id="grd_kdrglist" binddataset="ds_main_drginfo" class="datagrid3" position="absolute 0 96 895 420" style="align:center ;" onscrollpos="group1_grd_kdrglist_onscrollpos" onscroll="group1_grd_kdrglist_onscroll" anchor="all">
                <Formats>
                  <Format id="default">
                    <Columns>
                      <Column size="25"/>
                      <Column size="60"/>
                      <Column size="50"/>
                      <Column size="31"/>
                      <Column size="51"/>
                      <Column size="52"/>
                      <Column size="100"/>
                      <Column size="72"/>
                      <Column size="74"/>
                      <Column size="81"/>
                      <Column size="69"/>
                      <Column size="37"/>
                      <Column size="69"/>
                      <Column size="45"/>
                      <Column size="301"/>
                      <Column size="46"/>
                      <Column size="302"/>
                      <Column size="45"/>
                      <Column size="301"/>
                      <Column size="45"/>
                      <Column size="299"/>
                      <Column size="166"/>
                      <Column size="49"/>
                      <Column size="54"/>
                      <Column size="43"/>
                      <Column size="45"/>
                      <Column size="43"/>
                      <Column size="60"/>
                      <Column size="56"/>
                      <Column size="43"/>
                      <Column size="70"/>
                      <Column size="50"/>
                      <Column size="50"/>
                      <Column size="50"/>
                      <Column size="50"/>
                      <Column size="50"/>
                      <Column size="50"/>
                      <Column size="50"/>
                      <Column size="50"/>
                      <Column size="50"/>
                      <Column size="50"/>
                      <Column size="50"/>
                      <Column size="50"/>
                      <Column size="50"/>
                      <Column size="50"/>
                      <Column size="50"/>
                      <Column size="50"/>
                      <Column size="50"/>
                      <Column size="50"/>
                      <Column size="50"/>
                      <Column size="50"/>
                      <Column size="50"/>
                      <Column size="50"/>
                      <Column size="53"/>
                      <Column size="198"/>
                      <Column size="50"/>
                      <Column size="50"/>
                      <Column size="50"/>
                      <Column size="50"/>
                      <Column size="50"/>
                      <Column size="50"/>
                      <Column size="50"/>
                      <Column size="50"/>
                      <Column size="50"/>
                      <Column size="50"/>
                      <Column size="50"/>
                      <Column size="50"/>
                      <Column size="50"/>
                      <Column size="50"/>
                      <Column size="50"/>
                      <Column size="50"/>
                      <Column size="50"/>
                      <Column size="50"/>
                      <Column size="50"/>
                      <Column size="0"/>
                      <Column size="0"/>
                      <Column size="0"/>
                    </Columns>
                    <Rows>
                      <Row size="44" 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" 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="입원&#10;일수"/>
                      <Cell col="12" text="진료결과"/>
                      <Cell col="13" text="주상병"/>
                      <Cell col="14" text="주상병명"/>
                      <Cell col="15" text="제1&#10;부상병"/>
                      <Cell col="16" text="제1부상병명"/>
                      <Cell col="17" text="처치&#10;코드1"/>
                      <Cell col="18" text="처치명1"/>
                      <Cell col="19" text="처치&#10;코드2"/>
                      <Cell col="20" text="처치명2"/>
                      <Cell col="21" text="알콜및약물중독재활지료코드"/>
                      <Cell col="22" text="입원시&#10;체중(g)"/>
                      <Cell col="23" text="인공&#10;호흡시간&#10;(hour)"/>
                      <Cell col="24" text="MDC"/>
                      <Cell col="25" text="ADRG"/>
                      <Cell col="26" text="PCCL"/>
                      <Cell col="27" text="DRG&#10;분류번호"/>
                      <Cell col="28" text="version"/>
                      <Cell col="29" text="낮병동&#10;유무"/>
                      <Cell col="30" text="응급실퇴원&#10;유무"/>
                      <Cell col="31" text="대분류"/>
                      <Cell col="32" text="진단코드&#13;&#10;3"/>
                      <Cell col="33" text="진단코드&#13;&#10;4"/>
                      <Cell col="34" text="진단코드&#13;&#10;5"/>
                      <Cell col="35" text="진단코드&#13;&#10;6"/>
                      <Cell col="36" text="진단코드&#13;&#10;7"/>
                      <Cell col="37" text="진단코드&#13;&#10;8"/>
                      <Cell col="38" text="진단코드&#13;&#10;9"/>
                      <Cell col="39" text="진단코드&#13;&#10;10"/>
                      <Cell col="40" text="시술코드&#13;&#10;3"/>
                      <Cell col="41" text="시술코드&#13;&#10;4"/>
                      <Cell col="42" text="시술코드&#13;&#10;5"/>
                      <Cell col="43" text="시술코드&#13;&#10;6"/>
                      <Cell col="44" text="시술코드&#13;&#10;7"/>
                      <Cell col="45" text="시술코드&#13;&#10;8"/>
                      <Cell col="46" text="시술코드&#13;&#10;9"/>
                      <Cell col="47" text="시술코드&#13;&#10;10"/>
                      <Cell col="48" text="검사코드&#13;&#10;1"/>
                      <Cell col="49" text="검사코드&#13;&#10;2"/>
                      <Cell col="50" text="검사코드&#13;&#10;3"/>
                      <Cell col="51" text="검사코드&#13;&#10;4"/>
                      <Cell col="52" text="검사코드&#13;&#10;5"/>
                      <Cell col="53" text="방사선코&#13;&#10;드1"/>
                      <Cell col="54" text="방사선명1"/>
                      <Cell col="55" text="방사선코&#13;&#10;드2"/>
                      <Cell col="56" text="방사선코&#13;&#10;드3"/>
                      <Cell col="57" text="방사선코&#13;&#10;드4"/>
                      <Cell col="58" text="방사선코&#13;&#10;드5"/>
                      <Cell col="59" text="주사및혈&#13;&#10;액제제코&#13;&#10;드 1"/>
                      <Cell col="60" text="주사및혈&#13;&#10;액제제코&#13;&#10;드 2"/>
                      <Cell col="61" text="주사및혈&#13;&#10;액제제코&#13;&#10;드 3"/>
                      <Cell col="62" text="주사및혈&#13;&#10;액제제코&#13;&#10;드 4"/>
                      <Cell col="63" text="주사및혈&#13;&#10;액제제코&#13;&#10;드 5"/>
                      <Cell col="64" text="마취및호&#13;&#10;흡치료코&#13;&#10;드1"/>
                      <Cell col="65" text="마취및호&#13;&#10;흡치료코&#13;&#10;드2"/>
                      <Cell col="66" text="마취및호&#13;&#10;흡치료코&#13;&#10;드3"/>
                      <Cell col="67" text="마취및호&#13;&#10;흡치료코&#13;&#10;드4"/>
                      <Cell col="68" text="마취및호&#13;&#10;흡치료코&#13;&#10;드5"/>
                      <Cell col="69" text="부가코드&#13;&#10;1"/>
                      <Cell col="70" text="부가코드&#13;&#10;2"/>
                      <Cell col="71" text="부가코드&#13;&#10;3"/>
                      <Cell col="72" text="부가코드&#13;&#10;4"/>
                      <Cell col="73" text="부가코드&#13;&#10;5"/>
                      <Cell col="74" text="caption1"/>
                      <Cell col="75" text="caption2"/>
                      <Cell col="76" text="caption3"/>
                    </Band>
                    <Band id="body">
                      <Cell celltype="head" expr="currow+1"/>
                      <Cell col="1" text="bind:pid"/>
                      <Cell col="2" text="bind:hngnm"/>
                      <Cell col="3" text="bind:age"/>
                      <Cell col="4" text="bind:rrgstno1"/>
                      <Cell col="5" text="bind:rrgstno2"/>
                      <Cell col="6" displaytype="combo" style="align:center middle;" text="bind:orddeptcd" combodataset="ds_init_orddeptcd2_orddeptcdlist" combocodecol="cd" combodatacol="nm"/>
                      <Cell col="7" text="bind:orddrnm" combodataset="ds_init_P0008list"/>
                      <Cell col="8" text="bind:insukind" combodataset="ds_init_P0008list" combocodecol="cdid" combodatacol="cdnm"/>
                      <Cell col="9" text="bind:suppkind" combodataset="ds_init_P0010list" combocodecol="cdid" combodatacol="cdnm"/>
                      <Cell col="10" text="bind:indd"/>
                      <Cell col="11" text="bind:chosindayno"/>
                      <Cell col="12" text="bind:ordrsltcd" combodataset="ds_init_P0110list" combocodecol="cdid" combodatacol="cdnm"/>
                      <Cell col="13" text="bind:diagcd1"/>
                      <Cell col="14" style="align:left middle;" text="bind:diagnm1"/>
                      <Cell col="15" text="bind:diagcd2"/>
                      <Cell col="16" style="align:left middle;" text="bind:diagnm2"/>
                      <Cell col="17" text="bind:opcd1"/>
                      <Cell col="18" style="align:left middle;" text="bind:opnm1"/>
                      <Cell col="19" text="bind:opcd2"/>
                      <Cell col="20" style="align:left middle;" text="bind:opnm2"/>
                      <Cell col="21" text="bind:ncvcd"/>
                      <Cell col="22" text="bind:bw"/>
                      <Cell col="23" text="bind:vtl"/>
                      <Cell col="24" text="bind:mdcno"/>
                      <Cell col="25" text="bind:adrg"/>
                      <Cell col="26" text="bind:pccl"/>
                      <Cell col="27" text="bind:drgno"/>
                      <Cell col="28" text="bind:version"/>
                      <Cell col="29" text="bind:dayward"/>
                      <Cell col="30" text="bind:ioflagyn"/>
                      <Cell col="31" text="bind:drgtype"/>
                      <Cell col="32" text="bind:diagcd3"/>
                      <Cell col="33" text="bind:diagcd4"/>
                      <Cell col="34" text="bind:diagcd5"/>
                      <Cell col="35" text="bind:diagcd6"/>
                      <Cell col="36" text="bind:diagcd7"/>
                      <Cell col="37" text="bind:diagcd8"/>
                      <Cell col="38" text="bind:diagcd9"/>
                      <Cell col="39" text="bind:diagcd10"/>
                      <Cell col="40" text="bind:opcd3"/>
                      <Cell col="41" text="bind:opcd4"/>
                      <Cell col="42" text="bind:opcd5"/>
                      <Cell col="43" text="bind:opcd6"/>
                      <Cell col="44" text="bind:opcd7"/>
                      <Cell col="45" text="bind:opcd8"/>
                      <Cell col="46" text="bind:opcd9"/>
                      <Cell col="47" text="bind:opcd10"/>
                      <Cell col="48" text="bind:excd1"/>
                      <Cell col="49" text="bind:excd2"/>
                      <Cell col="50" text="bind:excd3"/>
                      <Cell col="51" text="bind:excd4"/>
                      <Cell col="52" text="bind:excd5"/>
                      <Cell col="53" text="bind:rgcd1"/>
                      <Cell col="54" style="align:left middle;" text="bind:rgnm1" wordwrap="word"/>
                      <Cell col="55" text="bind:rgcd2"/>
                      <Cell col="56" text="bind:rgcd3"/>
                      <Cell col="57" text="bind:rgcd4"/>
                      <Cell col="58" text="bind:rgcd5"/>
                      <Cell col="59" text="bind:ibcd1"/>
                      <Cell col="60" text="bind:ibcd2"/>
                      <Cell col="61" text="bind:ibcd3"/>
                      <Cell col="62" text="bind:ibcd4"/>
                      <Cell col="63" text="bind:ibcd5"/>
                      <Cell col="64" text="bind:arcd1"/>
                      <Cell col="65" text="bind:arcd2"/>
                      <Cell col="66" text="bind:arcd3"/>
                      <Cell col="67" text="bind:arcd4"/>
                      <Cell col="68" text="bind:arcd5"/>
                      <Cell col="69" text="bind:detailcd1" combodataset="ds_init_PK015list" combocodecol="cdid" combodatacol="cdnm"/>
                      <Cell col="70" text="bind:detailcd2" combodataset="ds_init_PK015list" combocodecol="cdid" combodatacol="cdnm"/>
                      <Cell col="71" text="bind:detailcd3" combodataset="ds_init_PK015list" combocodecol="cdid" combodatacol="cdnm"/>
                      <Cell col="72" text="bind:detailcd4" combodataset="ds_init_PK015list" combocodecol="cdid" combodatacol="cdnm"/>
                      <Cell col="73" text="bind:detailcd5" combodataset="ds_init_PK015list" combocodecol="cdid" combodatacol="cdnm"/>
                      <Cell col="74" text="bind:seqno"/>
                      <Cell col="75" text="bind:ordfromdd"/>
                      <Cell col="76" text="bind:tdrgnm"/>
                    </Band>
                  </Format>
                </Formats>
              </Grid>
              <Button id="btn_excelsave" class="btn7" position="absolute 585 72 665 91" style="" text="엑셀저장" onclick="group1_btn_excelsave_onclick" anchor="top right"/>
              <Button id="btn_cretrslt" class="btn2" position="absolute 486 72 583 91" style="align:center ;" text="생성로그확인" onclick="group1_btn_cretrslt_onclick" anchor="top right"/>
              <Grid id="Grid00" taborder="1" useinputpanel="false" position="absolute 2 435 895 865" binddataset="ds_log">
                <Formats>
                  <Format id="default">
                    <Columns>
                      <Column size="623"/>
                      <Column size="209"/>
                    </Columns>
                    <Rows>
                      <Row size="24" band="head"/>
                      <Row size="24"/>
                    </Rows>
                    <Band id="head">
                      <Cell text="로그"/>
                      <Cell col="1" text="날짜 시간"/>
                    </Band>
                    <Band id="body">
                      <Cell displaytype="text" text="bind:msg"/>
                      <Cell col="1" displaytype="date" text="bind:dd" mask="yyyy-MM-dd HH:mm:ss"/>
                    </Band>
                  </Format>
                </Formats>
              </Grid>
            </Layout>
          </Layouts>
        </Div>
        <Static id="cap_title" text="KDRG 번호생성프로그램" class="tit_1" position="absolute 0 0 219 23"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="filepath" type="STRING" size="256"/>
          <Column id="file" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="clamfromym" type="STRING" size="256"/>
          <Column id="clamtoym" type="STRING" size="256"/>
          <Column id="clamym" type="STRING" size="256"/>
          <Column id="offset" type="STRING" size="256"/>
          <Column id="instcd" type="STRING" size="256"/>
          <Column id="indschacptstat" type="STRING" size="256"/>
          <Column id="drgnocretyn" type="STRING" size="256"/>
          <Column id="idrgnocretyn" type="STRING" size="256"/>
          <Column id="infilenm" type="STRING" size="256"/>
          <Column id="autorepeat" type="STRING" size="256"/>
          <Column id="settime" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="filepath"/>
            <Col id="file"/>
            <Col id="pid"/>
            <Col id="clamfromym"/>
            <Col id="clamtoym"/>
            <Col id="clamym"/>
            <Col id="offset"/>
            <Col id="instcd">031</Col>
            <Col id="indschacptstat">A</Col>
            <Col id="drgnocretyn">N</Col>
            <Col id="settime">1200</Col>
            <Col id="autorepeat">1</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_init_P0008list" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cdnm" type="STRING" size="256"/>
          <Column id="cdid" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_P0155list" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cdnm" type="STRING" size="256"/>
          <Column id="cdid" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_P0010list" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cdnm" type="STRING" size="256"/>
          <Column id="cdid" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_P0110list" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cdnm" type="STRING" size="256"/>
          <Column id="cdid" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_PK015list" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cdnm" type="STRING" size="256"/>
          <Column id="cdid" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_PK016list" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cdnm" type="STRING" size="256"/>
          <Column id="cdid" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_PK054list" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cdnm" type="STRING" size="256"/>
          <Column id="cdid" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_PK055list" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cdnm" type="STRING" size="256"/>
          <Column id="cdid" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_orddeptcd2_orddeptcdlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cd" type="STRING" size="256"/>
          <Column id="nm" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_hidden_sppmc02500_cond" 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>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_patinfolist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_main_drginfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="seqno" type="STRING" size="256" sumtext="작업회차"/>
          <Column id="ordfromdd" type="STRING" size="256" sumtext="요양개시일자"/>
          <Column id="orddeptcd" type="STRING" size="256" sumtext="부서"/>
          <Column id="insukind" type="STRING" size="256" sumtext="보험유형"/>
          <Column id="suppkind" type="STRING" size="256" sumtext="보조유형"/>
          <Column id="hngnm" type="STRING" size="256" sumtext="환자명"/>
          <Column id="cretno" type="STRING" size="256" sumtext="생성번호"/>
          <Column id="indd" type="STRING" size="256" sumtext="입원일자"/>
          <Column id="pid" type="STRING" size="256" sumtext="환자번호"/>
          <Column id="instcd" type="STRING" size="256" sumtext="기관코드"/>
          <Column id="histstat" type="STRING" size="256" sumtext="이력상태"/>
          <Column id="proccorpcd" type="STRING" size="256" sumtext="요양기관번호"/>
          <Column id="rrgstno1" type="STRING" size="256" sumtext="주민번호1"/>
          <Column id="rrgstno2" type="STRING" size="256" sumtext="주민번호2"/>
          <Column id="chosindayno" type="STRING" size="256" sumtext="입원일수"/>
          <Column id="ordrsltcd" type="STRING" size="256" sumtext="퇴원진료결과"/>
          <Column id="dschnotiyn" type="STRING" size="256" sumtext="퇴원확정구분"/>
          <Column id="age" type="STRING" size="256" sumtext="나이"/>
          <Column id="diagcd1" type="STRING" size="256" sumtext="진단코드1"/>
          <Column id="diagcd2" type="STRING" size="256" sumtext="진단코드2"/>
          <Column id="diagcd3" type="STRING" size="256" sumtext="진단코드3"/>
          <Column id="diagcd4" type="STRING" size="256" sumtext="진단코드4"/>
          <Column id="diagcd5" type="STRING" size="256" sumtext="진단코드5"/>
          <Column id="diagcd6" type="STRING" size="256" sumtext="진단코드6"/>
          <Column id="diagcd7" type="STRING" size="256" sumtext="진단코드7"/>
          <Column id="diagcd8" type="STRING" size="256" sumtext="진단코드8"/>
          <Column id="diagcd9" type="STRING" size="256" sumtext="진단코드9"/>
          <Column id="diagcd10" type="STRING" size="256" sumtext="진단코드10"/>
          <Column id="opcd1" type="STRING" size="256" sumtext="시술코드1"/>
          <Column id="opcd2" type="STRING" size="256" sumtext="시술코드2"/>
          <Column id="opcd3" type="STRING" size="256" sumtext="시술코드3"/>
          <Column id="opcd4" type="STRING" size="256" sumtext="시술코드4"/>
          <Column id="opcd5" type="STRING" size="256" sumtext="시술코드5"/>
          <Column id="opcd6" type="STRING" size="256" sumtext="시술코드6"/>
          <Column id="opcd7" type="STRING" size="256" sumtext="시술코드7"/>
          <Column id="opcd8" type="STRING" size="256" sumtext="시술코드8"/>
          <Column id="opcd9" type="STRING" size="256" sumtext="시술코드9"/>
          <Column id="opcd10" type="STRING" size="256" sumtext="시술코드10"/>
          <Column id="excd1" type="STRING" size="256" sumtext="검사코드1"/>
          <Column id="excd2" type="STRING" size="256" sumtext="검사코드2"/>
          <Column id="excd3" type="STRING" size="256" sumtext="검사코드3"/>
          <Column id="excd4" type="STRING" size="256" sumtext="검사코드4"/>
          <Column id="excd5" type="STRING" size="256" sumtext="검사코드5"/>
          <Column id="rgcd1" type="STRING" size="256" sumtext="방사선코드1"/>
          <Column id="rgcd2" type="STRING" size="256" sumtext="방사선코드2"/>
          <Column id="rgcd3" type="STRING" size="256" sumtext="방사선코드3"/>
          <Column id="rgcd4" type="STRING" size="256" sumtext="방사선코드4"/>
          <Column id="rgcd5" type="STRING" size="256" sumtext="방사선코드5"/>
          <Column id="ibcd1" type="STRING" size="256" sumtext="주사및혈액제제코드1"/>
          <Column id="ibcd2" type="STRING" size="256" sumtext="주사및혈액제제코드2"/>
          <Column id="ibcd3" type="STRING" size="256" sumtext="주사및혈액제제코드3"/>
          <Column id="ibcd4" type="STRING" size="256" sumtext="주사및혈액제제코드4"/>
          <Column id="ibcd5" type="STRING" size="256" sumtext="주사및혈액제제코드5"/>
          <Column id="arcd1" type="STRING" size="256" sumtext="마취및호흡치료코드1"/>
          <Column id="arcd2" type="STRING" size="256" sumtext="마취및호흡치료코드2"/>
          <Column id="arcd3" type="STRING" size="256" sumtext="마취및호흡치료코드3"/>
          <Column id="arcd4" type="STRING" size="256" sumtext="마취및호흡치료코드4"/>
          <Column id="arcd5" type="STRING" size="256" sumtext="마취및호흡치료코드5"/>
          <Column id="ncvcd" type="STRING" size="256" sumtext="알콜및약물중독재활치료코드"/>
          <Column id="detailcd1" type="STRING" size="256" sumtext="부가코드1"/>
          <Column id="detailcd2" type="STRING" size="256" sumtext="부가코드2"/>
          <Column id="detailcd3" type="STRING" size="256" sumtext="부가코드3"/>
          <Column id="detailcd4" type="STRING" size="256" sumtext="부가코드4"/>
          <Column id="detailcd5" type="STRING" size="256" sumtext="부가코드5"/>
          <Column id="bw" type="STRING" size="256" sumtext="입원시체중(만1세미만)"/>
          <Column id="vtl" type="STRING" size="256" sumtext="인공호흡시간(hour, 만1세미만)"/>
          <Column id="mdcno" type="STRING" size="256" sumtext="MDC번호"/>
          <Column id="adrg" type="STRING" size="256" sumtext="adrg"/>
          <Column id="pccl" type="STRING" size="256" sumtext="pccl"/>
          <Column id="drgno" type="STRING" size="256" sumtext="DRG분류번호"/>
          <Column id="drggbn" type="STRING" size="256" sumtext="DRG구분"/>
          <Column id="version" type="STRING" size="256" sumtext="버젼"/>
          <Column id="drgnm" type="STRING" size="256" sumtext="DRG명칭"/>
          <Column id="nightflag" type="STRING" size="256" sumtext="야간,공휴가산"/>
          <Column id="totalamt" type="STRING" size="256" sumtext="행위별 총진료비"/>
          <Column id="nopyamt" type="STRING" size="256" sumtext="행위별 비급여액"/>
          <Column id="allownbamt" type="STRING" size="256" sumtext="DRG 전액본인부담액"/>
          <Column id="payamt" type="STRING" size="256" sumtext="DRG열외군보상금액"/>
          <Column id="specamt" type="STRING" size="256" sumtext="행위별 선택진료비"/>
          <Column id="totownbamt" type="STRING" size="256" sumtext="행위별 본인부담총액 (급여본인부담+전액본인부담+비급여+선택진료)"/>
          <Column id="payownbamt" type="STRING" size="256" sumtext="행위별 급여본인부담금"/>
          <Column id="payinsubamt" type="STRING" size="256" sumtext="행위별 급여보험자부담금"/>
          <Column id="drgnopyamt" type="STRING" size="256" sumtext="DRG 법정비급여액"/>
          <Column id="drgpayamt" type="STRING" size="256" sumtext="DRG 급여액"/>
          <Column id="drgeatamt" type="STRING" size="256" sumtext="DRG 식대"/>
          <Column id="drggsaddamt" type="STRING" size="256" sumtext="DRG 외과가산"/>
          <Column id="drgtotalamt" type="STRING" size="256" sumtext="DRG 총진료비 (DRG급여액+DRG식대+DRG외과가산+DRG법정비급여액)"/>
          <Column id="drgownbamt" type="STRING" size="256" sumtext="DRG 본인부담금"/>
          <Column id="drginsubamt" type="STRING" size="256" sumtext="DRG 보험자부담금"/>
          <Column id="drggapamt" type="STRING" size="256" sumtext="DRG 차액"/>
          <Column id="grupgbn" type="STRING" size="256" sumtext="열외군 구분 (N:정상군,H:상단열외군,L:하단열외군)"/>
          <Column id="tdrgno" type="STRING" size="256" sumtext="임시 DRG 분류번호"/>
          <Column id="tdrgnm" type="STRING" size="256" sumtext="임시 DRG 명칭"/>
          <Column id="drgeatownbamt" type="STRING" size="256" sumtext="DRG 식대 본인부담"/>
          <Column id="drgeatinsubamt" type="STRING" size="256" sumtext="DRG 식대 보험자부담"/>
          <Column id="drggsaddownbamt" type="STRING" size="256" sumtext="DRG 외과가산 본인부담"/>
          <Column id="drggsaddinsubamt" type="STRING" size="256" sumtext="DRG 외과가산 보험자부담"/>
          <Column id="drgpaydiscamt" type="STRING" size="256" sumtext="DRG급여할인금액"/>
          <Column id="drgnopydiscamt" type="STRING" size="256" sumtext="DRG비급여할인금액"/>
          <Column id="drgspecdiscamt" type="STRING" size="256" sumtext="DRG선택진료할인금액"/>
          <Column id="drgeatdiscamt" type="STRING" size="256" sumtext="DRG식대할인금액"/>
          <Column id="drggsadddiscamt" type="STRING" size="256" sumtext="DRG외과가산할인금액"/>
          <Column id="drgallownbamt" type="STRING" size="256" sumtext="DRG 전액본인부담액"/>
          <Column id="drgoverpayinsubamt" type="STRING" size="256" sumtext="DRG열외군보상보험자부담"/>
          <Column id="drgoverpayamt" type="STRING" size="256" sumtext="DRG열외군보상금액"/>
          <Column id="drgoverpayownbamt" type="STRING" size="256" sumtext="DRG열외군보상본인부담"/>
          <Column id="nodata" type="STRING" size="256" sumtext="임시DRG생성유무"/>
          <Column id="accnopyamt" type="STRING" size="256" sumtext="행위별법정비급여액"/>
          <Column id="drgpayownbamt" type="STRING" size="256" sumtext="DRG 급여본인부담총"/>
          <Column id="obgaaddyn" type="STRING" size="256" sumtext="산부인과가산 유무"/>
          <Column id="drgaccpayamt" type="STRING" size="256" sumtext="DRG 인정급여총액"/>
          <Column id="drgaccpayownbamt" type="STRING" size="256" sumtext="DRG 인정급여본인부담금"/>
          <Column id="drgaccpayinsubamt" type="STRING" size="256" sumtext="DRG 인정급여보험자부담금"/>
          <Column id="drgaccpaydiscamt" type="STRING" size="256" sumtext="DRG 인정급여할인금액"/>
          <Column id="accnopygapamt" type="STRING" size="256" sumtext="DRG 행위별비급여단기차액"/>
          <Column id="robotyn" type="STRING" size="256" sumtext="DRG 로봇수술유무"/>
          <Column id="drgrobotamt" type="STRING" size="256" sumtext="DRG 로봇수술제외금액"/>
          <Column id="drgrobotinsubamt" type="STRING" size="256" sumtext="DRG 로봇수술보험자부담제외금액"/>
          <Column id="drgrobotownbamt" type="STRING" size="256" sumtext="DRG 로봇수술본인부담제외금액"/>
          <Column id="drgtype" type="STRING" size="256" sumtext="drgtype"/>
          <Column id="opnm1" type="STRING" size="256" sumtext="opnm1"/>
          <Column id="opnm2" type="STRING" size="256" sumtext="opnm2"/>
          <Column id="diagnm1" type="STRING" size="256" sumtext="diagnm1"/>
          <Column id="diagnm2" type="STRING" size="256" sumtext="diagnm2"/>
          <Column id="rgnm1" type="STRING" size="256" sumtext="rgnm1"/>
          <Column id="orddrnm" type="STRING" size="256" sumtext="orddrnm"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_main_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" sumtext="퇴원여부"/>
          <Column id="indayyn" type="STRING" size="256" sumtext="재원30일여부"/>
          <Column id="drgyn" type="STRING" size="256" sumtext="DRG여부"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_filelist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="attfilecnts" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_attachfile" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="filedata" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_drginfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_send_attach" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="filenm" type="STRING" size="256" sumtext="첨부파일명"/>
          <Column id="filedata" type="" size="256" sumtext="첨부파일데이터"/>
          <Column id="filesize" type="STRING" size="256" sumtext="첨부파일크기"/>
          <Column id="filetype" type="STRING" size="256" sumtext="파일종류"/>
          <Column id="file" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_tmp_attach" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="filenm" type="STRING" size="256"/>
          <Column id="filesize" type="INT" size="256"/>
          <Column id="filetype" type="STRING" size="256"/>
          <Column id="filedata" type="BLOB" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_log" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="msg" type="STRING" size="256"/>
          <Column id="dd" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="group1.group2.ipt_patunitsrch" propid="value" datasetid="ds_send" columnid="pid"/>
      <BindItem id="item1" compid="group1.group2.radio1" propid="value" datasetid="ds_send" columnid="indschacptstat"/>
      <BindItem id="item2" compid="group1.group2.CheckBox00" propid="value" datasetid="ds_send" columnid="drgnocretyn"/>
      <BindItem id="item33" compid="group1.group2.chk_autorepeat" propid="value" datasetid="ds_send" columnid="autorepeat"/>
      <BindItem id="item34" compid="group1.group2.ipt_settime" propid="value" datasetid="ds_send" columnid="settime"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2016-07-22
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2016-07-22      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs";
include "pam_pamcomnxp::PAM001.xjs";

var fldr =  "";
var infile = "";
var outfile = "";

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

function SPPIJ04300_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(group1.grd_kdrglist);
	
	var arrParam =	[{dsNm: "ds_init_P0008list", cdGrpId: "P0008"}
					,{dsNm: "ds_init_P0155list", cdGrpId: "P0155"}
					,{dsNm: "ds_init_P0010list", cdGrpId: "P0010"}// 보조유형
					,{dsNm: "ds_init_P0110list", cdGrpId: "P0110"}]
	appf_getCodeList(arrParam);	
	
	var arrParam = new Array();
	
	arrParam = [ {dsNm: "ds_init_PK015list", cdGrpId: "PK015", showValue: true}
				,{dsNm: "ds_init_PK016list", cdGrpId: "PK016", showValue: true}
				,{dsNm: "ds_init_PK054list", cdGrpId: "PK054", showValue: true}
				,{dsNm: "ds_init_PK055list", cdGrpId: "PK055", showValue: true}];
	
	pamfGetCodeList(arrParam, true, "");
	
	dsf_createDsRow("ds_send_req",	[{col:"ioflag", val:""}]);
									
	var oParam = {};
		oParam.id          = "TRPID20309";
		oParam.service     = "aftjudgapp.InAftJudgTrgtMan";
		oParam.method      = "reqGetDeptCDDrID";
		oParam.inds        = "req=ds_send_req";
		oParam.outds       = "ds_init_orddeptcd2_orddeptcdlist=orddeptcd2";
		oParam.async       = true;
		oParam.force       = true;
		//oParam.callback    = "cf_TRPID20309";

	tranf_submit(oParam);
	
	fInitialize();	
}

function fInitialize()
{
	var gToday 	= new Date();
	var gBaseyear  = gToday.getDateFormat("YYYY");	// (dateHelper.js)에서 제공하는 함수를 사용하여 해당 년를 구한다.
	var gBasemonth = gToday.getDateFormat("MM");
	var gBaseday   = gToday.getDateFormat("DD");
	var gCurrentdd  = gBaseyear + gBasemonth + gBaseday;
	var gCurrentym  = gBaseyear + gBasemonth;
	var gUserid 	= sysf_getUserId();
	
	ds_send.setColumn(0, "instcd", sysf_getUserInfo("dutplceinstcd"));
	
	fSetAutoRepeat();
}

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

function group1_group2_btn_cd_onclick(obj:Button,  e:ClickEventInfo)
{
	var ipt_pid = group1.group2.ipt_patunitsrch.value;
	
	ds_hidden_sppmc02500_cond.setColumn(0, "srchcond", "1");
	ds_hidden_sppmc02500_cond.setColumn(0, "pid", ipt_pid);
	
	var objArg = new Object();
		objArg.arg_ds_send = ds_hidden_sppmc02500_cond;
		
	frmf_modal("SPPMC02500", "SPPMC02500", objArg, "", "", "", "", "", "", "", "", "", "M");
	
	var srch_pid = ds_patinfolist.getColumn(0, "pid");
	
	if (srch_pid)
	{
		ds_patinfolist.clearData();
		ds_send.setColumn(0, "pid", srch_pid);
	}
}

function group1_group2_btn_select_onclick(obj:Button,  e:ClickEventInfo)
{
	fGetDocuList();
}

function fGetDocuList() 
{
	var offcnt = ds_main_drginfo.rowcount;
	
	if(offcnt >= 10000)
	{
		ds_send.setColumn(0, "offset", offcnt);
	} 
	else 
	{
		
	}
	
	var oParam = {};
		oParam.id          = "TRPIJ04211";
		oParam.service     = "bfjudgapp.DRGJudgList";
		oParam.method      = "reqGetKDrgAllList";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_main_drginfo=drginfo";
		oParam.async       = true;
		oParam.force       = true;
		oParam.callback    = "cf_TRPIJ04211";

	tranf_submit(oParam);
}

function cf_TRPIJ04211(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) return;
    
    if (ds_main_drginfo.rowcount > 0){
		group1.button4.click();
    }
}

function group1_btn_cretrslt_onclick(obj:Button,  e:ClickEventInfo)
{
	var todd = utlf_getCurrentDate();
	todd = todd.toDate().getAddDate(+1, "D").getDateFormat();
	
	var objArg = new Object();
		objArg.todd = todd;	
		objArg.execrid = sysf_getUserId();
		objArg.prgmid = "BfKdrgListBatch";
		
	frmf_open("SPZSB00301", "SPZSB00301", objArg, "","","","","","","","","","M");
}

function group1_btn_excelsave_onclick(obj:Button,  e:ClickEventInfo)
{
	if(ds_main_drginfo.rowcount == 0)
	{
		sysf_messageBox("엑셀저장할 내역이", "I004");		///엑셀저장할 내역이 없습니다.
	}
	else
	{
		grdf_exportExcel(group1.grd_kdrglist, "", "see");
	}
}

function group1_button1_onclick(obj:Button,  e:ClickEventInfo)
{
	var oParam = {};
		oParam.id          = "TRPIJ04201";
		oParam.service     = "bfjudgapp.DRGJudgList";
		oParam.method      = "reqExeBfJudgKdrgBatch";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_main_chklist=chklist";
		oParam.async       = false;
		oParam.force       = true;
		//oParam.callback    = "cf_TRPIJ04201";

	tranf_submit(oParam);
	
	//group1_btn_cretrslt_onclick();
}

function group1_button4_onclick(obj:Button,  e:ClickEventInfo)
{
	fldr =  system.convertRealPath("%MYDOCUMENT%") + "\KU20\\" + ds_init_PK054list.lookupExpr("cdid=='06'","cdnm") +"\\"//"//KDRG";
	infile = ds_init_PK054list.lookupExpr("cdid=='02'","cdnm");//"kdrg33.in";
	outfile = ds_init_PK054list.lookupExpr("cdid=='03'","cdnm");//"kdrg33.out";

	var exefile = ds_init_PK054list.lookup("cdid", "04", "cdnm");
	var updfileyn = ds_init_PK054list.lookup("cdid", "05", "cdnm");
	var fso;
	var nofile = "";

	ds_send_attach.setColumn(0, "file", fldr+outfile);

	fExistFolder(fldr);
	
	var files = new Array();
	var filecnt = ds_init_PK055list.rowcount;

	for (var i = 0; i < filecnt; i++)
	{
		files.push(ds_init_PK055list.getColumn(i, "cdnm"));
	}

	var updfilechk = true;

	for (var i = 0; i < files.length; i++) 
	{
		var updfilesize = utlf_transNullToEmpty(ds_init_PK055list.lookup("cdnm", files[i], "dispseq"));
		var updfilepath = utlf_transNullToEmpty(ds_init_PK055list.lookup("cdnm", files[i], "detldesc"));

		var vfile = new VirtualFile(fldr+files[i], VirtualFile.openRead);
		
		if (vfile.getFileSize() > 0)
		{
			if (updfileyn == "Y") 
			{
				var nowfilesize = vfile.getFileSize();
				
				if (updfilesize != nowfilesize && updfilepath.length > 0 )
				{
					dsf_createDsRow("ds_send_downfile", [{col:"attfilepath", type:"STRING", size:256, val:updfilepath}
													  ,  {col:"filepathcolnm", type:"STRING", size:256, val:"attfilepath"}]);
					
					var oParam = {};
						oParam.id          = "TXPIJ03208";
						oParam.service     = "bfjudgapp.DRGJudgList";
						oParam.method      = "reqExeKDrgdDownload";
						oParam.inds        = "req=ds_send_downfile";
						oParam.outds       = "ds_filelist=filelist";
						oParam.async       = false;
						oParam.force       = true;
						//oParam.callback    = "cf_TXPIJ03205";

					tranf_submit(oParam);
					
					vfile.close();
					
					dsf_readFileFromDs(fldr+files[i], ds_filelist, 0, "attfilecnts"); // 파일저장

					updfilechk = false;
				}
			}
		} 
		else 
		{
			if (updfileyn == "Y") 
			{
				dsf_createDsRow("ds_send_downfile", [{col:"attfilepath", type:"STRING", size:256, val:updfilepath}
												  , {col:"filepathcolnm", type:"STRING", size:256, val:"attfilepath"}]);
								
				var oParam = {};
					oParam.id          = "TXPIJ03208";
					oParam.service     = "bfjudgapp.DRGJudgList";
					oParam.method      = "reqExeKDrgdDownload";
					oParam.inds        = "req=ds_send_downfile";
					oParam.outds       = "ds_filelist=filelist";
					oParam.async       = false;
					oParam.force       = true;
					//oParam.callback    = "cf_TXPIJ03205";

				tranf_submit(oParam);
				
				vfile.close();
				
				dsf_readFileFromDs(fldr+files[i], ds_filelist, 0, "attfilecnts"); // 파일저장

				updfilechk = false;
			} 
			else 
			{
				nofile += files[i]+"의 구성요서가 없습니다.! 다운로드 하세요.\n";
			}
		}
		vfile.close();
	}
	if (!updfilechk) 
	{ 
		var addrow = ds_log.addRow();
		ds_log.setColumn(addrow,"msg", "파일이 업데이트 되었습니다. 다시 시도 해주세요.");
		ds_log.setColumn(addrow,"dd", utlf_getCurrentDate() + "" + utlf_getCurrentTime());
		return false; 
	}
	if (nofile.length>0 && updfileyn == "Y") 
	{
		var addrow = ds_log.addRow();
		ds_log.setColumn(addrow,"msg", nofile);
		ds_log.setColumn(addrow,"dd", utlf_getCurrentDate() + "" + utlf_getCurrentTime());
		return false;
	} 
	else 
	{
		if (VirtualFile.isExist(fldr + infile)){ VirtualFile.delete(fldr + infile);  }
		if (VirtualFile.isExist(fldr + outfile)){ VirtualFile.delete(fldr + outfile); }
		
		var ipid = ds_send.getColumn(0, "pid");
		var indschacptstat= ds_send.getColumn(0, "indschacptstat");
		var idrgnocretyn = ds_send.getColumn(0, "idrgnocretyn");
		var clamtoym = ds_send.getColumn(0, "clamtoym");
		var clamfromym = ds_send.getColumn(0, "clamfromym");
	
		dsf_setDefaultVal(ds_main_drginfo, "ordrsltcd:1");
		
		var oParam = {};
			oParam.id          = "TXPIJ04000";
			oParam.service     = "bfjudgapp.DRGJudgList";
			oParam.method      = "reqExeKDrgMastrInfo";
			oParam.inds        = "drginfo=ds_main_drginfo";
			oParam.outds       = "";
			oParam.async       = false;
			oParam.force       = true;
			//oParam.callback    = "cf_TXPIJ04000";

		tranf_submit(oParam);
		
		ds_send.setColumn(0, "infilenm", infile)
		
		var oParam = {};
			oParam.id          = "TXPIJ03201";
			oParam.service     = "bfjudgapp.DRGJudgList";
			oParam.method      = "reqExeDrgMakeInFile";
			oParam.inds        = "req=ds_send";
			oParam.outds       = "ds_attachfile=attachfile";
			oParam.async       = false;
			oParam.force       = true;
			//oParam.callback    = "cf_TXPIJ03201";

		tranf_submit(oParam);
		
		dsf_readFileFromDs(fldr + infile, ds_attachfile, 0, "filedata"); // 파일저장
		
		fSleep(infile);
		
		if (VirtualFile.isExist(fldr + infile)) 
		{
			var gBatfileExe      = "@ECHO OFF\r\nCD " + fldr + "\r\n"+ exefile;
			var objExtCommon = new ExtCommon();
			var gBatfilenm = "KDRG.bat";
			var sFileContent = objExtCommon.writeFile( fldr + gBatfilenm ,gBatfileExe, 932);
			var rtn = objExtCommon.executeProcess(fldr + gBatfilenm);
			fStandby();
			fSleep(outfile);
			var vfile = new VirtualFile(fldr+outfile, VirtualFile.openRead);
			
			if (vfile.getFileSize() > 0)
			{
				ds_tmp_attach.clearData();
				ds_tmp_attach.addRow();
				
				var objFileinfo = dsf_writeFileToDs(vfile, ds_tmp_attach, 0, "filedata");
				ds_tmp_attach.setColumn(0, "filenm",   objFileinfo.filename);
				ds_tmp_attach.setColumn(0, "filesize", objFileinfo.filesize);
				ds_tmp_attach.setColumn(0, "filetype", objFileinfo.filetype);
				
				var oParam = {};
					oParam.id          = "TXPIJ04002";
					oParam.service     = "bfjudgapp.DRGJudgList";
					oParam.method      = "reqExeKDrgMakeOutFile";
					oParam.inds        = "attach=ds_tmp_attach req=ds_send";
					oParam.outds       = "ds_main_drginfo=drginfo";
					oParam.async       = false;
					oParam.force       = true;
					oParam.callback    = "cf_TXPIJ03202";

				tranf_submit(oParam);
				
				if (VirtualFile.isExist(fldr + infile)){ VirtualFile.delete(fldr + infile);  }
				if (VirtualFile.isExist(fldr + outfile)){ VirtualFile.delete(fldr + outfile); }
			} 
			else
			{
				var addrow = ds_log.addRow();
				ds_log.setColumn(addrow,"msg", "out 파일이 존재 하지 않습니다.");
				ds_log.setColumn(addrow,"dd", utlf_getCurrentDate() + "" + utlf_getCurrentTime());
			}
			vfile.close();
		} 
		else 
		{
			var addrow = ds_log.addRow();
			ds_log.setColumn(addrow,"msg", "in 파일이 존재 하지 않습니다.");
			ds_log.setColumn(addrow,"dd", utlf_getCurrentDate() + "" + utlf_getCurrentTime());
		}
	}
}

function cf_TXPIJ03202(sSvcId, nErrorCode, sErrorMsg) 
{
    if(nErrorCode < 0) 
    {	
		var addrow = ds_log.addRow();
		ds_log.setColumn(addrow,"msg", "DRG번호생성을 실패");
		ds_log.setColumn(addrow,"dd", utlf_getCurrentDate() + "" + utlf_getCurrentTime());
		return;
	}
	else
	{
		var addrow = ds_log.addRow();
		ds_log.setColumn(addrow,"msg", "DRG번호생성이 성공");
		ds_log.setColumn(addrow,"dd", utlf_getCurrentDate() + "" + utlf_getCurrentTime());
	}
}

function fExistFolder(foldernm)
{
	var objExtCommon = new ExtCommon();
	
	if(utlf_isNull(foldernm))
	{
		return;
	}

	var folderDept = foldernm.split("\\");
	var currentPos = folderDept[0];
	
	for(var i = 1; i < folderDept.length ; i++)
	{
		if(utlf_isNull(folderDept[i]))
		{
			break;
		}
		currentPos += ("\\" + folderDept[i]);
		objExtCommon.checkDirectory(currentPos, 1);		
	}
}

function fSleep(filenm) 
{
	var now = new Date();
	var exitTime = now.getTime() + 30000;
		
	while (true) 
	{
		now = new Date();
		
		var vfile = new VirtualFile(fldr+filenm, VirtualFile.openRead);
		if (VirtualFile.isExist(fldr+filenm) && vfile.getFileSize() > 0) 
		{ 
			vfile.close(); 
			break; 
		}
		
		vfile.close();
		
		if (now.getTime() > exitTime) 
		{ 
			break; 
		}
		
	}
}

function fStandby() 
{
	var now = new Date();
	var exitTime = now.getTime() + 5000;
	
	while (true) 
	{
		now = new Date();
		
		if (now.getTime() > exitTime) 
		{
			break; 
		}
	}
}
	
function group1_button3_onclick(obj:Button,  e:ClickEventInfo)
{
	this.close();
}

function group1_button2_onclick(obj:Button,  e:ClickEventInfo)
{
	frmf_open("SMPID24301", "SMPID24301", "", "", "", "", "", "", "", "", "", "", "M");
}

function SPPIJ04300_ontimer(obj:Form, e:TimerEventInfo)
{
	fGetDocuList();
	var addrow = ds_log.addRow();
	ds_log.setColumn(addrow,"msg", "DRG번호 리스트 조회");
	ds_log.setColumn(addrow,"dd", utlf_getCurrentDate() + "" + utlf_getCurrentTime());
}

function fSetAutoRepeat()
{
	var autoRepeat = group1.group2.chk_autorepeat.value
	var settime = group1.group2.ipt_settime.value*1000;
	
	if(autoRepeat == "1")
	{
		this.setTimer(0,settime);
	}
	else
	{
		this.killTimer(0);
	}
}
function group1_group2_chk_autorepeat_onchanged(obj:CheckBox, e:CheckBoxChangeEventInfo)
{
	fSetAutoRepeat();
}

function group1_group2_ipt_settime_onkeydown(obj:Edit, e:KeyEventInfo)
{
	fSetAutoRepeat();
}

function group1_group2_ipt_settime_oneditclick(obj:Edit,  e:EditClickEventInfo)
{
	if(e.keycode == 13) {
		obj.updateToDataset();
		fSetAutoRepeat();
	}
}
]]></Script>
  </Form>
</FDL>