YNU_JEUS/app_home/himed/xpapps/lis/plgycsteslidmngtxp/xp/SMLPB00100_Cassette슬라이드제작.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMLPB00100" position="absolute 0 0 1197 782" titletext="Cassette/슬라이드발행" oninit="SMLPB00100_oninit" onload="SMLPB00100_onload">
    <Layouts>
      <Layout>
        <Button id="btn_csteiss" taborder="1" text="Cassette재발행" class="btn3" position="absolute 0 30 120 52" onclick="btn_csteiss_onclick"/>
        <Button id="btn_slidiss" taborder="2" text="슬라이드재발행" class="btn3" position="absolute 130 30 246 52" onclick="btn_slidiss_onclick"/>
        <Static id="caption6" text="Cassette/슬라이드제작" class="tit_1" position="absolute 0 0 176 25"/>
        <Div id="grp_sea" taborder="3" position="absolute 0 59 1194 94" class="div_SA" anchor="left top right">
          <Layouts>
            <Layout>
              <Static id="caption9" text="접수일자 :" class="search_name" position="absolute 806 9 892 26" anchor="top right"/>
              <Static id="caption11" text="등록번호 :" class="search_name" position="absolute 525 9 611 26" anchor="default"/>
              <Shape id="line13" linetype="vertical" class="line_4" position="absolute 1104 7 1110 29" anchor="top right"/>
              <Calendar id="ipt_acptddfrom" taborder="10" class="input_s_essential" position="absolute 878 8 978 27" anchor="top right"/>
              <Static id="caption1" text="~" class="search_no_b" position="absolute 984 11 996 28" anchor="top right"/>
              <Calendar id="ipt_acptddto" taborder="11" class="input_s_essential" position="absolute 1002 8 1102 27" anchor="top right" onkeyup="grp_sea_ipt_acptddto_onkeyup"/>
              <Button id="btn_sea" taborder="12" text="조회" class="btn1" position="absolute 1123 7 1179 29" anchor="top right" onclick="grp_sea_btn_sea_onclick"/>
              <Edit id="ipt_seaval" taborder="13" class="input_search" position="absolute 617 8 725 27" anchor="default" onkeyup="grp_sea_ipt_seaval_onkeyup"/>
              <Combo id="cbo_ptnocd" taborder="14" innerdataset="ds_init_cbo_ptnocd" codecolumn="ptnocd" datacolumn="ptnonm" position="absolute 109 8 260 27" anchor="default"/>
              <Static id="caption10" text="~" class="search_no_b" position="absolute 346 8 358 25" anchor="default"/>
              <Edit id="ipt_fromptno" taborder="15" class="text_center" position="absolute 293 8 343 27" anchor="default"/>
              <Edit id="input1" taborder="16" class="text_center" position="absolute 391 8 441 27" anchor="default"/>
              <Edit id="input2" taborder="17" class="text_center" position="absolute 361 8 388 27" anchor="default"/>
              <Static id="caption2" text="병리번호 :" class="search_name" position="absolute 15 9 105 26" anchor="default"/>
              <Edit id="ipt_fromyear" taborder="18" class="text_center" position="absolute 263 8 290 27" anchor="default"/>
            </Layout>
          </Layouts>
        </Div>
        <Grid id="grd_cstelist" class="datagrid2" taborder="4" binddataset="ds_grd_cstelist" useinputpanel="false" position="absolute 603 126 1193 411" autofittype="col" anchor="top right" oncellclick="grd_cstelist_oncellclick" ontextchanged="grd_cstelist_ontextchanged" onrbuttondown="grd_cstelist_onrbuttondown" selecttype="multirow">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="20"/>
                <Column size="24"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="40"/>
                <Column size="69"/>
                <Column size="90"/>
                <Column size="152"/>
                <Column size="40"/>
                <Column size="60"/>
                <Column size="40"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="50"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
              </Columns>
              <Rows>
                <Row size="26" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell/>
                <Cell col="1" text="선&#10;택"/>
                <Cell col="2" text="기관코드"/>
                <Cell col="3" text="병리번호"/>
                <Cell col="4" text="spcacptdd"/>
                <Cell col="5" text="spcacptno"/>
                <Cell col="6" text="spcacptseqno"/>
                <Cell col="7" text="번호"/>
                <Cell col="8" text="슬라이드수"/>
                <Cell col="9" text="종  류"/>
                <Cell col="10" text="내  용"/>
                <Cell col="11" text="조직&#10;갯수"/>
                <Cell col="12" text="Hopper"/>
                <Cell col="13" text="내/외&#10;구분"/>
                <Cell col="14" text="acptdd"/>
                <Cell col="15" text="acptno"/>
                <Cell col="16" text="testcd"/>
                <Cell col="17" text="acptitemno"/>
                <Cell col="18" text="재출력"/>
                <Cell col="19" text="상태"/>
                <Cell col="20" text="scrno"/>
                <Cell col="21" text="spccd"/>
                <Cell col="22" text="slidno"/>
                <Cell col="23" text="dispptno"/>
              </Band>
              <Band id="body">
                <Cell/>
                <Cell col="1" displaytype="checkbox" edittype="checkbox" text="bind:choi"/>
                <Cell col="2" text="bind:instcd"/>
                <Cell col="3" text="bind:ptno"/>
                <Cell col="4" text="bind:spcacptdd"/>
                <Cell col="5" text="bind:spcacptno"/>
                <Cell col="6" text="bind:spcacptseqno"/>
                <Cell col="7" class="text_center" text="bind:csteno"/>
                <Cell col="8" class="text_center" text="bind:slidcnt"/>
                <Cell col="9" displaytype="combo" edittype="combo" style="align:center;" text="bind:cstekindcd" combodataset="ds_refrslt" combocodecol="resncd" combodatacol="resncnts"/>
                <Cell col="10" displaytype="text" edittype="text" text="bind:cstecnts"/>
                <Cell col="11" displaytype="text" edittype="text" style="align:right middle;" class="text_right" text="bind:tisscnt"/>
                <Cell col="12" displaytype="combo" edittype="combo" text="bind:hopper" combodataset="ds_item" combocodecol="value" combodatacol="label"/>
                <Cell col="13" displaytype="combo" edittype="combo" text="bind:statsinclflagcd"/>
                <Cell col="14" text="bind:acptdd"/>
                <Cell col="15" text="bind:acptno"/>
                <Cell col="16" text="bind:testcd"/>
                <Cell col="17" text="bind:acptitemno"/>
                <Cell col="18" displaytype="checkbox" edittype="checkbox" text="bind:reprnt"/>
                <Cell col="19" text="bind:statflagcd"/>
                <Cell col="20" text="bind:scrno"/>
                <Cell col="21" text="bind:spccd"/>
                <Cell col="22" text="bind:slidno"/>
                <Cell col="23" text="bind:dispptno"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Static id="caption3" text="접수검체 목록" class="tit_2" position="absolute 4 104 117 121"/>
        <Shape id="line12" linetype="horizontal" class="line_1" position="absolute 0 122 600 128" style="strokepen:3 solid #33bbbbff;" anchor="left top right"/>
        <Static id="caption4" text="Cassette(블록) 목록" class="tit_2" position="absolute 604 104 755 120" anchor="top right"/>
        <Static id="caption5" text="슬라이드 목록" class="tit_2" position="absolute 607 420 715 437" anchor="right bottom"/>
        <Shape id="line4" linetype="horizontal" class="line_1" position="absolute 603 122 1193 128" style="strokepen:3 solid #33bbbbff;" anchor="top right"/>
        <Shape id="line6" linetype="horizontal" class="line_1" position="absolute 603 439 1193 445" style="strokepen:3 solid #33bbbbff;" anchor="right bottom"/>
        <Grid id="grd_spclist" class="datagrid2" taborder="5" binddataset="ds_grd_spclist" useinputpanel="false" position="absolute 0 126 600 779" autofittype="col" anchor="left top bottom" oncellclick="grd_spclist_oncellclick">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="80"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="69"/>
                <Column size="66"/>
                <Column size="73"/>
                <Column size="0"/>
                <Column size="124"/>
                <Column size="40"/>
                <Column size="135"/>
                <Column size="0"/>
              </Columns>
              <Rows>
                <Row size="26" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell text="기관코드"/>
                <Cell col="1" text="ptno"/>
                <Cell col="2" text="병리번호"/>
                <Cell col="3" text="spcacptdd"/>
                <Cell col="4" text="spcacptno"/>
                <Cell col="5" text="등록번호"/>
                <Cell col="6" text="환자명"/>
                <Cell col="7" text="접수일자"/>
                <Cell col="8" text="spccd"/>
                <Cell col="9" text="검체명"/>
                <Cell col="10" text="세부&#10;검체"/>
                <Cell col="11" text="검사항목"/>
                <Cell col="12" text="acptno"/>
              </Band>
              <Band id="body">
                <Cell text="bind:instcd"/>
                <Cell col="1" text="bind:ptno"/>
                <Cell col="2" text="bind:dispptno"/>
                <Cell col="3" text="bind:spcacptdd"/>
                <Cell col="4" text="bind:spcacptno"/>
                <Cell col="5" text="bind:pid"/>
                <Cell col="6" text="bind:patnm"/>
                <Cell col="7" displaytype="date" edittype="date" text="bind:acptdd" mask="yyyy-MM-dd"/>
                <Cell col="8" text="bind:spccd"/>
                <Cell col="9" style="align:left middle;" text="bind:spcnm"/>
                <Cell col="10" text="bind:spcacptseqno"/>
                <Cell col="11" style="align:left middle;" text="bind:testnmlist"/>
                <Cell col="12" text="bind:acptno"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Grid id="grd_slidlist" class="datagrid2" taborder="6" binddataset="ds_grd_slidlist" useinputpanel="false" position="absolute 603 443 1193 779" anchor="right bottom" autofittype="col" oncloseup="grd_slidlist_oncloseup" ontextchange="grd_slidlist_ontextchange" onrbuttondown="grd_slidlist_onrbuttondown">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="24"/>
                <Column size="35"/>
                <Column size="100"/>
                <Column size="111"/>
                <Column size="134"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="110"/>
                <Column size="0"/>
                <Column size="50"/>
                <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 text="기관코드"/>
                <Cell col="1" text="병리번호"/>
                <Cell col="2" text="spcacptdd"/>
                <Cell col="3" text="spcacptno"/>
                <Cell col="4" text="spcacptseqno"/>
                <Cell col="5" text="csteno"/>
                <Cell col="6"/>
                <Cell col="7" text="번호"/>
                <Cell col="8" text="종  류"/>
                <Cell col="9" text="Block번호"/>
                <Cell col="10" text="슬라이드 내용"/>
                <Cell col="11" text="내/외&#10;구분"/>
                <Cell col="12" text="tisscnt"/>
                <Cell col="13" text="acptdd"/>
                <Cell col="14" text="acptno"/>
                <Cell col="15" text="검사명"/>
                <Cell col="16" text="acptitemno"/>
                <Cell col="17" text="재출력"/>
                <Cell col="18" text="상태"/>
                <Cell col="19" text="scrno"/>
                <Cell col="20" text="spccd"/>
                <Cell col="21" text="dispptno"/>
                <Cell col="22" text="relaptno"/>
                <Cell col="23" text="reladispptno"/>
              </Band>
              <Band id="body">
                <Cell text="bind:instcd"/>
                <Cell col="1" text="bind:ptno"/>
                <Cell col="2" text="bind:spcacptdd"/>
                <Cell col="3" text="bind:spcacptno"/>
                <Cell col="4" text="bind:spcacptseqno"/>
                <Cell col="5" text="bind:csteno"/>
                <Cell col="6"/>
                <Cell col="7" text="bind:slidno"/>
                <Cell col="8" displaytype="combo" edittype="combo" text="bind:cstekindcd" combodataset="ds_refrslt2" combocodecol="resncd" combodatacol="resncnts"/>
                <Cell col="9" displaytype="text" edittype="text" text="bind:prtnblocnm"/>
                <Cell col="10" displaytype="text" edittype="text" text="bind:cstecnts"/>
                <Cell col="11" displaytype="combo" edittype="combo" text="bind:statsinclflagcd"/>
                <Cell col="12" text="bind:tisscnt"/>
                <Cell col="13" text="bind:acptdd"/>
                <Cell col="14" text="bind:acptno"/>
                <Cell col="15" displaytype="combo" edittype="combo" text="bind:testcd" combodataset="ds_rsltlist" combocodecol="testcd" combodatacol="testnm"/>
                <Cell col="16" text="bind:acptitemno"/>
                <Cell col="17" displaytype="checkbox" edittype="checkbox" text="bind:reprnt"/>
                <Cell col="18" text="bind:statflagcd"/>
                <Cell col="19" text="bind:scrno"/>
                <Cell col="20" text="bind:spccd"/>
                <Cell col="21" text="bind:dispptno"/>
                <Cell col="22" text="bind:relaptno"/>
                <Cell col="23" text="bind:reladispptno"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Button id="btn_addcste" taborder="7" text="행추가" class="btn2" position="absolute 1084 101 1137 120" onclick="btn_addcste_onclick" anchor="top right"/>
        <Button id="btn_delcste" taborder="8" text="행삭제" class="btn2" position="absolute 1140 101 1193 120" onclick="btn_delcste_onclick" anchor="top right"/>
        <Button id="btn_addslid" taborder="9" text="행추가" class="btn2" position="absolute 1084 417 1137 436" onclick="btn_addslid_onclick" anchor="right bottom"/>
        <Button id="btn_delslid" taborder="10" text="행삭제" class="btn2" position="absolute 1140 417 1193 436" onclick="btn_delslid_onclick" anchor="right bottom"/>
        <Button id="btn_save" taborder="11" text="블럭저장" class="btn2" position="absolute 1017 101 1081 120" onclick="btn_save_onclick" anchor="top right"/>
        <Button id="btn_slidsave" taborder="12" text="슬라이드저장" class="btn2" position="absolute 995 417 1081 436" onclick="btn_slidsave_onclick" anchor="right bottom"/>
        <Combo id="combo1" taborder="13" codecolumn="codecolumn" datacolumn="datacolumn" visible="false" position="absolute 710 326 805 345">
          <Dataset id="innerdataset">
            <ColumnInfo>
              <Column id="codecolumn"/>
              <Column id="datacolumn"/>
            </ColumnInfo>
            <Rows>
              <Row>
                <Col id="codecolumn">0</Col>
                <Col id="datacolumn">슬라이드</Col>
              </Row>
              <Row>
                <Col id="codecolumn">1</Col>
                <Col id="datacolumn">라벨지</Col>
              </Row>
            </Rows>
          </Dataset>
        </Combo>
        <MaskEdit id="ipt_cstecnt" taborder="14" mask="#,###" position="absolute 776 101 801 120" anchor="top right"/>
        <MaskEdit id="ipt_slidcnt" taborder="15" mask="#,###" position="absolute 731 417 756 436" anchor="right bottom"/>
        <ActiveX id="socketcste" visible="false" position="absolute 325 91 360 121" progid="{81e9de7e-90be-4958-bbda-ac731c05aba8}" useautobitmapcache="1" anchor="default" taborder="16" OnError="socketcste_OnError" OnConnect="socketcste_OnConnect" OnClose="socketcste_OnClose"/>
        <ActiveX id="socketslid" visible="false" position="absolute 385 91 420 121" progid="{81e9de7e-90be-4958-bbda-ac731c05aba8}" useautobitmapcache="1" anchor="default" taborder="17" OnError="socketslid_OnError" OnConnect="socketslid_OnConnect" OnClose="socketslid_OnClose"/>
        <Combo id="combo2" taborder="18" codecolumn="codecolumn" datacolumn="datacolumn" position="absolute 758 417 848 436" anchor="right bottom" onitemchanged="combo2_onitemchanged">
          <Dataset id="innerdataset">
            <ColumnInfo>
              <Column id="codecolumn"/>
              <Column id="datacolumn"/>
            </ColumnInfo>
            <Rows>
              <Row>
                <Col id="codecolumn">0</Col>
                <Col id="datacolumn">CELL블럭</Col>
              </Row>
              <Row>
                <Col id="codecolumn">1</Col>
                <Col id="datacolumn">가상블럭</Col>
              </Row>
            </Rows>
          </Dataset>
        </Combo>
        <Combo id="cmb_caeqlist" taborder="19" innerdataset="@ds_init_cmb_caeqlist" codecolumn="eqseqno" datacolumn="eqnm" position="absolute 879 101 1013 120" anchor="top right" index="-1"/>
        <Combo id="cmb_slideqlist" taborder="20" innerdataset="@ds_init_cmb_slideqlist" codecolumn="eqseqno" datacolumn="eqnm" position="absolute 858 417 992 436" anchor="right bottom"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_init_cbo_ptnocd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="ptnonm" type="STRING"/>
          <Column id="ptnocd" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_grd_cstelist" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="choi" type="STRING"/>
          <Column id="instcd" type="STRING"/>
          <Column id="ptno" type="STRING"/>
          <Column id="spcacptdd" type="STRING"/>
          <Column id="spcacptno" type="STRING"/>
          <Column id="spcacptseqno" type="STRING"/>
          <Column id="csteno" type="STRING"/>
          <Column id="slidcnt" type="STRING"/>
          <Column id="cstekindcd" type="STRING"/>
          <Column id="cstecnts" type="STRING"/>
          <Column id="tisscnt" type="STRING"/>
          <Column id="hopper" type="STRING"/>
          <Column id="statsinclflagcd" type="STRING"/>
          <Column id="acptdd" type="STRING"/>
          <Column id="acptno" type="STRING"/>
          <Column id="testcd" type="STRING"/>
          <Column id="acptitemno" type="STRING"/>
          <Column id="reprnt" type="STRING"/>
          <Column id="statflagcd" type="STRING"/>
          <Column id="scrno" type="STRING"/>
          <Column id="spccd" type="STRING"/>
          <Column id="slidno" type="STRING"/>
          <Column id="dispptno" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_grd_spclist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="instcd" type="STRING"/>
          <Column id="ptno" type="STRING"/>
          <Column id="dispptno" type="STRING"/>
          <Column id="spcacptdd" type="STRING"/>
          <Column id="spcacptno" type="STRING"/>
          <Column id="pid" type="STRING"/>
          <Column id="patnm" type="STRING"/>
          <Column id="acptdd" type="STRING"/>
          <Column id="spccd" type="STRING"/>
          <Column id="spcnm" type="STRING"/>
          <Column id="spcacptseqno" type="STRING"/>
          <Column id="testnmlist" type="STRING"/>
          <Column id="acptno" type="STRING"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_grd_slidlist" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="instcd" type="STRING"/>
          <Column id="ptno" type="STRING"/>
          <Column id="spcacptdd" type="STRING"/>
          <Column id="spcacptno" type="STRING"/>
          <Column id="spcacptseqno" type="STRING"/>
          <Column id="csteno" type="STRING"/>
          <Column id="slidno" type="STRING"/>
          <Column id="cstekindcd" type="STRING"/>
          <Column id="prtnblocnm" type="STRING"/>
          <Column id="cstecnts" type="STRING"/>
          <Column id="statsinclflagcd" type="STRING"/>
          <Column id="tisscnt" type="STRING"/>
          <Column id="acptdd" type="STRING"/>
          <Column id="acptno" type="STRING"/>
          <Column id="testcd" type="STRING"/>
          <Column id="acptitemno" type="STRING"/>
          <Column id="reprnt" type="STRING"/>
          <Column id="statflagcd" type="STRING"/>
          <Column id="scrno" type="STRING"/>
          <Column id="spccd" type="STRING"/>
          <Column id="dispptno" type="STRING"/>
          <Column id="relaptno" type="STRING"/>
          <Column id="reladispptno" type="STRING"/>
          <Column id="eqseqno" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_init_cmb_caeqlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="eqnm" type="STRING"/>
          <Column id="eqseqno" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_cmb_slideqlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="eqnm" type="STRING"/>
          <Column id="eqseqno" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_hosoenvinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="instcd" type="STRING" size="256" sumtext="기관코드"/>
          <Column id="lendrtnterm" type="STRING" size="256" sumtext="대출반환기간"/>
          <Column id="recvqualmthdcd" type="STRING" size="256" sumtext="수신확인방법"/>
          <Column id="plgydeptcd" type="STRING" size="256" sumtext="병리과"/>
          <Column id="plgyteamcd" type="STRING" size="256" sumtext="병리팀"/>
          <Column id="doctjobgradcd" type="STRING" size="256" sumtext="병리의사직급코드"/>
          <Column id="teamjobgradcd" type="STRING" size="256" sumtext="레지던트직급코드"/>
          <Column id="csteeqmtip" type="STRING" size="256" sumtext="Cassette장비IP"/>
          <Column id="csteeqmtport" type="STRING" size="256" sumtext="Cassette장비Port"/>
          <Column id="slideqmtip" type="STRING" size="256" sumtext="슬라이드장비IP"/>
          <Column id="norcptacptyn" type="STRING" size="256" sumtext="외래미수납접수여부"/>
          <Column id="slidbceqmtip" type="STRING" size="256" sumtext="슬라이드(라벨지)장비IP"/>
          <Column id="acptreaddr" type="STRING" size="256" sumtext="접수시점판독의지정여부"/>
          <Column id="slidbceqmtip2" type="STRING" size="256" sumtext="슬라이드(라벨지)장비IP2"/>
          <Column id="slidbceqmtport2" type="STRING" size="256" sumtext="슬라이드(라벨지)장비Port2"/>
          <Column id="repttitl" type="STRING" size="256" sumtext="보고서제목"/>
          <Column id="repttitl2" type="STRING" size="256" sumtext="자문의뢰제목"/>
          <Column id="plgyrecroom1" type="STRING" size="256" sumtext="병리과기록실1"/>
          <Column id="plgyrecroom2" type="STRING" size="256" sumtext="병리과기록실2"/>
          <Column id="ptnoacptflag" type="STRING" size="256" sumtext="병리번호접수구분"/>
          <Column id="autoacptflagcd" type="STRING" size="256" sumtext="자동접수구분"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_data_sysdtinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="sysdd" type="STRING" size="256"/>
          <Column id="systm" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_caeqlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="eqnm" type="STRING" size="256" sumtext="장비명"/>
          <Column id="eqip" type="STRING" size="256" sumtext="장비ip"/>
          <Column id="eqport" type="STRING" size="256" sumtext="장비port"/>
          <Column id="eqflag" type="STRING" size="256" sumtext="1:카세트, 2:슬라이드"/>
          <Column id="eqseqno" type="STRING" size="256" sumtext="장비순번"/>
          <Column id="resncd" type="STRING" size="256" sumtext="사유코드"/>
          <Column id="baseflagcd" type="STRING" size="256" sumtext="기초구분코드"/>
          <Column id="dispseqno" type="STRING" size="256" sumtext="표시순서"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_slideqlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="eqnm" type="STRING" size="256" sumtext="장비명"/>
          <Column id="eqip" type="STRING" size="256" sumtext="장비ip"/>
          <Column id="eqport" type="STRING" size="256" sumtext="장비port"/>
          <Column id="eqflag" type="STRING" size="256" sumtext="1:카세트, 2:슬라이드"/>
          <Column id="eqseqno" type="STRING" size="256" sumtext="장비순번"/>
          <Column id="resncd" type="STRING" size="256" sumtext="사유코드"/>
          <Column id="baseflagcd" type="STRING" size="256" sumtext="기초구분코드"/>
          <Column id="dispseqno" type="STRING" size="256" sumtext="표시순서"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_hidden" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="acptfromdd" type="STRING" size="256"/>
          <Column id="acpttodd" type="STRING" size="256"/>
          <Column id="seameth" type="STRING" size="256"/>
          <Column id="seaval" type="STRING" size="256"/>
          <Column id="prtmeth" type="STRING" size="256"/>
          <Column id="slideqmtflag" type="STRING" size="256"/>
          <Column id="cstecnt" type="STRING" size="256"/>
          <Column id="slidcnt" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="seameth">0</Col>
            <Col id="prtmeth">0</Col>
            <Col id="slideqmtflag">0</Col>
            <Col id="cstecnt">1</Col>
            <Col id="slidcnt">1</Col>
          </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="ptnocode" type="STRING" size="256"/>
          <Column id="fromyear" type="STRING" size="256"/>
          <Column id="fromptno" type="STRING" size="256"/>
          <Column id="toyear" type="STRING" size="256"/>
          <Column id="toptno" type="STRING" size="256"/>
          <Column id="blockind" type="STRING" size="256"/>
          <Column id="hospenv" type="STRING" size="256"/>
          <Column id="sysdt" type="STRING" size="256"/>
          <Column id="resncd" type="STRING" size="256"/>
          <Column id="relatestnm" type="STRING" size="256"/>
          <Column id="ptnocd" type="STRING" size="256"/>
          <Column id="eqcaseqno" type="STRING" size="256"/>
          <Column id="eqslidseqno" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_refrslt" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="choi" type="STRING" size="256" sumtext="선택"/>
          <Column id="instcd" type="STRING" size="256" sumtext="기관코드"/>
          <Column id="baseflagcd" type="STRING" size="256" sumtext="구분코드"/>
          <Column id="resncd" type="STRING" size="256" sumtext="사유코드"/>
          <Column id="resncnts" type="STRING" size="256" sumtext="사유내용"/>
          <Column id="dispseqno" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_send_csteslidlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_rsltlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="instcd" type="STRING" size="256" sumtext="기관코드"/>
          <Column id="pid" type="STRING" size="256" sumtext="등록번호"/>
          <Column id="ptno" type="STRING" size="256" sumtext="병리번호"/>
          <Column id="dispptno" type="STRING" size="256" sumtext="표시병리번호"/>
          <Column id="acptdd" type="STRING" size="256" sumtext="접수일자"/>
          <Column id="acptno" type="STRING" size="256" sumtext="접수번호"/>
          <Column id="testcd" type="STRING" size="256" sumtext="검사코드"/>
          <Column id="acptitemno" type="STRING" size="256" sumtext="접수항목번호"/>
          <Column id="testnm" type="STRING" size="256" sumtext="검사명"/>
          <Column id="workflagcd" type="STRING" size="256" sumtext="작업구분"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_item" 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="value" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="label">1</Col>
            <Col id="value">1</Col>
          </Row>
          <Row>
            <Col id="label">2</Col>
            <Col id="value">2</Col>
          </Row>
          <Row>
            <Col id="label">3</Col>
            <Col id="value">3</Col>
          </Row>
          <Row>
            <Col id="label">4</Col>
            <Col id="value">4</Col>
          </Row>
          <Row>
            <Col id="label">5</Col>
            <Col id="value">5</Col>
          </Row>
          <Row>
            <Col id="label">6</Col>
            <Col id="value">6</Col>
          </Row>
        </Rows>
      </Dataset>
      <FilteredDataset id="ds_refrslt1" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" binddataset="@ds_refrslt" filterstr="baseflagcd == '82'"/>
      <Dataset id="ds_refrslt2" 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_fromptno" propid="value" datasetid="ds_init" columnid="fromptno"/>
      <BindItem id="item1" compid="grp_sea.ipt_fromyear" propid="value" datasetid="ds_init" columnid="fromyear"/>
      <BindItem id="item2" compid="grp_sea.input2" propid="value" datasetid="ds_init" columnid="toyear"/>
      <BindItem id="item3" compid="grp_sea.input1" propid="value" datasetid="ds_init" columnid="toptno"/>
      <BindItem id="item4" compid="grp_sea.ipt_seaval" propid="value" datasetid="ds_hidden" columnid="seaval"/>
      <BindItem id="item5" compid="grp_sea.ipt_acptddfrom" propid="value" datasetid="ds_hidden" columnid="acptfromdd"/>
      <BindItem id="item6" compid="grp_sea.ipt_acptddto" propid="value" datasetid="ds_hidden" columnid="acpttodd"/>
      <BindItem id="item7" compid="ipt_cstecnt" propid="value" datasetid="ds_hidden" columnid="cstecnt"/>
      <BindItem id="item8" compid="cmb_caeqlist" propid="value" datasetid="ds_init" columnid="eqcaseqno"/>
      <BindItem id="item9" compid="ipt_slidcnt" propid="value" datasetid="ds_hidden" columnid="slidcnt"/>
      <BindItem id="item10" compid="combo2" propid="value" datasetid="ds_init" columnid="blockind"/>
      <BindItem id="item11" compid="cmb_slideqlist" propid="value" datasetid="ds_init" columnid="eqslidseqno"/>
      <BindItem id="item12" compid="grp_sea.cbo_ptnocd" propid="value" datasetid="ds_init" columnid="ptnocode"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2015-11-13
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2015-11-13      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/

include "com_commonxp::comm_main.xjs";
include "lis_commonxp::LPZ001.xjs";

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

function SMLPB00100_onload(obj:Form, e:LoadEventInfo)
{	
	grdf_initGrid(grd_cstelist);
	grdf_initGrid(grd_slidlist);
	grdf_initGrid(grd_spclist);
	grdf_setRowTypeIcon(grd_cstelist, 0);	
	grdf_setRowTypeIcon(grd_slidlist, 6);	
	frmf_createPopupMenu("pmn_popupMenu", "pmn_popupMenu_onmenuclick");
	frmf_createPopupMenu("pmn_popupMenu1", "pmn_popupMenu_onmenuclick1");
	fExeInitialize();
}

//초기화
function fExeInitialize()
{	
	var sCurDate = "";
	//--------------------------------
	dsf_createDsRow("ds_send", [{col : "instcd", val : sysf_getUserInfo("dutplceinstcd")}]);
	var oParam = {};
		oParam.id          = "TRLPZ00101";
		oParam.service     = "plgycomnusemngtapp.BaseInfoCode";
		oParam.method      = "reqGetHospitalEnvironmentSetInfo";
		oParam.inds        = "refData=ds_send";
		oParam.outds       = "ds_hosoenvinfo=hospenvinfo";
		oParam.async       = false;
		//oParam.callback    = "cf_TRLPZ00101";
	tranf_submit(oParam);
	
	var oParam = {};
		oParam.id          = "TRLPZ00102";
		oParam.service     = "plgycomnusemngtapp.BaseInfoCode";
		oParam.method      = "reqGetSystemDateTimeInformation";
		oParam.inds        = "refData=ds_send";
		oParam.outds       = "ds_data_sysdtinfo=sysdtinfo";
		oParam.async       = false;
	//oParam.callback    = "cf_TRLPZ00102";
	tranf_submit(oParam);
	
	dsf_createDsRow("ds_send", [{col : "instcd",    val : sysf_getUserInfo("dutplceinstcd")}
							   ,{col : "refflagcd", val : "0"}]);	
	
	var oParam = {};
		oParam.id          = "TRLPZ00109";
		oParam.service     = "plgycomnusemngtapp.BaseInfoCode";
		oParam.method      = "reqGetPtNoCdList";
		oParam.inds        = "refdata=ds_send";
		oParam.outds       = "ds_init_cbo_ptnocd=rsltlist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRLPZ00109";
	tranf_submit(oParam);
	
	//블록 장비 조회
	dsf_createDsRow("ds_send", [{col : "instcd",     val : sysf_getUserInfo("dutplceinstcd")}
							   ,{col : "baseflagcd", val : "EQ"}
							   ,{col : "seaflagcd",  val : "0"}]);		//"0:전체, 1:카세트, 2:슬라이드"
	//submit("TRLPC01802");
	var oParam = {};
		oParam.id          = "TRLPC01802";
		oParam.service     = "plgybaseinfomngtapp.HospEnvSet";
		oParam.method      = "reqGetEqList";
		oParam.inds        = "refData=ds_send";
		oParam.outds       = "ds_init_cmb_caeqlist=caeqlist ds_init_cmb_slideqlist=slideqlist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRLPC01802";
	tranf_submit(oParam);
	
	cmb_slideqlist.index = 0;
	cmb_caeqlist.index = 0;
	
	sCurDate = ds_data_sysdtinfo.getColumn(0, "sysdd");
	
	//------------
	// 초기값 설정
	ds_hidden.setColumn(0, "seameth",      "0");				// 검색방법(등록번호(0))
 	ds_hidden.setColumn(0, "seaval",       "");					// 검색값
	ds_hidden.setColumn(0, "acptfromdd",   ds_data_sysdtinfo.getColumn(0, "sysdd"));
	ds_hidden.setColumn(0, "acpttodd",     ds_data_sysdtinfo.getColumn(0, "sysdd"));
	ds_hidden.setColumn(0, "slideqmtflag", "0");
	ds_init.setColumn(0, "ptnocode",  "-");
	ds_init.setColumn(0, "fromyear",  sCurDate.substr(2,2));
	ds_init.setColumn(0, "toyear",    sCurDate.substr(2,2));
	ds_init.setColumn(0, "fromptno",  "");
	ds_init.setColumn(0, "toptno",    "");
	ds_init.setColumn(0, "blockind",  "0");
	
	//------------------------------------------
	//  Cassette(블록) 및 Slide(슬라이드) 목록 조회
	dsf_createDsRow( "ds_send", [{col : "instcd",     val : sysf_getUserInfo("dutplceinstcd")}
								,{col : "baseflagcd", val : "'81', '82'"}]);
	//submit("TRLPZ00103");
	var oParam = {};
		oParam.id          = "TRLPZ00103";
		oParam.service     = "plgycomnusemngtapp.BaseInfoCode";
		oParam.method      = "reqGetReasonCodeList";
		oParam.inds        = "refData=ds_send";
		oParam.outds       = "ds_refrslt=refrslt";
		oParam.async       = false;
		//oParam.callback    = "cf_TRLPZ00103";
	tranf_submit(oParam);
	
	//fdsf_createDsFilter("ds_refrslt1", "ds_refrslt", "baseflagcd =='82'");
	ds_refrslt2.copyData(ds_refrslt1);
	// 노드 초기화
	ds_grd_cstelist.clearData();
	ds_grd_slidlist.clearData();
	ds_grd_spclist.clearData();
}

//접수 세부검체 목록 조회 Function
function fGetSpcSeqList()
{	
	var sTemp  = "";
	
	if( !utlf_isNull(ds_init.getColumn(0, "ptnocode")))
	{
		if( utlf_isNull(ds_init.getColumn(0, "fromyear")))
		{
			ds_init.setColumn(0, "fromyear", sFromDD.substr(2,2));
		} 
		else
		{
			sTemp = ds_init.getColumn(0, "fromyear");
			ds_init.setColumn(0, "fromyear", sTemp.getLeftPad(2, "0"));
		}
		if( utlf_isNull(ds_init.getColumn(0, "toyear")))
		{
			ds_init.setColumn(0, "toyear", sToDD.substr(2,2));
		}
		else
		{
			sTemp = ds_init.getColumn(0, "toyear");
			ds_init.setColumn(0, "toyear", sTemp.getLeftPad(2 , "0"));
		}
		if( utlf_isNull(ds_init.getColumn(0, "fromptno")))
		{
			ds_init.setColumn(0, "fromptno", "000000");
		}
		else
		{
			sTemp = ds_init.getColumn(0, "fromptno");
			sTemp = ds_init.setColumn(0, "fromptno", sTemp.getLeftPad(6, "0"));
		}
		if( utlf_isNull(ds_init.getColumn(0, "toptno")))
		{
			ds_init.setColumn(0, "toptno", "999999");
		}
		else
		{
			sTemp = ds_init.getColumn(0, "toptno");
			ds_init.setColumn(0, "toptno", sTemp.getLeftPad(6, "0"));
		}
	}
	
	//--------------------------------------------
	
	sTemp = ds_init.getColumn(0, "ptnocode");

	dsf_createDsRow( "ds_send", [{col : "instcd",     val : sysf_getUserInfo("dutplceinstcd")}		// 기관코드
	                            ,{col : "refmthd",    val : ds_hidden.getColumn(0, "seameth")}		// 검색방법
	                            ,{col : "refval",     val : ds_hidden.getColumn(0, "seaval")}		// 검색값
	                            ,{col : "acptfromdd", val : ds_hidden.getColumn(0, "acptfromdd")}	// 접수시작일자
	                            ,{col : "acpttodd",   val : ds_hidden.getColumn(0, "acpttodd")}		// 접수종료일자
	                            ,{col : "ptnocode",   val : sTemp.replace("-", "")}
	                            ,{col : "fromyear",   val : ds_init.getColumn(0, "fromyear")}
	                            ,{col : "fromptno",   val : ds_init.getColumn(0, "fromptno")}
	                            ,{col : "toyear",     val : ds_init.getColumn(0, "toyear")}
	                            ,{col : "toptno",     val : ds_init.getColumn(0, "toptno")}]);
	                            
	var oParam = {};
		oParam.id          = "TRLPB00101";
		oParam.service     = "plgycsteslidmngtapp.SpcCsteSlid";
		oParam.method      = "reqGetSpcSeqList";
		oParam.inds        = "refData=ds_send";
		oParam.outds       = "ds_grd_spclist=rsltlist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRLPB00101";
	tranf_submit(oParam);
}

//Cassette 재출력 처리 Function
function fExeCsteIss(pBizFlag)
{	
	var iFindNo  = -1;
	var sSrcNode = ds_grd_cstelist;
	
	// C:신규발행, R:재발행
	if (pBizFlag == "C")
	{
		for(var iNo = 0; iNo < ds_grd_cstelist.rowcount; iNo++)
		{
			//---------------------------------
			// 신규와 삭제분은 발행하지 않는다.
			if(ds_grd_cstelist.getColumn(iNo, "statflagcd") =="C")
			{
			}
		}
	} 
	else
	{
		iFindNo = ds_grd_cstelist.findRow("reprnt", 1, 0, 19);
		trace("iFindNo="+iFindNo);
		if (iFindNo > -1)
		{
			fExeSocketCsteSend();
		} 
		else 
		{
			sysf_messageBox("재출력 Cassette를", "C002");
		}
	}
}

//발행 Cassette목록을 장비로 전송 Function
function fExeSocketCsteSend()
{
	var sSendMsg = "";
	var sInfoNode= ds_hosoenvinfo;
	var sCsteNode = ds_grd_cstelist;
	var sCsteIP  = ds_hosoenvinfo.getColumn(0, "csteeqmtip");
	var sCstePort  = ds_hosoenvinfo.getColumn(0, "csteeqmtport");
	
	//장비IP set
	for(var iRowNo = 0; iRowNo < ds_init_cmb_caeqlist.rowcount; iRowNo++)
	{
		if(ds_init.getColumn(0, "eqcaseqno") == ds_init_cmb_caeqlist.getColumn(iRowNo, "eqseqno"))
		{
			sCsteIP  = ds_init_cmb_caeqlist.getColumn(iRowNo, "eqip");
			sCstePort  = ds_init_cmb_caeqlist.getColumn(iRowNo, "eqport");
		}
	}
	
	if( utlf_isNull(sCsteIP) || sCsteIP == "-")
	{
		sysf_messageBox("Cassette(블럭)장비의 IP주소가 없습니다. 병원별 환경설정에서 ", "C001");
		return false;
	}
	if( utlf_isNull(sCstePort) || sCstePort == "-")
	{
		sysf_messageBox("Cassette(블럭)장비의 Port번호가 없습니다. 병원별 환경설정에서 ", "C001");
		return false;
	}
	trace("sCsteIP="+sCsteIP);
	trace("sCstePort="+sCstePort);
	//-------------------------------------
	
	socketcste.connect(sCsteIP, sCstePort);
}

function fExeSlidIss(pBizFlag)
{					
	var iFindNo  = -1;
	var sSrcNode= ds_grd_slidlist;
	
	//---------------------
	// C:신규발행, R:재발행
	if (pBizFlag == "C")
	{
		for(var iNo = 0; iNo < ds_grd_slidlist.rowcount; iNo++)
		{
			//---------------------------------
			// 신규와 삭제분은 발행하지 않는다.
			if(ds_grd_slidlist.getColumn(iNo, "statflagcd") == "C")
			{
			}
		}
	} 
	else
	{
		iFindNo = ds_grd_slidlist.findRow("reprnt", "1");
		trace("iFindNo="+iFindNo);
		if (iFindNo > -1) 
		{
			fExeSocketSlidSend();
		} 
		else
		{
			sysf_messageBox("재출력 슬라이드를", "C002");
		}
	}
}

//발행 Cassette목록을 장비로 전송 Function
function fExeSocketSlidSend()
{	
	var sSendMsg = "";	
	var sInfoNode = ds_hosoenvinfo;
	var sSlidIP = ds_hosoenvinfo.getColumn(0, "slideqmtip");
	var sSlidProt = ds_hosoenvinfo.getColumn(0, "slidbceqmtport2");
	
	//장비IP set
	for(var iRowNo = 0; iRowNo < ds_init_cmb_slideqlist.rowcount; iRowNo++)
	{
		if(ds_init.getColumn(0, "eqslidseqno") == ds_init_cmb_slideqlist.getColumn(iRowNo, "eqseqno"))
		{
			sSlidIP = ds_init_cmb_slideqlist.getColumn(iRowNo, "eqip");
			sSlidPort = ds_init_cmb_slideqlist.getColumn(iRowNo, "eqport");
		}
	} 
	if( utlf_isNull(sSlidIP ) || sSlidIP == "-")
	{
		sysf_messageBox("슬라이드 장비의 IP주소가 없습니다. 병원별 환경설정에서 ", "C001");
		return false;
	}
	 
	if( utlf_isNull(sSlidPort) || sSlidPort == "-")
	{
		sysf_messageBox("슬라이드 장비의 Port번호가 없습니다. 병원별 환경설정에서 ", "C001");
		return false;
	}
	socketslid.connect(sSlidIP, sSlidPort);
}

//Cassette(블록)목록 행추가
function fExeCsteAdd()
{
	var iCsteNo    = 0;
	var iFindNo    = ds_grd_spclist.rowposition;
	var iMaxRowCnt = 0;
	var iIssCnt    = 0;
	var sSrcNode= ds_grd_spclist;
	var sDescNode = ds_grd_cstelist;
	
	//-----------------------------
	// 세부검체의 선택된 Row를 검색
	if (iFindNo > -1)
	{
		if( utlf_isNull(ds_hidden.getColumn(0, "cstecnt")))
		{
			iTssCnt = 1;
		}
		else
		{
			iTssCnt = Number(ds_hidden.getColumn(0, "cstecnt"));
		}


		//--------------------------------------------------
		for(var iLoopNo = 1; iLoopNo <= iTssCnt; iLoopNo++)
		{
			var addRw = ds_grd_cstelist.addRow();
			var arrPostion = new Array();
			arrPostion[0] = addRw;
			grdf_setStatus(grd_cstelist, "I", arrPostion);
			
			iMaxRowCnt = ds_grd_cstelist.rowposition;
			//-------------------
			if (iMaxRowCnt > 0)
			{
				iCsteNo = ds_grd_cstelist.getColumn((Number(iMaxRowCnt)-1), "csteno");
				iCsteNo = Number(iCsteNo) + 1;
				
			}
			else
			{
				iCsteNo = 1;
			}
			ds_grd_cstelist.setColumn(iMaxRowCnt, "instcd", ds_grd_spclist.getColumn(iFindNo, "instcd"));
			ds_grd_cstelist.setColumn(iMaxRowCnt, "ptno", ds_grd_spclist.getColumn(iFindNo, "ptno"));
			ds_grd_cstelist.setColumn(iMaxRowCnt, "dispptno", ds_grd_spclist.getColumn(iFindNo, "dispptno"));
			ds_grd_cstelist.setColumn(iMaxRowCnt, "spcacptdd", ds_grd_spclist.getColumn(iFindNo, "spcacptdd"));
			ds_grd_cstelist.setColumn(iMaxRowCnt, "spcacptno", ds_grd_spclist.getColumn(iFindNo, "spcacptno"));
			ds_grd_cstelist.setColumn(iMaxRowCnt, "spcacptseqno", ds_grd_spclist.getColumn(iFindNo, "spcacptseqno"));
			ds_grd_cstelist.setColumn(iMaxRowCnt, "csteno",  iCsteNo.toString().getLeftPad(3, "0"));
			ds_grd_cstelist.setColumn(iMaxRowCnt, "slidcnt",  "0");
			ds_grd_cstelist.setColumn(iMaxRowCnt, "spccd",  ds_grd_spclist.getColumn(iFindNo, "spccd"));
			ds_grd_cstelist.setColumn(iMaxRowCnt, "slidno",  "000");
			ds_grd_cstelist.setColumn(iMaxRowCnt, "cstekindcd", "1001");
			ds_refrslt.filter("baseflagcd == '81' && resncd == '1001'");
			ds_grd_cstelist.setColumn(iMaxRowCnt, "cstecnts",  ds_refrslt.getColumn(0, "resncnts"));
			ds_grd_cstelist.setColumn(iMaxRowCnt, "tisscnt", "0");
			ds_grd_cstelist.setColumn(iMaxRowCnt, "statsinclflagcd", "0");
			ds_grd_cstelist.setColumn(iMaxRowCnt, "acptdd", ds_grd_spclist.getColumn(iFindNo, "acptdd"));
			ds_grd_cstelist.setColumn(iMaxRowCnt, "acptno", ds_grd_spclist.getColumn(iFindNo, "acptno"));
			ds_grd_cstelist.setColumn(iMaxRowCnt, "testcd", "-");
			ds_grd_cstelist.setColumn(iMaxRowCnt, "acptitemno", "0");
			ds_grd_cstelist.setColumn(iMaxRowCnt, "reprnt", "false");
			ds_grd_cstelist.setColumn(iMaxRowCnt, "statflagcd", "C");
			ds_grd_cstelist.setColumn(iMaxRowCnt, "scrno", "10");
			ds_grd_cstelist.setColumn(iMaxRowCnt, "hopper",   "1");
			
			ds_grd_cstelist.rowposition = iMaxRowCnt;
			fExeCsteChange();
		}
	} 
	else 
	{
		sysf_messageBox("Cassette를 발행할 세부검체를 ", "C002");
	}
}

//Cassette종류 선택 처리 Function
function fExeCsteChange()
{	
	var sNode = ds_grd_cstelist;
	var iRowNo = ds_grd_cstelist.rowposition;
	var sCsteCnts = ds_grd_cstelist.getColumn(iRowNo, "cstecnts");
	var iSpcSeqNo = Number(ds_grd_cstelist.getColumn(iRowNo, "spcacptseqno"));
	var iCsteNo = Number(ds_grd_cstelist.getColumn(iRowNo, "csteno"));
	var sCsteKind = ds_grd_cstelist.getColumn(iRowNo, "cstekindcd");
	
	sCsteCnts = ds_refrslt.getColumn(0, "resncnts");
	sCsteCnts = lpzfExeCsteCnt(sCsteCnts, iSpcSeqNo, Number(iCsteNo));

	ds_grd_cstelist.setColumn(iRowNo, "cstecnts", sCsteCnts);
	
	if((ds_grd_cstelist.getColumn(iRowNo, "statflagcd") != "C") && ds_grd_cstelist.getColumn(iRowNo, "statflagcd") != "D")
	{
		ds_grd_cstelist.setColumn(iRowNo, "statflagcd", "UPDATE");
	}
}

//Cassette 행삭제 처리 Function
function fExeCsteDel(pRowNo)
{	
	var sSrcNode = ds_grd_cstelist;
	var arrPostion = new Array();
	arrPostion[0] = pRowNo;
	
	if(ds_grd_cstelist.getColumn(pRowNo, "statflagcd") == "C")
	{
		grdf_setStatus(grd_cstelist, "D", arrPostion);
 	}
	else
	{
		ds_grd_cstelist.setColumn(pRowNo, "statflagcd", "D");
		grdf_setStatus(grd_cstelist, "D", arrPostion);
	}
}

function fExeCsteSlidSave(pBizFlagCd)
{					
	var sSrcNode = "";
	var iFindNo  = 0;
	//trace("pBizFlagCd=" +pBizFlagCd);
	var arrPostion = new Array();
	arrPostion[0] = ds_grd_cstelist.rowposition;
	// C:Cassette,  S:슬라이드
	if(pBizFlagCd == "C")
	{
		if(ds_grd_cstelist.rowcount <= 0)
		{
			sysf_messageBox("저장 대상이 없습니다! 저장을 ", "E001");
			return false;
		}

 		sSrcNode = ds_grd_cstelist;
 		
		for(var iNo = 0; iNo < ds_grd_cstelist.rowcount; iNo++)
		{
			if(ds_grd_cstelist.getColumn(iNo, "statflagcd") != "D")
			{
				grdf_setStatus(grd_cstelist, "I", arrPostion);
				ds_grd_cstelist.setColumn(iNo, "statsinclflagcd", ds_grd_cstelist.getColumn(iNo, "hopper"));
				
			}
			else if(ds_grd_cstelist.getColumn(iNo, "statflagcd") == "D")
			{
				grdf_setStatus(grd_cstelist, "D", arrPostion);
			}
		}			
		var temp = grdf_getGridUpdateData(grd_cstelist, "all");
		grdf_setStatusColumn(temp, "state");
		dsf_createDs("ds_send_csteslidlist");
		
		ds_send_csteslidlist.copyData(temp, true);
		ds_send_csteslidlist.updateColID("statflagcd", "bizflagcd");
		ds_send_csteslidlist.addColumn("spchistno", "string");
		if(ds_send_csteslidlist.rowcount > 0)
		{
			for(i = 0 ; i < ds_send_csteslidlist.rowcount; i++)
			{
				ds_send_csteslidlist.setColumn(i, "spchistno", "1");
			}
		}
	}
	else
	{
		if(ds_grd_slidlist.rowcount < 0)
		{
			sysf_messageBox("저장 대상이 없습니다! 저장을 ", "E001");
			return false;
		}
		sSrcNode = ds_grd_slidlist;
		
		for (var iNo = 0; iNo < ds_grd_slidlist.rowcount; iNo++)
		{
			if(ds_grd_slidlist.getColumn(iNo, "statflagcd") != "D")
			{
				grdf_setStatus(grd_slidlist, "I", arrPostion);
				ds_grd_slidlist.setColumn(iNo, "statflagcd", "C");
			} 
			else if(ds_grd_slidlist.getColumn(iNo, "statflagcd") =="D")
			{
				grdf_setStatus(grd_slidlist, "D", arrPostion);
			}
		}
		var temp = grdf_getGridUpdateData(grd_slidlist, "all");
		grdf_setStatusColumn(temp, "state");
		dsf_createDs("ds_send_csteslidlist");
		
		ds_send_csteslidlist.copyData(temp, true);
		ds_send_csteslidlist.updateColID("statflagcd", "bizflagcd");
		ds_send_csteslidlist.addColumn("spchistno", "string");
		if(ds_send_csteslidlist.rowcount > 0)
		{
			for(i = 0 ; i < ds_send_csteslidlist.rowcount; i++)
			{
				ds_send_csteslidlist.setColumn(i, "spchistno", "1");
			}
		}
	}
	
	var oParam = {};
		oParam.id          = "TXLPB00101";
		oParam.service     = "plgycsteslidmngtapp.SpcCsteSlid";
		oParam.method      = "reqExeCsteIssDel";
		oParam.inds        = "refData=ds_send_csteslidlist";
		oParam.async       = false;
		//oParam.callback    = "cf_TXLPB00101";
	tranf_submit(oParam);
	
	if (pBizFlagCd == "C")
	{
		var pRowNo = ds_grd_spclist.rowposition;
		fGetCsteList(pRowNo);
	}
	else
	{
		if(ds_init.getColumn(0, "blockind") == "0")
		{
			fGetSlidList(ds_grd_cstelist.rowposition, "C");		
		}
		else
		{
			fGetSlidList(ds_grd_spclist.rowposition, pBizFlagCd);		
		}
	}		

}

//슬라이드 목록 조회 처리 Function
function fGetSlidList(pRowNo, pBizFlagCd)
{
	var iRowNo = ds_grd_cstelist.rowposition;
	var iCsteNo  = "";			
	var sOrgNode = ds_grd_spclist;
	var sSrcNode= ds_grd_cstelist;
	//----------------------
	if (pBizFlagCd == "C")
	{	
		for(var iNo = 0; iNo < ds_grd_cstelist.rowcount; iNo++)
		{
			ds_grd_cstelist.setColumn(iNo, "choi", "false");
		}
		iCsteNo = ds_grd_cstelist.getColumn(pRowNo, "csteno");
		ds_grd_cstelist.setColumn(iRowNo, "choi", "true");
	}
	else
	{
		iCsteNo  = "000";
		sSrcNode = sOrgNode;
	}
	dsf_createDsRow( "ds_send3", [{col : "instcd",  	 val : ds_grd_cstelist.getColumn(pRowNo, "instcd")}
								,{col : "ptno",  		 val : ds_grd_cstelist.getColumn(pRowNo, "ptno")}
								,{col : "spcacptdd",     val : ds_grd_cstelist.getColumn(pRowNo, "spcacptdd")}
								,{col : "spcacptno",     val : ds_grd_cstelist.getColumn(pRowNo, "spcacptno")}
								,{col : "spcacptseqno",  val : ds_grd_cstelist.getColumn(pRowNo, "spcacptseqno")}
								,{col : "csteno",  		 val : iCsteNo}
								,{col : "csteslidflagcd",  val : "S"}]);
	//-------------------
	//submit("TRLPB00103");
	var oParam = {};
		oParam.id          = "TRLPB00103";
		oParam.service     = "plgycsteslidmngtapp.SpcCsteSlid";
		oParam.method      = "reqGetCsteSlidList";
		oParam.inds        = "refData=ds_send3";
		oParam.outds       = "ds_grd_slidlist=rsltlist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRLPB00103";
	tranf_submit(oParam);
	
	ds_grd_slidlist.updatecontrol = false;
	for(var i = 0 ; i < ds_grd_slidlist.rowcount; i++)
	{
		ds_grd_slidlist.setColumn(i, "scrno", "20");
		ds_grd_slidlist.setColumn(i, "statflagcd", "-");
		ds_grd_slidlist.setColumn(i, "relaptno", "-");
		ds_grd_slidlist.setColumn(i, "reladispptno", "-");
	}
	ds_grd_slidlist.updatecontrol = true;
}
			

//접수 세부검체 클릭 처리 Function
function fExeSpcSeqClick(pRowNo)
{	
		fGetCsteList(pRowNo);
}

//Cassette 목록 조회 처리 Function
function fGetCsteList(pRowNo)
{	
	ds_grd_slidlist.clearData();
	var sSrcNode = ds_grd_spclist;
	dsf_createDsRow( "ds_send2", [{col : "instcd",         val : ds_grd_spclist.getColumn(pRowNo, "instcd")}
								,{col : "ptno",           val : ds_grd_spclist.getColumn(pRowNo, "ptno")}
								,{col : "spcacptdd",      val : ds_grd_spclist.getColumn(pRowNo, "spcacptdd")}
								,{col : "spcacptno",      val : ds_grd_spclist.getColumn(pRowNo, "spcacptno")}
								,{col : "spcacptseqno",   val : ds_grd_spclist.getColumn(pRowNo, "spcacptseqno")}
								,{col : "csteslidflagcd",  val : "C"}]);
	//-------------------
	//submit("TRLPB00102");
	var oParam = {};
		oParam.id          = "TRLPB00102";
		oParam.service     = "plgycsteslidmngtapp.SpcCsteSlid";
		oParam.method      = "reqGetCsteSlidList";
		oParam.inds        = "refData=ds_send2";
		oParam.outds       = "ds_grd_cstelist=rsltlist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRLPB00102";
	tranf_submit(oParam);
	
	ds_grd_cstelist.updatecontrol = false;
	for(var i = 0; i < ds_grd_cstelist.rowcount; i++)
	{
		ds_grd_cstelist.setColumn(i, "scrno", "10");
		ds_grd_cstelist.setColumn(i, "statflagcd", "-");
	}
	ds_grd_cstelist.updatecontrol = true;
	//관련검사명 목록조회		
	dsf_createDsRow( "ds_send",   [{col : "instcd",       val : ds_grd_spclist.getColumn(pRowNo, "instcd")}
								  ,{col : "ptno",         val : ds_grd_spclist.getColumn(pRowNo, "ptno")}
								  ,{col : "pid",          val : ds_grd_spclist.getColumn(pRowNo, "pid")}
								  ,{col : "selfflagcd",   val : "0"}									// (0:전체, 1:자신제외)
								  ,{col : "testflagcd",   val : "0"}                                    // (0:전체, 1:특수/면역/면역형광)
								  ,{col : "workflagcd",   val : "'1004', '1005', '1006'"}]);           
	//-------------------
	//submit("TRLPZ00110");
	var oParam = {};
		oParam.id          = "TRLPZ00110";
		oParam.service     = "plgycomnusemngtapp.BaseInfoCode";
		oParam.method      = "reqGetRelaTestNmList";
		oParam.inds        = "refdata=ds_send";
		oParam.outds       = "ds_rsltlist=rsltlist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRLPZ00110";
	tranf_submit(oParam);
}			
	
//슬라이드 행추가 처리 Function
function fExeSlidAdd()
{
	var iFindNo    = -1;
	var iMaxRowCnt = 0;
	var iIssCnt    = 0;
	var sOrgNode = ds_grd_spclist;
	var sSrcNode = ds_grd_cstelist;
	var sDescNode = ds_grd_slidlist;
	
	//-----------------------------
	// Cassette의 선택된 Row를 검색
	iFindNo = ds_grd_cstelist.findRow("choi", true, 0);
	
	if (iFindNo > -1)
	{
		if(ds_grd_cstelist.getColumn(iFindNo, "statflagcd") == "I")
		{
			sysf_messageBox("Cassette를 저장하여 주십시오! 슬라이드를 발행", "E001");
			return false;
		}
		if( utlf_isNull(ds_hidden.getColumn(0, "slidcnt")))
		{
			iIssCnt = 1;
		} 
		else
		{
			iIssCnt = Number(ds_hidden.getColumn(0, "slidcnt"));
		}
		
		for(var iLoopNo = 1; iLoopNo <=iIssCnt; iLoopNo++)
		{
			var addRw = ds_grd_slidlist.addRow();
			var arrPostion = new Array();
			arrPostion[0] = addRw;
			grdf_setStatus(grd_slidlist, "I", arrPostion);
			
			iMaxRowCnt = ds_grd_slidlist.rowposition;
			ds_grd_slidlist.setColumn(iMaxRowCnt, "instcd",          ds_grd_cstelist.getColumn(iFindNo, "instcd"));
			ds_grd_slidlist.setColumn(iMaxRowCnt, "ptno",            ds_grd_cstelist.getColumn(iFindNo, "ptno"));
			ds_grd_slidlist.setColumn(iMaxRowCnt, "dispptno",        ds_grd_cstelist.getColumn(iFindNo, "dispptno"));
			ds_grd_slidlist.setColumn(iMaxRowCnt, "spcacptdd",       ds_grd_cstelist.getColumn(iFindNo, "spcacptdd"));
			ds_grd_slidlist.setColumn(iMaxRowCnt, "spcacptno",       ds_grd_cstelist.getColumn(iFindNo, "spcacptno"));
			ds_grd_slidlist.setColumn(iMaxRowCnt, "spcacptseqno",    ds_grd_cstelist.getColumn(iFindNo, "spcacptseqno"));
			ds_grd_slidlist.setColumn(iMaxRowCnt, "csteno",          ds_grd_cstelist.getColumn(iFindNo, "csteno"));
			ds_grd_slidlist.setColumn(iMaxRowCnt, "spccd",           ds_grd_cstelist.getColumn(iFindNo, "spccd"));
			ds_grd_slidlist.setColumn(iMaxRowCnt, "slidno",          "000");
			ds_grd_slidlist.setColumn(iMaxRowCnt, "cstekindcd",      "1001");
			ds_grd_slidlist.setColumn(iMaxRowCnt, "cstecnts",        ds_refrslt1.getColumn(0, "resncnts"));
			ds_grd_slidlist.setColumn(iMaxRowCnt, "tisscnt",         "0");
			ds_grd_slidlist.setColumn(iMaxRowCnt, "statsinclflagcd", "0");
			ds_grd_slidlist.setColumn(iMaxRowCnt, "acptdd",          ds_grd_cstelist.getColumn(iFindNo, "acptdd"));
			ds_grd_slidlist.setColumn(iMaxRowCnt, "acptno",          ds_grd_cstelist.getColumn(iFindNo, "acptno"));
			ds_grd_slidlist.setColumn(iMaxRowCnt, "testcd",          "-");
			ds_grd_slidlist.setColumn(iMaxRowCnt, "acptitemno",      "0");
			ds_grd_slidlist.setColumn(iMaxRowCnt, "reprnt",          "false");
			ds_grd_slidlist.setColumn(iMaxRowCnt, "statflagcd",      "C");
			ds_grd_slidlist.setColumn(iMaxRowCnt, "scrno",           "20");
			ds_grd_slidlist.setColumn(iMaxRowCnt, "relaptno",        "-");
			ds_grd_slidlist.setColumn(iMaxRowCnt, "reladispptno",    "-");
		}
	}
	else
	{
		if(ds_init.getColumn(0, "blockind") == "0")
		{
			sysf_messageBox("슬라이드를 발행할 Cassette를 ", "C002");
			return false;
		}
		else
		{
			//if (grd_spclist.row <= 0)
			if(ds_grd_spclist.rowposition < 0)
			{
				sysf_messageBox("접수검체목록에서 병리번호를 ", "C002");
				return false;
			}
		}
		
		iIssCnt = Number(ds_hidden.getColumn(0, "slidcnt"));
		for(var iLoopNo = 0; iLoopNo <= iIssCnt; iLoopNo++)
		{	
			//--------------------
			var addRw = ds_grd_slidlist.addRow();
			var arrPostion = new Array();
			arrPostion[0] = addRw;
			grdf_setStatus(grd_slidlist, "I", arrPostion);
			
			iMaxRowCnt = ds_grd_spclist.rowposition;
			ds_grd_slidlist.setColumn(iMaxRowCnt, "instcd",          ds_grd_spclist.getColumn(iFindNo, "instcd"));
			ds_grd_slidlist.setColumn(iMaxRowCnt, "ptno",            ds_grd_spclist.getColumn(iFindNo, "ptno"));
			ds_grd_slidlist.setColumn(iMaxRowCnt, "dispptno",        ds_grd_spclist.getColumn(iFindNo, "dispptno"));
			ds_grd_slidlist.setColumn(iMaxRowCnt, "spcacptdd",       ds_grd_spclist.getColumn(iFindNo, "spcacptdd"));
			ds_grd_slidlist.setColumn(iMaxRowCnt, "spcacptno",       ds_grd_spclist.getColumn(iFindNo, "spcacptno"));
			ds_grd_slidlist.setColumn(iMaxRowCnt, "spcacptseqno",    ds_grd_spclist.getColumn(iFindNo, "spcacptseqno"));
			ds_grd_slidlist.setColumn(iMaxRowCnt, "csteno",          "000");
			ds_grd_slidlist.setColumn(iMaxRowCnt, "spccd",           ds_grd_spclist.getColumn(iFindNo, "spccd"));
			ds_grd_slidlist.setColumn(iMaxRowCnt, "slidno",          iMaxRowCnt.toString().getLeftPad(3, "0"));
			ds_grd_slidlist.setColumn(iMaxRowCnt, "cstekindcd",      "1001");
			ds_grd_slidlist.setColumn(iMaxRowCnt, "cstecnts",        ds_refrslt.getColumn(31, "resncnts"));
			ds_grd_slidlist.setColumn(iMaxRowCnt, "tisscnt",         "0");
			ds_grd_slidlist.setColumn(iMaxRowCnt, "statsinclflagcd", "0");
			ds_grd_slidlist.setColumn(iMaxRowCnt, "acptdd",          ds_grd_spclist.getColumn(iFindNo, "acptdd"));
			ds_grd_slidlist.setColumn(iMaxRowCnt, "acptno",          ds_grd_spclist.getColumn(iFindNo, "acptno"));
			ds_grd_slidlist.setColumn(iMaxRowCnt, "testcd",          "-");
			ds_grd_slidlist.setColumn(iMaxRowCnt, "acptitemno",      "0");
			ds_grd_slidlist.setColumn(iMaxRowCnt, "reprnt",          "false");
			ds_grd_slidlist.setColumn(iMaxRowCnt, "statflagcd",      "C");
			ds_grd_slidlist.setColumn(iMaxRowCnt, "scrno",           "20");
			ds_grd_slidlist.setColumn(iMaxRowCnt, "relaptno",        "-");
			ds_grd_slidlist.setColumn(iMaxRowCnt, "reladispptno",    "-");
		}
	}
}

//슬라이드 행삭제 처리 Function
function fExeSlideDel(pRowNo)
{	
	var sSrcNode= ds_grd_slidlist;
	var arrPostion = new Array();
	arrPostion[0] = ds_grd_slidlist.rowposition;
	if(ds_grd_slidlist.getColumn(pRowNo, "statflagcd" == "C"))
	{
		grdf_setStatus(grd_slidlist, "D", arrPostion);
		ds_grd_slidlist.deleteRow(grd_slidlist.rowposition);
	}
	else
	{
		ds_grd_slidlist.setColumn(pRowNo, "statflagcd", "D");
		grdf_setStatus(grd_slidlist, "D", arrPostion);
		ds_grd_slidlist.deleteRow(grd_slidlist.rowposition);
	}
}

function fExeCsteClick(pRowNo)
{	
	if(grd_cstelist.currentcol == 1)
	{
		ds_init.setColumn(0, "blockind", "0");
		fGetSlidList(pRowNo, "C");
	}
}
				
//조회
function grp_sea_btn_sea_onclick(obj:Button,  e:ClickEventInfo)
{
	var pos = grd_spclist.vscrollbar.pos;
	fGetSpcSeqList();
	grd_spclist.vscrollbar.pos = pos;
}

//조회
function grp_sea_ipt_acptddto_onkeyup(obj:Calendar, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		var pos = grd_spclist.vscrollbar.pos;
		fGetSpcSeqList();
		grd_spclist.vscrollbar.pos = pos;
	}
}

//Cassette재발행
function btn_csteiss_onclick(obj:Button,  e:ClickEventInfo)
{
	var pos = grd_spclist.vscrollbar.pos;
	fExeCsteIss("R");
	grd_spclist.vscrollbar.pos = pos;
}

//슬라이드재발행
function btn_slidiss_onclick(obj:Button,  e:ClickEventInfo)
{
	var pos = grd_spclist.vscrollbar.pos;
	fExeSlidIss("R");
	grd_spclist.vscrollbar.pos = pos;
}

//블럭저장
function btn_save_onclick(obj:Button,  e:ClickEventInfo)
{
	fExeCsteSlidSave("C");	
}

//Cassette(블록)목록 행추가
function btn_addcste_onclick(obj:Button,  e:ClickEventInfo)
{
	fExeCsteAdd();
}
//Cassette(블록)목록 행삭제
function btn_delcste_onclick(obj:Button,  e:ClickEventInfo)
{
	fExeCsteDel(ds_grd_cstelist.rowposition);
}

//블록저장
function btn_slidsave_onclick(obj:Button,  e:ClickEventInfo)
{
	fExeCsteSlidSave("S");
}

//슬라이드 목록 행추가
function btn_addslid_onclick(obj:Button,  e:ClickEventInfo)
{
	fExeSlidAdd();
}

//슬라이드 목록 행삭제
function btn_delslid_onclick(obj:Button,  e:ClickEventInfo)
{
	fExeSlideDel(ds_grd_slidlist.rowposition);
}


function grd_spclist_oncellclick(obj:Grid, e:GridClickEventInfo)
{
	fExeSpcSeqClick(ds_grd_spclist.rowposition);
}

function grd_cstelist_oncellclick(obj:Grid, e:GridClickEventInfo)
{
	fExeCsteClick(ds_grd_cstelist.rowposition);
}

function combo2_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
{
	fExeBlocKindChange();
}

 //Cassette종류(가상블럭) 선택 처리 Function
function fExeBlocKindChange()
{	
	var iFindNo = 0;
	
	if(ds_grd_slidlist.rowcount < 0)
	{
		sysf_messageBox("접수검체 목록에서 병리번호를 ", "C002");
		return false;
	}
	
	if(ds_init.getColumn(0, "blockind") == "0")
	{
		iFindNo = ds_grd_cstelist.findRow("choi", "true", 0);
		
		if (iFindNo > -1)
		{
			ds_grd_cstelist.rowposition = iFindNo;
			fGetSlidList(iFindNo, "C");
		}
		else{
		}
	}
	else
	{
		fGetSlidList(ds_grd_slidlist.rowposition, "S");
	}
}

function grd_slidlist_oncloseup(obj:Grid, e:GridEditEventInfo)
{
	fExeSlidTestChange();
}

/* @group  : Cassette/슬라이드발행
 * @ver    : 2017.01.16 (CMCDEV-0001)
 * @by     : 이민기
 * @-----------------------------------
 * @type   : function
 * @access : public
 * @desc   : 검사명 변경 처리 Function
*/
function fExeSlidTestChange()
{	
	var iRowNo = ds_grd_slidlist.rowposition;
	var sSrcNode = ds_rsltlist;
	var sDescNode = ds_grd_slidlist;
	var sNode     = "";
	var sResnNode = ds_refrslt
	var iSlidListNo = 0;
	
	if(grd_slidlist.currentcol == 15)
	{
		sNode = "acptdd='" + ds_grd_slidlist.getColumn(iRowNo, "acptdd") + "' &&";
		sNode += "acptno'" + ds_grd_slidlist.getColumn(iRowNo, "acptno") + "' &&";
		sNode += "testcd='" + ds_grd_slidlist.getColumn(iRowNo, "testcd") + "'";
		
		for(var iNo = 0; iNo < ds_rsltlist.rowcount; iNo++)
		{
			if(ds_grd_slidlist.getColumn(ds_grd_slidlist.rowposition, "testcd") == ds_rsltlist.getColumn(iNo, "testcd"))
			{
				iSlidListNo = iNo;
				break;
			}
		}
		
		ds_grd_slidlist.setColumn(ds_grd_slidlist.rowposition, "acptitemno", ds_rsltlist.getColumn(iSlidListNo, "acptitemno"));
		
		if(ds_grd_slidlist.getColumn(ds_grd_slidlist.rowposition, "ptno") == ds_rsltlist.getColumn(iSlidListNo, "ptno"))
		{
			// Continue
		}
		else
		{
			ds_grd_slidlist.setColumn(ds_grd_slidlist.rowposition, "relaptno", ds_rsltlist.getColumn(iSlidListNo, "ptno"));
			ds_grd_slidlist.setColumn(ds_grd_slidlist.rowposition, "reladispptno", ds_rsltlist.getColumn(iSlidListNo, "dispptno"));
			ds_grd_slidlist.setColumn(ds_grd_slidlist.rowposition, "cstecnts", ds_rsltlist.getColumn(iSlidListNo, "testnm"));
			
			//-----------------------------------------------------------
			//switch (model.getValue(sSrcNode+"["+ iSlidListNo+"]/workflagcd"))
			switch(ds_rsltlist.getColumn(iSlidListNo, "workflagcd"))
			{
				case "1004" : ds_grd_slidlist.setColumn(ds_grd_slidlist.rowposition, "cstekindcd", "1009");//model.makeValue(sDescNode+"["+grd_slidlist.row+"]/cstekindcd", "1009");
					break;
				case "1005" : ds_grd_slidlist.setColumn(ds_grd_slidlist.rowposition, "cstekindcd", "1010");//model.makeValue(sDescNode+"["+grd_slidlist.row+"]/cstekindcd", "1010");
					break;
				case "1006" : ds_grd_slidlist.setColumn(ds_grd_slidlist.rowposition, "cstekindcd", "1011");
					break;
				default : ds_grd_slidlist.setColumn(ds_grd_slidlist.rowposition, "cstekindcd", "1001");
			}
			
		}
	}
	//else if (grd_slidlist.col == grd_slidlist.colRef("cstekindcd"))
	else if(grd_slidlist.currentcol == 8)
	{
		grd_slidlist.updateToDataset();
		ds_refrslt.filter("baseflagcd == '82' && resncd =='" + ds_grd_slidlist.getColumn(ds_grd_slidlist.rowposition, "cstekindcd") + "'");
		ds_grd_slidlist.setColumn(ds_grd_slidlist.rowposition, "cstecnts", ds_refrslt.getColumn(0, "resncnts"));
		ds_refrslt.filter("");
	}
}

function grd_slidlist_ontextchange(obj:Grid, e:GridEditTextChangeEventInfo)
{
	fExeSlidTestChange();
}

//소켓 에러 이벤트
function socketcste_OnError(obj:ActiveX, e)
{
	alert("Error code = " + lError+"\nError Message : "+szMsg);
	socketcste_OnClose();			// 소켓 닫기
	isConnected = false; 			// 접속 여부 false
}

//소켓 연결 이벤트
function socketcste_OnConnect(obj:ActiveX, e)
{
	trace("Socket Connect");
	
	isConnected = true; 	// 접속 여부 false
	var sCsteNode = ds_grd_cstelist;

	for(var iRowNo = 0; iRowNo < ds_grd_cstelist.rowcount; iRowNo++)
	{
		if(ds_grd_cstelist.getColumn(iRowNo, "reprnt") == "true" || ds_grd_cstelist.getColumn(iRowNo, "reprnt") == 1)	
		{
			// 신규와 삭제분은 발행하지 않는다.
			if(ds_grd_cstelist.getColumn(iRowNo, "statflagcd") == "-")
			{
				sSendMsg  = "";
				sSendMsg += ds_grd_cstelist.getColumn(iRowNo, "ptno") + "▦";				// 병리번호
				sSendMsg += ds_grd_cstelist.getColumn(iRowNo, "dispptno") + "▦";			// 표시병리번호
				sSendMsg += ds_grd_cstelist.getColumn(iRowNo, "spcacptseqno") + "▦";		// 검체일련번호
				sSendMsg += ds_grd_cstelist.getColumn(iRowNo, "csteno") + "▦";				// 블럭번호
				sSendMsg += "000" + "▦";													// 슬라이드번호
				sSendMsg += ds_grd_cstelist.getColumn(iRowNo, "cstecnts") + "▦";			// 블럭내용
				sSendMsg += ds_grd_cstelist.getColumn(iRowNo, "hopper") + "▦";				// Hopper번호
				sSendMsg +=  "C" + "▩";
				
				trace("sSendMsg="+sSendMsg);
				socketcste.sendString(sSendMsg);											// 전송한다.
			}
		}
	}
	//ds_grd_cstelist.clearData();
								
	//----------
	// 소켓 닫기
	socketcste_OnClose();				
}

//소켓 close 이벤트
function socketcste_OnClose(obj:ActiveX, e)
{
	isConnected = false;	// 접속 여부 false
	socketcste.close();
}

//소켓 에러 이벤트
function socketslid_OnError(obj:ActiveX, e)
{
	alert("Error code = " + lError+"\nError Message : "+szMsg);
	socketslid_OnClose();					// 소켓 닫기
	isConnected = false; 			// 접속 여부 false
}

//소켓 연결 이벤트
function socketslid_OnConnect(obj:ActiveX, e)
{
	trace("Socket Connect");
	var iMaxRowCnt = 0;
	var sCsteNode = ds_grd_cstelist;
	var sSlidNode = ds_grd_slidlist;
	var sMainNode  = ds_grd_spclist;
	
	//--------------------------------------
	iMaxRowCnt = ds_grd_slidlist.rowcount;
	
	for(var iRowNo=0; iRowNo < iMaxRowCnt; iRowNo++)
	{
		if(ds_grd_slidlist.getColumn(iRowNo, "reprnt") == "true")
		{
			if(ds_grd_slidlist.getColumn(iRowNo, "statflagcd") == "-")
			{
				sSendMsg  = "";
				sSendMsg += ds_grd_slidlist.getColumn(iRowNo, "ptno") + "▦";						// 병리번호
				sSendMsg += ds_grd_slidlist.getColumn(iRowNo, "dispptno") + "▦";                   // 표시병리번호
				sSendMsg += ds_grd_slidlist.getColumn(iRowNo, "spcacptseqno") + "▦";               // 검체일련번호
				sSendMsg += ds_grd_slidlist.getColumn(iRowNo, "csteno") + "▦";                     // 블럭번호
				sSendMsg += ds_grd_slidlist.getColumn(iRowNo, "slidno") + "▦";                     // 슬라이드번호
				sSendMsg += ds_grd_slidlist.getColumn(iRowNo, "prtnblocnm") + "▦";                 // 블럭내용
				sSendMsg += ds_grd_slidlist.getColumn(iRowNo, "cstecnts") + "▦";                   // 슬라이드내용
				                    
				// 전송종료여부 설정
				if (iRowNo == iMaxRowCnt)
				{
					sSendMsg += "Y" + "▦";
				}
				else
				{
					sSendMsg += "N" + "▦";
				}							
				sSendMsg += ds_grd_spclist.getColumn(ds_grd_spclist.rowposition, "pid") + "▦";					// 환자번호
				sSendMsg += ds_grd_spclist.getColumn(ds_grd_spclist.rowposition, "patnm") + "▦";				// 환자명
				

				//if (model.getValue("/root/init/prtflag") == "0")
				if(ds_init.getColumn(0, "prtflag") == "0")
				{
					sSendMsg += "SM" + "▩";
				} else {
					sSendMsg += "SB" + "▩";
				}
				socketslid.sendString(sSendMsg);											// 전송한다.
			}
		}
	}
								
	//----------
	// 소켓 닫기
	socketslid_OnClose();					
}

//소켓 close 이벤트
function socketslid_OnClose(obj:ActiveX, e)
{
	isConnected = false;	// 접속 여부 false
	socketslid.close();
}


function grd_cstelist_ontextchanged(obj:Grid, e:GridEditTextChangedEventInfo)
{
	//var iRowNo    = grd_cstelist.row;
	var iRowNo = ds_grd_cstelist.rowposition;
	//if((grd_cstelist.col == grd_cstelist.colRef("cstekindcd"))  &&  (grd_cstelist.row >= grd_cstelist.fixedRows))
	if(e.col == 9)
	{
		fExeCsteChange();
	}
	//else if(grd_cstelist.col == grd_cstelist.colRef("cstecnts") || grd_cstelist.col == grd_cstelist.colRef("statsinclflagcd"))
	else if(e.col == 10 || e.col == 13)
	{
		//if((model.getValue("/root/main/csteinfo/cstelist["+iRowNo+"]/statflagcd") != "C") && (model.getValue("/root/main/csteinfo/cstelist["+iRowNo+"]/statflagcd") != "D"))
		if((ds_grd_cstelist.getColumn(iRowNo, "statflagcd") != "C") && (ds_grd_cstelist.getColumn(iRowNo, "statflagcd") != "D"))
		{
			ds_grd_cstelist.setColumn(iRowNo, "statflagcd", "UPDATE");
		}
	}
}

function grd_cstelist_onrbuttondown(obj:Grid, e:GridMouseEventInfo)
{
	if(e.row > -1)
	{	frmf_setPopupMenuDs( "pmn_popupMenu",  [{id: "fDelCaList", level: "0", title: "블록 삭제"}]);
		pmn_popupMenu.trackPopup(e.screenX,e.screenY);
	}
}

function pmn_popupMenu_onmenuclick(obj:PopupMenu, e:MenuClickEventInfo)
{
	if(e.id == "fDelCaList")
	{
		fDelCaList();
	}
}

function fDelCaList()
{
	//var iFirstRow = ds_grd_cstelist.rowposition;
	var iFirstRow = grd_cstelist.selectstartrow;
	//var iLastRow = ds_grd_cstelist.rowcount;
	var iLastRow = grd_cstelist.selectendrow;
	
	trace("iFirstRow = " + iFirstRow);
	trace("iLastRow = " + iLastRow);
	for(var iRowNo = iLastRow; iRowNo >= iFirstRow; iRowNo--)
	{
		fExeCsteDel(iRowNo);	
	}
}

function grd_slidlist_onrbuttondown(obj:Grid, e:GridMouseEventInfo)
{
	if(e.row > -1)
	{	
		frmf_setPopupMenuDs( "pmn_popupMenu1",  [{id: "fDelSlidList", level: "0", title: "슬라이드 삭제"}]);
		pmn_popupMenu1.trackPopup(e.screenX,e.screenY);
	}
}

function pmn_popupMenu_onmenuclick1(obj:PopupMenu, e:MenuClickEventInfo)
{
	if(e.id == "fDelSlidList")
	{
		fDelSlidList();
	}
}

//선택목록 삭제 
function fDelSlidList()
{	
	var iFirstRow = ds_grd_slidlist.rowposition;
	var iLasrRow = ds_grd_slidlist.rowcount;
	
	for(var iRowNo = iLasrRow ; iRowNo >= iFirstRow ; iRowNo--)
	{
		fExeSlideDel(iRowNo);
	}
}


function grp_sea_ipt_seaval_onkeyup(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		fExeRefValKeyPress();	
	}
}

//등록번호 입력 처리 Function
function fExeRefValKeyPress()
{
	ds_hidden.setColumn(0, "seaval", grp_sea.ipt_seaval.text);
	fGetSpcSeqList();
}]]></Script>
  </Form>
</FDL>