SPAEA01105_약주사처방액팅(내시경).xfdl 64 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334
  1. <?xml version="1.0" encoding="utf-8"?>
  2. <FDL version="1.5">
  3. <TypeDefinition url="..\..\..\default_typedef.xml"/>
  4. <Form id="SPAEA01105" position="absolute 0 0 720 481" titletext="처방상세내역" oninit="model1_oninit" class="frm_POP" onload="SPAEA01105_onload">
  5. <Layouts>
  6. <Layout>
  7. <Static id="caption1" text="약/주사/재료 처방상세내역 (전환대상 처방에 한함)" class="sta_POP_title" position="absolute 12 8 395 28" positiontype="position"/>
  8. <Button id="button6" taborder="1" text="TypeⅡ" onlbuttonup="button6_onlbuttonup" class="btn2" position="absolute 644 46 708 66" positiontype="position" onclick="button6_onclick"/>
  9. <Grid id="grd_subprcplist" taborder="2" useinputpanel="false" position="absolute 12 69 708 446" onlbuttonDown="grd_subprcplist_onlbuttonDown" binddataset="ds_grid_grd_subprcplist" scrollbars="autoboth" positiontype="position" onbuttondown="grd_subprcplist_onbuttondown" onmouseleave="grd_subprcplist_onmouseleave" onbuttonup="grd_subprcplist_onbuttonup" onrbuttondown="grd_subprcplist_onrbuttondown" cellsizingtype="col" oncellclick="grd_subprcplist_oncellclick">
  10. <Formats>
  11. <Format id="default">
  12. <Columns>
  13. <Column size="19"/>
  14. <Column size="61"/>
  15. <Column size="20"/>
  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="117"/>
  23. <Column size="126"/>
  24. <Column size="100"/>
  25. <Column size="100"/>
  26. <Column size="100"/>
  27. <Column size="100"/>
  28. <Column size="100"/>
  29. <Column size="100"/>
  30. <Column size="100"/>
  31. <Column size="100"/>
  32. <Column size="100"/>
  33. <Column size="100"/>
  34. <Column size="100"/>
  35. <Column size="100"/>
  36. <Column size="100"/>
  37. <Column size="100"/>
  38. <Column size="100"/>
  39. <Column size="100"/>
  40. <Column size="100"/>
  41. <Column size="100"/>
  42. <Column size="100"/>
  43. <Column size="100"/>
  44. <Column size="100"/>
  45. <Column size="100"/>
  46. <Column size="100"/>
  47. <Column size="100"/>
  48. <Column size="100"/>
  49. <Column size="100"/>
  50. <Column size="100"/>
  51. <Column size="100"/>
  52. <Column size="100"/>
  53. </Columns>
  54. <Rows>
  55. <Row size="24" band="head"/>
  56. <Row size="24"/>
  57. </Rows>
  58. <Band id="head">
  59. <Cell/>
  60. <Cell col="1" text="상태"/>
  61. <Cell col="2" text="M"/>
  62. <Cell col="3" text="처방코드"/>
  63. <Cell col="4" text="처방명"/>
  64. <Cell col="5" text="처방일자"/>
  65. <Cell col="6" text="접수일시"/>
  66. <Cell col="7" text="실시일자"/>
  67. <Cell col="8" text="결과일시"/>
  68. <Cell col="9" text="처방시행부서"/>
  69. <Cell col="10" text="시행부서"/>
  70. <Cell col="11" text="pid"/>
  71. <Cell col="12" text="prcpno"/>
  72. <Cell col="13" text="execprcpuniqno"/>
  73. <Cell col="14" text="gubn"/>
  74. <Cell col="15" text="rcptdd"/>
  75. <Cell col="16" text="prcpclscd"/>
  76. <Cell col="17" text="carecnfmdd"/>
  77. <Cell col="18" text="prcpgenrflag"/>
  78. <Cell col="19" text="orddeptcd"/>
  79. <Cell col="20" text="orddrid"/>
  80. <Cell col="21" text="ioflag"/>
  81. <Cell col="22" text="cretno"/>
  82. <Cell col="23" text="prcphistno"/>
  83. <Cell col="24" text="opansflagcd"/>
  84. <Cell col="25" text="suppdeptcd"/>
  85. <Cell col="26" text="orddd"/>
  86. <Cell col="27" text="inclprcpcd"/>
  87. <Cell col="28" text="inclprcpno"/>
  88. <Cell col="29" text="rootgubn"/>
  89. <Cell col="30" text="execprcphistcd"/>
  90. <Cell col="31" text="execprcpstatcd"/>
  91. <Cell col="32" text="prcpflag"/>
  92. <Cell col="33" text="prcpvol"/>
  93. <Cell col="34" text="prcpvolunitflag"/>
  94. <Cell col="35" text="prcpqty"/>
  95. <Cell col="36" text="prcpqtyunitflag"/>
  96. <Cell col="37" text="prcptims"/>
  97. <Cell col="38" text="drugmthdspccd"/>
  98. <Cell col="39" text="eccdyn"/>
  99. </Band>
  100. <Band id="body">
  101. <Cell displaytype="checkbox" edittype="checkbox" text="bind:check" expr="expr:check == &quot;Y&quot;?&quot;1&quot;:&quot;0&quot;"/>
  102. <Cell col="1" text="bind:statcd"/>
  103. <Cell col="2" text="bind:mset"/>
  104. <Cell col="3" style="align:left middle;" text="bind:calcscorcd"/>
  105. <Cell col="4" style="align:left middle;" text="bind:prcpnm"/>
  106. <Cell col="5" text="bind:prcpdd" mask="####-##-##"/>
  107. <Cell col="6" text="bind:acptdt" mask="####-##-##"/>
  108. <Cell col="7" text="bind:execdd" mask="####-##-##"/>
  109. <Cell col="8" text="bind:cnfmdt" mask="####-##-##"/>
  110. <Cell col="9" displaytype="combo" edittype="combo" text="bind:prcpexecdeptcd" combodataset="ds_cmb_initprcpexecdeptcd" combocodecol="prcpexecdeptcdid" combodatacol="prcpexecdeptcdnm"/>
  111. <Cell col="10" displaytype="combo" edittype="combo" text="bind:execdeptcd" combodataset="ds_cmb_initprcpexecdeptcd" combocodecol="prcpexecdeptcdid" combodatacol="prcpexecdeptcdnm"/>
  112. <Cell col="11" text="bind:payflagcd"/>
  113. <Cell col="12" text="bind:pid"/>
  114. <Cell col="13" text="bind:prcpno"/>
  115. <Cell col="14" text="bind:execprcpuniqno"/>
  116. <Cell col="15" text="bind:gubn"/>
  117. <Cell col="16" text="bind:rcptdd"/>
  118. <Cell col="17" text="bind:prcpclscd"/>
  119. <Cell col="18" text="bind:carecnfmdd"/>
  120. <Cell col="19" text="bind:prcpgenrflag"/>
  121. <Cell col="20" text="bind:orddeptcd"/>
  122. <Cell col="21" text="bind:orddrid"/>
  123. <Cell col="22" text="bind:ioflag"/>
  124. <Cell col="23" text="bind:cretno"/>
  125. <Cell col="24" text="bind:prcphistno"/>
  126. <Cell col="25" text="bind:opansflagcd"/>
  127. <Cell col="26" text="bind:suppdeptcd"/>
  128. <Cell col="27" text="bind:orddd"/>
  129. <Cell col="28" text="bind:inclprcpcd"/>
  130. <Cell col="29" text="bind:inclprcpno"/>
  131. <Cell col="30" text="bind:rootgubn"/>
  132. <Cell col="31" text="bind:execprcphistcd"/>
  133. <Cell col="32" text="bind:execprcpstatcd"/>
  134. <Cell col="33" text="bind:prcpflag"/>
  135. <Cell col="34" text="bind:prcpvol"/>
  136. <Cell col="35" text="bind:prcpvolunitflag"/>
  137. <Cell col="36" text="bind:prcpqty"/>
  138. <Cell col="37" text="bind:prcpqtyunitflag"/>
  139. <Cell col="38" text="bind:prcptims"/>
  140. <Cell col="39" text="bind:drugmthdspccd"/>
  141. <Cell col="40"/>
  142. <Cell col="41"/>
  143. <Cell col="42"/>
  144. <Cell col="43"/>
  145. </Band>
  146. </Format>
  147. </Formats>
  148. </Grid>
  149. <Grid id="grd_prcplist" taborder="3" useinputpanel="false" visible="false" position="absolute 161 207 569 375" binddataset="ds_grid_grd_prcplist" positiontype="position">
  150. <Formats>
  151. <Format id="default">
  152. <Columns>
  153. <Column size="16"/>
  154. <Column size="62"/>
  155. <Column size="61"/>
  156. <Column size="38"/>
  157. <Column size="73"/>
  158. <Column size="58"/>
  159. <Column size="76"/>
  160. <Column size="104"/>
  161. <Column size="70"/>
  162. <Column size="41"/>
  163. <Column size="109"/>
  164. <Column size="137"/>
  165. <Column size="101"/>
  166. <Column size="62"/>
  167. <Column size="60"/>
  168. <Column size="0"/>
  169. <Column size="68"/>
  170. <Column size="100"/>
  171. <Column size="100"/>
  172. <Column size="39"/>
  173. <Column size="49"/>
  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. <Column size="0"/>
  204. <Column size="0"/>
  205. <Column size="0"/>
  206. <Column size="0"/>
  207. <Column size="0"/>
  208. <Column size="0"/>
  209. </Columns>
  210. <Rows>
  211. <Row size="24" band="head"/>
  212. <Row size="24"/>
  213. </Rows>
  214. <Band id="head">
  215. <Cell/>
  216. <Cell col="1" text="등록번호"/>
  217. <Cell col="2" text="성명"/>
  218. <Cell col="3" text="S/A"/>
  219. <Cell col="4" text="진료과"/>
  220. <Cell col="5" text="진료의"/>
  221. <Cell col="6" text="처방코드"/>
  222. <Cell col="7" text="처방일자"/>
  223. <Cell col="8" text="처방상태"/>
  224. <Cell col="9" text="병실"/>
  225. <Cell col="10" text="예약일자"/>
  226. <Cell col="11" text="처방명"/>
  227. <Cell col="12" text="실시일자"/>
  228. <Cell col="13" text="실시자"/>
  229. <Cell col="14" text="예약자"/>
  230. <Cell col="15" text="수납여부"/>
  231. <Cell col="16" text="취소코드"/>
  232. <Cell col="17" text="전화번호1"/>
  233. <Cell col="18" text="전화번호2"/>
  234. <Cell col="19" text="키"/>
  235. <Cell col="20" text="몸무게"/>
  236. <Cell col="21" text="execprcpuniqno"/>
  237. <Cell col="22" text="prcpexecdeptcd"/>
  238. <Cell col="23" text="excuroomcd"/>
  239. <Cell col="24" text="inflag"/>
  240. <Cell col="25" text="rcptacptyn"/>
  241. <Cell col="26" text="ExecBaseFlag"/>
  242. <Cell col="27" text="excupartcd"/>
  243. <Cell col="28" text="modality"/>
  244. <Cell col="29" text="execrem"/>
  245. <Cell col="30" text="prcpdelivefact"/>
  246. <Cell col="31" text="carecnfmdd"/>
  247. <Cell col="32" text="prcpkindcd"/>
  248. <Cell col="33" text="rcptno"/>
  249. <Cell col="34" text="acptseqno"/>
  250. <Cell col="35" text="prcpgenrflag"/>
  251. <Cell col="36" text="orddd"/>
  252. <Cell col="37" text="orddeptcd"/>
  253. <Cell col="38" text="rcptdd"/>
  254. <Cell col="39" text="orddrid"/>
  255. <Cell col="40" text="prcpno"/>
  256. <Cell col="41" text="EqmtIFYn"/>
  257. <Cell col="42" text="basesuppdeptcd"/>
  258. <Cell col="43" text="cretno"/>
  259. <Cell col="44" text="wardcd"/>
  260. <Cell col="45" text="rsrvdt"/>
  261. <Cell col="46" text="rgstdeptcd"/>
  262. <Cell col="47" text="rgstrid"/>
  263. <Cell col="48" text="inclprcpcd"/>
  264. <Cell col="49" text="lrgcd"/>
  265. <Cell col="50" text="mdlcd"/>
  266. <Cell col="51" text="actorddd"/>
  267. <Cell col="52" text="examroomnm"/>
  268. <Cell col="53" text="prcphistno"/>
  269. <Cell col="54" text="pacsnocretyn"/>
  270. <Cell col="55" text="execprcpstatcd"/>
  271. </Band>
  272. <Band id="body">
  273. <Cell text="bind:check" edittype="checkbox" displaytype="checkbox"/>
  274. <Cell col="1" text="bind:pid"/>
  275. <Cell col="2" text="bind:hngnm"/>
  276. <Cell col="3" text="bind:sna"/>
  277. <Cell col="4" text="bind:orddepthngnm"/>
  278. <Cell col="5" text="bind:orddrnm"/>
  279. <Cell col="6" text="bind:calcscorcd"/>
  280. <Cell col="7" text="bind:prcpdt" mask="@@@@-@@-@@ @@:@@"/>
  281. <Cell col="8" enable="false" text="bind:statcd"/>
  282. <Cell col="9" text="bind:roomcd"/>
  283. <Cell col="10" text="bind:srchrsrvdt" mask="@@@@-@@-@@ @@:@@"/>
  284. <Cell col="11" text="bind:prcpnm"/>
  285. <Cell col="12" text="bind:execdt" mask="@@@@-@@-@@ @@:@@"/>
  286. <Cell col="13" text="bind:execrid1" edittype="combo" displaytype="combo"/>
  287. <Cell col="14" text="bind:rsrvrnm"/>
  288. <Cell col="15" text="bind:rcptyn"/>
  289. <Cell col="16" text="bind:basecd"/>
  290. <Cell col="17" text="bind:hometel"/>
  291. <Cell col="18" text="bind:mpphontel"/>
  292. <Cell col="19" text="bind:hight"/>
  293. <Cell col="20" text="bind:weight"/>
  294. <Cell col="21" text="bind:execprcpuniqno"/>
  295. <Cell col="22" text="bind:prcpexecdeptcd"/>
  296. <Cell col="23" text="bind:excuroomcd"/>
  297. <Cell col="24" text="bind:inflag"/>
  298. <Cell col="25" text="bind:rcptacptyn"/>
  299. <Cell col="26" text="bind:execbaseflag"/>
  300. <Cell col="27" text="bind:excupartcd"/>
  301. <Cell col="28" text="bind:modality"/>
  302. <Cell col="29" text="bind:execrem"/>
  303. <Cell col="30" text="bind:prcpdelivefact"/>
  304. <Cell col="31" text="bind:carecnfmdd"/>
  305. <Cell col="32" text="bind:prcpkindcd"/>
  306. <Cell col="33" text="bind:rcptno"/>
  307. <Cell col="34" text="bind:acptseqno"/>
  308. <Cell col="35" text="bind:prcpgenrflag"/>
  309. <Cell col="36" text="bind:orddd"/>
  310. <Cell col="37" text="bind:orddeptcd"/>
  311. <Cell col="38" text="bind:rcptdd"/>
  312. <Cell col="39" text="bind:orddrid"/>
  313. <Cell col="40" text="bind:prcpno"/>
  314. <Cell col="41" text="bind:eqmtifyn"/>
  315. <Cell col="42" text="bind:basesuppdeptcd"/>
  316. <Cell col="43" text="bind:cretno"/>
  317. <Cell col="44" text="bind:wardcd"/>
  318. <Cell col="45" text="bind:rsrvdt"/>
  319. <Cell col="46" text="bind:rgstdeptcd"/>
  320. <Cell col="47" text="bind:rgstrid"/>
  321. <Cell col="48" text="bind:inclprcpcd"/>
  322. <Cell col="49" text="bind:lrgcd"/>
  323. <Cell col="50" text="bind:mdlcd"/>
  324. <Cell col="51" text="bind:actorddd"/>
  325. <Cell col="52" text="bind:examroomnm"/>
  326. <Cell col="53" text="bind:prcphistno"/>
  327. <Cell col="54" text="bind:pacsnocretyn"/>
  328. <Cell col="55" text="bind:execprcpstatcd"/>
  329. </Band>
  330. </Format>
  331. </Formats>
  332. </Grid>
  333. <Button id="button9" taborder="4" text="닫기" onlbuttonup="button9_onlbuttonup" class="btn4" position="absolute 652 449 708 469" positiontype="position" onclick="button9_onclick"/>
  334. <Button id="Button00" taborder="5" class="btn_POP_cls" position="absolute 694 12 708 25" onclick="Button00_onclick"/>
  335. </Layout>
  336. </Layouts>
  337. <Objects>
  338. <Dataset id="ds_grid_grd_subprcplist" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false" oncolumnchanged="ds_grid_grd_subprcplist_oncolumnchanged">
  339. <ColumnInfo>
  340. <Column id="check" type="STRING"/>
  341. <Column id="statcd" type="STRING"/>
  342. <Column id="mset" type="STRING"/>
  343. <Column id="calcscorcd" type="STRING"/>
  344. <Column id="prcpnm" type="STRING"/>
  345. <Column id="prcpdd" type="STRING"/>
  346. <Column id="acptdt" type="STRING"/>
  347. <Column id="execdd" type="STRING"/>
  348. <Column id="cnfmdt" type="STRING"/>
  349. <Column id="prcpexecdeptcd" type="STRING"/>
  350. <Column id="execdeptcd" type="STRING"/>
  351. <Column id="payflagcd" type="STRING"/>
  352. <Column id="pid" type="STRING"/>
  353. <Column id="prcpno" type="STRING"/>
  354. <Column id="execprcpuniqno" type="STRING"/>
  355. <Column id="gubn" type="STRING"/>
  356. <Column id="rcptdd" type="STRING"/>
  357. <Column id="prcpclscd" type="STRING"/>
  358. <Column id="carecnfmdd" type="STRING"/>
  359. <Column id="prcpgenrflag" type="STRING"/>
  360. <Column id="orddeptcd" type="STRING"/>
  361. <Column id="orddrid" type="STRING"/>
  362. <Column id="ioflag" type="STRING"/>
  363. <Column id="cretno" type="STRING"/>
  364. <Column id="prcphistno" type="STRING"/>
  365. <Column id="opansflagcd" type="STRING"/>
  366. <Column id="suppdeptcd" type="STRING"/>
  367. <Column id="orddd" type="STRING"/>
  368. <Column id="inclprcpcd" type="STRING"/>
  369. <Column id="inclprcpno" type="STRING"/>
  370. <Column id="rootgubn" type="STRING"/>
  371. <Column id="execprcphistcd" type="STRING"/>
  372. <Column id="execprcpstatcd" type="STRING"/>
  373. <Column id="prcpflag" type="STRING"/>
  374. <Column id="prcpvol" type="STRING"/>
  375. <Column id="prcpvolunitflag" type="STRING"/>
  376. <Column id="prcpqty" type="STRING"/>
  377. <Column id="prcpqtyunitflag" type="STRING"/>
  378. <Column id="prcptims" type="STRING"/>
  379. <Column id="drugmthdspccd" type="STRING"/>
  380. <Column id="prcpcd" type="STRING" size="256"/>
  381. <Column id="opdrid" type="STRING" size="256"/>
  382. <Column id="endobed" type="STRING" size="256"/>
  383. <Column id="endoscope" type="STRING" size="256"/>
  384. <Column id="scopecleanser" type="STRING" size="256"/>
  385. <Column id="acptrem" type="STRING" size="256"/>
  386. <Column id="eqmtifyn" type="STRING" size="256"/>
  387. <Column id="rgstdeptcd" type="STRING" size="256"/>
  388. <Column id="rgstrid" type="STRING" size="256"/>
  389. <Column id="prcpkindcd" type="STRING" size="256"/>
  390. <Column id="excuroomcd" type="STRING" size="256"/>
  391. <Column id="roomcd" type="STRING" size="256"/>
  392. <Column id="indd" type="STRING" size="256"/>
  393. <Column id="excucd" type="STRING" size="256"/>
  394. <Column id="execbaseflag" type="STRING" size="256"/>
  395. <Column id="prcpsignflag" type="STRING" size="256"/>
  396. <Column id="aftcertflag" type="STRING" size="256"/>
  397. <Column id="aftcertdrid" type="STRING" size="256"/>
  398. </ColumnInfo>
  399. </Dataset>
  400. <Dataset id="ds_grid_grd_prcplist" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
  401. <ColumnInfo>
  402. <Column id="check" type="STRING"/>
  403. <Column id="pid" type="STRING"/>
  404. <Column id="hngnm" type="STRING"/>
  405. <Column id="sna" type="STRING"/>
  406. <Column id="orddepthngnm" type="STRING"/>
  407. <Column id="orddrnm" type="STRING"/>
  408. <Column id="calcscorcd" type="STRING"/>
  409. <Column id="prcpdt" type="STRING"/>
  410. <Column id="statcd" type="STRING"/>
  411. <Column id="roomcd" type="STRING"/>
  412. <Column id="srchrsrvdt" type="STRING"/>
  413. <Column id="prcpnm" type="STRING"/>
  414. <Column id="execdt" type="STRING"/>
  415. <Column id="execrid1" type="STRING"/>
  416. <Column id="rsrvrnm" type="STRING"/>
  417. <Column id="rcptyn" type="STRING"/>
  418. <Column id="basecd" type="STRING"/>
  419. <Column id="hometel" type="STRING"/>
  420. <Column id="mpphontel" type="STRING"/>
  421. <Column id="hight" type="STRING"/>
  422. <Column id="weight" type="STRING"/>
  423. <Column id="execprcpuniqno" type="STRING"/>
  424. <Column id="prcpexecdeptcd" type="STRING"/>
  425. <Column id="excuroomcd" type="STRING"/>
  426. <Column id="inflag" type="STRING"/>
  427. <Column id="rcptacptyn" type="STRING"/>
  428. <Column id="execbaseflag" type="STRING"/>
  429. <Column id="excupartcd" type="STRING"/>
  430. <Column id="modality" type="STRING"/>
  431. <Column id="execrem" type="STRING"/>
  432. <Column id="prcpdelivefact" type="STRING"/>
  433. <Column id="carecnfmdd" type="STRING"/>
  434. <Column id="prcpkindcd" type="STRING"/>
  435. <Column id="rcptno" type="STRING"/>
  436. <Column id="acptseqno" type="STRING"/>
  437. <Column id="prcpgenrflag" type="STRING"/>
  438. <Column id="orddd" type="STRING"/>
  439. <Column id="orddeptcd" type="STRING"/>
  440. <Column id="rcptdd" type="STRING"/>
  441. <Column id="orddrid" type="STRING"/>
  442. <Column id="prcpno" type="STRING"/>
  443. <Column id="eqmtifyn" type="STRING"/>
  444. <Column id="basesuppdeptcd" type="STRING"/>
  445. <Column id="cretno" type="STRING"/>
  446. <Column id="wardcd" type="STRING"/>
  447. <Column id="rsrvdt" type="STRING"/>
  448. <Column id="rgstdeptcd" type="STRING"/>
  449. <Column id="rgstrid" type="STRING"/>
  450. <Column id="inclprcpcd" type="STRING"/>
  451. <Column id="lrgcd" type="STRING"/>
  452. <Column id="mdlcd" type="STRING"/>
  453. <Column id="actorddd" type="STRING"/>
  454. <Column id="examroomnm" type="STRING"/>
  455. <Column id="prcphistno" type="STRING"/>
  456. <Column id="pacsnocretyn" type="STRING"/>
  457. <Column id="execprcpstatcd" type="STRING"/>
  458. <Column id="ioflag" type="STRING" size="256"/>
  459. <Column id="prcpdd" type="STRING" size="256"/>
  460. <Column id="age" type="STRING" size="256"/>
  461. <Column id="instcd" type="STRING" size="256"/>
  462. </ColumnInfo>
  463. <Rows>
  464. <Row>
  465. <Col id="check"/>
  466. <Col id="pid"/>
  467. <Col id="hngnm"/>
  468. <Col id="sna"/>
  469. <Col id="orddepthngnm"/>
  470. <Col id="orddrnm"/>
  471. <Col id="calcscorcd"/>
  472. <Col id="prcpdt"/>
  473. <Col id="statcd"/>
  474. <Col id="roomcd"/>
  475. <Col id="srchrsrvdt"/>
  476. <Col id="prcpnm"/>
  477. <Col id="execdt"/>
  478. <Col id="execrid1"/>
  479. <Col id="rsrvrnm"/>
  480. <Col id="rcptyn"/>
  481. <Col id="basecd"/>
  482. <Col id="hometel"/>
  483. <Col id="mpphontel"/>
  484. <Col id="hight"/>
  485. <Col id="weight"/>
  486. <Col id="execprcpuniqno"/>
  487. <Col id="prcpexecdeptcd"/>
  488. <Col id="excuroomcd"/>
  489. <Col id="inflag"/>
  490. <Col id="rcptacptyn"/>
  491. <Col id="execbaseflag"/>
  492. <Col id="excupartcd"/>
  493. <Col id="modality"/>
  494. <Col id="execrem"/>
  495. <Col id="prcpdelivefact"/>
  496. <Col id="carecnfmdd"/>
  497. <Col id="prcpkindcd"/>
  498. <Col id="rcptno"/>
  499. <Col id="acptseqno"/>
  500. <Col id="prcpgenrflag"/>
  501. <Col id="orddd"/>
  502. <Col id="orddeptcd"/>
  503. <Col id="rcptdd"/>
  504. <Col id="orddrid"/>
  505. <Col id="prcpno"/>
  506. <Col id="eqmtifyn"/>
  507. <Col id="basesuppdeptcd"/>
  508. <Col id="cretno"/>
  509. <Col id="wardcd"/>
  510. <Col id="rsrvdt"/>
  511. <Col id="rgstdeptcd"/>
  512. <Col id="rgstrid"/>
  513. <Col id="inclprcpcd"/>
  514. <Col id="lrgcd"/>
  515. <Col id="mdlcd"/>
  516. <Col id="actorddd"/>
  517. <Col id="examroomnm"/>
  518. <Col id="prcphistno"/>
  519. <Col id="pacsnocretyn"/>
  520. <Col id="execprcpstatcd"/>
  521. </Row>
  522. </Rows>
  523. </Dataset>
  524. <Dataset id="ds_send_data" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  525. <ColumnInfo>
  526. <Column id="prcpgenrflag" type="STRING" size="256"/>
  527. <Column id="prcpdd" type="STRING" size="256"/>
  528. <Column id="execprcpuniqno" type="STRING" size="256"/>
  529. <Column id="pid" type="STRING" size="256"/>
  530. <Column id="orddd" type="STRING" size="256"/>
  531. <Column id="basesuppdeptcd" type="STRING" size="256"/>
  532. <Column id="largeclass" type="STRING" size="256"/>
  533. <Column id="sublist" type="STRING" size="256"/>
  534. <Column id="ioflag" type="STRING" size="256"/>
  535. </ColumnInfo>
  536. <Rows>
  537. <Row>
  538. <Col id="prcpgenrflag"/>
  539. <Col id="prcpdd"/>
  540. <Col id="execprcpuniqno"/>
  541. <Col id="pid"/>
  542. <Col id="orddd"/>
  543. <Col id="basesuppdeptcd"/>
  544. </Row>
  545. </Rows>
  546. </Dataset>
  547. <Dataset id="ds_cmb_initprcpexecdeptcd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  548. <ColumnInfo>
  549. <Column id="prcpexecdeptcdid" type="STRING" size="256"/>
  550. <Column id="prcpexecdeptcdnm" type="STRING" size="256"/>
  551. </ColumnInfo>
  552. </Dataset>
  553. <Dataset id="ds_send_data_tobeacptprcp" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  554. <ColumnInfo>
  555. <Column id="execprcpstat610cd" type="STRING" size="256"/>
  556. <Column id="prcpdd" type="STRING" size="256"/>
  557. <Column id="pid" type="STRING" size="256"/>
  558. <Column id="prcpno" type="STRING" size="256"/>
  559. <Column id="execprcpuniqno" type="STRING" size="256"/>
  560. <Column id="excuexectodd" type="STRING" size="256"/>
  561. <Column id="excuexectotm" type="STRING" size="256"/>
  562. <Column id="execrid1" type="STRING" size="256"/>
  563. <Column id="execprcpstatcd" type="STRING" size="256"/>
  564. <Column id="gubn" type="STRING" size="256"/>
  565. <Column id="basesuppdeptcd" type="STRING" size="256"/>
  566. <Column id="calcscorcd" type="STRING" size="256"/>
  567. <Column id="prcpcd" type="STRING" size="256"/>
  568. <Column id="opdrid" type="STRING" size="256"/>
  569. <Column id="endobed" type="STRING" size="256"/>
  570. <Column id="endoscope" type="STRING" size="256"/>
  571. <Column id="scopecleanser" type="STRING" size="256"/>
  572. <Column id="acptrem" type="STRING" size="256"/>
  573. <Column id="eqmtifyn" type="STRING" size="256"/>
  574. <Column id="orddd" type="STRING" size="256"/>
  575. <Column id="orddeptcd" type="STRING" size="256"/>
  576. <Column id="orddrid" type="STRING" size="256"/>
  577. <Column id="rgstdeptcd" type="STRING" size="256"/>
  578. <Column id="rgstrid" type="STRING" size="256"/>
  579. <Column id="execprcpstat440cd" type="STRING" size="256"/>
  580. <Column id="prcpgenrflag" type="STRING" size="256"/>
  581. <Column id="prcpkindcd" type="STRING" size="256"/>
  582. <Column id="excuroomcd" type="STRING" size="256"/>
  583. <Column id="cretno" type="STRING" size="256"/>
  584. <Column id="roomcd" type="STRING" size="256"/>
  585. <Column id="indd" type="STRING" size="256"/>
  586. <Column id="excucd" type="STRING" size="256"/>
  587. <Column id="prcpexecdeptcd" type="STRING" size="256"/>
  588. <Column id="rsltdd" type="STRING" size="256"/>
  589. <Column id="rslttm" type="STRING" size="256"/>
  590. <Column id="rsltno" type="STRING" size="256"/>
  591. <Column id="rsltseqno" type="STRING" size="256"/>
  592. <Column id="cnfmdt" type="STRING" size="256"/>
  593. <Column id="cnfmmanid" type="STRING" size="256"/>
  594. <Column id="execbaseflag" type="STRING" size="256"/>
  595. <Column id="eqmtifimgyn" type="STRING" size="256"/>
  596. <Column id="ocrimgyn" type="STRING" size="256"/>
  597. <Column id="rslttmplyn" type="STRING" size="256"/>
  598. <Column id="autroomassgyn" type="STRING" size="256"/>
  599. </ColumnInfo>
  600. <Rows>
  601. <Row>
  602. <Col id="execprcpstat610cd"/>
  603. <Col id="prcpdd"/>
  604. <Col id="pid"/>
  605. <Col id="prcpno"/>
  606. <Col id="execprcpuniqno"/>
  607. <Col id="excuexectodd"/>
  608. <Col id="excuexectotm"/>
  609. <Col id="execrid1"/>
  610. <Col id="execprcpstatcd"/>
  611. <Col id="gubn"/>
  612. <Col id="basesuppdeptcd"/>
  613. <Col id="calcscorcd"/>
  614. <Col id="prcpcd"/>
  615. <Col id="opdrid"/>
  616. <Col id="endobed"/>
  617. <Col id="endoscope"/>
  618. <Col id="scopecleanser"/>
  619. <Col id="acptrem"/>
  620. <Col id="eqmtifyn"/>
  621. <Col id="orddd"/>
  622. <Col id="orddeptcd"/>
  623. <Col id="orddrid"/>
  624. <Col id="rgstdeptcd"/>
  625. <Col id="rgstrid"/>
  626. <Col id="execprcpstat440cd"/>
  627. <Col id="prcpgenrflag"/>
  628. <Col id="prcpkindcd"/>
  629. <Col id="excuroomcd"/>
  630. <Col id="cretno"/>
  631. <Col id="roomcd"/>
  632. <Col id="indd"/>
  633. <Col id="excucd"/>
  634. <Col id="prcpexecdeptcd"/>
  635. <Col id="rsltdd"/>
  636. <Col id="rslttm"/>
  637. <Col id="rsltno"/>
  638. <Col id="rsltseqno"/>
  639. <Col id="cnfmdt"/>
  640. <Col id="cnfmmanid"/>
  641. <Col id="execbaseflag"/>
  642. <Col id="eqmtifimgyn"/>
  643. <Col id="ocrimgyn"/>
  644. <Col id="rslttmplyn"/>
  645. <Col id="autroomassgyn"/>
  646. </Row>
  647. </Rows>
  648. </Dataset>
  649. <Dataset id="ds_count" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  650. <ColumnInfo>
  651. <Column id="count" type="STRING" size="256"/>
  652. </ColumnInfo>
  653. <Rows>
  654. <Row>
  655. <Col id="count"/>
  656. </Row>
  657. </Rows>
  658. </Dataset>
  659. <Dataset id="ds_send_data_cncltobeacptprcp" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  660. <ColumnInfo>
  661. <Column id="execprcpstat440cd" type="STRING" size="256"/>
  662. <Column id="execprcpstat610cd" type="STRING" size="256"/>
  663. <Column id="execprcpstat230cd" type="STRING" size="256"/>
  664. <Column id="execprcpstat100cd" type="STRING" size="256"/>
  665. <Column id="execprcpstat000cd" type="STRING" size="256"/>
  666. <Column id="prcpdd" type="STRING" size="256"/>
  667. <Column id="pid" type="STRING" size="256"/>
  668. <Column id="prcpno" type="STRING" size="256"/>
  669. <Column id="execprcpuniqno" type="STRING" size="256"/>
  670. <Column id="excuexectodd" type="STRING" size="256"/>
  671. <Column id="excuexectotm" type="STRING" size="256"/>
  672. <Column id="carecnfmdd" type="STRING" size="256"/>
  673. <Column id="rcptdd" type="STRING" size="256"/>
  674. <Column id="execrid1" type="STRING" size="256"/>
  675. <Column id="execprcpstatcd" type="STRING" size="256"/>
  676. <Column id="gubn" type="STRING" size="256"/>
  677. <Column id="tretflagcd" type="STRING" size="256"/>
  678. <Column id="basesuppdeptcd" type="STRING" size="256"/>
  679. <Column id="calcscorcd" type="STRING" size="256"/>
  680. </ColumnInfo>
  681. <Rows>
  682. <Row>
  683. <Col id="execprcpstat440cd">440</Col>
  684. <Col id="execprcpstat610cd">610</Col>
  685. <Col id="execprcpstat230cd">230</Col>
  686. <Col id="execprcpstat100cd">100</Col>
  687. <Col id="execprcpstat000cd">000</Col>
  688. <Col id="prcpdd"/>
  689. <Col id="pid"/>
  690. <Col id="prcpno"/>
  691. <Col id="execprcpuniqno"/>
  692. <Col id="excuexectodd">00000000</Col>
  693. <Col id="excuexectotm">000000</Col>
  694. <Col id="carecnfmdd"/>
  695. <Col id="rcptdd"/>
  696. <Col id="execrid1">-</Col>
  697. <Col id="execprcpstatcd"/>
  698. <Col id="gubn"/>
  699. <Col id="tretflagcd">610</Col>
  700. <Col id="basesuppdeptcd"/>
  701. <Col id="calcscorcd"/>
  702. </Row>
  703. </Rows>
  704. </Dataset>
  705. <Dataset id="ds_send_data_dctobeacptprcp" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  706. <ColumnInfo>
  707. <Column id="status" type="STRING" size="256"/>
  708. <Column id="prcpdd" type="STRING" size="256"/>
  709. <Column id="prcpgenrflag" type="STRING" size="256"/>
  710. <Column id="pid" type="STRING" size="256"/>
  711. <Column id="orddeptcd" type="STRING" size="256"/>
  712. <Column id="orddrid" type="STRING" size="256"/>
  713. <Column id="suppdeptcd" type="STRING" size="256"/>
  714. <Column id="prcpcd" type="STRING" size="256"/>
  715. <Column id="ioflag" type="STRING" size="256"/>
  716. <Column id="cretno" type="STRING" size="256"/>
  717. <Column id="orddd" type="STRING" size="256"/>
  718. <Column id="indd" type="STRING" size="256"/>
  719. <Column id="opansflagcd" type="STRING" size="256"/>
  720. <Column id="prcphistno" type="STRING" size="256"/>
  721. <Column id="prcpno" type="STRING" size="256"/>
  722. <Column id="calcscorcd" type="STRING" size="256"/>
  723. <Column id="inclprcpno" type="STRING" size="256"/>
  724. <Column id="inclprcpcd" type="STRING" size="256"/>
  725. <Column id="execprcpstatcd" type="STRING" size="256"/>
  726. <Column id="execprcpuniqno" type="STRING" size="256"/>
  727. <Column id="rootgubn" type="STRING" size="256"/>
  728. <Column id="prcpsignflag" type="STRING" size="256"/>
  729. <Column id="aftcertflag" type="STRING" size="256"/>
  730. <Column id="aftcertdrid" type="STRING" size="256"/>
  731. </ColumnInfo>
  732. <Rows>
  733. <Row>
  734. <Col id="status">C</Col>
  735. <Col id="prcpdd"/>
  736. <Col id="prcpgenrflag"/>
  737. <Col id="pid"/>
  738. <Col id="orddeptcd"/>
  739. <Col id="orddrid"/>
  740. <Col id="suppdeptcd"/>
  741. <Col id="prcpcd"/>
  742. <Col id="ioflag"/>
  743. <Col id="cretno"/>
  744. <Col id="orddd"/>
  745. <Col id="indd"/>
  746. <Col id="opansflagcd"/>
  747. <Col id="prcphistno"/>
  748. <Col id="prcpno"/>
  749. <Col id="calcscorcd"/>
  750. <Col id="inclprcpno"/>
  751. <Col id="inclprcpcd"/>
  752. <Col id="execprcpstatcd"/>
  753. <Col id="execprcpuniqno"/>
  754. <Col id="rootgubn"/>
  755. <Col id="prcpsignflag"/>
  756. <Col id="aftcertflag"/>
  757. <Col id="aftcertdrid"/>
  758. </Row>
  759. </Rows>
  760. </Dataset>
  761. <Dataset id="ds_deptcdlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  762. <ColumnInfo>
  763. <Column id="deptcdflag" type="STRING" size="256"/>
  764. </ColumnInfo>
  765. </Dataset>
  766. <Dataset id="ds_init_popupdata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  767. </Objects>
  768. <Script type="xscript4.0"><![CDATA[/***************************************************************************************
  769. * System Name : KU2.0
  770. * Job Name :
  771. * File Name :
  772. * Creator :
  773. * Make Date : 2016-03-22
  774. *
  775. * Description :
  776. *
  777. *---------------------------------------------------------------------------------------
  778. ****************************************************************************************/
  779. //=======================================================================================
  780. // xjs Include
  781. //---------------------------------------------------------------------------------------
  782. include "com_commonxp::comm_main.xjs";
  783. include "ast_examcurexp::AEZ0001.xjs";
  784. //=======================================================================================
  785. // Function
  786. //---------------------------------------------------------------------------------------
  787. /*******************************************************************************************************************************************************************/
  788. //약/주사/재료 액팅
  789. /*******************************************************************************************************************************************************************/
  790. function fprcpacting() {
  791. var j=0;
  792. for(var i=0; i<ds_grid_grd_subprcplist.getRowCount(); i++){
  793. if(ds_grid_grd_subprcplist.getColumn(i, "check") == "Y"){
  794. j++;
  795. }
  796. }
  797. if(j==0){
  798. sysf_messageBox("처방내역을","C002");
  799. return "0";
  800. }else{
  801. for(var i = 0;i<ds_grid_grd_subprcplist.getRowCount(); i++){
  802. if(ds_grid_grd_subprcplist.getColumn(i, "check") == "Y"){
  803. if(ds_grid_grd_subprcplist.getColumn(i, "execprcphistcd") == "E" || ds_grid_grd_subprcplist.getColumn(i, "execprcphistcd") == "D" || ds_grid_grd_subprcplist.getColumn(i, "execprcphistcd") == "L"){
  804. sysf_messageBox("이미 반환된 처방","E008");
  805. return "0";
  806. }
  807. if(ds_grid_grd_subprcplist.getColumn(i, "execprcphistcd") == "O" && ds_grid_grd_subprcplist.getColumn(i, "execprcpstatcd") >= "610"){
  808. sysf_messageBox("실시완료된 처방","E008");
  809. return "0";
  810. }
  811. if(ds_grid_grd_subprcplist.getColumn(i, "eccdyn") == "Y"){
  812. sysf_messageBox("약/주사/재료처방만","C002");
  813. return "0";
  814. }
  815. }
  816. }
  817. }
  818. // 처방 -> 검사접수/실시완료
  819. if (sysf_messageBox("실시를 ","Q002")==6 ) {
  820. f_TXAEA01508(); // transaction 1
  821. }
  822. //반환처방 색상주기
  823. //grdf_setRowStyle("grd_subprcplist" , "2" , "E" , "execprcphistcd","equal" );
  824. //grdf_setRowStyle("grd_subprcplist" , "2" , "D" , "execprcphistcd","equal" );
  825. //grdf_setRowStyle("grd_subprcplist" , "2" , "L" , "execprcphistcd","equal" );
  826. }
  827. /*******************************************************************************************************************************************************************/
  828. // 약/주사 /재료 액팅취소
  829. /*******************************************************************************************************************************************************************/
  830. function fprcpactingcncl() {
  831. var j=0;
  832. for(var i=0; i<ds_grid_grd_subprcplist.getRowCount(); i++){
  833. if(ds_grid_grd_subprcplist.getColumn(i, "check") == "Y"){
  834. j++;
  835. }
  836. }
  837. if(j==0){
  838. sysf_messageBox("처방내역을","C002");
  839. return "0";
  840. }else{
  841. for(var i = 0;i<ds_grid_grd_subprcplist.getRowCount(); i++){
  842. if(ds_grid_grd_subprcplist.getColumn(i, "check") == "Y"){
  843. if(ds_grid_grd_subprcplist.getColumn(i, "execprcphistcd") == "E" || ds_grid_grd_subprcplist.getColumn(i, "execprcphistcd") == "D" || ds_grid_grd_subprcplist.getColumn(i, "execprcphistcd") == "L"){
  844. sysf_messageBox("이미 반환된 처방","E008");
  845. return "0";
  846. }
  847. if(ds_grid_grd_subprcplist.getColumn(i, "execprcphistcd") == "O" && toNumber(ds_grid_grd_subprcplist.getColumn(i, "execprcpstatcd")) < "610"){
  848. sysf_messageBox("실시되지 않은 처방","E008");
  849. return "0";
  850. }
  851. if(ds_grid_grd_subprcplist.getColumn(i, "execprcphistcd") == "O" && toNumber(ds_grid_grd_subprcplist.getColumn(i, "execprcpstatcd")) > "610"){
  852. sysf_messageBox("판독완료된 처방","E008");
  853. return "0";
  854. }
  855. }
  856. }
  857. }
  858. // 처방 -> 검사접수/실시완료
  859. if (sysf_messageBox("실시를 ","Q002")==6 ) {
  860. f_TXAEA01509(); // transaction 1
  861. }
  862. //반환처방 색상주기
  863. grdf_setRowStyle("grd_subprcplist" , "2" , "E" , "execprcphistcd","equal" );
  864. grdf_setRowStyle("grd_subprcplist" , "2" , "D" , "execprcphistcd","equal" );
  865. grdf_setRowStyle("grd_subprcplist" , "2" , "L" , "execprcphistcd","equal" );
  866. }
  867. /*******************************************************************************************************************************************************************/
  868. // 처방내역에서 처방반환
  869. /*******************************************************************************************************************************************************************/
  870. function fprcpdc() {
  871. var j=0;
  872. for(var i=0; i<ds_grid_grd_subprcplist.getRowCount(); i++){
  873. if(ds_grid_grd_subprcplist.getColumn(i, "check") == "Y"){
  874. j++;
  875. }
  876. }
  877. if(j==0){
  878. sysf_messageBox("처방내역을","C002");
  879. return "0";
  880. }else{
  881. for(var i = 0;i<ds_grid_grd_subprcplist.getRowCount(); i++){
  882. if(ds_grid_grd_subprcplist.getColumn(i, "check") == "Y"){
  883. if(ds_grid_grd_subprcplist.getColumn(i, "execprcphistcd") == "E" || ds_grid_grd_subprcplist.getColumn(i, "execprcphistcd") == "D" || ds_grid_grd_subprcplist.getColumn(i, "execprcphistcd") == "L"){
  884. sysf_messageBox("이미 반환된 처방","E008");
  885. return "0";
  886. }
  887. if(ds_grid_grd_subprcplist.getColumn(i, "execprcphistcd") == "O" && ds_grid_grd_subprcplist.getColumn(i, "execprcpstatcd") == "610"){
  888. sysf_messageBox("실시된 처방","E008","취소 후 반환하십시오");
  889. return "0";
  890. }
  891. if(ds_grid_grd_subprcplist.getColumn(i, "execprcphistcd") == "O" && ds_grid_grd_subprcplist.getColumn(i, "execprcpstatcd") == "440"){
  892. sysf_messageBox("접수된 처방","E008","취소 후 반환하십시오");
  893. return "0";
  894. }
  895. }
  896. }
  897. }
  898. // 처방 -> 검사접수/실시완료
  899. if (sysf_messageBox("실시를 ","Q002")==6 ) {
  900. f_TXAEA01510(); // transaction 1
  901. }
  902. //반환처방 색상주기
  903. setRowStyle("grd_subprcplist" , "2" , "E" , "execprcphistcd","equal" );
  904. setRowStyle("grd_subprcplist" , "2" , "D" , "execprcphistcd","equal" );
  905. setRowStyle("grd_subprcplist" , "2" , "L" , "execprcphistcd","equal" );
  906. }
  907. /*******************************************************************************************************************************************************************/
  908. // 간호일지Type2 처방정보 세팅
  909. /*******************************************************************************************************************************************************************/
  910. function fMakeParameter() {
  911. var Prcpparam = "";
  912. rowsep = "▩";
  913. colsep = "▦";
  914. param = "prcpflag" + colsep + "prcpnm" + rowsep;
  915. var check ="";
  916. var prcpflag="";
  917. var prcpcd = "";
  918. var prcpnm = "";
  919. var prcpvol = "";
  920. var prcpvolunitflag="";
  921. var prcpqty = "";
  922. var prcpqtyunitflag = "";
  923. var prcptims = "";
  924. var drugmthdspccd = "";
  925. var abbrnm = "";
  926. var prcpdeliverfact = "";
  927. for(var i = 0;i<ds_grid_grd_subprcplist.getRowCount();i++){
  928. check = ds_grid_grd_subprcplist.getColumn(i, "check");
  929. if(check == "Y"){
  930. prcpflag = ds_grid_grd_subprcplist.getColumn(i, "prcpclscd");
  931. prcpcd = ds_grid_grd_subprcplist.getColumn(i, "prcpcd");
  932. prcpnm = ds_grid_grd_subprcplist.getColumn(i, "prcpnm");
  933. prcpvol = ds_grid_grd_subprcplist.getColumn(i, "prcpvol");
  934. prcpvolunitflag = ds_grid_grd_subprcplist.getColumn(i, "prcpvolunitflag");
  935. prcpqty = ds_grid_grd_subprcplist.getColumn(i, "prcpqty");
  936. prcpqtyunitflag = ds_grid_grd_subprcplist.getColumn(i, "prcpqtyunitflag");
  937. prcptims = ds_grid_grd_subprcplist.getColumn(i, "prcptims");
  938. dugmthdspccd = ds_grid_grd_subprcplist.getColumn(i, "drugmthdspccd");
  939. abbrnm = "수정예정!!";
  940. if(prcpflag=="A2" || prcpflag == "A4" || prcpflag == "A6"){
  941. param += prcpflag.substr(0,1) + colsep + prcpcd + "/" + prcpnm + "/" + prcpvol + "/" + prcpvolunitflag + "/" + prcpqty + "/" + prcpqtyunitflag + "/" + prcptims + "/" + dugmthdspccd + "/" + abbrnm + rowsep;
  942. }else if(prcpflag=="B2" || prcpflag=="B4" || prcpflag=="B6" || prcpflag=="C2" || prcpflag=="C4" || prcpflag=="D2" || prcpflag=="E2" || prcpflag=="H4"){
  943. prcpdelivefact = ds_grid_grd_subprcplist.getColumn(i, "prcpdelivefact");
  944. param += prcpflag.substr(0,1) + colsep + prcpnm + "/" + prcpqty + prcpdeliverfact + rowsep;
  945. }
  946. }
  947. }
  948. return param;
  949. }
  950. function f_TRAEB00205(){// 수행부서 코드 가져오기
  951. dsf_createDsRow("ds_send_req",
  952. [{col:"instance1", val:suppdeptcd}]);
  953. var objParam = new Object();
  954. objParam.id = "TRAEB00205";
  955. objParam.service = "examcurebaseapp.ComCode";
  956. objParam.method = "reqGetPrcpExecDeptCdList";
  957. objParam.inds = "req=ds_send_req";
  958. objParam.outds ="ds_cmb_initprcpexecdeptcd=item";
  959. objParam.callback = "cbf_TRAEB00205";
  960. objParam.alert = false;
  961. tranf_submit(objParam);
  962. }
  963. function cbf_TRAEB00205(sSvcId, objErrorCode, objErrorMsg){
  964. }
  965. function f_TRAEA01127(){// 수행부서 코드 가져오기
  966. ds_send_data.setColumn(0, "prcpgenrflag", ds_grid_grd_prcplist.getColumn(0, "prcpgenrflag"));
  967. ds_send_data.setColumn(0, "prcpdd", ds_grid_grd_prcplist.getColumn(0, "prcpdd"));
  968. ds_send_data.setColumn(0, "execprcpuniqno", ds_grid_grd_prcplist.getColumn(0, "execprcpuniqno"));
  969. ds_send_data.setColumn(0, "pid", ds_grid_grd_prcplist.getColumn(0, "pid"));
  970. ds_send_data.setColumn(0, "orddd", ds_grid_grd_prcplist.getColumn(0, "orddd"));
  971. ds_send_data.setColumn(0, "basesuppdeptcd", ds_grid_grd_prcplist.getColumn(0, "basesuppdeptcd"));
  972. ds_send_data.setColumn(0, "largeclass", "M4");
  973. ds_send_data.setColumn(0, "sublist", "sub");
  974. ds_send_data.setColumn(0, "ioflag", ds_grid_grd_prcplist.getColumn(0, "ioflag"));
  975. var objParam = new Object();
  976. objParam.id = "TRAEA01127";
  977. objParam.service = "examcureacptexecapp.ExamCureAcpt";
  978. objParam.method = "reqGetEscopDetailExecPrcpList";
  979. objParam.inds = "reqparam=ds_send_data";
  980. objParam.outds ="ds_grid_grd_subprcplist=examcureexecprcplist ds_deptcdlist=deptcdlist";
  981. objParam.callback = "cbf_TRAEA01127";
  982. objParam.alert = false;
  983. tranf_submit(objParam);
  984. }
  985. function cbf_TRAEA01127(sSvcId, objErrorCode, objErrorMsg){
  986. for(var i=0; i<ds_grid_grd_subprcplist.getRowCount(); i++){
  987. ds_grid_grd_subprcplist.setColumn(i, "check", "N");
  988. }
  989. }
  990. function f_TXAEA01508(){
  991. ds_send_data_tobeacptprcp.setColumn(0, "execprcpstat610cd", "610");
  992. ds_send_data_tobeacptprcp.setColumn(0, "prcpdd", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "prcpdd"));
  993. ds_send_data_tobeacptprcp.setColumn(0, "pid", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "pid"));
  994. ds_send_data_tobeacptprcp.setColumn(0, "prcpno", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "prcpno"));
  995. ds_send_data_tobeacptprcp.setColumn(0, "execprcpuniqno", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "execprcpuniqno"));
  996. ds_send_data_tobeacptprcp.setColumn(0, "excuexectodd", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "execdd"));
  997. ds_send_data_tobeacptprcp.setColumn(0, "excuexectotm", "-");
  998. ds_send_data_tobeacptprcp.setColumn(0, "execrid1", "-");
  999. ds_send_data_tobeacptprcp.setColumn(0, "execprcpstatcd", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "execprcpstatcd"));
  1000. ds_send_data_tobeacptprcp.setColumn(0, "gubn", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "gubn"));
  1001. ds_send_data_tobeacptprcp.setColumn(0, "basesuppdeptcd", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "suppdeptcd"));
  1002. ds_send_data_tobeacptprcp.setColumn(0, "calcscorcd", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "calcscorcd"));
  1003. ds_send_data_tobeacptprcp.setColumn(0, "prcpcd", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "prcpcd"));
  1004. ds_send_data_tobeacptprcp.setColumn(0, "opdrid", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "opdrid"));
  1005. ds_send_data_tobeacptprcp.setColumn(0, "endobed", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "endobed"));
  1006. ds_send_data_tobeacptprcp.setColumn(0, "endoscope", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "endoscope"));
  1007. ds_send_data_tobeacptprcp.setColumn(0, "scopecleanser", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "scopecleanser"));
  1008. ds_send_data_tobeacptprcp.setColumn(0, "acptrem", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "acptrem"));
  1009. ds_send_data_tobeacptprcp.setColumn(0, "eqmtifyn", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "eqmtifyn"));
  1010. ds_send_data_tobeacptprcp.setColumn(0, "orddd", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "orddd"));
  1011. ds_send_data_tobeacptprcp.setColumn(0, "orddeptcd", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "orddeptcd"));
  1012. ds_send_data_tobeacptprcp.setColumn(0, "orddrid", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "orddrid"));
  1013. ds_send_data_tobeacptprcp.setColumn(0, "rgstdeptcd", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "rgstdeptcd"));
  1014. ds_send_data_tobeacptprcp.setColumn(0, "rgstrid", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "rgstrid"));
  1015. ds_send_data_tobeacptprcp.setColumn(0, "execprcpstat440cd", "610");
  1016. ds_send_data_tobeacptprcp.setColumn(0, "prcpgenrflag", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "prcpgenrflag"));
  1017. ds_send_data_tobeacptprcp.setColumn(0, "prcpkindcd", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "prcpkindcd"));
  1018. ds_send_data_tobeacptprcp.setColumn(0, "excuroomcd", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "excuroomcd"));
  1019. ds_send_data_tobeacptprcp.setColumn(0, "cretno", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "cretno"));
  1020. ds_send_data_tobeacptprcp.setColumn(0, "roomcd", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "roomcd"));
  1021. ds_send_data_tobeacptprcp.setColumn(0, "indd", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "indd"));
  1022. ds_send_data_tobeacptprcp.setColumn(0, "excucd", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "excucd"));
  1023. ds_send_data_tobeacptprcp.setColumn(0, "prcpexecdeptcd", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "prcpexecdeptcd"));
  1024. ds_send_data_tobeacptprcp.setColumn(0, "rsltdd", "00000000");
  1025. ds_send_data_tobeacptprcp.setColumn(0, "rslttm", "000000");
  1026. ds_send_data_tobeacptprcp.setColumn(0, "rsltno", "0");
  1027. ds_send_data_tobeacptprcp.setColumn(0, "rsltseqno", "0");
  1028. ds_send_data_tobeacptprcp.setColumn(0, "cnfmdt", "00000000000000");
  1029. ds_send_data_tobeacptprcp.setColumn(0, "cnfmmanid", "-");
  1030. ds_send_data_tobeacptprcp.setColumn(0, "execbaseflag", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "execbaseflag"));
  1031. ds_send_data_tobeacptprcp.setColumn(0, "eqmtifimgyn", "N");
  1032. ds_send_data_tobeacptprcp.setColumn(0, "ocrimgyn", "N");
  1033. ds_send_data_tobeacptprcp.setColumn(0, "rslttmplyn", "N");
  1034. ds_send_data_tobeacptprcp.setColumn(0, "autroomassgyn", "N");
  1035. var objParam = new Object();
  1036. objParam.id = "TXAEA01508";
  1037. objParam.service = "examcureacptexecapp.ExamCureAcpt";
  1038. objParam.method = "reqExeAddPrcpList";
  1039. objParam.inds = "req=ds_send_data_tobeacptprcp";
  1040. objParam.outds ="ds_count=item";
  1041. objParam.error =false;
  1042. objParam.callback = "cbf_TXAEA01508";
  1043. objParam.alert = false;
  1044. tranf_submit(objParam);
  1045. }
  1046. function cbf_TXAEA01508(sSvcId, objErrorCode, objErrorMsg){
  1047. //에러 처리
  1048. if(objErrorMsg == 0){
  1049. f_TRAEA01127();
  1050. }else{
  1051. astErrorMsg(objErrorMsg);
  1052. }
  1053. }
  1054. function f_TXAEA01509(){
  1055. ds_send_data_cncltobeacptprcp.setColumn(0, "prcpdd", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "prcpdd"));
  1056. ds_send_data_cncltobeacptprcp.setColumn(0, "pid", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "pid"));
  1057. ds_send_data_cncltobeacptprcp.setColumn(0, "prcpno", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "prcpno"));
  1058. ds_send_data_cncltobeacptprcp.setColumn(0, "execprcpuniqno", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "execprcpuniqno"));
  1059. ds_send_data_cncltobeacptprcp.setColumn(0, "carecnfmdd", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "carecnfmdd"));
  1060. ds_send_data_cncltobeacptprcp.setColumn(0, "rcptdd", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "rcptdd"));
  1061. ds_send_data_cncltobeacptprcp.setColumn(0, "execprcpstatcd", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "execprcpstatcd"));
  1062. ds_send_data_cncltobeacptprcp.setColumn(0, "gubn", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "gubn"));
  1063. ds_send_data_cncltobeacptprcp.setColumn(0, "basesuppdeptcd", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "suppdeptcd"));
  1064. ds_send_data_cncltobeacptprcp.setColumn(0, "calcscorcd", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "calcscorcd"));
  1065. var objParam = new Object();
  1066. objParam.id = "TXAEA01509";
  1067. objParam.service = "examcureacptexecapp.ExamCureAcpt";
  1068. objParam.method = "reqExeAddPrcpCnclList";
  1069. objParam.inds = "req=ds_send_data_cncltobeacptprcp";
  1070. objParam.outds ="ds_count=item";
  1071. objParam.error =false;
  1072. objParam.callback = "cbf_TXAEA01509";
  1073. objParam.alert = false;
  1074. tranf_submit(objParam);
  1075. }
  1076. function cbf_TXAEA01509(sSvcId, objErrorCode, objErrorMsg){
  1077. if(objErrorMsg == 0){
  1078. f_TRAEA01127();
  1079. }else{
  1080. astErrorMsg(objErrorMsg);
  1081. }
  1082. }
  1083. function f_TXAEA01510(){
  1084. ds_send_data_dctobeacptprcp.setColumn(0, "prcpdd", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "prcpdd"));
  1085. ds_send_data_dctobeacptprcp.setColumn(0, "prcpgenrflag", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "prcpgenrflag"));
  1086. ds_send_data_dctobeacptprcp.setColumn(0, "pid", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "pid"));
  1087. ds_send_data_dctobeacptprcp.setColumn(0, "orddeptcd", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "orddeptcd"));
  1088. ds_send_data_dctobeacptprcp.setColumn(0, "orddrid", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "orddrid"));
  1089. ds_send_data_dctobeacptprcp.setColumn(0, "suppdeptcd", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "suppdeptcd"));
  1090. ds_send_data_dctobeacptprcp.setColumn(0, "prcpcd", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "calcscorcd"));
  1091. ds_send_data_dctobeacptprcp.setColumn(0, "ioflag", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "ioflag"));
  1092. ds_send_data_dctobeacptprcp.setColumn(0, "cretno", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "cretno"));
  1093. ds_send_data_dctobeacptprcp.setColumn(0, "orddd", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "orddd"));
  1094. ds_send_data_dctobeacptprcp.setColumn(0, "indd", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "orddd"));
  1095. ds_send_data_dctobeacptprcp.setColumn(0, "opansflagcd", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "opansflagcd"));
  1096. ds_send_data_dctobeacptprcp.setColumn(0, "prcphistno", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "prcphistno"));
  1097. ds_send_data_dctobeacptprcp.setColumn(0, "prcpno", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "prcpno"));
  1098. ds_send_data_dctobeacptprcp.setColumn(0, "calcscorcd", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "calcscorcd"));
  1099. ds_send_data_dctobeacptprcp.setColumn(0, "inclprcpno", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "inclprcpno"));
  1100. ds_send_data_dctobeacptprcp.setColumn(0, "inclprcpcd", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "inclprcpcd"));
  1101. ds_send_data_dctobeacptprcp.setColumn(0, "execprcpstatcd", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "execprcpstatcd"));
  1102. ds_send_data_dctobeacptprcp.setColumn(0, "execprcpuniqno", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "execprcpuniqno"));
  1103. ds_send_data_dctobeacptprcp.setColumn(0, "rootgubn", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "rootgubn"));
  1104. ds_send_data_dctobeacptprcp.setColumn(0, "prcpsignflag", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "prcpsignflag"));
  1105. ds_send_data_dctobeacptprcp.setColumn(0, "aftcertflag", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "aftcertflag"));
  1106. ds_send_data_dctobeacptprcp.setColumn(0, "aftcertdrid", ds_grid_grd_subprcplist.getColumn(ds_grid_grd_subprcplist.rowposition, "aftcertdrid"));
  1107. var objParam = new Object();
  1108. objParam.id = "TXAEA01510";
  1109. objParam.service = "examcureacptexecapp.ExamCureAcpt";
  1110. objParam.method = "reqExeExecPrcpDCList";
  1111. objParam.inds = "mcdprcp=ds_send_data_dctobeacptprcp";
  1112. objParam.outds ="ds_count=item";
  1113. objParam.error =false;
  1114. objParam.callback = "cbf_TXAEA01510";
  1115. objParam.alert = false;
  1116. tranf_submit(objParam);
  1117. }
  1118. function cbf_TXAEA01510(sSvcId, objErrorCode, objErrorMsg){
  1119. if(objErrorMsg == 0){
  1120. f_TRAEA01127();
  1121. }else{
  1122. astErrorMsg(objErrorMsg);
  1123. }
  1124. }
  1125. //=======================================================================================
  1126. // Event
  1127. //---------------------------------------------------------------------------------------
  1128. /****************************************************************************************
  1129. * Components :
  1130. * Components ID : SPAEA01105
  1131. * Event : onload
  1132. * Argument : 01.obj : Object Event has occurred
  1133. * : 02.e : Event Object
  1134. * Description :
  1135. ****************************************************************************************/
  1136. function SPAEA01105_onload(obj:Form, e:LoadEventInfo)
  1137. {
  1138. frmf_initForm(obj); // 화면공통
  1139. lf_aezfSetSuppDeptcd();
  1140. ds_grid_grd_prcplist.copyData(arg_ds_init_popupdata);
  1141. grdf_initGrid(grd_subprcplist);
  1142. // 수행부서 코드 가져오기
  1143. f_TRAEB00205();
  1144. f_TRAEA01127();
  1145. lf_init_SPAEA01105();
  1146. }
  1147. /****************************************************************************************
  1148. * Components :
  1149. * Components ID : button6
  1150. * Event : onclick
  1151. * Argument : 01.obj : Object Event has occurred
  1152. * : 02.e : Event Object
  1153. * Description :
  1154. ****************************************************************************************/
  1155. function button6_onclick(obj:Button, e:ClickEventInfo)
  1156. {
  1157. //*******************************************************************************************************************************************************************/
  1158. // 간호기록(Type II) 화면을 호출하기 위한 파라미터 값 세팅
  1159. //*******************************************************************************************************************************************************************/
  1160. // [기록 구분 정보]
  1161. // SMMNR03400_AST :pid ▦ instcd ▦ hngnm ▦ age ▦ cretno ▦ ioflag ▦ orddeptcd ▦ orddrid ▩(기능검사 환자정보)
  1162. //
  1163. // - 기록구분(recflag) :
  1164. // O : 외래, I : 주사실, C : 외래항암
  1165. // D : DSC, S : 전문간호, H : 가정간호,
  1166. // E : 응급실, A : 마취과, R : 회복실,
  1167. // L : 투석실, B : 혈당기록, P : 수술실,
  1168. // X : 간클리닉 K : 기관지경실 X : 내시경 Y : 부정맥 Z : Echo
  1169. //
  1170. //
  1171. //
  1172. // - 부서코드(dutplaccd) :
  1173. // 001 : 가정 005 : 병동 009 : 외래 013 : 통원 017 : 외래항암
  1174. // 002 : 간클리닉 006 : 부정맥 010 : 응급 014 : 투석 900 : 수술
  1175. // 003 : 기관지 007 : 분만 011 : 전문 015 : 혈당 900 : 마취
  1176. // 004 : 내시경 008 : 성분 012 : 주사 016 : Echo 900 : 회복
  1177. //
  1178. // - 처방구분(prcpflag)
  1179. // A : 투약
  1180. // H : 처치
  1181. // T : 검사
  1182. for(var i=0;i<ds_grid_grd_prcplist.getRowCount();i++){
  1183. var orddd = ds_grid_grd_prcplist.getColumn(i, "orddd");
  1184. var cretno = ds_grid_grd_prcplist.getColumn(i, "cretno");
  1185. var instcd = "012";
  1186. var orddeptcd = ds_grid_grd_prcplist.getColumn(i, "orddeptcd");
  1187. var orddrid = ds_grid_grd_prcplist.getColumn(i, "orddrid");
  1188. var pid = ds_grid_grd_prcplist.getColumn(i, "pid");
  1189. var sPid = ds_grid_grd_prcplist.getColumn(i, "pid");
  1190. var hngnm = ds_grid_grd_prcplist.getColumn(i, "hngnm");
  1191. var age = ds_grid_grd_prcplist.getColumn(i, "age");
  1192. var ioflag = ds_grid_grd_prcplist.getColumn(i, "prcpgenrflag");
  1193. }
  1194. var dutplaccd = ds_deptcdlist.getColumn(0, "deptcdflag");
  1195. if(dutplaccd == "002"){ //간클리닉
  1196. var recflag = "X";
  1197. }
  1198. if(dutplaccd == "003 "){ //기관지
  1199. var recflag = "K";
  1200. }
  1201. if(dutplaccd == "004"){ //내시경
  1202. var recflag = "X";
  1203. }
  1204. if(dutplaccd == "006"){ //부정맥
  1205. var recflag = "Y";
  1206. }
  1207. if(dutplaccd == "016"){ //Echo
  1208. var recflag = "Z";
  1209. }else{ //외래
  1210. var recflag = "O";
  1211. }
  1212. var Baseparam = "recflag▦dutplaccd▦reclnkkey▩"+recflag+"▦"+ dutplaccd +"▦" + sPid + "," + orddd + "," + cretno +"," + instcd + "," + orddeptcd + "▩";
  1213. var ASTparam = "pid ▦ instcd ▦ hngnm ▦ age ▦ orddd ▦ cretno ▦ ioflag ▦ orddeptcd ▦ orddrid ▩" + pid + "▦" + instcd + "▦" + hngnm + "▦" + age + "▦"+ orddd + "▦" + cretno+ "▦" + ioflag + "▦" + orddeptcd + "▦" + orddrid + "▩";
  1214. var Prcpparam = fMakeParameter();
  1215. frmf_setParameter("SMMNR03400_ParamBase", Baseparam);
  1216. frmf_setParameter("SMMNR03400_AST", ASTparam );
  1217. frmf_setParameter("SMMNR03400_ParamPrcp", Prcpparam);
  1218. var rtnObj = frmf_modal("SMMNR03400", "SMMNR03400", "", "", "", "", "", "", "", "", "", "", "M");
  1219. }
  1220. /****************************************************************************************
  1221. * Components :
  1222. * Components ID : button9
  1223. * Event : onclick
  1224. * Argument : 01.obj : Object Event has occurred
  1225. * : 02.e : Event Object
  1226. * Description :
  1227. ****************************************************************************************/
  1228. function button9_onclick(obj:Button, e:ClickEventInfo)
  1229. {
  1230. this.close();
  1231. }
  1232. function Button00_onclick(obj:Button, e:ClickEventInfo)
  1233. {
  1234. this.close();
  1235. }
  1236. /****************************************************************************************
  1237. * Components :
  1238. * Components ID : grd_subprcplist
  1239. * Event : onrbuttondown
  1240. * Argument : 01.obj : Object Event has occurred
  1241. * : 02.e : Event Object
  1242. * Description :
  1243. ****************************************************************************************/
  1244. function grd_subprcplist_onrbuttondown(obj:Grid, e:GridMouseEventInfo)
  1245. {
  1246. ds_grid_grd_subprcplist.rowposition = e.row;
  1247. pmn_popupMenu.trackPopup(e.screenX,e.screenY);
  1248. }
  1249. function lf_init_SPAEA01105(){
  1250. frmf_createPopupMenu("pmn_popupMenu", "pmn_popupMenu_onmenuclick", [{id: "fprcpacting", level: "1", title: "약/주사/재료 액팅"}
  1251. , {id: "fprcpactingcncl", level: "1", title: "약/주사/재료 액팅취소"}
  1252. , {id: "", level: "1", title: "-"}
  1253. , {id: "fprcpdc", level: "1", title: "처방반환"}
  1254. ]);
  1255. }
  1256. function pmn_popupMenu_onmenuclick(obj:PopupMenu, e:MenuClickEventInfo){
  1257. if(e.id == "fprcpacting"){
  1258. fprcpacting();
  1259. }else if(e.id == "fprcpactingcncl"){
  1260. fprcpactingcncl();
  1261. }else if(e.id == "fprcpdc"){
  1262. fprcpdc();
  1263. }
  1264. }
  1265. function ds_grid_grd_subprcplist_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
  1266. {
  1267. if(e.columnid == "check"){
  1268. if(e.newvalue == "1"){
  1269. ds_grid_grd_subprcplist.setColumn(e.row, "check", "Y");
  1270. }else{
  1271. ds_grid_grd_subprcplist.setColumn(e.row, "check", "N");
  1272. }
  1273. }
  1274. }
  1275. function grd_subprcplist_oncellclick(obj:Grid, e:GridClickEventInfo)
  1276. {
  1277. for(var i = 0; i<ds_grid_grd_subprcplist.getRowCount(); i++){
  1278. ds_grid_grd_subprcplist.setColumn(i, "check", "0");
  1279. }
  1280. ds_grid_grd_subprcplist.setColumn(ds_grid_grd_subprcplist.rowposition, "check", "1");
  1281. }
  1282. ]]></Script>
  1283. </Form>
  1284. </FDL>