YNU_JEUS/app_home/himed/xpapps/lis/plgycsteslidmngtxp/xp/SMLPB00900_Cassette발행.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMLPB00900" position="absolute 0 0 1196 778" titletext="Cassette발행" oninit="SMLPB00900_oninit" onload="SMLPB00900_onload" ontimer="SMLPB00900_ontimer">
    <Layouts>
      <Layout>
        <Shape id="line17" linetype="horizontal" class="line_6" position="absolute 0 54 1194 60" style="strokepen:3 solid #9ebed4ff;" anchor="left top right"/>
        <Button id="btn_create" taborder="1" text="발행" class="btn4" position="absolute 1137 28 1193 50" onclick="btn_create_onclick" anchor="top right"/>
        <Static id="cap_slide" text="슬라이드동시발행여부" position="absolute 951 31 1075 46" anchor="top right"/>
        <CheckBox id="bol_slideflag" taborder="2" position="absolute 930 29 960 49" onclick="bol_slideflag_onclick" anchor="top right"/>
        <Static id="cap_slid" text="출력장비" class="cell_1" visible="false" position="absolute 719 29 784 48"/>
        <Combo id="cmb_slid" taborder="3" innerdataset="ds_init_cmb_slid" codecolumn="eqseqno" datacolumn="eqnm" visible="false" position="absolute 790 29 924 48" anchor="top right"/>
        <Static id="caption6" text="Cassette발행" class="tit_1" position="absolute 1 1 151 26"/>
        <Div id="grp_sea" taborder="4" position="absolute 0 58 1194 93" class="div_SA" anchor="left top right">
          <Layouts>
            <Layout>
              <Static id="caption2" text="접수일자 :" class="search_name" position="absolute 781 9 852 26" anchor="top right"/>
              <Static id="caption5" text="~" class="search_no_b" position="absolute 965 11 977 28" anchor="top right"/>
              <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 854 8 956 27" mask="yyyy-mm-dd" anchor="top right"/>
              <Calendar id="ipt_acptddto" taborder="11" class="input_s_essential" position="absolute 982 8 1084 27" mask="yyyy-mm-dd" onkeyup="grp_sea_ipt_acptddto_onkeyup" anchor="top right"/>
              <Static id="caption1" text="등록번호 :" class="search_name" position="absolute 535 9 621 26"/>
              <Button id="btn_sea" taborder="12" text="조회" class="btn1" position="absolute 1123 7 1179 29" onclick="grp_sea_btn_sea_onclick" anchor="top right"/>
              <Combo id="cbo_ptnocd" taborder="13" innerdataset="ds_init_cbo_ptnocd" codecolumn="ptnocd" datacolumn="ptnonm" position="absolute 109 8 260 27"/>
              <Edit id="ipt_fromptno" taborder="14" class="text_center" position="absolute 293 8 343 27"/>
              <Static id="caption9" text="병리번호 :" class="search_name" position="absolute 15 9 105 26"/>
              <Static id="caption10" text="~" class="search_no_b" position="absolute 346 8 358 25"/>
              <Edit id="ipt_fromyear" taborder="15" class="text_center" position="absolute 263 8 290 27"/>
              <Edit id="ipt_seaval" taborder="16" class="input_search" position="absolute 624 8 717 27"/>
              <Edit id="ipt_toyear" taborder="17" class="text_center" position="absolute 361 8 388 27"/>
              <Edit id="ipt_toptno" taborder="18" class="text_center" position="absolute 391 8 441 27"/>
            </Layout>
          </Layouts>
        </Div>
        <Shape id="line1" linetype="horizontal" class="line_1" position="absolute 0 118 715 124" style="strokepen:3 solid #33bbbbff;" anchor="left top right"/>
        <Static id="caption3" text="병리번호 목록" class="tit_2" position="absolute 1 101 109 117"/>
        <Grid id="grd_ptnolist" class="datagrid2" taborder="5" binddataset="ds_grd_ptnolist" useinputpanel="false" position="absolute 0 122 715 775" autofittype="col" anchor="all" autoenter="select" areaselecttype="limitband" selecttype="cell">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="40"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="90"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="60"/>
                <Column size="0"/>
                <Column size="136"/>
                <Column size="60"/>
                <Column size="60"/>
                <Column size="60"/>
                <Column size="60"/>
                <Column size="60"/>
                <Column size="60"/>
                <Column size="0"/>
                <Column size="0"/>
              </Columns>
              <Rows>
                <Row size="26" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell displaytype="checkbox" edittype="checkbox" text="선&#10;택"/>
                <Cell col="1" text="기관코드"/>
                <Cell col="2" text="ptno"/>
                <Cell col="3" text="병리번호"/>
                <Cell col="4" text="acptdd"/>
                <Cell col="5" text="acptno"/>
                <Cell col="6" text="spcacptdd"/>
                <Cell col="7" text="spcacptno"/>
                <Cell col="8" text="검체번호"/>
                <Cell col="9" text="spccd"/>
                <Cell col="10" text="검체명"/>
                <Cell col="11" colspan="2" text="Case1" taborder="undefined"/>
                <Cell col="13" colspan="3" text="Case2" taborder="undefined"/>
                <Cell col="16" text="Hopper"/>
                <Cell col="17" text="spchistno"/>
                <Cell col="18" text="maxcsteno"/>
              </Band>
              <Band id="body">
                <Cell displaytype="checkbox" edittype="checkbox" text="bind:choi"/>
                <Cell col="1" text="bind:instcd"/>
                <Cell col="2" text="bind:ptno"/>
                <Cell col="3" text="bind:dispptno"/>
                <Cell col="4" text="bind:acptdd"/>
                <Cell col="5" text="bind:acptno"/>
                <Cell col="6" text="bind:spcacptdd"/>
                <Cell col="7" text="bind:spcacptno"/>
                <Cell col="8" text="bind:spcacptseqno"/>
                <Cell col="9" text="bind:spccd"/>
                <Cell col="10" style="align:left middle;" text="bind:spcnm"/>
                <Cell col="11" displaytype="text" edittype="text" editfilter="upper" style="align:center;" text="bind:from11" editautoselect="true"/>
                <Cell col="12" displaytype="text" edittype="text" editfilter="upper,char" style="align:center;" text="bind:from12" editimemode="none" editautoselect="true"/>
                <Cell col="13" displaytype="text" edittype="text" editfilter="upper" style="align:center middle;" text="bind:fixchar" editautoselect="true"/>
                <Cell col="14" displaytype="text" edittype="text" editfilter="none" style="align:center middle;" text="bind:from21" editautoselect="true"/>
                <Cell col="15" displaytype="text" edittype="text" editfilter="none" style="align:center middle;" text="bind:from22" editautoselect="true"/>
                <Cell col="16" displaytype="combo" edittype="combo" text="bind:hopper" combodataset="ds_item" combocodecol="label" combodatacol="value"/>
                <Cell col="17" text="bind:spchistno"/>
                <Cell col="18" text="bind:maxcsteno"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Static id="caption7" text="Cassette 발행 목록" class="tit_2" position="absolute 720 99 866 116" anchor="top right"/>
        <Shape id="line2" linetype="horizontal" class="line_1" position="absolute 719 118 1194 124" style="strokepen:3 solid #33bbbbff;" anchor="top right"/>
        <Button id="btn_addcste" taborder="6" text="정보전달" class="btn2" position="absolute 651 97 715 116" onclick="btn_addcste_onclick" anchor="top right"/>
        <Grid id="grd_isscstelist" class="datagrid2" taborder="7" binddataset="ds_grd_isscstelist" useinputpanel="false" position="absolute 719 122 1194 775" autofittype="col" anchor="top right bottom">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="34"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="100"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="242"/>
                <Column size="0"/>
                <Column size="80"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <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 style="align:center middle;" text="선택"/>
                <Cell col="1" text="기관코드"/>
                <Cell col="2" text="병리번호"/>
                <Cell col="3" text="병리번호"/>
                <Cell col="4" text="검체접수일자"/>
                <Cell col="5" text="검체접수번호'"/>
                <Cell col="6" text="검체&#10;번호"/>
                <Cell col="7" text="블럭&#10;번호"/>
                <Cell col="8" text="블럭&#10;종류"/>
                <Cell col="9" text="Cassette내용"/>
                <Cell col="10" text="조직&#10;갯수"/>
                <Cell col="11" text="Hopper"/>
                <Cell col="12" text="maxcsteno"/>
                <Cell col="13" text="bizflagcd"/>
                <Cell col="14" text="scrno"/>
                <Cell col="15" text="acptdd"/>
                <Cell col="16" text="acptno"/>
                <Cell col="17" text="testcd"/>
                <Cell col="18" text="acptitemno"/>
                <Cell col="19" text="slidno"/>
                <Cell col="20" text="spccd"/>
                <Cell col="21" text="spchistno"/>
                <Cell col="22" text="statsinclflagcd"/>
                <Cell col="23" text="slideflag"/>
              </Band>
              <Band id="body">
                <Cell displaytype="checkbox" edittype="checkbox" text="bind:choi"/>
                <Cell col="1" text="bind:instcd"/>
                <Cell col="2" text="bind:ptno"/>
                <Cell col="3" class="text_center" text="bind:dispptno"/>
                <Cell col="4" text="bind:spcacptdd"/>
                <Cell col="5" text="bind:spcacptno"/>
                <Cell col="6" class="text_center" text="bind:spcacptseqno"/>
                <Cell col="7" class="text_center" text="bind:csteno"/>
                <Cell col="8" displaytype="combo" edittype="combo" text="bind:cstekindcd"/>
                <Cell col="9" displaytype="text" edittype="text" text="bind:cstecnts"/>
                <Cell col="10" displaytype="text" edittype="text" class="text_center" text="bind:tisscnt"/>
                <Cell col="11" displaytype="combo" edittype="combo" text="bind:hoppno" combodataset="ds_item" combocodecol="label" combodatacol="value"/>
                <Cell col="12" text="bind:maxcsteno"/>
                <Cell col="13" text="bind:bizflagcd"/>
                <Cell col="14" text="bind:scrno"/>
                <Cell col="15" text="bind:acptdd"/>
                <Cell col="16" text="bind:acptno"/>
                <Cell col="17" text="bind:testcd"/>
                <Cell col="18" text="bind:acptitemno"/>
                <Cell col="19" text="bind:slidno"/>
                <Cell col="20" text="bind:spccd"/>
                <Cell col="21" text="bind:spchistno"/>
                <Cell col="22" text="bind:statsinclflagcd"/>
                <Cell col="23" text="bind:slideflag"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Button id="btn_clear" taborder="8" text="초기화" class="btn2" position="absolute 1141 97 1194 116" onclick="btn_clear_onclick" anchor="top right"/>
        <ActiveX id="socket" visible="false" position="absolute 600 88 635 118" progid="{81e9de7e-90be-4958-bbda-ac731c05aba8}" useautobitmapcache="1" anchor="default" taborder="9" OnError="socket_OnError" OnConnect="socket_OnConnect" OnClose="socket_OnClose"/>
        <Combo id="cmb_cstechar" taborder="10" innerdataset="ds_init_cmb_cstechar" codecolumn="no" datacolumn="cnts" visible="false" position="absolute 310 97 380 116" onitemchanged="cmb_cstechar_onitemchanged"/>
        <Combo id="cmb_hopkind" taborder="11" codecolumn="codecolumn" datacolumn="datacolumn" position="absolute 468 97 528 116" onitemchanged="cmb_hopkind_onitemchanged">
          <Dataset id="innerdataset">
            <ColumnInfo>
              <Column id="codecolumn"/>
              <Column id="datacolumn"/>
            </ColumnInfo>
            <Rows>
              <Row>
                <Col id="codecolumn">1</Col>
                <Col id="datacolumn">1</Col>
              </Row>
              <Row>
                <Col id="codecolumn">2</Col>
                <Col id="datacolumn">2</Col>
              </Row>
              <Row>
                <Col id="codecolumn">3</Col>
                <Col id="datacolumn">3</Col>
              </Row>
              <Row>
                <Col id="codecolumn">4</Col>
                <Col id="datacolumn">4</Col>
              </Row>
              <Row>
                <Col id="codecolumn">5</Col>
                <Col id="datacolumn">5</Col>
              </Row>
              <Row>
                <Col id="codecolumn">6</Col>
                <Col id="datacolumn">6</Col>
              </Row>
            </Rows>
          </Dataset>
        </Combo>
        <Combo id="cmb_cstekind" taborder="12" innerdataset="ds_init_cmb_cstekind" codecolumn="resncd" datacolumn="resncnts" position="absolute 381 97 464 116" onitemchanged="cmb_cstekind_onitemchanged"/>
        <Static id="caption4" text="출력장비" class="cell_1" position="absolute 930 97 995 116" visible="true"/>
        <Combo id="cmb_slideqlist" taborder="13" innerdataset="ds_init_cmb_slideqlist" codecolumn="eqseqno" datacolumn="eqnm" position="absolute 1004 97 1138 116" anchor="top right"/>
        <Grid id="datagrid1" taborder="14" binddataset="ds_datagrid1" useinputpanel="false" visible="false" position="absolute 200 423 1090 663">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell text="instcd"/>
                <Cell col="1" text="ptno"/>
                <Cell col="2" text="spcacptdd"/>
                <Cell col="3" text="spcacptno"/>
                <Cell col="4" text="spcacptseqno"/>
                <Cell col="5" text="csteno"/>
                <Cell col="6" text="bloccnts"/>
                <Cell col="7" text="prntcsscnts"/>
                <Cell col="8" text="slidno"/>
                <Cell col="9" text="cstekindcd"/>
                <Cell col="10" text="cstecnts"/>
                <Cell col="11" text="workattr"/>
                <Cell col="12" text="prntcsscnts"/>
                <Cell col="13" text="cstecnts"/>
                <Cell col="14" text="ipttype"/>
                <Cell col="15" text="maxcsteno"/>
                <Cell col="16" text="bizflagcd"/>
                <Cell col="17" text="acptdd"/>
                <Cell col="18" text="acptno"/>
                <Cell col="19" text="testcd"/>
                <Cell col="20" text="acptitemno"/>
                <Cell col="21" text="scrno"/>
                <Cell col="22" text="spccd"/>
                <Cell col="23" text="spchistno"/>
                <Cell col="24" text="statsinclflagcd"/>
                <Cell col="25" text="relaptno"/>
                <Cell col="26" text="bloccnts"/>
                <Cell col="27" text="reladispptno"/>
                <Cell col="28" text="workflagcd"/>
                <Cell col="29" text="dispptno"/>
                <Cell col="30" text="prtnblocnm"/>
              </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" text="bind:bloccnts"/>
                <Cell col="7" text="bind:prntcsscnts"/>
                <Cell col="8" text="bind:slidno"/>
                <Cell col="9" text="bind:cstekindcd"/>
                <Cell col="10" text="bind:cstecnts"/>
                <Cell col="11" text="bind:workattr"/>
                <Cell col="12" text="bind:prntcsscnts"/>
                <Cell col="13" text="bind:cstecnts"/>
                <Cell col="14" text="bind:ipttype"/>
                <Cell col="15" text="bind:maxcsteno"/>
                <Cell col="16" text="bind:bizflagcd"/>
                <Cell col="17" text="bind:acptdd"/>
                <Cell col="18" text="bind:acptno"/>
                <Cell col="19" text="bind:testcd"/>
                <Cell col="20" text="bind:acptitemno"/>
                <Cell col="21" text="bind:scrno"/>
                <Cell col="22" text="bind:spccd"/>
                <Cell col="23" text="bind:spchistno"/>
                <Cell col="24" text="bind:statsinclflagcd"/>
                <Cell col="25" text="bind:relaptno"/>
                <Cell col="26" text="bind:bloccnts"/>
                <Cell col="27" text="bind:reladispptno"/>
                <Cell col="28" text="bind:workflagcd"/>
                <Cell col="29" text="bind:dispptno"/>
                <Cell col="30" text="bind:prtnblocnm"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
      </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_ptnolist" 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="dispptno" type="STRING"/>
          <Column id="acptdd" type="STRING"/>
          <Column id="acptno" type="STRING"/>
          <Column id="spcacptdd" type="STRING"/>
          <Column id="spcacptno" type="STRING"/>
          <Column id="spcacptseqno" type="STRING"/>
          <Column id="spccd" type="STRING"/>
          <Column id="spcnm" type="STRING"/>
          <Column id="from11" type="STRING"/>
          <Column id="from12" type="STRING"/>
          <Column id="fixchar" type="STRING"/>
          <Column id="from21" type="STRING"/>
          <Column id="from22" type="STRING"/>
          <Column id="hopper" type="STRING"/>
          <Column id="spchistno" type="STRING"/>
          <Column id="maxcsteno" type="STRING"/>
          <Column id="curcsteno" type="STRING" size="0"/>
          <Column id="cstekindcd" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_grd_isscstelist" firefirstcount="0" firenextcount="0" useclientlayout="false" 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="dispptno" type="STRING"/>
          <Column id="spcacptdd" type="STRING"/>
          <Column id="spcacptno" type="STRING"/>
          <Column id="spcacptseqno" type="STRING"/>
          <Column id="csteno" type="STRING"/>
          <Column id="cstekindcd" type="STRING"/>
          <Column id="cstecnts" type="STRING"/>
          <Column id="tisscnt" type="STRING"/>
          <Column id="hoppno" type="STRING"/>
          <Column id="maxcsteno" type="STRING"/>
          <Column id="bizflagcd" type="STRING"/>
          <Column id="scrno" type="STRING"/>
          <Column id="acptdd" type="STRING"/>
          <Column id="acptno" type="STRING"/>
          <Column id="testcd" type="STRING"/>
          <Column id="acptitemno" type="STRING"/>
          <Column id="slidno" type="STRING"/>
          <Column id="spccd" type="STRING"/>
          <Column id="spchistno" type="STRING"/>
          <Column id="statsinclflagcd" type="STRING"/>
          <Column id="slideflag" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_cmb_cstechar" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cnts" type="STRING"/>
          <Column id="no" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_cmb_cstekind" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="resncnts" type="STRING"/>
          <Column id="resncd" 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_datagrid1" 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="spcacptdd" type="STRING"/>
          <Column id="spcacptno" type="STRING"/>
          <Column id="spcacptseqno" type="STRING"/>
          <Column id="csteno" type="STRING"/>
          <Column id="bloccnts" type="STRING"/>
          <Column id="prntcsscnts" type="STRING"/>
          <Column id="slidno" type="STRING"/>
          <Column id="cstekindcd" type="STRING"/>
          <Column id="cstecnts" type="STRING"/>
          <Column id="workattr" type="STRING"/>
          <Column id="prntcsscnts" type="STRING"/>
          <Column id="cstecnts" type="STRING"/>
          <Column id="ipttype" type="STRING"/>
          <Column id="maxcsteno" type="STRING"/>
          <Column id="bizflagcd" type="STRING"/>
          <Column id="acptdd" type="STRING"/>
          <Column id="acptno" type="STRING"/>
          <Column id="testcd" type="STRING"/>
          <Column id="acptitemno" type="STRING"/>
          <Column id="scrno" type="STRING"/>
          <Column id="spccd" type="STRING"/>
          <Column id="spchistno" type="STRING"/>
          <Column id="statsinclflagcd" type="STRING"/>
          <Column id="relaptno" type="STRING"/>
          <Column id="bloccnts" type="STRING"/>
          <Column id="reladispptno" type="STRING"/>
          <Column id="workflagcd" type="STRING"/>
          <Column id="dispptno" type="STRING"/>
          <Column id="prtnblocnm" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_cmb_slid" 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_hidden" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="detlrefcrite" type="STRING" size="256"/>
          <Column id="userdeptcd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_userinfolist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="choi" type="STRING" size="256" sumtext="선택"/>
          <Column id="dutplceinstcd" type="STRING" size="256" sumtext="기관코드"/>
          <Column id="userid" type="STRING" size="256" sumtext="사용자ID"/>
          <Column id="usernm" type="STRING" size="256" sumtext="사용자명"/>
          <Column id="jobkindcd" type="STRING" size="256" sumtext="직종구분코드"/>
          <Column id="userabbr" type="STRING" size="256" sumtext="직종구분코드"/>
          <Column id="mpphonno" type="STRING" size="256" sumtext="직종구분코드"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_resncdlist" firefirstcount="0" firenextcount="0" useclientlayout="false" 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="사유내용"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_cstecharlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="no" type="STRING" size="256"/>
          <Column id="cnts" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="no">1</Col>
            <Col id="cnts">C</Col>
          </Row>
        </Rows>
      </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>
        <Rows>
          <Row/>
        </Rows>
      </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_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_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="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="ptnofrom" type="STRING" size="256"/>
          <Column id="ptnoto" type="STRING" size="256"/>
          <Column id="choicstechar" type="STRING" size="256"/>
          <Column id="choicstekindcd" type="STRING" size="256"/>
          <Column id="choichopperval" type="STRING" size="256"/>
          <Column id="eqseqno" type="STRING" size="256"/>
          <Column id="slideflag" type="STRING" size="256"/>
          <Column id="slideeqseqno" type="STRING" size="256"/>
          <Column id="ptno" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </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>
      <Dataset id="ds_send_isscstelist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_eqinfo_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"/>
          <Column id="eqip" type="STRING" size="256"/>
          <Column id="eqport" type="STRING" size="256"/>
          <Column id="eqflag" type="STRING" size="256"/>
          <Column id="eqseqno" type="STRING" size="256"/>
          <Column id="resncd" type="STRING" size="256"/>
          <Column id="baseflagcd" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_cstecharnolist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="no" type="STRING" size="256"/>
          <Column id="cnts" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="no">1</Col>
            <Col id="cnts">이중번호</Col>
          </Row>
        </Rows>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="grp_sea.cbo_ptnocd" propid="value" datasetid="ds_init" columnid="ptnocode"/>
      <BindItem id="item1" compid="grp_sea.ipt_fromyear" propid="value" datasetid="ds_init" columnid="fromyear"/>
      <BindItem id="item2" compid="grp_sea.ipt_fromptno" propid="value" datasetid="ds_init" columnid="fromptno"/>
      <BindItem id="item3" compid="grp_sea.ipt_toyear" propid="value" datasetid="ds_init" columnid="toyear"/>
      <BindItem id="item4" compid="grp_sea.ipt_toptno" propid="value" datasetid="ds_init" columnid="toptno"/>
      <BindItem id="item5" compid="cmb_cstechar" propid="value" datasetid="ds_init" columnid="choicstechar"/>
      <BindItem id="item6" compid="cmb_cstekind" propid="value" datasetid="ds_init" columnid="choicstekindcd"/>
      <BindItem id="item7" compid="cmb_hopkind" propid="value" datasetid="ds_init" columnid="choichopperval"/>
      <BindItem id="item8" compid="grp_sea.ipt_seaval" propid="value" datasetid="ds_init" columnid="seaval"/>
      <BindItem id="item9" compid="cmb_slid" propid="value" datasetid="ds_init" columnid="slideeqseqno"/>
      <BindItem id="item10" compid="grp_sea.ipt_acptddfrom" propid="value" datasetid="ds_init" columnid="acptfromdd"/>
      <BindItem id="item11" compid="bol_slideflag" propid="value" datasetid="ds_init" columnid="slideflag"/>
      <BindItem id="item12" compid="grp_sea.ipt_acptddto" propid="value" datasetid="ds_init" columnid="acpttodd"/>
      <BindItem id="item13" compid="cmb_slideqlist" propid="value" datasetid="ds_init" columnid="eqseqno"/>
    </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 SMLPB00900_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SMLPB00900_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(grd_isscstelist);
	grdf_initGrid(grd_ptnolist);
	grdf_initGrid(datagrid1);
	fExeInitialize();
}

var isConnected = false;
				
//카세트, 슬라이드 출력 여부
var sCasteSlideflag = "C";

//장비 인터페이스출력완료 여부 표시
var sEqFinish = "N";

var interval_id = 0;

var bParentWindow = false;
				
//초기화 Function
function fExeInitialize()
{	
	var iMaxNo   = 0;
	var sCurDate = "";
	
	// Instance Node 초기화
	ds_grd_ptnolist.clearData();
	ds_grd_isscstelist.clearData();
	//--------------------------------
	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);
	
	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);
	
	// 병원환경정보를 취득하여 병리과와 병리팀 코드를 편집한다.
	lpzfUserDeptCd(ds_hosoenvinfo, ds_hidden);
	
	dsf_createDsRow("ds_send", [{col : "instcd",        val : sysf_getUserInfo("dutplceinstcd")}
	                           ,{col : "userdeptcd",    val : ds_hidden.getColumn(0, "userdeptcd")}
	                           ,{col : "doctjobgradcd", val : ds_hosoenvinfo.getColumn(0, "doctjobgradcd")}
	                           ,{col : "teamjobgradcd", val : ds_hosoenvinfo.getColumn(0, "teamjobgradcd")}]);
	                           
	var oParam = {};
		oParam.id          = "TRLPZ00105";
		oParam.service     = "plgycomnusemngtapp.BaseInfoCode";
		oParam.method      = "reqGetUserInfoList";
		oParam.inds        = "refdata=ds_send";
		oParam.outds       = "ds_userinfolist=reflist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRLPZ00105";
	tranf_submit(oParam);
	
	//  Cassette(블록) 및 Slide(슬라이드) 목록 조회
	dsf_createDsRow( "ds_send", [{col : "instcd",     val : sysf_getUserInfo("dutplceinstcd")}
	                            ,{col : "baseflagcd", val : "'81'"}]);
	                            
	var oParam = {};
		oParam.id          = "TRLPZ00103";
		oParam.service     = "plgycomnusemngtapp.BaseInfoCode";
		oParam.method      = "reqGetReasonCodeList";
		oParam.inds        = "refData=ds_send";
		oParam.outds       = "ds_init_cmb_cstekind=refrslt";
		oParam.async       = false;
		//oParam.callback    = "cf_TRLPZ00103";
	tranf_submit(oParam);
	//------------------
	
	// Cassette내용 분리
	lpzfExeCsteCntsSplit(ds_init_cmb_cstekind);
	
	iMaxNo = ds_cstecharlist.rowcount;
	ds_cstecharlist.setColumn((Number(iMaxNo)+1), "no", "Z");
	ds_cstecharlist.setColumn((Number(iMaxNo)+1), "cnts", "");
	
	//블록 장비 조회
	dsf_createDsRow( "ds_send", [{col : "instcd",    val : sysf_getUserInfo("dutplceinstcd")}
								,{col : "baseflagcd", val : "EQ"}
	                            ,{col : "seaflagcd", val : "0"}]);		 //"0:전체, 1:카세트, 2:슬라이드"
	
	var oParam = {};
		oParam.id          = "TRLPC01802";
		oParam.service     = "plgybaseinfomngtapp.HospEnvSet";
		oParam.method      = "reqGetEqList";
		oParam.inds        = "refData=ds_send";
		oParam.outds       = "ds_init_cmb_slideqlist=caeqlist ds_init_cmb_slid=slideqlist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRLPC01802";
	tranf_submit(oParam);
						
	// 시스템 현재일시를 조회
	fExeSysDtSet();
	
	//------------------------------------------------------------
	sCurDate = ds_data_sysdtinfo.getColumn(0, "sysdd");

	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, "eqseqno", "02");
	//----------------------------------------
	ds_init.setColumn(0, "seameth",  "1");							// 검색방법 초기화(0:병리번호, 1:등록번호)
	ds_init.setColumn(0, "seaval",   "");							// 검색값 초기화
	ds_init.setColumn(0, "ptnocode", "-");

	trace("PARAMETER = " +opener.frmf_getParameter("SMLPB00900_ptno"));
	if( !utlf_isNull(opener.frmf_getParameter("SMLPB00900_ptno")))
	{	
		bParentWindow = true;
		trace("popup open");
		var sPtNo = opener.frmf_getParameter("SMLPB00900_ptno");
		trace("sPtNo.length = " + sPtNo.length);
		ds_init.setColumn(0, "acptfromdd", opener.frmf_getParameter("SMLPB00900_acptdd"));
		ds_init.setColumn(0, "acpttodd",   opener.frmf_getParameter("SMLPB00900_acptdd"));
		ds_init.setColumn(0, "pid",        opener.frmf_getParameter("SMLPB00900_pid"));
		ds_init.setColumn(0, "ptnocode",   sPtNo.substr(0, sPtNo.length-8));
		ds_init.setColumn(0, "fromyear",   sPtNo.substr(sPtNo.length-8, 2));
		ds_init.setColumn(0, "fromptno",   sPtNo.substr(sPtNo.length-6, 6));
		ds_init.setColumn(0, "toyear",     sPtNo.substr(sPtNo.length-8, 2));
		ds_init.setColumn(0, "toptno",     sPtNo.substr(sPtNo.length-6, 6));	
		
		trace("ds_init= " + ds_init.saveXML());
		fGetAcptSpcList();
	}
}

function fExeSysDtSet()
{
	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);
	ds_init.setColumn(0, "acptfromdd", ds_data_sysdtinfo.getColumn(0, "sysdd"));
	ds_init.setColumn(0, "acpttodd", ds_data_sysdtinfo.getColumn(0, "sysdd"));
}


function fGetAcptList()
{	
	if( !utlf_isNull(opener.frmf_getParameter("SMLPB00900_ptno")))
	{	
		bParentWindow = true;
		
		var sPtNo = opener.frmf_getParameter("SMLPB00900_ptno");
		ds_init.setColumn(0, "acptfromdd", opener.frmf_getParameter("SMLPB00900_acptdd"));
		ds_init.setColumn(0, "acpttodd",   opener.frmf_getParameter("SMLPB00900_acptdd"));
		ds_init.setColumn(0, "pid",        opener.frmf_getParameter("SMLPB00900_pid"));
		ds_init.setColumn(0, "ptnocode",   sPtNo.substr(0, sPtNo.length-8));
		ds_init.setColumn(0, "fromyear",   sPtNo.substr(sPtNo.length-8, 2));
		ds_init.setColumn(0, "fromptno",   sPtNo.substr(sPtNo.length-6, 6));
		ds_init.setColumn(0, "toyear",     sPtNo.substr(sPtNo.length-8, 2));
		ds_init.setColumn(0, "toptno",     sPtNo.substr(sPtNo.length-6, 6));
			trace("ds_init= " + ds_init.saveXML());
		fGetAcptSpcList();
	}
}
				
// 접수검체 목록 조회 처리 Function
function fGetAcptSpcList()
{	
	var sTemp  = "";
	var sSysDD  = ds_data_sysdtinfo.getColumn(0, "sysdd");
	var sFromDD = ds_init.getColumn(0, "acptfromdd");
	var sToDD   = ds_init.getColumn(0, "acpttodd");
	
	//------------------------------------------------
	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");
			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 : "acptfromdd",   val : ds_init.getColumn(0, "acptfromdd")}
	                              ,{col : "acpttodd",     val : ds_init.getColumn(0, "acpttodd")}
	                              ,{col : "seamthd",      val : ds_init.getColumn(0, "seameth")}
	                              ,{col : "seaval",       val : ds_init.getColumn(0, "seaval")}
	                              ,{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")}
	                              ,{col : "ptno",         val : ds_init.getColumn(0, "ptno")}]);

	trace("send----------" + ds_send.saveXML());
	var oParam = {};
		oParam.id          = "TRLPB00901";
		oParam.service     = "plgycsteslidmngtapp.SpcCsteSlid";
		oParam.method      = "reqGetISSAcptSpcList";
		oParam.inds        = "refData=ds_send";
		oParam.outds       = "ds_grd_ptnolist=rsltlist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRLPB00901";
	tranf_submit(oParam);

	if (bParentWindow)
	{
		var sNode = ds_grd_ptnolist;
		
		for(var iRowNo = 0; iRowNo < ds_grd_ptnolist.rowcount; iRowNo++)
		{
			ds_grd_ptnolist.setColumn(iRowNo, "choi",        "true");
			ds_grd_ptnolist.setColumn(iRowNo, "cstekindcd",  "9999");
		}
	}
}

//블럭 생성정보 전달 처리 Function
function fExeInfoSend()
{	
	var sFixChar = "";
	var sTemp1 = "";
	var sTemp2 = "";
	var sSrcNode = ds_grd_ptnolist;
	var sDescNode = ds_grd_isscstelist;
	
	for(var iRowNo = 0; iRowNo < ds_grd_ptnolist.rowcount; iRowNo++)
	{
		if(ds_grd_ptnolist.getColumn(iRowNo, "choi") == "1" || ds_grd_ptnolist.getColumn(iRowNo, "choi") == "true")
		{
			sFixChar = ds_grd_ptnolist.getColumn(iRowNo, "fixchar");
			
			sTemp1 = ds_grd_ptnolist.getColumn(iRowNo, "from11");				// Case1 처리
			sTemp2 = ds_grd_ptnolist.getColumn(iRowNo, "from12");
			fExeCalcCste("", sTemp1, sTemp2, iRowNo);
			
			sTemp1 = ds_grd_ptnolist.getColumn(iRowNo, "from21");				// Case2 처리
			sTemp2 = ds_grd_ptnolist.getColumn(iRowNo, "from22");	
			fExeCalcCste(sFixChar, sTemp1, sTemp2, iRowNo);
		}
	}
}

function fExeCalcCste(pFixChar, pFrom, pTo, pRowNo)
{					
	var iCsteNo    = 0;
	var iFrom      = 0;
	var iTo        = 0;
	var iStartNo   = 0;
	var iMaxCsteNo = 0;
	var bCharState = false;
	var sSrcNode = ds_grd_ptnolist;
	var sDescNode = ds_grd_isscstelist;
	
	if(utlf_isNull(pFrom) && utlf_isNull(pTo))
	{
		return false;
	}
	pFrom = pFrom.toUpperCase();
	pTo   = pTo.toUpperCase();
	
	if( utlf_isNull(pFrom.getTrim()))
	{
		//---------------------
		if (pTo.isNumber())
		{
			iFrom = 1;
			iStartNo = 1;	
		}
		else
		{
			iFrom = 1;
			iStartNo = 65;		// A로 고정
			bCharState = true;
		}
	} 
	else if (pFrom.isNumber())
	{
		iFrom = Number(pFrom);
		iStartNo = iFrom;
	}
	else
	{
		iFrom      = Number(pFrom.charCodeAt(0)) - 64;
		iStartNo   = Number(pFrom.charCodeAt(0));
		bCharState = true;
	}
	
	if( utlf_isNull(pTo.getTrim()))
	{
		iTo = 0;
		
	}
	else if (pTo.isNumber())
	{
		iTo = Number(pTo);
		
	} else
	{
		iTo = Number(pTo.charCodeAt(0)) - 64;
	}
	
	iCsteNo = (iTo - iFrom) + 1;
	
	for (var iRowNo = 0; iRowNo < iCsteNo; iRowNo++)
	{	
		var addRw = ds_grd_isscstelist.addRow();
		var arrPostion = new Array();
		arrPostion[0] = addRw;
		grdf_setStatus(grd_isscstelist, "I", arrPostion);
		
		iCurCnt = ds_grd_isscstelist.rowposition;
		iMaxCsteNo = Number(ds_grd_ptnolist.getColumn(pRowNo, "curcsteno"));
		
		ds_grd_isscstelist.setColumn(iCurCnt, "choi",         "true");
		ds_grd_isscstelist.setColumn(iCurCnt, "instcd",       ds_grd_ptnolist.getColumn(pRowNo, "instcd"));
		ds_grd_isscstelist.setColumn(iCurCnt, "ptno",         ds_grd_ptnolist.getColumn(pRowNo, "ptno"));
		ds_grd_isscstelist.setColumn(iCurCnt, "dispptno",     ds_grd_ptnolist.getColumn(pRowNo, "dispptno"));
		ds_grd_isscstelist.setColumn(iCurCnt, "spcacptdd",    ds_grd_ptnolist.getColumn(pRowNo, "spcacptdd"));
		ds_grd_isscstelist.setColumn(iCurCnt, "spcacptno",    ds_grd_ptnolist.getColumn(pRowNo, "spcacptno"));
		ds_grd_isscstelist.setColumn(iCurCnt, "spcacptseqno", ds_grd_ptnolist.getColumn(pRowNo, "spcacptseqno"));

		if ( bCharState )
		{
			ds_grd_isscstelist.setColumn(iCurCnt, "cstecnts",  pFixChar + String.fromCharCode(iStartNo + iRowNo));
		}
		else
		{
			ds_grd_isscstelist.setColumn(iCurCnt, "cstecnts", pFixChar + (iStartNo + iRowNo).toString());
		}
		ds_grd_ptnolist.setColumn(pRowNo, "curcsteno",      	 (iMaxCsteNo + 1).toString().getLeftPad(3, "0") );
		ds_grd_isscstelist.setColumn(iCurCnt, "csteno",  	     (iMaxCsteNo + 1).toString().getLeftPad(3, "0") );
		ds_grd_isscstelist.setColumn(iCurCnt, "cstekindcd", 	 "1001");
		ds_grd_isscstelist.setColumn(iCurCnt, "tisscnt",    	 "1");
		ds_grd_isscstelist.setColumn(iCurCnt, "hoppno",     	 ds_grd_ptnolist.getColumn(pRowNo, "hopper"));
		ds_grd_isscstelist.setColumn(iCurCnt, "maxcsteno",  	 ds_grd_ptnolist.getColumn(pRowNo, "maxcsteno"));
		ds_grd_isscstelist.setColumn(iCurCnt, "scrno",      	 "10");
		ds_grd_isscstelist.setColumn(iCurCnt, "acptdd",     	 ds_grd_ptnolist.getColumn(pRowNo, "acptdd"));
		ds_grd_isscstelist.setColumn(iCurCnt, "acptno",          ds_grd_ptnolist.getColumn(pRowNo, "acptno"));
		ds_grd_isscstelist.setColumn(iCurCnt, "testcd",          "-");
		ds_grd_isscstelist.setColumn(iCurCnt, "acptitemno",      "0");
		ds_grd_isscstelist.setColumn(iCurCnt, "slidno",          "000");
		ds_grd_isscstelist.setColumn(iCurCnt, "spccd",           ds_grd_ptnolist.getColumn(pRowNo, "spccd"));
		ds_grd_isscstelist.setColumn(iCurCnt, "spchistno",       ds_grd_ptnolist.getColumn(pRowNo, "spchistno"));
		ds_grd_isscstelist.setColumn(iCurCnt, "statsinclflagcd", "0");
	}
}

function fExeIssInitialize()
{	
	var sSrcNode = ds_grd_ptnolist;
	var sCsteNode = ds_grd_isscstelist;
	
	ds_grd_isscstelist.clearData();
	
	for(var iRowNo = 0; iRowNo < ds_grd_ptnolist.rowcount; iRowNo++)
	{
		ds_grd_ptnolist.setColumn(iRowNo, "curcsteno", ds_grd_ptnolist.getColumn(iRowNo, "maxcsteno"));
	}
}

// 블럭 생성정보 전달 처리 Function
function fExeCsteIssDel(pBizFlagCd)
{	
	var gTimer;
	//카세트 삭제
	if(pBizFlagCd == "DELETE")
	{
		// Continue
	}
	else
	{
		if(ds_grd_isscstelist.rowcount < 1)
		{
			sysf_messageBox("Cassette 발행 목록을 입력", "I008");
			return;
		}
	
		for(var iRowNo = 0; iRowNo < ds_grd_isscstelist.rowcount; iRowNo++)
		{
			if(ds_grd_isscstelist.getColumn(iRowNo, "choi") == "true");
			{
				ds_grd_isscstelist.setColumn(iRowNo, "bizflagcd",       pBizFlagCd);
				ds_grd_isscstelist.setColumn(iRowNo, "scrno",           "10");
				ds_grd_isscstelist.setColumn(iRowNo, "statsinclflagcd", "0");
				ds_grd_isscstelist.setColumn(iRowNo, "slideflag",       ds_init.getColumn(0, "slideflag"));
			}
		}
		
		var temp = grdf_getGridUpdateData(grd_isscstelist, "all");
		grdf_setStatusColumn(temp, "state");
		dsf_createDs("ds_send_isscstelist");
		ds_send_isscstelist.copyData(temp, true);
		
		var oParam = {};
			oParam.id          = "TXLPB00201";
			oParam.service     = "plgycsteslidmngtapp.SpcCsteSlid";
			oParam.method      = "reqExeCsteIssDel";
			oParam.inds        = "refData=ds_send_isscstelist";
			oParam.outds       = "ds_datagrid1=slidelist";
			oParam.async       = false;
			//oParam.callback    = "cf_TXLPB00201";
		tranf_submit(oParam);
		
		// Cassette Labeler 장비 Interface
		if (pBizFlagCd == "C")
		{	
			sEqFinish = "N";	
			sCasteSlideflag = "C";
			fExeSocketSend();
			
			//슬라이드도 동시에 출력
			if(ds_init.getColumn(0, "slideflag") == "true")
			{
				trace("adsfasdf");
				//interval_id = window.setinterval("fPrtnSlide()",1000);
				this.setTimer(0, 1000);
				trace("Timer111111");
			}
		}
		//  (블럭) 생성 후 자료 초기화
		ds_grd_isscstelist.clearData();
		fGetAcptSpcList();
	}
}

function fPrtnSlide()
{	
	trace("sEqFinish="+sEqFinish);
	//카세트 출력이 완료 되었는지 확인 후 슬라이드 출력.
	if(sEqFinish == "Y")
	{
		sCasteSlideflag = "S";
		fExeSocketSend();
		sEqFinish = "N";
		//trace("interval_id : "+interval_id);
		
	}
}
function fExeSocketSend()
{	
	var sSendMsg = "";
	var sInfoNode = ds_hosoenvinfo;
	var sCsteNode = ds_grd_isscstelist;
	var sCsteIP   = "";
	var sCstePort = "";
	
	//장비IP set
	if(sCasteSlideflag == "C")//카세트
	{
		for(var iRowNo = 0; iRowNo < ds_init_cmb_slideqlist.rowcount; iRowNo++)
		{
			if(ds_init.getColumn(0, "eqseqno") == ds_init_cmb_slideqlist.getColumn(iRowNo, "eqseqno"))
			{
				sCsteIP  = ds_init_cmb_slideqlist.getColumn(iRowNo, "eqip");
				sCstePort = ds_init_cmb_slideqlist.getColumn(iRowNo, "eqport");
			}
		}
	}
	else//슬라이드
	{
		for(var iRowNo = 0; iRowNo < ds_init_cmb_slideqlist.rowcount; iRowNo++)
		{
			if(ds_init.getColumn(0, "slideeqseqno") == ds_init_cmb_slideqlist.getColumn(iRowNo, "eqseqno"))
			{
				sCsteIP = ds_init_cmb_slideqlist.getColumn(iRowNo, "eqip");
				sCstePort = ds_init_cmb_slideqlist.getColumn(iRowNo, "eqport");
			}
		}
	}
	
	// 칠곡에만 장비가 존재
	trace("sCsteIP="+sCsteIP)
	trace("sCstePort="+sCstePort)
	if( sysf_getUserInfo("dutplceinstcd") == "032") 
	{
		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("interval_id="+interval_id);
		
		socket.connect(sCsteIP, sCstePort);
		
	}
}

function fExeCsteCharKind()
{	
	var sNode = ds_grd_ptnolist;
	//-----------------------------------------------------
	for(var iNo = 0; iNo < ds_grd_ptnolist.rowcount; iNo++)
	{	
		if(ds_grd_ptnolist.getColumn(iNo, "choi") == "1")
		{
			ds_grd_ptnolist.setColumn(iNo, "cstekindcd", cmb_cstekind.text);
		}
	}
}

//Hopper 변경 일괄 처리 Function
function fExeHopperKind()
{
	var sNode = ds_grd_ptnolist;				// datagrid 설정
	
	for(var iNo = 0; iNo < ds_grd_ptnolist.rowcount; iNo++)
	{
		if (ds_grd_ptnolist.getColumn(iNo, "choi") == "1")// grid 에서 선택된 항목만 hopper 값 변경
		{
			ds_grd_ptnolist.setColumn(iNo, "hopper", ds_init.getColumn(0, "choichopperval"));
		}
	}
}
						
//조회
function grp_sea_btn_sea_onclick(obj:Button,  e:ClickEventInfo)
{
	fGetAcptSpcList();
}
//조회
function grp_sea_ipt_acptddto_onkeyup(obj:Calendar, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		fGetAcptSpcList();
	}
}

//정보전달
function btn_addcste_onclick(obj:Button,  e:ClickEventInfo)
{
	fExeInfoSend();
}

//초기화
function btn_clear_onclick(obj:Button,  e:ClickEventInfo)
{
	fExeIssInitialize();
}

function bol_slideflag_onclick(obj:CheckBox,  e:ClickEventInfo)
{
	if(ds_init.getColumn(0, "slideflag") == "true")
	{
		cap_slid.visible = true;
		cmb_slid.visible = true;
	}
	else
	{
		cap_slid.visible = false;
		cmb_slid.visible = false;
	}
}

function btn_create_onclick(obj:Button,  e:ClickEventInfo)
{
	fExeCsteIssDel("C");
}

function cmb_cstekind_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
{
	fExeCsteCharKind();
}

function cmb_hopkind_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
{
	fExeHopperKind();
}

function lpzfExeCsteCntsSplit(pNode)
{  
	var iCnt1  = 1;
	var iCnt2  = 1;
	var sNode1 = ds_cstecharlist;
	var sNode2 = ds_cstecharnolist
	var iMaxNo = ds_init_cmb_cstekind.rowcount;
	var sCsteChar = "";
	var sCsteNo   = "";
	var aCsteCnts = "";
	var sCsteCnts = "";

	var bState    = false;
	for (var iNo=0; iNo < iMaxNo; iNo++)
	{
		sCsteCnts = ds_init_cmb_cstekind.getColumn(iNo, "resncnts");
		if (aCsteCnts.length == 1)
		{
			ds_cstecharnolist.setColumn(iCnt2, "no", iCnt2);
			ds_cstecharnolist.setColumn(iCnt2, "cnts", sCsteCnts);
			iCnt2++;
		}
		else
		{
			bState = false;
			for(var iRowNo = 0; iRowNo < ds_cstecharlist.rowcount; iRowNo++)
			{  
				if(ds_cstecharlist.getColumn(iRowNo, "cnts") == aCsteCnts[0])
				{
					bState = true;
					break;
				}
			}
			if (!bState)
			{
				ds_cstecharlist.setColumn(iCnt1, "no", iCnt1);
				ds_cstecharlist.setColumn(iCnt1, "cnts", aCsteCnts[0]);
				iCnt1++;
			}
	
			if( !utlf_isNull(aCsteCnts[1]))
			{
				bState = false;
				for(var iRowNo = 0; iRowNo < ds_cstecharnolist.rowcount; iRowNo++)
				{
					if(ds_cstecharnolist.getColumn(iRowNo, "cnts") == aCsteCnts[1])
					{
						bState = true;
						break;
					}
				}
				if (!bState)
				{
					ds_cstecharnolist.setColumn(iCnt2, "no", iCnt2);
					ds_cstecharnolist.setColumn(iCnt2, "cnts", aCsteCnts[1]);
					iCnt2++;
				}
			}
		}
	}
}

function cmb_cstechar_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
{
	fExeCsteCharChoi();
}

function fExeCsteCharChoi()
{
	var sNode = ds_grd_ptnolist;
	
	for(var iNo =0; iNo < sNode.rowcount; iNo++)
	{
		if(sNode.getColumn(iNo, "choi") == "1")
		{
			sNode.setColumn(iNo, "cstecharchoi", ds_init.getColumn(0, "choicstechar"));
		}
	}
}

function socket_OnError(obj:ActiveX, e)
{
	alert("Error code = " + lError+"\nError Message : "+szMsg);
	socket_OnClose();					// 소켓 닫기
	isConnected = false; 			// 접속 여부 false
	sEqFinish = "Y";
}

function socket_OnConnect(obj:ActiveX, e)
{
	isConnected = true; 	// 접속 여부 false
	trace("Connect!!!!!!!!!!!!!!!!!!!!");
	if(sCasteSlideflag == "C")
	{
		//카세트 출력
		var sCsteNode = ds_grd_isscstelist.rowcount;
		for(var iRowNo=0; iRowNo < sCsteNode; iRowNo++)
		{
			if(ds_grd_isscstelist.getColumn(iRowNo, "choi") == "true")
			{
				sSendMsg  = "";
				sSendMsg += ds_grd_isscstelist.getColumn(iRowNo, "ptno") + "▦";			// 병리번호
				sSendMsg += ds_grd_isscstelist.getColumn(iRowNo, "dispptno") + "▦";			// 표시병리번호
				sSendMsg += ds_grd_isscstelist.getColumn(iRowNo, "spcacptseqno") +"▦";		// 검체일련번호
				sSendMsg += ds_grd_isscstelist.getColumn(iRowNo, "csteno") + "▦";			// 블럭번호
				sSendMsg += "000" + "▦";											// 슬라이드번호
				sSendMsg += ds_grd_isscstelist.getColumn(iRowNo, "cstecnts") +"▦";			// 블럭내용
				sSendMsg += ds_grd_isscstelist.getColumn(iRowNo, "hoppno") + "▦";			// Hopper번호
				sSendMsg += "C" + "▩";
				socket.sendString(sSendMsg);											// 전송한다.
			}
		}
		ds_grd_isscstelist.clearData();
	}
	else
	{
		var sCsteNode = ds_datagrid1;
		var iMaxRowCnt = ds_datagrid1.rowcount;
	
		for(var iRowNo = 0; iRowNo < iMaxRowCnt; iRowNo++)
		{
			sSendMsg  = "";
			sSendMsg += ds_datagrid1.getColumn(iRowNo, "ptno") + "▦";                     // 병리번호
			sSendMsg += ds_datagrid1.getColumn(iRowNo, "dispptno") + "▦";                 // 표시병리번호
			sSendMsg += ds_datagrid1.getColumn(iRowNo, "spcacptseqno") + "▦";             // 검체일련번호
			sSendMsg += ds_datagrid1.getColumn(iRowNo, "csteno") + "▦";                   // 블럭
			sSendMsg += "001" + "▦";														// 슬라이드번호
			sSendMsg += ds_datagrid1.getColumn(iRowNo, "prtnblocnm") + "▦";                // 블럭내용
			sSendMsg += ds_datagrid1.getColumn(iRowNo, "cstecnts") + "▦";                     
			
			// 전송종료여부 설정
			if (iRowNo == iMaxRowCnt)
			{
				sSendMsg += "Y" + "▦";
			}
			else
			{
				sSendMsg += "N" + "▦";
			}
	
			sSendMsg += ds_datagrid1.getColumn(iRowNo, "pid") + "▦";				// 환자번호
			sSendMsg += ds_datagrid1.getColumn(iRowNo ,"hngnm") + "▦";				// 환자명
			sSendMsg += "-" + "▩";
			
			trace("sSendMsg :" + sSendMsg);
			socket.sendString(sSendMsg);											// 전송한다.
		}
		ds_datagrid1.clearData();
	}
	// 소켓 닫기
	socket_OnClose();
	isConnected = false; 	// 접속 여부 false
	sEqFinish = "Y";
}

function socket_OnClose(obj:ActiveX, e)
{
	trace("Close");
	isConnected = false;	// 접속 여부 false
	sEqFinish = "Y";
	this.killTimer(0);//window.clearinterval(interval_id);
	trace("killTimer");
}

function SMLPB00900_ontimer(obj:Form, e:TimerEventInfo)
{
	if( e.timerid == 0 )
	{
		fPrtnSlide();
		trace("timer");
	}
}
]]></Script>
  </Form>
</FDL>