SMABC00600_조혈모세포출고관리.xfdl 52 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014
  1. <?xml version="1.0" encoding="utf-8"?>
  2. <FDL version="1.5">
  3. <TypeDefinition url="..\..\..\default_typedef.xml"/>
  4. <Form id="SMABC00600" position="absolute 0 0 1199 763" titletext="조혈모세포 출고관리" oninit="SMABC00600_oninit" onload="SMABC00600_onload">
  5. <Layouts>
  6. <Layout>
  7. <Static id="caption6" text="조혈모세포 출고관리" class="tit_1" position="absolute 0 0 200 23"/>
  8. <Button id="btn_prt" taborder="1" text="세포처리결과출력" class="btn6" position="absolute 0 25 128 47" onclick="btn_prt_onclick"/>
  9. <Button id="btn_save" taborder="2" text="저장" class="btn4" position="absolute 1138 25 1194 47" anchor="top right" onclick="btn_save_onclick"/>
  10. <Static id="caption1" text="조혈모세포 출고리스트" class="tit_2" position="absolute 0 119 200 140"/>
  11. <Shape id="line1" class="line_10" position="absolute 0 135 1194 141" anchor="left top right"/>
  12. <Grid id="grd_stemcelldelivelist" class="datagrid2" taborder="3" binddataset="ds_main_stemcelldelive_stemcelldelivelist" useinputpanel="false" cellsizingtype="col" position="absolute 0 140 1194 759" anchor="all">
  13. <Formats>
  14. <Format id="default">
  15. <Columns>
  16. <Column size="22"/>
  17. <Column size="28"/>
  18. <Column size="77"/>
  19. <Column size="0"/>
  20. <Column size="67"/>
  21. <Column size="62"/>
  22. <Column size="50"/>
  23. <Column size="62"/>
  24. <Column size="64"/>
  25. <Column size="64"/>
  26. <Column size="101"/>
  27. <Column size="81"/>
  28. <Column size="123"/>
  29. <Column size="79"/>
  30. <Column size="116"/>
  31. <Column size="100"/>
  32. <Column size="46"/>
  33. <Column size="156"/>
  34. <Column size="100"/>
  35. <Column size="100"/>
  36. <Column size="100"/>
  37. <Column size="100"/>
  38. <Column size="100"/>
  39. <Column size="100"/>
  40. <Column size="100"/>
  41. <Column size="100"/>
  42. <Column size="100"/>
  43. <Column size="100"/>
  44. <Column size="100"/>
  45. <Column size="100"/>
  46. <Column size="100"/>
  47. <Column size="100"/>
  48. <Column size="100"/>
  49. <Column size="100"/>
  50. <Column size="100"/>
  51. <Column size="100"/>
  52. <Column size="100"/>
  53. <Column size="100"/>
  54. <Column size="100"/>
  55. <Column size="100"/>
  56. <Column size="100"/>
  57. <Column size="100"/>
  58. <Column size="100"/>
  59. <Column size="100"/>
  60. <Column size="100"/>
  61. <Column size="100"/>
  62. <Column size="100"/>
  63. <Column size="100"/>
  64. <Column size="100"/>
  65. <Column size="0"/>
  66. <Column size="0"/>
  67. <Column size="100"/>
  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. </Columns>
  80. <Rows>
  81. <Row size="32" band="head"/>
  82. <Row size="24"/>
  83. </Rows>
  84. <Band id="head">
  85. <Cell/>
  86. <Cell col="1" displaytype="checkbox" edittype="checkbox"/>
  87. <Cell col="2" text="보관위치"/>
  88. <Cell col="3" text="적용일자"/>
  89. <Cell col="4" text="등록번호"/>
  90. <Cell col="5" text="환자명"/>
  91. <Cell col="6" text="구분"/>
  92. <Cell col="7" text="이식형태"/>
  93. <Cell col="8" text="Stem Cell&#10;Source"/>
  94. <Cell col="9" text="RBC&#10;Purging"/>
  95. <Cell col="10" text="바코드번호"/>
  96. <Cell col="11" text="출고자"/>
  97. <Cell col="12" text="출고일시"/>
  98. <Cell col="13" text="인수자"/>
  99. <Cell col="14" text="인수일시"/>
  100. <Cell col="15" text="병동도착확인자"/>
  101. <Cell col="16" text="병실"/>
  102. <Cell col="17" text="병동도착일시"/>
  103. <Cell col="18" text="채집량(㎖)"/>
  104. <Cell col="19" text="주입량(㎖)"/>
  105. <Cell col="20" text="주입백수"/>
  106. <Cell col="21" text="Cell Hct(%)"/>
  107. <Cell col="22" text="TNC (10^8)"/>
  108. <Cell col="23" text="TNC (10^8/㎏)"/>
  109. <Cell col="24" text="MNC(10^8)"/>
  110. <Cell col="25" text="MNC(10^8/㎏)"/>
  111. <Cell col="26" text="Lympo(10^8)"/>
  112. <Cell col="27" text="Lympo(10^8/㎏)"/>
  113. <Cell col="28" text="CD34+(%)"/>
  114. <Cell col="29" text="CD34+(10^6)"/>
  115. <Cell col="30" text="CD34+(10^6/㎏)"/>
  116. <Cell col="31" text="CD3(%)"/>
  117. <Cell col="32" text="CD3+(10^6)"/>
  118. <Cell col="33" text="CD3+(10^6/㎏)"/>
  119. <Cell col="34" text="CD4(%)"/>
  120. <Cell col="35" text="CD4(10^6)"/>
  121. <Cell col="36" text="CD4(10^6/kg)"/>
  122. <Cell col="37" text="CD8(%)"/>
  123. <Cell col="38" text="CD8(10^6)"/>
  124. <Cell col="39" text="CD8(10^6/kg)"/>
  125. <Cell col="40" text="CD19(%)"/>
  126. <Cell col="41" text="CD19(10^6)"/>
  127. <Cell col="42" text="CD19(10^6/kg)"/>
  128. <Cell col="43" text="NK+ (%)"/>
  129. <Cell col="44" text="NK+ (10^6)"/>
  130. <Cell col="45" text="NK+ (10^6/㎏)"/>
  131. <Cell col="46" text="TNK+ (%)"/>
  132. <Cell col="47" text="TNK+ (10^6)"/>
  133. <Cell col="48" text="TNK+ (10^6/㎏)"/>
  134. <Cell col="49" text="Purity (%)"/>
  135. <Cell col="50" text="Yield (%)"/>
  136. <Cell col="51" text="Viability(%)"/>
  137. <Cell col="52" text="DELIVEFLAG"/>
  138. <Cell col="53" text="delivepsnid"/>
  139. <Cell col="54" text="acptpsnid"/>
  140. <Cell col="55" text="bdwt"/>
  141. <Cell col="56" text="cellprcpdd"/>
  142. <Cell col="57" text="infsdd"/>
  143. <Cell col="58" text="infsbagqty"/>
  144. <Cell col="59" text="cd34yn"/>
  145. <Cell col="60" text="rgstid"/>
  146. <Cell col="61" text="orddrid"/>
  147. <Cell col="62" text="remark"/>
  148. </Band>
  149. <Band id="body">
  150. <Cell celltype="head" expr="currow+1"/>
  151. <Cell col="1" displaytype="checkbox" edittype="checkbox" text="bind:chk" expr="chk == 'Y' ? 1 : 0"/>
  152. <Cell col="2" displaytype="none" edittype="none" text="bind:keeppos"/>
  153. <Cell col="3" displaytype="none" edittype="none" text="bind:prcphopedd" mask="yyyy-mm-dd"/>
  154. <Cell col="4" displaytype="none" edittype="none" text="bind:pid"/>
  155. <Cell col="5" displaytype="none" edittype="none" text="bind:hngnm"/>
  156. <Cell col="6" displaytype="combo" edittype="combo" text="bind:flag" combodataset="ds_cmb_flag" combocodecol="value" combodatacol="label" enable="false"/>
  157. <Cell col="7" displaytype="combo" edittype="combo" text="bind:trnpttype" combodataset="ds_init_cmbinfo_trnpttype_A0158" combocodecol="cdid" combodatacol="cdnm" enable="false"/>
  158. <Cell col="8" displaytype="combo" edittype="combo" text="bind:scs" combodataset="ds_init_cmbinfo_scs_A0159" combocodecol="cdid" combodatacol="cdnm" enable="false"/>
  159. <Cell col="9" text="bind:rbcelmnyn"/>
  160. <Cell col="10" text="bind:cellbcno"/>
  161. <Cell col="11" text="bind:delivepsnnm"/>
  162. <Cell col="12" displaytype="date" text="bind:delivedt" mask="yyyy-MM-dd hh:mm:ss" calendardisplaynulltype="nulltext"/>
  163. <Cell col="13" displaytype="text" edittype="text" text="bind:acptpsnnm" enable="false"/>
  164. <Cell col="14" displaytype="date" text="bind:acptdt" mask="yyyy-MM-dd hh:mm:ss" calendardisplaynulltype="nulltext"/>
  165. <Cell col="15" text="bind:wardarvcnfmrid"/>
  166. <Cell col="16" text="bind:roomcd"/>
  167. <Cell col="17" displaytype="date" text="bind:wardarvcnfmdt" mask="yyyy-MM-dd hh:mm:ss" calendardisplaynulltype="nulltext"/>
  168. <Cell col="18" text="bind:tretvol"/>
  169. <Cell col="19" text="bind:infsvol"/>
  170. <Cell col="20" text="bind:infsbagqty"/>
  171. <Cell col="21" text="bind:cellhct"/>
  172. <Cell col="22" text="bind:tncqty"/>
  173. <Cell col="23" text="bind:tnckgqty"/>
  174. <Cell col="24" text="bind:mncqty"/>
  175. <Cell col="25" text="bind:mnckgqty"/>
  176. <Cell col="26" text="bind:lympoqty"/>
  177. <Cell col="27" text="bind:lympokgqty"/>
  178. <Cell col="28" text="bind:cd34per"/>
  179. <Cell col="29" text="bind:cd34qty"/>
  180. <Cell col="30" text="bind:cd34kgqty"/>
  181. <Cell col="31" text="bind:cd3per"/>
  182. <Cell col="32" text="bind:cd3qty"/>
  183. <Cell col="33" text="bind:cd3kgqty"/>
  184. <Cell col="34" text="bind:cd4per"/>
  185. <Cell col="35" text="bind:cd4qty"/>
  186. <Cell col="36" text="bind:cd4kgqty"/>
  187. <Cell col="37" text="bind:cd8per"/>
  188. <Cell col="38" text="bind:cd8qty"/>
  189. <Cell col="39" text="bind:cd8kgqty"/>
  190. <Cell col="40" text="bind:cd19per"/>
  191. <Cell col="41" text="bind:cd19qty"/>
  192. <Cell col="42" text="bind:cd19kgqty"/>
  193. <Cell col="43" text="bind:nkper"/>
  194. <Cell col="44" text="bind:nkqty"/>
  195. <Cell col="45" text="bind:nkkgqty"/>
  196. <Cell col="46" text="bind:nktper"/>
  197. <Cell col="47" text="bind:nktqty"/>
  198. <Cell col="48" text="bind:nktkgqty"/>
  199. <Cell col="49" text="bind:purityper"/>
  200. <Cell col="50" text="bind:yieldper"/>
  201. <Cell col="51" text="bind:viabper"/>
  202. <Cell col="52" text="bind:deliveflag"/>
  203. <Cell col="53" text="bind:delivepsnid"/>
  204. <Cell col="54" text="bind:acptpsnid"/>
  205. <Cell col="55" text="bind:bdwt"/>
  206. <Cell col="56" text="bind:cellprcpdd"/>
  207. <Cell col="57" text="bind:infsdd"/>
  208. <Cell col="58" text="bind:infsbagqty"/>
  209. <Cell col="59" text="bind:cd34collyn"/>
  210. <Cell col="60" text="bind:rgstid"/>
  211. <Cell col="61" text="bind:orddrid"/>
  212. <Cell col="62" text="bind:remark"/>
  213. </Band>
  214. </Format>
  215. </Formats>
  216. </Grid>
  217. <Div id="grp_sea" anchor="left top right" taborder="4" class="div_SA" position="absolute 0 49 1194 110">
  218. <Layouts>
  219. <Layout>
  220. <Static id="caption2" text="바코드번호 :" class="search_name" position="absolute 332 9 431 26"/>
  221. <Shape id="line13" linetype="vertical" class="line_4" position="absolute 1104 7 1110 29" anchor="top right"/>
  222. <Button id="btn_sea" taborder="1" text="조회" class="btn1" position="absolute 1123 7 1179 29" anchor="top right" onclick="grp_sea_btn_sea_onclick"/>
  223. <Static id="caption4" text="불출자 :" class="search_name" position="absolute 549 10 622 27"/>
  224. <Edit id="input6" taborder="2" class="input_search" position="absolute 434 34 534 53"/>
  225. <Static id="caption16" text="등록번호 :" class="search_name" position="absolute 332 35 433 52"/>
  226. <Static id="caption5" text="출고장소 :" class="search_name" position="absolute 940 10 1026 27"/>
  227. <Combo id="combo14" taborder="3" innerdataset="@ds_init_cmbinfo_deliveflag_A0157" codecolumn="cdid" datacolumn="cdnm" class="combo_search" position="absolute 1029 9 1091 28"/>
  228. <Edit id="ipt_cellbcno" taborder="4" class="input_search" position="absolute 434 8 534 27" onkeydown="grp_sea_ipt_cellbcno_onkeydown"/>
  229. <Static id="caption7" text="출고일 :" class="search_name" position="absolute 15 9 101 26"/>
  230. <Static id="caption9" text="~" class="search_n_b" position="absolute 201 10 213 27"/>
  231. <Calendar id="input4" taborder="5" class="input_search" position="absolute 217 9 317 28" dateformat="yyyy-MM-dd"/>
  232. <Static id="caption3" text="인수자 :" class="search_name" position="absolute 549 35 622 52"/>
  233. <Edit id="ipt_acptpsnid" taborder="6" class="input_search" position="absolute 625 34 705 53" inputmode="upper"/>
  234. <Edit id="ipt_delivepsnid" taborder="7" class="input_search" position="absolute 625 9 705 28" inputmode="upper"/>
  235. <Calendar id="ipt_delivefromdd" taborder="8" class="input_search" position="absolute 97 9 197 28" dateformat="yyyy-MM-dd" value="null"/>
  236. <Static id="caption8" text="RBC Purging :" class="search_name" position="absolute 721 10 866 27"/>
  237. <Combo id="combo2" taborder="9" codecolumn="codecolumn" datacolumn="datacolumn" class="combo_search" position="absolute 870 9 930 28">
  238. <Dataset id="innerdataset">
  239. <ColumnInfo>
  240. <Column id="codecolumn"/>
  241. <Column id="datacolumn"/>
  242. </ColumnInfo>
  243. <Rows>
  244. <Row>
  245. <Col id="codecolumn"/>
  246. <Col id="datacolumn"/>
  247. </Row>
  248. <Row>
  249. <Col id="codecolumn">Y</Col>
  250. <Col id="datacolumn">Y</Col>
  251. </Row>
  252. <Row>
  253. <Col id="codecolumn">N</Col>
  254. <Col id="datacolumn">N</Col>
  255. </Row>
  256. </Rows>
  257. </Dataset>
  258. </Combo>
  259. <Static id="caption10" text="Stem Cell Source :" class="search_name" position="absolute 721 35 870 52"/>
  260. <Combo id="combo3" taborder="10" innerdataset="@ds_init_cmbinfo_scs_A0159" codecolumn="cdid" datacolumn="cdnm" class="combo_search" position="absolute 870 34 932 53"/>
  261. </Layout>
  262. </Layouts>
  263. </Div>
  264. <Button id="btn_excsave" taborder="5" text="엑셀저장" class="btn7" position="absolute 1114 116 1194 135" anchor="top right" onclick="btn_excsave_onclick"/>
  265. <Edit id="ipt_acpt" taborder="6" class="input_search" position="absolute 686 116 766 135" anchor="top right" onkeyup="ipt_acpt_onkeyup"/>
  266. <Edit id="ipt_delive" taborder="7" class="input_search" position="absolute 436 116 516 135" anchor="top right" onkeyup="ipt_delive_onkeyup"/>
  267. <Button id="btn_delive" taborder="8" text="불출자입력" class="btn2" position="absolute 598 116 673 135" anchor="top right" onclick="btn_delive_onclick"/>
  268. <Button id="btn_acpt" taborder="9" text="인수자입력" class="btn2" position="absolute 848 116 923 135" anchor="top right" onclick="btn_acpt_onclick"/>
  269. <Button id="btn_ioflag" taborder="10" text="출고장소입력" class="btn2" position="absolute 1018 116 1112 135" anchor="top right" onclick="btn_ioflag_onclick"/>
  270. <Combo id="combo1" taborder="11" innerdataset="@ds_init_cmbinfo_deliveflag_A0157" codecolumn="cdid" datacolumn="cdnm" class="combo_search" position="absolute 929 116 1016 135" anchor="top right" onitemchanged="combo1_onitemchanged"/>
  271. <Edit id="ipt_delivenm" taborder="12" class="input_search" enable="false" position="absolute 517 116 597 135" anchor="top right"/>
  272. <Edit id="ipt_acptnm" taborder="13" class="input_search" enable="false" position="absolute 767 116 847 135" anchor="top right"/>
  273. <Grid id="datagrid1" taborder="14" binddataset="ds_send_printinfo_printlist" useinputpanel="false" visible="false" position="absolute 205 279 1030 429">
  274. <Formats>
  275. <Format id="default">
  276. <Columns>
  277. <Column size="100"/>
  278. <Column size="100"/>
  279. <Column size="100"/>
  280. <Column size="100"/>
  281. <Column size="100"/>
  282. <Column size="100"/>
  283. <Column size="100"/>
  284. <Column size="100"/>
  285. <Column size="100"/>
  286. <Column size="100"/>
  287. <Column size="100"/>
  288. <Column size="100"/>
  289. <Column size="100"/>
  290. <Column size="100"/>
  291. <Column size="100"/>
  292. <Column size="100"/>
  293. <Column size="100"/>
  294. <Column size="100"/>
  295. <Column size="100"/>
  296. <Column size="100"/>
  297. <Column size="100"/>
  298. <Column size="100"/>
  299. <Column size="100"/>
  300. </Columns>
  301. <Rows>
  302. <Row size="24" band="head"/>
  303. <Row size="24"/>
  304. </Rows>
  305. <Band id="head">
  306. <Cell text="진단명"/>
  307. <Cell col="1" text="이식형태"/>
  308. <Cell col="2" text="환자체중"/>
  309. <Cell col="3" text="환자혈액형"/>
  310. <Cell col="4" text="공여자명"/>
  311. <Cell col="5" text="공여자성별"/>
  312. <Cell col="6" text="공여자나이"/>
  313. <Cell col="7" text="공여자체중"/>
  314. <Cell col="8" text="scs"/>
  315. <Cell col="9" text="colday"/>
  316. <Cell col="10" text="주입일자"/>
  317. <Cell col="11" text="주입량"/>
  318. <Cell col="12" text="주입백수"/>
  319. <Cell col="13" text="RBC"/>
  320. <Cell col="14" text="CliniMACS"/>
  321. <Cell col="15" text="HCTper"/>
  322. <Cell col="16" text="tnckgqty"/>
  323. <Cell col="17" text="mnckgqty"/>
  324. <Cell col="18" text="cd34kgqty"/>
  325. <Cell col="19" text="cd3kgqty"/>
  326. <Cell col="20" text="nkkgqty"/>
  327. <Cell col="21" text="nktkgqty"/>
  328. <Cell col="22" text="rgstid"/>
  329. </Band>
  330. <Band id="body">
  331. <Cell text="bind:diagcd"/>
  332. <Cell col="1" text="bind:trnpttype"/>
  333. <Cell col="2" text="bind:patweight"/>
  334. <Cell col="3" text="bind:pattrnptafbtype"/>
  335. <Cell col="4" text="bind:dnornm"/>
  336. <Cell col="5" text="bind:dnorsex"/>
  337. <Cell col="6" text="bind:dnorage"/>
  338. <Cell col="7" text="bind:dnorbdwt"/>
  339. <Cell col="8" text="bind:scs"/>
  340. <Cell col="9" text="bind:colday" mask="yyyy-mm-dd"/>
  341. <Cell col="10" text="bind:infsdd" mask="yyyy-mm-dd"/>
  342. <Cell col="11" text="bind:infsvol"/>
  343. <Cell col="12" text="bind:infsbagqty"/>
  344. <Cell col="13" text="bind:rbcelmnyn"/>
  345. <Cell col="14" text="bind:clini"/>
  346. <Cell col="15" text="bind:hctper"/>
  347. <Cell col="16" text="bind:tnckgqty"/>
  348. <Cell col="17" text="bind:mnckgqty"/>
  349. <Cell col="18" text="bind:cd34kgqty"/>
  350. <Cell col="19" text="bind:cd3kgqty"/>
  351. <Cell col="20" text="bind:nkkgqty"/>
  352. <Cell col="21" text="bind:nktkgqty"/>
  353. <Cell col="22" text="bind:rgstid"/>
  354. </Band>
  355. </Format>
  356. </Formats>
  357. </Grid>
  358. <Combo id="cmb_hospnm" taborder="15" innerdataset="@ds_init_cmbinfo_hospnm_B006" codecolumn="cdid" datacolumn="cdnm" class="combo_search" visible="false" position="absolute 185 115 272 134" onitemchanged="cmb_hospnm_onitemchanged"/>
  359. <Combo id="cmb_hospaddr" taborder="16" innerdataset="@ds_init_cmbinfo_hospaddr_B007" codecolumn="cdid" datacolumn="cdnm" class="combo_search" visible="false" position="absolute 275 115 362 134" onitemchanged="cmb_hospaddr_onitemchanged"/>
  360. </Layout>
  361. </Layouts>
  362. <Objects>
  363. <Dataset id="ds_send_baseinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  364. <ColumnInfo>
  365. <Column id="cellbcno" type="STRING" size="256"/>
  366. <Column id="pid" type="STRING" size="256"/>
  367. <Column id="delivepsnid" type="STRING" size="256"/>
  368. <Column id="acptpsnid" type="STRING" size="256"/>
  369. <Column id="deliveflag" type="STRING" size="256"/>
  370. <Column id="delivefromdd" type="STRING" size="256"/>
  371. <Column id="delivetodd" type="STRING" size="256"/>
  372. <Column id="rbcelmnyn" type="STRING" size="256"/>
  373. <Column id="scs" type="STRING" size="256"/>
  374. </ColumnInfo>
  375. <Rows>
  376. <Row>
  377. <Col id="cellbcno"/>
  378. <Col id="pid"/>
  379. <Col id="delivepsnid"/>
  380. <Col id="acptpsnid"/>
  381. <Col id="deliveflag"/>
  382. <Col id="delivefromdd"/>
  383. <Col id="delivetodd"/>
  384. <Col id="rbcelmnyn"/>
  385. <Col id="scs"/>
  386. </Row>
  387. </Rows>
  388. </Dataset>
  389. <Dataset id="ds_temp" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  390. <ColumnInfo>
  391. <Column id="hospnm" type="STRING" size="256"/>
  392. <Column id="hospaddr" type="STRING" size="256"/>
  393. </ColumnInfo>
  394. <Rows>
  395. <Row/>
  396. </Rows>
  397. </Dataset>
  398. <Dataset id="ds_main_userinfo_delivepsn" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  399. <ColumnInfo>
  400. <Column id="delivepsnid" type="STRING" size="256"/>
  401. <Column id="delivepsnnm" type="STRING" size="256"/>
  402. </ColumnInfo>
  403. <Rows>
  404. <Row/>
  405. </Rows>
  406. </Dataset>
  407. <Dataset id="ds_main_userinfo_acptpsn" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  408. <ColumnInfo>
  409. <Column id="acptpsnid" type="STRING" size="256"/>
  410. </ColumnInfo>
  411. <Rows>
  412. <Row/>
  413. </Rows>
  414. </Dataset>
  415. <Dataset id="ds_main_userinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  416. <ColumnInfo>
  417. <Column id="deliveflag" type="STRING" size="256"/>
  418. </ColumnInfo>
  419. <Rows>
  420. <Row/>
  421. </Rows>
  422. </Dataset>
  423. <Dataset id="ds_main_stemcelldelive_stemcelldelivelist" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_main_stemcelldelive_stemcelldelivelist_oncolumnchanged">
  424. <ColumnInfo>
  425. <Column id="chk" type="STRING" size="256" sumtext="확인"/>
  426. <Column id="keeppos" type="STRING" size="256" sumtext="보관위치"/>
  427. <Column id="prcphopedd" type="STRING" size="256" sumtext="적용일자"/>
  428. <Column id="pid" type="STRING" size="256" sumtext="등록번호"/>
  429. <Column id="hngnm" type="STRING" size="256" sumtext="환자명"/>
  430. <Column id="flag" type="STRING" size="256" sumtext="구분(해동/폐기)"/>
  431. <Column id="trnpttype" type="STRING" size="256" sumtext="이식유형"/>
  432. <Column id="scs" type="STRING" size="256" sumtext="Stem Cell Source"/>
  433. <Column id="rbcelmnyn" type="STRING" size="256" sumtext="RBC Puring YN"/>
  434. <Column id="cellbcno" type="STRING" size="256" sumtext="바코드번호"/>
  435. <Column id="delivepsnnm" type="STRING" size="256" sumtext="불출자이름"/>
  436. <Column id="delivedt" type="STRING" size="256" sumtext="불출일자"/>
  437. <Column id="acptpsnnm" type="STRING" size="256" sumtext="인수자이름"/>
  438. <Column id="acptdt" type="STRING" size="256" sumtext="인수일시"/>
  439. <Column id="wardarvcnfmrid" type="STRING" size="256" sumtext="병동도착확인자"/>
  440. <Column id="roomcd" type="STRING" size="256" sumtext="병실코드"/>
  441. <Column id="wardarvcnfmdt" type="STRING" size="256" sumtext="병동도착일시"/>
  442. <Column id="tretvol" type="BIGDECIMAL" size="256" sumtext="tretvol"/>
  443. <Column id="infsvol" type="BIGDECIMAL" size="256" sumtext="infsvol"/>
  444. <Column id="infsbagqty" type="STRING" size="256" sumtext="주입백수"/>
  445. <Column id="cellhct" type="BIGDECIMAL" size="256" sumtext="cellhct"/>
  446. <Column id="tncqty" type="BIGDECIMAL" size="256" sumtext="tncqty"/>
  447. <Column id="tnckgqty" type="BIGDECIMAL" size="256" sumtext="tnckgqty"/>
  448. <Column id="mncqty" type="BIGDECIMAL" size="256" sumtext="mncqty"/>
  449. <Column id="mnckgqty" type="BIGDECIMAL" size="256" sumtext="mnckgqty"/>
  450. <Column id="lympoqty" type="BIGDECIMAL" size="256" sumtext="lympoqty"/>
  451. <Column id="lympokgqty" type="BIGDECIMAL" size="256" sumtext="lympokgqty"/>
  452. <Column id="cd34per" type="BIGDECIMAL" size="256" sumtext="cd34per"/>
  453. <Column id="cd34qty" type="BIGDECIMAL" size="256" sumtext="cd34qty"/>
  454. <Column id="cd34kgqty" type="BIGDECIMAL" size="256" sumtext="cd34kgqty"/>
  455. <Column id="cd3per" type="BIGDECIMAL" size="256" sumtext="cd3per"/>
  456. <Column id="cd3qty" type="BIGDECIMAL" size="256" sumtext="cd3qty"/>
  457. <Column id="cd3kgqty" type="BIGDECIMAL" size="256" sumtext="cd3kgqty"/>
  458. <Column id="cd4per" type="BIGDECIMAL" size="256" sumtext="CD4+(%)"/>
  459. <Column id="cd4qty" type="BIGDECIMAL" size="256" sumtext="CD4+(10^6)"/>
  460. <Column id="cd4kgqty" type="BIGDECIMAL" size="256" sumtext="CD4+(10^6/kg)"/>
  461. <Column id="cd8per" type="BIGDECIMAL" size="256" sumtext="CD8+(%)"/>
  462. <Column id="cd8qty" type="BIGDECIMAL" size="256" sumtext="CD8+(10^6)"/>
  463. <Column id="cd8kgqty" type="BIGDECIMAL" size="256" sumtext="CD8+(10^6/kg)"/>
  464. <Column id="cd19per" type="BIGDECIMAL" size="256" sumtext="CD19+(%)"/>
  465. <Column id="cd19qty" type="BIGDECIMAL" size="256" sumtext="CD19+(10^6)"/>
  466. <Column id="cd19kgqty" type="BIGDECIMAL" size="256" sumtext="CD19+(10^6/kg)"/>
  467. <Column id="nkper" type="BIGDECIMAL" size="256" sumtext="nkper"/>
  468. <Column id="nkqty" type="BIGDECIMAL" size="256" sumtext="nkqty"/>
  469. <Column id="nkkgqty" type="BIGDECIMAL" size="256" sumtext="nkkgqty"/>
  470. <Column id="nktper" type="BIGDECIMAL" size="256" sumtext="nktper"/>
  471. <Column id="nktqty" type="BIGDECIMAL" size="256" sumtext="nktqty"/>
  472. <Column id="nktkgqty" type="BIGDECIMAL" size="256" sumtext="nktkgqty"/>
  473. <Column id="purityper" type="BIGDECIMAL" size="256" sumtext="purityper"/>
  474. <Column id="yieldper" type="BIGDECIMAL" size="256" sumtext="yieldper"/>
  475. <Column id="viabper" type="BIGDECIMAL" size="256" sumtext="viabper"/>
  476. <Column id="deliveflag" type="STRING" size="256" sumtext="원내원외구분"/>
  477. <Column id="delivepsnid" type="STRING" size="256" sumtext="불출자ID"/>
  478. <Column id="acptpsnid" type="STRING" size="256" sumtext="인수자ID"/>
  479. <Column id="bdwt" type="STRING" size="256" sumtext="체중"/>
  480. <Column id="cellprcpdd" type="STRING" size="256" sumtext="처리일자"/>
  481. <Column id="infsdd" type="STRING" size="256" sumtext="해동일자"/>
  482. <Column id="infsbagqty" type="STRING" size="256" sumtext="주입백수"/>
  483. <Column id="cd34collyn" type="STRING" size="256" sumtext="cd34채집여부"/>
  484. <Column id="rgstid" type="STRING" size="256" sumtext="최초등록자"/>
  485. <Column id="orddrid" type="STRING" size="256" sumtext="처방의사"/>
  486. <Column id="remark" type="STRING" size="256" sumtext="기타정보"/>
  487. </ColumnInfo>
  488. </Dataset>
  489. <Dataset id="ds_cmb_flag" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  490. <ColumnInfo>
  491. <Column id="label" type="STRING" size="256"/>
  492. <Column id="value" type="STRING" size="256"/>
  493. </ColumnInfo>
  494. <Rows>
  495. <Row>
  496. <Col id="label">당일</Col>
  497. <Col id="value">D</Col>
  498. </Row>
  499. <Row>
  500. <Col id="label">해동</Col>
  501. <Col id="value">I</Col>
  502. </Row>
  503. <Row>
  504. <Col id="label">폐기</Col>
  505. <Col id="value">A</Col>
  506. </Row>
  507. </Rows>
  508. </Dataset>
  509. <Dataset id="ds_init_cmbinfo_trnpttype_A0158" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  510. <ColumnInfo>
  511. <Column id="cdid" type="STRING" size="256"/>
  512. <Column id="cdnm" type="STRING" size="256"/>
  513. </ColumnInfo>
  514. </Dataset>
  515. <Dataset id="ds_init_cmbinfo_scs_A0159" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  516. <ColumnInfo>
  517. <Column id="cdnm" type="STRING" size="256"/>
  518. <Column id="cdid" type="STRING" size="256"/>
  519. </ColumnInfo>
  520. </Dataset>
  521. <Dataset id="ds_send_printinfo_printlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  522. <ColumnInfo>
  523. <Column id="diagcd" type="STRING" size="256" sumtext="진단명"/>
  524. <Column id="pattrnptafbtype" type="STRING" size="256" sumtext="환자혈액형"/>
  525. <Column id="dnornm" type="STRING" size="256" sumtext="공여자명"/>
  526. <Column id="dnorsex" type="STRING" size="256" sumtext="공여자성별"/>
  527. <Column id="dnorage" type="STRING" size="256" sumtext="공여자나이"/>
  528. <Column id="dnorbdwt" type="STRING" size="256" sumtext="공여자체중"/>
  529. <Column id="hngnm" type="STRING" size="256" sumtext="환자명"/>
  530. <Column id="rrgstno" type="STRING" size="256" sumtext="주민번호"/>
  531. <Column id="patsex" type="STRING" size="256" sumtext="환자성별"/>
  532. <Column id="patage" type="STRING" size="256" sumtext="환자나이"/>
  533. <Column id="deptcd" type="STRING" size="256" sumtext="진료과"/>
  534. </ColumnInfo>
  535. </Dataset>
  536. <Dataset id="ds_init_cmbinfo_hospnm_B006" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  537. <ColumnInfo>
  538. <Column id="cdnm" type="STRING" size="256"/>
  539. <Column id="cdid" type="STRING" size="256"/>
  540. </ColumnInfo>
  541. </Dataset>
  542. <Dataset id="ds_init_cmbinfo_hospaddr_B007" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  543. <ColumnInfo>
  544. <Column id="cdid" type="STRING" size="256"/>
  545. <Column id="cdnm" type="STRING" size="256"/>
  546. </ColumnInfo>
  547. </Dataset>
  548. <Dataset id="ds_init_cmbinfo_deliveflag_A0157" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  549. <ColumnInfo>
  550. <Column id="cdnm" type="STRING" size="256"/>
  551. <Column id="cdid" type="STRING" size="256"/>
  552. </ColumnInfo>
  553. </Dataset>
  554. <Dataset id="ds_send_temp" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  555. <Dataset id="ds_send_userinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  556. <ColumnInfo>
  557. <Column id="userid" type="STRING" size="256"/>
  558. </ColumnInfo>
  559. <Rows>
  560. <Row/>
  561. </Rows>
  562. </Dataset>
  563. <Dataset id="ds_temp_userinfo_item" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  564. <ColumnInfo>
  565. <Column id="userid" type="STRING" size="256"/>
  566. <Column id="usernm" type="STRING" size="256"/>
  567. </ColumnInfo>
  568. </Dataset>
  569. <Dataset id="ds_send_patinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  570. <ColumnInfo>
  571. <Column id="pid" type="STRING" size="256"/>
  572. <Column id="hngnm" type="STRING" size="256"/>
  573. <Column id="rrgstno" type="STRING" size="256"/>
  574. <Column id="patsex" type="STRING" size="256"/>
  575. <Column id="patage" type="STRING" size="256"/>
  576. </ColumnInfo>
  577. <Rows>
  578. <Row/>
  579. </Rows>
  580. </Dataset>
  581. <Dataset id="ds_temp_printinfo_printlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  582. <ColumnInfo>
  583. <Column id="diagcd" type="STRING" size="256" sumtext="진단명"/>
  584. <Column id="pattrnptafbtype" type="STRING" size="256" sumtext="환자혈액형"/>
  585. <Column id="dnornm" type="STRING" size="256" sumtext="공여자명"/>
  586. <Column id="dnorsex" type="STRING" size="256" sumtext="공여자성별"/>
  587. <Column id="dnorage" type="STRING" size="256" sumtext="공여자나이"/>
  588. <Column id="dnorbdwt" type="STRING" size="256" sumtext="공여자체중"/>
  589. <Column id="hngnm" type="STRING" size="256" sumtext="환자명"/>
  590. <Column id="rrgstno" type="STRING" size="256" sumtext="주민번호"/>
  591. <Column id="patsex" type="STRING" size="256" sumtext="환자성별"/>
  592. <Column id="patage" type="STRING" size="256" sumtext="환자나이"/>
  593. <Column id="deptcd" type="STRING" size="256" sumtext="진료과"/>
  594. </ColumnInfo>
  595. </Dataset>
  596. </Objects>
  597. <Bind>
  598. <BindItem id="item0" compid="grp_sea.ipt_delivefromdd" propid="value" datasetid="ds_send_baseinfo" columnid="delivefromdd"/>
  599. <BindItem id="item1" compid="grp_sea.input4" propid="value" datasetid="ds_send_baseinfo" columnid="delivetodd"/>
  600. <BindItem id="item2" compid="grp_sea.ipt_cellbcno" propid="value" datasetid="ds_send_baseinfo" columnid="cellbcno"/>
  601. <BindItem id="item3" compid="grp_sea.ipt_delivepsnid" propid="value" datasetid="ds_send_baseinfo" columnid="delivepsnid"/>
  602. <BindItem id="item4" compid="grp_sea.combo2" propid="value" datasetid="ds_send_baseinfo" columnid="rbcelmnyn"/>
  603. <BindItem id="item5" compid="grp_sea.combo14" propid="value" datasetid="ds_send_baseinfo" columnid="deliveflag"/>
  604. <BindItem id="item6" compid="grp_sea.input6" propid="value" datasetid="ds_send_baseinfo" columnid="pid"/>
  605. <BindItem id="item7" compid="grp_sea.ipt_acptpsnid" propid="value" datasetid="ds_send_baseinfo" columnid="acptpsnid"/>
  606. <BindItem id="item8" compid="grp_sea.combo3" propid="value" datasetid="ds_send_baseinfo" columnid="scs"/>
  607. <BindItem id="item9" compid="cmb_hospnm" propid="value" datasetid="ds_temp" columnid="hospnm"/>
  608. <BindItem id="item10" compid="cmb_hospaddr" propid="value" datasetid="ds_temp" columnid="hospaddr"/>
  609. <BindItem id="item11" compid="ipt_delive" propid="value" datasetid="ds_main_userinfo_delivepsn" columnid="delivepsnid"/>
  610. <BindItem id="item12" compid="ipt_delivenm" propid="value" datasetid="ds_main_userinfo_delivepsn" columnid="delivepsnnm"/>
  611. <BindItem id="item13" compid="ipt_acpt" propid="value" datasetid="ds_main_userinfo_acptpsn" columnid="acptpsnid"/>
  612. <BindItem id="item14" compid="ipt_acptnm" propid="value" datasetid="ds_main_userinfo_acptpsn" columnid="acptpsnnm"/>
  613. <BindItem id="item15" compid="combo1" propid="value" datasetid="ds_main_userinfo" columnid="deliveflag"/>
  614. </Bind>
  615. <Script type="xscript4.0"><![CDATA[/***************************************************************************************
  616. * System Name :
  617. * Job Name :
  618. * Creator :
  619. * Make Date : 2015-11-13
  620. * Description :
  621. *---------------------------------------------------------------------------------------
  622. * Modify Date Modifier Modify Description
  623. *---------------------------------------------------------------------------------------
  624. * 2015-11-13 Live Converter TF->XP
  625. *
  626. *---------------------------------------------------------------------------------------
  627. ****************************************************************************************/
  628. include "com_commonxp::comm_main.xjs";
  629. include "ast_hsctxp::bmtcommon.xjs";
  630. function SMABC00600_oninit(obj:Form, e:InitEventInfo)
  631. {
  632. frmf_initForm(obj);
  633. }
  634. function SMABC00600_onload(obj:Form, e:LoadEventInfo)
  635. {
  636. grdf_initGrid(grd_stemcelldelivelist);
  637. var arrParam = [{dsNm: "ds_init_cmbinfo_deliveflag_A0157", cdGrpId: "A0157"}
  638. , {dsNm: "ds_init_cmbinfo_trnpttype_A0158", cdGrpId: "A0158"}
  639. , {dsNm: "ds_init_cmbinfo_scs_A0159", cdGrpId: "A0159"}]
  640. appf_getCodeList(arrParam);
  641. var arrParam2 = [{dsNm: "ds_init_cmbinfo_hospnm_B006", cdGrpId: "B006", cd: "SC"}
  642. ,{dsNm: "ds_init_cmbinfo_hospaddr_B007", cdGrpId: "B007", cd: "SC"}];
  643. aboGetCodeList(arrParam2);
  644. ds_send_baseinfo.setColumn(0, "delivefromdd", utlf_getCurrentDate());
  645. ds_send_baseinfo.setColumn(0, "delivetodd", utlf_getCurrentDate());
  646. ds_main_userinfo_delivepsn.setColumn(0, "delivepsnid", sysf_getUserId());
  647. fGetStemCellList();
  648. btn_save.enable= frmf_checkAuth("X") ;
  649. btn_prt.enable = frmf_checkAuth("P") ;
  650. btn_excsave.enable = frmf_checkAuth("P") ;
  651. ds_init_cmbinfo_scs_A0159.insertRow(0);
  652. ds_init_cmbinfo_scs_A0159.insertRow(1);
  653. ds_init_cmbinfo_scs_A0159.setColumn(1, "cdid", "0");
  654. ds_init_cmbinfo_scs_A0159.setColumn(1, "cdnm", "RBC");
  655. ds_temp.setColumn(0, "hospnm", sysf_getUserInfo("dutinstcd"));
  656. ds_temp.setColumn(0, "hospaddr", sysf_getUserInfo("dutinstcd"));
  657. }
  658. function fGetStemCellList()
  659. {
  660. var oParam = {};
  661. oParam.id = "TRABC00601";
  662. oParam.service = "hsctstemcellapp.StemCellDelive";
  663. oParam.method = "reqGetStemCellDeliveList";
  664. oParam.inds = "req=ds_send_baseinfo";
  665. oParam.outds = "ds_main_stemcelldelive_stemcelldelivelist=stemcelldelivelist";
  666. oParam.async = false;
  667. //oParam.callback = "cf_TRABC00601";
  668. tranf_submit(oParam);
  669. }
  670. function ds_main_stemcelldelive_stemcelldelivelist_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
  671. {
  672. if(e.columnid == "chk")
  673. {
  674. obj.setColumn(e.row, "chk", (e.newvalue == "Y" || e.newvalue == 1) ? "Y" : "N");
  675. }
  676. if(e.columnid == "acptpsnnm")
  677. {
  678. obj.setColumn(e.row, "acptpsnid", "");
  679. }
  680. }
  681. function grp_sea_ipt_cellbcno_onkeydown(obj:Edit, e:KeyEventInfo)
  682. {
  683. if(e.keycode == 13)
  684. {
  685. ds_send_baseinfo.setColumn(0, "cellbcno", obj.value.toUpperCase());
  686. fGetStemCellList();
  687. }
  688. }
  689. function grp_sea_btn_sea_onclick(obj:Button, e:ClickEventInfo)
  690. {
  691. fGetStemCellList();
  692. }
  693. function cmb_hospnm_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
  694. {
  695. for (var i = 0; i < ds_main_stemcelldelive_stemcelldelivelist.rowcount; i++)
  696. {
  697. if(ds_main_stemcelldelive_stemcelldelivelist.getColumn(i, "chk") == "Y")
  698. {
  699. if(ds_main_userinfo.getColumn(0, "deliveflag") == 2)
  700. {
  701. ds_main_stemcelldelive_stemcelldelivelist.setColumn(i, "roomcd", "");
  702. grd_stemcelldelivelist.setCellProperty("Body", 13, "edittype", "text");
  703. }
  704. ds_main_stemcelldelive_stemcelldelivelist.setColumn(i, "deliveflag", ds_main_userinfo.getColumn(0, "deliveflag"));
  705. }
  706. }
  707. }
  708. function cmb_hospaddr_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
  709. {
  710. for(var i = 0 ; i < ds_main_stemcelldelive_stemcelldelivelist.rowcount; i++)
  711. {
  712. if(ds_main_stemcelldelive_stemcelldelivelist.getColumn(i, "chk") == "Y")
  713. {
  714. if(ds_main_userinfo.getColumn(0, "deliveflag") == 2)
  715. {
  716. ds_main_stemcelldelive_stemcelldelivelist.setColumn(i, "roomcd", "");
  717. grd_stemcelldelivelist.setCellProperty("Body", 13, "edittype", "text");
  718. }
  719. ds_main_stemcelldelive_stemcelldelivelist.setColumn(i, "deliveflag", ds_main_userinfo.getColumn(0, "deliveflag"));
  720. }
  721. }
  722. }
  723. function ipt_delive_onkeyup(obj:Edit, e:KeyEventInfo)
  724. {
  725. if(e.keycode == 13)
  726. {
  727. fGetUserNm("a");
  728. }
  729. }
  730. function ipt_acpt_onkeyup(obj:Edit, e:KeyEventInfo)
  731. {
  732. if(e.keycode == 13)
  733. {
  734. fGetUserNm("b");
  735. }
  736. }
  737. function combo1_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
  738. {
  739. for(var i = 0 ; i < ds_main_stemcelldelive_stemcelldelivelist.rowcount; i++)
  740. {
  741. if(ds_main_stemcelldelive_stemcelldelivelist.getColumn(i, "chk") == "Y")
  742. {
  743. if(ds_main_userinfo.getColumn(0, "deliveflag") == 2)
  744. {
  745. ds_main_stemcelldelive_stemcelldelivelist.setColumn(i, "roomcd", "");
  746. grd_stemcelldelivelist.setCellProperty("Body", 13, "edittype", "text");
  747. }
  748. ds_main_stemcelldelive_stemcelldelivelist.setColumn(i, "deliveflag", ds_main_userinfo.getColumn(0, "deliveflag"));
  749. }
  750. }
  751. }
  752. function fGetUserNm(flag)
  753. {
  754. if(flag == "a")
  755. {
  756. ds_send_userinfo.setColumn(0, "userid", ipt_delive.value.toUpperCase());
  757. var oParam = {};
  758. oParam.id = "TRABC00602";
  759. oParam.service = "hsctstemcellapp.StemCellDelive";
  760. oParam.method = "reqGetUserInfo";
  761. oParam.inds = "req=ds_send_userinfo";
  762. oParam.outds = "ds_temp_userinfo_item=item";
  763. oParam.async = false;
  764. oParam.callback = "cf_TRABC00602";
  765. tranf_submit(oParam);
  766. for(var i = 0; i < ds_main_stemcelldelive_stemcelldelivelist.rowcount; i++)
  767. {
  768. if(ds_main_stemcelldelive_stemcelldelivelist.getColumn(i, "chk") == "Y")
  769. {
  770. ds_main_stemcelldelive_stemcelldelivelist.setColumn(i, "delivepsnid", ds_main_userinfo_delivepsn.getColumn(0, "delivepsnid"));
  771. ds_main_stemcelldelive_stemcelldelivelist.setColumn(i, "delivepsnnm", ds_main_userinfo_delivepsn.getColumn(0, "delivepsnnm"));
  772. }
  773. }
  774. }
  775. else if(flag == "b")
  776. {
  777. ds_send_userinfo.setColumn(0, "userid", ipt_acpt.value.toUpperCase());
  778. var oParam = {};
  779. oParam.id = "TRABC00602";
  780. oParam.service = "hsctstemcellapp.StemCellDelive";
  781. oParam.method = "reqGetUserInfo";
  782. oParam.inds = "req=ds_send_userinfo";
  783. oParam.outds = "ds_temp_userinfo_item=item";
  784. oParam.async = false;
  785. oParam.callback = "cf_TRABC00602_1";
  786. tranf_submit(oParam);
  787. for(var i = 0; i < ds_main_stemcelldelive_stemcelldelivelist.rowcount; i++)
  788. {
  789. if(ds_main_stemcelldelive_stemcelldelivelist.getColumn(i, "chk") == "Y")
  790. {
  791. ds_main_stemcelldelive_stemcelldelivelist.setColumn(i, "acptpsnid", ds_main_userinfo_acptpsn.getColumn(0, "acptpsnid"));
  792. ds_main_stemcelldelive_stemcelldelivelist.setColumn(i, "acptpsnnm", ds_main_userinfo_acptpsn.getColumn(0, "acptpsnnm"));
  793. }
  794. }
  795. }
  796. }
  797. function cf_TRABC00602(sSvcId, nErrorCode, sErrorMsg)
  798. {
  799. if(nErrorCode < 0)
  800. {
  801. return;
  802. }
  803. else
  804. {
  805. ds_main_userinfo_delivepsn.setColumn(0, "delivepsnid", ds_temp_userinfo_item.getColumn(0, "userid"));
  806. ds_main_userinfo_delivepsn.setColumn(0, "delivepsnnm", ds_temp_userinfo_item.getColumn(0, "usernm"));
  807. }
  808. }
  809. function cf_TRABC00602_1(sSvcId, nErrorCode, sErrorMsg)
  810. {
  811. if(nErrorCode < 0)
  812. {
  813. return;
  814. }
  815. else
  816. {
  817. ds_main_userinfo_acptpsn.setColumn(0, "acptpsnid", ds_temp_userinfo_item.getColumn(0, "userid"));
  818. ds_main_userinfo_acptpsn.setColumn(0, "acptpsnnm", ds_temp_userinfo_item.getColumn(0, "usernm"));
  819. }
  820. }
  821. function btn_delive_onclick(obj:Button, e:ClickEventInfo)
  822. {
  823. fGetUserNm("a");
  824. }
  825. function btn_acpt_onclick(obj:Button, e:ClickEventInfo)
  826. {
  827. fGetUserNm("b");
  828. }
  829. function btn_ioflag_onclick(obj:Button, e:ClickEventInfo)
  830. {
  831. for (var i = 0; i < ds_main_stemcelldelive_stemcelldelivelist.rowcount; i++)
  832. {
  833. if(ds_main_stemcelldelive_stemcelldelivelist.getColumn(i, "chk") == "Y")
  834. {
  835. if(ds_main_userinfo.getColumn(0, "deliveflag") == 2)
  836. {
  837. ds_main_stemcelldelive_stemcelldelivelist.setColumn(i, "roomcd", "");
  838. grd_stemcelldelivelist.setCellProperty("Body", 13, "edittype", "text");
  839. }
  840. ds_main_stemcelldelive_stemcelldelivelist.setColumn(i, "deliveflag", ds_main_userinfo.getColumn(0, "deliveflag"));
  841. }
  842. }
  843. }
  844. function btn_excsave_onclick(obj:Button, e:ClickEventInfo)
  845. {
  846. grdf_exportExcel(grd_stemcelldelivelist, "출고관리", "출고관리", false, "", "", false);
  847. }
  848. function btn_save_onclick(obj:Button, e:ClickEventInfo)
  849. {
  850. fExecSave();
  851. fGetStemCellList();
  852. }
  853. function fExecSave()
  854. {
  855. var oParam = {};
  856. oParam.id = "TXABC00601";
  857. oParam.service = "hsctstemcellapp.StemCellDelive";
  858. oParam.method = "reqSetStemCellDeliveList";
  859. oParam.inds = "stemcelldelivelist=ds_main_stemcelldelive_stemcelldelivelist";
  860. oParam.outds = "ds_=item";
  861. oParam.async = false;
  862. //oParam.callback = "cf_TXABC00601";
  863. tranf_submit(oParam);
  864. }
  865. function btn_prt_onclick(obj:Button, e:ClickEventInfo)
  866. {
  867. var vPid;
  868. var vCount = 0;
  869. ds_send_printinfo_printlist.clearData();
  870. var row = ds_main_stemcelldelive_stemcelldelivelist.findRow("chk","Y");
  871. dsf_createDsRow("ds_send_req", [{col:"pid", type:"STRING", size:256 , val : ds_main_stemcelldelive_stemcelldelivelist.getColumn(row, "pid")}]);
  872. if(row < 0)
  873. {
  874. sysf_messageBox("출력할 셀을 선택하여 주세요.", "E999");
  875. return false;
  876. }
  877. if(ds_main_stemcelldelive_stemcelldelivelist.getColumn(row, "flag") == "A")
  878. {
  879. sysf_messageBox("폐기현황은 출력할 수 없습니다.", "E999");
  880. return false;
  881. }
  882. var oParam = {};
  883. oParam.id = "TRABC00602";
  884. oParam.service = "hsctstemcellapp.StemCellDelive";
  885. oParam.method = "reqGetPatDnorInfo";
  886. oParam.inds = "req=ds_send_req";
  887. oParam.outds = "ds_temp_printinfo_printlist=printlist";
  888. oParam.async = false;
  889. //oParam.callback = "cf_TRABC00602";
  890. tranf_submit(oParam);
  891. ds_send_patinfo.setColumn(0, "pid", ds_send_req.getColumn(0, "pid"));
  892. ds_send_patinfo.setColumn(0, "hngnm", ds_temp_printinfo_printlist.getColumn(0, "hngnm"));
  893. var vRrgstno = ds_temp_printinfo_printlist.getColumn(0, "rrgstno");
  894. ds_send_patinfo.setColumn(0, "rrgstno", vRrgstno.substr(0,8)+"******");
  895. ds_send_patinfo.setColumn(0, "patsex", ds_temp_printinfo_printlist.getColumn(0, "patsex"));
  896. ds_send_patinfo.setColumn(0, "patage", ds_temp_printinfo_printlist.getColumn(0, "patage"));
  897. for(var i = 0 ; i < ds_main_stemcelldelive_stemcelldelivelist.rowcount; i++)
  898. {
  899. if(ds_main_stemcelldelive_stemcelldelivelist.getColumn(i, "chk") == "Y")
  900. {
  901. if(vCount == 0)
  902. {
  903. vPid = ds_main_stemcelldelive_stemcelldelivelist.getColumn(i, "pid");
  904. vCount++;
  905. }
  906. if(vPid != ds_main_stemcelldelive_stemcelldelivelist.getColumn(i, "pid"))
  907. {
  908. sysf_messageBox("한번에 여러명의 환자에 대한 출고 정보를 출력할 수 없습니다.", "E999");
  909. return false;
  910. }
  911. var row = ds_send_printinfo_printlist.addRow();
  912. ds_send_printinfo_printlist.setColumn(row, "diagcd", ds_temp_printinfo_printlist.getColumn(0, "diagcd"));
  913. ds_send_printinfo_printlist.setColumn(row, "trnpttype", ds_init_cmbinfo_trnpttype_A0158.lookup("cdid", ds_main_stemcelldelive_stemcelldelivelist.getColumn(i, "trnpttype"), "cdnm"));
  914. ds_send_printinfo_printlist.setColumn(row, "diagcd", ds_main_stemcelldelive_stemcelldelivelist.getColumn(i, "bdwt"));
  915. ds_send_printinfo_printlist.setColumn(row, "pattrnptafbtype", ds_temp_printinfo_printlist.getColumn(0, "pattrnptafbtype"));
  916. ds_send_printinfo_printlist.setColumn(row, "dnornm", ds_temp_printinfo_printlist.getColumn(0, "dnornm"));
  917. ds_send_printinfo_printlist.setColumn(row, "dnorsex", ds_temp_printinfo_printlist.getColumn(0, "dnorsex"));
  918. ds_send_printinfo_printlist.setColumn(row, "dnorage", ds_temp_printinfo_printlist.getColumn(0, "dnorage"));
  919. ds_send_printinfo_printlist.setColumn(row, "dnorbdwt", ds_temp_printinfo_printlist.getColumn(0, "dnorbdwt"));
  920. ds_send_printinfo_printlist.setColumn(row, "scs", ds_init_cmbinfo_scs_A0159.lookup("cdid", ds_main_stemcelldelive_stemcelldelivelist.getColumn(i, "scs"), "cdnm"));
  921. var vCellprcpdd = ds_main_stemcelldelive_stemcelldelivelist.getColumn(i, "cellprcpdd");
  922. ds_send_printinfo_printlist.setColumn(row, "colday", vCellprcpdd.substr(0,4)+"/"+ vCellprcpdd.substr(4, 2) + "/" + vCellprcpdd.substr(6, 2));
  923. var vInfsdd = ds_main_stemcelldelive_stemcelldelivelist.getColumn(i, "infsdd");
  924. ds_send_printinfo_printlist.setColumn(row, "infsdd", vInfsdd.substr(0, 4) + "/" + vInfsdd.substr(4, 2) + "/" + vInfsdd.substr(6, 2));
  925. ds_send_printinfo_printlist.setColumn(row, "infsvol", ds_main_stemcelldelive_stemcelldelivelist.getColumn(i, "infsvol"));
  926. ds_send_printinfo_printlist.setColumn(row, "infsbagqty", ds_main_stemcelldelive_stemcelldelivelist.getColumn(i, "infsbagqty"));
  927. ds_send_printinfo_printlist.setColumn(row, "rbcelmnyn", ds_main_stemcelldelive_stemcelldelivelist.getColumn(i, "rbcelmnyn"));
  928. ds_send_printinfo_printlist.setColumn(row, "clini", ds_main_stemcelldelive_stemcelldelivelist.getColumn(i, "cd34collyn"));
  929. ds_send_printinfo_printlist.setColumn(row, "hctper", ds_main_stemcelldelive_stemcelldelivelist.getColumn(i, "cellhct"));
  930. ds_send_printinfo_printlist.setColumn(row, "tnckgqty", ds_main_stemcelldelive_stemcelldelivelist.getColumn(i, "tnckgqty"));
  931. ds_send_printinfo_printlist.setColumn(row, "mnckgqty", ds_main_stemcelldelive_stemcelldelivelist.getColumn(i, "mnckgqty"));
  932. ds_send_printinfo_printlist.setColumn(row, "cd34kgqty", ds_main_stemcelldelive_stemcelldelivelist.getColumn(i, "cd34kgqty"));
  933. ds_send_printinfo_printlist.setColumn(row, "cd3kgqty", ds_main_stemcelldelive_stemcelldelivelist.getColumn(i, "cd3kgqty"));
  934. ds_send_printinfo_printlist.setColumn(row, "nkkgqty", ds_main_stemcelldelive_stemcelldelivelist.getColumn(i, "nkkgqty"));
  935. ds_send_printinfo_printlist.setColumn(row, "nktkgqty", ds_main_stemcelldelive_stemcelldelivelist.getColumn(i, "nktkgqty"));
  936. ds_send_printinfo_printlist.setColumn(row, "rgstid", ds_main_stemcelldelive_stemcelldelivelist.getColumn(i, "rgstid"));
  937. ds_send_printinfo_printlist.setColumn(row, "hospnm", ds_init_cmbinfo_hospnm_B006.lookup("cdid", cmb_hospnm.value, "cdnm"));
  938. ds_send_printinfo_printlist.setColumn(row, "hospaddr", ds_init_cmbinfo_hospaddr_B007.lookup("cdid", cmb_hospaddr.value, "cdnm"));
  939. ds_send_printinfo_printlist.setColumn(row, "orddrid", ds_main_stemcelldelive_stemcelldelivelist.getColumn(i, "orddrid"));
  940. ds_send_printinfo_printlist.setColumn(row, "cd4kgqty", ds_main_stemcelldelive_stemcelldelivelist.getColumn(i, "cd4kgqty"));
  941. ds_send_printinfo_printlist.setColumn(row, "cd8kgqty", ds_main_stemcelldelive_stemcelldelivelist.getColumn(i, "cd8kgqty"));
  942. ds_send_printinfo_printlist.setColumn(row, "cd19kgqty", ds_main_stemcelldelive_stemcelldelivelist.getColumn(i, "cd19kgqty"));
  943. ds_send_printinfo_printlist.setColumn(row, "remark", ds_main_stemcelldelive_stemcelldelivelist.getColumn(i, "remark"));
  944. }
  945. }
  946. var objDOM = rptf_createDOM();
  947. rptf_setNodeListToDOM(objDOM, "/root/send/printinfo/printlist", ds_send_printinfo_printlist);
  948. rptf_setNodeListToDOM(objDOM, "/root/send/patinfo", ds_send_patinfo);
  949. var objParam = new Object();
  950. objParam.xml_data_XML1 = objDOM.documentElement.source;
  951. var option = "";
  952. rptf_exeReportPreview30(["RPABC00601"],[objParam], option);
  953. }
  954. ]]></Script>
  955. </Form>
  956. </FDL>