YNU_JEUS/app_home/himed/xpapps/ast/examcurexp/xp/SMAEQ00300_외래 RI 치료관리기록부.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMAEQ00300" position="absolute 0 0 892 784" titletext="외래 RI 치료 관리" oninit="SMAEQ00300_oninit" onload="SMAEQ00300_onload">
    <Layouts>
      <Layout>
        <Div position="absolute 320 55 880 750" id="grp_biz" scrollbars="autoboth" anchor="all">
          <Layouts>
            <Layout>
              <Static text="외래RI 치료 관리" position="absolute 1 13 163 34" id="caption1" class="tit_2"/>
              <Shape position="absolute 0 29 557 35" linetype="horizontal" id="line1" class="line_10"/>
              <Edit readonly="true" position="absolute 474 62 507 81" align="align:center middle;" id="output4" style="align:center middle;"/>
              <Edit readonly="true" position="absolute 511 62 556 81" align="align:right middle;" id="output5" style="align:right middle;"/>
              <Edit readonly="true" position="absolute 118 62 151 81" align="align:right middle;" id="output6"/>
              <Edit readonly="true" position="absolute 155 62 188 81" align="align:right middle;" id="output7"/>
              <Edit readonly="true" position="absolute 288 62 400 81" id="output8"/>
              <Edit readonly="true" position="absolute 118 88 557 107" id="output9"/>
              <Static text="이름" position="absolute 402 34 472 57" align="align:center middle;" id="caption11" class="cell_1"/>
              <Static text="주민번호" position="absolute 191 34 286 57" align="align:center middle;" id="caption2" class="cell_1"/>
              <Static text="성별/나이" position="absolute 402 60 472 83" align="align:center middle;" id="caption3" class="cell_1"/>
              <Static text="등록번호" position="absolute 0 34 116 57" align="align:center middle;" id="caption13" class="cell_1"/>
              <Static text="신장Cm/몸무게Kg" position="absolute 0 60 116 83" align="align:center middle;" id="caption5" class="cell_1"/>
              <Shape position="absolute 0 83 557 84" linetype="vertical" id="line2" class="line_2"/>
              <Static text="의뢰과/주치의" position="absolute 191 60 286 83" align="align:center middle;" id="caption7" class="cell_1"/>
              <Shape position="absolute 0 57 557 58" linetype="vertical" id="line3" class="line_2"/>
              <Static text="상병명" position="absolute 0 86 116 109" align="align:left middle;" id="caption8" class="cell_1"/>
              <Edit readonly="true" position="absolute 288 36 400 55" align="align:center middle;" id="output1"/>
              <Edit readonly="true" position="absolute 474 36 556 55" id="output2"/>
              <Edit readonly="true" position="absolute 118 36 188 55" id="output3"/>
              <Shape position="absolute 0 108 557 114" linetype="horizontal" id="line6" class="line_3"/>
              <Shape position="absolute 0 135 557 141" linetype="horizontal" id="line5" class="line_10"/>
              <Static text="Dose calibration" position="absolute 0 119 162 140" id="caption14" class="tit_2"/>
              <MaskEdit position="absolute 464 227 555 246" align="align:right middle;" id="ipt_doserate" class="input_search" taborder="10" mask="#,###.##"/>
              <Static text="투여직후(상복부중심) 선량율" position="absolute 287 225 461 248" align="align:center middle;" id="caption27" class="cell_1"/>
              <Static text="투여일/투여시간" position="absolute 0 225 114 248" align="align:center middle;" id="caption28" class="cell_1"/>
              <Combo position="absolute 116 142 204 161" id="cmb_nuclcd" innerdataset="@ds_init_cmb_info_initnuclcd" datacolumn="basecdflagdesc" codecolumn="basecd"/>
              <Shape position="absolute 0 188 557 194" linetype="horizontal" id="line8" class="line_3"/>
              <Static text="mCi" position="absolute 475 141 500 161" align="align:center middle;" id="caption20"/>
              <MaskEdit position="absolute 206 142 256 161" align="align:right middle;" id="input1" class="input_search" mask="#,###.###"/>
              <Static text="치료핵종/처방용량" position="absolute 0 140 114 163" align="align:center middle;" id="caption15" class="cell_1"/>
              <MaskEdit position="absolute 206 168 256 187" align="align:center middle;" id="ipt_insptm" class="input_search" taborder="7" mask="##:##" onkeydown="grp_biz_ipt_insptm_onkeydown" enable="true" maskchar=" " trimtype="both" type="string" style="align:center middle;"/>
              <Static text="측정일/시간" position="absolute 0 166 114 189" align="align:center middle;" id="caption16" class="cell_1"/>
              <MaskEdit position="absolute 403 142 468 161" align="align:right middle;" id="ipt_inspqty" class="input_search" taborder="6" mask="#,###.###" onkeydown="grp_biz_ipt_inspqty_onkeydown"/>
              <Static text="측정(투여)량" position="absolute 287 140 401 163" align="align:center middle;" id="caption17" class="cell_1"/>
              <Static text="측정자" position="absolute 287 166 401 189" align="align:center middle;" id="caption18" class="cell_1"/>
              <Static text="mCi" position="absolute 260 141 285 161" align="align:center middle;" id="caption19"/>
              <Shape position="absolute 0 163 557 164" linetype="vertical" id="line7" class="line_2"/>
              <Calendar position="absolute 116 168 204 187" id="input5"/>
              <Combo position="absolute 403 168 498 187" id="cmb_inspid" innerdataset="@ds_init_cmb_info_initexecrid" codecolumn="execridid" datacolumn="execridnm"/>
              <MaskEdit position="absolute 206 227 256 246" align="align:center middle;" id="ipt_drugtm" class="input_search" taborder="9" mask="##:##" onkeydown="grp_biz_ipt_drugtm_onkeydown" enable="true" maskchar=" " type="string" trimtype="both" style=":disabled {align:center middle;}"/>
              <Calendar position="absolute 116 227 204 246" id="input6"/>
              <Shape position="absolute 0 273 557 279" linetype="horizontal" id="line12" class="line_3"/>
              <Combo position="absolute 116 254 204 273" id="cmb_writid" innerdataset="@ds_init_cmb_info_initexecrid" datacolumn="execridnm" codecolumn="execridid"/>
              <Combo position="absolute 464 254 555 273" id="cmb_safemngerid" innerdataset="@ds_init_cmb_info_initexecrid" datacolumn="execridnm" codecolumn="execridid"/>
              <Static text="작성자" position="absolute 0 251 114 274" align="align:center middle;" id="caption26" class="cell_1"/>
              <Static text="방사선안전관리자" position="absolute 287 251 461 274" align="align:center middle;" id="caption29" class="cell_1"/>
              <Static text="환자(상복부)로부터 1m 거리에서 선량율( mR / hr )" position="absolute 1 204 352 225" id="caption4" class="tit_2"/>
              <Shape position="absolute 0 220 557 226" linetype="horizontal" id="line13" class="line_10"/>
              <Shape position="absolute 0 248 557 249" linetype="vertical" id="line10" class="line_2"/>
              <MaskEdit position="absolute 503 8 558 27" align="align:left middle;" id="ipt_regno" taborder="5" mask="####" style="align:left middle;" anchor="top right"/>
              <Edit readonly="true" position="absolute 430 8 502 27" align="align:right middle;" id="out_regno" style="align:right middle;font:Dotum,12;" anchor="top right"/>
              <Static text="NO" position="absolute 395 8 430 27" align="align:center middle;" id="caption6" style="font:Dotum,13,bold;" anchor="top right"/>
              <MaskEdit position="absolute 458 199 515 218" align="align:right middle;" id="ipt_patbkg" class="input_search" taborder="8" mask="###.##"/>
              <Static text="mR/h" position="absolute 519 199 551 219" align="align:center middle;" id="caption30"/>
              <Static text="BKG" position="absolute 395 196 456 219" align="align:center middle;" id="caption21" class="cell_1"/>
            </Layout>
          </Layouts>
        </Div>
        <Static text="외래RI 치료 관리" position="absolute 0 0 201 23" id="caption25" class="tit_1"/>
        <Grid position="absolute 0 60 315 753" id="grd_mainordlist" taborder="4" binddataset="ds_main_ordlist_mainordlist" autofittype="col" cellsizingtype="col" anchor="left top bottom" oncellclick="grd_mainordlist_oncellclick">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="0"/>
                <Column size="24"/>
                <Column size="70"/>
                <Column size="110"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="90"/>
                <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="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell text="No"/>
                <Cell col="1"/>
                <Cell col="2" text="등록번호"/>
                <Cell col="3" text="환자명"/>
                <Cell col="4" text="구분"/>
                <Cell col="5" text="병동"/>
                <Cell col="6" text="과"/>
                <Cell col="7" text="orddd"/>
                <Cell col="8" text="cretno"/>
                <Cell col="9" text="퇴원일자"/>
                <Cell col="10" text="execprcpuniqno"/>
                <Cell col="11" text="orddeptcd"/>
                <Cell col="12" text="rsrvdd"/>
                <Cell col="13" text="execprcpstatcd"/>
                <Cell col="14" text="prcpdd"/>
                <Cell col="15" text="roomcd"/>
                <Cell col="16" text="orddrid"/>
                <Cell col="17" text="rcptyn"/>
              </Band>
              <Band id="body">
                <Cell text="bind:no"/>
                <Cell col="1" celltype="head" expr="currow+1"/>
                <Cell col="2" style="align:left middle;" text="bind:pid"/>
                <Cell col="3" style="align:left middle;" text="bind:patnm"/>
                <Cell col="4" displaytype="combo" edittype="combo" style="align:left middle;" text="bind:prcpgenrflag"/>
                <Cell col="5" displaytype="combo" edittype="combo" style="align:left middle;" text="bind:wardcd" enable="false"/>
                <Cell col="6" style="align:left middle;" text="bind:depthngnm"/>
                <Cell col="7" text="bind:orddd"/>
                <Cell col="8" text="bind:cretno"/>
                <Cell col="9" text="bind:dschdd"/>
                <Cell col="10" text="bind:execprcpuniqno"/>
                <Cell col="11" text="bind:orddeptcd"/>
                <Cell col="12" text="bind:rsrvdd"/>
                <Cell col="13" text="bind:execprcpstatcd"/>
                <Cell col="14" text="bind:prcpdd"/>
                <Cell col="15" text="bind:roomcd"/>
                <Cell col="16" text="bind:orddrid"/>
                <Cell col="17" text="bind:rcptyn"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Div id="grp_sea" taborder="5" position="absolute 0 24 886 57" class="div_SA" anchor="left top right">
          <Layouts>
            <Layout>
              <Static id="caption24" text="적용일자 :" class="search_name" position="absolute 10 9 101 26" anchor="default"/>
              <Calendar id="ipt_date1" taborder="1" class="input_default" position="absolute 100 8 190 27" anchor="default" dateformat="yyyy-MM-dd" value="null" autoselect="true" autoskip="true"/>
              <Calendar id="ipt_date2" taborder="2" class="input_default" position="absolute 200 8 290 27" anchor="default" dateformat="yyyy-MM-dd" autoselect="true" autoskip="true"/>
              <Static id="caption23" text="등록번호 :" class="search_name" position="absolute 313 9 404 26" anchor="default"/>
              <Edit id="ipt_pid" taborder="3" class="input_search" position="absolute 394 8 474 27" anchor="default" onkeydown="grp_sea_ipt_pid_onkeydown" autoselect="true"/>
              <Button id="button61" taborder="4" class="icon_search" position="absolute 476 9 492 25" anchor="default" onclick="grp_sea_button61_onclick"/>
              <Edit id="ipt_patnm" taborder="5" readonly="true" position="absolute 493 8 565 27" anchor="default" enable="false"/>
              <Button id="btn_sea" taborder="6" text="조회" class="btn1" position="absolute 819 6 875 28" anchor="default" onclick="grp_sea_btn_sea_onclick"/>
            </Layout>
          </Layouts>
        </Div>
        <Button id="btn_holdcncl" taborder="6" text="출력" class="btn4" position="absolute 829 758 885 780" anchor="right bottom" onclick="btn_holdcncl_onclick"/>
        <Button id="button1" taborder="7" text="삭제" class="btn4" position="absolute 771 758 827 780" anchor="right bottom" onclick="button1_onclick"/>
        <Button id="button2" taborder="8" text="저장" class="btn4" position="absolute 713 758 769 780" anchor="right bottom" onclick="button2_onclick"/>
        <Button id="button3" taborder="9" text="초기화" class="btn4" position="absolute 643 758 711 780" anchor="right bottom" onclick="button3_onclick"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_send_data" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="srchdate1" type="STRING" size="256" sumtext="적용시작일자"/>
          <Column id="initexcuroomgrp" type="STRING" size="256" sumtext="검사실그룹코드"/>
          <Column id="initexcuroom" type="STRING" size="256" sumtext="검사실코드"/>
          <Column id="srchpid" type="STRING" size="256" sumtext="등록번호"/>
          <Column id="srchdate2" type="STRING" size="256" sumtext="적용종료일자"/>
          <Column id="basesuppdeptcd" type="STRING" size="256" sumtext="부서코드"/>
          <Column id="acptlistflag" type="STRING" size="256" sumtext="대상자조회구분"/>
          <Column id="srchflag" type="STRING" size="256" sumtext="환자검사별구분"/>
          <Column id="srchwardcd" type="STRING" size="256" sumtext="병동코드별검색"/>
          <Column id="largeclass" type="STRING" size="256" sumtext="진방, 미실시"/>
          <Column id="ioflag" type="STRING" size="256" sumtext="입/외래구분"/>
          <Column id="srchdiagyn" type="STRING" size="256" sumtext="상병조회여부"/>
          <Column id="rbasecdflag" type="STRING" size="256" sumtext="검사실기본코드구분,대기실조회"/>
          <Column id="excuroomgrpcdid" type="STRING" size="256" sumtext="검사실그룹코드"/>
          <Column id="execprcpuniqno" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="srchpid"/>
            <Col id="srchdate1"/>
            <Col id="srchdate2"/>
            <Col id="acptlistflag"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_patinfolist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="patnm" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_main_ordlist_mainordlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_cmb_info_initnuclcd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="basecd" type="STRING" size="256" sumtext="핵종기본코드"/>
          <Column id="basecdflagdesc" type="STRING" size="256" sumtext="핵종기본코드"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_cmb_info_initexecrid" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="execridid" type="STRING" size="256" sumtext="실시자코드"/>
          <Column id="execridnm" type="STRING" size="256" sumtext="실시자코드"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_cmb_info_initexcuroomgrp" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="basecd" type="STRING" size="256" sumtext="검사그룹코드"/>
          <Column id="basecdcnts" type="STRING" size="256" sumtext="검사그룹코드명"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_cmb_info_initexcueq" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="basecd" type="STRING" size="256" sumtext="장비코드"/>
          <Column id="basecdflagdesc" type="STRING" size="256" sumtext="장비코드명"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_cmb_info_initexecward" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="wardroomcdid" type="STRING" size="256" sumtext="병동코드"/>
          <Column id="wardroomcdnm" type="STRING" size="256" sumtext="병동코드명"/>
        </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="regnonm" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_ricurerec_ricurerecinfo" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="flag" type="STRING" size="256" sumtext="상태"/>
          <Column id="prcpdd" type="STRING" size="256" sumtext="처방일자"/>
          <Column id="execprcpuniqno" type="STRING" size="256" sumtext="처방유일번호"/>
          <Column id="suppdeptcd" type="STRING" size="256" sumtext="지원부서"/>
          <Column id="pid" type="STRING" size="256" sumtext="등록번호"/>
          <Column id="rrgstno" type="STRING" size="256" sumtext="주민번호"/>
          <Column id="hngnm" type="STRING" size="256" sumtext="이름"/>
          <Column id="sex" type="STRING" size="256" sumtext="성별"/>
          <Column id="age" type="STRING" size="256" sumtext="나이"/>
          <Column id="bdht" type="STRING" size="256" sumtext="신장"/>
          <Column id="bdwt" type="STRING" size="256" sumtext="몸무계"/>
          <Column id="orddeptcd" type="STRING" size="256" sumtext="의뢰과"/>
          <Column id="orddrid" type="STRING" size="256" sumtext="주치의"/>
          <Column id="roomcd" type="STRING" size="256" sumtext="병실"/>
          <Column id="indt" type="STRING" size="256" sumtext="입원일시"/>
          <Column id="dschdt" type="STRING" size="256" sumtext="퇴원일시"/>
          <Column id="diagengnm" type="STRING" size="256" sumtext="상병명"/>
          <Column id="nuclcd" type="STRING" size="256" sumtext="핵종"/>
          <Column id="prcpqty" type="STRING" size="256" sumtext="처방용량"/>
          <Column id="inspqty" type="STRING" size="256" sumtext="측정량 "/>
          <Column id="inspdd" type="STRING" size="256" sumtext="측정량"/>
          <Column id="insptm" type="STRING" size="256" sumtext="측정시간"/>
          <Column id="inspid" type="STRING" size="256" sumtext="측정자"/>
          <Column id="drugdd" type="STRING" size="256" sumtext="투여일"/>
          <Column id="drugtm" type="STRING" size="256" sumtext="투여시간"/>
          <Column id="doserate" type="STRING" size="256" sumtext="투여직후선량율"/>
          <Column id="writid" type="STRING" size="256" sumtext="작성자"/>
          <Column id="safemngerid" type="STRING" size="256" sumtext="측정자"/>
          <Column id="regno" type="STRING" size="256" sumtext="문서번호"/>
          <Column id="patbkg" type="STRING" size="256" sumtext="환자BKG"/>
          <Column id="roombkg" type="STRING" size="256" sumtext="병실BKG"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_send_data1" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="prcpdd" type="STRING" size="256"/>
          <Column id="execprcpuniqno" type="STRING" size="256"/>
          <Column id="suppdeptcd" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="prcpdd"/>
            <Col id="execprcpuniqno"/>
            <Col id="suppdeptcd"/>
            <Col id="pid"/>
          </Row>
        </Rows>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="grp_sea.ipt_date1" propid="value" datasetid="ds_send_data" columnid="srchdate1"/>
      <BindItem id="item1" compid="grp_sea.ipt_date2" propid="value" datasetid="ds_send_data" columnid="srchdate2"/>
      <BindItem id="item2" compid="grp_sea.ipt_pid" propid="value" datasetid="ds_send_data" columnid="srchpid"/>
      <BindItem id="item3" compid="grp_sea.ipt_patnm" propid="value" datasetid="ds_patinfolist" columnid="patnm"/>
      <BindItem id="item4" compid="grp_biz.ipt_regno" propid="value" datasetid="ds_main_ricurerec_ricurerecinfo" columnid="regno"/>
      <BindItem id="item5" compid="grp_biz.output3" propid="value" datasetid="ds_main_ricurerec_ricurerecinfo" columnid="pid"/>
      <BindItem id="item6" compid="grp_biz.output1" propid="value" datasetid="ds_main_ricurerec_ricurerecinfo" columnid="rrgstno"/>
      <BindItem id="item7" compid="grp_biz.output2" propid="value" datasetid="ds_main_ricurerec_ricurerecinfo" columnid="hngnm"/>
      <BindItem id="item8" compid="grp_biz.output4" propid="value" datasetid="ds_main_ricurerec_ricurerecinfo" columnid="sex"/>
      <BindItem id="item9" compid="grp_biz.output5" propid="value" datasetid="ds_main_ricurerec_ricurerecinfo" columnid="age"/>
      <BindItem id="item10" compid="grp_biz.output9" propid="value" datasetid="ds_main_ricurerec_ricurerecinfo" columnid="diagengnm"/>
      <BindItem id="item11" compid="grp_biz.output8" propid="value" datasetid="ds_main_ricurerec_ricurerecinfo" columnid="orddrid"/>
      <BindItem id="item12" compid="grp_biz.output7" propid="value" datasetid="ds_main_ricurerec_ricurerecinfo" columnid="bdwt"/>
      <BindItem id="item13" compid="grp_biz.output6" propid="value" datasetid="ds_main_ricurerec_ricurerecinfo" columnid="bdht"/>
      <BindItem id="item14" compid="grp_biz.cmb_nuclcd" propid="value" datasetid="ds_main_ricurerec_ricurerecinfo" columnid="nuclcd"/>
      <BindItem id="item15" compid="grp_biz.input1" propid="value" datasetid="ds_main_ricurerec_ricurerecinfo" columnid="prcpqty"/>
      <BindItem id="item16" compid="grp_biz.ipt_insptm" propid="value" datasetid="ds_main_ricurerec_ricurerecinfo" columnid="insptm"/>
      <BindItem id="item17" compid="grp_biz.input5" propid="value" datasetid="ds_main_ricurerec_ricurerecinfo" columnid="inspdd"/>
      <BindItem id="item18" compid="grp_biz.ipt_inspqty" propid="value" datasetid="ds_main_ricurerec_ricurerecinfo" columnid="inspqty"/>
      <BindItem id="item19" compid="grp_biz.cmb_inspid" propid="value" datasetid="ds_main_ricurerec_ricurerecinfo" columnid="inspid"/>
      <BindItem id="item20" compid="grp_biz.ipt_patbkg" propid="value" datasetid="ds_main_ricurerec_ricurerecinfo" columnid=""/>
      <BindItem id="item21" compid="grp_biz.ipt_doserate" propid="value" datasetid="ds_main_ricurerec_ricurerecinfo" columnid="doserate"/>
      <BindItem id="item22" compid="grp_biz.cmb_safemngerid" propid="value" datasetid="ds_main_ricurerec_ricurerecinfo" columnid="safemngerid"/>
      <BindItem id="item23" compid="grp_biz.cmb_writid" propid="value" datasetid="ds_main_ricurerec_ricurerecinfo" columnid="writid"/>
      <BindItem id="item24" compid="grp_biz.input6" propid="value" datasetid="ds_main_ricurerec_ricurerecinfo" columnid="drugdd"/>
      <BindItem id="item25" compid="grp_biz.ipt_drugtm" propid="value" datasetid="ds_main_ricurerec_ricurerecinfo" columnid="drugtm"/>
      <BindItem id="item26" compid="grp_biz.out_regno" propid="value" datasetid="ds_init" columnid="regnonm"/>
    </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 "ast_examcurexp::AEZ0001.xjs";
var vSuppdeptcd;
function SMAEQ00300_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SMAEQ00300_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(grd_mainordlist);
	
	lf_aezfSetSuppDeptcd();
	
	vSuppdeptcd = frmf_getPrestDeptCd();
	
	dsf_createDsRow("ds_send", [{col:"basesuppdeptcd", type:"STRING", size:256 , val : vSuppdeptcd}]);
	
	ds_send_data.setColumn(0, "basesuppdeptcd", vSuppdeptcd);
	
	dsf_setFixVal(ds_send, "nbasecdflag:N,obasecdflag:O,pbasecdflag:P,lbasecdflag:L,ebasecdflag:E,rbasecdflag:R,basecdflag:R,kbasecdflag:J,sbasecdflag:S,initflag:1,alladdyn:Y,flag:nuclear,baseroomflag:1");
	
	var oParam = {};
		oParam.id          = "TRAEA02301";
		oParam.service     = "examcureacptexecapp.NuclInpt";
		oParam.method      = "reqGetInitExamCureRoomNuclCodeList";
		oParam.inds        = "reqparam=ds_send";
		oParam.outds       = "ds_init_cmb_info_initnuclcd=initnuclcd ds_init_cmb_info_initexecrid=initexecrid ds_init_cmb_info_initexcuroomgrp=initexcuroomgrp ds_init_cmb_info_initexcueq=initexcueq ds_init_cmb_info_initexecward=initexcuward ";
		oParam.async       = false;
		//oParam.callback    = "cf_TRAEA02301";

	tranf_submit(oParam);
	
	fInit();
}

function fInit() 
{
	ds_send_data.setColumn(0, "srchdate1", utlf_getCurrentDate());
	ds_send_data.setColumn(0, "srchdate2", utlf_getCurrentDate());
	
	ds_init.setColumn(0, "regnonm", String(utlf_getCurrentDate()).substr(0,4)+"-"+String(utlf_getCurrentDate()).substr(4,2)+"-");
	
	ds_send_data.setColumn(0, "srchpid", "");
	ds_main_ordlist_mainordlist.clearData();
	ds_main_ricurerec_ricurerecinfo.clearData();	
	ds_main_ricurerec_ricurerecinfo.addRow();
}

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

function fGetExamCureAcptList()
{
	appf_delPatientInfos();					
	
	ds_send_data.setColumn(0, "initexcuroomgrp", "치료,투약실");
	ds_send_data.setColumn(0, "excuroomgrpcdid", "치료,투약실");
	ds_send_data.setColumn(0, "initexcuroom", "NMR01");
	ds_send_data.setColumn(0, "acptlistflag", "S");
	ds_send_data.setColumn(0, "srchflag", "P");
	ds_send_data.setColumn(0, "ioflag", "O");
	
	dsf_setFixVal(ds_send_data, "largeclass:M3,srchdiagyn:N,rbasecdflag:R");

	var oParam = {};
		oParam.id          = "TRAEQ00301";
		oParam.service     = "examcureacptexecapp.ExamCureAcpt";
		oParam.method      = "reqGetExamCureNuclAcptList";
		oParam.inds        = "reqparam=ds_send_data";
		oParam.outds       = "ds_main_ordlist_mainordlist=examcureacptlist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRAEQ00301";

	tranf_submit(oParam);

	ds_send_data.setColumn(0, "srchpid", "");
}

function grp_sea_button61_onclick(obj:Button,  e:ClickEventInfo)
{
	var objArg = new Object();
		objArg.arg_ds_send = ds_send_data;
	
	frmf_modal("SPPMC02500", "SPPMC02500", objArg, "", "", "", "", "", "", "", "", "", "M");
	
	ds_send_data.setColumn(0, "srchpid", ds_patinfolist.getColumn(0, "pid"));
}

function grp_sea_btn_sea_onclick(obj:Button,  e:ClickEventInfo)
{
	fGetExamCureAcptList();
}

function grd_mainordlist_oncellclick(obj:Grid, e:GridClickEventInfo)
{
	if (e.row > -1)
	{
		fTopInfo();
		
		fGetRiCureRecList();
		
		grp_biz.ipt_regno.setFocus();
	}
}

function fTopInfo()
{
	var row = ds_main_ordlist_mainordlist.rowposition;
	var prcpgenrflag = ds_main_ordlist_mainordlist.getColumn(row, "prcpgenrflag");
	var dschdd = ds_main_ordlist_mainordlist.getColumn(row, "dschdd");
	var srchdd = "";
	
	schk = "N";

	if ( prcpgenrflag =="O" )
	{
			var pat_info =  "O▦"+ ds_main_ordlist_mainordlist.getColumn(row, "pid")
					+"▦"+ds_main_ordlist_mainordlist.getColumn(row, "orddd")
					+"▦"+ds_main_ordlist_mainordlist.getColumn(row, "cretno")
					+"▦"+sysf_getUserInfo("dutplcecd")
					+"▦1▦"+ds_main_ordlist_mainordlist.getColumn(row, "orddd")
			schk = "Y";
			
	} 
	else if ( prcpgenrflag =="I" || prcpgenrflag =="D"  || prcpgenrflag =="E" ) 
	{
		
		if (utlf_isNull(dschdd) || dschdd == "99991231") 
		{
			srchdd = getCurrentDate();
		}
		else 
		{
			srchdd = dschdd;
		}
		
		var pat_info =  "I▦"+ ds_main_ordlist_mainordlist.getColumn(row, "pid")
				+"▦"+ds_main_ordlist_mainordlist.getColumn(row, "orddd")
				+"▦"+ds_main_ordlist_mainordlist.getColumn(row, "cretno")
				+"▦"+sysf_getUserInfo("dutplcecd")
				+"▦"+srchdd;	
		schk = "Y";
		
	} 
	else if ( prcpgenrflag =="S" || prcpgenrflag =="-" ) 
	{
		var pat_info =  "S▦"+ ds_main_ordlist_mainordlist.getColumn(row, "prcpdd")
				+"▦"+ ds_main_ordlist_mainordlist.getColumn(row, "execprcpuniqno")
				+"▦"+sysf_getUserInfo("dutplcecd");
		schk = "Y";
	}
		
	if (schk == "Y")
	{
		frmf_setParameter("condparam", pat_info);
//		frmf_modal("SPMMO08900", "SPMMO08900", "", "", "", "", "", "", "", "", "", "", "M");
		appf_initPatientInfo(pat_info);
	}
}

function fGetRiCureRecList()
{			
	if ( ds_main_ordlist_mainordlist.rowposition < 0) 
	{
		return;
	}
	
	var row =  ds_main_ordlist_mainordlist.rowposition;
	
	dsf_makeValue(ds_send_data1, "prcpdd", "string", ds_main_ordlist_mainordlist.getColumn(row, "prcpdd"), 0);
	dsf_makeValue(ds_send_data1, "execprcpuniqno", "string", ds_main_ordlist_mainordlist.getColumn(row, "execprcpuniqno"), 0);
	dsf_makeValue(ds_send_data1, "pid", "string", ds_main_ordlist_mainordlist.getColumn(row, "pid"), 0);
	dsf_makeValue(ds_send_data1, "suppdeptcd", "string", vSuppdeptcd, 0);
	
	dsf_setFixVal(ds_send_data1, "ioflag:O");
	
	var oParam = {};
		oParam.id          = "TRAEQ00102";
		oParam.service     = "examcuresafeapp.ExamCureRiMngt";
		oParam.method      = "reqGetExamCureRiRecList";
		oParam.inds        = "reqparam=ds_send_data1";
		oParam.outds       = "ds_main_ricurerec_ricurerecinfo=ricurerecinfo";
		oParam.async       = false;
		//oParam.callback    = "cf_TRAEQ00102";

	tranf_submit(oParam);

	dsf_makeValue(ds_main_ricurerec_ricurerecinfo, "writnm", "string", ds_init_cmb_info_initexecrid.lookup("execridid", ds_main_ricurerec_ricurerecinfo.getColumn(0, "writid"), "execridnm"), 0);
	dsf_makeValue(ds_main_ricurerec_ricurerecinfo, "inspnm", "string", ds_init_cmb_info_initexecrid.lookup("execridid", ds_main_ricurerec_ricurerecinfo.getColumn(0, "inspid"), "execridnm"), 0);
	dsf_makeValue(ds_main_ricurerec_ricurerecinfo, "safemngernm", "string", ds_init_cmb_info_initexecrid.lookup("execridid", ds_main_ricurerec_ricurerecinfo.getColumn(0, "safemngerid"), "execridnm"), 0);
		
	var insptm = ds_main_ricurerec_ricurerecinfo.getColumn(0, "insptm");
	var drugtm = ds_main_ricurerec_ricurerecinfo.getColumn(0, "drugtm");
	
	if (utlf_isNull(insptm))
	{
		ds_main_ricurerec_ricurerecinfo.setColumn(0, "insptm", utlf_getCurrentTime());
	}
	
	if (utlf_isNull(drugtm))
	{
		ds_main_ricurerec_ricurerecinfo.setColumn(0, "drugtm", utlf_getCurrentTime());
	}
}

function grp_biz_ipt_inspqty_onkeydown(obj:MaskEdit, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		grp_biz.ipt_insptm.setFocus();
	}
}

function grp_biz_ipt_insptm_onkeydown(obj:MaskEdit, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		grp_biz.ipt_patbkg.setFocus();
	}
}

function grp_biz_ipt_drugtm_onkeydown(obj:MaskEdit, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		grp_biz.ipt_doserate.setFocus();
	}
}

function button3_onclick(obj:Button,  e:ClickEventInfo)
{
	fInit();
}

function button2_onclick(obj:Button,  e:ClickEventInfo)
{
	if (ds_main_ordlist_mainordlist.rowposition > -1)
	{
		var suppdeptcd = ds_main_ricurerec_ricurerecinfo.getColumn(0, "suppdeptcd");
		var safemngerid = ds_main_ricurerec_ricurerecinfo.getColumn(0, "safemngerid");
		
		if (utlf_isNull(suppdeptcd))
		{
			ds_main_ricurerec_ricurerecinfo.setColumn(0, "suppdeptcd", vSuppdeptcd);
		}							
		if (utlf_isNull(safemngerid))
		{
			sysf_messageBox("방사선안전관리자를 선택 하여 주십시요", "I999");
			return;
		}
		
		dsf_setFixVal(ds_main_ricurerec_ricurerecinfo, "ioflag:O");

		var oParam = {};
			oParam.id          = "TXAEQ00101";
			oParam.service     = "examcuresafeapp.ExamCureRiMngt";
			oParam.method      = "reqExeExamCureRiRecList";
			oParam.inds        = "ricurerecinfo=ds_main_ricurerec_ricurerecinfo";
			oParam.outds       = "ds_main_ricurerec_ricurerecinfo=ricurerecinfo";
			oParam.async       = false;
			//oParam.callback    = "cf_TXAEQ00101";

		tranf_submit(oParam);
	}					
}

function button1_onclick(obj:Button,  e:ClickEventInfo)
{
	if (ds_main_ordlist_mainordlist.rowposition > -1)
	{
		var flag = ds_main_ricurerec_ricurerecinfo.getColumn(0, "flag");
		
		if (flag  == "I")
		{
			sysf_messageBox("삭제 할 정보가", "I004");
			return;
		}
		var oParam = {};
			oParam.id          = "TXAEQ00102";
			oParam.service     = "examcuresafeapp.ExamCureRiMngt";
			oParam.method      = "reqDelExamCureRiRecList";
			oParam.inds        = "ricurerecinfo=ds_main_ricurerec_ricurerecinfo";
			oParam.outds       = "ds_main_ricurerec_ricurerecinfo=ricurerecinfo";
			oParam.async       = false;
			//oParam.callback    = "cf_TXAEQ00102";

		tranf_submit(oParam);
	}	
}

function btn_holdcncl_onclick(obj:Button,  e:ClickEventInfo)
{
	dsf_makeValue(ds_main_ricurerec_ricurerecinfo, "nuclnm", "string", ds_init_cmb_info_initnuclcd.lookup("basecd", ds_main_ricurerec_ricurerecinfo.getColumn(0, "nuclcd"), "basecdflagdesc"), 0);
	
	var objDOM = rptf_createDOM(); 
		rptf_setNodeListToDOM(objDOM, "/root/main/ricurerec/ricurerecinfo", ds_main_ricurerec_ricurerecinfo);
		
	var objParam = new Object();
		objParam.xml_data_XML1 = objDOM.documentElement.source;          // 최상의노드 XML 스트링 추출
	
	var option = "open=1;save=1;directprint=0;print=1;zoom=0;callno=0321234567;faxno=0323298384";
	
	rptf_exeReportPreview30(["RPAEQ00300"],[objParam], option);
}
]]></Script>
  </Form>
</FDL>