SPMRI09030_연명진료Guide2.xfdl 25 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637
  1. <?xml version="1.0" encoding="utf-8"?>
  2. <FDL version="1.5">
  3. <TypeDefinition url="..\..\..\default_typedef.xml"/>
  4. <Form id="SPMRI09010" position="absolute 0 0 1237 677" titletext="연명의료가이드" onload="SPMRI09010_onload" oninit="SPMRI09010_oninit">
  5. <Layouts>
  6. <Layout>
  7. <Grid position="absolute 344 56 847 236" id="grd_kind" visible="true" anchor="all" binddataset="ds_kind_list" oncellclick="grd_kind_oncellclick" cellsizingtype="both" extendsizetype="row">
  8. <Formats>
  9. <Format id="default">
  10. <Columns>
  11. <Column size="99"/>
  12. <Column size="332"/>
  13. <Column size="70"/>
  14. <Column size="56"/>
  15. <Column size="51"/>
  16. <Column size="57"/>
  17. </Columns>
  18. <Rows>
  19. <Row size="24" band="head"/>
  20. <Row size="24"/>
  21. </Rows>
  22. <Band id="head">
  23. <Cell displaytype="normal" text="구분"/>
  24. <Cell col="1" text="환자상태"/>
  25. <Cell col="2" displaytype="normal" text="처방입력"/>
  26. <Cell col="3" displaytype="normal" text="구분코드"/>
  27. <Cell col="4" displaytype="normal" text="순번"/>
  28. <Cell col="5" text="분류코드"/>
  29. </Band>
  30. <Band id="body">
  31. <Cell displaytype="normal" style="align:center middle;" text="bind:gubunnm"/>
  32. <Cell col="1" text="bind:sgubunnm"/>
  33. <Cell col="2" displaytype="button" text="일괄처방"/>
  34. <Cell col="3" displaytype="normal" text="bind:gubun"/>
  35. <Cell col="4" displaytype="normal" text="bind:seqno"/>
  36. <Cell col="5" text="bind:kind"/>
  37. </Band>
  38. </Format>
  39. </Formats>
  40. </Grid>
  41. <Button id="btn_prcpcd" taborder="13" text="개별처방입력" class="btn2" position="absolute 765 3 854 22" onclick="btn_prcpcd_onclick" anchor="top right" visible="false"/>
  42. <Button id="btn_msg" taborder="15" text="전문의 협진 요청 메시지" class="btn2" position="absolute 351 268 504 289" anchor="top right" onclick="btn_msg_onclick"/>
  43. <Button id="btn_prcpcds" taborder="17" text="그룹일괄처방" class="btn2" position="absolute 672 3 762 22" anchor="top right" onclick="btn_prcpcds_onclick" visible="false"/>
  44. <Grid id="grd_gubun" taborder="18" binddataset="ds_main_list" useinputpanel="false" position="absolute 850 55 1224 235" anchor="all" oncelldblclick="grd_gubun_oncelldblclick" oncellclick="grd_gubun_oncellclick" extendsizetype="row" cellsizingtype="both">
  45. <Formats>
  46. <Format id="default">
  47. <Columns>
  48. <Column size="256"/>
  49. <Column size="48"/>
  50. <Column size="70"/>
  51. <Column size="139"/>
  52. </Columns>
  53. <Rows>
  54. <Row size="24" band="head"/>
  55. <Row size="24"/>
  56. </Rows>
  57. <Band id="head">
  58. <Cell text="서식"/>
  59. <Cell col="1" text="작성"/>
  60. <Cell col="2" displaytype="normal" text="처방입력"/>
  61. <Cell col="3" text="처방코드"/>
  62. </Band>
  63. <Band id="body">
  64. <Cell edittype="none" style="align:left;" text="bind:formnm"/>
  65. <Cell col="1" text="bind:recyn"/>
  66. <Cell col="2" displaytype="button" text="개별처방"/>
  67. <Cell col="3" text="bind:prcpcd"/>
  68. </Band>
  69. </Format>
  70. </Formats>
  71. </Grid>
  72. <Radio id="Radio00" taborder="19" columncount="2" rowcount="0" position="absolute 421 29 742 49" codecolumn="codecolumn" datacolumn="datacolumn" style="color:red;font:dotum,10,bold;" onitemchanged="Radio00_onitemchanged" value="B" index="0">
  73. <Dataset id="innerdataset">
  74. <ColumnInfo>
  75. <Column id="codecolumn" size="256"/>
  76. <Column id="datacolumn" size="256"/>
  77. </ColumnInfo>
  78. <Rows>
  79. <Row>
  80. <Col id="codecolumn">B</Col>
  81. <Col id="datacolumn">임종과정에 있는 환자</Col>
  82. </Row>
  83. <Row>
  84. <Col id="codecolumn">A</Col>
  85. <Col id="datacolumn">말기환자</Col>
  86. </Row>
  87. </Rows>
  88. </Dataset>
  89. </Radio>
  90. <Div id="Div00" taborder="20" text="Div00" position="absolute 5 -3 344 239" url="emr_recmngtxp::SPMRI09005_연명환자문서목록.xfdl"/>
  91. <Edit id="Edit00" taborder="21" position="absolute 933 4 1008 24" enable="false" visible="false"/>
  92. <Static id="Static00" text="등록번호" position="absolute 866 5 932 25" class="search_name" visible="false"/>
  93. <Static id="Static01" text="이름" class="search_name" position="absolute 1019 5 1060 25" visible="false"/>
  94. <Edit id="Edit01" taborder="22" position="absolute 1062 5 1133 25" enable="false" visible="false"/>
  95. <Button id="Button00" taborder="23" text="새로고침" position="absolute 344 30 410 50" class="btn2" onclick="Button00_onclick"/>
  96. <Button id="Button01" taborder="24" text="컨설트 작성" position="absolute 351 296 433 316" class="btn2" onclick="Button01_onclick"/>
  97. <Static id="Static02" text="처방리스트" class="search_name" position="absolute 12 242 96 262"/>
  98. <Grid id="grd_kind00" taborder="25" binddataset="ds_prcplist" useinputpanel="false" extendsizetype="row" cellsizingtype="both" oncellclick="grd_kind_oncellclick" position="absolute 9 268 340 425" anchor="all">
  99. <Formats>
  100. <Format id="default">
  101. <Columns>
  102. <Column size="74"/>
  103. <Column size="62"/>
  104. <Column size="47"/>
  105. <Column size="39"/>
  106. <Column size="338"/>
  107. <Column size="61"/>
  108. <Column size="112"/>
  109. </Columns>
  110. <Rows>
  111. <Row size="24" band="head"/>
  112. <Row size="24"/>
  113. </Rows>
  114. <Band id="head">
  115. <Cell displaytype="normal" text="처방일"/>
  116. <Cell col="1" displaytype="normal" text="처방코드"/>
  117. <Cell col="2" text="수량"/>
  118. <Cell col="3" text="횟수"/>
  119. <Cell col="4" displaytype="normal" style="align:left;" text=" 처방명"/>
  120. <Cell col="5" displaytype="normal" text="발행자"/>
  121. <Cell col="6" text="발행시각"/>
  122. </Band>
  123. <Band id="body">
  124. <Cell displaytype="date" style="align:center middle;" text="bind:prcpdd"/>
  125. <Cell col="1" displaytype="normal" text="bind:prcpcd"/>
  126. <Cell col="2" text="bind:prcpqty"/>
  127. <Cell col="3" text="bind:prcptims"/>
  128. <Cell col="4" displaytype="normal" style="align:left;" text="bind:prcpnm"/>
  129. <Cell col="5" displaytype="normal" text="bind:rgstnm"/>
  130. <Cell col="6" displaytype="normal" text="bind:rgstdt"/>
  131. </Band>
  132. </Format>
  133. </Formats>
  134. </Grid>
  135. <Static id="Static03" text="이행일" class="cell_1" position="absolute 8 487 56 507" style="margin:0 0 0 1;padding:0 0 0 3;align:left;"/>
  136. <Static id="Static04" text="시스템등록일" class="cell_1" position="absolute 156 487 239 507" style="margin:0 0 0 3;padding:0 0 0 3;align:left;"/>
  137. <TextArea id="TextArea00" taborder="27" enable="false" position="absolute 8 456 339 481"/>
  138. <Static id="Static06" text="이행결정사항" class="cell_1" position="absolute 8 431 91 451" style="margin:0 0 0 0;padding:0 0 0 3;align:left;"/>
  139. <Calendar id="Calendar01" taborder="28" enable="false" position="absolute 57 487 158 507"/>
  140. <Calendar id="Calendar00" taborder="29" enable="false" position="absolute 240 486 339 506"/>
  141. <Static id="cap_bigo00" text="비고" class="cell_1" enable="false" position="absolute 8 518 56 538" style="margin:0 0 0 3;padding:0 0 0 3; :disabled {align:left;}"/>
  142. <TextArea id="TextArea03" taborder="30" position="absolute 9 544 340 668"/>
  143. <Button id="btn_save" taborder="31" text="저장" class="btn2" position="absolute 294 518 339 538" onclick="btn_save_onclick"/>
  144. </Layout>
  145. </Layouts>
  146. <Objects>
  147. <Dataset id="ds_main_list" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_main_pathistlist_oncolumnchanged">
  148. <ColumnInfo>
  149. <Column id="gbnnm" type="STRING" size="256" sumtext=""/>
  150. <Column id="formcd" type="STRING" size="256"/>
  151. <Column id="formnm" type="STRING" size="256"/>
  152. <Column id="bigo" type="STRING" size="256"/>
  153. <Column id="srcformcd" type="STRING" size="256"/>
  154. <Column id="formprogflag" type="STRING" size="256"/>
  155. <Column id="formprogflagnm" type="STRING" size="256"/>
  156. <Column id="prcpcd" type="STRING" size="256"/>
  157. <Column id="prcpcds" type="STRING" size="256"/>
  158. <Column id="kind" type="STRING" size="256" sumtext="대분류"/>
  159. <Column id="recyn" type="STRING" size="256" sumtext="작성유무"/>
  160. </ColumnInfo>
  161. <Rows>
  162. <Row/>
  163. </Rows>
  164. </Dataset>
  165. <Dataset id="ds_send_deptcd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  166. <Dataset id="ds_send_reqdata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  167. <ColumnInfo>
  168. <Column id="kind" type="STRING" size="256" sumtext="분류"/>
  169. <Column id="gubun" type="STRING" size="256" sumtext="구분"/>
  170. <Column id="pid" type="STRING" size="256"/>
  171. </ColumnInfo>
  172. <Rows>
  173. <Row/>
  174. </Rows>
  175. </Dataset>
  176. <Dataset id="ds_main_patinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  177. <ColumnInfo>
  178. <Column id="pid" type="STRING" size="256"/>
  179. <Column id="hngnm" type="STRING" size="256"/>
  180. <Column id="rrgstno1" type="STRING" size="256"/>
  181. <Column id="rrgstno2" type="STRING" size="256"/>
  182. <Column id="hometel" type="STRING" size="256"/>
  183. <Column id="prntcnt" type="STRING" size="256"/>
  184. <Column id="srchcond" type="STRING" size="256"/>
  185. <Column id="age" type="STRING" size="256"/>
  186. <Column id="brthdd" type="STRING" size="256"/>
  187. <Column id="addr" type="STRING" size="256"/>
  188. <Column id="ioflag" type="STRING" size="256"/>
  189. <Column id="patinfolist" type="STRING" size="256"/>
  190. <Column id="orddd" type="STRING" size="256"/>
  191. <Column id="cretno" type="STRING" size="256"/>
  192. <Column id="ordtm" type="STRING" size="256"/>
  193. <Column id="orddeptcd" type="STRING" size="256"/>
  194. <Column id="orddeptnm" type="STRING" size="256"/>
  195. <Column id="issformrecseq" type="STRING" size="256"/>
  196. <Column id="isslangflag" type="STRING" size="256"/>
  197. </ColumnInfo>
  198. <Rows>
  199. <Row>
  200. <Col id="prntcnt">1</Col>
  201. </Row>
  202. </Rows>
  203. </Dataset>
  204. <Dataset id="ds_kind_list" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_main_pathistlist_oncolumnchanged">
  205. <ColumnInfo>
  206. <Column id="kind" type="STRING" size="256" sumtext=""/>
  207. <Column id="gubun" type="STRING" size="256"/>
  208. <Column id="gubunnm" type="STRING" size="256"/>
  209. <Column id="sgubunnm" type="STRING" size="256"/>
  210. <Column id="seqno" type="STRING" size="256"/>
  211. </ColumnInfo>
  212. <Rows>
  213. <Row/>
  214. </Rows>
  215. </Dataset>
  216. <Dataset id="ds_gubun_list" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_main_pathistlist_oncolumnchanged">
  217. <ColumnInfo>
  218. <Column id="gbnnm" type="STRING" size="256" sumtext=""/>
  219. <Column id="formcd" type="STRING" size="256"/>
  220. <Column id="formnm" type="STRING" size="256"/>
  221. <Column id="bigo" type="STRING" size="256"/>
  222. <Column id="srcformcd" type="STRING" size="256"/>
  223. <Column id="formprogflag" type="STRING" size="256"/>
  224. <Column id="formprogflagnm" type="STRING" size="256"/>
  225. <Column id="prcpcd" type="STRING" size="256"/>
  226. <Column id="prcpcds" type="STRING" size="256"/>
  227. </ColumnInfo>
  228. <Rows>
  229. <Row/>
  230. </Rows>
  231. </Dataset>
  232. <Dataset id="ds_prcplist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_main_pathistlist_oncolumnchanged">
  233. <ColumnInfo>
  234. <Column id="prcpdd" type="STRING" size="256" sumtext=""/>
  235. <Column id="prcpqty" type="STRING" size="256"/>
  236. <Column id="prcptims" type="STRING" size="256"/>
  237. <Column id="prcpcd" type="STRING" size="256"/>
  238. <Column id="rgstnm" type="STRING" size="256"/>
  239. <Column id="prcpnm" type="STRING" size="256"/>
  240. <Column id="rgstdt" type="STRING" size="256"/>
  241. </ColumnInfo>
  242. <Rows>
  243. <Row/>
  244. </Rows>
  245. </Dataset>
  246. <Dataset id="ds_detail" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_main_pathistlist_oncolumnchanged">
  247. <ColumnInfo>
  248. <Column id="content" type="STRING" size="256" sumtext=""/>
  249. <Column id="process" type="STRING" size="256"/>
  250. <Column id="procdd" type="STRING" size="256"/>
  251. <Column id="centrgstdd" type="STRING" size="256"/>
  252. <Column id="bigo2" type="STRING" size="256"/>
  253. <Column id="rgstdt" type="STRING" size="256"/>
  254. <Column id="pid" type="STRING" size="256"/>
  255. <Column id="histno" type="STRING" size="256"/>
  256. </ColumnInfo>
  257. <Rows>
  258. <Row/>
  259. </Rows>
  260. </Dataset>
  261. </Objects>
  262. <Bind>
  263. <BindItem id="item0" compid="Radio00" propid="value" datasetid="ds_send_reqdata" columnid="kind"/>
  264. <BindItem id="item1" compid="Edit00" propid="value" datasetid="ds_main_patinfo" columnid="pid"/>
  265. <BindItem id="item2" compid="Edit01" propid="value" datasetid="ds_main_patinfo" columnid="hngnm"/>
  266. <BindItem id="item3" compid="TextArea00" propid="value" datasetid="ds_detail" columnid="content"/>
  267. <BindItem id="item6" compid="Calendar01" propid="value" datasetid="ds_detail" columnid="procdd"/>
  268. <BindItem id="item8" compid="Calendar00" propid="value" datasetid="ds_detail" columnid="centrgstdd"/>
  269. <BindItem id="item5" compid="TextArea03" propid="value" datasetid="ds_detail" columnid="bigo2"/>
  270. </Bind>
  271. <Script type="xscript4.0"><![CDATA[/***************************************************************************************
  272. * System Name :
  273. * Job Name :
  274. * Creator :
  275. * Make Date : 2014-09-17
  276. * Description :
  277. *---------------------------------------------------------------------------------------
  278. * Modify Date Modifier Modify Description
  279. *---------------------------------------------------------------------------------------
  280. * 2014-09-17 Live Converter TF->XP
  281. *
  282. *---------------------------------------------------------------------------------------
  283. ****************************************************************************************/
  284. include "com_commonxp::comm_main.xjs";
  285. include "emr_prcpmngtxp::MMOCommon.xjs" // lf_mmbfGetDeptCodeComboList include
  286. include "emr_prcpmngtxp::MMO001.xjs"
  287. function SPMRI09010_oninit(obj:Form, e:InitEventInfo)
  288. {
  289. frmf_initForm(obj);
  290. }
  291. function SPMRI09010_onload(obj:Form, e:LoadEventInfo)
  292. {
  293. fIni();
  294. Div00.fReset();
  295. }
  296. function fSearch() {
  297. var oParam = {};
  298. oParam.id = "TRMMR05501";
  299. oParam.service = "recmngtapp.IntegrityRec";
  300. oParam.method = "reqGetYeonGuideList";
  301. //oParam.inds = "req=ds_send_patinfo";
  302. oParam.outds = "ds_main_list=list";
  303. oParam.async = true;
  304. //oParam.callback = "cf_TRMMR05501";
  305. tranf_submit(oParam);
  306. }
  307. function btn_srch_onclick(obj:Button, e:ClickEventInfo)
  308. {
  309. fSearch();
  310. }
  311. function fIni(){
  312. try{
  313. ds_main_patinfo.copyData(arg_ds_main_patinfo);
  314. }catch(e){
  315. sysf_catchTrace(e);
  316. }
  317. ds_send_reqdata.setColumn(0,"kind","B");
  318. fChangeKind();
  319. fDetail();
  320. fPrcplist();
  321. var pid = ds_detail.getColumn(0,"pid");
  322. if (utlf_isNull(pid)) btn_save.enable = false;
  323. }
  324. function btn_yexplain_onclick(obj:Button, e:ClickEventInfo)
  325. {
  326. lf_yexplain();
  327. }
  328. function lf_yexplain()
  329. {
  330. var parammsg = "B@연명의료설명@YEON01";
  331. if( !utlf_isNull(parammsg) ){
  332. frmf_setParameter("SPMQR06000_param", parammsg); // 파라미터 설정
  333. frmf_modal("SPMQR06000", "SPMQR06000", null, null, null, null, null, null, null, null, null, null, "M");
  334. }
  335. }
  336. function btn_prcpcd_onclick(obj:Button, e:ClickEventInfo)
  337. {
  338. var row = ds_main_list.rowposition;
  339. if( row < 0) return;
  340. var prcpcd = ds_main_list.getColumn(row,"prcpcd");
  341. if (!fchkprocess()) return;
  342. if (utlf_isNull(prcpcd)) {
  343. sysf_messageBox("처방입력 대상이 아닙니다","I");
  344. return;
  345. }
  346. if ("6" != sysf_messageBox("해당처방이 발행됩니다. 진행하시겠습니까?","Q")) return;
  347. opener.frmf_setParameter("SPMRI09010_prcpcds", prcpcd);
  348. opener.fMakePrcp();
  349. reLoad();
  350. }
  351. /****************************************************************************************
  352. * Components : ImageViewer
  353. * Components ID : iv_msg
  354. * Event : onclick
  355. * Argument : 01.obj : Object Event has occurred
  356. * : 02.e : Event Object
  357. * Description : 메지시 보내기
  358. ****************************************************************************************/
  359. function iv_msg_onclick(obj:ImageViewer, e:ClickEventInfo)
  360. {
  361. // Step1. 메시지 설정
  362. dsf_createDsRow("ds_msgdata", [{col:"msgcnts", val:""} // 메시지
  363. , {col:"calltype", val:""} // 호출형태 : msg - 메시지만, call - 호출만, msgcall - 메시지 + 호출
  364. ]);
  365. /*
  366. // Step2. 수진자 설정
  367. dsf_createDsRow("ds_msgdata_recvr", [{col:"userid", val:""}
  368. , {col:"mpphonno", val:""}
  369. , {col:"deptcd", val:""}
  370. , {col:"pid", val:""}
  371. , {col:"pdano", val:""}
  372. ]);
  373. */
  374. var objArg = new Object();
  375. objArg.arg_ds_msgdata = ds_msgdata;
  376. //objArg.arg_ds_msgdata_recvr = ds_msgdata_recvr;
  377. frmf_modalInternal("msgbox", "com_hismainxp::form_msgbox.xfdl", objArg, null, null, null, null, null, null, null, null, null, "P");
  378. }
  379. function btn_msg_onclick(obj:Button, e:ClickEventInfo)
  380. {
  381. if (!fchkprocess()) return;
  382. opener.fYeonSendMsg();
  383. }
  384. function btn_list_onclick(obj:Button, e:ClickEventInfo)
  385. {
  386. opener.fYeonList();
  387. }
  388. function btn_prcpcds_onclick(obj:Button, e:ClickEventInfo)
  389. {
  390. var row = ds_main_list.rowposition;
  391. if( row < 0) {
  392. sysf_messageBox("세부항목이 선택되지 않았습니다!","I");
  393. return;
  394. }
  395. if (!fchkprocess()) return;
  396. var prcpcds = ds_main_list.getColumn(row,"prcpcds");
  397. var gbnnm = ds_main_list.getColumn(row,"gbnnm");
  398. if ( 6 != sysf_messageBox(gbnnm+"\n 분류에 속한 모든 처방이 발행됩니다 진행하시겠습니까?","Q")) return ;
  399. if (utlf_isNull(prcpcds)) {
  400. sysf_messageBox("처방입력 대상이 아닙니다","I");
  401. return;
  402. }
  403. opener.frmf_setParameter("SPMRI09010_prcpcds", prcpcds);
  404. opener.fMakePrcp();
  405. reLoad();
  406. }
  407. function Radio00_onitemchanged(obj:Radio, e:ItemChangeEventInfo)
  408. {
  409. fChangeKind();
  410. }
  411. function fChangeKind() {
  412. ds_main_list.clear();
  413. var oParam = {};
  414. oParam.id = "reqGetYeonKindDetlList";
  415. oParam.service = "recmngtapp.IntegrityRec";
  416. oParam.method = "reqGetYeonKindDetlList";
  417. oParam.inds = "req=ds_send_reqdata";
  418. oParam.outds = "ds_kind_list=list";
  419. oParam.async = true;
  420. //oParam.callback = "cf_TRMMR05501";
  421. tranf_submit(oParam);
  422. //var e = new GridClickEventInfo();
  423. //grd_kind.oncellclick.fireEvent(grd_kind,e);
  424. }
  425. function Button00_onclick(obj:Button, e:ClickEventInfo)
  426. {
  427. reLoad();
  428. }
  429. function fchkprocess () {
  430. var pid = ds_main_patinfo.getColumn(0,"pid");
  431. var ppid = opener.ds_main_patinfo.getColumn(0,"pid");
  432. if (ppid != pid) {
  433. sysf_messageBox("부모창과 등록번호가 다름입니다 새로고침 후 진행하세요","I");
  434. return false;
  435. }
  436. return true;
  437. }
  438. function fDetail() {
  439. var oParam = {};
  440. oParam.id = "reqGetYeonDetlList_1";
  441. oParam.service = "recmngtapp.IntegrityRec";
  442. oParam.method = "reqGetYeonDetlList";
  443. oParam.inds = "req=ds_main_patinfo";
  444. oParam.outds = "ds_detail=list";
  445. oParam.async = false;
  446. //oParam.callback = "cf_TRMMR04001";
  447. tranf_submit(oParam);
  448. }
  449. function fPrcplist() {
  450. var oParam = {};
  451. oParam.id = "reqGetYeonPrcpList_1";
  452. oParam.service = "recmngtapp.IntegrityRec";
  453. oParam.method = "reqGetYeonPrcpList";
  454. oParam.inds = "req=ds_main_patinfo";
  455. oParam.outds = "ds_prcplist=list";
  456. oParam.async = false;
  457. //oParam.callback = "cf_TRMMR04001";
  458. tranf_submit(oParam);
  459. }
  460. function grd_kind_oncellclick(obj:Grid, e:GridClickEventInfo)
  461. {
  462. var row = ds_kind_list.rowposition;
  463. var col = e.col;
  464. if( row < 0) return;
  465. if (col == 2) {
  466. var e = new ClickEventInfo();
  467. btn_prcpcds.onclick.fireEvent(btn_prcpcds,e);
  468. } else {
  469. var kind = ds_kind_list.getColumn(row,"kind");
  470. var gubun = ds_kind_list.getColumn(row,"gubun");
  471. var pid = ds_main_patinfo.getColumn(0,"pid");
  472. ds_send_reqdata.setColumn(0,"kind",kind);
  473. ds_send_reqdata.setColumn(0,"gubun",gubun);
  474. ds_send_reqdata.setColumn(0,"pid",pid);
  475. var oParam = {};
  476. oParam.id = "reqGetYeonGubunDetlList";
  477. oParam.service = "recmngtapp.IntegrityRec";
  478. oParam.method = "reqGetYeonGubunDetlList";
  479. oParam.inds = "req=ds_send_reqdata";
  480. oParam.outds = "ds_main_list=list";
  481. oParam.async = true;
  482. tranf_submit(oParam);
  483. }
  484. }
  485. function grd_gubun_oncellclick(obj:Grid, e:GridClickEventInfo)
  486. {
  487. var row = ds_main_list.rowposition;
  488. var col = e.col;
  489. if( row < 0) return;
  490. if ( col == 2 ) {
  491. var e = new ClickEventInfo();
  492. btn_prcpcd.onclick.fireEvent(btn_prcpcd,e);
  493. }
  494. }
  495. function grd_gubun_oncelldblclick(obj:Grid, e:GridClickEventInfo)
  496. {
  497. if(e.row < 0) return;
  498. var row = e.row
  499. var lastrow = ds_main_list.rowcount - 1;
  500. var formcd = ds_main_list.getColumn(row,"formcd");
  501. var srcformcd = ds_main_list.getColumn(row,"srcformcd");
  502. var formprogflag = ds_main_list.getColumn(row,"formprogflag");
  503. var kind = ds_main_list.getColumn(row,"kind");
  504. var recyn = ds_main_list.getColumn(row,"recyn");
  505. if ( row > 0 ) {
  506. var brow = row - 1;
  507. var brecyn = ds_main_list.getColumn(brow,"recyn");
  508. var bformnm = ds_main_list.getColumn(brow,"formnm");
  509. if (utlf_isNull(brecyn)) {
  510. sysf_messageBox(bformnm+"(을)를 먼저작성하셔야 합니다","I");
  511. return;
  512. }
  513. if ( row == lastrow ) {
  514. sysf_messageBox("[안내]서식작성 후에는 반드시 처방 발행여부를 확인 부탁드립니다","I");
  515. }
  516. }
  517. var profObj = frmf_findPopup("SMMMR02900"); //활성화된 제증명 화면
  518. if(!utlf_isNull(profObj)) profObj.grp_base.swc_prof.tabindex = 0;
  519. if (formprogflag == "PROF") {
  520. opener.frmf_setParameter("SPMRI09010_formcd", formcd);
  521. opener.frmf_setParameter("SPMRI09010_srcformcd", srcformcd);
  522. opener.frmf_setParameter("SPMRI09010_formprogflag", formprogflag);
  523. opener.frmf_setParameter("SPMRI09010_kind", kind);
  524. opener.fChosProflist();
  525. }
  526. else if (formprogflag == "OCR") {
  527. opener.frmf_setParameter("SPMRI09010_formcd", formcd);
  528. if ("6" != sysf_messageBox("OCR이 출력됩니다 진행하시겠습니까?","Q")) return;
  529. opener.fPrntOCR();
  530. }
  531. }
  532. function Button01_onclick(obj:Button, e:ClickEventInfo)
  533. {
  534. var node = sysf_getGlobalVariable("paminfo");
  535. if (utlf_isNull(node)) {
  536. sysf_messageBox("상단에 환자정보를 올린 후 진행하시기 바랍니다!","I");
  537. return;
  538. }
  539. frmf_modal("SMMMR05000", "SMMMR05000", null, null, 1, 100, 100, null, null, null, null, null, "M");
  540. }
  541. function reLoad() {
  542. this.reload();
  543. }
  544. function btn_save_onclick(obj:Button, e:ClickEventInfo)
  545. {
  546. ds_detail.setColumn(0,"status","GU");
  547. fSave();
  548. }
  549. function fSave() {
  550. dsf_createDs("ds_execnt");
  551. var oParam = {};
  552. oParam.id = "reqExeYeonDetlList_1";
  553. oParam.service = "recmngtapp.IntegrityRec";
  554. oParam.method = "reqExeYeonDetlList";
  555. oParam.inds = "req=ds_detail";
  556. oParam.outds = "ds_execnt=cnt";
  557. oParam.async = false;
  558. //oParam.callback = "cf_TX09001_1";
  559. tranf_submit(oParam);
  560. }]]></Script>
  561. </Form>
  562. </FDL>