SMPAM00600_미수금환자내역관리.xfdl 49 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055
  1. <?xml version="1.0" encoding="utf-8"?>
  2. <FDL version="1.5">
  3. <TypeDefinition url="..\..\..\default_typedef.xml"/>
  4. <Form id="SMPAM00600" position="absolute 0 0 1211 665" titletext="미수금환자내역관리" onload="SMPAM00600_onload" oninit="SMPAM00600_oninit">
  5. <Layouts>
  6. <Layout>
  7. <Div position="absolute 0 25 1195 65" id="grp" class="div_SA" anchor="left top right">
  8. <Layouts>
  9. <Layout width="1200" height="37">
  10. <Button position="absolute 1125 9 1181 31" id="btn_search" class="btn1" text="조회" onclick="grp_btn_search_onclick" anchor="top right"/>
  11. <Shape position="absolute 1112 9 1118 31" linetype="vertical" id="line1" class="line_4" visible="true" anchor="top right"/>
  12. <Static text="등록번호" position="absolute 10 12 88 29" id="caption4" class="search_name"/>
  13. <Edit position="absolute 90 11 190 30" id="ipt_pid" onkeydown="grp_ipt_pid_onkeydown" autoselect="true"/>
  14. <Button position="absolute 375 12 391 28" id="btn_pid" class="icon_search" text="" onclick="grp_btn_pid_onclick"/>
  15. <Edit readonly="true" position="absolute 269 11 314 30" id="ipt_rrgstno1" style="background:URL('theme://images/bg_edit_R.png') stretch 5,5;" enable="false"/>
  16. <Edit readonly="true" position="absolute 316 11 371 30" id="ipt_rrgstno2" style="background:URL('theme://images/bg_edit_R.png') stretch 5,5;" enable="false"/>
  17. <Static text="미수구분" position="absolute 420 12 510 29" id="caption2" class="search_name"/>
  18. <Calendar position="absolute 707 11 792 30" id="fromdd" dateformat="yyyy-MM-dd" value="null" autoselect="true" autoskip="true"/>
  19. <Static text="진료일자" position="absolute 630 12 732 29" id="caption1" class="search_name"/>
  20. <Combo position="absolute 500 11 600 30" id="cmd_uncocd" innerdataset="@ds_init_uncocd" datacolumn="nm" codecolumn="cd"/>
  21. <Edit position="absolute 204 11 266 30" id="ipt_hngnm" onkeydown="grp_input2_onkeydown" autoselect="true"/>
  22. <Button id="btn_hngnm" taborder="1" text="11" class="btn2_letter2" visible="false" position="absolute 987 9 1029 28" onclick="grp_btn_hngnm_onclick"/>
  23. <Calendar id="todd" taborder="2" autoselect="true" autoskip="true" dateformat="yyyy-MM-dd" position="absolute 808 11 893 30"/>
  24. </Layout>
  25. </Layouts>
  26. </Div>
  27. <Shape position="absolute 0 95 1195 101" linetype="horizontal" id="line3" class="line_1" style="strokepen:3 solid #33bbbbff;" anchor="left top right"/>
  28. <Static text="환자내역" position="absolute 0 76 160 95" id="caption6" class="tit_2"/>
  29. <Button position="absolute 1128 72 1196 92" id="btn_save" class="btn5" text="선택저장" anchor="right bottom" onclick="btn_save_onclick"/>
  30. <Grid position="absolute 0 100 1195 652" align="align:center middle;" id="grd_uncolist" binddataset="ds_list_unco_uncolist" anchor="all" autoenter="select" cellsizingtype="col" oncelldblclick="grd_uncolist_oncelldblclick">
  31. <Formats>
  32. <Format id="default">
  33. <Columns>
  34. <Column size="0"/>
  35. <Column size="40"/>
  36. <Column size="60"/>
  37. <Column size="85"/>
  38. <Column size="65"/>
  39. <Column size="95"/>
  40. <Column size="70"/>
  41. <Column size="70"/>
  42. <Column size="70"/>
  43. <Column size="95"/>
  44. <Column size="95"/>
  45. <Column size="95"/>
  46. <Column size="95"/>
  47. <Column size="95"/>
  48. <Column size="95"/>
  49. <Column size="95"/>
  50. <Column size="65"/>
  51. <Column size="95"/>
  52. <Column size="95"/>
  53. <Column size="95"/>
  54. <Column size="95"/>
  55. <Column size="95"/>
  56. <Column size="95"/>
  57. <Column size="95"/>
  58. <Column size="100"/>
  59. <Column size="95"/>
  60. </Columns>
  61. <Rows>
  62. <Row size="24" band="head"/>
  63. <Row size="24"/>
  64. </Rows>
  65. <Band id="head">
  66. <Cell/>
  67. <Cell col="1" text="선택"/>
  68. <Cell col="2" text="진료구분"/>
  69. <Cell col="3" text="등록번호"/>
  70. <Cell col="4" text="성명"/>
  71. <Cell col="5" text="진료일자"/>
  72. <Cell col="6" text="종결구분"/>
  73. <Cell col="7" text="유선연락"/>
  74. <Cell col="8" text="SMS"/>
  75. <Cell col="9" text="진료비안내서"/>
  76. <Cell col="10" text="진료비통보서"/>
  77. <Cell col="11" text="독촉장"/>
  78. <Cell col="12" text="최고장"/>
  79. <Cell col="13" text="연락처"/>
  80. <Cell col="14" text="진료부서"/>
  81. <Cell col="15" text="수납자"/>
  82. <Cell col="16" text="미수코드"/>
  83. <Cell col="17" text="미수명"/>
  84. <Cell col="18" text="보험유형"/>
  85. <Cell col="19" text="보조유형"/>
  86. <Cell col="20" text="미수금액"/>
  87. <Cell col="21" text="입금액"/>
  88. <Cell col="22" text="잔액"/>
  89. <Cell col="23" text="영수번호"/>
  90. <Cell col="24" text="환자참고사항"/>
  91. <Cell col="25" text="비고"/>
  92. </Band>
  93. <Band id="body">
  94. <Cell/>
  95. <Cell col="1" displaytype="checkbox" edittype="checkbox" style="background:BIND(dialysisBg);background2:BIND(dialysisBg);selectbackground:BIND(dialysisBg);" text="bind:chck" expr="expr:(chck == 'true' || chck == '1') ? 1 : 0"/>
  96. <Cell col="2" style="background:EXPR(suppkindnm == '소계' ? '#99ff99' : '');background2:EXPR(suppkindnm == '소계' ? '#99ff99' : '');" text="bind:ordtype"/>
  97. <Cell col="3" style="background:EXPR(suppkindnm == '소계' ? '#99ff99' : '');background2:EXPR(suppkindnm == '소계' ? '#99ff99' : '');" text="bind:pid"/>
  98. <Cell col="4" style="background:EXPR(suppkindnm == '소계' ? '#99ff99' : '');background2:EXPR(suppkindnm == '소계' ? '#99ff99' : '');" text="bind:hngnm"/>
  99. <Cell col="5" style="background:EXPR(suppkindnm == '소계' ? '#99ff99' : '');background2:EXPR(suppkindnm == '소계' ? '#99ff99' : '');" text="bind:orddd"/>
  100. <Cell col="6" displaytype="combo" edittype="combo" style="align:center middle;background:EXPR('#' + bg1);background2:EXPR('#' + bg1);selectbackground:EXPR('#' + bg1);" text="bind:endyn" editautoskip="true" editacceptsenter="true" editacceptstab="true" editacceptsdirectionkey="true" combodataset="ds_init_endyn" combocodecol="value" combodatacol="label"/>
  101. <Cell col="7" displaytype="combo" edittype="combo" style="align:center middle;background:EXPR('#' + bg1);background2:EXPR('#' + bg1);selectbackground:EXPR('#' + bg1);" text="bind:callyn" editautoskip="true" editacceptsenter="true" editacceptstab="true" editacceptsdirectionkey="true" combodataset="ds_init_callyn" combocodecol="value" combodatacol="label"/>
  102. <Cell col="8" displaytype="combo" edittype="combo" style="align:center middle;background:EXPR('#' + bg1);background2:EXPR('#' + bg1);selectbackground:EXPR('#' + bg1);" text="bind:smstrsmyn" editautoskip="true" editacceptsenter="true" editacceptstab="true" editacceptsdirectionkey="true" combodataset="ds_init_smstrsmyn" combocodecol="value" combodatacol="label"/>
  103. <Cell col="9" style="background:EXPR(suppkindnm == '소계' ? '#99ff99' : '');background2:EXPR(suppkindnm == '소계' ? '#99ff99' : '');" text="bind:calc1"/>
  104. <Cell col="10" style="background:EXPR(suppkindnm == '소계' ? '#99ff99' : '');background2:EXPR(suppkindnm == '소계' ? '#99ff99' : '');" text="bind:calc2"/>
  105. <Cell col="11" style="background:EXPR(suppkindnm == '소계' ? '#99ff99' : '');background2:EXPR(suppkindnm == '소계' ? '#99ff99' : '');" text="bind:remindyn"/>
  106. <Cell col="12" style="background:EXPR(suppkindnm == '소계' ? '#99ff99' : '');background2:EXPR(suppkindnm == '소계' ? '#99ff99' : '');" text="bind:lastyn"/>
  107. <Cell col="13" style="background:EXPR(suppkindnm == '소계' ? '#99ff99' : '');background2:EXPR(suppkindnm == '소계' ? '#99ff99' : '');" text="bind:mpphontel" mask="###-####-####" maskchar=" "/>
  108. <Cell col="14" style="background:EXPR(suppkindnm == '소계' ? '#99ff99' : '');background2:EXPR(suppkindnm == '소계' ? '#99ff99' : '');" text="bind:orddeptnm"/>
  109. <Cell col="15" displaytype="number" style="align:right middle;background:EXPR(suppkindnm == '소계' ? '#99ff99' : '');background2:EXPR(suppkindnm == '소계' ? '#99ff99' : '');" text="bind:rcptrid"/>
  110. <Cell col="16" displaytype="number" style="align:right middle;background:EXPR(suppkindnm == '소계' ? '#99ff99' : '');background2:EXPR(suppkindnm == '소계' ? '#99ff99' : '');" text="bind:uncocd"/>
  111. <Cell col="17" displaytype="number" style="align:right middle;background:EXPR(suppkindnm == '소계' ? '#99ff99' : '');background2:EXPR(suppkindnm == '소계' ? '#99ff99' : '');" text="bind:unconm"/>
  112. <Cell col="18" displaytype="number" style="align:right middle;background:EXPR(suppkindnm == '소계' ? '#99ff99' : '');background2:EXPR(suppkindnm == '소계' ? '#99ff99' : '');" text="bind:insukind"/>
  113. <Cell col="19" displaytype="number" style="background:EXPR(suppkindnm == '소계' ? '#99ff99' : '');background2:EXPR(suppkindnm == '소계' ? '#99ff99' : '');" text="bind:suppkind"/>
  114. <Cell col="20" displaytype="number" text="bind:uncoamt"/>
  115. <Cell col="21" displaytype="number" style="background:EXPR(suppkindnm == '소계' ? '#99ff99' : '');background2:EXPR(suppkindnm == '소계' ? '#99ff99' : '');" text="bind:rcptamt"/>
  116. <Cell col="22" displaytype="number" style="background:EXPR(suppkindnm == '소계' ? '#99ff99' : '');background2:EXPR(suppkindnm == '소계' ? '#99ff99' : '');" text="bind:sumamt"/>
  117. <Cell col="23" style="background:EXPR(suppkindnm == '소계' ? '#99ff99' : '');background2:EXPR(suppkindnm == '소계' ? '#99ff99' : '');" text="bind:rcptno"/>
  118. <Cell col="24" style="background:EXPR(suppkindnm == '소계' ? '#99ff99' : '');background2:EXPR(suppkindnm == '소계' ? '#99ff99' : '');" text="bind:patremfact"/>
  119. <Cell col="25" style="background:EXPR(suppkindnm == '소계' ? '#99ff99' : '');background2:EXPR(suppkindnm == '소계' ? '#99ff99' : '');" text="bind:etc"/>
  120. </Band>
  121. </Format>
  122. </Formats>
  123. </Grid>
  124. <Static id="caption60" text="미수금환자내역관리" class="tit_1" position="absolute 0 0 159 25"/>
  125. </Layout>
  126. </Layouts>
  127. <Objects>
  128. <Dataset id="ds_init_uncocd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  129. <Dataset id="ds_paminit_P6584list_P6584" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  130. <Dataset id="ds_init_com_comncdlist_P0072list_P0072" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  131. <Dataset id="ds_init_com_comncdlist_P0001list_P0001" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  132. <Dataset id="ds_init_com_comncdlist_P0311list_P0311" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  133. <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  134. <ColumnInfo>
  135. <Column id="pid" type="STRING" size="256"/>
  136. <Column id="fromdd" type="STRING" size="256"/>
  137. <Column id="todd" type="STRING" size="256"/>
  138. <Column id="uncocd" type="STRING" size="256"/>
  139. <Column id="phoneflag" type="STRING" size="256"/>
  140. </ColumnInfo>
  141. <Rows>
  142. <Row>
  143. <Col id="pid"/>
  144. <Col id="fromdd"/>
  145. <Col id="todd"/>
  146. <Col id="uncocd"/>
  147. <Col id="phoneflag"/>
  148. </Row>
  149. </Rows>
  150. </Dataset>
  151. <Dataset id="ds_save_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  152. <ColumnInfo>
  153. <Column id="pid" type="STRING" size="256"/>
  154. <Column id="fromdd" type="STRING" size="256"/>
  155. <Column id="todd" type="STRING" size="256"/>
  156. <Column id="uncocd" type="STRING" size="256"/>
  157. <Column id="phoneflag" type="STRING" size="256"/>
  158. <Column id="orddd" type="STRING" size="256"/>
  159. <Column id="rcptno" type="STRING" size="256"/>
  160. <Column id="cretno" type="STRING" size="256"/>
  161. <Column id="endyn" type="STRING" size="256"/>
  162. <Column id="callyn" type="STRING" size="256"/>
  163. <Column id="smstrsmyn" type="STRING" size="256"/>
  164. </ColumnInfo>
  165. <Rows>
  166. <Row>
  167. <Col id="pid"/>
  168. <Col id="fromdd"/>
  169. <Col id="todd"/>
  170. <Col id="uncocd"/>
  171. <Col id="phoneflag"/>
  172. <Col id="orddd"/>
  173. <Col id="rcptno"/>
  174. <Col id="cretno"/>
  175. <Col id="endyn"/>
  176. <Col id="callyn"/>
  177. <Col id="smstrsmyn"/>
  178. </Row>
  179. </Rows>
  180. </Dataset>
  181. <Dataset id="ds_cmb_ordtype" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  182. <ColumnInfo>
  183. <Column id="label" type="STRING" size="256"/>
  184. <Column id="value" type="STRING" size="256"/>
  185. </ColumnInfo>
  186. <Rows>
  187. <Row>
  188. <Col id="label">외래</Col>
  189. <Col id="value">O</Col>
  190. </Row>
  191. <Row>
  192. <Col id="label">입원</Col>
  193. <Col id="value">I</Col>
  194. </Row>
  195. <Row>
  196. <Col id="label">응급</Col>
  197. <Col id="value">E</Col>
  198. </Row>
  199. </Rows>
  200. </Dataset>
  201. <Dataset id="ds_main_patinfolist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  202. <ColumnInfo>
  203. <Column id="pid" type="STRING" size="256"/>
  204. <Column id="hngnm" type="STRING" size="256"/>
  205. <Column id="engnm" type="STRING" size="256"/>
  206. <Column id="chinm" type="STRING" size="256"/>
  207. <Column id="rrgstno1" type="STRING" size="256"/>
  208. <Column id="rrgstno2" type="STRING" size="256"/>
  209. <Column id="brthdd" type="STRING" size="256"/>
  210. <Column id="sex" type="STRING" size="256"/>
  211. <Column id="age" type="STRING" size="256"/>
  212. <Column id="bindpid" type="STRING" size="256"/>
  213. <Column id="hometel" type="STRING" size="256"/>
  214. <Column id="mpphontel" type="STRING" size="256"/>
  215. <Column id="etctel1" type="STRING" size="256"/>
  216. <Column id="etctel2" type="STRING" size="256"/>
  217. <Column id="smsaprvyn" type="STRING" size="256"/>
  218. <Column id="email" type="STRING" size="256"/>
  219. <Column id="zipcd1" type="STRING" size="256"/>
  220. <Column id="zipcd2" type="STRING" size="256"/>
  221. <Column id="zipcdseq" type="STRING" size="256"/>
  222. <Column id="addr" type="STRING" size="256"/>
  223. <Column id="detladdr" type="STRING" size="256"/>
  224. <Column id="recmyn" type="STRING" size="256"/>
  225. <Column id="recmerid" type="STRING" size="256"/>
  226. <Column id="recmerrela" type="STRING" size="256"/>
  227. <Column id="vipyn" type="STRING" size="256"/>
  228. <Column id="viprem" type="STRING" size="256"/>
  229. <Column id="forgeryn" type="STRING" size="256"/>
  230. </ColumnInfo>
  231. <Rows>
  232. <Row/>
  233. </Rows>
  234. </Dataset>
  235. <Dataset id="ds_root_source" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  236. <ColumnInfo>
  237. <Column id="srchcond" type="STRING" size="256"/>
  238. <Column id="pid" type="STRING" size="256"/>
  239. <Column id="hngnm" type="STRING" size="256"/>
  240. <Column id="rrgstno1" type="STRING" size="256"/>
  241. <Column id="rrgstno2" type="STRING" size="256"/>
  242. </ColumnInfo>
  243. <Rows>
  244. <Row/>
  245. </Rows>
  246. </Dataset>
  247. <Dataset id="ds_list_unco_uncolist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  248. <ColumnInfo>
  249. <Column id="ordtype" type="STRING" size="256"/>
  250. <Column id="pid" type="STRING" size="256"/>
  251. <Column id="hngnm" type="STRING" size="256"/>
  252. <Column id="orddd" type="STRING" size="256"/>
  253. <Column id="endyn" type="STRING" size="256"/>
  254. <Column id="callyn" type="STRING" size="256"/>
  255. <Column id="smstrsmyn" type="STRING" size="256"/>
  256. <Column id="calc1" type="STRING" size="256"/>
  257. <Column id="calc2" type="STRING" size="256"/>
  258. <Column id="remindyn" type="STRING" size="256"/>
  259. <Column id="lastyn" type="STRING" size="256"/>
  260. <Column id="mpphontel" type="STRING" size="256"/>
  261. <Column id="orddeptnm" type="STRING" size="256"/>
  262. <Column id="rcptrid" type="STRING" size="256"/>
  263. <Column id="uncocd" type="STRING" size="256"/>
  264. <Column id="unconm" type="STRING" size="256"/>
  265. <Column id="insukind" type="STRING" size="256"/>
  266. <Column id="suppkind" type="STRING" size="256"/>
  267. <Column id="uncoamt" type="STRING" size="256"/>
  268. <Column id="rcptamt" type="STRING" size="256"/>
  269. <Column id="sumamt" type="STRING" size="256"/>
  270. <Column id="rcptno" type="STRING" size="256"/>
  271. <Column id="patremfact" type="STRING" size="256"/>
  272. <Column id="etc" type="STRING" size="256"/>
  273. <Column id="zipaddr" type="STRING" size="256"/>
  274. <Column id="zipcd" type="STRING" size="256"/>
  275. <Column id="chck" type="STRING" size="256"/>
  276. </ColumnInfo>
  277. </Dataset>
  278. <Dataset id="ds_hidden_urgereport" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  279. <ColumnInfo>
  280. <Column id="law" type="STRING" size="256" sumtext="소송비"/>
  281. <Column id="intr" type="STRING" size="256" sumtext="이자"/>
  282. <Column id="intrtodd" type="STRING" size="256" sumtext="이자종료일"/>
  283. </ColumnInfo>
  284. </Dataset>
  285. <Dataset id="ds_temp_printinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  286. <ColumnInfo>
  287. <Column id="pid" type="STRING" size="256"/>
  288. <Column id="hngnm" type="STRING" size="256"/>
  289. <Column id="addr" type="STRING" size="256"/>
  290. <Column id="orddd" type="STRING" size="256"/>
  291. <Column id="detladdr" type="STRING" size="256"/>
  292. <Column id="orddeptnm" type="STRING" size="256"/>
  293. <Column id="yyyy" type="STRING" size="256"/>
  294. <Column id="mm" type="STRING" size="256"/>
  295. <Column id="dd" type="STRING" size="256"/>
  296. <Column id="totamt" type="STRING" size="256"/>
  297. <Column id="totamtkor" type="STRING" size="256"/>
  298. <Column id="uncoamt" type="STRING" size="256"/>
  299. <Column id="uncorem" type="STRING" size="256"/>
  300. </ColumnInfo>
  301. <Rows>
  302. <Row/>
  303. </Rows>
  304. </Dataset>
  305. <Dataset id="ds_phone_phdata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  306. <ColumnInfo>
  307. <Column id="pnum" type="STRING" size="256" sumtext="전화번호"/>
  308. <Column id="bankno" type="STRING" size="256" sumtext="전화번호"/>
  309. <Column id="koraddr" type="STRING" size="256" sumtext="전화번호"/>
  310. <Column id="engaddr" type="STRING" size="256" sumtext="전화번호"/>
  311. <Column id="hospnm" type="STRING" size="256" sumtext="전화번호"/>
  312. <Column id="pnum" type="STRING" size="256" sumtext="전화번호"/>
  313. <Column id="subremfact" type="STRING" size="256" sumtext="전화번호"/>
  314. </ColumnInfo>
  315. </Dataset>
  316. <Dataset id="ds_temp_detail_ordpaydemand" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  317. <ColumnInfo>
  318. <Column id="instcd" type="STRING" size="256"/>
  319. <Column id="phone" type="STRING" size="256"/>
  320. <Column id="bankno" type="STRING" size="256"/>
  321. <Column id="koraddr" type="STRING" size="256"/>
  322. <Column id="engaddr" type="STRING" size="256"/>
  323. <Column id="hospnm" type="STRING" size="256"/>
  324. <Column id="remfact" type="STRING" size="256"/>
  325. <Column id="subremfact" type="STRING" size="256"/>
  326. </ColumnInfo>
  327. <Rows>
  328. <Row>
  329. <Col id="instcd"/>
  330. <Col id="phone"/>
  331. <Col id="bankno"/>
  332. <Col id="koraddr"/>
  333. <Col id="engaddr"/>
  334. <Col id="hospnm"/>
  335. <Col id="remfact"/>
  336. <Col id="subremfact"/>
  337. </Row>
  338. </Rows>
  339. </Dataset>
  340. <Dataset id="ds_send_updatedata_datalist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_list_detail_ordpaydemand_oncolumnchanged">
  341. <ColumnInfo>
  342. <Column id="check" type="STRING" size="256" sumtext="체크"/>
  343. <Column id="issflag" type="STRING" size="256" sumtext="출력구분"/>
  344. <Column id="issdt" type="STRING" size="256" sumtext="시행일자"/>
  345. <Column id="isscnt" type="STRING" size="256" sumtext="시행일자"/>
  346. <Column id="remfact" type="STRING" size="256" sumtext="비고"/>
  347. <Column id="pid" type="STRING" size="256" sumtext="비고"/>
  348. <Column id="rcptdd" type="STRING" size="256" sumtext="비고"/>
  349. <Column id="rcptno" type="STRING" size="256" sumtext="비고"/>
  350. <Column id="orddd" type="STRING" size="256" sumtext="비고"/>
  351. <Column id="cretno" type="STRING" size="256" sumtext="비고"/>
  352. <Column id="endyn" type="STRING" size="256" sumtext="비고"/>
  353. <Column id="seqno" type="STRING" size="256" sumtext="비고"/>
  354. <Column id="instcd" type="STRING" size="256" sumtext="기관코드"/>
  355. <Column id="bankno" type="STRING" size="256" sumtext="계좌번호"/>
  356. <Column id="koraddr" type="STRING" size="256" sumtext="한글주소"/>
  357. <Column id="engaddr" type="STRING" size="256" sumtext="영문주소"/>
  358. <Column id="hospnm" type="STRING" size="256" sumtext="병원명"/>
  359. <Column id="subremfact" type="STRING" size="256" sumtext="비고2"/>
  360. <Column id="phone" type="STRING" size="256" sumtext="전화번호"/>
  361. <Column id="status" type="STRING" size="256" sumtext="상태값"/>
  362. </ColumnInfo>
  363. </Dataset>
  364. <Dataset id="ds_init_endyn" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  365. <ColumnInfo>
  366. <Column id="label" type="STRING" size="256"/>
  367. <Column id="value" type="STRING" size="256"/>
  368. </ColumnInfo>
  369. <Rows>
  370. <Row>
  371. <Col id="label">종결</Col>
  372. <Col id="value">Y</Col>
  373. </Row>
  374. <Row>
  375. <Col id="label">미결</Col>
  376. <Col id="value">N</Col>
  377. </Row>
  378. </Rows>
  379. </Dataset>
  380. <Dataset id="ds_init_callyn" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  381. <ColumnInfo>
  382. <Column id="label" type="STRING" size="256"/>
  383. <Column id="value" type="STRING" size="256"/>
  384. </ColumnInfo>
  385. <Rows>
  386. <Row>
  387. <Col id="label">O</Col>
  388. <Col id="value">Y</Col>
  389. </Row>
  390. <Row>
  391. <Col id="label">X</Col>
  392. <Col id="value">N</Col>
  393. </Row>
  394. </Rows>
  395. </Dataset>
  396. <Dataset id="ds_init_smstrsmyn" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  397. <ColumnInfo>
  398. <Column id="label" type="STRING" size="256"/>
  399. <Column id="value" type="STRING" size="256"/>
  400. </ColumnInfo>
  401. <Rows>
  402. <Row>
  403. <Col id="label">O</Col>
  404. <Col id="value">Y</Col>
  405. </Row>
  406. <Row>
  407. <Col id="label">X</Col>
  408. <Col id="value">N</Col>
  409. </Row>
  410. </Rows>
  411. </Dataset>
  412. </Objects>
  413. <Bind>
  414. <BindItem id="item1" compid="grp.cmd_uncocd" propid="value" datasetid="ds_send" columnid="uncocd"/>
  415. <BindItem id="item2" compid="grp.fromdd" propid="value" datasetid="ds_send" columnid="fromdd"/>
  416. <BindItem id="item3" compid="grp.todd" propid="value" datasetid="ds_send" columnid="todd"/>
  417. <BindItem id="item11" compid="grp.ipt_pid" propid="value" datasetid="ds_main_patinfolist" columnid="pid"/>
  418. <BindItem id="item12" compid="grp.ipt_hngnm" propid="value" datasetid="ds_main_patinfolist" columnid="hngnm"/>
  419. <BindItem id="item13" compid="grp.ipt_rrgstno1" propid="value" datasetid="ds_main_patinfolist" columnid="rrgstno1"/>
  420. <BindItem id="item14" compid="grp.ipt_rrgstno2" propid="value" datasetid="ds_main_patinfolist" columnid="rrgstno2"/>
  421. </Bind>
  422. <Script type="xscript4.0"><![CDATA[/***************************************************************************************
  423. * System Name :
  424. * Job Name :
  425. * Creator :
  426. * Make Date : 2016-05-24
  427. * Description :
  428. *---------------------------------------------------------------------------------------
  429. * Modify Date Modifier Modify Description
  430. *---------------------------------------------------------------------------------------
  431. * 2016-05-24 Live Converter TF->XP
  432. *
  433. *---------------------------------------------------------------------------------------
  434. ****************************************************************************************/
  435. include 'com_commonxp::comm_main.xjs';
  436. include 'pam_pamcomnxp::PAM.xjs';
  437. include 'pam_pamcomnxp::PAM001.xjs';
  438. var arErrorCode = new HashArray();
  439. var checkall = 'N';
  440. var printpat = '';
  441. //=======================================================================================
  442. // callback
  443. //---------------------------------------------------------------------------------------
  444. function cf_callback(sSvcId, nErrorCode, sErrorMsg)
  445. {
  446. arErrorCode.push(sSvcId, nErrorCode);
  447. }
  448. function SMPAM00600_oninit(obj:Form, e:InitEventInfo)
  449. {
  450. // 폼 초기화
  451. frmf_initForm(obj);
  452. }
  453. function SMPAM00600_onload(obj:Form, e:LoadEventInfo)
  454. {
  455. grdf_initGrid(grd_uncolist);
  456. // 기초코드 조회(보험,감면,진료과,공통코드)
  457. fSetCodeList();
  458. ds_send.setColumn(0,"fromdd",utlf_getCurrentDate());
  459. ds_send.setColumn(0,"todd",utlf_getCurrentDate());
  460. frmf_addComboItem('grp.cmd_uncocd', '- 전 체 -', '', 'above');
  461. }
  462. function fSetCodeList()
  463. {
  464. // 공통코드
  465. var arrParam = [{dsNm: "ds_init_com_comncdlist_P0072list_P0072", cdGrpId: "P0072"}
  466. ,{dsNm: "ds_init_com_comncdlist_P0001list_P0001", cdGrpId: "P0001"}
  467. ,{dsNm: "ds_init_com_comncdlist_P0311list_P0311", cdGrpId: "P0311"}]
  468. appf_getCodeList(arrParam);
  469. if (ds_init_com_comncdlist_P0072list_P0072.rowcount == 0)
  470. {
  471. ds_init_com_comncdlist_P0072list_P0072.addRow();
  472. ds_init_com_comncdlist_P0072list_P0072.setColumn(0, "cdnm","-");
  473. ds_init_com_comncdlist_P0072list_P0072.setColumn(0, "cdid","-");
  474. }
  475. if (ds_init_com_comncdlist_P0001list_P0001.rowcount == 0)
  476. {
  477. ds_init_com_comncdlist_P0001list_P0001.addRow();
  478. ds_init_com_comncdlist_P0001list_P0001.setColumn(0, "cdnm","전체");
  479. ds_init_com_comncdlist_P0001list_P0001.setColumn(0, "cdid","-");
  480. }
  481. //원무사용 기초코드 조회(진료과,의사,할인,미수코드)
  482. dsf_createDs("ds_req");
  483. ds_req.addColumn("sess_posinstcd", "string");
  484. var oParam = {};
  485. oParam.id = "TRPAMCOM01";
  486. oParam.service = "pamcomnapp.PamComn";
  487. oParam.method = "reqGetComCD";
  488. oParam.inds = "req=ds_req";
  489. oParam.outds = "ds_=disccd ds_=insukind ds_=suppkind ds_=orddeptcd ds_=orddrid ds_=reducd ds_init_uncocd=uncocd ds_=proccd ds_=subjno ds_=rcptflag";
  490. oParam.async = false;
  491. //oParam.callback = "cf_TRPAMCOM01";
  492. tranf_submit(oParam);
  493. // 원무 공통코드 조회
  494. var arrParam = new Array();
  495. arrParam = [{dsNm: "ds_paminit_P6584list_P6584", cdGrpId: "P6584", showValue: false}];
  496. pamfGetCodeList(arrParam, true, "");
  497. }
  498. function grp_btn_search_onclick(obj:Button, e:ClickEventInfo)
  499. {
  500. /*
  501. if(utlf_transNullToEmpty(ds_main_patinfolist.getColumn(0, 'pid')) == '')
  502. {
  503. sysf_messageBox('환자번호를 입력하세요!!', 'E999');
  504. return false;
  505. }*/
  506. var fromdd = ds_send.getColumn(0, "fromdd");
  507. var todd = ds_send.getColumn(0, "todd");
  508. ds_send.setColumn(0,"pid",ds_main_patinfolist.getColumn(0,"pid"));
  509. var tempdd = todd.toDate().getAddDate(-7, "D").getDateFormat("YYYYMMDD");
  510. /*
  511. if (fromdd < tempdd) {
  512. sysf_messageBox("7일 이내만 조회 가능합니다.", "I999", "");
  513. return;
  514. }*/
  515. var oParam = {};
  516. oParam.id = "TRPAM00102";
  517. oParam.service = "uncoamtmngtapp.UncoAmtMngt";
  518. oParam.method = "reqGetPatUncolist";
  519. oParam.inds = "req=ds_send";
  520. oParam.outds = "ds_list_unco_uncolist=uncolist";
  521. oParam.async = false;
  522. tranf_submit(oParam);
  523. //ds_list_unco_uncolist.addColumn("check", "string");
  524. //ds_list_unco_uncolist.rowposition = -1;
  525. }
  526. function fClear()
  527. {
  528. ds_main_patinfolist.setColumn(0, "pid", "");
  529. ds_main_patinfolist.setColumn(0, "hngnm", "");
  530. ds_main_patinfolist.setColumn(0, "rrgstno1", "");
  531. ds_main_patinfolist.setColumn(0, "rrgstno2", "");
  532. ds_send.setColumn(0, "uncocd", "");
  533. //ds_send.setColumn(0, "fromdd", "");
  534. //ds_send.setColumn(0, "todd", "");
  535. ds_list_unco_uncolist.clearData();
  536. ds_send_updatedata_datalist.clearData();
  537. }
  538. function grp_btn_pid_onclick(obj:Button, e:ClickEventInfo)
  539. {
  540. if(utlf_transNullToEmpty(ds_main_patinfolist.getColumn(0, 'pid')).length == 0){
  541. }
  542. var objArg = new Object();
  543. frmf_modal('SPPMC02500', 'SPPMC02500', objArg, '', '', '', '', '', '', '', '', '', 'M');
  544. //ds_main_patinfolist.copyData(ds_patinfolist); // 환자조회화면 연동이후 데이터셋 처리로직 추가 by 설승민 20180822
  545. }
  546. function grp_ipt_pid_onkeydown(obj:Edit, e:KeyEventInfo)
  547. {
  548. if (e.keycode == 13)
  549. {
  550. obj.updateToDataset();
  551. var vcheck_pid = ds_main_patinfolist.getColumn(0, 'pid');
  552. fClear();
  553. // 환자번호 null체크
  554. if(utlf_isNull(vcheck_pid) || vcheck_pid == '' || vcheck_pid == ' ' || vcheck_pid == '-'){
  555. ds_main_patinfolist.setColumn(0, 'pid', '');
  556. ds_main_patinfolist.setColumn(0, 'hngnm', '');
  557. ds_main_patinfolist.setColumn(0, 'rrgstno1', '');
  558. ds_main_patinfolist.setColumn(0, 'rrgstno2', '');
  559. //fSearch();
  560. /*
  561. sysf_messageBox('환자등록번호가 입력되지 않았습니다.', 'E007');
  562. return;*/
  563. }
  564. // 환자번호 조건으로 인적정보 조회
  565. ds_root_source.setColumn(0, 'srchcond', '1');
  566. ds_root_source.setColumn(0, 'pid', vcheck_pid);
  567. ds_main_patinfolist.clearData();
  568. ds_main_patinfolist.addRow();
  569. // 환자등록번호체크
  570. var oParam = {};
  571. oParam.id = "TRPMC02500";
  572. oParam.service = "patinfomngtapp.PatBaseInfo";
  573. oParam.method = "reqGetPatInfo";
  574. oParam.inds = "req=ds_root_source";
  575. oParam.outds = "ds_main_patinfolist=patinfolist";
  576. oParam.async = false;
  577. tranf_submit(oParam);
  578. grp_btn_search_onclick(grp.btn_search);
  579. }
  580. }
  581. function btn_save_onclick(obj:Button, e:ClickEventInfo)
  582. {
  583. var currow = grd_uncolist.currentrow;
  584. var row = ds_list_unco_uncolist.rowposition;
  585. var count = 0;
  586. ds_save_send.clearData();
  587. if(sysf_messageBox('해당 내역을 저장 하시겠습니까?', 'Q999') == 6)
  588. {
  589. for(var i = 0; i < ds_list_unco_uncolist.rowcount; i++){
  590. if(ds_list_unco_uncolist.getColumn(i,"chck") == "1" )
  591. {
  592. ds_save_send.addRow();
  593. ds_save_send.setColumn(count,"pid",ds_list_unco_uncolist.getColumn(i, "pid"));
  594. if(utlf_transNullToEmpty(ds_save_send.getColumn(count, "pid")) == '')
  595. {
  596. sysf_messageBox('환자번호 확인', 'E999');
  597. return false;
  598. }
  599. ds_save_send.setColumn(count,"orddd",ds_list_unco_uncolist.getColumn(i, "orddd"));
  600. ds_save_send.setColumn(count,"rcptno",ds_list_unco_uncolist.getColumn(i, "rcptno"));
  601. ds_save_send.setColumn(count,"cretno",ds_list_unco_uncolist.getColumn(i, "cretno"));
  602. ds_save_send.setColumn(count,"uncocd",ds_list_unco_uncolist.getColumn(i, "uncocd"));
  603. ds_save_send.setColumn(count,"endyn",ds_list_unco_uncolist.getColumn(i, "endyn"));
  604. ds_save_send.setColumn(count,"callyn",ds_list_unco_uncolist.getColumn(i, "callyn"));
  605. ds_save_send.setColumn(count,"smstrsmyn",ds_list_unco_uncolist.getColumn(i, "smstrsmyn"));
  606. count++
  607. ;
  608. }
  609. }
  610. if(ds_save_send.rowcount == 0 )
  611. {
  612. sysf_messageBox('선택된 정보가 없습니다.', 'E999');
  613. return;
  614. }
  615. var oParam = {};
  616. oParam.id = "TRPAM00102";
  617. oParam.service = "uncoamtmngtapp.UncoAmtMngt";
  618. oParam.method = "reqSetPatUncolist";
  619. oParam.inds = "req=ds_save_send";
  620. oParam.async = false;
  621. oParam.callback = "cf_callback";
  622. tranf_submit(oParam);
  623. sysf_messageBox('저장 되었습니다.', 'E999');
  624. }
  625. }
  626. function grd_uncolist_oncelldblclick(obj:Grid, e:GridClickEventInfo)
  627. {
  628. //var cur_row = ds_list_detail_ordpaydemand.insertRow(0);
  629. var row = ds_list_unco_uncolist.rowposition;
  630. ds_send_updatedata_datalist.clearData();
  631. ds_send_updatedata_datalist.addRow();
  632. ds_send_updatedata_datalist.setColumn(0, "pid" , ds_list_unco_uncolist.getColumn(row, "pid"));
  633. ds_send_updatedata_datalist.setColumn(0, "rcptdd" , ds_list_unco_uncolist.getColumn(row, "rcptdd"));
  634. ds_send_updatedata_datalist.setColumn(0, "rcptno" , ds_list_unco_uncolist.getColumn(row, "rcptno"));
  635. ds_send_updatedata_datalist.setColumn(0, "orddd" , ds_list_unco_uncolist.getColumn(row, "orddd"));
  636. ds_send_updatedata_datalist.setColumn(0, "cretno" , ds_list_unco_uncolist.getColumn(row, "cretno"));
  637. ds_send_updatedata_datalist.setColumn(0, "issdt" , utlf_getCurrentDate() + utlf_getCurrentTime());
  638. ds_send_updatedata_datalist.setColumn(0, "endyn" , "N");
  639. ds_send_updatedata_datalist.setColumn(0,"status","i");
  640. dsf_makeValue(ds_temp_printinfo, "uncoamt", "string", ds_list_unco_uncolist.getColumn(row,"uncoamt"));
  641. dsf_makeValue(ds_temp_printinfo, "uncorem", "string", ds_temp_printinfo.getColumn(0, "uncoamt").setAmountToKorean()+"원");
  642. if(e.col == obj.getBindCellIndex("body", "calc1"))
  643. {
  644. if(sysf_messageBox('해당 내역을 출력 하시겠습니까?', 'Q999') == 6)
  645. {
  646. ds_send_updatedata_datalist.setColumn(0,"issflag","E");
  647. var oParam = {};
  648. oParam.id = "TXPAS00730";
  649. oParam.service = "rcptteamstatsapp.rcptTeamOrdStats";
  650. oParam.method = "reqSetOrdPayDemand";
  651. oParam.inds = "req=ds_send_updatedata_datalist";
  652. oParam.async = false;
  653. oParam.callback = "cf_callback";
  654. tranf_submit(oParam);
  655. fPrintordpaydemand('C');
  656. }
  657. }
  658. else if(e.col == obj.getBindCellIndex("body", "calc2"))
  659. {
  660. if(sysf_messageBox('해당 내역을 출력 하시겠습니까?', 'Q999') == 6)
  661. {
  662. ds_send_updatedata_datalist.setColumn(0,"issflag","C");
  663. var oParam = {};
  664. oParam.id = "TXPAS00730";
  665. oParam.service = "rcptteamstatsapp.rcptTeamOrdStats";
  666. oParam.method = "reqSetOrdPayDemand";
  667. oParam.inds = "req=ds_send_updatedata_datalist";
  668. oParam.async = false;
  669. oParam.callback = "cf_callback";
  670. tranf_submit(oParam);
  671. fPrintordpaydemand('E');
  672. }
  673. }
  674. else if(e.col == obj.getBindCellIndex("body", "remindyn"))
  675. {
  676. if(sysf_messageBox('해당 내역을 출력 하시겠습니까?', 'Q999') == 6)
  677. {
  678. ds_send_updatedata_datalist.setColumn(0,"issflag","A");
  679. var oParam = {};
  680. oParam.id = "TXPAS00730";
  681. oParam.service = "rcptteamstatsapp.rcptTeamOrdStats";
  682. oParam.method = "reqSetOrdPayDemand";
  683. oParam.inds = "req=ds_send_updatedata_datalist";
  684. oParam.async = false;
  685. oParam.callback = "cf_callback";
  686. tranf_submit(oParam);
  687. fPrintordpaydemand('A');
  688. }
  689. }
  690. else if(e.col == obj.getBindCellIndex("body", "lastyn"))
  691. {
  692. if(sysf_messageBox('해당 내역을 출력 하시겠습니까?', 'Q999') == 6)
  693. {
  694. ds_send_updatedata_datalist.setColumn(0,"issflag","B");
  695. var oParam = {};
  696. oParam.id = "TXPAS00730";
  697. oParam.service = "rcptteamstatsapp.rcptTeamOrdStats";
  698. oParam.method = "reqSetOrdPayDemand";
  699. oParam.inds = "req=ds_send_updatedata_datalist";
  700. oParam.async = false;
  701. oParam.callback = "cf_callback";
  702. tranf_submit(oParam);
  703. fPrintordpaydemand('B');
  704. }
  705. }
  706. }
  707. function fPrintordpaydemand(gubun)
  708. {
  709. var row = ds_list_unco_uncolist.rowposition;
  710. //var cur_row = ds_list_detail_ordpaydemand.rowposition;
  711. //var quarrow = ds_list_detail_guarlist.rowcount;
  712. // 이자금액, 소송금액, 이자종료일 받아오기
  713. var oParam = {};
  714. oParam.id = "TRPAS00720";
  715. oParam.service = "rcptteamstatsapp.rcptTeamOrdStats";
  716. oParam.method = "reqGetUrgeReport";
  717. oParam.inds = "req=ds_send";
  718. oParam.outds = "ds_hidden_urgereport=urgereport";
  719. oParam.async = false;
  720. //oParam.callback = "cf_TRPAS00720";
  721. tranf_submit(oParam);
  722. ds_temp_printinfo.setColumn(0, 'pid', ds_list_unco_uncolist.getColumn(row, 'pid'));
  723. ds_temp_printinfo.setColumn(0, 'hngnm', ds_list_unco_uncolist.getColumn(row, 'hngnm'));
  724. ds_temp_printinfo.setColumn(0, 'addr', ds_list_unco_uncolist.getColumn(row, 'zipaddr'));
  725. ds_temp_printinfo.setColumn(0, 'detladdr', ds_list_unco_uncolist.getColumn(row, 'zipcd'));
  726. ds_temp_printinfo.setColumn(0, 'orddd', ds_list_unco_uncolist.getColumn(row, 'orddd'));
  727. ds_temp_printinfo.setColumn(0, 'orddeptnm', ds_list_unco_uncolist.getColumn(row, 'orddeptnm'));
  728. // 총진료비 구하기
  729. var totamt = parseInt(ds_hidden_urgereport.getColumn(0, 'law'))
  730. + parseInt(ds_hidden_urgereport.getColumn(0, 'intr'))
  731. + parseInt(ds_temp_printinfo.getColumn(0, 'uncoamt'));
  732. ds_temp_printinfo.setColumn(0, 'totamt', totamt);
  733. ds_temp_printinfo.setColumn(0, 'totamtkor', String(totamt).setAmountToKorean() + '원');
  734. //trace("issflag==="+ds_list_detail_ordpaydemand.getColumn(cur_row, 'issflag'))
  735. //trace("quarrow==="+quarrow)
  736. // 진료비 독촉 보고서
  737. if( ds_list_unco_uncolist.rowposition >= 0)
  738. {
  739. // 독촉장
  740. if(gubun == 'A')
  741. {
  742. ds_send.setColumn(0, 'phoneflag', 'A');
  743. var oParam = {};
  744. oParam.id = "TRPAS00721";
  745. oParam.service = "rcptteamstatsapp.rcptTeamOrdStats";
  746. oParam.method = "reqGetUncoPhoneInfo";
  747. oParam.inds = "req=ds_send";
  748. oParam.outds = "ds_phone_phdata=phdata";
  749. oParam.async = false;
  750. //oParam.callback = "cf_TRPAS00721";
  751. tranf_submit(oParam);
  752. ds_temp_detail_ordpaydemand.clearData();
  753. ds_temp_detail_ordpaydemand.addRow();
  754. ds_temp_detail_ordpaydemand.setColumn(0, 'instcd', sysf_getUserInfo('dutplceinstcd'));
  755. ds_temp_detail_ordpaydemand.setColumn(0, 'phone', ds_phone_phdata.getColumn(0, 'pnum'));
  756. ds_temp_detail_ordpaydemand.setColumn(0, 'bankno', ds_phone_phdata.getColumn(0, 'bankno'));
  757. ds_temp_detail_ordpaydemand.setColumn(0, 'koraddr', ds_phone_phdata.getColumn(0, 'koraddr'));
  758. ds_temp_detail_ordpaydemand.setColumn(0, 'engaddr', ds_phone_phdata.getColumn(0, 'engaddr'));
  759. ds_temp_detail_ordpaydemand.setColumn(0, 'hospnm', ds_phone_phdata.getColumn(0, 'hospnm'));
  760. ds_temp_detail_ordpaydemand.setColumn(0, 'remfact', ds_list_unco_uncolist.getColumn(row, 'etc'));
  761. //환자용 독촉장 출력
  762. var objDOM = rptf_createDOM();
  763. rptf_setNodeListToDOM(objDOM, "/root/temp/printinfo", ds_temp_printinfo);
  764. rptf_setNodeListToDOM(objDOM, "/root/temp/detail/ordpaydemand", ds_temp_detail_ordpaydemand);
  765. var objParam = new Object();
  766. objParam.xml_data_XML1 = objDOM.documentElement.source;
  767. var option = "open=1;save=1;directprint=1;printdialog=0;print=1;zoom=0";
  768. rptf_exeReportPreview30(["RPPAS00710"],[objParam], option);
  769. var objDOM = rptf_createDOM();
  770. rptf_setNodeListToDOM(objDOM, "/root/temp/printinfo", ds_temp_printinfo);
  771. rptf_setNodeListToDOM(objDOM, "/root/temp/detail/ordpaydemand", ds_temp_detail_ordpaydemand);
  772. var objParam = new Object();
  773. objParam.xml_data_XML1 = objDOM.documentElement.source;
  774. var option = "open=1;save=1;directprint=1;printdialog=0;print=1;zoom=0";
  775. rptf_exeReportPreview30(["RPPAS00710"],[objParam], option);
  776. }
  777. // 최고장
  778. else if(gubun == 'B')
  779. {
  780. ds_send.setColumn(0, 'phoneflag', 'B');
  781. var oParam = {};
  782. oParam.id = "TRPAS00721";
  783. oParam.service = "rcptteamstatsapp.rcptTeamOrdStats";
  784. oParam.method = "reqGetUncoPhoneInfo";
  785. oParam.inds = "req=ds_send";
  786. oParam.outds = "ds_phone_phdata=phdata";
  787. oParam.async = false;
  788. //oParam.callback = "cf_TRPAS00721";
  789. tranf_submit(oParam);
  790. ds_temp_detail_ordpaydemand.clearData();
  791. ds_temp_detail_ordpaydemand.addRow();
  792. ds_temp_detail_ordpaydemand.setColumn(0, 'instcd', sysf_getUserInfo('dutplceinstcd'));
  793. ds_temp_detail_ordpaydemand.setColumn(0, 'phone', ds_phone_phdata.getColumn(0, 'pnum'));
  794. ds_temp_detail_ordpaydemand.setColumn(0, 'bankno', ds_phone_phdata.getColumn(0, 'bankno'));
  795. ds_temp_detail_ordpaydemand.setColumn(0, 'koraddr', ds_phone_phdata.getColumn(0, 'koraddr'));
  796. ds_temp_detail_ordpaydemand.setColumn(0, 'engaddr', ds_phone_phdata.getColumn(0, 'engaddr'));
  797. ds_temp_detail_ordpaydemand.setColumn(0, 'hospnm', ds_phone_phdata.getColumn(0, 'hospnm'));
  798. ds_temp_detail_ordpaydemand.setColumn(0, 'remfact', ds_list_unco_uncolist.getColumn(row, 'etc'));
  799. var objDOM = rptf_createDOM();
  800. rptf_setNodeListToDOM(objDOM, "/root/temp/printinfo", ds_temp_printinfo);
  801. rptf_setNodeListToDOM(objDOM, "/root/temp/detail/ordpaydemand", ds_temp_detail_ordpaydemand);
  802. var objParam = new Object();
  803. objParam.xml_data_XML1 = objDOM.documentElement.source;
  804. var option = "open=1;save=1;directprint=1;printdialog=0;print=1;zoom=0";
  805. rptf_exeReportPreview30(["RPPAS00740"],[objParam], option);
  806. var objDOM = rptf_createDOM();
  807. rptf_setNodeListToDOM(objDOM, "/root/temp/printinfo", ds_temp_printinfo);
  808. rptf_setNodeListToDOM(objDOM, "/root/temp/detail/ordpaydemand", ds_temp_detail_ordpaydemand);
  809. var objParam = new Object();
  810. objParam.xml_data_XML1 = objDOM.documentElement.source;
  811. var option = "open=1;save=1;directprint=1;printdialog=0;print=1;zoom=0";
  812. rptf_exeReportPreview30(["RPPAS00740"],[objParam], option);
  813. }
  814. // 진료비 납부 통지서(1)
  815. else if(gubun == 'C')
  816. {
  817. ds_send.setColumn(0, 'phoneflag', 'C');
  818. var oParam = {};
  819. oParam.id = "TRPAS00721";
  820. oParam.service = "rcptteamstatsapp.rcptTeamOrdStats";
  821. oParam.method = "reqGetUncoPhoneInfo";
  822. oParam.inds = "req=ds_send";
  823. oParam.outds = "ds_phone_phdata=phdata";
  824. oParam.async = false;
  825. //oParam.callback = "cf_TRPAS00721";
  826. tranf_submit(oParam);
  827. ds_temp_detail_ordpaydemand.clearData();
  828. ds_temp_detail_ordpaydemand.addRow();
  829. ds_temp_detail_ordpaydemand.setColumn(0, 'instcd', sysf_getUserInfo('dutplceinstcd'));
  830. ds_temp_detail_ordpaydemand.setColumn(0, 'phone', ds_phone_phdata.getColumn(0, 'pnum'));
  831. ds_temp_detail_ordpaydemand.setColumn(0, 'bankno', ds_phone_phdata.getColumn(0, 'bankno'));
  832. ds_temp_detail_ordpaydemand.setColumn(0, 'koraddr', ds_phone_phdata.getColumn(0, 'koraddr'));
  833. ds_temp_detail_ordpaydemand.setColumn(0, 'engaddr', ds_phone_phdata.getColumn(0, 'engaddr'));
  834. ds_temp_detail_ordpaydemand.setColumn(0, 'hospnm', ds_phone_phdata.getColumn(0, 'hospnm'));
  835. ds_temp_detail_ordpaydemand.setColumn(0, 'remfact', ds_list_unco_uncolist.getColumn(row, 'etc'));
  836. ds_temp_detail_ordpaydemand.setColumn(0, 'subremfact', ds_phone_phdata.getColumn(0, 'subremface'));
  837. var objDOM = rptf_createDOM();
  838. rptf_setNodeListToDOM(objDOM, "/root/temp/printinfo", ds_temp_printinfo);
  839. rptf_setNodeListToDOM(objDOM, "/root/temp/detail/ordpaydemand", ds_temp_detail_ordpaydemand);
  840. var objParam = new Object();
  841. objParam.xml_data_XML1 = objDOM.documentElement.source;
  842. var option = "open=1;save=1;directprint=1;printdialog=0;print=1;zoom=0";
  843. rptf_exeReportPreview30(["RPPAS00730"],[objParam], option);
  844. var objDOM = rptf_createDOM();
  845. rptf_setNodeListToDOM(objDOM, "/root/temp/printinfo", ds_temp_printinfo);
  846. rptf_setNodeListToDOM(objDOM, "/root/temp/detail/ordpaydemand", ds_temp_detail_ordpaydemand);
  847. var objParam = new Object();
  848. objParam.xml_data_XML1 = objDOM.documentElement.source;
  849. var option = "open=1;save=1;directprint=1;printdialog=0;print=1;zoom=0";
  850. rptf_exeReportPreview30(["RPPAS00730"],[objParam], option);
  851. }
  852. // 진료비 납부 안내서(1)
  853. else if(gubun == 'E')
  854. {
  855. if(ds_list_unco_uncolist.getColumn(row, 'unconm') != '치과미수')
  856. {
  857. ds_send.setColumn(0, 'phoneflag', 'E');
  858. var oParam = {};
  859. oParam.id = "TRPAS00721";
  860. oParam.service = "rcptteamstatsapp.rcptTeamOrdStats";
  861. oParam.method = "reqGetUncoPhoneInfo";
  862. oParam.inds = "req=ds_send";
  863. oParam.outds = "ds_phone_phdata=phdata";
  864. oParam.async = false;
  865. //oParam.callback = "cf_TRPAS00721";
  866. tranf_submit(oParam);
  867. ds_temp_detail_ordpaydemand.clearData();
  868. ds_temp_detail_ordpaydemand.addRow();
  869. ds_temp_detail_ordpaydemand.setColumn(0, 'instcd', sysf_getUserInfo('dutplceinstcd'));
  870. ds_temp_detail_ordpaydemand.setColumn(0, 'phone', ds_phone_phdata.getColumn(0, 'pnum'));
  871. ds_temp_detail_ordpaydemand.setColumn(0, 'bankno', ds_phone_phdata.getColumn(0, 'bankno'));
  872. ds_temp_detail_ordpaydemand.setColumn(0, 'koraddr', ds_phone_phdata.getColumn(0, 'koraddr'));
  873. ds_temp_detail_ordpaydemand.setColumn(0, 'engaddr', ds_phone_phdata.getColumn(0, 'engaddr'));
  874. ds_temp_detail_ordpaydemand.setColumn(0, 'hospnm', ds_phone_phdata.getColumn(0, 'hospnm'));
  875. ds_temp_detail_ordpaydemand.setColumn(0, 'remfact', ds_list_unco_uncolist.getColumn(row, 'etc'));
  876. var objDOM = rptf_createDOM();
  877. rptf_setNodeListToDOM(objDOM, "/root/temp/printinfo", ds_temp_printinfo);
  878. rptf_setNodeListToDOM(objDOM, "/root/temp/detail/ordpaydemand", ds_temp_detail_ordpaydemand);
  879. var objParam = new Object();
  880. objParam.xml_data_XML1 = objDOM.documentElement.source;
  881. var option = "open=1;save=1;directprint=1;printdialog=0;print=1;zoom=0";
  882. rptf_exeReportPreview30(["RPPAS00720"],[objParam], option);
  883. var objDOM = rptf_createDOM();
  884. rptf_setNodeListToDOM(objDOM, "/root/temp/printinfo", ds_temp_printinfo);
  885. rptf_setNodeListToDOM(objDOM, "/root/temp/detail/ordpaydemand", ds_temp_detail_ordpaydemand);
  886. var objParam = new Object();
  887. objParam.xml_data_XML1 = objDOM.documentElement.source;
  888. var option = "open=1;save=1;directprint=1;printdialog=0;print=1;zoom=0";
  889. rptf_exeReportPreview30(["RPPAS00720"],[objParam], option);
  890. }
  891. }
  892. grp_btn_search_onclick(grp.btn_search);
  893. }
  894. }
  895. /*
  896. function ds_list_unco_uncolist_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
  897. {
  898. if(e.columnid == 'chck'){
  899. ds_main_excu.setColumn(e.row, "chck", 1);
  900. }
  901. }*/
  902. ]]></Script>
  903. </Form>
  904. </FDL>