SMLBP00500_환자별수혈내역조회.xfdl 17 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453
  1. <?xml version="1.0" encoding="utf-8"?>
  2. <FDL version="1.5">
  3. <TypeDefinition url="..\..\..\default_typedef.xml"/>
  4. <Form id="workform" position="absolute 0 0 1256 805" titletext="환자별수혈내역조회" oninit="model1_oninit">
  5. <Layouts>
  6. <Layout>
  7. <Static id="caption6" text="환자별수혈내역조회" class="tit_1" position="absolute 0 0 158 25"/>
  8. <Button id="btn_excel" taborder="11" text="엑셀" onlbuttonup="btn_excel_onlbuttonup" class="btn7" position="absolute 1204 99 1254 119" anchor="top right"/>
  9. <Grid id="grd_tnslist" class="datagrid2" taborder="12" useinputpanel="false" position="absolute 0 122 1256 805" anchor="all" treeinitstatus="collapse,null" binddataset="ds_grid_grd_tnslist" treeuseexpandkey="false" treeuseimage="false" treeuseline="false" treeusecheckbox="false">
  10. <Formats>
  11. <Format id="default">
  12. <Columns>
  13. <Column size="30"/>
  14. <Column size="30"/>
  15. <Column size="75"/>
  16. <Column size="100"/>
  17. <Column size="50"/>
  18. <Column size="60"/>
  19. <Column size="70"/>
  20. <Column size="0"/>
  21. <Column size="0"/>
  22. <Column size="115"/>
  23. <Column size="115"/>
  24. <Column size="140"/>
  25. <Column size="50"/>
  26. <Column size="50"/>
  27. <Column size="50"/>
  28. <Column size="50"/>
  29. <Column size="50"/>
  30. <Column size="60"/>
  31. <Column size="80"/>
  32. <Column size="60"/>
  33. </Columns>
  34. <Rows>
  35. <Row size="35" band="head"/>
  36. <Row size="20"/>
  37. </Rows>
  38. <Band id="head">
  39. <Cell text="No."/>
  40. <Cell col="1" text="레벨"/>
  41. <Cell col="2" text="등록번호"/>
  42. <Cell col="3" text="성명"/>
  43. <Cell col="4" text="SexAge"/>
  44. <Cell col="5" text="진료과"/>
  45. <Cell col="6" text="병동/병실"/>
  46. <Cell col="7" text="수혈희망일"/>
  47. <Cell col="8" text="수혈구분"/>
  48. <Cell col="9" text="준비일시"/>
  49. <Cell col="10" text="불출일시"/>
  50. <Cell col="11" text="성분제제"/>
  51. <Cell col="12" text="의뢰&#10;수량"/>
  52. <Cell col="13" text="가출고&#10;수량"/>
  53. <Cell col="14" text="출고&#10;수량"/>
  54. <Cell col="15" text="반납&#10;수량"/>
  55. <Cell col="16" text="폐기&#10;수량"/>
  56. <Cell col="17" text="혈액형"/>
  57. <Cell col="18" text="혈액번호"/>
  58. <Cell col="19" text="구분"/>
  59. </Band>
  60. <Band id="body">
  61. <Cell celltype="head" expr="expr:currow+1"/>
  62. <Cell col="1" displaytype="tree" edittype="tree" style="padding:0 0 0 -10;" treestartlevel="0" treelevel="bind:lvl"/>
  63. <Cell col="2" displaytype="text" edittype="none" text="bind:pid"/>
  64. <Cell col="3" text="bind:patnm"/>
  65. <Cell col="4" text="bind:sexage"/>
  66. <Cell col="5" text="bind:orddeptnm"/>
  67. <Cell col="6" text="bind:wardroom"/>
  68. <Cell col="7" text="bind:prcphopedd" mask="expr:prcphopedd==null?'':'####-##-##'"/>
  69. <Cell col="8" text="bind:tnsreqacptflag"/>
  70. <Cell col="9" displaytype="date" style="align:center middle;" text="bind:prepdt" mask="yyyy-MM-dd HH:mm" calendardisplaynulltype="nulltext"/>
  71. <Cell col="10" displaytype="date" edittype="none" style="align:center middle;" text="bind:delivedt" mask="yyyy-MM-dd HH:mm" calendardisplaynulltype="nulltext"/>
  72. <Cell col="11" text="bind:blodcomnm"/>
  73. <Cell col="12" displaytype="number" text="bind:req"/>
  74. <Cell col="13" displaytype="number" text="bind:a3"/>
  75. <Cell col="14" displaytype="number" text="bind:a5"/>
  76. <Cell col="15" displaytype="number" text="bind:a6"/>
  77. <Cell col="16" displaytype="number" text="bind:a7"/>
  78. <Cell col="17" text="bind:btype"/>
  79. <Cell col="18" text="bind:blodno"/>
  80. <Cell col="19" text="bind:stat"/>
  81. </Band>
  82. </Format>
  83. </Formats>
  84. </Grid>
  85. <Static id="caption1" text="수혈의뢰현황 목록" class="tit_2" position="absolute 0 102 145 122"/>
  86. <Div id="Div00" anchor="left top right" taborder="13" text="Div00" scrollbars="none" position="absolute 0 25 1256 92" class="div_SA">
  87. <Layouts>
  88. <Layout>
  89. <Button id="button1" taborder="60" text="조회" class="btn1" position="absolute 1188 10 1244 30" anchor="top right" onlbuttonup="btn_ref_onlbuttonup" onclick="Div00_button1_onclick"/>
  90. <Shape id="line13" linetype="vertical" class="line_4" position="absolute 1118 21 1118 70" anchor="default"/>
  91. <Static id="caption4" text="등록번호" class="search_name" position="absolute 8 10 82 30" style="align:left;" anchor="default"/>
  92. <Static id="caption9" text="수혈상태" class="search_name" position="absolute 8 38 82 58" style="align:left;" anchor="default"/>
  93. <CheckBox id="chk_a" taborder="61" text="접수" truevalue="1" class="checkbox_search" position="absolute 130 38 175 58" anchor="default" onclick="Div00_chk_a_onclick"/>
  94. <Edit id="ipt_pid" taborder="62" class="input_s_essential" position="absolute 82 10 182 30" anchor="default" onkeydown="Div00_ipt_pid_onkeydown"/>
  95. <CheckBox id="chk_b" taborder="63" text="가출고 전 검사중" truevalue="1" class="checkbox_search" position="absolute 178 38 297 58" anchor="default" onclick="Div00_chk_b_onclick"/>
  96. <CheckBox id="chk_c" taborder="64" text="가출고" truevalue="1" class="checkbox_search" position="absolute 304 38 442 58" anchor="default" onclick="Div00_chk_c_onclick"/>
  97. <Static id="caption11" text="조회구분" class="search_name" position="absolute 231 11 309 31" style="align:left;" anchor="default"/>
  98. <CheckBox id="chk_d" taborder="66" text="대기" truevalue="1" class="checkbox_search" position="absolute 368 39 421 59" anchor="default" onclick="Div00_chk_d_onclick"/>
  99. <CheckBox id="chk_e" taborder="67" text="출고" truevalue="1" class="checkbox_search" position="absolute 427 38 472 58" anchor="default" onclick="Div00_chk_e_onclick"/>
  100. <CheckBox id="chk_f" taborder="68" text="반납" truevalue="1" class="checkbox_search" position="absolute 475 38 520 58" anchor="default" onclick="Div00_chk_f_onclick"/>
  101. <Static id="caption10" text="수혈구분" class="search_name" position="absolute 642 10 712 30" style="align:left;" anchor="default"/>
  102. <Radio id="radio1" taborder="69" columncount="4" rowcount="0" codecolumn="codecolumn" datacolumn="datacolumn" position="absolute 720 10 987 30" anchor="default" value="0" index="0">
  103. <Dataset id="innerdataset">
  104. <ColumnInfo>
  105. <Column id="codecolumn" size="256"/>
  106. <Column id="datacolumn" size="256"/>
  107. </ColumnInfo>
  108. <Rows>
  109. <Row>
  110. <Col id="codecolumn">0</Col>
  111. <Col id="datacolumn">All</Col>
  112. </Row>
  113. <Row>
  114. <Col id="codecolumn">1</Col>
  115. <Col id="datacolumn">준비</Col>
  116. </Row>
  117. <Row>
  118. <Col id="codecolumn">2</Col>
  119. <Col id="datacolumn">수혈</Col>
  120. </Row>
  121. <Row>
  122. <Col id="codecolumn">3</Col>
  123. <Col id="datacolumn">교차미필</Col>
  124. </Row>
  125. </Rows>
  126. </Dataset>
  127. </Radio>
  128. <Calendar id="ipt_fromdd" taborder="70" dateformat="yyyy-MM-dd" class="input_s_essential" position="absolute 301 10 388 30" anchor="default"/>
  129. <Static id="caption00" text="~" position="absolute 390 11 402 28" anchor="default"/>
  130. <Calendar id="ipt_todd" taborder="71" dateformat="yyyy-MM-dd" class="input_s_essential" position="absolute 401 10 488 30" anchor="default"/>
  131. <CheckBox id="chk_g" taborder="73" text="폐기" truevalue="1" class="checkbox_search" position="absolute 525 38 584 58" onclick="Div00_chk_g_onclick" anchor="default"/>
  132. <CheckBox id="chk_all" taborder="74" text="All" truevalue="1" class="checkbox_search" position="absolute 82 38 127 58" onclick="Div00_chk_all_onclick" anchor="default"/>
  133. </Layout>
  134. </Layouts>
  135. </Div>
  136. <Button id="btn_reset" taborder="14" text="초기화" onclick="btn_reset_onclick" class="btn4" position="absolute 1187 1 1256 21" anchor="top right"/>
  137. <Shape id="line4" class="line_10" position="absolute -1 117 1255 123" anchor="left top right" style="strokepen:3 solid #33bbbbff;"/>
  138. </Layout>
  139. </Layouts>
  140. <Objects>
  141. <Dataset id="ds_grid_grd_tnslist" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  142. <ColumnInfo>
  143. <column id="lvl" type="STRING" size="256"/>
  144. <column id="pid" type="STRING" size="256"/>
  145. <column id="patnm" type="STRING" size="256"/>
  146. <column id="sexage" type="STRING" size="256"/>
  147. <column id="orddeptnm" type="STRING" size="256"/>
  148. <column id="wardroom" type="STRING" size="256"/>
  149. <column id="prcphopedd" type="STRING" size="256"/>
  150. <column id="tnsreqacptflag" type="STRING" size="256"/>
  151. <column id="blodcomnm" type="STRING" size="256"/>
  152. <column id="req" type="STRING" size="256"/>
  153. <column id="a3" type="STRING" size="256"/>
  154. <column id="a5" type="STRING" size="256"/>
  155. <column id="a6" type="STRING" size="256"/>
  156. <column id="a7" type="STRING" size="256"/>
  157. <column id="btype" type="STRING" size="256"/>
  158. <column id="blodno" type="STRING" size="256"/>
  159. <column id="stat" type="STRING" size="256"/>
  160. <Column id="prepdt" type="STRING" size="256"/>
  161. <Column id="delivedt" type="STRING" size="256"/>
  162. <Column id="a8" type="STRING" size="256"/>
  163. </ColumnInfo>
  164. </Dataset>
  165. </Objects>
  166. <Script type="xscript4.0"><![CDATA[/***************************************************************************************
  167. * System Name :
  168. * Job Name :
  169. * Creator :
  170. * Make Date : 2015-05-01
  171. * Description :
  172. *---------------------------------------------------------------------------------------
  173. * Modify Date Modifier Modify Description
  174. *---------------------------------------------------------------------------------------
  175. * 2015-05-01 Live Converter TF->XP
  176. *
  177. *---------------------------------------------------------------------------------------
  178. ****************************************************************************************/
  179. include "com_commonxp::comm_main.xjs";
  180. include "lis_commonxp::LZZ001.xjs";
  181. include "lis_commonxp::LLZ001.xjs";
  182. var tnsstatValue = "";
  183. function lf_setInit() {
  184. var toDay = utlf_getCurrentDate();
  185. Div00.ipt_fromdd.value = toDay;
  186. Div00.ipt_todd.value = toDay;
  187. }
  188. // 키이벤트 엔터키 입력시
  189. function lf_keyEvent() {
  190. Div00.ipt_pid.setSelect();
  191. lf_getTnsReqList();
  192. }
  193. function lf_getTnsReqList() {
  194. var pid = Div00.ipt_pid.value; // 등록번호
  195. var fromdd = Div00.ipt_fromdd.value; // 시작일
  196. var todd = Div00.ipt_todd.value; // 종료일
  197. var tnsflag = Div00.radio1.value; // 수혈구분
  198. var tnsstat = tnsstatValue; // 상태
  199. var sInDsName = dsf_createDsRow("ds_temp_search"
  200. , [{col: "pid", val:pid }
  201. , {col: "hopefromdd", val:fromdd }
  202. , {col: "hopetodd", val:todd }
  203. , {col: "tnsstat", val:tnsstat }
  204. , {col: "tnsflag", val:tnsflag }
  205. ]);
  206. var oParam = {};
  207. oParam.id = "TRLBP00501";
  208. oParam.service = "refprintmngtapp.BloodBankRefPrintMngt";
  209. oParam.method = "reqGetTnsReqList";
  210. oParam.inds = "cond="+sInDsName;
  211. oParam.outds = "ds_grid_grd_tnslist=getTnsReqList";
  212. oParam.async = false;
  213. oParam.callback = "cbf_SMLBP00500";
  214. tranf_submit(oParam);
  215. }
  216. // 수혈상태 변경
  217. function lf_setTnsStat(Ref) {
  218. tnsstatValue = "";
  219. if(Ref == "all"){
  220. if(Div00.chk_all.value == "1"){
  221. Div00.chk_a.value = "1";
  222. Div00.chk_b.value = "1";
  223. Div00.chk_c.value = "1";
  224. Div00.chk_d.value = "1";
  225. Div00.chk_e.value = "1";
  226. Div00.chk_f.value = "1";
  227. Div00.chk_g.value = "1";
  228. tnsstatValue = "'1','2','3','4','5','6','7','8'";
  229. }else{
  230. Div00.chk_a.value = "0";
  231. Div00.chk_b.value = "0";
  232. Div00.chk_c.value = "0";
  233. Div00.chk_d.value = "0";
  234. Div00.chk_e.value = "0";
  235. Div00.chk_f.value = "0";
  236. Div00.chk_g.value = "0";
  237. tnsstatValue = "";
  238. }
  239. }else{
  240. Div00.chk_all.value = "0";
  241. //접수
  242. if(Div00.chk_a.value == "1"){
  243. if(tnsstatValue == ""){
  244. tnsstatValue = "'1'";
  245. }else{
  246. tnsstatValue += ",'1'";
  247. }
  248. }
  249. //준비중
  250. if(Div00.chk_b.value == "1"){
  251. if(tnsstatValue == ""){
  252. tnsstatValue = "'2'";
  253. }else{
  254. tnsstatValue += ",'2'";
  255. }
  256. }
  257. //준비완료
  258. if(Div00.chk_c.value == "1"){
  259. if(tnsstatValue == ""){
  260. tnsstatValue = "'3'";
  261. }else{
  262. tnsstatValue += ",'3'";
  263. }
  264. }
  265. //불출완료
  266. if(Div00.chk_d.value == "1"){
  267. if(tnsstatValue == ""){
  268. tnsstatValue = "'4'";
  269. }else{
  270. tnsstatValue += ",'4'";
  271. }
  272. }
  273. //반납
  274. if(Div00.chk_e.value == "1"){
  275. if(tnsstatValue == ""){
  276. tnsstatValue = "'5'";
  277. }else{
  278. tnsstatValue += ",'5'";
  279. }
  280. }
  281. //폐기
  282. if(Div00.chk_f.value == "1"){
  283. if(tnsstatValue == ""){
  284. tnsstatValue = "'6'";
  285. }else{
  286. tnsstatValue += ",'6'";
  287. }
  288. }
  289. //잔량폐기
  290. if(Div00.chk_g.value == "1"){
  291. if(tnsstatValue == ""){
  292. tnsstatValue = "'7'";
  293. }else{
  294. tnsstatValue += ",'7'";
  295. }
  296. }
  297. }
  298. }
  299. // 엑셀 저장
  300. function lf_exeExcel(pGridId) {
  301. grdf_exportExcel(grd_tnslist, lf_lisGetTitle(this), "sheet1");
  302. }
  303. // callback 함수
  304. function cbf_SMLBP00500(strSvcID, nErrorCode, strErrorMag) {
  305. if(nErrorCode != 0) {
  306. sysf_messageBox("ID: "+ strSvcID + " Error: " + strErrorMag, "E009", "");
  307. }else{
  308. switch(strSvcID) {
  309. case "TRLBP00501":
  310. break;
  311. default:
  312. break;
  313. }
  314. }
  315. }
  316. function model1_oninit(obj:Form, e:InitEventInfo)
  317. {
  318. //폼 초기화 함수
  319. frmf_initForm(obj);
  320. lf_setInit();
  321. }
  322. function btn_excel_onlbuttonup(obj:Button, e:MouseEventInfo)
  323. {
  324. lf_exeExcel(grd_tnslist);
  325. }
  326. function btn_ref_onlbuttonup(obj:Button, e:MouseEventInfo)
  327. {
  328. lf_getTnsReqList();
  329. }
  330. function Div00_chk_a_onchanged(obj:CheckBox, e:CheckBoxChangeEventInfo)
  331. {
  332. lf_setTnsStat("a");
  333. }
  334. function Div00_chk_b_onchanged(obj:CheckBox, e:CheckBoxChangeEventInfo)
  335. {
  336. lf_setTnsStat("b");
  337. }
  338. function Div00_chk_c_onchanged(obj:CheckBox, e:CheckBoxChangeEventInfo)
  339. {
  340. lf_setTnsStat("c");
  341. }
  342. function Div00_chk_d_onchanged(obj:CheckBox, e:CheckBoxChangeEventInfo)
  343. {
  344. lf_setTnsStat("d");
  345. }
  346. function Div00_chk_e_onchanged(obj:CheckBox, e:CheckBoxChangeEventInfo)
  347. {
  348. lf_setTnsStat("e");
  349. }
  350. function Div00_chk_f_onchanged(obj:CheckBox, e:CheckBoxChangeEventInfo)
  351. {
  352. lf_setTnsStat("f");
  353. }
  354. function Div00_chk_g_onchanged(obj:CheckBox, e:CheckBoxChangeEventInfo)
  355. {
  356. lf_setTnsStat("g");
  357. }
  358. function Div00_ipt_pid_onkeydown(obj:Edit, e:KeyEventInfo)
  359. {
  360. if(e.keycode==13) {
  361. lf_keyEvent();
  362. }
  363. }
  364. function btn_reset_onclick(obj:Button, e:ClickEventInfo)
  365. {
  366. this.reload();
  367. }
  368. //수혈상태 All 체크박스
  369. function Div00_chk_all_onchanged(obj:CheckBox, e:CheckBoxChangeEventInfo)
  370. {
  371. lf_setTnsStat("all");
  372. }
  373. function Div00_chk_all_onclick(obj:CheckBox, e:ClickEventInfo)
  374. {
  375. lf_setTnsStat("all");
  376. }
  377. function Div00_chk_a_onclick(obj:CheckBox, e:ClickEventInfo)
  378. {
  379. lf_setTnsStat("a");
  380. }
  381. function Div00_chk_b_onclick(obj:CheckBox, e:ClickEventInfo)
  382. {
  383. lf_setTnsStat("b");
  384. }
  385. function Div00_chk_c_onclick(obj:CheckBox, e:ClickEventInfo)
  386. {
  387. lf_setTnsStat("c");
  388. }
  389. function Div00_chk_d_onclick(obj:CheckBox, e:ClickEventInfo)
  390. {
  391. lf_setTnsStat("d");
  392. }
  393. function Div00_chk_e_onclick(obj:CheckBox, e:ClickEventInfo)
  394. {
  395. lf_setTnsStat("e");
  396. }
  397. function Div00_chk_f_onclick(obj:CheckBox, e:ClickEventInfo)
  398. {
  399. lf_setTnsStat("f");
  400. }
  401. function Div00_chk_g_onclick(obj:CheckBox, e:ClickEventInfo)
  402. {
  403. lf_setTnsStat("g");
  404. }
  405. ]]></Script>
  406. </Form>
  407. </FDL>