YNU_JEUS/app_home/himed/xpapps/ast/healexamxp/xp/SMAHA00700_처방관리.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMAHA00700" position="absolute 0 0 1196 795" titletext="처방관리" oninit="SMAHA00700_oninit" onload="SMAHA00700_onload">
    <Layouts>
      <Layout>
        <Static id="caption6" text="처방 관리" class="tit_1" position="absolute 0 0 149 25"/>
        <MaskEdit id="opt_dcamt" taborder="1" readonly="true" mask="#,###" position="absolute 1070 103 1186 122"/>
        <MaskEdit id="opt_cmpyaddamt" taborder="2" readonly="true" mask="#,###" position="absolute 734 103 828 122"/>
        <Static id="caption59" text="추가처방(개인)" class="cell_1" position="absolute 455 102 544 125"/>
        <Static id="caption5" text="반환금액" class="cell_1" position="absolute 1008 102 1067 125"/>
        <MaskEdit id="opt_addamt" taborder="3" readonly="true" mask="#,###" position="absolute 546 103 640 122"/>
        <Static id="caption55" text="추가처방(단체)" class="cell_1" position="absolute 643 102 732 125"/>
        <Static id="caption76" text="선택검사" class="cell_1" position="absolute 831 102 890 125"/>
        <MaskEdit id="opt_selamt" taborder="4" readonly="true" mask="#,###" position="absolute 893 103 1004 122"/>
        <Div id="grp_sea" anchor="left top right" taborder="5" class="div_SA" position="absolute 0 25 1195 65">
          <Layouts>
            <Layout>
              <Static id="caption2" text="등록번호 :" class="search_name" position="absolute 275 13 361 30" anchor="default"/>
              <Shape id="line13" linetype="vertical" class="line_4" position="absolute 1104 10 1110 32" anchor="top right"/>
              <Button id="btn_search" taborder="1" text="조회" class="btn1" position="absolute 1123 10 1179 32" anchor="top right" onclick="grp_sea_btn_search_onclick"/>
              <Edit id="ipt_pid" taborder="2" class="input_search" position="absolute 364 11 454 30" autoselect="true" autoskip="true" onkeyup="grp_sea_ipt_pid_onkeyup" anchor="default"/>
              <Button id="btn_srchpat" taborder="3" class="icon_search" position="absolute 459 13 475 29" onclick="grp_sea_btn_srchpat_onclick" anchor="default"/>
              <Combo id="cmb_srchhealexamdetlflag" taborder="4" innerdataset="@ds_init_baseinfo_hedetlflaglst_A0069" codecolumn="cdid" datacolumn="cdnm" class="combo_search" position="absolute 90 11 260 30" onitemchanged="grp_sea_cmb_srchhealexamdetlflag_onitemchanged" anchor="default"/>
              <Static id="caption7" text="건진구분 :" class="search_name" position="absolute 5 11 91 28" anchor="default"/>
              <Edit id="opt_sex" taborder="5" readonly="true" position="absolute 588 11 624 30" class="output" anchor="default"/>
              <Edit id="opt_age" taborder="6" readonly="true" position="absolute 627 11 663 30" class="output" anchor="default"/>
              <Edit id="ipt_pnm" taborder="7" class="input_search" position="absolute 480 11 585 30" autoselect="true" autoskip="true" onkeyup="grp_sea_ipt_pnm_onkeyup" anchor="default"/>
              <Edit id="ipt_rgstno1" taborder="8" class="input_search" visible="false" position="absolute 665 11 770 30" anchor="default"/>
              <Edit id="ipt_rgstno2" taborder="9" class="input_search" visible="false" position="absolute 775 11 880 30" anchor="default"/>
            </Layout>
          </Layouts>
        </Div>
        <Static id="caption3" text="처방내역" class="tit_2" position="absolute 455 73 533 94"/>
        <Shape id="line2" class="line_10" position="absolute 455 89 1195 95" anchor="left top right"/>
        <Button id="btn_addord" taborder="6" text="행추가" class="btn2" visible="false" position="absolute 828 67 881 89" anchor="top right"/>
        <Grid id="grd_ordlst" taborder="7" binddataset="ds_main_info_ordinfo_ordlst" useinputpanel="false" position="absolute 455 94 1195 682" autoenter="select" cellsizingtype="col" anchor="all" onexpanddown="grd_ordlst_onexpanddown">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="31" band="left"/>
                <Column size="24" band="left"/>
                <Column size="29" band="left"/>
                <Column size="73" band="left"/>
                <Column size="82" band="left"/>
                <Column size="89" band="left"/>
                <Column size="205"/>
                <Column size="100"/>
                <Column size="58"/>
                <Column size="81"/>
                <Column size="112"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="79"/>
                <Column size="117"/>
                <Column size="90"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell/>
                <Cell col="1" text="V"/>
                <Cell col="2" text="D/C"/>
                <Cell col="3" text="처방구분"/>
                <Cell col="4" text="청구방법"/>
                <Cell col="5" text="처방코드"/>
                <Cell col="6" text="처방명"/>
                <Cell col="7" text="단가"/>
                <Cell col="8" text="처방상태"/>
                <Cell col="9" text="처방일자"/>
                <Cell col="10" text="시행부서"/>
                <Cell col="11" text="묶음코드"/>
                <Cell col="12" text="수가코드"/>
                <Cell col="13" text="최종수정자"/>
                <Cell col="14" text="최종수정일시"/>
                <Cell col="15" text="처방번호"/>
                <Cell col="16" text="m"/>
                <Cell col="17" text="묶음검사구분"/>
                <Cell col="18" text="상태"/>
                <Cell col="19" text="caption1"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" expr="currow+1"/>
                <Cell col="1" displaytype="checkbox" edittype="checkbox" text="bind:sel" expr="expr:sel == 'Y' ? 1 : 0"/>
                <Cell col="2" displaytype="checkbox" edittype="expr:edittype" style="controlbackground:EXPR(colstyle);controlborder:EXPR(colstyle2);" text="bind:dcflag" expr="expr:dcflag == 'Y' ? 1 : 0"/>
                <Cell col="3" displaytype="combo" style="align:left middle;padding:0 0 0 3;" text="bind:testflag" combodataset="ds_init_baseinfo_testflag_A0117" combocodecol="cdid" combodatacol="cdnm" enable="false"/>
                <Cell col="4" displaytype="combo" edittype="combo" style="align:left middle;padding:0 0 0 3;" text="bind:uncocd" combodataset="ds_init_baseinfo_pamcdlst_uncocdlst" combocodecol="cd" combodatacol="nm"/>
                <Cell col="5" displaytype="text" style="align:left middle;padding:0 0 0 3;" text="bind:testcd" expandshow="show"/>
                <Cell col="6" style="align:left middle;padding:0 0 0 3;" text="bind:testnm"/>
                <Cell col="7" displaytype="number" edittype="text" text="bind:scoreamt" enable="false"/>
                <Cell col="8" displaytype="combo" text="bind:rcptstat" combodataset="ds_init_baseinfo_ordstatlst_M0011" combocodecol="cdid" combodatacol="cdnm" enable="false"/>
                <Cell col="9" displaytype="date" text="bind:prcpdd" calendardisplaynulltype="nulltext"/>
                <Cell col="10" displaytype="combo" text="bind:prcpexecdeptcd" combodataset="ds_init_dept_info_initprcpexecdeptcd" combocodecol="prcpexecdeptcdid" combodatacol="prcpexecdeptcdnm" enable="false"/>
                <Cell col="11" text="bind:pkgcd"/>
                <Cell col="12" text="bind:calcscorcd"/>
                <Cell col="13" text="bind:lastupdtrid"/>
                <Cell col="14" displaytype="date" text="bind:lastupdtdt" mask="yyyy-MM-dd hh:mm:ss" calendardisplaynulltype="nulltext"/>
                <Cell col="15" displaytype="text" text="bind:prcpno"/>
                <Cell col="16" text="bind:m"/>
                <Cell col="17" displaytype="combo" edittype="combo" text="bind:grupflag"/>
                <Cell col="18" text="bind:dcynflag"/>
                <Cell col="19" text="bind:execprcpuniqno"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Button id="btn_delord" taborder="8" text="행삭제" class="btn2" visible="false" position="absolute 884 67 937 89" anchor="top right"/>
        <Grid id="grd_histlst" taborder="9" binddataset="ds_main_histlst_item" useinputpanel="false" position="absolute 0 94 450 277" autoenter="select" autofittype="col" cellsizingtype="col" oncellclick="grd_histlst_oncellclick">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="24"/>
                <Column size="71"/>
                <Column size="97"/>
                <Column size="101"/>
                <Column size="71"/>
                <Column size="74"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell/>
                <Cell col="1" text="건진일자"/>
                <Cell col="2" text="단체명"/>
                <Cell col="3" text="패키지명"/>
                <Cell col="4" text="건진상태"/>
                <Cell col="5" text="수납상태"/>
                <Cell col="6" text="caption3"/>
                <Cell col="7" text="caption4"/>
                <Cell col="8" text="healexamplacecd"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" expr="currow+1"/>
                <Cell col="1" displaytype="date" text="bind:hopedd" calendardisplaynulltype="nulltext"/>
                <Cell col="2" text="bind:cmpynm"/>
                <Cell col="3" style="align:left;padding:0 0 0 3;" text="bind:pkgnm"/>
                <Cell col="4" displaytype="combo" style="align:left;padding:0 0 0 3;" text="bind:statflag" combodataset="ds_init_baseinfo_statlst_A0107" combocodecol="cdid" combodatacol="cdnm" enable="false"/>
                <Cell col="5" displaytype="combo" style="align:left middle;padding:0 0 0 3;" text="bind:rcptstat" combodataset="ds_cmb_rcptstat" combocodecol="value" combodatacol="label" enable="false"/>
                <Cell col="6" text="bind:uncocd"/>
                <Cell col="7" text="bind:disccd"/>
                <Cell col="8" text="bind:healexamplacecd"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Static id="caption1" text="건진이력" class="tit_2" position="absolute 0 73 78 95"/>
        <Shape id="line1" class="line_10" position="absolute 0 89 450 95"/>
        <Static id="caption4" text="건진상세정보&#13;&#10;      bool1.visible = true;&#13;&#10;      caption10.visible = true;&#13;&#10;     " class="tit_2" position="absolute 0 285 103 307"/>
        <Shape id="line3" linetype="horizontal" class="line_10" position="absolute 0 301 450 307"/>
        <TextArea id="tar_desc" taborder="10" position="absolute 0 306 450 765" anchor="left top bottom" wordwrap="word" enable="false"/>
        <Button id="btn_selprcpcd" taborder="11" text="처방사전" class="btn2" visible="false" position="absolute 998 67 1062 89" anchor="top right"/>
        <Button id="btn_seladd" taborder="12" text="추가검사" class="btn2" position="absolute 1131 67 1195 89" anchor="top right" onclick="btn_seladd_onclick"/>
        <Static id="caption8" text="선택검사" class="tit_2" position="absolute 455 706 533 728" anchor="left bottom"/>
        <Shape id="line4" linetype="horizontal" class="line_10" position="absolute 455 722 1195 728" anchor="left right bottom"/>
        <Static id="cap_choiflag" text="선택" class="cell_1" position="absolute 455 732 519 755" anchor="left bottom"/>
        <Static id="caption9" text="* 약처방 및 주사는 용법에 따라 취소 시점이 다르므로 삭제된 처방이 안보일 수 있음." position="absolute 460 687 1050 702" style="color:#ff0000ff;" anchor="left bottom"/>
        <Grid id="datagrid1" taborder="13" binddataset="ds_temp1_test" useinputpanel="false" visible="false" position="absolute 210 242 435 552">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="100"/>
                <Column size="100"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell text="caption1"/>
                <Cell col="1" text="caption2"/>
              </Band>
              <Band id="body">
                <Cell text="bind:testcd"/>
                <Cell col="1" text="bind:pkgcd"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <CheckBox id="bool1" taborder="14" visible="false" position="absolute 1010 696 1029 716" truevalue="Y" falsevalue="N" anchor="left bottom"/>
        <Static id="caption10" text="수납적용제외" visible="false" position="absolute 1035 697 1135 717" anchor="left bottom"/>
        <Radio id="rdo_choiflag" taborder="15" columncount="-1" rowcount="-1" innerdataset="@ds_init_baseinfo_examinfo_S100" codecolumn="cdid" datacolumn="cdnm" position="absolute 522 734 934 754" onitemchanged="rdo_choiflag_onitemchanged" anchor="left bottom"/>
        <Button id="button2" taborder="16" text="상태변경" class="btn4" position="absolute 900 768 980 790" anchor="right bottom" onclick="button2_onclick"/>
        <Button id="button1" taborder="17" text="수납처리" class="btn4" visible="false" position="absolute 983 768 1063 790" anchor="right bottom" onclick="button1_onclick"/>
        <Button id="btn_save" taborder="18" text="저장" class="btn4" position="absolute 1066 768 1122 790" anchor="right bottom" onclick="btn_save_onclick"/>
        <Button id="btn_clear" taborder="19" text="초기화" class="btn4" position="absolute 1125 768 1193 790" anchor="right bottom" onclick="btn_clear_onclick"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="saveordcd" type="STRING" size="256"/>
          <Column id="srchhealexamdetlflag" type="STRING" size="256"/>
          <Column id="srchpid" type="STRING" size="256"/>
          <Column id="srchhealexamflag" type="STRING" size="256"/>
          <Column id="srchinstcd" type="STRING" size="256"/>
          <Column id="srchstatflag" type="STRING" size="256"/>
          <Column id="srchrsrvdd" type="STRING" size="256"/>
          <Column id="srchrsrvno" type="STRING" size="256"/>
          <Column id="srchorddd" type="STRING" size="256"/>
          <Column id="srchhopedd" type="STRING" size="256"/>
          <Column id="srchcretno" type="STRING" size="256"/>
          <Column id="srchorddeptcd" type="STRING" size="256"/>
          <Column id="srchchk" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="saveordcd"/>
            <Col id="srchhealexamdetlflag"/>
            <Col id="srchpid"/>
            <Col id="srchhealexamflag"/>
            <Col id="srchinstcd"/>
            <Col id="srchstatflag"/>
            <Col id="srchrsrvdd"/>
            <Col id="srchrsrvno"/>
            <Col id="srchorddd"/>
            <Col id="srchhopedd"/>
            <Col id="srchcretno"/>
            <Col id="srchorddeptcd"/>
            <Col id="srchchk"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_info_patinfo_item" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="rgstno1" type="STRING" size="256"/>
          <Column id="rgstno2" type="STRING" size="256"/>
          <Column id="hngnm" type="STRING" size="256"/>
          <Column id="engnm" type="STRING" size="256"/>
          <Column id="sex" type="STRING" size="256"/>
          <Column id="age" type="STRING" size="256"/>
          <Column id="brthdd" type="STRING" size="256"/>
          <Column id="zipcd11" type="STRING" size="256"/>
          <Column id="zipcd12" type="STRING" size="256"/>
          <Column id="addr1" type="STRING" size="256"/>
          <Column id="detladdr1" type="STRING" size="256"/>
          <Column id="mpphon" type="STRING" size="256"/>
          <Column id="telno" type="STRING" size="256"/>
          <Column id="emailid" type="STRING" size="256"/>
          <Column id="emailtype" type="STRING" size="256"/>
          <Column id="healexampid" type="STRING" size="256"/>
          <Column id="emailkind" type="STRING" size="256"/>
          <Column id="zipcd21" type="STRING" size="256"/>
          <Column id="zipcd22" type="STRING" size="256"/>
          <Column id="addr2" type="STRING" size="256"/>
          <Column id="detladdr2" type="STRING" size="256"/>
          <Column id="psptno" type="STRING" size="256"/>
          <Column id="brthareacnts" type="STRING" size="256"/>
          <Column id="pidcretfg" type="STRING" size="256"/>
          <Column id="zipcdseq1" type="STRING" size="256"/>
          <Column id="zipcdseq2" type="STRING" size="256"/>
          <Column id="clntgrde" type="STRING" size="256"/>
          <Column id="patremcnts" type="STRING" size="256"/>
          <Column id="choiflag" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="pid"/>
            <Col id="rgstno1"/>
            <Col id="rgstno2"/>
            <Col id="hngnm"/>
            <Col id="engnm"/>
            <Col id="sex"/>
            <Col id="age"/>
            <Col id="brthdd"/>
            <Col id="zipcd11"/>
            <Col id="zipcd12"/>
            <Col id="addr1"/>
            <Col id="detladdr1"/>
            <Col id="mpphon"/>
            <Col id="telno"/>
            <Col id="emailid"/>
            <Col id="emailtype"/>
            <Col id="healexampid"/>
            <Col id="emailkind"/>
            <Col id="zipcd21"/>
            <Col id="zipcd22"/>
            <Col id="addr2"/>
            <Col id="detladdr2"/>
            <Col id="psptno"/>
            <Col id="brthareacnts"/>
            <Col id="pidcretfg"/>
            <Col id="zipcdseq1"/>
            <Col id="zipcdseq2"/>
            <Col id="clntgrde"/>
            <Col id="patremcnts"/>
            <Col id="choiflag"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_histlst_item" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="healexamflag" type="STRING" size="256" sumtext="건진구분"/>
          <Column id="healexamdetlflag" type="STRING" size="256" sumtext="건진구분"/>
          <Column id="orddd" type="STRING" size="256" sumtext="진료일자"/>
          <Column id="hopedd" type="STRING" size="256" sumtext="진료희망일자"/>
          <Column id="pkgcd" type="STRING" size="256" sumtext="패키지코드"/>
          <Column id="pkgnm" type="STRING" size="256" sumtext="패키지명"/>
          <Column id="rsrvdd" type="STRING" size="256" sumtext="예약일자"/>
          <Column id="rsrvno" type="INT" size="256" sumtext="예약번호"/>
          <Column id="cmpyflag" type="STRING" size="256" sumtext="단체구분"/>
          <Column id="lastupdtrid" type="STRING" size="256" sumtext="최종수정자"/>
          <Column id="lastupdtdt" type="STRING" size="256" sumtext="최종수정일시"/>
          <Column id="cmpynm" type="STRING" size="256" sumtext="단체명"/>
          <Column id="cmpycd" type="STRING" size="256" sumtext="등록번호"/>
          <Column id="conseq" type="INT" size="256" sumtext="등록번호"/>
          <Column id="conhistseq" type="INT" size="256" sumtext="등록번호"/>
          <Column id="pid" type="STRING" size="256" sumtext="등록번호"/>
          <Column id="cretno" type="INT" size="256" sumtext="외래생성번호"/>
          <Column id="statflag" type="STRING" size="256" sumtext="상태"/>
          <Column id="disccd" type="STRING" size="256" sumtext="할인"/>
          <Column id="discremcnts" type="STRING" size="256" sumtext="할인사유"/>
          <Column id="rcptstat" type="STRING" size="256" sumtext="수납상태"/>
          <Column id="visano" type="STRING" size="256" sumtext="비자연번"/>
          <Column id="remcnts" type="STRING" size="256" sumtext="비고사항"/>
          <Column id="uncocd" type="STRING" size="256" sumtext="비고사항"/>
          <Column id="orddeptcd" type="STRING" size="256" sumtext="처방부서코드"/>
          <Column id="orddrid" type="STRING" size="256" sumtext="진료의"/>
          <Column id="cncldd" type="STRING" size="256" sumtext="취소일"/>
          <Column id="healexamplacecd" type="STRING" size="256" sumtext="건진장소"/>
          <Column id="rsltcnstdrid" type="STRING" size="256" sumtext="상담의사"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_main_info_ordinfo_ordlst" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_main_info_ordinfo_ordlst_oncolumnchanged">
        <ColumnInfo>
          <Column id="sel" type="STRING" size="256" sumtext="선택구분"/>
          <Column id="dcflag" type="STRING" size="256" sumtext="D/C구분"/>
          <Column id="testflag" type="STRING" size="256" sumtext="검사구분"/>
          <Column id="orddd" type="STRING" size="256" sumtext="진료일자"/>
          <Column id="cretno" type="STRING" size="256" sumtext="외래생성번호"/>
          <Column id="uncocd" type="STRING" size="256" sumtext="청구방법"/>
          <Column id="calcscorcd" type="STRING" size="256" sumtext="처방코드"/>
          <Column id="testcd" type="STRING" size="256" sumtext="처방코드"/>
          <Column id="testnm" type="STRING" size="256" sumtext="처방명"/>
          <Column id="scoreamt" type="STRING" size="256" sumtext="단가"/>
          <Column id="prcpexecdeptcd" type="STRING" size="256" sumtext="시행부서코드"/>
          <Column id="execdeptnm" type="STRING" size="256" sumtext="시행부서명"/>
          <Column id="outtestdeptcd" type="STRING" size="256" sumtext="시행부서명"/>
          <Column id="lastupdtrid" type="STRING" size="256" sumtext="최종수정자"/>
          <Column id="lastupdtdt" type="STRING" size="256" sumtext="최종수정일시"/>
          <Column id="pid" type="STRING" size="256" sumtext="환자id"/>
          <Column id="orddd" type="STRING" size="256" sumtext="진료일자"/>
          <Column id="prcpdd" type="STRING" size="256" sumtext="처방일자"/>
          <Column id="prcpno" type="STRING" size="256" sumtext="처방번호"/>
          <Column id="rcptstat" type="STRING" size="256" sumtext="수납상태"/>
          <Column id="rsrvflag" type="STRING" size="256" sumtext="예약구분"/>
          <Column id="rsrvdd" type="STRING" size="256" sumtext="예약일자"/>
          <Column id="rsrvtm" type="STRING" size="256" sumtext="예약시간"/>
          <Column id="m" type="STRING" size="256" sumtext="실행구분"/>
          <Column id="examseq" type="STRING" size="256" sumtext="examseq"/>
          <Column id="grupflag" type="STRING" size="256" sumtext="묶음검사 구분"/>
          <Column id="pkgcd" type="STRING" size="256" sumtext="묶음검사 구분"/>
          <Column id="dcynflag" type="STRING" size="256" sumtext="처방삭제여부"/>
          <Column id="addexamdel" type="STRING" size="256" sumtext="추가검사만 삭제여부 "/>
          <Column id="execprcpuniqno" type="STRING" size="256" sumtext="처방유일번호"/>
          <Column id="acpt_rsrvdd" type="STRING" size="256" sumtext="건진등록일자"/>
          <Column id="acpt_rsrvno" type="STRING" size="256" sumtext="예약번호"/>
          <Column id="acpt_hopedd" type="STRING" size="256" sumtext="건진접수일자"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_main_info_ordinfo_info" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="acptdesc" type="STRING" size="256" sumtext="접수정보"/>
          <Column id="choiflag" type="STRING" size="256" sumtext="선택검사"/>
          <Column id="dcamt" type="INT" size="256" sumtext="반환금액"/>
          <Column id="selamt" type="INT" size="256" sumtext="선택검사금액"/>
          <Column id="addamt" type="INT" size="256" sumtext="추가검사금액"/>
          <Column id="cmpyaddamt" type="INT" size="256" sumtext="추가검사금액(단체)"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_baseinfo_examinfo_S100" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_baseinfo_statlst_A0107" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_cmb_rcptstat" 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">수납</Col>
            <Col id="value">Y</Col>
          </Row>
          <Row>
            <Col id="label">미계산</Col>
            <Col id="value">N</Col>
          </Row>
          <Row>
            <Col id="label">수납</Col>
            <Col id="value">X</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_cmb_grupflag" 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">묶음</Col>
            <Col id="value">G</Col>
          </Row>
          <Row>
            <Col id="label">패키지</Col>
            <Col id="value">P</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_init_dept_info_initprcpexecdeptcd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="prcpexecdeptcdid" type="STRING" size="256" sumtext="시행부서코드"/>
          <Column id="prcpexecdeptcdnm" type="STRING" size="256" sumtext="시행부서명"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_baseinfo_ordstatlst_M0011" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_baseinfo_pamcdlst_uncocdlst" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cd" type="STRING" size="256" sumtext="코드"/>
          <Column id="nm" type="STRING" size="256" sumtext="코드명"/>
          <Column id="cmpyrate" type="INT" size="256" sumtext="단체부담율"/>
          <Column id="insurate" type="INT" size="256" sumtext="공단부담율"/>
          <Column id="cntrrate" type="INT" size="256" sumtext="보건소부담률"/>
          <Column id="ownrate" type="INT" size="256" sumtext="개인부담율"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_baseinfo_testflag_A0117" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_baseinfo_hedetlflaglst_A0069" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_tmp" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_send_globalinstance" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="instance1" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_choitest" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="pkgcd" type="STRING" size="256" sumtext="패키지"/>
          <Column id="testcd" type="STRING" size="256" sumtext="검사코드"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_temp1_test_choitest" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_hidd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_send1" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_price_dangainfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="danga" type="STRING" size="256" sumtext="단가"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_temp1_test" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_baseinf_hedetlflaglst_A0069" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_temp" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="okflag" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_info_rsrvacptinfo_item" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="choiflag" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_temp_patinfo_item" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_temp_templst_list" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_temp_templst" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_send2" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_send_saveinfo_savelist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="sel" type="STRING" size="256" sumtext="선택구분"/>
          <Column id="dcflag" type="STRING" size="256" sumtext="D/C구분"/>
          <Column id="testflag" type="STRING" size="256" sumtext="검사구분"/>
          <Column id="orddd" type="STRING" size="256" sumtext="진료일자"/>
          <Column id="cretno" type="STRING" size="256" sumtext="외래생성번호"/>
          <Column id="uncocd" type="STRING" size="256" sumtext="청구방법"/>
          <Column id="calcscorcd" type="STRING" size="256" sumtext="처방코드"/>
          <Column id="testcd" type="STRING" size="256" sumtext="처방코드"/>
          <Column id="testnm" type="STRING" size="256" sumtext="처방명"/>
          <Column id="scoreamt" type="STRING" size="256" sumtext="단가"/>
          <Column id="prcpexecdeptcd" type="STRING" size="256" sumtext="시행부서코드"/>
          <Column id="execdeptnm" type="STRING" size="256" sumtext="시행부서명"/>
          <Column id="outtestdeptcd" type="STRING" size="256" sumtext="시행부서명"/>
          <Column id="lastupdtrid" type="STRING" size="256" sumtext="최종수정자"/>
          <Column id="lastupdtdt" type="STRING" size="256" sumtext="최종수정일시"/>
          <Column id="pid" type="STRING" size="256" sumtext="환자id"/>
          <Column id="orddd" type="STRING" size="256" sumtext="진료일자"/>
          <Column id="prcpdd" type="STRING" size="256" sumtext="처방일자"/>
          <Column id="prcpno" type="STRING" size="256" sumtext="처방번호"/>
          <Column id="rcptstat" type="STRING" size="256" sumtext="수납상태"/>
          <Column id="rsrvflag" type="STRING" size="256" sumtext="예약구분"/>
          <Column id="rsrvdd" type="STRING" size="256" sumtext="예약일자"/>
          <Column id="rsrvtm" type="STRING" size="256" sumtext="예약시간"/>
          <Column id="m" type="STRING" size="256" sumtext="실행구분"/>
          <Column id="examseq" type="STRING" size="256" sumtext="examseq"/>
          <Column id="grupflag" type="STRING" size="256" sumtext="묶음검사 구분"/>
          <Column id="pkgcd" type="STRING" size="256" sumtext="묶음검사 구분"/>
          <Column id="dcynflag" type="STRING" size="256" sumtext="처방삭제여부"/>
          <Column id="addexamdel" type="STRING" size="256" sumtext="추가검사만 삭제여부 "/>
          <Column id="execprcpuniqno" type="STRING" size="256" sumtext="처방유일번호"/>
          <Column id="acpt_rsrvdd" type="STRING" size="256" sumtext="건진등록일자"/>
          <Column id="acpt_rsrvno" type="STRING" size="256" sumtext="예약번호"/>
          <Column id="acpt_hopedd" type="STRING" size="256" sumtext="건진접수일자"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_send_dope" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_temp_save_choiflag" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_send_save" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_send_save_choiflag" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="grp_sea.cmb_srchhealexamdetlflag" propid="value" datasetid="ds_send" columnid="srchhealexamdetlflag"/>
      <BindItem id="item1" compid="grp_sea.ipt_pid" propid="value" datasetid="ds_main_info_patinfo_item" columnid="pid"/>
      <BindItem id="item2" compid="grp_sea.ipt_pnm" propid="value" datasetid="ds_main_info_patinfo_item" columnid="hngnm"/>
      <BindItem id="item3" compid="grp_sea.opt_sex" propid="value" datasetid="ds_main_info_patinfo_item" columnid="sex"/>
      <BindItem id="item4" compid="grp_sea.opt_age" propid="value" datasetid="ds_main_info_patinfo_item" columnid="age"/>
      <BindItem id="item5" compid="grp_sea.ipt_rgstno1" propid="value" datasetid="ds_main_info_patinfo_item" columnid="rgstno1"/>
      <BindItem id="item6" compid="grp_sea.ipt_rgstno2" propid="value" datasetid="ds_main_info_patinfo_item" columnid="rgstno2"/>
      <BindItem id="item7" compid="tar_desc" propid="value" datasetid="ds_main_info_ordinfo_info" columnid="acptdesc"/>
      <BindItem id="item8" compid="rdo_choiflag" propid="value" datasetid="ds_main_info_patinfo_item" columnid="choiflag"/>
      <BindItem id="item9" compid="bool1" propid="value" datasetid="ds_send" columnid="srchchk"/>
    </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_healexamxp::AHA001.xjs";
include "ast_healthexambasexp::healcombolist.xjs";
var col_calcflag	= 3;
var col_uncocd		= 4;
var col_prcpcd		= 5;
var col_prcpnm		= 6;
var col_scoramt		= 8;
var col_execdept	= 9;
function SMAHA00700_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SMAHA00700_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(grd_histlst);
	grdf_initGrid(grd_ordlst);
	grdf_setToolTipBind(grd_histlst);
	grdf_setToolTipBind(grd_ordlst);
	
	fInitBaseInfo();
	fInitOrdInfo(true);
	if(frmf_checkOpener())
	{
		var param_healexamdetlflag 	= opener.frmf_getParameter("SMAHA00700_PARAM1");
		var param_pid 				= opener.frmf_getParameter("SMAHA00700_PARAM2");
		if(!utlf_isNull(param_healexamdetlflag) && !utlf_isNull(param_pid))
		{
			grp_sea.cmb_srchhealexamdetlflag.value = param_healexamdetlflag;
			grp_sea.ipt_pid.value =	param_pid;
			fGetPatInfo(2);
			grp_sea.btn_search.click();
		}
	}
	dsf_makeValue(ds_tmp, "cho", "string", rdo_choiflag.value);
	var oParam = {};
		oParam.id          = "TRAEB00205";
		oParam.service     = "examcurebaseapp.ComCode";
		oParam.method      = "reqGetPrcpExecDeptCdList";
		oParam.inds        = "req=ds_send_globalinstance";
		oParam.outds       = "ds_init_dept_info_initprcpexecdeptcd=item";
		oParam.async       = false;
		//oParam.callback    = "cf_TRAEB00205";

	tranf_submit(oParam);
	grd_ordlst.setFocus();
}

function fInitBaseInfo()
{
	var vHealExamFg 	= fGetHealExamFlag();
	var sDetlFg 		= "";
	if(vHealExamFg == "C")
	{
		var arrParam = [{dsNm: "ds_init_baseinfo_hedetlflaglst_A0069", cdGrpId: "A0069"}
					   ,{dsNm: "ds_init_baseinfo_statlst_A0107", cdGrpId: "A0107"}
					   ,{dsNm: "ds_init_baseinfo_testflag_A0117", cdGrpId: "A0117"}
					   ,{dsNm: "ds_init_baseinfo_ordstatlst_M0011", cdGrpId: "M0011"}
					   ,{dsNm: "ds_init_baseinfo_rcptstatlst_P0030", cdGrpId: "P0030"}
					   ,{dsNm: "ds_init_baseinfo_choiflaglst_A0116", cdGrpId: "A0116"}]
		appf_getCodeList(arrParam); 
		
		sDetlFg = "ds_init_baseinfo_hedetlflaglst_A0069";
	}
	else
	{
		var arrParam = [{dsNm: "ds_init_baseinfo_hedetlflaglst_A0070", cdGrpId: "A0070"}
					   ,{dsNm: "ds_init_baseinfo_statlst_A0107", cdGrpId: "A0107"}
					   ,{dsNm: "ds_init_baseinfo_testflag_A0117", cdGrpId: "A0117"}
					   ,{dsNm: "ds_init_baseinfo_ordstatlst_M0011", cdGrpId: "M0011"}
					   ,{dsNm: "ds_init_baseinfo_rcptstatlst_P0030", cdGrpId: "P0030"}]
		appf_getCodeList(arrParam); 
		sDetlFg = "ds_init_baseinfo_hedetlflaglst_A0070";
	}
	
	var arrParam 	= [{dsNm: "ds_init_baseinfo_examinfo_S100", cdGrpId: "S100"}];
	healGetCodeList(arrParam);
	
	//submit("TRAHA00003");
	ds_init_baseinfo_examinfo_S100.deleteRow(0);
	
	rdo_choiflag.innerdataset = "ds_init_baseinfo_examinfo_S100";
	rdo_choiflag.datacolumn = "cdnm";
	rdo_choiflag.codecolumn = "cdid";
	
	grp_sea.cmb_srchhealexamdetlflag.innerdataset = sDetlFg;
	grp_sea.cmb_srchhealexamdetlflag.datacolumn = "cdnm";
	grp_sea.cmb_srchhealexamdetlflag.codecolumn = "cdid";
	
	//submit("TRZBC00101");
	
	ds_send.setColumn(0, "srchinstcd", sysf_getUserInfo("dutplceinstcd"));
	
	var oParam = {};
		oParam.id          = "TRAHA00104";
		oParam.service     = "healexambaseapp.ComCode";
		oParam.method      = "reqGetDiscCdList";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_=disccdlst ds_init_baseinfo_pamcdlst_uncocdlst=uncocdlst ds_=cncruncocdlst ds_=calclst";
		oParam.async       = false;
		//oParam.callback    = "cf_TRAHA00104";

	tranf_submit(oParam);

	var nodelist = eval(sDetlFg);
	if(nodelist.rowcount > 0)
	{
		if(nodelist.rowcount == 1)
		{
			grp_sea.cmb_srchhealexamdetlflag.value = nodelist.getColumn(0, "cdid");
		}
		else
		{
			grp_sea.cmb_srchhealexamdetlflag.value = nodelist.getColumn(0, "cdid");
		}
	}
	var vHealExamDetlFg 	= fGetHealExamDetlFlag();
	var sDetlFg 			= "ds_init_baseinfo_hedetlflaglst_A0069";
	var nodelist = eval(sDetlFg);
	if(nodelist.rowcount > 0)
	{
		grp_sea.cmb_srchhealexamdetlflag.value =  vHealExamDetlFg;
	}
	grp_sea.ipt_pid.setFocus();
}

function fInitOrdInfo(bAll)
{
	if(bAll)
	{
		ds_main_histlst_item.clearData();
	}
	
	tar_desc.value = "";
	ds_main_info_ordinfo_info.clearData();
	ds_main_info_ordinfo_ordlst.clearData();	
}

function grp_sea_cmb_srchhealexamdetlflag_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
{
	fGetHistList();
}

function fGetHistList()
{
	var vPid = ds_main_info_patinfo_item.getColumn(0, "pid");
	if(utlf_isNull(vPid))
	{
		sysf_messageBox("환자ID를 입력하세요",  "E999");
		grp_sea.ipt_pid.setFocus();
		return ;
	}
	fInitOrdInfo(false);
	  
	ds_send.setColumn(0, "srchhealexamflag"	, fGetHealExamFlag());
	ds_send.setColumn(0, "srchstatflag"	, "C");
	ds_send.setColumn(0, "srchpid"	, vPid);
	var oParam = {};
		oParam.id          = "TRAHA00101";
		oParam.service     = "healexamrsrvacptapp.RsrvAcpt";
		oParam.method      = "reqGetHealExamHistList";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_main_histlst_item=item";
		oParam.async       = false;
		//oParam.callback    = "cf_TRAHA00101";

	tranf_submit(oParam);
}

function grp_sea_ipt_pid_onkeyup(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		obj.updateToDataset();
		fGetPatInfo(2);
		grp_sea.btn_search.click();
	}
}

function grp_sea_btn_srchpat_onclick(obj:Button,  e:ClickEventInfo)
{
	fSearchPatInfo("SMAHA00100",   "pid", grp_sea.ipt_pid.value, "Y", "ds_main_info_patinfo_item" ,"", ""); 		
	if( ds_temp.getColumn(0, "okflag") == "ok" )
	{
		grp_sea.btn_search.click();
	}
}

function grp_sea_ipt_pnm_onkeyup(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		obj.updateToDataset();
		fSearchPatInfo("SMAHA00100",   "pnm", grp_sea.ipt_pnm.value, "Y", "ds_main_info_patinfo_item" ,"", ""); 
		grp_sea.btn_search.click();
	}
}

function grp_sea_btn_search_onclick(obj:Button,  e:ClickEventInfo)
{
	fGetHistList();
	fGetOrdInfo(); 
	var oParam = {};
		oParam.id          = "TXAHA04002";
		oParam.service     = "healexambaseapp.TestCode";
		oParam.method      = "reqChoiTest";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_choitest=choitest";
		oParam.async       = false;
		//oParam.callback    = "cf_TXAHA04002";

	tranf_submit(oParam);

	GridTest();
}

function fGetOrdInfo()
{
	ds_main_info_ordinfo_ordlst.clearData();
	var idx = ds_main_histlst_item.rowposition;
	var idxs = ds_main_histlst_item.rowcount;
	
	if(idx < 0)
	{
		if(idxs > 0)
		{
			ds_main_histlst_item.rowposition = 0;
			idx = ds_main_histlst_item.rowposition;
		}
		else
		{
			sysf_messageBox("건진이력항목을 선택하세요",  "E999");
			return ;
		}
	}
	
	var statflag = ds_main_histlst_item.getColumn(idx, "statflag");
	
	ds_send.setColumn(0, "srchhealexamflag", fGetHealExamFlag());
	ds_send.setColumn(0, "srchpid", grp_sea.ipt_pid.value);
	ds_send.setColumn(0, "srchrsrvdd", ds_main_histlst_item.getColumn(idx, "rsrvdd"));
	ds_send.setColumn(0, "srchrsrvno", ds_main_histlst_item.getColumn(idx, "rsrvno"));
	
	if (statflag == "C")
	{
		ds_send.setColumn(0, "srchorddd", "");
		ds_send.setColumn(0, "srchhopedd", ds_main_histlst_item.getColumn(idx, "orddd"));
	}
	else
	{
		ds_send.setColumn(0, "srchorddd", ds_main_histlst_item.getColumn(idx, "orddd"));
	}
	ds_send.setColumn(0, "srchcretno", ds_main_histlst_item.getColumn(idx, "cretno"));
	ds_send.setColumn(0, "srchorddeptcd", ds_main_histlst_item.getColumn(idx, "orddeptcd"));
	
	dsf_makeValue(ds_send, "srchorddrid", "string", ds_main_histlst_item.getColumn(idx, "orddrid"));
	dsf_makeValue(ds_send, "srchage", "string", ds_main_info_patinfo_item.getColumn(0, "age"));
	dsf_makeValue(ds_send, "sex", "string", ds_main_info_patinfo_item.getColumn(0, "sex"));
	dsf_makeValue(ds_send, "hopedd", "string", ds_main_histlst_item.getColumn(idx, "hopedd"));
	dsf_makeValue(ds_send, "cmpyflag", "string", ds_main_histlst_item.getColumn(idx, "cmpyflag"));
	
	var oParam = {};
		oParam.id          = "TRAHA00701";
		oParam.service     = "healexamrsrvacptapp.RsrvAcpt";
		oParam.method      = "reqGetOrdInfo";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_main_info_ordinfo_ordlst=item ds_main_info_ordinfo_info=info";
		oParam.async       = false;
		//oParam.callback    = "cf_TRAHA00701";

	tranf_submit(oParam);
	
	if(utlf_isNull(ds_main_info_ordinfo_ordlst.getColumnInfo("edittype"))){
		ds_main_info_ordinfo_ordlst.addColumn("edittype", "string");
	}
	if(utlf_isNull(ds_main_info_ordinfo_ordlst.getColumnInfo("colstyle"))){
		ds_main_info_ordinfo_ordlst.addColumn("colstyle", "string");
	}
	if(utlf_isNull(ds_main_info_ordinfo_ordlst.getColumnInfo("colstyle2"))){
		ds_main_info_ordinfo_ordlst.addColumn("colstyle2", "string");
	}
			
	ds_main_info_ordinfo_ordlst.updatecontrol = false;
	dsf_setFixVal(ds_main_info_ordinfo_ordlst, "sel:N,m:u");
	ds_main_info_ordinfo_ordlst.updatecontrol = true;
	
	if(statflag =="E" || statflag =="G" || statflag =="H" || statflag =="I")
	{
		btn_seladd.enable = true;
		btn_save.enable = true;
		
		grd_ordlst.setCellProperty("Body", 1, "edittype", "checkbox");
		grd_ordlst.setCellProperty("Body", 2, "edittype", "checkbox");
	}
	else
	{
		btn_seladd.enable = false;
		btn_save.enable = false;
	}
	
	var choiflag = 	ds_main_info_ordinfo_info.getColumn(0, "choiflag");
	dsf_makeValue(ds_main_info_patinfo_item, "choiflag", "string", choiflag);
}            

function GridTest()
{
	ds_temp1_test_choitest.clearData();
	var choiflag = 	ds_main_info_ordinfo_info.getColumn(0, "choiflag");
	var spkgcd = "";
	spkgcd = ds_init_baseinfo_examinfo_S100.lookup("cdid", choiflag, "cmt");

	ds_choitest.filterstr = "pkgcd == '"+spkgcd+"'";
	ds_temp1_test_choitest.copyData(ds_choitest);
	ds_choitest.filterstr = "";
	
	dsf_makeValue(ds_tmp, "cho", "string", rdo_choiflag.value) ;
}

function grd_histlst_oncellclick(obj:Grid, e:GridClickEventInfo)
{
	fGetOrdInfo(); 
	dsf_makeValue(ds_tmp, "cho", "string", rdo_choiflag.value);
	grd_ordlst.setFocus();
}

function ds_main_info_ordinfo_ordlst_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
{
	if(e.columnid == "sel")
	{
		obj.setColumn(e.row, "sel", (e.newvalue == "Y" || e.newvalue == 1) ? "Y" : "N");
	}
	if(e.columnid == "dcflag")
	{
		obj.setColumn(e.row, "dcflag", (e.newvalue == "Y" || e.newvalue == 1) ? "Y" : "N");
		
		if(e.newvalue == "1")
		{
			obj.setColumn(e.row, "m", "d");
			obj.setColumn(e.row, "sel", "Y");
			obj.updatecontrol = false;
			obj.setRowType(e.row, "d");
			obj.updatecontrol = true;
		}
		else
		{
			obj.setColumn(e.row, "m", "u");
			obj.updatecontrol = false;
			obj.setRowType(e.row, "");
			obj.updatecontrol = true;
		}
		
		var spkgcd = obj.getColumn(e.row, "pkgcd");
		var stestflag = obj.getColumn(e.row, "testflag");
		var sprcpdd = obj.getColumn(e.row, "prcpdd");
		
		if (stestflag == "A")
		{
			if (e.newvalue == "1")
			{
				if (utlf_isNull(spkgcd) || spkgcd == "-")
				{
				}
				else
				{
					for (var j = 0; j < obj.rowcount; j ++)
					{
						if (obj.getColumn(j, "pkgcd") == spkgcd && obj.getColumn(j, "prcpdd") == sprcpdd)
						{
							obj.setColumn(j, "m", "d");
							obj.setColumn(j, "sel", "Y");
							obj.setColumn(j, "dcflag", "Y");
							
							obj.updatecontrol = false;
							ds_main_info_ordinfo_ordlst.setColumn(j, "edittype", "none");
							ds_main_info_ordinfo_ordlst.setColumn(j, "colstyle", "silver");
							ds_main_info_ordinfo_ordlst.setColumn(j, "colstyle2", "1 solid #708090cc");					
							obj.setRowType(j, "d");
							obj.updatecontrol = true;
						}
					}
				}
			}
			else
			{
				if (utlf_isNull(spkgcd) || spkgcd == "-")
				{
				}
				else
				{
					for (var j = 0; j < obj.rowcount; j ++)
					{
						if (obj.getColumn(j, "pkgcd") == spkgcd && obj.getColumn(j, "prcpdd") == sprcpdd)
						{
							obj.setColumn(j, "sel", "N");
							obj.updatecontrol = false;
							obj.setRowType(j, "d");
							ds_main_info_ordinfo_ordlst.setColumn(j, "edittype", "checkbox");
							ds_main_info_ordinfo_ordlst.setColumn(j, "colstyle", "");
							ds_main_info_ordinfo_ordlst.setColumn(j, "colstyle2", "");			
							obj.updatecontrol = true;
						}
					}
				}
			}
		}
	}
	
	if(e.columnid == "testcd")
	{							
		var idx = e.row;
		if( idx < 0) return ;
		
		fGetPkgCd("SMAHA00100", "A", "N","cd" , col_prcpcd , "" , "", ds_main_info_ordinfo_ordlst, "Y"); 
		fDupCheck(grd_ordlst , "testcd");
		fCalcOrdAmt();
	}	
	if (e.columndid == "testflag")
	{
		fPrcpDanga();
	}
	if (e.columnid == "uncocd")
	{
		var suncocd = e.newvalue;
		if (suncocd == "V02")
		{
			var sdanga = parseFloat(obj.getColumn(e.row, "scoreamt"));
			dsf_makeValue(ds_hidd, "danga", sdanga);
			sdanga = parseInt(sdanga * 0.1);
			sdanga = sdanga * 10;
			obj.setColumn(e.row, "scoreamt", sdanga);
		}
		else
		{
			var vCnt = ds_hidd.rowcount;
			if (vCnt > 0)
			{
				obj.setColumn(e.row, "scoreamt", ds_hidd.getColumn(0, "danga"));
			}
		}
	}

	fCalcOrdAmt();
}

function grd_ordlst_onexpanddown(obj:Grid, e:GridMouseEventInfo)
{
	if( e.col == col_prcpcd ) 
	{
		var idx = ds_main_info_ordinfo_ordlst.rowposition;
		if( idx < 0) return ;
		fGetPkgCd("SMAHA00100", "A", "N","cd" , ds_main_info_ordinfo_ordlst.getColumn(idx, "testcd"), "" , "", "ds_main_info_ordinfo_ordlst", "Y"); 		//AHA001.js
		fDupCheck(grd_ordlst , "testcd");
		fCalcOrdAmt();
	}
}

function fDupCheck(vGrdObj , vTestCdCol )
 {
	var chk_idx = this.objects[vGrdObj.binddataset].rowcount;
	var vDesTestcd = this.objects[vGrdObj.binddataset].getColumn(chk_idx , vTestCdCol );			
	
	for(var i = 0; i < chk_idx ; i++ )
	{
		vTestcd = this.objects[vGrdObj.binddataset].getColumn(i, "testcd");
		vTestnm = this.objects[vGrdObj.binddataset].getColumn(i, "testnm");
		
		if(vDesTestcd == vTestcd)	
		{
			if( sysf_messageBox("중복되는 검사코드[" + vTestcd + " - " + vTestnm  +"] 를 추가 ", "S001") != 6 )
			{
				this.objects[vGrdObj.binddataset].deleteRow(chk_idx);						
			}
			break;
		}				
	}
}

function fCalcOrdAmt()
{
	var cnt = ds_main_info_ordinfo_ordlst.rowcount;
	if( cnt < 1) return ;

	var vDcAmt 	= ds_main_info_ordinfo_info.getColumn(0, "dcamt");
	if( utlf_isNull(vDcAmt) ) vDcAmt = "0";
	vDcAmt = parseInt(vDcAmt);
	
	var vAddAmt 	= ds_main_info_ordinfo_info.getColumn(0, "addamt");
	if( utlf_isNull(vAddAmt) ) vAddAmt = "0";
	vAddAmt = parseInt(vAddAmt);
	
	var vSelAmt 	= ds_main_info_ordinfo_info.getColumn(0, "selamt");
	if( utlf_isNull(vSelAmt) ) vSelAmt = "0";
	vSelAmt = parseInt(vSelAmt);
	
	var vCmpyAmt 	= ds_main_info_ordinfo_info.getColumn(0, "cmpyaddamt");
	if( utlf_isNull(vCmpyAmt) ) vCmpyAmt = "0";
	vCmpyAmt = parseInt(vCmpyAmt);

	var vTmpDc  	= 0;
	var vTmpSel  	= 0;
	var vTmpAdd  	= 0;
	var vTmpCmpy	= 0;
	var vTmp		= "";
	var vTmpAmt   	= 0;
	for ( var i = 0; i < cnt ; i++)
	{
		if( ds_main_info_ordinfo_ordlst.getRowType(i) == 8)
		{
			vTmp = ds_main_info_ordinfo_ordlst.getColumn(i, col_scoramt );
			if( utlf_isNull(vTmp) ) vTmp = "0";
			vTmpAmt	= parseInt(vTmp);
			vTmpDc += vTmpAmt;
			vTmp = ds_main_info_ordinfo_ordlst.getColumn(i, col_calcflag ) ; 
			if( vTmp = "A" )
			{
				vTmp = ds_main_info_ordinfo_ordlst.getColumn(i, col_uncocd ) ; 
				if( vTmp== "V01" ) //개인 
				{
					vTmpAdd -= vTmpAmt;
				}
				else if( (vTmp== "V02" )  || (vTmp == "V03" ) )//단체 , 개인/단체
				{
					vTmpCmpy -= vTmpAmt;
				}
			}
			else if( vTmp == "S" )
			{
				vTmpSel -= vTmpAmt ;
			}	
		}	
		else if( ds_main_info_ordinfo_ordlst.getRowType(i) == 2 ) //insert 
		{
			vTmp = ds_main_info_ordinfo_ordlst.getColumn(i, col_calcflag ) ; 
			if( vTmp = "A" )
			{
				vTmp = ds_main_info_ordinfo_ordlst.getColumn(i, col_uncocd ) ; 
				if( vTmp== "V01" ) //개인 
				{
					vTmp = ds_main_info_ordinfo_ordlst.getColumn(i, col_scoramt );
					if( utlf_isNull(vTmp) ) vTmp = "0";
					vTmpAdd += parseInt(vTmp);
				}
				else if( (vTmp== "V02" )  || (vTmp == "V03" ) )//단체 , 개인/단체
				{
					vTmp = ds_main_info_ordinfo_ordlst.getColumn(i, col_scoramt );
					if( utlf_isNull(vTmp) ) vTmp = "0";
					vTmpCmpy += parseInt(vTmp);
				}
			}
			else if( vTmp = "S" )
			{
				vTmp = ds_main_info_ordinfo_ordlst.getColumn(i, col_scoramt );
				if( utlf_isNull(vTmp) ) vTmp = "0";
				vTmpSel += parseInt(vTmp);
			}
		}
	}

	ds_main_info_ordinfo_info.setColumn(0, "dcamt" 	, vDcAmt 	+ vTmpDc);
	ds_main_info_ordinfo_info.setColumn(0, "addamt" 	, vAddAmt 	+ vTmpAdd);
	ds_main_info_ordinfo_info.setColumn(0, "selamt" 	, vSelAmt 	+ vTmpSel);
	ds_main_info_ordinfo_info.setColumn(0, "cmpyaddamt" 	, vCmpyAmt 	+ vTmpCmpy);
}             

function grd_ordlst_oncellclick(obj:Grid, e:GridClickEventInfo)
{
	if(!(ds_main_info_ordinfo_ordlst.rowposition < 0 && e.col == 2)) return;
						
	var cnt = ds_main_info_ordinfo_ordlst.rowcount;
	
	if(ds_main_info_ordinfo_ordlst.getCaseCount("dcflag == 'Y'") != ds_main_info_ordinfo_ordlst.rowcount)
	{
		for(var i = 0; i < cnt ; i++)
		{
			ds_main_info_ordinfo_ordlst.setColumn(i, "m"			, "d");
			ds_main_info_ordinfo_ordlst.setColumn(i, "sel"			, "Y");
			ds_main_info_ordinfo_ordlst.setColumn(i, "dcflag"		, "Y");
			
			ds_main_info_ordinfo_ordlst.updatecontrol = false;
			ds_main_info_ordinfo_ordlst.setRowType(i, "d");
			ds_main_info_ordinfo_ordlst.updatecontrol = true;
		}
	}
	else
	{
		for(var i = 0; i < cnt ; i++)
		{
			ds_main_info_ordinfo_ordlst.setColumn(i, "m"			, "d");
			ds_main_info_ordinfo_ordlst.setColumn(i, "sel"			, "Y");
			ds_main_info_ordinfo_ordlst.setColumn(i, "dcflag"		, "Y");
			
			ds_main_info_ordinfo_ordlst.updatecontrol = false;
			ds_main_info_ordinfo_ordlst.setRowType(i, "d");
			ds_main_info_ordinfo_ordlst.updatecontrol = true;
		}
	}
}

function fPrcpDanga()
{
	ds_send1.clearData();
	
	dsf_makeValue(ds_send1, "healexamflag", "string", ds_main_histlst_item.getColumn(ds_main_histlst_item.rowposition, "healexamflag"));
	dsf_makeValue(ds_send1, "rsrvdd", "string", ds_main_histlst_item.getColumn(ds_main_histlst_item.rowposition, "rsrvdd"));
	dsf_makeValue(ds_send1, "rsrvno", "string", ds_main_histlst_item.getColumn(ds_main_histlst_item.rowposition, "rsrvno"));
	dsf_makeValue(ds_send1, "testflag", "string", ds_main_info_ordinfo_ordlst.getColumn(ds_main_info_ordinfo_ordlst.rowposition, "testflag"));
	dsf_makeValue(ds_send1, "testcd", "string", ds_main_info_ordinfo_ordlst.getColumn(ds_main_info_ordinfo_ordlst.rowposition, "testcd"));
	dsf_makeValue(ds_send1, "cmpyflag", "string", ds_main_histlst_item.getColumn(ds_main_histlst_item.rowposition, "cmpyflag"));
	dsf_makeValue(ds_send1, "age", "string", ds_main_info_patinfo_item.getColumn(0, "age"));
	dsf_makeValue(ds_send1, "cmpycd", "string", ds_main_histlst_item.getColumn(ds_main_histlst_item.rowposition, "cmpycd"));
	dsf_makeValue(ds_send1, "conseq", "string", ds_main_histlst_item.getColumn(ds_main_histlst_item.rowposition, "conseq"));
	dsf_makeValue(ds_send1, "conhistseq", "string", ds_main_histlst_item.getColumn(ds_main_histlst_item.rowposition, "conhistseq"));
	dsf_makeValue(ds_send1, "statflag", "string", ds_main_histlst_item.getColumn(ds_main_histlst_item.rowposition, "statflag"));
	dsf_makeValue(ds_send1, "forgneryn", "string", opener.frmf_getParameter("SMAHA00700_PARAM3"));
	dsf_makeValue(ds_send1, "agencyrate", "string", opener.frmf_getParameter("SMAHA00700_PARAM4"));
	
	var oParam = {};
		oParam.id          = "TRAHA00702";
		oParam.service     = "healexamrsrvacptapp.RsrvAcpt";
		oParam.method      = "reqGetDangaInfo";
		oParam.inds        = "req=ds_send1";
		oParam.outds       = "ds_price_dangainfo=item";
		oParam.async       = false;
		//oParam.callback    = "cf_TRAHA00702";

	tranf_submit(oParam);
	var suncocd = ds_main_info_ordinfo_ordlst.getColumn(ds_main_info_ordinfo_ordlst.rowposition, "scoreamt");
	dsf_makeValue(ds_main_info_ordinfo_ordlst, "scoreamt", "string", ds_price_dangainfo.getColumn(0, "danga"), ds_main_info_ordinfo_ordlst.rowposition);
}

function rdo_choiflag_onitemchanged(obj:Radio, e:ItemChangeEventInfo)
{
	if(ds_main_info_ordinfo_info.getColumn(0, "choiflag") != ds_main_info_patinfo_item.getColumn(0, "choiflag"))
	{
		var rtn = sysf_messageBox("선택검사를 변경 하시겠습니까? ", "Q099");
		if(rtn == 6)
		{
			dsf_makeValue(ds_temp, "choiflagchangeyn", "string", "Y");
			for (var i = 0; i < ds_temp1_test.rowcount; i++)
			{
				var stestcd = ds_temp1_test.getColumn(i, "testcd");
				var spkgcd = ds_temp1_test.getColumn(i, "pkgcd");
				for(var j = 0; j < ds_main_info_ordinfo_ordlst.rowcount; j++)
				{
					if (ds_main_info_ordinfo_ordlst.getColumn(j, "testcd") == stestcd && ds_main_info_ordinfo_ordlst.getColumn(j, "pkgcd") == spkgcd)
					{
						ds_main_info_ordinfo_ordlst.setColumn(j, "m", "d");
						ds_main_info_ordinfo_ordlst.setColumn(j, "sel", "Y");
						ds_main_info_ordinfo_ordlst.setColumn(j, "dcflag", "Y");
						
						grd_ordlst.setCellProperty("Body", 2, "edittype", "none");
						ds_main_info_ordinfo_ordlst.updatecontrol = false;
						ds_main_info_ordinfo_ordlst.setRowType(j, "d");
						ds_main_info_ordinfo_ordlst.updatecontrol = true;
						continue;
					}
				}
			}
		}
		else if(rtn == 7)
		{
			rdo_choiflag.value = selcho;
			return false;
		}
	}
	else
	{
		dsf_makeValue(ds_temp, "choiflagchangeyn", "string", "N");
		for (var i = 0; i < ds_temp1_test.rowcount; i ++)
		{
			var stestcd = ds_temp1_test.getColumn(i, "testcd");
			var spkgcd = ds_temp1_test.getColumn(i, "pkgcd");
			
			for (var j = 0; j < ds_main_info_ordinfo_ordlst.rowcount; j ++)
			{
				if(ds_main_info_ordinfo_ordlst.getColumn(j, "testcd") == stestcd && ds_main_info_ordinfo_ordlst.getColumn(j, "pkgcd") == spkgcd)
				{
					if (ds_main_info_ordinfo_ordlst.getColumn(j, "dcflag") == "Y")
					{
						ds_main_info_ordinfo_ordlst.setColumn(j ,"sel"		, "N");
						ds_main_info_ordinfo_ordlst.setColumn(j ,"dcflag"		, "N");
						
						ds_main_info_ordinfo_ordlst.updatecontrol = false;
						ds_main_info_ordinfo_ordlst.setRowType(j, "");
						ds_main_info_ordinfo_ordlst.updatecontrol = true;
						
						grd_ordlst.setCellProperty("Body", 2, "edittype", "checkbox");
						continue;
					}
				}
			}
		}
	}
}

function btn_seladd_onclick(obj:Button,  e:ClickEventInfo)
{
	var choitestcd = ds_tmp.getColumn(0, "cho");
	fGetPkgCd("SMAHA00100", "A", "Y", "nm", "", "", "", "ds_temp_templst", "Y", "", "", "", opener.frmf_getParameter("SMAHA00700_PARAM3"), opener.frmf_getParameter("SMAHA00700_PARAM4"));
	fSetAddList(grd_ordlst, col_prcpcd, "ds_temp_templst", "Y", "", ds_main_histlst_item.getColumn(0, "pkgcd")); 	//AHA001.js

	if(!utlf_isNull(ds_temp.getColumn(0, "okflag")))
	{
		fPrcpDanga();
		ds_main_info_ordinfo_ordlst.rowposition = ds_main_info_ordinfo_ordlst.rowcount-1;
		
		grd_ordlst.showEditor(true);
		
		dsf_makeValue(ds_send2, "popchk", "string", "Y");
	}
	dsf_makeValue(ds_tmp, "cho", "string", choitestcd);
}

function button2_onclick(obj:Button,  e:ClickEventInfo)
{
	if(sysf_messageBox("상태변경 ", "Q002") != 6) return;
						
	if(ds_main_histlst_item.rowposition < 0)
	{
		sysf_messageBox("건진이력을 ", "C002");
		return;
	}
	
	var nodeList = ds_main_info_ordinfo_ordlst.getCaseCount("sel == 'Y'");
	var updData = grdf_getGridUpdateData(grd_ordlst).rowcount;
	if((nodeList < 1)  || (updData == 0))
	{
		sysf_messageBox("저장할 데이터가 존재하지 않습니다.", "E999");
		return;
	}

	var oParam = {};
		oParam.id          = "TXAHA00703";
		oParam.service     = "healexamrsrvacptapp.RsrvAcpt";
		oParam.method      = "reqExePrcpStatUpd2";
		oParam.inds        = "savelist=ds_main_info_ordinfo_ordlst";
		oParam.outds       = "ds_=save";
		oParam.async       = false;
		oParam.callback    = "cf_TXAHA00703";

	tranf_submit(oParam);
}

function cf_TXAHA00703(sSvcId, nErrorCode, sErrorMsg) 
{
    if(nErrorCode < 0) return;
    else
    {
		fGetOrdInfo();
		GridTest();
		dsf_makeValue(ds_tmp, "cho", "string", rdo_choiflag.value) ;	
    }
}

function button1_onclick(obj:Button,  e:ClickEventInfo)
{
	var nodeList = ds_main_info_ordinfo_ordlst.getCaseCount("rcptstat =='000'");
	
	ds_send_saveinfo_savelist.clearData();
	
	for(var i = 0; i < ds_main_info_ordinfo_ordlst.rowcount; i++)
	{
		if(ds_main_info_ordinfo_ordlst.getColumn(i, "rcptstat") == "000")
		{
			var addRow = ds_send_saveinfo_savelist.addRow();
			ds_send_saveinfo_savelist.copyRow(addRow, ds_main_info_ordinfo_ordlst, i);
		}
	}
	
	ds_send_saveinfo_savelist.updateColID("testflag", "pkgflag");
	
	var oParam = {};
		oParam.id          = "TXAHA00702";
		oParam.service     = "healexamrsrvacptapp.RsrvAcpt";
		oParam.method      = "reqExePrcpStatUpd";
		oParam.inds        = "savelist=ds_send_saveinfo_savelist";
		oParam.outds       = "ds_=save";
		oParam.async       = false;
		oParam.callback    = "cf_TXAHA00702";

	tranf_submit(oParam);
}

function cf_TXAHA00702(sSvcId, nErrorCode, sErrorMsg) 
{
    if(nErrorCode < 0) return;
    else
    {
		fGetOrdInfo();
		GridTest();
		fDope();
		dsf_makeValue(ds_tmp, "cho",rdo_choiflag.value);
    }
}

function fDope()
{
	ds_send_dope.clearData();
	dsf_makeValue(ds_send_dope, "instcd", "string", ds_send.getColumn(0, "srchinstcd"));
	dsf_makeValue(ds_send_dope, "pid", "string", ds_send.getColumn(0, "srchpid"));
	dsf_makeValue(ds_send_dope, "orddd", "string", ds_send.getColumn(0, "srchorddd"));
	dsf_makeValue(ds_send_dope, "cretno", "string", ds_send.getColumn(0, "srchcretno"));
	dsf_makeValue(ds_send_dope, "orddrid", "string", ds_send.getColumn(0, "srchorddrid"));
	dsf_makeValue(ds_send_dope, "orddeptcd", "string", ds_send.getColumn(0, "srchorddeptcd"));
	
	dsf_setFixVal(ds_send_dope, "prcpgenrflag:S");
	var oParam = {};
		oParam.id          = "TXAHA00105";
		oParam.service     = "healexamrsrvacptapp.RsrvAcpt";
		oParam.method      = "reqExeDrugSum";
		oParam.inds        = "req=ds_send_dope";
		oParam.outds       = "ds_=save";
		oParam.async       = false;
		//oParam.callback    = "cf_TXAHA00105";

	tranf_submit(oParam);
}

function btn_save_onclick(obj:Button,  e:ClickEventInfo)
{
	fChangeCode();
	fSavePrcp();
	fGetOrdInfo(); 
	GridTest();
	dsf_makeValue(ds_tmp, "cho", "string", rdo_choiflag.value);
}

function fChangeCode(choi)
{
	dsf_makeValue(ds_temp_save_choiflag, "choiValue", "string", "");

	if(ds_tmp.getColumn(0, "cho") != rdo_choiflag.value)
	{
		dsf_makeValue(ds_temp, "choiflagchangeyn", "string", "N");
		dsf_makeValue(ds_temp_save_choiflag, "choiValue", "string", rdo_choiflag.value);
		var stestcd 	= ds_init_baseinfo_examinfo_S100.lookup("cdid", rdo_choiflag.value, "cdid");
		var stestnm 	= ds_init_baseinfo_examinfo_S100.lookup("cdid", rdo_choiflag.value, "cdnm");
		var sexcucd 	= ds_init_baseinfo_examinfo_S100.lookup("cdid", rdo_choiflag.value, "cmt");
		if(!utlf_isNull(sexcucd))
		{
			var addRow = ds_main_info_ordinfo_ordlst.addRow();
			ds_main_info_ordinfo_ordlst.setColumn(addRow, "sel", "Y");
			ds_main_info_ordinfo_ordlst.setColumn(addRow, "dcflag", "N");
			ds_main_info_ordinfo_ordlst.setColumn(addRow, "testflag", "S");
			ds_main_info_ordinfo_ordlst.setColumn(addRow, "uncocd", "V01");
			ds_main_info_ordinfo_ordlst.setColumn(addRow, "testcd", sexcucd);
			ds_main_info_ordinfo_ordlst.setColumn(addRow, "testnm", stestnm);
			ds_main_info_ordinfo_ordlst.setColumn(addRow, "dcynflag", "");
			ds_main_info_ordinfo_ordlst.setColumn(addRow, "scoreamt", ds_price_dangainfo.getColumn(0, "danga"));
			ds_main_info_ordinfo_ordlst.setColumn(addRow, "prcpexecdeptcd", "");
			ds_main_info_ordinfo_ordlst.setColumn(addRow, "lastupdtrid", "");
			ds_main_info_ordinfo_ordlst.setColumn(addRow, "lastupdtdt", "");
			ds_main_info_ordinfo_ordlst.setColumn(addRow, "prcpdd", "");
			ds_main_info_ordinfo_ordlst.setColumn(addRow, "prcpno", "");
			ds_main_info_ordinfo_ordlst.setColumn(addRow, "m", "");
			ds_main_info_ordinfo_ordlst.setColumn(addRow, "rcptstat", "");
			ds_main_info_ordinfo_ordlst.setColumn(addRow, "calcscorcd", sexcucd);
			ds_main_info_ordinfo_ordlst.setColumn(addRow, "grupflag", "S");
			
			ds_main_info_ordinfo_ordlst.updatecontrol = false;
			ds_main_info_ordinfo_ordlst.setRowType(addRow, "i");
			ds_main_info_ordinfo_ordlst.updatecontrol = true;
		}
	}
}
		
function fSavePrcp()
{
	if(sysf_messageBox("처방내역을 ", "Q002") != 6) return;

	if(ds_main_histlst_item.rowposition < 0)
	{
		sysf_messageBox("건진이력을 ", "C002");
		return;
	}

	var nodeRcptstatList = ds_main_info_ordinfo_ordlst.getCaseCount("sel == 'Y' && dcflag == 'Y' && rcptstat > '230'");
	if(nodeRcptstatList > 0)
	{
		sysf_messageBox("D/C처리 가능한 처방상태가 아닙니다.", "E999");
		return;
	}
	var nodeList = ds_main_info_ordinfo_ordlst.getCaseCount("sel == 'Y'");
	var updData = grdf_getGridUpdateData(grd_ordlst).rowcount;
	if((nodeList < 1) || (updData == 0))
	{
		sysf_messageBox("저장할 데이터가 존재하지 않습니다.", "E999");
		return;
	}
	
	ds_send_save.clearData();
	ds_send_save_choiflag.clearData();
	
	for(var i = 0; i < ds_main_info_ordinfo_ordlst.rowcount; i++)
	{
		ds_main_info_ordinfo_ordlst.updatecontrol = false;
		dsf_makeValue(ds_main_info_ordinfo_ordlst, "hopedd", "string", ds_main_info_ordinfo_ordlst.getColumn(i, "testflag"), i);
		ds_main_info_ordinfo_ordlst.updatecontrol = true;
	}
	
	var sNode = ds_main_histlst_item;
	dsf_makeValue(ds_send_save, "healexamflag", "string", fGetHealExamFlag());
	dsf_makeValue(ds_send_save, "healexamdetlflag", "string", grp_sea.cmb_srchhealexamdetlflag.value);
	dsf_makeValue(ds_send_save, "rsrvdd", "string", sNode.getColumn(sNode.rowposition, "rsrvdd"));
	dsf_makeValue(ds_send_save, "rsrvno", "int", sNode.getColumn(sNode.rowposition, "rsrvno"));
	dsf_makeValue(ds_send_save, "pid", "string", sNode.getColumn(sNode.rowposition, "pid"));
	dsf_makeValue(ds_send_save, "orddd", "string", sNode.getColumn(sNode.rowposition, "orddd"));
	dsf_makeValue(ds_send_save, "cretno", "string", sNode.getColumn(sNode.rowposition, "cretno"));
	dsf_makeValue(ds_send_save, "orddeptcd", "string", sNode.getColumn(sNode.rowposition, "orddeptcd"));
	dsf_makeValue(ds_send_save, "orddrid", "string", sNode.getColumn(sNode.rowposition, "orddrid"));
	dsf_makeValue(ds_send_save, "uncocd", "string", sNode.getColumn(sNode.rowposition, "uncocd"));
	dsf_makeValue(ds_send_save, "disccd", "string", sNode.getColumn(sNode.rowposition, "disccd"));
	dsf_makeValue(ds_send_save, "instcd", "string", sysf_getUserInfo("dutplceinstcd"));
	dsf_makeValue(ds_send_save, "sex", "string", ds_main_info_patinfo_item.getColumn(0, "rsrvdd"));
	dsf_makeValue(ds_send_save, "srchchk", "string", ds_send.getColumn(0, "srchchk"));
	dsf_makeValue(ds_send_save, "hopedd", "string", sNode.getColumn(sNode.rowposition, "hopedd"));
	dsf_makeValue(ds_send_save, "healexamplacecd", "string", sNode.getColumn(sNode.rowposition, "healexamplacecd"));
	
	dsf_makeValue(ds_send_save_choiflag, "choiflagchangeyn", "string", ds_temp.getColumn(0, "choiflagchangeyn"));
	dsf_makeValue(ds_send_save_choiflag, "choiflag", "string", ds_main_info_patinfo_item.getColumn(0, "choiflag"));
	dsf_makeValue(ds_send_save_choiflag, "choiValue", "string", ds_temp_save_choiflag.getColumn(0, "choiValue"));
	
	ds_main_info_ordinfo_ordlst.updateColID("testflag","pkgflag");
	
	var oParam = {};
		oParam.id          = "TXAHA00701";
		oParam.service     = "healexamrsrvacptapp.RsrvAcpt";
		oParam.method      = "reqExePrcp";
		oParam.inds        = "saveinfo=ds_send_save saveordlst=ds_main_info_ordinfo_ordlst:u choiflag=ds_send_save_choiflag";
		oParam.outds       = "ds_=save";
		oParam.async       = false;
		oParam.callback    = "cf_TXAHA00701";

	tranf_submit(oParam);
}

function cf_TXAHA00701(sSvcId, nErrorCode, sErrorMsg)
{
    if(nErrorCode < 0) return;
    else
    {
		ahafOpenRcpt(ds_send_save.getColumn(0, "healexamflag"), ds_send_save.getColumn(0, "rsrvdd"), ds_send_save.getColumn(0, "rsrvno")
					, ds_send_save.getColumn(0, "pid"), ds_main_histlst_item.getColumn(ds_main_histlst_item.rowposition, "rcptstat"), ds_send_save.getColumn(0, "orddd"));
    }
}

function btn_clear_onclick(obj:Button,  e:ClickEventInfo)
{
	fGetHistList();
}
]]></Script>
  </Form>
</FDL>