SMPID10100_입원청구생성.xfdl 53 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216
  1. <?xml version="1.0" encoding="utf-8"?>
  2. <FDL version="1.5">
  3. <TypeDefinition url="..\..\..\default_typedef.xml"/>
  4. <Form id="SMPID10100" position="absolute 0 0 1255 726" titletext="입원 청구 생성" style="font:dotum,9,bold;" oninit="SMPID10100_oninit" onload="SMPID10100_onload">
  5. <Layouts>
  6. <Layout>
  7. <CheckBox id="bool1" taborder="1" text="CheckBox" onchanged="bool1_onchanged" position="absolute 46 123 66 143"/>
  8. <Static id="caption6" text="입원 청구 생성" class="tit_1" position="absolute 0 0 192 25"/>
  9. <Static id="caption32" text="생성 대상자" class="tit_2" position="absolute 0 93 105 113"/>
  10. <Grid id="grd_cretlist" taborder="5" binddataset="ds_main_cretlist" useinputpanel="false" cellsizingtype="col" onheaddblclick="group3_grd_cretlist_onheaddblclick" position="absolute 0 114 1254 695" anchor="all" oncellclick="grd_cretlist_oncellclick" onexpanddown="grd_cretlist_onexpanddown" cellmovingtype="col" autoenter="select">
  11. <Formats>
  12. <Format id="default">
  13. <Columns>
  14. <Column size="21"/>
  15. <Column size="25"/>
  16. <Column size="0"/>
  17. <Column size="65"/>
  18. <Column size="70"/>
  19. <Column size="80"/>
  20. <Column size="40"/>
  21. <Column size="80"/>
  22. <Column size="40"/>
  23. <Column size="33"/>
  24. <Column size="37"/>
  25. <Column size="35"/>
  26. <Column size="175"/>
  27. <Column size="35"/>
  28. <Column size="80"/>
  29. <Column size="80"/>
  30. <Column size="70"/>
  31. <Column size="85"/>
  32. <Column size="55"/>
  33. <Column size="35"/>
  34. <Column size="35"/>
  35. <Column size="45"/>
  36. <Column size="65"/>
  37. <Column size="75"/>
  38. <Column size="80"/>
  39. <Column size="80"/>
  40. <Column size="83"/>
  41. <Column size="56"/>
  42. <Column size="30"/>
  43. <Column size="70"/>
  44. <Column size="80"/>
  45. <Column size="80"/>
  46. <Column size="60"/>
  47. <Column size="80"/>
  48. <Column size="80"/>
  49. <Column size="80"/>
  50. <Column size="120"/>
  51. <Column size="140"/>
  52. <Column size="60"/>
  53. <Column size="56"/>
  54. <Column size="0"/>
  55. <Column size="0"/>
  56. <Column size="49"/>
  57. <Column size="48"/>
  58. <Column size="105"/>
  59. <Column size="70"/>
  60. <Column size="80"/>
  61. <Column size="50"/>
  62. <Column size="50"/>
  63. <Column size="60"/>
  64. <Column size="65"/>
  65. <Column size="70"/>
  66. <Column size="60"/>
  67. <Column size="60"/>
  68. <Column size="60"/>
  69. <Column size="60"/>
  70. <Column size="60"/>
  71. <Column size="50"/>
  72. <Column size="53"/>
  73. <Column size="100"/>
  74. <Column size="100"/>
  75. <Column size="0"/>
  76. <Column size="0"/>
  77. <Column size="0"/>
  78. <Column size="58"/>
  79. <Column size="65"/>
  80. <Column size="62"/>
  81. <Column size="62"/>
  82. <Column size="59"/>
  83. <Column size="46"/>
  84. </Columns>
  85. <Rows>
  86. <Row size="36" band="head"/>
  87. <Row size="20"/>
  88. </Rows>
  89. <Band id="head">
  90. <Cell/>
  91. <Cell col="1" displaytype="checkbox" edittype="checkbox" text="bind:chk"/>
  92. <Cell col="2" text="IO"/>
  93. <Cell col="3" text="등록번호"/>
  94. <Cell col="4" text="환자성명"/>
  95. <Cell col="5" text="입원일자"/>
  96. <Cell col="6" text="시간"/>
  97. <Cell col="7" text="퇴원일자"/>
  98. <Cell col="8" text="시간"/>
  99. <Cell col="9" text="CNo"/>
  100. <Cell col="10" text="주/부"/>
  101. <Cell col="11" text="생성"/>
  102. <Cell col="12" text="유형동일 사후(월/차수/순번)"/>
  103. <Cell col="13" text="정산&#13;&#10;유무"/>
  104. <Cell col="14" colspan="2" text="진료기간"/>
  105. <Cell col="16" colspan="2" text="진료과"/>
  106. <Cell col="18" text="DRG여부"/>
  107. <Cell col="19" text="유형"/>
  108. <Cell col="20" text="보조"/>
  109. <Cell col="21" text="메모"/>
  110. <Cell col="22" colspan="2" text="배분심사자"/>
  111. <Cell col="24" text="정산최종일"/>
  112. <Cell col="25" text="수납처리일"/>
  113. <Cell col="26" text="최종청구일"/>
  114. <Cell col="27" text="분야"/>
  115. <Cell col="28" colspan="2" text="청구과"/>
  116. <Cell col="30" colspan="2" text="생성기간"/>
  117. <Cell col="32" text="심사상태"/>
  118. <Cell col="33" text="생성일자"/>
  119. <Cell col="34" text="도착경로"/>
  120. <Cell col="35" text="진료결과"/>
  121. <Cell col="36" text="사망일시"/>
  122. <Cell col="37" text="청구키"/>
  123. <Cell col="38" text="전문의"/>
  124. <Cell col="39" text="입원경로"/>
  125. <Cell col="40" text="도착경로"/>
  126. <Cell col="41" text="진료결과"/>
  127. <Cell col="42" text="도착경로"/>
  128. <Cell col="43" text="진료결과"/>
  129. <Cell col="44" text="주민번호"/>
  130. <Cell col="45" text="보험자기호"/>
  131. <Cell col="46" text="증번호"/>
  132. <Cell col="47" text="본인율"/>
  133. <Cell col="48" text="내원"/>
  134. <Cell col="49" text="본인구분"/>
  135. <Cell col="50" colspan="2" text="최종심사자"/>
  136. <Cell col="52" text="6세미만"/>
  137. <Cell col="53" text="청구구분"/>
  138. <Cell col="54" text="희귀난치"/>
  139. <Cell col="55" text="청구년월"/>
  140. <Cell col="56" text="청구차수"/>
  141. <Cell col="57" text="청구단위"/>
  142. <Cell col="58" text="병실코드"/>
  143. <Cell col="59" text="병실타입"/>
  144. <Cell col="60" text="최종심사일자"/>
  145. <Cell col="61"/>
  146. <Cell col="62"/>
  147. <Cell col="63"/>
  148. <Cell col="64" text="DRG NO"/>
  149. <Cell col="65" text="부가코드1"/>
  150. <Cell col="66" text="부가코드2"/>
  151. <Cell col="67" text="부가코드3"/>
  152. <Cell col="68" text="부가코드4"/>
  153. <Cell col="69" text="전담&#13;&#10;지원금"/>
  154. </Band>
  155. <Band id="body">
  156. <Cell celltype="head" expr="expr:currow+1"/>
  157. <Cell col="1" displaytype="checkbox" edittype="checkbox" text="bind:chk" expr="expr:chk == 'true' || chk == '1' ? 1 : 0"/>
  158. <Cell col="2" text="bind:ioflag"/>
  159. <Cell col="3" text="bind:pid"/>
  160. <Cell col="4" text="bind:hngnm"/>
  161. <Cell col="5" displaytype="date" text="bind:indd" calendardisplaynulltype="none"/>
  162. <Cell col="6" displaytype="text" text="bind:intm" mask="##:##"/>
  163. <Cell col="7" displaytype="date" text="bind:dschdd" calendardisplaynulltype="none"/>
  164. <Cell col="8" text="bind:dschtm" mask="##:##"/>
  165. <Cell col="9" text="bind:cretno"/>
  166. <Cell col="10" text="bind:mskind"/>
  167. <Cell col="11" text="bind:status"/>
  168. <Cell col="12" text="bind:clam_o"/>
  169. <Cell col="13" text="bind:obtm"/>
  170. <Cell col="14" displaytype="date" text="bind:ordfromdd" calendardisplaynulltype="none"/>
  171. <Cell col="15" displaytype="date" text="bind:ordtodd" calendardisplaynulltype="none"/>
  172. <Cell col="16" text="bind:orddeptcd"/>
  173. <Cell col="17" displaytype="combo" text="bind:orddeptcd" combodataset="ds_hidden_list1_dept" combocodecol="deptcd" combodatacol="depthngnm"/>
  174. <Cell col="18" text="bind:drgyn"/>
  175. <Cell col="19" text="bind:insukind"/>
  176. <Cell col="20" text="bind:suppkind"/>
  177. <Cell col="21" displaytype="text" edittype="text" text="bind:memo" expandshow="show"/>
  178. <Cell col="22" text="bind:judgid"/>
  179. <Cell col="23" text="bind:judgidnm"/>
  180. <Cell col="24" displaytype="date" text="bind:calclastdd" calendardisplaynulltype="none"/>
  181. <Cell col="25" displaytype="date" text="bind:rcptexecdd" calendardisplaynulltype="none"/>
  182. <Cell col="26" displaytype="date" text="bind:lastmdlclamdd" calendardisplaynulltype="none"/>
  183. <Cell col="27" displaytype="combo" style="align:center;" text="bind:ordfildcd" combodataset="ds_init_P0291" combocodecol="cdid" combodatacol="cdnm"/>
  184. <Cell col="28" text="bind:clamdeptcd"/>
  185. <Cell col="29" text="bind:clamdeptnm"/>
  186. <Cell col="30" displaytype="date" text="bind:clamfromdd" calendardisplaynulltype="none"/>
  187. <Cell col="31" displaytype="date" text="bind:clamtodd" calendardisplaynulltype="none"/>
  188. <Cell col="32" displaytype="combo" style="align:center;" text="bind:judgstatus" combodataset="ds_init_P0363" combocodecol="cdid" combodatacol="cdnm"/>
  189. <Cell col="33" displaytype="date" text="bind:cretdd" calendardisplaynulltype="none"/>
  190. <Cell col="34" displaytype="normal" style="align:left;" text="bind:arvpathcd"/>
  191. <Cell col="35" text="bind:ordrsltcd"/>
  192. <Cell col="36" displaytype="date" text="bind:dethdt" calendardisplaynulltype="none"/>
  193. <Cell col="37" text="bind:clamkey"/>
  194. <Cell col="38" text="bind:medispclid"/>
  195. <Cell col="39" displaytype="normal" text="bind:inpathcd" combodataset="ds_init_P0002" combocodecol="cdid" combodatacol="cdnm"/>
  196. <Cell col="40" text="bind:arvpathcd"/>
  197. <Cell col="41" text="bind:ordrsltcd"/>
  198. <Cell col="42" displaytype="normal"/>
  199. <Cell col="43" displaytype="normal"/>
  200. <Cell col="44" text="bind:patrrgstno" mask="######-####aaa" maskchar="*"/>
  201. <Cell col="45" style="align:left middle;" text="bind:insuno"/>
  202. <Cell col="46" text="bind:cretno"/>
  203. <Cell col="47" text="bind:brateflag"/>
  204. <Cell col="48" text="bind:ordtype"/>
  205. <Cell col="49" text="bind:ownbflag"/>
  206. <Cell col="50" text="bind:lastjudgid"/>
  207. <Cell col="51" text="bind:lastjudgnm"/>
  208. <Cell col="52" text="bind:undersixageyn"/>
  209. <Cell col="53" text="bind:dschmidlclam"/>
  210. <Cell col="54" text="bind:rareobstflag"/>
  211. <Cell col="55" displaytype="text" text="bind:clamym"/>
  212. <Cell col="56" text="bind:clamdg"/>
  213. <Cell col="57" text="bind:weekflag"/>
  214. <Cell col="58" text="bind:roomcd"/>
  215. <Cell col="59" text="bind:roomtypecd"/>
  216. <Cell col="60" displaytype="date" text="bind:lastjudgdt" calendardisplaynulltype="none"/>
  217. <Cell col="61" text="bind:calcscorrecalflag"/>
  218. <Cell col="62" text="bind:erdeptyn"/>
  219. <Cell col="63" text="bind:acdacptno"/>
  220. <Cell col="64" text="bind:drgno"/>
  221. <Cell col="65" text="bind:detailcd1"/>
  222. <Cell col="66" text="bind:detailcd2"/>
  223. <Cell col="67" text="bind:detailcd3"/>
  224. <Cell col="68" text="bind:detailcd4"/>
  225. <Cell col="69" text="bind:procercd"/>
  226. </Band>
  227. </Format>
  228. </Formats>
  229. </Grid>
  230. <Button id="button00" taborder="6" text="선택생성" onclick="group3_button2_onclick" onlbuttonup="button2_onlbuttonup" class="btn4" visible="true" position="absolute 1017 700 1099 720" anchor="right bottom"/>
  231. <Button id="button3" taborder="7" text="전체생성" onclick="group3_button3_onclick" onlbuttonup="button3_onlbuttonup" class="btn4" position="absolute 1101 700 1183 720" anchor="right bottom"/>
  232. <Button id="button10" taborder="8" text="초기화" onclick="button10_onclick" class="btn4" position="absolute 1185 700 1254 720" anchor="right bottom"/>
  233. <Button id="btn_excelsave" taborder="9" text="엑셀저장" onclick="group3_btn_excelsave_onclick" onlbuttonup="btn_excelsave_onlbuttonup" class="btn7" position="absolute 736 89 812 109" anchor="top right"/>
  234. <CheckBox id="checkbox1" taborder="10" text="생성된 자료 선택 제외" truevalue="Y" position="absolute 828 89 968 109" anchor="top right"/>
  235. <Button id="btn_selectall" taborder="11" text="생성로그확인" class="btn2" position="absolute 1162 89 1254 109" anchor="top right" onclick="group3_btn_selectall_onclick"/>
  236. <Button id="button6" taborder="12" text="금액점검" position="absolute 640 89 709 109" class="btn2" onclick="button6_onclick" anchor="top right"/>
  237. <Button id="Button1" taborder="13" text="전체선택" position="absolute 981 89 1046 109" class="btn2" onclick="Button1_onclick" anchor="top right"/>
  238. <Button id="Button02" taborder="14" text="전체선택취소" position="absolute 1048 89 1137 109" class="btn2" onclick="Button02_onclick" anchor="top right"/>
  239. <Div id="grp_memo" taborder="15" visible="false" position="absolute 736 165 1109 378" style="background:#ffffffff;border:2 solid #808080ff ;">
  240. <Layouts>
  241. <Layout>
  242. <Static id="caption7" text="입원 사후 자료수집 메모" class="tit_2" position="absolute 5 7 184 28" anchor="default"/>
  243. <Shape id="line1" linetype="horizontal" class="line_1" position="absolute 5 24 364 29" style="strokepen:3 solid #33bbbbff;" anchor="default"/>
  244. <TextArea id="textarea1" taborder="1" position="absolute 5 28 364 178" anchor="default" scrollbars="autovert" wordwrap="word"/>
  245. <Button id="button4" taborder="2" text="저장" class="btn4" position="absolute 249 182 305 204" anchor="default" onclick="grp_memo_button4_onclick"/>
  246. <Button id="button5" taborder="3" text="닫기" class="btn4" position="absolute 308 182 364 204" anchor="default" onclick="grp_memo_button5_onclick"/>
  247. </Layout>
  248. </Layouts>
  249. </Div>
  250. <Div id="group2" taborder="16" class="div_SA" position="absolute 0 25 1254 85" anchor="left top right">
  251. <Layouts>
  252. <Layout>
  253. <Shape id="line13" linetype="vertical" position="absolute 1168 9 1178 51" anchor="top right"/>
  254. <Static id="caption10" text="전액본인 :" class="search_name" position="absolute 302 34 388 51" anchor="default"/>
  255. <Static id="caption11" text="진료분야 :" class="search_name" position="absolute 680 10 766 27" anchor="default"/>
  256. <Combo id="cmb_insutype" taborder="1" codecolumn="value" datacolumn="label" class="combo_search" position="absolute 580 9 670 28" anchor="default" innerdataset="@ds_cmb_insutype"/>
  257. <Static id="caption3" text="정산일자 :" class="search_name" position="absolute 15 10 101 27" anchor="default"/>
  258. <Static id="caption4" text="보험유형 :" class="search_name" position="absolute 491 10 577 27" anchor="default"/>
  259. <Static id="caption13" text="생성여부 :" class="search_name" position="absolute 491 34 577 51" anchor="default"/>
  260. <Combo id="cmb_ordfildcd" taborder="2" codecolumn="value" datacolumn="label" class="combo_search" position="absolute 769 9 859 28" anchor="default" innerdataset="@ds_cmb_ordfildcd" onitemchanged="group2_cmb_ordfildcd_onitemchanged"/>
  261. <Combo id="cmb_pastdata" taborder="3" codecolumn="value" datacolumn="label" class="combo_search" position="absolute 769 33 859 52" anchor="default" innerdataset="@ds_cmb_pastdata" onitemchanged="group2_cmb_pastdata_onitemchanged"/>
  262. <Combo id="cmb_clamflag" taborder="4" codecolumn="value" datacolumn="label" class="combo_search" position="absolute 391 9 481 28" anchor="default" innerdataset="@ds_cmb_clamflag"/>
  263. <Calendar id="ipt_clamfromdd" taborder="5" class="input_search" position="absolute 104 9 189 28" mask="yyyy-mm-dd" anchor="default" onchanged="group2_ipt_clamfromdd_onchanged" value="null" dateformat="yyyy-MM-dd ddd"/>
  264. <Calendar id="ipt_clamtodd" taborder="6" class="input_search" position="absolute 192 9 277 28" mask="yyyy-mm-dd" anchor="default" onchanged="group2_ipt_clamtodd_onchanged"/>
  265. <Combo id="cmb_ownb100" taborder="7" codecolumn="codecolumn" datacolumn="datacolumn" class="combo_search" position="absolute 391 33 481 52" anchor="default">
  266. <Dataset id="innerdataset">
  267. <ColumnInfo>
  268. <Column id="codecolumn"/>
  269. <Column id="datacolumn"/>
  270. </ColumnInfo>
  271. <Rows>
  272. <Row>
  273. <Col id="codecolumn">N</Col>
  274. <Col id="datacolumn">N.생성안함</Col>
  275. </Row>
  276. <Row>
  277. <Col id="codecolumn">Y</Col>
  278. <Col id="datacolumn">Y.생성</Col>
  279. </Row>
  280. </Rows>
  281. </Dataset>
  282. </Combo>
  283. <Static id="caption9" text="청구구분 :" class="search_name" position="absolute 302 10 388 27" anchor="default"/>
  284. <Static id="caption14" text="이전자료 :" class="search_name" position="absolute 680 34 766 51" anchor="default"/>
  285. <Button id="btn_search" taborder="8" text="조회" class="btn1" position="absolute 1187 18 1243 40" anchor="top right" onclick="group2_btn_search_onclick"/>
  286. <Combo id="cmb_cretflag" taborder="9" codecolumn="codecolumn" datacolumn="datacolumn" class="combo_search" position="absolute 580 33 670 52" anchor="default">
  287. <Dataset id="innerdataset">
  288. <ColumnInfo>
  289. <Column id="codecolumn"/>
  290. <Column id="datacolumn"/>
  291. </ColumnInfo>
  292. <Rows>
  293. <Row>
  294. <Col id="codecolumn">-</Col>
  295. <Col id="datacolumn">-.전체</Col>
  296. </Row>
  297. <Row>
  298. <Col id="codecolumn">N</Col>
  299. <Col id="datacolumn">N.미생성</Col>
  300. </Row>
  301. <Row>
  302. <Col id="codecolumn">Y</Col>
  303. <Col id="datacolumn">Y.생성</Col>
  304. </Row>
  305. </Rows>
  306. </Dataset>
  307. </Combo>
  308. <Button id="button27" taborder="10" class="icon_search" position="absolute 279 35 295 51" anchor="default" onclick="group2_button27_onclick"/>
  309. <Static id="caption1" text="환자번호 :" class="search_name" position="absolute 15 34 101 51" anchor="default"/>
  310. <Edit id="ipt_pid" taborder="11" class="input_default" position="absolute 104 33 189 52" anchor="default" onkeydown="group2_ipt_pid_onkeydown"/>
  311. <Edit id="ipt_name" taborder="12" class="input_default" position="absolute 192 33 277 52" anchor="default"/>
  312. <Combo id="cmb_orddeptcd" taborder="13" innerdataset="@ds_hidden_list1_dept" codecolumn="deptcd" datacolumn="depthngnm" class="combo_default" position="absolute 959 9 1099 28" anchor="default"/>
  313. <Static id="caption2" text="진료과목 :" class="search_name" position="absolute 870 10 956 27" anchor="default"/>
  314. <Static id="caption5" text="청구차수 :" class="search_name" position="absolute 870 34 956 51" anchor="default"/>
  315. <cp_monthCal id="ipt_clamym" taborder="14" scrollbars="none" position="absolute 959 33 1034 53" anchor="default"/>
  316. </Layout>
  317. </Layouts>
  318. </Div>
  319. <Shape id="line1" class="line_1" position="absolute 0 107 1254 117" anchor="left top right" style="strokepen:3 solid #33bbbbff;"/>
  320. <Button id="button_up" taborder="18" class="icon_up" position="absolute 1036 59 1046 68" onclick="button_up_onclick"/>
  321. <Button id="button_down" taborder="19" class="icon_down" position="absolute 1036 69 1046 78" onclick="button_down_onclick"/>
  322. <Edit id="ipt_clamdg" taborder="20" class="input_default" position="absolute 1048 58 1099 78" ontextchanged="ipt_clamdg_ontextchanged" oneditclick="ipt_clamdg_oneditclick"/>
  323. <CheckBox id="chk_procercd" taborder="21" text="지원금 생성" position="absolute 479 89 619 109" anchor="top right" value="false" truevalue="Y"/>
  324. </Layout>
  325. </Layouts>
  326. <Objects>
  327. <Dataset id="ds_hidden_list1_dept" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  328. <ColumnInfo>
  329. <Column id="deptcd" type="STRING" size="256" sumtext="진료과"/>
  330. <Column id="depthngnm" type="STRING" size="256" sumtext="진료과한글명"/>
  331. <Column id="deptengabbr" type="STRING" size="256" sumtext="영문약어"/>
  332. <Column id="reqfild" type="STRING" size="256" sumtext="진료분야"/>
  333. <Column id="reqdeptno" type="STRING" size="256" sumtext="청구세부과"/>
  334. </ColumnInfo>
  335. </Dataset>
  336. <Dataset id="ds_hidden_screen1" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  337. <ColumnInfo>
  338. <Column id="checkyn1" type="STRING" size="256"/>
  339. <Column id="checkyn2" type="STRING" size="256"/>
  340. </ColumnInfo>
  341. <Rows>
  342. <Row/>
  343. </Rows>
  344. </Dataset>
  345. <Dataset id="ds_cmb_insutype" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  346. <ColumnInfo>
  347. <Column id="label" type="STRING" size="256"/>
  348. <Column id="value" type="STRING" size="256"/>
  349. </ColumnInfo>
  350. <Rows>
  351. <Row>
  352. <Col id="label">0.전체</Col>
  353. <Col id="value">0</Col>
  354. </Row>
  355. <Row>
  356. <Col id="label">1.보험+급여</Col>
  357. <Col id="value">1</Col>
  358. </Row>
  359. <Row>
  360. <Col id="label">2.보험</Col>
  361. <Col id="value">2</Col>
  362. </Row>
  363. <Row>
  364. <Col id="label">3.급여</Col>
  365. <Col id="value">3</Col>
  366. </Row>
  367. <Row>
  368. <Col id="label">4.급여1종</Col>
  369. <Col id="value">4</Col>
  370. </Row>
  371. <Row>
  372. <Col id="label">5.급여2종</Col>
  373. <Col id="value">5</Col>
  374. </Row>
  375. <Row>
  376. <Col id="label">6.산재</Col>
  377. <Col id="value">6</Col>
  378. </Row>
  379. <Row>
  380. <Col id="label">7.자보</Col>
  381. <Col id="value">7</Col>
  382. </Row>
  383. </Rows>
  384. </Dataset>
  385. <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  386. <ColumnInfo>
  387. <Column id="clamym" type="STRING" size="256"/>
  388. <Column id="clamdg" type="STRING" size="256"/>
  389. <Column id="clamfromdd" type="STRING" size="256"/>
  390. <Column id="clamtodd" type="STRING" size="256"/>
  391. <Column id="insutype" type="STRING" size="256"/>
  392. <Column id="ordfildcd" type="STRING" size="256"/>
  393. <Column id="clamflag" type="STRING" size="256"/>
  394. <Column id="predata" type="STRING" size="256"/>
  395. <Column id="ownb100" type="STRING" size="256"/>
  396. <Column id="datacretflag" type="STRING" size="256"/>
  397. <Column id="pid" type="STRING" size="256"/>
  398. <Column id="name" type="STRING" size="256"/>
  399. <Column id="orddeptcd" type="STRING" size="256"/>
  400. <Column id="weekflag" type="STRING" size="256"/>
  401. <Column id="chk" type="STRING" size="256"/>
  402. <Column id="ioflag" type="STRING" size="256"/>
  403. <Column id="temp" type="STRING" size="256"/>
  404. <Column id="proceryn" type="STRING" size="256"/>
  405. </ColumnInfo>
  406. <Rows>
  407. <Row/>
  408. </Rows>
  409. </Dataset>
  410. <Dataset id="ds_cmb_ordfildcd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  411. <ColumnInfo>
  412. <Column id="label" type="STRING" size="256"/>
  413. <Column id="value" type="STRING" size="256"/>
  414. </ColumnInfo>
  415. <Rows>
  416. <Row>
  417. <Col id="label">-.전체</Col>
  418. <Col id="value">-</Col>
  419. </Row>
  420. <Row>
  421. <Col id="label">0.의과</Col>
  422. <Col id="value">0</Col>
  423. </Row>
  424. <Row>
  425. <Col id="label">1.내과</Col>
  426. <Col id="value">1</Col>
  427. </Row>
  428. <Row>
  429. <Col id="label">2.외과</Col>
  430. <Col id="value">2</Col>
  431. </Row>
  432. <Row>
  433. <Col id="label">3.산,소아과</Col>
  434. <Col id="value">3</Col>
  435. </Row>
  436. <Row>
  437. <Col id="label">4.안,이비인후과</Col>
  438. <Col id="value">4</Col>
  439. </Row>
  440. <Row>
  441. <Col id="label">5.피부,비뇨기과</Col>
  442. <Col id="value">5</Col>
  443. </Row>
  444. <Row>
  445. <Col id="label">6.치과</Col>
  446. <Col id="value">6</Col>
  447. </Row>
  448. </Rows>
  449. </Dataset>
  450. <Dataset id="ds_cmb_pastdata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  451. <ColumnInfo>
  452. <Column id="label" type="STRING" size="256"/>
  453. <Column id="value" type="STRING" size="256"/>
  454. </ColumnInfo>
  455. <Rows>
  456. <Row>
  457. <Col id="label">1.생성(삭제후)</Col>
  458. <Col id="value">1</Col>
  459. </Row>
  460. <Row>
  461. <Col id="label">2.생성(중복Skip)</Col>
  462. <Col id="value">2</Col>
  463. </Row>
  464. <Row>
  465. <Col id="label">3.생성(별도)</Col>
  466. <Col id="value">3</Col>
  467. </Row>
  468. <Row>
  469. <Col id="label">4.삭제만</Col>
  470. <Col id="value">4</Col>
  471. </Row>
  472. <Row>
  473. <Col id="label">5.재생성(별도)</Col>
  474. <Col id="value">5</Col>
  475. </Row>
  476. </Rows>
  477. </Dataset>
  478. <Dataset id="ds_cmb_clamflag" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  479. <ColumnInfo>
  480. <Column id="label" type="STRING" size="256"/>
  481. <Column id="value" type="STRING" size="256"/>
  482. </ColumnInfo>
  483. <Rows>
  484. <Row>
  485. <Col id="label">-.퇴원+중간</Col>
  486. <Col id="value">-</Col>
  487. </Row>
  488. <Row>
  489. <Col id="label">1.퇴원청구</Col>
  490. <Col id="value">1</Col>
  491. </Row>
  492. <Row>
  493. <Col id="label">2.중간청구</Col>
  494. <Col id="value">2</Col>
  495. </Row>
  496. </Rows>
  497. </Dataset>
  498. <Dataset id="ds_main_cretlist" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_main_cretlist_oncolumnchanged">
  499. <ColumnInfo>
  500. <Column id="chk" type="STRING" size="256" sumtext="선택여부"/>
  501. <Column id="ioflag" type="STRING" size="256" sumtext="내원형태"/>
  502. <Column id="pid" type="STRING" size="256" sumtext="환자번호"/>
  503. <Column id="hngnm" type="STRING" size="256" sumtext="환자이름"/>
  504. <Column id="indd" type="STRING" size="256" sumtext="입원일자"/>
  505. <Column id="intm" type="STRING" size="256" sumtext="입원시간"/>
  506. <Column id="dschdd" type="STRING" size="256" sumtext="퇴원일자"/>
  507. <Column id="dschtm" type="STRING" size="256" sumtext="퇴원시간"/>
  508. <Column id="cretno" type="STRING" size="256" sumtext="생성번호"/>
  509. <Column id="mskind" type="STRING" size="256" sumtext="주부유형"/>
  510. <Column id="status" type="STRING" size="256" sumtext="상태"/>
  511. <Column id="ordfromdd" type="STRING" size="256" sumtext="진료개시일"/>
  512. <Column id="ordtodd" type="STRING" size="256" sumtext="진료종료일"/>
  513. <Column id="ordfildcd" type="STRING" size="256" sumtext="청구분야"/>
  514. <Column id="orddeptcd" type="STRING" size="256" sumtext="진료과코드"/>
  515. <Column id="orddeptnm" type="STRING" size="256" sumtext="진료과명칭"/>
  516. <Column id="insukind" type="STRING" size="256" sumtext="보험유형"/>
  517. <Column id="suppkind" type="STRING" size="256" sumtext="유형보조"/>
  518. <Column id="clamkey" type="STRING" size="256" sumtext="청구키"/>
  519. <Column id="lastjudgid" type="STRING" size="256" sumtext="최종심사자"/>
  520. <Column id="lastjudgnm" type="STRING" size="256" sumtext="최종심사자명"/>
  521. <Column id="calclastdd" type="STRING" size="256" sumtext="정산최종일"/>
  522. <Column id="rcptexecdd" type="STRING" size="256" sumtext="수납처리일"/>
  523. <Column id="lastmdlclamdd" type="STRING" size="256" sumtext="최종청구일"/>
  524. <Column id="clamdeptcd" type="STRING" size="256" sumtext="청구과"/>
  525. <Column id="clamdeptnm" type="STRING" size="256" sumtext="청구과명칭"/>
  526. <Column id="clamfromdd" type="STRING" size="256" sumtext="생성기간1"/>
  527. <Column id="clamtodd" type="STRING" size="256" sumtext="생성기간2"/>
  528. <Column id="judgstatus" type="STRING" size="256" sumtext="심사상태"/>
  529. <Column id="cretdd" type="STRING" size="256" sumtext="생성일자"/>
  530. <Column id="arvpath" type="STRING" size="256" sumtext="도착경로"/>
  531. <Column id="ordrslt" type="STRING" size="256" sumtext="진료결과"/>
  532. <Column id="dethdt" type="STRING" size="256" sumtext="사망일시"/>
  533. <Column id="predata" type="STRING" size="256" sumtext="이전자료"/>
  534. <Column id="datacretflag" type="STRING" size="256" sumtext="생성여부"/>
  535. <Column id="ownb100" type="STRING" size="256" sumtext="전액본인"/>
  536. <Column id="instcd" type="STRING" size="256" sumtext="기관코드"/>
  537. <Column id="medispclid" type="STRING" size="256" sumtext="주치의"/>
  538. <Column id="inpathcd" type="STRING" size="256" sumtext="입원경로"/>
  539. <Column id="arvpathcd" type="STRING" size="256" sumtext="도착경로"/>
  540. <Column id="ordrsltcd" type="STRING" size="256" sumtext="진료결과"/>
  541. <Column id="patrrgstno" type="STRING" size="256" sumtext="주민번호"/>
  542. <Column id="insuno" type="STRING" size="256" sumtext="보험자기호"/>
  543. <Column id="certno" type="STRING" size="256" sumtext="증번호"/>
  544. <Column id="brateflag" type="STRING" size="256" sumtext="부담율구분"/>
  545. <Column id="ordtype" type="STRING" size="256" sumtext="진료형태"/>
  546. <Column id="ownbflag" type="STRING" size="256" sumtext="급여본인부담구분"/>
  547. <Column id="judgid" type="STRING" size="256" sumtext="배분심사자"/>
  548. <Column id="undersixageyn" type="STRING" size="256" sumtext="6세미만"/>
  549. <Column id="dschmidlclam" type="STRING" size="256" sumtext="청구구분"/>
  550. <Column id="rareobstflag" type="STRING" size="256" sumtext="희귀난치대상자구분"/>
  551. <Column id="clamym" type="STRING" size="256" sumtext="청구년월"/>
  552. <Column id="clamdg" type="STRING" size="256" sumtext="청구차수"/>
  553. <Column id="weekflag" type="STRING" size="256" sumtext="청구단위"/>
  554. <Column id="roomcd" type="STRING" size="256" sumtext="병실코드"/>
  555. <Column id="roomtypecd" type="STRING" size="256" sumtext="병실타입코드"/>
  556. <Column id="lastjudgdt" type="STRING" size="256" sumtext="최종심사일자"/>
  557. <Column id="judgidnm" type="STRING" size="256" sumtext="배분심사자명"/>
  558. <Column id="calcscorrecalflag" type="STRING" size="256" sumtext="수가계산방법"/>
  559. <Column id="erdeptyn" type="STRING" size="256" sumtext="응급실주과청구구분"/>
  560. <Column id="drgyn" type="STRING" size="256" sumtext="DRG대상유무"/>
  561. <Column id="drgno" type="STRING" size="256" sumtext="DRG번호"/>
  562. <Column id="detailcd1" type="STRING" size="256" sumtext="DRG부가코드1"/>
  563. <Column id="detailcd2" type="STRING" size="256" sumtext="DRG부가코드2"/>
  564. <Column id="detailcd3" type="STRING" size="256" sumtext="DRG부가코드3"/>
  565. <Column id="detailcd4" type="STRING" size="256" sumtext="DRG부가코드4"/>
  566. <Column id="detailcd5" type="STRING" size="256" sumtext="DRG부가코드5"/>
  567. <Column id="clam_o" type="STRING" size="256" sumtext="유형동일사후"/>
  568. <Column id="obtm" type="STRING" size="256" sumtext="정산유무"/>
  569. <Column id="memo" type="STRING" size="256" sumtext="메모"/>
  570. <Column id="procercd" type="STRING" size="256"/>
  571. </ColumnInfo>
  572. </Dataset>
  573. <Dataset id="ds_hidden_send2" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  574. <ColumnInfo>
  575. <Column id="instcd" type="STRING" size="256"/>
  576. <Column id="basedd" type="STRING" size="256"/>
  577. </ColumnInfo>
  578. </Dataset>
  579. <Dataset id="ds_hidden_sppmc02500" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  580. <ColumnInfo>
  581. <Column id="srchcond" type="STRING" size="256"/>
  582. <Column id="pid" type="STRING" size="256"/>
  583. </ColumnInfo>
  584. <Rows>
  585. <Row/>
  586. </Rows>
  587. </Dataset>
  588. <Dataset id="ds_hidden_temp" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  589. <ColumnInfo>
  590. <Column id="memo" type="STRING" size="256"/>
  591. </ColumnInfo>
  592. <Rows>
  593. <Row/>
  594. </Rows>
  595. </Dataset>
  596. <FilteredDataset id="FilteredDataset00" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" filterstr="chk == '1' || chk == 'true'" binddataset="@ds_main_cretlist"/>
  597. <Dataset id="ds_temp" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  598. </Objects>
  599. <Bind>
  600. <BindItem id="item0" compid="group2.ipt_clamfromdd" propid="value" datasetid="ds_send" columnid="clamfromdd"/>
  601. <BindItem id="item1" compid="group2.ipt_clamtodd" propid="value" datasetid="ds_send" columnid="clamtodd"/>
  602. <BindItem id="item2" compid="group2.cmb_clamflag" propid="value" datasetid="ds_send" columnid="clamflag"/>
  603. <BindItem id="item3" compid="group2.cmb_insutype" propid="value" datasetid="ds_send" columnid="insutype"/>
  604. <BindItem id="item4" compid="group2.cmb_ordfildcd" propid="value" datasetid="ds_send" columnid="ordfildcd"/>
  605. <BindItem id="item5" compid="group2.cmb_orddeptcd" propid="value" datasetid="ds_send" columnid="orddeptcd"/>
  606. <BindItem id="item6" compid="group2.ipt_pid" propid="value" datasetid="ds_send" columnid="pid"/>
  607. <BindItem id="item7" compid="group2.ipt_name" propid="value" datasetid="ds_send" columnid="name"/>
  608. <BindItem id="item8" compid="group2.cmb_ownb100" propid="value" datasetid="ds_send" columnid="ownb100"/>
  609. <BindItem id="item9" compid="group2.cmb_cretflag" propid="value" datasetid="ds_send" columnid="datacretflag"/>
  610. <BindItem id="item10" compid="group2.cmb_pastdata" propid="value" datasetid="ds_send" columnid="predata"/>
  611. <BindItem id="item12" compid="ipt_clamdg" propid="value" datasetid="ds_send" columnid="clamdg"/>
  612. <BindItem id="item13" compid="checkbox1" propid="value" datasetid="ds_hidden_screen1" columnid="checkyn1"/>
  613. <BindItem id="item14" compid="grp_memo.textarea1" propid="value" datasetid="ds_hidden_temp" columnid="memo"/>
  614. <BindItem id="item11" compid="chk_procercd" propid="value" datasetid="ds_hidden_screen1" columnid="checkyn2"/>
  615. </Bind>
  616. <Script type="xscript4.0"><![CDATA[/***************************************************************************************
  617. * System Name :
  618. * Job Name :
  619. * Creator :
  620. * Make Date : 2016-05-24
  621. * Description :
  622. *---------------------------------------------------------------------------------------
  623. * Modify Date Modifier Modify Description
  624. *---------------------------------------------------------------------------------------
  625. * 2016-05-24 Live Converter TF->XP
  626. *
  627. *---------------------------------------------------------------------------------------
  628. ****************************************************************************************/
  629. include "com_commonxp::comm_main.xjs";
  630. include "com_basiccodexp::ZBC001.xjs";
  631. include "com_batchinfoxp::ZSB001.xjs";
  632. var g_rtrv = "N";
  633. function SMPID10100_oninit(obj:Form, e:InitEventInfo)
  634. {
  635. frmf_initForm(obj);
  636. }
  637. function SMPID10100_onload(obj:Form, e:LoadEventInfo)
  638. {
  639. fInitialize();
  640. }
  641. function fInitialize()
  642. {
  643. grdf_initGrid(grd_cretlist);
  644. group2.cmb_insutype.index = 0;
  645. group2.cmb_ordfildcd.index = 0;
  646. group2.cmb_clamflag.index = 1;
  647. group2.cmb_ownb100.index = 0;
  648. group2.cmb_cretflag.index = 1;
  649. group2.cmb_pastdata.index = 1;
  650. var tmp_date = new Date();
  651. var tmp_year = tmp_date.getYear();
  652. var tmp_month = tmp_date.getMonth() + 1;
  653. var tmp_day = tmp_date.getDate();
  654. if(tmp_month < 10)
  655. {
  656. tmp_month = "0" + tmp_month;
  657. }
  658. if(tmp_day < 10)
  659. {
  660. tmp_day = "0" + tmp_day;
  661. }
  662. group2.ipt_clamtodd.value = tmp_year + "" + tmp_month + "" + tmp_day;
  663. group2.ipt_clamfromdd.value = tmp_year + "" + tmp_month + "" + tmp_day;
  664. group2.ipt_clamym.setData(tmp_year + "" + tmp_month);
  665. ipt_clamdg.value = '0';
  666. ds_send.setColumn(0,"weekflag", "S");
  667. ds_hidden_screen1.setColumn(0, "checkyn1", "Y");
  668. //지원금 생성 여부 : 본원은 생성 안함 ( 2019.07.19 LEJ )
  669. var instcd = sysf_getUserInfo("dutplceinstcd");
  670. if(instcd == "031")
  671. {
  672. ds_hidden_screen1.setColumn(0, "checkyn2", "");
  673. }
  674. else
  675. {
  676. ds_hidden_screen1.setColumn(0, "checkyn2", "Y");
  677. }
  678. ds_hidden_send2.setColumn(0, "instcd", sysf_getUserInfo("dutplceinstcd"));
  679. ds_hidden_send2.setColumn(0, "basedd", group2.ipt_clamfromdd.value)
  680. var oParam = {};
  681. oParam.id = "TRPID10102";
  682. oParam.service = "bfjudgapp.InHospJudg";
  683. oParam.method = "reqGetDeptList";
  684. oParam.inds = "req=ds_hidden_send2";
  685. oParam.outds = "ds_hidden_list1_dept=dept";
  686. oParam.async = false;
  687. //oParam.callback = "cf_TRPID10102";
  688. tranf_submit(oParam);
  689. if (frmf_checkOpener())
  690. {
  691. ds_send.setColumn(0,"pid", arg_ds_temp.getColumn(0,"pid"));
  692. //ds_send.setColumn(0,"indd",arg_ds_temp.getColumn(0,"indd"));
  693. }
  694. group2.ipt_clamym.setCallEvent("fn_Cal");
  695. }
  696. function fn_Cal(r)
  697. {
  698. if (g_rtrv == "Y")
  699. {
  700. ds_send.setColumn(i, "clamym", group2.ipt_clamym.getData());
  701. for (var i = 0; i < ds_main_cretlist.rowcount; i++)
  702. {
  703. ds_main_cretlist.setColumn(i, "clamym", group2.ipt_clamym.getData());
  704. }
  705. }
  706. }
  707. function CalMonth(idc, av_date)
  708. {
  709. var lv_date = String(av_date).toDate("YYYYMM" + "01");
  710. lv_date = lv_date.getAddDate(idc, "M");
  711. return lv_date.getDateFormat("YYYYMM");
  712. }
  713. function group2_cmb_ordfildcd_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
  714. {
  715. group2.cmb_orddeptcd.value = "";
  716. var ordfildcd = ds_send.getColumn(0, "ordfildcd");
  717. if ( ordfildcd == "-" )
  718. {
  719. ds_hidden_list1_dept.filter("");
  720. group3.group2.cmb_orddeptcd.index = 0;
  721. }
  722. else if (ordfildcd == "0")
  723. {
  724. ds_hidden_list1_dept.filter("reqfild != '6'");
  725. frmf_addComboItem("group2.cmb_orddeptcd", "전체" , "-");
  726. group2.cmb_orddeptcd.value = "-";
  727. }
  728. else
  729. {
  730. ds_hidden_list1_dept.filterstr = "reqfild =='" + ordfildcd + "' || utlf_isNull(reqfild)";
  731. frmf_addComboItem("group2.cmb_orddeptcd", "전체" , "-");
  732. group2.cmb_orddeptcd.value = "-";
  733. }
  734. }
  735. function group2_cmb_pastdata_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
  736. {
  737. if(g_rtrv == "Y")
  738. {
  739. for(var i = 0; i < ds_main_cretlist.rowcount; i++)
  740. {
  741. ds_main_cretlist.setColumn(i, "predata", ds_send.getColumn(0, "predata"));
  742. }
  743. }
  744. }
  745. function group2_ipt_clamfromdd_onchanged(obj:Calendar, e:ChangeEventInfo)
  746. {
  747. var fromdd = String(group2.ipt_clamfromdd.value);
  748. var todd = String(group2.ipt_clamtodd.value);
  749. if(group2.ipt_clamfromdd.value > group2.ipt_clamtodd.value)
  750. {
  751. group2.ipt_clamtodd.value = group2.ipt_clamfromdd.value
  752. }
  753. if(fromdd.substr(0,6) != todd.substr(0,6))
  754. {
  755. group2.ipt_clamtodd.value = group2.ipt_clamfromdd.value;
  756. }
  757. if(fromdd.substr(0,6) != group2.ipt_clamym.getData())
  758. {
  759. group2.ipt_clamym.setData(fromdd.substr(0,6));
  760. }
  761. ds_hidden_send2.setColumn(0, "basedd", group2.ipt_clamfromdd.value);
  762. }
  763. function group2_ipt_clamtodd_onchanged(obj:Calendar, e:ChangeEventInfo)
  764. {
  765. var fromdd = String(group2.ipt_clamfromdd.value);
  766. var todd = String(group2.ipt_clamtodd.value);
  767. if(group2.ipt_clamtodd.value < group2.ipt_clamfromdd.value)
  768. {
  769. group2.ipt_clamfromdd.value = group2.ipt_clamtodd.value;
  770. if(fromdd.substr(0,6) != group2.ipt_clamym.getData())
  771. {
  772. group2.ipt_clamym.setData(fromdd.substr(0,6));
  773. }
  774. }
  775. }
  776. //조회
  777. function group2_btn_search_onclick(obj:Button, e:ClickEventInfo)
  778. {
  779. var fromdd = ds_send.getColumn(0, "clamfromdd");
  780. var todd = ds_send.getColumn(0, "clamtodd");
  781. var fromyear = fromdd.substr(0,4);
  782. var frommonth = fromdd.substr(4,2);
  783. var fromym = fromyear+frommonth;
  784. var toyear = todd.substr(0,4);
  785. var tomonth = todd.substr(4,2);
  786. var toym = toyear+tomonth
  787. ds_send.setColumn(0, "clamym", group2.ipt_clamym.getData());
  788. ds_send.setColumn(0,"weekflag", "S");
  789. // 지원금 생성 대상 조회 유무 ( 2019.09.08 LEJ )
  790. if (ds_hidden_screen1.getColumn(0,"checkyn2") == "Y")
  791. {
  792. ds_send.setColumn(0, "proceryn", "Y");
  793. }
  794. else
  795. {
  796. ds_send.setColumn(0, "proceryn", "N");
  797. }
  798. if (fromym != toym )
  799. {
  800. alert("정산월이 동일한 경우만 동시 조회 가능합니다. 조회할 정산일자를 변경하세요");
  801. group2.ipt_clamtodd.setFocus();
  802. return false;
  803. }
  804. var oParam = {};
  805. oParam.id = "TRPID10101";
  806. oParam.service = "aftjudgapp.InClamDataCret";
  807. oParam.method = "reqGetInClamList";
  808. oParam.inds = "req=ds_send";
  809. oParam.outds = "ds_main_cretlist=cretlist";
  810. oParam.async = false;
  811. //oParam.callback = "cf_TRPID10101";
  812. tranf_submit(oParam);
  813. var row_cnt = 0;
  814. for (var i = 0; i < ds_main_cretlist.rowcount; i++)
  815. {
  816. if(ds_hidden_screen1.getColumn(0, "checkyn1") == "Y" && ds_main_cretlist.getColumn(i, "clamkey") != "-")
  817. {
  818. //ds_main_cretlist.setColumn(i, "chk", "false");
  819. continue;
  820. }
  821. if(row_cnt >= 60)
  822. {
  823. break;
  824. }
  825. ds_main_cretlist.setColumn(i, "chk", "true");
  826. row_cnt ++;
  827. }
  828. g_rtrv = "Y";
  829. }
  830. //환자조회
  831. function group2_button27_onclick(obj:Button, e:ClickEventInfo)
  832. {
  833. var ipt_pid = ds_send.getColumn(0, "pid");
  834. if (ipt_pid)
  835. {
  836. ds_hidden_sppmc02500.setColumn(0, "srchcond", "1");
  837. ds_hidden_sppmc02500.setColumn(0, "pid", ipt_pid);
  838. }
  839. else
  840. {
  841. //ds_hidden_sppmc02500.clearData();
  842. }
  843. var objArg = new Object();
  844. objArg.arg_ds_send = ds_hidden_sppmc02500;
  845. frmf_modal("SPPMC02500", "SPPMC02500", objArg, null, null, null, null, null, null, null, null, null, "M");
  846. var srch_pid = ds_patinfolist.getColumn(0, "pid");
  847. var srch_hngnm = ds_patinfolist.getColumn(0, "hngnm");
  848. if (srch_pid)
  849. {
  850. ds_patinfolist.clearData();
  851. ds_send.setColumn(0, "pid", srch_pid);
  852. ds_send.setColumn(0, "name", srch_hngnm);
  853. }
  854. }
  855. function group2_ipt_pid_onkeydown(obj:Edit, e:KeyEventInfo)
  856. {
  857. if(e.keycode == 13)
  858. {
  859. var ipt_pid = obj.value
  860. if(ipt_pid)
  861. {
  862. ds_hidden_sppmc02500.setColumn(0, "srchcond", "1");
  863. ds_hidden_sppmc02500.setColumn(0, "pid", ipt_pid);
  864. }
  865. else
  866. {
  867. ds_hidden_sppmc02500.clearData();
  868. }
  869. var objArg = new Object();
  870. objArg.arg_ds_send = ds_hidden_sppmc02500;
  871. frmf_modal("SPPMC02500", "SPPMC02500", objArg, null, null, null, null, null, null, null, null, null, "M");
  872. var srch_pid = ds_patinfolist.getColumn(0, "pid");
  873. var srch_hngnm = ds_patinfolist.getColumn(0, "hngnm");
  874. if(srch_pid)
  875. {
  876. ds_patinfolist.clearData();
  877. ds_send.setColumn(0, "pid", srch_pid);
  878. ds_send.setColumn(0, "name", srch_hngnm);
  879. }
  880. }
  881. }
  882. function grd_cretlist_onexpanddown(obj:Grid, e:GridMouseEventInfo)
  883. {
  884. var afjudgrow = ds_main_cretlist.rowposition;
  885. ds_hidden_temp.setColumn(0, "memo", ds_main_cretlist.getColumn(afjudgrow, "memo"));
  886. grp_memo.visible = true;
  887. }
  888. //생성로그확인
  889. function group3_btn_selectall_onclick(obj:Button, e:ClickEventInfo)
  890. {
  891. // var todd = utlf_getCurrentDate();
  892. // todd = todd.toDate().getAddDate(+1, 'D');
  893. // zsbfOpenBatchLogPopup('clamcretmngtmgr.ClamDataCretMain', utlf_getCurrentDate(), todd.getDateFormat());
  894. var objArg = new Object();
  895. objArg.todd = utlf_getCurrentDate();
  896. objArg.execrid = sysf_getUserId();
  897. frmf_open("SPZSB00301", "SPZSB00301", objArg, "","","","","","","","","","M");
  898. }
  899. //전체선택
  900. function Button1_onclick(obj:Button, e:ClickEventInfo)
  901. {
  902. var row_cnt = 0;
  903. for(var i = 0; i < ds_main_cretlist.rowcount; i++)
  904. {
  905. if(ds_hidden_screen1.getColumn(0, "checkyn") == "Y" && ds_main_cretlist.getColumn(i, "clamkey") != "-")
  906. {
  907. continue;
  908. }
  909. if(row_cnt >= 60)
  910. {
  911. break;
  912. }
  913. ds_main_cretlist.setColumn(i, "chk", "true");
  914. row_cnt ++ ;
  915. }
  916. }
  917. //전체선택취소
  918. function Button02_onclick(obj:Button, e:ClickEventInfo)
  919. {
  920. for(var i = 0; i < ds_main_cretlist.rowcount; i++)
  921. {
  922. ds_main_cretlist.setColumn(i, "chk", "false");
  923. }
  924. }
  925. //엑셀저장
  926. function group3_btn_excelsave_onclick(obj:Button, e:ClickEventInfo)
  927. {
  928. if (ds_main_cretlist.rowcount > 0)
  929. {
  930. grdf_exportExcel(grd_cretlist, "exportExcel", "see");
  931. }
  932. else
  933. {
  934. sysf_messageBox("엑셀저장할 내역이", "I004"); ///엑셀저장할 내역이 없습니다.
  935. }
  936. }
  937. //메모저장
  938. function grp_memo_button4_onclick(obj:Button, e:ClickEventInfo)
  939. {
  940. var aftjudgcmt = grp_memo.textarea1.value;
  941. var TotLength = utlf_getStringLength(aftjudgcmt);
  942. //trace(TotLength);
  943. if (TotLength > 4000)
  944. {
  945. sysf_messageBox("메모 내용이 너무길어 저장을 ","E001");
  946. return false;
  947. }
  948. dsf_createDsRow("ds_send_temp", [{col:"spclspec", type:"STRING", size:256, val: aftjudgcmt}
  949. , {col:"spclmemoflag", type:"STRING", size:256 ,val : "B"}
  950. , {col:"unitflag", type:"STRING", size:256 ,val : "M"}
  951. , {col:"seqno", type:"STRING", size:256 ,val : "1"}
  952. , {col:"spclcd", type:"STRING", size:256 ,val : "MX998"}
  953. , {col:"pid", type:"STRING", size:256 ,val : ds_main_cretlist.getColumn(ds_main_cretlist.rowposition, "pid")}
  954. , {col:"indd", type:"STRING", size:256 ,val : ds_main_cretlist.getColumn(ds_main_cretlist.rowposition, "indd")}
  955. , {col:"mskind", type:"STRING", size:256 ,val : ds_main_cretlist.getColumn(ds_main_cretlist.rowposition, "mskind")}
  956. , {col:"cretno", type:"STRING", size:256 ,val : ds_main_cretlist.getColumn(ds_main_cretlist.rowposition, "cretno")}
  957. , {col:"fromdd", type:"STRING", size:256 ,val : ""}
  958. , {col:"instcd", type:"STRING", size:256 ,val : ""}
  959. , {col:"lastupdtrid", type:"STRING", size:256 ,val : ""}]);
  960. var oParam = {};
  961. oParam.id = "TXPID10103";
  962. oParam.service = "aftjudgapp.InClamDataCret";
  963. oParam.method = "reqExeSaveAftMemo";
  964. oParam.inds = "req=ds_send_temp";
  965. oParam.outds = "";
  966. oParam.async = false;
  967. oParam.callback = "cf_TXPID10103";
  968. tranf_submit(oParam);
  969. }
  970. function cf_TXPID10103()
  971. {
  972. ds_main_cretlist.setColumn(ds_main_cretlist.rowposition, "memo", grp_memo.textarea1.value);
  973. grp_memo.visible = false;
  974. }
  975. function grp_memo_button5_onclick(obj:Button, e:ClickEventInfo)
  976. {
  977. grp_memo.visible = false;
  978. }
  979. //금액점검
  980. function button6_onclick(obj:Button, e:ClickEventInfo)
  981. {
  982. frmf_open("SPPID10103", "SPPID10103", null, null, null, null, null, null, null, null, null, null, "M");
  983. }
  984. //초기화
  985. function button10_onclick(obj:Button, e:ClickEventInfo)
  986. {
  987. fInitialize();
  988. }
  989. //선택생성
  990. function group3_button2_onclick(obj:Button, e:ClickEventInfo)
  991. {
  992. var row_cnt = 0;
  993. var rtrn_value = "";
  994. for (var i = 0; i < ds_main_cretlist.rowcount; i++)
  995. {
  996. if(ds_main_cretlist.getColumn(i, "chk") == "1" || ds_main_cretlist.getColumn(i, "chk") == "true")
  997. {
  998. row_cnt++;
  999. }
  1000. }
  1001. if (row_cnt == 0)
  1002. {
  1003. sysf_messageBox("선택된 환자가 없어 작업", "E001");
  1004. return;
  1005. }
  1006. if (row_cnt > 60)
  1007. {
  1008. sysf_messageBox("선택된 환자가 60건이 넘어 작업", "E001");
  1009. return;
  1010. }
  1011. rtrn_value = sysf_messageBox("해당 조건으로 일괄 생성을 ", "S004");
  1012. if (rtrn_value == "6")
  1013. {
  1014. ds_main_cretlist.filterstr = "chk == '1' || chk == 'true'";
  1015. var aaa = ds_temp.copyData(ds_main_cretlist, true);
  1016. ds_main_cretlist.filterstr = "";
  1017. var oParam = {};
  1018. oParam.id = "TXPID10101";
  1019. oParam.service = "aftjudgapp.InClamDataCret";
  1020. oParam.method = "reqExeClamDataCret";
  1021. oParam.inds = "req=ds_temp";
  1022. oParam.outds = "";
  1023. oParam.async = false;
  1024. //oParam.callback = "cf_TXPID10101";
  1025. tranf_submit(oParam);
  1026. // 생성로그확인 자동호출
  1027. group3_btn_selectall_onclick();
  1028. }
  1029. }
  1030. //전체생성
  1031. function group3_button3_onclick(obj:Button, e:ClickEventInfo)
  1032. {
  1033. ipt_clamdg.updateToDataset();
  1034. var rtrn_value = "";
  1035. var row_cnt = 0;
  1036. if (g_rtrv != "Y")
  1037. {
  1038. sysf_messageBox("조회를 먼저 하신후에 ", "I006");
  1039. return;
  1040. }
  1041. rtrn_value = sysf_messageBox("해당 조건으로 일괄 생성을 ", "S004");
  1042. if (rtrn_value == "6")
  1043. {
  1044. ds_send.setColumn(0, "weekflag", "T");
  1045. ds_send.setColumn(0, "chk", "true");
  1046. ds_send.setColumn(0, "ioflag", "I");
  1047. // 지원금 생성 대상 조회 유무 ( 2019.09.08 LEJ )
  1048. if (ds_hidden_screen1.getColumn(0,"checkyn2") == "Y")
  1049. {
  1050. ds_send.setColumn(0, "proceryn", "Y");
  1051. }
  1052. else
  1053. {
  1054. ds_send.setColumn(0, "proceryn", "N");
  1055. }
  1056. var oParam = {};
  1057. oParam.id = "TXPID10102";
  1058. oParam.service = "aftjudgapp.InClamDataCret";
  1059. oParam.method = "reqExeClamDataCret";
  1060. oParam.inds = "req=ds_send";
  1061. oParam.outds = "";
  1062. oParam.async = false;
  1063. //oParam.callback = "cf_TXPID10102";
  1064. tranf_submit(oParam);
  1065. group3_btn_selectall_onclick();
  1066. }
  1067. }
  1068. function ipt_clamdg_ontextchanged(obj:Edit, e:TextChangedEventInfo)
  1069. {
  1070. if(g_rtrv == "Y")
  1071. {
  1072. for(var i = 0; i < ds_main_cretlist.rowcount; i++)
  1073. {
  1074. ds_main_cretlist.setColumn(i, "clamdg", obj.value);
  1075. }
  1076. }
  1077. }
  1078. function ipt_clamym_onchanged(obj:Calendar, e:ChangeEventInfo)
  1079. {
  1080. if (g_rtrv == "Y")
  1081. {
  1082. for (var i = 0; i < ds_main_cretlist.rowcount; i++)
  1083. {
  1084. ds_main_cretlist.setColumn(i, "clamym", ds_send.getColumn(0, "clamym"));
  1085. }
  1086. }
  1087. }
  1088. function button_down_onclick(obj:Button, e:ClickEventInfo)
  1089. {
  1090. var clamym = group2.ipt_clamym.getData();
  1091. group2.ipt_clamym.setData(CalMonth(-1, clamym));
  1092. if (g_rtrv == "Y")
  1093. {
  1094. for (var i = 0; i < ds_main_cretlist.rowcount; i++)
  1095. {
  1096. ds_main_cretlist.setColumn(i, "clamym", clamym);
  1097. }
  1098. }
  1099. }
  1100. function button_up_onclick(obj:Button, e:ClickEventInfo)
  1101. {
  1102. var clamym = group2.ipt_clamym.getData();
  1103. group2.ipt_clamym.setData(CalMonth(1, clamym));
  1104. if (g_rtrv == "Y")
  1105. {
  1106. for (var i = 0; i < ds_main_cretlist.rowcount; i++)
  1107. {
  1108. ds_main_cretlist.setColumn(i, "clamym", clamym);
  1109. }
  1110. }
  1111. }
  1112. function ds_main_cretlist_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
  1113. {
  1114. if( e.columnid == "chk" ){
  1115. obj.setColumn(e.row, "chk", (e.newvalue == "true" || e.newvalue == 1) ? "true" : "false");
  1116. }
  1117. }
  1118. function ipt_clamdg_oneditclick(obj:Edit, e:EditClickEventInfo)
  1119. {
  1120. }
  1121. ]]></Script>
  1122. </Form>
  1123. </FDL>