YNU_JEUS/app_home/himed/xpapps/crm/reservexp/xp/SMCFA00300_검사예약현황.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMCFA00300" position="absolute 0 0 1199 783" titletext="검사 예약현황" oninit="SMCFA00300_oninit" onload="SMCFA00300_onload">
    <Layouts>
      <Layout>
        <Div position="absolute 0 22 1195 82" align="align:center top;" id="group2" class="div_SA" anchor="left top right">
          <Layouts>
            <Layout>
              <Static text="예약일자 :" position="absolute 16 9 102 26" id="caption3" class="search_name" anchor="default"/>
              <Calendar position="absolute 108 8 228 27" id="ipt_ordfromdd" class="input_search" anchor="default" autoselect="true" autoskip="true"/>
              <Static text="~" position="absolute 233 9 245 26" id="caption4" class="search_no_b" anchor="default"/>
              <Calendar position="absolute 248 8 368 27" id="ipt_ordtodd" class="input_search" anchor="default"/>
              <Static text="진 료 과 :" position="absolute 394 9 482 26" id="caption5" class="search_name" anchor="default"/>
              <Combo position="absolute 488 8 633 27" id="cmb_orddept" class="combo_search" innerdataset="@ds_init_basecdlist_orddeptlist" datacolumn="depthngnm" codecolumn="deptcd" anchor="default" onitemchanged="group2_cmb_orddept_onitemchanged"/>
              <Static text="진료의 :" position="absolute 659 9 745 26" id="caption6" class="search_name" anchor="default"/>
              <Combo position="absolute 739 8 854 27" id="cmb_orddr" class="combo_search" innerdataset="@ds_hidden_zsu_userlist_user" datacolumn="usernm" codecolumn="userid" anchor="default"/>
              <Static text="예약상태 :" position="absolute 875 10 961 27" id="caption7" class="search_name" anchor="default"/>
              <Combo position="absolute 965 8 1075 27" id="cmb_rsrvflag" class="combo_search" innerdataset="@ds_init_comncdlist_A0078list_A0078" datacolumn="cdnm" codecolumn="cdid" anchor="default"/>
              <Static text="검 사 실 :" position="absolute 16 34 102 51" id="caption10" class="search_name" anchor="default"/>
              <Combo position="absolute 108 33 368 52" id="cmb_excuroom" class="combo_search" innerdataset="@ds_init_basecdlist_excuroomlist_dept" datacolumn="depthngnm" codecolumn="deptcd" anchor="default"/>
              <Static text="등록번호 :" position="absolute 394 34 480 51" id="caption8" class="search_name" anchor="default"/>
              <Edit position="absolute 488 33 611 52" id="ipt_pid" class="input_search" anchor="default" autoselect="true"/>
              <Button position="absolute 617 34 633 50" id="btn_pid_srch" class="icon_search" text="" anchor="default" onclick="group2_btn_pid_srch_onclick"/>
              <Static text="환자명 :" position="absolute 659 34 745 51" id="caption9" class="search_name" anchor="default"/>
              <Edit position="absolute 739 33 833 52" id="ipt_patnm" class="input_search" anchor="default"/>
              <Button position="absolute 838 34 854 50" id="btn_patnm_srch" class="icon_search" text="" anchor="default" onclick="group2_btn_patnm_srch_onclick"/>
              <Static text="전송상태 :" position="absolute 875 34 961 51" id="caption11" class="search_name" anchor="default"/>
              <Combo position="absolute 965 33 1075 52" id="cmb_trsmstat" class="combo_search" innerdataset="@ds_init_comncdlist_C0019list_C0019" datacolumn="cdnm" codecolumn="cdid" anchor="default"/>
              <Shape position="absolute 1103 7 1109 53" linetype="vertical" id="line1" class="line_4" anchor="top right"/>
              <Button position="absolute 1122 19 1178 41" id="btn_search" class="btn1" text="조회" anchor="top right" onclick="group2_btn_search_onclick"/>
            </Layout>
          </Layouts>
        </Div>
        <Static id="caption1" text="검사예약 전송관리" class="tit_1" position="absolute 0 0 189 22"/>
        <Grid id="grd_rsrvlist" class="text_center" taborder="1" binddataset="ds_main_list_rsrvlist" autoenter="select" useinputpanel="false" cellsizingtype="col" position="absolute 0 118 1195 748" anchor="all">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="27" band="left"/>
                <Column size="25" band="left"/>
                <Column size="100" band="left"/>
                <Column size="110" band="left"/>
                <Column size="100" band="left"/>
                <Column size="55" band="left"/>
                <Column size="90" band="left"/>
                <Column size="120" band="left"/>
                <Column size="70"/>
                <Column size="100"/>
                <Column size="130"/>
                <Column size="90"/>
                <Column size="110"/>
                <Column size="70"/>
                <Column size="450"/>
                <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"/>
                <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="검사실"/>
                <Cell col="10" text="처방명"/>
                <Cell col="11" text="처방코드"/>
                <Cell col="12" text="진료과"/>
                <Cell col="13" text="진료의"/>
                <Cell col="14" text="예약 메시지"/>
                <Cell col="15"/>
                <Cell col="16"/>
                <Cell col="17"/>
                <Cell col="18"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" expr="currow+1"/>
                <Cell col="1" style="align:center middle;" class="update_n" text="bind:update"/>
                <Cell col="2" displaytype="combo" style="align:center middle;" text="bind:trsmstat" combodataset="ds_init_comncdlist_C0019list_C0019" combocodecol="cdid" combodatacol="cdnm" enable="false"/>
                <Cell col="3" style="align:center middle;" text="bind:mpphontel"/>
                <Cell col="4" displaytype="date" style="align:center middle;" text="bind:rsrvdd" calendardisplaynulltype="nulltext"/>
                <Cell col="5" displaytype="date" style="align:center middle;" text="bind:rsrvtm" mask="HH:mm" maskchar=" " calendardisplaynulltype="nulltext"/>
                <Cell col="6" style="align:center middle;" text="bind:pid"/>
                <Cell col="7" style="align:center middle;" text="bind:hngnm"/>
                <Cell col="8" displaytype="combo" style="align:center middle;" text="bind:rsrvstatcd" combodataset="ds_init_comncdlist_A0078list_A0078" combocodecol="cdid" combodatacol="cdnm" enable="false"/>
                <Cell col="9" style="align:center middle;" text="bind:excuroomnm"/>
                <Cell col="10" style="align:left middle;padding:0 5 0 5;" text="bind:calcscornm"/>
                <Cell col="11" style="align:center middle;" text="bind:calcscorcd"/>
                <Cell col="12" style="align:center middle;" text="bind:orddeptnm"/>
                <Cell col="13" style="align:center middle;" text="bind:orddrnm"/>
                <Cell col="14" style="align:left middle;padding:0 0 0 3;" text="bind:smsmsg"/>
                <Cell col="15" text="bind:prcpdd"/>
                <Cell col="16" text="bind:execprcpuniqno"/>
                <Cell col="17" text="bind:email"/>
                <Cell col="18" text="bind:lastchosdt"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Button id="btn_trsmstat" taborder="2" text="전송제외" class="btn2" position="absolute 1050 94 1114 113" anchor="top right" onclick="btn_trsmstat_onclick"/>
        <Button id="btn_saveexcel" taborder="3" text="엑셀저장" class="btn7" position="absolute 1115 94 1195 113" anchor="top right" onclick="btn_saveexcel_onclick"/>
        <Static id="caption2" text="예약 전송 목록" class="tit_2" position="absolute 0 97 167 119"/>
        <Shape id="line2" class="line_10" position="absolute 0 113 1195 119" anchor="left top right"/>
        <Button id="btn_sms" taborder="4" text="SMS전송" class="btn3" position="absolute 0 752 84 774" anchor="left bottom" onclick="btn_sms_onclick"/>
        <Button id="btn_email" taborder="5" text="이메일발송" class="btn3" position="absolute 86 752 178 774" anchor="left bottom" onclick="btn_email_onclick"/>
        <Button id="btn_init" taborder="6" text="초기화" class="btn4" position="absolute 1127 752 1195 774" anchor="right bottom" onclick="btn_init_onclick"/>
        <Button id="btn_save" taborder="7" text="저장" class="btn4" position="absolute 1068 752 1124 774" anchor="right bottom" onclick="btn_save_onclick"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_send_srch" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="rsrvfromdd" type="STRING" size="256"/>
          <Column id="rsrvtodd" type="STRING" size="256"/>
          <Column id="orddept" type="STRING" size="256"/>
          <Column id="orddr" type="STRING" size="256"/>
          <Column id="rsrvstat" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="patnm" type="STRING" size="256"/>
          <Column id="excuroom" type="STRING" size="256"/>
          <Column id="trsmstat" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="rsrvfromdd"/>
            <Col id="rsrvtodd"/>
            <Col id="orddept"/>
            <Col id="orddr"/>
            <Col id="rsrvstat"/>
            <Col id="pid"/>
            <Col id="patnm"/>
            <Col id="excuroom"/>
            <Col id="trsmstat"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_list_rsrvlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="rsrvdd" type="STRING" size="256" sumtext="예약일자"/>
          <Column id="srchrsrvtm" type="STRING" size="256" sumtext="예약시간"/>
          <Column id="pid" type="STRING" size="256" sumtext="등록번호"/>
          <Column id="hngnm" type="STRING" size="256" sumtext="환자이름"/>
          <Column id="orddeptnm" type="STRING" size="256" sumtext="진료과명"/>
          <Column id="orddrnm" type="STRING" size="256" sumtext="진료의명"/>
          <Column id="excuroomnm" type="STRING" size="256" sumtext="검사실"/>
          <Column id="calcscornm" type="STRING" size="256" sumtext="처방명"/>
          <Column id="calcscorcd" type="STRING" size="256" sumtext="처방코드"/>
          <Column id="rsrvstatcd" type="STRING" size="256" sumtext="예약상태"/>
          <Column id="rsrvrem" type="STRING" size="256" sumtext="예약Remark"/>
          <Column id="trsmstat" type="INT" size="256" sumtext="전송여부"/>
          <Column id="mpphontel" type="STRING" size="256" sumtext="휴대전화번호"/>
          <Column id="smsmsg" type="STRING" size="256" sumtext="문자메시지"/>
          <Column id="prcpdd" type="STRING" size="256" sumtext="처방일자(키)"/>
          <Column id="execprcpuniqno" type="INT" size="256" sumtext="처방번호(키)"/>
          <Column id="email" type="STRING" size="256" sumtext="이메일"/>
          <Column id="lastchosdt" type="STRING" size="256" sumtext="최종내원일시"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_basecdlist_orddeptlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_hidden_zsu_userlist_user" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="usernm" type="STRING" size="256"/>
          <Column id="userid" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_comncdlist_A0078list_A0078" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_comncdlist_C0019list_C0019" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_basecdlist_excuroomlist_dept" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_send_rsrvrule" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="rsrvflag" type="STRING" size="256"/>
          <Column id="itemflag" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="rsrvflag">3</Col>
            <Col id="itemflag">P</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_init_rsrvrule" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_send_rsrvlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="group2.ipt_ordfromdd" propid="value" datasetid="ds_send_srch" columnid="rsrvfromdd"/>
      <BindItem id="item1" compid="group2.ipt_ordtodd" propid="value" datasetid="ds_send_srch" columnid="rsrvtodd"/>
      <BindItem id="item2" compid="group2.cmb_orddept" propid="value" datasetid="ds_send_srch" columnid="orddept"/>
      <BindItem id="item3" compid="group2.cmb_orddr" propid="value" datasetid="ds_send_srch" columnid="orddr"/>
      <BindItem id="item4" compid="group2.cmb_rsrvflag" propid="value" datasetid="ds_send_srch" columnid="rsrvstat"/>
      <BindItem id="item5" compid="group2.cmb_excuroom" propid="value" datasetid="ds_send_srch" columnid="excuroom"/>
      <BindItem id="item6" compid="group2.ipt_pid" propid="value" datasetid="ds_send_srch" columnid="pid"/>
      <BindItem id="item7" compid="group2.ipt_patnm" propid="value" datasetid="ds_send_srch" columnid="patnm"/>
      <BindItem id="item8" compid="group2.cmb_trsmstat" propid="value" datasetid="ds_send_srch" columnid="trsmstat"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2016-05-24
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2016-05-24      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs";
include "crm_crmxp::CCZ001.xjs";
include "crm_reservexp::CFZ001.xjs";
function SMCFA00300_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SMCFA00300_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(grd_rsrvlist);
	grdf_setRowTypeIcon(grd_rsrvlist, 1);
	grdf_setToolTipBind(grd_rsrvlist);
	// P0075: 예약구분, P0078: 예약상태구분, C0019: 전송상태
	var arrParam = [{dsNm: "ds_init_comncdlist_A0075list_A0075", cdGrpId: "A0075"}
				   ,{dsNm: "ds_init_comncdlist_A0078list_A0078", cdGrpId: "A0078"}
				   ,{dsNm: "ds_init_comncdlist_C0019list_C0019", cdGrpId: "C0019"}]
	appf_getCodeList(arrParam); 
	
	var instcd = sysf_getUserInfo("dutplceinstcd");
	var standard_yn = "orduseyn";
	var ord_deptflag = "D"; // 외래진료과
	var rslt_ref  = "ds_init_basecdlist_orddeptlist";
	var ord_deptflag = "X"; // 기타
	var rslt_ref  = "ds_init_basecdlist_excuroomlist_dept";
	appf_getDeptCodeList(instcd, standard_yn, ord_deptflag, "", "", "", "", "", rslt_ref, false, "");
	
	var oParam = {};
		oParam.id          = "TRCRB00104";
		oParam.service     = "rulemngtapp.RuleMngt";
		oParam.method      = "reqGetOrdDeptList";
		oParam.inds        = "";
		oParam.outds       = "ds_init_basecdlist_orddeptlist=orddeptlist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRCRB00104";

	tranf_submit(oParam);

	var oParam = {};
		oParam.id          = "TRCFA00102";
		oParam.service     = "rsrvinfoapp.RsrvInfo";
		oParam.method      = "reqGetRsrvRule";
		oParam.inds        = "req=ds_send_rsrvrule";
		oParam.outds       = "ds_init_rsrvrule=rsrvrule";
		oParam.async       = false;
		//oParam.callback    = "cf_TRCFA00102";

	tranf_submit(oParam);	// 예약주기관리(발송일, 발송 메시지)
	
	var delive_dd = ds_init_rsrvrule.getColumn(0, "delivedd");
	var rsrv_dd = utlf_getCurrentDate().toDate().getAddDate(parseInt(delive_dd), "D").getDateFormat("YYYYMMDD");
	ds_send_srch.setColumn(0, "rsrvfromdd", rsrv_dd);
	ds_send_srch.setColumn(0, "rsrvtodd", rsrv_dd);
	
	var comboIDs = "group2.cmb_rsrvflag|group2.cmb_trsmstat|group2.cmb_orddept|group2.cmb_orddr|group2.cmb_excuroom";
	frmf_addComboItemAll( comboIDs, "- 전 체 -", "all");
	
	group2.cmb_rsrvflag.index = 0;
	group2.cmb_trsmstat.index = 0;
	group2.cmb_orddept.index = 0;
	group2.cmb_orddr.index = 0;
	group2.cmb_excuroom.index = 0;
	
	fCheckAuth();
	fInitRsrvList();
}

function fCheckAuth() 
{
	// 권한체크
	if (!frmf_checkAuth("r")) 
	{
		group2.btn_search.enable = false;
	}
	if (!frmf_checkAuth("x")) 
	{
		btn_save.enable = false;
		btn_trsmstat.enable = false;
		btn_sms.enable = false;
		btn_email.enable = false;
	}
	if (!frmf_checkAuth("p")) 
	{
		btn_saveexcel.enable = false;
	}
}

function fInitRsrvList() 
{
	// 그리드 초기화
	ds_main_list_rsrvlist.clearData();
}

function group2_cmb_orddept_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
{
	ds_hidden_zsu_userlist_user.clearData();
	var dutplceinstcd = sysf_getUserInfo("dutplceinstcd");
	var deptcd = ds_send_srch.getColumn(0, "orddept");
	var basedd = utlf_getCurrentDate();

	if (utlf_isNull(ds_send_srch.getColumn(0, "orddept")))
	{
		ds_hidden_zsu_userlist_user.addRow();
	}
	else 
	{
		appf_getOutOrdDeptDoctorList(dutplceinstcd, deptcd, "usernm", "asc", basedd, "ds_hidden_zsu_userlist_user", "", "");
	}
	frmf_addComboItem( "group2.cmb_orddr", "- 전 체 -");
	group2.cmb_orddr.index = 0;
}

function group2_btn_pid_srch_onclick(obj:Button,  e:ClickEventInfo)
{
	var search_condition = "pid";
	var search_term = ds_send_srch.getColumn(0, "pid");
	var rtn = cczfOpenSelectClnt2(search_condition, search_term);
	ds_send_srch.setColumn(0, "pid", rtn.pid);
	ds_send_srch.setColumn(0, "patnm", rtn.hngnm);
}

function group2_btn_patnm_srch_onclick(obj:Button,  e:ClickEventInfo)
{
	var search_condition = "patnm";
	var search_term = ds_send_srch.getColumn(0, "patnm");
	var rtn = cczfOpenSelectClnt2(search_condition, search_term);
	ds_send_srch.setColumn(0, "pid", rtn.pid);
	ds_send_srch.setColumn(0, "patnm", rtn.hngnm);
}

function group2_btn_search_onclick(obj:Button,  e:ClickEventInfo)
{
	var oParam = {};
		oParam.id          = "TRCFA00301";
		oParam.service     = "rsrvinfoapp.RsrvInfo";
		oParam.method      = "reqGetTestRsrv";
		oParam.inds        = "req=ds_send_srch";
		oParam.outds       = "ds_main_list_rsrvlist=rsrvlist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRCFA00301";

	tranf_submit(oParam);
	
	ds_main_list_rsrvlist.updateColID("srchrsrvtm", "rsrvtm");
}

function btn_trsmstat_onclick(obj:Button,  e:ClickEventInfo)
{
	// 전송상태(trsmstat)를 '전송대기(0)'인 데이터만 '전송제외(2)'로 변경
	var grid = grd_rsrvlist;
	var trsmstat_col = "trsmstat";
	cfzfChangeTrsmStat(grid, trsmstat_col);
}

function btn_saveexcel_onclick(obj:Button,  e:ClickEventInfo)
{
	grdf_exportExcel(grd_rsrvlist, "excel", "SheetName", "true", "", "");
}

function btn_sms_onclick(obj:Button,  e:ClickEventInfo)
{
	cczfSMSTrsmOpen("grid",grd_rsrvlist,"hngnm","mpphontel","","");
}

function btn_email_onclick(obj:Button,  e:ClickEventInfo)
{
	cczfEmailTrsmOpen("grid",grd_rsrvlist,"email","");
}

function btn_save_onclick(obj:Button,  e:ClickEventInfo)
{
	fSaveRsrvList();
}

function fSaveRsrvList()
{
	// 예약메시지 전송에서 제외한 목록 저장
	var grid = grd_rsrvlist;
	var updt_list = grdf_getGridUpdateData(grid);
	if (updt_list.rowcount != 0) 
	{
		grdf_setStatusColumn(updt_list, "status");
		ds_send_rsrvlist.copyData(updt_list, true);
	}
	
	var oParam = {};
		oParam.id          = "TXCFA00301";
		oParam.service     = "rsrvinfoapp.RsrvInfo";
		oParam.method      = "reqExeTestRsrv";
		oParam.inds        = "rsrvlist=ds_send_rsrvlist";
		oParam.outds       = "";
		oParam.async       = false;
		oParam.callback    = "cf_TXCFA00301";

	tranf_submit(oParam);
}

function cf_TXCFA00301(sSvcId, nErrorCode, sErrorMsg) 
{
    if(nErrorCode < 0) return;
    else
    {
		ds_main_list_rsrvlist.applyChange();
		ds_send_rsrvlist.clearData();
		sysf_messageBox("전송상태 저장이","I002");
    }
}

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