YNU_JEUS/app_home/himed/xpapps/com/knuhwidgetxp/xp/widget_kdrg.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="widget_kdrg" classname="widget_kdrg" inheritanceid="" position="absolute 0 0 520 300" titletext="New Form" style="background:transparent URL('IMG::widget/bg_NewsList.png');" visible="false" onload="widget_kdrg_onload" ontimer="widget_kdrg_ontimer">
    <Layouts>
      <Layout>
        <Button id="btn_close" taborder="0" position="absolute 471 12 491 32" onclick="btn_close_onclick" class="popclose"/>
        <CheckBox id="CheckBox00" taborder="4" text="KDRG번호 미생성만 보기" value="Y" truevalue="N" falsevalue="Y" position="absolute 149 25 318 44"/>
        <CheckBox id="chk_autorepeat" taborder="5" text="자동조회" value="0" truevalue="1" falsevalue="0" position="absolute 326 25 396 44" onchanged="chk_autorepeat_onchanged"/>
        <Edit id="ipt_settime" taborder="6" class="input_search" position="absolute 402 25 440 44" onkeydown="ipt_settime_onkeydown" oneditclick="ipt_settime_oneditclick" style="align:right middle;"/>
        <Static id="caption7" text="초" position="absolute 445 25 465 45"/>
        <Button id="button4" taborder="7" text="DRG번호생성" onclick="group1_button4_onclick" class="btn4" position="absolute 24 18 128 40" anchor="top right" visible="true"/>
        <Grid id="Grid01" taborder="8" binddataset="ds_log" useinputpanel="false" position="absolute 32 58 465 250" autofittype="col" anchor="all">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="292"/>
                <Column size="118"/>
              </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>
    <Objects>
      <Dataset id="out_ds_grid_screen" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" onvaluechanged="out_ds_grid_screen_onvaluechanged" canrowposchange="out_ds_grid_screen_canrowposchange" oncolumnchanged="out_ds_grid_screen_oncolumnchanged">
        <ColumnInfo>
          <Column id="scrncd" type="STRING" size="256"/>
          <Column id="scrnflag" type="STRING" size="256"/>
          <Column id="scrnurl" type="STRING" size="256"/>
          <Column id="scrnurlxp" type="STRING" size="256"/>
          <Column id="scrnpos" type="STRING" size="256"/>
          <Column id="useyn" type="STRING" size="256"/>
          <Column id="releasestate" type="STRING" size="256"/>
          <Column id="workcd" type="STRING" size="256"/>
          <Column id="awtyn" type="STRING" size="256"/>
          <Column id="tfyn" type="STRING" size="256"/>
          <Column id="gbn_id" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <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">3600</Col>
            <Col id="autorepeat">1</Col>
          </Row>
        </Rows>
      </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_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>
      <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_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_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_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_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>
    </Objects>
    <Bind>
      <BindItem id="item2" compid="CheckBox00" propid="value" datasetid="ds_send" columnid="drgnocretyn"/>
      <BindItem id="item33" compid="chk_autorepeat" propid="value" datasetid="ds_send" columnid="autorepeat"/>
      <BindItem id="item34" compid="ipt_settime" propid="value" datasetid="ds_send" columnid="settime"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[include "com_commonxp::comm_main.xjs"
include "pam_pamcomnxp::PAM001.xjs";

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

function widget_kdrg_onload(obj:Form, e:LoadEventInfo)
{
	this.getOwnerFrame().topmost = true;
}

function btn_close_onclick(obj:Button,  e:ClickEventInfo)
{
	form.visible = false;
}

function fForm_Refresh() {
	var arrParam = new Array();
	arrParam = [ {dsNm: "ds_init_PK054list", cdGrpId: "PK054", showValue: true}
				,{dsNm: "ds_init_PK055list", cdGrpId: "PK055", showValue: true}];
	
	pamfGetCodeList(arrParam, false, "");

	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 fSetAutoRepeat()
{
	var autoRepeat = chk_autorepeat.value
	var settime = ipt_settime.value*1000;
	
	if(autoRepeat == "1")
	{
		this.setTimer(0,settime);
	}
	else
	{
		this.killTimer(0);
	}
}

function cf_TRZSA20501(sSvcId, nErrorCode, sErrorMsg)
{   
	if(nErrorCode < 0) return;
}
function widget_kdrg_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 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){
		button4.click();
    }
}

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;
	var vfile = "";
	var updfilesize = "";
	var updfilepath = "";
	
	for (var i = 0; i < filecnt; i++)
	{
		files.push(ds_init_PK055list.getColumn(i, "cdnm"));
	}

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

		vfile = new VirtualFile(fldr+files[i], VirtualFile.openRead);
		
		if (vfile.getFileSize() > 0)
		{
			if (updfileyn == "Y") 
			{
				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) 
	{
		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;
	var vfile = "";
		
	while (true) 
	{
		now = new Date();
		
		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 ipt_settime_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if (!utlf_isNull(obj.value) && e.keycode == 13) {
		fSetAutoRepeat();
		Grid01.setFocus();
	}
}


function chk_autorepeat_onchanged(obj:CheckBox, e:CheckBoxChangeEventInfo)
{
	fSetAutoRepeat();
}
]]></Script>
  </Form>
</FDL>