SMMNN02600_일반병실료산정.xfdl 23 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560
  1. <?xml version="1.0" encoding="utf-8" standalone="no"?>
  2. <FDL version="1.5">
  3. <TypeDefinition url="..\..\..\default_typedef.xml"/>
  4. <Form id="SMMNN02600" position="absolute 0 0 328 221" titletext="신생아실병실료산정" onload="SMMNN02600_onload" ontimer="SMMNN02600_ontimer">
  5. <Layouts>
  6. <Layout>
  7. <Div id="group3" scrollbars="autoboth" position="absolute 0 0 309 217" style="">
  8. <Layouts>
  9. <Layout>
  10. <Grid id="grd_patlist" binddataset="ds_main_patinfo_patlist" visible="false" position="absolute 55 85 230 155" style="" anchor="default">
  11. <Formats>
  12. <Format id="default">
  13. <Columns>
  14. <Column size="100"/>
  15. <Column size="100"/>
  16. <Column size="100"/>
  17. <Column size="100"/>
  18. <Column size="100"/>
  19. <Column size="100"/>
  20. <Column size="100"/>
  21. <Column size="100"/>
  22. <Column size="100"/>
  23. </Columns>
  24. <Rows>
  25. <Row size="24" band="head"/>
  26. <Row size="24"/>
  27. </Rows>
  28. <Band id="head">
  29. <Cell text="caption1"/>
  30. <Cell col="1" text="caption2"/>
  31. <Cell col="2" text="caption3"/>
  32. <Cell col="3" text="caption4"/>
  33. <Cell col="4" text="caption5"/>
  34. <Cell col="5" text="caption6"/>
  35. <Cell col="6" text="caption7"/>
  36. <Cell col="7" text="caption8"/>
  37. <Cell col="8" text="caption9"/>
  38. </Band>
  39. <Band id="body">
  40. <Cell text="bind:pid"/>
  41. <Cell col="1" text="bind:hngnm"/>
  42. <Cell col="2" text="bind:indd"/>
  43. <Cell col="3" text="bind:wardnm"/>
  44. <Cell col="4" text="bind:roomcd"/>
  45. <Cell col="5" text="bind:grde"/>
  46. <Cell col="6" text="bind:cretno"/>
  47. <Cell col="7" text="bind:wardcd"/>
  48. <Cell col="8" text="bind:fromdd"/>
  49. </Band>
  50. </Format>
  51. </Formats>
  52. </Grid>
  53. <Static id="caption7" class="tit_2" position="absolute 8 8 168 30" style="" text="신생아실 병실료 산정" anchor="default"/>
  54. <Shape id="line1" class="line_2" linetype="horizontal" position="absolute 0 76 300 79" style="" anchor="default"/>
  55. <Shape id="line2" class="line_2" linetype="horizontal" position="absolute 0 52 300 55" style="" anchor="default"/>
  56. <Shape id="line5" class="line_1" linetype="horizontal" position="absolute 0 25 300 28" style="strokepen:4 solid #33bbbbff;" anchor="default"/>
  57. <MaskEdit id="ipt_indd" class="input_search" enable="False" taborder="2" mask="yyyy-mm-dd" position="absolute 76 55 172 74" style="background:lightgrey stretch 5,5;align:left middle;" anchor="default" readonly="true"/>
  58. <Edit id="ipt_pid" class="input_search" taborder="1" position="absolute 76 31 172 50" style="" anchor="default" onkeypress="group3_ipt_pid_onkeypress" onkeydown="group3_ipt_pid_onkeydown" autoselect="true"/>
  59. <Edit id="opt_hngnm" class="output_fix" position="absolute 175 31 298 50" style="background:lightgrey; :disabled {color:black;}" anchor="default" readonly="true" enable="false" enableevent="false"/>
  60. <Static id="caption1" class="cell_1" position="absolute 0 54 74 77" style="align:center middle;" text="입원일자" anchor="default"/>
  61. <Static id="caption3" class="cell_1" position="absolute 0 102 74 125" style="align:center middle;" text="병실구분" anchor="default"/>
  62. <Radio datacolumn="datacolumn" codecolumn="codecolumn" columncount="-1" rowcount="-1" id="rdo_grdeflag" position="absolute 77 104 300 125" style="" anchor="default">
  63. <Dataset id="innerdataset">
  64. <ColumnInfo>
  65. <Column id="codecolumn"/>
  66. <Column id="datacolumn"/>
  67. </ColumnInfo>
  68. <Rows>
  69. <Row>
  70. <Col id="codecolumn">G</Col>
  71. <Col id="datacolumn">일반병실료산정</Col>
  72. </Row>
  73. <Row>
  74. <Col id="codecolumn">S</Col>
  75. <Col id="datacolumn">중환자병실료산정</Col>
  76. </Row>
  77. </Rows>
  78. </Dataset>
  79. </Radio>
  80. <Static id="caption15" class="cell_1" position="absolute 0 30 74 53" style="align:center middle;" text="등록번호" anchor="default"/>
  81. <Edit id="ipt_wardnm" class="input_search" enable="false" taborder="2" position="absolute 76 79 172 98" anchor="default" readonly="true" style="background:lightgrey stretch 5,5; :disabled {color:black;}"/>
  82. <Edit id="ipt_roomcd" class="input_search" enable="false" taborder="2" position="absolute 236 79 298 98" anchor="default" readonly="true" style="background:lightgrey stretch 5,5; :disabled {color:black;}"/>
  83. <Shape id="line8" class="line_2" linetype="horizontal" position="absolute 0 100 300 103" style="" anchor="default"/>
  84. <Static id="caption2" class="cell_1" position="absolute 0 78 74 101" style="align:center middle;" text="병동" anchor="default"/>
  85. <Static id="caption6" class="cell_1" position="absolute 175 78 234 101" style="align:center middle;" text="병실" anchor="default"/>
  86. <Edit id="ipt_wardcd" visible="false" position="absolute 145 125 245 144" style="" anchor="default"/>
  87. <Edit id="ipt_cretno" visible="false" position="absolute 35 125 135 144" style="" anchor="default"/>
  88. <Shape id="line4" class="line_3" linetype="horizontal" position="absolute 0 124 300 127" style="" anchor="default"/>
  89. <Edit id="ipt_grde" visible="false" position="absolute 180 55 280 75" style="" anchor="default"/>
  90. <Static id="cap_str" position="absolute 0 129 295 172" style="background:transparent;align:left;font:돋움,10,bold;" anchor="default"/>
  91. </Layout>
  92. </Layouts>
  93. </Div>
  94. <Div id="grp_btn" scrollbars="autoboth" position="absolute 0 173 301 203" style="">
  95. <Layouts>
  96. <Layout>
  97. <Button id="button9" class="btn4" taborder="7" position="absolute 241 5 297 27" style="" text="닫기" onclick="grp_btn_button9_onclick" anchor="default"/>
  98. <Shape id="line32" class="line_6" linetype="horizontal" position="absolute 0 0 300 3" style="" anchor="default"/>
  99. <Button id="btn_save" class="btn4" enable="False" taborder="5" position="absolute 183 5 239 27" style="" text="저장" onclick="grp_btn_btn_save_onclick" anchor="default"/>
  100. </Layout>
  101. </Layouts>
  102. </Div>
  103. <Div id="group1" position="absolute 103 133 303 198" style="background:#ff99cc ;" visible="false">
  104. <Layouts>
  105. <Layout>
  106. <Button id="button1" class="btn4" taborder="5" position="absolute 15 32 83 54" style="" text="출력물" onclick="group1_button1_onclick" visible="true" anchor="default"/>
  107. <Button id="button2" class="btn4" taborder="5" position="absolute 95 32 187 54" style="" text="전자동의서" onclick="group1_button2_onclick" visible="true" anchor="default"/>
  108. <Static id="caption4" class="tit_2" position="absolute 3 10 188 26" style="font:굴림,8,bold;" text="일반 병실 입원료 안내 확인서" visible="true" anchor="default"/>
  109. </Layout>
  110. </Layouts>
  111. </Div>
  112. </Layout>
  113. </Layouts>
  114. <Objects>
  115. <Dataset id="ds_main_cond" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
  116. <ColumnInfo>
  117. <Column id="pid" type="STRING" size="256"/>
  118. <Column id="hngnm" type="STRING" size="256"/>
  119. <Column id="indd" type="STRING" size="256"/>
  120. <Column id="wardnm" type="STRING" size="256"/>
  121. <Column id="roomcd" type="STRING" size="256"/>
  122. <Column id="grdeflag" type="STRING" size="256"/>
  123. <Column id="cretno" type="STRING" size="256"/>
  124. <Column id="wardcd" type="STRING" size="256"/>
  125. <Column id="grde" type="STRING" size="256"/>
  126. <Column id="str" type="STRING" size="256"/>
  127. </ColumnInfo>
  128. <Rows>
  129. <Row>
  130. <Col id="pid"/>
  131. <Col id="hngnm"/>
  132. <Col id="indd"/>
  133. <Col id="wardnm"/>
  134. <Col id="roomcd"/>
  135. <Col id="grdeflag">G</Col>
  136. <Col id="cretno"/>
  137. <Col id="wardcd"/>
  138. <Col id="grde"/>
  139. <Col id="str"/>
  140. </Row>
  141. </Rows>
  142. </Dataset>
  143. <Dataset id="ds_code" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
  144. <ColumnInfo/>
  145. </Dataset>
  146. <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
  147. <ColumnInfo>
  148. <Column id="req" type="STRING" size="256"/>
  149. </ColumnInfo>
  150. <Rows>
  151. <Row>
  152. <Col id="req"/>
  153. </Row>
  154. </Rows>
  155. </Dataset>
  156. <Dataset id="ds_code_codeinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
  157. <ColumnInfo>
  158. <Column id="codelist" type="STRING" size="256"/>
  159. </ColumnInfo>
  160. </Dataset>
  161. <Dataset id="ds_main_patinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
  162. <ColumnInfo/>
  163. </Dataset>
  164. <Dataset id="ds_hidden_zsd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
  165. <ColumnInfo>
  166. <Column id="resultref" type="STRING" size="256"/>
  167. </ColumnInfo>
  168. <Rows>
  169. <Row>
  170. <Col id="resultref"/>
  171. </Row>
  172. </Rows>
  173. </Dataset>
  174. <Dataset id="ds_hidden" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
  175. <ColumnInfo/>
  176. </Dataset>
  177. <Dataset id="ds_main" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
  178. <ColumnInfo>
  179. <Column id="paminfo" type="STRING" size="256"/>
  180. </ColumnInfo>
  181. </Dataset>
  182. <Dataset id="ds_main_patinfo_patlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
  183. <ColumnInfo>
  184. <Column id="pid" type="STRING" size="256"/>
  185. <Column id="hngnm" type="STRING" size="256"/>
  186. <Column id="indd" type="STRING" size="256"/>
  187. <Column id="wardnm" type="STRING" size="256"/>
  188. <Column id="roomcd" type="STRING" size="256"/>
  189. <Column id="grdeflag" type="STRING" size="256"/>
  190. <Column id="cretno" type="STRING" size="256"/>
  191. <Column id="wardcd" type="STRING" size="256"/>
  192. </ColumnInfo>
  193. <Rows>
  194. <Row>
  195. <Col id="pid"/>
  196. <Col id="hngnm"/>
  197. <Col id="indd"/>
  198. <Col id="wardnm"/>
  199. <Col id="roomcd"/>
  200. <Col id="grdeflag"/>
  201. <Col id="cretno"/>
  202. <Col id="wardcd"/>
  203. </Row>
  204. </Rows>
  205. </Dataset>
  206. <Dataset id="ds_init" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
  207. <ColumnInfo>
  208. <Column id="init" type="STRING" size="256"/>
  209. </ColumnInfo>
  210. <Rows>
  211. <Row>
  212. <Col id="init"/>
  213. </Row>
  214. </Rows>
  215. </Dataset>
  216. <Dataset id="ds_codelist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  217. <Dataset id="ds_send_savedata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  218. </Objects>
  219. <Bind>
  220. <BindItem id="item0" compid="group3.cap_str" propid="value" datasetid="ds_main_cond" columnid="str"/>
  221. <BindItem id="item1" compid="group3.ipt_indd" propid="value" datasetid="ds_main_cond" columnid="indd"/>
  222. <BindItem id="item2" compid="group3.ipt_pid" propid="value" datasetid="ds_main_cond" columnid="pid"/>
  223. <BindItem id="item3" compid="group3.opt_hngnm" propid="value" datasetid="ds_main_cond" columnid="hngnm"/>
  224. <BindItem id="item4" compid="group3.rdo_grdeflag" propid="value" datasetid="ds_main_cond" columnid="grdeflag"/>
  225. <BindItem id="item5" compid="group3.ipt_wardnm" propid="value" datasetid="ds_main_cond" columnid="wardnm"/>
  226. <BindItem id="item6" compid="group3.ipt_roomcd" propid="value" datasetid="ds_main_cond" columnid="roomcd"/>
  227. <BindItem id="item7" compid="group3.ipt_wardcd" propid="value" datasetid="ds_main_cond" columnid="wardcd"/>
  228. <BindItem id="item8" compid="group3.ipt_cretno" propid="value" datasetid="ds_main_cond" columnid="cretno"/>
  229. <BindItem id="item9" compid="group3.ipt_grde" propid="value" datasetid="ds_main_cond" columnid="grde"/>
  230. </Bind>
  231. <Script type="xscript4.0"><![CDATA[/***************************************************************************************
  232. * System Name :
  233. * Job Name :
  234. * Creator :
  235. * Make Date : 2016-05-24
  236. * Description :
  237. *---------------------------------------------------------------------------------------
  238. * Modify Date Modifier Modify Description
  239. *---------------------------------------------------------------------------------------
  240. * 2016-05-24 Live Converter TF->XP
  241. *
  242. *---------------------------------------------------------------------------------------
  243. ****************************************************************************************/
  244. include "com_commonxp::comm_main.xjs";
  245. include "emr_carecomxp::CareCom.xjs";
  246. include "emr_wardcarexp::SMMNW03.xjs";
  247. var sPath = "ds_main_paminfo";
  248. var gDeptcd;
  249. var gGrde1;
  250. var gGrde2;
  251. var gType1;
  252. var gType2;
  253. function SMMNN02600_onload(obj:Form, e:LoadEventInfo) {
  254. frmf_initForm(obj);
  255. this.setTimer(0, 100);
  256. //fInitialize
  257. }
  258. function fInitialize()
  259. {
  260. var pCode = "'T38', 'T39', 'T54'"; // 조회할 CdGrupID 코드정보 T38:신생아중환자실코드, T39:병상grade코드, T54: 병상type코드
  261. var pDate = utlf_getCurrentDate(); //조회기준일자
  262. fGetNursHardCdInfo(pCode, pDate);
  263. gDeptcd = ds_codelist.lookupExpr("cdgrupid=='T38'","cdid");
  264. gGrde1 = ds_codelist.lookupExpr("cdgrupid=='T39' && cdid=='01'","cdnm");
  265. gGrde2 = ds_codelist.lookupExpr("cdgrupid=='T39' && cdid=='02'","cdnm");
  266. gType1 = ds_codelist.lookupExpr("cdgrupid=='T54' && cdid=='01'","cdnm");
  267. gType2 = ds_codelist.lookupExpr("cdgrupid=='T54' && cdid=='02'","cdnm");
  268. // 환자정보 조회
  269. var sPamInfo = sysf_getGlobalVariable("paminfo");
  270. dsf_setCSVToDs("ds_main_patinfo",sPamInfo,"pamlist");
  271. pPath = sPath + "_pamlist";
  272. var pid;
  273. var hngnm;
  274. var indd;
  275. var cretno;
  276. var wardcd;
  277. var wardnm;
  278. var roomcd;
  279. if(sPamInfo != ""){
  280. pid = ds_main_patinfo.getColumn(0,"pid");
  281. hngnm = ds_main_patinfo.getColumn(0,"hngnm");
  282. indd = ds_main_patinfo.getColumn(0,"indd");
  283. cretno = ds_main_patinfo.getColumn(0,"cretno");
  284. wardnm = ds_main_patinfo.getColumn(0,"wardnm");
  285. roomcd = ds_main_patinfo.getColumn(0,"roomcd");
  286. wardcd = ds_main_patinfo.getColumn(0,"wardcd");
  287. //ipt_rsvdd.value = ds_main_paminfo_pamlist.getColumn(0, "indd");
  288. group3.ipt_pid.value = pid;
  289. group3.opt_hngnm.value = hngnm;
  290. group3.ipt_indd.value = indd;
  291. group3.ipt_cretno.value = cretno;
  292. group3.ipt_wardcd.value = wardcd;
  293. group3.ipt_wardnm.value = wardnm;
  294. group3.ipt_roomcd.value = roomcd;
  295. fSearch(); //환자및 사망정보 조회
  296. } else {
  297. group3.ipt_pid.setFocus();
  298. }
  299. }
  300. function fSearch()
  301. {
  302. dsf_makeValue( ds_send, "req", "string", "" );
  303. ds_send.copyData(ds_main_cond);
  304. var oParam = {};
  305. oParam.id = "TRMNW02601";
  306. oParam.service = "partrtnnbabyapp.NbabyCarePatMngt";
  307. oParam.method = "reqGetPatInfo";
  308. oParam.inds = "req=ds_send";
  309. oParam.outds = "ds_main_patinfo_patlist=patlist";
  310. oParam.async = false;
  311. oParam.callback = "cf_TRMNW02601";
  312. tranf_submit(oParam);
  313. }
  314. function cf_TRMNW02601(sSvcId, nErrorCode, sErrorMsg) {
  315. if(nErrorCode < 0) {
  316. sysf_messageBox("재원중인 환자가 존재하지않습니다.", "E");
  317. group3.rdo_grdeflag.enable = false;
  318. grp_btn.btn_save.enable = false;
  319. group3.ipt_pid.value = "";
  320. group3.opt_hngnm.value = "";len
  321. group3.ipt_indd.value = "";
  322. group3.ipt_cretno.value = "";
  323. group3.ipt_wardcd.value = "";
  324. group3.ipt_wardnm.value = "";
  325. group3.ipt_roomcd.value = "";
  326. return;
  327. }else{
  328. if(ds_main_patinfo_patlist.rowcount > 0) {
  329. var pid = "";
  330. var hngnm = "";
  331. var indd = "";
  332. var cretno = "";
  333. var wardcd = "";
  334. var wardnm = "";
  335. var roomcd = "";
  336. var grde = "";
  337. var fromdd = "";
  338. var str = "";
  339. var grdenm = "";
  340. pid = ds_main_patinfo_patlist.getColumn(0,"pid");
  341. hngnm = ds_main_patinfo_patlist.getColumn(0,"hngnm");
  342. indd = ds_main_patinfo_patlist.getColumn(0,"indd");
  343. cretno = ds_main_patinfo_patlist.getColumn(0,"cretno");
  344. wardcd = ds_main_patinfo_patlist.getColumn(0,"wardcd");
  345. wardnm = ds_main_patinfo_patlist.getColumn(0,"wardnm");
  346. roomcd = ds_main_patinfo_patlist.getColumn(0,"roomcd");
  347. grde = ds_main_patinfo_patlist.getColumn(0,"grde");
  348. fromdd = ds_main_patinfo_patlist.getColumn(0,"fromdd");
  349. //ipt_rsvdd.value = ds_main_paminfo_pamlist.getColumn(0, "indd");
  350. group3.ipt_pid.value = pid;
  351. group3.opt_hngnm.value = hngnm;
  352. group3.ipt_indd.value = indd;
  353. group3.ipt_cretno.value = cretno;
  354. group3.ipt_wardcd.value = wardcd;
  355. group3.ipt_wardnm.value = wardnm;
  356. group3.ipt_roomcd.value = roomcd;
  357. group3.ipt_grde.value = grde;
  358. str = "";
  359. if(grde == "G") {
  360. grdenm = "일반병실료";
  361. } else {
  362. grdenm = "중환자병실료";
  363. }
  364. group3.rdo_grdeflag.value = grde;
  365. //group3.rdo_grdeflag.refresh();
  366. if(wardcd == gDeptcd) {
  367. group3.rdo_grdeflag.enable = true;
  368. grp_btn.btn_save.enable = true;
  369. str = " " + hngnm + " 환자분은 " + fromdd.substr(0,4) + "년 " + fromdd.substr(4,2) + "월 " + fromdd.substr(6,2) + "일부로 " + grdenm+ "가 적용";
  370. } else {
  371. group3.rdo_grdeflag.enable = false;
  372. grp_btn.btn_save.enable = false;
  373. str = " " + hngnm + " 환자분은 " + "신생아 중환자실 환자가 아닙니다.";
  374. }
  375. group3.cap_str.visible = true;
  376. group3.cap_str.text = str;
  377. //group3.cap_str.refresh();
  378. }
  379. }
  380. }
  381. function fSave() {
  382. var grdeflag = group3.rdo_grdeflag.value;
  383. var grde = group3.ipt_grde.value;
  384. if(grdeflag == grde) {
  385. sysf_messageBox("현재 병실등급과 바꾸려는 병실등급이 동일합니다.", "I");
  386. return;
  387. }
  388. var rtn = sysf_messageBox("병실등급 변경을 하시겠습니까?", "Q");
  389. if(rtn == "6") {
  390. dsf_makeValue( ds_send_savedata, "pid", "string", group3.ipt_pid.value);
  391. dsf_makeValue( ds_send_savedata, "indd", "string", group3.ipt_indd.value);
  392. dsf_makeValue( ds_send_savedata, "cretno", "string", group3.ipt_cretno.value);
  393. dsf_makeValue( ds_send_savedata, "grdeflag", "string", group3.rdo_grdeflag.value);
  394. //병실구분이 일반이면 일반병실등급, 그렇지 않으면 중환자실 병실등급.
  395. if(grdeflag == "G") {
  396. dsf_makeValue( ds_send_savedata, "grde", "string", gGrde1);
  397. dsf_makeValue( ds_send_savedata, "type", "string", gType1);
  398. } else {
  399. dsf_makeValue( ds_send_savedata, "grde", "string", gGrde2);
  400. dsf_makeValue( ds_send_savedata, "type", "string", gType2);
  401. }
  402. var oParam = {};
  403. oParam.id = "TRMNW02601";
  404. oParam.service = "partrtnnbabyapp.NbabyCarePatMngt";
  405. oParam.method = "reqExeIcdrInfo";
  406. oParam.inds = "req=ds_send_savedata";
  407. oParam.outds = "";
  408. oParam.async = false;
  409. oParam.callback = "cf_TRMNW026011";
  410. tranf_submit(oParam);
  411. }
  412. }
  413. function cf_TRMNW026011(sSvcId, nErrorCode, sErrorMsg) {
  414. if(nErrorCode < 0) {
  415. return;
  416. }else{
  417. sysf_messageBox("저장되었습니다.", "I");
  418. if(ds_main_cond.getColumn(0, "grdeflag") == "G"){
  419. dsf_makeValue( ds_main_cond, "today", "string", utlf_getCurrentDate());
  420. //exeReportPreview("RPMNN02600", "XMLSTR" , "" , "" , "true" , "", "", "", "", "true"); // OCR서식으로 변경
  421. group1.visible = true;
  422. }
  423. fSearch();
  424. }
  425. }
  426. function fPrint(elecflag){
  427. var left = this.position.x;
  428. var top = this.position.y;
  429. var pInstcd = sysf_getUserInfo("dutplceinstcd");
  430. var pPid = ds_main_cond.getColumn(0, "pid");
  431. var pIndd = ds_main_cond.getColumn(0, "indd");
  432. var pCretno = ds_main_cond.getColumn(0, "cretno");
  433. var pOrdtype = "I";
  434. var formcd = "1400014928";
  435. if (elecflag == "Y") {
  436. fElecPrint(pPid, pCretno, pIndd, pInstcd, formcd, "", "G") ;
  437. }else{
  438. frmf_setParameter("formcd",formcd);
  439. frmf_setParameter("pid", pPid);
  440. frmf_setParameter("orddd", pIndd);
  441. frmf_setParameter("cretno", pCretno);
  442. frmf_setParameter("ordtype", pOrdtype);
  443. frmf_modal("SSMRF03700", "SSMRF03700", "", "", "1", "left", "top", "", "", "", "", "", "M");
  444. }
  445. group1.visible = false;
  446. }
  447. function group3_ipt_pid_onkeydown(obj:Edit, e:KeyEventInfo) {
  448. if(e.keycode == 13){
  449. ds_main_cond.setColumn( 0, "pid", group3.ipt_pid.text);
  450. fSearch(); //환자및 사망정보 조회
  451. }
  452. }
  453. function grp_btn_button9_onclick(obj:Button, e:ClickEventInfo) {
  454. this.close();
  455. }
  456. function grp_btn_btn_save_onclick(obj:Button, e:ClickEventInfo) {
  457. fSave();
  458. }
  459. function group1_button1_onclick(obj:Button, e:ClickEventInfo) {
  460. fPrint("N");
  461. }
  462. function group1_button2_onclick(obj:Button, e:ClickEventInfo) {
  463. fPrint("Y");
  464. }
  465. function SMMNN02600_ontimer(obj:Form, e:TimerEventInfo)
  466. {
  467. if (e.timerid == 0) {
  468. this.killTimer(0);
  469. fInitialize();
  470. }
  471. }
  472. ]]></Script>
  473. </Form>
  474. </FDL>