SMLPP03500_수정결과조회.xfdl 21 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466
  1. <?xml version="1.0" encoding="utf-8"?>
  2. <FDL version="1.5">
  3. <TypeDefinition url="..\..\..\default_typedef.xml"/>
  4. <Form id="SMLPP03500" position="absolute 0 0 1256 805" titletext="수정결과조회" onload="SMLPP03500_onload" oninit="SMLPP03500_oninit">
  5. <Layouts>
  6. <Layout>
  7. <Static id="caption6" text="수정결과조회" class="tit_1" position="absolute 0 3 115 28"/>
  8. <Button id="btn_excel" taborder="1" text="EXCEL저장" class="btn7" position="absolute 1155 74 1256 94" onclick="btn_excel_onclick"/>
  9. <Div id="grp_sea" taborder="2" style="align:center top;" class="div_SA" position="absolute 0 30 1256 72">
  10. <Layouts>
  11. <Layout>
  12. <Static id="caption2" text="수정일자" class="search_name" position="absolute 8 10 76 30" anchor="default"/>
  13. <Calendar id="cal_fromdd" taborder="11" class="input_s_essential" position="absolute 78 10 178 30" dateformat="yyyy-MM-dd" value="null" onchanged="grp_sea_cal_fromdd_onchanged" anchor="default"/>
  14. <Shape id="line13" linetype="vertical" class="line_4" position="absolute 1107 5 1107 35" anchor="default"/>
  15. <Calendar id="cal_todd" taborder="12" class="input_s_essential" position="absolute 194 10 294 30" dateformat="yyyy-MM-dd" onchanged="grp_sea_cal_todd_onchanged" anchor="default" onkeydown="grp_sea_cal_todd_onkeydown"/>
  16. <Static id="caption34" text="~" class="search_no_b" position="absolute 178 10 194 30" style="align:center;" anchor="default"/>
  17. <Button id="btn_sea" taborder="13" text="조회" class="btn1" position="absolute 1190 10 1246 30" anchor="default" onclick="grp_sea_btn_sea_onclick"/>
  18. <Static id="caption1" text="등록번호" class="search_name" position="absolute 984 10 1052 30" anchor="default"/>
  19. <Edit id="edt_pid" taborder="14" class="input_s_essential" position="absolute 1060 10 1160 30" onkeydown="grp_sea_edt_pid_onkeydown" inputtype="number" maxlength="9" anchor="default"/>
  20. <Button id="button33" taborder="15" onlbuttonup="button33_onlbuttonup" class="icon_search" position="absolute 1163 10 1183 30" anchor="default" onclick="grp_sea_button33_onclick"/>
  21. </Layout>
  22. </Layouts>
  23. </Div>
  24. <Static id="caption9" text="수정결과 목록" class="tit_2" position="absolute 0 76 143 96"/>
  25. <Grid id="grd_rsltlist" taborder="3" useinputpanel="false" position="absolute 0 96 1256 805" binddataset="ds_grid_grd_rsltlist">
  26. <Formats>
  27. <Format id="default">
  28. <Columns>
  29. <Column size="0"/>
  30. <Column size="0"/>
  31. <Column size="0"/>
  32. <Column size="30"/>
  33. <Column size="80"/>
  34. <Column size="0"/>
  35. <Column size="240"/>
  36. <Column size="240"/>
  37. <Column size="80"/>
  38. <Column size="70"/>
  39. <Column size="70"/>
  40. <Column size="200"/>
  41. <Column size="100"/>
  42. <Column size="120"/>
  43. </Columns>
  44. <Rows>
  45. <Row size="27" band="head"/>
  46. <Row size="106"/>
  47. </Rows>
  48. <Band id="head">
  49. <Cell text="선택"/>
  50. <Cell col="1" text="instcd"/>
  51. <Cell col="2" text="ptno"/>
  52. <Cell col="3" text="No."/>
  53. <Cell col="4" text="병리번호"/>
  54. <Cell col="5" text="pid"/>
  55. <Cell col="6" text="원결과"/>
  56. <Cell col="7" text="수정결과"/>
  57. <Cell col="8" text="수정일자"/>
  58. <Cell col="9" text="수정시간"/>
  59. <Cell col="10" text="수정자"/>
  60. <Cell col="11" text="항목명"/>
  61. <Cell col="12" text="정도관리"/>
  62. <Cell col="13" text="기타내용"/>
  63. </Band>
  64. <Band id="body">
  65. <Cell style="align:center middle;"/>
  66. <Cell col="1" style="align:center middle;"/>
  67. <Cell col="2" style="align:center middle;"/>
  68. <Cell col="3" expr="expr:currow+1"/>
  69. <Cell col="4" style="align:center middle;" text="bind:dispptno"/>
  70. <Cell col="5" style="align:center middle;"/>
  71. <Cell col="6" style="align:left top;" text="bind:orgrslt"/>
  72. <Cell col="7" style="align:left top;" text="bind:newrslt"/>
  73. <Cell col="8" style="align:center middle;" text="bind:cnfmdd"/>
  74. <Cell col="9" style="align:center middle;" text="bind:cnfmtm"/>
  75. <Cell col="10" style="align:center middle;" text="bind:cnfmnm"/>
  76. <Cell col="11" style="align:center middle;" text="bind:itemnm"/>
  77. <Cell col="12" style="align:center middle;" text="bind:grdeitemnm"/>
  78. <Cell col="13" text="bind:grdecnts"/>
  79. <Cell col="14"/>
  80. <Cell col="15"/>
  81. </Band>
  82. </Format>
  83. </Formats>
  84. </Grid>
  85. </Layout>
  86. </Layouts>
  87. <Objects>
  88. <Dataset id="ds_cond_dtgbn" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  89. <ColumnInfo>
  90. <Column id="label" type="STRING" size="256"/>
  91. <Column id="value" type="STRING" size="256"/>
  92. </ColumnInfo>
  93. <Rows>
  94. <Row>
  95. <Col id="label">수정일자</Col>
  96. <Col id="value">1</Col>
  97. </Row>
  98. <Row>
  99. <Col id="label">처방일자</Col>
  100. <Col id="value">2</Col>
  101. </Row>
  102. <Row>
  103. <Col id="label">접수일자</Col>
  104. <Col id="value">3</Col>
  105. </Row>
  106. <Row>
  107. <Col id="label">최종진단일자</Col>
  108. <Col id="value">4</Col>
  109. </Row>
  110. <Row>
  111. <Col id="label">추가진단일자</Col>
  112. <Col id="value">5</Col>
  113. </Row>
  114. </Rows>
  115. </Dataset>
  116. <Dataset id="ds_grid_grd_rsltlist" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  117. <ColumnInfo>
  118. <column id="choi" type="STRING" size="256"/>
  119. <column id="instcd" type="STRING" size="256"/>
  120. <column id="ptno" type="STRING" size="256"/>
  121. <column id="dispptno" type="STRING" size="256"/>
  122. <column id="pid" type="STRING" size="256"/>
  123. <column id="orgrslt" type="STRING" size="256"/>
  124. <column id="newrslt" type="STRING" size="256"/>
  125. <column id="cnfmdd" type="STRING" size="256"/>
  126. <column id="cnfmtm" type="STRING" size="256"/>
  127. <column id="cnfmnm" type="STRING" size="256"/>
  128. <column id="itemnm" type="STRING" size="256"/>
  129. <column id="grdeitemnm" type="STRING" size="256"/>
  130. <column id="grdecnts" type="STRING" size="256"/>
  131. </ColumnInfo>
  132. </Dataset>
  133. <Dataset id="ds_data_sysdtinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  134. <ColumnInfo>
  135. <Column id="sysdd" type="STRING" size="256"/>
  136. <Column id="systm" type="STRING" size="256"/>
  137. </ColumnInfo>
  138. </Dataset>
  139. <Dataset id="ds_patinfolist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
  140. <ColumnInfo>
  141. <Column id="pid" type="STRING" size="256" sumtext="환자등록번호"/>
  142. <Column id="bindyn" type="STRING" size="256" sumtext="환자등록번호"/>
  143. <Column id="hngnm" type="STRING" size="256" sumtext="한글이름"/>
  144. <Column id="hngnm2" type="STRING" size="256" sumtext="표시이름"/>
  145. <Column id="engnm" type="STRING" size="256" sumtext="영문이름"/>
  146. <Column id="chinm" type="STRING" size="256" sumtext="영문이름"/>
  147. <Column id="rrgstno1" type="STRING" size="256" sumtext="주민번호앞6자리"/>
  148. <Column id="rrgstno2" type="STRING" size="256" sumtext="주민번호뒤7자리"/>
  149. <Column id="rrgstno3" type="STRING" size="256" sumtext="주민번호뒤4자리와별표3자리"/>
  150. <Column id="lastinsukind" type="STRING" size="256" sumtext="최근보험유형"/>
  151. <Column id="brthdd" type="STRING" size="256" sumtext="생년월일"/>
  152. <Column id="sex" type="STRING" size="256" sumtext="성별"/>
  153. <Column id="age" type="STRING" size="256" sumtext="나이"/>
  154. <Column id="bindpid" type="STRING" size="256" sumtext="합본등록번호"/>
  155. <Column id="hometel" type="STRING" size="256" sumtext="집전화번호"/>
  156. <Column id="mpphontel" type="STRING" size="256" sumtext="휴대전화번호"/>
  157. <Column id="etctel1" type="STRING" size="256" sumtext="기타전화번호1"/>
  158. <Column id="etctel2" type="STRING" size="256" sumtext="기타전화번호2"/>
  159. <Column id="smsaprvyn" type="STRING" size="256" sumtext="SMS전송 승인 여부"/>
  160. <Column id="email" type="STRING" size="256" sumtext="이메일 게정"/>
  161. <Column id="zipcd1" type="STRING" size="256" sumtext="우편번호 앞 3자리"/>
  162. <Column id="zipcd2" type="STRING" size="256" sumtext="우편번호 뒤 3자리"/>
  163. <Column id="zipcdseq" type="STRING" size="256" sumtext="우편일련번호"/>
  164. <Column id="addr" type="STRING" size="256" sumtext="기본주소"/>
  165. <Column id="detladdr" type="STRING" size="256" sumtext="상세주소"/>
  166. <Column id="btype" type="STRING" size="256" sumtext="혈액형"/>
  167. <Column id="rh" type="STRING" size="256" sumtext="RH혈액형"/>
  168. <Column id="forgeryn" type="STRING" size="256" sumtext="외국인여부"/>
  169. <Column id="nati" type="STRING" size="256" sumtext="국적"/>
  170. <Column id="psptno" type="STRING" size="256" sumtext="여권번호"/>
  171. <Column id="recmyn" type="STRING" size="256" sumtext="추천여부"/>
  172. <Column id="recmerid" type="STRING" size="256" sumtext="추천인ID"/>
  173. <Column id="recmernm" type="STRING" size="256" sumtext="추천인명"/>
  174. <Column id="recmerrela" type="STRING" size="256" sumtext="추천인과의 관계"/>
  175. <Column id="vipyn" type="STRING" size="256" sumtext="VIP여부"/>
  176. <Column id="viprem" type="STRING" size="256" sumtext="VIP비고"/>
  177. <Column id="religncd" type="STRING" size="256" sumtext="종교코드"/>
  178. <Column id="baptnm" type="STRING" size="256" sumtext="세례명"/>
  179. <Column id="chchnm" type="STRING" size="256" sumtext="성당명"/>
  180. <Column id="dethyn" type="STRING" size="256" sumtext="사망여부"/>
  181. <Column id="dethdt" type="STRING" size="256" sumtext="사망일시"/>
  182. <Column id="dethdd" type="STRING" size="256" sumtext="사망일자"/>
  183. <Column id="dethtm" type="STRING" size="256" sumtext="사망시간"/>
  184. <Column id="chosresn" type="STRING" size="256" sumtext="내원사유"/>
  185. <Column id="animyn" type="STRING" size="256" sumtext="동물여부"/>
  186. <Column id="exptresncd" type="STRING" size="256" sumtext="원외예외사유코드"/>
  187. <Column id="inhospyn" type="STRING" size="256" sumtext="재원여부"/>
  188. <Column id="handicapryn" type="STRING" size="256" sumtext="장애인여부"/>
  189. <Column id="pidflag" type="STRING" size="256" sumtext="등록번호구분"/>
  190. <Column id="remfact" type="STRING" size="256" sumtext="참고사항"/>
  191. <Column id="ptunyn" type="STRING" size="256" sumtext="미수안내"/>
  192. <Column id="lastorddd" type="STRING" size="256" sumtext="최근내원일"/>
  193. <Column id="lastorddeptcd" type="STRING" size="256" sumtext="최근내원과"/>
  194. <Column id="outuncoamt" type="STRING" size="256" sumtext="외래미수금"/>
  195. <Column id="dschuncoamt" type="STRING" size="256" sumtext="입원미수금"/>
  196. <Column id="kioskrcptnoyn" type="STRING" size="256" sumtext="무인수납불가여부"/>
  197. <Column id="carnum" type="STRING" size="256" sumtext="차량번호"/>
  198. <Column id="acptdd" type="STRING" size="256" sumtext="가예약 접수일자"/>
  199. <Column id="acptno" type="STRING" size="256" sumtext="가예약 접수일련번호"/>
  200. <Column id="patspcfyn" type="STRING" size="256" sumtext="특이환자여부"/>
  201. <Column id="tdaydsch" type="STRING" size="256" sumtext="특이환자여부"/>
  202. <Column id="mig" type="STRING" size="256" sumtext="마이그레이션여부"/>
  203. <Column id="scanyn" type="STRING" size="256" sumtext="동의서출력여부"/>
  204. <Column id="spifscanyn" type="STRING" size="256" sumtext="선택진료신청서스캔여부"/>
  205. <Column id="isolinfo" type="STRING" size="256" sumtext="격리환자정보"/>
  206. <Column id="builno" type="STRING" size="256" sumtext="도로명주소 코드"/>
  207. </ColumnInfo>
  208. </Dataset>
  209. <Dataset id="ds_init" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  210. <ColumnInfo>
  211. <Column id="pid" type="STRING" size="256"/>
  212. <Column id="todd" type="STRING" size="256"/>
  213. <Column id="fromdd" type="STRING" size="256"/>
  214. </ColumnInfo>
  215. <Rows>
  216. <Row/>
  217. </Rows>
  218. </Dataset>
  219. </Objects>
  220. <Bind>
  221. <BindItem id="item0" compid="grp_sea.cal_fromdd" propid="value" datasetid="ds_init" columnid="fromdd"/>
  222. <BindItem id="item1" compid="grp_sea.cal_todd" propid="value" datasetid="ds_init" columnid="todd"/>
  223. <BindItem id="item2" compid="grp_sea.edt_pid" propid="value" datasetid="ds_init" columnid="pid"/>
  224. </Bind>
  225. <Script type="xscript4.0"><![CDATA[/***************************************************************************************
  226. * System Name : KU2.0
  227. * Job Name :
  228. * File Name : SMLPP03500_수정결과조회.xfdl
  229. * Creator :
  230. * Make Date : 2015-11-01
  231. *
  232. * Description :
  233. *---------------------------------------------------------------------------------------
  234. * Modify Date Modifier Modify Description
  235. *---------------------------------------------------------------------------------------
  236. * 2015-11-01 DBS Converting Program(TF->XP)
  237. *
  238. *---------------------------------------------------------------------------------------
  239. ****************************************************************************************/
  240. include "com_commonxp::comm_main.xjs";
  241. include "lis_commonxp::LLZ001.xjs";
  242. include "lis_commonxp::LZZ001.xjs";
  243. var instcd = "";
  244. function SMLPP03500_oninit(obj:Form, e:InitEventInfo)
  245. {
  246. //폼 초기화 함수
  247. frmf_initForm(obj);
  248. grdf_initGrid(grd_rsltlist);
  249. }
  250. function SMLPP03500_onload(obj:Form, e:LoadEventInfo)
  251. {
  252. fExeInitialize();
  253. }
  254. //=======================================================================================
  255. // Function
  256. //---------------------------------------------------------------------------------------
  257. /****************************************************************************************
  258. * Components :
  259. * Components ID : model1
  260. * Event : lf_setInit
  261. * Argument : 01.obj : Object Event has occurred
  262. * : 02.e : Event Object
  263. * Description : 초기화 함수
  264. ****************************************************************************************/
  265. function fExeInitialize()
  266. {
  267. var sCurDate = "";
  268. instcd = sysf_getUserInfo("dutplceinstcd");
  269. dsf_createDsRow("ds_temp_search" , [{col: "instcd", val:instcd } ]);
  270. // 서브밋호출
  271. var oParam = {};
  272. oParam.id = "TRLPZ00102";
  273. oParam.service = "plgycomnusemngtapp.BaseInfoCode";
  274. oParam.method = "reqGetSystemDateTimeInformation";
  275. oParam.inds = "refData=ds_temp_search";
  276. oParam.outds = "ds_data_sysdtinfo=sysdtinfo";
  277. oParam.async = false;
  278. //oParam.callback = "cbf_SMLPP03500";
  279. tranf_submit(oParam);
  280. // 조회조건 초기화
  281. var sCurDate = ds_data_sysdtinfo.getColumn(0, "sysdd"); // 등록일자(From)
  282. var curDt = utlf_addDate(sCurDate, -7);
  283. ds_init.setColumn(0, "fromdd", curDt);
  284. ds_init.setColumn(0, "todd", sCurDate);
  285. }
  286. /****************************************************************************************
  287. * Components :
  288. * Components ID : btn_search
  289. * Event : onlbuttonup
  290. * Argument : 01.btnflag :
  291. * : 02. :
  292. * Description : 수정결과 목록조회
  293. ****************************************************************************************/
  294. function fGetUpdtRsltList()
  295. {
  296. dsf_createDsRow("ds_send", [{col : "fromdd", val : ds_init.getColumn(0, "fromdd")}
  297. ,{col : "todd", val : ds_init.getColumn(0, "todd")}
  298. ,{col : "pid", val : ds_init.getColumn(0, "pid")}]);
  299. //submit("TRLPP03501");
  300. var oParam = {};
  301. oParam.id = "TRLPP03501";
  302. oParam.service = "plgyrefmngtapp.AcptSpecRef";
  303. oParam.method = "reqGetUpdtRsltList";
  304. oParam.inds = "refData=ds_send";
  305. oParam.outds = "ds_grid_grd_rsltlist=refrslt";
  306. oParam.async = false;
  307. //oParam.callback = "cf_TRLPP03501";
  308. tranf_submit(oParam);
  309. }
  310. // 등록번호 조회값 입력 처리
  311. function exeRefValKeyPress()
  312. {
  313. grp_sea.edt_pid.value = utlf_lPad(grp_sea.edt_pid.value, 9, "0");
  314. fGetUpdtRsltList();
  315. }
  316. // 그리드 자료 Excel로 저장 처리 function
  317. function exeSaveToExcel()
  318. {
  319. if (ds_grid_grd_rsltlist.rowcount > 0)
  320. {
  321. grdf_exportExcel(grd_rsltlist,lf_lisGetTitle(this), "sheet1", false);
  322. }
  323. else
  324. {
  325. sysf_messageBox("저장할 내용이","I004","");
  326. }
  327. }
  328. /****************************************************************************************
  329. * Components :
  330. * Components ID : edt_pid
  331. * Event :
  332. * Argument : 01.obj : Object Event has occurred
  333. * : 02.e : Event Object
  334. * Description : 등록번호 enter key 이벤트
  335. ****************************************************************************************/
  336. function grp_sea_edt_pid_onkeydown(obj:Edit, e:KeyEventInfo)
  337. {
  338. if(e.keycode == 13)
  339. {
  340. exeRefValKeyPress();
  341. }
  342. }
  343. /****************************************************************************************
  344. * Components :
  345. * Components ID : button33
  346. * Event : onlbuttonup
  347. * Argument : 01.obj : Object Event has occurred
  348. * : 02.e : Event Object
  349. * Description : SPPMC02500_환자조회 POPUP 호출
  350. ****************************************************************************************/
  351. function button33_onlbuttonup(obj:Button, e:MouseEventInfo)
  352. {
  353. var sPid = "";
  354. var objArg = new Object();
  355. frmf_modal("SPPMC02500","SPPMC02500","","",1,150,150,"","","","","","M");
  356. if (frmf_getParameter("SPPMC02500_popupendflag") == "ok")
  357. {
  358. sPid = ds_patinfolist.getColumn(0,"pid");
  359. if (utlf_isNull(sPid) || sPid == " ")
  360. {
  361. return;
  362. }
  363. var srchpid = sPid;
  364. }
  365. }
  366. /****************************************************************************************
  367. * Components :
  368. * Components ID : btn_close
  369. * Event : onlbuttonup
  370. * Argument : 01.obj : Object Event has occurred
  371. * : 02.e : Event Object
  372. * Description : 닫기 버튼
  373. ****************************************************************************************/
  374. function btn_close_onlbuttonup(obj:Button, e:MouseEventInfo)
  375. {
  376. group1.visible = false;
  377. }
  378. /****************************************************************************************
  379. * Components :
  380. * Components ID: btn_popclose
  381. * Event : onclick
  382. * Argument : 01.obj : Object Event has occurred
  383. * : 02.e : Event Object
  384. * Description : x 버튼
  385. ****************************************************************************************/
  386. function group1_btn_popclose_onclick(obj:Button, e:ClickEventInfo)
  387. {
  388. group1.visible = false;
  389. }
  390. /****************************************************************************************
  391. * Components :
  392. * Components ID: cal_fromdd
  393. * Event : onchanged
  394. * Argument : 01.obj : Calendar
  395. * : 02.e : Event ChangeEventInfo
  396. * Description : From 일자 변경시 Validation 체크
  397. ****************************************************************************************/
  398. function grp_sea_cal_fromdd_onchanged(obj:Calendar, e:ChangeEventInfo)
  399. {
  400. gf_checkFromToDate("FROM", grp_sea.cal_fromdd, grp_sea.cal_todd, null);
  401. }
  402. /****************************************************************************************
  403. * Components :
  404. * Components ID: cal_todd
  405. * Event : onchanged
  406. * Argument : 01.obj : Calendar
  407. * : 02.e : Event ChangeEventInfo
  408. * Description : To 일자 변경시 Validation 체크
  409. ****************************************************************************************/
  410. function grp_sea_cal_todd_onchanged(obj:Calendar, e:ChangeEventInfo)
  411. {
  412. gf_checkFromToDate("TO", grp_sea.cal_fromdd, grp_sea.cal_todd, null);
  413. }
  414. function btn_excel_onclick(obj:Button, e:ClickEventInfo)
  415. {
  416. exeSaveToExcel();
  417. }
  418. //조회
  419. function grp_sea_btn_sea_onclick(obj:Button, e:ClickEventInfo)
  420. {
  421. fGetUpdtRsltList();
  422. }
  423. function grp_sea_cal_todd_onkeydown(obj:Calendar, e:KeyEventInfo)
  424. {
  425. if(e.keycode == 13)
  426. {
  427. fGetUpdtRsltList();
  428. }
  429. }
  430. ]]></Script>
  431. </Form>
  432. </FDL>