YNU_JEUS/app_home/himed/xpapps/mis/dligclaznsmngtxp/xp/SMRPD31200_전문의평가(세부)항목관리.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMRPD31200" position="absolute 0 0 1200 770" titletext="전문의 평가 - 세부항목 관리" oninit="SMRPD31200_oninit" onload="SMRPD31200_onload">
    <Layouts>
      <Layout>
        <Shape id="roundrect1" type="roundrectangle" position="absolute 0 48 1195 85"/>
        <Shape position="absolute 0 116 1195 122" linetype="horizontal" id="line7" class="line_10"/>
        <Grid position="absolute 0 121 1195 720" id="datagrid1" binddataset="ds_main_codeinfo_codelist">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="20" band="left"/>
                <Column size="60"/>
                <Column size="307"/>
                <Column size="92"/>
                <Column size="92"/>
                <Column size="316"/>
                <Column size="67"/>
                <Column size="67"/>
                <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="정렬순서"/>
                <Cell col="7" text="사용여부"/>
                <Cell col="8" text="cntlcd4"/>
                <Cell col="9" text="instcd"/>
                <Cell col="10" text="orgcdid"/>
              </Band>
              <Band id="body">
                <Cell celltype="head"/>
                <Cell col="1" text="bind:cdid" enable="false"/>
                <Cell col="2" displaytype="text" edittype="text" style="align:left top;padding:5 2 1 2;" text="bind:cdnm" wordwrap="word" editautoselect="true"/>
                <Cell col="3" displaytype="date" edittype="date" text="bind:cntlcd1" expr="expr:utlf_isNull(cntlcd1) || cntlcd1 == '-' ? '' : cntlcd1" editautoselect="true" calendardisplaynulltype="none"/>
                <Cell col="4" displaytype="date" edittype="date" text="bind:cntlcd2" expr="expr:utlf_isNull(cntlcd2) || cntlcd2 == '-' ? '' : cntlcd2" editautoselect="true" calendardisplaynulltype="none"/>
                <Cell col="5" displaytype="text" edittype="text" style="align:left top;padding:5 2 1 2;" text="bind:detldesc" wordwrap="word"/>
                <Cell col="6" displaytype="text" edittype="text" style="align:center;" text="bind:dispseq"/>
                <Cell col="7" displaytype="combo" edittype="combo" style="align:center;padding:1 2 1 2;" text="bind:useyn" combodataset="ds_useyn" combocodecol="value" combodatacol="label"/>
                <Cell col="8" text="bind:cntlcd4"/>
                <Cell col="9" text="bind:instcd"/>
                <Cell col="10" text="bind:orgcdid"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Static text="세부항목 상세정보" position="absolute 0 100 188 116" id="caption4" class="tit_2"/>
        <Button position="absolute 1085 95 1138 114" id="btn_grdadd" class="btn2" text="행추가" onclick="btn_grdadd_onclick"/>
        <Button position="absolute 1141 95 1194 114" id="btn_grddel" class="btn2" text="행삭제" onclick="btn_grddel_onclick"/>
        <Static text="전문의 평가 - 세부항목 관리" position="absolute 0 0 205 24" id="caption1" class="tit_1"/>
        <Div position="absolute 0 13 1195 44" id="group4" scrollbars="autoboth">
          <Layouts>
            <Layout>
              <Shape position="absolute 0 25 1195 31" linetype="horizontal" id="line2" class="line_6" anchor="default"/>
              <Button position="absolute 1139 4 1195 26" id="btn_save" class="btn4" text="저장" anchor="default" onclick="group4_btn_save_onclick"/>
            </Layout>
          </Layouts>
        </Div>
        <Button position="absolute 690 55 746 77" id="btn_search" class="btn1" text="조회" onclick="btn_search_onclick"/>
        <Shape position="absolute 672 55 678 77" linetype="vertical" id="line3"/>
        <Static text="※ 1.사용된 코드는 삭제하지 말고, 사용여부를 &quot;No&quot; 로 변경 후 저장하시기 바랍니다." position="absolute 0 725 503 745" id="caption3" style="color:#ff0000ff;"/>
        <Combo position="absolute 120 57 262 76" id="cmb_instcd" class="combo_s_default" enable="false" onitemchanged="cmb_instcd_onitemchanged"/>
        <Static text="기관코드" position="absolute 49 58 125 75" id="caption2" class="search_name"/>
        <Static text="사용여부" position="absolute 510 58 589 75" id="caption5" class="search_name"/>
        <Static text="2.신규코드는 저장 시 자동으로 코드가 생성됩니다." position="absolute 16 741 519 761" id="caption6" style="color:#ff0000ff;"/>
        <Combo position="absolute 330 57 485 76" id="cmb_flagcd" innerdataset="@ds_init_codeinfo_codelist" datacolumn="cdnm" codecolumn="cdid" onitemchanged="cmb_flagcd_onitemchanged"/>
        <Static text="부문" position="absolute 285 57 340 74" id="caption9" class="search_name"/>
        <Combo position="absolute 581 57 640 76" id="cmb_useyn" class="combo_s_default" codecolumn="codecolumn" datacolumn="datacolumn" onitemchanged="cmb_useyn_onitemchanged">
          <Dataset id="innerdataset">
            <ColumnInfo>
              <Column id="codecolumn"/>
              <Column id="datacolumn"/>
            </ColumnInfo>
            <Rows>
              <Row>
                <Col id="codecolumn">
                </Col>
                <Col id="datacolumn">전체</Col>
              </Row>
              <Row>
                <Col id="codecolumn">Y</Col>
                <Col id="datacolumn">Yes</Col>
              </Row>
              <Row>
                <Col id="codecolumn">N</Col>
                <Col id="datacolumn">No</Col>
              </Row>
            </Rows>
          </Dataset>
        </Combo>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_send_reqdata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="instcd" type="STRING" size="256" sumtext="기관코드"/>
          <Column id="flagcd" type="STRING" size="256"/>
          <Column id="useyn" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_init_prvg" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cnt" type="STRING" size="256" sumtext="권한유무(있으면 1, 없으면 0)"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_main_codeinfo_codelist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_main_codeinfo_codelist_oncolumnchanged">
        <ColumnInfo>
          <Column id="cdid" type="STRING" size="256" sumtext="코드"/>
          <Column id="cdnm" type="STRING" size="256" sumtext="코드명"/>
          <Column id="cntlcd1" type="STRING" size="256" sumtext="시작일자"/>
          <Column id="cntlcd2" type="STRING" size="256" sumtext="종료일자"/>
          <Column id="detldesc" type="STRING" size="256" sumtext="상세설명"/>
          <Column id="useyn" type="STRING" size="256" sumtext="구분1"/>
          <Column id="dispseq" type="STRING" size="256" sumtext="display순서"/>
          <Column id="cntlcd4" type="STRING" size="256" sumtext="부문코드"/>
          <Column id="instcd" type="STRING" size="256" sumtext="기관코드"/>
          <Column id="orgcdid" type="STRING" size="256" sumtext="원코드"/>
          <Column id="colIUD" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_codeinfo_codelist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cdid" type="STRING" size="256" sumtext="코드"/>
          <Column id="cdnm" type="STRING" size="256" sumtext="코드명"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_senddata_execdata_codelist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="status" type="STRING" size="256" sumtext="처리구분"/>
          <Column id="cdid" type="STRING" size="256" sumtext="코드"/>
          <Column id="cdnm" type="STRING" size="256" sumtext="코드명"/>
          <Column id="cntlcd1" type="STRING" size="256" sumtext="시작일자"/>
          <Column id="cntlcd2" type="STRING" size="256" sumtext="종료일자"/>
          <Column id="detldesc" type="STRING" size="256" sumtext="상세설명"/>
          <Column id="useyn" type="STRING" size="256" sumtext="구분1"/>
          <Column id="dispseq" type="STRING" size="256" sumtext="display순서"/>
          <Column id="cntlcd4" type="STRING" size="256" sumtext="부문코드"/>
          <Column id="instcd" type="STRING" size="256" sumtext="기관코드"/>
          <Column id="orgcdid" type="STRING" size="256" sumtext="원코드"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_hidden_item" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="count" type="STRING" size="256" sumtext="실행건수"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_useyn" 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">Yes</Col>
            <Col id="value">Y</Col>
          </Row>
          <Row>
            <Col id="label">No</Col>
            <Col id="value">N</Col>
          </Row>
        </Rows>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="cmb_instcd" propid="value" datasetid="ds_send_reqdata" columnid="instcd"/>
      <BindItem id="item1" compid="cmb_flagcd" propid="value" datasetid="ds_send_reqdata" columnid="flagcd"/>
      <BindItem id="item2" compid="cmb_useyn" propid="value" datasetid="ds_send_reqdata" columnid="useyn"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************
 * System Name		:	경대 의료정보시스템
 * Job Name 		:	mis_dligclaznsmngtxp -> SMRPD31200
 * Creator			:	yjh
 * Make Date 		:	2018-01-04
 * Description		:	
 *---------------------------------------------------------------------------------------
 * Modify Date		Modifier		Modify Description
 *---------------------------------------------------------------------------------------
 * 2018-01-04		yjh				TF->XP
 * 
 *---------------------------------------------------------------------------------------
 ****************************************************************************************/


//=======================================================================================
// Lib Include
//---------------------------------------------------------------------------------------
include "com_commonxp::comm_main.xjs";
include "mis_miscommonxp::MIS.xjs";


//=======================================================================================
// Global Form Variable
//---------------------------------------------------------------------------------------
var arErrorCode 	= new HashArray();


//=======================================================================================
// Function
//---------------------------------------------------------------------------------------
function readfunc(){					// 해당 조건에 대한 사용자 권한내역을 조회한다.
	//if (model.getValue("/root/send/reqdata/grupcdid") == ""){
	//	messageBox("구분코드를 선택한 후 조회하시기 바랍니다.", "E999", "");
	//	return;
	//}
	
	misfGridInit(datagrid1);
	
	var oParam = {};
		oParam.id          = "TRRPD31201";
		oParam.service     = "dligclaznsmngtapp.DutScheMngt";
		oParam.method      = "reqGetSpcEvalDtlItemList";
		oParam.inds        = "req=ds_send_reqdata";
		oParam.outds       = "ds_main_codeinfo_codelist=codelist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRRPD31201";

	tranf_submit(oParam);
	
	ds_main_codeinfo_codelist.addColumn("colIUD", "string");
}

function datacheck(){
	var scdid1 = "";
	var scdid2 = "";
	for (var i = 0; i < ds_main_codeinfo_codelist.rowcount; i ++){
		/*
		if (model.getValue("/root/main/codeinfo/codelist[" + i + "]/cdid") == ""){
			messageBox("코드는 필수 입력 항목입니다.", "E999", "");
			return false;
		}
		*/
		
		if (utlf_isNull(ds_main_codeinfo_codelist.getColumn(i, "cdnm"))){
			sysf_messageBox("명칭은 필수 입력 항목입니다.", "E999", "");
			return false;
		}

		/*
		scdid1 = model.getValue("/root/main/codeinfo/codelist[" + i + "]/cdid");
		var k = i + 1;
		for (var j = k; j < datagrid1.rows; j++){
			scdid2 = model.getValue("/root/main/codeinfo/codelist[" + j + "]/cdid");
			if (i != j){
				if (scdid1 == scdid2){
					messageBox(j + "번째 행에서 중복된 코드가 존재합니다", "E999", "");
					return false;
				}
			}
		}
		*/						
	}
	return true;
}

function ExecData(){
	ds_main_codeinfo_codelist.enableevent = false;
	ds_main_codeinfo_codelist.updatecontrol = false;
	
	grdf_setStatusColumn(ds_main_codeinfo_codelist, "status");
	
	ds_main_codeinfo_codelist.updatecontrol = true;
	ds_main_codeinfo_codelist.enableevent = true;
	
	var update = grdf_getGridUpdateData(datagrid1);
	ds_senddata_execdata_codelist.assign(update);
	
	var oParam = {};
		oParam.id          = "TXRPD31201";
		oParam.service     = "dligclaznsmngtapp.DutScheMngt";
		oParam.method      = "reqExeSaveSpcEvalDtlItemList";
		oParam.inds        = "codelist=ds_senddata_execdata_codelist:A";
		oParam.outds       = "ds_hidden_item=item";
		oParam.async       = false;
		oParam.callback    = "cf_TXRPD31201";

	tranf_submit(oParam);
	
	if (arErrorCode.pop("TXRPD31201") > -1){  //TXRPD30101
		readfunc();
	}
}

function cf_TXRPD31201(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}

function isDate(str) {					// 날짜 형식에 대한 적합여부 체크
	if (str == "") return true;             		// 빈건 체크안함
	if (trim(str) == "") return true;             // 빈건 체크안함
	if (isNaN(parseInt(str))) return false; // 숫자가 아니면 false
	if (str.length != 8) return false;      // 8자리(yyyymmdd)가 아니면 false
	
	var yy = new Number(str.substring(0, 4));
	var mm = new Number(str.substring(4, 6)) - 1;
	var dd = new Number(str.substring(6, 8));
	var date = new Date(yy, mm, dd);
	//alert(date.getFullYear() +"-" + (date.getMonth()+1) + "-" + date.getDate());
	if (yy != date.getFullYear() || 
		mm != date.getMonth() ||
		dd != date.getDate()) {
		return false;  // 존재하지 않는 날짜
	}

	return true;  // 존재하는 날짜
}
function trim(data){				// 문자에 대한 TRIM 작업
	return data.replace(/(^\s*)|(\s*$)/g, "");
}


//=======================================================================================
// Event
//---------------------------------------------------------------------------------------
/****************************************************************************************
 * Components		: Form
 * Components ID	: SMRPD31200
 * Event			: oninit
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 화면 처음 초기화시
 ****************************************************************************************/
function SMRPD31200_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);	//폼 초기화
}

/****************************************************************************************
 * Components		: Form
 * Components ID	: SMRPD31200
 * Event			: onload
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 화면 로딩 완료시
 ****************************************************************************************/
function SMRPD31200_onload(obj:Form, e:LoadEventInfo)
{
	grdf_setRowTypeIcon(datagrid1, 0);
	grdf_setGridSort(datagrid1);
	
	//전문의평가 관리권한 확인용 : 관리권한이 있는 자만 사용 가능
	var oParam = {};
		oParam.id          = "TRRPD31102";
		oParam.service     = "dligclaznsmngtapp.DutScheMngt";
		oParam.method      = "reqGetSpcEvalMngtPrvg";
		oParam.inds        = "req=ds_send_reqdata";
		oParam.outds       = "ds_init_prvg=codelist";
		oParam.async       = false;
		oParam.callback    = "cf_TRRPD31102";

	tranf_submit(oParam);
	
	if (arErrorCode.pop("TRRPD31102") > -1) {
		
		//alert(model.getValue("/root/init/prvg/cnt"));
		
		if(ds_init_prvg.getColumn(0, "cnt") != "1") {
			sysf_messageBox("프로그램 사용권한이 없습니다. 관리자에게 문의바랍니다.", "E999", "");
			return;
		}	
	}	

	misfComboInstCdListMulti("cmb_instcd", utlf_getCurrentDate(),"","N");					
	//model.setValue(cmb_instcd.attribute("ref"), getUserInfo("dutplceinstcd"));					
	//model.refresh();
	cmb_instcd.value = sysf_getUserInfo("dutplceinstcd"); 
	
	var oParam = {};
		oParam.id          = "TRRPD31202";
		oParam.service     = "dligclaznsmngtapp.DutScheMngt";
		oParam.method      = "reqGetSpcEvalItemComboList";
		oParam.inds        = "req=ds_send_reqdata";
		oParam.outds       = "ds_init_codeinfo_codelist=codelist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRRPD31202";

	tranf_submit(oParam);  //부문 코드 조회
	
	cmb_useyn.value = "Y"; 
	
	btn_search.click();
}

function cf_TRRPD31102(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}

/****************************************************************************************
 * Components		: Button
 * Components ID	: btn_grdadd
 * Event			: onclick
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 행추가버튼 클릭시
 ****************************************************************************************/
function btn_grdadd_onclick(obj:Button,  e:ClickEventInfo)
{
	if(utlf_isNull(cmb_flagcd.value)) {
		sysf_messageBox("부문이 선택되지 않았습니다. 먼저 부문을 선택 후 작업하십시요. ", "E999", "");
		cmb_flagcd.setFocus();
		return;
	}

	ds_main_codeinfo_codelist.addRow();
	var irow = ds_main_codeinfo_codelist.rowposition;
	ds_main_codeinfo_codelist.setColumn(irow, "instcd", cmb_instcd.value);
	ds_main_codeinfo_codelist.setColumn(irow, "cntlcd4", ds_send_reqdata.getColumn(0, "flagcd"));
	ds_main_codeinfo_codelist.setColumn(irow, "useyn", "Y");
	
	ds_main_codeinfo_codelist.rowposition = irow;
	datagrid1.setCellPos(datagrid1.getBindCellIndex("body", "cdnm"));
	datagrid1.setFocus();
	datagrid1.showEditor(true);
}

/****************************************************************************************
 * Components		: Button
 * Components ID	: btn_grddel
 * Event			: onclick
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 행삭제버튼 클릭시
 ****************************************************************************************/
function btn_grddel_onclick(obj:Button,  e:ClickEventInfo)
{
	var status = ds_main_codeinfo_codelist.getRowType(ds_main_codeinfo_codelist.rowposition);
	
	ds_main_codeinfo_codelist.enableevent = false;
	ds_main_codeinfo_codelist.updatecontrol = false;
	
	if(status == 1) {
		ds_main_codeinfo_codelist.setRowType(ds_main_codeinfo_codelist.rowposition, 8);
	}else if(status == 2) {
		ds_main_codeinfo_codelist.deleteRow(ds_main_codeinfo_codelist.rowposition);
	}else if(status == 4) {
		ds_main_codeinfo_codelist.setColumn(ds_main_codeinfo_codelist.rowposition, "colIUD", "u");
		ds_main_codeinfo_codelist.setRowType(ds_main_codeinfo_codelist.rowposition, 8);
	}else if(status == 8) {
		if(ds_main_codeinfo_codelist.getColumn(ds_main_codeinfo_codelist.rowposition, "colIUD") == "u") {
			ds_main_codeinfo_codelist.setRowType(ds_main_codeinfo_codelist.rowposition, 4);
		}else {
			ds_main_codeinfo_codelist.setRowType(ds_main_codeinfo_codelist.rowposition, 1);
		}
	}
	
	ds_main_codeinfo_codelist.updatecontrol = true;
	ds_main_codeinfo_codelist.enableevent = true;
}

/****************************************************************************************
 * Components		: Button
 * Components ID	: btn_save
 * Event			: onclick
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 저장버튼 클릭시
 ****************************************************************************************/
function group4_btn_save_onclick(obj:Button,  e:ClickEventInfo)
{
	if (datacheck() == false){
		return;
	}
	
	ExecData();
}

/****************************************************************************************
 * Components		: Button
 * Components ID	: btn_search
 * Event			: onclick
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 조회버튼 클릭시
 ****************************************************************************************/
function btn_search_onclick(obj:Button,  e:ClickEventInfo)
{
	readfunc();
}

/****************************************************************************************
 * Components		: Combo
 * Components ID	: cmb_instcd
 * Event			: onitemchanged
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 콤보 값 변경시
 ****************************************************************************************/
function cmb_instcd_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
{
	misfGridInit(datagrid1);
}

/****************************************************************************************
 * Components		: Combo
 * Components ID	: cmb_flagcd
 * Event			: onitemchanged
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 콤보 값 변경시
 ****************************************************************************************/
function cmb_flagcd_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
{
	btn_search.click();
}

/****************************************************************************************
 * Components		: Combo
 * Components ID	: cmb_useyn
 * Event			: onitemchanged
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 콤보 값 변경시
 ****************************************************************************************/
function cmb_useyn_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
{
	readfunc();
}

function ds_main_codeinfo_codelist_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
{
	ds_main_codeinfo_codelist.setColumn(e.row, "colIUD", "u");
}
]]></Script>
  </Form>
</FDL>