SPAEA01102_처방상세내역(간호기능).xfdl 46 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968
  1. <?xml version="1.0" encoding="utf-8"?>
  2. <FDL version="1.5">
  3. <TypeDefinition url="..\..\..\default_typedef.xml"/>
  4. <Form id="SPAEA01102" position="absolute 0 0 689 438" titletext="처방상세내역" oninit="SPAEA01102_oninit" onload="SPAEA01102_onload">
  5. <Layouts>
  6. <Layout>
  7. <Static id="caption1" text="처방상세내역" class="tit_2" position="absolute 0 7 120 24"/>
  8. <Shape id="line1" class="line_10" position="absolute 0 23 687 29"/>
  9. <Grid id="grd_subprcplist" taborder="1" binddataset="ds_main_subordlist_subordlist4" scrollbars="autovert" useinputpanel="false" position="absolute 0 28 688 405" onrbuttonup="grd_subprcplist_onrbuttonup" oncellclick="grd_subprcplist_oncellclick" selecttype="multirow" onlbuttonup="grd_subprcplist_onlbuttonup">
  10. <Formats>
  11. <Format id="default">
  12. <Columns>
  13. <Column size="19"/>
  14. <Column size="61"/>
  15. <Column size="0"/>
  16. <Column size="73"/>
  17. <Column size="220"/>
  18. <Column size="72"/>
  19. <Column size="72"/>
  20. <Column size="73"/>
  21. <Column size="73"/>
  22. <Column size="0"/>
  23. <Column size="0"/>
  24. <Column size="0"/>
  25. <Column size="0"/>
  26. <Column size="0"/>
  27. <Column size="0"/>
  28. <Column size="0"/>
  29. <Column size="0"/>
  30. <Column size="0"/>
  31. <Column size="0"/>
  32. <Column size="0"/>
  33. <Column size="0"/>
  34. <Column size="0"/>
  35. <Column size="0"/>
  36. <Column size="0"/>
  37. <Column size="0"/>
  38. <Column size="0"/>
  39. <Column size="0"/>
  40. <Column size="0"/>
  41. <Column size="0"/>
  42. <Column size="0"/>
  43. <Column size="0"/>
  44. <Column size="0"/>
  45. <Column size="0"/>
  46. <Column size="0"/>
  47. <Column size="0"/>
  48. <Column size="0"/>
  49. <Column size="0"/>
  50. <Column size="0"/>
  51. <Column size="0"/>
  52. </Columns>
  53. <Rows>
  54. <Row size="24" band="head"/>
  55. <Row size="24"/>
  56. </Rows>
  57. <Band id="head">
  58. <Cell/>
  59. <Cell col="1" text="상태"/>
  60. <Cell col="2" text="M"/>
  61. <Cell col="3" text="처방코드"/>
  62. <Cell col="4" text="처방명"/>
  63. <Cell col="5" text="처방일자"/>
  64. <Cell col="6" text="접수일시"/>
  65. <Cell col="7" text="실시일자"/>
  66. <Cell col="8" text="결과일시"/>
  67. <Cell col="9" text="payflagcd"/>
  68. <Cell col="10" text="pid"/>
  69. <Cell col="11" text="prcpno"/>
  70. <Cell col="12" text="execprcpuniqno"/>
  71. <Cell col="13" text="gubn"/>
  72. <Cell col="14" text="rcptdd"/>
  73. <Cell col="15" text="prcpclscd"/>
  74. <Cell col="16" text="carecnfmdd"/>
  75. <Cell col="17" text="prcpgenrflag"/>
  76. <Cell col="18" text="orddeptcd"/>
  77. <Cell col="19" text="orddrid"/>
  78. <Cell col="20" text="ioflag"/>
  79. <Cell col="21" text="cretno"/>
  80. <Cell col="22" text="prcphistno"/>
  81. <Cell col="23" text="opansflagcd"/>
  82. <Cell col="24" text="suppdeptcd"/>
  83. <Cell col="25" text="orddd"/>
  84. <Cell col="26" text="inclprcpcd"/>
  85. <Cell col="27" text="inclprcpno"/>
  86. <Cell col="28" text="rootgubn"/>
  87. <Cell col="29" text="execprcphistcd"/>
  88. <Cell col="30" text="execprcpstatcd"/>
  89. <Cell col="31" text="prcpflag"/>
  90. <Cell col="32" text="prcpvol"/>
  91. <Cell col="33" text="prcpvolunitflag"/>
  92. <Cell col="34" text="prcpqty"/>
  93. <Cell col="35" text="prcpqtyunitflag"/>
  94. <Cell col="36" text="prcptims"/>
  95. <Cell col="37" text="drugmthdspccd"/>
  96. <Cell col="38" text="eccdyn"/>
  97. </Band>
  98. <Band id="body">
  99. <Cell displaytype="checkbox" edittype="checkbox" style="background:EXPR(execprcphistcd == 'E' || execprcphistcd == 'D' || execprcphistcd == 'L' ? '#f3e1bf' : '');background2:EXPR(execprcphistcd == 'E' || execprcphistcd == 'D' || execprcphistcd == 'L' ? '#f3e1bf' : '');" text="bind:check"/>
  100. <Cell col="1" style="background:EXPR(execprcphistcd == 'E' || execprcphistcd == 'D' || execprcphistcd == 'L' ? '#f3e1bf' : '');background2:EXPR(execprcphistcd == 'E' || execprcphistcd == 'D' || execprcphistcd == 'L' ? '#f3e1bf' : '');" text="bind:statcd"/>
  101. <Cell col="2" style="background:EXPR(execprcphistcd == 'E' || execprcphistcd == 'D' || execprcphistcd == 'L' ? '#f3e1bf' : '');background2:EXPR(execprcphistcd == 'E' || execprcphistcd == 'D' || execprcphistcd == 'L' ? '#f3e1bf' : '');" text="bind:mset"/>
  102. <Cell col="3" style="background:EXPR(execprcphistcd == 'E' || execprcphistcd == 'D' || execprcphistcd == 'L' ? '#f3e1bf' : '');background2:EXPR(execprcphistcd == 'E' || execprcphistcd == 'D' || execprcphistcd == 'L' ? '#f3e1bf' : '');" text="bind:calcscorcd"/>
  103. <Cell col="4" style="background:EXPR(execprcphistcd == 'E' || execprcphistcd == 'D' || execprcphistcd == 'L' ? '#f3e1bf' : '');background2:EXPR(execprcphistcd == 'E' || execprcphistcd == 'D' || execprcphistcd == 'L' ? '#f3e1bf' : '');" text="bind:prcpnm"/>
  104. <Cell col="5" displaytype="date" style="background:EXPR(execprcphistcd == 'E' || execprcphistcd == 'D' || execprcphistcd == 'L' ? '#f3e1bf' : '');background2:EXPR(execprcphistcd == 'E' || execprcphistcd == 'D' || execprcphistcd == 'L' ? '#f3e1bf' : '');" text="bind:prcpdd" calendardisplaynulltype="none"/>
  105. <Cell col="6" displaytype="date" style="background:EXPR(execprcphistcd == 'E' || execprcphistcd == 'D' || execprcphistcd == 'L' ? '#f3e1bf' : '');background2:EXPR(execprcphistcd == 'E' || execprcphistcd == 'D' || execprcphistcd == 'L' ? '#f3e1bf' : '');" text="bind:acptdt" calendardisplay="edit" calendardisplaynulltype="none"/>
  106. <Cell col="7" displaytype="date" style="background:EXPR(execprcphistcd == 'E' || execprcphistcd == 'D' || execprcphistcd == 'L' ? '#f3e1bf' : '');background2:EXPR(execprcphistcd == 'E' || execprcphistcd == 'D' || execprcphistcd == 'L' ? '#f3e1bf' : '');" text="bind:execdd" calendardisplay="edit" calendardisplaynulltype="none"/>
  107. <Cell col="8" displaytype="date" style="background:EXPR(execprcphistcd == 'E' || execprcphistcd == 'D' || execprcphistcd == 'L' ? '#f3e1bf' : '');background2:EXPR(execprcphistcd == 'E' || execprcphistcd == 'D' || execprcphistcd == 'L' ? '#f3e1bf' : '');" text="bind:cnfmdt" calendardisplaynulltype="none"/>
  108. <Cell col="9" text="bind:payflagcd"/>
  109. <Cell col="10" text="bind:pid"/>
  110. <Cell col="11" text="bind:prcpno"/>
  111. <Cell col="12" text="bind:execprcpuniqno"/>
  112. <Cell col="13" text="bind:gubn"/>
  113. <Cell col="14" text="bind:rcptdd"/>
  114. <Cell col="15" text="bind:prcpclscd"/>
  115. <Cell col="16" text="bind:carecnfmdd"/>
  116. <Cell col="17" text="bind:prcpgenrflag"/>
  117. <Cell col="18" text="bind:orddeptcd"/>
  118. <Cell col="19" text="bind:orddrid"/>
  119. <Cell col="20" text="bind:ioflag"/>
  120. <Cell col="21" text="bind:cretno"/>
  121. <Cell col="22" text="bind:prcphistno"/>
  122. <Cell col="23" text="bind:opansflagcd"/>
  123. <Cell col="24" text="bind:suppdeptcd"/>
  124. <Cell col="25" text="bind:orddd"/>
  125. <Cell col="26" text="bind:inclprcpcd"/>
  126. <Cell col="27" text="bind:inclprcpno"/>
  127. <Cell col="28" text="bind:rootgubn"/>
  128. <Cell col="29" text="bind:execprcphistcd"/>
  129. <Cell col="30" text="bind:execprcpstatcd"/>
  130. <Cell col="31" text="bind:prcpflag"/>
  131. <Cell col="32" text="bind:prcpvol"/>
  132. <Cell col="33" text="bind:prcpvolunitflag"/>
  133. <Cell col="34" text="bind:prcpqty"/>
  134. <Cell col="35" text="bind:prcpqtyunitflag"/>
  135. <Cell col="36" text="bind:prcptims"/>
  136. <Cell col="37" text="bind:drugmthdspccd"/>
  137. <Cell col="38" text="bind:eccdyn"/>
  138. </Band>
  139. </Format>
  140. </Formats>
  141. </Grid>
  142. <Grid id="grd_prcplist" taborder="2" binddataset="ds_init_popupdata" useinputpanel="false" visible="false" position="absolute 145 175 553 343">
  143. <Formats>
  144. <Format id="default">
  145. <Columns>
  146. <Column size="25"/>
  147. <Column size="16"/>
  148. <Column size="62"/>
  149. <Column size="61"/>
  150. <Column size="38"/>
  151. <Column size="73"/>
  152. <Column size="58"/>
  153. <Column size="76"/>
  154. <Column size="104"/>
  155. <Column size="70"/>
  156. <Column size="41"/>
  157. <Column size="109"/>
  158. <Column size="137"/>
  159. <Column size="101"/>
  160. <Column size="62"/>
  161. <Column size="60"/>
  162. <Column size="0"/>
  163. <Column size="68"/>
  164. <Column size="100"/>
  165. <Column size="100"/>
  166. <Column size="39"/>
  167. <Column size="49"/>
  168. <Column size="0"/>
  169. <Column size="0"/>
  170. <Column size="0"/>
  171. <Column size="0"/>
  172. <Column size="0"/>
  173. <Column size="0"/>
  174. <Column size="0"/>
  175. <Column size="0"/>
  176. <Column size="0"/>
  177. <Column size="0"/>
  178. <Column size="0"/>
  179. <Column size="0"/>
  180. <Column size="0"/>
  181. <Column size="0"/>
  182. <Column size="0"/>
  183. <Column size="0"/>
  184. <Column size="0"/>
  185. <Column size="0"/>
  186. <Column size="0"/>
  187. <Column size="0"/>
  188. <Column size="0"/>
  189. <Column size="0"/>
  190. <Column size="0"/>
  191. <Column size="0"/>
  192. <Column size="0"/>
  193. <Column size="0"/>
  194. <Column size="0"/>
  195. <Column size="0"/>
  196. <Column size="0"/>
  197. <Column size="0"/>
  198. <Column size="0"/>
  199. <Column size="0"/>
  200. <Column size="0"/>
  201. <Column size="0"/>
  202. <Column size="0"/>
  203. </Columns>
  204. <Rows>
  205. <Row size="24" band="head"/>
  206. <Row size="24"/>
  207. </Rows>
  208. <Band id="head">
  209. <Cell/>
  210. <Cell col="1"/>
  211. <Cell col="2" text="등록번호"/>
  212. <Cell col="3" text="성명"/>
  213. <Cell col="4" text="S/A"/>
  214. <Cell col="5" text="진료과"/>
  215. <Cell col="6" text="진료의"/>
  216. <Cell col="7" text="처방코드"/>
  217. <Cell col="8" text="처방일자"/>
  218. <Cell col="9" text="처방상태"/>
  219. <Cell col="10" text="병실"/>
  220. <Cell col="11" text="예약일자"/>
  221. <Cell col="12" text="처방명"/>
  222. <Cell col="13" text="실시일자"/>
  223. <Cell col="14" text="실시자"/>
  224. <Cell col="15" text="예약자"/>
  225. <Cell col="16" text="수납여부"/>
  226. <Cell col="17" text="취소코드"/>
  227. <Cell col="18" text="전화번호1"/>
  228. <Cell col="19" text="전화번호2"/>
  229. <Cell col="20" text="키"/>
  230. <Cell col="21" text="몸무게"/>
  231. <Cell col="22" text="execprcpuniqno"/>
  232. <Cell col="23" text="prcpexecdeptcd"/>
  233. <Cell col="24" text="excuroomcd"/>
  234. <Cell col="25" text="inflag"/>
  235. <Cell col="26" text="rcptacptyn"/>
  236. <Cell col="27" text="ExecBaseFlag"/>
  237. <Cell col="28" text="excupartcd"/>
  238. <Cell col="29" text="modality"/>
  239. <Cell col="30" text="execrem"/>
  240. <Cell col="31" text="prcpdelivefact"/>
  241. <Cell col="32" text="carecnfmdd"/>
  242. <Cell col="33" text="prcpkindcd"/>
  243. <Cell col="34" text="rcptno"/>
  244. <Cell col="35" text="acptseqno"/>
  245. <Cell col="36" text="prcpgenrflag"/>
  246. <Cell col="37" text="orddd"/>
  247. <Cell col="38" text="orddeptcd"/>
  248. <Cell col="39" text="rcptdd"/>
  249. <Cell col="40" text="orddrid"/>
  250. <Cell col="41" text="prcpno"/>
  251. <Cell col="42" text="EqmtIFYn"/>
  252. <Cell col="43" text="basesuppdeptcd"/>
  253. <Cell col="44" text="cretno"/>
  254. <Cell col="45" text="wardcd"/>
  255. <Cell col="46" text="rsrvdt"/>
  256. <Cell col="47" text="rgstdeptcd"/>
  257. <Cell col="48" text="rgstrid"/>
  258. <Cell col="49" text="inclprcpcd"/>
  259. <Cell col="50" text="lrgcd"/>
  260. <Cell col="51" text="mdlcd"/>
  261. <Cell col="52" text="actorddd"/>
  262. <Cell col="53" text="examroomnm"/>
  263. <Cell col="54" text="prcphistno"/>
  264. <Cell col="55" text="pacsnocretyn"/>
  265. <Cell col="56" text="execprcpstatcd"/>
  266. </Band>
  267. <Band id="body">
  268. <Cell celltype="head" text="expr:currow+1"/>
  269. <Cell col="1" displaytype="checkbox" edittype="checkbox" text="bind:check"/>
  270. <Cell col="2" text="bind:pid"/>
  271. <Cell col="3" text="bind:hngnm"/>
  272. <Cell col="4" text="bind:sna"/>
  273. <Cell col="5" text="bind:orddepthngnm"/>
  274. <Cell col="6" text="bind:orddrnm"/>
  275. <Cell col="7" text="bind:calcscorcd"/>
  276. <Cell col="8" text="bind:prcpdt" mask="yyyy-mm-dd hh:nn"/>
  277. <Cell col="9" text="bind:statcd" enable="false"/>
  278. <Cell col="10" text="bind:roomcd"/>
  279. <Cell col="11" text="bind:srchrsrvdt" mask="yyyy-mm-dd hh:nn"/>
  280. <Cell col="12" text="bind:prcpnm"/>
  281. <Cell col="13" text="bind:execdt" mask="yyyy-mm-dd hh:nn"/>
  282. <Cell col="14" displaytype="combo" edittype="combo" text="bind:execrid1"/>
  283. <Cell col="15" text="bind:rsrvrnm"/>
  284. <Cell col="16" text="bind:rcptyn"/>
  285. <Cell col="17" text="bind:basecd"/>
  286. <Cell col="18" text="bind:hometel"/>
  287. <Cell col="19" text="bind:mpphontel"/>
  288. <Cell col="20" text="bind:hight"/>
  289. <Cell col="21" text="bind:weight"/>
  290. <Cell col="22" text="bind:execprcpuniqno"/>
  291. <Cell col="23" text="bind:prcpexecdeptcd"/>
  292. <Cell col="24" text="bind:excuroomcd"/>
  293. <Cell col="25" text="bind:inflag"/>
  294. <Cell col="26" text="bind:rcptacptyn"/>
  295. <Cell col="27" text="bind:execbaseflag"/>
  296. <Cell col="28" text="bind:excupartcd"/>
  297. <Cell col="29" text="bind:modality"/>
  298. <Cell col="30" text="bind:execrem"/>
  299. <Cell col="31" text="bind:prcpdelivefact"/>
  300. <Cell col="32" text="bind:carecnfmdd"/>
  301. <Cell col="33" text="bind:prcpkindcd"/>
  302. <Cell col="34" text="bind:rcptno"/>
  303. <Cell col="35" text="bind:acptseqno"/>
  304. <Cell col="36" text="bind:prcpgenrflag"/>
  305. <Cell col="37" text="bind:orddd"/>
  306. <Cell col="38" text="bind:orddeptcd"/>
  307. <Cell col="39" text="bind:rcptdd"/>
  308. <Cell col="40" text="bind:orddrid"/>
  309. <Cell col="41" text="bind:prcpno"/>
  310. <Cell col="42" text="bind:eqmtifyn"/>
  311. <Cell col="43" text="bind:basesuppdeptcd"/>
  312. <Cell col="44" text="bind:cretno"/>
  313. <Cell col="45" text="bind:wardcd"/>
  314. <Cell col="46" text="bind:rsrvdt"/>
  315. <Cell col="47" text="bind:rgstdeptcd"/>
  316. <Cell col="48" text="bind:rgstrid"/>
  317. <Cell col="49" text="bind:inclprcpcd"/>
  318. <Cell col="50" text="bind:lrgcd"/>
  319. <Cell col="51" text="bind:mdlcd"/>
  320. <Cell col="52" text="bind:actorddd"/>
  321. <Cell col="53" text="bind:examroomnm"/>
  322. <Cell col="54" text="bind:prcphistno"/>
  323. <Cell col="55" text="bind:pacsnocretyn"/>
  324. <Cell col="56" text="bind:execprcpstatcd"/>
  325. </Band>
  326. </Format>
  327. </Formats>
  328. </Grid>
  329. <Button id="button6" taborder="3" text="TypeⅡ" class="btn2" position="absolute 624 1 688 23" onclick="button6_onclick"/>
  330. <Button id="button9" taborder="4" text="닫기" class="btn4" position="absolute 632 410 688 432" onclick="button9_onclick"/>
  331. </Layout>
  332. </Layouts>
  333. <Objects>
  334. <Dataset id="ds_main_subordlist_subordlist4" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  335. <ColumnInfo>
  336. <Column id="check" type="STRING" size="256"/>
  337. <Column id="statcd" type="STRING" size="256"/>
  338. <Column id="mset" type="STRING" size="256"/>
  339. <Column id="calcscorcd" type="STRING" size="256"/>
  340. <Column id="prcpnm" type="STRING" size="256"/>
  341. <Column id="prcpdd" type="STRING" size="256"/>
  342. <Column id="acptdt" type="STRING" size="256"/>
  343. <Column id="execdd" type="STRING" size="256"/>
  344. <Column id="cnfmdt" type="STRING" size="256"/>
  345. <Column id="payflagcd" type="STRING" size="256"/>
  346. <Column id="pid" type="STRING" size="256"/>
  347. <Column id="prcpno" type="STRING" size="256"/>
  348. <Column id="execprcpuniqno" type="STRING" size="256"/>
  349. <Column id="gubn" type="STRING" size="256"/>
  350. <Column id="rcptdd" type="STRING" size="256"/>
  351. <Column id="prcpclscd" type="STRING" size="256"/>
  352. <Column id="carecnfmdd" type="STRING" size="256"/>
  353. <Column id="prcpgenrflag" type="STRING" size="256"/>
  354. <Column id="orddeptcd" type="STRING" size="256"/>
  355. <Column id="orddrid" type="STRING" size="256"/>
  356. <Column id="ioflag" type="STRING" size="256"/>
  357. <Column id="cretno" type="STRING" size="256"/>
  358. <Column id="prcphistno" type="STRING" size="256"/>
  359. <Column id="opansflagcd" type="STRING" size="256"/>
  360. <Column id="suppdeptcd" type="STRING" size="256"/>
  361. <Column id="orddd" type="STRING" size="256"/>
  362. <Column id="inclprcpcd" type="STRING" size="256"/>
  363. <Column id="inclprcpno" type="STRING" size="256"/>
  364. <Column id="rootgubn" type="STRING" size="256"/>
  365. <Column id="execprcphistcd" type="STRING" size="256"/>
  366. <Column id="execprcpstatcd" type="STRING" size="256"/>
  367. <Column id="prcpflag" type="STRING" size="256"/>
  368. <Column id="prcpvol" type="STRING" size="256"/>
  369. <Column id="prcpvolunitflag" type="STRING" size="256"/>
  370. <Column id="prcpqty" type="STRING" size="256"/>
  371. <Column id="prcpqtyunitflag" type="STRING" size="256"/>
  372. <Column id="prcptims" type="STRING" size="256"/>
  373. <Column id="drugmthdspccd" type="STRING" size="256"/>
  374. <Column id="eccdyn" type="STRING" size="256"/>
  375. </ColumnInfo>
  376. <Rows>
  377. <Row>
  378. <Col id="check"/>
  379. <Col id="statcd"/>
  380. <Col id="mset"/>
  381. <Col id="calcscorcd"/>
  382. <Col id="prcpnm"/>
  383. <Col id="prcpdd"/>
  384. <Col id="acptdt"/>
  385. <Col id="execdd"/>
  386. <Col id="cnfmdt"/>
  387. <Col id="payflagcd"/>
  388. <Col id="pid"/>
  389. <Col id="prcpno"/>
  390. <Col id="execprcpuniqno"/>
  391. <Col id="gubn"/>
  392. <Col id="rcptdd"/>
  393. <Col id="prcpclscd"/>
  394. <Col id="carecnfmdd"/>
  395. <Col id="prcpgenrflag"/>
  396. <Col id="orddeptcd"/>
  397. <Col id="orddrid"/>
  398. <Col id="ioflag"/>
  399. <Col id="cretno"/>
  400. <Col id="prcphistno"/>
  401. <Col id="opansflagcd"/>
  402. <Col id="suppdeptcd"/>
  403. <Col id="orddd"/>
  404. <Col id="inclprcpcd"/>
  405. <Col id="inclprcpno"/>
  406. <Col id="rootgubn"/>
  407. <Col id="execprcphistcd"/>
  408. <Col id="execprcpstatcd"/>
  409. <Col id="prcpflag"/>
  410. <Col id="prcpvol"/>
  411. <Col id="prcpvolunitflag"/>
  412. <Col id="prcpqty"/>
  413. <Col id="prcpqtyunitflag"/>
  414. <Col id="prcptims"/>
  415. <Col id="drugmthdspccd"/>
  416. <Col id="eccdyn"/>
  417. </Row>
  418. </Rows>
  419. </Dataset>
  420. <Dataset id="ds_main_subordlist_deptcdlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  421. <ColumnInfo>
  422. <Column id="deptcdflag" type="STRING" size="256"/>
  423. </ColumnInfo>
  424. <Rows>
  425. <Row/>
  426. </Rows>
  427. </Dataset>
  428. <Dataset id="ds_send_data" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  429. <ColumnInfo>
  430. <Column id="prcpgenrflag" type="STRING" size="256"/>
  431. <Column id="prcpdd" type="STRING" size="256"/>
  432. <Column id="execprcpuniqno" type="STRING" size="256"/>
  433. <Column id="pid" type="STRING" size="256"/>
  434. <Column id="orddd" type="STRING" size="256"/>
  435. <Column id="basesuppdeptcd" type="STRING" size="256"/>
  436. </ColumnInfo>
  437. <Rows>
  438. <Row>
  439. <Col id="prcpgenrflag"/>
  440. <Col id="prcpdd"/>
  441. <Col id="execprcpuniqno"/>
  442. <Col id="pid"/>
  443. <Col id="orddd"/>
  444. <Col id="basesuppdeptcd"/>
  445. </Row>
  446. </Rows>
  447. </Dataset>
  448. <Dataset id="ds_send_data_tobeacptprcp_tobeacptprcplist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  449. <Dataset id="ds_hidden_popupmenu" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  450. <ColumnInfo>
  451. <Column id="hardcdnm" type="STRING" size="256"/>
  452. <Column id="hardcd" type="STRING" size="256"/>
  453. </ColumnInfo>
  454. <Rows>
  455. <Row>
  456. <Col id="hardcdnm">약/주사/재료 액팅</Col>
  457. <Col id="hardcd">fprcpacting</Col>
  458. </Row>
  459. <Row>
  460. <Col id="hardcdnm">약/주사/재료 액팅취소</Col>
  461. <Col id="hardcd">fprcpactingcncl</Col>
  462. </Row>
  463. <Row>
  464. <Col id="hardcdnm">-</Col>
  465. <Col id="hardcd"/>
  466. </Row>
  467. <Row>
  468. <Col id="hardcdnm">처방반환</Col>
  469. <Col id="hardcd">fprcpdc</Col>
  470. </Row>
  471. </Rows>
  472. </Dataset>
  473. <Dataset id="ds_init_popupdata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  474. <Dataset id="ds_hidden_item" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  475. </Objects>
  476. <Script type="xscript4.0"><![CDATA[/***************************************************************************************
  477. * System Name :
  478. * Job Name :
  479. * Creator :
  480. * Make Date : 2016-10-14
  481. * Description :
  482. *---------------------------------------------------------------------------------------
  483. * Modify Date Modifier Modify Description
  484. *---------------------------------------------------------------------------------------
  485. * 2016-10-14 Live Converter TF->XP
  486. *
  487. *---------------------------------------------------------------------------------------
  488. ****************************************************************************************/
  489. //=======================================================================================
  490. // Lib Include
  491. //---------------------------------------------------------------------------------------
  492. include "com_commonxp::comm_main.xjs";
  493. include "ast_examcurexp::AEZ0001.xjs";
  494. //=======================================================================================
  495. // Global Form Variable
  496. //---------------------------------------------------------------------------------------
  497. var arErrorCode = new HashArray();
  498. var gSuppdeptcd = "";
  499. //=======================================================================================
  500. // Function
  501. //---------------------------------------------------------------------------------------
  502. /****************************************************************************************
  503. * Argument : N/A
  504. * Description : 약/주사/재료 액팅
  505. ****************************************************************************************/
  506. function fprcpacting() {
  507. ds_send_data_tobeacptprcp_tobeacptprcplist.clear();
  508. ds_main_subordlist_subordlist4.filter("check=='Y'");
  509. ds_send_data_tobeacptprcp_tobeacptprcplist.copyData(ds_main_subordlist_subordlist4,true);
  510. ds_main_subordlist_subordlist4.filter("");
  511. var fCnt = ds_send_data_tobeacptprcp_tobeacptprcplist.rowcount;
  512. if ( fCnt == 0 ) {
  513. sysf_messageBox("처방내역을","C002");
  514. return "0";
  515. }
  516. else
  517. {
  518. var selectedRows = grdf_getSelectedRows(grd_subprcplist);
  519. for (var i= 0; i < selectedRows.length; i++)
  520. {
  521. if(( ds_main_subordlist_subordlist4.getColumn(selectedRows[i], "execprcphistcd") == "E" ) || ( ds_main_subordlist_subordlist4.getColumn(selectedRows[i], "execprcphistcd") == "D" ) || ( ds_main_subordlist_subordlist4.getColumn(selectedRows[i], "execprcphistcd") == "L" ) ){
  522. sysf_messageBox("이미 반환된 처방","E008");
  523. return "0";
  524. }
  525. if( (ds_main_subordlist_subordlist4.getColumn(selectedRows[i], "execprcphistcd") == "O" ) && ( ds_main_subordlist_subordlist4.getColumn(selectedRows[i], "execprcpstatcd") >= "610") ) {
  526. sysf_messageBox("실시완료된 처방","E008");
  527. return "0";
  528. }
  529. if( ds_main_subordlist_subordlist4.getColumn(selectedRows[i], "eccdyn") == "Y" ) {
  530. sysf_messageBox("약_주사_재료처방만","C002");
  531. return "0";
  532. }
  533. }
  534. }
  535. // 처방 -> 검사접수_실시완료
  536. if ( sysf_messageBox("실시를 ","Q002")==6 ) {
  537. ds_send_data_tobeacptprcp_tobeacptprcplist.updateColID("execdd","excuexectodd");
  538. ds_send_data_tobeacptprcp_tobeacptprcplist.updateColID("suppdeptcd","basesuppdeptcd");
  539. dsf_setFixVal(ds_send_data_tobeacptprcp_tobeacptprcplist, "execprcpstat610cd:610,excuexectotm:-,execrid1:-");
  540. var oParam = {};
  541. oParam.id = "TXAEA01508";
  542. oParam.service = "examcureacptexecapp.ExamCureAcpt";
  543. oParam.method = "reqExeAddPrcpList";
  544. oParam.inds = "req=ds_send_data_tobeacptprcp_tobeacptprcplist";
  545. oParam.outds = "ds_hidden_item=item";
  546. oParam.async = false;
  547. //oParam.callback = "cf_TXAEA01508";
  548. tranf_submit(oParam);
  549. }
  550. call_TRAEA01120();
  551. //반환처방 색상주기
  552. // initGridStyle("grd_subprcplist");
  553. // setRowStyle("grd_subprcplist" , "2" , "E" , "execprcphistcd","equal" );
  554. // setRowStyle("grd_subprcplist" , "2" , "D" , "execprcphistcd","equal" );
  555. // setRowStyle("grd_subprcplist" , "2" , "L" , "execprcphistcd","equal" );
  556. }
  557. /****************************************************************************************
  558. * Argument : N/A
  559. * Description : 약/주사/재료 액팅취소
  560. ****************************************************************************************/
  561. function fprcpactingcncl() {
  562. ds_send_data_tobeacptprcp_tobeacptprcplist.clear();
  563. ds_main_subordlist_subordlist4.filter("check=='Y'");
  564. ds_send_data_tobeacptprcp_tobeacptprcplist.copyData(ds_main_subordlist_subordlist4,true);
  565. ds_main_subordlist_subordlist4.filter("");
  566. var fCnt = ds_send_data_tobeacptprcp_tobeacptprcplist.rowcount;
  567. if ( fCnt == 0 ) {
  568. sysf_messageBox("처방내역을","C002");
  569. return "0";
  570. }
  571. else
  572. {
  573. var selectedRows = grdf_getSelectedRows(grd_subprcplist);
  574. for (var i= 0; i < selectedRows.length; i++){
  575. if(( ds_main_subordlist_subordlist4.getColumn(selectedRows[i], "execprcphistcd") == "E" ) || ( ds_main_subordlist_subordlist4.getColumn(selectedRows[i], "execprcphistcd") == "D" ) || ( ds_main_subordlist_subordlist4.getColumn(selectedRows[i], "execprcphistcd") == "L" ) ){
  576. sysf_messageBox("이미 반환된 처방","E008");
  577. return "0";
  578. }
  579. if( (ds_main_subordlist_subordlist4.getColumn(selectedRows[i], "execprcphistcd") == "O" ) && ( ds_main_subordlist_subordlist4.getColumn(selectedRows[i], "execprcpstatcd") < "610") ) {
  580. sysf_messageBox("실시되지 않은 처방","E008");
  581. return "0";
  582. }
  583. if( (ds_main_subordlist_subordlist4.getColumn(selectedRows[i], "execprcphistcd") == "O" ) && ( ds_main_subordlist_subordlist4.getColumn(selectedRows[i], "execprcpstatcd") > "610") ) {
  584. sysf_messageBox("판독완료된 처방","E008");
  585. return "0";
  586. }
  587. }
  588. }
  589. // 처방 -> 검사접수_실시완료
  590. if ( sysf_messageBox("실시취소를 ","Q002")==6 ) {
  591. ds_send_data_tobeacptprcp_tobeacptprcplist.updateColID("suppdeptcd","basesuppdeptcd");
  592. dsf_setFixVal(ds_send_data_tobeacptprcp_tobeacptprcplist, "execprcpstat440cd:440,execprcpstat610cd:610,execprcpstat230cd:230,execprcpstat100cd:100,execprcpstat000cd:000,excuexectodd:00000000,excuexectotm:000000,execrid1:-,tretflagcd:610");
  593. var oParam = {};
  594. oParam.id = "TXAEA01509";
  595. oParam.service = "examcureacptexecapp.ExamCureAcpt";
  596. oParam.method = "reqExeAddPrcpCnclList";
  597. oParam.inds = "req=ds_send_data_tobeacptprcp_tobeacptprcplist";
  598. oParam.outds = "ds_hidden_item=item";
  599. oParam.async = false;
  600. //oParam.callback = "cf_TXAEA01509";
  601. tranf_submit(oParam);
  602. }
  603. call_TRAEA01120();
  604. //반환처방 색상주기
  605. // initGridStyle("grd_subprcplist");
  606. // setRowStyle("grd_subprcplist" , "2" , "E" , "execprcphistcd","equal" );
  607. // setRowStyle("grd_subprcplist" , "2" , "D" , "execprcphistcd","equal" );
  608. // setRowStyle("grd_subprcplist" , "2" , "L" , "execprcphistcd","equal" );
  609. }
  610. /****************************************************************************************
  611. * Argument : N/A
  612. * Description : 처방내역에서 처방반환
  613. ****************************************************************************************/
  614. function fprcpdc()
  615. {
  616. ds_send_data_tobeacptprcp_tobeacptprcplist.clear();
  617. ds_main_subordlist_subordlist4.filter("check=='Y'");
  618. ds_send_data_tobeacptprcp_tobeacptprcplist.copyData(ds_main_subordlist_subordlist4,true);
  619. ds_main_subordlist_subordlist4.filter("");
  620. var fCnt = ds_send_data_tobeacptprcp_tobeacptprcplist.rowcount;
  621. if ( fCnt == 0 )
  622. {
  623. sysf_messageBox("처방내역을","C002");
  624. return "0";
  625. }
  626. else
  627. {
  628. var selectedRows = grdf_getSelectedRows(grd_subprcplist);
  629. for (var i= 0; i < selectedRows.length; i++)
  630. {
  631. if(ds_main_subordlist_subordlist4.getColumn(selectedRows[i], "execprcphistcd") == "E" || ds_main_subordlist_subordlist4.getColumn(selectedRows[i], "execprcphistcd") == "D" || ds_main_subordlist_subordlist4.getColumn(selectedRows[i], "execprcphistcd") == "L" )
  632. {
  633. sysf_messageBox("이미 반환된 처방","E008");
  634. return "0";
  635. }
  636. if(ds_main_subordlist_subordlist4.getColumn(selectedRows[i], "execprcphistcd") == "O" && ds_main_subordlist_subordlist4.getColumn(selectedRows[i], "execprcpstatcd") == "610")
  637. {
  638. sysf_messageBox("실시된 처방","E008","취소 후 반환하십시오");
  639. return "0";
  640. }
  641. if(ds_main_subordlist_subordlist4.getColumn(selectedRows[i], "execprcphistcd") == "O" && ds_main_subordlist_subordlist4.getColumn(selectedRows[i], "execprcpstatcd") == "440")
  642. {
  643. sysf_messageBox("접수된 처방","E008","취소 후 반환하십시오");
  644. return "0";
  645. }
  646. }
  647. }
  648. // 처방 -> 검사접수_실시완료
  649. if ( sysf_messageBox("처방반환을 ","Q002")==6 )
  650. {
  651. dsf_setFixVal(ds_send_data_tobeacptprcp_tobeacptprcplist, "status:C");
  652. fMakeCopyColumn(ds_send_data_tobeacptprcp_tobeacptprcplist,"orddd","indd");
  653. fMakeCopyColumn(ds_send_data_tobeacptprcp_tobeacptprcplist,"calcscorcd","prcpcd");
  654. var oParam = {};
  655. oParam.id = "TXAEA01510";
  656. oParam.service = "examcureacptexecapp.ExamCureAcpt";
  657. oParam.method = "reqExeExecPrcpDCList";
  658. oParam.inds = "mcdprcp=ds_send_data_tobeacptprcp_tobeacptprcplist";
  659. oParam.outds = "ds_hidden_item=item";
  660. oParam.async = false;
  661. //oParam.callback = "cf_TXAEA01510";
  662. tranf_submit(oParam);
  663. }
  664. call_TRAEA01120();
  665. //반환처방 색상주기
  666. // initGridStyle("grd_subprcplist");
  667. // setRowStyle("grd_subprcplist" , "2" , "E" , "execprcphistcd","equal" );
  668. // setRowStyle("grd_subprcplist" , "2" , "D" , "execprcphistcd","equal" );
  669. // setRowStyle("grd_subprcplist" , "2" , "L" , "execprcphistcd","equal" );
  670. }
  671. /****************************************************************************************
  672. * Argument : objDs - Dataset ID
  673. * : sColSrc - 원본 컬럼
  674. * : sColTgt - 생성할 컬럼
  675. * Description : 데이터셋 특정컬럼 카피하여 새컬럼 생성
  676. ****************************************************************************************/
  677. function fMakeCopyColumn(objDs,sColSrc,sColTgt) {
  678. if(utlf_isNull(objDs.getColumnInfo(sColTgt))) objDs.addColumn(sColTgt,"string");
  679. for(var i = 0 ; i < objDs.rowcount ; i++) {
  680. objDs.setColumn(i,sColTgt,objDs.getColumn(i,sColSrc));
  681. }
  682. }
  683. /****************************************************************************************
  684. * Argument : N/A
  685. * Description : 간호일지Type2 처방정보 세팅
  686. ****************************************************************************************/
  687. function fMakeParameter() {
  688. var Prcpparam = "";
  689. var rowsep = "▩";
  690. var colsep = "▦";
  691. var param = "prcpflag" + colsep + "prcpnm" + rowsep;
  692. var check = "";
  693. var prcpflag = "";
  694. var prcpcd = "";
  695. var prcpnm = "";
  696. var prcpvol = "";
  697. var prcpvolunitflag = "";
  698. var prcpqty = "";
  699. var prcpqtyunitflag = "";
  700. var prcptims = "";
  701. var drugmthdspccd = "";
  702. var abbrnm = "";
  703. var prcpdeliverfact = "";
  704. for(var i = 0; i < ds_main_subordlist_subordlist4.rowcount; i++) {
  705. check = ds_main_subordlist_subordlist4.getColumn(i, "check");
  706. if(check == "Y") {
  707. prcpflag = ds_main_subordlist_subordlist4.getColumn(i, "prcpclscd");
  708. prcpcd = ds_main_subordlist_subordlist4.getColumn(i, "prcpcd");
  709. prcpnm = ds_main_subordlist_subordlist4.getColumn(i, "prcpnm");
  710. prcpvol = ds_main_subordlist_subordlist4.getColumn(i, "prcpvol");
  711. prcpvolunitflag = ds_main_subordlist_subordlist4.getColumn(i, "prcpvolunitflag");
  712. prcpqty = ds_main_subordlist_subordlist4.getColumn(i, "prcpqty");
  713. prcpqtyunitflag = ds_main_subordlist_subordlist4.getColumn(i, "prcpqtyunitflag");
  714. prcptims = ds_main_subordlist_subordlist4.getColumn(i, "prcptims");
  715. dugmthdspccd = ds_main_subordlist_subordlist4.getColumn(i, "drugmthdspccd");
  716. abbrnm = ds_main_subordlist_subordlist4.getColumn(i, "prcpnm");
  717. if(prcpflag=="A2" || prcpflag == "A4" || prcpflag == "A6") {
  718. param += prcpflag.substr(0,1) + colsep + prcpcd + "/" + prcpnm + "/" + prcpvol + "/" + prcpvolunitflag + "/" + prcpqty + "/" + prcpqtyunitflag + "/" + prcptims + "/" + dugmthdspccd + "/" + abbrnm + rowsep;
  719. } else if(prcpflag=="B2" || prcpflag=="B4" || prcpflag=="B6" || prcpflag=="C2" || prcpflag=="C4" || prcpflag=="D2" || prcpflag=="E2" || prcpflag=="H4") {
  720. prcpdelivefact = ds_main_subordlist_subordlist4.getColumn(i, "prcpdelivefact");
  721. param += prcpflag.substr(0,1) + colsep + prcpnm + "/" + prcpqty + prcpdeliverfact + rowsep;
  722. }
  723. }
  724. }
  725. return param;
  726. }
  727. //=======================================================================================
  728. // Event
  729. //---------------------------------------------------------------------------------------
  730. /****************************************************************************************
  731. * Components : Form
  732. * Components ID : SPAEA01102
  733. * Event : oninit
  734. * Argument : 01.obj : Object Event has occurred
  735. * : 02.e : Event Object
  736. * Description : 화면 처음 초기화시 폼초기화
  737. ****************************************************************************************/
  738. function SPAEA01102_oninit(obj:Form, e:InitEventInfo)
  739. {
  740. frmf_initForm(obj); // 폼 초기화
  741. }
  742. /****************************************************************************************
  743. * Components : Form
  744. * Components ID : SPAEA01102
  745. * Event : onload
  746. * Argument : 01.obj : Object Event has occurred
  747. * : 02.e : Event Object
  748. * Description : 화면 처음 초기화시 폼초기화
  749. ****************************************************************************************/
  750. function SPAEA01102_onload(obj:Form, e:LoadEventInfo)
  751. {
  752. lf_aezfSetSuppDeptcd(); //AEZ0001.xjs
  753. gSuppdeptcd = frmf_getParameter("AST_DEPTCD");
  754. ds_init_popupdata.copyData(arg_ds_init_popupdata);
  755. var lRow = ds_init_popupdata.rowcount-1;
  756. ds_send_data.setColumn(0,"prcpgenrflag" , ds_init_popupdata.getColumn(lRow,"prcpgenrflag"));
  757. ds_send_data.setColumn(0,"prcpdd" , ds_init_popupdata.getColumn(lRow,"prcpdd"));
  758. ds_send_data.setColumn(0,"execprcpuniqno" , ds_init_popupdata.getColumn(lRow,"execprcpuniqno"));
  759. ds_send_data.setColumn(0,"pid" , ds_init_popupdata.getColumn(lRow,"pid"));
  760. ds_send_data.setColumn(0,"orddd" , ds_init_popupdata.getColumn(lRow,"orddd"));
  761. ds_send_data.setColumn(0,"basesuppdeptcd" , ds_init_popupdata.getColumn(lRow,"basesuppdeptcd"));
  762. call_TRAEA01120();
  763. frmf_createPopupMenuDs("pmn_menu", "pmn_menu_onmenuclick", ds_hidden_popupmenu);
  764. }
  765. function call_TRAEA01120() {
  766. dsf_makeValue(ds_send_data,"ioflag","string","");
  767. dsf_setFixVal(ds_send_data, "largeclass:M4,sublist:sub");
  768. var oParam = {};
  769. oParam.id = "TRAEA01120";
  770. oParam.service = "examcureacptexecapp.ExamCureAcpt";
  771. oParam.method = "reqGetExamCureExecPrcpList";
  772. oParam.inds = "reqparam=ds_send_data";
  773. oParam.outds = "ds_main_subordlist_subordlist4=examcureexecprcplist ds_main_subordlist_deptcdlist=deptcdlist";
  774. oParam.async = false;
  775. oParam.callback = "cf_TRAEA01120";
  776. tranf_submit(oParam);
  777. }
  778. function cf_TRAEA01120(sSvcId, nErrorCode, sErrorMsg) {
  779. if(nErrorCode < 0) return;
  780. ds_main_subordlist_subordlist4.updateColID("root","rootgubn");
  781. dsf_setFixVal(ds_main_subordlist_subordlist4, "check:N,execrid1:-,excuexectodd:-,excuexectotm:-");
  782. }
  783. function pmn_menu_onmenuclick(obj:PopupMenu, e:MenuClickEventInfo)
  784. {
  785. eval(e.id + "()");
  786. }
  787. /****************************************************************************************
  788. * Components : Button
  789. * Components ID : button6
  790. * Event : onclick
  791. * Argument : 01.obj : Object Event has occurred
  792. * : 02.e : Event Object
  793. * Description : Type II
  794. ****************************************************************************************/
  795. function button6_onclick(obj:Button, e:ClickEventInfo)
  796. {
  797. //*******************************************************************************************************************************************************************/
  798. // 간호기록(Type II) 화면을 호출하기 위한 파라미터 값 세팅
  799. //*******************************************************************************************************************************************************************/
  800. // [기록 구분 정보]
  801. // SMMNR03400_AST :pid ▦ instcd ▦ hngnm ▦ age ▦ cretno ▦ ioflag ▦ orddeptcd ▦ orddrid ▩(기능검사 환자정보)
  802. //
  803. // - 기록구분(recflag) :
  804. // O : 외래, I : 주사실, C : 외래항암
  805. // D : DSC, S : 전문간호, H : 가정간호,
  806. // E : 응급실, A : 마취과, R : 회복실,
  807. // L : 투석실, B : 혈당기록, P : 수술실,
  808. // X : 간클리닉 K : 기관지경실 X : 내시경 Y : 부정맥 Z : Echo
  809. //
  810. //
  811. //
  812. // - 부서코드(dutplaccd) :
  813. // 001 : 가정 005 : 병동 009 : 외래 013 : 통원 017 : 외래항암
  814. // 002 : 간클리닉 006 : 부정맥 010 : 응급 014 : 투석 900 : 수술
  815. // 003 : 기관지 007 : 분만 011 : 전문 015 : 혈당 900 : 마취
  816. // 004 : 내시경 008 : 성분 012 : 주사 016 : Echo 900 : 회복
  817. //
  818. // - 처방구분(prcpflag)
  819. // A : 투약
  820. // H : 처치
  821. // T : 검사
  822. var lRow = ds_init_popupdata.rowcount-1;
  823. // for( var i = 0 ; i < ds_init_popupdata.rowcount ; i++ ) {
  824. var orddd = ds_init_popupdata.getColumn(lRow, "orddd");
  825. var cretno = ds_init_popupdata.getColumn(lRow, "cretno");
  826. //var instcd = ds_init_popupdata.getColumn(i, "instcd");
  827. var instcd = sysf_getUserInfo("dutplceinstcd");
  828. var orddeptcd = ds_init_popupdata.getColumn(lRow, "orddeptcd");
  829. var orddrid = ds_init_popupdata.getColumn(lRow, "orddrid");
  830. var pid = ds_init_popupdata.getColumn(lRow, "pid");
  831. var sPid = ds_init_popupdata.getColumn(lRow, "pid");
  832. var hngnm = ds_init_popupdata.getColumn(lRow, "hngnm");
  833. var age = ds_init_popupdata.getColumn(lRow, "age");
  834. var ioflag = ds_init_popupdata.getColumn(lRow, "prcpgenrflag");
  835. // }
  836. var dutplaccd = ds_main_subordlist_deptcdlist.getColumn(0, "deptcdflag");
  837. // 20090409, , 장준원, 간호일지 II 호출시 Code값이 미존재(AST.AEBMBSCD.BASECD)하면 '022'로 세팅한다. 김홍점과장 요청사항.
  838. if ( utlf_isNull(dutplaccd) ) dutplaccd = "022";
  839. if(dutplaccd == "002"){ //간클리닉
  840. var recflag = "X";
  841. }
  842. if(dutplaccd == "003 "){ //기관지
  843. var recflag = "K";
  844. }
  845. if(dutplaccd == "004"){ //내시경
  846. var recflag = "X";
  847. }
  848. if(dutplaccd == "006"){ //부정맥
  849. var recflag = "Y";
  850. }
  851. if(dutplaccd == "016"){ //Echo
  852. var recflag = "Z";
  853. }else{ //외래
  854. var recflag = "O";
  855. }
  856. age = utlf_transNullToEmpty(age);
  857. var Baseparam = "recflag▦dutplaccd▦reclnkkey▩"+recflag+"▦"+ dutplaccd +"▦" + sPid + "," + orddd + "," + cretno +"," + instcd + "▩";
  858. // var ASTparam = "pid ▦ instcd ▦ hngnm ▦ age ▦ cretno ▦ ioflag ▦ orddeptcd ▦ orddrid ▩" + pid + "▦" + instcd + "▦" + hngnm + "▦" + age + "▦" + orddd + "▦" + cretno+ "▦" + ioflag + "▦" + ioflag + "▦" + orddeptcd + "▦" + orddrid + "▩";
  859. var ASTparam = "pid ▦ instcd ▦ hngnm ▦ age ▦ orddd ▦ cretno ▦ ioflag ▦ orddeptcd ▦ orddrid ▩" + pid + "▦" + instcd + "▦" + hngnm + "▦" + age + "▦"+ orddd + "▦" + cretno+ "▦" + ioflag + "▦" + orddeptcd + "▦" + orddrid + "▩";
  860. var Prcpparam = fMakeParameter();
  861. frmf_setParameter("SMMNR03400_ParamBase", Baseparam);
  862. frmf_setParameter("SMMNR03400_AST", ASTparam );
  863. frmf_setParameter("SMMNR03400_ParamPrcp", Prcpparam);
  864. frmf_modal("SMMNR03400", "SMMNR03400", "", "", "", "", "", "", "", "", "", "", "M"); //간호일지Type2
  865. }
  866. /****************************************************************************************
  867. * Components : Grid
  868. * Components ID : grd_subprcplist
  869. * Event : onrbuttonup
  870. * Argument : 01.obj : Object Event has occurred
  871. * : 02.e : Event Object
  872. * Description : 우클릭 팝업메뉴 호출
  873. ****************************************************************************************/
  874. function grd_subprcplist_onrbuttonup(obj:Grid, e:GridMouseEventInfo)
  875. {
  876. if(e.row > -1){
  877. grdf_setSelectedCell(obj, e); // 선택된 행 확실히 선택해줌
  878. pmn_menu.trackPopup(e.screenX,e.screenY);
  879. }
  880. return true;
  881. }
  882. /****************************************************************************************
  883. * Components : Grid
  884. * Components ID : grd_subprcplist
  885. * Event : onlbuttonup
  886. * Argument : 01.obj : Object Event has occurred
  887. * : 02.e : Event Object
  888. * Description : 처방상세내역 선택
  889. ****************************************************************************************/
  890. function grd_subprcplist_onlbuttonup(obj:Grid, e:GridMouseEventInfo)
  891. {
  892. if( e.row > -1 ){
  893. for ( var i = 0; i < ds_main_subordlist_subordlist4.rowcount; i++) {
  894. ds_main_subordlist_subordlist4.setColumn(i,"check", "N");
  895. }
  896. var selectedRows = grdf_getSelectedRows(obj);
  897. for (var i= 0; i < selectedRows.length; i++){
  898. ds_main_subordlist_subordlist4.setColumn(selectedRows[i], "check", "Y");
  899. }
  900. }
  901. }
  902. /****************************************************************************************
  903. * Components : Button
  904. * Components ID : button9
  905. * Event : onclick
  906. * Argument : 01.obj : Object Event has occurred
  907. * : 02.e : Event Object
  908. * Description : 닫기
  909. ****************************************************************************************/
  910. function button9_onclick(obj:Button, e:ClickEventInfo)
  911. {
  912. this.close();
  913. }
  914. ]]></Script>
  915. </Form>
  916. </FDL>