YNU_JEUS/app_home/himed/xpapps/pam/aftjudgxp/xp/SMPID24300_KDRG 번호생성 프로그램.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMPID24300" position="absolute 0 0 900 910" titletext="KDRG 번호생성프로그램" oninit="SMPID24300_oninit" onload="SMPID24300_onload">
    <Layouts>
      <Layout>
        <Div position="absolute 0 15 897 905" id="group1" scrollbars="autoboth" anchor="all">
          <Layouts>
            <Layout>
              <Static text="대상리스트" position="absolute 0 77 110 99" id="caption1" class="tit_2" anchor="default"/>
              <Shape position="absolute 0 93 895 99" linetype="horizontal" id="line1" class="line_1" style="strokepen:3 solid #33bbbbff;" anchor="left top right"/>
              <Div position="absolute 0 9 895 50" align="align:center top;" id="group2" class="div_SA" anchor="left top right">
                <Layouts>
                  <Layout>
                    <Static text="청구년월 :" position="absolute 7 12 94 29" id="caption30" class="search_name" anchor="default"/>
                    <Static text="~" position="absolute 165 10 180 30" id="caption2" anchor="default"/>
                    <Button position="absolute 832 9 888 31" id="btn_select" class="btn1" taborder="32" text="조회" anchor="top right" onclick="group1_group2_btn_select_onclick"/>
                    <Shape position="absolute 822 4 828 37" linetype="vertical" id="line3" class="line_4" anchor="top right"/>
                    <Edit position="absolute 358 11 448 30" id="ipt_patunitsrch" class="input_search" taborder="3" anchor="default" onkeydown="group1_group2_ipt_patunitsrch_onkeydown"/>
                    <Static text="환자조회" position="absolute 279 12 362 29" id="caption18" class="search_name" anchor="default"/>
                    <cp_monthCal id="ipt_clamfromym" titletext="monthCalendar" taborder="33" text="cp_monthCal00" scrollbars="none" position="absolute 87 10 156 35" anchor="default"/>
                    <cp_monthCal id="ipt_clamtoym" titletext="monthCalendar" taborder="34" text="cp_monthCal00" scrollbars="none" position="absolute 181 10 250 35" anchor="default"/>
                    <Button id="btn_patunitsrch" taborder="35" class="icon_search" position="absolute 449 10 469 30" onclick="group1_group2_btn_patunitsrch_onclick" anchor="default"/>
                  </Layout>
                </Layouts>
              </Div>
              <Button position="absolute 839 866 895 888" id="button3" class="btn4" text="종료" anchor="right bottom" onclick="group1_button3_onclick"/>
              <Button position="absolute 791 71 895 93" id="button4" class="btn4" text="DRG번호생성" anchor="top right" onclick="group1_button4_onclick"/>
              <Button position="absolute 665 71 789 93" id="button1" class="btn4" text="대상자수집 실행" anchor="top right" onclick="group1_button1_onclick"/>
              <Button position="absolute 782 866 838 888" id="button2" class="btn4" enable="true" visible="true" text="배포" anchor="right bottom" onclick="group1_button2_onclick" hotkey="CTRL+F6"/>
              <Grid position="absolute 0 98 895 865" align="align:center middle;" id="grd_kdrglist" class="datagrid3" binddataset="ds_main_kdrglist_kdrg" anchor="all" cellsizingtype="col">
                <Formats>
                  <Format id="default">
                    <Columns>
                      <Column size="32"/>
                      <Column size="62"/>
                      <Column size="35"/>
                      <Column size="60"/>
                      <Column size="50"/>
                      <Column size="31"/>
                      <Column size="100"/>
                      <Column size="100"/>
                      <Column size="74"/>
                      <Column size="81"/>
                      <Column size="69"/>
                      <Column size="37"/>
                      <Column size="69"/>
                      <Column size="50"/>
                      <Column size="47"/>
                      <Column size="306"/>
                      <Column size="54"/>
                      <Column size="196"/>
                      <Column size="53"/>
                      <Column size="189"/>
                      <Column size="57"/>
                      <Column size="207"/>
                      <Column size="259"/>
                      <Column size="250"/>
                      <Column size="225"/>
                      <Column size="211"/>
                      <Column size="194"/>
                      <Column size="235"/>
                      <Column size="49"/>
                      <Column size="54"/>
                      <Column size="43"/>
                      <Column size="45"/>
                      <Column size="43"/>
                      <Column size="60"/>
                      <Column size="133"/>
                      <Column size="56"/>
                      <Column size="43"/>
                      <Column size="72"/>
                      <Column size="50"/>
                      <Column size="252"/>
                      <Column size="242"/>
                      <Column size="0"/>
                      <Column size="0"/>
                      <Column size="49"/>
                      <Column size="51"/>
                      <Column size="53"/>
                      <Column size="52"/>
                      <Column size="52"/>
                      <Column size="50"/>
                      <Column size="57"/>
                      <Column size="55"/>
                      <Column size="0"/>
                      <Column size="0"/>
                      <Column size="49"/>
                      <Column size="49"/>
                      <Column size="49"/>
                      <Column size="49"/>
                      <Column size="49"/>
                      <Column size="49"/>
                      <Column size="49"/>
                      <Column size="49"/>
                      <Column size="54"/>
                      <Column size="54"/>
                      <Column size="54"/>
                      <Column size="54"/>
                      <Column size="54"/>
                      <Column size="65"/>
                      <Column size="190"/>
                      <Column size="65"/>
                      <Column size="65"/>
                      <Column size="65"/>
                      <Column size="65"/>
                      <Column size="65"/>
                      <Column size="65"/>
                      <Column size="65"/>
                      <Column size="65"/>
                      <Column size="65"/>
                      <Column size="65"/>
                      <Column size="65"/>
                      <Column size="65"/>
                      <Column size="65"/>
                      <Column size="65"/>
                      <Column size="50"/>
                      <Column size="50"/>
                      <Column size="50"/>
                      <Column size="50"/>
                      <Column size="50"/>
                    </Columns>
                    <Rows>
                      <Row size="47" band="head"/>
                      <Row size="24"/>
                    </Rows>
                    <Band id="head">
                      <Cell/>
                      <Cell col="1" text="청구월"/>
                      <Cell col="2" text="청구&#13;&#10;차수"/>
                      <Cell col="3" text="환자번호"/>
                      <Cell col="4" text="환자명"/>
                      <Cell col="5" text="나이"/>
                      <Cell col="6" text="주민번호"/>
                      <Cell col="7" text="진료과"/>
                      <Cell col="8" text="보험유형"/>
                      <Cell col="9" text="보조유형"/>
                      <Cell col="10" text="입원일자"/>
                      <Cell col="11" text="입원&#10;일수"/>
                      <Cell col="12" text="진료결과"/>
                      <Cell col="13" text="청구&#10;구분"/>
                      <Cell col="14" text="주상병"/>
                      <Cell col="15" text="주상병명"/>
                      <Cell col="16" text="제1&#13;&#10;부상병"/>
                      <Cell col="17" text="제1부상병명"/>
                      <Cell col="18" text="처치&#13;&#10;코드1"/>
                      <Cell col="19" text="처치명1"/>
                      <Cell col="20" text="처치&#13;&#10;코드2"/>
                      <Cell col="21" text="처치명2"/>
                      <Cell col="22" text="검사코드1-5"/>
                      <Cell col="23" text="방사선코드1-5"/>
                      <Cell col="24" text="주사및혈액제제코드1-5"/>
                      <Cell col="25" text="마취및호흡치료코드1-5"/>
                      <Cell col="26" text="알콜및약물중독재활치료코드"/>
                      <Cell col="27" text="부가코드1-5"/>
                      <Cell col="28" text="입원시&#10;체중(g)"/>
                      <Cell col="29" text="인공&#10;호흡시간&#10;(hour)"/>
                      <Cell col="30" text="MDC"/>
                      <Cell col="31" text="ADRG"/>
                      <Cell col="32" text="PCCL"/>
                      <Cell col="33" text="DRG&#10;분류번호"/>
                      <Cell col="34" text="DRG명"/>
                      <Cell col="35" text="version"/>
                      <Cell col="36" text="낮병동&#10;유무"/>
                      <Cell col="37" text="응급실퇴원&#13;&#10;유무"/>
                      <Cell col="38" text="대분류"/>
                      <Cell col="39" text="진단코드1-10"/>
                      <Cell col="40" text="수술코드1-10"/>
                      <Cell col="41" text="진단코드&#13;&#10;1"/>
                      <Cell col="42" text="진단코드&#13;&#10;2"/>
                      <Cell col="43" text="진단코드&#13;&#10;3"/>
                      <Cell col="44" text="진단코드&#13;&#10;4"/>
                      <Cell col="45" text="진단코드&#13;&#10;5"/>
                      <Cell col="46" text="진단코드&#13;&#10;6"/>
                      <Cell col="47" text="진단코드&#13;&#10;7"/>
                      <Cell col="48" text="진단코드&#13;&#10;8"/>
                      <Cell col="49" text="진단코드&#13;&#10;9"/>
                      <Cell col="50" text="진단코드&#13;&#10;10"/>
                      <Cell col="51" text="시술코드&#13;&#10;1"/>
                      <Cell col="52" text="시술코드&#13;&#10;2"/>
                      <Cell col="53" text="시술코드&#13;&#10;3"/>
                      <Cell col="54" text="시술코드&#13;&#10;4"/>
                      <Cell col="55" text="시술코드&#13;&#10;5"/>
                      <Cell col="56" text="시술코드&#13;&#10;6"/>
                      <Cell col="57" text="시술코드&#13;&#10;7"/>
                      <Cell col="58" text="시술코드&#13;&#10;8"/>
                      <Cell col="59" text="시술코드&#13;&#10;9"/>
                      <Cell col="60" text="시술코드&#13;&#10;10"/>
                      <Cell col="61" text="검사코드&#13;&#10;1"/>
                      <Cell col="62" text="검사코드&#13;&#10;2"/>
                      <Cell col="63" text="검사코드&#13;&#10;3"/>
                      <Cell col="64" text="검사코드&#13;&#10;4"/>
                      <Cell col="65" text="검사코드&#13;&#10;5"/>
                      <Cell col="66" text="방사선코드&#13;&#10;1"/>
                      <Cell col="67" text="방사선명1"/>
                      <Cell col="68" text="방사선코드&#13;&#10;2"/>
                      <Cell col="69" text="방사선코드&#13;&#10;3"/>
                      <Cell col="70" text="방사선코드&#13;&#10;4"/>
                      <Cell col="71" text="방사선코드&#13;&#10;5"/>
                      <Cell col="72" text="주사및혈&#13;&#10;액제제코&#13;&#10;드1"/>
                      <Cell col="73" text="주사및혈&#13;&#10;액제제코&#13;&#10;드2"/>
                      <Cell col="74" text="주사및혈&#13;&#10;액제제코&#13;&#10;드3"/>
                      <Cell col="75" text="주사및혈&#13;&#10;액제제코&#13;&#10;드4"/>
                      <Cell col="76" text="주사및혈&#13;&#10;액제제코&#13;&#10;드5"/>
                      <Cell col="77" text="마취및호&#13;&#10;흡치료코&#13;&#10;드1"/>
                      <Cell col="78" text="마취및호&#13;&#10;흡치료코&#13;&#10;드2"/>
                      <Cell col="79" text="마취및호&#13;&#10;흡치료코&#13;&#10;드3"/>
                      <Cell col="80" text="마취및호&#13;&#10;흡치료코&#13;&#10;드4"/>
                      <Cell col="81" text="마취및호&#13;&#10;흡치료코&#13;&#10;드5"/>
                      <Cell col="82" text="부가코드&#13;&#10;1"/>
                      <Cell col="83" text="부가코드&#13;&#10;2"/>
                      <Cell col="84" text="부가코드&#13;&#10;3"/>
                      <Cell col="85" text="부가코드&#13;&#10;4"/>
                      <Cell col="86" text="부가코드&#13;&#10;5"/>
                    </Band>
                    <Band id="body">
                      <Cell celltype="head" expr="currow+1"/>
                      <Cell col="1" displaytype="date" text="bind:clamym" mask="yyyy-MM"/>
                      <Cell col="2" style="align:center middle;" text="bind:clamdg"/>
                      <Cell col="3" text="bind:pid"/>
                      <Cell col="4" text="bind:patnm"/>
                      <Cell col="5" text="bind:patage"/>
                      <Cell col="6" text="bind:patrrgstno" mask="######-####aaa" maskchar="*"/>
                      <Cell col="7" displaytype="combo" edittype="combo" style="align:center middle;" text="bind:orddeptcd" combodataset="ds_init_orddeptcd2_orddeptcdlist" combocodecol="cd" combodatacol="nm"/>
                      <Cell col="8" displaytype="combo" edittype="combo" style="align:center middle;" text="bind:insukind" combodataset="ds_init_P0008list" combocodecol="cdid" combodatacol="cdnm" enable="false"/>
                      <Cell col="9" displaytype="combo" edittype="combo" style="align:center middle;" text="bind:suppkind" combodataset="ds_init_P0010list" combocodecol="cdid" combodatacol="cdnm" enable="false"/>
                      <Cell col="10" displaytype="date" text="bind:indd" mask="yyyy-MM-dd"/>
                      <Cell col="11" text="bind:chosindayno"/>
                      <Cell col="12" displaytype="combo" edittype="combo" style="align:center middle;" text="bind:ordrsltcd" combodataset="ds_init_P0110list" combocodecol="cdid" combodatacol="cdnm" enable="false"/>
                      <Cell col="13" displaytype="combo" edittype="combo" style="align:center middle;" text="bind:clamflagcd" combodataset="ds_init_P0155list" combocodecol="cdid" combodatacol="cdnm" enable="false"/>
                      <Cell col="14" style="align:left middle;" text="bind:diagcd"/>
                      <Cell col="15" style="align:left middle;" text="bind:diagnm1"/>
                      <Cell col="16" style="align:left middle;" text="bind:diagcd2"/>
                      <Cell col="17" style="align:left middle;" text="bind:diagnm2"/>
                      <Cell col="18" style="align:left middle;" text="bind:opcd1"/>
                      <Cell col="19" style="align:left middle;" text="bind:opnm1"/>
                      <Cell col="20" style="align:left middle;" text="bind:opcd2"/>
                      <Cell col="21" style="align:left middle;" text="bind:opnm2"/>
                      <Cell col="22" style="align:left middle;" text="bind:excd"/>
                      <Cell col="23" style="align:left middle;" text="bind:rgcd"/>
                      <Cell col="24" style="align:left middle;" text="bind:ibcd"/>
                      <Cell col="25" style="align:left middle;" text="bind:arcd"/>
                      <Cell col="26" style="align:left middle;" text="bind:ncvcd"/>
                      <Cell col="27" style="align:left middle;" text="bind:detailcd"/>
                      <Cell col="28" text="bind:bw"/>
                      <Cell col="29" text="bind:vtl"/>
                      <Cell col="30" text="bind:mdc"/>
                      <Cell col="31" text="bind:adrg"/>
                      <Cell col="32" text="bind:pccl"/>
                      <Cell col="33" text="bind:drgno"/>
                      <Cell col="34" style="align:left middle;" text="bind:drgnm"/>
                      <Cell col="35" text="bind:version"/>
                      <Cell col="36" text="bind:dayward"/>
                      <Cell col="37" text="bind:ioflagyn"/>
                      <Cell col="38" text="bind:drgtype"/>
                      <Cell col="39" style="align:left middle;" text="bind:diagcd"/>
                      <Cell col="40" style="align:left middle;" text="bind:opcd"/>
                      <Cell col="41" text="bind:diagcd1"/>
                      <Cell col="42" text="bind:diagcd2"/>
                      <Cell col="43" text="bind:diagcd3"/>
                      <Cell col="44" text="bind:diagcd4"/>
                      <Cell col="45" text="bind:diagcd5"/>
                      <Cell col="46" text="bind:diagcd6"/>
                      <Cell col="47" text="bind:diagcd7"/>
                      <Cell col="48" text="bind:diagcd8"/>
                      <Cell col="49" text="bind:diagcd9"/>
                      <Cell col="50" text="bind:diagcd10"/>
                      <Cell col="51" text="bind:opcd1"/>
                      <Cell col="52" text="bind:opcd2"/>
                      <Cell col="53" text="bind:opcd3"/>
                      <Cell col="54" text="bind:opcd4"/>
                      <Cell col="55" text="bind:opcd5"/>
                      <Cell col="56" text="bind:opcd6"/>
                      <Cell col="57" text="bind:opcd7"/>
                      <Cell col="58" text="bind:opcd8"/>
                      <Cell col="59" text="bind:opcd9"/>
                      <Cell col="60" text="bind:opcd10"/>
                      <Cell col="61" text="bind:excd1"/>
                      <Cell col="62" text="bind:excd2"/>
                      <Cell col="63" text="bind:excd3"/>
                      <Cell col="64" text="bind:excd4"/>
                      <Cell col="65" text="bind:excd5"/>
                      <Cell col="66" text="bind:rgcd1"/>
                      <Cell col="67" style="align:left middle;" text="bind:rgnm1"/>
                      <Cell col="68" text="bind:rgcd2"/>
                      <Cell col="69" text="bind:rgcd3"/>
                      <Cell col="70" text="bind:rgcd4"/>
                      <Cell col="71" text="bind:rgcd5"/>
                      <Cell col="72" text="bind:ibcd1"/>
                      <Cell col="73" text="bind:ibcd2"/>
                      <Cell col="74" text="bind:ibcd3"/>
                      <Cell col="75" text="bind:ibcd4"/>
                      <Cell col="76" text="bind:ibcd5"/>
                      <Cell col="77" text="bind:arcd1"/>
                      <Cell col="78" text="bind:arcd2"/>
                      <Cell col="79" text="bind:arcd3"/>
                      <Cell col="80" text="bind:arcd4"/>
                      <Cell col="81" text="bind:arcd5"/>
                      <Cell col="82" text="bind:detailcd1"/>
                      <Cell col="83" text="bind:detailcd2"/>
                      <Cell col="84" text="bind:detailcd3"/>
                      <Cell col="85" text="bind:detailcd4"/>
                      <Cell col="86" text="bind:detailcd5"/>
                    </Band>
                  </Format>
                </Formats>
              </Grid>
              <Button position="absolute 584 71 664 93" id="btn_excelsave" class="btn7" text="엑셀저장" anchor="top right" onclick="group1_btn_excelsave_onclick"/>
            </Layout>
          </Layouts>
        </Div>
        <Static id="cap_title" text="KDRG 번호생성프로그램" class="tit_1" position="absolute 0 0 211 23"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="clamfromym" type="STRING" size="256"/>
          <Column id="clamtoym" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="offset" type="STRING" size="256"/>
          <Column id="pageyn" type="STRING" size="256"/>
          <Column id="clamym" type="STRING" size="256"/>
          <Column id="infilenm" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_kdrglist_kdrg" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="instcd" type="STRING" size="256" sumtext="기관코드"/>
          <Column id="clamym" type="STRING" size="256" sumtext="청구년월"/>
          <Column id="clamdg" type="STRING" size="256" sumtext="청구차수"/>
          <Column id="pid" type="STRING" size="256" sumtext="환자번호"/>
          <Column id="pidsn" type="STRING" size="256" sumtext="환자번호순번"/>
          <Column id="diagcd" type="STRING" size="256" sumtext="진단"/>
          <Column id="opcd" type="STRING" size="256" sumtext="시술"/>
          <Column id="excd" type="STRING" size="256" sumtext="검사"/>
          <Column id="rgcd" type="STRING" size="256" sumtext="방사선"/>
          <Column id="ibcd" type="STRING" size="256" sumtext="주사및혈액제제코드"/>
          <Column id="arcd" type="STRING" size="256" sumtext="마취및호흡치료코드"/>
          <Column id="ncvcd" type="STRING" size="256" sumtext="알콜및약품중독재활치료코드"/>
          <Column id="detailcd" type="STRING" size="256" sumtext="부가코드"/>
          <Column id="bw" type="STRING" size="256" sumtext="체중"/>
          <Column id="vtl" type="STRING" size="256" sumtext="인공호흡시간"/>
          <Column id="mdc" type="STRING" size="256" sumtext="mdc"/>
          <Column id="adrg" type="STRING" size="256" sumtext="drg"/>
          <Column id="pccl" type="STRING" size="256" sumtext="pccl"/>
          <Column id="drgno" type="STRING" size="256" sumtext="drgno"/>
          <Column id="version" type="STRING" size="256" sumtext="버전"/>
          <Column id="FSTRGSTRID" type="STRING" size="256" sumtext="등록자"/>
          <Column id="fstrgstdt" type="STRING" size="256" sumtext="등록일자"/>
          <Column id="lastupdtrid" type="STRING" size="256" sumtext="수정자"/>
          <Column id="lastupdtdt" type="STRING" size="256" sumtext="수정일자"/>
          <Column id="patrrgstno" type="STRING" size="256" sumtext="환자주민번호"/>
          <Column id="patnm" type="STRING" size="256" sumtext="환자명"/>
          <Column id="indd" type="STRING" size="256" sumtext="입원일자"/>
          <Column id="ordfromdd" type="STRING" size="256" sumtext="진료개시일"/>
          <Column id="chosindayno" type="STRING" size="256" sumtext="입원일수"/>
          <Column id="ordrsltcd" type="STRING" size="256" sumtext="진료결과"/>
          <Column id="clamno" type="STRING" size="256" sumtext="청구번호"/>
          <Column id="docuseqno" type="STRING" size="256" sumtext="명세서일련번호"/>
          <Column id="insukind" type="STRING" size="256" sumtext="보험유형"/>
          <Column id="suppkind" type="STRING" size="256" sumtext="보조유형"/>
          <Column id="orddeptcd" type="STRING" size="256" sumtext="부서코드"/>
          <Column id="orddrnm" type="STRING" size="256" sumtext="진료의"/>
          <Column id="patage" type="STRING" size="256" sumtext="환자나이"/>
          <Column id="tot_cnt" type="STRING" size="256" sumtext="총건수"/>
          <Column id="drgtype" type="STRING" size="256" sumtext="총건수"/>
          <Column id="dayward" type="STRING" size="256" sumtext="낮병동유무"/>
          <Column id="clamflagcd" type="STRING" size="256" sumtext="낮병동유무"/>
          <Column id="diagcd1" type="STRING" size="256" sumtext="응급퇴원포함"/>
          <Column id="diagcd2" type="STRING" size="256" sumtext="응급퇴원포함"/>
          <Column id="diagcd3" type="STRING" size="256" sumtext="응급퇴원포함"/>
          <Column id="diagcd4" type="STRING" size="256" sumtext="응급퇴원포함"/>
          <Column id="diagcd5" type="STRING" size="256" sumtext="응급퇴원포함"/>
          <Column id="diagcd6" type="STRING" size="256" sumtext="응급퇴원포함"/>
          <Column id="diagcd7" type="STRING" size="256" sumtext="응급퇴원포함"/>
          <Column id="diagcd8" type="STRING" size="256" sumtext="응급퇴원포함"/>
          <Column id="diagcd9" type="STRING" size="256" sumtext="응급퇴원포함"/>
          <Column id="diagcd10" type="STRING" size="256" sumtext="응급퇴원포함"/>
          <Column id="opcd1" type="STRING" size="256" sumtext="응급퇴원포함"/>
          <Column id="opcd2" type="STRING" size="256" sumtext="응급퇴원포함"/>
          <Column id="opcd3" type="STRING" size="256" sumtext="응급퇴원포함"/>
          <Column id="opcd4" type="STRING" size="256" sumtext="응급퇴원포함"/>
          <Column id="opcd5" type="STRING" size="256" sumtext="응급퇴원포함"/>
          <Column id="opcd6" type="STRING" size="256" sumtext="응급퇴원포함"/>
          <Column id="opcd7" type="STRING" size="256" sumtext="응급퇴원포함"/>
          <Column id="opcd8" type="STRING" size="256" sumtext="응급퇴원포함"/>
          <Column id="opcd9" type="STRING" size="256" sumtext="응급퇴원포함"/>
          <Column id="opcd10" type="STRING" size="256" sumtext="응급퇴원포함"/>
          <Column id="excd1" type="STRING" size="256" sumtext="응급퇴원포함"/>
          <Column id="excd2" type="STRING" size="256" sumtext="응급퇴원포함"/>
          <Column id="excd3" type="STRING" size="256" sumtext="응급퇴원포함"/>
          <Column id="excd4" type="STRING" size="256" sumtext="응급퇴원포함"/>
          <Column id="excd5" type="STRING" size="256" sumtext="응급퇴원포함"/>
          <Column id="rgcd1" type="STRING" size="256" sumtext="응급퇴원포함"/>
          <Column id="rgnm1" type="STRING" size="256" sumtext="응급퇴원포함"/>
          <Column id="rgcd2" type="STRING" size="256" sumtext="응급퇴원포함"/>
          <Column id="rgcd3" type="STRING" size="256" sumtext="응급퇴원포함"/>
          <Column id="rgcd4" type="STRING" size="256" sumtext="응급퇴원포함"/>
          <Column id="rgcd5" type="STRING" size="256" sumtext="응급퇴원포함"/>
          <Column id="ibcd1" type="STRING" size="256" sumtext="응급퇴원포함"/>
          <Column id="ibcd2" type="STRING" size="256" sumtext="응급퇴원포함"/>
          <Column id="ibcd3" type="STRING" size="256" sumtext="응급퇴원포함"/>
          <Column id="ibcd4" type="STRING" size="256" sumtext="응급퇴원포함"/>
          <Column id="ibcd5" type="STRING" size="256" sumtext="응급퇴원포함"/>
          <Column id="arcd1" type="STRING" size="256" sumtext="응급퇴원포함"/>
          <Column id="arcd2" type="STRING" size="256" sumtext="응급퇴원포함"/>
          <Column id="arcd3" type="STRING" size="256" sumtext="응급퇴원포함"/>
          <Column id="arcd4" type="STRING" size="256" sumtext="응급퇴원포함"/>
          <Column id="arcd5" type="STRING" size="256" sumtext="응급퇴원포함"/>
          <Column id="detailcd1" type="STRING" size="256" sumtext="응급퇴원포함"/>
          <Column id="detailcd2" type="STRING" size="256" sumtext="응급퇴원포함"/>
          <Column id="detailcd3" type="STRING" size="256" sumtext="응급퇴원포함"/>
          <Column id="detailcd4" type="STRING" size="256" sumtext="응급퇴원포함"/>
          <Column id="detailcd5" type="STRING" size="256" sumtext="응급퇴원포함"/>
          <Column id="diagnm1" type="STRING" size="256" sumtext="응급퇴원포함"/>
          <Column id="diagnm2" type="STRING" size="256" sumtext="응급퇴원포함"/>
          <Column id="opnm1" type="STRING" size="256" sumtext="응급퇴원포함"/>
          <Column id="opnm2" type="STRING" size="256" sumtext="응급퇴원포함"/>
        </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_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_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_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_PK015list" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_PK016list" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_PK054list" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_PK055list" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <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_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_filelist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <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"/>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="group1.group2.ipt_patunitsrch" propid="value" datasetid="ds_send" columnid="pid"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2016-05-24
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2016-05-24      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs";
include "pam_pamcomnxp::PAM001.xjs";

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

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

function SMPID24300_onload(obj:Form, e:LoadEventInfo)
{
	group1.group2.ipt_clamfromym.setCallEvent("fn_Cal");
	group1.group2.ipt_clamtoym.setCallEvent("fn_Cal1");
	
	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.callback    = "cf_TRPID20309";

	tranf_submit(oParam);
	
	fInitialize();
}

function fInitialize()
{
	var gToday = new Date();
	var gBaseyear  = gToday.getDateFormat("YYYY");
	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, "clamfromym", gCurrentym);
	ds_send.setColumn(0, "clamtoym", gCurrentym);
}

function fn_Cal()
{
	var date = group1.group2.ipt_clamfromym.getData();
	
	ds_send.setColumn(0, "clamfromym", date);
}

function fn_Cal1()
{
	var date = group1.group2.ipt_clamtoym.getData();
	
	ds_send.setColumn(0, "clamtoym", date);
}

function group1_group2_btn_patunitsrch_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_kdrglist_kdrg.rowcount;
	
	if (offcnt >= 10000)
	{
		ds_send.setColumn(0, "offset", offcnt);
	} 
	else 
	{
		
	}
	
	dsf_setDefaultVal(ds_send, "pageyn:Y");
	
	var oParam = {};
		oParam.id          = "TRPID20202";
		oParam.service     = "aftjudgapp.InAftJudgTrgtMan";
		oParam.method      = "reqGetKdrgList";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_main_kdrglist_kdrg=kdrglist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRPID20202";

	tranf_submit(oParam);
}

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

function group1_button1_onclick(obj:Button,  e:ClickEventInfo)
{
	var clamfromym = ds_send.getColumn(0, "clamfromym");
	var clamtoym = ds_send.getColumn(0, "clamtoym");
	var mthcnt = utlf_getDateInterval(clamfromym + "01", clamtoym + "01", "mm");
	
	if (mthcnt == 0) 
	{
		ds_send.setColumn(0, "clamym", clamfromym);
		
		var sWindowMsg = clamfromym + " KDRG 대상자 수집중입니다...";
		
		//callLoadingWindow(sWindowMsg);
		
		var oParam = {};
			oParam.id          = "TRPID20202";
			oParam.service     = "aftjudgapp.InAftJudgTrgtMan";
			oParam.method      = "reqExeKdrgProc";
			oParam.inds        = "req=ds_send";
			oParam.outds       = "";
			oParam.async       = false;
			//oParam.callback    = "cf_TRPID20202";

		tranf_submit(oParam);
		
		//removeLoadingWindow();
	}
	else if (mthcnt > 0) 
	{
		for (var i = 0; i < mthcnt; i++) 
		{
			var myDate = new Date("01" + "/" + String(clamfromym).substr(4,6) +"/" + String(clamfromym).substr(0,4));
			var dayOfMonth = myDate.getDate();
			myDate.setMonth(dayOfMonth - 1 + i);
			
			ds_send.setColumn(0, "clamym", myDate.getDateFormat("YYYYMM"));
			
			var sWindowMsg = myDate.getDateFormat('YYYY년MM월') + " KDRG 대상자 수집중입니다...";
			
			//callLoadingWindow(sWindowMsg);
			
			var oParam = {};
				oParam.id          = "TRPID20202";
				oParam.service     = "aftjudgapp.InAftJudgTrgtMan";
				oParam.method      = "reqExeKdrgProc";
				oParam.inds        = "req=ds_send";
				oParam.outds       = "";
				oParam.async       = false;
				//oParam.callback    = "cf_TRPID20202";

			tranf_submit(oParam);

			//removeLoadingWindow();
		}
	}
}

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;

					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;

				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) 
	{ 
		alert("파일이 업데이트 되었습니다. 다시 시도 해주세요." );
		return false; 
	}
	if (nofile.length > 0 && updfileyn == "Y") 
	{
		alert(nofile);
		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 clamtoym = ds_send.getColumn(0, "clamtoym");
		var clamfromym = ds_send.getColumn(0, "clamfromym");
		
		ds_send.setColumn(0, "infilenm", infile)
		
		dsf_setDefaultVal(ds_send, "pid:,infilenm:kdrg35.in");
		
		var oParam = {};
			oParam.id          = "TXPID24301";
			oParam.service     = "aftjudgapp.InAftJudgTrgtMan";
			oParam.method      = "reqExeKDrgMakeInFile";
			oParam.inds        = "req=ds_send";
			oParam.outds       = "ds_attachfile=attachfile";
			oParam.async       = false;
			//oParam.callback    = "cf_TXPID24301";

		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();
			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          = "TXPIJ03202";
					oParam.service     = "aftjudgapp.InAftJudgTrgtMan";
					oParam.method      = "reqExeKDrgMakeOutFile";
					oParam.inds        = "attach=ds_tmp_attach req=ds_send";
					oParam.outds       = "ds_drginfo=drginfo";
					oParam.async       = false;
					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 
			{
				sysf_messageBox("in 파일이 존재 하지 않습니다.","E");
			}
			vfile.close();
		} 
		else 
		{
			sysf_messageBox("in 파일이 존재 하지 않습니다.","E");
		}
	}
}

function cf_TXPIJ03202(sSvcId, nErrorCode, sErrorMsg) 
{
    if(nErrorCode < 0) 
    {	
		sysf_messageBox("DRG번호생성을","E009");
		return;
	}
	else
	{
		sysf_messageBox("DRG번호생성이","I002");
	}
}

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() + 50000;

	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_button2_onclick(obj:Button,  e:ClickEventInfo)
{
	var req = dsf_createDsRow("ds_send_info", [
					{ col: "cdgrupid", type: "STRING", size: 256, val: "PK055" }
					,{ col: "path", type: "STRING", size: 256, val: "kdrg35"}
					]);
	
	 var objArg = new Object();
    objArg.args_ds_send = ds_send_info;
	frmf_modal("SMPID24301", "SMPID24301", objArg, "", "", "", "", "", "", "", "", "", "M");
}

function group1_button3_onclick(obj:Button,  e:ClickEventInfo)
{
	this.close();
}

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