SMMNW15400_이송요원 영상 검사조회.xfdl 22 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460
  1. <?xml version="1.0" encoding="utf-8"?>
  2. <FDL version="1.5">
  3. <TypeDefinition url="..\..\..\default_typedef.xml"/>
  4. <Form id="SMMNW15400" position="absolute 0 0 1200 800" titletext="영상/핵의학 검사조회" oninit="SMMNW15400_oninit" onload="SMMNW15400_onload">
  5. <Layouts>
  6. <Layout>
  7. <Div position="absolute 0 0 1190 790" id="group5" scrollbars="autoboth">
  8. <Layouts>
  9. <Layout>
  10. <Div position="absolute 0 20 1185 95" align="align:center top;" id="grp_sea" class="div_SA">
  11. <Layouts>
  12. <Layout>
  13. <Static text="병 동 :" position="absolute 8 11 83 28" id="caption11" class="search_name"/>
  14. <Static text="처방적용일 :" position="absolute 265 11 357 28" id="caption17" class="search_name"/>
  15. <Combo position="absolute 84 10 220 29" id="cmb_wardcd" class="combo_search" innerdataset="@ds_init_dept_dept" datacolumn="depthngnm" codecolumn="deptcd"/>
  16. <Calendar position="absolute 356 10 466 29" id="ipt_prcpdd" class="input_search" autoselect="true"/>
  17. <Button position="absolute 990 30 1046 52" id="button1" class="btn1" text="조회" onclick="group5_grp_sea_button1_onclick"/>
  18. <Button position="absolute 1110 30 1166 52" id="button2" class="btn6" text="출력" onclick="group5_grp_sea_button2_onclick"/>
  19. <Static text="처방구분 :" position="absolute 8 46 83 63" id="caption1" class="search_name"/>
  20. <Combo position="absolute 85 45 220 64" id="cmb_prcpclsflag" class="combo_search" innerdataset="@ds_codelist" datacolumn="cdnm" codecolumn="cdid"/>
  21. <Shape position="absolute 967 10 973 65" linetype="vertical" id="line1" class="line_4"/>
  22. <Static text="수행구분 :" position="absolute 265 46 340 63" id="caption2" class="search_name"/>
  23. <Radio position="absolute 340 44 530 64" id="rdo_execflag" columncount="3" codecolumn="codecolumn" datacolumn="datacolumn" onitemchanged="group5_grp_sea_rdo_execflag_onitemchanged">
  24. <Dataset id="innerdataset">
  25. <ColumnInfo>
  26. <Column id="codecolumn"/>
  27. <Column id="datacolumn"/>
  28. </ColumnInfo>
  29. <Rows>
  30. <Row>
  31. <Col id="codecolumn">
  32. </Col>
  33. <Col id="datacolumn">전체</Col>
  34. </Row>
  35. <Row>
  36. <Col id="codecolumn">1</Col>
  37. <Col id="datacolumn">미수행</Col>
  38. </Row>
  39. <Row>
  40. <Col id="codecolumn">2</Col>
  41. <Col id="datacolumn">수행</Col>
  42. </Row>
  43. </Rows>
  44. </Dataset>
  45. </Radio>
  46. <CheckBox position="absolute 472 10 552 30" align="align:center middle;" id="chk_rsrvinclude" text="예약일포함" truevalue="Y" onclick="group5_grp_sea_chk_rsrvinclude_onclick"/>
  47. <Button position="absolute 1050 30 1106 52" id="button3" class="btn7" text="엑셀" onclick="group5_grp_sea_button3_onclick"/>
  48. </Layout>
  49. </Layouts>
  50. </Div>
  51. <Static text="영상/핵의학 검사조회" position="absolute 0 0 185 20" id="caption6" class="tit_1"/>
  52. <Shape position="absolute 0 105 1185 111" linetype="horizontal" id="line3" class="line_10"/>
  53. <Grid position="absolute 0 110 1185 785" id="grd_trnsprcplist" class="datagrid2" binddataset="ds_main_trnsprcpinfo_trnsprcplist" onheadclick="group5_grd_trnsprcplist_onheadclick">
  54. <Formats>
  55. <Format id="default">
  56. <Columns>
  57. <Column size="25"/>
  58. <Column size="45"/>
  59. <Column size="65"/>
  60. <Column size="65"/>
  61. <Column size="65"/>
  62. <Column size="115"/>
  63. <Column size="370"/>
  64. <Column size="255"/>
  65. <Column size="80"/>
  66. <Column size="75"/>
  67. <Column size="0"/>
  68. <Column size="0"/>
  69. </Columns>
  70. <Rows>
  71. <Row size="24" band="head"/>
  72. <Row size="24"/>
  73. </Rows>
  74. <Band id="head">
  75. <Cell displaytype="checkbox" edittype="checkbox" expr="0"/>
  76. <Cell col="1" text="병실명"/>
  77. <Cell col="2" text="환자명"/>
  78. <Cell col="3" text="등록번호"/>
  79. <Cell col="4" text="S/A"/>
  80. <Cell col="5" text="처방코드"/>
  81. <Cell col="6" text="처방명"/>
  82. <Cell col="7" text="remark"/>
  83. <Cell col="8" text="처방적용일자"/>
  84. <Cell col="9" text="예약일자"/>
  85. <Cell col="10" text="수행"/>
  86. <Cell col="11"/>
  87. </Band>
  88. <Band id="body">
  89. <Cell displaytype="checkbox" edittype="checkbox" text="bind:check"/>
  90. <Cell col="1" style="align:left;" text="bind:roomcd"/>
  91. <Cell col="2" style="align:left;" text="bind:patnm"/>
  92. <Cell col="3" style="align:left;" text="bind:pid"/>
  93. <Cell col="4" style="align:left;" text="bind:sexage"/>
  94. <Cell col="5" style="align:left;" text="bind:prcpcd"/>
  95. <Cell col="6" style="align:left;" text="bind:prcpnm"/>
  96. <Cell col="7" style="align:left;" text="bind:prcpdelivefact"/>
  97. <Cell col="8" displaytype="date" text="bind:prcphopedd" calendardisplaynulltype="none"/>
  98. <Cell col="9" displaytype="date" text="bind:rsrvdd" calendardisplaynulltype="none"/>
  99. <Cell col="10" text="bind:execyn"/>
  100. <Cell col="11" text="bind:prcpdd"/>
  101. </Band>
  102. </Format>
  103. </Formats>
  104. </Grid>
  105. </Layout>
  106. </Layouts>
  107. </Div>
  108. </Layout>
  109. </Layouts>
  110. <Objects>
  111. <Dataset id="ds_init_dept_dept" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
  112. <ColumnInfo>
  113. <Column id="depthngnm" type="STRING"/>
  114. <Column id="deptcd" type="STRING"/>
  115. </ColumnInfo>
  116. </Dataset>
  117. <Dataset id="ds_codelist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
  118. <ColumnInfo>
  119. <Column id="cdnm" type="STRING"/>
  120. <Column id="cdid" type="STRING"/>
  121. </ColumnInfo>
  122. </Dataset>
  123. <Dataset id="ds_send_req" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  124. <ColumnInfo>
  125. <Column id="wardcd" type="STRING" size="256" sumtext="병동코드"/>
  126. <Column id="prcpdd" type="STRING" size="256" sumtext="업무일자"/>
  127. <Column id="prcpclsflag" type="STRING" size="256" sumtext="처방구분"/>
  128. <Column id="rsrvinclude" type="STRING" size="256" sumtext="예약일포함"/>
  129. <Column id="execflag" type="STRING" size="256" sumtext="수행구분"/>
  130. </ColumnInfo>
  131. <Rows>
  132. <Row/>
  133. </Rows>
  134. </Dataset>
  135. <Dataset id="ds_main_trnsprcpinfo_trnsprcplist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_main_trnsprcpinfo_trnsprcplist_oncolumnchanged">
  136. <ColumnInfo>
  137. <Column id="check" type="STRING" size="256" sumtext="선택"/>
  138. <Column id="roomcd" type="STRING" size="256" sumtext="병실명"/>
  139. <Column id="patnm" type="STRING" size="256" sumtext="환자명"/>
  140. <Column id="pid" type="STRING" size="256" sumtext="등록번호"/>
  141. <Column id="prcpcd" type="STRING" size="256" sumtext="처방코드"/>
  142. <Column id="prcpnm" type="STRING" size="256" sumtext="처방명"/>
  143. <Column id="prcphopedd" type="STRING" size="256" sumtext="적용희망일자"/>
  144. <Column id="rsrvdd" type="STRING" size="256" sumtext="예약일자"/>
  145. <Column id="execyn" type="STRING" size="256" sumtext="수행여부"/>
  146. <Column id="sexage" type="STRING" size="256" sumtext="성별나이"/>
  147. <Column id="prcpdelivefact" type="STRING" size="256" sumtext="전달사항"/>
  148. <Column id="prcpdd" type="STRING" size="256" sumtext="처방일자"/>
  149. </ColumnInfo>
  150. </Dataset>
  151. <Dataset id="ds_main_cond" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  152. <ColumnInfo>
  153. <Column id="wardcd" type="STRING" size="256"/>
  154. <Column id="roomcd" type="STRING" size="256"/>
  155. <Column id="patnm" type="STRING" size="256"/>
  156. <Column id="pid" type="STRING" size="256"/>
  157. <Column id="prcpdd" type="STRING" size="256"/>
  158. <Column id="prcpclsflag" type="STRING" size="256"/>
  159. <Column id="multicheck" type="STRING" size="256"/>
  160. <Column id="execflag" type="STRING" size="256"/>
  161. <Column id="rsrvinclude" type="STRING" size="256"/>
  162. <Column id="wardnm" type="STRING" size="256"/>
  163. </ColumnInfo>
  164. <Rows>
  165. <Row/>
  166. </Rows>
  167. </Dataset>
  168. <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  169. <Dataset id="ds_temp_prtinfo_trnsprcplist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  170. <ColumnInfo>
  171. <Column id="check" type="STRING" size="256" sumtext="선택"/>
  172. <Column id="roomcd" type="STRING" size="256" sumtext="병실명"/>
  173. <Column id="patnm" type="STRING" size="256" sumtext="환자명"/>
  174. <Column id="pid" type="STRING" size="256" sumtext="등록번호"/>
  175. <Column id="prcpcd" type="STRING" size="256" sumtext="처방코드"/>
  176. <Column id="prcpnm" type="STRING" size="256" sumtext="처방명"/>
  177. <Column id="prcphopedd" type="STRING" size="256" sumtext="적용희망일자"/>
  178. <Column id="rsrvdd" type="STRING" size="256" sumtext="예약일자"/>
  179. <Column id="execyn" type="STRING" size="256" sumtext="수행여부"/>
  180. <Column id="sexage" type="STRING" size="256" sumtext="성별나이"/>
  181. <Column id="prcpdelivefact" type="STRING" size="256" sumtext="전달사항"/>
  182. <Column id="prcpdd" type="STRING" size="256" sumtext="처방일자"/>
  183. </ColumnInfo>
  184. </Dataset>
  185. </Objects>
  186. <Bind>
  187. <BindItem id="item0" compid="group5.grp_sea.cmb_wardcd" propid="value" datasetid="ds_main_cond" columnid="wardcd"/>
  188. <BindItem id="item1" compid="group5.grp_sea.cmb_prcpclsflag" propid="value" datasetid="ds_main_cond" columnid="prcpclsflag"/>
  189. <BindItem id="item2" compid="group5.grp_sea.ipt_prcpdd" propid="value" datasetid="ds_main_cond" columnid="prcpdd"/>
  190. <BindItem id="item3" compid="group5.grp_sea.chk_rsrvinclude" propid="value" datasetid="ds_main_cond" columnid="rsrvinclude"/>
  191. <BindItem id="item4" compid="group5.grp_sea.rdo_execflag" propid="value" datasetid="ds_main_cond" columnid="execflag"/>
  192. </Bind>
  193. <Script type="xscript4.0"><![CDATA[/***************************************************************************************
  194. * System Name : 경대 의료정보시스템
  195. * Job Name : emr_wardcarexp -> SMMNW15400
  196. * Creator : yjh
  197. * Make Date : 2017-01-09
  198. * Description :
  199. *---------------------------------------------------------------------------------------
  200. * Modify Date Modifier Modify Description
  201. *---------------------------------------------------------------------------------------
  202. * 2017-01-09 yjh TF->XP
  203. *
  204. *---------------------------------------------------------------------------------------
  205. ****************************************************************************************/
  206. //=======================================================================================
  207. // Lib Include
  208. //---------------------------------------------------------------------------------------
  209. include "com_commonxp::comm_main.xjs";
  210. include "emr_carecomxp::CareCom.xjs";
  211. //=======================================================================================
  212. // Global Form Variable
  213. //---------------------------------------------------------------------------------------
  214. //=======================================================================================
  215. // Function
  216. //---------------------------------------------------------------------------------------
  217. function fSearch(){
  218. group5.grd_trnsprcplist.setCellProperty("Head", 0, "expr", "0");
  219. ds_main_trnsprcpinfo_trnsprcplist.clearData();
  220. ds_send_req.setColumn(0, "wardcd", ds_main_cond.getColumn(0, "wardcd"));
  221. ds_send_req.setColumn(0, "prcpdd", ds_main_cond.getColumn(0, "prcpdd"));
  222. ds_send_req.setColumn(0, "prcpclsflag", ds_main_cond.getColumn(0, "prcpclsflag"));
  223. ds_send_req.setColumn(0, "execflag", ds_main_cond.getColumn(0, "execflag"));
  224. ds_send_req.setColumn(0, "rsrvinclude", ds_main_cond.getColumn(0, "rsrvinclude"));
  225. var oParam = {};
  226. oParam.id = "TRMNW15400";
  227. oParam.service = "wardcareapp.TranMngt";
  228. oParam.method = "reqGetTrnsPrcpList";
  229. oParam.inds = "req=ds_send_req";
  230. oParam.outds = "ds_main_trnsprcpinfo_trnsprcplist=trnsprcplist";
  231. oParam.async = false;
  232. //oParam.callback = "cf_TRMNW15400";
  233. tranf_submit(oParam);
  234. ds_main_trnsprcpinfo_trnsprcplist.addColumn("check", "string");
  235. ds_main_trnsprcpinfo_trnsprcplist.rowposition = -1;
  236. }
  237. //=======================================================================================
  238. // Event
  239. //---------------------------------------------------------------------------------------
  240. /****************************************************************************************
  241. * Components : Form
  242. * Components ID : SMMNW15400
  243. * Event : oninit
  244. * Argument : 01.obj : Object Event has occurred
  245. * : 02.e : Event Object
  246. * Description : 화면 처음 초기화시
  247. ****************************************************************************************/
  248. function SMMNW15400_oninit(obj:Form, e:InitEventInfo)
  249. {
  250. frmf_initForm(obj); //폼 초기화
  251. }
  252. /****************************************************************************************
  253. * Components : Form
  254. * Components ID : SMMNW15400
  255. * Event : onload
  256. * Argument : 01.obj : Object Event has occurred
  257. * : 02.e : Event Object
  258. * Description : 화면 로딩 완료시
  259. ****************************************************************************************/
  260. function SMMNW15400_onload(obj:Form, e:LoadEventInfo)
  261. {
  262. var instcd = sysf_getUserInfo("dutplceinstcd");
  263. var standard_yn = "orduseyn";
  264. var ord_deptflag = 'W';
  265. var rslt_ref = "ds_init_dept_dept";
  266. var sort_field = "depthngnm";
  267. var sort_method = "asc";
  268. var dt = utlf_getCurrentDate();
  269. var pCode = "'204'"; // 조회할 CdGrupID 코드정보
  270. fGetNursHardCdInfo(pCode, dt); //ds_codelist
  271. frmf_addComboItem("group5.grp_sea.cmb_prcpclsflag", "- 전 체 -", "", "above" );
  272. group5.grp_sea.cmb_prcpclsflag.value = "";
  273. appf_getDeptCodeList(instcd, standard_yn, ord_deptflag, sort_field, sort_method, dt, "", "", rslt_ref);
  274. frmf_addComboItem("group5.grp_sea.cmb_wardcd", "- 전 체 -", "", "above" );
  275. group5.grp_sea.cmb_wardcd.value = "";
  276. if ( !utlf_isNull(ds_init_dept_dept.lookup("deptcd", sysf_getUserInfo("dutplcecd"), "deptcd")) ) {
  277. ds_main_cond.setColumn(0, "wardcd", sysf_getUserInfo("dutplcecd"));
  278. }else {
  279. ds_main_cond.setColumn(0, "wardcd", "");
  280. }
  281. ds_main_cond.setColumn(0, "prcpdd", dt);
  282. group5.grp_sea.rdo_execflag.value = "";
  283. }
  284. /****************************************************************************************
  285. * Components : CheckBox
  286. * Components ID : chk_rsrvinclude
  287. * Event : onclick
  288. * Argument : 01.obj : Object Event has occurred
  289. * : 02.e : Event Object
  290. * Description : 체크박스 값 변경시
  291. ****************************************************************************************/
  292. function group5_grp_sea_chk_rsrvinclude_onclick(obj:CheckBox, e:ClickEventInfo)
  293. {
  294. if( obj.value != "Y" ){
  295. ds_main_cond.setColumn(0, "rsrvinclude", "");
  296. }
  297. }
  298. /****************************************************************************************
  299. * Components : Button
  300. * Components ID : button1
  301. * Event : onclick
  302. * Argument : 01.obj : Object Event has occurred
  303. * : 02.e : Event Object
  304. * Description : 조회버튼 클릭시
  305. ****************************************************************************************/
  306. function group5_grp_sea_button1_onclick(obj:Button, e:ClickEventInfo)
  307. {
  308. fSearch();
  309. }
  310. /****************************************************************************************
  311. * Components : Button
  312. * Components ID : button2
  313. * Event : onclick
  314. * Argument : 01.obj : Object Event has occurred
  315. * : 02.e : Event Object
  316. * Description : 출력버튼 클릭시
  317. ****************************************************************************************/
  318. function group5_grp_sea_button2_onclick(obj:Button, e:ClickEventInfo)
  319. {
  320. ds_temp_prtinfo_trnsprcplist.clearData();
  321. var wardnm = ds_init_dept_dept.lookup("deptcd", ds_main_cond.getColumn(0, "wardcd"), "depthngnm");
  322. var cnt = 0;
  323. var xTrnsPrcpListPath = ds_main_trnsprcpinfo_trnsprcplist;
  324. ds_main_cond.setColumn(0, "wardnm", wardnm);
  325. for (var i = 0; i <group5.grd_trnsprcplist.rowcount; i++) {
  326. if(ds_main_trnsprcpinfo_trnsprcplist.getColumn(i, "check") == "1"){
  327. var nRow = ds_temp_prtinfo_trnsprcplist.addRow();
  328. ds_temp_prtinfo_trnsprcplist.copyRow(nRow, ds_main_trnsprcpinfo_trnsprcplist, i);
  329. cnt++;
  330. }
  331. }
  332. if(cnt > 0){
  333. var objDOM = rptf_createDOM(); // DOM 객체 설정
  334. rptf_setNodeListToDOM(objDOM, "root/main/cond", ds_main_cond); // 데이터셋
  335. rptf_setNodeListToDOM(objDOM, "root/temp/prtinfo/trnsprcplist", ds_temp_prtinfo_trnsprcplist); // 데이터셋
  336. var objParam = new Object();
  337. objParam.xml_data_XML1 = objDOM.documentElement.source; // 최상의노드 XML 스트링 추출
  338. var option = "open=1;save=1;directprint=0;print=1;zoom=0;";
  339. rptf_exeReportPreview30(["RPMNW15400"],[objParam], option);
  340. }else{
  341. sysf_messageBox("선택된 내역이", "I004");
  342. return;
  343. }
  344. }
  345. /****************************************************************************************
  346. * Components : Radio
  347. * Components ID : rdo_execflag
  348. * Event : onitemchanged
  349. * Argument : 01.obj : Object Event has occurred
  350. * : 02.e : Event Object
  351. * Description : 라디오 값 변경시
  352. ****************************************************************************************/
  353. function group5_grp_sea_rdo_execflag_onitemchanged(obj:Radio, e:ItemChangeEventInfo)
  354. {
  355. fSearch();
  356. }
  357. /****************************************************************************************
  358. * Components : Button
  359. * Components ID : button3
  360. * Event : onclick
  361. * Argument : 01.obj : Object Event has occurred
  362. * : 02.e : Event Object
  363. * Description : 엑셀버튼 클릭시
  364. ****************************************************************************************/
  365. function group5_grp_sea_button3_onclick(obj:Button, e:ClickEventInfo)
  366. {
  367. if( group5.grd_trnsprcplist.rowcount > 0 ){
  368. grdf_exportExcel(group5.grd_trnsprcplist, "이송요원 검사 조회", "이송요원 검사 조회", false, "", "user", false);
  369. } else {
  370. sysf_messageBox("조회된 데이터가 ", "I004");
  371. return;
  372. }
  373. }
  374. /****************************************************************************************
  375. * Components : Grid
  376. * Components ID : grd_trnsprcplist
  377. * Event : onheadclick
  378. * Argument : 01.obj : Object Event has occurred
  379. * : 02.e : Event Object
  380. * Description : 그리드 헤더 클릭시
  381. ****************************************************************************************/
  382. function group5_grd_trnsprcplist_onheadclick(obj:Grid, e:GridClickEventInfo)
  383. {
  384. switch( e.cell ){
  385. case 0 :
  386. if( obj.getCellProperty("Head", e.cell, "expr") == "0" ){
  387. obj.setCellProperty("Head", e.cell, "expr", "1");
  388. grdf_setGridCheckAll(obj, e);
  389. }else{
  390. obj.setCellProperty("Head", e.cell, "expr", "0");
  391. grdf_setGridCheckAll(obj, e);
  392. }
  393. break;
  394. default :
  395. break;
  396. }
  397. }
  398. /****************************************************************************************
  399. * Components : Dataset
  400. * Components ID : ds_main_trnsprcpinfo_trnsprcplist
  401. * Event : oncolumnchanged
  402. * Argument : 01.obj : Object Event has occurred
  403. * : 02.e : Event Object
  404. * Description : 데이터셋 값 변경시
  405. ****************************************************************************************/
  406. function ds_main_trnsprcpinfo_trnsprcplist_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
  407. {
  408. switch( e.columnid ){
  409. case "check" :
  410. if( e.newvalue == "0" ){
  411. group5.grd_trnsprcplist.setCellProperty("Head", 0, "expr", "0");
  412. }
  413. break;
  414. default :
  415. break;
  416. }
  417. }
  418. ]]></Script>
  419. </Form>
  420. </FDL>