YNU_JEUS/app_home/himed/xpapps/emr/unprepmngtxp/xp/SPMRI03901_처방제어원인.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPMRI02900" position="absolute 0 0 1200 785" titletext="처방제어원인" oninit="SPMRI03901_oninit" onload="SPMRI03901_onload">
    <Layouts>
      <Layout>
        <Grid position="absolute 8 64 1186 258" id="grd_norecord" binddataset="ds_grd_norecord" oncelldblclick="grd_docinfo_oncelldblclick">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="79"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="690"/>
                <Column size="61"/>
                <Column size="82"/>
                <Column size="92"/>
              </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="입원일"/>
                <Cell col="6" text="생성번호"/>
              </Band>
              <Band id="body">
                <Cell text="bind:checkcode"/>
                <Cell col="1" text="bind:orddeptcd"/>
                <Cell col="2" text="bind:jobposcd"/>
                <Cell col="3" style="align:left;" text="bind:checkmsg"/>
                <Cell col="4" text="bind:checkpid"/>
                <Cell col="5" text="bind:checkindd"/>
                <Cell col="6" text="bind:checkcretno"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Static text="등록번호" position="absolute 8 9 75 32" align="align:center middle;" id="caption32" class="cell_1" onclick="caption32_onclick"/>
        <Edit position="absolute 80 8 167 30" id="ipt_pid" onkeyup="ipt_pid_onkeyup"/>
        <Edit position="absolute 748 8 800 30" id="ipt_unprepdrid" onkeydown="ipt_unprepdr_onkeydown"/>
        <Static id="caption00" text="미비의사" onclick="caption32_onclick" class="cell_1" position="absolute 638 9 712 32"/>
        <Edit id="ipt_unprepdeptcd" taborder="2" onkeydown="ipt_unprepdr_onkeydown" position="absolute 744 40 836 62"/>
        <Button id="btn_imsi" taborder="3" class="icon_search" position="absolute 720 9 740 29" onclick="btn_imsi_onclick"/>
        <Edit id="ipt_unprepdrnm" taborder="4" onkeydown="ipt_unprepdr_onkeydown" position="absolute 804 8 896 30"/>
        <Edit id="ipt_unprepdeptnm" taborder="5" onkeydown="ipt_unprepdr_onkeydown" position="absolute 844 40 936 62"/>
        <Button id="btn_search" taborder="6" text="조회" onclick="btn_search_onclick" class="btn1" position="absolute 902 9 958 31" anchor="top right"/>
        <Grid id="grd_staffmibirecord" taborder="7" binddataset="ds_grd_staffmibirecord" useinputpanel="false" oncelldblclick="grd_docinfo_oncelldblclick" position="absolute 8 552 1189 778">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="40"/>
                <Column size="78"/>
                <Column size="0"/>
                <Column size="93"/>
                <Column size="93"/>
                <Column size="94"/>
                <Column size="82"/>
                <Column size="82"/>
                <Column size="218"/>
                <Column size="0"/>
                <Column size="133"/>
                <Column size="350"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell text="NO"/>
                <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="직종코드"/>
                <Cell col="10" text="항목명"/>
                <Cell col="11" text="의무기록전달사항"/>
              </Band>
              <Band id="body">
                <Cell text="expr:currow + 1"/>
                <Cell col="1" text="bind:overchk"/>
                <Cell col="2" text="bind:orddeptcd"/>
                <Cell col="3" text="bind:pid"/>
                <Cell col="4" text="bind:indd"/>
                <Cell col="5" text="bind:dschdd"/>
                <Cell col="6" text="bind:formrecdd"/>
                <Cell col="7" text="bind:unprepstat"/>
                <Cell col="8" displaytype="normal" edittype="none" text="bind:formnm"/>
                <Cell col="9" text="bind:jobposcd"/>
                <Cell col="10" text="bind:unprepitemnm"/>
                <Cell col="11" style="align:left;" text="bind:medirecalertcnts"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Static id="caption8" text="staffsign 미비(외래 처방 제어)" class="tit_2" position="absolute 5 526 304 542" onclick="caption8_onclick"/>
        <Grid id="grd_mibirecord" taborder="8" binddataset="ds_grd_mibirecord" useinputpanel="false" oncelldblclick="grd_docinfo_oncelldblclick" position="absolute 8 294 1189 520">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="78"/>
                <Column size="0"/>
                <Column size="93"/>
                <Column size="93"/>
                <Column size="94"/>
                <Column size="71"/>
                <Column size="82"/>
                <Column size="178"/>
                <Column size="0"/>
                <Column size="133"/>
                <Column size="350"/>
              </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="진료일자"/>
                <Cell col="6" text="미비상태"/>
                <Cell col="7" text="서식명"/>
                <Cell col="8" text="직종코드"/>
                <Cell col="9" text="항목명"/>
                <Cell col="10" text="의무기록전달사항"/>
              </Band>
              <Band id="body">
                <Cell text="bind:overchk"/>
                <Cell col="1" text="bind:orddeptcd"/>
                <Cell col="2" text="bind:pid"/>
                <Cell col="3" text="bind:indd"/>
                <Cell col="4" text="bind:dschdd"/>
                <Cell col="5" text="bind:formrecdd"/>
                <Cell col="6" text="bind:unprepstat"/>
                <Cell col="7" displaytype="normal" edittype="none" text="bind:formnm"/>
                <Cell col="8" text="bind:jobposcd"/>
                <Cell col="9" text="bind:unprepitemnm"/>
                <Cell col="10" style="align:left;" text="bind:medirecalertcnts"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Static id="caption01" text="전공의 미비(입원 처방 제어)" onclick="caption8_onclick" class="tit_2" position="absolute 5 268 272 284"/>
        <Static id="caption02" text="기록누락(입원 처방 제어)" onclick="caption8_onclick" class="tit_2" position="absolute 8 40 251 56"/>
        <Button id="btn_search00" taborder="9" text="조회" class="btn1" position="absolute 420 9 476 31" anchor="top right" onclick="btn_search00_onclick"/>
        <Static id="caption03" text="진료/수술과" onclick="caption32_onclick" class="cell_1" position="absolute 189 10 277 33"/>
        <Combo id="cmb_orddeptcd" taborder="10" position="absolute 284 10 412 30" index="-1" innerdataset="@ds_orddept" codecolumn="deptcd" datacolumn="depthngnm"/>
        <Edit id="ipt_indd" taborder="11" position="absolute 228 40 320 62"/>
        <Edit id="ipt_cretno" taborder="12" position="absolute 332 39 424 61"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_grd_docinfo" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false" onrowposchanged="ds_grd_docinfo_onrowposchanged">
        <ColumnInfo>
          <Column id="checkflag" type="STRING" size="256" sumtext="check구분"/>
          <Column id="orddeptnm" type="STRING" size="256" sumtext="등록번호"/>
          <Column id="orddeptcd" type="STRING" size="256" sumtext="진료과코드"/>
          <Column id="jobposnm" type="STRING" size="256" sumtext="직종명"/>
          <Column id="jobposcd" type="STRING" size="256" sumtext="직종코드"/>
          <Column id="orddrid" type="STRING" size="256" sumtext="진료의id"/>
          <Column id="orddrnm" type="STRING" size="256" sumtext="진료의명"/>
          <Column id="deptabbrnm" type="STRING" size="256" sumtext="부서약어명"/>
          <Column id="drstate" type="STRING" size="256" sumtext="진료상태"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_grd_docinfo_jobposnm" 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">St</Col>
            <Col id="value">St</Col>
          </Row>
          <Row>
            <Col id="label">R</Col>
            <Col id="value">R</Col>
          </Row>
          <Row>
            <Col id="label">I</Col>
            <Col id="value">I</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_jlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="cretno" type="STRING" size="256"/>
          <Column id="indd" type="STRING" size="256"/>
          <Column id="orddeptcd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_send_reqdata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="unprepdeptcd" type="STRING" size="256" sumtext="진료과코드"/>
          <Column id="unprepdeptnm" type="STRING" size="256" sumtext="진료부서명"/>
          <Column id="unprepdrid" type="STRING" size="256" sumtext="미비의사"/>
          <Column id="unprepdrnm" type="STRING" size="256" sumtext="미비의사명"/>
          <Column id="pid" type="STRING" size="256" sumtext="챠트번호"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_grd_norecord" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="checkcode" type="STRING" size="256"/>
          <Column id="checkmsg" type="STRING" size="256"/>
          <Column id="checkhour" type="STRING" size="256"/>
          <Column id="checkpid" type="STRING" size="256"/>
          <Column id="checkindd" type="STRING" size="256"/>
          <Column id="checkcretno" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_grd_staffmibirecord" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="overchk" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="indd" type="STRING" size="256"/>
          <Column id="dschdd" type="STRING" size="256"/>
          <Column id="formnm" type="STRING" size="256"/>
          <Column id="unprepitemnm" type="STRING" size="256"/>
          <Column id="medirecalertcnts" type="STRING" size="256"/>
          <Column id="unprepstat" type="STRING" size="256"/>
          <Column id="formrecdd" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_grd_mibirecord" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="overchk" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="indd" type="STRING" size="256"/>
          <Column id="dschdd" type="STRING" size="256"/>
          <Column id="formnm" type="STRING" size="256"/>
          <Column id="unprepitemnm" type="STRING" size="256"/>
          <Column id="medirecalertcnts" type="STRING" size="256"/>
          <Column id="unprepstat" type="STRING" size="256"/>
          <Column id="formrecdd" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_orddept" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="deptcd" type="STRING" size="256"/>
          <Column id="depthngnm" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="ipt_pid" propid="value" datasetid="ds_send_reqdata" columnid="pid"/>
      <BindItem id="item1" compid="ipt_unprepdrid" propid="value" datasetid="ds_send_reqdata" columnid="unprepdrid"/>
      <BindItem id="item2" compid="ipt_unprepdeptcd" propid="value" datasetid="ds_send_reqdata" columnid="unprepdeptcd"/>
      <BindItem id="item3" compid="ipt_unprepdrnm" propid="value" datasetid="ds_send_reqdata" columnid="unprepdrnm"/>
      <BindItem id="item4" compid="ipt_unprepdeptnm" propid="value" datasetid="ds_send_reqdata" columnid="unprepdeptnm"/>
    </Bind>
    <InitValue>
      <Edit id="ipt_unprepdeptcd" visible="false"/>
      <Edit id="ipt_unprepdeptnm" visible="false"/>
      <Edit id="ipt_indd" visible="false"/>
      <Edit id="ipt_cretno" visible="false"/>
    </InitValue>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2014-10-20
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2014-10-20      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/

//=======================================================================================
// Lib Include
//---------------------------------------------------------------------------------------
include "com_commonxp::comm_main.xjs"
include "emr_prcpmngtxp::MMO001.xjs";

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

//=======================================================================================
// Function 
//---------------------------------------------------------------------------------------

/****************************************************************************************
 * Argument			: 01.sKey	: 코드아이디
 *					: 02.sValue	: 코드명
 * Description		: 공통코드를 가져온다.
 ****************************************************************************************/

/**
 * @desc 미비의사 조회
 * @param srchflag 검색구분(id:아이디, nm:명)
 *        unprepdeptcd 미비진료과
 *        unprepdr 미비의사(srch?id:아이디, nm:명)
 *        stnddd 기준일자 
 *        deptengabbr 부서약어명 
 */ 

/****************************************************************************************
 * Components		: 
 * Components ID	: button5
 * Event			: onlbuttonup
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 
 ****************************************************************************************/
function SPMRI03901_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
	ds_send_reqdata.clearData();
	ds_send_reqdata.addRow();
}


function SPMRI03901_onload(obj:Form, e:LoadEventInfo)
{
	var dutplcecd = sysf_getUserInfo("dutplcecd");
	setDeptCodeList(dutplcecd);
}


function btn_imsi_onclick(obj:Button,  e:ClickEventInfo)
{
	var iParam = frmf_modal("SPZSU10103", "SPZSU10103", null, null, 1, 200, 200, null, null, null, null, null, "M");
	if(!utlf_isNull(iParam)){
		ds_send_reqdata.setColumn(0, "unprepdrid", iParam.getColumn(0, "userid"));
		ds_send_reqdata.setColumn(0, "unprepdrnm", iParam.getColumn(0, "usernm"));
		ds_send_reqdata.setColumn(0, "unprepdeptcd", iParam.getColumn(0, "dutplcecd"));
		ds_send_reqdata.setColumn(0, "unprepdeptnm", iParam.getColumn(0, "dutplcenm"));
	}
}

function btn_search_onclick(obj:Button,  e:ClickEventInfo)
{
	fSearch();

}

function fSearch() {
	var dutplcecd = ipt_unprepdeptcd.value;
	var unprepdeptcd = ipt_unprepdeptcd.value;
    var deptflag ="01";
    var indschflag ="A";
    var unprepdrid =ipt_unprepdrid.value;
    var drflag ="01";
	var completeflag ="";
	var unprepsign = "Y";
	var chk24mibi = "Y";
	var formcd = "-";
	var unprepitemcd ="-";
	var doctkindflag = "-";
	
	//staff 미비
	dsf_createDsRow("ds_send_TRMRI01801", [{col: "unprepdeptcd", type:"string", size:256, val:"-"}
						  ,{col: "deptflag", type:"string", size:256, val:deptflag}
						  ,{col: "indschflag", type:"string", size:256, val:indschflag}
						  ,{col: "unprepdrid", type:"string", size:256, val:unprepdrid}
						  ,{col: "drflag", type:"string", size:256, val:drflag}
						  ,{col: "completeflag", type:"string", size:256, val:completeflag}
						  ,{col: "unprepsign", type:"string", size:256, val:unprepsign}
						  ,{col: "chk24mibi", type:"string", size:256, val:chk24mibi}
						  ,{col: "doctkindflag", type:"string", size:256, val:doctkindflag}
						  ,{col: "unprepitemcd", type:"string", size:256, val:unprepitemcd}
						  ,{col: "formcd", type:"string", size:256, val:formcd}
						  ]);
						  
	var oParam = {};
	oParam.id          = "TRMRI01801";
	oParam.service     = "unprepmngtapp.ChrtUnprepMngt";
	oParam.method      = "reqGetUnPrepDrClsList";
	oParam.inds        = "req=ds_send_TRMRI01801";
	oParam.outds       = "ds_grd_staffmibirecord=unpreplist";
	oParam.async       = false;
	//oParam.callback    = "cf_TRARC02501";
	
	tranf_submit(oParam);
	
	unprepsign = "N";
	doctkindflag = "R";
	
	dsf_createDsRow("ds_send_TRMRI01801_2", [{col: "unprepdeptcd", type:"string", size:256, val:"-"}
						  ,{col: "deptflag", type:"string", size:256, val:deptflag}
						  ,{col: "indschflag", type:"string", size:256, val:indschflag}
						  ,{col: "unprepdrid", type:"string", size:256, val:unprepdrid}
						  ,{col: "drflag", type:"string", size:256, val:drflag}
						  ,{col: "completeflag", type:"string", size:256, val:completeflag}
						  ,{col: "unprepsign", type:"string", size:256, val:unprepsign}
						  ,{col: "chk24mibi", type:"string", size:256, val:chk24mibi}
						  ,{col: "doctkindflag", type:"string", size:256, val:doctkindflag}
						  ,{col: "unprepitemcd", type:"string", size:256, val:unprepitemcd}
						  ,{col: "formcd", type:"string", size:256, val:formcd}
						  ]);
						  
	var oParam = {};
	oParam.id          = "TRMRI01801_2";
	oParam.service     = "unprepmngtapp.ChrtUnprepMngt";
	oParam.method      = "reqGetUnPrepDrClsList";
	oParam.inds        = "req=ds_send_TRMRI01801_2";
	oParam.outds       = "ds_grd_mibirecord=unpreplist";
	oParam.async       = false;
	
	tranf_submit(oParam);
}

function fSearch_pid() {
	var pid = ipt_pid.value;
	var cretno = ipt_cretno.value;
	var indd = ipt_indd.value;
	var dutplcecd = cmb_orddeptcd.value;
	
	if (utlf_isNull(pid))
	{
		sysf_messageBox("등록번호가 입력되지 않았습니다","I");
		return;
	}
	
	if (utlf_isNull(dutplcecd))
	{
		sysf_messageBox("부서가 선택되지 않았습니다","I");
		return;
	}
	
	
// 	var indd = "";
// 	var cretno = "";
// 	
// 	var dutplcecd = cmb_orddeptcd.value;
// 	
// 	dsf_createDsRow("ds_send_3901", [{col: "pid", type:"string", size:256, val:pid}
// 						  ]);
// 						  
// 	var oParam = {};
// 	oParam.id          = "TR3901";
// 	oParam.service     = "unprepmngtapp.ChrtUnprepMngt";
// 	oParam.method      = "reqGetJaewonList";
// 	oParam.inds        = "req=ds_send_3901";
// 	oParam.outds       = "ds_jlist=jlist";
// 	oParam.async       = false;
// 
// 	tranf_submit(oParam);
// 	
// 	indd = ds_jlist.getColumn(0,"indd");
// 	cretno = ds_jlist.getColumn(0,"cretno");
// 	dutplcecd = ds_jlist.getColumn(0,"orddeptcd");
	
	
	dsf_createDsRow("ds_send_TRMMO00124", [{col: "pid", type:"string", size:256, val:pid}
						  ,{col: "indd", type:"string", size:256, val:indd}
						  ,{col: "cretno", type:"string", size:256, val:cretno}
						  ,{col: "dutplcecd", type:"string", size:256, val:dutplcecd}
						  ]);
						  
	var oParam = {};
	oParam.id          = "TRMMO00124";
	oParam.service     = "prcpmngtapp.PrcpMngt";
	oParam.method      = "reqGetChkValidRec";
	oParam.inds        = "req=ds_send_TRMMO00124";
	oParam.outds       = "ds_grd_norecord=rtndata";
	oParam.async       = false;

	tranf_submit(oParam);
	
}


function btn_search00_onclick(obj:Button,  e:ClickEventInfo)
{
	
	fSearch_pid();
}

function setDeptCodeList(sDeptcd, sOrddd){
	lf_mmbfGetDeptCodeComboList(ds_orddept, "O", sOrddd);
	
	if(!utlf_isNull(sDeptcd))
		cmb_orddeptcd.value = sDeptcd;
}

function ipt_pid_onkeyup(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == "13"){
		
		var pid = ipt_pid.value;
		
		sysf_trace(pid);
		
		dsf_createDsRow("ds_send_3901", [{col: "pid", type:"string", size:256, val:pid}
							  ]);
							  
		var oParam = {};
		oParam.id          = "TR3901";
		oParam.service     = "unprepmngtapp.ChrtUnprepMngt";
		oParam.method      = "reqGetJaewonList";
		oParam.inds        = "req=ds_send_3901";
		oParam.outds       = "ds_jlist=jlist";
		oParam.async       = false;

		tranf_submit(oParam);
		
		cmb_orddeptcd.value = ds_jlist.getColumn(0,"orddeptcd");
		ipt_indd.value = ds_jlist.getColumn(0,"indd");
		ipt_cretno.value = ds_jlist.getColumn(0,"cretno");
	
	}
}
]]></Script>
  </Form>
</FDL>