SMABO01500_차수관리.xfdl 49 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958
  1. <?xml version="1.0" encoding="utf-8"?>
  2. <FDL version="1.5">
  3. <TypeDefinition url="..\..\..\default_typedef.xml"/>
  4. <Form id="SMABO01500" position="absolute 0 0 1201 785" titletext="BMT 환자 이식 차수관리" oninit="SMABO01500_oninit" onload="SMABO01500_onload">
  5. <Layouts>
  6. <Layout>
  7. <Static id="caption6" text="차수관리" class="tit_1" position="absolute 0 0 164 25"/>
  8. <Button id="btn_prt" taborder="1" text="출력" class="btn6" position="absolute 0 26 56 48" onclick="btn_prt_onclick"/>
  9. <Button id="btn_save" taborder="2" text="저장" class="btn4" position="absolute 1137 26 1193 48" anchor="top right" onclick="btn_save_onclick"/>
  10. <Static id="caption1" text="BMT 리스트" class="tit_2" position="absolute 0 119 100 140"/>
  11. <Shape id="line1" class="line_10" position="absolute 0 135 1194 141" anchor="left top right"/>
  12. <Div id="grp_sea" taborder="3" class="div_SA2" position="absolute 0 49 1194 109" anchor="left top right">
  13. <Layouts>
  14. <Layout>
  15. <Static id="caption2" text="기간(이식일) :" class="search_name" position="absolute 15 7 127 24"/>
  16. <Static id="caption3" text="승인구분 :" class="search_name" position="absolute 364 7 450 24"/>
  17. <Static id="caption4" text="진단명 :" class="search_name" position="absolute 567 7 640 24"/>
  18. <Static id="caption5" text="~" class="search_no_b" position="absolute 233 7 245 24"/>
  19. <Shape id="line13" linetype="vertical" class="line_4" position="absolute 1104 8 1110 51" anchor="top right"/>
  20. <Static id="caption33" text="Stem Cell Source :" class="search_name" position="absolute 758 7 909 24"/>
  21. <Combo id="combo1" taborder="1" codecolumn="codecolumn" datacolumn="datacolumn" class="combo_search" position="absolute 452 7 552 26">
  22. <Dataset id="innerdataset">
  23. <ColumnInfo>
  24. <Column id="codecolumn"/>
  25. <Column id="datacolumn"/>
  26. </ColumnInfo>
  27. <Rows>
  28. <Row>
  29. <Col id="codecolumn"/>
  30. <Col id="datacolumn"/>
  31. </Row>
  32. <Row>
  33. <Col id="codecolumn">1</Col>
  34. <Col id="datacolumn">급여</Col>
  35. </Row>
  36. <Row>
  37. <Col id="codecolumn">2</Col>
  38. <Col id="datacolumn">비급여</Col>
  39. </Row>
  40. <Row>
  41. <Col id="codecolumn">3</Col>
  42. <Col id="datacolumn">사후승인</Col>
  43. </Row>
  44. </Rows>
  45. </Dataset>
  46. </Combo>
  47. <Combo id="combo2" taborder="2" innerdataset="@ds_init_cmbinfo_lrglist_item" codecolumn="hsctlrgcd" datacolumn="hsctlrgnm" class="combo_search" position="absolute 643 7 743 26"/>
  48. <Combo id="combo5" taborder="3" innerdataset="@ds_init_cmbinfo_scs_A0162" codecolumn="hsctmdlcd" datacolumn="hsctmdlnm" class="combo_search" position="absolute 912 7 1012 26"/>
  49. <Combo id="combo3" taborder="4" innerdataset="@ds_init_cmbinfo_trnptkind_A0161" codecolumn="cdid" datacolumn="cdnm" class="combo_search" position="absolute 452 34 552 53"/>
  50. <Static id="caption7" text="이식종류 :" class="search_name" position="absolute 364 34 450 51"/>
  51. <Combo id="combo4" taborder="5" innerdataset="@ds_init_cmbinfo_btype_M0376" codecolumn="cdid" datacolumn="cdnm" class="combo_search" position="absolute 643 34 743 53"/>
  52. <Static id="caption8" text="혈액형 :" class="search_name" position="absolute 567 34 640 51"/>
  53. <Static id="caption9" text="성별 :" class="search_name" position="absolute 758 34 818 51"/>
  54. <Combo id="combo6" taborder="6" innerdataset="@ds_init_cmbinfo_sex_P0313" codecolumn="cdid" datacolumn="cdnm" class="combo_search" position="absolute 821 32 891 51"/>
  55. <Button id="btn_sea" taborder="7" text="조회" class="btn1" position="absolute 1123 19 1179 41" anchor="top right" onclick="grp_sea_btn_sea_onclick"/>
  56. <Calendar id="ipt_trnptfromdd" taborder="8" autoselect="true" autoskip="true" class="input_s_essential" position="absolute 130 7 230 26"/>
  57. <Calendar id="ipt_trnpttodd" taborder="9" autoselect="true" autoskip="true" class="input_s_essential" position="absolute 249 7 349 26"/>
  58. <Edit id="output5" taborder="10" readonly="true" class="output" position="absolute 289 35 319 54"/>
  59. <Edit id="output6" taborder="11" readonly="true" class="output" position="absolute 322 35 352 54"/>
  60. <Edit id="output17" taborder="12" readonly="true" class="output" position="absolute 206 35 286 54"/>
  61. <Static id="caption16" text="등록번호 :" class="search_name" position="absolute 15 36 101 53"/>
  62. <Edit id="ipt_pid" taborder="13" autoselect="true" autoskip="true" class="input_essential" position="absolute 104 35 204 54" onkeyup="grp_sea_ipt_pid_onkeyup"/>
  63. <Static id="caption17" text="급여 :" class="search_name" position="absolute 906 34 966 51"/>
  64. <Combo id="combo7" taborder="14" codecolumn="codecolumn" datacolumn="datacolumn" class="combo_search" position="absolute 969 32 1039 51">
  65. <Dataset id="innerdataset">
  66. <ColumnInfo>
  67. <Column id="codecolumn"/>
  68. <Column id="datacolumn"/>
  69. </ColumnInfo>
  70. <Rows>
  71. <Row>
  72. <Col id="codecolumn"/>
  73. <Col id="datacolumn"/>
  74. </Row>
  75. <Row>
  76. <Col id="codecolumn">1</Col>
  77. <Col id="datacolumn">급여</Col>
  78. </Row>
  79. <Row>
  80. <Col id="codecolumn">2</Col>
  81. <Col id="datacolumn">비급여</Col>
  82. </Row>
  83. </Rows>
  84. </Dataset>
  85. </Combo>
  86. <Button id="btn_pid" taborder="15" onclick="grp_sea_btn_pid_onclick" position="absolute 188 38 201 51"/>
  87. </Layout>
  88. </Layouts>
  89. </Div>
  90. <Static id="caption10" text="차수관리" class="tit_2" position="absolute 0 734 90 755" anchor="left bottom"/>
  91. <Shape id="line2" class="line_10" position="absolute 0 750 1194 756" anchor="left right bottom"/>
  92. <Static id="caption31" text="등록번호" class="cell_1" position="absolute 0 755 90 778" anchor="left bottom"/>
  93. <Edit id="output25" taborder="4" readonly="true" class="output" position="absolute 92 757 172 776" anchor="left bottom" style="align:center middle;"/>
  94. <Edit id="output1" taborder="5" readonly="true" class="output" position="absolute 175 757 255 776" anchor="left bottom" style="align:center middle;"/>
  95. <Static id="caption11" text="회차" class="cell_1" position="absolute 259 755 349 778" anchor="left bottom"/>
  96. <Edit id="output2" taborder="6" readonly="true" class="output" position="absolute 351 757 411 776" anchor="left bottom" style="align:center middle;"/>
  97. <Static id="caption12" text="이식일자" class="cell_1" position="absolute 415 755 505 778" anchor="left bottom"/>
  98. <MaskEdit id="output3" taborder="7" readonly="true" type="string" mask="####-##-##" maskchar=" " trimtype="both" position="absolute 508 757 588 776" style="align:center middle;" align="align:center middle;" anchor="left bottom"/>
  99. <Static id="caption13" text="Total" class="cell_1" position="absolute 591 755 681 778" anchor="left bottom"/>
  100. <Static id="caption14" text="AUTO/ALLO" class="cell_1" position="absolute 747 755 837 778" anchor="left bottom"/>
  101. <Static id="caption15" text="이식종류" class="cell_1" position="absolute 903 755 993 778" anchor="left bottom"/>
  102. <Edit id="output4" taborder="8" readonly="true" class="output" position="absolute 995 757 1130 776" anchor="left bottom" style="align:center middle;"/>
  103. <Button id="button3" taborder="9" text="선택차수지우기" class="btn2" position="absolute 1097 731 1194 750" anchor="right bottom" onclick="button3_onclick"/>
  104. <Button id="button4" taborder="10" text="차수자동생성" class="btn2" position="absolute 1008 731 1094 750" anchor="right bottom" onclick="button4_onclick" tooltiptext="Total과 Auto/Allo 차수 생성"/>
  105. <Shape id="line127" class="line_3" position="absolute 0 777 1194 783" anchor="left right bottom"/>
  106. <Button id="btn_excsave" taborder="11" text="엑셀저장" class="btn7" position="absolute 1113 115 1193 135" anchor="top right" onclick="btn_excsave_onclick"/>
  107. <Grid id="grd_patlist" class="datagrid2" taborder="12" binddataset="ds_main_trnptdgmngt_trnptdglist" autoenter="select" useinputpanel="false" cellsizingtype="col" position="absolute 0 140 1194 725" anchor="all" oncellclick="grd_patlist_oncellclick">
  108. <Formats>
  109. <Format id="default">
  110. <Columns>
  111. <Column size="29"/>
  112. <Column size="52"/>
  113. <Column size="67"/>
  114. <Column size="71"/>
  115. <Column size="113"/>
  116. <Column size="74"/>
  117. <Column size="73"/>
  118. <Column size="50"/>
  119. <Column size="81"/>
  120. <Column size="150"/>
  121. <Column size="30"/>
  122. <Column size="60"/>
  123. <Column size="36"/>
  124. <Column size="39"/>
  125. <Column size="45"/>
  126. <Column size="65"/>
  127. <Column size="39"/>
  128. <Column size="45"/>
  129. <Column size="100"/>
  130. <Column size="100"/>
  131. <Column size="42"/>
  132. <Column size="42"/>
  133. <Column size="45"/>
  134. <Column size="89"/>
  135. <Column size="104"/>
  136. <Column size="103"/>
  137. <Column size="100"/>
  138. </Columns>
  139. <Rows>
  140. <Row size="36" band="head"/>
  141. <Row size="24"/>
  142. </Rows>
  143. <Band id="head">
  144. <Cell/>
  145. <Cell col="1" text="Total &#13;&#10;차수"/>
  146. <Cell col="2" text="AUTO 및 &#13;&#10;ALLO차수"/>
  147. <Cell col="3" text="Kind 차수"/>
  148. <Cell col="4" text="이식종류"/>
  149. <Cell col="5" text="Stem Cell&#13;&#10;Source"/>
  150. <Cell col="6" text="이식일"/>
  151. <Cell col="7" text="급여"/>
  152. <Cell col="8" text="환자명"/>
  153. <Cell col="9" text="진단명"/>
  154. <Cell col="10" text="이식&#13;&#10;차수"/>
  155. <Cell col="11" text="등록번호"/>
  156. <Cell col="12" text="성별"/>
  157. <Cell col="13" text="이식당&#13;&#10;시나이"/>
  158. <Cell col="14" text="혈액형"/>
  159. <Cell col="15" text="GVHD"/>
  160. <Cell col="16" text="생존&#13;&#10;여부"/>
  161. <Cell col="17" text="이식후&#13;&#10;생존일"/>
  162. <Cell col="18" text="사인"/>
  163. <Cell col="19" text="공여자명"/>
  164. <Cell col="20" text="공여자&#13;&#10;성별"/>
  165. <Cell col="21" text="공여자&#13;&#10;나이"/>
  166. <Cell col="22" text="공여자&#13;&#10;혈액형"/>
  167. <Cell col="23" text="공여자&#10;등록번호"/>
  168. <Cell col="24" text="UNIT"/>
  169. <Cell col="25" text="병실"/>
  170. <Cell col="26" text="진료과"/>
  171. </Band>
  172. <Band id="body">
  173. <Cell celltype="head" expr="currow+1"/>
  174. <Cell col="1" displaytype="text" edittype="text" style="align:center middle;" text="bind:totdg"/>
  175. <Cell col="2" displaytype="text" edittype="text" style="align:center middle;" text="bind:autoallodg"/>
  176. <Cell col="3" displaytype="text" edittype="text" style="align:center middle;" text="bind:allotrnptkinddg"/>
  177. <Cell col="4" displaytype="combo" style="align:center middle;" text="bind:trnptkind" combodataset="ds_init_cmbinfo_trnptkind_A0161" combocodecol="cdid" combodatacol="cdnm" enable="false"/>
  178. <Cell col="5" displaytype="combo" style="align:center middle;" text="bind:scs" combodataset="ds_init_cmbinfo_scs_A0162" combocodecol="hsctlrgcd" combodatacol="hsctlrgnm" enable="false"/>
  179. <Cell col="6" displaytype="date" text="bind:trnptdd" calendardisplaynulltype="nulltext"/>
  180. <Cell col="7" displaytype="combo" edittype="combo" text="bind:insukind" combodataset="ds_cmb_insukind" combocodecol="value" combodatacol="label"/>
  181. <Cell col="8" text="bind:hngnm"/>
  182. <Cell col="9" displaytype="combo" edittype="combo" style="align:center middle;" text="bind:diagcd1" combodataset="ds_init_cmbinfo_lrglist_item" combocodecol="hsctlrgcd" combodatacol="hsctlrgnm" combodisplayrowcount="20"/>
  183. <Cell col="10" text="bind:trnptdg"/>
  184. <Cell col="11" text="bind:pid"/>
  185. <Cell col="12" displaytype="combo" style="align:center middle;" text="bind:sex" combodataset="ds_init_cmbinfo_sex_P0313" combocodecol="cdid" combodatacol="cdnm" enable="false"/>
  186. <Cell col="13" text="bind:trnptage"/>
  187. <Cell col="14" displaytype="combo" style="align:center middle;" text="bind:pattrnptafbtype" combodataset="ds_init_cmbinfo_btype_M0376" combocodecol="cdid" combodatacol="cdnm" enable="false"/>
  188. <Cell col="15" text="bind:gvhd"/>
  189. <Cell col="16" text="bind:dethyn"/>
  190. <Cell col="17" text="bind:trnptbfdays"/>
  191. <Cell col="18" displaytype="combo" edittype="combo" style="align:center middle;" text="bind:dethresn" combodataset="ds_init_cmbinfo_dethresn_A0186" combocodecol="hsctmdlcd" combodatacol="hsctmdlnm" combodisplayrowcount="20"/>
  192. <Cell col="19" text="bind:dnornm"/>
  193. <Cell col="20" displaytype="combo" style="align:center middle;" text="bind:dnorsex" combodataset="ds_init_cmbinfo_sex_P0313" combocodecol="cdid" combodatacol="cdnm" enable="false"/>
  194. <Cell col="21" text="bind:dnorage"/>
  195. <Cell col="22" displaytype="combo" style="align:center middle;" text="bind:dnorbtype" combodataset="ds_init_cmbinfo_btype_M0376" combocodecol="cdid" combodatacol="cdnm" enable="false"/>
  196. <Cell col="23" text="bind:dnorpid"/>
  197. <Cell col="24" displaytype="combo" style="align:center middle;" text="bind:trnptwardcd" combodataset="ds_init_cmbinfo_trnptwardcd_A0479" combocodecol="hsctmdlcd" combodatacol="hsctmdlnm" enable="false"/>
  198. <Cell col="25" displaytype="combo" style="align:center middle;" text="bind:trnptroomcd" combodataset="ds_init_cmbinfo_trnptroomcd_A0480" combocodecol="hsctmdlcd" combodatacol="hsctmdlnm" enable="false"/>
  199. <Cell col="26" displaytype="combo" style="align:center middle;" text="bind:deptcd" combodataset="ds_init_cmbinfo_deptcd_A0478" combocodecol="cdid" combodatacol="cdnm" enable="false"/>
  200. </Band>
  201. </Format>
  202. </Formats>
  203. </Grid>
  204. <Button id="button1" taborder="13" text="Allo Kind 차수자동생성" class="btn2" position="absolute 864 731 1005 750" anchor="right bottom" onclick="button1_onclick" tooltiptext="Allo Kind 차수 생성"/>
  205. <Button id="button2" taborder="14" text="전체차수지우기" class="btn2" position="absolute 764 731 861 750" anchor="right bottom" onclick="button2_onclick"/>
  206. <Edit id="output7" taborder="15" readonly="true" class="output" position="absolute 683 757 743 776" anchor="left bottom" style="align:center middle;"/>
  207. <Edit id="output8" taborder="16" readonly="true" class="output" position="absolute 839 757 899 776" anchor="left bottom" style="align:center middle;"/>
  208. <Edit id="output9" taborder="17" readonly="true" class="output" position="absolute 1133 757 1193 776" anchor="left bottom" style="align:center middle;"/>
  209. </Layout>
  210. </Layouts>
  211. <Objects>
  212. <Dataset id="ds_send_data" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  213. <ColumnInfo>
  214. <Column id="trnptfromdd" type="STRING" size="256"/>
  215. <Column id="trnpttodd" type="STRING" size="256"/>
  216. <Column id="trnptkind" type="STRING" size="256"/>
  217. <Column id="scs" type="STRING" size="256"/>
  218. <Column id="diagcd1" type="STRING" size="256"/>
  219. <Column id="sex" type="STRING" size="256"/>
  220. <Column id="pattrnptafbtype" type="STRING" size="256"/>
  221. <Column id="insuaprvkind" type="STRING" size="256"/>
  222. <Column id="pid" type="STRING" size="256"/>
  223. <Column id="insukind" type="STRING" size="256"/>
  224. </ColumnInfo>
  225. <Rows>
  226. <Row>
  227. <Col id="trnptfromdd"/>
  228. <Col id="trnpttodd"/>
  229. <Col id="trnptkind"/>
  230. <Col id="scs"/>
  231. <Col id="diagcd1"/>
  232. <Col id="sex"/>
  233. <Col id="pattrnptafbtype"/>
  234. <Col id="insuaprvkind"/>
  235. <Col id="pid"/>
  236. <Col id="insukind"/>
  237. </Row>
  238. </Rows>
  239. </Dataset>
  240. <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  241. <ColumnInfo>
  242. <Column id="lrggrupcd" type="STRING" size="256"/>
  243. <Column id="hsctlrgcd" type="STRING" size="256"/>
  244. </ColumnInfo>
  245. <Rows>
  246. <Row>
  247. <Col id="lrggrupcd">DI</Col>
  248. </Row>
  249. </Rows>
  250. </Dataset>
  251. <Dataset id="ds_main_trnptdgmngt_trnptdglist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  252. <ColumnInfo>
  253. <Column id="totdg" type="INT" size="256" sumtext="Total차수"/>
  254. <Column id="autoallodg" type="INT" size="256" sumtext="Auto/Allo차수"/>
  255. <Column id="allotrnptkinddg" type="INT" size="256" sumtext="이식종류별차수"/>
  256. <Column id="trnptkind" type="STRING" size="256" sumtext="이식종류"/>
  257. <Column id="scs" type="STRING" size="256" sumtext="stemcellsource"/>
  258. <Column id="trnptdd" type="STRING" size="256" sumtext="이식일자"/>
  259. <Column id="insukind" type="STRING" size="256" sumtext="급여"/>
  260. <Column id="hngnm" type="STRING" size="256" sumtext="환자명"/>
  261. <Column id="diagcd1" type="STRING" size="256" sumtext="진단명"/>
  262. <Column id="trnptdg" type="INT" size="256" sumtext="이식차수"/>
  263. <Column id="pid" type="STRING" size="256" sumtext="등록번호"/>
  264. <Column id="sex" type="STRING" size="256" sumtext="성별"/>
  265. <Column id="trnptage" type="STRING" size="256" sumtext="이식당시나이"/>
  266. <Column id="pattrnptafbtype" type="STRING" size="256" sumtext="혈액형"/>
  267. <Column id="gvhd" type="STRING" size="256" sumtext="gvhd"/>
  268. <Column id="dethyn" type="STRING" size="256" sumtext="사망여부"/>
  269. <Column id="trnptbfdays" type="STRING" size="256" sumtext="이식후생존일"/>
  270. <Column id="dethresn" type="STRING" size="256" sumtext="사망사인"/>
  271. <Column id="dnornm" type="STRING" size="256" sumtext="공여자명"/>
  272. <Column id="dnorsex" type="STRING" size="256" sumtext="공여자성별"/>
  273. <Column id="dnorage" type="STRING" size="256" sumtext="공여자나이"/>
  274. <Column id="dnorbtype" type="STRING" size="256" sumtext="공여자혈액형"/>
  275. <Column id="dnorpid" type="STRING" size="256" sumtext="공여자등록번호"/>
  276. <Column id="trnptwardcd" type="STRING" size="256" sumtext="병동"/>
  277. <Column id="trnptroomcd" type="STRING" size="256" sumtext="병실"/>
  278. <Column id="deptcd" type="STRING" size="256" sumtext="진료과"/>
  279. </ColumnInfo>
  280. </Dataset>
  281. <Dataset id="ds_temp_trnptdg" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  282. <ColumnInfo>
  283. <Column id="pid" type="STRING" size="256"/>
  284. <Column id="hngnm" type="STRING" size="256"/>
  285. <Column id="trnptdg" type="STRING" size="256"/>
  286. <Column id="totdg" type="STRING" size="256"/>
  287. <Column id="autoallodg" type="STRING" size="256"/>
  288. <Column id="allotrnptkinddg" type="STRING" size="256"/>
  289. <Column id="trnptkind" type="STRING" size="256"/>
  290. <Column id="trnptdd" type="STRING" size="256"/>
  291. <Column id="selectrow" type="STRING" size="256"/>
  292. </ColumnInfo>
  293. <Rows>
  294. <Row>
  295. <Col id="pid"/>
  296. <Col id="hngnm"/>
  297. <Col id="trnptdg"/>
  298. <Col id="totdg"/>
  299. <Col id="autoallodg"/>
  300. <Col id="allotrnptkinddg"/>
  301. <Col id="trnptkind"/>
  302. <Col id="trnptdd"/>
  303. <Col id="selectrow"/>
  304. </Row>
  305. </Rows>
  306. </Dataset>
  307. <Dataset id="ds_main_hsctinfo_patinfolist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  308. <ColumnInfo>
  309. <Column id="pid" type="STRING" size="256" sumtext="등록번호"/>
  310. <Column id="hngnm" type="STRING" size="256" sumtext="환자명"/>
  311. <Column id="sex" type="STRING" size="256" sumtext="성별"/>
  312. <Column id="age" type="STRING" size="256" sumtext="나이"/>
  313. <Column id="rrgstno1" type="STRING" size="256" sumtext="주민번호상위"/>
  314. <Column id="rrgstno2" type="STRING" size="256" sumtext="주민번호하위"/>
  315. <Column id="srchreqdg" type="STRING" size="256" sumtext="검색차수"/>
  316. <Column id="cibmtrid" type="STRING" size="256" sumtext="cibmtrid"/>
  317. <Column id="resrchyn" type="STRING" size="256" sumtext="research여부"/>
  318. <Column id="lostfudd" type="STRING" size="256" sumtext="lost F/U 일자"/>
  319. <Column id="dethdd" type="STRING" size="256" sumtext="사망일"/>
  320. <Column id="dethresn" type="STRING" size="256" sumtext="사인"/>
  321. <Column id="dethyn" type="STRING" size="256" sumtext="사망여부"/>
  322. <Column id="dethrgstyn" type="STRING" size="256" sumtext="사망정보기등록여부"/>
  323. </ColumnInfo>
  324. <Rows>
  325. <Row>
  326. <Col id="hngnm"/>
  327. <Col id="rrgstno1"/>
  328. <Col id="age"/>
  329. <Col id="sex"/>
  330. <Col id="pid"/>
  331. <Col id="rrgstno2"/>
  332. </Row>
  333. </Rows>
  334. </Dataset>
  335. <Dataset id="ds_init_cmbinfo_sex_P0313" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  336. <ColumnInfo>
  337. <Column id="cdid" type="STRING" size="256"/>
  338. <Column id="cdnm" type="STRING" size="256"/>
  339. </ColumnInfo>
  340. </Dataset>
  341. <Dataset id="ds_init_cmbinfo_btype_M0376" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  342. <ColumnInfo>
  343. <Column id="cdnm" type="STRING" size="256"/>
  344. <Column id="cdid" type="STRING" size="256"/>
  345. </ColumnInfo>
  346. </Dataset>
  347. <Dataset id="ds_init_cmbinfo_trnptkind_A0161" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  348. <ColumnInfo>
  349. <Column id="hsctlrgnm" type="STRING" size="256"/>
  350. <Column id="hsctlrgcd" type="STRING" size="256"/>
  351. </ColumnInfo>
  352. </Dataset>
  353. <Dataset id="ds_init_cmbinfo_lrglist_item" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  354. <ColumnInfo>
  355. <Column id="hsctlrgnm" type="STRING" size="256"/>
  356. <Column id="hsctlrgcd" type="STRING" size="256"/>
  357. </ColumnInfo>
  358. </Dataset>
  359. <Dataset id="ds_init_cmbinfo_scs_A0162" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  360. <ColumnInfo>
  361. <Column id="hsctmdlnm" type="STRING" size="256"/>
  362. <Column id="hsctmdlcd" type="STRING" size="256"/>
  363. </ColumnInfo>
  364. </Dataset>
  365. <Dataset id="ds_cmb_insukind" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  366. <ColumnInfo>
  367. <Column id="label" type="STRING" size="256"/>
  368. <Column id="value" type="STRING" size="256"/>
  369. </ColumnInfo>
  370. <Rows>
  371. <Row/>
  372. <Row>
  373. <Col id="label">급여</Col>
  374. <Col id="value">1</Col>
  375. </Row>
  376. <Row>
  377. <Col id="label">비급여</Col>
  378. <Col id="value">2</Col>
  379. </Row>
  380. </Rows>
  381. </Dataset>
  382. <Dataset id="ds_init_cmbinfo_dethresn_A0186" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  383. <ColumnInfo>
  384. <Column id="hsctmdlcd" type="STRING" size="256"/>
  385. <Column id="hsctmdlnm" type="STRING" size="256"/>
  386. </ColumnInfo>
  387. </Dataset>
  388. <Dataset id="ds_init_cmbinfo_trnptwardcd_A0479" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  389. <ColumnInfo>
  390. <Column id="hsctmdlnm" type="STRING" size="256"/>
  391. <Column id="hsctmdlcd" type="STRING" size="256"/>
  392. </ColumnInfo>
  393. </Dataset>
  394. <Dataset id="ds_init_cmbinfo_trnptroomcd_A0480" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  395. <ColumnInfo>
  396. <Column id="hsctmdlcd" type="STRING" size="256"/>
  397. <Column id="hsctmdlnm" type="STRING" size="256"/>
  398. </ColumnInfo>
  399. </Dataset>
  400. <Dataset id="ds_init_cmbinfo_deptcd_A0478" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  401. <ColumnInfo>
  402. <Column id="hsctlrgcd" type="STRING" size="256"/>
  403. <Column id="hsctlrgnm" type="STRING" size="256"/>
  404. </ColumnInfo>
  405. </Dataset>
  406. <Dataset id="ds_send_temp" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  407. <Dataset id="ds_temp_paminfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  408. <Dataset id="ds_temp_bmtpatientinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  409. <Dataset id="ds_main" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  410. </Objects>
  411. <Bind>
  412. <BindItem id="item0" compid="grp_sea.ipt_trnptfromdd" propid="value" datasetid="ds_send_data" columnid="trnptfromdd"/>
  413. <BindItem id="item1" compid="grp_sea.ipt_trnpttodd" propid="value" datasetid="ds_send_data" columnid="trnpttodd"/>
  414. <BindItem id="item2" compid="grp_sea.combo1" propid="value" datasetid="ds_send_data" columnid="insuaprvkind"/>
  415. <BindItem id="item3" compid="grp_sea.combo2" propid="value" datasetid="ds_send_data" columnid="diagcd1"/>
  416. <BindItem id="item4" compid="grp_sea.combo5" propid="value" datasetid="ds_send_data" columnid="scs"/>
  417. <BindItem id="item5" compid="grp_sea.ipt_pid" propid="value" datasetid="ds_send_data" columnid="pid"/>
  418. <BindItem id="item6" compid="grp_sea.output17" propid="value" datasetid="ds_main_hsctinfo_patinfolist" columnid="hngnm"/>
  419. <BindItem id="item7" compid="grp_sea.output5" propid="value" datasetid="ds_main_hsctinfo_patinfolist" columnid="age"/>
  420. <BindItem id="item8" compid="grp_sea.output6" propid="value" datasetid="ds_main_hsctinfo_patinfolist" columnid="sex"/>
  421. <BindItem id="item9" compid="grp_sea.combo3" propid="value" datasetid="ds_send_data" columnid="trnptkind"/>
  422. <BindItem id="item10" compid="grp_sea.combo4" propid="value" datasetid="ds_send_data" columnid="pattrnptafbtype"/>
  423. <BindItem id="item11" compid="grp_sea.combo6" propid="value" datasetid="ds_send_data" columnid="sex"/>
  424. <BindItem id="item12" compid="grp_sea.combo7" propid="value" datasetid="ds_send_data" columnid=""/>
  425. <BindItem id="item13" compid="output25" propid="value" datasetid="ds_temp_trnptdg" columnid="pid"/>
  426. <BindItem id="item14" compid="output1" propid="value" datasetid="ds_temp_trnptdg" columnid="hngnm"/>
  427. <BindItem id="item15" compid="output2" propid="value" datasetid="ds_temp_trnptdg" columnid="trnptdg"/>
  428. <BindItem id="item16" compid="output3" propid="value" datasetid="ds_temp_trnptdg" columnid="trnptdd"/>
  429. <BindItem id="item17" compid="output7" propid="value" datasetid="ds_temp_trnptdg" columnid="totdg"/>
  430. <BindItem id="item18" compid="output8" propid="value" datasetid="ds_temp_trnptdg" columnid="autoallodg"/>
  431. <BindItem id="item19" compid="output4" propid="value" datasetid="ds_temp_trnptdg" columnid="trnptkind"/>
  432. <BindItem id="item20" compid="output9" propid="value" datasetid="ds_temp_trnptdg" columnid="allotrnptkinddg"/>
  433. </Bind>
  434. <Script type="xscript4.0"><![CDATA[/***************************************************************************************
  435. * System Name :
  436. * Job Name :
  437. * Creator :
  438. * Make Date : 2015-11-13
  439. * Description :
  440. *---------------------------------------------------------------------------------------
  441. * Modify Date Modifier Modify Description
  442. *---------------------------------------------------------------------------------------
  443. * 2015-11-13 Live Converter TF->XP
  444. *
  445. *---------------------------------------------------------------------------------------
  446. ****************************************************************************************/
  447. include "com_commonxp::comm_main.xjs";
  448. include "ast_hsctxp::bmtcommon.xjs";
  449. function SMABO01500_oninit(obj:Form, e:InitEventInfo)
  450. {
  451. frmf_initForm(obj);
  452. }
  453. function SMABO01500_onload(obj:Form, e:LoadEventInfo)
  454. {
  455. grdf_initGrid(grd_patlist);
  456. var arrParam = [{dsNm: "ds_init_cmbinfo_btype_M0376", cdGrpId: "M0376"}
  457. ,{dsNm: "ds_init_cmbinfo_sex_P0313", cdGrpId: "P0313"}]
  458. appf_getCodeList(arrParam);
  459. var arrParam = [{dsNm: "ds_init_cmbinfo_trnptkind_A0161", cdGrpId: "A0161"}
  460. ,{dsNm: "ds_init_cmbinfo_scs_A0162", cdGrpId: "A0162"}
  461. ,{dsNm: "ds_init_cmbinfo_trnptwardcd_A0479", cdGrpId: "A0479"}
  462. ,{dsNm: "ds_init_cmbinfo_trnptroomcd_A0480", cdGrpId: "A0480"}
  463. ,{dsNm: "ds_init_cmbinfo_deptcd_A0478", cdGrpId: "A0478"}
  464. ,{dsNm: "ds_init_cmbinfo_dethresn_A0186", cdGrpId: "A0186"}];
  465. aboGetCodeList(arrParam);
  466. ds_init_cmbinfo_trnptkind_A0161.updateColID("hsctmdlnm", "cdnm");
  467. ds_init_cmbinfo_trnptkind_A0161.updateColID("hsctmdlcd", "cdid");
  468. abofGetBmtDIagLrgList();
  469. abofSetTrnptKindCdAuto();
  470. ds_init_cmbinfo_trnptkind_A0161.insertRow(0);
  471. ds_init_cmbinfo_lrglist_item.insertRow(0);
  472. ds_init_cmbinfo_scs_A0162.insertRow(0);
  473. ds_init_cmbinfo_btype_M0376.insertRow(0);
  474. ds_init_cmbinfo_sex_P0313.insertRow(0);
  475. ds_init_cmbinfo_dethresn_A0186.insertRow(0);
  476. var strnptfromdd = String(utlf_getCurrentDate()).substr(0,6).toDate().getAddDate(1,"D").getDateFormat("YYYYMMDD");
  477. ds_send_data.setColumn(0, "trnptfromdd", strnptfromdd);
  478. var strnpttodd = String(utlf_getCurrentDate()).substr(0,6) + strnptfromdd.toDate().getMonthDay();
  479. ds_send_data.setColumn(0, "trnpttodd", strnpttodd);
  480. if ( frmf_checkOpener())
  481. {
  482. var param = opener.frmf_getParameter("opener_parameter_id");
  483. if(!utlf_isNull(param))
  484. {
  485. condarray = param.split("▦");
  486. ds_send_data.setColumn(0, "pid", condarray[0]);
  487. return;
  488. }
  489. }
  490. var paminfo = sysf_getGlobalVariable("paminfo");
  491. if (!utlf_isNull(paminfo))
  492. {
  493. ds_temp_paminfo.clearData();
  494. dsf_setCSVToDs("ds_temp_paminfo", paminfo);
  495. var pid = ds_temp_paminfo.getColumn(0, "pid");
  496. ds_send_data.setColumn(0, "pid", pid)
  497. }
  498. else
  499. {
  500. var gv_pid = sysf_getGlobalVariable("gv_pid", "A");
  501. if(!utlf_isNull(gv_pid))
  502. {
  503. ds_send_data.setColumn(0, "pid", gv_pid);
  504. }
  505. }
  506. btn_save.enable = frmf_checkAuth("X");
  507. }
  508. function grp_sea_ipt_pid_onkeyup(obj:Edit, e:KeyEventInfo)
  509. {
  510. if(e.keycode == 13)
  511. {
  512. obj.updateToDataset();
  513. grp_sea.btn_sea.click();
  514. }
  515. }
  516. function grp_sea_btn_pid_onclick(obj:Button, e:ClickEventInfo)
  517. {
  518. abofGetBmtPatientSearch("ds_main_hsctinfo_patinfolist", "ds_temp_bmtpatientinfo");
  519. ds_send_data.setColumn(0, "pid", ds_temp_bmtpatientinfo.getColumn(0, "pid"));
  520. var oParam = {};
  521. oParam.id = "TRABO00001";
  522. oParam.service = "hsctcoordinatorapp.HsctPatient";
  523. oParam.method = "reqGetPatientBaseInfo";
  524. oParam.inds = "req=ds_send_data";
  525. oParam.outds = "ds_main_hsctinfo_patinfolist=patinfolist";
  526. oParam.async = false;
  527. //oParam.callback = "cf_TRABO00001";
  528. tranf_submit(oParam);
  529. dsf_setDefaultVal(ds_main_hsctinfo_patinfolist, "dethyn:N");
  530. fGetTrnptDgMngtList();
  531. }
  532. function fGetTrnptDgMngtList()
  533. {
  534. var oParam = {};
  535. oParam.id = "TRABO01501";
  536. oParam.service = "hsctcoordinatorapp.HsctPatient";
  537. oParam.method = "reqGetTrnptDgMngt";
  538. oParam.inds = "req=ds_send_data";
  539. oParam.outds = "ds_main_trnptdgmngt_trnptdglist=trnptdglist";
  540. oParam.async = false;
  541. //oParam.callback = "cf_TRABO01501";
  542. tranf_submit(oParam);
  543. }
  544. function grp_sea_btn_sea_onclick(obj:Button, e:ClickEventInfo)
  545. {
  546. var oParam = {};
  547. oParam.id = "TRABO00001";
  548. oParam.service = "hsctcoordinatorapp.HsctPatient";
  549. oParam.method = "reqGetPatientBaseInfo";
  550. oParam.inds = "req=ds_send_data";
  551. oParam.outds = "ds_main_hsctinfo_patinfolist=patinfolist";
  552. oParam.async = false;
  553. //oParam.callback = "cf_TRABO00001";
  554. tranf_submit(oParam);
  555. fGetTrnptDgMngtList();
  556. }
  557. function grd_patlist_oncellclick(obj:Grid, e:GridClickEventInfo)
  558. {
  559. ds_temp_trnptdg.setColumn(0, "pid", ds_main_trnptdgmngt_trnptdglist.getColumn(e.row, "pid"));
  560. ds_temp_trnptdg.setColumn(0, "hngnm", ds_main_trnptdgmngt_trnptdglist.getColumn(e.row, "hngnm"));
  561. ds_temp_trnptdg.setColumn(0, "trnptdg", ds_main_trnptdgmngt_trnptdglist.getColumn(e.row, "trnptdg"));
  562. ds_temp_trnptdg.setColumn(0, "totdg", ds_main_trnptdgmngt_trnptdglist.getColumn(e.row, "totdg"));
  563. ds_temp_trnptdg.setColumn(0, "autoallodg", ds_main_trnptdgmngt_trnptdglist.getColumn(e.row, "autoallodg"));
  564. ds_temp_trnptdg.setColumn(0, "trnptdd", ds_main_trnptdgmngt_trnptdglist.getColumn(e.row, "trnptdd"));
  565. ds_temp_trnptdg.setColumn(0, "selectrow", ds_main_trnptdgmngt_trnptdglist.rowposition);
  566. ds_temp_trnptdg.setColumn(0, "trnptkind", ds_init_cmbinfo_trnptkind_A0161.lookup("cdid", ds_main_trnptdgmngt_trnptdglist.getColumn(ds_main_trnptdgmngt_trnptdglist.rowposition, "trnptkind"), "cdnm"));
  567. ds_temp_trnptdg.setColumn(0, "allotrnptkinddg", ds_main_trnptdgmngt_trnptdglist.getColumn(e.row, "allotrnptkinddg"));
  568. }
  569. function fSetTrnptDgClear(paramFlag)
  570. {
  571. if ( paramFlag == "S")
  572. {
  573. ds_main_trnptdgmngt_trnptdglist.setColumn(ds_main_trnptdgmngt_trnptdglist.rowposition, "totdg", "");
  574. ds_main_trnptdgmngt_trnptdglist.setColumn(ds_main_trnptdgmngt_trnptdglist.rowposition, "autoallodg", "");
  575. ds_main_trnptdgmngt_trnptdglist.setColumn(ds_main_trnptdgmngt_trnptdglist.rowposition, "allotrnptkinddg", "");
  576. ds_temp_trnptdg.setColumn(0, "totdg", "");
  577. ds_temp_trnptdg.setColumn(0, "autoallodg", "");
  578. ds_temp_trnptdg.setColumn(0, "allotrnptkinddg", "");
  579. }
  580. else if ( paramFlag == "A" )
  581. {
  582. for(var i = 0; i < ds_main_trnptdgmngt_trnptdglist.rowcount; i++)
  583. {
  584. ds_main_trnptdgmngt_trnptdglist.setColumn(i, "totdg", "");
  585. ds_main_trnptdgmngt_trnptdglist.setColumn(i, "autoallodg", "");
  586. ds_main_trnptdgmngt_trnptdglist.setColumn(i, "allotrnptkinddg", "");
  587. }
  588. }
  589. }
  590. function button2_onclick(obj:Button, e:ClickEventInfo)
  591. {
  592. if ( sysf_messageBox("전체 환자의 Total, Auto/Allo, Allo Kind 차수정보를 지웁니다.", "Q004") == 6 )
  593. {
  594. fSetTrnptDgClear("A");
  595. }
  596. }
  597. function button1_onclick(obj:Button, e:ClickEventInfo)
  598. {
  599. if ( sysf_messageBox("Allo 이식종류별 차수를 생성합니다.", "Q004") == 6 )
  600. {
  601. fCalcTrnptDgAlloAuto();
  602. }
  603. }
  604. function fCalcTrnptDgAlloAuto()
  605. {
  606. var SiblingStandarddg = 0 , SiblingStandarddgrow = 0 ;
  607. var SiblingNSTdg = 0, SiblingNSTdgrow = 0;
  608. var FMMStandarddg = 0, FMMStandarddgrow = 0;
  609. var FMMNSTdg = 0, FMMNSTdgrow = 0;
  610. var FMStandarddg = 0, FMStandarddgrow = 0;
  611. var FMNSTdg = 0, FMNSTdgrow = 0;
  612. var UnrelatedStandarddg = 0, UnrelatedStandarddgrow = 0;
  613. var UnrealtedNSTdg = 0, UnrealtedNSTdgrow = 0;
  614. var CordStandarddg = 0, CordStandarddgrow = 0;
  615. var CordNSTdg = 0, CordNSTdgrow = 0;
  616. for (var i = 0; i < ds_main_trnptdgmngt_trnptdglist.rowcount; i++)
  617. {
  618. if (SiblingStandarddg == 0 && ds_main_trnptdgmngt_trnptdglist.getColumn(i, "trnptkind") == "01")
  619. {
  620. if(utlf_isNull(ds_main_trnptdgmngt_trnptdglist.getColumn(i, "allotrnptkinddg")))
  621. {
  622. sysf_messageBox("Sibling Standard 차수 생성을 위한 시작차수번호를 " + parseInt(i+1) + "번째 행에", "C001");
  623. ds_main_trnptdgmngt_trnptdglist.rowposition = i;
  624. grd_patlist.setFocus();
  625. return false;
  626. }
  627. SiblingStandarddg = parseInt(ds_main_trnptdgmngt_trnptdglist.getColumn(i, "allotrnptkinddg"));
  628. SiblingStandarddgrow = i;
  629. }
  630. if (SiblingNSTdg == 0 && ds_main_trnptdgmngt_trnptdglist.getColumn(i, "trnptkind") == "02")
  631. {
  632. if(utlf_isNull(ds_main_trnptdgmngt_trnptdglist.getColumn(i, "allotrnptkinddg")))
  633. {
  634. sysf_messageBox("Sibling NST 차수 생성을 위한 시작차수번호를 " + parseInt(i+1) + "번째 행에", "C002");
  635. ds_main_trnptdgmngt_trnptdglist.rowposition = i;
  636. grd_patlist.setFocus();
  637. return false;
  638. }
  639. SiblingNSTdg = parseInt(ds_main_trnptdgmngt_trnptdglist.getColumn(i, "allotrnptkinddg"));
  640. SiblingNSTdgrow = i;
  641. }
  642. if (FMMStandarddg == 0 && ds_main_trnptdgmngt_trnptdglist.getColumn(i, "trnptkind") == "03")
  643. {
  644. if (utlf_isNull(ds_main_trnptdgmngt_trnptdglist.getColumn(i, "allotrnptkinddg")))
  645. {
  646. sysf_messageBox("FMM Standard 차수 생성을 위한 시작차수번호를 " + parseInt(i+1) + "번째 행에", "C002");
  647. ds_main_trnptdgmngt_trnptdglist.rowposition = i;
  648. grd_patlist.setFocus();
  649. return false;
  650. }
  651. FMMStandarddg = parseInt(ds_main_trnptdgmngt_trnptdglist.getColumn(i, "allotrnptkinddg"));
  652. FMMStandarddgrow = i;
  653. }
  654. if (FMMNSTdg == 0 && ds_main_trnptdgmngt_trnptdglist.getColumn(i, "trnptkind") == "04")
  655. {
  656. if(utlf_isNull(ds_main_trnptdgmngt_trnptdglist.getColumn(i, "allotrnptkinddg")))
  657. {
  658. sysf_messageBox("FMM NST 차수 생성을 위한 시작차수번호를 " + parseInt(i+1) + "번째 행에", "C002");
  659. ds_main_trnptdgmngt_trnptdglist.rowposition = i;
  660. grd_patlist.setFocus();
  661. return false;
  662. }
  663. FMMNSTdg = parseInt(ds_main_trnptdgmngt_trnptdglist.getColumn(i, "allotrnptkinddg"));
  664. FMMNSTdgrow = i;
  665. }
  666. if (FMStandarddg == 0 && ds_main_trnptdgmngt_trnptdglist.getColumn(i, "trnptkind") == "05")
  667. {
  668. if(utlf_isNull(ds_main_trnptdgmngt_trnptdglist.getColumn(i, "allotrnptkinddg")))
  669. {
  670. sysf_messageBox("FM Standard 차수 생성을 위한 시작차수번호를 " + parseInt(i+1) + "번째 행에", "C002");
  671. ds_main_trnptdgmngt_trnptdglist.rowposition = i;
  672. grd_patlist.setFocus();
  673. return false;
  674. }
  675. FMStandarddg = parseInt(ds_main_trnptdgmngt_trnptdglist.getColumn(i, "allotrnptkinddg"));
  676. FMStandarddgrow = i;
  677. }
  678. if (FMNSTdg == 0 && ds_main_trnptdgmngt_trnptdglist.getColumn(i, "trnptkind") == "06")
  679. {
  680. if(utlf_isNull(ds_main_trnptdgmngt_trnptdglist.getColumn(i, "allotrnptkinddg")))
  681. {
  682. sysf_messageBox("FM NST 차수 생성을 위한 시작차수번호를 " + parseInt(i+1) + "번째 행에", "C002");
  683. ds_main_trnptdgmngt_trnptdglist.rowposition = i;
  684. grd_patlist.setFocus();
  685. return false;
  686. }
  687. FMNSTdg = parseInt(ds_main_trnptdgmngt_trnptdglist.getColumn(i, "allotrnptkinddg"));
  688. FMNSTdgrow = i;
  689. }
  690. if (UnrelatedStandarddg == 0 && ds_main_trnptdgmngt_trnptdglist.getColumn(i, "trnptkind") == "07")
  691. {
  692. if(utlf_isNull(ds_main_trnptdgmngt_trnptdglist.getColumn(i, "allotrnptkinddg")))
  693. {
  694. sysf_messageBox("Unrelated Standard 차수 생성을 위한 시작차수번호를 " + parseInt(i+1) + "번째 행에", "C002");
  695. ds_main_trnptdgmngt_trnptdglist.rowposition = i;
  696. grd_patlist.setFocus();
  697. return false;
  698. }
  699. UnrelatedStandarddg = parseInt(ds_main_trnptdgmngt_trnptdglist.getColumn(i, "allotrnptkinddg"));
  700. UnrelatedStandarddgrow = i;
  701. }
  702. if (UnrealtedNSTdg == 0 && ds_main_trnptdgmngt_trnptdglist.getColumn(i, "trnptkind") == "08")
  703. {
  704. if(utlf_isNull(ds_main_trnptdgmngt_trnptdglist.getColumn(i, "allotrnptkinddg")))
  705. {
  706. sysf_messageBox("Unrealted NST 차수 생성을 위한 시작차수번호를 " + parseInt(i+1) + "번째 행에", "C002");
  707. ds_main_trnptdgmngt_trnptdglist.rowposition = i;
  708. grd_patlist.setFocus();
  709. return false;
  710. }
  711. UnrealtedNSTdg = parseInt(ds_main_trnptdgmngt_trnptdglist.getColumn(i, "allotrnptkinddg"));
  712. UnrealtedNSTdgrow = i;
  713. }
  714. if (CordStandarddg == 0 && ds_main_trnptdgmngt_trnptdglist.getColumn(i, "trnptkind") == "09")
  715. {
  716. if(utlf_isNull(ds_main_trnptdgmngt_trnptdglist.getColumn(i, "allotrnptkinddg")))
  717. {
  718. sysf_messageBox("Cord Standard 차수 생성을 위한 시작차수번호를 " + parseInt(i+1) + "번째 행에", "C002");
  719. ds_main_trnptdgmngt_trnptdglist.rowposition = i;
  720. grd_patlist.setFocus();
  721. return false;
  722. }
  723. CordStandarddg = parseInt(ds_main_trnptdgmngt_trnptdglist.getColumn(i, "allotrnptkinddg"));
  724. CordStandarddgrow = i;
  725. }
  726. if (CordNSTdg == 0 && ds_main_trnptdgmngt_trnptdglist.getColumn(i, "trnptkind") == "10")
  727. {
  728. if(utlf_isNull(ds_main_trnptdgmngt_trnptdglist.getColumn(i, "allotrnptkinddg")))
  729. {
  730. sysf_messageBox("Cord NST차수 생성을 위한 시작차수번호를 " + parseInt(i+1) + "번째 행에", "C002");
  731. ds_main_trnptdgmngt_trnptdglist.rowposition = i;
  732. grd_patlist.setFocus();
  733. return false;
  734. }
  735. CordNSTdg = parseInt(ds_main_trnptdgmngt_trnptdglist.getColumn(i, "allotrnptkinddg"));
  736. CordNSTdgrow = i;
  737. }
  738. }
  739. for (var i = 0; i < ds_main_trnptdgmngt_trnptdglist.rowcount; i++)
  740. {
  741. if(ds_main_trnptdgmngt_trnptdglist.getColumn(i, "trnptkind") == "01")
  742. {
  743. ds_main_trnptdgmngt_trnptdglist.setColumn(i, "allotrnptkinddg", SiblingStandarddg);
  744. SiblingStandarddg = SiblingStandarddg + 1;
  745. }
  746. if(ds_main_trnptdgmngt_trnptdglist.getColumn(i, "trnptkind") == "02")
  747. {
  748. ds_main_trnptdgmngt_trnptdglist.setColumn(i, "allotrnptkinddg", SiblingNSTdg);
  749. SiblingNSTdg = SiblingNSTdg + 1;
  750. }
  751. if(ds_main_trnptdgmngt_trnptdglist.getColumn(i, "trnptkind") == "03")
  752. {
  753. ds_main_trnptdgmngt_trnptdglist.setColumn(i, "allotrnptkinddg", FMMStandarddg);
  754. FMMStandarddg = FMMStandarddg + 1;
  755. }
  756. if(ds_main_trnptdgmngt_trnptdglist.getColumn(i, "trnptkind") == "04")
  757. {
  758. ds_main_trnptdgmngt_trnptdglist.setColumn(i, "allotrnptkinddg", FMMNSTdg);
  759. FMMNSTdg = FMMNSTdg + 1;
  760. }
  761. if(ds_main_trnptdgmngt_trnptdglist.getColumn(i, "trnptkind") == "05")
  762. {
  763. ds_main_trnptdgmngt_trnptdglist.setColumn(i, "allotrnptkinddg", FMStandarddg);
  764. FMStandarddg = FMStandarddg + 1;
  765. }
  766. if(ds_main_trnptdgmngt_trnptdglist.getColumn(i, "trnptkind") == "06")
  767. {
  768. ds_main_trnptdgmngt_trnptdglist.setColumn(i, "allotrnptkinddg", FMNSTdg);
  769. FMNSTdg = FMNSTdg + 1;
  770. }
  771. if(ds_main_trnptdgmngt_trnptdglist.getColumn(i, "trnptkind") == "07")
  772. {
  773. ds_main_trnptdgmngt_trnptdglist.setColumn(i, "allotrnptkinddg", UnrelatedStandarddg);
  774. UnrelatedStandarddg = UnrelatedStandarddg + 1;
  775. }
  776. if(ds_main_trnptdgmngt_trnptdglist.getColumn(i, "trnptkind") == "08")
  777. {
  778. ds_main_trnptdgmngt_trnptdglist.setColumn(i, "allotrnptkinddg", UnrealtedNSTdg);
  779. UnrealtedNSTdg = UnrealtedNSTdg + 1;
  780. }
  781. if(ds_main_trnptdgmngt_trnptdglist.getColumn(i, "trnptkind") == "09")
  782. {
  783. ds_main_trnptdgmngt_trnptdglist.setColumn(i, "allotrnptkinddg", CordStandarddg);
  784. CordStandarddg = CordStandarddg + 1;
  785. }
  786. if(ds_main_trnptdgmngt_trnptdglist.getColumn(i, "trnptkind") == "10")
  787. {
  788. ds_main_trnptdgmngt_trnptdglist.setColumn(i, "allotrnptkinddg", CordNSTdg);
  789. CordNSTdg = CordNSTdg + 1;
  790. }
  791. }
  792. }
  793. function btn_excsave_onclick(obj:Button, e:ClickEventInfo)
  794. {
  795. grdf_exportExcel(grd_patlist, "차수관리", "see");
  796. }
  797. function btn_prt_onclick(obj:Button, e:ClickEventInfo)
  798. {
  799. var objDOM = rptf_createDOM();
  800. var objParam = new Object();
  801. rptf_setNodeListToDOM(objDOM, "/root/main/trnptdgmngt/trnptdglist" , ds_main_trnptdgmngt_trnptdglist);
  802. objParam.xml_data_XML1 = objDOM.documentElement.source;
  803. var option = "";
  804. rptf_exeReportPreview30(["RPABO01501"],[objParam], option);
  805. }
  806. function btn_save_onclick(obj:Button, e:ClickEventInfo)
  807. {
  808. fSetTrnptKindDg();
  809. fGetTrnptDgMngtList();
  810. }
  811. function fSetTrnptKindDg()
  812. {
  813. if(fDataCheck())
  814. {
  815. dsf_setTypeFormat(ds_main_trnptdgmngt_trnptdglist, "totdg:INT^autoallodg:INT^allotrnptkinddg:INT^trnptdg:INT");
  816. var oParam = {};
  817. oParam.id = "TXABO01501";
  818. oParam.service = "hsctcoordinatorapp.HsctPatient";
  819. oParam.method = "reqSetTrnptDgMngt";
  820. oParam.inds = "req=ds_main_trnptdgmngt_trnptdglist";
  821. oParam.outds = "ds_=item";
  822. oParam.async = false;
  823. //oParam.callback = "cf_TXABO01501";
  824. tranf_submit(oParam);
  825. }
  826. }
  827. function fDataCheck()
  828. {
  829. var nodelist = ds_main_trnptdgmngt_trnptdglist.rowcount;
  830. for(var i = 0; i < nodelist; i++)
  831. {
  832. for(var j = 0; j < nodelist; j++)
  833. {
  834. if (i != j && ds_main_trnptdgmngt_trnptdglist.getColumn(i, "totdg") == ds_main_trnptdgmngt_trnptdglist.getColumn(j, "totdg") && !utlf_isNull(ds_main_trnptdgmngt_trnptdglist.getColumn(j, "totdg")))
  835. {
  836. sysf_messageBox("Total 차수의 값이" + parseInt(i+1) + "번째 행과 " + parseInt(j+1) + "번째 행이 같습니다. 다시", "C002");
  837. return false;
  838. }
  839. }
  840. }
  841. return true;
  842. }
  843. function button3_onclick(obj:Button, e:ClickEventInfo)
  844. {
  845. if ( sysf_messageBox(ds_main_trnptdgmngt_trnptdglist.getColumn(ds_main_trnptdgmngt_trnptdglist.rowposition, "hngnm")+ " 환자의 Total, Auto/Allo, Allo Kind 차수정보를 지웁니다.", "Q004") == 6 )
  846. {
  847. fSetTrnptDgClear("S");
  848. }
  849. }
  850. function button4_onclick(obj:Button, e:ClickEventInfo)
  851. {
  852. if ( sysf_messageBox("Total 차수와 Auto/Allo 차수를 생성합니다.", "Q004") == 6 )
  853. {
  854. fCalcTrnptDgAuto();
  855. }
  856. }
  857. function fCalcTrnptDgAuto()
  858. {
  859. if ( utlf_isNull(ds_main_trnptdgmngt_trnptdglist.getColumn(0, "totdg")))
  860. {
  861. sysf_messageBox("전체 차수 생성을 위한 시작차수번호를 첫번째 행에", "C001");
  862. return false;
  863. }
  864. var stotdg = parseInt(ds_main_trnptdgmngt_trnptdglist.getColumn(0, "totdg"));
  865. var sautodg = 0;
  866. var sallodg = 0;
  867. var sautodgrow = 0;
  868. var sallodgrow = 0;
  869. for (var i = 0; i < ds_main_trnptdgmngt_trnptdglist.rowcount; i++)
  870. {
  871. if (sautodg == 0 && ds_main_trnptdgmngt_trnptdglist.getColumn(i, "trnptkind") == "00")
  872. {
  873. if(utlf_isNull(ds_main_trnptdgmngt_trnptdglist.getColumn(i, "autoallodg")))
  874. {
  875. sysf_messageBox("AUTO 차수 생성을 위한 시작차수번호를 " + parseInt(i+1) + "번째 행에", "C001");
  876. ds_main_trnptdgmngt_trnptdglist.rowposition = i;
  877. grd_patlist.setCellPos(grd_patlist.getBindCellIndex("body", "autoallodg"));
  878. grd_patlist.showEditor(true);
  879. return false;
  880. }
  881. sautodg = parseInt(ds_main_trnptdgmngt_trnptdglist.getColumn(i, "autoallodg"));
  882. sautodgrow = i;
  883. }
  884. if (sallodg == 0 && ds_main_trnptdgmngt_trnptdglist.getColumn(i, "trnptkind") != "00")
  885. {
  886. if (utlf_isNull(ds_main_trnptdgmngt_trnptdglist.getColumn(i, "autoallodg")))
  887. {
  888. sysf_messageBox("ALLO 차수 생성을 위한 시작차수번호를 " + parseInt(i+1) + "번째 행에", "C001");
  889. ds_main_trnptdgmngt_trnptdglist.rowposition = i;
  890. grd_patlist.setCellPos(grd_patlist.getBindCellIndex("body", "autoallodg"));
  891. grd_patlist.showEditor(true);
  892. return false;
  893. }
  894. sallodg = parseInt(ds_main_trnptdgmngt_trnptdglist.getColumn(i, "autoallodg"));
  895. sallodgrow = i;
  896. }
  897. }
  898. for (var i = 0; i < ds_main_trnptdgmngt_trnptdglist.rowcount; i++)
  899. {
  900. ds_main_trnptdgmngt_trnptdglist.setColumn(i, "totdg", stotdg);
  901. if(ds_main_trnptdgmngt_trnptdglist.getColumn(i, "trnptkind") == "00")
  902. {
  903. ds_main_trnptdgmngt_trnptdglist.setColumn(i, "autoallodg", sautodg);
  904. sautodg = sautodg + 1;
  905. }
  906. if(ds_main_trnptdgmngt_trnptdglist.getColumn(i, "trnptkind") != "00")
  907. {
  908. ds_main_trnptdgmngt_trnptdglist.setColumn(i, "autoallodg", sallodg);
  909. sallodg = sallodg + 1;
  910. }
  911. stotdg = stotdg + 1;
  912. }
  913. }]]></Script>
  914. </Form>
  915. </FDL>