SPADC61700_ACS자문의뢰.xfdl 31 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613
  1. <?xml version="1.0" encoding="utf-8"?>
  2. <FDL version="1.5">
  3. <TypeDefinition url="..\..\..\default_typedef.xml"/>
  4. <Form id="SPADC61700" position="absolute 0 0 475 291" titletext="항응고약물(ACS)서비스" oninit="SPADC61700_oninit" onload="SPADC61700_onload">
  5. <Layouts>
  6. <Layout>
  7. <Div position="absolute 0 0 470 255" id="group1">
  8. <Layouts>
  9. <Layout>
  10. <Static text="전달사항" position="absolute 0 188 133 250" id="caption24" class="cell_1"/>
  11. <TextArea position="absolute 135 188 470 250" id="textarea1" taborder="5"/>
  12. <Static text="ACS 자문 의뢰" position="absolute 2 121 112 138" id="caption1" class="tit_2"/>
  13. <Shape position="absolute 0 137 470 143" linetype="horizontal" id="line1" class="line_1"/>
  14. <Shape position="absolute 0 160 470 166" linetype="horizontal" id="line2" class="line_2"/>
  15. <Shape position="absolute 0 183 470 189" linetype="horizontal" id="line3" class="line_2"/>
  16. <Static text="예상복용기간" position="absolute 285 195 415 215" id="caption13" class="cell_1" visible="false"/>
  17. <Static text="관련위험인자" position="absolute 280 200 410 220" id="caption14" class="cell_1" visible="false"/>
  18. <Static text="처방된 항응고제 용량" position="absolute 155 205 285 225" id="caption8" class="cell_1" visible="false"/>
  19. <Static text="** Warfarin(COMD or COMD02) (" position="absolute 275 195 465 210" id="caption6" visible="false"/>
  20. <Static text=") mg" position="absolute 365 200 431 215" id="caption7" visible="false"/>
  21. <Static text="Cf) 제안 용량 : 65세 미만 - 5mg" position="absolute 275 195 465 210" id="caption16" visible="false"/>
  22. <Static text="65세 이상 - 2mg" position="absolute 310 200 400 215" id="caption17" visible="false"/>
  23. <Edit position="absolute 290 142 470 161" id="ipt_cnstcnts2" enable="false" taborder="2" maxlength="33"/>
  24. <Combo position="absolute 135 142 288 161" id="cmb_cnstcnts1" class="combo_search" taborder="1" codecolumn="codecolumn" datacolumn="datacolumn" onitemchanged="group1_cmb_cnstcnts1_onitemchanged">
  25. <Dataset id="innerdataset">
  26. <ColumnInfo>
  27. <Column id="codecolumn"/>
  28. <Column id="datacolumn"/>
  29. </ColumnInfo>
  30. <Rows>
  31. <Row>
  32. <Col id="codecolumn">1</Col>
  33. <Col id="datacolumn">Deep vein thrombosis</Col>
  34. </Row>
  35. <Row>
  36. <Col id="codecolumn">2</Col>
  37. <Col id="datacolumn">Pulmonary embolism</Col>
  38. </Row>
  39. <Row>
  40. <Col id="codecolumn">3</Col>
  41. <Col id="datacolumn">Recurrent embolism</Col>
  42. </Row>
  43. <Row>
  44. <Col id="codecolumn">4</Col>
  45. <Col id="datacolumn">Myocardial infarction</Col>
  46. </Row>
  47. <Row>
  48. <Col id="codecolumn">5</Col>
  49. <Col id="datacolumn">Atrial fibrillation</Col>
  50. </Row>
  51. <Row>
  52. <Col id="codecolumn">6</Col>
  53. <Col id="datacolumn">Mechanical Prosthetic valve</Col>
  54. </Row>
  55. <Row>
  56. <Col id="codecolumn">7</Col>
  57. <Col id="datacolumn">Bioprosthetic valve</Col>
  58. </Row>
  59. <Row>
  60. <Col id="codecolumn">8</Col>
  61. <Col id="datacolumn">PTCA</Col>
  62. </Row>
  63. <Row>
  64. <Col id="codecolumn">9</Col>
  65. <Col id="datacolumn">Cerebral thrombosis</Col>
  66. </Row>
  67. <Row>
  68. <Col id="codecolumn">10</Col>
  69. <Col id="datacolumn">Cancer</Col>
  70. </Row>
  71. <Row>
  72. <Col id="codecolumn">11</Col>
  73. <Col id="datacolumn">Other</Col>
  74. </Row>
  75. </Rows>
  76. </Dataset>
  77. </Combo>
  78. <Combo position="absolute 135 165 288 184" id="cmb_cnstcnts3" class="combo_search" taborder="3" codecolumn="codecolumn" datacolumn="datacolumn" onitemchanged="group1_cmb_cnstcnts3_onitemchanged">
  79. <Dataset id="innerdataset">
  80. <ColumnInfo>
  81. <Column id="codecolumn"/>
  82. <Column id="datacolumn"/>
  83. </ColumnInfo>
  84. <Rows>
  85. <Row>
  86. <Col id="codecolumn">1</Col>
  87. <Col id="datacolumn">1.5 - 2.5</Col>
  88. </Row>
  89. <Row>
  90. <Col id="codecolumn">2</Col>
  91. <Col id="datacolumn">2.0 - 3.0</Col>
  92. </Row>
  93. <Row>
  94. <Col id="codecolumn">3</Col>
  95. <Col id="datacolumn">2.5 - 3.5</Col>
  96. </Row>
  97. <Row>
  98. <Col id="codecolumn">4</Col>
  99. <Col id="datacolumn">Other</Col>
  100. </Row>
  101. </Rows>
  102. </Dataset>
  103. </Combo>
  104. <Edit position="absolute 290 165 470 184" id="ipt_cnstcnts4" enable="false" taborder="4" maxlength="33"/>
  105. <Combo position="absolute 290 195 440 214" id="cmb_cnstcnts5" class="combo_search" visible="false" codecolumn="codecolumn" datacolumn="datacolumn">
  106. <Dataset id="innerdataset">
  107. <ColumnInfo>
  108. <Column id="codecolumn"/>
  109. <Column id="datacolumn"/>
  110. </ColumnInfo>
  111. <Rows>
  112. <Row>
  113. <Col id="codecolumn">1</Col>
  114. <Col id="datacolumn">6주</Col>
  115. </Row>
  116. <Row>
  117. <Col id="codecolumn">2</Col>
  118. <Col id="datacolumn">3개월</Col>
  119. </Row>
  120. <Row>
  121. <Col id="codecolumn">3</Col>
  122. <Col id="datacolumn">6개월</Col>
  123. </Row>
  124. <Row>
  125. <Col id="codecolumn">4</Col>
  126. <Col id="datacolumn">1년</Col>
  127. </Row>
  128. <Row>
  129. <Col id="codecolumn">5</Col>
  130. <Col id="datacolumn">장기복용</Col>
  131. </Row>
  132. </Rows>
  133. </Dataset>
  134. </Combo>
  135. <Combo position="absolute 295 195 445 214" id="cmb_cnstcnts6" class="combo_search" visible="false" codecolumn="codecolumn" datacolumn="datacolumn">
  136. <Dataset id="innerdataset">
  137. <ColumnInfo>
  138. <Column id="codecolumn"/>
  139. <Column id="datacolumn"/>
  140. </ColumnInfo>
  141. <Rows>
  142. <Row>
  143. <Col id="codecolumn">1</Col>
  144. <Col id="datacolumn">Hypertension</Col>
  145. </Row>
  146. <Row>
  147. <Col id="codecolumn">2</Col>
  148. <Col id="datacolumn">Diabetes</Col>
  149. </Row>
  150. <Row>
  151. <Col id="codecolumn">3</Col>
  152. <Col id="datacolumn">Hepatic disease</Col>
  153. </Row>
  154. <Row>
  155. <Col id="codecolumn">4</Col>
  156. <Col id="datacolumn">Hyperlipidemia</Col>
  157. </Row>
  158. <Row>
  159. <Col id="codecolumn">5</Col>
  160. <Col id="datacolumn">Hyperthyroidism</Col>
  161. </Row>
  162. <Row>
  163. <Col id="codecolumn">6</Col>
  164. <Col id="datacolumn">Hypothroidism</Col>
  165. </Row>
  166. <Row>
  167. <Col id="codecolumn">7</Col>
  168. <Col id="datacolumn">Renal disease</Col>
  169. </Row>
  170. <Row>
  171. <Col id="codecolumn">8</Col>
  172. <Col id="datacolumn">Other</Col>
  173. </Row>
  174. </Rows>
  175. </Dataset>
  176. </Combo>
  177. <Edit position="absolute 255 195 435 214" id="ipt_cnstcnts7" enable="false" visible="false"/>
  178. <MaskEdit position="absolute 330 195 390 214" id="ipt_cnstcnts8" visible="false" mask="9999999999"/>
  179. <Shape position="absolute 0 249 470 255" linetype="horizontal" id="line7" class="line_6"/>
  180. <Static text="적응증" position="absolute 0 142 133 163" id="caption10" class="cell_1"/>
  181. <Static text="Target INR" position="absolute 0 165 133 186" id="caption11" class="cell_1"/>
  182. <Div id="case2" taborder="6" class="div_SA2" position="absolute 0 0 470 115">
  183. <Layouts>
  184. <Layout>
  185. <Static id="caption21" text="의뢰부서 :" class="search_name" position="absolute 10 12 100 29"/>
  186. <Static id="caption15" text="의뢰자 :" class="search_name" position="absolute 10 37 100 54"/>
  187. <Static id="caption19" text="수신부서 :" class="search_name" position="absolute 10 62 100 79"/>
  188. <Static id="caption20" text="수신자 :" class="search_name" position="absolute 10 87 100 104"/>
  189. <Static id="caption23" text="이름 :" class="search_name" position="absolute 250 37 345 54"/>
  190. <Static id="caption22" text="등록번호 :" class="search_name" position="absolute 250 12 340 29"/>
  191. <Edit id="output9" taborder="7" readonly="true" class="output_search" position="absolute 105 10 215 29"/>
  192. <Edit id="output10" taborder="8" readonly="true" class="output_search" position="absolute 105 35 215 54"/>
  193. <Edit id="output8" taborder="9" readonly="true" class="output_search" position="absolute 105 60 215 79"/>
  194. <Edit id="output11" taborder="10" readonly="true" class="output_search" position="absolute 105 85 215 104"/>
  195. <Edit id="output12" taborder="11" readonly="true" class="output_search" position="absolute 350 10 460 29"/>
  196. <Edit id="output13" taborder="12" readonly="true" class="output_search" position="absolute 350 35 460 54"/>
  197. </Layout>
  198. </Layouts>
  199. </Div>
  200. <Div id="case1" taborder="7" class="div_SA2" position="absolute 0 0 470 115">
  201. <Layouts>
  202. <Layout>
  203. <Static id="caption12" text="처방구분 :" class="search_name" position="absolute 10 12 100 29" anchor="default"/>
  204. <Static id="caption9" text="병실 :" class="search_name" position="absolute 10 37 100 54" anchor="default"/>
  205. <Static id="caption2" text="진료과 :" class="search_name" position="absolute 10 62 100 79" anchor="default"/>
  206. <Static id="caption3" text="처방의사 :" class="search_name" position="absolute 10 87 100 104" anchor="default"/>
  207. <Edit id="output6" taborder="8" readonly="true" class="output_search" position="absolute 105 10 215 29" anchor="default"/>
  208. <Edit id="output7" taborder="9" readonly="true" class="output_search" position="absolute 105 35 215 54" anchor="default"/>
  209. <Edit id="output5" taborder="10" readonly="true" class="output_search" position="absolute 105 60 215 79" anchor="default"/>
  210. <Edit id="output2" taborder="11" readonly="true" class="output_search" position="absolute 105 85 215 104" anchor="default"/>
  211. <Static id="caption4" text="등록번호 :" class="search_name" position="absolute 250 12 340 29" anchor="default"/>
  212. <Static id="caption5" text="성별/나이 :" class="search_name" position="absolute 250 37 345 54" anchor="default"/>
  213. <Static id="caption18" text="이름 :" class="search_name" position="absolute 250 62 340 79" anchor="default"/>
  214. <Edit id="output4" taborder="12" readonly="true" class="output_search" position="absolute 350 10 460 29" anchor="default"/>
  215. <Edit id="output1" taborder="13" readonly="true" class="output_search" position="absolute 350 35 460 54" anchor="default"/>
  216. <Edit id="output3" taborder="14" readonly="true" class="output_search" position="absolute 350 60 460 79" anchor="default"/>
  217. </Layout>
  218. </Layouts>
  219. </Div>
  220. <Shape id="line00" class="line_1" position="absolute 0 136 470 142"/>
  221. <Shape id="line04" class="line_1" position="absolute 0 138 470 144"/>
  222. </Layout>
  223. </Layouts>
  224. </Div>
  225. <Div position="absolute 0 255 470 285" id="group2">
  226. <Layouts>
  227. <Layout>
  228. <Button position="absolute 293 5 349 27" id="btn_save" class="btn4" visible="false" text="저장" anchor="default" onclick="group2_btn_save_onclick"/>
  229. <Button position="absolute 413 5 469 27" id="btn_close" class="btn4" text="닫기" anchor="default" onclick="group2_btn_close_onclick"/>
  230. <Button position="absolute 353 5 409 27" id="btn_cnst" class="btn4" taborder="6" text="의뢰" anchor="default" onclick="group2_btn_cnst_onclick"/>
  231. </Layout>
  232. </Layouts>
  233. </Div>
  234. </Layout>
  235. </Layouts>
  236. <Objects>
  237. <Dataset id="ds_main_cnstinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  238. <ColumnInfo>
  239. <Column id="cnstkind" type="STRING" size="256"/>
  240. <Column id="cnstseqno" type="STRING" size="256"/>
  241. <Column id="cretno" type="STRING" size="256"/>
  242. <Column id="formrecseq" type="STRING" size="256"/>
  243. <Column id="formcd" type="STRING" size="256"/>
  244. <Column id="cnststat" type="STRING" size="256"/>
  245. <Column id="reqdd" type="STRING" size="256"/>
  246. <Column id="reqhm" type="STRING" size="256"/>
  247. <Column id="chosflag" type="STRING" size="256"/>
  248. <Column id="orddd" type="STRING" size="256"/>
  249. <Column id="eryn" type="STRING" size="256"/>
  250. <Column id="reqdeptcd" type="STRING" size="256"/>
  251. <Column id="requserid" type="STRING" size="256"/>
  252. <Column id="cnstcnts1" type="STRING" size="256"/>
  253. <Column id="cnstcnts2" type="STRING" size="256"/>
  254. <Column id="cnstcnts3" type="STRING" size="256"/>
  255. <Column id="cnstcnts4" type="STRING" size="256"/>
  256. <Column id="cnstcnts5" type="STRING" size="256"/>
  257. <Column id="cnstcnts6" type="STRING" size="256"/>
  258. <Column id="cnstcnts7" type="STRING" size="256"/>
  259. <Column id="cnstcnts8" type="STRING" size="256"/>
  260. <Column id="cnstflag" type="STRING" size="256"/>
  261. <Column id="recvdeptcd" type="STRING" size="256"/>
  262. <Column id="cnstcnts30" type="STRING" size="256"/>
  263. </ColumnInfo>
  264. <Rows>
  265. <Row>
  266. <Col id="cnstkind">1</Col>
  267. <Col id="cnstseqno"/>
  268. <Col id="cretno"/>
  269. <Col id="formrecseq"/>
  270. <Col id="formcd">0000000964</Col>
  271. <Col id="cnststat"/>
  272. <Col id="reqdd"/>
  273. <Col id="reqhm"/>
  274. <Col id="chosflag"/>
  275. <Col id="orddd"/>
  276. <Col id="eryn">N</Col>
  277. <Col id="reqdeptcd"/>
  278. <Col id="requserid"/>
  279. <Col id="cnstcnts1"/>
  280. <Col id="cnstcnts2"/>
  281. <Col id="cnstcnts3"/>
  282. <Col id="cnstcnts4"/>
  283. <Col id="cnstcnts5"/>
  284. <Col id="cnstcnts6"/>
  285. <Col id="cnstcnts7"/>
  286. <Col id="cnstcnts8"/>
  287. <Col id="cnstflag">3</Col>
  288. <Col id="recvdeptcd">3240000000</Col>
  289. <Col id="cnstcnts30"/>
  290. </Row>
  291. </Rows>
  292. </Dataset>
  293. <Dataset id="ds_main_patinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  294. <ColumnInfo>
  295. <Column id="pid" type="STRING" size="256"/>
  296. <Column id="sna" type="STRING" size="256"/>
  297. <Column id="hngnm" type="STRING" size="256"/>
  298. <Column id="roomcd" type="STRING" size="256"/>
  299. <Column id="reqdeptnm" type="STRING" size="256"/>
  300. <Column id="requsernm" type="STRING" size="256"/>
  301. <Column id="prcpflag" type="STRING" size="256"/>
  302. <Column id="recvdeptnm" type="STRING" size="256"/>
  303. <Column id="recvusernm" type="STRING" size="256"/>
  304. </ColumnInfo>
  305. <Rows>
  306. <Row>
  307. <Col id="pid"/>
  308. <Col id="sna"/>
  309. <Col id="hngnm"/>
  310. <Col id="roomcd"/>
  311. <Col id="reqdeptnm"/>
  312. <Col id="requsernm"/>
  313. <Col id="prcpflag"/>
  314. <Col id="recvdeptnm"/>
  315. <Col id="recvusernm"/>
  316. </Row>
  317. </Rows>
  318. </Dataset>
  319. <Dataset id="ds_send_srchinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  320. <Dataset id="ds_hidden_item" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  321. <ColumnInfo>
  322. <Column id="cnstkind" type="STRING" size="256"/>
  323. <Column id="cnstseqno" type="STRING" size="256"/>
  324. </ColumnInfo>
  325. <Rows>
  326. <Row/>
  327. </Rows>
  328. </Dataset>
  329. <Dataset id="ds_paminfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  330. <Dataset id="ds_temp_cnstinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  331. <Dataset id="ds_send_req" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  332. </Objects>
  333. <Bind>
  334. <BindItem id="item13" compid="group1.cmb_cnstcnts1" propid="value" datasetid="ds_main_cnstinfo" columnid="cnstcnts1"/>
  335. <BindItem id="item14" compid="group1.cmb_cnstcnts3" propid="value" datasetid="ds_main_cnstinfo" columnid="cnstcnts3"/>
  336. <BindItem id="item15" compid="group1.ipt_cnstcnts2" propid="value" datasetid="ds_main_cnstinfo" columnid="cnstcnts2"/>
  337. <BindItem id="item16" compid="group1.ipt_cnstcnts4" propid="value" datasetid="ds_main_cnstinfo" columnid="cnstcnts4"/>
  338. <BindItem id="item17" compid="group1.textarea1" propid="value" datasetid="ds_main_cnstinfo" columnid="cnstcnts30"/>
  339. <BindItem id="item0" compid="group1.case1.output6" propid="value" datasetid="ds_main_patinfo" columnid="prcpflag"/>
  340. <BindItem id="item1" compid="group1.case1.output7" propid="value" datasetid="ds_main_patinfo" columnid="roomcd"/>
  341. <BindItem id="item2" compid="group1.case1.output5" propid="value" datasetid="ds_main_patinfo" columnid="reqdeptnm"/>
  342. <BindItem id="item3" compid="group1.case1.output2" propid="value" datasetid="ds_main_patinfo" columnid="requsernm"/>
  343. <BindItem id="item4" compid="group1.case1.output4" propid="value" datasetid="ds_main_patinfo" columnid="pid"/>
  344. <BindItem id="item5" compid="group1.case1.output1" propid="value" datasetid="ds_main_patinfo" columnid="sna"/>
  345. <BindItem id="item6" compid="group1.case1.output3" propid="value" datasetid="ds_main_patinfo" columnid="hngnm"/>
  346. <BindItem id="item7" compid="group1.case2.output9" propid="value" datasetid="ds_temp_cnstinfo" columnid="reqdeptnm"/>
  347. <BindItem id="item8" compid="group1.case2.output10" propid="value" datasetid="ds_temp_cnstinfo" columnid="requsernm"/>
  348. <BindItem id="item9" compid="group1.case2.output8" propid="value" datasetid="ds_temp_cnstinfo" columnid="recvdeptnm"/>
  349. <BindItem id="item10" compid="group1.case2.output11" propid="value" datasetid="ds_temp_cnstinfo" columnid="recvusernm"/>
  350. <BindItem id="item11" compid="group1.case2.output12" propid="value" datasetid="ds_temp_cnstinfo" columnid="pid"/>
  351. <BindItem id="item12" compid="group1.case2.output13" propid="value" datasetid="ds_temp_cnstinfo" columnid="pidnm"/>
  352. </Bind>
  353. <Script type="xscript4.0"><![CDATA[/***************************************************************************************
  354. * System Name :
  355. * Job Name :
  356. * Creator :
  357. * Make Date : 2015-07-23
  358. * Description :
  359. *---------------------------------------------------------------------------------------
  360. * Modify Date Modifier Modify Description
  361. *---------------------------------------------------------------------------------------
  362. * 2015-07-23 Live Converter TF->XP
  363. *
  364. *---------------------------------------------------------------------------------------
  365. ****************************************************************************************/
  366. //=======================================================================================
  367. // Lib Include
  368. //---------------------------------------------------------------------------------------
  369. include "com_commonxp::comm_main.xjs"
  370. //=======================================================================================
  371. // Global Form Variable
  372. //---------------------------------------------------------------------------------------
  373. var arErrorCode = new HashArray();
  374. //=======================================================================================
  375. // Function
  376. //---------------------------------------------------------------------------------------
  377. function finit(){
  378. if(fCnstType()){
  379. group1.case1.visible = false;
  380. group1.case2.visible = true;
  381. fSetPatinfo();
  382. group2.btn_cnst.enable = false;
  383. }else{
  384. group1.case1.visible = true;
  385. group1.case2.visible = false;
  386. var pamInfoCvs = sysf_getGlobalVariable("paminfo");
  387. if(!utlf_isNull(pamInfoCvs)){ //cvs가 null이 아닌 경우에만 처리함.
  388. dsf_setCSVToDs("ds_paminfo",pamInfoCvs);
  389. ds_main_patinfo.setColumn(0,"pid",ds_paminfo.getColumn(0,"pid"));
  390. var sna = ds_paminfo.getColumn(0,"sex") +"/"+ ds_paminfo.getColumn(0,"age");
  391. ds_main_patinfo.setColumn(0,"sna" , sna);
  392. ds_main_patinfo.setColumn(0,"hngnm" , ds_paminfo.getColumn(0,"hngnm"));
  393. ds_main_patinfo.setColumn(0,"roomcd" , ds_paminfo.getColumn(0,"roomcd"));
  394. ds_main_patinfo.setColumn(0,"reqdeptnm" , sysf_getUserInfo("dutplcenm"));
  395. ds_main_cnstinfo.setColumn(0,"reqdeptcd", sysf_getUserInfo("dutplcecd"));
  396. ds_main_patinfo.setColumn(0,"requsernm" , sysf_getUserName());
  397. ds_main_cnstinfo.setColumn(0,"requserid", sysf_getUserId());
  398. var prcpflag = "";
  399. var ioflag = ds_paminfo.getColumn(0,"ioflag");
  400. if(ioflag == "O" || ioflag == "S"){
  401. prcpflag = "외래";
  402. ds_main_cnstinfo.setColumn(0,"orddd", ds_paminfo.getColumn(0,"orddd"));
  403. }else {
  404. prcpflag = "입원";
  405. ds_main_cnstinfo.setColumn(0,"orddd", ds_paminfo.getColumn(0,"indd"));
  406. }
  407. if(ds_paminfo.getColumn(0,"fsexamflag") == "F"){
  408. prcpflag += "/초진";
  409. }else if(ds_paminfo.getColumn(0,"fsexamflag") =="R"){
  410. prcpflag += "/재진";
  411. }
  412. ds_main_patinfo.setColumn(0 ,"prcpflag", prcpflag);
  413. ds_main_cnstinfo.setColumn(0,"chosflag", ds_paminfo.getColumn(0,"ioflag"));
  414. ds_main_cnstinfo.setColumn(0,"cretno" , ds_paminfo.getColumn(0,"cretno"));
  415. }else{
  416. var msg = sysf_messageBox("환자를 ", "C002");
  417. return false;
  418. }
  419. }
  420. // model.refresh();
  421. }
  422. /****************************************************************************************
  423. * Argument : N/A
  424. * Description : 화면 설정 타입
  425. ****************************************************************************************/
  426. function fCnstType(){
  427. if(utlf_isNull(ds_temp_cnstinfo.getColumn(0,"formrecseq"))){
  428. return false;
  429. }else return true;
  430. }
  431. /****************************************************************************************
  432. * Argument : N/A
  433. * Description : 환자정보 설정
  434. ****************************************************************************************/
  435. function fSetPatinfo(){
  436. ds_main_patinfo.setColumn(0,"pid" , ds_temp_cnstinfo.getColumn(0,"pid"));
  437. ds_main_patinfo.setColumn(0,"hngnm" , ds_temp_cnstinfo.getColumn(0,"pidnm"));
  438. ds_main_patinfo.setColumn(0,"reqdeptnm" , ds_temp_cnstinfo.getColumn(0,"reqdeptnm"));
  439. ds_main_patinfo.setColumn(0,"requsernm" , ds_temp_cnstinfo.getColumn(0,"requsernm"));
  440. ds_main_patinfo.setColumn(0,"recvdeptnm", ds_temp_cnstinfo.getColumn(0,"recvdeptnm"));
  441. ds_main_patinfo.setColumn(0,"recvusernm", ds_temp_cnstinfo.getColumn(0,"recvusernm"));
  442. ds_send_srchinfo.copyData(ds_temp_cnstinfo);
  443. var oParam = {};
  444. oParam.id = "TRADC61701";
  445. oParam.service = "pharmacyconsultapp.ReqMngt";
  446. oParam.method = "reqGetCnstInfo";
  447. oParam.inds = "req=ds_send_srchinfo";
  448. oParam.outds = "ds_main_cnstinfo=cnstinfo";
  449. oParam.async = false;
  450. tranf_submit(oParam);
  451. }
  452. /****************************************************************************************
  453. * Argument : N/A
  454. * Description : 현재시간 구하기 : 시간 분
  455. ****************************************************************************************/
  456. function astgetCurrentTime()
  457. {
  458. var sDate = utlf_getNewDate();
  459. rtnTime = (( sDate.getHours() > 9 ) ? sDate.getHours() : "0" + sDate.getHours());
  460. rtnTime = rtnTime.toString() + (( sDate.getMinutes() > 9 ) ? sDate.getMinutes() : "0" + sDate.getMinutes());
  461. return rtnTime;
  462. }
  463. /****************************************************************************************
  464. * Argument : N/A
  465. * Description : 의뢰 저장
  466. ****************************************************************************************/
  467. function fSaveCnst(){
  468. if(!utlf_isNull(ds_main_patinfo.getColumn(0,"pid"))){
  469. dsf_makeValue(ds_main_cnstinfo,"pid","string",ds_main_patinfo.getColumn(0,"pid"));
  470. // submit("TXADC61701");
  471. var oParam = {};
  472. oParam.id = "TXADC61701";
  473. oParam.service = "pharmacyconsultapp.ReqMngt";
  474. oParam.method = "reqExeCnstInfo";
  475. oParam.inds = "req=ds_main_cnstinfo";
  476. oParam.outds = "ds_hidden_item=item";
  477. oParam.async = true;
  478. tranf_submit(oParam);
  479. // model.refresh();
  480. }
  481. }
  482. //=======================================================================================
  483. // Event
  484. //---------------------------------------------------------------------------------------
  485. /****************************************************************************************
  486. * Components : Form
  487. * Components ID : SPADC61700
  488. * Event : oninit
  489. * Argument : 01.obj : Object Event has occurred
  490. * : 02.e : Event Object
  491. * Description : 화면 처음 초기화시 폼초기화
  492. ****************************************************************************************/
  493. function SPADC61700_oninit(obj:Form, e:InitEventInfo)
  494. {
  495. frmf_initForm(obj); // 폼 초기화
  496. }
  497. /****************************************************************************************
  498. * Components : Form
  499. * Components ID : SPADC61700
  500. * Event : onload
  501. * Argument : 01.obj : Object Event has occurred
  502. * : 02.e : Event Object
  503. * Description : 화면 처음 초기화시 폼초기화
  504. ****************************************************************************************/
  505. function SPADC61700_onload(obj:Form, e:LoadEventInfo)
  506. {
  507. ds_temp_cnstinfo.copyData(arg_ds_temp_cnstinfo);
  508. finit();
  509. }
  510. /****************************************************************************************
  511. * Components : Combo
  512. * Components ID : group1.cmb_cnstcnts1
  513. * Event : onitemchanged
  514. * Argument : 01.obj : Object Event has occurred
  515. * : 02.e : Event Object
  516. * Description : 적응증 선택
  517. ****************************************************************************************/
  518. function group1_cmb_cnstcnts1_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
  519. {
  520. if(group1.cmb_cnstcnts1.value == 11){
  521. group1.ipt_cnstcnts2.enable = true;
  522. }else{
  523. group1.ipt_cnstcnts2.value = "";
  524. group1.ipt_cnstcnts2.enable = false;
  525. }
  526. }
  527. /****************************************************************************************
  528. * Components : Combo
  529. * Components ID : group1.cmb_cnstcnts3
  530. * Event : onitemchanged
  531. * Argument : 01.obj : Object Event has occurred
  532. * : 02.e : Event Object
  533. * Description : Target INR 선택
  534. ****************************************************************************************/
  535. function group1_cmb_cnstcnts3_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
  536. {
  537. if(group1.cmb_cnstcnts3.value == 4){
  538. group1.ipt_cnstcnts4.enable = true;
  539. }else{
  540. group1.ipt_cnstcnts4.value = "";
  541. group1.ipt_cnstcnts4.enable = false;
  542. }
  543. }
  544. function group2_btn_save_onclick(obj:Button, e:ClickEventInfo)
  545. {
  546. // model.setValue("/root/main/cnstinfo/cnststat", "11");
  547. // fSaveCnst();
  548. }
  549. /****************************************************************************************
  550. * Components : Button
  551. * Components ID : group2.btn_cnst
  552. * Event : onclick
  553. * Argument : 01.obj : Object Event has occurred
  554. * : 02.e : Event Object
  555. * Description : 의뢰버튼 클릭
  556. ****************************************************************************************/
  557. function group2_btn_cnst_onclick(obj:Button, e:ClickEventInfo)
  558. {
  559. if ( sysf_messageBox("의뢰내용을","Q002")==6 ){
  560. ds_main_cnstinfo.setColumn(0,"cnststat", "12");
  561. ds_main_cnstinfo.setColumn(0,"reqdd", utlf_getCurrentDate());
  562. ds_main_cnstinfo.setColumn(0,"reqhm", astgetCurrentTime());
  563. fSaveCnst();
  564. this.close();
  565. }
  566. }
  567. /****************************************************************************************
  568. * Components : Button
  569. * Components ID : group2.btn_close
  570. * Event : onclick
  571. * Argument : 01.obj : Object Event has occurred
  572. * : 02.e : Event Object
  573. * Description : 화면 닫기
  574. ****************************************************************************************/
  575. function group2_btn_close_onclick(obj:Button, e:ClickEventInfo)
  576. {
  577. this.close();
  578. }
  579. ]]></Script>
  580. </Form>
  581. </FDL>