SPMMO20002_희귀난치신청서.xfdl 38 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862
  1. <?xml version="1.0" encoding="utf-8"?>
  2. <FDL version="1.5">
  3. <TypeDefinition url="..\..\..\default_typedef.xml"/>
  4. <Form id="SPMMO20002" position="absolute 0 0 367 679" titletext="희귀난치 신청서" onload="SPMMO20002_onload">
  5. <Layouts>
  6. <Layout>
  7. <Div position="absolute 97 19 228 117" id="group1" enable="true">
  8. <Layouts>
  9. <Layout>
  10. <Edit position="absolute 0 4 130 23" id="ipt_pid" enable="true" anchor="default" readonly="true"/>
  11. <Combo position="absolute 0 54 130 73" id="combo1" enable="true" innerdataset="@ds_init_orddept" datacolumn="depthngnm" codecolumn="deptcd" anchor="default" readonly="true"/>
  12. <Edit position="absolute 0 29 130 48" id="ipt_hngnm" enable="true" anchor="default" readonly="true"/>
  13. <Edit position="absolute 0 79 130 98" id="ipt_diaghngnm" enable="true" anchor="default" readonly="true"/>
  14. </Layout>
  15. </Layouts>
  16. </Div>
  17. <Shape position="absolute 0 16 360 22" linetype="horizontal" id="line1" class="line_1" style="strokepen:3 solid #9ebed4ff;"/>
  18. <Static text="희귀난치 신청서" position="absolute 0 0 359 16" align="align:center middle;" id="caption14" class="tit_2"/>
  19. <Static text="등록번호" position="absolute 1 21 94 44" align="align:center middle;" id="caption26" class="cell_1"/>
  20. <Static text="진료과" position="absolute 1 71 94 94" align="align:center middle;" id="caption1" class="cell_1"/>
  21. <Static text="진단" position="absolute 1 96 94 119" align="align:center middle;" id="caption2" class="cell_1"/>
  22. <Static text="진단확인일" position="absolute 1 120 94 143" align="align:center middle;" id="caption3" class="cell_1"/>
  23. <Static text="최종진단방법 (중복 체크 가능)" position="absolute 0 195 345 211" align="align:center middle;" id="caption4" class="tit_2"/>
  24. <Shape position="absolute 0 211 360 217" linetype="horizontal" id="line2" class="line_1" style="strokepen:3 solid #9ebed4ff;"/>
  25. <Static text="영상검사" position="absolute 22 422 72 437" id="caption6"/>
  26. <Static text="기타검사" position="absolute 22 617 72 632" id="caption5" style="font:Dotum,9;"/>
  27. <Static text="②" position="absolute 4 480 19 495" id="caption7"/>
  28. <Static text="③" position="absolute 4 501 19 516" id="caption8"/>
  29. <Static text="④" position="absolute 4 522 19 537" id="caption9"/>
  30. <Static text="⑤" position="absolute 4 543 19 558" id="caption10"/>
  31. <Static text="⑥" position="absolute 4 617 19 632" id="caption11"/>
  32. <Button position="absolute 244 643 300 665" id="btn_save" class="btn4" text="저장" onclick="btn_save_onclick"/>
  33. <Button position="absolute 304 643 360 665" id="btn_exit" class="btn4" text="종료" onclick="btn_exit_onclick"/>
  34. <Static text="환자명" position="absolute 1 46 94 69" align="align:center middle;" id="caption13" class="cell_1"/>
  35. <CheckBox position="absolute 75 419 135 434" id="bool_sono" text="SONO"/>
  36. <CheckBox position="absolute 150 419 186 434" id="bool_ct" text="CT"/>
  37. <CheckBox position="absolute 225 419 269 434" id="bool_mri" text="MRI"/>
  38. <CheckBox position="absolute 75 438 119 453" id="bool_etc" text="기타" onclick="bool_etc_onclick"/>
  39. <CheckBox position="absolute 25 521 125 536" id="bool_item4" text="조직학적 검사"/>
  40. <CheckBox position="absolute 25 500 125 515" id="bool_item3" text="유전학적 검사"/>
  41. <CheckBox position="absolute 25 479 229 494" id="bool_item2" text="특수 생화학적 또는 면역학적 검사"/>
  42. <CheckBox position="absolute 25 542 237 557" id="bool_item5" text="임상적 소견으로 최종 진단 시 기재" onclick="bool_item5_onclick"/>
  43. <Edit position="absolute 124 436 304 455" id="ipt_etc1" enable="false" onkeydown="ipt_etc1_onkeydown"/>
  44. <Static position="absolute 231 23 359 68" align="align:center middle;" id="cap_insukindnm" class="cell_1" style="padding:0 0 0 0;align:center middle;font:Dotum,12,bold;"/>
  45. <Calendar position="absolute 97 122 227 141" id="ipt_diagcnfmdate" class="input_s_essential" mask="yyyy-mm-dd"/>
  46. <Button position="absolute 184 643 240 665" id="btn_del" class="btn4" text="삭제" onclick="btn_del_onclick"/>
  47. <Button position="absolute 124 643 180 665" id="btn_upt" class="btn4" text="수정" onclick="btn_upt_onclick"/>
  48. <TextArea position="absolute 45 559 359 594" id="txt_etc2" onkeydown="txt_etc2_onkeydown"/>
  49. <Combo position="absolute 75 615 360 634" id="com_etc1" innerdataset="@ds_P0509" datacolumn="cdnm" codecolumn="cdid" index="-1"/>
  50. <Static text="①" position="absolute 5 422 25 437" id="caption12"/>
  51. <Static text="◈ 등록기준 및 필수검사" position="absolute 0 220 135 235" id="caption15"/>
  52. <Static text="(반드시 필수검사에 맞게 작성하세요)" position="absolute 148 219 357 234" id="caption16" style="color:blue;"/>
  53. <Static text="( 최소 : 한글 3자, 영어 5자 최대 : 한글 20자, 영어 40자 )" position="absolute 50 456 360 475" id="caption17" style="font:Dotum,9,underline;"/>
  54. <Static text="( 최소 : 한글 5자, 영어 10자, 최대 : 한글 40자, 영어 80자 )" position="absolute 41 595 359 610" id="caption18"/>
  55. <Grid position="absolute 0 239 359 414" id="grd_diaglist" binddataset="ds_hidden_items" oncelldblclick="grd_diaglist_oncelldblclick" autosizingtype="row" extendsizetype="row" cellsizingtype="row" onmousewheel="grd_diaglist_onmousewheel" onvscroll="grd_diaglist_onvscroll" scrollpixel="all">
  56. <Formats>
  57. <Format id="default">
  58. <Columns>
  59. <Column size="70"/>
  60. <Column size="193"/>
  61. <Column size="80"/>
  62. <Column size="0"/>
  63. <Column size="0"/>
  64. <Column size="0"/>
  65. <Column size="0"/>
  66. <Column size="0"/>
  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 text="진단명"/>
  76. <Cell col="1" text="등록기준"/>
  77. <Cell col="2" text="필수검사"/>
  78. <Cell col="3" text="seq"/>
  79. <Cell col="4" text="test1"/>
  80. <Cell col="5" text="test2"/>
  81. <Cell col="6" text="test3"/>
  82. <Cell col="7" text="test4"/>
  83. <Cell col="8" text="test5"/>
  84. <Cell col="9" text="test6"/>
  85. </Band>
  86. <Band id="body">
  87. <Cell style="align:left top;padding:3 3 3 3;linespace:2;" text="bind:diagnm" wordwrap="char" autosizerow="limitmin"/>
  88. <Cell col="1" style="align:left;padding:3 3 3 3;linespace:2;" text="bind:rgstbase" wordwrap="char" autosizerow="limitmin"/>
  89. <Cell col="2" style="align:left top;padding:3 3 3 3;linespace:2;" text="bind:essntestasso" wordwrap="char" autosizerow="default"/>
  90. <Cell col="3" text="bind:seq"/>
  91. <Cell col="4" text="bind:test1"/>
  92. <Cell col="5" text="bind:test2"/>
  93. <Cell col="6" text="bind:test3"/>
  94. <Cell col="7" text="bind:test4"/>
  95. <Cell col="8" text="bind:test5"/>
  96. <Cell col="9" text="bind:test6"/>
  97. </Band>
  98. </Format>
  99. </Formats>
  100. </Grid>
  101. <Combo position="absolute 97 146 227 165" id="combo3" codecolumn="codecolumn" datacolumn="datacolumn">
  102. <Dataset id="innerdataset">
  103. <ColumnInfo>
  104. <Column id="codecolumn"/>
  105. <Column id="datacolumn"/>
  106. </ColumnInfo>
  107. <Rows>
  108. <Row>
  109. <Col id="codecolumn">O</Col>
  110. <Col id="datacolumn">외래</Col>
  111. </Row>
  112. <Row>
  113. <Col id="codecolumn">I</Col>
  114. <Col id="datacolumn">입원</Col>
  115. </Row>
  116. </Rows>
  117. </Dataset>
  118. </Combo>
  119. <Static text="외래/입원구분" position="absolute 1 144 94 167" align="align:center middle;" id="caption19" class="cell_1" style="padding:0 0 0 8;"/>
  120. <Button position="absolute 10 643 88 665" id="button1" class="btn4" text="예외환자" onclick="button1_onclick"/>
  121. <Button id="Button03" taborder="1" onclick="Button03_onclick" class="icon_search2" position="absolute 224 99 252 119"/>
  122. <Static id="caption20" text="신청서 구분" class="cell_1" position="absolute 1 168 94 191" style="padding:0 0 0 8;"/>
  123. <Combo id="combo00" taborder="3" codecolumn="cdid" datacolumn="cdnm" position="absolute 97 170 227 189" onitemchanged="combo00_onitemchanged" innerdataset="@ds_rgstkind"/>
  124. <Static id="caption24" text="등록기준을 선택하면 버튼이 활성화 됩니다." visible="false" position="absolute 123 666 363 681" style="color:blue;"/>
  125. </Layout>
  126. </Layouts>
  127. <Objects>
  128. <Dataset id="ds_hidden_items" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  129. <Dataset id="ds_init_orddept" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  130. <Dataset id="ds_P0509" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  131. <ColumnInfo>
  132. <Column id="cdid" type="STRING" size="256"/>
  133. <Column id="cdnm" type="STRING" size="256"/>
  134. </ColumnInfo>
  135. </Dataset>
  136. <Dataset id="ds_main_cond" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  137. <ColumnInfo>
  138. <Column id="genrdd" type="STRING" size="256"/>
  139. <Column id="genrno" type="STRING" size="256"/>
  140. <Column id="histno" type="STRING" size="256"/>
  141. <Column id="pid" type="STRING" size="256"/>
  142. <Column id="genrflagcd" type="STRING" size="256"/>
  143. <Column id="genrorddd" type="STRING" size="256"/>
  144. <Column id="genrcretno" type="STRING" size="256"/>
  145. <Column id="orddeptcd" type="STRING" size="256"/>
  146. <Column id="rgstkindcd" type="STRING" size="256"/>
  147. <Column id="icd10cd" type="STRING" size="256"/>
  148. <Column id="diagcd" type="STRING" size="256"/>
  149. </ColumnInfo>
  150. <Rows>
  151. <Row/>
  152. </Rows>
  153. </Dataset>
  154. <Dataset id="ds_rarediagappinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  155. <ColumnInfo>
  156. <Column id="status" type="STRING" size="256"/>
  157. <Column id="genrdd" type="STRING" size="256"/>
  158. <Column id="genrno" type="STRING" size="256"/>
  159. <Column id="histno" type="STRING" size="256"/>
  160. <Column id="instcd" type="STRING" size="256"/>
  161. <Column id="histcd" type="STRING" size="256"/>
  162. <Column id="pid" type="STRING" size="256"/>
  163. <Column id="anohosprgstflag" type="STRING" size="256"/>
  164. <Column id="genrflagcd" type="STRING" size="256"/>
  165. <Column id="insukind" type="STRING" size="256"/>
  166. <Column id="cncrdiagcnfmdd" type="STRING" size="256"/>
  167. <Column id="orddeptcd" type="STRING" size="256"/>
  168. <Column id="orddrid" type="STRING" size="256"/>
  169. <Column id="serdiagno" type="STRING" size="256"/>
  170. <Column id="serdiagfromdd" type="STRING" size="256"/>
  171. <Column id="serdiagtodd" type="STRING" size="256"/>
  172. <Column id="genrorddd" type="STRING" size="256"/>
  173. <Column id="genrcretno" type="STRING" size="256"/>
  174. <Column id="maindiagcd" type="STRING" size="256"/>
  175. <Column id="ediflag" type="STRING" size="256"/>
  176. <Column id="editretdd" type="STRING" size="256"/>
  177. <Column id="editrettm" type="STRING" size="256"/>
  178. <Column id="pathngnm" type="STRING" size="256"/>
  179. <Column id="dschprcpyn" type="STRING" size="256"/>
  180. <Column id="prcpdd" type="STRING" size="256"/>
  181. <Column id="age" type="STRING" size="256"/>
  182. <Column id="frmsuppkind" type="STRING" size="256"/>
  183. <Column id="rgstkindcd" type="STRING" size="256"/>
  184. <Column id="burnicd10desc" type="STRING" size="256"/>
  185. <Column id="icd10cd" type="STRING" size="256"/>
  186. <Column id="reregyn" type="STRING" size="256"/>
  187. <Column id="regdiagcd" type="STRING" size="256"/>
  188. <Column id="regdiagseq" type="STRING" size="256"/>
  189. <Column id="appspclcd" type="STRING" size="256"/>
  190. <Column id="appdiagcd" type="STRING" size="256"/>
  191. <Column id="appdiagseq" type="STRING" size="256"/>
  192. </ColumnInfo>
  193. <Rows>
  194. <Row/>
  195. </Rows>
  196. </Dataset>
  197. <Dataset id="ds_diagappmthinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  198. <ColumnInfo>
  199. <Column id="mth0101" type="STRING" size="256"/>
  200. <Column id="mth0202" type="STRING" size="256"/>
  201. <Column id="mth0303" type="STRING" size="256"/>
  202. <Column id="mth0404" type="STRING" size="256"/>
  203. <Column id="mth0405" type="STRING" size="256"/>
  204. <Column id="mth0506" type="STRING" size="256"/>
  205. <Column id="mth0607" type="STRING" size="256"/>
  206. <Column id="mth0708" type="STRING" size="256"/>
  207. <Column id="mth0809" type="STRING" size="256"/>
  208. <Column id="mth0810" type="STRING" size="256"/>
  209. <Column id="mth0911" type="STRING" size="256"/>
  210. </ColumnInfo>
  211. <Rows>
  212. <Row/>
  213. </Rows>
  214. </Dataset>
  215. <Dataset id="ds_paminfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  216. <Dataset id="ds_rgstkind" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  217. <ColumnInfo>
  218. <Column id="cdid" type="STRING" size="256"/>
  219. <Column id="cdnm" type="STRING" size="256"/>
  220. </ColumnInfo>
  221. </Dataset>
  222. </Objects>
  223. <Bind>
  224. <BindItem id="item0" compid="group1.ipt_pid" propid="value" datasetid="ds_rarediagappinfo" columnid="pid"/>
  225. <BindItem id="item1" compid="group1.ipt_hngnm" propid="value" datasetid="ds_rarediagappinfo" columnid="pathngnm"/>
  226. <BindItem id="item2" compid="group1.combo1" propid="value" datasetid="ds_rarediagappinfo" columnid="orddeptcd"/>
  227. <BindItem id="item3" compid="group1.ipt_diaghngnm" propid="value" datasetid="ds_rarediagappinfo" columnid="maindiagcd"/>
  228. <BindItem id="item4" compid="ipt_diagcnfmdate" propid="value" datasetid="ds_rarediagappinfo" columnid="cncrdiagcnfmdd"/>
  229. <BindItem id="item5" compid="combo3" propid="value" datasetid="ds_rarediagappinfo" columnid="genrflagcd"/>
  230. <BindItem id="item7" compid="bool_sono" propid="value" datasetid="ds_diagappmthinfo" columnid="mth0101"/>
  231. <BindItem id="item8" compid="bool_ct" propid="value" datasetid="ds_diagappmthinfo" columnid="mth0202"/>
  232. <BindItem id="item9" compid="bool_mri" propid="value" datasetid="ds_diagappmthinfo" columnid="mth0303"/>
  233. <BindItem id="item10" compid="bool_etc" propid="value" datasetid="ds_diagappmthinfo" columnid="mth0404"/>
  234. <BindItem id="item11" compid="bool_item2" propid="value" datasetid="ds_diagappmthinfo" columnid="mth0506"/>
  235. <BindItem id="item12" compid="bool_item3" propid="value" datasetid="ds_diagappmthinfo" columnid="mth0607"/>
  236. <BindItem id="item13" compid="bool_item4" propid="value" datasetid="ds_diagappmthinfo" columnid="mth0708"/>
  237. <BindItem id="item14" compid="bool_item5" propid="value" datasetid="ds_diagappmthinfo" columnid="mth0809"/>
  238. <BindItem id="item15" compid="ipt_etc1" propid="value" datasetid="ds_diagappmthinfo" columnid="mth0405"/>
  239. <BindItem id="item16" compid="txt_etc2" propid="value" datasetid="ds_diagappmthinfo" columnid="mth0810"/>
  240. <BindItem id="item17" compid="com_etc1" propid="value" datasetid="ds_diagappmthinfo" columnid="mth0911"/>
  241. <BindItem id="item6" compid="combo00" propid="value" datasetid="ds_rarediagappinfo" columnid="rgstkindcd"/>
  242. </Bind>
  243. <Script type="xscript4.0"><![CDATA[//=======================================================================================
  244. // Lib Include
  245. //---------------------------------------------------------------------------------------
  246. include "com_commonxp::comm_main.xjs";
  247. include "emr_medirecxp::MMRCommon.xjs";
  248. include "emr_prcpmngtxp::MMOCommon.xjs";
  249. include "emr_prcpmngtxp::MMO001.xjs";
  250. include "com_commodulexp::SSZFM00401.xjs";
  251. var arErrorCode = new HashArray();
  252. //=======================================================================================
  253. // Event
  254. //---------------------------------------------------------------------------------------
  255. /****************************************************************************************
  256. * Components : Form
  257. * Components ID : SPMMO20001
  258. * Event : onload
  259. * Argument : 01.obj : Object Event has occurred
  260. * : 02.e : Event Object
  261. * Description : 화면오픈시 폼load이후 실행
  262. ****************************************************************************************/
  263. function SPMMO20002_onload(obj:Form, e:LoadEventInfo)
  264. {
  265. frmf_initForm(obj); // 폼 초기화
  266. grdf_initGrid(grd_diaglist);
  267. //grdf_setToolTipBind(grd_diaglist);
  268. lf_mmbfGetDeptCodeComboList(ds_init_orddept, "A");
  269. var arrParam = [{dsNm: "ds_P0509", cdGrpId: "P0509"}];
  270. appf_getCodeList(arrParam);
  271. dsf_addDsItem(ds_P0509,"cdid","cdnm"," 선 택 ","");
  272. var sGenrDd = opener.frmf_getParameter("SPMMO20000_genrdd");
  273. var sGenrNo = opener.frmf_getParameter("SPMMO20000_genrno");
  274. var sHistNo = opener.frmf_getParameter("SPMMO20000_histno");
  275. var sRgstKindCd = opener.frmf_getParameter("SPMMO20000_rgstkindcd")
  276. if(utlf_isNull(sGenrDd)) {
  277. sGenrDd = utlf_getCurrentDate(); // 현재 일자로 설정
  278. }
  279. if(utlf_isNull(sRgstKindCd)) {
  280. if(sGenrDd < "20190101") {
  281. sRgstKindCd = "01"; // 기본으로 희귀난치 설정
  282. } else {
  283. sRgstKindCd = "09"; // 기본으로 결핵 설정
  284. }
  285. }
  286. var paminfo = sysf_getGlobalVariable("paminfo");
  287. dsf_setCSVToDs("ds_paminfo", paminfo);
  288. var sPid = ds_paminfo.getColumn(0, "pid");
  289. if(utlf_isNull(sGenrDd) && utlf_isNull(sPid)){
  290. btn_save.visible = false; //저장
  291. btn_del.visible = false; //삭제
  292. btn_upt.visible = false; //수정
  293. sysf_messageBox("환자정보를 확인", "E001");
  294. return;
  295. }
  296. var sIoFlag = ds_paminfo.getColumn(0, "ioflag");
  297. var sCretNo = ds_paminfo.getColumn(0, "cretno");
  298. var sOrdDeptCd = ds_paminfo.getColumn(0, "orddeptcd");
  299. var sOrdDd = "";
  300. if (sIoFlag == "O" || sIoFlag == "S") {
  301. sIoFlag = "O";
  302. sOrdDd = ds_paminfo.getColumn(0, "orddd");
  303. } else {
  304. sIoFlag = "I";
  305. sOrdDd = ds_paminfo.getColumn(0, "indd");
  306. }
  307. ds_main_cond.setColumn(0,"rgstkindcd", sRgstKindCd);
  308. ds_main_cond.setColumn(0,"genrdd", sGenrDd);
  309. ds_main_cond.setColumn(0,"genrno", sGenrNo);
  310. ds_main_cond.setColumn(0,"histno", sHistNo);
  311. ds_main_cond.setColumn(0,"genrflagcd", sIoFlag);
  312. ds_main_cond.setColumn(0,"pid", sPid);
  313. ds_main_cond.setColumn(0,"genrorddd", sOrdDd);
  314. ds_main_cond.setColumn(0,"genrcretno", sCretNo);
  315. ds_main_cond.setColumn(0,"orddeptcd", sOrdDeptCd);
  316. getRareAppInfo(); // 신청서 정보 조회
  317. setRgstKind(); // 등록 구분정보 설정
  318. }
  319. function getRareAppInfo() { // 신청서 정보 조회
  320. var oParam = {};
  321. oParam.id = "TRMMO11507";
  322. oParam.service = "prcpmngtapp.EtcPrcpMngt";
  323. oParam.method = "reqGetRareDiagRegInfo";
  324. oParam.inds = "req=ds_main_cond";
  325. oParam.outds = "ds_rarediagappinfo=rarediagappinfo ds_diagappmthinfo=diagappmthinfo ds_hidden_items=chkitemlist";
  326. oParam.async = false;
  327. tranf_submit(oParam);
  328. cap_insukindnm.text = ds_rarediagappinfo.getColumn(0,"insukindnm");
  329. if(!utlf_isNull(ds_rarediagappinfo.getColumn(0,"genrno"))){ // 기존에 등록된 신청서
  330. combo00.enable = false; //신청서 구분 비활성화
  331. Button03.visible = false; //진단검색
  332. btn_save.visible = false; //저장
  333. btn_del.visible = true; //삭제
  334. btn_upt.visible = true; //수정
  335. if(utlf_isNull(ds_diagappmthinfo.getColumn(0,"mth0911"))) { // 기타검사항목
  336. com_etc1.index = 0;
  337. }
  338. sysf_messageBox(ds_rarediagappinfo.getColumn(0,"rgstkindnm")+" 등록신청서가 이미 존재합니다.", "I" );
  339. var cnt = ds_hidden_items.rowcount;
  340. if (cnt == 1 ) { // 등록 필수 검사 항목이 1건이면
  341. setEssentialTest(0); // 필수검사 항목 설정
  342. } else {
  343. fDiagMthEnable(true);
  344. }
  345. } else { // 신규작성
  346. ds_rarediagappinfo.setColumn(0,"status","I");
  347. com_etc1.index = 0;
  348. combo00.enable = true; //신청서 구분 활성화
  349. Button03.visible = true; //진단검색
  350. btn_save.visible = true; //저장
  351. btn_del.visible = false; //삭제
  352. btn_upt.visible = false; //수정
  353. var cnt = ds_hidden_items.rowcount;
  354. if (cnt == 1 ) { // 등록 필수 검사 항목이 1건이면
  355. setEssentialTest(0); // 필수검사 항목 설정
  356. } else if (cnt > 1 ) { // 한건이상이면
  357. fDiagMthEnable(false);
  358. btn_upt.enable = false;
  359. btn_del.enable = false;
  360. btn_save.enable = false;
  361. btn_exit.enable = false;
  362. caption24.visible = true;
  363. } else {
  364. fDiagMthEnable(true);
  365. }
  366. }
  367. }
  368. function setEssentialTest(nRow) {
  369. var sRgstKindCd = ds_rarediagappinfo.getColumn(0,"rgstkindcd");
  370. if(sRgstKindCd == "07") {
  371. ds_rarediagappinfo.setColumn(0, "appspclcd", "V900"); // 극희귀
  372. } else if(sRgstKindCd == "08") {
  373. ds_rarediagappinfo.setColumn(0, "appspclcd", "V999"); // 상세불명
  374. } else if(sRgstKindCd == "09") {
  375. ds_rarediagappinfo.setColumn(0, "appspclcd", "V000"); // 본인부담제외 결핵
  376. } else {
  377. ds_rarediagappinfo.setColumn(0, "appspclcd", ds_hidden_items.getColumn(nRow,"spclcd"));
  378. }
  379. ds_rarediagappinfo.setColumn(0, "appdiagcd", ds_hidden_items.getColumn(nRow, "diagcd"));
  380. ds_rarediagappinfo.setColumn(0, "appdiagseq", ds_hidden_items.getColumn(nRow, "seq"));
  381. var test1 = ds_hidden_items.getColumn(nRow,"test1");
  382. var test2 = ds_hidden_items.getColumn(nRow,"test2");
  383. var test3 = ds_hidden_items.getColumn(nRow,"test3");
  384. var test4 = ds_hidden_items.getColumn(nRow,"test4");
  385. var test5 = ds_hidden_items.getColumn(nRow,"test5");
  386. var test6 = ds_hidden_items.getColumn(nRow,"test6");
  387. if (test1 =="Y" ) {
  388. bool_sono.enable = true;
  389. bool_ct.enable = true;
  390. bool_mri.enable = true;
  391. bool_etc.enable = true;
  392. } else {
  393. bool_sono.enable = false;
  394. bool_ct.enable = false;
  395. bool_mri.enable = false;
  396. bool_etc.enable = false;
  397. }
  398. if (test2 == "Y") {
  399. bool_item2.enable = true;
  400. } else {
  401. bool_item2.enable = false;
  402. }
  403. if (test3 == "Y") {
  404. bool_item3.enable = true;
  405. } else {
  406. bool_item3.enable = false;
  407. }
  408. if (test4 == "Y") {
  409. bool_item4.enable = true;
  410. } else {
  411. bool_item4.enable = false;
  412. }
  413. com_etc1.index = 0;
  414. bool_item5.enable = true;
  415. txt_etc2.enable = true;
  416. com_etc1.enable = true;
  417. btn_upt.enable = true;
  418. btn_del.enable = true;
  419. btn_exit.enable = true;
  420. btn_save.enable = true;
  421. caption24.visible = false;
  422. }
  423. function fDiagMthEnable(bEnable) {
  424. bool_sono.enable = bEnable;
  425. bool_ct.enable = bEnable;
  426. bool_mri.enable = bEnable;
  427. bool_etc.enable = bEnable;
  428. bool_item2.enable = bEnable;
  429. bool_item3.enable = bEnable;
  430. bool_item4.enable = bEnable;
  431. bool_item5.enable = bEnable;
  432. txt_etc2.enable = bEnable;
  433. com_etc1.enable = bEnable;
  434. }
  435. function setRgstKind() { // 등록구분정보 설정
  436. var sGenrDd = ds_rarediagappinfo.getColumn(0,"genrdd");
  437. if(sGenrDd < "20190101") {
  438. dsf_addDsItem(ds_rgstkind,"cdid","cdnm","희귀난치", "01", "below");
  439. dsf_addDsItem(ds_rgstkind,"cdid","cdnm","중증화상", "02", "below");
  440. dsf_addDsItem(ds_rgstkind,"cdid","cdnm","극희귀", "07", "below");
  441. dsf_addDsItem(ds_rgstkind,"cdid","cdnm","상세불명", "08", "below");
  442. dsf_addDsItem(ds_rgstkind,"cdid","cdnm","결핵", "09", "below");
  443. dsf_addDsItem(ds_rgstkind,"cdid","cdnm","중증치매V800", "10", "below");
  444. dsf_addDsItem(ds_rgstkind,"cdid","cdnm","중증치매V810", "11", "below");
  445. } else {
  446. dsf_addDsItem(ds_rgstkind,"cdid","cdnm","중증화상", "02", "below");
  447. dsf_addDsItem(ds_rgstkind,"cdid","cdnm","결핵", "09", "below");
  448. }
  449. }
  450. /****************************************************************************************
  451. * Components : Grid
  452. * Components ID : grd_diaglist
  453. * Event : oncelldblclick
  454. * Argument : 01.obj : Object Event has occurred
  455. * : 02.e : Event Object
  456. * Description : 등록기준 및 필수검사 그리드 더블클릭
  457. ****************************************************************************************/
  458. function grd_diaglist_oncelldblclick(obj:Grid, e:GridClickEventInfo)
  459. {
  460. ds_diagappmthinfo.clearData();
  461. ds_diagappmthinfo.addRow();
  462. var nRow = e.row;
  463. setEssentialTest(nRow);
  464. }
  465. /****************************************************************************************
  466. * Components : Edit
  467. * Components ID : ipt_etc1
  468. * Event : onkeydown
  469. * Argument : 01.obj : Object Event has occurred
  470. * : 02.e : Event Object
  471. * Description : 기타 입력란 입력시
  472. ****************************************************************************************/
  473. function ipt_etc1_onkeydown(obj:Edit, e:KeyEventInfo)
  474. {
  475. if(e.keycode != 8 && e.keycode != 46 && e.keycode != 35 && e.keycode != 36
  476. && e.keycode != 16 && e.keycode != 17
  477. && !(e.keycode >= 37 && e.keycode <= 40)) { // 백스페이스, delete,화살표, home, end 키는 이벤트제외.
  478. var yy1 = utlf_transNullToEmpty(ipt_etc1.text);
  479. var xx1 = 0;
  480. for(var i = 0 ; i < yy1.length; i++ ) {
  481. (yy1.charCodeAt(i) > 255) ? xx1 += 2 : xx1 += 1;
  482. }
  483. if(xx1 > 40) {
  484. sysf_messageBox("최대 한글 20자, 영어 40자 까지만 입력할 수 있습니다.", "I");
  485. return;
  486. }
  487. }
  488. }
  489. /****************************************************************************************
  490. * Components : TextArea
  491. * Components ID : txt_etc2
  492. * Event : onkeydown
  493. * Argument : 01.obj : Object Event has occurred
  494. * : 02.e : Event Object
  495. * Description : 5번항목 기재내역 입력시
  496. ****************************************************************************************/
  497. function txt_etc2_onkeydown(obj:TextArea, e:KeyEventInfo)
  498. {
  499. if ( e.keycode != 8 && e.keycode != 46 && e.keycode != 35 && e.keycode != 36
  500. && e.keycode != 16 && e.keycode != 17
  501. && !(e.keycode >= 37 && e.keycode <= 40) ) { // 백스페이스, delete,화살표, home, end 키는 이벤트제외.
  502. var yy1 = utlf_transNullToEmpty(txt_etc2.text);
  503. var xx1 = 0;
  504. for(var i=0 ; i < yy1.length ; i++) {
  505. (yy1.charCodeAt(i) > 255) ? xx1 += 2 : xx1 += 1;
  506. }
  507. if ( xx1 > 80) {
  508. sysf_messageBox("최대 한글 40자, 영어 80자 까지만 입력할 수 있습니다.", "I");
  509. return;
  510. }
  511. }
  512. }
  513. /****************************************************************************************
  514. * Components : Button
  515. * Components ID : button1
  516. * Event : onclick
  517. * Argument : 01.obj : Object Event has occurred
  518. * : 02.e : Event Object
  519. * Description : 예외환자 버튼 클릭
  520. ****************************************************************************************/
  521. function button1_onclick(obj:Button, e:ClickEventInfo)
  522. {
  523. frmf_modal("SPMMO09500", "SPMMO09500", "", "", "", "", "", "", "", "", "", "", "M");
  524. }
  525. /****************************************************************************************
  526. * Components : Button
  527. * Components ID : btn_upt
  528. * Event : onclick
  529. * Argument : 01.obj : Object Event has occurred
  530. * : 02.e : Event Object
  531. * Description : 수정 버튼 클릭
  532. ****************************************************************************************/
  533. function btn_upt_onclick(obj:Button, e:ClickEventInfo)
  534. {
  535. var cncrdiagcnfmdd = ds_rarediagappinfo.getColumn(0,"cncrdiagcnfmdd");
  536. if (!utlf_isValidDateTime(cncrdiagcnfmdd, "YYYYMMDD")) {
  537. sysf_messageBox("진단 확인일은", "I003");
  538. return;
  539. }
  540. if(cncrdiagcnfmdd > utlf_getCurrentDate() ) {
  541. sysf_messageBox("진단 확인일을 미래일자로 입력 할 수 없습니다.", "I999");
  542. return;
  543. }
  544. if(cncrdiagcnfmdd < ((utlf_getCurrentDate().toDate()).getAddDate(-1,"M")).getDateFormat() ) {
  545. sysf_messageBox("진단 확인일을 최근 1달이내의 날짜로 입력 하셔야 합니다.", "I999");
  546. return;
  547. }
  548. var yy1 = utlf_transNullToEmpty(ipt_etc1.value);
  549. var yy2 = utlf_transNullToEmpty(txt_etc2.value);
  550. var xx1 = 0;
  551. for(var i=0; i < yy1.length; i++) { (yy1.charCodeAt(i) > 255) ? xx1 += 2 : xx1 += 1; }
  552. var xx2 = 0;
  553. for(var i=0; i < yy2.length; i++) { (yy2.charCodeAt(i) > 255) ? xx2 += 2 : xx2 += 1; }
  554. if (bool_etc.value == true) {
  555. if (utlf_isNull(ipt_etc1.value)) {
  556. sysf_messageBox("1번의 기타항목을 선택하였으므로 해당 내용을","C001");
  557. return;
  558. } else if ( xx1 < 5 || xx1 > 40 ) {
  559. sysf_messageBox("1번 기타항목의 내용은 최소 : 한글 3자, 영어 5자 최대 : 한글 20자, 영어 40자 까지 입니다.","I");
  560. return;
  561. }
  562. }
  563. if (bool_item5.value == true) {
  564. if (utlf_isNull(txt_etc2.value)) {
  565. sysf_messageBox("5번 항목을 선택하였으므로 해당 내용을","C001");
  566. return;
  567. } else if ( xx2 < 10 || xx2 > 80 ) {
  568. sysf_messageBox("5번 기타항목의 내용은 최소 : 한글 5자, 영어 10자 최대 : 한글 40자, 영어 80자 까지 입니다.","I");
  569. return;
  570. }
  571. }
  572. if((ds_rarediagappinfo.getColumn(0,"orddeptcd") == sysf_getUserInfo("dutplcecd")) && (sysf_getUserInfo("jobkindcd") == "0330") && (sysf_getUserInfo("jobposcd") != "1799")){ // 0330 : 의사, 1799 : 인턴
  573. var oParam = {};
  574. oParam.id = "TXMMO12205";
  575. oParam.service = "prcpmngtapp.EtcPrcpMngt";
  576. oParam.method = "reqExeUpdateRareDiagApp";
  577. oParam.inds = "rarediagappinfo=ds_rarediagappinfo diagappmthinfo=ds_diagappmthinfo";
  578. oParam.async = false;
  579. var bSaved = tranf_submit(oParam);
  580. if(bSaved) {
  581. var curOpenObj = frmf_findPopup("SPMMO21700"); //활성화된 산정특례 오픈 화면 object loading
  582. if(!utlf_isNull(curOpenObj)) curOpenObj.fReqGetOrdList();
  583. sysf_messageBox(ds_rarediagappinfo.getColumn(0,"rgstkindnm") + " 등록 신청서가 수정","I001");
  584. this.close();
  585. } else {
  586. sysf_messageBox(ds_rarediagappinfo.getColumn(0,"rgstkindnm") + " 등록 신청서 수정을 ","E009");
  587. }
  588. } else {
  589. sysf_messageBox("수정할 수 있는 ","E002");
  590. btn_save.visible = false; //저장
  591. btn_del.visible = false; //삭제
  592. btn_upt.visible = false; //수정
  593. }
  594. }
  595. /****************************************************************************************
  596. * Components : Button
  597. * Components ID : btn_del
  598. * Event : onclick
  599. * Argument : 01.obj : Object Event has occurred
  600. * : 02.e : Event Object
  601. * Description : 삭제 버튼 클릭
  602. ****************************************************************************************/
  603. function btn_del_onclick(obj:Button, e:ClickEventInfo)
  604. {
  605. if((ds_rarediagappinfo.getColumn(0,"orddeptcd") == sysf_getUserInfo("dutplcecd")) && (sysf_getUserInfo("jobkindcd") == "0330") && (sysf_getUserInfo("jobposcd") != "1799")){ // 0330 : 의사
  606. var oParam = {};
  607. oParam.id = "TXMMO12204";
  608. oParam.service = "prcpmngtapp.EtcPrcpMngt";
  609. oParam.method = "reqExeDeleteRareDiagApp";
  610. oParam.inds = "rarediagappinfo=ds_rarediagappinfo";
  611. oParam.async = false;
  612. var bSaved = tranf_submit(oParam);
  613. if(bSaved) {
  614. var curOpenObj = frmf_findPopup("SPMMO21700"); //활성화된 산정특례 오픈 화면 object loading
  615. if(!utlf_isNull(curOpenObj)) curOpenObj.fReqGetOrdList();
  616. sysf_messageBox(ds_rarediagappinfo.getColumn(0,"rgstkindnm") + " 등록신청서가 삭제","I001");
  617. this.close();
  618. }else{
  619. sysf_messageBox(ds_rarediagappinfo.getColumn(0,"rgstkindnm") + " 등록신청서 삭제를 ","E009");
  620. }
  621. } else {
  622. sysf_messageBox("삭제할 수 있는 ","E002");
  623. btn_save.visible = false; //저장
  624. btn_del.visible = false; //삭제
  625. btn_upt.visible = false; //수정
  626. this.close();
  627. }
  628. }
  629. /****************************************************************************************
  630. * Components : Button
  631. * Components ID : btn_save
  632. * Event : onclick
  633. * Argument : 01.obj : Object Event has occurred
  634. * : 02.e : Event Object
  635. * Description : 저장 버튼 클릭
  636. ****************************************************************************************/
  637. function btn_save_onclick(obj:Button, e:ClickEventInfo)
  638. {
  639. if((sysf_getUserInfo("jobkindcd") != "0330")){ // 0330 : 의사
  640. sysf_messageBox("의사만 저장 가능 합니다.", "I003");
  641. return;
  642. }
  643. var cncrdiagcnfmdd = ds_rarediagappinfo.getColumn(0,"cncrdiagcnfmdd");
  644. if (!utlf_isValidDateTime(cncrdiagcnfmdd, "YYYYMMDD")) {
  645. sysf_messageBox("진단 확인일은", "I003");
  646. return;
  647. }
  648. // 허만호, 2015.07.28 소스 현행화 s
  649. if(cncrdiagcnfmdd > utlf_getCurrentDate() ) {
  650. sysf_messageBox("진단 확인일을 미래일자로 입력 할 수 없습니다.", "I999");
  651. return;
  652. }
  653. if(cncrdiagcnfmdd < ((utlf_getCurrentDate().toDate()).getAddDate(-1,"M")).getDateFormat() ) {
  654. sysf_messageBox("진단 확인일을 최근 1달이내의 날짜로 입력 하셔야 합니다.", "I999");
  655. return;
  656. }
  657. // 허만호, 2015.07.28 소스 현행화 e
  658. var yy1 = utlf_transNullToEmpty(ipt_etc1.value);
  659. var yy2 = utlf_transNullToEmpty(txt_etc2.value);
  660. var xx1 = 0;
  661. for(var i=0; i < yy1.length; i++) { (yy1.charCodeAt(i) > 255) ? xx1 += 2 : xx1 += 1; }
  662. var xx2 = 0;
  663. for(var i=0; i < yy2.length; i++) { (yy2.charCodeAt(i) > 255) ? xx2 += 2 : xx2 += 1; }
  664. if (bool_etc.value == true) {
  665. if (utlf_isNull(ipt_etc1.value)) {
  666. sysf_messageBox("1번의 기타항목을 선택하였으므로 해당 내용을","C001");
  667. return;
  668. } else if ( xx1 < 5 || xx1 > 40 ) {
  669. sysf_messageBox("1번 기타항목의 내용은 최소 : 한글 3자, 영어 5자 최대 : 한글 20자, 영어 40자 까지 입니다.","I");
  670. return;
  671. }
  672. }
  673. if (bool_item5.value == true) {
  674. if ( utlf_isNull(txt_etc2.value)) {
  675. sysf_messageBox("5번 항목을 선택하였으므로 해당 내용을","C001");
  676. return;
  677. } else if ( xx2 < 10 || xx2 > 80 ) {
  678. sysf_messageBox("5번 기타항목의 내용은 최소 : 한글 5자, 영어 10자 최대 : 한글 40자, 영어 80자 까지 입니다.","I");
  679. return;
  680. }
  681. }
  682. var oParam = {};
  683. oParam.id = "TXMMO20001";
  684. oParam.service = "prcpmngtapp.EtcPrcpMngt";
  685. oParam.method = "reqExeSaveRareDiagApp";
  686. oParam.inds = "rarediagappinfo=ds_rarediagappinfo diagappmthinfo=ds_diagappmthinfo";
  687. oParam.async = false;
  688. var bSaved = tranf_submit(oParam);
  689. if(bSaved){
  690. var curOpenObj = frmf_findPopup("SPMMO21700"); //활성화된 산정특례 오픈 화면 object loading
  691. if(!utlf_isNull(curOpenObj)) curOpenObj.fReqGetOrdList();
  692. if(frmf_checkOpener()) opener.frmf_setParameter("SPMMO20000_save", "Y"); // 처방 저장시 작성 여부를 체크 하기 위해 추가. 2012.02.28 엄영만
  693. this.close();
  694. } else {
  695. sysf_messageBox("저장", "E009");
  696. }
  697. }
  698. /****************************************************************************************
  699. * Components : Button
  700. * Components ID : btn_exit
  701. * Event : onclick
  702. * Argument : 01.obj : Object Event has occurred
  703. * : 02.e : Event Object
  704. * Description : 종료 버튼 클릭
  705. ****************************************************************************************/
  706. function btn_exit_onclick(obj:Button, e:ClickEventInfo)
  707. {
  708. this.close();
  709. }
  710. //=======================================================================================
  711. // Function
  712. //---------------------------------------------------------------------------------------
  713. var nAmount = 0;
  714. function grd_diaglist_onmousewheel(obj:Grid, e:MouseWheelEventInfo)
  715. {
  716. nAmount = obj.vscrollbar.pos;
  717. }
  718. function grd_diaglist_onvscroll(obj:Grid, e:ScrollEventInfo)
  719. {
  720. if( e.type == "wheeldown" || e.type == "linedown"){
  721. nAmount += 100;
  722. obj.vscrollbar.pos = nAmount;
  723. }else if(e.type == "wheelup" || e.type == "lineup"){
  724. nAmount -= 100;
  725. obj.vscrollbar.pos = nAmount;
  726. }else if( e.type == "track" ){
  727. nAmount = obj.vscrollbar.pos;
  728. }
  729. }
  730. function Button03_onclick(obj:Button, e:ClickEventInfo)
  731. {
  732. lf_prcpModal ("SPMMO03100", 5, 40);
  733. if ( frmf_getParameter( "SPMMO03100_rtn_useyn" ) == "Y" ) {
  734. var sDiagInfo = frmf_getParameter("SPMMO03100_rtn");
  735. var nDiagRow = sDiagInfo.split ( "▩" ).length;
  736. for ( var i = 0; i < nDiagRow - 1; i++ ) {
  737. var sIcd10Cd = lf_getArrayData ( sDiagInfo, i, 8, "▩", "▦" );
  738. var sDiagCd = lf_getArrayData ( sDiagInfo, i, 9, "▩", "▦" );
  739. ds_rarediagappinfo.setColumn(0,"icd10cd", sIcd10Cd); //진단코드
  740. ds_rarediagappinfo.setColumn(0,"maindiagcd", sDiagCd); //진단코드
  741. break;
  742. }
  743. frmf_setParameter( "SPMMO03100_rtn_useyn", "" );
  744. ds_main_cond.setColumn(0,"rgstkindcd", ds_rarediagappinfo.getColumn(0, "rgstkindcd"));
  745. ds_main_cond.setColumn(0,"icd10cd", ds_rarediagappinfo.getColumn(0, "icd10cd"));
  746. ds_main_cond.setColumn(0,"diagcd", ds_rarediagappinfo.getColumn(0, "maindiagcd"));
  747. getRareAppInfo(); // 신청서 정보 조회
  748. }
  749. }
  750. function combo00_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
  751. {
  752. ds_main_cond.setColumn(0,"rgstkindcd", ds_rarediagappinfo.getColumn(0, "rgstkindcd"));
  753. getRareAppInfo(); // 신청서 정보 조회
  754. }
  755. function bool_etc_onclick(obj:CheckBox, e:ClickEventInfo)
  756. {
  757. if (obj.value == true) {
  758. ipt_etc1.enable = true;
  759. } else {
  760. ds_diagappmthinfo.setColumn(0,"mth0405","");
  761. ipt_etc1.enable = false;
  762. }
  763. }
  764. function bool_item5_onclick(obj:CheckBox, e:ClickEventInfo)
  765. {
  766. if (obj.value == true) {
  767. txt_etc2.enable = true;
  768. } else {
  769. ds_diagappmthinfo.setColumn(0,"mth0810","");
  770. txt_etc2.enable = false;
  771. }
  772. }
  773. ]]></Script>
  774. </Form>
  775. </FDL>