YNU_JEUS/app_home/himed/xpapps/ast/examcurexp/xp/SPAEA05100_검사실변경.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPAEA05100" position="absolute 0 0 647 469" titletext="검사실 변경" oninit="SPAEA05100_oninit" onload="SPAEA05100_onload">
    <Layouts>
      <Layout>
        <Static text="검사실 변경" position="absolute 0 0 170 23" id="caption19" class="tit_1"/>
        <Grid id="grd_subpopordlist" taborder="1" binddataset="ds_main_subpopordlist_ordlist" useinputpanel="false" position="absolute 213 54 640 463" autofittype="col" cellsizingtype="col" anchor="all">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="21"/>
                <Column size="69"/>
                <Column size="66"/>
                <Column size="133"/>
                <Column size="120"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="37"/>
              </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="유일번호"/>
                <Cell col="7" text="처방일자"/>
                <Cell col="8" text="수행부서코드"/>
                <Cell col="9" text="PACS연동코드"/>
              </Band>
              <Band id="body">
                <Cell displaytype="checkbox" edittype="checkbox" text="bind:check" expr="expr:check == 'Y' ? 1 :0"/>
                <Cell col="1" text="bind:pid"/>
                <Cell col="2" text="bind:patnm"/>
                <Cell col="3" style="align:left middle;" text="bind:prcpnm" wordwrap="word"/>
                <Cell col="4" displaytype="date" text="bind:rsrvdt" mask="yyyy-MM-dd hh:mm:ss"/>
                <Cell col="5" text="bind:excuroomcd"/>
                <Cell col="6" text="bind:execprcpuniqno"/>
                <Cell col="7" text="bind:prcpdd"/>
                <Cell col="8" text="bind:basesuppdeptcd"/>
                <Cell col="9" text="bind:pacsnocretyn"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Button id="btn_cls" taborder="2" text="닫기" class="btn4" position="absolute 584 27 640 49" onclick="btn_cls_onclick"/>
        <Button id="btn_accept" taborder="3" text="환자받기" class="btn4" position="absolute 502 27 582 49" onclick="btn_accept_onclick"/>
        <Shape id="line14" class="line_10" position="absolute 0 49 205 55"/>
        <Static id="caption2" text="실별대기현황" class="tit_2" position="absolute 0 33 133 54"/>
        <Grid id="grd_subordlist" taborder="4" binddataset="ds_main_subordlist_subordlist" useinputpanel="false" position="absolute 0 54 205 463" autofittype="col" cellsizingtype="col" anchor="left top bottom" oncellclick="grd_subordlist_oncellclick">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="130"/>
                <Column size="33"/>
                <Column size="38"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell text="검사실"/>
                <Cell col="1" text="인원"/>
                <Cell col="2" text="건수"/>
                <Cell col="3" text="검사실코드"/>
                <Cell col="4" text="검사실그룹코드"/>
                <Cell col="5" text="openyn"/>
              </Band>
              <Band id="body">
                <Cell style="align:left middle;" text="bind:basecdflagdesc"/>
                <Cell col="1" displaytype="number" text="bind:cnt"/>
                <Cell col="2" displaytype="number" text="bind:partcntstats"/>
                <Cell col="3" text="bind:basecd"/>
                <Cell col="4" text="bind:basecdcnts"/>
                <Cell col="5" text="bind:baseroomopenyn"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Static id="caption3" text="환자대기현황" class="tit_2" position="absolute 213 33 354 54"/>
        <Shape id="line13" class="line_10" position="absolute 213 49 640 55"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="srchdate1" type="STRING" size="256"/>
          <Column id="srchdate2" type="STRING" size="256"/>
          <Column id="initexcuroomgrp" type="STRING" size="256"/>
          <Column id="initexcuroom" type="STRING" size="256"/>
          <Column id="acptlistflag" type="STRING" size="256"/>
          <Column id="srchflag" type="STRING" size="256"/>
          <Column id="rsrvyn" type="STRING" size="256"/>
          <Column id="pacsnocretyn" type="STRING" size="256"/>
          <Column id="basesuppdeptcd" type="STRING" size="256"/>
          <Column id="srchpid" type="STRING" size="256"/>
          <Column id="rbasecdflag" type="STRING" size="256"/>
          <Column id="execprcpstat440cd" type="STRING" size="256"/>
          <Column id="execprcpstat600cd" type="STRING" size="256"/>
          <Column id="transactiongubn" type="STRING" size="256"/>
          <Column id="largeclass" type="STRING" size="256"/>
          <Column id="ioflag" type="STRING" size="256"/>
          <Column id="srchcalcscorcd" type="STRING" size="256"/>
          <Column id="srchgrpcalcscorcd" type="STRING" size="256"/>
          <Column id="excuroomcdid" type="STRING" size="256"/>
          <Column id="examcureflag" type="STRING" size="256"/>
          <Column id="syncflag" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="srchdate1"/>
            <Col id="srchdate2"/>
            <Col id="initexcuroomgrp"/>
            <Col id="initexcuroom"/>
            <Col id="acptlistflag"/>
            <Col id="srchflag"/>
            <Col id="rsrvyn"/>
            <Col id="pacsnocretyn"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_subordlist_subordlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="basecdflagdesc" type="STRING" size="256" sumtext="검사실명"/>
          <Column id="cnt" type="STRING" size="256" sumtext="대기인원수"/>
          <Column id="partcntstats" type="STRING" size="256" sumtext="부위건수"/>
          <Column id="basecd" type="STRING" size="256" sumtext="검사실코드"/>
          <Column id="basecdcnts" type="STRING" size="256" sumtext="검사실그룹코드"/>
          <Column id="baseroomopenyn" type="STRING" size="256" sumtext="검사실개폐여부"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_main_subpopordlist_ordlist" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_main_subpopordlist_ordlist_oncolumnchanged">
        <ColumnInfo>
          <Column id="check" type="STRING" size="256" sumtext="선택"/>
          <Column id="pid" type="STRING" size="256" sumtext="등록번호"/>
          <Column id="patnm" type="STRING" size="256" sumtext="환자명-핵체내접수실시만"/>
          <Column id="prcpdd" type="STRING" size="256" sumtext="처방일자"/>
          <Column id="prcpnm" type="STRING" size="256" sumtext="처방명"/>
          <Column id="execprcpstatcd" type="STRING" size="256" sumtext="실시처방상태구분코드"/>
          <Column id="payflagcd" type="STRING" size="256" sumtext="급여구분-핵체내접수실시만"/>
          <Column id="rsrvdd" type="STRING" size="256" sumtext="예약일자-핵체내접수실시만"/>
          <Column id="prcphopedd" type="STRING" size="256" sumtext="희망일자-핵체내접수실시만"/>
          <Column id="orddepthngnm" type="STRING" size="256" sumtext="진료과명-핵체내접수실시만"/>
          <Column id="orddrnm" type="STRING" size="256" sumtext="진료의명-핵체내접수실시만"/>
          <Column id="ivinputyn" type="STRING" size="256" sumtext="IV입력여부, 핵체내접수실시"/>
          <Column id="cntctel" type="STRING" size="256" sumtext="내선번호-핵체내접수실시만"/>
          <Column id="arvtm" type="STRING" size="256" sumtext="도착시간, 핵체내접수실시"/>
          <Column id="prcpkindcd" type="STRING" size="256" sumtext="처방종류구분코드"/>
          <Column id="excuroomnm" type="STRING" size="256" sumtext="검사실명"/>
          <Column id="rgstdepthngnm" type="STRING" size="256" sumtext="최초처방등록과명"/>
          <Column id="rgstridnm" type="STRING" size="256" sumtext="최초처방등록의사명"/>
          <Column id="prcpgenrflag" type="STRING" size="256" sumtext="입원외래구분"/>
          <Column id="basecd" type="STRING" size="256" sumtext="취소코드"/>
          <Column id="rsrvdt" type="STRING" size="256" sumtext="예약일시"/>
          <Column id="prcphopedt" type="STRING" size="256" sumtext="처방희망일시"/>
          <Column id="execprcpuniqno" type="INT" size="256" sumtext="실시처방유일번호"/>
          <Column id="calcscorcd" type="STRING" size="256" sumtext="수가코드"/>
          <Column id="prcpexecdeptcd" type="STRING" size="256" sumtext="처방실시부서코드"/>
          <Column id="excuroomcd" type="STRING" size="256" sumtext="검사실코드"/>
          <Column id="rgstdeptcd" type="STRING" size="256" sumtext="최초처방등록과코드"/>
          <Column id="rgstrid" type="STRING" size="256" sumtext="최초처방등록의사코드"/>
          <Column id="portprcpflag" type="STRING" size="256" sumtext="포터블처방여부"/>
          <Column id="inflag" type="STRING" size="256" sumtext="재원여부"/>
          <Column id="rcptacptyn" type="STRING" size="256" sumtext="미수납접수여부"/>
          <Column id="execbaseflag" type="STRING" size="256" sumtext="실시기준여부"/>
          <Column id="lrgcd" type="STRING" size="256" sumtext="대분류코드(검사실그룹)"/>
          <Column id="mdlcd" type="STRING" size="256" sumtext="소분류코드(부위)"/>
          <Column id="excupartcd" type="STRING" size="256" sumtext="검사치료부위코드"/>
          <Column id="modality" type="STRING" size="256" sumtext="Modality"/>
          <Column id="rcptno" type="INT" size="256" sumtext="영수증번호"/>
          <Column id="acptseqno" type="INT" size="256" sumtext="접수일련번호"/>
          <Column id="acptrem" type="STRING" size="256" sumtext="접수참고사항"/>
          <Column id="execrem" type="STRING" size="256" sumtext="실시참고사항"/>
          <Column id="prcpdelivefact" type="STRING" size="256" sumtext="처방참고사항"/>
          <Column id="execrid1" type="STRING" size="256" sumtext="실시자ID1,실시된처방내역조회경우"/>
          <Column id="execrid2" type="STRING" size="256" sumtext="실시자ID2,실시된처방내역조회경우"/>
          <Column id="execrid3" type="STRING" size="256" sumtext="실시자ID3,실시된처방내역조회경우"/>
          <Column id="execrid4" type="STRING" size="256" sumtext="실시자ID4,실시된처방내역조회경우"/>
          <Column id="acptid" type="STRING" size="256" sumtext="접수자ID=보류자ID(접수보류상태시),실시된처방내역조회경우"/>
          <Column id="rcptdd" type="STRING" size="256" sumtext="수납일자"/>
          <Column id="carecnfmdd" type="STRING" size="256" sumtext="간호확인일자"/>
          <Column id="orddeptcd" type="STRING" size="256" sumtext="진료과코드"/>
          <Column id="basesuppdeptcd" type="STRING" size="256" sumtext="세션부서코드"/>
          <Column id="orddrid" type="STRING" size="256" sumtext="진료의ID"/>
          <Column id="rsrvexcupossyn" type="STRING" size="256" sumtext="예약검사구분"/>
          <Column id="rsrvplceflag" type="STRING" size="256" sumtext="예약주체구분"/>
          <Column id="rsrvexmptmplcd" type="STRING" size="256" sumtext="예약예문코드"/>
          <Column id="tmpldata" type="STRING" size="256" sumtext="예약예문내용"/>
          <Column id="rsrvdt" type="STRING" size="256" sumtext="실예약시간"/>
          <Column id="rsrvrem" type="STRING" size="256" sumtext="예약참고사항"/>
          <Column id="pacsnocretyn" type="STRING" size="256" sumtext="PACS연동여부,접수전은AEBMECCD,접수후는AEAHACPT에서가져옴"/>
          <Column id="pacsnocretcdyn" type="STRING" size="256" sumtext="PACS연동여부,접수전은AEBMECCD,접수후는AEAHACPT에서가져옴"/>
          <Column id="orddd" type="STRING" size="256" sumtext="PACS연동, 진료(입원)일"/>
          <Column id="rgsttm" type="STRING" size="256" sumtext="PACS연동, 처방시간"/>
          <Column id="eqmtifyn" type="STRING" size="256" sumtext="장비IF여부"/>
          <Column id="cretno" type="INT" size="256" sumtext="원무생성번호"/>
          <Column id="prcpexecdeptcd" type="STRING" size="256" sumtext="시행부서코드"/>
          <Column id="precureprcpflag" type="STRING" size="256" sumtext="선처치여부"/>
          <Column id="excuposseqcd" type="STRING" size="256" sumtext="검사실별 검사장비코드"/>
          <Column id="pacsyn" type="STRING" size="256"/>
          <Column id="syncflag" type="STRING" size="256"/>
          <Column id="holdyn" type="STRING" size="256"/>
          <Column id="rsrvflag" type="STRING" size="256"/>
          <Column id="examroomnm" type="STRING" size="256"/>
          <Column id="excueqcdid" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_temp" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_send_subpopordlist_ordlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="check" type="STRING" size="256" sumtext="선택"/>
          <Column id="pid" type="STRING" size="256" sumtext="등록번호"/>
          <Column id="patnm" type="STRING" size="256" sumtext="환자명-핵체내접수실시만"/>
          <Column id="prcpdd" type="STRING" size="256" sumtext="처방일자"/>
          <Column id="prcpnm" type="STRING" size="256" sumtext="처방명"/>
          <Column id="execprcpstatcd" type="STRING" size="256" sumtext="실시처방상태구분코드"/>
          <Column id="payflagcd" type="STRING" size="256" sumtext="급여구분-핵체내접수실시만"/>
          <Column id="rsrvdd" type="STRING" size="256" sumtext="예약일자-핵체내접수실시만"/>
          <Column id="prcphopedd" type="STRING" size="256" sumtext="희망일자-핵체내접수실시만"/>
          <Column id="orddepthngnm" type="STRING" size="256" sumtext="진료과명-핵체내접수실시만"/>
          <Column id="orddrnm" type="STRING" size="256" sumtext="진료의명-핵체내접수실시만"/>
          <Column id="ivinputyn" type="STRING" size="256" sumtext="IV입력여부, 핵체내접수실시"/>
          <Column id="cntctel" type="STRING" size="256" sumtext="내선번호-핵체내접수실시만"/>
          <Column id="arvtm" type="STRING" size="256" sumtext="도착시간, 핵체내접수실시"/>
          <Column id="prcpkindcd" type="STRING" size="256" sumtext="처방종류구분코드"/>
          <Column id="excuroomnm" type="STRING" size="256" sumtext="검사실명"/>
          <Column id="rgstdepthngnm" type="STRING" size="256" sumtext="최초처방등록과명"/>
          <Column id="rgstridnm" type="STRING" size="256" sumtext="최초처방등록의사명"/>
          <Column id="prcpgenrflag" type="STRING" size="256" sumtext="입원외래구분"/>
          <Column id="basecd" type="STRING" size="256" sumtext="취소코드"/>
          <Column id="rsrvdt" type="STRING" size="256" sumtext="예약일시"/>
          <Column id="prcphopedt" type="STRING" size="256" sumtext="처방희망일시"/>
          <Column id="execprcpuniqno" type="INT" size="256" sumtext="실시처방유일번호"/>
          <Column id="calcscorcd" type="STRING" size="256" sumtext="수가코드"/>
          <Column id="prcpexecdeptcd" type="STRING" size="256" sumtext="처방실시부서코드"/>
          <Column id="excuroomcd" type="STRING" size="256" sumtext="검사실코드"/>
          <Column id="rgstdeptcd" type="STRING" size="256" sumtext="최초처방등록과코드"/>
          <Column id="rgstrid" type="STRING" size="256" sumtext="최초처방등록의사코드"/>
          <Column id="portprcpflag" type="STRING" size="256" sumtext="포터블처방여부"/>
          <Column id="inflag" type="STRING" size="256" sumtext="재원여부"/>
          <Column id="rcptacptyn" type="STRING" size="256" sumtext="미수납접수여부"/>
          <Column id="execbaseflag" type="STRING" size="256" sumtext="실시기준여부"/>
          <Column id="lrgcd" type="STRING" size="256" sumtext="대분류코드(검사실그룹)"/>
          <Column id="mdlcd" type="STRING" size="256" sumtext="소분류코드(부위)"/>
          <Column id="excupartcd" type="STRING" size="256" sumtext="검사치료부위코드"/>
          <Column id="modality" type="STRING" size="256" sumtext="Modality"/>
          <Column id="rcptno" type="INT" size="256" sumtext="영수증번호"/>
          <Column id="acptseqno" type="INT" size="256" sumtext="접수일련번호"/>
          <Column id="acptrem" type="STRING" size="256" sumtext="접수참고사항"/>
          <Column id="execrem" type="STRING" size="256" sumtext="실시참고사항"/>
          <Column id="prcpdelivefact" type="STRING" size="256" sumtext="처방참고사항"/>
          <Column id="execrid1" type="STRING" size="256" sumtext="실시자ID1,실시된처방내역조회경우"/>
          <Column id="execrid2" type="STRING" size="256" sumtext="실시자ID2,실시된처방내역조회경우"/>
          <Column id="execrid3" type="STRING" size="256" sumtext="실시자ID3,실시된처방내역조회경우"/>
          <Column id="execrid4" type="STRING" size="256" sumtext="실시자ID4,실시된처방내역조회경우"/>
          <Column id="acptid" type="STRING" size="256" sumtext="접수자ID=보류자ID(접수보류상태시),실시된처방내역조회경우"/>
          <Column id="rcptdd" type="STRING" size="256" sumtext="수납일자"/>
          <Column id="carecnfmdd" type="STRING" size="256" sumtext="간호확인일자"/>
          <Column id="orddeptcd" type="STRING" size="256" sumtext="진료과코드"/>
          <Column id="basesuppdeptcd" type="STRING" size="256" sumtext="세션부서코드"/>
          <Column id="orddrid" type="STRING" size="256" sumtext="진료의ID"/>
          <Column id="rsrvexcupossyn" type="STRING" size="256" sumtext="예약검사구분"/>
          <Column id="rsrvplceflag" type="STRING" size="256" sumtext="예약주체구분"/>
          <Column id="rsrvexmptmplcd" type="STRING" size="256" sumtext="예약예문코드"/>
          <Column id="tmpldata" type="STRING" size="256" sumtext="예약예문내용"/>
          <Column id="rsrvdt" type="STRING" size="256" sumtext="실예약시간"/>
          <Column id="rsrvrem" type="STRING" size="256" sumtext="예약참고사항"/>
          <Column id="pacsnocretyn" type="STRING" size="256" sumtext="PACS연동여부,접수전은AEBMECCD,접수후는AEAHACPT에서가져옴"/>
          <Column id="pacsnocretcdyn" type="STRING" size="256" sumtext="PACS연동여부,접수전은AEBMECCD,접수후는AEAHACPT에서가져옴"/>
          <Column id="orddd" type="STRING" size="256" sumtext="PACS연동, 진료(입원)일"/>
          <Column id="rgsttm" type="STRING" size="256" sumtext="PACS연동, 처방시간"/>
          <Column id="eqmtifyn" type="STRING" size="256" sumtext="장비IF여부"/>
          <Column id="cretno" type="INT" size="256" sumtext="원무생성번호"/>
          <Column id="prcpexecdeptcd" type="STRING" size="256" sumtext="시행부서코드"/>
          <Column id="precureprcpflag" type="STRING" size="256" sumtext="선처치여부"/>
          <Column id="excuposseqcd" type="STRING" size="256" sumtext="검사실별 검사장비코드"/>
          <Column id="pacsyn" type="STRING" size="256"/>
          <Column id="syncflag" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
    </Objects>
    <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 SPAEA05100_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SPAEA05100_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(grd_subordlist);
	grdf_initGrid(grd_subpopordlist);
	
	vSuppdeptcd = frmf_getPrestDeptCd();
	
	ds_send.setColumn(0, "basesuppdeptcd", vSuppdeptcd);
	
	if (frmf_checkOpener()) 
	{					
		ds_temp.copyData(arg_ds_send);
		ds_send.setColumn(0, "srchdate1", ds_temp.getColumn(0, "srchdate1"));
		ds_send.setColumn(0, "srchdate2", ds_temp.getColumn(0, "srchdate2"));
		ds_send.setColumn(0, "basesuppdeptcd", ds_temp.getColumn(0, "suppdeptcd"));
		ds_send.setColumn(0, "srchflag", ds_temp.getColumn(0, "srchflag"));
		ds_send.setColumn(0, "acptlistflag", ds_temp.getColumn(0, "acptlistflag"));
		ds_send.setColumn(0, "initexcuroomgrp", ds_temp.getColumn(0, "excuroomgrpcdid"));
		ds_send.setColumn(0, "initexcuroom",  ds_temp.getColumn(0, "initexecroom"));
		ds_send.setColumn(0, "excuroomcdid",  ds_temp.getColumn(0, "excuroomcdid"));

		var acptlistflag = ds_send.getColumn(0, "acptlistflag");
		var grdtitle	  = "";
		switch (acptlistflag) 
		{
			case "R":	// 예약
				grdtitle = "예약일시";
				break;
					
			case "J":	//접수
				grdtitle = "접수일시";
				break;
				
			case "E":	//실시(IV입력포함)
				grdtitle = "실시일시";
				break;
			default:
				break;
		}
		
		grd_subpopordlist.setCellProperty("Head", 4, "text", grdtitle);
		
		fGetExamCureWaitList();
	}
}

function fGetExamCureWaitList() 
{
	ds_main_subordlist_subordlist.clearData();
	ds_main_subpopordlist_ordlist.clearData();
	
	dsf_setFixVal(ds_send, "rbasecdflag:R,execprcpstat440cd:440,execprcpstat600cd:600,transactiongubn:2,largeclass:M1");
	
	var oParam = {};
		oParam.id          = "TRAEA01413";
		oParam.service     = "examcureacptexecapp.ExamCureAcpt";
		oParam.method      = "reqGetExamCureRoomWaitCntList";
		oParam.inds        = "reqparam=ds_send";
		oParam.outds       = "ds_main_subordlist_subordlist=examcureroomwaitcntlist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRAEA01413";

	tranf_submit(oParam);
}

function grd_subordlist_oncellclick(obj:Grid, e:GridClickEventInfo)
{
	fGetExamCureAcptList()
}

function fGetExamCureAcptList()
{
	if ( ds_main_subordlist_subordlist.rowposition < 0 ) 
	{
		return;
	}
	
	if(ds_main_subordlist_subordlist.getColumn(ds_main_subordlist_subordlist.rowposition, "cnt") == 0)
	{
		return;
	}

	var excuroomcdid = ds_main_subordlist_subordlist.getColumn(ds_main_subordlist_subordlist.rowposition, "basecd");
	
	ds_send.setColumn(0, "initexcuroom", excuroomcdid);
	ds_send.setColumn(0, "examcureflag", "N");
	ds_send.setColumn(0, "largeclass", "M3");
	
	dsf_setFixVal(ds_send, "srchgubn:1,ivdisplayyb:N");
	
	var oParam = {};
		oParam.id          = "TRAEA01414";
		oParam.service     = "examcureacptexecapp.ExamCureAcpt";
		oParam.method      = "reqGetExamCureExecPrcpList";
		oParam.inds        = "reqparam=ds_send";
		oParam.outds       = "ds_main_subpopordlist_ordlist=examcureexecprcplist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRAEA01414";

	tranf_submit(oParam);	
}

function btn_accept_onclick(obj:Button,  e:ClickEventInfo)
{
	fSetExamCureAcceptRoomCodeList();
}

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

function fSetExamCureAcceptRoomCodeList() 
{
	ds_send_subpopordlist_ordlist.clearData();
	
	if ( ds_main_subpopordlist_ordlist.rowposition < 0 ) 
	{
		return;
	}

	var check = "";
	var loop = ds_main_subpopordlist_ordlist.rowcount;
	
	var excuroomcdid	= ds_send.getColumn(0, "excuroomcdid");
	var initexecroom 	= ds_send.getColumn(0, "initexcuroom");
	var acptlistflag	= ds_send.getColumn(0, "acptlistflag");

	if ( excuroomcdid == initexecroom ) 
	{
		sysf_messageBox("환자받기는 다른 검사실에서만 적용합니다.","I999");
		return;
	}

	for(var i = 0; i < loop; i++)
	{
		check			= ds_main_subpopordlist_ordlist.getColumn(i, "check");
		pacsnocretcdyn	= ds_main_subpopordlist_ordlist.getColumn(i, "pacsnocretcdyn");
		
		if ( check == "Y" )
		{
			ds_main_subpopordlist_ordlist.setColumn(i, "excuroomcd", excuroomcdid);
			
			if (acptlistflag == "J") 
			{
				ds_main_subpopordlist_ordlist.setColumn(i, "pacsyn", "2");
				ds_main_subpopordlist_ordlist.setColumn(i, "syncflag", "2");
			} 
			else if (acptlistflag == "E") 
			{
				ds_main_subpopordlist_ordlist.setColumn(i, "pacsyn", "3");
				ds_main_subpopordlist_ordlist.setColumn(i, "syncflag", "3");
				ds_main_subpopordlist_ordlist.setColumn(i, "pacsnocretyn", pacsnocretcdyn);
			}
			var row = ds_send_subpopordlist_ordlist.addRow();
			ds_send_subpopordlist_ordlist.copyRow(row, ds_main_subpopordlist_ordlist, i);
		}	
	}

	if ( ds_send_subpopordlist_ordlist.rowcount == 0 ) 
	{
		sysf_messageBox("처방내역을 선택해 주십시오.","I999");
		return;
	}
	
	ds_send.setColumn(0, "rsrvyn", ds_send.getColumn(0, "acptlistflag"));
	ds_send.setColumn(0, "syncflag", "1");
	
	if ( sysf_messageBox("[환자받기]를 ","Q002")==6 ) 
	{
		var oParam = {};
			oParam.id          = "TXAER00211";
			oParam.service     = "examcureacptexecapp.ExamCureAcpt";
			oParam.method      = "reqExeUpdtExamCureRoomCodeList";
			oParam.inds        = "reqparam=ds_send_subpopordlist_ordlist";
			oParam.outds       = "ds_=item";
			oParam.async       = false;
			//oParam.callback    = "cf_TXAER00211";

		tranf_submit(oParam);
		
		var oParam = {};
			oParam.id          = "TXAEA00305";
			oParam.service     = "examcureacptexecapp.NuclInpt";
			oParam.method      = "reqExeExamCurePartExecPrcpList";
			oParam.inds        = "reqparam=ds_send_subpopordlist_ordlist";
			oParam.outds       = "ds_=item";
			oParam.async       = false;
			//oParam.callback    = "cf_TXAEA00305";

		tranf_submit(oParam);

		// 실별대기현황 조회
		fGetExamCureWaitList();
		
		opener.fGetExamCureAcptList(acptlistflag);
	}
	else 
	{
		return;
	}
}
function ds_main_subpopordlist_ordlist_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
{
	if(e.columnid == "check")
	{
		obj.setColumn(e.row, "check", (e.newvalue == "Y" || e.newvalue == 1) ? "Y" : "N");
	}
}
]]></Script>
  </Form>
</FDL>