SPAER01800_대체처방.xfdl 51 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081
  1. <?xml version="1.0" encoding="utf-8"?>
  2. <FDL version="1.5">
  3. <TypeDefinition url="..\..\..\default_typedef.xml"/>
  4. <Form id="SPAER01800" position="absolute 0 0 1166 587" titletext="대체처방" oninit="SPAER01800_oninit" onload="SPAER01800_onload">
  5. <Layouts>
  6. <Layout>
  7. <Div position="absolute 0 2 1165 554" id="grp_biz" scrollbars="autoboth">
  8. <Layouts>
  9. <Layout>
  10. <Shape position="absolute 0 91 420 97" id="line9" class="line_10" anchor="default"/>
  11. <Button position="absolute 356 71 420 91" id="button4" class="btn5" text="처방복사" anchor="default" onclick="grp_biz_button4_onclick"/>
  12. <Static text="처방리스트" position="absolute 0 75 120 93" id="caption41" class="tit_2" anchor="default"/>
  13. <Grid position="absolute 0 96 420 546" id="grd_excuprcplist" scrollbars="autoboth" binddataset="ds_main_excuprcplist_excuprcp" anchor="default" cellsizingtype="both" extendsizetype="row" autofittype="col" oncelldblclick="grp_biz_grd_excuprcplist_oncelldblclick">
  14. <Formats>
  15. <Format id="default">
  16. <Columns>
  17. <Column size="30" band="left"/>
  18. <Column size="30"/>
  19. <Column size="76"/>
  20. <Column size="270"/>
  21. <Column size="0"/>
  22. <Column size="0"/>
  23. <Column size="0"/>
  24. </Columns>
  25. <Rows>
  26. <Row size="24" band="head"/>
  27. <Row size="24"/>
  28. </Rows>
  29. <Band id="head">
  30. <Cell/>
  31. <Cell col="1" text="선택"/>
  32. <Cell col="2" text="처방코드"/>
  33. <Cell col="3" text="처방명"/>
  34. <Cell col="4" text="caption1"/>
  35. <Cell col="5" text="caption2"/>
  36. <Cell col="6" text="처방분류"/>
  37. </Band>
  38. <Band id="body">
  39. <Cell celltype="head" text="expr:currow+1"/>
  40. <Cell col="1" displaytype="checkbox" edittype="checkbox" style="background:EXPR(fSetBackGround(currow));background2:EXPR(fSetBackGround(currow));" text="bind:check" expr="expr:(check==&quot;Y&quot;||check==1)?1:0"/>
  41. <Cell col="2" displaytype="text" style="background:EXPR(fSetBackGround(currow));background2:EXPR(fSetBackGround(currow));" text="bind:excucd"/>
  42. <Cell col="3" displaytype="text" style="align:left top;padding:4 2 0 2;background:EXPR(fSetBackGround(currow));background2:EXPR(fSetBackGround(currow));" text="bind:excucdnm" wordwrap="char"/>
  43. <Cell col="4" text="bind:excuroomcd"/>
  44. <Cell col="5" text="bind:excupartcd"/>
  45. <Cell col="6" text="bind:prcpclscd"/>
  46. </Band>
  47. </Format>
  48. </Formats>
  49. </Grid>
  50. <Static text="원처방" position="absolute 425 75 505 95" id="caption2" class="tit_2" anchor="default"/>
  51. <Shape position="absolute 425 91 1164 97" linetype="horizontal" id="line1" class="line_10" anchor="default"/>
  52. <Grid position="absolute 425 96 1164 216" id="grd_direcprcp" scrollbars="autoboth" binddataset="ds_main_direcprcplist_direcprcp" anchor="default" cellsizingtype="both" extendsizetype="row">
  53. <Formats>
  54. <Format id="default">
  55. <Columns>
  56. <Column size="25" band="left"/>
  57. <Column size="33"/>
  58. <Column size="75"/>
  59. <Column size="279"/>
  60. <Column size="64"/>
  61. <Column size="64"/>
  62. <Column size="64"/>
  63. <Column size="75"/>
  64. <Column size="61"/>
  65. <Column size="0"/>
  66. <Column size="0"/>
  67. <Column size="0"/>
  68. <Column size="0"/>
  69. <Column size="0"/>
  70. <Column size="0"/>
  71. <Column size="0"/>
  72. <Column size="0"/>
  73. <Column size="0"/>
  74. <Column size="0"/>
  75. <Column size="0"/>
  76. <Column size="0"/>
  77. <Column size="0"/>
  78. <Column size="0"/>
  79. <Column size="0"/>
  80. <Column size="0"/>
  81. <Column size="0"/>
  82. <Column size="0"/>
  83. <Column size="0"/>
  84. <Column size="32"/>
  85. <Column size="67"/>
  86. <Column size="0"/>
  87. </Columns>
  88. <Rows>
  89. <Row size="24" band="head"/>
  90. <Row size="24"/>
  91. </Rows>
  92. <Band id="head">
  93. <Cell/>
  94. <Cell col="1" text="선택"/>
  95. <Cell col="2" text="적용일자"/>
  96. <Cell col="3" text="지시처방명"/>
  97. <Cell col="4" text="처방의명"/>
  98. <Cell col="5" text="주치의명"/>
  99. <Cell col="6" text="담당의명"/>
  100. <Cell col="7" colspan="2" text="처방입력일시" taborder="undefined"/>
  101. <Cell col="9" text="caption1"/>
  102. <Cell col="10" text="caption2"/>
  103. <Cell col="11" text="caption3"/>
  104. <Cell col="12" text="caption4"/>
  105. <Cell col="13" text="caption5"/>
  106. <Cell col="14" text="caption6"/>
  107. <Cell col="15" text="caption7"/>
  108. <Cell col="16" text="caption8"/>
  109. <Cell col="17" text="caption9"/>
  110. <Cell col="18" text="caption10"/>
  111. <Cell col="19" text="caption14"/>
  112. <Cell col="20" text="orddrid"/>
  113. <Cell col="21" text="caption16"/>
  114. <Cell col="22" text="caption11"/>
  115. <Cell col="23" text="caption12"/>
  116. <Cell col="24" text="caption13"/>
  117. <Cell col="25" text="caption17"/>
  118. <Cell col="26" text="caption18"/>
  119. <Cell col="27" text="caption19"/>
  120. <Cell col="28" colspan="2" text="선택진료" taborder="undefined"/>
  121. <Cell col="30" text="제2시술"/>
  122. </Band>
  123. <Band id="body">
  124. <Cell celltype="head" text="expr:currow+1"/>
  125. <Cell col="1" displaytype="checkbox" style="controlbackground:silver;controlborder:1 solid #708090cc ;" text="bind:check" expr="expr:(check==&quot;Y&quot;||check==1)?1:0" enable="false"/>
  126. <Cell col="2" displaytype="expr:utlf_isNull(prcpdd)?'normal':'date'" text="bind:prcpdd" mask="expr:utlf_isNull(prcpdd)?'':'yyyy-MM-dd'"/>
  127. <Cell col="3" displaytype="text" style="align:left top;padding:4 2 0 2;" text="bind:prcpnm" wordwrap="char"/>
  128. <Cell col="4" text="bind:orddridnm"/>
  129. <Cell col="5" text="bind:atdoctid"/>
  130. <Cell col="6" text="bind:medispclid"/>
  131. <Cell col="7" displaytype="expr:utlf_isNull(rgstdd)?'normal':'date'" text="bind:rgstdd" mask="expr:utlf_isNull(rgstdd)?'':'yyyy-MM-dd'"/>
  132. <Cell col="8" displaytype="expr:utlf_isNull(rgsttm)?'normal':'date'" text="bind:rgsttm" mask="expr:utlf_isNull(rgsttm)?'':'hh:mm:ss'"/>
  133. <Cell col="9" text="bind:pid"/>
  134. <Cell col="10" text="bind:hngnm"/>
  135. <Cell col="11" text="bind:rrgstno"/>
  136. <Cell col="12" text="bind:sex"/>
  137. <Cell col="13" text="bind:age"/>
  138. <Cell col="14" text="bind:prcpgenrflag"/>
  139. <Cell col="15" text="bind:orddeptcd"/>
  140. <Cell col="16" text="bind:execprcpuniqno"/>
  141. <Cell col="17" text="bind:ioflag"/>
  142. <Cell col="18" text="bind:indd"/>
  143. <Cell col="19" text="bind:cretno"/>
  144. <Cell col="20" text="bind:orddrid"/>
  145. <Cell col="21" text="bind:prcpstatcd"/>
  146. <Cell col="22" text="bind:inclprcpcd"/>
  147. <Cell col="23" text="bind:inclprcpno"/>
  148. <Cell col="24" text="bind:prcpsetcd"/>
  149. <Cell col="25" text="bind:prcpno"/>
  150. <Cell col="26" text="bind:prcphistno"/>
  151. <Cell col="27" text="bind:orddd"/>
  152. <Cell col="28" text="bind:specordyn"/>
  153. <Cell col="29" displaytype="combo" edittype="combo" text="bind:specdrid" combodataset="ds_main_specdridlist_item" combocodecol="userid" combodatacol="usernm" enable="true"/>
  154. <Cell col="30" text="bind:drprcpetc11"/>
  155. </Band>
  156. </Format>
  157. </Formats>
  158. </Grid>
  159. <Button position="absolute 1078 221 1164 241" id="button2" class="btn5" text="대체처방발행" anchor="default" onclick="grp_biz_button2_onclick"/>
  160. <Button position="absolute 1012 221 1076 241" id="button5" class="btn5" visible="false" text="결과복사" anchor="default"/>
  161. <Static text="대체처방" position="absolute 425 225 505 247" id="caption11" class="tit_2" anchor="default"/>
  162. <Grid position="absolute 425 246 1164 546" id="grd_execprcplist" scrollbars="autoboth" binddataset="ds_main_execprcplist_execprcp" anchor="default" cellsizingtype="both" extendsizetype="row" onrbuttondown="grp_biz_grd_execprcplist_onrbuttondown" autoenter="select" cellclickbound="cell">
  163. <Formats>
  164. <Format id="default">
  165. <Columns>
  166. <Column size="25" band="left"/>
  167. <Column size="35"/>
  168. <Column size="76"/>
  169. <Column size="213"/>
  170. <Column size="32"/>
  171. <Column size="30"/>
  172. <Column size="32"/>
  173. <Column size="32"/>
  174. <Column size="103"/>
  175. <Column size="54"/>
  176. <Column size="55"/>
  177. <Column size="171"/>
  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. </Columns>
  193. <Rows>
  194. <Row size="24" band="head"/>
  195. <Row size="24"/>
  196. </Rows>
  197. <Band id="head">
  198. <Cell/>
  199. <Cell col="1" text="선택"/>
  200. <Cell col="2" text="처방일자"/>
  201. <Cell col="3" text="처방내역"/>
  202. <Cell col="4" text="용량"/>
  203. <Cell col="5" text="수량"/>
  204. <Cell col="6" text="횟수"/>
  205. <Cell col="7" text="일수"/>
  206. <Cell col="8" text="주부"/>
  207. <Cell col="9" text="급비"/>
  208. <Cell col="10" text="제2시술"/>
  209. <Cell col="11" text="전달사항"/>
  210. <Cell col="12" text="prcpcd"/>
  211. <Cell col="13" text="excuroomcd"/>
  212. <Cell col="14" text="caption1"/>
  213. <Cell col="15" text="caption2"/>
  214. <Cell col="16" text="caption3"/>
  215. <Cell col="17" text="caption4"/>
  216. <Cell col="18" text="caption5"/>
  217. <Cell col="19" text="caption6"/>
  218. <Cell col="20" text="caption7"/>
  219. <Cell col="21" text="caption8"/>
  220. <Cell col="22" text="처방분류"/>
  221. <Cell col="23" text="인증구분"/>
  222. <Cell col="24" text="후인증구분"/>
  223. <Cell col="25" text="후인증의사ID"/>
  224. </Band>
  225. <Band id="body">
  226. <Cell celltype="head"/>
  227. <Cell col="1" displaytype="checkbox" edittype="checkbox" text="bind:check" expr="expr:(check==&quot;Y&quot;||check==1)?1:0"/>
  228. <Cell col="2" displaytype="expr:utlf_isNull(prcpdd)?'normal':'date'" text="bind:prcpdd" mask="expr:utlf_isNull(prcpdd)?'':'yyyy-MM-dd'"/>
  229. <Cell col="3" style="align:left top;padding:4 2 0 2;" text="bind:prcpnm" wordwrap="char"/>
  230. <Cell col="4" text="bind:prcpvol" editlimit="2"/>
  231. <Cell col="5" text="bind:prcpqty" editlimit="2"/>
  232. <Cell col="6" text="bind:prcptims" editlimit="2"/>
  233. <Cell col="7" text="bind:prcpdayno" editlimit="2"/>
  234. <Cell col="8" displaytype="combo" edittype="combo" text="bind:opansflagcd" combodataset="ds_init_M0007" combocodecol="cdid" combodatacol="cdnm"/>
  235. <Cell col="9" displaytype="combo" edittype="combo" text="bind:payflagcd" combodataset="ds_init_M0029" combocodecol="cdid" combodatacol="cdnm"/>
  236. <Cell col="10" displaytype="checkbox" edittype="checkbox" text="bind:drprcpetc11" expr="expr:(drprcpetc11==&quot;Y&quot;||drprcpetc11==1)?1:0"/>
  237. <Cell col="11" displaytype="text" edittype="text" style="align:left top;padding:4 2 0 2;" text="bind:prcpdelivefact" wordwrap="char"/>
  238. <Cell col="12" text="bind:prcpcd"/>
  239. <Cell col="13" text="bind:excuroomcd"/>
  240. <Cell col="14" text="bind:prcpno"/>
  241. <Cell col="15" text="bind:certno"/>
  242. <Cell col="16" text="bind:orddeptcd"/>
  243. <Cell col="17" text="bind:orddrid"/>
  244. <Cell col="18" text="bind:ioflag"/>
  245. <Cell col="19" text="bind:orddd"/>
  246. <Cell col="20" text="bind:indd"/>
  247. <Cell col="21" text="bind:excupartcd"/>
  248. <Cell col="22" text="bind:prcpclscd"/>
  249. <Cell col="23" text="bind:prcpsignflag"/>
  250. <Cell col="24" text="bind:aftcertflag"/>
  251. <Cell col="25" text="bind:aftcertdrid"/>
  252. </Band>
  253. </Format>
  254. </Formats>
  255. </Grid>
  256. <Shape position="absolute 425 241 1164 247" id="line7" class="line_10" anchor="default"/>
  257. <Edit position="absolute 195 72 305 91" id="input1" anchor="default" onkeydown="grp_biz_input1_onkeydown"/>
  258. <Button position="absolute 312 71 354 91" id="button1" class="btn5" text="조회" anchor="default" onclick="grp_biz_button1_onclick"/>
  259. <Combo position="absolute 115 72 191 91" id="combo2" class="combo_search" innerdataset="@ds_init_comboexcucd" datacolumn="cdnm" codecolumn="cdid" anchor="default"/>
  260. </Layout>
  261. </Layouts>
  262. </Div>
  263. <Div position="absolute 0 553 1165 580" id="group1" scrollbars="autoboth">
  264. <Layouts>
  265. <Layout>
  266. <Button position="absolute 1108 3 1164 25" id="btn_cfm" class="btn4" visible="false" text="확인" anchor="default" onclick="group1_btn_cfm_onclick"/>
  267. </Layout>
  268. </Layouts>
  269. </Div>
  270. <Static id="caption6" text="대체처방" class="tit_1" position="absolute 0 0 100 25"/>
  271. <Div id="grp_sea" taborder="1" class="div_SA" position="absolute 0 25 1164 65">
  272. <Layouts>
  273. <Layout>
  274. <Static id="caption1" text="등록번호 :" class="search_name" position="absolute 15 13 101 30" anchor="default"/>
  275. <Shape id="line13" linetype="vertical" class="line_4" position="absolute 1056 10 1062 32" anchor="default"/>
  276. <Edit id="ipt_pid" taborder="1" class="input_search" enable="false" position="absolute 104 11 184 30" anchor="default"/>
  277. <Edit id="opt_kornm" taborder="2" class="output" position="absolute 188 11 268 30" anchor="default" readonly="true"/>
  278. <MaskEdit id="opt_rrgstno" taborder="3" readonly="true" mask="999999-9999999" class="output" position="absolute 271 11 381 30" anchor="default" type="string" displaynulltext=" "/>
  279. <Edit id="opt_sex" taborder="4" readonly="true" class="output" position="absolute 384 11 414 30" anchor="default"/>
  280. <Edit id="opt_age" taborder="5" readonly="true" class="output" position="absolute 417 11 447 30" anchor="default"/>
  281. <Button id="btn_search" taborder="6" text="조회" class="btn1" position="absolute 1086 10 1142 32" anchor="default" onclick="grp_sea_btn_search_onclick"/>
  282. <Calendar id="input2" taborder="7" class="input_s_essential" enable="false" position="absolute 551 11 651 30" anchor="default"/>
  283. <Static id="caption9" text="처방일자 :" class="search_name" position="absolute 462 13 548 30" anchor="default"/>
  284. </Layout>
  285. </Layouts>
  286. </Div>
  287. </Layout>
  288. </Layouts>
  289. <Objects>
  290. <Dataset id="ds_main_excuprcplist_excuprcp" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_main_excuprcplist_excuprcp_oncolumnchanged">
  291. <ColumnInfo>
  292. <Column id="check" type="STRING" size="256"/>
  293. <Column id="excucd" type="STRING" size="256"/>
  294. <Column id="excucdnm" type="STRING" size="256"/>
  295. <Column id="excuroomcd" type="STRING" size="256"/>
  296. <Column id="excupartcd" type="STRING" size="256"/>
  297. <Column id="prcpclscd" type="STRING" size="256"/>
  298. </ColumnInfo>
  299. <Rows>
  300. <Row>
  301. <Col id="check"/>
  302. <Col id="excucd"/>
  303. <Col id="excucdnm"/>
  304. <Col id="excuroomcd"/>
  305. <Col id="excupartcd"/>
  306. <Col id="prcpclscd"/>
  307. </Row>
  308. </Rows>
  309. </Dataset>
  310. <Dataset id="ds_main_direcprcplist_direcprcp" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_main_direcprcplist_direcprcp_oncolumnchanged">
  311. <ColumnInfo>
  312. <Column id="check" type="STRING" size="256"/>
  313. <Column id="prcpdd" type="STRING" size="256"/>
  314. <Column id="prcpnm" type="STRING" size="256"/>
  315. <Column id="orddridnm" type="STRING" size="256"/>
  316. <Column id="atdoctid" type="STRING" size="256"/>
  317. <Column id="medispclid" type="STRING" size="256"/>
  318. <Column id="rgstdd" type="STRING" size="256"/>
  319. <Column id="rgsttm" type="STRING" size="256"/>
  320. <Column id="pid" type="STRING" size="256"/>
  321. <Column id="hngnm" type="STRING" size="256"/>
  322. <Column id="rrgstno" type="STRING" size="256"/>
  323. <Column id="sex" type="STRING" size="256"/>
  324. <Column id="age" type="STRING" size="256"/>
  325. <Column id="prcpgenrflag" type="STRING" size="256"/>
  326. <Column id="orddeptcd" type="STRING" size="256"/>
  327. <Column id="execprcpuniqno" type="STRING" size="256"/>
  328. <Column id="ioflag" type="STRING" size="256"/>
  329. <Column id="indd" type="STRING" size="256"/>
  330. <Column id="cretno" type="STRING" size="256"/>
  331. <Column id="orddrid" type="STRING" size="256"/>
  332. <Column id="prcpstatcd" type="STRING" size="256"/>
  333. <Column id="inclprcpcd" type="STRING" size="256"/>
  334. <Column id="inclprcpno" type="STRING" size="256"/>
  335. <Column id="prcpsetcd" type="STRING" size="256"/>
  336. <Column id="prcpno" type="STRING" size="256"/>
  337. <Column id="prcphistno" type="STRING" size="256"/>
  338. <Column id="orddd" type="STRING" size="256"/>
  339. <Column id="specordyn" type="STRING" size="256"/>
  340. <Column id="specdrid" type="STRING" size="256"/>
  341. <Column id="drprcpetc11" type="STRING" size="256"/>
  342. </ColumnInfo>
  343. <Rows>
  344. <Row>
  345. <Col id="check"/>
  346. <Col id="prcpdd"/>
  347. <Col id="prcpnm"/>
  348. <Col id="orddridnm"/>
  349. <Col id="atdoctid"/>
  350. <Col id="medispclid"/>
  351. <Col id="rgstdd"/>
  352. <Col id="rgsttm"/>
  353. <Col id="pid"/>
  354. <Col id="hngnm"/>
  355. <Col id="rrgstno"/>
  356. <Col id="sex"/>
  357. <Col id="age"/>
  358. <Col id="prcpgenrflag"/>
  359. <Col id="orddeptcd"/>
  360. <Col id="execprcpuniqno"/>
  361. <Col id="ioflag"/>
  362. <Col id="indd"/>
  363. <Col id="cretno"/>
  364. <Col id="orddrid"/>
  365. <Col id="prcpstatcd"/>
  366. <Col id="inclprcpcd"/>
  367. <Col id="inclprcpno"/>
  368. <Col id="prcpsetcd"/>
  369. <Col id="prcpno"/>
  370. <Col id="prcphistno"/>
  371. <Col id="orddd"/>
  372. <Col id="specordyn"/>
  373. <Col id="specdrid"/>
  374. </Row>
  375. </Rows>
  376. </Dataset>
  377. <Dataset id="ds_main_execprcplist_execprcp" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_main_execprcplist_execprcp_oncolumnchanged">
  378. <ColumnInfo>
  379. <Column id="check" type="STRING" size="256"/>
  380. <Column id="prcpdd" type="STRING" size="256"/>
  381. <Column id="prcpnm" type="STRING" size="256"/>
  382. <Column id="prcpvol" type="STRING" size="256"/>
  383. <Column id="prcpqty" type="STRING" size="256"/>
  384. <Column id="prcptims" type="STRING" size="256"/>
  385. <Column id="prcpdayno" type="STRING" size="256"/>
  386. <Column id="opansflagcd" type="STRING" size="256"/>
  387. <Column id="payflagcd" type="STRING" size="256"/>
  388. <Column id="prcpdelivefact" type="STRING" size="256"/>
  389. <Column id="prcpcd" type="STRING" size="256"/>
  390. <Column id="excuroomcd" type="STRING" size="256"/>
  391. <Column id="prcpno" type="STRING" size="256"/>
  392. <Column id="certno" type="STRING" size="256"/>
  393. <Column id="orddeptcd" type="STRING" size="256"/>
  394. <Column id="orddrid" type="STRING" size="256"/>
  395. <Column id="ioflag" type="STRING" size="256"/>
  396. <Column id="orddd" type="STRING" size="256"/>
  397. <Column id="indd" type="STRING" size="256"/>
  398. <Column id="excupartcd" type="STRING" size="256"/>
  399. <Column id="prcpclscd" type="STRING" size="256"/>
  400. <Column id="prcpsignflag" type="STRING" size="256"/>
  401. <Column id="aftcertflag" type="STRING" size="256"/>
  402. <Column id="aftcertdrid" type="STRING" size="256"/>
  403. <Column id="drprcpetc11" type="STRING" size="256"/>
  404. </ColumnInfo>
  405. <Rows>
  406. <Row>
  407. <Col id="check"/>
  408. <Col id="prcpdd"/>
  409. <Col id="prcpnm"/>
  410. <Col id="prcpvol"/>
  411. <Col id="prcpqty"/>
  412. <Col id="prcptims"/>
  413. <Col id="prcpdayno"/>
  414. <Col id="opansflagcd"/>
  415. <Col id="payflagcd"/>
  416. <Col id="prcpdelivefact"/>
  417. <Col id="prcpcd"/>
  418. <Col id="excuroomcd"/>
  419. <Col id="prcpno"/>
  420. <Col id="certno"/>
  421. <Col id="orddeptcd"/>
  422. <Col id="orddrid"/>
  423. <Col id="ioflag"/>
  424. <Col id="orddd"/>
  425. <Col id="indd"/>
  426. <Col id="excupartcd"/>
  427. <Col id="prcpclscd"/>
  428. <Col id="prcpsignflag"/>
  429. <Col id="aftcertflag"/>
  430. <Col id="aftcertdrid"/>
  431. </Row>
  432. </Rows>
  433. </Dataset>
  434. <Dataset id="ds_main_examcurecdlist_excuprcp" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  435. <ColumnInfo>
  436. <Column id="check" type="STRING" size="256"/>
  437. <Column id="excucd" type="STRING" size="256"/>
  438. <Column id="excucdnm" type="STRING" size="256"/>
  439. <Column id="excuroomcd" type="STRING" size="256"/>
  440. <Column id="excupartcd" type="STRING" size="256"/>
  441. <Column id="prcpclscd" type="STRING" size="256"/>
  442. </ColumnInfo>
  443. <Rows>
  444. <Row>
  445. <Col id="check"/>
  446. <Col id="excucd"/>
  447. <Col id="excucdnm"/>
  448. <Col id="excuroomcd"/>
  449. <Col id="excupartcd"/>
  450. <Col id="prcpclscd"/>
  451. </Row>
  452. </Rows>
  453. </Dataset>
  454. <Dataset id="ds_main" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  455. <ColumnInfo>
  456. <Column id="popupendflag" type="STRING" size="256"/>
  457. </ColumnInfo>
  458. <Rows>
  459. <Row/>
  460. </Rows>
  461. </Dataset>
  462. <Dataset id="ds_init_M0029" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  463. <ColumnInfo>
  464. <Column id="cdid" type="STRING" size="256"/>
  465. <Column id="cdnm" type="STRING" size="256"/>
  466. </ColumnInfo>
  467. <Rows>
  468. <Row/>
  469. </Rows>
  470. </Dataset>
  471. <Dataset id="ds_init_M0007" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  472. <ColumnInfo>
  473. <Column id="cdid" type="STRING" size="256"/>
  474. <Column id="cdnm" type="STRING" size="256"/>
  475. </ColumnInfo>
  476. <Rows>
  477. <Row/>
  478. </Rows>
  479. </Dataset>
  480. <Dataset id="ds_init_comboexcucd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  481. <ColumnInfo>
  482. <Column id="cdnm" type="STRING" size="256"/>
  483. <Column id="cdid" type="STRING" size="256"/>
  484. </ColumnInfo>
  485. <Rows>
  486. <Row>
  487. <Col id="cdnm">처방코드</Col>
  488. <Col id="cdid">01</Col>
  489. </Row>
  490. <Row>
  491. <Col id="cdnm">처방명</Col>
  492. <Col id="cdid">02</Col>
  493. </Row>
  494. </Rows>
  495. </Dataset>
  496. <Dataset id="ds_send_baseinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  497. <ColumnInfo>
  498. <Column id="pid" type="STRING" size="256"/>
  499. <Column id="hngnm" type="STRING" size="256"/>
  500. <Column id="rrgstno" type="STRING" size="256"/>
  501. <Column id="sex" type="STRING" size="256"/>
  502. <Column id="age" type="STRING" size="256"/>
  503. <Column id="prcpdd" type="STRING" size="256"/>
  504. <Column id="execprcpuniqno" type="STRING" size="256"/>
  505. <Column id="gb" type="STRING" size="256"/>
  506. </ColumnInfo>
  507. <Rows>
  508. <Row>
  509. <Col id="pid"/>
  510. <Col id="hngnm"/>
  511. <Col id="sex"/>
  512. <Col id="age"/>
  513. <Col id="prcpdd"/>
  514. <Col id="execprcpuniqno"/>
  515. <Col id="gb"/>
  516. </Row>
  517. </Rows>
  518. </Dataset>
  519. <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  520. <ColumnInfo>
  521. <Column id="status" type="STRING" size="256"/>
  522. <Column id="startdd" type="STRING" size="256"/>
  523. <Column id="deptflag" type="STRING" size="256"/>
  524. </ColumnInfo>
  525. <Rows>
  526. <Row>
  527. <Col id="status"/>
  528. <Col id="startdd"/>
  529. <Col id="deptflag"/>
  530. </Row>
  531. </Rows>
  532. </Dataset>
  533. <Dataset id="ds_send_direcprcplist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  534. <Dataset id="ds_send_execprcplist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  535. <Dataset id="ds_send_reqdata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  536. <ColumnInfo>
  537. <Column id="instance1" type="STRING" size="256"/>
  538. <Column id="srchexamcurecd" type="STRING" size="256"/>
  539. <Column id="srchexamcurenm" type="STRING" size="256"/>
  540. <Column id="srchexamcureflag" type="STRING" size="256"/>
  541. </ColumnInfo>
  542. <Rows>
  543. <Row>
  544. <Col id="instance1"/>
  545. <Col id="srchexamcurecd"/>
  546. <Col id="srchexamcurenm"/>
  547. <Col id="srchexamcureflag"/>
  548. </Row>
  549. </Rows>
  550. </Dataset>
  551. <Dataset id="ds_popdata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  552. <ColumnInfo>
  553. <Column id="pid" type="STRING" size="256"/>
  554. <Column id="prcpdd" type="STRING" size="256"/>
  555. <Column id="execprcpuniqno" type="STRING" size="256"/>
  556. </ColumnInfo>
  557. <Rows>
  558. <Row>
  559. <Col id="pid">21403</Col>
  560. <Col id="prcpdd">20070904</Col>
  561. <Col id="execprcpuniqno">31389</Col>
  562. </Row>
  563. </Rows>
  564. </Dataset>
  565. <Dataset id="ds_hidden" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  566. <ColumnInfo>
  567. <Column id="count" type="STRING" size="256"/>
  568. </ColumnInfo>
  569. <Rows>
  570. <Row/>
  571. </Rows>
  572. </Dataset>
  573. <Dataset id="ds_main_specdridlist_item" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  574. <Dataset id="ds_temp_execprcp" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  575. </Objects>
  576. <Bind>
  577. <BindItem id="item0" compid="grp_sea.ipt_pid" propid="value" datasetid="ds_send_baseinfo" columnid="pid"/>
  578. <BindItem id="item1" compid="grp_sea.opt_kornm" propid="value" datasetid="ds_send_baseinfo" columnid="hngnm"/>
  579. <BindItem id="item2" compid="grp_sea.opt_rrgstno" propid="value" datasetid="ds_send_baseinfo" columnid="rrgstno"/>
  580. <BindItem id="item3" compid="grp_sea.opt_sex" propid="value" datasetid="ds_send_baseinfo" columnid="sex"/>
  581. <BindItem id="item4" compid="grp_sea.opt_age" propid="value" datasetid="ds_send_baseinfo" columnid="age"/>
  582. <BindItem id="item5" compid="grp_sea.input2" propid="value" datasetid="ds_send_baseinfo" columnid="prcpdd"/>
  583. <BindItem id="item6" compid="grp_biz.combo2" propid="value" datasetid="ds_send_reqdata" columnid="srchexamcureflag"/>
  584. <BindItem id="item7" compid="grp_biz.input1" propid="value" datasetid="ds_send_reqdata" columnid="srchexamcurenm"/>
  585. </Bind>
  586. <Script type="xscript4.0"><![CDATA[/***************************************************************************************
  587. * System Name :
  588. * Job Name :
  589. * Creator :
  590. * Make Date : 2015-11-13
  591. * Description :
  592. *---------------------------------------------------------------------------------------
  593. * Modify Date Modifier Modify Description
  594. *---------------------------------------------------------------------------------------
  595. * 2015-11-13 Live Converter TF->XP
  596. *
  597. *---------------------------------------------------------------------------------------
  598. ****************************************************************************************/
  599. //=======================================================================================
  600. // Lib Include
  601. //---------------------------------------------------------------------------------------
  602. include "com_commonxp::comm_main.xjs"
  603. include "ast_examcurexp::AEZ0001.xjs"
  604. include "ast_commonxp::AST.xjs"
  605. //=======================================================================================
  606. // Global Form Variable
  607. //---------------------------------------------------------------------------------------
  608. var arErrorCode = new HashArray();
  609. var gSuppdeptcd = "";
  610. //=======================================================================================
  611. // Function
  612. //---------------------------------------------------------------------------------------
  613. /****************************************************************************************
  614. * Argument : N/A
  615. * Description :
  616. ****************************************************************************************/
  617. function readfunc(){
  618. var oParam = {};
  619. oParam.id = "TRAER01801";
  620. oParam.service = "examcureacptexecapp.ExamCureAcpt";
  621. oParam.method = "reqGetHousPrcp";
  622. oParam.inds = "req=ds_send_baseinfo";
  623. oParam.outds = "ds_main_direcprcplist_direcprcp=direcprcp";
  624. oParam.async = false;
  625. oParam.callback = "cf_TRAER01801";
  626. tranf_submit(oParam);
  627. if (utlf_transNullToEmpty(ds_main_direcprcplist_direcprcp.getColumn(0,"pid")) != ""){
  628. ds_send_baseinfo.setColumn(0,"hngnm", ds_main_direcprcplist_direcprcp.getColumn(0,"hngnm"));
  629. ds_send_baseinfo.setColumn(0,"rrgstno", ds_main_direcprcplist_direcprcp.getColumn(0,"rrgstno"));
  630. ds_send_baseinfo.setColumn(0,"sex", ds_main_direcprcplist_direcprcp.getColumn(0,"sex"));
  631. ds_send_baseinfo.setColumn(0,"age", ds_main_direcprcplist_direcprcp.getColumn(0,"age"));
  632. ds_main_direcprcplist_direcprcp.setColumn(0,"check", "Y");
  633. }
  634. }
  635. function cf_TRAER01801(sSvcId, nErrorCode, sErrorMsg) {
  636. if(nErrorCode < 0) return;
  637. dsf_setFixVal(ds_main_direcprcplist_direcprcp, "check:N");
  638. fMakeCopyColumn(ds_main_direcprcplist_direcprcp,"indd","orddd");
  639. }
  640. function fMakeCopyColumn(objDs,sColSrc,sColTgt) {
  641. if(utlf_isNull(objDs.getColumnInfo(sColTgt))) objDs.addColumn(sColTgt,"string");
  642. for(var i = 0 ; i < objDs.rowcount ; i++) {
  643. objDs.setColumn(i,sColTgt,objDs.getColumn(i,sColSrc));
  644. }
  645. }
  646. function fExecPrcpTransaction(str) {
  647. dsf_createDs("ds_direcnodeList");
  648. ds_main_direcprcplist_direcprcp.filter("check=='Y'");
  649. ds_direcnodeList.copyData(ds_main_direcprcplist_direcprcp,true);
  650. var direcCSV = dsf_getDsCSV(ds_direcnodeList);
  651. ds_main_direcprcplist_direcprcp.filter("");
  652. if ( utlf_isNull(direcCSV) ) {
  653. sysf_messageBox("원처방내역을 ","C002");
  654. return "0";
  655. }
  656. /*
  657. // 후인증 처리
  658. frmf_setParameter("SPMMB04100_defdeptcd", gSuppdeptcd);
  659. modal("SPMMB04100");
  660. var useyn = frmf_getParameter("SPMMB04100_useyn");
  661. if(useyn == "Y"){
  662. var orddrid = frmf_getParameter("SPMMB04100_orddrid");
  663. ds_main_execprcplist_execprcp.setColumn(0,"prcpsignflag", "1");
  664. ds_main_execprcplist_execprcp.setColumn(0,"aftcertflag", "11");
  665. ds_main_execprcplist_execprcp.setColumn(0,"aftcertdrid", orddrid);
  666. } else if(useyn == "X"){
  667. ds_main_execprcplist_execprcp.setColumn(0,"prcpsignflag", "1");
  668. ds_main_execprcplist_execprcp.setColumn(0,"aftcertflag", "11");
  669. ds_main_execprcplist_execprcp.setColumn(0,"aftcertdrid", ds_main_execprcplist_execprcp.getColumn(0,"orddrid"));
  670. }
  671. */
  672. dsf_createDs("ds_execnodeList");
  673. ds_main_execprcplist_execprcp.filter("check=='Y'");
  674. ds_execnodeList.copyData(ds_main_execprcplist_execprcp,true);
  675. var execCSV = dsf_getDsCSV(ds_execnodeList);
  676. ds_main_execprcplist_execprcp.filter("");
  677. if ( utlf_isNull(execCSV) ) {
  678. sysf_messageBox("대체처방내역을 ","C002");
  679. return "0";
  680. }
  681. dsf_setCSVToDs("ds_send_direcprcplist",direcCSV);
  682. dsf_setCSVToDs("ds_send_execprcplist",execCSV);
  683. ds_send.setColumn(0,"status", str);
  684. // ds_send.setColumn(0,"startdd", utlf_getCurrentDate());
  685. ds_send.setColumn(0,"startdd", ds_main_direcprcplist_direcprcp.getColumn(ds_main_direcprcplist_direcprcp.rowcount-1,"prcpdd"));
  686. var deptflag = ds_popdata.getColumn(0,"deptflag");
  687. var prcpexecdeptcd = ds_popdata.getColumn(0,"prcpexecdeptcd");
  688. // 핵의학 체내일 경우
  689. if (deptflag == "N") {
  690. ds_send.setColumn(0,"deptflag", "N");
  691. gSuppdeptcd = prcpexecdeptcd;
  692. } else {
  693. ds_send.setColumn(0,"deptflag", "S");
  694. }
  695. for(var i = 0; i < ds_send_execprcplist.rowcount; i++) {
  696. if(utlf_isNull(ds_send_execprcplist.getColumn(i,"payflagcd"))) {
  697. sysf_messageBox("급비구분을 선택하셔야 합니다.", "E");
  698. return;
  699. }
  700. }
  701. if ( str == "I") {
  702. dsf_createDsRow("ds_flaginfo", [
  703. {col:"status", type:"STRING", size:256, val:ds_send.getColumn(0,"status")}
  704. , {col:"startdd", type:"STRING", size:256, val:ds_send.getColumn(0,"startdd")}
  705. , {col:"suppdeptcd", type:"STRING", size:256, val:gSuppdeptcd}
  706. , {col:"rsrvcheck", type:"STRING", size:256, val:"N"}
  707. , {col:"deptflag", type:"STRING", size:256, val:ds_send.getColumn(0,"deptflag")}
  708. , {col:"prcptdayaftrcptyn", type:"STRING", size:256, val:""}
  709. ]);
  710. var oParam = {};
  711. oParam.id = "TXAOA01001";
  712. oParam.service = "tumoracptexecapp.TumorPrcpMngt";
  713. oParam.method = "reqExeExecPrcpOrder";
  714. oParam.inds = "flaginfo=ds_flaginfo direcprcp=ds_send_direcprcplist execprcp=ds_send_execprcplist";
  715. oParam.outds = "ds_temp_execprcp=execprcplist";
  716. oParam.transaction = false;
  717. oParam.async = false;
  718. oParam.callback = "cf_TXAOA01001";
  719. tranf_submit(oParam);
  720. if (arErrorCode.pop("TXAOA01001") > -1){
  721. sysf_messageBox("정상적으로 처리되었습니다.", "E999", "");
  722. group1_btn_cfm_onclick();
  723. }
  724. } else if (str == "C") {
  725. dsf_createDsRow("ds_flaginfo", [
  726. {col:"status", type:"STRING", size:256, val:ds_send.getColumn(0,"status")}
  727. , {col:"suppdeptcd", type:"STRING", size:256, val:gSuppdeptcd}
  728. , {col:"deptflag", type:"STRING", size:256, val:"T"}
  729. , {col:"prcptdayaftrcptyn", type:"STRING", size:256, val:""}
  730. ]);
  731. var oParam = {};
  732. oParam.id = "TXAOA01002";
  733. oParam.service = "tumoracptexecapp.TumorPrcpMngt";
  734. oParam.method = "reqExeExecPrcpOrder";
  735. oParam.inds = "flaginfo=ds_flaginfo direcprcp=ds_send_direcprcplist execprcp=ds_send_execprcplist";
  736. oParam.outds = "";
  737. oParam.transaction = false;
  738. oParam.async = false;
  739. //oParam.callback = "cf_TXAOA01002";
  740. tranf_submit(oParam);
  741. }
  742. }
  743. function cf_TXAOA01001(sSvcId, nErrorCode, sErrorMsg) {
  744. arErrorCode.push(sSvcId, nErrorCode);
  745. }
  746. function isDate(str) { // 날짜 형식에 대한 적합여부 체크
  747. if (str == "") return true; // 빈건 체크안함
  748. if (trim(str) == "") return true; // 빈건 체크안함
  749. if (isNaN(parseInt(str))) return false; // 숫자가 아니면 false
  750. if (str.length != 8) return false; // 8자리(yyyymmdd)가 아니면 false
  751. var yy = new Number(str.substring(0, 4));
  752. var mm = new Number(str.substring(4, 6)) - 1;
  753. var dd = new Number(str.substring(6, 8));
  754. var date = new Date(yy, mm, dd);
  755. //alert(date.getFullYear() +"-" + (date.getMonth()+1) + "-" + date.getDate());
  756. if (yy != date.getFullYear() ||
  757. mm != date.getMonth() ||
  758. dd != date.getDate()) {
  759. return false; // 존재하지 않는 날짜
  760. }
  761. return true; // 존재하는 날짜
  762. }
  763. function trim(data){ // 문자에 대한 TRIM 작업
  764. return data.replace(/(^\s*)|(\s*$)/g, "");
  765. }
  766. function fGridDeleteRow() {
  767. ds_main_execprcplist_execprcp.deleteRow(ds_main_execprcplist_execprcp.rowposition);
  768. }
  769. //=======================================================================================
  770. // Event
  771. //---------------------------------------------------------------------------------------
  772. /****************************************************************************************
  773. * Components : Form
  774. * Components ID : SPAER01800
  775. * Event : oninit
  776. * Argument : 01.obj : Object Event has occurred
  777. * : 02.e : Event Object
  778. * Description : 화면 처음 초기화시 폼초기화
  779. ****************************************************************************************/
  780. function SPAER01800_oninit(obj:Form, e:InitEventInfo)
  781. {
  782. frmf_initForm(obj); // 폼 초기화
  783. }
  784. /****************************************************************************************
  785. * Components : Form
  786. * Components ID : SPAER01800
  787. * Event : onload
  788. * Argument : 01.obj : Object Event has occurred
  789. * : 02.e : Event Object
  790. * Description : 화면 처음 초기화시 폼초기화
  791. ****************************************************************************************/
  792. function SPAER01800_onload(obj:Form, e:LoadEventInfo)
  793. {
  794. lf_aezfSetSuppDeptcd(); //AEZ0001.xjs
  795. gSuppdeptcd = frmf_getParameter("AST_DEPTCD");
  796. try{
  797. ds_popdata.copyData(arg_ds_popdata);
  798. } catch(e){}
  799. grdf_setRowTypeIcon(grp_biz.grd_execprcplist, 0); // 그리드 상태 표시
  800. frmf_createPopupMenu("pmn_menu1","pmn_menu_onmenuclick",[{id: "fGridDeleteRow" , level: "0", title: "행 삭제"}]);
  801. var arrParam = [{dsNm: "ds_init_M0029", cdGrpId: "M0029"}
  802. ,{dsNm: "ds_init_M0007", cdGrpId: "M0007"}
  803. ]
  804. appf_getCodeList(arrParam);
  805. ds_main_excuprcplist_excuprcp.clearData();
  806. ds_main_direcprcplist_direcprcp.clearData();
  807. ds_main_execprcplist_execprcp.clearData();
  808. ds_send_baseinfo.setColumn(0,"gb", "1");
  809. ds_send_reqdata.setColumn(0,"instance1", gSuppdeptcd);
  810. dsf_makeValue(ds_send_reqdata,"basesuppdeptcd","string",gSuppdeptcd);
  811. //내시경 대치처방 가능쿼리 조회 (처방리스트)
  812. var oParam = {};
  813. oParam.id = "TRAER01803";
  814. oParam.service = "examcurebaseapp.ExamCureCode";
  815. oParam.method = "reqGetEscopExecPrcpList";
  816. oParam.inds = "req=ds_send_reqdata";
  817. oParam.outds = "ds_main_excuprcplist_excuprcp=item";
  818. oParam.async = false;
  819. oParam.callback = "cf_TRAER01803";
  820. tranf_submit(oParam);
  821. // 2011.6.29 선택진료의 가져오기 쿼리수정.
  822. dsf_createDsRow("ds_req", [
  823. {col:"dutplcecd", type:"STRING", size:256, val:gSuppdeptcd}
  824. , {col:"specdraddyn", type:"STRING", size:256, val:""}
  825. ]);
  826. var oParam = {};
  827. oParam.id = "TRAEA01136";
  828. oParam.service = "examcurebaseapp.ExamCureCode";
  829. oParam.method = "reqGetSpecDrnmList";
  830. oParam.inds = "req=ds_req";
  831. oParam.outds = "ds_main_specdridlist_item=item";
  832. oParam.async = false;
  833. //oParam.callback = "cf_TRAEA01136";
  834. tranf_submit(oParam);
  835. ds_send_baseinfo.setColumn(0,"pid", ds_popdata.getColumn(0,"pid"));
  836. ds_send_baseinfo.setColumn(0,"prcpdd", ds_popdata.getColumn(0,"prcpdd"));
  837. ds_send_baseinfo.setColumn(0,"execprcpuniqno", ds_popdata.getColumn(0,"execprcpuniqno"));
  838. readfunc();
  839. }
  840. function pmn_menu_onmenuclick(obj:PopupMenu, e:MenuClickEventInfo)
  841. {
  842. eval(e.id + "()");
  843. }
  844. function cf_TRAER01803(sSvcId, nErrorCode, sErrorMsg) {
  845. if(nErrorCode < 0) return;
  846. dsf_setFixVal(ds_main_excuprcplist_excuprcp, "check:N");
  847. }
  848. function ds_main_excuprcplist_excuprcp_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
  849. {
  850. if(e.columnid=="check") {
  851. obj.setColumn(e.row,e.columnid,(e.newvalue=="Y"||e.newvalue==1)?"Y":"N");
  852. }
  853. }
  854. function ds_main_direcprcplist_direcprcp_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
  855. {
  856. if(e.columnid=="check") {
  857. obj.setColumn(e.row,e.columnid,(e.newvalue=="Y"||e.newvalue==1)?"Y":"N");
  858. }
  859. }
  860. function ds_main_execprcplist_execprcp_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
  861. {
  862. if(e.columnid=="check" || e.columnid=="drprcpetc11") {
  863. obj.setColumn(e.row,e.columnid,(e.newvalue=="Y"||e.newvalue==1)?"Y":"N");
  864. }
  865. }
  866. function grp_sea_btn_search_onclick(obj:Button, e:ClickEventInfo)
  867. {
  868. ds_main_execprcplist_execprcp.clearData();
  869. readfunc();
  870. }
  871. function grp_biz_input1_onkeydown(obj:Edit, e:KeyEventInfo)
  872. {
  873. if(e.keycode == 13) {
  874. obj.updateToDataset();
  875. grp_biz_button1_onclick();
  876. }
  877. }
  878. function grp_biz_button1_onclick(obj:Button, e:ClickEventInfo)
  879. {
  880. grp_biz.grd_excuprcplist.vscrollbar.pos = 0;
  881. // grd_excuprcplist.allstyle( "all", "background-color" ) = "#FFFFFF";
  882. var defalut = ds_send_reqdata.getColumn(0,"srchexamcurenm");
  883. if( utlf_transNullToEmpty(ds_send_reqdata.getColumn(0,"srchexamcureflag")) == "" ) {
  884. sysf_messageBox("조회구분값을", "C002");
  885. return "0";
  886. }
  887. if( utlf_transNullToEmpty(ds_send_reqdata.getColumn(0,"srchexamcurenm")) != "" ) {
  888. ds_main_examcurecdlist_excuprcp.clearData();
  889. if ( ds_send_reqdata.getColumn(0,"srchexamcureflag") == "01" ) { //처방코드
  890. ds_send_reqdata.setColumn(0,"srchexamcurecd", "%" + ds_send_reqdata.getColumn(0,"srchexamcurenm").toUpperCase()+"%");
  891. ds_send_reqdata.setColumn(0,"srchexamcurenm", "%");
  892. } else if ( ds_send_reqdata.getColumn(0,"srchexamcureflag") == "02" ) { //처방명
  893. ds_send_reqdata.setColumn(0,"srchexamcurenm", "%" + ds_send_reqdata.getColumn(0,"srchexamcurenm") + "%");
  894. ds_send_reqdata.setColumn(0,"srchexamcurecd", "%");
  895. }
  896. dsf_createDsRow("ds_req", [
  897. {col:"srchexamcurecd", type:"STRING", size:256, val:ds_send_reqdata.getColumn(0,"srchexamcurecd")}
  898. , {col:"srchexamcurenm", type:"STRING", size:256, val:ds_send_reqdata.getColumn(0,"srchexamcurenm")}
  899. , {col:"basesuppdeptcd", type:"STRING", size:256, val:gSuppdeptcd}
  900. ]);
  901. var oParam = {};
  902. oParam.id = "TRAER01804";
  903. oParam.service = "examcurebaseapp.ExamCureCode";
  904. oParam.method = "reqGetescopexecprcpflaglist";
  905. oParam.inds = "req=ds_req";
  906. oParam.outds = "ds_main_examcurecdlist_excuprcp=item";
  907. oParam.async = false;
  908. oParam.callback = "cf_TRAER01804";
  909. tranf_submit(oParam);
  910. // var count = ds_main_examcurecdlist_excuprcp.rowcount;
  911. for( var i = 0 ; i < ds_main_excuprcplist_excuprcp.rowcount; i++ ) {
  912. var excucd_1 = ds_main_excuprcplist_excuprcp.getColumn(i,"excucd");
  913. // for( var j = 0 ; j < count ; j++ ) {
  914. // var excucd_2 = ds_main_examcurecdlist_excuprcp.getColumn(j,"excucd");
  915. // if( excucd_1 == excucd_2 ) {
  916. // grd_excuprcplist.rowStyle( i , "data", "background-color" ) = "#99cc00";
  917. // }
  918. if( excucd_1 == ds_main_examcurecdlist_excuprcp.getColumn(0,"excucd") ) {
  919. grp_biz.grd_excuprcplist.vscrollbar.pos = i;
  920. }
  921. // }
  922. }
  923. } else {
  924. if( ds_send_reqdata.getColumn(0,"srchexamcureflag") == "01" ) { //처방코드
  925. sysf_messageBox("처방코드를", "C001");
  926. }
  927. if( ds_send_reqdata.getColumn(0,"srchexamcureflag") == "02" ) { //처방명
  928. sysf_messageBox("처방명을", "C001");
  929. }
  930. }
  931. ds_send_reqdata.setColumn(0,"srchexamcurenm" , defalut );
  932. }
  933. function cf_TRAER01804(sSvcId, nErrorCode, sErrorMsg) {
  934. if(nErrorCode < 0) return;
  935. dsf_setFixVal(ds_main_examcurecdlist_excuprcp, "check:N");
  936. }
  937. function fSetBackGround(currow) {
  938. var excucd_1 = ds_main_excuprcplist_excuprcp.getColumn(currow,"excucd");
  939. for( var j = 0 ; j < ds_main_examcurecdlist_excuprcp.rowcount ; j++ ) {
  940. var excucd_2 = ds_main_examcurecdlist_excuprcp.getColumn(j,"excucd");
  941. if(excucd_1 == excucd_2) return "#99CC00";
  942. }
  943. return "#FFFFFF";
  944. }
  945. function grp_biz_button4_onclick(obj:Button, e:ClickEventInfo)
  946. {
  947. for (var i = 0; i < ds_main_excuprcplist_excuprcp.rowcount; i++) {
  948. if (ds_main_excuprcplist_excuprcp.getColumn(i,"check") == "Y") {
  949. var excucd = ds_main_excuprcplist_excuprcp.getColumn(i,"excucd");
  950. var irow = ds_main_execprcplist_execprcp.findRow("prcpcd",excucd);
  951. if (irow < 0){
  952. var nRow = ds_main_execprcplist_execprcp.addRow();
  953. ds_main_execprcplist_execprcp.setColumn(nRow,"opansflagcd", "4" );
  954. ds_main_execprcplist_execprcp.setColumn(nRow,"prcpcd", ds_main_excuprcplist_excuprcp.getColumn(i,"excucd"));
  955. ds_main_execprcplist_execprcp.setColumn(nRow,"prcpnm", ds_main_excuprcplist_excuprcp.getColumn(i,"excucdnm"));
  956. ds_main_execprcplist_execprcp.setColumn(nRow,"excupartcd", ds_main_excuprcplist_excuprcp.getColumn(i,"excupartcd"));
  957. ds_main_execprcplist_execprcp.setColumn(nRow,"prcpclscd", ds_main_excuprcplist_excuprcp.getColumn(i,"prcpclscd"));
  958. ds_main_execprcplist_execprcp.setColumn(nRow,"prcpvol", 1);
  959. ds_main_execprcplist_execprcp.setColumn(nRow,"prcpqty", 1);
  960. ds_main_execprcplist_execprcp.setColumn(nRow,"prcptims", 1);
  961. ds_main_execprcplist_execprcp.setColumn(nRow,"prcpdayno", 1);
  962. ds_main_execprcplist_execprcp.setColumn(nRow,"check", "Y");
  963. }
  964. }
  965. }
  966. }
  967. function grp_biz_grd_excuprcplist_oncelldblclick(obj:Grid, e:GridClickEventInfo)
  968. {
  969. var excucd = ds_main_excuprcplist_excuprcp.getColumn(e.row,"excucd");
  970. var irow = ds_main_execprcplist_execprcp.findRow("prcpcd",excucd);
  971. if (irow < 0){
  972. var nRow = ds_main_execprcplist_execprcp.addRow();
  973. ds_main_execprcplist_execprcp.setColumn(nRow,"opansflagcd", "4" );
  974. ds_main_execprcplist_execprcp.setColumn(nRow,"prcpcd", ds_main_excuprcplist_excuprcp.getColumn(e.row,"excucd"));
  975. ds_main_execprcplist_execprcp.setColumn(nRow,"prcpnm", ds_main_excuprcplist_excuprcp.getColumn(e.row,"excucdnm"));
  976. ds_main_execprcplist_execprcp.setColumn(nRow,"excupartcd", ds_main_excuprcplist_excuprcp.getColumn(e.row,"excupartcd"));
  977. ds_main_execprcplist_execprcp.setColumn(nRow,"prcpclscd", ds_main_excuprcplist_excuprcp.getColumn(e.row,"prcpclscd"));
  978. ds_main_execprcplist_execprcp.setColumn(nRow,"prcpvol", 1);
  979. ds_main_execprcplist_execprcp.setColumn(nRow,"prcpqty", 1);
  980. ds_main_execprcplist_execprcp.setColumn(nRow,"prcptims", 1);
  981. ds_main_execprcplist_execprcp.setColumn(nRow,"prcpdayno", 1);
  982. ds_main_execprcplist_execprcp.setColumn(nRow,"check", "Y");
  983. }
  984. }
  985. function grp_biz_button2_onclick(obj:Button, e:ClickEventInfo)
  986. {
  987. if(ds_main_execprcplist_execprcp.rowcount > 1) {
  988. sysf_messageBox("여러처방이", "E005","대체처방 내릴 처방외의 다른 처방은 삭제하십시오.");
  989. return 0;
  990. }
  991. if( ds_main_execprcplist_execprcp.rowcount < 1){
  992. sysf_messageBox("처방을 ", "C002");
  993. return 0;
  994. }
  995. fExecPrcpTransaction("I");
  996. }
  997. function grp_biz_grd_execprcplist_onrbuttondown(obj:Grid, e:GridMouseEventInfo)
  998. {
  999. if(e.row > -1){
  1000. grdf_setSelectedCell(obj, e); // 선택된 행 확실히 선택해줌
  1001. pmn_menu1.trackPopup(e.screenX,e.screenY);
  1002. }
  1003. return true;
  1004. }
  1005. function group1_btn_cfm_onclick(obj:Button, e:ClickEventInfo)
  1006. {
  1007. //var ev = new GridClickEventInfo;
  1008. //20180913 수정
  1009. //opener.frmf_inputEnterKey("group3.group6.btn_sea", "onclick", ev );
  1010. //group3_switch1_case2_grd_mainordlist2_oncellclick
  1011. //opener.frmf_inputEnterKey("group3.switch1.case2.grd_mainordlist2","oncellclick", ev);
  1012. opener.fn_getmainordlist2();
  1013. this.close();
  1014. }
  1015. ]]></Script>
  1016. </Form>
  1017. </FDL>