SMMNP02000_일단위 물품 불출.xfdl 73 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497
  1. <?xml version="1.0" encoding="utf-8"?>
  2. <FDL version="1.5">
  3. <TypeDefinition url="..\..\..\default_typedef.xml"/>
  4. <Form id="SMMNP02000" position="absolute 0 0 1199 791" titletext="일단위 물품 불출" oninit="SMMNP02000_oninit" onload="SMMNP02000_onload">
  5. <Layouts>
  6. <Layout>
  7. <Static id="caption6" text="일단위 물품 불출" class="tit_1" position="absolute 0 0 211 25"/>
  8. <Shape id="line2" class="line_10" position="absolute 0 114 1195 120" anchor="left top right"/>
  9. <Shape id="line1" linetype="vertical" class="line_1" position="absolute 0 145 1194 151"/>
  10. <Div id="grp_sea" anchor="left top right" taborder="1" class="div_SA" position="absolute 0 25 1194 85">
  11. <Layouts>
  12. <Layout>
  13. <Button id="btn_search" taborder="3" text="조회" class="btn1" position="absolute 1125 7 1181 29" anchor="top right" onclick="grp_sea_btn_search_onclick"/>
  14. <Shape id="line13" linetype="vertical" class="line_4" position="absolute 1110 7 1116 51" anchor="top right"/>
  15. <Static id="caption4" text="수술방:" class="search_name" position="absolute 14 36 74 53"/>
  16. <Combo id="cmb_oproomcd" taborder="4" innerdataset="@ds_init_oproomlist" codecolumn="oproomcd" datacolumn="oproomnm" class="combo_search" position="absolute 148 35 293 54"/>
  17. <Static id="caption29" text="물품코드:" class="search_name" position="absolute 310 35 395 52"/>
  18. <Edit id="ipt_goodcd" taborder="5" autoselect="true" autoskip="true" class="input_search" position="absolute 395 35 505 54" onkeyup="grp_sea_ipt_goodcd_onkeyup"/>
  19. <Button id="btn_goodsearch" taborder="6" class="icon_search" position="absolute 515 36 531 52" onclick="grp_sea_btn_goodsearch_onclick"/>
  20. <Edit id="ipt_goodnm" taborder="7" autoselect="true" autoskip="true" class="input_search" position="absolute 535 35 1035 54" onkeyup="grp_sea_ipt_goodnm_onkeyup"/>
  21. <Static id="caption5" text="부서:" class="search_name" position="absolute 435 10 495 27"/>
  22. <Static id="caption9" text="처방구분:" class="search_name" position="absolute 600 10 690 27"/>
  23. <Combo id="combo1" taborder="8" codecolumn="codecolumn" datacolumn="datacolumn" class="combo_search" position="absolute 686 9 806 28">
  24. <Dataset id="innerdataset">
  25. <ColumnInfo>
  26. <Column id="codecolumn"/>
  27. <Column id="datacolumn"/>
  28. </ColumnInfo>
  29. <Rows>
  30. <Row>
  31. <Col id="codecolumn"/>
  32. <Col id="datacolumn">전체</Col>
  33. </Row>
  34. <Row>
  35. <Col id="codecolumn">1</Col>
  36. <Col id="datacolumn">Suture</Col>
  37. </Row>
  38. <Row>
  39. <Col id="codecolumn">2</Col>
  40. <Col id="datacolumn">Supplies</Col>
  41. </Row>
  42. <Row>
  43. <Col id="codecolumn">3</Col>
  44. <Col id="datacolumn">Drug</Col>
  45. </Row>
  46. <Row>
  47. <Col id="codecolumn">4</Col>
  48. <Col id="datacolumn">Instrument</Col>
  49. </Row>
  50. <Row>
  51. <Col id="codecolumn">5</Col>
  52. <Col id="datacolumn">처치,행위</Col>
  53. </Row>
  54. <Row>
  55. <Col id="codecolumn">6</Col>
  56. <Col id="datacolumn">린넨/소모품</Col>
  57. </Row>
  58. <Row>
  59. <Col id="codecolumn">7</Col>
  60. <Col id="datacolumn">Sheet</Col>
  61. </Row>
  62. <Row>
  63. <Col id="codecolumn">8</Col>
  64. <Col id="datacolumn">Glove</Col>
  65. </Row>
  66. <Row>
  67. <Col id="codecolumn">9</Col>
  68. <Col id="datacolumn">일반물품</Col>
  69. </Row>
  70. <Row>
  71. <Col id="codecolumn">10</Col>
  72. <Col id="datacolumn">린넨</Col>
  73. </Row>
  74. <Row>
  75. <Col id="codecolumn">11</Col>
  76. <Col id="datacolumn">공용</Col>
  77. </Row>
  78. </Rows>
  79. </Dataset>
  80. </Combo>
  81. <Combo id="combo2" taborder="9" codecolumn="codecolumn" datacolumn="datacolumn" class="combo_search" position="absolute 494 9 579 28">
  82. <Dataset id="innerdataset">
  83. <ColumnInfo>
  84. <Column id="codecolumn"/>
  85. <Column id="datacolumn"/>
  86. </ColumnInfo>
  87. <Rows>
  88. <Row>
  89. <Col id="codecolumn"/>
  90. <Col id="datacolumn">전체</Col>
  91. </Row>
  92. <Row>
  93. <Col id="codecolumn">O</Col>
  94. <Col id="datacolumn">수술</Col>
  95. </Row>
  96. <Row>
  97. <Col id="codecolumn">A</Col>
  98. <Col id="datacolumn">마취</Col>
  99. </Row>
  100. <Row>
  101. <Col id="codecolumn">R</Col>
  102. <Col id="datacolumn">회복</Col>
  103. </Row>
  104. <Row>
  105. <Col id="codecolumn">E</Col>
  106. <Col id="datacolumn">안과</Col>
  107. </Row>
  108. </Rows>
  109. </Dataset>
  110. </Combo>
  111. <Button id="button2" taborder="10" text="초기화" class="btn2" position="absolute 1125 35 1178 54" anchor="top right" onclick="grp_sea_button2_onclick"/>
  112. <Combo id="cmb_rosette" taborder="11" innerdataset="@ds_init_rosettelist" codecolumn="rosettecd" datacolumn="rosettenm" class="combo_search" position="absolute 87 35 145 54" onitemchanged="grp_sea_cmb_rosette_onitemchanged"/>
  113. <Static id="caption2" text="수술일자:" class="search_name" position="absolute 13 8 86 25"/>
  114. <Calendar id="ipt_reqfromdd" taborder="12" autoselect="true" autoskip="true" class="input_s_essential" position="absolute 87 8 177 27" dateformat="yyyy-MM-dd" value="null"/>
  115. <Calendar id="ipt_reqtodd" taborder="13" autoselect="true" autoskip="true" class="input_s_essential" position="absolute 193 8 283 27" dateformat="yyyy-MM-dd"/>
  116. <Static id="caption11" text="~" class="search_n_b" position="absolute 180 10 192 27"/>
  117. <Static id="caption1" text="응급구분:" class="search_name" position="absolute 820 10 910 27"/>
  118. <Radio id="radio1" taborder="14" columncount="2" rowcount="0" codecolumn="codecolumn" datacolumn="datacolumn" position="absolute 902 8 1043 28" onitemchanged="grp_sea_radio1_onitemchanged">
  119. <Dataset id="innerdataset">
  120. <ColumnInfo>
  121. <Column id="codecolumn"/>
  122. <Column id="datacolumn"/>
  123. </ColumnInfo>
  124. <Rows>
  125. <Row>
  126. <Col id="codecolumn">Y</Col>
  127. <Col id="datacolumn">응급만</Col>
  128. </Row>
  129. <Row>
  130. <Col id="codecolumn">N</Col>
  131. <Col id="datacolumn">응급제외</Col>
  132. </Row>
  133. </Rows>
  134. </Dataset>
  135. </Radio>
  136. <Button id="button17" taborder="15" text="내일" class="btn2" position="absolute 380 7 422 26" onclick="grp_sea_button17_onclick"/>
  137. <Button id="button18" taborder="16" text="오늘" class="btn2" position="absolute 335 7 377 26" onclick="grp_sea_button18_onclick"/>
  138. <Button id="button25" taborder="17" text="어제" class="btn2" position="absolute 290 7 332 26" onclick="grp_sea_button25_onclick"/>
  139. </Layout>
  140. </Layouts>
  141. </Div>
  142. <Grid id="grd_prcplist" class="datagrid2" taborder="2" binddataset="ds_main_deliveLists_prcplist" useinputpanel="false" position="absolute 0 119 1195 454" anchor="left top right" autoenter="select" cellsizingtype="col" tooltiptype="hover">
  143. <Formats>
  144. <Format id="default">
  145. <Columns>
  146. <Column size="30"/>
  147. <Column size="35"/>
  148. <Column size="40"/>
  149. <Column size="0"/>
  150. <Column size="0"/>
  151. <Column size="80"/>
  152. <Column size="40"/>
  153. <Column size="280"/>
  154. <Column size="125"/>
  155. <Column size="120"/>
  156. <Column size="50"/>
  157. <Column size="50"/>
  158. <Column size="50"/>
  159. <Column size="100"/>
  160. <Column size="68"/>
  161. <Column size="100"/>
  162. <Column size="0"/>
  163. <Column size="0"/>
  164. <Column size="0"/>
  165. <Column size="0"/>
  166. <Column size="0"/>
  167. <Column size="100"/>
  168. <Column size="0"/>
  169. <Column size="0"/>
  170. </Columns>
  171. <Rows>
  172. <Row size="34" band="head"/>
  173. <Row size="24"/>
  174. </Rows>
  175. <Band id="head">
  176. <Cell/>
  177. <Cell col="1" displaytype="checkbox" edittype="checkbox"/>
  178. <Cell col="2" text="수술&#10;방"/>
  179. <Cell col="3" text="등록번호"/>
  180. <Cell col="4" text="환자명"/>
  181. <Cell col="5" text="물품코드"/>
  182. <Cell col="6" text="SUB"/>
  183. <Cell col="7" text="물품명"/>
  184. <Cell col="8" text="규격"/>
  185. <Cell col="9" text="모델"/>
  186. <Cell col="10" text="처방&#10;수량"/>
  187. <Cell col="11" text="불출&#10;수량"/>
  188. <Cell col="12" text="미불출"/>
  189. <Cell col="13" text="제조원"/>
  190. <Cell col="14" text="단위"/>
  191. <Cell col="15" text="비고"/>
  192. <Cell col="16" text="cartgubn"/>
  193. <Cell col="17" text="prcpdd"/>
  194. <Cell col="18" text="deptengabbr"/>
  195. <Cell col="19" text="sexage"/>
  196. <Cell col="20" text="prcpernm"/>
  197. <Cell col="21" text="barcdno"/>
  198. <Cell col="22" text="수술방코드"/>
  199. <Cell col="23" text="이전불출수량"/>
  200. </Band>
  201. <Band id="body">
  202. <Cell celltype="head" expr="currow+1"/>
  203. <Cell col="1" displaytype="checkbox" edittype="checkbox" text="bind:chkflag" expr="expr:chkflag == 'true' || chkflag == '1' ? '1' : '0'" tooltiptext="bind:chkflag"/>
  204. <Cell col="2" style="align:left top;padding:5 2 1 2;" text="bind:oproomnm" wordwrap="word" tooltiptext="bind:oproomnm"/>
  205. <Cell col="3" text="bind:pid"/>
  206. <Cell col="4" text="bind:hngnm"/>
  207. <Cell col="5" style="align:left top;padding:5 2 1 2;" text="bind:goodcd" wordwrap="word" tooltiptext="bind:goodcd"/>
  208. <Cell col="6" text="bind:allsizespecid" tooltiptext="bind:allsizespecid"/>
  209. <Cell col="7" style="align:left top;padding:5 2 1 2;" text="bind:goodnm" wordwrap="word" tooltiptext="bind:goodnm"/>
  210. <Cell col="8" style="align:left top;padding:5 2 1 2;" text="bind:goodspec" wordwrap="word" tooltiptext="bind:goodspec"/>
  211. <Cell col="9" style="align:left top;padding:5 2 1 2;" text="bind:goodmodel" wordwrap="word" tooltiptext="bind:goodmodel"/>
  212. <Cell col="10" displaytype="number" text="bind:prcpqty" tooltiptext="bind:prcpqty"/>
  213. <Cell col="11" displaytype="number" edittype="text" text="bind:deliveqty" editautoselect="true" tooltiptext="bind:deliveqty"/>
  214. <Cell col="12" displaytype="number" text="bind:undeliveqty" tooltiptext="bind:undeliveqty"/>
  215. <Cell col="13" style="align:left top;padding:5 2 1 2;" text="bind:prodcmpynm" wordwrap="word" tooltiptext="bind:prodcmpynm"/>
  216. <Cell col="14" edittype="none" text="bind:prcpunit" tooltiptext="bind:prcpunit"/>
  217. <Cell col="15" displaytype="text" edittype="text" style="align:left top;padding:5 2 1 2;" text="bind:cmt" wordwrap="word" tooltiptext="bind:cmt"/>
  218. <Cell col="16" text="bind:cartgubn"/>
  219. <Cell col="17" text="bind:prcpdd"/>
  220. <Cell col="18" text="bind:deptengabbr"/>
  221. <Cell col="19" text="bind:sexage"/>
  222. <Cell col="20" text="bind:prcpernm"/>
  223. <Cell col="21" text="bind:barcdno" tooltiptext="bind:barcdno"/>
  224. <Cell col="22" text="bind:oproomcd"/>
  225. <Cell col="23" text="bind:bfdeliveqty"/>
  226. </Band>
  227. </Format>
  228. </Formats>
  229. </Grid>
  230. <Button id="btn_saveexcel" taborder="3" text="Excel" class="btn7" position="absolute 1069 95 1130 114" anchor="top right" onclick="btn_saveexcel_onclick"/>
  231. <Button id="btn_cnfm" taborder="4" text="불출확정" class="btn5" position="absolute 1131 95 1195 114" anchor="top right" onclick="btn_cnfm_onclick"/>
  232. <Button id="button1" taborder="5" text="미불출조회" class="btn2" position="absolute 850 95 925 114" anchor="top right" onclick="button1_onclick"/>
  233. <Button id="button3" taborder="6" text="수술/마취처방집계" class="btn2" position="absolute 733 95 849 114" anchor="top right" onclick="button3_onclick"/>
  234. <Static id="caption17" text="처방집계" class="tit_2" position="absolute 0 98 105 119"/>
  235. <Static id="caption3" text="불출내역" class="tit_2" position="absolute 0 463 90 484"/>
  236. <Grid id="grd_delivelist" class="datagrid2" taborder="7" binddataset="ds_main_deliveLists_delivelist" useinputpanel="false" position="absolute 0 484 1195 784" autoenter="select" cellsizingtype="col" anchor="all" cellclickbound="cell" onheadclick="grd_delivelist_onheadclick" tooltiptype="hover">
  237. <Formats>
  238. <Format id="default">
  239. <Columns>
  240. <Column size="30"/>
  241. <Column size="35"/>
  242. <Column size="40"/>
  243. <Column size="0"/>
  244. <Column size="0"/>
  245. <Column size="80"/>
  246. <Column size="35"/>
  247. <Column size="230"/>
  248. <Column size="115"/>
  249. <Column size="70"/>
  250. <Column size="0"/>
  251. <Column size="70"/>
  252. <Column size="100"/>
  253. <Column size="0"/>
  254. <Column size="0"/>
  255. <Column size="0"/>
  256. <Column size="0"/>
  257. <Column size="0"/>
  258. <Column size="100"/>
  259. <Column size="0"/>
  260. <Column size="67"/>
  261. <Column size="51"/>
  262. <Column size="100"/>
  263. <Column size="0"/>
  264. <Column size="100"/>
  265. <Column size="100"/>
  266. <Column size="0"/>
  267. <Column size="0"/>
  268. <Column size="0"/>
  269. <Column size="0"/>
  270. <Column size="0"/>
  271. <Column size="0"/>
  272. <Column size="0"/>
  273. <Column size="0"/>
  274. <Column size="0"/>
  275. </Columns>
  276. <Rows>
  277. <Row size="31" band="head"/>
  278. <Row size="24"/>
  279. </Rows>
  280. <Band id="head">
  281. <Cell/>
  282. <Cell col="1" displaytype="checkbox" edittype="checkbox" expr="0"/>
  283. <Cell col="2" text="수술&#10;방"/>
  284. <Cell col="3" text="등록번호"/>
  285. <Cell col="4" text="환자명"/>
  286. <Cell col="5" text="물품코드"/>
  287. <Cell col="6" text="SUB"/>
  288. <Cell col="7" text="물품명"/>
  289. <Cell col="8" text="규격"/>
  290. <Cell col="9" text="불출/반환&#10;수량"/>
  291. <Cell col="10" text="미불출"/>
  292. <Cell col="11" text="불출자"/>
  293. <Cell col="12" text="취소여부"/>
  294. <Cell col="13" text="비고"/>
  295. <Cell col="14" text="순번"/>
  296. <Cell col="15" text="집계시작일자"/>
  297. <Cell col="16" text="집계종료일자"/>
  298. <Cell col="17" text="불출자아이디"/>
  299. <Cell col="18" text="불출일시"/>
  300. <Cell col="19" text="확인자"/>
  301. <Cell col="20" text="확인자"/>
  302. <Cell col="21" text="확인&#10;수량"/>
  303. <Cell col="22" text="모델"/>
  304. <Cell col="23" text="불출일자"/>
  305. <Cell col="24" text="제조원"/>
  306. <Cell col="25" text="단위"/>
  307. <Cell col="26" text="cartgubn"/>
  308. <Cell col="27" text="oproomcd"/>
  309. <Cell col="28" text="prcpqty"/>
  310. <Cell col="29" text="ordseq"/>
  311. <Cell col="30" text="oprsrvno"/>
  312. <Cell col="31" text="erprcpflag"/>
  313. <Cell col="32" text="prcpdd"/>
  314. <Cell col="33" text="perfdeptnm"/>
  315. <Cell col="34" text="perfdrnm"/>
  316. </Band>
  317. <Band id="body">
  318. <Cell celltype="head" expr="currow+1"/>
  319. <Cell col="1" displaytype="checkbox" edittype="expr:delyn == '취소' ? 'none' : 'checkbox'" style="controlbackground:EXPR(delyn == '취소' ? 'silver' : '');controlborder:EXPR(delyn == '취소' ? '1 solid #708090cc' : '');" text="bind:chkflag" expr="expr:chkflag == 'true' || chkflag == '1' ? '1' : '0'" tooltiptext="bind:chkflag"/>
  320. <Cell col="2" style="align:left top;padding:5 2 1 2;" text="bind:oproomnm" wordwrap="word" tooltiptext="bind:oproomnm"/>
  321. <Cell col="3" text="bind:pid"/>
  322. <Cell col="4" text="bind:hngnm"/>
  323. <Cell col="5" style="align:left top;padding:5 2 1 2;" text="bind:goodcd" wordwrap="word" tooltiptext="bind:goodcd"/>
  324. <Cell col="6" text="bind:allsizespecid" tooltiptext="bind:allsizespecid"/>
  325. <Cell col="7" style="align:left top;padding:5 2 1 2;" text="bind:goodnm" wordwrap="word" tooltiptext="bind:goodnm"/>
  326. <Cell col="8" style="align:left top;padding:5 2 1 2;" text="bind:goodspec" wordwrap="word" tooltiptext="bind:goodspec"/>
  327. <Cell col="9" text="bind:deliveqty" tooltiptext="bind:deliveqty"/>
  328. <Cell col="10" text="bind:undeliveqty"/>
  329. <Cell col="11" text="bind:delivenm" tooltiptext="bind:delivenm"/>
  330. <Cell col="12" style="color:EXPR(delyn == '취소' ? '#ff0000' : '#000000');color2:EXPR(delyn == '취소' ? '#ff0000' : '#000000');" text="bind:delyn" tooltiptext="bind:delyn"/>
  331. <Cell col="13" text="bind:cmt"/>
  332. <Cell col="14" text="bind:seqno"/>
  333. <Cell col="15" text="bind:sumfromdd"/>
  334. <Cell col="16" text="bind:sumtodd"/>
  335. <Cell col="17" text="bind:deliveid"/>
  336. <Cell col="18" text="bind:delivetm" mask="####-##-## ##:##" maskchar=" " tooltiptext="bind:delivetm"/>
  337. <Cell col="19" text="bind:cnfmid"/>
  338. <Cell col="20" text="bind:cnfmnm" tooltiptext="bind:cnfmnm"/>
  339. <Cell col="21" displaytype="text" edittype="expr:delyn == '취소' ? 'text' : 'none'" text="bind:cnfmqty" editautoselect="true" tooltiptext="bind:cnfmqty"/>
  340. <Cell col="22" style="align:left top;padding:5 2 1 2;" text="bind:goodmodel" wordwrap="word" tooltiptext="bind:goodmodel"/>
  341. <Cell col="23" text="bind:delivedd" mask="yyyy-mm-dd"/>
  342. <Cell col="24" style="align:left top;padding:5 2 1 2;" text="bind:prodcmpynm" wordwrap="word" tooltiptext="bind:prodcmpynm"/>
  343. <Cell col="25" edittype="none" text="bind:prcpunit" tooltiptext="bind:prcpunit"/>
  344. <Cell col="26" text="bind:cartgubn"/>
  345. <Cell col="27" text="bind:oproomcd"/>
  346. <Cell col="28" text="bind:prcpqty"/>
  347. <Cell col="29" text="bind:ordseq"/>
  348. <Cell col="30" text="bind:oprsrvno"/>
  349. <Cell col="31" text="bind:erprcpflag"/>
  350. <Cell col="32" text="bind:prcpdd"/>
  351. <Cell col="33" text="bind:perfdeptnm"/>
  352. <Cell col="34" text="bind:perfdrnm"/>
  353. </Band>
  354. </Format>
  355. </Formats>
  356. </Grid>
  357. <Shape id="line3" linetype="horizontal" class="line_10" position="absolute 0 479 1195 485" anchor="left top right"/>
  358. <Button id="btn_cnclcnfm" taborder="8" text="확정취소" class="btn5" position="absolute 1131 460 1195 479" anchor="top right" onclick="btn_cnclcnfm_onclick"/>
  359. <Button id="button4" taborder="9" text="Excel" class="btn7" position="absolute 1069 460 1130 479" anchor="top right" onclick="button4_onclick"/>
  360. <Button id="button5" taborder="10" text="출력" class="btn6" position="absolute 926 95 976 114" anchor="top right" onclick="button5_onclick"/>
  361. <Button id="button6" taborder="11" text="출력" class="btn6" position="absolute 1018 460 1068 479" anchor="top right" onclick="button6_onclick"/>
  362. <Button id="button7" taborder="12" text="전체출력" class="btn6" position="absolute 937 460 1017 479" anchor="top right" onclick="button7_onclick"/>
  363. <Button id="button8" taborder="13" text="반납확인" class="btn5" position="absolute 872 460 936 479" anchor="top right" onclick="button8_onclick"/>
  364. <Button id="button9" taborder="14" text="프린터설정" class="btn6" position="absolute 641 95 732 114" anchor="top right" onclick="button9_onclick"/>
  365. <Static id="caption7" text="현재사용자 :" position="absolute 488 96 573 114" anchor="top right" style="font:Dotum,9,bold;"/>
  366. <Edit id="opt_usernm" taborder="15" readonly="true" class="output_defualt" position="absolute 573 95 638 114" anchor="top right" style="font:Dotum,9,bold;"/>
  367. <Button id="button10" taborder="16" text="바코드출력" class="btn6" position="absolute 977 95 1068 114" anchor="top right" onclick="button10_onclick"/>
  368. </Layout>
  369. </Layouts>
  370. <Objects>
  371. <Dataset id="ds_main_cond" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  372. <ColumnInfo>
  373. <Column id="oproomcd" type="STRING" size="256"/>
  374. <Column id="goodcd" type="STRING" size="256"/>
  375. <Column id="goodnm" type="STRING" size="256"/>
  376. <Column id="allsizespecid" type="STRING" size="256"/>
  377. <Column id="refdeptflag" type="STRING" size="256"/>
  378. <Column id="cureflag" type="STRING" size="256"/>
  379. <Column id="oprosette" type="STRING" size="256"/>
  380. <Column id="opfromdd" type="STRING" size="256"/>
  381. <Column id="optodd" type="STRING" size="256"/>
  382. <Column id="tabflag" type="STRING" size="256"/>
  383. <Column id="subflag" type="STRING" size="256"/>
  384. <Column id="erprcpflag" type="STRING" size="256"/>
  385. <Column id="usernm" type="STRING" size="256"/>
  386. <Column id="goodflag" type="STRING" size="256"/>
  387. <Column id="deptflag" type="STRING" size="256"/>
  388. </ColumnInfo>
  389. <Rows>
  390. <Row>
  391. <Col id="oproomcd"/>
  392. <Col id="goodcd"/>
  393. <Col id="goodnm"/>
  394. <Col id="allsizespecid"/>
  395. <Col id="refdeptflag">O</Col>
  396. <Col id="cureflag"/>
  397. <Col id="oprosette"/>
  398. <Col id="opfromdd"/>
  399. <Col id="optodd"/>
  400. <Col id="tabflag">CCR</Col>
  401. <Col id="subflag">M</Col>
  402. <Col id="erprcpflag">Y</Col>
  403. <Col id="usernm"/>
  404. </Row>
  405. </Rows>
  406. </Dataset>
  407. <Dataset id="ds_main_deliveLists_prcplist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_main_deliveLists_prcplist_oncolumnchanged">
  408. <ColumnInfo>
  409. <Column id="chkflag" type="STRING" size="256" sumtext="01 chkflag"/>
  410. <Column id="oproomnm" type="STRING" size="256" sumtext="02 수술방"/>
  411. <Column id="goodcd" type="STRING" size="256" sumtext="03 물품코드"/>
  412. <Column id="allsizespecid" type="STRING" size="256" sumtext="04 사이즈"/>
  413. <Column id="goodnm" type="STRING" size="256" sumtext="05 물품명"/>
  414. <Column id="goodspec" type="STRING" size="256" sumtext="06 규격"/>
  415. <Column id="goodmodel" type="STRING" size="256" sumtext="07 모델"/>
  416. <Column id="prodcmpynm" type="STRING" size="256" sumtext="08 제조원"/>
  417. <Column id="prcpunit" type="STRING" size="256" sumtext="09 처방단위"/>
  418. <Column id="prcpqty" type="STRING" size="256" sumtext="10 처방량"/>
  419. <Column id="deliveqty" type="STRING" size="256" sumtext="11 불출량"/>
  420. <Column id="undeliveqty" type="STRING" size="256" sumtext="12 미불출"/>
  421. <Column id="cmt" type="STRING" size="256" sumtext="13 CMT"/>
  422. <Column id="oproomcd" type="STRING" size="256" sumtext="14 방코드"/>
  423. <Column id="bfdeliveqty" type="STRING" size="256" sumtext="15 이전불출수량"/>
  424. <Column id="pid" type="STRING" size="256" sumtext="16 등록번호"/>
  425. <Column id="hngnm" type="STRING" size="256" sumtext="17 환자명"/>
  426. <Column id="cartgubn" type="STRING" size="256" sumtext="18 cart구분"/>
  427. <Column id="ordseq" type="STRING" size="256" sumtext="19 처방순번"/>
  428. <Column id="oprsrvno" type="STRING" size="256" sumtext="20 수술번호"/>
  429. <Column id="erprcpflag" type="STRING" size="256" sumtext="21 응급처방구분"/>
  430. <Column id="prcpdd" type="STRING" size="256" sumtext="22 처방일자"/>
  431. <Column id="deptengabbr" type="STRING" size="256" sumtext="23 집도과"/>
  432. <Column id="sexage" type="STRING" size="256" sumtext="24 성별"/>
  433. <Column id="prcpernm" type="STRING" size="256" sumtext="25 처방자"/>
  434. <Column id="opcnfmdd" type="STRING" size="256" sumtext="26 수술확정일"/>
  435. <Column id="barcdno" type="STRING" size="256" sumtext="27 바코드"/>
  436. </ColumnInfo>
  437. </Dataset>
  438. <Dataset id="ds_main_deliveLists_delivelist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_main_deliveLists_delivelist_oncolumnchanged">
  439. <ColumnInfo>
  440. <Column id="chkflag" type="STRING" size="256" sumtext="01 chkflag"/>
  441. <Column id="oproomnm" type="STRING" size="256" sumtext="02 수술방"/>
  442. <Column id="goodcd" type="STRING" size="256" sumtext="03 물품코드"/>
  443. <Column id="allsizespecid" type="STRING" size="256" sumtext="04 사이즈"/>
  444. <Column id="goodnm" type="STRING" size="256" sumtext="05 물품명"/>
  445. <Column id="goodspec" type="STRING" size="256" sumtext="06 규격"/>
  446. <Column id="goodmodel" type="STRING" size="256" sumtext="07 모델"/>
  447. <Column id="prodcmpynm" type="STRING" size="256" sumtext="08 제조원"/>
  448. <Column id="prcpunit" type="STRING" size="256" sumtext="09 처방단위"/>
  449. <Column id="prcpqty" type="STRING" size="256" sumtext="10 처방량"/>
  450. <Column id="deliveqty" type="STRING" size="256" sumtext="11 불출량"/>
  451. <Column id="undeliveqty" type="STRING" size="256" sumtext="12 미불출"/>
  452. <Column id="delivetm" type="STRING" size="256" sumtext="13 불출일자"/>
  453. <Column id="delivenm" type="STRING" size="256" sumtext="14 불출자"/>
  454. <Column id="oproomcd" type="STRING" size="256" sumtext="15 방코드"/>
  455. <Column id="deliveid" type="STRING" size="256" sumtext="16 불출자아이디"/>
  456. <Column id="cmt" type="STRING" size="256" sumtext="17 CMT"/>
  457. <Column id="seqno" type="STRING" size="256" sumtext="18 순번"/>
  458. <Column id="sumfromdd" type="STRING" size="256" sumtext="19 집계시작일자"/>
  459. <Column id="sumtodd" type="STRING" size="256" sumtext="20 집계종료일자"/>
  460. <Column id="delivedd" type="STRING" size="256" sumtext="21 불출일자"/>
  461. <Column id="pid" type="STRING" size="256" sumtext="22 등록번호"/>
  462. <Column id="hngnm" type="STRING" size="256" sumtext="23 환자명"/>
  463. <Column id="cartgubn" type="STRING" size="256" sumtext="24 cart구분"/>
  464. <Column id="ordseq" type="STRING" size="256" sumtext="25 처방순번"/>
  465. <Column id="oprsrvno" type="STRING" size="256" sumtext="26 수술번호"/>
  466. <Column id="erprcpflag" type="STRING" size="256" sumtext="27 응급처방구분"/>
  467. <Column id="prcpdd" type="STRING" size="256" sumtext="28 처방일자"/>
  468. <Column id="perfdeptnm" type="STRING" size="256" sumtext="29 집도과"/>
  469. <Column id="perfdrnm" type="STRING" size="256" sumtext="30 집도의사"/>
  470. <Column id="delyn" type="STRING" size="256" sumtext="31 취소여부"/>
  471. <Column id="cnfmid" type="STRING" size="256" sumtext="32 확인자ID"/>
  472. <Column id="cnfmnm" type="STRING" size="256" sumtext="33 확인자명"/>
  473. <Column id="cnfmqty" type="STRING" size="256" sumtext="34 확인수량"/>
  474. </ColumnInfo>
  475. </Dataset>
  476. <Dataset id="ds_init_rosettelist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  477. <ColumnInfo>
  478. <Column id="rosettecd" type="STRING" size="256" sumtext="rosettecd"/>
  479. <Column id="rosettenm" type="STRING" size="256" sumtext="rosettenm"/>
  480. </ColumnInfo>
  481. </Dataset>
  482. <Dataset id="ds_init_oproomlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  483. <ColumnInfo>
  484. <Column id="oproomcd" type="STRING" size="256" sumtext="수술방코드"/>
  485. <Column id="oproomnm" type="STRING" size="256" sumtext="수술방명"/>
  486. </ColumnInfo>
  487. </Dataset>
  488. <Dataset id="ds_viewctrl_viewctrllist_viewctrlinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  489. <ColumnInfo>
  490. <Column id="cdnm" type="STRING" size="256" sumtext="코드명"/>
  491. <Column id="cdid" type="STRING" size="256" sumtext="코드아이디"/>
  492. </ColumnInfo>
  493. </Dataset>
  494. <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  495. <Dataset id="ds_temp" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  496. <ColumnInfo>
  497. <Column id="refflag" type="STRING" size="256"/>
  498. </ColumnInfo>
  499. <Rows>
  500. <Row/>
  501. </Rows>
  502. </Dataset>
  503. <Dataset id="ds_barcdprntsetup" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  504. <ColumnInfo>
  505. <Column id="prntsetupinfo" type="STRING" size="256" sumtext="코드"/>
  506. <Column id="macaddr" type="STRING" size="256" sumtext="macaddr"/>
  507. </ColumnInfo>
  508. </Dataset>
  509. <Dataset id="ds_nodes" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  510. <Dataset id="ds_temp_barcdlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  511. <Dataset id="ds_send_reqdata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  512. <Dataset id="ds_send_savedata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  513. <Dataset id="ds_main_deliveLists_barcdlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  514. <Dataset id="ds_codelist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  515. <Dataset id="ds_send_report" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  516. <Dataset id="ds_hidden_deliveLists_delivelist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  517. <Dataset id="ds_send_savedata_savelist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  518. </Objects>
  519. <Bind>
  520. <BindItem id="item0" compid="grp_sea.ipt_reqfromdd" propid="value" datasetid="ds_main_cond" columnid="opfromdd"/>
  521. <BindItem id="item1" compid="grp_sea.ipt_reqtodd" propid="value" datasetid="ds_main_cond" columnid="optodd"/>
  522. <BindItem id="item2" compid="grp_sea.combo2" propid="value" datasetid="ds_main_cond" columnid="refdeptflag"/>
  523. <BindItem id="item3" compid="grp_sea.combo1" propid="value" datasetid="ds_main_cond" columnid="cureflag"/>
  524. <BindItem id="item4" compid="grp_sea.radio1" propid="value" datasetid="ds_main_cond" columnid="erprcpflag"/>
  525. <BindItem id="item5" compid="grp_sea.ipt_goodnm" propid="value" datasetid="ds_main_cond" columnid="goodnm"/>
  526. <BindItem id="item6" compid="grp_sea.ipt_goodcd" propid="value" datasetid="ds_main_cond" columnid="goodcd"/>
  527. <BindItem id="item7" compid="grp_sea.cmb_oproomcd" propid="value" datasetid="ds_main_cond" columnid="oproomcd"/>
  528. <BindItem id="item8" compid="grp_sea.cmb_rosette" propid="value" datasetid="ds_main_cond" columnid="oprosette"/>
  529. <BindItem id="item9" compid="opt_usernm" propid="value" datasetid="ds_main_cond" columnid="usernm"/>
  530. </Bind>
  531. <Script type="xscript4.0"><![CDATA[/***************************************************************************************
  532. * System Name :
  533. * Job Name :
  534. * Creator :
  535. * Make Date : 2016-10-12
  536. * Description :
  537. *---------------------------------------------------------------------------------------
  538. * Modify Date Modifier Modify Description
  539. *---------------------------------------------------------------------------------------
  540. * 2016-10-12 Live Converter TF->XP
  541. *
  542. *---------------------------------------------------------------------------------------
  543. ****************************************************************************************/
  544. include "com_commonxp::comm_main.xjs";
  545. include "emr_carecomxp::CareCom.xjs";
  546. include "emr_opanstxp::SMMNP02000.xjs";
  547. include "com_commodulexp::SSZFM00901.xjs";
  548. include "emr_carecomxp::ENRSignEngine.xjs";
  549. function SMMNP02000_oninit(obj:Form, e:InitEventInfo)
  550. {
  551. frmf_initForm(obj);
  552. grdf_initGrid(grd_delivelist);
  553. grdf_initGrid(grd_prcplist);
  554. }
  555. function SMMNP02000_onload(obj:Form, e:LoadEventInfo)
  556. {
  557. fInit();
  558. }
  559. function fInit()
  560. {
  561. var curday = new Date();
  562. var dayflag = curday.getDay();
  563. var curdate = curday.getDateFormat();
  564. ds_main_cond.setColumn(0, "opfromdd", utlf_getCurrentDate());
  565. ds_main_cond.setColumn(0, "optodd", utlf_getCurrentDate());
  566. frmf_inputEnterKey("grp_sea.radio1", "onitemchanged", new ItemChangeEventInfo );
  567. // grd_prcplist.explorerbar = "sort";
  568. // grd_prcplist.fixedcellcheckbox(0,1) = true;
  569. // grd_delivelist.explorerbar = "sort";
  570. // grd_delivelist.fixedcellcheckbox(0,1) = true;
  571. var oParam = {};
  572. oParam.id = "TRMNP05001";
  573. oParam.service = "opanstapp.OpAnstStocMngt";
  574. oParam.method = "reqGetOpRoomCdList";
  575. oParam.inds = "";
  576. oParam.outds = "ds_init_oproomlist=oproomlist";
  577. oParam.async = false;
  578. //oParam.callback = "cf_TRMNP05001";
  579. tranf_submit(oParam);
  580. frmf_addComboItem("grp_sea.cmb_oproomcd","전체","","above");
  581. grp_sea.cmb_oproomcd.value = "";
  582. var oParam = {};
  583. oParam.id = "TRMNP03004";
  584. oParam.service = "opanstapp.OpAnstStocMngt";
  585. oParam.method = "reqGetRosettelist";
  586. oParam.inds = "";
  587. oParam.outds = "ds_init_rosettelist=rosettelist";
  588. oParam.async = false;
  589. //oParam.callback = "cf_TRMNP03004";
  590. tranf_submit(oParam);
  591. frmf_addComboItem("grp_sea.cmb_rosette","전체","","above");
  592. dsf_makeValue(ds_send, "cdgrupid", "string", "038", 0);
  593. var oParam = {};
  594. oParam.id = "TRMNP00323";
  595. oParam.service = "opanstapp.OpAnstRec";
  596. oParam.method = "reqGetViewerCtrlInfo";
  597. oParam.inds = "req=ds_send";
  598. oParam.outds = "ds_viewctrl_viewctrllist_viewctrlinfo=viewctrlinfo";
  599. oParam.async = false;
  600. //oParam.callback = "cf_TRMNP00323";
  601. tranf_submit(oParam);
  602. var cdgrupid = "'U08'";
  603. fGetNursHardCdInfo(cdgrupid, utlf_getCurrentDate());
  604. opt_usernm.value = sysf_getUserInfo("usernm");
  605. fSearch();
  606. }
  607. function fSearch()
  608. {
  609. var oParam = {};
  610. oParam.id = "TRMNP02001";
  611. oParam.service = "opanstapp.OpAnstStocMngt";
  612. oParam.method = "reqGetPrcpDeliveList";
  613. oParam.inds = "reqdata=ds_main_cond";
  614. oParam.outds = "ds_main_deliveLists_prcplist=prcplist ds_main_deliveLists_delivelist=delivelist";
  615. oParam.async = false;
  616. //oParam.callback = "cf_TRMNP02001";
  617. tranf_submit(oParam);
  618. if( utlf_isNull(ds_main_deliveLists_prcplist.getColumnInfo("ordseq")) ){
  619. ds_main_deliveLists_prcplist.addColumn("ordseq", "string");
  620. }
  621. if( utlf_isNull(ds_main_deliveLists_prcplist.getColumnInfo("oprsrvno")) ){
  622. ds_main_deliveLists_prcplist.addColumn("oprsrvno", "string");
  623. }
  624. if( utlf_isNull(ds_main_deliveLists_prcplist.getColumnInfo("erprcpflag")) ){
  625. ds_main_deliveLists_prcplist.addColumn("erprcpflag", "string");
  626. }
  627. if( utlf_isNull(ds_main_deliveLists_prcplist.getColumnInfo("prcpdd")) ){
  628. ds_main_deliveLists_prcplist.addColumn("prcpdd", "string");
  629. }
  630. if( utlf_isNull(ds_main_deliveLists_prcplist.getColumnInfo("sexage")) ){
  631. ds_main_deliveLists_prcplist.addColumn("sexage", "string");
  632. }
  633. if( utlf_isNull(ds_main_deliveLists_prcplist.getColumnInfo("deptengabbr")) ){
  634. ds_main_deliveLists_prcplist.addColumn("deptengabbr", "string");
  635. }
  636. if( utlf_isNull(ds_main_deliveLists_prcplist.getColumnInfo("prcpernm")) ){
  637. ds_main_deliveLists_prcplist.addColumn("prcpernm", "string");
  638. }
  639. if( utlf_isNull(ds_main_deliveLists_prcplist.getColumnInfo("opcnfmdd")) ){
  640. ds_main_deliveLists_prcplist.addColumn("opcnfmdd", "string");
  641. }
  642. dsf_setDefaultVal(ds_main_deliveLists_prcplist, "barcdno:-,cmt:");
  643. if(ds_main_cond.getColumn(0, "erprcpflag") == "Y")
  644. {
  645. grd_prcplist.setFormatColProperty(3, "size", 60);
  646. grd_prcplist.setFormatColProperty(4, "size", 60);
  647. grd_delivelist.setFormatColProperty(3, "size", 60);
  648. grd_delivelist.setFormatColProperty(4, "size", 60);
  649. button1.enable = false;
  650. var delyn;
  651. for(var i = 0; i < ds_main_deliveLists_delivelist.rowcount; i++)
  652. {
  653. delyn = ds_main_deliveLists_delivelist.getColumn(i, "delyn");
  654. if(delyn=="취소")
  655. {
  656. //grd_delivelist.setCellProperty("Body", grd_delivelist.getBindCellIndex("Body", "cnfmqty"), "edittype", "text");
  657. }
  658. else
  659. {
  660. //grd_delivelist.setCellProperty("Body", grd_delivelist.getBindCellIndex("Body", "cnfmqty"), "edittype", "none");
  661. }
  662. }
  663. }
  664. else
  665. {
  666. grd_prcplist.setFormatColProperty(3, "size", 0);
  667. grd_prcplist.setFormatColProperty(4, "size", 0);
  668. grd_delivelist.setFormatColProperty(3, "size", 0);
  669. grd_delivelist.setFormatColProperty(4, "size", 0);
  670. button1.enable = true;
  671. }
  672. }
  673. function fCalcdate(calcn, calcd)
  674. {
  675. calcd = calcd.toDate("YYYYMMDD");
  676. calcd = calcd.getAddDate(calcn , "D");
  677. calcd = calcd.getDateFormat("YYYYMMDD");
  678. return calcd;
  679. }
  680. function grp_sea_button25_onclick(obj:Button, e:ClickEventInfo)
  681. {
  682. var sChkdd = utlf_getCurrentDate();
  683. var sCalcdd = fCalcdate(-1, sChkdd);
  684. ds_main_cond.setColumn(0, "opfromdd", sCalcdd);
  685. ds_main_cond.setColumn(0, "optodd", sCalcdd);
  686. }
  687. function grp_sea_button18_onclick(obj:Button, e:ClickEventInfo)
  688. {
  689. var sChkdd = utlf_getCurrentDate();
  690. ds_main_cond.setColumn(0, "opfromdd", sChkdd);
  691. ds_main_cond.setColumn(0, "optodd", sChkdd);
  692. }
  693. function grp_sea_button17_onclick(obj:Button, e:ClickEventInfo)
  694. {
  695. var sChkdd = utlf_getCurrentDate();
  696. var sCalcdd = fCalcdate(1, sChkdd);
  697. ds_main_cond.setColumn(0, "opfromdd", sCalcdd);
  698. ds_main_cond.setColumn(0, "optodd", sCalcdd);
  699. }
  700. function grp_sea_radio1_onitemchanged(obj:Radio, e:ItemChangeEventInfo)
  701. {
  702. if (obj.value == "Y")
  703. {
  704. button8.visible = true;
  705. }
  706. else if (obj.value == "N")
  707. {
  708. button8.visible = false;
  709. }
  710. }
  711. function grp_sea_cmb_rosette_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
  712. {
  713. ds_send.clearData();
  714. dsf_makeValue(ds_send, "opcnfmdd", "string", String(utlf_getCurrentDate()).substr(0, 8), 0);
  715. dsf_makeValue(ds_send, "rosette", "string", ds_main_cond.getColumn(0, "oprosette"), 0);
  716. var oParam = {};
  717. oParam.id = "TRMNP03002";
  718. oParam.service = "opanstapp.OpAnstCCrtGoodMngt";
  719. oParam.method = "reqGetOmcdlist";
  720. oParam.inds = "req=ds_send";
  721. oParam.outds = "ds_init_oproomlist=oproomlist";
  722. oParam.async = false;
  723. oParam.callback = "cf_TRMNP03002";
  724. tranf_submit(oParam);
  725. }
  726. function cf_TRMNP03002(sSvcId, nErrorCode, sErrorMsg)
  727. {
  728. if(nErrorCode < 0)
  729. {
  730. return;
  731. }
  732. else
  733. {
  734. frmf_addComboItem("grp_sea.cmb_oproomcd","전체","","above");
  735. grp_sea.cmb_oproomcd.value = "";
  736. }
  737. }
  738. function grp_sea_ipt_goodcd_onkeyup(obj:Edit, e:KeyEventInfo)
  739. {
  740. if(e.keycode == 13)
  741. {
  742. obj.updateToDataset();
  743. grp_sea.btn_search.click();
  744. }
  745. }
  746. function grp_sea_btn_goodsearch_onclick(obj:Button, e:ClickEventInfo)
  747. {
  748. var refflag = ds_temp.getColumn(0, "refflag");
  749. if( refflag == "1" )
  750. {
  751. frmf_setParameter("refnm", ds_main_cond.getColumn(0, "goodnm"));
  752. frmf_setParameter("refflag", "1");
  753. }
  754. else if( refflag == "2" )
  755. {
  756. frmf_setParameter("refnm", ds_main_cond.getColumn(0, "goodcd"));
  757. frmf_setParameter("refflag", "2");
  758. }
  759. frmf_setParameter("tabflag", "CCR");
  760. frmf_setParameter("goodflag", ds_main_cond.getColumn(0, "goodflag"));
  761. frmf_setParameter("menuparam", "S");
  762. frmf_setParameter("cartgubn", ds_main_cond.getColumn(0, "deptflag"));
  763. frmf_modal("SMMNP04460", "SMMNP04460", "", "", "", "", "", "", "", "", "", "", "M");
  764. var getData = frmf_getParameter("SendData");
  765. if(utlf_isNull(getData))
  766. {
  767. return;
  768. }
  769. else
  770. {
  771. var getDataTemp1 = getData.split("▩");
  772. var getDataTemp2 = getDataTemp1[0].split("|");
  773. ds_main_cond.setColumn(0, "goodcd", getDataTemp2[0]);
  774. ds_main_cond.setColumn(0, "goodnm", getDataTemp2[1]);
  775. ds_main_cond.setColumn(0, "allsizespecid", getDataTemp2[2]);
  776. }
  777. }
  778. function grp_sea_ipt_goodnm_onkeyup(obj:Edit, e:KeyEventInfo)
  779. {
  780. if(e.keycode == 13)
  781. {
  782. obj.updateToDataset();
  783. grp_sea.btn_search.click();
  784. }
  785. }
  786. function grp_sea_btn_search_onclick(obj:Button, e:ClickEventInfo)
  787. {
  788. fSearch();
  789. }
  790. function grp_sea_button2_onclick(obj:Button, e:ClickEventInfo)
  791. {
  792. ds_main_cond.setColumn(0, "goodcd", "");
  793. ds_main_cond.setColumn(0, "goodnm", "");
  794. ds_main_cond.setColumn(0, "allsizespecid", "");
  795. ds_main_cond.setColumn(0, "variable", "");
  796. }
  797. function button9_onclick(obj:Button, e:ClickEventInfo)
  798. {
  799. //20101119_KNUH_수정.
  800. var scrnid = "SMMNP02000";
  801. ds_barcdprntsetup.clearData();
  802. fGetBarCodeInfo(scrnid); // CareCom.js
  803. // 노드값을 컬럼 값으로 가져옴에 따라 DS 로 변환 처리 ---------------------------------------------------
  804. //XML string 값을 파라미터로 넘김
  805. //성공시 : 'success' 실패시 : 'error' 값을 리턴함
  806. var sParamObj = new Object();
  807. sParamObj.pathYN = 'N'; //dsvaluepath 컬럼 사용여부
  808. var pXmlStr = ds_barcdprntsetup.getColumn(0, "prntsetupinfo");
  809. var succYn = lf_convertXmlToDs(pXmlStr, sParamObj);
  810. // => retrun DS
  811. // : ds_data_setupinfo(prntkind, commkind)
  812. // : ds_data_comm01(setupval)
  813. // : ds_data_comm02(comm, databit, stopbit, baudrate, parity, setupval)
  814. // : ds_data_comm03(setupval)
  815. // : ds_data_blank(left, top)
  816. // ------------------------------------------------------------------------------------------------------------
  817. var count = ds_data_setupinfo.rowcount;
  818. if(count == 0) {
  819. ds_data_setupinfo.addRow();
  820. }
  821. var objArg = new Object();
  822. objArg.arg_sSetupInfo = ds_barcdprntsetup.getColumn(0, "prntsetupinfo");
  823. objArg.arg_sCallBackFunction = "lf_convertXmlToDs";
  824. frmf_modal("SPZUR00300","SPZUR00300",objArg,"","","","","","","","","","M");
  825. }
  826. function button3_onclick(obj:Button, e:ClickEventInfo)
  827. {
  828. frmf_modal("SMMNP04000", "SMMNP04000", "", "", "", "", "", "", "", "", "", "", "M");
  829. }
  830. function button1_onclick(obj:Button, e:ClickEventInfo)
  831. {
  832. frmf_modal("SMMNP02100", "SMMNP02100", "", "", "", "", "", "", "", "", "", "", "M");
  833. }
  834. function button5_onclick(obj:Button, e:ClickEventInfo)
  835. {
  836. fCnfmSave("2");
  837. fPrntList("P");
  838. }
  839. function button10_onclick(obj:Button, e:ClickEventInfo)
  840. {
  841. var erprcpflag = ds_main_cond.getColumn(0, "erprcpflag");
  842. if(erprcpflag == "Y") {
  843. } else {
  844. sysf_messageBox("바코드출력은 응급물품일 경우에만 가능합니다.", "E");
  845. return;
  846. }
  847. fCnfmSave("1");
  848. }
  849. function btn_saveexcel_onclick(obj:Button, e:ClickEventInfo)
  850. {
  851. var opfromdd = ds_main_cond.getColumn(0, "opfromdd");
  852. var optodd = ds_main_cond.getColumn(0, "optodd");
  853. grdf_exportExcel(grd_prcplist, "일단위 물품 불출 처방집계("+opfromdd+"~"+optodd+")", "sheetname1" , true, "" , "" , true);
  854. }
  855. function btn_cnfm_onclick(obj:Button, e:ClickEventInfo)
  856. {
  857. fCnfmSave();
  858. }
  859. function button8_onclick(obj:Button, e:ClickEventInfo)
  860. {
  861. var updtdata = grdf_getGridUpdateData(grd_delivelist);
  862. if(updtdata.rowcount == 0) {
  863. sysf_messageBox("반납확인할 목록이 없습니다." , "E");
  864. return;
  865. } else {
  866. ds_nodes.clearData();
  867. ds_main_deliveLists_delivelist.filter("delyn=='취소' && cnfmqty!=''");
  868. ds_nodes.copyData(ds_main_deliveLists_delivelist, true);
  869. ds_main_deliveLists_delivelist.filter("");
  870. if(ds_nodes.rowcount == 0) {
  871. sysf_messageBox("반납확인할 목록이 없습니다." , "E");
  872. return;
  873. }
  874. }
  875. ds_send_savedata_savelist.copyData(updtdata);
  876. var oParam = {};
  877. oParam.id = "TXMNP02001";
  878. oParam.service = "opanstapp.OpAnstStocMngt";
  879. oParam.method = "reqExeDeliveCnfm";
  880. oParam.inds = "savelist=ds_send_savedata_savelist";
  881. oParam.outds = "";
  882. oParam.async = false;
  883. tranf_submit(oParam);
  884. }
  885. /* --------------------------------------------------*/
  886. /* type : function */
  887. /* access : public */
  888. /* desc : 일단위 물품 불출 확정 */
  889. /* param : */
  890. /* return : */
  891. /* --------------------------------------------------*/
  892. function fCnfmSave(flag) {
  893. var iRows = -1;
  894. var chkflag, oproomcd, goodcd, allsizespecid, opfromdd, optodd, deliveqty, cmt, refdeptflag, cartgubn, ordseq, oprsrvno, erprcpflag;
  895. var cnt = 0;
  896. iRows = ds_main_deliveLists_prcplist.rowcount;
  897. ds_main_deliveLists_prcplist.filter("chkflag=='true' || chkflag=='1'");
  898. ds_nodes.copyData(ds_main_deliveLists_prcplist, true);
  899. ds_main_deliveLists_prcplist.filter("");
  900. var tempnode:Dataset;
  901. tempnode = ds_temp_barcdlist;
  902. if(!utlf_isNull(flag)) {
  903. ds_temp_barcdlist.clearData();
  904. ds_temp_barcdlist.addRow();
  905. //var desnode = instance1.selectSingleNode(tempnode);
  906. var node;
  907. if(ds_nodes.rowcount > 0) {
  908. // while(node = nodes.nextNode()) {
  909. // model.duplicate(desnode, node);
  910. // }
  911. ds_temp_barcdlist.copyData(ds_nodes);
  912. }
  913. }
  914. var prcplist = "stat▦goodcd▦allsizespecid▦deptflag▦oproomcd▦sumfromdd▦sumtodd▦deliveqty▦cmt▦delivedd▦seqno▦cartgubn▦ordseq▦oprsrvno▦erprcpflag▦prcpdd▦oproomnm▦pid▦hngnm▦sexage▦goodnm▦deptengabbr▦prcpernm▦barcdno▦opcnfmdd";
  915. for( var i = 0; i < iRows; i++ ) {
  916. chkflag = utlf_transNullToEmpty(ds_main_deliveLists_prcplist.getColumn(i, "chkflag"));
  917. oproomcd = utlf_transNullToEmpty(ds_main_deliveLists_prcplist.getColumn(i, "oproomcd"));
  918. goodcd = utlf_transNullToEmpty(ds_main_deliveLists_prcplist.getColumn(i, "goodcd"));
  919. allsizespecid = utlf_transNullToEmpty(ds_main_deliveLists_prcplist.getColumn(i, "allsizespecid"));
  920. deliveqty = utlf_transNullToEmpty(ds_main_deliveLists_prcplist.getColumn(i, "deliveqty"));
  921. cmt = utlf_transNullToEmpty(ds_main_deliveLists_prcplist.getColumn(i, "cmt"));
  922. refdeptflag = utlf_transNullToEmpty(ds_main_deliveLists_prcplist.getColumn(i, "cartgubn"));
  923. opfromdd = utlf_transNullToEmpty(ds_main_cond.getColumn(0, "opfromdd"));
  924. optodd = utlf_transNullToEmpty(ds_main_cond.getColumn(0, "optodd"));
  925. cartgubn = utlf_transNullToEmpty(ds_main_deliveLists_prcplist.getColumn(i, "cartgubn"));
  926. ordseq = utlf_transNullToEmpty(ds_main_deliveLists_prcplist.getColumn(i, "ordseq"));
  927. oprsrvno = utlf_transNullToEmpty(ds_main_deliveLists_prcplist.getColumn(i, "oprsrvno"));
  928. erprcpflag = utlf_transNullToEmpty(ds_main_deliveLists_prcplist.getColumn(i, "erprcpflag"));
  929. prcpdd = utlf_transNullToEmpty(ds_main_deliveLists_prcplist.getColumn(i, "prcpdd"));
  930. oproomnm = utlf_transNullToEmpty(ds_main_deliveLists_prcplist.getColumn(i, "oproomnm"));
  931. pid = utlf_transNullToEmpty(ds_main_deliveLists_prcplist.getColumn(i, "pid"));
  932. hngnm = utlf_transNullToEmpty(ds_main_deliveLists_prcplist.getColumn(i, "hngnm"));
  933. sexage = utlf_transNullToEmpty(ds_main_deliveLists_prcplist.getColumn(i, "sexage"));
  934. goodnm = utlf_transNullToEmpty(ds_main_deliveLists_prcplist.getColumn(i, "goodnm"));
  935. deptengabbr = utlf_transNullToEmpty(ds_main_deliveLists_prcplist.getColumn(i, "deptengabbr"));
  936. prcpernm = utlf_transNullToEmpty(ds_main_deliveLists_prcplist.getColumn(i, "prcpernm"));
  937. barcdno = utlf_transNullToEmpty(ds_main_deliveLists_prcplist.getColumn(i, "barcdno"));
  938. opcnfmdd = utlf_transNullToEmpty(ds_main_deliveLists_prcplist.getColumn(i, "opcnfmdd"));
  939. if( chkflag == "true" || chkflag == "1") {
  940. if( parseInt(deliveqty) < 1 ) {
  941. sysf_messageBox("불출수량은 0이상만 가능합니다.!", "E000");
  942. return;
  943. }
  944. cnt += 1;
  945. //oproomnm▦pid▦hngnm▦sexage▦goodnm▦deptengabbr▦prcpernm▦barcdno
  946. prcplist = prcplist + "▩" + "I" + "▦" + goodcd + "▦" + allsizespecid + "▦" + refdeptflag + "▦" + oproomcd
  947. + "▦" + opfromdd + "▦" + optodd + "▦" + deliveqty + "▦" + cmt + "▦" + "" + "▦" + ""
  948. + "▦" + cartgubn + "▦" + ordseq + "▦" + oprsrvno + "▦" + erprcpflag + "▦" + prcpdd
  949. + "▦" + oproomnm + "▦" + pid + "▦" + hngnm + "▦" + sexage + "▦" + goodnm+ "▦" + deptengabbr+ "▦" + prcpernm+ "▦" + barcdno + "▦" + opcnfmdd + "▩";
  950. }
  951. }
  952. if( cnt > 0 ) {
  953. ds_send_reqdata.clearData();
  954. ds_send_savedata.clearData();
  955. ds_send_reqdata.addRow();
  956. ds_send_savedata.addRow();
  957. ds_send_reqdata.copyData(ds_main_cond);
  958. dsf_setCSVToDs("ds_send_savedata", prcplist);
  959. // if(utlf_isNull(flag)){
  960. // dsf_makeValue(ds_send_reqdata, "flag", "string", "");
  961. // }else{
  962. //
  963. // }
  964. dsf_makeValue(ds_send_reqdata, "flag", "string", utlf_transNullToEmpty(flag));
  965. var oParam = {};
  966. oParam.id = "TXMNP02001";
  967. oParam.service = "opanstapp.OpAnstStocMngt";
  968. oParam.method = "reqExeDeliveList";
  969. oParam.inds = "reqdata=ds_send_reqdata savedata=ds_send_savedata";
  970. oParam.outds = "ds_main_deliveLists_prcplist=prcplist ds_main_deliveLists_delivelist=delivelist ds_main_deliveLists_barcdlist=barcdlist";
  971. oParam.async = false;
  972. tranf_submit(oParam);
  973. if( utlf_isNull(ds_main_deliveLists_prcplist.getColumnInfo("ordseq")) ){
  974. ds_main_deliveLists_prcplist.addColumn("ordseq", "string");
  975. }
  976. if( utlf_isNull(ds_main_deliveLists_prcplist.getColumnInfo("oprsrvno")) ){
  977. ds_main_deliveLists_prcplist.addColumn("oprsrvno", "string");
  978. }
  979. if( utlf_isNull(ds_main_deliveLists_prcplist.getColumnInfo("erprcpflag")) ){
  980. ds_main_deliveLists_prcplist.addColumn("erprcpflag", "string");
  981. }
  982. if( utlf_isNull(ds_main_deliveLists_prcplist.getColumnInfo("prcpdd")) ){
  983. ds_main_deliveLists_prcplist.addColumn("prcpdd", "string");
  984. }
  985. if( utlf_isNull(ds_main_deliveLists_prcplist.getColumnInfo("sexage")) ){
  986. ds_main_deliveLists_prcplist.addColumn("sexage", "string");
  987. }
  988. if( utlf_isNull(ds_main_deliveLists_prcplist.getColumnInfo("deptengabbr")) ){
  989. ds_main_deliveLists_prcplist.addColumn("deptengabbr", "string");
  990. }
  991. if( utlf_isNull(ds_main_deliveLists_prcplist.getColumnInfo("prcpernm")) ){
  992. ds_main_deliveLists_prcplist.addColumn("prcpernm", "string");
  993. }
  994. if( utlf_isNull(ds_main_deliveLists_prcplist.getColumnInfo("opcnfmdd")) ){
  995. ds_main_deliveLists_prcplist.addColumn("opcnfmdd", "string");
  996. }
  997. dsf_setDefaultVal(ds_main_deliveLists_prcplist, "barcdno:-,cmt:");
  998. var nodes = ds_main_deliveLists_barcdlist.rowcount;
  999. var printyn = ds_codelist.lookup("cdgrupid", 'U08', "cdid");
  1000. if(flag == "1") {
  1001. if(printyn == "Y") {
  1002. if(nodes > 0) {
  1003. fPrintBarcd();
  1004. }
  1005. }
  1006. }
  1007. fCheckGrid();
  1008. }else {
  1009. sysf_messageBox("선택한것이", "I004");
  1010. }
  1011. }
  1012. function fPrintBarcd() {
  1013. sysf_setModelProperty("id", "SMMNP02000");
  1014. var objArg = new Object();
  1015. objArg.arg_ds_main_deliveLists = ds_main_deliveLists_barcdlist;
  1016. frmf_open("SPMNZ00800", "SPMNZ00800", objArg, null, 1, 100, 500, null, null, null, null, null, "M"); //yjh : 커밋
  1017. }
  1018. function fCheckGrid() {
  1019. var oprsrvno;
  1020. var cartgubn;
  1021. var ordseq;
  1022. var oprsrvno2;
  1023. var cartgubn2;
  1024. var ordseq2;
  1025. var nodes = ds_temp_barcdlist.rowcount;
  1026. for(var i = 0; i < nodes; i++) {
  1027. oprsrvno = ds_temp_barcdlist.getColumn(i, "oprsrvno");
  1028. cartgubn = ds_temp_barcdlist.getColumn(i, "cartgubn");
  1029. ordseq = ds_temp_barcdlist.getColumn(i, "ordseq");
  1030. for(var j = 0; j < ds_main_deliveLists_prcplist.rowcount; j++) {
  1031. oprsrvno2 = ds_main_deliveLists_prcplist.getColumn(j, "oprsrvno");
  1032. cartgubn2 = ds_main_deliveLists_prcplist.getColumn(j, "cartgubn");
  1033. ordseq2 = ds_main_deliveLists_prcplist.getColumn(j, "ordseq");
  1034. if( (oprsrvno == oprsrvno2) && (cartgubn == cartgubn2) && (ordseq == ordseq2) ) {
  1035. ds_main_deliveLists_prcplist.setColumn(j, "chkflag", "1");
  1036. continue;
  1037. }
  1038. }
  1039. }
  1040. }
  1041. function grd_delivelist_onheadclick(obj:Grid, e:GridClickEventInfo)
  1042. {
  1043. if( e.col == 1 ){
  1044. if(grd_delivelist.getCellProperty("Head", 1, "expr") == "0"){
  1045. grd_delivelist.setCellProperty("Head", 1, "expr", "1");
  1046. var expr = "1";
  1047. }else if(grd_delivelist.getCellProperty("Head", 1, "expr") == "1"){
  1048. grd_delivelist.setCellProperty("Head", 1, "expr", "0");
  1049. var expr = "0";
  1050. }
  1051. for(var i = 0; i < ds_main_deliveLists_delivelist.rowcount ;i++){
  1052. if(ds_main_deliveLists_delivelist.getColumn(i, "delyn") != "취소"){
  1053. ds_main_deliveLists_delivelist.setColumn(i, "chkflag", expr);
  1054. }
  1055. }
  1056. }
  1057. }
  1058. /* --------------------------------------------------*/
  1059. /* type : function */
  1060. /* access : public */
  1061. /* desc : 일단위 물품 출력 */
  1062. /* param : P:처방집계, D:불출내역 */
  1063. /* return : */
  1064. /* --------------------------------------------------*/
  1065. function fPrntList(pFlag) {
  1066. //20110422 이선경(경북대) : 응급불출은 출력양식이 다름(환자별로 출력)
  1067. if (ds_main_cond.getColumn(0, "erprcpflag") == "Y") {
  1068. ds_send_report.copyData(ds_main_deliveLists_delivelist);
  1069. ds_send_report.clearData();
  1070. var dcnt = 0;
  1071. if (pFlag == "D") { //불출
  1072. for (var i = 0; i < ds_main_deliveLists_delivelist.rowcount; i++) {
  1073. if (ds_main_deliveLists_delivelist.getColumn(i, "chkflag") == "true" || ds_main_deliveLists_delivelist.getColumn(i, "chkflag") == "1") {
  1074. ds_send_report.addRow();
  1075. ds_send_report.copyRow(dcnt, ds_main_deliveLists_delivelist, i);
  1076. dcnt++;
  1077. }
  1078. }
  1079. if (dcnt > 0) {
  1080. // 20110719 wify 경북대병원 출력물 row 2개씩 나오는 오류 수정.(rex파일 xml설정오류)
  1081. var objDOM = rptf_createDOM();
  1082. rptf_setNodeListToDOM(objDOM, "root/send/report/delivelist", ds_send_report); // 데이터셋 1
  1083. rptf_setNodeListToDOM(objDOM, "root/main/cond" , ds_main_cond); // 데이터셋 2
  1084. var objParam = new Object();
  1085. objParam.xml_data_XML1 = objDOM.documentElement.source; // 최상의노드 XML 스트링 추출
  1086. var option = "open=1;save=1;directprint=0;print=1;zoom=0;"; //미리보기
  1087. rptf_exeReportPreview30(["RPMNP02002"],[objParam], option);
  1088. } else {
  1089. sysf_messageBox("출력할 처방을 선택하세요.", "I999");
  1090. }
  1091. } else if (pFlag == "P") { //처방
  1092. ds_send_report.copyData(ds_main_deliveLists_prcplist);
  1093. ds_send_report.clearData();
  1094. for (var i = 0; i < ds_main_deliveLists_prcplist.rowcount; i++) {
  1095. if (ds_main_deliveLists_prcplist.getColumn(i, "chkflag") == "true" || ds_main_deliveLists_prcplist.getColumn(i, "chkflag") == "1") {
  1096. ds_send_report.addRow();
  1097. ds_send_report.copyRow(dcnt, ds_main_deliveLists_prcplist, i);
  1098. dcnt++;
  1099. }
  1100. }
  1101. if (dcnt > 0) {
  1102. var objDOM = rptf_createDOM();
  1103. rptf_setNodeListToDOM(objDOM, "root/send/report/prcplist", ds_send_report); // 데이터셋 1
  1104. var objParam = new Object();
  1105. objParam.xml_data_XML1 = objDOM.documentElement.source; // 최상의노드 XML 스트링 추출
  1106. var option = "open=1;save=1;directprint=0;print=1;zoom=0;"; //미리보기
  1107. rptf_exeReportPreview30(["RPMNP02003"],[objParam], option);
  1108. } else {
  1109. sysf_messageBox("출력할 처방을 선택하세요.", "I999");
  1110. }
  1111. } else if (pFlag == "A") { // 20110914 wify 경북대병원 응급불출내역 전체출력 추가
  1112. ds_send_report.copyData(ds_main_deliveLists_delivelist);
  1113. ds_send_report.clearData();
  1114. for (var i = 0; i < ds_main_deliveLists_delivelist.rowcount; i++) {
  1115. if (ds_main_deliveLists_delivelist.getColumn(i, "chkflag") == "true" || ds_main_deliveLists_delivelist.getColumn(i, "chkflag") == "1") {
  1116. ds_send_report.addRow();
  1117. ds_send_report.copyRow(dcnt, ds_main_deliveLists_delivelist, i);
  1118. dcnt++;
  1119. }
  1120. }
  1121. if (dcnt > 0) {
  1122. // 20110914 wify 경북대병원 응급 불출내역 전체출력 추가
  1123. var objDOM = rptf_createDOM();
  1124. rptf_setNodeListToDOM(objDOM, "root/send/report/delivelist", ds_send_report); // 데이터셋 1
  1125. rptf_setNodeListToDOM(objDOM, "root/main/cond" , ds_main_cond); // 데이터셋 2
  1126. var objParam = new Object();
  1127. objParam.xml_data_XML1 = objDOM.documentElement.source; // 최상의노드 XML 스트링 추출
  1128. var option = "open=1;save=1;directprint=0;print=1;zoom=0;"; //미리보기
  1129. rptf_exeReportPreview30(["RPMNP02004"],[objParam], option);
  1130. } else {
  1131. sysf_messageBox("출력할 처방을 선택하세요.", "I999");
  1132. }
  1133. }
  1134. } else {
  1135. if (pFlag == "D") {
  1136. ds_send_reqdata.clearData();
  1137. ds_send_reqdata.copyData(ds_main_cond);
  1138. ds_send_report.clearData();
  1139. ds_send_report.copyData(ds_main_cond);
  1140. ds_hidden_deliveLists_delivelist.copyData(ds_main_deliveLists_delivelist);
  1141. ds_hidden_deliveLists_delivelist.clearData();
  1142. for (var i = 0; i < ds_main_deliveLists_delivelist.rowcount; i++) {
  1143. // 20110919 wify 경북대병원 본원, 칠곡 요청사항이 다름(본원은 취소내역은 출력되지 않음, 칠곡은 취소내역 출력요청)
  1144. // 20110920 wify 경북대병원 칠곡병원 요청으로 인해 출력물 취소여부 컬럼 추가. 본원은 취소여부에 '확정'만 나옴
  1145. if (sysf_getUserInfo("dutplceinstcd") == "031") {
  1146. if (ds_main_deliveLists_delivelist.getColumn(i, "delyn") == "확정") {
  1147. var addrow = ds_hidden_deliveLists_delivelist.addRow();
  1148. ds_hidden_deliveLists_delivelist.copyRow(addrow, ds_main_deliveLists_delivelist, i);
  1149. }
  1150. } else if (sysf_getUserInfo("dutplceinstcd") == "032") {
  1151. var addrow = ds_hidden_deliveLists_delivelist.addRow();
  1152. ds_hidden_deliveLists_delivelist.copyRow(addrow, ds_main_deliveLists_delivelist, i);
  1153. }
  1154. }
  1155. var objDOM = rptf_createDOM();
  1156. rptf_setNodeListToDOM(objDOM, "root/hidden/deliveLists/delivelist", ds_hidden_deliveLists_delivelist); // 데이터셋 1
  1157. rptf_setNodeListToDOM(objDOM, "root/main/cond" , ds_main_cond); // 데이터셋 2
  1158. var objParam = new Object();
  1159. objParam.xml_data_XML1 = objDOM.documentElement.source; // 최상의노드 XML 스트링 추출
  1160. objParam.opfromdd = ds_main_cond.getColumn(0, "opfromdd"); // 최상의노드 XML 스트링 추출
  1161. objParam.optodd = ds_main_cond.getColumn(0, "optodd"); // 최상의노드 XML 스트링 추출
  1162. objParam.usernm = ds_main_cond.getColumn(0, "usernm"); // 최상의노드 XML 스트링 추출
  1163. var option = "open=1;save=1;directprint=0;print=1;zoom=0;"; //미리보기
  1164. rptf_exeReportPreview30(["RPMNP02001"],[objParam], option);
  1165. ds_hidden_deliveLists_delivelist.clearData();
  1166. // }
  1167. } else if (pFlag == "P") {
  1168. ds_send_report.clearData();
  1169. var objDOM = rptf_createDOM();
  1170. rptf_setNodeListToDOM(objDOM, "root/main/deliveLists/prcplist", ds_main_deliveLists_prcplist); // 데이터셋 1
  1171. rptf_setNodeListToDOM(objDOM, "root/main/cond" , ds_main_cond); // 데이터셋 2
  1172. var objParam = new Object();
  1173. objParam.xml_data_XML1 = objDOM.documentElement.source; // 최상의노드 XML 스트링 추출
  1174. var option = "open=1;save=1;directprint=0;print=1;zoom=0;"; //미리보기
  1175. rptf_exeReportPreview30(["RPMNP02000"],[objParam], option);
  1176. } else if (pFlag == "A") {
  1177. ds_send_reqdata.clearData();
  1178. ds_send_reqdata.copyData(ds_main_cond);
  1179. ds_send_report.clearData();
  1180. ds_send_report.copyData(ds_main_cond);
  1181. ds_hidden_deliveLists_delivelist.copyData(ds_main_deliveLists_delivelist);
  1182. ds_hidden_deliveLists_delivelist.clearData();
  1183. for (var i = 0; i < ds_main_deliveLists_delivelist.rowcount; i++) {
  1184. // 20110919 wify 경북대병원 본원, 칠곡 요청사항이 다름(본원은 취소내역은 출력되지 않음, 칠곡은 취소내역 출력요청)
  1185. // 20110920 wify 경북대병원 칠곡병원 요청으로 인해 출력물 취소여부 컬럼 추가. 본원은 취소여부에 '확정'만 나옴
  1186. if (sysf_getUserInfo("dutplceinstcd") == "031") {
  1187. if (ds_hidden_deliveLists_delivelist.getColumn(i, "delyn") == "확정") {
  1188. var addrow = ds_hidden_deliveLists_delivelist.addRow();
  1189. ds_hidden_deliveLists_delivelist.copyRow(addrow, ds_main_deliveLists_delivelist, i);
  1190. }
  1191. } else if (sysf_getUserInfo("dutplceinstcd") == "032") {
  1192. var addrow = ds_hidden_deliveLists_delivelist.addRow();
  1193. ds_hidden_deliveLists_delivelist.copyRow(addrow, ds_main_deliveLists_delivelist, i);
  1194. }
  1195. }
  1196. var objDOM = rptf_createDOM();
  1197. rptf_setNodeListToDOM(objDOM, "root/hidden/deliveLists/delivelist", ds_hidden_deliveLists_delivelist); // 데이터셋 1
  1198. rptf_setNodeListToDOM(objDOM, "root/main/cond" , ds_main_cond); // 데이터셋 2
  1199. var objParam = new Object();
  1200. objParam.xml_data_XML1 = objDOM.documentElement.source; // 최상의노드 XML 스트링 추출
  1201. objParam.opfromdd = ds_main_cond.getColumn(0, "opfromdd"); // 최상의노드 XML 스트링 추출
  1202. objParam.optodd = ds_main_cond.getColumn(0, "optodd"); // 최상의노드 XML 스트링 추출
  1203. var option = "open=1;save=1;directprint=0;print=1;zoom=0;"; //미리보기
  1204. rptf_exeReportPreview30(["RPMNP02005"],[objParam], option);
  1205. ds_hidden_deliveLists_delivelist.clearData();
  1206. }
  1207. }
  1208. }
  1209. function button7_onclick(obj:Button, e:ClickEventInfo)
  1210. {
  1211. fPrntList("A");
  1212. }
  1213. function button6_onclick(obj:Button, e:ClickEventInfo)
  1214. {
  1215. fPrntList("D");
  1216. }
  1217. function button4_onclick(obj:Button, e:ClickEventInfo)
  1218. {
  1219. var opfromdd = ds_main_cond.getColumn(0, "opfromdd");
  1220. var optodd = ds_main_cond.getColumn(0, "optodd");
  1221. grdf_exportExcel(grd_prcplist, "일단위 물품 불출 불출내역("+opfromdd+"~"+optodd+")", "sheetname1" , true, "" , "" , true);
  1222. }
  1223. function btn_cnclcnfm_onclick(obj:Button, e:ClickEventInfo)
  1224. {
  1225. fCnclCnfmSave();
  1226. }
  1227. /* --------------------------------------------------*/
  1228. /* type : function */
  1229. /* access : public */
  1230. /* desc : 일단위 물품 불출 확정 취소 */
  1231. /* param : */
  1232. /* return : */
  1233. /* --------------------------------------------------*/
  1234. function fCnclCnfmSave() {
  1235. var iRows = -1;
  1236. var chkflag, oproomcd, goodcd, allsizespecid, sumfromdd, sumtodd, deliveqty, cmt, refdeptflag, delivedd, seqno, cartgubn, ordseq, oprsrvno, erprcpflag;
  1237. var cnt = 0;
  1238. iRows = ds_main_deliveLists_delivelist.rowcount;
  1239. var prcplist = "stat▦goodcd▦allsizespecid▦deptflag▦oproomcd▦sumfromdd▦sumtodd▦deliveqty▦cmt▦delivedd▦seqno▦cartgubn▦ordseq▦oprsrvno▦erprcpflag";
  1240. for( var i = 0; i < iRows; i++ ) {
  1241. chkflag = utlf_transNullToEmpty(ds_main_deliveLists_delivelist.getColumn(i, "chkflag"));
  1242. oproomcd = utlf_transNullToEmpty(ds_main_deliveLists_delivelist.getColumn(i, "oproomcd"));
  1243. goodcd = utlf_transNullToEmpty(ds_main_deliveLists_delivelist.getColumn(i, "goodcd"));
  1244. allsizespecid = utlf_transNullToEmpty(ds_main_deliveLists_delivelist.getColumn(i, "allsizespecid"));
  1245. deliveqty = utlf_transNullToEmpty(ds_main_deliveLists_delivelist.getColumn(i, "deliveqty"));
  1246. cmt = utlf_transNullToEmpty(ds_main_deliveLists_delivelist.getColumn(i, "cmt"));
  1247. sumfromdd = utlf_transNullToEmpty(ds_main_deliveLists_delivelist.getColumn(i, "sumfromdd"));
  1248. sumtodd = utlf_transNullToEmpty(ds_main_deliveLists_delivelist.getColumn(i, "sumtodd"));
  1249. delivedd = utlf_transNullToEmpty(ds_main_deliveLists_delivelist.getColumn(i, "delivedd"));
  1250. seqno = utlf_transNullToEmpty(ds_main_deliveLists_delivelist.getColumn(i, "seqno"));
  1251. refdeptflag = utlf_transNullToEmpty(ds_main_deliveLists_delivelist.getColumn(i, "cartgubn"));
  1252. cartgubn = utlf_transNullToEmpty(ds_main_deliveLists_delivelist.getColumn(i, "cartgubn"));
  1253. ordseq = utlf_transNullToEmpty(ds_main_deliveLists_delivelist.getColumn(i, "ordseq"));
  1254. oprsrvno = utlf_transNullToEmpty(ds_main_deliveLists_delivelist.getColumn(i, "oprsrvno"));
  1255. erprcpflag = utlf_transNullToEmpty(ds_main_deliveLists_delivelist.getColumn(i, "erprcpflag"));
  1256. if( chkflag == "true" || chkflag == "1") {
  1257. cnt += 1;
  1258. prcplist = prcplist + "▩" + "C" + "▦" + goodcd + "▦" + allsizespecid + "▦" + refdeptflag + "▦" + oproomcd
  1259. + "▦" + sumfromdd + "▦" + sumtodd + "▦" + deliveqty + "▦" + cmt + "▦" + delivedd + "▦" + seqno
  1260. + "▦" + cartgubn + "▦" + ordseq + "▦" + oprsrvno + "▦" + erprcpflag + "▩";
  1261. }
  1262. }
  1263. if( cnt > 0 ) {
  1264. ds_send_reqdata.clearData();
  1265. ds_send_reqdata.copyData(ds_main_cond);
  1266. ds_send_savedata.clearData();
  1267. dsf_setCSVToDs("ds_send_savedata", prcplist);
  1268. var oParam = {};
  1269. oParam.id = "TXMNP02001";
  1270. oParam.service = "opanstapp.OpAnstStocMngt";
  1271. oParam.method = "reqExeDeliveList";
  1272. oParam.inds = "reqdata=ds_send_reqdata savedata=ds_send_savedata";
  1273. oParam.outds = "ds_main_deliveLists_prcplist=prcplist ds_main_deliveLists_delivelist=delivelist ds_main_deliveLists_barcdlist=barcdlist";
  1274. oParam.async = false;
  1275. tranf_submit(oParam);
  1276. if( utlf_isNull(ds_main_deliveLists_prcplist.getColumnInfo("ordseq")) ){
  1277. ds_main_deliveLists_prcplist.addColumn("ordseq", "string");
  1278. }
  1279. if( utlf_isNull(ds_main_deliveLists_prcplist.getColumnInfo("oprsrvno")) ){
  1280. ds_main_deliveLists_prcplist.addColumn("oprsrvno", "string");
  1281. }
  1282. if( utlf_isNull(ds_main_deliveLists_prcplist.getColumnInfo("erprcpflag")) ){
  1283. ds_main_deliveLists_prcplist.addColumn("erprcpflag", "string");
  1284. }
  1285. if( utlf_isNull(ds_main_deliveLists_prcplist.getColumnInfo("prcpdd")) ){
  1286. ds_main_deliveLists_prcplist.addColumn("prcpdd", "string");
  1287. }
  1288. if( utlf_isNull(ds_main_deliveLists_prcplist.getColumnInfo("sexage")) ){
  1289. ds_main_deliveLists_prcplist.addColumn("sexage", "string");
  1290. }
  1291. if( utlf_isNull(ds_main_deliveLists_prcplist.getColumnInfo("deptengabbr")) ){
  1292. ds_main_deliveLists_prcplist.addColumn("deptengabbr", "string");
  1293. }
  1294. if( utlf_isNull(ds_main_deliveLists_prcplist.getColumnInfo("prcpernm")) ){
  1295. ds_main_deliveLists_prcplist.addColumn("prcpernm", "string");
  1296. }
  1297. if( utlf_isNull(ds_main_deliveLists_prcplist.getColumnInfo("opcnfmdd")) ){
  1298. ds_main_deliveLists_prcplist.addColumn("opcnfmdd", "string");
  1299. }
  1300. dsf_setDefaultVal(ds_main_deliveLists_prcplist, "barcdno:-,cmt:");
  1301. }else {
  1302. sysf_messageBox("선택한것이", "I004");
  1303. }
  1304. }
  1305. function ds_main_deliveLists_delivelist_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
  1306. {
  1307. if(grd_delivelist.currentcol == grd_delivelist.getBindCellIndex("body", "chkflag")) {
  1308. ds_main_deliveLists_delivelist.enableevent = false;
  1309. ds_main_deliveLists_delivelist.updatecontrol = false;
  1310. ds_main_deliveLists_delivelist.setRowType(ds_main_deliveLists_delivelist.rowposition, 1);
  1311. ds_main_deliveLists_delivelist.updatecontrol = true;
  1312. ds_main_deliveLists_delivelist.enableevent = true;
  1313. }
  1314. if(grd_delivelist.currentcol == grd_delivelist.getBindCellIndex("body", "cnfmqty")) {
  1315. ds_main_deliveLists_delivelist.setColumn(ds_main_deliveLists_delivelist.rowposition, "cnfmid", sysf_getUserInfo("userid"));
  1316. ds_main_deliveLists_delivelist.setColumn(ds_main_deliveLists_delivelist.rowposition, "cnfmnm", sysf_getUserInfo("usernm"));
  1317. }
  1318. }
  1319. function ds_main_deliveLists_prcplist_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
  1320. {
  1321. var iRow = -1;
  1322. var iCol = -1;
  1323. var deliveqty = 0;
  1324. var prcpqty = 0;
  1325. var bfdeliveqty = 0;
  1326. iRow = ds_main_deliveLists_prcplist.rowposition;
  1327. iCol = grd_prcplist.currentcol;
  1328. if (ds_main_deliveLists_prcplist.rowcount == 0 || iCol != 11){
  1329. return;
  1330. }
  1331. //if( event.keyCode == 13 ) {
  1332. if( parseInt(utlf_transNullToEmpty(ds_main_deliveLists_prcplist.getColumn(iRow, "deliveqty"))) > parseInt(0)|| parseInt(utlf_transNullToEmpty(ds_main_deliveLists_prcplist.getColumn(iRow, "deliveqty"))) > parseInt(0.0) ) {
  1333. ds_main_deliveLists_prcplist.setColumn(iRow, "chkflag", "1");
  1334. deliveqty = ds_main_deliveLists_prcplist.getColumn(iRow, "deliveqty");
  1335. prcpqty = ds_main_deliveLists_prcplist.getColumn(iRow, "prcpqty");
  1336. bfdeliveqty = ds_main_deliveLists_prcplist.getColumn(iRow, "bfdeliveqty");
  1337. ds_main_deliveLists_prcplist.setColumn(iRow, "undeliveqty", (parseInt(prcpqty) - (parseInt(deliveqty)+parseInt(bfdeliveqty))));
  1338. }
  1339. }
  1340. ]]></Script>
  1341. </Form>
  1342. </FDL>