SSADB70300_성인TPN조성조회.xfdl 72 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168
  1. <?xml version="1.0" encoding="utf-8"?>
  2. <FDL version="1.5">
  3. <TypeDefinition url="..\..\..\default_typedef.xml"/>
  4. <Form id="SSADB70300" position="absolute 0 0 932 573" titletext="Untitle" oninit="SSADB70300_oninit" onload="SSADB70300_onload">
  5. <Layouts>
  6. <Layout>
  7. <Div position="absolute -5 72 932 407" id="grp_tpnprcp" applystyletype="keep">
  8. <Layouts>
  9. <Layout>
  10. <Shape position="absolute 5 272 500 278" linetype="horizontal" id="line20" class="line_2" anchor="default"/>
  11. <Shape position="absolute 5 297 500 303" linetype="horizontal" id="line21" class="line_2" anchor="default"/>
  12. <Shape position="absolute 5 47 500 53" linetype="horizontal" id="line10" class="line_2" anchor="default"/>
  13. <Shape position="absolute 6 322 936 328" linetype="horizontal" id="line22" class="line_2" anchor="default"/>
  14. <Shape position="absolute 5 72 500 78" linetype="horizontal" id="line11" class="line_2" anchor="default"/>
  15. <Shape position="absolute 5 97 500 103" linetype="horizontal" id="line12" class="line_2" anchor="default"/>
  16. <Shape position="absolute 5 122 500 128" linetype="horizontal" id="line14" class="line_2" anchor="default"/>
  17. <Shape position="absolute 5 147 500 153" linetype="horizontal" id="line15" class="line_2" anchor="default"/>
  18. <Shape position="absolute 5 172 500 178" linetype="horizontal" id="line16" class="line_2" anchor="default"/>
  19. <Shape position="absolute 5 197 500 203" linetype="horizontal" id="line17" class="line_2" anchor="default"/>
  20. <Shape position="absolute 5 222 500 228" linetype="horizontal" id="line18" class="line_2" anchor="default"/>
  21. <Shape position="absolute 5 247 500 253" linetype="horizontal" id="line19" class="line_2" anchor="default"/>
  22. <Edit readonly="true" position="absolute 79 102 159 121" id="output41" anchor="default"/>
  23. <Static text="ml" position="absolute 245 251 290 273" align="align:center middle;" id="caption102" anchor="default"/>
  24. <Edit readonly="true" position="absolute 360 176 451 198" align="align:right middle;" id="output4" anchor="default" class="output"/>
  25. <Edit readonly="true" position="absolute 79 127 159 146" id="output42" anchor="default"/>
  26. <Edit readonly="true" position="absolute 680 301 771 323" align="align:right middle;" id="output20" anchor="default" class="output"/>
  27. <Edit readonly="true" position="absolute 360 151 451 173" align="align:right middle;" id="output5" anchor="default" class="output"/>
  28. <Static text="ml" position="absolute 245 126 290 148" align="align:center middle;" id="caption60" anchor="default"/>
  29. <Edit readonly="true" position="absolute 79 152 159 171" id="output43" anchor="default"/>
  30. <Edit readonly="true" position="absolute 360 251 451 273" align="align:right middle;" id="output32" anchor="default" class="output"/>
  31. <Edit readonly="true" position="absolute 360 126 451 148" align="align:right middle;" id="output6" anchor="default" class="output"/>
  32. <Static text="IU" position="absolute 245 276 290 298" align="align:center middle;" id="caption104" anchor="default"/>
  33. <Static text="ml" position="absolute 245 226 291 248" align="align:center middle;" id="caption94" anchor="default"/>
  34. <Edit readonly="true" position="absolute 165 226 240 248" align="align:right middle;" id="input40" class="input_default" anchor="default"/>
  35. <Static text="K+,P" position="absolute 5 176 160 198" align="align:center middle;" id="caption72" class="cell_1" style="padding:0 0 0 4;" anchor="default"/>
  36. <Static text="Na+" position="absolute 5 101 160 123" align="align:center middle;" id="caption50" class="cell_1" style="padding:0 0 0 4;" anchor="default"/>
  37. <Edit readonly="true" position="absolute 78 178 158 196" id="output44" anchor="default" class="output"/>
  38. <Combo position="absolute 79 77 159 96" id="cmb_tpnflag" class="combo_default" innerdataset="@ds_temp_tpnbaseinfo_aminoinfo" datacolumn="tpndrugcd" codecolumn="tpndrugcd" anchor="default"/>
  39. <Static text="총열량" position="absolute 510 301 649 323" align="align:center middle;" id="caption62" class="cell_2" anchor="default"/>
  40. <Edit readonly="true" position="absolute 360 101 451 123" align="align:right middle;" id="output7" anchor="default" class="output"/>
  41. <Static text="Heparin" position="absolute 5 276 160 298" align="align:center middle;" id="caption105" class="cell_1" style="padding:0 0 0 4;" anchor="default"/>
  42. <Edit readonly="true" position="absolute 79 202 159 221" id="output45" anchor="default"/>
  43. <Edit readonly="true" position="absolute 360 301 451 323" align="align:right middle;" id="output12" anchor="default" class="output"/>
  44. <Edit readonly="true" position="absolute 360 76 451 98" align="align:right middle;" id="output8" anchor="default" class="output"/>
  45. <Edit readonly="true" position="absolute 165 251 240 273" align="align:right middle;" id="input42" enable="false" anchor="default" class="output"/>
  46. <Static text="ml" position="absolute 245 151 290 173" align="align:center middle;" id="caption63" anchor="default"/>
  47. <Static text="ml" position="absolute 245 301 274 323" align="align:center middle;" id="caption30" anchor="default"/>
  48. <Edit readonly="true" position="absolute 79 227 159 246" id="output46" anchor="default"/>
  49. <Static text="NPC/N" position="absolute 285 301 355 323" align="align:center middle;" id="caption42" class="cell_1" style="padding:0 0 0 4;" anchor="default"/>
  50. <Edit readonly="true" position="absolute 360 51 451 73" align="align:right middle;" id="output9" anchor="default" class="output"/>
  51. <Static text="mEq" position="absolute 455 126 500 148" align="align:center middle;" id="caption31" anchor="default"/>
  52. <Static text="=" position="absolute 270 201 285 223" align="align:center middle;" id="caption20" anchor="default"/>
  53. <Edit readonly="true" position="absolute 165 176 240 198" align="align:right middle;" id="input32" class="input_default" anchor="default"/>
  54. <Edit readonly="true" position="absolute 78 278 158 296" id="output47" anchor="default" class="output"/>
  55. <Static text="mEq" position="absolute 455 101 500 123" align="align:center middle;" id="caption32" anchor="default"/>
  56. <Static text="g" position="absolute 455 251 500 273" align="align:center middle;" id="caption98" anchor="default"/>
  57. <Static text="MultiVitamin" position="absolute 5 226 160 248" align="align:center middle;" id="caption87" class="cell_1" style="padding:0 0 0 4;" anchor="default"/>
  58. <Static text="ml" position="absolute 245 101 290 123" align="align:center middle;" id="caption54" anchor="default"/>
  59. <Static text="%" position="absolute 245 51 274 73" align="align:center middle;" id="caption43" anchor="default"/>
  60. <Combo position="absolute 79 252 159 271" id="combo1" class="combo_default" innerdataset="@ds_temp_tpnbaseinfo_lipidinfo" datacolumn="tpndrugcd" codecolumn="tpndrugcd" anchor="default"/>
  61. <Static text="g" position="absolute 455 76 500 98" align="align:center middle;" id="caption33" anchor="default"/>
  62. <Static text="Lipid" position="absolute 5 251 160 273" align="align:center middle;" id="caption99" class="cell_1" style="padding:0 0 0 4;" anchor="default"/>
  63. <Static text="Mg++" position="absolute 5 201 160 223" align="align:center middle;" id="caption77" class="cell_1" style="padding:0 0 0 4;" anchor="default"/>
  64. <Static text="Ca++" position="absolute 5 151 160 173" align="align:center middle;" id="caption66" class="cell_1" style="padding:0 0 0 4;" anchor="default"/>
  65. <Edit readonly="true" position="absolute 165 101 240 123" align="align:right middle;" id="input23" class="input_default" anchor="default"/>
  66. <Static text="Amino Acid" position="absolute 5 76 160 98" align="align:center middle;" id="caption44" class="cell_1" style="padding:0 0 0 4;" anchor="default"/>
  67. <Static text="kcal" position="absolute 775 301 820 323" align="align:center middle;" id="caption45" anchor="default"/>
  68. <Static text="ml" position="absolute 455 51 500 73" align="align:center middle;" id="caption34" anchor="default"/>
  69. <Edit readonly="true" position="absolute 165 201 240 223" align="align:right middle;" id="input35" class="input_default" anchor="default"/>
  70. <Edit readonly="true" position="absolute 165 276 240 298" align="align:right middle;" id="input47" class="input_default" anchor="default"/>
  71. <Static text="K+" position="absolute 5 126 160 148" align="align:center middle;" id="caption57" class="cell_1" style="padding:0 0 0 4;" anchor="default"/>
  72. <Static text="=" position="absolute 270 51 285 73" align="align:center middle;" id="caption14" anchor="default"/>
  73. <Static text="ml" position="absolute 245 176 290 198" align="align:center middle;" id="caption69" anchor="default"/>
  74. <Edit readonly="true" position="absolute 165 126 240 148" align="align:right middle;" id="input26" class="input_default" anchor="default"/>
  75. <Static text="ml" position="absolute 245 76 290 98" align="align:center middle;" id="caption47" anchor="default"/>
  76. <Static text="Order Volume" position="absolute 5 301 160 323" align="align:center middle;" id="caption25" class="cell_1" style="padding:0 0 0 4;" anchor="default"/>
  77. <Static text="mEq" position="absolute 455 201 500 223" align="align:center middle;" id="caption26" anchor="default"/>
  78. <Static text="=" position="absolute 270 76 285 98" align="align:center middle;" id="caption15" anchor="default"/>
  79. <Edit readonly="true" position="absolute 165 51 240 73" align="align:right middle;" id="input16" enable="false" anchor="default" class="output"/>
  80. <Static text="=" position="absolute 270 101 285 123" align="align:center middle;" id="caption16" anchor="default"/>
  81. <Static text="처방내용" position="absolute 5 6 125 22" id="caption27" class="tit_2" anchor="default"/>
  82. <Static text="50DW" position="absolute 285 51 355 73" align="align:center middle;" id="caption39" class="cell_1" style="padding:0 0 0 4;" anchor="default"/>
  83. <Static text="mM" position="absolute 455 176 500 198" align="align:center middle;" id="caption28" anchor="default"/>
  84. <Static text="=" position="absolute 270 126 285 148" align="align:center middle;" id="caption17" anchor="default"/>
  85. <Edit readonly="true" position="absolute 165 151 240 173" align="align:right middle;" id="input29" class="input_default" anchor="default"/>
  86. <Static text="mEq" position="absolute 455 151 500 173" align="align:center middle;" id="caption29" anchor="default"/>
  87. <Static text="=" position="absolute 270 151 285 173" align="align:center middle;" id="caption18" anchor="default"/>
  88. <Edit readonly="true" position="absolute 165 76 240 98" align="align:right middle;" id="input19" enable="false" anchor="default" class="output"/>
  89. <Edit readonly="true" position="absolute 360 201 451 223" align="align:right middle;" id="output2" anchor="default" class="output"/>
  90. <Static text="=" position="absolute 270 176 285 198" align="align:center middle;" id="caption19" anchor="default"/>
  91. <Edit readonly="true" position="absolute 165 301 240 323" align="align:right middle;" id="ipt_ordvol1" class="input_essential" anchor="default"/>
  92. <Static text="ml" position="absolute 245 201 267 223" align="align:center middle;" id="caption80" anchor="default"/>
  93. <Edit readonly="true" position="absolute 78 228 158 246" id="output74" anchor="default" class="output"/>
  94. <Edit readonly="true" position="absolute 78 103 158 121" id="output70" anchor="default" class="output"/>
  95. <Edit readonly="true" position="absolute 78 128 158 146" id="output71" anchor="default" class="output"/>
  96. <Edit readonly="true" position="absolute 78 153 158 171" id="output72" anchor="default" class="output"/>
  97. <Edit readonly="true" position="absolute 78 203 158 221" id="output73" anchor="default" class="output"/>
  98. <Static text="Dextrose" position="absolute 5 51 160 73" align="align:center middle;" id="caption40" class="cell_1" style="padding:0 0 0 4;" anchor="default"/>
  99. <Edit readonly="true" position="absolute 78 78 158 96" id="output40" anchor="default" class="output"/>
  100. <Shape id="line7" position="absolute 5 23 500 29" class="line_10" anchor="default"/>
  101. </Layout>
  102. </Layouts>
  103. </Div>
  104. <Static text="전달사항" position="absolute 0 453 144 470" id="caption1" class="tit_2"/>
  105. <Static text="특수조제실" position="absolute 0 475 139 521" align="align:center middle;" id="caption3" class="cell_1" style="padding:0 0 0 4;"/>
  106. <Static text="간호사" position="absolute 0 522 139 570" align="align:center middle;" id="caption4" class="cell_1" style="padding:0 0 0 4;"/>
  107. <TextArea position="absolute 140 475 495 521" id="textarea1" enable="true" readonly="true" class="output"/>
  108. <TextArea position="absolute 140 522 495 570" id="textarea2" readonly="true" class="output"/>
  109. <Static position="absolute 505 452 520 469" id="caption2" class="tit_2"/>
  110. <Shape position="absolute 505 470 932 476" linetype="horizontal" id="line3" class="line_1" style="strokepen:3 solid #33bbbbff;"/>
  111. <Static text="mg/ml" position="absolute 655 491 700 513" align="align:center middle;" id="caption5"/>
  112. <Static text="Zn" position="absolute 505 491 555 513" align="align:center middle;" id="caption6" class="cell_1" style="padding:0 0 0 4;"/>
  113. <Edit readonly="true" position="absolute 559 491 650 513" align="align:right middle;" id="input1" class="output"/>
  114. <Static text="mg/ml" position="absolute 656 516 701 538" align="align:center middle;" id="caption7"/>
  115. <Edit readonly="true" position="absolute 559 516 650 538" align="align:right middle;" id="input2" class="output"/>
  116. <Static text="Mn" position="absolute 505 516 555 538" align="align:center middle;" id="caption8" class="cell_1" style="padding:0 0 0 4;"/>
  117. <Edit readonly="true" position="absolute 780 491 871 513" align="align:right middle;" id="input3" class="output"/>
  118. <Static text="mg/ml" position="absolute 871 491 908 513" align="align:center middle;" id="caption9"/>
  119. <Static text="Cu" position="absolute 726 491 776 513" align="align:center middle;" id="caption10" class="cell_1" style="padding:0 0 0 4;"/>
  120. <Static text="Cr" position="absolute 726 516 776 538" align="align:center middle;" id="caption11" class="cell_1" style="padding:0 0 0 4;"/>
  121. <Edit readonly="true" position="absolute 780 516 871 538" align="align:right middle;" id="input4" class="output"/>
  122. <Static text="mg/ml" position="absolute 871 516 908 538" align="align:center middle;" id="caption12"/>
  123. <Static text="사용량 : kg당 0.2ml" position="absolute 630 548 880 568" align="align:center middle;" id="caption13"/>
  124. <Shape position="absolute 0 569 932 575" linetype="horizontal" id="line4" class="line_3"/>
  125. <Radio position="absolute 2 52 130 74" id="radio12" enable="false" columncount="-1" rowcount="-1" codecolumn="codecolumn" datacolumn="datacolumn">
  126. <Dataset id="innerdataset">
  127. <ColumnInfo>
  128. <Column id="codecolumn" size="256"/>
  129. <Column id="datacolumn" size="256"/>
  130. </ColumnInfo>
  131. <Rows>
  132. <Row>
  133. <Col id="codecolumn">Y</Col>
  134. <Col id="datacolumn">Y </Col>
  135. </Row>
  136. <Row>
  137. <Col id="codecolumn">N</Col>
  138. <Col id="datacolumn">N</Col>
  139. </Row>
  140. </Rows>
  141. </Dataset>
  142. </Radio>
  143. <Shape position="absolute 0 72 932 78" linetype="horizontal" id="line32" class="line_2"/>
  144. <Static text="ml/hr로 투여" position="absolute 610 0 687 22" align="align:center middle;" id="caption95"/>
  145. <Shape position="absolute 0 46 932 52" linetype="horizontal" id="line33" class="line_2"/>
  146. <Shape position="absolute 0 21 932 27" linetype="horizontal" id="line34" class="line_2"/>
  147. <Radio position="absolute 65 0 595 22" id="radio10" enable="false" columncount="5" rowcount="1" codecolumn="codecolumn" datacolumn="datacolumn">
  148. <Dataset id="innerdataset">
  149. <ColumnInfo>
  150. <Column id="codecolumn"/>
  151. <Column id="datacolumn"/>
  152. </ColumnInfo>
  153. <Rows>
  154. <Row>
  155. <Col id="codecolumn">1</Col>
  156. <Col id="datacolumn">32ml/hr로 투여</Col>
  157. </Row>
  158. <Row>
  159. <Col id="codecolumn">2</Col>
  160. <Col id="datacolumn">40ml/hr로 투여</Col>
  161. </Row>
  162. <Row>
  163. <Col id="codecolumn">3</Col>
  164. <Col id="datacolumn">60ml/hr로 투여</Col>
  165. </Row>
  166. <Row>
  167. <Col id="codecolumn">4</Col>
  168. <Col id="datacolumn">80ml/hr로 투여</Col>
  169. </Row>
  170. <Row>
  171. <Col id="codecolumn">5</Col>
  172. <Col id="datacolumn">기타</Col>
  173. </Row>
  174. </Rows>
  175. </Dataset>
  176. </Radio>
  177. <Static text="상세내역" position="absolute 610 454 780 467" id="caption107"/>
  178. <Edit readonly="true" position="absolute 525 450 605 469" id="output49" class="output"/>
  179. <Edit readonly="true" position="absolute 560 0 605 22" align="align:right middle;" id="input10" class="edt_transbg"/>
  180. <Static text="투여속도" position="absolute 0 0 62 22" align="align:center middle;" id="caption64" class="cell_1"/>
  181. <Static text="Weight" position="absolute 269 25 364 47" align="align:center middle;" id="caption65" class="cell_1" style="padding:0 0 0 4;"/>
  182. <Static text="TraceElement" position="absolute 0 25 170 47" align="align:left middle;" id="caption96" class="cell_1" style="padding:0 0 0 8;"/>
  183. <Static text="Height" position="absolute 172 25 267 47" align="align:center middle;" id="caption97" class="cell_1" style="padding:0 0 0 4;"/>
  184. <Edit readonly="true" position="absolute 105 27 168 45" id="output48" class="output"/>
  185. <Static text="kg" position="absolute 344 52 359 74" align="align:center middle;" id="caption100"/>
  186. <Edit readonly="true" position="absolute 273 52 338 74" align="align:right middle;" id="input5" class="edt_transbg"/>
  187. <Edit readonly="true" position="absolute 30 50 75 69" align="align:right middle;" id="input7" class="edt_transbg"/>
  188. <Static text="ml" position="absolute 80 51 100 73" align="align:center middle;" id="caption101"/>
  189. <Static text="cm" position="absolute 247 52 267 74" align="align:center middle;" id="caption106"/>
  190. <Edit readonly="true" position="absolute 177 52 242 74" align="align:right middle;" id="input6" class="edt_transbg"/>
  191. <Shape id="line2" class="line_10" position="absolute 0 470 495 476"/>
  192. </Layout>
  193. </Layouts>
  194. <Objects>
  195. <Dataset id="ds_main_tpninfo_ordinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_main_tpninfo_ordinfo_oncolumnchanged">
  196. <ColumnInfo>
  197. <Column id="drugspd" type="STRING" size="256"/>
  198. <Column id="drugspdetc" type="STRING" size="256"/>
  199. <Column id="traceeleyn" type="STRING" size="256"/>
  200. <Column id="traceelevol" type="STRING" size="256"/>
  201. <Column id="ht" type="STRING" size="256"/>
  202. <Column id="wt" type="STRING" size="256"/>
  203. <Column id="ordvol" type="STRING" size="256"/>
  204. <Column id="flowrate" type="STRING" size="256"/>
  205. <Column id="orddexvol" type="STRING" size="256"/>
  206. <Column id="ordaminovol" type="STRING" size="256"/>
  207. <Column id="ordnavol" type="STRING" size="256"/>
  208. <Column id="ordkvol" type="STRING" size="256"/>
  209. <Column id="ordcavol" type="STRING" size="256"/>
  210. <Column id="ordpvol" type="STRING" size="256"/>
  211. <Column id="ordmgvol" type="STRING" size="256"/>
  212. <Column id="ordmultivitavol" type="STRING" size="256"/>
  213. <Column id="ordlipidvol" type="STRING" size="256"/>
  214. <Column id="ordheparinvol" type="STRING" size="256"/>
  215. <Column id="orddistvol" type="STRING" size="256"/>
  216. <Column id="flowvol" type="STRING" size="256"/>
  217. <Column id="calcdexvol" type="STRING" size="256"/>
  218. <Column id="calcaminovol" type="STRING" size="256"/>
  219. <Column id="calcnavol" type="STRING" size="256"/>
  220. <Column id="calckvol" type="STRING" size="256"/>
  221. <Column id="calccavol" type="STRING" size="256"/>
  222. <Column id="calcpvol" type="STRING" size="256"/>
  223. <Column id="calcmgvol" type="STRING" size="256"/>
  224. <Column id="calclipidvol" type="STRING" size="256"/>
  225. <Column id="ordcalr1" type="STRING" size="256"/>
  226. <Column id="ordcalr2" type="STRING" size="256"/>
  227. <Column id="ordtotcalr" type="STRING" size="256"/>
  228. <Column id="npcncalr" type="STRING" size="256"/>
  229. <Column id="prcprate" type="STRING" size="256"/>
  230. <Column id="prcpvol" type="STRING" size="256"/>
  231. <Column id="prcpdexvol" type="STRING" size="256"/>
  232. <Column id="prcpaminovol" type="STRING" size="256"/>
  233. <Column id="prcpnavol" type="STRING" size="256"/>
  234. <Column id="prcpkvol" type="STRING" size="256"/>
  235. <Column id="prcpcavol" type="STRING" size="256"/>
  236. <Column id="prcppvol" type="STRING" size="256"/>
  237. <Column id="prcpmgvol" type="STRING" size="256"/>
  238. <Column id="prcpmultivitavol" type="STRING" size="256"/>
  239. <Column id="prcplipidvol" type="STRING" size="256"/>
  240. <Column id="prcpheparinvol" type="STRING" size="256"/>
  241. <Column id="prcpdistvol" type="STRING" size="256"/>
  242. <Column id="prcpflowvol" type="STRING" size="256"/>
  243. <Column id="prcpcalcdexvol" type="STRING" size="256"/>
  244. <Column id="prcpcalcaminovol" type="STRING" size="256"/>
  245. <Column id="prcpcalcnavol" type="STRING" size="256"/>
  246. <Column id="prcpcalckvol" type="STRING" size="256"/>
  247. <Column id="prcpcalccavol" type="STRING" size="256"/>
  248. <Column id="prcpcalcpvol" type="STRING" size="256"/>
  249. <Column id="prcpcalcmgvol" type="STRING" size="256"/>
  250. <Column id="prcpcalclipidvol" type="STRING" size="256"/>
  251. <Column id="prcpcalr1" type="STRING" size="256"/>
  252. <Column id="prcpcalr2" type="STRING" size="256"/>
  253. <Column id="prcptotcalr" type="STRING" size="256"/>
  254. <Column id="spclprcprem" type="STRING" size="256"/>
  255. <Column id="nursrem" type="STRING" size="256"/>
  256. <Column id="znvol" type="STRING" size="256"/>
  257. <Column id="cuvol" type="STRING" size="256"/>
  258. <Column id="mnvol" type="STRING" size="256"/>
  259. <Column id="crvol" type="STRING" size="256"/>
  260. <Column id="lipiddrugcd" type="STRING" size="256"/>
  261. <Column id="aminodrugcd" type="STRING" size="256"/>
  262. </ColumnInfo>
  263. <Rows>
  264. <Row>
  265. <Col id="drugspd"/>
  266. <Col id="drugspdetc"/>
  267. <Col id="traceeleyn"/>
  268. <Col id="traceelevol"/>
  269. <Col id="ht"/>
  270. <Col id="wt"/>
  271. <Col id="ordvol"/>
  272. <Col id="flowrate">24</Col>
  273. <Col id="orddexvol"/>
  274. <Col id="ordaminovol"/>
  275. <Col id="ordnavol"/>
  276. <Col id="ordkvol"/>
  277. <Col id="ordcavol"/>
  278. <Col id="ordpvol"/>
  279. <Col id="ordmgvol"/>
  280. <Col id="ordmultivitavol"/>
  281. <Col id="ordlipidvol"/>
  282. <Col id="ordheparinvol"/>
  283. <Col id="orddistvol"/>
  284. <Col id="flowvol"/>
  285. <Col id="calcdexvol"/>
  286. <Col id="calcaminovol"/>
  287. <Col id="calcnavol"/>
  288. <Col id="calckvol"/>
  289. <Col id="calccavol"/>
  290. <Col id="calcpvol"/>
  291. <Col id="calcmgvol"/>
  292. <Col id="calclipidvol"/>
  293. <Col id="ordcalr1"/>
  294. <Col id="ordcalr2"/>
  295. <Col id="ordtotcalr"/>
  296. <Col id="npcncalr"/>
  297. <Col id="prcprate">1.2</Col>
  298. <Col id="prcpvol"/>
  299. <Col id="prcpdexvol"/>
  300. <Col id="prcpaminovol"/>
  301. <Col id="prcpnavol"/>
  302. <Col id="prcpkvol"/>
  303. <Col id="prcpcavol"/>
  304. <Col id="prcppvol"/>
  305. <Col id="prcpmgvol"/>
  306. <Col id="prcpmultivitavol"/>
  307. <Col id="prcplipidvol"/>
  308. <Col id="prcpheparinvol"/>
  309. <Col id="prcpdistvol"/>
  310. <Col id="prcpflowvol"/>
  311. <Col id="prcpcalcdexvol"/>
  312. <Col id="prcpcalcaminovol"/>
  313. <Col id="prcpcalcnavol"/>
  314. <Col id="prcpcalckvol"/>
  315. <Col id="prcpcalccavol"/>
  316. <Col id="prcpcalcpvol"/>
  317. <Col id="prcpcalcmgvol"/>
  318. <Col id="prcpcalclipidvol"/>
  319. <Col id="prcpcalr1"/>
  320. <Col id="prcpcalr2"/>
  321. <Col id="prcptotcalr"/>
  322. <Col id="spclprcprem"/>
  323. <Col id="nursrem"/>
  324. <Col id="znvol"/>
  325. <Col id="cuvol"/>
  326. <Col id="mnvol"/>
  327. <Col id="crvol"/>
  328. <Col id="lipiddrugcd"/>
  329. <Col id="aminodrugcd"/>
  330. </Row>
  331. </Rows>
  332. </Dataset>
  333. <Dataset id="ds_send_data" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  334. <Dataset id="ds_send_tpnbasedata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  335. <ColumnInfo>
  336. <Column id="todd" type="STRING" size="256"/>
  337. <Column id="tpnkind" type="STRING" size="256"/>
  338. </ColumnInfo>
  339. <Rows>
  340. <Row>
  341. <Col id="todd">99991231</Col>
  342. <Col id="tpnkind">A</Col>
  343. </Row>
  344. </Rows>
  345. </Dataset>
  346. <Dataset id="ds_init" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  347. <Dataset id="ds_hidden" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  348. <Dataset id="ds_temp_patdata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  349. <ColumnInfo>
  350. <Column id="pid" type="STRING" size="256"/>
  351. <Column id="orddd" type="STRING" size="256"/>
  352. <Column id="prcpdd" type="STRING" size="256"/>
  353. <Column id="orddeptcd" type="STRING" size="256"/>
  354. <Column id="orddrid" type="STRING" size="256"/>
  355. <Column id="ioflag" type="STRING" size="256"/>
  356. <Column id="tpnseqno" type="STRING" size="256"/>
  357. </ColumnInfo>
  358. <Rows>
  359. <Row>
  360. <Col id="pid"/>
  361. <Col id="orddd"/>
  362. <Col id="prcpdd"/>
  363. <Col id="orddeptcd"/>
  364. <Col id="orddrid"/>
  365. <Col id="ioflag"/>
  366. </Row>
  367. </Rows>
  368. </Dataset>
  369. <Dataset id="ds_temp_ret" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  370. <Dataset id="ds_temp_tpnbaseinfo_ordinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  371. <ColumnInfo>
  372. <Column id="todd" type="STRING" size="256"/>
  373. <Column id="fromdd" type="STRING" size="256"/>
  374. <Column id="traceeledrugcd" type="STRING" size="256"/>
  375. <Column id="traceeledrugnm" type="STRING" size="256"/>
  376. <Column id="dexdrugcd" type="STRING" size="256"/>
  377. <Column id="nadrugcd" type="STRING" size="256"/>
  378. <Column id="kdrugcd" type="STRING" size="256"/>
  379. <Column id="cadrugcd" type="STRING" size="256"/>
  380. <Column id="pdrugcd" type="STRING" size="256"/>
  381. <Column id="mgdrugcd" type="STRING" size="256"/>
  382. <Column id="multivitadrugcd" type="STRING" size="256"/>
  383. <Column id="heparindrugcd" type="STRING" size="256"/>
  384. <Column id="orddexvol" type="STRING" size="256"/>
  385. <Column id="ordnavol" type="STRING" size="256"/>
  386. <Column id="ordkvol" type="STRING" size="256"/>
  387. <Column id="ordcavol" type="STRING" size="256"/>
  388. <Column id="ordpvol" type="STRING" size="256"/>
  389. <Column id="ordmgvol" type="STRING" size="256"/>
  390. <Column id="calcdexvol" type="STRING" size="256"/>
  391. <Column id="calcnavol" type="STRING" size="256"/>
  392. <Column id="calckvol" type="STRING" size="256"/>
  393. <Column id="calccavol" type="STRING" size="256"/>
  394. <Column id="calcpvol" type="STRING" size="256"/>
  395. <Column id="calcmgvol" type="STRING" size="256"/>
  396. <Column id="znvol" type="STRING" size="256"/>
  397. <Column id="cuvol" type="STRING" size="256"/>
  398. <Column id="mnvol" type="STRING" size="256"/>
  399. <Column id="crvol" type="STRING" size="256"/>
  400. </ColumnInfo>
  401. <Rows>
  402. <Row>
  403. <Col id="todd">99991231</Col>
  404. <Col id="fromdd"/>
  405. <Col id="traceeledrugcd"/>
  406. <Col id="traceeledrugnm"/>
  407. <Col id="dexdrugcd"/>
  408. <Col id="nadrugcd"/>
  409. <Col id="kdrugcd"/>
  410. <Col id="cadrugcd"/>
  411. <Col id="pdrugcd"/>
  412. <Col id="mgdrugcd"/>
  413. <Col id="multivitadrugcd"/>
  414. <Col id="heparindrugcd"/>
  415. <Col id="orddexvol"/>
  416. <Col id="ordnavol"/>
  417. <Col id="ordkvol"/>
  418. <Col id="ordcavol"/>
  419. <Col id="ordpvol"/>
  420. <Col id="ordmgvol"/>
  421. <Col id="calcdexvol"/>
  422. <Col id="calcnavol"/>
  423. <Col id="calckvol"/>
  424. <Col id="calccavol"/>
  425. <Col id="calcpvol"/>
  426. <Col id="calcmgvol"/>
  427. <Col id="znvol"/>
  428. <Col id="cuvol"/>
  429. <Col id="mnvol"/>
  430. <Col id="crvol"/>
  431. </Row>
  432. </Rows>
  433. </Dataset>
  434. <Dataset id="ds_temp_tpnbaseinfo_tpndruginfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  435. <ColumnInfo>
  436. <Column id="startvol" type="STRING" size="256"/>
  437. <Column id="endvol" type="STRING" size="256"/>
  438. <Column id="tpnprcpcd" type="STRING" size="256"/>
  439. </ColumnInfo>
  440. <Rows>
  441. <Row>
  442. <Col id="startvol"/>
  443. <Col id="endvol"/>
  444. <Col id="tpnprcpcd"/>
  445. </Row>
  446. </Rows>
  447. </Dataset>
  448. <Dataset id="ds_temp_tpnbaseinfo_aminoinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  449. <ColumnInfo>
  450. <Column id="tpndrugcd" type="STRING" size="256"/>
  451. <Column id="ordvol" type="STRING" size="256"/>
  452. <Column id="calcvol" type="STRING" size="256"/>
  453. </ColumnInfo>
  454. <Rows>
  455. <Row>
  456. <Col id="tpndrugcd"/>
  457. <Col id="ordvol"/>
  458. <Col id="calcvol"/>
  459. </Row>
  460. </Rows>
  461. </Dataset>
  462. <Dataset id="ds_temp_tpnbaseinfo_lipidinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  463. <ColumnInfo>
  464. <Column id="tpndrugcd" type="STRING" size="256"/>
  465. <Column id="ordvol" type="STRING" size="256"/>
  466. <Column id="calcvol" type="STRING" size="256"/>
  467. </ColumnInfo>
  468. <Rows>
  469. <Row>
  470. <Col id="tpndrugcd"/>
  471. <Col id="ordvol"/>
  472. <Col id="calcvol"/>
  473. </Row>
  474. </Rows>
  475. </Dataset>
  476. <Dataset id="ds_send_data_patdata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  477. <Dataset id="ds_send_data_tpndata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  478. <Dataset id="ds_temp_tpnbaseinfo_dexinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  479. </Objects>
  480. <Bind>
  481. <BindItem id="item0" compid="output48" propid="value" datasetid="ds_temp_tpnbaseinfo_ordinfo" columnid="traceeledrugcd"/>
  482. <BindItem id="item1" compid="grp_tpnprcp.output40" propid="value" datasetid="ds_temp_tpnbaseinfo_ordinfo" columnid="dexdrugcd"/>
  483. <BindItem id="item2" compid="grp_tpnprcp.output70" propid="value" datasetid="ds_temp_tpnbaseinfo_ordinfo" columnid="nadrugcd"/>
  484. <BindItem id="item3" compid="grp_tpnprcp.output71" propid="value" datasetid="ds_temp_tpnbaseinfo_ordinfo" columnid="kdrugcd"/>
  485. <BindItem id="item4" compid="grp_tpnprcp.output72" propid="value" datasetid="ds_temp_tpnbaseinfo_ordinfo" columnid="cadrugcd"/>
  486. <BindItem id="item5" compid="grp_tpnprcp.output44" propid="value" datasetid="ds_temp_tpnbaseinfo_ordinfo" columnid="pdrugcd"/>
  487. <BindItem id="item6" compid="grp_tpnprcp.output73" propid="value" datasetid="ds_temp_tpnbaseinfo_ordinfo" columnid="mgdrugcd"/>
  488. <BindItem id="item7" compid="grp_tpnprcp.output74" propid="value" datasetid="ds_temp_tpnbaseinfo_ordinfo" columnid="multivitadrugcd"/>
  489. <BindItem id="item8" compid="grp_tpnprcp.output47" propid="value" datasetid="ds_main_tpninfo_ordinfo"/>
  490. <BindItem id="item9" compid="output49" propid="value" datasetid="ds_temp_tpnbaseinfo_ordinfo" columnid="traceeledrugcd"/>
  491. <BindItem id="item10" compid="input4" propid="value" datasetid="ds_main_tpninfo_ordinfo" columnid="crvol"/>
  492. <BindItem id="item11" compid="input3" propid="value" datasetid="ds_main_tpninfo_ordinfo" columnid="cuvol"/>
  493. <BindItem id="item12" compid="input1" propid="value" datasetid="ds_main_tpninfo_ordinfo" columnid="znvol"/>
  494. <BindItem id="item13" compid="input2" propid="value" datasetid="ds_main_tpninfo_ordinfo" columnid="mnvol"/>
  495. <BindItem id="item14" compid="textarea1" propid="value" datasetid="ds_main_tpninfo_ordinfo" columnid="spclprcprem"/>
  496. <BindItem id="item15" compid="textarea2" propid="value" datasetid="ds_main_tpninfo_ordinfo" columnid="nursrem"/>
  497. <BindItem id="item16" compid="grp_tpnprcp.output20" propid="value" datasetid="ds_main_tpninfo_ordinfo" columnid="ordtotcalr"/>
  498. <BindItem id="item17" compid="grp_tpnprcp.output12" propid="value" datasetid="ds_main_tpninfo_ordinfo" columnid="npcncalr"/>
  499. <BindItem id="item18" compid="grp_tpnprcp.cmb_tpnflag" propid="value" datasetid="ds_main_tpninfo_ordinfo" columnid="aminodrugcd"/>
  500. <BindItem id="item19" compid="grp_tpnprcp.input16" propid="value" datasetid="ds_main_tpninfo_ordinfo" columnid="orddexvol"/>
  501. <BindItem id="item20" compid="grp_tpnprcp.input19" propid="value" datasetid="ds_main_tpninfo_ordinfo" columnid="ordaminovol"/>
  502. <BindItem id="item21" compid="grp_tpnprcp.input23" propid="value" datasetid="ds_main_tpninfo_ordinfo" columnid="ordnavol"/>
  503. <BindItem id="item22" compid="grp_tpnprcp.input26" propid="value" datasetid="ds_main_tpninfo_ordinfo" columnid="ordkvol"/>
  504. <BindItem id="item23" compid="grp_tpnprcp.input29" propid="value" datasetid="ds_main_tpninfo_ordinfo" columnid="ordcavol"/>
  505. <BindItem id="item24" compid="grp_tpnprcp.input32" propid="value" datasetid="ds_main_tpninfo_ordinfo" columnid="ordpvol"/>
  506. <BindItem id="item25" compid="grp_tpnprcp.input35" propid="value" datasetid="ds_main_tpninfo_ordinfo" columnid="ordmgvol"/>
  507. <BindItem id="item26" compid="grp_tpnprcp.input40" propid="value" datasetid="ds_main_tpninfo_ordinfo" columnid="ordmultivitavol"/>
  508. <BindItem id="item27" compid="grp_tpnprcp.input42" propid="value" datasetid="ds_main_tpninfo_ordinfo" columnid="ordlipidvol"/>
  509. <BindItem id="item28" compid="grp_tpnprcp.input47" propid="value" datasetid="ds_main_tpninfo_ordinfo" columnid="ordheparinvol"/>
  510. <BindItem id="item29" compid="grp_tpnprcp.ipt_ordvol1" propid="value" datasetid="ds_main_tpninfo_ordinfo" columnid="ordvol"/>
  511. <BindItem id="item30" compid="grp_tpnprcp.output9" propid="value" datasetid="ds_main_tpninfo_ordinfo" columnid="calcdexvol"/>
  512. <BindItem id="item31" compid="grp_tpnprcp.output8" propid="value" datasetid="ds_main_tpninfo_ordinfo" columnid="calcaminovol"/>
  513. <BindItem id="item32" compid="grp_tpnprcp.output7" propid="value" datasetid="ds_main_tpninfo_ordinfo" columnid="calcnavol"/>
  514. <BindItem id="item33" compid="grp_tpnprcp.output6" propid="value" datasetid="ds_main_tpninfo_ordinfo" columnid="calckvol"/>
  515. <BindItem id="item34" compid="grp_tpnprcp.output5" propid="value" datasetid="ds_main_tpninfo_ordinfo" columnid="calccavol"/>
  516. <BindItem id="item35" compid="grp_tpnprcp.output4" propid="value" datasetid="ds_main_tpninfo_ordinfo" columnid="calcpvol"/>
  517. <BindItem id="item36" compid="grp_tpnprcp.output2" propid="value" datasetid="ds_main_tpninfo_ordinfo" columnid="calcmgvol"/>
  518. <BindItem id="item37" compid="grp_tpnprcp.output32" propid="value" datasetid="ds_main_tpninfo_ordinfo" columnid="calclipidvol"/>
  519. <BindItem id="item38" compid="input7" propid="value" datasetid="ds_main_tpninfo_ordinfo" columnid="traceelevol"/>
  520. <BindItem id="item39" compid="input6" propid="value" datasetid="ds_main_tpninfo_ordinfo" columnid="ht"/>
  521. <BindItem id="item40" compid="input5" propid="value" datasetid="ds_main_tpninfo_ordinfo" columnid="wt"/>
  522. <BindItem id="item41" compid="input10" propid="value" datasetid="ds_main_tpninfo_ordinfo" columnid="drugspdetc"/>
  523. <BindItem id="item42" compid="radio10" propid="value" datasetid="ds_main_tpninfo_ordinfo" columnid="drugspd"/>
  524. <BindItem id="item43" compid="radio12" propid="value" datasetid="ds_main_tpninfo_ordinfo" columnid="traceeleyn"/>
  525. <BindItem id="item44" compid="grp_tpnprcp.combo1" propid="value" datasetid="ds_main_tpninfo_ordinfo" columnid="lipiddrugcd"/>
  526. </Bind>
  527. <Script type="xscript4.0"><![CDATA[/***************************************************************************************
  528. * System Name :
  529. * Job Name :
  530. * Creator :
  531. * Make Date : 2015-07-28
  532. * Description :
  533. *---------------------------------------------------------------------------------------
  534. * Modify Date Modifier Modify Description
  535. *---------------------------------------------------------------------------------------
  536. * 2015-07-28 Live Converter TF->XP
  537. *
  538. *---------------------------------------------------------------------------------------
  539. ****************************************************************************************/
  540. //=======================================================================================
  541. // Lib Include
  542. //---------------------------------------------------------------------------------------
  543. include "com_commonxp::comm_main.xjs"
  544. //=======================================================================================
  545. // Global Form Variable
  546. //---------------------------------------------------------------------------------------
  547. var arErrorCode = new HashArray();
  548. //=======================================================================================
  549. // Function
  550. //---------------------------------------------------------------------------------------
  551. /****************************************************************************************
  552. * Argument : N/A
  553. * Description : fView
  554. ****************************************************************************************/
  555. function fView(){
  556. var oParam = {};
  557. oParam.id = "TRADB02901";
  558. oParam.service = "pharmacybaseapp.TpnMngt";
  559. oParam.method = "reqGetTPNBase";
  560. oParam.inds = "req=ds_send_tpnbasedata";
  561. oParam.outds = "ds_temp_tpnbaseinfo_ordinfo=ordinfo ds_temp_tpnbaseinfo_dexinfo=dexinfo ds_temp_tpnbaseinfo_aminoinfo=aminoinfo ds_temp_tpnbaseinfo_lipidinfo=lipidinfo ds_temp_tpnbaseinfo_tpndruginfo=tpndruginfo";
  562. oParam.async = false;
  563. oParam.callback = "cf_TRADB02901";
  564. tranf_submit(oParam);
  565. ds_send_data_patdata.copyData(ds_temp_patdata);
  566. ds_send_data_tpndata.copyData(ds_main_tpninfo_ordinfo);
  567. call_TRADB70101();
  568. fPrcpCalc();
  569. }
  570. function cf_TRADB02901(sSvcId, nErrorCode, sErrorMsg) {
  571. if(nErrorCode < 0) return;
  572. ds_temp_tpnbaseinfo_ordinfo.addColumn("dexdrugcd","string");
  573. ds_temp_tpnbaseinfo_ordinfo.addColumn("orddexvol","string");
  574. ds_temp_tpnbaseinfo_ordinfo.addColumn("calcdexvol","string");
  575. ds_temp_tpnbaseinfo_ordinfo.setColumn(0,"dexdrugcd",ds_temp_tpnbaseinfo_dexinfo.getColumn(0,"tpndrugcd"));
  576. ds_temp_tpnbaseinfo_ordinfo.setColumn(0,"orddexvol",ds_temp_tpnbaseinfo_dexinfo.getColumn(0,"ordvol"));
  577. ds_temp_tpnbaseinfo_ordinfo.setColumn(0,"calcdexvol",ds_temp_tpnbaseinfo_dexinfo.getColumn(0,"calcvol"));
  578. dsf_setDefaultVal(ds_temp_tpnbaseinfo_ordinfo, "todd:99991231");
  579. }
  580. function call_TRADB70101() {
  581. dsf_createDsRow("ds_req", [
  582. {col:"pid", type:"STRING", size:256, val:ds_send_data_patdata.getColumn(0,"pid")}
  583. , {col:"orddd", type:"STRING", size:256, val:ds_send_data_patdata.getColumn(0,"orddd")}
  584. , {col:"prcpdd", type:"STRING", size:256, val:ds_send_data_patdata.getColumn(0,"prcpdd")}
  585. , {col:"orddeptcd", type:"STRING", size:256, val:ds_send_data_patdata.getColumn(0,"orddeptcd")}
  586. , {col:"orddrid", type:"STRING", size:256, val:ds_send_data_patdata.getColumn(0,"orddrid")}
  587. , {col:"tpnseqno", type:"INT", size:256, val:utlf_transNullToEmpty(ds_send_data_patdata.getColumn(0,"tpnseqno"))}
  588. ]);
  589. var oParam = {};
  590. oParam.id = "TRADB70101";
  591. oParam.service = "pharmacybaseapp.TpnMngt";
  592. oParam.method = "reqGetTPNAdult";
  593. oParam.inds = "req=ds_req";
  594. oParam.outds = "ds_main_tpninfo_ordinfo=ordinfo";
  595. oParam.async = false;
  596. oParam.callback = "cf_TRADB70101";
  597. tranf_submit(oParam);
  598. }
  599. function cf_TRADB70101(sSvcId, nErrorCode, sErrorMsg) {
  600. if(nErrorCode < 0) return;
  601. if(ds_main_tpninfo_ordinfo.rowcount == 0) ds_main_tpninfo_ordinfo.addRow();
  602. dsf_setFixVal(ds_main_tpninfo_ordinfo, "prcpvol:0,prcpdexvol:0,prcpaminovol:0,prcpnavol:0,prcpkvol:0,prcpcavol:0,prcppvol:0,prcpmgvol:0,prcpmultivitavol:0,prcplipidvol:0"
  603. +",prcpheparinvol:0,prcpdistvol:0,prcpflowvol:0,prcpcalcdexvol:0,prcpcalcaminovol:0,prcpcalcnavol:0,prcpcalckvol:0,prcpcalccavol:0"
  604. +",prcpcalcpvol:0,prcpcalcmgvol:0,prcpcalclipidvol:0,prcpcalr1:0,prcpcalr2:0,prcptotcalr:0");
  605. dsf_setDefaultVal(ds_main_tpninfo_ordinfo, "all");
  606. }
  607. /****************************************************************************************
  608. * Argument : N/A
  609. * Description : fSave
  610. ****************************************************************************************/
  611. function fSave(){
  612. ds_send_data_patdata.copyData(ds_temp_patdata);
  613. ds_send_data_tpndata.copyData(ds_main_tpninfo_ordinfo);
  614. // dsf_mergeColumn(ds_send_data,ds_send_data_patdata);
  615. // dsf_mergeColumn(ds_send_data,ds_send_data_tpndata);
  616. dsf_createDsRow("ds_req", [
  617. {col:"pid", type:"STRING", size:256, val:ds_send_data_patdata.getColumn(0,"pid")}
  618. , {col:"orddd", type:"STRING", size:256, val:ds_send_data_patdata.getColumn(0,"orddd")}
  619. , {col:"prcpdd", type:"STRING", size:256, val:ds_send_data_patdata.getColumn(0,"prcpdd")}
  620. , {col:"orddeptcd", type:"STRING", size:256, val:ds_send_data_patdata.getColumn(0,"orddeptcd")}
  621. , {col:"orddrid", type:"STRING", size:256, val:ds_send_data_patdata.getColumn(0,"orddrid")}
  622. , {col:"tpnseqno", type:"INT", size:256, val:ds_send_data_tpndata.getColumn(0,"tpnseqno")}
  623. , {col:"drugspd", type:"STRING", size:256, val:ds_send_data_tpndata.getColumn(0,"drugspd")}
  624. , {col:"drugspdetc", type:"STRING", size:256, val:ds_send_data_tpndata.getColumn(0,"drugspdetc")}
  625. , {col:"traceeleyn", type:"STRING", size:256, val:ds_send_data_tpndata.getColumn(0,"traceeleyn")}
  626. , {col:"traceelevol", type:"BIGDECIMAL", size:256, val:ds_send_data_tpndata.getColumn(0,"traceelevol")}
  627. , {col:"wt", type:"BIGDECIMAL", size:256, val:ds_send_data_tpndata.getColumn(0,"wt")}
  628. , {col:"flowrate", type:"BIGDECIMAL", size:256, val:ds_send_data_tpndata.getColumn(0,"flowrate")}
  629. , {col:"aminodrugcd", type:"STRING", size:256, val:ds_send_data_tpndata.getColumn(0,"aminodrugcd")}
  630. , {col:"lipiddrugcd", type:"STRING", size:256, val:ds_send_data_tpndata.getColumn(0,"lipiddrugcd")}
  631. , {col:"ordvol", type:"BIGDECIMAL", size:256, val:ds_send_data_tpndata.getColumn(0,"ordvol")}
  632. , {col:"orddexvol", type:"BIGDECIMAL", size:256, val:ds_send_data_tpndata.getColumn(0,"orddexvol")}
  633. , {col:"ordaminovol", type:"BIGDECIMAL", size:256, val:ds_send_data_tpndata.getColumn(0,"ordaminovol")}
  634. , {col:"ordnavol", type:"BIGDECIMAL", size:256, val:ds_send_data_tpndata.getColumn(0,"ordnavol")}
  635. , {col:"ordkvol", type:"BIGDECIMAL", size:256, val:ds_send_data_tpndata.getColumn(0,"ordkvol")}
  636. , {col:"ordcavol", type:"BIGDECIMAL", size:256, val:ds_send_data_tpndata.getColumn(0,"ordcavol")}
  637. , {col:"ordpvol", type:"BIGDECIMAL", size:256, val:ds_send_data_tpndata.getColumn(0,"ordpvol")}
  638. , {col:"ordmgvol", type:"BIGDECIMAL", size:256, val:ds_send_data_tpndata.getColumn(0,"ordmgvol")}
  639. , {col:"ordmultivitavol", type:"BIGDECIMAL", size:256, val:ds_send_data_tpndata.getColumn(0,"ordmultivitavol")}
  640. , {col:"ordlipidvol", type:"BIGDECIMAL", size:256, val:ds_send_data_tpndata.getColumn(0,"ordlipidvol")}
  641. , {col:"ordheparinvol", type:"BIGDECIMAL", size:256, val:ds_send_data_tpndata.getColumn(0,"ordheparinvol")}
  642. , {col:"orddistvol", type:"BIGDECIMAL", size:256, val:ds_send_data_tpndata.getColumn(0,"orddistvol")}
  643. , {col:"flowvol", type:"BIGDECIMAL", size:256, val:ds_send_data_tpndata.getColumn(0,"flowvol")}
  644. , {col:"calcdexvol", type:"BIGDECIMAL", size:256, val:ds_send_data_tpndata.getColumn(0,"calcdexvol")}
  645. , {col:"calcaminovol", type:"BIGDECIMAL", size:256, val:ds_send_data_tpndata.getColumn(0,"calcaminovol")}
  646. , {col:"calcnavol", type:"BIGDECIMAL", size:256, val:ds_send_data_tpndata.getColumn(0,"calcnavol")}
  647. , {col:"calckvol", type:"BIGDECIMAL", size:256, val:ds_send_data_tpndata.getColumn(0,"calckvol")}
  648. , {col:"calccavol", type:"BIGDECIMAL", size:256, val:ds_send_data_tpndata.getColumn(0,"calccavol")}
  649. , {col:"calcpvol", type:"BIGDECIMAL", size:256, val:ds_send_data_tpndata.getColumn(0,"calcpvol")}
  650. , {col:"calcmgvol", type:"BIGDECIMAL", size:256, val:ds_send_data_tpndata.getColumn(0,"calcmgvol")}
  651. , {col:"calclipidvol", type:"BIGDECIMAL", size:256, val:ds_send_data_tpndata.getColumn(0,"calclipidvol")}
  652. , {col:"ordcalr1", type:"BIGDECIMAL", size:256, val:ds_send_data_tpndata.getColumn(0,"ordcalr1")}
  653. , {col:"ordcalr2", type:"BIGDECIMAL", size:256, val:ds_send_data_tpndata.getColumn(0,"ordcalr2")}
  654. , {col:"ordtotcalr", type:"BIGDECIMAL", size:256, val:ds_send_data_tpndata.getColumn(0,"ordtotcalr")}
  655. , {col:"npcncalr", type:"BIGDECIMAL", size:256, val:ds_send_data_tpndata.getColumn(0,"npcncalr")}
  656. , {col:"prcprate", type:"BIGDECIMAL", size:256, val:ds_send_data_tpndata.getColumn(0,"prcprate")}
  657. , {col:"spclprcprem", type:"STRING", size:256, val:ds_send_data_tpndata.getColumn(0,"spclprcprem")}
  658. , {col:"nursrem", type:"STRING", size:256, val:ds_send_data_tpndata.getColumn(0,"nursrem")}
  659. , {col:"znvol", type:"BIGDECIMAL", size:256, val:ds_send_data_tpndata.getColumn(0,"znvol")}
  660. , {col:"cuvol", type:"BIGDECIMAL", size:256, val:ds_send_data_tpndata.getColumn(0,"cuvol")}
  661. , {col:"mnvol", type:"BIGDECIMAL", size:256, val:ds_send_data_tpndata.getColumn(0,"mnvol")}
  662. , {col:"crvol", type:"BIGDECIMAL", size:256, val:ds_send_data_tpndata.getColumn(0,"crvol")}
  663. , {col:"ht", type:"BIGDECIMAL", size:256, val:ds_send_data_tpndata.getColumn(0,"ht")}
  664. ]);
  665. dsf_setDefaultVal(ds_send_data, "tpnseqno:0,traceelevol:0,ht:0,wt:0,flowrate:0,ordvol:0,orddexvol:0,ordaminovol:0,ordnavol:0"
  666. +",ordkvol:0,ordcavol:0,ordpvol:0,ordmgvol:0,ordmultivitavol:0,ordlipidvol:0,ordheparinvol:0"
  667. +",orddistvol:0,flowvol:0,calcdexvol:0,calcaminovol:0,calcnavol:0,calckvol:0,calccavol:0"
  668. +",calcpvol:0,calcmgvol:0,calclipidvol:0,ordcalr1:0,ordcalr2:0,ordtotcalr:0,npcncalr:0"
  669. +",prcprate:1,znvol:0,cuvol:0,mnvol:0,crvol:0");
  670. var oParam = {};
  671. oParam.id = "TXADB70101";
  672. oParam.service = "pharmacybaseapp.TpnMngt";
  673. oParam.method = "reqExeTPNAdult";
  674. oParam.inds = "req=ds_req";
  675. oParam.outds = "ds_temp_ret=item";
  676. oParam.async = false;
  677. //oParam.callback = "cf_TXADB70101";
  678. tranf_submit(oParam);
  679. call_TRADB70101();
  680. fPrcpCalc();
  681. }
  682. /****************************************************************************************
  683. * Argument : N/A
  684. * Description : fCalc2
  685. ****************************************************************************************/
  686. function fCalc2(){
  687. var ordvol = ds_main_tpninfo_ordinfo.getColumn(0,"ordvol");
  688. var flowrate = ds_main_tpninfo_ordinfo.getColumn(0,"flowrate");
  689. var prcprate = ds_main_tpninfo_ordinfo.getColumn(0,"prcprate");
  690. var dexvol = ds_main_tpninfo_ordinfo.getColumn(0,"orddexvol");
  691. var aminovol = ds_main_tpninfo_ordinfo.getColumn(0,"ordaminovol");
  692. var navol = ds_main_tpninfo_ordinfo.getColumn(0,"calcnavol");
  693. var kvol = ds_main_tpninfo_ordinfo.getColumn(0,"calckvol");
  694. var cavol = ds_main_tpninfo_ordinfo.getColumn(0,"calccavol");
  695. var pvol = ds_main_tpninfo_ordinfo.getColumn(0,"calcpvol");
  696. var mgvol = ds_main_tpninfo_ordinfo.getColumn(0,"calcmgvol");
  697. var multivitavol = ds_main_tpninfo_ordinfo.getColumn(0,"ordmultivitavol");
  698. var lipidvol = ds_main_tpninfo_ordinfo.getColumn(0,"ordlipidvol");
  699. var heparinvol = ds_main_tpninfo_ordinfo.getColumn(0,"ordheparinvol");
  700. var kg = parseFloat(ds_main_tpninfo_ordinfo.getColumn(0,"wt"));
  701. var traceelevol = ds_main_tpninfo_ordinfo.getColumn(0,"traceelevol");
  702. if ( utlf_isNull(ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"orddexvol")) || parseFloat(ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"orddexvol"))==0){
  703. var dexrate = 0;
  704. } else {
  705. var dexrate = parseFloat(ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"calcdexvol")) / parseFloat(ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"orddexvol"));
  706. }
  707. if ( utlf_isNull(ds_temp_tpnbaseinfo_aminoinfo.lookup("tpndrugcd",ds_main_tpninfo_ordinfo.getColumn(0,"aminodrugcd"),"ordvol"))
  708. || parseFloat(ds_temp_tpnbaseinfo_aminoinfo.lookup("tpndrugcd",ds_main_tpninfo_ordinfo.getColumn(0,"aminodrugcd"),"ordvol"))==0){
  709. var aminorate = 0;
  710. } else {
  711. var aminorate = parseFloat(ds_temp_tpnbaseinfo_aminoinfo.lookup("tpndrugcd",ds_main_tpninfo_ordinfo.getColumn(0,"aminodrugcd"),"calcvol")) / parseFloat(ds_temp_tpnbaseinfo_aminoinfo.lookup("tpndrugcd",ds_main_tpninfo_ordinfo.getColumn(0,"aminodrugcd"),"ordvol"));
  712. }
  713. if ( utlf_isNull(ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"ordnavol")) || parseFloat(ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"ordnavol"))==0){
  714. var narate =0;
  715. } else {
  716. var narate = parseFloat(ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"calcnavol")) / parseFloat(ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"ordnavol"));
  717. }
  718. if ( utlf_isNull(ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"ordkvol")) || parseFloat(ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"ordkvol"))==0){
  719. var krate = 0;
  720. } else {
  721. var krate = parseFloat(ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"calckvol")) / parseFloat(ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"ordkvol"));
  722. }
  723. if ( utlf_isNull(ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"ordcavol")) || parseFloat(ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"ordcavol"))==0){
  724. var carate = 0;
  725. } else {
  726. var carate = parseFloat(ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"calccavol")) / parseFloat(ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"ordcavol"));
  727. }
  728. if ( utlf_isNull(ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"ordpvol")) || parseFloat(ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"ordpvol"))==0){
  729. var prate = 0;
  730. } else {
  731. var prate = parseFloat(ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"calcpvol")) / parseFloat(ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"ordpvol"));
  732. }
  733. if ( utlf_isNull(ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"ordmgvol")) || parseFloat(ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"ordmgvol"))==0){
  734. var mgrate = 0;
  735. } else {
  736. var mgrate = parseFloat(ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"calcmgvol")) / parseFloat(ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"ordmgvol"));
  737. }
  738. if ( utlf_isNull(ds_temp_tpnbaseinfo_lipidinfo.lookup("tpndrugcd",ds_main_tpninfo_ordinfo.getColumn(0,"lipiddrugcd"),"ordvol"))
  739. || parseFloat(ds_temp_tpnbaseinfo_lipidinfo.lookup("tpndrugcd",ds_main_tpninfo_ordinfo.getColumn(0,"lipiddrugcd"),"ordvol"))==0){
  740. var lipidrate=0;
  741. } else {
  742. var lipidrate = parseFloat(ds_temp_tpnbaseinfo_lipidinfo.lookup("tpndrugcd",ds_main_tpninfo_ordinfo.getColumn(0,"lipiddrugcd"),"calcvol")) / parseFloat(ds_temp_tpnbaseinfo_lipidinfo.lookup("tpndrugcd",ds_main_tpninfo_ordinfo.getColumn(0,"lipiddrugcd"),"ordvol"));
  743. }
  744. var znrate = ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"znvol");
  745. var mnrate = ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"mnvol");
  746. var curate = ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"cuvol");
  747. var crrate = ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"crvol");
  748. if (utlf_isNull(dexvol)){
  749. ds_main_tpninfo_ordinfo.setColumn(0,"orddexvol","0");
  750. dexvol=0;
  751. }
  752. if (utlf_isNull(aminovol)){
  753. ds_main_tpninfo_ordinfo.setColumn(0,"ordaminovol","0");
  754. aminovol=0;
  755. }
  756. if (utlf_isNull(navol)){
  757. ds_main_tpninfo_ordinfo.setColumn(0,"ordnavol","0");
  758. navol=0;
  759. }
  760. if (utlf_isNull(kvol)){
  761. ds_main_tpninfo_ordinfo.setColumn(0,"ordkvol","0");
  762. kvol=0;
  763. }
  764. if (utlf_isNull(cavol)){
  765. ds_main_tpninfo_ordinfo.setColumn(0,"ordcavol","0");
  766. cavol=0;
  767. }
  768. if (utlf_isNull(pvol)){
  769. ds_main_tpninfo_ordinfo.setColumn(0,"ordpvol","0");
  770. pvol=0;
  771. }
  772. if (utlf_isNull(mgvol)){
  773. ds_main_tpninfo_ordinfo.setColumn(0,"ordmgvol","0");
  774. mgvol=0;
  775. }
  776. if (utlf_isNull(multivitavol)){
  777. ds_main_tpninfo_ordinfo.setColumn(0,"ordmultivitavol","0");
  778. multivitavol=0;
  779. }
  780. if (utlf_isNull(lipidvol)){
  781. ds_main_tpninfo_ordinfo.setColumn(0,"ordlipidvol","0");
  782. lipidvol=0;
  783. }
  784. if (utlf_isNull(heparinvol)){
  785. ds_main_tpninfo_ordinfo.setColumn(0,"ordheparinvol","0");
  786. heparinvol=0;
  787. }
  788. var distvol = 0;
  789. var flowvol = 0;
  790. dexvol = ds_main_tpninfo_ordinfo.getColumn(0,"orddexvol");
  791. ds_main_tpninfo_ordinfo.setColumn(0,"ordnavol" , Math.round(navol / narate* 1000)/1000);
  792. ds_main_tpninfo_ordinfo.setColumn(0,"ordkvol" , Math.round(kvol / krate * 1000)/1000);
  793. ds_main_tpninfo_ordinfo.setColumn(0,"ordcavol" , Math.round(cavol / carate* 1000)/1000);
  794. ds_main_tpninfo_ordinfo.setColumn(0,"ordpvol" , Math.round(pvol / prate * 1000)/1000);
  795. ds_main_tpninfo_ordinfo.setColumn(0,"ordmgvol" , Math.round(mgvol / mgrate* 1000)/1000);
  796. ds_main_tpninfo_ordinfo.setColumn(0,"znvol" , traceelevol * znrate );
  797. ds_main_tpninfo_ordinfo.setColumn(0,"mnvol" , traceelevol * mnrate );
  798. ds_main_tpninfo_ordinfo.setColumn(0,"cuvol" , traceelevol * curate );
  799. ds_main_tpninfo_ordinfo.setColumn(0,"crvol" , traceelevol * crrate );
  800. }
  801. /****************************************************************************************
  802. * Argument : N/A
  803. * Description : fCalc
  804. ****************************************************************************************/
  805. function fCalc(){
  806. var ordvol = ds_main_tpninfo_ordinfo.getColumn(0,"ordvol");
  807. var flowrate = ds_main_tpninfo_ordinfo.getColumn(0,"flowrate");
  808. var prcprate = ds_main_tpninfo_ordinfo.getColumn(0,"prcprate");
  809. var dexvol = ds_main_tpninfo_ordinfo.getColumn(0,"orddexvol");
  810. var aminovol = ds_main_tpninfo_ordinfo.getColumn(0,"ordaminovol");
  811. var navol = ds_main_tpninfo_ordinfo.getColumn(0,"ordnavol");
  812. var kvol = ds_main_tpninfo_ordinfo.getColumn(0,"ordkvol");
  813. var cavol = ds_main_tpninfo_ordinfo.getColumn(0,"ordcavol");
  814. var pvol = ds_main_tpninfo_ordinfo.getColumn(0,"ordpvol");
  815. var mgvol = ds_main_tpninfo_ordinfo.getColumn(0,"ordmgvol");
  816. var multivitavol = ds_main_tpninfo_ordinfo.getColumn(0,"ordmultivitavol");
  817. var lipidvol = ds_main_tpninfo_ordinfo.getColumn(0,"ordlipidvol");
  818. var heparinvol = ds_main_tpninfo_ordinfo.getColumn(0,"ordheparinvol");
  819. var kg = parseFloat(ds_main_tpninfo_ordinfo.getColumn(0,"wt"));
  820. var traceelevol = ds_main_tpninfo_ordinfo.getColumn(0,"traceelevol");
  821. if ( utlf_isNull(ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"orddexvol")) || parseFloat(ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"orddexvol"))==0){
  822. var dexrate = 0;
  823. } else {
  824. var dexrate = parseFloat(ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"calcdexvol")) / parseFloat(ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"orddexvol"));
  825. }
  826. if ( utlf_isNull(ds_temp_tpnbaseinfo_aminoinfo.lookup("tpndrugcd",ds_main_tpninfo_ordinfo.getColumn(0,"aminodrugcd"),"ordvol"))
  827. || parseFloat(ds_temp_tpnbaseinfo_aminoinfo.lookup("tpndrugcd",ds_main_tpninfo_ordinfo.getColumn(0,"aminodrugcd"),"ordvol"))==0){
  828. var aminorate = 0;
  829. } else {
  830. var aminorate = parseFloat(ds_temp_tpnbaseinfo_aminoinfo.lookup("tpndrugcd",ds_main_tpninfo_ordinfo.getColumn(0,"aminodrugcd"),"calcvol")) / parseFloat(ds_temp_tpnbaseinfo_aminoinfo.lookup("tpndrugcd",ds_main_tpninfo_ordinfo.getColumn(0,"aminodrugcd"),"ordvol"));
  831. }
  832. if ( utlf_isNull(ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"ordnavol")) || parseFloat(ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"ordnavol"))==0){
  833. var narate =0;
  834. } else {
  835. var narate = parseFloat(ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"calcnavol")) / parseFloat(ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"ordnavol"));
  836. }
  837. if ( utlf_isNull(ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"ordkvol")) || parseFloat(ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"ordkvol"))==0){
  838. var krate = 0;
  839. } else {
  840. var krate = parseFloat(ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"calckvol")) / parseFloat(ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"ordkvol"));
  841. }
  842. if ( utlf_isNull(ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"ordcavol")) || parseFloat(ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"ordcavol"))==0){
  843. var carate = 0;
  844. } else {
  845. var carate = parseFloat(ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"calccavol")) / parseFloat(ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"ordcavol"));
  846. }
  847. if ( utlf_isNull(ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"ordpvol")) || parseFloat(ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"ordpvol"))==0){
  848. var prate = 0;
  849. } else {
  850. var prate = parseFloat(ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"calcpvol")) / parseFloat(ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"ordpvol"));
  851. }
  852. if ( utlf_isNull(ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"ordmgvol")) || parseFloat(ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"ordmgvol"))==0){
  853. var mgrate = 0;
  854. } else {
  855. var mgrate = parseFloat(ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"calcmgvol")) / parseFloat(ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"ordmgvol"));
  856. }
  857. if ( utlf_isNull(ds_temp_tpnbaseinfo_lipidinfo.lookup("tpndrugcd",ds_main_tpninfo_ordinfo.getColumn(0,"lipiddrugcd"),"ordvol"))
  858. || parseFloat(ds_temp_tpnbaseinfo_lipidinfo.lookup("tpndrugcd",ds_main_tpninfo_ordinfo.getColumn(0,"lipiddrugcd"),"ordvol"))==0){
  859. var lipidrate=0;
  860. } else {
  861. var lipidrate = parseFloat(ds_temp_tpnbaseinfo_lipidinfo.lookup("tpndrugcd",ds_main_tpninfo_ordinfo.getColumn(0,"lipiddrugcd"),"calcvol")) / parseFloat(ds_temp_tpnbaseinfo_lipidinfo.lookup("tpndrugcd",ds_main_tpninfo_ordinfo.getColumn(0,"lipiddrugcd"),"ordvol"));
  862. }
  863. var znrate = ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"znvol");
  864. var mnrate = ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"mnvol");
  865. var curate = ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"cuvol");
  866. var crrate = ds_temp_tpnbaseinfo_ordinfo.getColumn(0,"crvol");
  867. if (utlf_isNull(dexvol)){
  868. ds_main_tpninfo_ordinfo.setColumn(0,"orddexvol","0");
  869. dexvol = 0;
  870. }
  871. if (utlf_isNull(aminovol)){
  872. ds_main_tpninfo_ordinfo.setColumn(0,"ordaminovol","0");
  873. aminovol=0;
  874. }
  875. if (utlf_isNull(navol)){
  876. ds_main_tpninfo_ordinfo.setColumn(0,"ordnavol","0");
  877. navol=0;
  878. }
  879. if (utlf_isNull(kvol)){
  880. ds_main_tpninfo_ordinfo.setColumn(0,"ordkvol","0");
  881. kvol=0;
  882. }
  883. if (utlf_isNull(cavol)){
  884. ds_main_tpninfo_ordinfo.setColumn(0,"ordcavol","0");
  885. cavol=0;
  886. }
  887. if (utlf_isNull(pvol)){
  888. ds_main_tpninfo_ordinfo.setColumn(0,"ordpvol","0");
  889. pvol=0;
  890. }
  891. if (utlf_isNull(mgvol)){
  892. ds_main_tpninfo_ordinfo.setColumn(0,"ordmgvol","0");
  893. mgvol=0;
  894. }
  895. if (utlf_isNull(multivitavol)){
  896. ds_main_tpninfo_ordinfo.setColumn(0,"ordmultivitavol","0");
  897. multivitavol=0;
  898. }
  899. if (utlf_isNull(lipidvol)){
  900. ds_main_tpninfo_ordinfo.setColumn(0,"ordlipidvol","0");
  901. lipidvol=0;
  902. }
  903. if (utlf_isNull(heparinvol)){
  904. ds_main_tpninfo_ordinfo.setColumn(0,"ordheparinvol","0");
  905. heparinvol=0;
  906. }
  907. var distvol = 0;
  908. var flowvol = 0;
  909. flowvol = Math.round( (flowrate*kg*1440/1000) * 1000)/1000; //GIR g
  910. ds_main_tpninfo_ordinfo.setColumn(0,"flowvol" , flowvol);
  911. ds_main_tpninfo_ordinfo.setColumn(0,"calcdexvol" , flowvol / 10 * 20 ); //50DW ml ////// 오류가 있는지????
  912. ds_main_tpninfo_ordinfo.setColumn(0,"orddexvol" , Math.round(flowvol /ordvol * 100 * 100)/100) //50DW %
  913. dexvol = ds_main_tpninfo_ordinfo.getColumn(0,"orddexvol");
  914. ds_main_tpninfo_ordinfo.setColumn(0,"calcaminovol" , Math.round(aminovol * aminorate* 1000)/1000);
  915. ds_main_tpninfo_ordinfo.setColumn(0,"calcnavol" , Math.round(navol * narate* 1000)/1000);
  916. ds_main_tpninfo_ordinfo.setColumn(0,"calckvol" , Math.round(kvol * krate * 1000)/1000);
  917. ds_main_tpninfo_ordinfo.setColumn(0,"calccavol" , Math.round(cavol * carate* 1000)/1000);
  918. ds_main_tpninfo_ordinfo.setColumn(0,"calcpvol" , Math.round(pvol * prate * 1000)/1000);
  919. ds_main_tpninfo_ordinfo.setColumn(0,"calcmgvol" , Math.round(mgvol * mgrate* 1000)/1000);
  920. ds_main_tpninfo_ordinfo.setColumn(0,"calclipidvol" , Math.round(lipidvol * lipidrate* 1000)/1000);
  921. ds_main_tpninfo_ordinfo.setColumn(0,"znvol" , traceelevol * znrate);
  922. ds_main_tpninfo_ordinfo.setColumn(0,"mnvol" , traceelevol * mnrate);
  923. ds_main_tpninfo_ordinfo.setColumn(0,"cuvol" , traceelevol * curate);
  924. ds_main_tpninfo_ordinfo.setColumn(0,"crvol" , traceelevol * crrate);
  925. var calcdexvol = ds_main_tpninfo_ordinfo.getColumn(0,"calcdexvol");
  926. var calcaminovol = ds_main_tpninfo_ordinfo.getColumn(0,"calcaminovol");
  927. distvol = ordvol - (parseFloat(calcdexvol)+ parseFloat(aminovol)+parseFloat(navol)+parseFloat(kvol)+parseFloat(cavol)+parseFloat(pvol)+parseFloat(mgvol)+parseFloat(multivitavol));
  928. ds_main_tpninfo_ordinfo.setColumn(0,"orddistvol", distvol);
  929. var calr1 = Math.round(((ordvol/100) * dexvol * 3.85)+(calcaminovol * 4)* 1000)/1000 ;
  930. var calr2 = Math.round( lipidvol * 1.9 * 1000) / 1000 ;
  931. ds_main_tpninfo_ordinfo.setColumn(0,"ordcalr1" , calr1);
  932. ds_main_tpninfo_ordinfo.setColumn(0,"ordcalr2" , calr2);
  933. ds_main_tpninfo_ordinfo.setColumn(0,"ordtotcalr", calr1+ calr2);
  934. ds_main_tpninfo_ordinfo.setColumn(0,"npcncalr" , Math.round((calr1+calr2)/calcaminovol/6.25*1000)/1000);
  935. }
  936. /****************************************************************************************
  937. * Argument : N/A
  938. * Description : fPrcpCalc
  939. ****************************************************************************************/
  940. function fPrcpCalc(){
  941. var ordvol = ds_main_tpninfo_ordinfo.getColumn(0,"ordvol");
  942. var flowrate = ds_main_tpninfo_ordinfo.getColumn(0,"flowrate");
  943. var prcprate = ds_main_tpninfo_ordinfo.getColumn(0,"prcprate");
  944. var dexvol = ds_main_tpninfo_ordinfo.getColumn(0,"orddexvol");
  945. var aminovol = ds_main_tpninfo_ordinfo.getColumn(0,"ordaminovol");
  946. var navol = ds_main_tpninfo_ordinfo.getColumn(0,"ordnavol");
  947. var kvol = ds_main_tpninfo_ordinfo.getColumn(0,"ordkvol");
  948. var cavol = ds_main_tpninfo_ordinfo.getColumn(0,"ordcavol");
  949. var pvol = ds_main_tpninfo_ordinfo.getColumn(0,"ordpvol");
  950. var mgvol = ds_main_tpninfo_ordinfo.getColumn(0,"ordmgvol");
  951. var multivitavol = ds_main_tpninfo_ordinfo.getColumn(0,"ordmultivitavol");
  952. var lipidvol = ds_main_tpninfo_ordinfo.getColumn(0,"ordlipidvol");
  953. var heparinvol = ds_main_tpninfo_ordinfo.getColumn(0,"ordheparinvol");
  954. var distvol = ds_main_tpninfo_ordinfo.getColumn(0,"orddistvol");
  955. var flowvol = ds_main_tpninfo_ordinfo.getColumn(0,"flowvol");
  956. var calr1 = ds_main_tpninfo_ordinfo.getColumn(0,"ordcalr1");
  957. var calr2 = ds_main_tpninfo_ordinfo.getColumn(0,"ordcalr2");
  958. var totcalr = ds_main_tpninfo_ordinfo.getColumn(0,"ordtotcalr");
  959. var calcdexvol = ds_main_tpninfo_ordinfo.getColumn(0,"calcdexvol");
  960. var calcaminovol = ds_main_tpninfo_ordinfo.getColumn(0,"calcaminovol");
  961. var calcnavol = ds_main_tpninfo_ordinfo.getColumn(0,"calcnavol");
  962. var calckvol = ds_main_tpninfo_ordinfo.getColumn(0,"calckvol");
  963. var calccavol = ds_main_tpninfo_ordinfo.getColumn(0,"calccavol");
  964. var calcpvol = ds_main_tpninfo_ordinfo.getColumn(0,"calcpvol");
  965. var calcmgvol = ds_main_tpninfo_ordinfo.getColumn(0,"calcmgvol");
  966. var calclipidvol = ds_main_tpninfo_ordinfo.getColumn(0,"calclipidvol");
  967. ds_main_tpninfo_ordinfo.setColumn(0,"prcpvol" , ordvol * prcprate);
  968. ds_main_tpninfo_ordinfo.setColumn(0,"prcpdexvol" , dexvol * prcprate);
  969. ds_main_tpninfo_ordinfo.setColumn(0,"prcpaminovol" , aminovol * prcprate);
  970. ds_main_tpninfo_ordinfo.setColumn(0,"prcpnavol" , navol * prcprate);
  971. ds_main_tpninfo_ordinfo.setColumn(0,"prcpkvol" , kvol * prcprate);
  972. ds_main_tpninfo_ordinfo.setColumn(0,"prcpcavol" , cavol * prcprate);
  973. ds_main_tpninfo_ordinfo.setColumn(0,"prcppvol" , pvol * prcprate);
  974. ds_main_tpninfo_ordinfo.setColumn(0,"prcpmgvol" , mgvol * prcprate);
  975. ds_main_tpninfo_ordinfo.setColumn(0,"prcpmultivitavol" , multivitavol * prcprate);
  976. ds_main_tpninfo_ordinfo.setColumn(0,"prcplipidvol" , lipidvol * prcprate);
  977. ds_main_tpninfo_ordinfo.setColumn(0,"prcpheparinvol" , heparinvol * prcprate);
  978. ds_main_tpninfo_ordinfo.setColumn(0,"prcpdistvol" , distvol * prcprate);
  979. ds_main_tpninfo_ordinfo.setColumn(0,"prcpflowvol" , flowvol);
  980. ds_main_tpninfo_ordinfo.setColumn(0,"prcpcalcdexvol" , calcdexvol * prcprate);
  981. ds_main_tpninfo_ordinfo.setColumn(0,"prcpcalcaminovol" , calcaminovol * prcprate);
  982. ds_main_tpninfo_ordinfo.setColumn(0,"prcpcalcnavol" , calcnavol * prcprate);
  983. ds_main_tpninfo_ordinfo.setColumn(0,"prcpcalckvol" , calckvol * prcprate);
  984. ds_main_tpninfo_ordinfo.setColumn(0,"prcpcalccavol" , calccavol * prcprate);
  985. ds_main_tpninfo_ordinfo.setColumn(0,"prcpcalcpvol" , calcpvol * prcprate);
  986. ds_main_tpninfo_ordinfo.setColumn(0,"prcpcalcmgvol" , calcmgvol * prcprate);
  987. ds_main_tpninfo_ordinfo.setColumn(0,"prcpcalclipidvol" , calclipidvol * prcprate);
  988. ds_main_tpninfo_ordinfo.setColumn(0,"prcpcalr1" , calr1 * prcprate);
  989. ds_main_tpninfo_ordinfo.setColumn(0,"prcpcalr2" , calr2 * prcprate);
  990. ds_main_tpninfo_ordinfo.setColumn(0,"prcptotcalr" , totcalr * prcprate);
  991. }
  992. /****************************************************************************************
  993. * Argument : N/A
  994. * Description : fGetPrcpCd
  995. ****************************************************************************************/
  996. function fGetPrcpCd(){
  997. var prcpcd;
  998. var startvol;
  999. var endvol;
  1000. var prcpaminovol = parseFloat(ds_main_tpninfo_ordinfo.getColumn(0,"prcpaminovol"));
  1001. for (var i = 0; i < ds_temp_tpnbaseinfo_tpndruginfo.rowcount; i++){
  1002. startvol = parseFloat(ds_temp_tpnbaseinfo_tpndruginfo.getColumn(i+1,"startvol"));
  1003. endvol = parseFloat(ds_temp_tpnbaseinfo_tpndruginfo.getColumn(i+1,"endvol"));
  1004. if ( startvol == 0 || prcpaminovol >= startvol ){
  1005. if ( endvol == 0 || prcpaminovol <= endvol ){
  1006. prcpcd = ds_temp_tpnbaseinfo_tpndruginfo.getColumn(i+1,"tpndrugcd");
  1007. return prcpcd;
  1008. }
  1009. }
  1010. }
  1011. return prcpcd;
  1012. }
  1013. /****************************************************************************************
  1014. * Argument : N/A
  1015. * Description : fEnable
  1016. ****************************************************************************************/
  1017. function fEnable(){
  1018. grp_tpnprcp.enable = true;
  1019. }
  1020. /****************************************************************************************
  1021. * Argument : N/A
  1022. * Description : fDisable
  1023. ****************************************************************************************/
  1024. function fDisable(){
  1025. grp_tpnprcp.enable = false;
  1026. }
  1027. /****************************************************************************************
  1028. * Argument : N/A
  1029. * Description : fGetDrugSpd
  1030. ****************************************************************************************/
  1031. function fGetDrugSpd(){
  1032. var drugspd;
  1033. drugspd = ds_main_tpninfo_ordinfo.getColumn(0,"drugspd");
  1034. if ( drugspd =="00" ){
  1035. drugspd = ds_main_tpninfo_ordinfo.getColumn(0,"drugspdetc");
  1036. }
  1037. return drugspd;
  1038. }
  1039. //=======================================================================================
  1040. // Event
  1041. //---------------------------------------------------------------------------------------
  1042. /****************************************************************************************
  1043. * Components : Form
  1044. * Components ID : SSADB70300
  1045. * Event : oninit
  1046. * Argument : 01.obj : Object Event has occurred
  1047. * : 02.e : Event Object
  1048. * Description : 화면 처음 초기화시 폼초기화
  1049. ****************************************************************************************/
  1050. function SSADB70300_oninit(obj:Form, e:InitEventInfo)
  1051. {
  1052. frmf_initForm(obj); // 폼 초기화
  1053. }
  1054. /****************************************************************************************
  1055. * Components : Dataset
  1056. * Components ID : ds_main_tpninfo_ordinfo
  1057. * Event : oncolumnchanged
  1058. * Argument : 01.obj : Object Event has occurred
  1059. * : 02.e : Event Object
  1060. * Description : Order Volume 값 변경시
  1061. ****************************************************************************************/
  1062. function ds_main_tpninfo_ordinfo_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
  1063. {
  1064. if(e.columnid == "ordvol") {
  1065. if (ds_main_tpninfo_ordinfo.getColumn(0,"ordvol") < 1){
  1066. sysf_messageBox("Order Volume은 1~1000 사이로 ", "C001");
  1067. grp_tpnprcp.ipt_ordvol1.setFocus();
  1068. return;
  1069. }
  1070. if (ds_main_tpninfo_ordinfo.getColumn(0,"ordvol") > 1000){
  1071. sysf_messageBox("Order Volume은 1~1000 사이로 ", "C001");
  1072. grp_tpnprcp.ipt_ordvol1.setFocus();
  1073. return;
  1074. }
  1075. if (ds_main_tpninfo_ordinfo.getColumn(0,"ordvol") < 500){
  1076. ds_main_tpninfo_ordinfo.setColumn(0,"prcprate","1.2");
  1077. }
  1078. if (ds_main_tpninfo_ordinfo.getColumn(0,"ordvol") >= 500){
  1079. ds_main_tpninfo_ordinfo.setColumn(0,"prcprate","1.1");
  1080. }
  1081. }
  1082. }
  1083. ]]></Script>
  1084. </Form>
  1085. </FDL>