YNU_JEUS/app_home/himed/xpapps/pam/insucomxp/xp/SMPIZ00200_청구상벙관리조회.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMPIZ00200" position="absolute 0 0 1194 784" titletext="청구상병관리" oninit="SMPIZ00200_oninit" onload="SMPIZ00200_onload">
    <Layouts>
      <Layout>
        <Static id="caption1" text="청구상병 관리" class="tit_1" position="absolute 0 0 202 23"/>
        <Div id="grp_sea" taborder="1" class="div_SA" position="absolute 0 24 1194 59">
          <Layouts>
            <Layout>
              <Static id="caption2" text="등록번호 :" class="search_name" position="absolute 15 10 101 27"/>
              <MaskEdit id="ipt_pid" taborder="6" mask="####" class="input_s_essential" position="absolute 104 9 194 28" style="align:left middle;" onkeydown="grp_sea_ipt_pid_onkeydown"/>
              <Button id="btn_srchpid" taborder="7" class="icon_search" position="absolute 195 11 214 26" onclick="grp_sea_btn_srchpid_onclick"/>
              <Static id="caption3" text="청구대상기간" class="search_name" position="absolute 772 10 874 27"/>
              <Calendar id="ipt_ordfromdd" taborder="8" class="input_search" position="absolute 879 9 976 28" mask="yyyy-mm-dd" dateformat="yyyy-MM-dd"/>
              <Static id="caption4" text="~" class="search_no_b" position="absolute 979 10 991 27"/>
              <Calendar id="ipt_ordtodd" taborder="9" class="input_search" position="absolute 994 9 1091 28" mask="yyyy-mm-dd" dateformat="yyyy-MM-dd"/>
              <Shape id="line1" linetype="vertical" class="line_4" position="absolute 1105 7 1111 29"/>
              <Button id="btn_srch" taborder="10" text="조회" class="btn1" position="absolute 1123 7 1179 29" onclick="grp_sea_btn_srch_onclick"/>
              <Radio id="rdo_refterm" taborder="11" columncount="5" rowcount="0" codecolumn="codecolumn" datacolumn="datacolumn" position="absolute 313 9 588 26" onitemchanged="grp_sea_rdo_refterm_onitemchanged">
                <Dataset id="innerdataset">
                  <ColumnInfo>
                    <Column id="codecolumn"/>
                    <Column id="datacolumn"/>
                  </ColumnInfo>
                  <Rows>
                    <Row>
                      <Col id="codecolumn">-</Col>
                      <Col id="datacolumn">전체</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">1</Col>
                      <Col id="datacolumn">1개월</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">2</Col>
                      <Col id="datacolumn">3개월</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">3</Col>
                      <Col id="datacolumn">6개월</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">4</Col>
                      <Col id="datacolumn"/>
                    </Row>
                  </Rows>
                </Dataset>
              </Radio>
              <Static id="caption18" text="기간 :" class="search_name" position="absolute 250 10 323 27"/>
              <Static id="caption19" text="~" position="absolute 645 8 657 27"/>
              <Calendar id="opt_todd" taborder="12" class="input_search" enable="false" position="absolute 665 8 750 27" dateformat="yyyy-MM-dd"/>
              <Calendar id="opt_fromdd" taborder="13" class="input_search" enable="false" position="absolute 555 8 640 27" dateformat="yyyy-MM-dd" value="null"/>
            </Layout>
          </Layouts>
        </Div>
        <Static id="caption6" text="환자정보" class="tit_2" position="absolute 0 68 85 89"/>
        <Shape id="line2" class="line_10" position="absolute 0 84 340 90"/>
        <Edit id="opt_gender" taborder="2" readonly="true" position="absolute 116 90 136 109"/>
        <Edit id="opt_age" taborder="3" readonly="true" position="absolute 139 90 169 109"/>
        <Static id="caption10" text="이름" class="cell_1" position="absolute 0 89 35 112"/>
        <Edit id="opt_patnm" taborder="4" readonly="true" position="absolute 38 90 113 109"/>
        <Static id="caption11" text="주민번호" class="cell_1" position="absolute 172 89 231 112"/>
        <MaskEdit id="opt_patrrgstno" taborder="5" readonly="true" mask="999999-9999aaa" position="absolute 234 90 340 109" style="align:left middle;" maskchar="*"/>
        <Static id="caption12" text="선택된 상병 정보" class="tit_2" position="absolute 345 68 471 90"/>
        <Shape id="line5" class="line_10" position="absolute 345 84 1194 90"/>
        <Static id="caption13" text="영문상병명" class="cell_1" position="absolute 345 113 425 136"/>
        <Edit id="opt_engdiagnm" taborder="6" readonly="true" position="absolute 428 114 1194 133"/>
        <Shape id="line6" class="line_2" position="absolute 345 132 1194 138"/>
        <Static id="caption14" text="한글상병명" class="cell_1" position="absolute 345 137 425 160"/>
        <Edit id="opt_hngdiagnm" taborder="7" readonly="true" position="absolute 428 138 1194 157"/>
        <Shape id="line7" class="line_3" position="absolute 345 157 1194 163"/>
        <Static id="caption15" text="상병 이력 목록" class="tit_2" position="absolute 0 168 129 189"/>
        <Shape id="line8" linetype="horizontal" class="line_10" position="absolute 0 183 540 192"/>
        <Shape id="line10" linetype="horizontal" class="line_10" position="absolute 0 526 346 535"/>
        <Shape id="line11" linetype="horizontal" class="line_10" position="absolute 355 526 1189 535"/>
        <Static id="caption5" text="진료상병이력" class="tit_2" position="absolute 0 511 130 532"/>
        <Static id="caption16" text="청구상병이력" class="tit_2" position="absolute 355 511 460 532"/>
        <Grid id="grd_diaghistlist" taborder="8" binddataset="ds_main_list1_diagdatelist" useinputpanel="false" cellsizingtype="col" autofittype="col" position="absolute 0 189 540 501" oncellclick="grd_diaghistlist_oncellclick">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="24"/>
                <Column size="97"/>
                <Column size="40"/>
                <Column size="89"/>
                <Column size="70"/>
                <Column size="103"/>
                <Column size="87"/>
              </Columns>
              <Rows>
                <Row size="24" 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" text="구분"/>
                <Cell col="5" text="진료과"/>
                <Cell col="6" text="진료의"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" expr="currow+1"/>
                <Cell col="1" displaytype="date" text="bind:clamym" mask="yyyy-MM" calendardisplaynulltype="nulltext"/>
                <Cell col="2" text="bind:clamdg"/>
                <Cell col="3" displaytype="date" text="bind:ordfromdd" mask="yyyy-MM-dd" calendardisplaynulltype="nulltext"/>
                <Cell col="4" text="bind:ioflag"/>
                <Cell col="5" displaytype="combo" edittype="combo" style="align:center middle;" text="bind:orddeptcd" combodataset="ds_init_orddeptcd_orddeptcdlist" combocodecol="cd" combodatacol="nm" enable="false"/>
                <Cell col="6" displaytype="combo" edittype="combo" style="align:center middle;" text="bind:orddrid" combodataset="ds_init_orddrid_orddridlist" combocodecol="cd" combodatacol="nm" enable="false"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Grid id="grd_orddiaghist" taborder="9" binddataset="ds_main_list01_mmohdiag1" useinputpanel="false" cellsizingtype="col" autofittype="col" position="absolute 0 532 346 752" oncellclick="grd_orddiaghist_oncellclick">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="23"/>
                <Column size="30"/>
                <Column size="54"/>
                <Column size="241"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell/>
                <Cell col="1" text="R/O"/>
                <Cell col="2" text="상병코드"/>
                <Cell col="3" text="상병명(한글)"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" expr="currow+1"/>
                <Cell col="1" displaytype="checkbox" text="bind:diagkindcd" expr="expr:diagkindcd == 'R' ? 1 : 0 " enable="false"/>
                <Cell col="2" text="bind:diagcd"/>
                <Cell col="3" style="align:left middle;" text="bind:diaghngnm"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Grid id="grd_cldihist" taborder="10" binddataset="ds_main_list01_mmohdiag2" useinputpanel="false" cellsizingtype="col" autofittype="col" position="absolute 355 532 1190 753" oncelldblclick="grd_cldihist_oncelldblclick" oncellclick="grd_cldihist_oncellclick" onrbuttondown="grd_cldihist_onrbuttondown" onkeydown="grd_cldihist_onkeydown">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="22"/>
                <Column size="20"/>
                <Column size="30"/>
                <Column size="20"/>
                <Column size="56"/>
                <Column size="345"/>
                <Column size="100"/>
                <Column size="44"/>
                <Column size="0"/>
                <Column size="73"/>
                <Column size="118"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell/>
                <Cell col="1" text="X"/>
                <Cell col="2" text="R/O"/>
                <Cell col="3" text="no"/>
                <Cell col="4" text="상병코드"/>
                <Cell col="5" text="상 병 명"/>
                <Cell col="6" text="청구과"/>
                <Cell col="7" text="MT002"/>
                <Cell col="8" text="치식EDI"/>
                <Cell col="9" text="치식"/>
                <Cell col="10" text="진료일자"/>
                <Cell col="11" text="특정기호"/>
                <Cell col="12" text="wundresncd"/>
                <Cell col="13" text="diagengnm"/>
                <Cell col="14" text="seqno"/>
                <Cell col="15" text="workflag"/>
                <Cell col="16" text="kcd6chk"/>
              </Band>
              <Band id="body">
                <Cell celltype="head"/>
                <Cell col="1" text="bind:rowstat"/>
                <Cell col="2" displaytype="checkbox" edittype="checkbox" text="bind:diagkindcd" expr="expr:diagkindcd == 'R' ? 1 : 0"/>
                <Cell col="3" displaytype="number" edittype="normal" style="align:left middle;" text="bind:diagseq"/>
                <Cell col="4" displaytype="text" edittype="text" text="bind:diagcd"/>
                <Cell col="5" style="align:left middle;" text="bind:diagnm"/>
                <Cell col="6" displaytype="combo" edittype="combo" text="bind:clamdeptcd" combodataset="ds_init_P0322list" combocodecol="cdid" combodatacol="cdnm" enable="false"/>
                <Cell col="7" text="bind:vcode"/>
                <Cell col="8" text="bind:toot"/>
                <Cell col="9" text="bind:toot1"/>
                <Cell col="10" displaytype="date" edittype="date" style="align:left middle;" text="bind:ordfromdd" mask="yyyy/MM/dd"/>
                <Cell col="11" text="bind:estmspclcd"/>
                <Cell col="12" text="bind:wundresncd"/>
                <Cell col="13" text="bind:diagengnm"/>
                <Cell col="14" text="bind:seqno"/>
                <Cell col="15" text="bind:workflag"/>
                <Cell col="16" text="bind:kcd6chk"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Shape id="line3" class="line_2" position="absolute 0 108 340 114"/>
        <Radio id="rdo_ioflag" taborder="11" columncount="3" rowcount="0" codecolumn="codecolumn" datacolumn="datacolumn" position="absolute 38 114 168 134" onitemchanged="rdo_ioflag_onitemchanged">
          <Dataset id="innerdataset">
            <ColumnInfo>
              <Column id="codecolumn"/>
              <Column id="datacolumn"/>
            </ColumnInfo>
            <Rows>
              <Row>
                <Col id="codecolumn">-</Col>
                <Col id="datacolumn">전체</Col>
              </Row>
              <Row>
                <Col id="codecolumn">I</Col>
                <Col id="datacolumn">입원</Col>
              </Row>
              <Row>
                <Col id="codecolumn">O</Col>
                <Col id="datacolumn">외래</Col>
              </Row>
            </Rows>
          </Dataset>
        </Radio>
        <Static id="caption7" text="진료과" class="cell_1" position="absolute 172 113 231 136"/>
        <Combo id="cmb_orddept" taborder="12" innerdataset="@ds_main_orddeptcd" codecolumn="cd" datacolumn="nm" class="combo_default" position="absolute 234 114 340 133" onitemchanged="cmb_orddept_onitemchanged"/>
        <Static id="caption8" text="구분" class="cell_1" position="absolute 0 113 35 136"/>
        <Shape id="line4" class="line_3" position="absolute 0 133 340 139"/>
        <Shape id="line13" class="line_2" position="absolute 345 108 1194 114"/>
        <Static id="caption9" text="확장상병" class="cell_1" position="absolute 345 89 425 112"/>
        <Edit id="opt_termcd" taborder="13" readonly="true" position="absolute 428 90 1194 109"/>
        <Grid id="grd_clamhistlist" taborder="14" binddataset="ds_main_list2_clamhistlist" useinputpanel="false" cellsizingtype="col" autofittype="col" position="absolute 550 189 1191 501">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="21"/>
                <Column size="54"/>
                <Column size="104"/>
                <Column size="71"/>
                <Column size="79"/>
                <Column size="82"/>
                <Column size="80"/>
                <Column size="113"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell displaytype="checkbox" edittype="checkbox"/>
                <Cell col="1" text="청구년월"/>
                <Cell col="2" text="진료과"/>
                <Cell col="3" text="진료개시일"/>
                <Cell col="4" text="총진료비"/>
                <Cell col="5" text="본인부담금"/>
                <Cell col="6" text="청구액"/>
                <Cell col="7" text="원외처방금액"/>
              </Band>
              <Band id="body">
                <Cell displaytype="checkbox" edittype="checkbox" text="bind:chkstatus" expr="expr:chkstatus == 'true' ? 1 : 0"/>
                <Cell col="1" displaytype="date" text="bind:clamym" mask="yyyy-MM"/>
                <Cell col="2" displaytype="combo" edittype="combo" text="bind:orddeptcd" combodataset="ds_init_orddeptcd_orddeptcdlist" combocodecol="cd" combodatacol="nm" enable="false"/>
                <Cell col="3" displaytype="date" text="bind:ordfromdd" mask="yyyy-MM-dd"/>
                <Cell col="4" displaytype="number" text="bind:totordamt" mask="9,999"/>
                <Cell col="5" displaytype="number" text="bind:ownbamt" mask="9,999"/>
                <Cell col="6" displaytype="number" text="bind:insuclamamt" mask="9,999"/>
                <Cell col="7" displaytype="number" text="bind:ediunitcost" mask="9,999"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Shape id="line12" linetype="horizontal" class="line_10" position="absolute 550 183 1191 192"/>
        <Static id="caption17" text="청구대상명세서" class="tit_2" position="absolute 550 168 688 189"/>
        <Button id="button3" taborder="15" text="청구상병저장" class="btn5" position="absolute 1103 508 1189 527" onclick="button3_onclick"/>
        <Shape id="line9" class="line_6" position="absolute 0 754 1194 760"/>
        <Button id="btn_init" taborder="16" text="초기화" class="btn4" position="absolute 956 759 1024 781" onclick="btn_init_onclick"/>
        <Button id="btn_judgdiag" taborder="17" text="일괄상병적용" class="btn4" position="absolute 1027 759 1131 781" onclick="btn_judgdiag_onclick"/>
        <Button id="btn_close" taborder="18" text="닫기" class="btn4" position="absolute 1134 759 1190 781" onclick="btn_close_onclick"/>
        <PopupMenu id="pmn_menu1" position="absolute 1209 94 1311 219" innerdataset="@ds_menu" idcolumn="func" levelcolumn="level" captioncolumn="label" onmenuclick="pmn_menu1_onmenuclick"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_hidden_base" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="basedd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="ordfromdd" type="STRING" size="256"/>
          <Column id="ordtodd" type="STRING" size="256"/>
          <Column id="ioflag" type="STRING" size="256"/>
          <Column id="deptcd" type="STRING" size="256"/>
          <Column id="orddd" type="STRING" size="256"/>
          <Column id="clamym" type="STRING" size="256"/>
          <Column id="clamdg" type="STRING" size="256"/>
          <Column id="pidsn" type="STRING" size="256"/>
          <Column id="refterm" type="STRING" size="256"/>
          <Column id="todd" type="STRING" size="256"/>
          <Column id="fromdd" type="STRING" size="256"/>
          <Column id="clamfromdd" type="STRING" size="256"/>
          <Column id="clamtodd" type="STRING" size="256"/>
          <Column id="screenid" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_init_orddeptcd_orddeptcdlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="nm" type="STRING" size="256"/>
          <Column id="cd" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_orddrid_orddridlist" 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_main_list1_diagdatelist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="pid" type="STRING" size="256" sumtext="등록번호"/>
          <Column id="ioflag" type="STRING" size="256" sumtext="외래/입원/응급구분"/>
          <Column id="ioflagcd" type="STRING" size="256" sumtext="외래/입원/응급구분코드"/>
          <Column id="orddeptcd" type="STRING" size="256" sumtext="진료과"/>
          <Column id="orddrid" type="STRING" size="256" sumtext="진료의ID"/>
          <Column id="ordfromdd" 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="환자SEQ"/>
          <Column id="workflag" type="STRING" size="256" sumtext="작업구분"/>
          <Column id="clamdeptcd" type="STRING" size="256" sumtext="청구부서"/>
          <Column id="cretno" type="STRING" size="256" sumtext="생성번호"/>
          <Column id="indd" type="STRING" size="256" sumtext="입원일자"/>
          <Column id="insukindcd" type="STRING" size="256" sumtext="입원일자"/>
          <Column id="suppkindcd" type="STRING" size="256" sumtext="입원일자"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_main_list2_clamhistlist" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_main_list2_clamhistlist_oncolumnchanged">
        <ColumnInfo>
          <Column id="chkstatus" type="STRING" size="256" sumtext="청구년월"/>
          <Column id="clamym" type="STRING" size="256" sumtext="청구년월"/>
          <Column id="clamdg" type="STRING" size="256" sumtext="청구차수"/>
          <Column id="clamdeptcd" type="STRING" size="256" sumtext="청구과"/>
          <Column id="ordfromdd" type="STRING" size="256" sumtext="진료시작일자"/>
          <Column id="pid" type="STRING" size="256" sumtext="환자번호"/>
          <Column id="pidsn" type="STRING" size="256" sumtext="등록번호순번"/>
          <Column id="orddeptcd" type="STRING" size="256" sumtext="진료과"/>
          <Column id="totordamt" type="STRING" size="256" sumtext="총진료비"/>
          <Column id="ownbamt" type="STRING" size="256" sumtext="본인부담액"/>
          <Column id="insuclamamt" type="STRING" size="256" sumtext="청구액"/>
          <Column id="exist" type="STRING" size="256" sumtext="심사상병존재유무(Y/N)"/>
          <Column id="workflag" type="STRING" size="256" sumtext="작업구분"/>
          <Column id="ediunitcost" type="STRING" size="256" sumtext="사후외래 처방 EDI 함계"/>
          <Column id="totediunitcost" type="STRING" size="256" sumtext="사후외래 처방 EDI 함계"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_main_list01_mmohdiag1" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="diagkindcd" type="STRING" size="256" sumtext="R/O"/>
          <Column id="diagcd" type="STRING" size="256" sumtext="상병코드"/>
          <Column id="diagengnm" type="STRING" size="256" sumtext="상병명"/>
          <Column id="diaghngnm" type="STRING" size="256" sumtext="상병명(한글)"/>
          <Column id="termcd" type="STRING" size="256" sumtext="확장상병코드"/>
          <Column id="termengnm" type="STRING" size="256" sumtext="확장상병영문명"/>
          <Column id="termhngnm" type="STRING" size="256" sumtext="확장상병한글명"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_main_list01_mmohdiag2" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_main_list01_mmohdiag2_oncolumnchanged">
        <ColumnInfo>
          <Column id="diagkindcd" type="STRING" size="256" sumtext="R/O"/>
          <Column id="diagcd" type="STRING" size="256" sumtext="상병코드"/>
          <Column id="diagengnm" type="STRING" size="256" sumtext="상병명"/>
          <Column id="diaghngnm" type="STRING" size="256" sumtext="상병명(한글)"/>
          <Column id="status" type="" size="256" sumtext=""/>
          <Column id="rowstat" type="STRING" size="256" sumtext=""/>
          <Column id="workflag" type="STRING" size="256" sumtext=""/>
          <Column id="diagseqno" type="STRING" size="256" sumtext=""/>
          <Column id="diagnm" type="STRING" size="256" sumtext=""/>
          <Column id="clamdeptcd" type="STRING" size="256" sumtext=""/>
          <Column id="ordfromdd" type="STRING" size="256" sumtext=""/>
          <Column id="toot" type="STRING" size="256" sumtext=""/>
          <Column id="toot1" type="STRING" size="256" sumtext="치식(번호)"/>
          <Column id="estmspclcd" type="STRING" size="256" sumtext=""/>
          <Column id="wundresncd" type="STRING" size="256" sumtext=""/>
          <Column id="seqno" type="STRING" size="256" sumtext=""/>
          <Column id="vcode" type="STRING" size="256" sumtext=""/>
          <Column id="kcd6chk" type="STRING" size="256" sumtext=""/>
          <Column id="endyn" type="STRING" size="256" sumtext=""/>
          <Column id="diagseq" type="STRING" size="256" sumtext=""/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_P0322list" 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_main_item1_pmcmptbs" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="gender" type="STRING" size="256"/>
          <Column id="age" type="STRING" size="256"/>
          <Column id="patnm" type="STRING" size="256"/>
          <Column id="patrrgstno" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="pid"/>
            <Col id="gender"/>
            <Col id="age"/>
            <Col id="patnm"/>
            <Col id="patrrgstno"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_hidden_selected" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="rdoioflag" type="STRING" size="256"/>
          <Column id="cmborddept" type="STRING" size="256"/>
          <Column id="termcd" type="STRING" size="256"/>
          <Column id="engdiagnm" type="STRING" size="256"/>
          <Column id="hngdiagnm" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_init" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="reqpid" type="STRING" size="256" sumtext="등록번호"/>
          <Column id="reqrefterm" type="STRING" size="256" sumtext="조회구분"/>
          <Column id="reqfromdd" type="STRING" size="256" sumtext="시작일자"/>
          <Column id="reqtodd" type="STRING" size="256" sumtext="종료일자"/>
          <Column id="reqclamfromdd" type="STRING" size="256" sumtext="청구시작일자"/>
          <Column id="reqclamtodd" type="STRING" size="256" sumtext="청구종료일자"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_orddeptcd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="nm" type="STRING" size="256"/>
          <Column id="cd" 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_hidden_sppiz00400_rslt" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="diagcd" type="STRING" size="256"/>
          <Column id="diaghngnm" type="STRING" size="256"/>
          <Column id="diagengnm" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_menu" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="label" type="STRING" size="256"/>
          <Column id="func" type="STRING" size="256"/>
          <Column id="level" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="label">상병순서 위로</Col>
            <Col id="func">fDiagSeqUp</Col>
          </Row>
          <Row>
            <Col id="label">상병순서 아래로</Col>
            <Col id="func">fDiagSeqDown</Col>
          </Row>
          <Row>
            <Col id="label">-</Col>
          </Row>
          <Row>
            <Col id="label">행 삽입</Col>
            <Col id="func">fDiagGridInsertRow</Col>
          </Row>
          <Row>
            <Col id="label">행 추가</Col>
            <Col id="func">fDiagGridAddRow</Col>
          </Row>
          <Row>
            <Col id="label">행 추가(5줄)</Col>
            <Col id="func">fDiagGridInsertRowMulti</Col>
          </Row>
          <Row>
            <Col id="label">행 삭제</Col>
            <Col id="func">fDiagGridDeleteRow</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_exepidhcldi_clamhistlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="clamym" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="clamdg" type="STRING" size="256"/>
          <Column id="workflag" type="STRING" size="256"/>
          <Column id="pidsn" type="STRING" size="256"/>
          <Column id="clamdeptcd" type="STRING" size="256"/>
          <Column id="ordfromdd" type="STRING" size="256"/>
          <Column id="exist" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_exepidhcldi_diaglist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="diagkindcd" type="STRING" size="256"/>
          <Column id="diagcd" type="STRING" size="256"/>
          <Column id="diagseq" type="STRING" size="256"/>
          <Column id="diagengnm" type="STRING" size="256"/>
          <Column id="diaghngnm" type="STRING" size="256"/>
          <Column id="toot" type="STRING" size="256"/>
          <Column id="orddiagflag" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_hidden_sppiz00400_cond" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="basedd" type="STRING" size="256"/>
          <Column id="diagnm" type="STRING" size="256"/>
          <Column id="diagcd" type="STRING" size="256"/>
          <Column id="selectedrdodiagkind" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_hidden_list1_cldi" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="olddiagnm" type="STRING" size="256"/>
          <Column id="olddiagcd" type="STRING" size="256"/>
          <Column id="oldrowstat" type="STRING" size="256"/>
          <Column id="oldengnm" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_hidden_list3" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="msgspclformat" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_cond_getvcode" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="diagcd" type="STRING" size="256"/>
          <Column id="ioflag" type="STRING" size="256"/>
          <Column id="suppkind" type="STRING" size="256"/>
          <Column id="insukind" type="STRING" size="256"/>
          <Column id="ordfromdd" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_rslt_getvcode" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="grp_sea.ipt_pid" propid="value" datasetid="ds_send" columnid="pid"/>
      <BindItem id="item1" compid="grp_sea.rdo_refterm" propid="value" datasetid="ds_send" columnid="refterm"/>
      <BindItem id="item2" compid="grp_sea.opt_fromdd" propid="value" datasetid="ds_send" columnid="fromdd"/>
      <BindItem id="item3" compid="grp_sea.opt_todd" propid="value" datasetid="ds_send" columnid="ordtodd"/>
      <BindItem id="item4" compid="grp_sea.ipt_ordfromdd" propid="value" datasetid="ds_send" columnid="clamfromdd"/>
      <BindItem id="item5" compid="grp_sea.ipt_ordtodd" propid="value" datasetid="ds_send" columnid="clamtodd"/>
      <BindItem id="item6" compid="opt_patnm" propid="value" datasetid="ds_main_item1_pmcmptbs" columnid="patnm"/>
      <BindItem id="item7" compid="opt_gender" propid="value" datasetid="ds_main_item1_pmcmptbs" columnid="gender"/>
      <BindItem id="item8" compid="opt_age" propid="value" datasetid="ds_main_item1_pmcmptbs" columnid="age"/>
      <BindItem id="item9" compid="opt_patrrgstno" propid="value" datasetid="ds_main_item1_pmcmptbs" columnid="patrrgstno"/>
      <BindItem id="item10" compid="rdo_ioflag" propid="value" datasetid="ds_hidden_selected" columnid="rdoioflag"/>
      <BindItem id="item11" compid="cmb_orddept" propid="value" datasetid="ds_hidden_selected" columnid=""/>
      <BindItem id="item12" compid="opt_termcd" propid="value" datasetid="ds_hidden_selected" columnid="termcd"/>
      <BindItem id="item13" compid="opt_engdiagnm" propid="value" datasetid="ds_hidden_selected" columnid="engdiagnm"/>
      <BindItem id="item14" compid="opt_hngdiagnm" propid="value" datasetid="ds_hidden_selected" columnid="hngdiagnm"/>
    </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::PAM.xjs";
function SMPIZ00200_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SMPIZ00200_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(grd_diaghistlist);
	grdf_initGrid(grd_clamhistlist);
	grdf_initGrid(grd_orddiaghist);
	grdf_initGrid(grd_cldihist);

	grdf_setRowTypeIcon(grd_cldihist, 0);

	var today = new Date();
	var baseyear = today.getDateFormat("YYYY");	// (dateHelper.js)에서 제공하는 함수를 사용하여 해당 년를 구한다.
	var basemonth = today.getDateFormat("MM");
	var baseday = today.getDateFormat("DD");
	var currentdd = baseyear + basemonth + baseday;
	
	ds_hidden_base.setColumn(0, "basedd", currentdd);
	
	pamGetDeptCDDrIDList();
	ds_init_orddeptcd_orddeptcdlist.copyData(ds_init_orddeptcdlist)
	ds_init_orddrid_orddridlist.copyData(ds_init_orddridlist)
	
	fInitialize();
	fCheckAuth();
	fCheckOpener();
}

var diagSelIdx = 0;
var clamSelIdx = 0; 

function fInitialize()
{
	grp_sea.ipt_pid.setFocus();
	
	ds_main_item1_pmcmptbs.clearData();
	ds_main_list01_mmohdiag1.clearData();
	ds_main_list01_mmohdiag2.clearData();
	ds_main_list1_diagdatelist.clearData();
	ds_main_list2_clamhistlist.clearData();
	
	if (frmf_isPopup()) 
	{
		dsf_makeValue(ds_send, "pid", "string", sPid, 0);
		dsf_makeValue(ds_send, "clamym", "string", sClamym, 0);
		dsf_makeValue(ds_send, "ordfromdd", "string", sOrdfromdd, 0);
		dsf_makeValue(ds_send, "ordtodd", "string", sOrdtodd, 0);
	} 
	else 
	{
		ds_send.clearData();
		ds_send.addRow();
	}
	
	ds_send.setColumn(0, "ordtodd", ds_hidden_base.getColumn(0, "basedd"));
	
	ds_hidden_selected.setColumn(0, "rdoioflag", "-");
	
	ds_send.setColumn(0, "refterm", "3");
	
	var currentdate = utlf_getCurrentDate();
	
	dsf_makeValue(ds_send, "fromdd", "string", currentdate, 0);
	dsf_makeValue(ds_send, "todd", "string", currentdate, 0);
	
	var clamym = ds_send.getColumn(0, "clamym");
	
	dsf_makeValue(ds_send, "clamfromdd", "string", clamym + "01", 0);
	dsf_makeValue(ds_send, "clamtodd", "string", clamym + utlf_getDayCountForMonth(clamym.substr(0, 4), clamym.substr(4, 2)), 0);
	
	var arrParam = [{dsNm: "ds_init_P0322list", cdGrpId: "P0322"}]
				   
	appf_getCodeList(arrParam);
}

function fCheckAuth() 
{
	if (frmf_isPopup())
	{
		btn_judgdiag.enable = true;
		btn_close.enable = true;
	} 
	else 
	{
		btn_judgdiag.enable = false;
		btn_close.enable = false;
	}
}

function fCheckOpener() 
{
	if (ds_send.getColumn(0, "pid")) 
	{
		var oParam = {};
			oParam.id          = "TRPIZ00101";
			oParam.service     = "insucomapp.IODiagHist";
			oParam.method      = "reqGetDiagHistList";
			oParam.inds        = "req=ds_send";
			oParam.outds       = "ds_main_item1_pmcmptbs=pmcmptbs ds_main_list1_diagdatelist=diagdatelist ds_main_list2_clamhistlist=clamhistlist";
			oParam.async       = false;
			//oParam.callback    = "cf_TRPIZ00101";

		tranf_submit(oParam);

		fSetOrdDeptCdList();
	}
}

function fSetOrdDeptCdList() 
{
	for (var i = 0; i < ds_main_list1_diagdatelist.rowcount; i++) 
	{
		var deptcd = ds_main_list1_diagdatelist.getColumn(i, "orddeptcd");
		var isFind = false;
		
		for (var j = 0; j < ds_main_orddeptcd.rowcount; j++) 
		{
			var cd = ds_main_orddeptcd.getColumn(j, "cd");
			if (deptcd == cd)
			{
				isFind = true;
				j = ds_main_orddeptcd.rowcount + 1;
			}
		}
		
		if (!isFind) 
		{
			var fRow = ds_init_orddeptcd_orddeptcdlist.findRow("cd", ds_main_list1_diagdatelist.getColumn(i, "orddeptcd"));
			var deptnm = ds_init_orddeptcd_orddeptcdlist.getColumn(fRow, "nm");
			
			if (deptnm) 
			{			
				var aRow = ds_main_orddeptcd.addRow();
				ds_main_orddeptcd.setColumn(aRow, "nm", deptnm);
			} 
			else 
			{
				var aRow = ds_main_orddeptcd.addRow();
				ds_main_orddeptcd.setColumn(aRow, "cd", deptcd);
			}
 			ds_main_orddeptcd.setColumn(aRow, "cd", deptcd);
		}
	}
	
	ds_main_list1_diagdatelist.rowposition = 0;
	
	var pid = ds_main_list1_diagdatelist.getColumn(0, "pid");
	
	if (pid) 
	{
		// 상병 이력 목록 Grid를 선택한 경우
		fPatIODiagHistList();
	} 
	else 
	{
	}
}
		
function fPatIODiagHistList()
{
	ds_hidden_selected.setColumn(0, "termcd", "");
	ds_hidden_selected.setColumn(0, "engdiagnm", "");
	ds_hidden_selected.setColumn(0, "hngdiagnm", "");
	
	var row = ds_main_list1_diagdatelist.rowposition;
	
	ds_send.setColumn(0, "pid", ds_main_list1_diagdatelist.getColumn(row, "pid"));
	ds_send.setColumn(0, "ioflag", ds_main_list1_diagdatelist.getColumn(row, "ioflagcd"));
	ds_send.setColumn(0, "deptcd", ds_main_list1_diagdatelist.getColumn(row, "orddeptcd"));
	ds_send.setColumn(0, "orddd", ds_main_list1_diagdatelist.getColumn(row, "ordfromdd"));
	ds_send.setColumn(0, "clamym", ds_main_list1_diagdatelist.getColumn(row, "clamym"));
	ds_send.setColumn(0, "clamdg", ds_main_list1_diagdatelist.getColumn(row, "clamdg"));
	ds_send.setColumn(0, "pidsn", ds_main_list1_diagdatelist.getColumn(row, "pidsn"));
	ds_send.setColumn(0, "screenid", frmf_getScreenID());
	
	var oParam = {};
		oParam.id          = "TRPIZ00102";
		oParam.service     = "insucomapp.IODiagHist";
		oParam.method      = "reqGetPatIODiagHistList";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_main_list01_mmohdiag1=mmohdiag1 ds_main_list01_mmohdiag2=mmohdiag2";
		oParam.async       = false;
		//oParam.callback    = "cf_TRPIZ00102";

	tranf_submit(oParam);
	
	if (ds_main_list01_mmohdiag1.rowcount > 0) 
	{
		ds_main_list01_mmohdiag1.rowposition = 0;
		
		fSelectOrdDiagHist();				// 진료상병이력을 선택한 경우
	}
	else if (ds_main_list01_mmohdiag2.rowcount > 0)
	{
		ds_main_list01_mmohdiag2.rowposition = 0;
		
		fSelectClamDiagHist();			// 청구상병이력을 선택한 경우
	}
}

function fSelectOrdDiagHist() 
{
	var row = ds_main_list01_mmohdiag1.rowposition;
	
	ds_hidden_selected.setColumn(0, "termcd", ds_main_list01_mmohdiag1.getColumn(row, "termcd"));
	ds_hidden_selected.setColumn(0, "engdiagnm", ds_main_list01_mmohdiag1.getColumn(row, "termengnm"));
	ds_hidden_selected.setColumn(0, "hngdiagnm", ds_main_list01_mmohdiag1.getColumn(row, "termhngnm"));
}

function fSelectClamDiagHist() 
{
	var row = ds_main_list01_mmohdiag2.rowposition;
	
	ds_hidden_selected.setColumn(0, "termcd", "");
	ds_hidden_selected.setColumn(0, "engdiagnm", ds_main_list01_mmohdiag2.getColumn(row, "diagengnm"));
	ds_hidden_selected.setColumn(0, "hngdiagnm", ds_main_list01_mmohdiag2.getColumn(row, "diaghngnm"));
}

function grp_sea_ipt_pid_onkeydown(obj:MaskEdit, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		obj.updateToDataset();
		
		fGetIODiagHistList();
	}
}

function fGetIODiagHistList()
{
	var ipt_pid = ds_send.getColumn(0, "pid");
	
	if (utlf_isNull(ipt_pid))
	{
		sysf_messageBox("검색할 등록번호를", "C001");	///검색할 등록번호를 입력하십시오.
		return;
	}
	
	var fromdd = ds_send.getColumn(0, "fromdd");
	var todd = ds_send.getColumn(0, "todd");
	
	if (!utlf_isNull(fromdd) && !utlf_isNull(todd))
	{
		if (fromdd > todd) 
		{
			sysf_messageBox("검색 시작날짜가 종료날짜 보다 클 수", "I004");	///검색 시작날짜가 종료날짜 보다 클 수 없습니다.
			return;
		}
		
		ds_main_item1_pmcmptbs.clearData();
		ds_hidden_selected.clearData();
		ds_hidden_selected.addRow();
		
		ds_hidden_selected.setColumn(0, "rdoioflag", "-");
		
		var oParam = {};
			oParam.id          = "TRPIZ00101";
			oParam.service     = "insucomapp.IODiagHist";
			oParam.method      = "reqGetDiagHistList";
			oParam.inds        = "req=ds_send";
			oParam.outds       = "ds_main_item1_pmcmptbs=pmcmptbs ds_main_list1_diagdatelist=diagdatelist ds_main_list2_clamhistlist=clamhistlist";
			oParam.async       = false;
			//oParam.callback    = "cf_TRPIZ00101";

		tranf_submit(oParam);

		fSetOrdDeptCdList();
		
		if (utlf_isNull(ds_main_item1_pmcmptbs.getColumn(0, "pid")))
		{
			sysf_messageBox("입력된 등록번호의 환자정보가", "I004");		///입력된 등록번호의 환자정보가 없습니다.
		}
	}
}

function grp_sea_btn_srchpid_onclick(obj:Button,  e:ClickEventInfo)
{
	var ipt_pid = ds_send.getColumn(0, "pid");
	
	if (ipt_pid) 
	{
		ds_hidden_sppmc02500_cond.setColumn(0, "srchcond", "1");
		ds_hidden_sppmc02500_cond.setColumn(0, "pid", ipt_pid);
	} 
	else 
	{
		ds_hidden_sppmc02500_cond.clearData();
		ds_hidden_sppmc02500_cond.addRow();
	}
	
	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_send.setColumn(0, "pid", srch_pid);
	}
}

function grp_sea_rdo_refterm_onitemchanged(obj:Radio, e:ItemChangeEventInfo)
{
	var refterm = obj.value;
								
	if (refterm == "4") 
	{
		grp_sea.opt_fromdd.enable = true;
		grp_sea.opt_todd.enable = true;
	} 
	else 
	{
		grp_sea.opt_fromdd.enable = false;
		grp_sea.opt_todd.enable = false;
		
		fGetIODiagHistList();
	}
}

function grp_sea_btn_srch_onclick(obj:Button,  e:ClickEventInfo)
{
	fGetIODiagHistList();
}

function rdo_ioflag_onitemchanged(obj:Radio, e:ItemChangeEventInfo)
{
	fSelectedIODept();
}

function fSelectedIODept() 
{
	var ioflag = ds_hidden_selected.getColumn(0, "rdoioflag");
	
	var selCond = "";
	
	if (ioflag == "I") 
	{
		selCond = "ioflagcd == 'I'";
	}
	else if (ioflag == "O") 
	{
		selCond = "ioflagcd  == 'O'";
	}
	
	var orddept =  ds_hidden_selected.getColumn(0, "cmborddept");
	
	if (!utlf_isNull(orddept))
	{
		if (utlf_isNull(selCond))
		{
			selCond = "orddeptcd =='" + orddept + "'";
		} 
		else 
		{
			selCond += "&& orddeptcd =='" + orddept + "'";
		}
	}
	
	if (selCond)
	{
// 		grd_diaghistlist.attribute("nodeset") = "/root/main/diaghist/list1/diagdatelist[" + selCond + "]"; 
// 		grd_clamhistlist.attribute("nodeset") = "/root/main/diaghist/list2/clamhistlist[" + selCond + "]"; 
// 		grd_diaghistlist.rebuild();
// 		grd_clamhistlist.rebuild();
		
		ds_hidden_selected.setColumn(0, "termcd", "");
		ds_hidden_selected.setColumn(0, "engdiagnm", "");
		ds_hidden_selected.setColumn(0, "hngdiagnm", "");
		
		ds_main_list01_mmohdiag1.clearData();
		ds_main_list01_mmohdiag2.clearData();
	} 
	else
	{
// 		grd_diaghistlist.attribute("nodeset") = "/root/main/diaghist/list1/diagdatelist"; 
// 		grd_clamhistlist.attribute("nodeset") = "/root/main/diaghist/list2/clamhistlist"; 
// 		grd_diaghistlist.rebuild();
		
		
		ds_main_list1_diagdatelist.rowposition = 0;
		
		var pid = ds_main_list1_diagdatelist.getColumn(0, "pid");
		
		if (pid) 
		{
			fPatIODiagHistList();
		}
	}
}

function cmb_orddept_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
{
	fSelectedIODept();
}

function grd_diaghistlist_oncellclick(obj:Grid, e:GridClickEventInfo)
{
	if(e.row > -1)
	{
		fPatIODiagHistList();
	}
}

function grd_orddiaghist_oncellclick(obj:Grid, e:GridClickEventInfo)
{
	if(e.row > -1)
	{
		fSelectOrdDiagHist();
	}
	else
	{
		ds_main_list01_mmohdiag1.clearSelect();
		ds_hidden_selected.setColumn(0, "termcd", "");
		ds_hidden_selected.setColumn(0, "engdiagnm", "");
		ds_hidden_selected.setColumn(0, "hngdiagnm", "");
	}
}

function grd_cldihist_oncelldblclick(obj:Grid, e:GridClickEventInfo)
{
	var row = e.row;
	
	if (row > -1)
	{
		var col = e.col;
		
		if (col == grd_cldihist.getBindCellIndex("Body", "diagnm"))
		{
			fSearchSPPIZ00400();
			fSortDiagNo(true);
		}
		else if (col == grd_cldihist.getBindCellIndex("Body", "tool1"))
		{
			fDiagOrderToothInput("Diag");
		}
	}
}

function fSortDiagNo(isNumbering) 
{
	var delcnt = 0;

	if (isNumbering == false) 
	{
		var maxRow = ds_main_list01_mmohdiag2.rowcount - 1;
		ds_main_list01_mmohdiag2.keystring = "";
		ds_main_list01_mmohdiag2.keystring = "S:+diagseq";	
		grd_clamhistlist.updateToDataset();
		
		return;
	}

	var cldino = 1;
	
	for ( var i = 0; i < ds_main_list01_mmohdiag2.rowcount; i++) 
	{
		if (ds_main_list01_mmohdiag2.getRowType(i) != 8) 
		{ 
			var diagseq = ds_main_list01_mmohdiag2.getColumn(i, "diagseq");	
											
			if (ds_main_list01_mmohdiag2.getRowType(i) == 1 && diagseq != cldino)
			{
				ds_main_list01_mmohdiag2.enableevent = false;
				ds_main_list01_mmohdiag2.setRowType(i, "u"); //update
				ds_main_list01_mmohdiag2.enableevent = true;
			}
			ds_main_list01_mmohdiag2.setColumn(i, "diagseq", cldino++);					
		} 
		else
		{
			delcnt++;
		}
	}
	
	ds_main_list01_mmohdiag2.keystring = "";	
	ds_main_list01_mmohdiag2.keystring = "S:+diagseq";	
	
	if (delcnt > 0)
	{
		ds_main_list01_mmohdiag2.keystring = "";
		ds_main_list01_mmohdiag2.keystring = "S:+diagseq";		
	}
	grd_cldihist.updateToDataset();	
}

function fSearchSPPIZ00400() 
{
	var sppiz00400 = new Object();
		sppiz00400.sSelectedrdodiagkind = "3";
		sppiz00400.sDiagcd              = ds_main_list01_mmohdiag2.getColumn(ds_main_list01_mmohdiag2.rowposition, "diagcd");
		sppiz00400.sDiagnm              = "";
		
	var objArg = frmf_modal("SPPIZ00400", "SPPIZ00400", sppiz00400, "", "", "", "", "", "", "", "", "", "M");
	
	if (!utlf_isNull(objArg))
	{
		ds_hidden_sppiz00400_rslt.clearData();
		ds_hidden_sppiz00400_rslt.addRow();
		ds_hidden_sppiz00400_rslt.setColumn(0, "diagcd"    , objArg.sDiagcd);
		ds_hidden_sppiz00400_rslt.setColumn(0, "diaghngnm" , objArg.sDiagnm);
		ds_hidden_sppiz00400_rslt.setColumn(0, "diagengnm" , objArg.sDiagengnm);
	}
}

function ds_main_list01_mmohdiag2_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
{
	var col = e.columnid;
	var row = e.row;				
			
	if (col == "ordfromdd")
	{
		var ordfromdd = obj.getColumn(row, "ordfromdd");
		
		if (!utlf_isValidDateTime(ordfromdd)) 
		{
// 			obj.setColumn(row, "ordfromdd", 
// 			model.setValue(grd_cldihist.nodeset + "["+ row +"]/ordfromdd", model.getValue("/root/hidden/list1/cldi/oldordfromdd"));
// 			grd_cldihist.rowstatus(row) = model.getValue("/root/hidden/list1/cldi/oldrowstat");
// 			grd_cldihist.refresh();
		}
	} 

	else if (col == "diagkindcd")
	{
		obj.setColumn(e.row, "diagkindcd", (e.newvalue == "R" || e.newvalue == 1) ? "R" : "C");
	}	
}

function fSearchDiageCode()
{
	var row    = ds_main_list01_mmohdiag2.rowposition;
	var diagcd = ds_main_list01_mmohdiag2.getColumn(row, "diagcd");
	
	if (!utlf_isNull(diagcd))
	{	
		ds_hidden_sppiz00400_rslt.clearData();
		ds_hidden_sppiz00400_cond.clearData();
		ds_hidden_sppiz00400_cond.addRow();
		
		ds_hidden_sppiz00400_cond.setColumn(0, "basedd", utlf_getCurrentDate());
		ds_hidden_sppiz00400_cond.setColumn(0, "diagcd", diagcd);
		ds_hidden_sppiz00400_cond.setColumn(0, "diagnm", "");
		ds_hidden_sppiz00400_cond.setColumn(0, "selectedrdodiagkind", "1");

		var oParam = {};
			oParam.id          = "TRPID20306";
			oParam.service     = "aftjudgapp.InAftJudg";
			oParam.method      = "reqGetSickAndWounded";
			oParam.inds        = "req=ds_hidden_sppiz00400_cond";
			oParam.outds       = "ds_hidden_sppiz00400_cond=cond ds_hidden_sppiz00400_rslt=rslt";
			oParam.async       = false;
		tranf_submit(oParam);
		
		var rsltList = ds_hidden_sppiz00400_rslt.rowcount;		
		
		if ( rsltList == 1 ) 
		{
			fSetDiagCdNm();

			// 다음칸에 자동 포커스 2008-11-26
			row++;
			ds_main_list01_mmohdiag2.rowposition = row;
			grd_cldihist.setCellPos(grd_cldihist.getBindCellIndex("body", "diagcd"));
			grd_cldihist.showEditor(true);	
		}
		else 
		{
			fSearchSPPIZ00400();

			if ( utlf_isNull(ds_main_list01_mmohdiag2.getColumn(row, "diagnm")) && utlf_isNull(ds_main_list01_mmohdiag2.getColumn(row, "diagengnm")))
			{
				ds_main_list01_mmohdiag2.setColumn(row, "diagcd", ds_hidden_list1_cldi.getColumn(0, "olddiagcd"));
				ds_main_list01_mmohdiag2.setColumn(row, "diagnm", ds_hidden_list1_cldi.getColumn(0, "olddiagnm"));
				ds_main_list01_mmohdiag2.setColumn(row, "diagengnm", ds_hidden_list1_cldi.getColumn(0, "oldengnm"));
				ds_main_list01_mmohdiag2.setRowType(row, ds_hidden_list1_cldi.getColumn(0, "oldrowstat"));
				return;
			} 
			else 
			{
			
				row = ds_main_list01_mmohdiag2.rowposition;	

				if ( utlf_isNull(ds_main_list01_mmohdiag2.getColumn(row, "diagcd"))) 
				{
					ds_main_list01_mmohdiag2.setColumn(row, "diagcd"    , ds_hidden_list1_cldi.getColumn(0, "olddiagcd"));
					ds_main_list01_mmohdiag2.setColumn(row, "diagnm"    , ds_hidden_list1_cldi.getColumn(0, "olddiagnm"));
					ds_main_list01_mmohdiag2.setColumn(row, "diagengnm" , ds_hidden_list1_cldi.getColumn(0, "oldengnm"));
					ds_main_list01_mmohdiag2.setRowType(row, ds_hidden_list1_cldi.getColumn(0, "oldrowstat"));
					
					return;
				}
			}
		}
	} 
	else 
	{
		fSearchSPPIZ00400();			
		row = ds_main_list01_mmohdiag2.rowposition;		
		
		if ( utlf_isNull(ds_main_list01_mmohdiag2.getColumn(row, "diagcd"))) 
		{
			ds_main_list01_mmohdiag2.setColumn(row, "diagcd", ds_hidden_list1_cldi.getColumn(0, "olddiagcd"));
			ds_main_list01_mmohdiag2.setColumn(row, "diagnm", ds_hidden_list1_cldi.getColumn(0, "olddiagnm"));
			ds_main_list01_mmohdiag2.setColumn(row, "diagengnm", ds_hidden_list1_cldi.getColumn(0, "oldengnm"));
			ds_main_list01_mmohdiag2.setRowType(row, ds_hidden_list1_cldi.getColumn(0, "oldrowstat"));
			return;
		}
	}
}

function fSetDiagCdNm() 
{
	var row = ds_main_list01_mmohdiag2.rowposition;
	var diagcd    = utlf_transNullToEmpty(ds_hidden_sppiz00400_rslt.getColumn(0, "diagcd")); 
	var diaghngnm = utlf_transNullToEmpty(ds_hidden_sppiz00400_rslt.getColumn(0, "diaghngnm")); 
	var diagengnm = utlf_transNullToEmpty(ds_hidden_sppiz00400_rslt.getColumn(0, "diagengnm")); 

	if (row > -1) 
	{			
		ds_main_list01_mmohdiag2.setColumn(row, "diagcd"    , diagcd);
		ds_main_list01_mmohdiag2.setColumn(row, "diagnm"    , diaghngnm);
		ds_main_list01_mmohdiag2.setColumn(row, "diagengnm" , diagengnm);	
	} 
	else 
	{
		var iRow = ds_main_list01_mmohdiag2.insertRow(0);
		ds_main_list01_mmohdiag2.setColumn(iRow, "diagcd"    , diagcd);
		ds_main_list01_mmohdiag2.setColumn(iRow, "diagnm"    , diaghngnm);
		ds_main_list01_mmohdiag2.setColumn(iRow, "diagengnm" , diagengnm);	
		row = iRow;
	} 

	ds_hidden_list3.setColumn(0, "msgspclformat", "상병코드 - " + diagcd	+ " / " + diaghngnm + " / " + diagengnm);

	ds_main_list01_mmohdiag2.setColumn(row, "vcode", fGetDiagVcode(diagcd));

	if ( ds_main_list01_mmohdiag2.getColumn(row, "diagseq") == "1" && !utlf_isNull(ds_main_list01_mmohdiag2.getColumn(row, "vcode")))
	{
		fSetDiagMT002(ds_main_list01_mmohdiag2.getColumn(row, "vcode"));
	}

	var addval1 = ds_main_list01_mmohdiag2.getColumn(row, "rowstat");
	var addval2 = ds_main_list01_mmohdiag2.getRowType(row);

	var rowstatus = ds_main_list01_mmohdiag2.getRowType(row);	
		
	if (rowstatus != 2 ) 
	{ 
		ds_main_list01_mmohdiag2.updatecontrol = false;
		ds_main_list01_mmohdiag2.setRowType(row, 'u');
		ds_main_list01_mmohdiag2.updatecontrol = true;		
	}
	
	if (utlf_isNull(addval1) && addval2 == 2 ) 
	{
		fDiagGridInsertRow("Y", "N");
	}
}

function fGetDiagVcode(diagcd) 
{
	var vcode         = "";
	var spclcd        = "";
	var spclspec      = "";
	var gridrowstatus = "";
	var existsyn      = "N";
	
	ds_cond_getvcode.clearData();
	ds_cond_getvcode.addRow();
	
	ds_cond_getvcode.setColumn(0, "diagcd"   , diagcd);
	ds_cond_getvcode.setColumn(0, "ioflag"   , ds_main_list1_diagdatelist.getColumn(0, "ioflagcd"));
	ds_cond_getvcode.setColumn(0, "insukind" , ds_main_list1_diagdatelist.getColumn(0, "insukindcd"));
	ds_cond_getvcode.setColumn(0, "suppkind" , ds_main_list1_diagdatelist.getColumn(0, "suppkindcd"));
	ds_cond_getvcode.setColumn(0, "ordfromdd", ds_main_list1_diagdatelist.getColumn(0, "ordfromdd"));

	var oParam = {};
		oParam.id          = "TRPID20313";
		oParam.service     = "aftjudgapp.InAftJudg";
		oParam.method      = "reqGetDiagcdVcode";
		oParam.inds        = "req=ds_cond_getvcode";
		oParam.outds       = "ds_cond_getvcode=cond ds_rslt_getvcode=rslt";
		oParam.async       = false;
		//oParam.callback    = "cf_TRPID20313";

	tranf_submit(oParam);
	
	vcode = ds_rslt_getvcode.getColumn(0, "vcode");
	
	return vcode;
}

function grd_cldihist_oncellclick(obj:Grid, e:GridClickEventInfo)
{
	if(e.row > -1)
	{
		fSelectOrdDiagHist();
	}
	else
	{
		ds_main_list01_mmohdiag1.clearSelect();
		ds_hidden_selected.setColumn(0, "termcd", "");
		ds_hidden_selected.setColumn(0, "engdiagnm", "");
		ds_hidden_selected.setColumn(0, "hngdiagnm", "");
	}
}

function pmn_menu1_onmenuclick(obj:PopupMenu, e:MenuClickEventInfo)
{
	eval(e.id +"();");
}

function grd_cldihist_onrbuttondown(obj:Grid, e:GridMouseEventInfo)
{
	pmn_menu1.trackPopup(e.screenX,e.screenY);
}

function button3_onclick(obj:Button,  e:ClickEventInfo)
{
	if(ds_main_list01_mmohdiag2.rowcount == 0)
	{
		return;
	}
	
	var chkstatus = "";
	var row = ds_main_list1_diagdatelist.rowposition;
	
	ds_exepidhcldi_clamhistlist.setColumn(0, "clamym", ds_main_list1_diagdatelist.getColumn(row, "clamym"));
	ds_exepidhcldi_clamhistlist.setColumn(0, "clamdg", ds_main_list1_diagdatelist.getColumn(row, "clamdg"));
	ds_exepidhcldi_clamhistlist.setColumn(0, "pid", ds_main_list1_diagdatelist.getColumn(row, "pid"));
	ds_exepidhcldi_clamhistlist.setColumn(0, "pidsn", ds_main_list1_diagdatelist.getColumn(row, "pidsn"));
	ds_exepidhcldi_clamhistlist.setColumn(0, "workflag", ds_main_list1_diagdatelist.getColumn(row, "workflag"));
	ds_exepidhcldi_clamhistlist.setColumn(0, "clamdeptcd", ds_main_list1_diagdatelist.getColumn(row, "clamdeptcd"));
	ds_exepidhcldi_clamhistlist.setColumn(0, "ordfromdd", ds_main_list1_diagdatelist.getColumn(row, "ordfromdd"));
	ds_exepidhcldi_clamhistlist.setColumn(0, "exist", "Y");
	
	var diaghCnt = 1;
	
	if(ds_main_list01_mmohdiag2.rowcount > 0)
	{
		for(var idx = 0; idx < ds_main_list01_mmohdiag2.rowcount; idx++)
		{
			var status = ds_main_list01_mmohdiag2.getColumn(idx, "status");
			var diagcd = ds_main_list01_mmohdiag2.getColumn(idx, "diagcd");
			var diagnm = ds_main_list01_mmohdiag2.getColumn(idx, "diagnm");
			var diagseq = ds_main_list01_mmohdiag2.getColumn(idx, "diagseq");
			var rowstatus = ds_main_list01_mmohdiag2.getRowType(idx);
			
			if(!utlf_isNull(diagcd)&& !utlf_isNull(diagnm) && !utlf_isNull(diagseq) && rowstatus != 8)
			{		
				var diaghCnt = ds_exepidhcldi_diaglist.addRow();
				ds_exepidhcldi_diaglist.setColumn(diaghCnt, "diagkindcd", ds_main_list01_mmohdiag2.getColumn(idx, "diagkindcd"));
				ds_exepidhcldi_diaglist.setColumn(diaghCnt, "diagcd", ds_main_list01_mmohdiag2.getColumn(idx, "diagcd"));
				ds_exepidhcldi_diaglist.setColumn(diaghCnt, "diagseq", ds_main_list01_mmohdiag2.getColumn(idx, "diagseq"));
				ds_exepidhcldi_diaglist.setColumn(diaghCnt, "diagengnm", ds_main_list01_mmohdiag2.getColumn(idx, "diagengnm"));
				ds_exepidhcldi_diaglist.setColumn(diaghCnt, "diaghngnm", ds_main_list01_mmohdiag2.getColumn(idx, "diagnm"));
				ds_exepidhcldi_diaglist.setColumn(diaghCnt, "toot", ds_main_list01_mmohdiag2.getColumn(idx, "toot"));
				ds_exepidhcldi_diaglist.setColumn(diaghCnt, "orddiagflag", "N");
			}
		}
	}
	
	ds_init.setColumn(0, "reqpid", ds_send.getColumn(0, "pid"));
	ds_init.setColumn(0, "reqrefterm", ds_send.getColumn(0, "refterm"));
	ds_init.setColumn(0, "reqfromdd", ds_send.getColumn(0, "fromdd"));
	ds_init.setColumn(0, "reqtodd", ds_send.getColumn(0, "todd"));
	ds_init.setColumn(0, "reqclamfromdd", ds_send.getColumn(0, "clamfromdd"));
	ds_init.setColumn(0, "reqclamtodd", ds_send.getColumn(0, "clamtodd"));
	
	dsf_setDefaultVal(ds_exepidhcldi_diaglist, "toot:-");
	dsf_setDefaultVal(ds_init, "reqrefterm:-");
	
	var oParam = {};
		oParam.id          = "TXPIZ00201";
		oParam.service     = "insucomapp.IODiagHist";
		oParam.method      = "reqExePidhcldi";
		oParam.inds        = "clamhistlist=ds_exepidhcldi_clamhistlist diaglist=ds_exepidhcldi_diaglist req=ds_init";
		oParam.outds       = "";
		oParam.async       = false;
		//oParam.callback    = "cf_TXPIZ00201";

	tranf_submit(oParam);

	
	fGetIODiagHistList();
}

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

function btn_judgdiag_onclick(obj:Button,  e:ClickEventInfo)
{
	if(ds_main_list01_mmohdiag1.rowposition > -1 && ds_main_list01_mmohdiag2.rowposition > -1)
	{
		return;
	}
	
	var orddiaghist_rows = grdf_getSelectedRows(group3.grd_pifmiunc);
	
	if(grdf_getSelectedRows(grd_orddiaghist).length == 0 && grdf_getSelectedRows(grd_cldihist).length == 0)
	{
		return;
	}
	
	ds_exepidhcldi_clamhistlist.clearData();
	ds_exepidhcldi_diaglist.clearData();

	var chkstatus = "";
	
	for(var rowIdx = 0; rowIdx < ds_main_list2_clamhistlist.rowcount; rowIdx++)
	{
		chkstatus = ds_main_list2_clamhistlist.getColumn(rowIdx, "chkstatus");
		
		if(chkstatus == "true")
		{
			var row = ds_exepidhcldi_clamhistlist.addRow();
			
			ds_exepidhcldi_clamhistlist.copyRow(row, ds_main_list2_clamhistlist, rowIdx);
		}
	}
	
	var rows = grdf_getSelectedRows(grd_orddiaghist);
	
	if(rows.length > 0 && ds_main_list01_mmohdiag1.rowposition > -1)
	{
		for(var idx = 0; idx < rows.length; idx++)
		{
			var selectedIdx = rows[idx];
			var diaghCnt = ds_exepidhcldi_diaglist.addRow();
			
			ds_exepidhcldi_diaglist.setColumn(diaghCnt, "diagkindcd", ds_main_list01_mmohdiag1.getColumn(selectedIdx, "diagkindcd"));
			ds_exepidhcldi_diaglist.setColumn(diaghCnt, "diagcd", ds_main_list01_mmohdiag1.getColumn(selectedIdx, "diagcd"));
			ds_exepidhcldi_diaglist.setColumn(diaghCnt, "diagengnm", ds_main_list01_mmohdiag1.getColumn(selectedIdx, "diagengnm"));
			ds_exepidhcldi_diaglist.setColumn(diaghCnt, "diaghngnm", ds_main_list01_mmohdiag1.getColumn(selectedIdx, "diaghngnm"));
			ds_exepidhcldi_diaglist.setColumn(diaghCnt, "orddiagflag", "Y");
			ds_exepidhcldi_diaglist.setColumn(diaghCnt, "diagseq", diaghCnt);
		}
	}
	
	var rows_cldi = grdf_getSelectedRows(grd_cldihist);
	
	if(rows_cldi.length > 0 && ds_main_list01_mmohdiag2.rowposition > -1)
	{
		for(var idx = 0; idx < rows_cldi.length; idx++)
		{
			var selectedIdx = rows_cldi[idx];
			var diaghCnt = ds_exepidhcldi_diaglist.addRow();
			
			ds_exepidhcldi_diaglist.setColumn(diaghCnt, "diagkindcd", ds_main_list01_mmohdiag1.getColumn(selectedIdx, "diagkindcd"));
			ds_exepidhcldi_diaglist.setColumn(diaghCnt, "diagcd", ds_main_list01_mmohdiag1.getColumn(selectedIdx, "diagcd"));
			ds_exepidhcldi_diaglist.setColumn(diaghCnt, "diagengnm", ds_main_list01_mmohdiag1.getColumn(selectedIdx, "diagengnm"));
			ds_exepidhcldi_diaglist.setColumn(diaghCnt, "diaghngnm", ds_main_list01_mmohdiag1.getColumn(selectedIdx, "diaghngnm"));
			ds_exepidhcldi_diaglist.setColumn(diaghCnt, "orddiagflag", "N");
			ds_exepidhcldi_diaglist.setColumn(diaghCnt, "diagseq", diaghCnt);
		}
	}
	
	ds_init.setColumn(0, "reqpid", ds_send.getColumn(0, "pid"));
	ds_init.setColumn(0, "reqrefterm", ds_send.getColumn(0, "refterm"));
	ds_init.setColumn(0, "reqfromdd", ds_send.getColumn(0, "fromdd"));
	ds_init.setColumn(0, "reqtodd", ds_send.getColumn(0, "todd"));
	ds_init.setColumn(0, "reqclamfromdd", ds_send.getColumn(0, "clamfromdd"));
	ds_init.setColumn(0, "reqclamtodd", ds_send.getColumn(0, "clamtodd"));
	
	dsf_setDefaultVal(ds_exepidhcldi_diaglist, "toot:-");
	dsf_setDefaultVal(ds_init, "reqrefterm:-");

	var oParam = {};
		oParam.id          = "TXPIZ00201";
		oParam.service     = "insucomapp.IODiagHist";
		oParam.method      = "reqExePidhcldi";
		oParam.inds        = "clamhistlist=ds_exepidhcldi_clamhistlist diaglist=ds_exepidhcldi_diaglist req=ds_init";
		oParam.outds       = "";
		oParam.async       = false;
		//oParam.callback    = "cf_TXPIZ00201";

	tranf_submit(oParam);

	fGetIODiagHistList();
}

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

function fDiagSeqUp()
{
	var rowstatus = ds_main_list01_mmohdiag2.getRowType(ds_main_list01_mmohdiag2.rowposition);	

	if (rowstatus == 8) 
	{
		return;
	}
	
	var diagseq = parseInt(ds_main_list01_mmohdiag2.getColumn(ds_main_list01_mmohdiag2.rowposition, "diagseq")); 	
	
	if (diagseq > 1)
	{ 
		ds_main_list01_mmohdiag2.setColumn(ds_main_list01_mmohdiag2.rowposition, "diagseq", --diagseq);		
		
		if (rowstatus == 1 || rowstatus == 4) 
		{
			var arrRow = new Array();
			arrRow[0] = ds_main_list01_mmohdiag2.rowposition; 
			grdf_setStatus(grd_cldihist, "U", arrRow);
		}
		
		var nextrow     = ds_main_list01_mmohdiag2.rowposition - 1;
		var nextdiagseq = ds_main_list01_mmohdiag2.getColumn(nextrow, "diagseq"); 		
		
		if (diagseq == nextdiagseq) 
		{
			ds_main_list01_mmohdiag2.setColumn(nextrow, "diagseq", ++diagseq);		
			rowstatus = ds_main_list01_mmohdiag2.getRowType(nextrow); 
			
			if (rowstatus == 1 || rowstatus == 4) 
			{
				var arrRow = new Array();
					arrRow[0] = nextrow; 
				grdf_setStatus(grd_cldihist, "U", arrRow);
			}
		}
		
		if (ds_main_list01_mmohdiag2.getColumn(ds_main_list01_mmohdiag2.rowposition, "diagseq") == "1" && !utlf_isNull(ds_main_list01_mmohdiag2.getColumn(ds_main_list01_mmohdiag2.rowposition, "vcode")))
		{
			fSetDiagMT002(ds_main_list01_mmohdiag2.getColumn(ds_main_list01_mmohdiag2.rowposition, "vcode"));
		}
		fSortDiagNo(false);
	}
}

function fDiagSeqDown()
{
	var rowstatus = ds_main_list01_mmohdiag2.getRowType(ds_main_list01_mmohdiag2.rowposition);	
	
	if (rowstatus == 8) 
	{ 
		return;
	}
	
	var lastRow = ds_main_list01_mmohdiag2.rowcount;	
	
	for ( var i = 0; i < ds_main_list01_mmohdiag2.rowcount; i++ ) 
	{
		if (ds_main_list01_mmohdiag2.getRowType(i) == 8) 
		{ 
			lastRow = i - 1;
			i = ds_main_list01_mmohdiag2.rowcount;
		}
	}
	
	var diagseq = parseInt(ds_main_list01_mmohdiag2.getColumn(ds_main_list01_mmohdiag2.rowposition, "diagseq")); 
	
	if (diagseq < lastRow) 
	{ 
		ds_main_list01_mmohdiag2.setColumn(ds_main_list01_mmohdiag2.rowposition, "diagseq", ++diagseq);
		
		if (rowstatus == 1 || rowstatus == 4)
		{
			var arrRow = new Array();
				arrRow[0] = ds_main_list01_mmohdiag2.rowposition; 
			grdf_setStatus(grd_cldihist, "U", arrRow);
		}
		
		var nextrow     = ds_main_list01_mmohdiag2.rowposition + 1;
		var nextdiagseq = ds_main_list01_mmohdiag2.getColumn(nextrow, "diagseq");  		
		
		if (diagseq == nextdiagseq) 
		{
			ds_main_list01_mmohdiag2.setColumn(nextrow, "diagseq", --diagseq);		
			rowstatus = ds_main_list01_mmohdiag2.getRowType(nextrow); 

			if (rowstatus == 1 || rowstatus == 4)
			{
				var arrRow = new Array();
				arrRow[0] = nextrow; 
				grdf_setStatus(grd_cldihist, "U", arrRow);
			}
		}
		
		if (ds_main_list01_mmohdiag2.getColumn(ds_main_list01_mmohdiag2.rowposition, "diagseq") == "1" && !utlf_isNull(ds_main_list01_mmohdiag2.getColumn(ds_main_list01_mmohdiag2.rowposition, "vcode")))
		{
			fSetDiagMT002(ds_main_list01_mmohdiag2.getColumn(ds_main_list01_mmohdiag2.rowposition, "vcode"));
		}
		
		fSortDiagNo(false);
	}
}

function fSetDiagMT002(incode)
{
// 	var gridrowstatus = "";
// 	var existsyn      = "N";
// 	var vcode         = "";
// 
// 	if (utlf_isNull(incode))
// 	{
// 		vcode = ds_main_list01_mmohdiag2.lookupExpr("diagseq=='1' && !utlf_isNull(vcode) && diagkindcd != 'R'", "vcode");
// 	} 
// 	else 
// 	{
// 		vcode = incode; 
// 	}
// 
// 	if (!utlf_isNull(vcode))
// 	{
// 		var spclcdMT002 = ds_main_list01_mmohdiag2.lookupExpr("spclcd=='MT002' && spclspec=='"+vcode+"' && ds_main_list01_mmohdiag2.getRowType(currow) != 8", "spclcd");
// 		var spclcdCT002 = ds_main_list01_mmohdiag2.lookupExpr("spclcd=='CT002' && spclspec=='"+vcode+"' && ds_main_list01_mmohdiag2.getRowType(currow) != 8", "spclcd");
// 
// 		if (utlf_transNullToEmpty(spclcdMT002).length > 0 || utlf_transNullToEmpty(spclcdCT002).length > 0)
// 		{
// 			existsyn = "Y";
// 		}
// 		
// 		if ( existsyn != "Y" ) 
// 		{
// 			var ans;
// 			var tmpspclcd;
// 			var snglcalcscorcdcnt = ds_list7_clop.rowcount;		//원외청방수
// 			
// 			if (vcode == "V252") 
// 			{
// 				tmpspclcd = "CT002";
// 			
// 				if (snglcalcscorcdcnt > 0) 
// 				{
// 					ans = sysf_messageBox(  vcode + " 상병입니다.\n\n"+ tmpspclcd + "특정내역을 \n\n"+ "입력", "S001");
// 				}
// 			} 
// 			else
// 			{
// 				tmpspclcd = "MT002";
// 				ans = sysf_messageBox(  vcode + " 상병입니다.\n\n"+ tmpspclcd + "특정내역을 \n\n"+ "입력", "S001");
// 			}
// 			
// 			if ( ans == 6 ) 
// 			{
// 				var clsprow = lf_fSpclGridInsertRow();
// 				
// 				if (vcode == "V252")
// 				{
// 					var clopdd = ds_list7_clop.getColumn(0, "clopdd");
// 					var clopno = ds_list7_clop.getColumn(0, "clopno"); 
// 					if (snglcalcscorcdcnt > 0) 
// 					{
// 						ds_list3_clsp.setColumn(clsprow, "mpsno", clopdd + "" + clopno);	
// 					}
// 
// 					ds_list3_clsp.setColumn(clsprow, "unitflag", "C");					
// 				} 
// 				else 
// 				{
// 					ds_list3_clsp.setColumn(clsprow, "unitflag", "M");					
// 				}
// 				ds_list3_clsp.setColumn(clsprow, "spclcd", tmpspclcd);	
// 				ds_list3_clsp.setColumn(clsprow, "edilnno", 0);	
// 				ds_list3_clsp.setColumn(clsprow, "snglcalcscorcd", "-");	
// 				ds_list3_clsp.setColumn(clsprow, "cdnm"        , "특정기호");	
// 				ds_list3_clsp.setColumn(clsprow, "spclspec"    , vcode);	
// 				ds_list3_clsp.setColumn(clsprow, "spclformat"  , "X(4)");	
// 				ds_list3_clsp.setColumn(clsprow, "detldesc"    , "");	
// 				ds_list3_clsp.setColumn(clsprow, "oldedilnno"  , "");	
// 				ds_list3_clsp.setColumn(clsprow, "clodseqno"   , "");	
// 						
// 				lf_fSortSpclNo();				
// 			}
// 		}
// 	}
}

function fDiagGridInsertRow(addyn, selectyn) 
{
	var iInsertRow = 0;	
	
	if (ds_main_list01_mmohdiag2.rowcount == 1 || addyn == "Y")
	{		 
		iInsertRow = ds_main_list01_mmohdiag2.addRow();
	} 
	else 
	{
		iInsertRow = ds_main_list01_mmohdiag2.insertRow(ds_main_list01_mmohdiag2.rowposition);
	}

	var nowRow = 0;
	nowRow = ds_main_list01_mmohdiag2.rowposition;

	ds_main_list01_mmohdiag2.setColumn(ds_main_list01_mmohdiag2.rowposition, "diagkindcd", "C");
	ds_main_list01_mmohdiag2.setColumn(ds_main_list01_mmohdiag2.rowposition, "diagseq", ds_main_list01_mmohdiag2.rowposition+1);
	
	var clamdeptcd = ds_main_list01_mmohdiag2.getColumn(0, "clamdeptcd"); 
	
	if (utlf_isNull(clamdeptcd))
	{ 
		clamdeptcd = ds_main_list01_mmohdiag2.getColumn(0, "clamdeptcd");
	}
	
	ds_main_list01_mmohdiag2.setColumn(ds_main_list01_mmohdiag2.rowposition, "clamdeptcd", clamdeptcd);

	var ordfromdd = ds_main_list01_mmohdiag2.getColumn(0, "ordfromdd");
	
	if (ordfromdd) 
	{
		ds_main_list01_mmohdiag2.setColumn(ds_main_list01_mmohdiag2.rowposition, "ordfromdd", ordfromdd);		
	} 
	else 
	{
		ds_main_list01_mmohdiag2.setColumn(ds_main_list01_mmohdiag2.rowposition, "ordfromdd", ds_main_list1_diagdatelist.getColumn(0, "ordfromdd"));		
	}
	
	ds_main_list01_mmohdiag2.setColumn(ds_main_list01_mmohdiag2.rowposition, "toot", "-");	
	ds_main_list01_mmohdiag2.setColumn(ds_main_list01_mmohdiag2.rowposition, "vcode", "");	

	if (selectyn != "Y") 
	{
		fSortDiagNo(true);
	}

	if (addyn != "Y") 
	{
		ds_main_list01_mmohdiag2.rowposition = nowRow;
		grd_cldihist.setCellProperty("Body",  grd_cldihist.getBindCellIndex("body", "diagcd"), "edittype", "normal");
	}
	return iInsertRow;
}

function fDiagGridAddRow() 
{	
	var irow = ds_main_list01_mmohdiag2.insertRow(ds_main_list01_mmohdiag2.rowcount);
	ds_main_list01_mmohdiag2.setColumn(irow, "diagkindcd", "C");
	ds_main_list01_mmohdiag2.setColumn(irow, "diagseq", irow+1);

	var clamdeptcd = ds_main_list01_mmohdiag2.getColumn(0, "clamdeptcd");
	
	if (utlf_isNull(clamdeptcd)) 
	{	
		clamdeptcd = ds_main_list01_mmohdiag2.getColumn(0, "clamdeptcd");
	}
	ds_main_list01_mmohdiag2.setColumn(irow, "clamdeptcd", clamdeptcd);
	
	var ordfromdd = ds_main_list01_mmohdiag2.getColumn(0, "ordfromdd");
	
	if (ordfromdd) 
	{
		ds_main_list01_mmohdiag2.setColumn(irow, "ordfromdd", ordfromdd);		
	} 
	else 
	{
		ds_main_list01_mmohdiag2.setColumn(irow, "ordfromdd", ds_main_list1_diagdatelist.getColumn(0, "ordfromdd"));
	}
	
	ds_main_list01_mmohdiag2.setColumn(irow, "toot", "-");		
	ds_main_list01_mmohdiag2.setColumn(irow, "vcode", "");		
	
	fSortDiagNo(true);	
}

function fDiagGridInsertRowMulti() 
{
	for ( var i = 0; i < 5; i++) 
	{
		var iRow = ds_main_list01_mmohdiag2.insertRow(ds_main_list01_mmohdiag2.rowcount + 1);
		
		ds_main_list01_mmohdiag2.setColumn(iRow, "diagkindcd", "C");
		ds_main_list01_mmohdiag2.setColumn(iRow, "diagseq", iRow);
		
		var clamdeptcd = ds_main_list01_mmohdiag2.getColumn(0, "clamdeptcd");
		
		if (utlf_isNull(clamdeptcd))
		{ 
			clamdeptcd = ds_main_list01_mmohdiag2.getColumn(0, "clamdeptcd");
		}
		
		ds_main_list01_mmohdiag2.setColumn(iRow, "clamdeptcd", clamdeptcd);		
		
		var ordfromdd = ds_main_list01_mmohdiag2.getColumn(0, "ordfromdd");
		
		if (ordfromdd) 
		{
			ds_main_list01_mmohdiag2.setColumn(iRow, "ordfromdd", ordfromdd);				
		} 
		else
		{
			ds_main_list01_mmohdiag2.setColumn(iRow, "ordfromdd", ds_main_list1_diagdatelist.getColumn(0, "ordfromdd"));				
		}		
		
		ds_main_list01_mmohdiag2.setColumn(iRow, "toot", "-");		
		ds_main_list01_mmohdiag2.setColumn(iRow, "vcode", "");		
	}
	
	fSortDiagNo(true);
}

function fDiagGridDeleteRow() 
{	
	for ( var i = 0; i < ds_main_list01_mmohdiag2.rowcount; i++)
	{
		var sRow = ds_main_list01_mmohdiag2.getSelect(i);	
		
		if ( sRow == true )
		{
			var rowstatus = ds_main_list01_mmohdiag2.getRowType(i);
			
			if (rowstatus == 8)
			{
			} 
			else if ( rowstatus == 2 )
			 {
				ds_main_list01_mmohdiag2.deleteRow(i);
				ds_main_list01_mmohdiag2.clearSelect();
			} 
			else 
			{
				var dRow = "D"+ds_main_list01_mmohdiag2.getColumn(i, "diagseq");
				
				ds_main_list01_mmohdiag2.setColumn(i, "diagseq", dRow);
				
				var arrRow = new Array();
					arrRow[0] = i; 
				grdf_setStatus(grd_cldihist, "D", arrRow);
			}			
		}
	}
	fSortDiagNo(true);	
}

function grd_cldihist_onkeydown(obj:Grid, e:KeyEventInfo)
{
	var row = obj.currentrow;
	var col = obj.currentcol;
	
	if(e.keycode == 13)
	{
		obj.updateToDataset();
		
		if(col == obj.getBindCellIndex("Body", "diagcd"))
		{
			fSearchDiageCode();
		}
	}
}

function ds_main_list2_clamhistlist_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
{
	if (e.columnid == "chkstatus")
	{
		obj.setColumn(e.row, "chkstatus", (e.newvalue == "true" || e.newvalue == 1) ? "true" : "false");
	}	
}
]]></Script>
  </Form>
</FDL>