SMABO02400_CBC리스트외래.xfdl 23 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478
  1. <?xml version="1.0" encoding="utf-8"?>
  2. <FDL version="1.5">
  3. <TypeDefinition url="..\..\..\default_typedef.xml"/>
  4. <Form id="SMABO02400" position="absolute 0 0 755 785" titletext="CBC 리스트 외래" oninit="SMABO02400_oninit" onload="SMABO02400_onload" scrollbars="none">
  5. <Layouts>
  6. <Layout>
  7. <Static id="caption1" text="환자명단" class="tit_2" position="absolute 0 105 85 122"/>
  8. <Shape id="line1" linetype="horizontal" class="line_1" position="absolute 0 121 750 127" style="strokepen:3 solid #33bbbbff;" anchor="left top right"/>
  9. <Div id="grp_sea" taborder="1" class="div_SA" position="absolute 0 29 750 90" anchor="left top right">
  10. <Layouts>
  11. <Layout>
  12. <Static id="caption2" text="진료일자 :" class="search_name" position="absolute 15 12 86 29" anchor="default"/>
  13. <Shape id="line13" linetype="vertical" class="line_4" position="absolute 674 8 680 55" anchor="top right"/>
  14. <Button id="btn_sea" taborder="1" text="조회" class="btn1" position="absolute 687 22 743 44" anchor="top right" onclick="grp_sea_btn_sea_onclick"/>
  15. <Static id="caption7" text="진료과 :" class="search_name" position="absolute 215 12 273 29" anchor="default"/>
  16. <Static id="caption4" text="결과조회기간 :" class="search_name" position="absolute 424 37 523 54" anchor="default"/>
  17. <Calendar id="ipt_orddd" taborder="2" class="combo_search" position="absolute 89 10 189 31" anchor="default" dateformat="yyyy-MM-dd" value="null" autoselect="true"/>
  18. <Combo id="cmb_deptcd" taborder="3" class="combo_search" position="absolute 275 10 405 31" anchor="default" innerdataset="@ds_orddept" datacolumn="depthngnm" codecolumn="deptcd" onitemchanged="grp_sea_cmb_deptcd_onitemchanged"/>
  19. <Combo id="cmb_termday" taborder="4" class="combo_search" position="absolute 526 35 595 56" anchor="default" codecolumn="codecolumn" datacolumn="datacolumn">
  20. <Dataset id="innerdataset">
  21. <ColumnInfo>
  22. <Column id="codecolumn" size="256"/>
  23. <Column id="datacolumn" size="256"/>
  24. </ColumnInfo>
  25. <Rows>
  26. <Row>
  27. <Col id="codecolumn">0</Col>
  28. <Col id="datacolumn">당일</Col>
  29. </Row>
  30. <Row>
  31. <Col id="codecolumn">14</Col>
  32. <Col id="datacolumn">2주</Col>
  33. </Row>
  34. <Row>
  35. <Col id="codecolumn">30</Col>
  36. <Col id="datacolumn">1개월</Col>
  37. </Row>
  38. <Row>
  39. <Col id="codecolumn">90</Col>
  40. <Col id="datacolumn">3개월</Col>
  41. </Row>
  42. <Row>
  43. <Col id="codecolumn">180</Col>
  44. <Col id="datacolumn">6개월</Col>
  45. </Row>
  46. <Row>
  47. <Col id="codecolumn">365</Col>
  48. <Col id="datacolumn">12개월</Col>
  49. </Row>
  50. </Rows>
  51. </Dataset>
  52. </Combo>
  53. <Static id="caption3" text="진료의 :" class="search_name" position="absolute 424 12 482 29" anchor="default"/>
  54. <Combo id="cmb_orddrid" taborder="5" innerdataset="@ds_userlist" codecolumn="userid" datacolumn="userdepthngnm" class="combo_default" position="absolute 484 10 608 31" anchor="default" onitemchanged="grp_sea_cmb_orddrid_onitemchanged"/>
  55. <Static id="caption00" text="오전/오후 :" class="search_name" position="absolute 15 36 96 53" anchor="default"/>
  56. <Radio id="rdo_ampm" taborder="6" columncount="5" rowcount="0" codecolumn="codecolumn" datacolumn="datacolumn" onitemchanged="Div00_rdo_patflag_onitemchanged" position="absolute 102 34 247 54" style="textpadding:1 0 0 4;padding:1 0 0 0;" anchor="default">
  57. <Dataset id="innerdataset">
  58. <ColumnInfo>
  59. <Column id="codecolumn" size="256"/>
  60. <Column id="datacolumn" size="256"/>
  61. </ColumnInfo>
  62. <Rows>
  63. <Row>
  64. <Col id="codecolumn">-</Col>
  65. <Col id="datacolumn">전체</Col>
  66. </Row>
  67. <Row>
  68. <Col id="codecolumn">AM</Col>
  69. <Col id="datacolumn">오전</Col>
  70. </Row>
  71. <Row>
  72. <Col id="codecolumn">PM</Col>
  73. <Col id="datacolumn">오후</Col>
  74. </Row>
  75. </Rows>
  76. </Dataset>
  77. </Radio>
  78. <CheckBox id="checkbox1" taborder="7" text="전체" truevalue="Y" position="absolute 614 13 654 28" style="textpadding:0 0 0 0;" falsevalue="N" onclick="grp_sea_checkbox1_onclick" anchor="default"/>
  79. </Layout>
  80. </Layouts>
  81. </Div>
  82. <Button id="btn_excsave" taborder="2" text="엑셀저장" class="btn7" position="absolute 670 96 750 118" anchor="top right" onclick="btn_excsave_onclick"/>
  83. <Static id="caption18" text="건수" class="cell_1" position="absolute 89 98 132 121"/>
  84. <Edit id="opt_count" taborder="3" position="absolute 134 99 191 121" inputtype="number" readonly="true" class="output" style="align:right middle;"/>
  85. <Grid id="grd_patlist" taborder="4" binddataset="ds_main_cbcpatlist" useinputpanel="false" position="absolute 0 127 750 776" anchor="all" cellsizingtype="both" selecttype="multirow" oncelldblclick="grd_patlist_oncelldblclick" autosizingtype="row" extendsizetype="row" autofittype="col">
  86. <Formats>
  87. <Format id="default">
  88. <Columns>
  89. <Column size="25" band="left"/>
  90. <Column size="40"/>
  91. <Column size="50"/>
  92. <Column size="80"/>
  93. <Column size="60"/>
  94. <Column size="50"/>
  95. <Column size="120"/>
  96. <Column size="50"/>
  97. <Column size="50"/>
  98. <Column size="50"/>
  99. <Column size="50"/>
  100. <Column size="50"/>
  101. <Column size="50"/>
  102. </Columns>
  103. <Rows>
  104. <Row size="23" band="head"/>
  105. <Row size="21"/>
  106. </Rows>
  107. <Band id="head">
  108. <Cell/>
  109. <Cell col="1" text="수납"/>
  110. <Cell col="2" text="예약시간"/>
  111. <Cell col="3" text="환자명"/>
  112. <Cell col="4" text="등록번호"/>
  113. <Cell col="5" text="S/A"/>
  114. <Cell col="6" text="검사결과일시"/>
  115. <Cell col="7" text="Hb"/>
  116. <Cell col="8" text="WBC"/>
  117. <Cell col="9" text="PL(k)"/>
  118. <Cell col="10" text="ANC"/>
  119. <Cell col="11" text="LDH"/>
  120. <Cell col="12" text="Ferritin"/>
  121. </Band>
  122. <Band id="body">
  123. <Cell celltype="head" text="expr:currow + 1"/>
  124. <Cell col="1" style="background:EXPR(fChngGrdCellColor(color));background2:EXPR(fChngGrdCellColor(color));" text="bind:calcyn"/>
  125. <Cell col="2" displaytype="normal" edittype="none" style="background:EXPR(fChngGrdCellColor(color));background2:EXPR(fChngGrdCellColor(color));" text="bind:ordtm" mask="##:##" enable="false"/>
  126. <Cell col="3" displaytype="normal" edittype="none" style="padding:2 2 2 2;background:EXPR(fChngGrdCellColor(color));background2:EXPR(fChngGrdCellColor(color));" text="bind:hngnm" wordwrap="word" autosizerow="limitmin"/>
  127. <Cell col="4" displaytype="normal" style="background:EXPR(fChngGrdCellColor(color));background2:EXPR(fChngGrdCellColor(color));" text="bind:pid"/>
  128. <Cell col="5" style="background:EXPR(fChngGrdCellColor(color));background2:EXPR(fChngGrdCellColor(color));" text="bind:sexage"/>
  129. <Cell col="6" displaytype="normal" edittype="none" style="align:center middle;background:EXPR(fChngGrdCellColor(color));background2:EXPR(fChngGrdCellColor(color));" text="bind:rsltdd" mask="####-##-## ##:##" maskchar=" "/>
  130. <Cell col="7" style="background:EXPR(fChngGrdCellColor(color));background2:EXPR(fChngGrdCellColor(color));" text="bind:hb"/>
  131. <Cell col="8" displaytype="normal" edittype="none" style="background:EXPR(fChngGrdCellColor(color));background2:EXPR(fChngGrdCellColor(color));" text="bind:wbc"/>
  132. <Cell col="9" style="background:EXPR(fChngGrdCellColor(color));background2:EXPR(fChngGrdCellColor(color));" text="bind:pl"/>
  133. <Cell col="10" displaytype="normal" style="background:EXPR(fChngGrdCellColor(color));background2:EXPR(fChngGrdCellColor(color));" text="bind:anc"/>
  134. <Cell col="11" displaytype="normal" style="background:EXPR(fChngGrdCellColor(color));background2:EXPR(fChngGrdCellColor(color));" text="bind:ldh"/>
  135. <Cell col="12" displaytype="normal" style="background:EXPR(fChngGrdCellColor(color));background2:EXPR(fChngGrdCellColor(color));" text="bind:ferritin"/>
  136. </Band>
  137. </Format>
  138. </Formats>
  139. </Grid>
  140. <Div id="grp_btn" taborder="5" position="absolute 232 -1 750 26">
  141. <Layouts>
  142. <Layout/>
  143. </Layouts>
  144. </Div>
  145. <Static id="caption6" text="CBC 리스트 외래" class="tit_1" position="absolute 0 0 145 25"/>
  146. </Layout>
  147. </Layouts>
  148. <Objects>
  149. <Dataset id="ds_main_cbcpatlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
  150. <ColumnInfo>
  151. <Column id="instcd" type="STRING"/>
  152. <Column id="orddd" type="STRING"/>
  153. <Column id="cretno" type="STRING"/>
  154. <Column id="ordtm" type="STRING"/>
  155. <Column id="pid" type="STRING"/>
  156. <Column id="hngnm" type="STRING"/>
  157. <Column id="sexage" type="STRING"/>
  158. <Column id="rsltdd" type="STRING"/>
  159. <Column id="hb" type="STRING"/>
  160. <Column id="wbc" type="STRING"/>
  161. <Column id="pl" type="STRING"/>
  162. <Column id="anc" type="STRING"/>
  163. <Column id="ldh" type="STRING"/>
  164. <Column id="ferritin" type="STRING"/>
  165. <Column id="calcyn" type="STRING"/>
  166. <Column id="aftcalcyn" type="STRING"/>
  167. </ColumnInfo>
  168. </Dataset>
  169. <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  170. <ColumnInfo>
  171. <Column id="lrggrupcd" type="STRING" size="256"/>
  172. <Column id="hsctlrgcd" type="STRING" size="256"/>
  173. </ColumnInfo>
  174. <Rows>
  175. <Row>
  176. <Col id="lrggrupcd">DI</Col>
  177. </Row>
  178. </Rows>
  179. </Dataset>
  180. <Dataset id="ds_cond" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  181. <ColumnInfo>
  182. <Column id="orddd" type="STRING" size="256"/>
  183. <Column id="orddeptcd" type="STRING" size="256"/>
  184. <Column id="orddrid" type="STRING" size="256"/>
  185. <Column id="ampm" type="STRING" size="256"/>
  186. <Column id="termday" type="STRING" size="256"/>
  187. <Column id="prcpspecflag" type="STRING" size="256"/>
  188. <Column id="ordclsdeptflag" type="STRING" size="256"/>
  189. </ColumnInfo>
  190. <Rows>
  191. <Row/>
  192. </Rows>
  193. </Dataset>
  194. <Dataset id="ds_deptlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  195. <ColumnInfo>
  196. <Column id="wardcd" type="STRING" size="256"/>
  197. <Column id="wardnm" type="STRING" size="256"/>
  198. </ColumnInfo>
  199. <Rows>
  200. <Row/>
  201. </Rows>
  202. </Dataset>
  203. <Dataset id="ds_main" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  204. <ColumnInfo>
  205. <Column id="count" type="STRING" size="256"/>
  206. </ColumnInfo>
  207. <Rows>
  208. <Row/>
  209. </Rows>
  210. </Dataset>
  211. <Dataset id="ds_send_temp" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  212. <Dataset id="ds_orddept" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  213. <ColumnInfo>
  214. <Column id="deptcd" type="STRING" size="256"/>
  215. <Column id="depthngnm" type="STRING" size="256"/>
  216. </ColumnInfo>
  217. </Dataset>
  218. <Dataset id="ds_userlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  219. <ColumnInfo>
  220. <Column id="userdepthngnm" type="STRING"/>
  221. <Column id="userid" type="STRING"/>
  222. </ColumnInfo>
  223. </Dataset>
  224. </Objects>
  225. <Bind>
  226. <BindItem id="item0" compid="grp_sea.ipt_orddd" propid="value" datasetid="ds_cond" columnid="orddd"/>
  227. <BindItem id="item1" compid="grp_sea.cmb_deptcd" propid="value" datasetid="ds_cond" columnid="orddeptcd"/>
  228. <BindItem id="item2" compid="grp_sea.cmb_orddrid" propid="value" datasetid="ds_cond" columnid="orddrid"/>
  229. <BindItem id="item3" compid="grp_sea.cmb_termday" propid="value" datasetid="ds_cond" columnid="termday"/>
  230. <BindItem id="item4" compid="opt_count" propid="value" datasetid="ds_main" columnid="count"/>
  231. <BindItem id="item5" compid="grp_sea.rdo_ampm" propid="value" datasetid="ds_cond" columnid="ampm"/>
  232. <BindItem id="item6" compid="grp_sea.checkbox1" propid="value" datasetid="ds_cond" columnid="prcpspecflag"/>
  233. </Bind>
  234. <Script type="xscript4.0"><![CDATA[/***************************************************************************************
  235. * System Name :
  236. * Job Name :
  237. * Creator :
  238. * Make Date : 2015-11-13
  239. * Description :
  240. *---------------------------------------------------------------------------------------
  241. * Modify Date Modifier Modify Description
  242. *---------------------------------------------------------------------------------------
  243. * 2015-11-13 Live Converter TF->XP
  244. *
  245. *---------------------------------------------------------------------------------------
  246. ****************************************************************************************/
  247. include "com_commonxp::comm_main.xjs";
  248. //include "com_basiccodexp::ZBC001.xjs";
  249. include "ast_examcurexp::AEZ0001.xjs";
  250. include "ast_commonxp::AST.xjs";
  251. include "ast_hsctxp::bmtcommon.xjs";
  252. include "com_departmentcodexp::ZSD001.xjs";
  253. var arErrorCode = new HashArray();
  254. /******************************************************************
  255. * Argument :
  256. * Description : 초기화
  257. ******************************************************************/
  258. function SMABO02400_oninit(obj:Form, e:InitEventInfo)
  259. {
  260. frmf_initForm(obj);
  261. grdf_initGrid(grd_patlist);
  262. }
  263. function SMABO02400_onload(obj:Form, e:LoadEventInfo)
  264. {
  265. var instcd = sysf_getUserInfo("dutplceinstcd");
  266. var dutplcecd = sysf_getUserInfo("dutplcecd");
  267. var orddd = utlf_getCurrentDate();
  268. zsdfGetCareOutOrderDepartmentList(instcd, "ds_orddept", orddd, "CENTCLIDEPT");
  269. ds_cond.setColumn(0, "orddd", orddd);
  270. ds_cond.setColumn(0, "orddeptcd", dutplcecd); // 근무지부서코드
  271. ds_cond.setColumn(0, "prcpspecflag", "N");
  272. ds_cond.setColumn(0, "ampm", "-");
  273. ds_cond.setColumn(0, "termday", "14");
  274. fOrddridSearch(); // 진료의사 조회
  275. }
  276. /**
  277. * @group :
  278. * @ver : 2007.04.11
  279. * @by : 김병국
  280. * @---------------------------------------------------
  281. * @type : function
  282. * @access : public
  283. * @desc : 진료의를 가져온다.
  284. * @param :
  285. * @return :
  286. * @---------------------------------------------------
  287. */
  288. function fOrddridSearch() {
  289. var sOrdDeptKind = ds_orddept.lookup("deptcd", ds_cond.getColumn(0,"orddeptcd"), "orddeptkind"); // 센터/대표 구분
  290. var sSupDeptCd = ds_orddept.lookup("deptcd", ds_cond.getColumn(0,"orddeptcd"), "supdeptcd"); // 상위부서코드
  291. if (sOrdDeptKind == "C") { // 센터이면
  292. ds_cond.setColumn(0, "ordclsdeptflag", "C");
  293. } else { // 그외에 기타과
  294. ds_cond.setColumn(0, "ordclsdeptflag", "etc");
  295. }
  296. dsf_createDsRow("ds_send_reqdata" , [
  297. {col: "orddd", val:ds_cond.getColumn(0,"orddd")}
  298. ,{col: "orddeptcd", val:ds_cond.getColumn(0,"orddeptcd")}
  299. ,{col: "prcpspecflag", val:ds_cond.getColumn(0,"prcpspecflag")}
  300. ,{col: "ordclsdeptflag", val:ds_cond.getColumn(0,"ordclsdeptflag")}
  301. ,{col: "supdeptcd", val:sSupDeptCd}
  302. ,{col: "MDdeptcd", val:""}
  303. ]);
  304. var oParam = {};
  305. oParam.id = "TRMNO00104";
  306. oParam.service = "outcareapp.OutCareMngt";
  307. oParam.method = "reqGetDrId";
  308. oParam.inds = "reqdrid=ds_send_reqdata";
  309. oParam.outds = "ds_userlist=orddr";
  310. oParam.async = false;
  311. tranf_submit(oParam); // 의사리스트 조회
  312. grp_sea.cmb_orddrid.index = 1;
  313. grp_sea.cmb_orddrid.index = 0;
  314. var nFindRow = ds_userlist.findRowExpr("userid =='" + sysf_getUserInfo("userid") + "'");
  315. if(nFindRow > 0) {
  316. grp_sea.cmb_orddrid.index = nFindRow;
  317. } else {
  318. grp_sea.cmb_orddrid.index = 0;
  319. }
  320. }
  321. /******************************************************************
  322. * Argument :
  323. * Description : 조회 button event
  324. ******************************************************************/
  325. function grp_sea_btn_sea_onclick(obj:Button, e:ClickEventInfo)
  326. {
  327. fGetCBCListOut();
  328. }
  329. function grp_sea_cmb_orddrid_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
  330. {
  331. fGetCBCListOut();
  332. }
  333. function fGetCBCListOut() {
  334. ds_main_cbcpatlist.clearData();
  335. var oParam = {};
  336. oParam.id = "TRABO02401";
  337. oParam.service = "hsctcoordinatorapp.HsctPatient";
  338. oParam.method = "reqGetCBCListOut";
  339. oParam.inds = "req=ds_cond";
  340. oParam.outds = "ds_main_cbcpatlist=patlist";
  341. oParam.async = false;
  342. tranf_submit(oParam);
  343. ds_main.setColumn(0, "count", ds_main_cbcpatlist.rowcount);
  344. }
  345. /******************************************************************
  346. * Argument :
  347. * Description : excel 저장
  348. ******************************************************************/
  349. function btn_excsave_onclick(obj:Button, e:ClickEventInfo)
  350. {
  351. if( ds_main_cbcpatlist.rowcount > 1 ){
  352. grdf_exportExcel(grd_patlist, "CBC리스트외래", "CBC리스트외래" , false, "" , "user" , true);
  353. } else {
  354. sysf_messageBox("조회된 데이터가 ", "I004");
  355. }
  356. }
  357. function grd_patlist_oncelldblclick(obj:Grid, e:GridClickEventInfo)
  358. {
  359. if(e.row < 0 || e.col < 0 ) return;
  360. var diag = utlf_transNullToEmpty(ds_main_cbcpatlist.getColumn(ds_main_cbcpatlist.rowposition, "diag"));
  361. var tret = utlf_transNullToEmpty(ds_main_cbcpatlist.getColumn(ds_main_cbcpatlist.rowposition, "tret"));
  362. var remfact = utlf_transNullToEmpty(ds_main_cbcpatlist.getColumn(ds_main_cbcpatlist.rowposition, "remfact"));
  363. var chemofrom = utlf_transNullToEmpty(ds_main_cbcpatlist.getColumn(ds_main_cbcpatlist.rowposition, "chemofrom"));
  364. var chemoto = utlf_transNullToEmpty(ds_main_cbcpatlist.getColumn(ds_main_cbcpatlist.rowposition, "chemoto"));
  365. var trnptdd = utlf_transNullToEmpty(ds_main_cbcpatlist.getColumn(ds_main_cbcpatlist.rowposition, "trnptdd"));
  366. var trnptkind = utlf_transNullToEmpty(ds_main_cbcpatlist.getColumn(ds_main_cbcpatlist.rowposition, "trnptkind"));
  367. var trnptkindcd = utlf_transNullToEmpty(ds_main_cbcpatlist.getColumn(ds_main_cbcpatlist.rowposition, "trnptkindcd"));
  368. var pid = utlf_transNullToEmpty(ds_main_cbcpatlist.getColumn(ds_main_cbcpatlist.rowposition, "pid"));
  369. var sflag = diag + "▦" + tret + "▦" + remfact + "▦" + chemofrom + "▦" + chemoto + "▦" + trnptdd + "▦" + trnptkind + "▦" + trnptkindcd+ "▦" + pid ;
  370. frmf_setParameter("opener_parameter_id", sflag);
  371. frmf_modal("SPABO62400","SPABO62400","","","","","","","","","","","M");
  372. ds_main_cbcpatlist.clearData();
  373. var oParam = {};
  374. oParam.id = "TRABO02301";
  375. oParam.service = "hsctcoordinatorapp.HsctPatient";
  376. oParam.method = "reqGetCBCList";
  377. oParam.inds = "req=ds_send_req";
  378. oParam.outds = "ds_main_cbcpatlist=patlist";
  379. oParam.async = false;
  380. tranf_submit(oParam);
  381. var nodelist = ds_main_cbcpatlist.rowcount;
  382. ds_main.setColumn(0, "count", nodelist);
  383. var day= "";
  384. var day_c= "";
  385. var day_p= "";
  386. var day_d= "";
  387. var c = "";
  388. var p = "";
  389. var d = "";
  390. var date = new Date();
  391. var today = new Date(date.getYear(), date.getMonth(), date.getDate());
  392. for(var i = 0; i < nodelist; i++){
  393. day="";
  394. day_c= "";
  395. day_p= "";
  396. day_d= "";
  397. c = "";
  398. p = "";
  399. d = "";
  400. day_c= ds_main_cbcpatlist.getColumn(i, "chemofrom");
  401. day_p= ds_main_cbcpatlist.getColumn(i, "chemoto");
  402. day_d= ds_main_cbcpatlist.getColumn(i, "trnptdd");
  403. if( day_c != "00000000" && !utlf_isNull(day_c) ){
  404. c = new Date(day_c.substring(0,4), day_c.substring(4,6)-1, day_c.substring(6,8));
  405. day = "C" + Math.floor((today.valueOf() - c.valueOf())/(24*60*60*1000));
  406. }
  407. if( day_p != "00000000" && !utlf_isNull(day_p) ){
  408. p = new Date(day_p.substring(0,4), day_p.substring(4,6)-1, day_p.substring(6,8));
  409. if( !utlf_isNull(day) ){
  410. day = day + "/";
  411. }
  412. day = day + "P" + Math.floor((today.valueOf() - p.valueOf())/(24*60*60*1000));
  413. }
  414. if( day_d != "00000000" && !utlf_isNull(day_d) ){
  415. d = new Date(day_d.substring(0,4), day_d.substring(4,6)-1, day_d.substring(6,8));
  416. if( !utlf_isNull(day) ){
  417. day = day + "/";
  418. }
  419. day = day + "D" +Math.floor((today.valueOf() - d.valueOf())/(24*60*60*1000));
  420. }
  421. ds_main_cbcpatlist.setColumn(i, "day", day);
  422. }
  423. }
  424. function grp_sea_cmb_deptcd_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
  425. {
  426. obj.updateToDataset();
  427. fOrddridSearch();
  428. }
  429. function grp_sea_checkbox1_onclick(obj:CheckBox, e:ClickEventInfo)
  430. {
  431. obj.updateToDataset();
  432. fOrddridSearch();
  433. }
  434. function fChngGrdCellColor(color){
  435. if(color == undefined || color == "" || color == "ffffff")
  436. color = "default";
  437. else
  438. color = "#" + color;
  439. return color;
  440. }
  441. ]]></Script>
  442. </Form>
  443. </FDL>