SPANC00301_열량HB계산.xfdl 13 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265
  1. <?xml version="1.0" encoding="utf-8"?>
  2. <FDL version="1.5">
  3. <TypeDefinition url="..\..\..\default_typedef.xml"/>
  4. <Form id="SPANC00301" position="absolute 0 0 450 122" titletext="열량HB계산" oninit="SPANC00301_oninit" onload="SPANC00301_onload">
  5. <Layouts>
  6. <Layout>
  7. <Div position="absolute 0 0 450 87" id="grp_biz" scrollbars="autoboth">
  8. <Layouts>
  9. <Layout>
  10. <Static text="열량-HB 계산" position="absolute 0 3 135 19" id="caption1" class="tit_2" anchor="default"/>
  11. <Shape position="absolute 0 19 450 25" linetype="horizontal" id="line1" class="line_10" anchor="default"/>
  12. <Static text="남: 66 + 13.7 *" position="absolute 10 36 90 49" id="caption2" anchor="default"/>
  13. <MaskEdit position="absolute 95 31 135 50" align="align:center middle;" id="opt_mwt" mask="###.##" readonly="true" anchor="default"/>
  14. <Static text="kg + 5 *" position="absolute 135 36 190 49" id="caption3" anchor="default"/>
  15. <MaskEdit position="absolute 195 31 235 50" align="align:center middle;" id="opt_mht" mask="###.##" readonly="true" anchor="default"/>
  16. <Static text="cm - 6.8 *" position="absolute 235 36 295 49" id="caption4" anchor="default"/>
  17. <MaskEdit position="absolute 295 31 335 50" align="align:center middle;" id="opt_mage" mask="###.##" readonly="true" anchor="default"/>
  18. <Static text="yr =" position="absolute 335 36 360 49" id="caption5" anchor="default"/>
  19. <MaskEdit readonly="true" position="absolute 360 31 420 50" align="align:center middle;" id="opt_mkcal" mask="###.##" anchor="default"/>
  20. <Static text="kcal" position="absolute 421 36 446 49" id="caption6" anchor="default"/>
  21. <MaskEdit readonly="true" position="absolute 360 61 420 80" align="align:center middle;" id="opt_fmkcal" mask="###.##" anchor="default"/>
  22. <Static text="여: 655 + 9.6 *" position="absolute 10 66 90 79" id="caption7" anchor="default"/>
  23. <Static text="kg + 1.8 *" position="absolute 135 66 190 79" id="caption8" anchor="default"/>
  24. <Static text="cm - 4.7 *" position="absolute 235 66 295 79" id="caption9" anchor="default"/>
  25. <Static text="yr =" position="absolute 335 66 360 79" id="caption10" anchor="default"/>
  26. <Static text="kcal" position="absolute 421 66 446 79" id="caption11" anchor="default"/>
  27. <MaskEdit position="absolute 95 61 135 80" align="align:center middle;" id="opt_fmwt" mask="###.##" readonly="true" anchor="default"/>
  28. <MaskEdit position="absolute 195 61 235 80" align="align:center middle;" id="opt_fmht" mask="###.##" readonly="true" anchor="default"/>
  29. <MaskEdit position="absolute 295 61 335 80" align="align:center middle;" id="opt_fmage" mask="###.##" readonly="true" anchor="default"/>
  30. </Layout>
  31. </Layouts>
  32. </Div>
  33. <Div position="absolute 0 94 450 117" id="grp_btn" scrollbars="autoboth">
  34. <Layouts>
  35. <Layout>
  36. <Button position="absolute 335 0 391 22" id="btn_cfm" class="btn4" text="확인" onclick="grp_btn_btn_cfm_onclick" anchor="default"/>
  37. <Button position="absolute 394 0 450 22" id="btn_can" class="btn4" text="취소" onclick="grp_btn_btn_can_onclick" anchor="default"/>
  38. </Layout>
  39. </Layouts>
  40. </Div>
  41. </Layout>
  42. </Layouts>
  43. <Objects>
  44. <Dataset id="ds_main_maledata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  45. <ColumnInfo>
  46. <Column id="wt" type="STRING" size="256"/>
  47. <Column id="ht" type="STRING" size="256"/>
  48. <Column id="age" type="STRING" size="256"/>
  49. <Column id="kcal" type="STRING" size="256"/>
  50. </ColumnInfo>
  51. <Rows>
  52. <Row/>
  53. </Rows>
  54. </Dataset>
  55. <Dataset id="ds_main_femaledata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  56. <ColumnInfo>
  57. <Column id="wt" type="STRING" size="256"/>
  58. <Column id="ht" type="STRING" size="256"/>
  59. <Column id="age" type="STRING" size="256"/>
  60. <Column id="kcal" type="STRING" size="256"/>
  61. </ColumnInfo>
  62. <Rows>
  63. <Row/>
  64. </Rows>
  65. </Dataset>
  66. <Dataset id="ds_main_receivedata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  67. <ColumnInfo>
  68. <Column id="pid" type="STRING" size="256"/>
  69. <Column id="hngnm" type="STRING" size="256"/>
  70. <Column id="cretno" type="STRING" size="256"/>
  71. <Column id="brthdd" type="STRING" size="256"/>
  72. <Column id="sex" type="STRING" size="256"/>
  73. <Column id="age" type="STRING" size="256"/>
  74. <Column id="hometel" type="STRING" size="256"/>
  75. <Column id="mpphontel" type="STRING" size="256"/>
  76. <Column id="zipcd1" type="STRING" size="256"/>
  77. <Column id="zipcd2" type="STRING" size="256"/>
  78. <Column id="zipcdseq" type="STRING" size="256"/>
  79. <Column id="detladdr" type="STRING" size="256"/>
  80. <Column id="ioflag" type="STRING" size="256"/>
  81. <Column id="inout" type="STRING" size="256"/>
  82. <Column id="indd" type="STRING" size="256"/>
  83. <Column id="orddeptcd" type="STRING" size="256"/>
  84. <Column id="orddeptnm" type="STRING" size="256"/>
  85. <Column id="atdoctid" type="STRING" size="256"/>
  86. <Column id="atdoctnm" type="STRING" size="256"/>
  87. <Column id="wt" type="STRING" size="256"/>
  88. <Column id="ht" type="STRING" size="256"/>
  89. <Column id="flag" type="STRING" size="256"/>
  90. </ColumnInfo>
  91. </Dataset>
  92. <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  93. <ColumnInfo>
  94. <Column id="kcal" type="STRING" size="256"/>
  95. </ColumnInfo>
  96. <Rows>
  97. <Row/>
  98. </Rows>
  99. </Dataset>
  100. </Objects>
  101. <Bind>
  102. <BindItem id="item0" compid="grp_biz.opt_mwt" propid="value" datasetid="ds_main_maledata" columnid="wt"/>
  103. <BindItem id="item1" compid="grp_biz.opt_mht" propid="value" datasetid="ds_main_maledata" columnid="ht"/>
  104. <BindItem id="item2" compid="grp_biz.opt_mage" propid="value" datasetid="ds_main_maledata" columnid="age"/>
  105. <BindItem id="item3" compid="grp_biz.opt_mkcal" propid="value" datasetid="ds_main_maledata" columnid="kcal"/>
  106. <BindItem id="item4" compid="grp_biz.opt_fmwt" propid="value" datasetid="ds_main_femaledata" columnid="wt"/>
  107. <BindItem id="item5" compid="grp_biz.opt_fmht" propid="value" datasetid="ds_main_femaledata" columnid="ht"/>
  108. <BindItem id="item6" compid="grp_biz.opt_fmage" propid="value" datasetid="ds_main_femaledata" columnid="age"/>
  109. <BindItem id="item7" compid="grp_biz.opt_fmkcal" propid="value" datasetid="ds_main_femaledata" columnid="kcal"/>
  110. </Bind>
  111. <Script type="xscript4.0"><![CDATA[/***************************************************************************************
  112. * System Name : 경대 의료정보시스템
  113. * Job Name : ast_dietxp -> SPANC00301
  114. * Creator : yjh
  115. * Make Date : 2018-03-28
  116. * Description :
  117. *---------------------------------------------------------------------------------------
  118. * Modify Date Modifier Modify Description
  119. *---------------------------------------------------------------------------------------
  120. * 2018-03-28 yjh TF->XP
  121. *
  122. *---------------------------------------------------------------------------------------
  123. ****************************************************************************************/
  124. //=======================================================================================
  125. // Lib Include
  126. //---------------------------------------------------------------------------------------
  127. include "com_commonxp::comm_main.xjs";
  128. //=======================================================================================
  129. // Global Form Variable
  130. //---------------------------------------------------------------------------------------
  131. //=======================================================================================
  132. // Function
  133. //---------------------------------------------------------------------------------------
  134. //=======================================================================================
  135. // Event
  136. //---------------------------------------------------------------------------------------
  137. /****************************************************************************************
  138. * Components : Form
  139. * Components ID : SPANC00301
  140. * Event : oninit
  141. * Argument : 01.obj : Object Event has occurred
  142. * : 02.e : Event Object
  143. * Description : 화면 처음 초기화시
  144. ****************************************************************************************/
  145. function SPANC00301_oninit(obj:Form, e:InitEventInfo)
  146. {
  147. frmf_initForm(obj); //폼 초기화
  148. }
  149. /****************************************************************************************
  150. * Components : Form
  151. * Components ID : SPANC00301
  152. * Event : onload
  153. * Argument : 01.obj : Object Event has occurred
  154. * : 02.e : Event Object
  155. * Description : 화면 로딩 완료시
  156. ****************************************************************************************/
  157. function SPANC00301_onload(obj:Form, e:LoadEventInfo)
  158. {
  159. try{
  160. ds_main_receivedata.copyData(arg_ds_main_receivedata);
  161. }catch(e){
  162. }
  163. var sex = ds_main_receivedata.getColumn(0, "sex");
  164. var age = Number(utlf_transNullToEmpty(ds_main_receivedata.getColumn(0, "age")));
  165. var wt = Number(utlf_transNullToEmpty(ds_main_receivedata.getColumn(0, "wt")));
  166. var ht = Number(utlf_transNullToEmpty(ds_main_receivedata.getColumn(0, "ht")));
  167. var abw = Number(utlf_transNullToEmpty(ds_main_receivedata.getColumn(0, "abw")));
  168. var pibw = ds_main_receivedata.getColumn(0, "pibw");
  169. var kcal = 0;
  170. //화면 오픈시 해당 데이터 셋팅
  171. if (sex == "M") { //남자일 경우
  172. ds_main_maledata.setColumn(0, "age", age);
  173. ds_main_maledata.setColumn(0, "ht", ht);
  174. if (pibw < 120) { //PIBW가 120 이상인 경우는 WT 대신 ABW로 계산
  175. ds_main_maledata.setColumn(0, "wt", wt);
  176. kcal = 66+13.7*wt+5*ht-6.8*age;
  177. } else {
  178. ds_main_maledata.setColumn(0, "wt", abw);
  179. kcal = 66+13.7*abw+5*ht-6.8*age;
  180. }
  181. ds_main_maledata.setColumn(0, "kcal", kcal);
  182. } else if (sex == "F") { //여자일 경우
  183. ds_main_femaledata.setColumn(0, "age", age);
  184. ds_main_femaledata.setColumn(0, "ht", ht);
  185. if (pibw < 120) { //PIBW가 120 이상인 경우는 WT 대신 ABW로 계산
  186. ds_main_femaledata.setColumn(0, "wt", wt);
  187. kcal = 655+9.6*wt+1.8*ht-4.7*age;
  188. } else {
  189. ds_main_femaledata.setColumn(0, "wt", abw);
  190. kcal = 655+9.6*abw+1.8*ht-4.7*age;
  191. }
  192. ds_main_femaledata.setColumn(0, "kcal", kcal);
  193. }
  194. //계산된 최종값을 메인 화면으로 전달하기위해
  195. ds_send.setColumn(0, "kcal", kcal)
  196. }
  197. /****************************************************************************************
  198. * Components : Button
  199. * Components ID : btn_cfm
  200. * Event : onclick
  201. * Argument : 01.obj : Object Event has occurred
  202. * : 02.e : Event Object
  203. * Description : 확인버튼 클릭시
  204. ****************************************************************************************/
  205. function grp_btn_btn_cfm_onclick(obj:Button, e:ClickEventInfo)
  206. {
  207. var sex = ds_main_receivedata.getColumn(0, "sex");
  208. //열량-HB 재계산
  209. if (sex == "M") { // 남자일 경우
  210. var wt = grp_biz.opt_mwt.value;
  211. var ht = grp_biz.opt_mht.value;
  212. var age = grp_biz.opt_mage.value;
  213. var kcal = 66+13.7*wt+5*ht-6.8*age;
  214. ds_main_maledata.setColumn(0, "kcal", kcal);
  215. } else if (sex == "F") { // 여자일 경우
  216. var wt = grp_biz.opt_fmwt.value;
  217. var ht = grp_biz.opt_fmht.value;
  218. var age = grp_biz.opt_fmage.value;
  219. var kcal = 655+9.6*wt+1.8*ht-4.7*age;
  220. ds_main_femaledata.setColumn(0, "kcal", kcal);
  221. }
  222. // 계산된 최종값을 메인 화면으로 전달하기위해
  223. ds_send.setColumn(0, "kcal", kcal)
  224. var flag = ds_main_receivedata.getColumn(0, "flag");
  225. if ( flag == 1 ) { // 협진의뢰 tab화면의 열량HB에 값 셋팅
  226. opener.ds_main_maindata_cnstreq.setColumn(0, "optcalrhb1", ds_send.getColumn(0, "kcal"));
  227. } else if ( flag == 2 ) { // 추구관리 tab화면의 열량HB에 값 셋팅
  228. opener.ds_main_maindata_pursmngt.setColumn(0, "optcalrhb2", ds_send.getColumn(0, "kcal"));
  229. }
  230. this.close();
  231. }
  232. /****************************************************************************************
  233. * Components : Button
  234. * Components ID : btn_can
  235. * Event : onclick
  236. * Argument : 01.obj : Object Event has occurred
  237. * : 02.e : Event Object
  238. * Description : 취소버튼 클릭시
  239. ****************************************************************************************/
  240. function grp_btn_btn_can_onclick(obj:Button, e:ClickEventInfo)
  241. {
  242. this.close();
  243. }
  244. ]]></Script>
  245. </Form>
  246. </FDL>