SMLLP00300_세포유전대장.xfdl 29 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567
  1. <?xml version="1.0" encoding="utf-8"?>
  2. <FDL version="1.5">
  3. <TypeDefinition url="..\..\..\default_typedef.xml"/>
  4. <Form id="SMLLP00300" position="absolute 0 0 1270 822" titletext="세포유전대장" oninit="model1_oninit">
  5. <Layouts>
  6. <Layout>
  7. <Static id="caption1" text="결과대장" class="tit_2" position="absolute 2 77 77 97" anchor="default"/>
  8. <Div id="group1" taborder="1" position="absolute 1 28 1257 70" anchor="left top right" class="div_SA">
  9. <Layouts>
  10. <Layout>
  11. <Button id="btn_ref" taborder="1" text="조회" onlbuttonup="btn_ref_onlbuttonup" class="btn1" position="absolute 1189 10 1245 30" anchor="top right"/>
  12. <Shape id="line3" linetype="vertical" class="line_4" position="absolute 1109 7 1109 27" anchor="default"/>
  13. <Static id="caption5" text="접수 조회일" class="search_name" position="absolute 8 10 125 30" anchor="default"/>
  14. <Static id="caption8" text="~" position="absolute 189 10 205 30" style="align:center middle;" anchor="default"/>
  15. <Calendar id="ipt_usdd" taborder="2" class="input_search" position="absolute 99 10 189 30" anchor="default" dateformat="yyyy-MM-dd" value="null"/>
  16. <Calendar id="ipt_uedd" taborder="3" class="input_search" position="absolute 205 10 295 30" anchor="default" dateformat="yyyy-MM-dd" value="null"/>
  17. <Static id="caption13" text="검사항목" class="search_name" position="absolute 319 10 413 30" anchor="default"/>
  18. <Combo id="cmb_testitem" taborder="4" class="combo_search" position="absolute 393 10 529 30" anchor="default" innerdataset="@ds_init_lb0103" codecolumn="cd" datacolumn="nm" onitemchanged="group1_cmb_testitem_onitemchanged"/>
  19. <Edit id="ipt_tclscdlist" taborder="5" position="absolute 532 10 1017 30" anchor="default" enable="false"/>
  20. <Button id="button6" taborder="6" onlbuttonup="button6_onlbuttonup" class="icon_search" position="absolute 1020 10 1040 30" anchor="default" onclick="group1_cmb_testitem_onitemchanged"/>
  21. </Layout>
  22. </Layouts>
  23. </Div>
  24. <Button id="btn_excel" taborder="2" text="엑셀" onlbuttonup="btn_excel_onlbuttonup" class="btn7" position="absolute 1195 73 1248 95" anchor="top right"/>
  25. <Grid id="grd_rsltregst" taborder="3" useinputpanel="false" position="absolute 4 96 1252 521" style="align:center middle;" anchor="all" binddataset="ds_grid_grd_rsltregst" autofittype="col">
  26. <Formats>
  27. <Format id="default">
  28. <Columns>
  29. <Column size="30"/>
  30. <Column size="120"/>
  31. <Column size="110"/>
  32. <Column size="70"/>
  33. <Column size="70"/>
  34. <Column size="45"/>
  35. <Column size="46"/>
  36. <Column size="60"/>
  37. <Column size="70"/>
  38. <Column size="90"/>
  39. <Column size="120"/>
  40. <Column size="300"/>
  41. <Column size="0"/>
  42. <Column size="0"/>
  43. <Column size="0"/>
  44. <Column size="0"/>
  45. </Columns>
  46. <Rows>
  47. <Row size="22" band="head"/>
  48. <Row size="20"/>
  49. </Rows>
  50. <Band id="head">
  51. <Cell text="No."/>
  52. <Cell col="1" text="접수시간"/>
  53. <Cell col="2" text="접수번호"/>
  54. <Cell col="3" text="등록번호"/>
  55. <Cell col="4" text="환자명"/>
  56. <Cell col="5" text="성별"/>
  57. <Cell col="6" text="나이"/>
  58. <Cell col="7" text="처방과"/>
  59. <Cell col="8" text="처방의"/>
  60. <Cell col="9" text="병동/병실"/>
  61. <Cell col="10" text="처방시간"/>
  62. <Cell col="11" text="처방명"/>
  63. <Cell col="12" text="검체명"/>
  64. <Cell col="13" text="bcno"/>
  65. <Cell col="14" text="tclscd"/>
  66. <Cell col="15" text="wbcrslt2"/>
  67. </Band>
  68. <Band id="body">
  69. <Cell celltype="head" expr="expr:currow+1"/>
  70. <Cell col="1" text="bind:spcacptdt" mask="expr:spcacptdt==null?'':'####-##-## ##:##'"/>
  71. <Cell col="2" style="align:left middle;" text="bind:workno"/>
  72. <Cell col="3" displaytype="text" style="align:center middle;" text="bind:pid"/>
  73. <Cell col="4" text="bind:hngnm"/>
  74. <Cell col="5" style="align:center middle;" text="bind:sex"/>
  75. <Cell col="6" text="bind:age"/>
  76. <Cell col="7" text="bind:orddeptnm"/>
  77. <Cell col="8" text="bind:orddrnm"/>
  78. <Cell col="9" text="bind:wardroom"/>
  79. <Cell col="10" style="align:center middle;" text="bind:rgstdt" mask="expr:rgstdt==null?'':'####-##-## ##:##'"/>
  80. <Cell col="11" style="align:left middle;" text="bind:tclsnm"/>
  81. <Cell col="12"/>
  82. <Cell col="13" style="align:left middle;"/>
  83. <Cell col="14" style="align:left middle;"/>
  84. <Cell col="15"/>
  85. </Band>
  86. </Format>
  87. </Formats>
  88. </Grid>
  89. <Static id="caption2" text="Work Sheet 정보" class="tit_2" position="absolute 7 535 160 553" anchor="left bottom"/>
  90. <Edit id="output4" taborder="4" readonly="true" position="absolute 142 558 308 578" anchor="left bottom"/>
  91. <Edit id="output1" taborder="5" readonly="true" position="absolute 311 558 932 578" anchor="left right bottom"/>
  92. <Edit id="output2" taborder="6" readonly="true" position="absolute 937 558 1250 578" anchor="right bottom"/>
  93. <Static id="caption9" text="WBC Count 검사결과" class="cell_1" position="absolute 8 776 138 800" style="align:left middle;" anchor="left bottom"/>
  94. <TextArea id="textarea1" taborder="7" position="absolute 142 583 594 643" anchor="left bottom" enable="false"/>
  95. <TextArea id="textarea2" taborder="8" position="absolute 142 648 594 708" anchor="left bottom" enable="false"/>
  96. <TextArea id="textarea3" taborder="9" position="absolute 142 713 594 773" anchor="left bottom" enable="false"/>
  97. <TextArea id="textarea4" taborder="10" position="absolute 729 583 1250 643" anchor="right bottom" enable="false"/>
  98. <TextArea id="textarea5" taborder="11" position="absolute 729 648 1249 708" anchor="right bottom" enable="false"/>
  99. <TextArea id="textarea6" taborder="12" position="absolute 729 713 1250 773" style="align:left middle;" anchor="right bottom" enable="false"/>
  100. <Edit id="output3" taborder="13" readonly="true" position="absolute 142 778 594 798" anchor="left bottom"/>
  101. <Static id="caption18" text="처방명" class="cell_1" position="absolute 8 556 138 580" style="align:left middle;" anchor="left bottom"/>
  102. <Static id="caption3" text="적응증" class="cell_1" position="absolute 8 581 138 645" style="align:left middle;" anchor="left bottom"/>
  103. <Static id="caption4" text="주요증상" class="cell_1" position="absolute 8 646 138 710" style="align:left middle;" anchor="left bottom"/>
  104. <Static id="caption7" text="전달사항" class="cell_1" position="absolute 8 711 138 775" style="align:left middle;" anchor="left bottom"/>
  105. <Static id="caption10" text="과거력" class="cell_1" position="absolute 597 581 727 645" style="align:left middle;" anchor="left bottom"/>
  106. <Static id="caption11" text="CF 검사결과" class="cell_1" position="absolute 597 646 727 710" style="align:left middle;" anchor="left bottom"/>
  107. <Static id="caption12" text="골수이식 시행여부" class="cell_1" position="absolute 597 711 727 775" style="align:left middle;" anchor="left bottom"/>
  108. <Static id="caption6" text="세포유전대장" class="tit_1" position="absolute 2 2 132 27"/>
  109. <Button id="btn_print" taborder="14" text="출력" onlbuttonup="btn_print_onlbuttonup" class="btn6" position="absolute 1126 2 1182 22" anchor="top right"/>
  110. <Button id="btn_init" taborder="15" text="초기화" onlbuttonup="btn_init_onlbuttonup" class="btn4" position="absolute 1185 2 1254 22" anchor="top right"/>
  111. </Layout>
  112. </Layouts>
  113. <Objects>
  114. <Dataset id="ds_init_lb0103" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  115. <ColumnInfo>
  116. <Column id="cd" type="STRING" size="256"/>
  117. <Column id="nm" type="STRING" size="256"/>
  118. <Column id="etc01" type="STRING" size="256"/>
  119. </ColumnInfo>
  120. </Dataset>
  121. <Dataset id="ds_grid_grd_rsltregst" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" onrowposchanged="ds_grid_grd_rsltregst_onrowposchanged">
  122. <ColumnInfo>
  123. <column id="spcacptdt" type="STRING" size="256"/>
  124. <column id="workno" type="STRING" size="256"/>
  125. <column id="pid" type="STRING" size="256"/>
  126. <column id="hngnm" type="STRING" size="256"/>
  127. <column id="sex" type="STRING" size="256"/>
  128. <column id="age" type="STRING" size="256"/>
  129. <column id="orddeptnm" type="STRING" size="256"/>
  130. <column id="orddrnm" type="STRING" size="256"/>
  131. <column id="wardroom" type="STRING" size="256"/>
  132. <column id="rgstdt" type="STRING" size="256"/>
  133. <column id="tclsnm" type="STRING" size="256"/>
  134. <column id="spcnm" type="STRING" size="256"/>
  135. <column id="tclscd" type="STRING" size="256"/>
  136. <column id="wbcrslt2" type="STRING" size="256"/>
  137. <column id="reqcnts" type="STRING" size="256"/>
  138. <column id="etc" type="STRING" size="256"/>
  139. <column id="claim" type="STRING" size="256"/>
  140. <column id="bcno" type="STRING" size="256"/>
  141. <column id="workdd" type="STRING" size="256"/>
  142. <column id="spccd" type="STRING" size="256"/>
  143. </ColumnInfo>
  144. </Dataset>
  145. <Dataset id="ds_data_sepoWorksheet" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" onrowposchanged="ds_grid_grd_rslt_onrowposchanged">
  146. <ColumnInfo>
  147. <column id="tclscd" type="STRING" size="256"/>
  148. <column id="tclsnm" type="STRING" size="256"/>
  149. <column id="spcnm" type="STRING" size="256"/>
  150. <column id="cfrslt" type="STRING" size="256"/>
  151. <Column id="wbcrslt" type="STRING" size="256"/>
  152. <Column id="reqcnts" type="STRING" size="256"/>
  153. <Column id="etc" type="STRING" size="256"/>
  154. <Column id="claim" type="STRING" size="256"/>
  155. <Column id="bmtyn" type="STRING" size="256"/>
  156. </ColumnInfo>
  157. </Dataset>
  158. <Dataset id="ds_data_bmtInfo" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" onrowposchanged="ds_grid_grd_rslt_onrowposchanged">
  159. <ColumnInfo>
  160. <column id="pid" type="STRING" size="256"/>
  161. <column id="btype" type="STRING" size="256"/>
  162. <column id="trnptdg" type="STRING" size="256"/>
  163. <column id="trnptdd" type="STRING" size="256"/>
  164. <column id="dnorbtype" type="STRING" size="256"/>
  165. <column id="dnornm" type="STRING" size="256"/>
  166. <column id="dnorsex" type="STRING" size="256"/>
  167. <column id="dnorage" type="STRING" size="256"/>
  168. <column id="dnorrela" type="STRING" size="256"/>
  169. </ColumnInfo>
  170. </Dataset>
  171. <Dataset id="ds_testgrupdetl" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_grid_grd_schelist_oncolumnchanged">
  172. <ColumnInfo>
  173. <column id="chk" type="STRING" size="256"/>
  174. <column id="tclsnm" type="STRING" size="256"/>
  175. <column id="tclscd" type="STRING" size="256"/>
  176. <column id="spccd" type="STRING" size="256"/>
  177. <Column id="tclsprntnm" type="STRING" size="256"/>
  178. </ColumnInfo>
  179. </Dataset>
  180. <Dataset id="ds_temp_sendtclsnm" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  181. <ColumnInfo>
  182. <Column id="sendtclsnm" type="STRING" size="256"/>
  183. <Column id="sendtclgrpnm" type="STRING" size="256"/>
  184. </ColumnInfo>
  185. </Dataset>
  186. <Dataset id="ds_grid_grd_rsltregstPrint" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" onrowposchanged="ds_grid_grd_rsltregst_onrowposchanged">
  187. <ColumnInfo>
  188. <column id="spcacptdt" type="STRING" size="256"/>
  189. <column id="workno" type="STRING" size="256"/>
  190. <column id="pid" type="STRING" size="256"/>
  191. <column id="hngnm" type="STRING" size="256"/>
  192. <column id="sex" type="STRING" size="256"/>
  193. <column id="age" type="STRING" size="256"/>
  194. <column id="orddeptnm" type="STRING" size="256"/>
  195. <column id="orddrnm" type="STRING" size="256"/>
  196. <column id="wardroom" type="STRING" size="256"/>
  197. <column id="rgstdt" type="STRING" size="256"/>
  198. <column id="tclsnm" type="STRING" size="256"/>
  199. <column id="spcnm" type="STRING" size="256"/>
  200. <column id="tclscd" type="STRING" size="256"/>
  201. <column id="wbcrslt2" type="STRING" size="256"/>
  202. </ColumnInfo>
  203. </Dataset>
  204. <Dataset id="ds_workSheetPrint" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" onrowposchanged="ds_grid_grd_rsltregst_onrowposchanged">
  205. <ColumnInfo>
  206. <column id="workdd" type="STRING" size="256"/>
  207. <column id="workno" type="STRING" size="256"/>
  208. <column id="pid" type="STRING" size="256"/>
  209. <column id="patnm" type="STRING" size="256"/>
  210. <column id="bcno" type="STRING" size="256"/>
  211. <column id="patage" type="STRING" size="256"/>
  212. <column id="orddeptnm" type="STRING" size="256"/>
  213. <column id="orddrnm" type="STRING" size="256"/>
  214. <column id="haspnm" type="STRING" size="256"/>
  215. <column id="spcnm" type="STRING" size="256"/>
  216. <column id="spcltestseq" type="STRING" size="256"/>
  217. <column id="termhngnm" type="STRING" size="256"/>
  218. </ColumnInfo>
  219. </Dataset>
  220. <Dataset id="ds_DiagRef" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" onrowposchanged="ds_grid_grd_rsltregst_onrowposchanged">
  221. <ColumnInfo>
  222. <column id="termhngnm" type="STRING" size="256"/>
  223. <column id="diaghngnm" type="STRING" size="256"/>
  224. <column id="diagcd" type="STRING" size="256"/>
  225. </ColumnInfo>
  226. </Dataset>
  227. <Dataset id="ds_Spcltestseq" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" onrowposchanged="ds_grid_grd_rsltregst_onrowposchanged">
  228. <ColumnInfo>
  229. <column id="spcltestseq" type="STRING" size="256"/>
  230. </ColumnInfo>
  231. </Dataset>
  232. <Dataset id="ds_hidden_ref_tclscdlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  233. <ColumnInfo>
  234. <Column id="tclsnmlist" type="STRING" size="256"/>
  235. <Column id="tclscdlist" type="STRING" size="256"/>
  236. <Column id="tclscdlist2" type="STRING" size="256"/>
  237. <Column id="testgrup" type="STRING" size="256"/>
  238. <Column id="tclsnmlist2" type="STRING" size="256"/>
  239. <Column id="testgrupnm" type="STRING" size="256"/>
  240. </ColumnInfo>
  241. <Rows>
  242. <Row/>
  243. </Rows>
  244. </Dataset>
  245. </Objects>
  246. <Bind>
  247. <BindItem id="item0" compid="output4" propid="value" datasetid="ds_data_sepoWorksheet" columnid="tclscd"/>
  248. <BindItem id="item1" compid="output1" propid="value" datasetid="ds_data_sepoWorksheet" columnid="tclsnm"/>
  249. <BindItem id="item2" compid="output2" propid="value" datasetid="ds_data_sepoWorksheet" columnid="spcnm"/>
  250. <BindItem id="item3" compid="textarea1" propid="value" datasetid="ds_data_sepoWorksheet" columnid="reqcnts"/>
  251. <BindItem id="item4" compid="textarea2" propid="value" datasetid="ds_data_sepoWorksheet" columnid="etc"/>
  252. <BindItem id="item5" compid="textarea5" propid="value" datasetid="ds_data_sepoWorksheet" columnid="cfrslt"/>
  253. <BindItem id="item6" compid="textarea3" propid="value" datasetid="ds_data_sepoWorksheet" columnid="claim"/>
  254. <BindItem id="item7" compid="textarea6" propid="value" datasetid="ds_data_sepoWorksheet" columnid="bmtyn"/>
  255. <BindItem id="item8" compid="output3" propid="value" datasetid="ds_data_sepoWorksheet" columnid="wbcrslt"/>
  256. <BindItem id="item9" compid="group1.cmb_testitem" propid="value" datasetid="ds_hidden_ref_tclscdlist" columnid="testgrup"/>
  257. <BindItem id="item10" compid="group1.ipt_tclscdlist" propid="value" datasetid="ds_hidden_ref_tclscdlist" columnid="tclsnmlist"/>
  258. </Bind>
  259. <Script type="xscript4.0"><![CDATA[/***************************************************************************************
  260. * System Name :
  261. * Job Name :
  262. * Creator :
  263. * Make Date : 2015-05-01
  264. * Description :
  265. *---------------------------------------------------------------------------------------
  266. * Modify Date Modifier Modify Description
  267. *---------------------------------------------------------------------------------------
  268. * 2015-05-01 Live Converter TF->XP
  269. *
  270. *---------------------------------------------------------------------------------------
  271. ****************************************************************************************/
  272. include "com_commonxp::comm_main.xjs";
  273. include "lis_commonxp::LLZ001.xjs";
  274. var tclscdlist = "";
  275. var tclscdlist2 = "";
  276. var tclsnmlist = "";
  277. function model1_oninit(obj:Form, e:InitEventInfo)
  278. {
  279. //폼 초기화 함수
  280. frmf_initForm(obj);
  281. lf_setInit(1);
  282. }
  283. function lf_setInit(ref) {
  284. if(ref==2) {
  285. }else{
  286. ds_grid_grd_rsltregst.clearData();
  287. output4.value = "";
  288. output1.value = "";
  289. output2.value = "";
  290. output3.value = "";
  291. textarea1.value = "";
  292. textarea2.value = "";
  293. textarea3.value = "";
  294. textarea4.value = "";
  295. textarea5.value = "";
  296. textarea6.value = "";
  297. group1.ipt_tclscdlist.value = "";
  298. tclscdlist = "";
  299. var toDay = utlf_getCurrentDate();
  300. group1.ipt_usdd.value = toDay;
  301. group1.ipt_uedd.value = toDay;
  302. // 사용자별 검사그룹( 0104 = 0102 = 0103= 0111=계, 0106=검사계)
  303. lf_getDbDeptcd("0000|0011|0103|","cbf_SMLLP00300");
  304. }
  305. }
  306. function lf_getSepoWorksheet() {
  307. var fromdd = group1.ipt_usdd.value;
  308. var todd = group1.ipt_uedd.value;
  309. var sInDsName = dsf_createDsRow("ds_temp_search"
  310. , [{col: "fromdd", val:fromdd }
  311. , {col: "todd", val:todd }
  312. , {col: "tclscdlist", val: (utlf_isNull(tclscdlist)) ? null : tclscdlist}
  313. ]);
  314. var oParam = {};
  315. oParam.id = "TRLLP00301";
  316. oParam.service = "refprintmngtapp.GeneralRefPrintMngt";
  317. oParam.method = "reqGetSepoWorklist";
  318. oParam.inds = "cond="+sInDsName;
  319. oParam.outds = "ds_grid_grd_rsltregst=getSepoWorklist";
  320. oParam.async = false;
  321. oParam.callback = "cbf_SMLLP00300";
  322. tranf_submit(oParam);
  323. }
  324. function lf_setWorksheet(nwRow) {
  325. var pid = ds_grid_grd_rsltregst.getColumn(ds_grid_grd_rsltregst.rowposition, "pid");
  326. var testcd = "LHB001"; // Bone Marrow에서의 이전결과 조회가 아닐 때 코드픽스
  327. var bmtsearchgbn = "info";
  328. var sInDsName = dsf_createDsRow("ds_temp_search"
  329. , [{col: "pid", val:pid }
  330. , {col: "testcd", val:testcd }
  331. ]);
  332. var oParam = {};
  333. oParam.id = "TRLLP00302";
  334. oParam.service = "refprintmngtapp.GeneralRefPrintMngt";
  335. oParam.method = "reqGetSepoWorksheet";
  336. oParam.inds = "cond="+sInDsName;
  337. oParam.outds = "ds_data_sepoWorksheet=getSepoWorksheet";
  338. oParam.async = false;
  339. oParam.callback = "cbf_SMLLP00300";
  340. tranf_submit(oParam);
  341. }
  342. function lf_selectTestGrup()
  343. {
  344. var testgrupnm = group1.cmb_testitem.text;
  345. dsf_createDsRow("ds_temp_search", [{col : "testgrupnm", val : testgrupnm}]);
  346. var oParam = {};
  347. oParam.id = "TRLLF90401";
  348. oParam.service = "diagtestapplib.LisCommon";
  349. oParam.method = "reqGetTestGrupDetl";
  350. oParam.inds = "cond=ds_temp_search";
  351. oParam.outds = "ds_testgrupdetl=getTestGrupDetl";
  352. oParam.async = false;
  353. //oParam.callback = "cbf_SMLLP00300";
  354. tranf_submit(oParam);
  355. lf_setPopUpTclscdList();
  356. }
  357. //
  358. function lf_setPopUpTclscdList()
  359. {
  360. var count = ds_testgrupdetl.rowcount;
  361. if(count > 0){
  362. var sendtclsnm = ds_testgrupdetl.getColumn(0, "tclsnm");
  363. var sendtclscd = ds_testgrupdetl.getColumn(0, "tclscd");
  364. var sendtclscd2 = ds_testgrupdetl.getColumn(0, "tclscd");
  365. // 검사그룹 상세 목록 없을때
  366. if(utlf_isNull(sendtclsnm))
  367. {
  368. tclscdlist = "";
  369. group1.ipt_tclscdlist.value = "";
  370. }
  371. else
  372. { // 검사그룹 상세 목록 있을때
  373. for(i = 1; i < count; i++)
  374. {
  375. sendtclsnm = sendtclsnm + ", " +ds_testgrupdetl.getColumn(i, "tclsnm");
  376. sendtclscd = sendtclscd + "','" + ds_testgrupdetl.getColumn(i, "tclscd");
  377. sendtclscd2 = sendtclscd2 + "▦" + ds_testgrupdetl.getColumn(i, "tclscd");
  378. }
  379. ds_hidden_ref_tclscdlist.setColumn(0, "tclsnmlist", sendtclsnm);
  380. ds_hidden_ref_tclscdlist.setColumn(0, "tclscdlist", "'" + sendtclscd + "'");
  381. ds_hidden_ref_tclscdlist.setColumn(0, "tclscdlist2", sendtclscd2);
  382. }
  383. }
  384. }
  385. // 엑셀 저장
  386. function lf_exeExcel(pGridId) {
  387. grdf_exportExcel(pGridId, lf_lisGetTitle(this), "sheet1", false);
  388. }
  389. // callback 함수
  390. function cbf_SMLLP00300(strSvcID, nErrorCode, strErrorMag)
  391. {
  392. if(nErrorCode != 0) {
  393. sysf_messageBox("ID: "+ strSvcID + " Error: " + strErrorMag, "E009", "");
  394. }else{
  395. switch(strSvcID){
  396. case "TRLZZ00101":
  397. group1.cmb_testitem.value = "";
  398. group1.ipt_tclscdlist.value = "";
  399. break;
  400. case "TRLLF90401":
  401. lf_setPopUpTclscdList();
  402. break;
  403. case "TRLLP00301":
  404. break;
  405. case "TRLLP00302":
  406. break;
  407. case "TRLBT10209":
  408. var reqcnts = ds_grid_grd_rsltregst.getColumn(ds_grid_grd_rsltregst.rowposition, "reqcnts");
  409. var etc = ds_grid_grd_rsltregst.getColumn(ds_grid_grd_rsltregst.rowposition, "etc");
  410. var claim = ds_grid_grd_rsltregst.getColumn(ds_grid_grd_rsltregst.rowposition, "claim");
  411. ds_data_sepoWorksheet.setColumn(0, "reqcnts", reqcnts);
  412. ds_data_sepoWorksheet.setColumn(0, "etc", etc);
  413. ds_data_sepoWorksheet.setColumn(0, "claim", claim);
  414. if(ds_data_bmtInfo.rowcount>0) {
  415. if(ds_data_bmtInfo.getColumn(0, "dnorsex")=="F") {
  416. ds_data_bmtInfo.setColumn(0, "dnorsex", "여");
  417. }else{
  418. ds_data_bmtInfo.setColumn(0, "dnorsex", "남");
  419. }
  420. var bmtyn = "시행일 = " + ds_data_bmtInfo.getColumn(0, "trnptdd")
  421. + " 공여자 이름(가족/타인) = " + ds_data_bmtInfo.getColumn(0, "dnornm")
  422. + "(" +ds_data_bmtInfo.getColumn(0, "dnorrela")
  423. + ")" + " 공여자 성별 = " +ds_data_bmtInfo.getColumn(0, "dnorsex");
  424. ds_data_sepoWorksheet.setColumn(0, "bmtyn", bmtyn);
  425. }
  426. break;
  427. case "TRLLF90404":
  428. var nPosiRow = ds_grid_grd_rsltregst.rowposition;
  429. var nRow = ds_workSheetPrint.addRow();
  430. ds_workSheetPrint.setColumn(nRow, "workno", ds_grid_grd_rsltregst.getColumn(nPosiRow, "workno"));
  431. ds_workSheetPrint.setColumn(nRow, "orddeptnm", ds_grid_grd_rsltregst.getColumn(nPosiRow, "orddeptnm"));
  432. ds_workSheetPrint.setColumn(nRow, "orddrnm", ds_grid_grd_rsltregst.getColumn(nPosiRow, "orddrnm"));
  433. ds_workSheetPrint.setColumn(nRow, "pid", ds_grid_grd_rsltregst.getColumn(nPosiRow, "pid"));
  434. ds_workSheetPrint.setColumn(nRow, "spcnm", ds_grid_grd_rsltregst.getColumn(nPosiRow, "spcnm"));
  435. ds_workSheetPrint.setColumn(nRow, "bcno", ds_grid_grd_rsltregst.getColumn(nPosiRow, "bcno"));
  436. ds_workSheetPrint.setColumn(nRow, "patage", ds_grid_grd_rsltregst.getColumn(nPosiRow, "sex") + "/" + ds_grid_grd_rsltregst.getColumn(nPosiRow, "age"));
  437. ds_workSheetPrint.setColumn(nRow, "patnm", ds_grid_grd_rsltregst.getColumn(nPosiRow, "hngnm"));
  438. ds_workSheetPrint.setColumn(nRow, "workdd", ds_grid_grd_rsltregst.getColumn(nPosiRow, "workdd"));
  439. ds_workSheetPrint.setColumn(nRow, "termhngnm", utlf_transNullToEmpty(ds_DiagRef.getColumn(0, "termhngnm")));
  440. ds_workSheetPrint.setColumn(nRow, "spcltestseq", utlf_transNullToEmpty(ds_Spcltestseq.getColumn(0, "spcltestseq")));
  441. var objParam = new Object();
  442. objParam.xml_data_XML1 = rptf_getXMLString(ds_workSheetPrint, "root/hidden/refprnt");
  443. var option = "open=1;save=1;directprint=1;print=1;zoom=0";
  444. rptf_exeReportPreview30(["RPLLJ00103"],[objParam], option);
  445. break;
  446. default:
  447. break;
  448. }
  449. }
  450. }
  451. function btn_ref_onlbuttonup(obj:Button, e:MouseEventInfo)
  452. {
  453. lf_getSepoWorksheet();
  454. }
  455. function group1_cmb_testitem_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
  456. {
  457. lf_selectTestGrup();
  458. }
  459. function button6_onlbuttonup(obj:Button, e:MouseEventInfo)
  460. {
  461. // dsf_createDsRow("ds_hidden_ref_tclscdlist"
  462. // , [{col: "testgrpnm", val: group1.cmb_testitem.value}
  463. // , {col: "testmdlcd", val: ""}
  464. // , {col: "menuparam", val: ""}]);
  465. var objArg = new Object();
  466. objArg.testGrup = ds_hidden_ref_tclscdlist;
  467. var rtn = frmf_modal("SMLLF90400","SMLLF90400",objArg, null, null, null, null, null, null, null, null, null, "M");
  468. //
  469. // group1.ipt_tclscdlist.value = utlf_isNull(ds_hidden_ref_tclscdlist.getColumn(0, "tclsnmlist")) ? group1.ipt_tclscdlist.value : ds_hidden_ref_tclscdlist.getColumn(0, "tclsnmlist");
  470. // group1.cmb_testitem.text = utlf_isNull(ds_hidden_ref_tclscdlist.getColumn(0, "testgrup")) ? group1.cmb_testitem.text : ds_hidden_ref_tclscdlist.getColumn(0, "testgrup");
  471. // tclscdlist = utlf_isNull(ds_hidden_ref_tclscdlist.getColumn(0, "tclscdlist")) ? tclscdlist : ds_hidden_ref_tclscdlist.getColumn(0, "tclscdlist");
  472. }
  473. function btn_excel_onlbuttonup(obj:Button, e:MouseEventInfo)
  474. {
  475. lf_exeExcel(grd_rsltregst);
  476. }
  477. function ds_grid_grd_rsltregst_onrowposchanged(obj:Dataset, e:DSRowPosChangeEventInfo)
  478. {
  479. if(e.newrow >=0) {
  480. // 아래쪽 worksheet 조회
  481. lf_setWorksheet(e.newrow);
  482. }
  483. }
  484. function btn_init_onlbuttonup(obj:Button, e:MouseEventInfo)
  485. {
  486. lf_setInit(1);
  487. }
  488. function btn_print_onlbuttonup(obj:Button, e:MouseEventInfo)
  489. {
  490. ds_grid_grd_rsltregstPrint.clearData();
  491. var addRw = 0;
  492. for(var i=0; i<ds_grid_grd_rsltregst.rowcount; i++){
  493. addRw = ds_grid_grd_rsltregstPrint.addRow();
  494. ds_grid_grd_rsltregstPrint.setColumn(addRw, "spcacptdt", ds_grid_grd_rsltregst.getColumn(i,"spcacptdt"));
  495. ds_grid_grd_rsltregstPrint.setColumn(addRw, "workno", ds_grid_grd_rsltregst.getColumn(i,"workno"));
  496. ds_grid_grd_rsltregstPrint.setColumn(addRw, "pid", ds_grid_grd_rsltregst.getColumn(i,"pid"));
  497. ds_grid_grd_rsltregstPrint.setColumn(addRw, "hngnm", ds_grid_grd_rsltregst.getColumn(i,"hngnm"));
  498. ds_grid_grd_rsltregstPrint.setColumn(addRw, "sex", ds_grid_grd_rsltregst.getColumn(i,"sex"));
  499. ds_grid_grd_rsltregstPrint.setColumn(addRw, "age", ds_grid_grd_rsltregst.getColumn(i,"age"));
  500. ds_grid_grd_rsltregstPrint.setColumn(addRw, "orddeptnm", ds_grid_grd_rsltregst.getColumn(i,"orddeptnm"));
  501. ds_grid_grd_rsltregstPrint.setColumn(addRw, "orddrnm", ds_grid_grd_rsltregst.getColumn(i,"orddrnm"));
  502. ds_grid_grd_rsltregstPrint.setColumn(addRw, "wardroom", ds_grid_grd_rsltregst.getColumn(i,"wardroom"));
  503. ds_grid_grd_rsltregstPrint.setColumn(addRw, "rgstdt", ds_grid_grd_rsltregst.getColumn(i,"rgstdt"));
  504. ds_grid_grd_rsltregstPrint.setColumn(addRw, "tclsnm", ds_grid_grd_rsltregst.getColumn(i,"tclsnm"));
  505. ds_grid_grd_rsltregstPrint.setColumn(addRw, "spcnm", ds_grid_grd_rsltregst.getColumn(i,"spcnm"));
  506. ds_grid_grd_rsltregstPrint.setColumn(addRw, "tclscd", ds_grid_grd_rsltregst.getColumn(i,"tclscd"));
  507. ds_grid_grd_rsltregstPrint.setColumn(addRw, "wbcrslt2", ds_grid_grd_rsltregst.getColumn(i,"wbcrslt2"));
  508. }
  509. var objDOM = rptf_createDOM(); // DOM 객체 설정
  510. rptf_makeNodeToDOM(objDOM, "/root/main/getrsltregst");
  511. rptf_setValueToDOM(objDOM, "/root/main/getrsltregst/formdd", group1.ipt_usdd.value);
  512. rptf_setValueToDOM(objDOM, "/root/main/getrsltregst/todd", group1.ipt_uedd.value);
  513. rptf_setNodeListToDOM(objDOM, "/root/main/getsepoworklist", ds_grid_grd_rsltregstPrint); // 데이터셋 1
  514. trace(objDOM.documentElement.source); // XML 내용출력
  515. var objParam = new Object();
  516. objParam.xml_data_XML1 = objDOM.documentElement.source; // 최상의노드 XML 스트링 추출
  517. var option = "open=1;save=1;directprint=0;print=1;zoom=0";
  518. rptf_exeReportPreview30(["RPLLP00400"],[objParam], option);
  519. }
  520. function group1_button6_onclick(obj:Button, e:ClickEventInfo)
  521. {
  522. }
  523. ]]></Script>
  524. </Form>
  525. </FDL>