SMPIS00500_계산처방시행조회.xfdl 51 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169
  1. <?xml version="1.0" encoding="utf-8"?>
  2. <FDL version="1.5">
  3. <TypeDefinition url="..\..\..\default_typedef.xml"/>
  4. <Form id="SMPIS00500" position="absolute 0 0 1200 744" titletext="계산처방시행 조회" oninit="SMPIS00500_oninit" onload="SMPIS00500_onload">
  5. <Layouts>
  6. <Layout>
  7. <Div position="absolute 0 23 1190 743" id="group2" anchor="all">
  8. <Layouts>
  9. <Layout>
  10. <Button id="Button00" taborder="2" text="배치실행" position="absolute 929 84 1021 104" class="btn3" onclick="group2_Button00_onclick"/>
  11. <Div position="absolute 0 1 1190 80" align="align:center top;" id="group3" class="div_SA" anchor="left top right">
  12. <Layouts>
  13. <Layout>
  14. <Static text="진료과" position="absolute 400 31 465 48" id="caption2" class="search_name" anchor="default"/>
  15. <Combo position="absolute 483 30 583 49" id="base_date" class="combo_search" innerdataset="@ds_init_tmp_orddeptcd_orddeptcdlist" datacolumn="nm" codecolumn="cd" anchor="default" onitemchanged="group2_group3_base_date_onitemchanged"/>
  16. <Shape position="absolute 1106 5 1112 74" linetype="vertical" id="line1" class="line_4" anchor="top right"/>
  17. <Button position="absolute 1123 30 1179 52" id="btn_search" class="btn1" taborder="2" text="조회" anchor="top right" onclick="group2_group3_btn_search_onclick"/>
  18. <Static text="진료의" position="absolute 604 30 674 47" id="caption26" class="search_name" anchor="default"/>
  19. <Combo position="absolute 675 29 775 48" id="cmb_orddrid" class="combo_search" innerdataset="@ds_init_tmp_orddrid_orddridlist" datacolumn="nm" codecolumn="cd" anchor="default"/>
  20. <Static text="내원유형" position="absolute 403 7 479 24" id="caption3" class="search_name" anchor="default"/>
  21. <Radio position="absolute 502 5 685 25" id="rdo_ioflag" class="radio_search" columncount="4" codecolumn="codecolumn" datacolumn="datacolumn" anchor="default" onitemchanged="group2_group3_rdo_ioflag_onitemchanged">
  22. <Dataset id="innerdataset">
  23. <ColumnInfo>
  24. <Column id="codecolumn"/>
  25. <Column id="datacolumn"/>
  26. </ColumnInfo>
  27. <Rows>
  28. <Row>
  29. <Col id="codecolumn">A</Col>
  30. <Col id="datacolumn">전체</Col>
  31. </Row>
  32. <Row>
  33. <Col id="codecolumn">I</Col>
  34. <Col id="datacolumn">입원</Col>
  35. </Row>
  36. <Row>
  37. <Col id="codecolumn">D</Col>
  38. <Col id="datacolumn">외퇴</Col>
  39. </Row>
  40. <Row>
  41. <Col id="codecolumn">O</Col>
  42. <Col id="datacolumn">외래</Col>
  43. </Row>
  44. </Rows>
  45. </Dataset>
  46. </Radio>
  47. <Calendar position="absolute 91 5 191 24" id="ipt_fromdd" class="input_search" taborder="3" mask="yyyy-mm-dd" anchor="default" dateformat="yyyy-MM-dd" value="null"/>
  48. <Calendar position="absolute 211 5 311 24" id="ipt_todd" class="input_search" taborder="3" mask="yyyy-mm-dd" anchor="default" dateformat="yyyy-MM-dd" value="null"/>
  49. <Static text="~" position="absolute 196 5 211 25" id="caption4" anchor="default"/>
  50. <Edit position="absolute 894 30 1053 49" id="ipt_code" class="input_search" anchor="default" ontextchanged="group2_group3_ipt_code_ontextchanged" inputmode="upper" enable="true" readonly="false" oneditclick="group2_group3_ipt_code_oneditclick" autoselect="true"/>
  51. <Edit position="absolute 790 5 878 24" id="ipt_patunitsrch" class="input_search" taborder="3" anchor="default" onkeyup="group2_group3_ipt_patunitsrch_onkeyup"/>
  52. <Static text="환자조회" position="absolute 707 7 783 24" id="caption5" class="search_name" anchor="default"/>
  53. <Static text="진료일자" position="absolute 8 7 84 24" id="caption7" class="search_name" anchor="default"/>
  54. <Combo position="absolute 984 5 1088 24" id="combo1" taborder="1" innerdataset="@ds_init_U0001list" datacolumn="cdnm" codecolumn="cdid" anchor="default"/>
  55. <Static text="심사자" position="absolute 911 7 984 24" id="caption9" class="search_name" anchor="default"/>
  56. <Static text="수가코드" position="absolute 795 31 871 48" id="cp_code" class="search_name" anchor="default"/>
  57. <Button id="btn_pat" taborder="6" class="icon_search" position="absolute 876 4 896 24" anchor="default" onclick="group2_group3_btn_pat_onclick"/>
  58. <Static id="caption00" text="실시일자" class="search_name" position="absolute 8 31 84 48"/>
  59. <Calendar id="ipt_fromdd00" taborder="7" dateformat="yyyy-MM-dd" class="input_search" position="absolute 91 29 191 48" mask="yyyy-mm-dd"/>
  60. <Static id="caption01" text="~" position="absolute 196 29 211 49"/>
  61. <Calendar id="ipt_todd00" taborder="8" dateformat="yyyy-MM-dd" class="input_search" position="absolute 211 29 311 48" mask="yyyy-mm-dd"/>
  62. <Button id="btn_today" taborder="9" onclick="grp_biz_grp_sea_btn_today_onclick" class="btn_today" position="absolute 310 5 330 25"/>
  63. <Button id="btn_today00" taborder="10" class="btn_today" position="absolute 310 27 330 47" onclick="group2_group3_btn_today00_onclick"/>
  64. <Button id="btn_redo" taborder="11" onclick="grp_biz_grp_sea_btn_redo_onclick" class="icon_redo" position="absolute 331 5 351 25"/>
  65. <Button id="btn_redo00" taborder="12" class="icon_redo" position="absolute 331 27 351 47" onclick="group2_group3_btn_redo00_onclick"/>
  66. <Button id="Button01" taborder="13" text="복수코드추가" class="btn2" position="absolute 957 52 1053 72" onclick="group2_group3_Button01_onclick"/>
  67. <Button id="btn_code" taborder="14" class="icon_search" position="absolute 1056 29 1076 49" onclick="group2_group3_btn_code_onclick"/>
  68. </Layout>
  69. </Layouts>
  70. </Div>
  71. <Static text="환자 리스트" position="absolute 0 88 100 109" id="caption8" class="tit_2" anchor="default"/>
  72. <Button position="absolute 1109 85 1189 104" id="btn_excelsave" class="btn7" text="엑셀저장" anchor="top right" onclick="group2_btn_excelsave_onclick"/>
  73. <Grid position="absolute 0 105 1190 715" id="grd_outjudg" class="datagrid2" binddataset="ds_main_grdlist_calcorderlist" anchor="all" cellsizingtype="col" cellmovingtype="col">
  74. <Formats>
  75. <Format id="default">
  76. <Columns>
  77. <Column size="25"/>
  78. <Column size="62"/>
  79. <Column size="49"/>
  80. <Column size="35"/>
  81. <Column size="35"/>
  82. <Column size="80"/>
  83. <Column size="80"/>
  84. <Column size="83"/>
  85. <Column size="42"/>
  86. <Column size="17"/>
  87. <Column size="23"/>
  88. <Column size="45"/>
  89. <Column size="58"/>
  90. <Column size="55"/>
  91. <Column size="55"/>
  92. <Column size="66"/>
  93. <Column size="72"/>
  94. <Column size="66"/>
  95. <Column size="80"/>
  96. <Column size="40"/>
  97. <Column size="35"/>
  98. <Column size="205"/>
  99. <Column size="70"/>
  100. <Column size="40"/>
  101. <Column size="40"/>
  102. <Column size="40"/>
  103. <Column size="40"/>
  104. <Column size="83"/>
  105. <Column size="28"/>
  106. <Column size="72"/>
  107. <Column size="75"/>
  108. <Column size="75"/>
  109. <Column size="83"/>
  110. <Column size="31"/>
  111. <Column size="47"/>
  112. <Column size="61"/>
  113. <Column size="76"/>
  114. <Column size="70"/>
  115. <Column size="100"/>
  116. </Columns>
  117. <Rows>
  118. <Row size="29" band="head"/>
  119. <Row size="24"/>
  120. </Rows>
  121. <Band id="head">
  122. <Cell/>
  123. <Cell col="1" text="등록번호"/>
  124. <Cell col="2" text="성명"/>
  125. <Cell col="3" text="나이"/>
  126. <Cell col="4" text="내원&#13;&#10;유형"/>
  127. <Cell col="5" text="처방일자"/>
  128. <Cell col="6" text="진료일자"/>
  129. <Cell col="7" text="실시일자"/>
  130. <Cell col="8" text="시행&#10;여부"/>
  131. <Cell col="9" text="유&#13;&#10;형"/>
  132. <Cell col="10" text="보&#13;&#10;조"/>
  133. <Cell col="11" text="진료과"/>
  134. <Cell col="12" text="병동"/>
  135. <Cell col="13" colspan="2" text="진료의" taborder="undefined"/>
  136. <Cell col="15" text="주상병"/>
  137. <Cell col="16" text="수가코드"/>
  138. <Cell col="17" text="EDI코드"/>
  139. <Cell col="18" text="그룹코드"/>
  140. <Cell col="19" text="산정&#13;&#10;의미"/>
  141. <Cell col="20" text="산정&#13;&#10;코드"/>
  142. <Cell col="21" text="한글명"/>
  143. <Cell col="22" text="단가"/>
  144. <Cell col="23" text="수량"/>
  145. <Cell col="24" text="횟수"/>
  146. <Cell col="25" text="일수"/>
  147. <Cell col="26" text="총투"/>
  148. <Cell col="27" text="금액"/>
  149. <Cell col="28" text="급비"/>
  150. <Cell col="29" text="본인부담률"/>
  151. <Cell col="30" text="입원일자"/>
  152. <Cell col="31" text="유형시작일"/>
  153. <Cell col="32" text="종료일"/>
  154. <Cell col="33" text="원외"/>
  155. <Cell col="34" text="심사자"/>
  156. <Cell col="35" text="접수번호"/>
  157. <Cell col="36" text="생성일자"/>
  158. <Cell col="37" text="실시자"/>
  159. <Cell col="38" text="시행부서"/>
  160. </Band>
  161. <Band id="body">
  162. <Cell celltype="head" expr="currow+1"/>
  163. <Cell col="1" displaytype="text" text="bind:pid"/>
  164. <Cell col="2" text="bind:hngnm"/>
  165. <Cell col="3" text="bind:age"/>
  166. <Cell col="4" text="bind:ioflag"/>
  167. <Cell col="5" displaytype="date" text="bind:prcpdd" mask="yyyy-MM-dd"/>
  168. <Cell col="6" displaytype="date" text="bind:orddd" mask="yyyy-MM-dd"/>
  169. <Cell col="7" displaytype="date" text="bind:execdd" mask="yyyy-MM-dd"/>
  170. <Cell col="8" text="bind:yn"/>
  171. <Cell col="9" displaytype="text" text="bind:insukind"/>
  172. <Cell col="10" displaytype="text" text="bind:suppkind"/>
  173. <Cell col="11" text="bind:orddeptcd"/>
  174. <Cell col="12" text="bind:wardnm"/>
  175. <Cell col="13" text="bind:orddrnm" taborder="undefined"/>
  176. <Cell col="14" text="bind:orddrnm" taborder="undefined"/>
  177. <Cell col="15" style="align:left middle;" text="bind:diag"/>
  178. <Cell col="16" style="align:left middle;" text="bind:snglcalcscorcd"/>
  179. <Cell col="17" style="align:left middle;" text="bind:edicd"/>
  180. <Cell col="18" style="align:left middle;" text="bind:grupcalcscorcd"/>
  181. <Cell col="19" displaytype="text" text="bind:estmmeancd"/>
  182. <Cell col="20" displaytype="text" text="bind:estmcd"/>
  183. <Cell col="21" style="align:left middle;" text="bind:calchngnm"/>
  184. <Cell col="22" displaytype="number" text="bind:appunitcost"/>
  185. <Cell col="23" displaytype="number" text="bind:calcqty"/>
  186. <Cell col="24" displaytype="number" text="bind:calctims"/>
  187. <Cell col="25" text="bind:calcdays"/>
  188. <Cell col="26" displaytype="number" text="bind:totqty"/>
  189. <Cell col="27" displaytype="number" text="bind:calcamt"/>
  190. <Cell col="28" displaytype="combo" edittype="combo" style="align:center middle;" text="bind:calcscorpayflag" combodataset="ds_cmb_calcscorpayflag" combocodecol="value" combodatacol="label" enable="false"/>
  191. <Cell col="29" text="bind:payownbrate"/>
  192. <Cell col="30" displaytype="expr:utlf_isNull(indd) ? 'normal' : 'date'" text="bind:indd" mask="expr:utlf_isNull(indd) ? '' : 'yyyy-MM-dd'"/>
  193. <Cell col="31" displaytype="expr:utlf_isNull(fromdd) ? 'normal' : 'date'" text="bind:fromdd" mask="expr:utlf_isNull(fromdd) ? '' : 'yyyy-MM-dd'"/>
  194. <Cell col="32" displaytype="expr:utlf_isNull(todd) ? 'normal' : 'date'" text="bind:todd" mask="expr:utlf_isNull(todd) ? '' : 'yyyy-MM-dd'"/>
  195. <Cell col="33" text="bind:oprcp"/>
  196. <Cell col="34" text="bind:judgrid"/>
  197. <Cell col="35" text="bind:acptno"/>
  198. <Cell col="36" displaytype="date" text="bind:cretfromdd" mask="yyyy-MM-dd"/>
  199. <Cell col="37" style="align:left middle;" text="bind:execrnm"/>
  200. <Cell col="38" style="align:left middle;" text="bind:execdeptnm"/>
  201. </Band>
  202. </Format>
  203. </Formats>
  204. </Grid>
  205. <Button position="absolute 1022 85 1108 104" id="btn_batch" class="btn2" text="배치결과확인" anchor="top right" onclick="group2_btn_batch_onclick"/>
  206. <Div id="Div00" taborder="1" position="absolute 864 81 1186 548" style="background:white;border:2 solid #808080ff ;" visible="false">
  207. <Layouts>
  208. <Layout>
  209. <Grid id="Grid00" taborder="0" useinputpanel="false" position="absolute 5 26 313 439" anchor="default" binddataset="ds_main_picmmech" selecttype="multirow">
  210. <Formats>
  211. <Format id="default">
  212. <Columns>
  213. <Column size="25"/>
  214. <Column size="85"/>
  215. <Column size="190"/>
  216. </Columns>
  217. <Rows>
  218. <Row size="24" band="head"/>
  219. <Row size="24"/>
  220. </Rows>
  221. <Band id="head">
  222. <Cell text="No."/>
  223. <Cell col="1" text="수가코드"/>
  224. <Cell col="2" text="수가명"/>
  225. </Band>
  226. <Band id="body">
  227. <Cell celltype="head" expr="currow+1"/>
  228. <Cell col="1" style="align:left middle;" text="bind:picmmech_calcscorcd"/>
  229. <Cell col="2" style="align:left middle;" text="bind:picmmech_hngnm"/>
  230. </Band>
  231. </Format>
  232. </Formats>
  233. </Grid>
  234. <Button id="Button01" taborder="2" text="행삭제" position="absolute 263 5 313 25" class="btn2" anchor="default" onclick="group2_Div00_Button01_onclick"/>
  235. <Button id="btn_code" taborder="3" onclick="btn_code_onclick" class="icon_search" position="absolute 232 5 252 25" anchor="default"/>
  236. <Static id="caption00" text="수가코드추가" class="search_name" position="absolute 8 5 96 22" anchor="default"/>
  237. <Button id="Button02" taborder="4" text="조회" class="btn4" position="absolute 262 441 312 461" anchor="default" onclick="group2_Div00_Button02_onclick"/>
  238. <Edit id="ipt_code" taborder="5" inputmode="upper" class="input_search" position="absolute 117 5 229 24" anchor="default" onkeydown="group2_Div00_ipt_code_onkeydown" autoselect="true" imemode="alpha" ontextchange="group2_Div00_ipt_code_ontextchange" canchange="group2_Div00_ipt_code_canchange" ontextchanged="group2_Div00_ipt_code_ontextchanged"/>
  239. <Button id="Button00" taborder="6" text="닫기" class="btn3" position="absolute 6 441 56 461" onclick="group2_Div00_Button00_onclick" anchor="default"/>
  240. <Button id="Button03" taborder="7" text="배치조회" class="btn4" position="absolute 181 441 261 461" onclick="group2_Div00_Button03_onclick" anchor="default"/>
  241. </Layout>
  242. </Layouts>
  243. </Div>
  244. </Layout>
  245. </Layouts>
  246. </Div>
  247. <Static id="caption1" text="계산처방시행 조회" class="tit_1" position="absolute 0 0 173 23"/>
  248. </Layout>
  249. </Layouts>
  250. <Objects>
  251. <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  252. <ColumnInfo>
  253. <Column id="datecond" type="STRING" size="256"/>
  254. <Column id="fromdd" type="STRING" size="256"/>
  255. <Column id="todd" type="STRING" size="256"/>
  256. <Column id="ioflag" type="STRING" size="256"/>
  257. <Column id="orddeptcd" type="STRING" size="256"/>
  258. <Column id="orddrid" type="STRING" size="256"/>
  259. <Column id="codecond" type="STRING" size="256"/>
  260. <Column id="code" type="STRING" size="256"/>
  261. <Column id="edicd" type="STRING" size="256"/>
  262. <Column id="patunitsrch" type="STRING" size="256"/>
  263. <Column id="judgrid" type="STRING" size="256"/>
  264. <Column id="cancer" type="STRING" size="256"/>
  265. <Column id="large" type="STRING" size="256"/>
  266. <Column id="middle" type="STRING" size="256"/>
  267. <Column id="small" type="STRING" size="256"/>
  268. <Column id="grupcalcscorcd" type="STRING" size="256"/>
  269. <Column id="pid" type="STRING" size="256"/>
  270. <Column id="exefromdd" type="STRING" size="256"/>
  271. <Column id="exetodd" type="STRING" size="256"/>
  272. <Column id="screen_id" type="STRING" size="256"/>
  273. <Column id="instcd" type="STRING" size="256"/>
  274. </ColumnInfo>
  275. <Rows>
  276. <Row>
  277. <Col id="datecond"/>
  278. <Col id="fromdd"/>
  279. <Col id="todd"/>
  280. <Col id="ioflag"/>
  281. <Col id="orddeptcd"/>
  282. <Col id="orddrid"/>
  283. <Col id="codecond"/>
  284. <Col id="code"/>
  285. <Col id="edicd"/>
  286. <Col id="patunitsrch"/>
  287. <Col id="judgrid"/>
  288. <Col id="cancer"/>
  289. <Col id="large"/>
  290. <Col id="middle"/>
  291. <Col id="small"/>
  292. <Col id="grupcalcscorcd"/>
  293. <Col id="screen_id">-</Col>
  294. </Row>
  295. </Rows>
  296. </Dataset>
  297. <Dataset id="ds_main_grdlist_calcorderlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  298. <Dataset id="ds_init_tmp_orddeptcd_orddeptcdlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  299. <ColumnInfo>
  300. <Column id="nm" type="STRING" size="256"/>
  301. <Column id="cd" type="STRING" size="256"/>
  302. </ColumnInfo>
  303. </Dataset>
  304. <Dataset id="ds_init_tmp_orddrid_orddridlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  305. <ColumnInfo>
  306. <Column id="cd" type="STRING" size="256"/>
  307. <Column id="nm" type="STRING" size="256"/>
  308. </ColumnInfo>
  309. </Dataset>
  310. <Dataset id="ds_init_U0001list" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  311. <ColumnInfo>
  312. <Column id="cdnm" type="STRING" size="256"/>
  313. <Column id="cdid" type="STRING" size="256"/>
  314. </ColumnInfo>
  315. </Dataset>
  316. <Dataset id="ds_cmb_calcscorpayflag" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  317. <ColumnInfo>
  318. <Column id="label" type="STRING" size="256"/>
  319. <Column id="value" type="STRING" size="256"/>
  320. </ColumnInfo>
  321. <Rows>
  322. <Row>
  323. <Col id="label">급</Col>
  324. <Col id="value">0</Col>
  325. </Row>
  326. <Row>
  327. <Col id="label">100</Col>
  328. <Col id="value">1</Col>
  329. </Row>
  330. <Row>
  331. <Col id="label">비</Col>
  332. <Col id="value">2</Col>
  333. </Row>
  334. <Row>
  335. <Col id="label">선</Col>
  336. <Col id="value">8</Col>
  337. </Row>
  338. <Row>
  339. <Col id="label">선</Col>
  340. <Col id="value">9</Col>
  341. </Row>
  342. </Rows>
  343. </Dataset>
  344. <Dataset id="ds_init_hidden_earnclslist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  345. <ColumnInfo>
  346. <Column id="step" type="STRING" size="256" sumtext="단계구분"/>
  347. <Column id="earncls1" type="STRING" size="256" sumtext="수익분류1"/>
  348. <Column id="earncls2" type="STRING" size="256" sumtext="수익분류2"/>
  349. <Column id="earncls3" type="STRING" size="256" sumtext="수익분류3"/>
  350. <Column id="earncls1nm" type="STRING" size="256" sumtext="수익분류1명"/>
  351. <Column id="earncls2nm" type="STRING" size="256" sumtext="수익분류2명"/>
  352. <Column id="earncls3nm" type="STRING" size="256" sumtext="수익분류3명"/>
  353. </ColumnInfo>
  354. </Dataset>
  355. <Dataset id="ds_hidden_sppmc02500_cond" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  356. <ColumnInfo>
  357. <Column id="srchcond" type="STRING" size="256"/>
  358. <Column id="pid" type="STRING" size="256"/>
  359. <Column id="patnm" type="STRING" size="256"/>
  360. </ColumnInfo>
  361. <Rows>
  362. <Row/>
  363. </Rows>
  364. </Dataset>
  365. <Dataset id="ds_patinfolist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  366. <FilteredDataset id="FilteredDataset00" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" binddataset="@ds_init_hidden_earnclslist" filterstr="step == 'L'"/>
  367. <FilteredDataset id="FilteredDataset01" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" binddataset="@ds_init_hidden_earnclslist"/>
  368. <FilteredDataset id="FilteredDataset02" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" binddataset="@ds_init_hidden_earnclslist"/>
  369. <Dataset id="ds_hidden_smpic00200_judgsrch" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  370. <ColumnInfo>
  371. <Column id="con1_dd" type="STRING" size="256"/>
  372. <Column id="con2_gsflag" type="STRING" size="256"/>
  373. <Column id="con3_search1" type="STRING" size="256"/>
  374. <Column id="con4_search2" type="STRING" size="256"/>
  375. <Column id="con5_insu" type="STRING" size="256"/>
  376. <Column id="srchdrugcd" type="STRING" size="256"/>
  377. </ColumnInfo>
  378. <Rows>
  379. <Row/>
  380. </Rows>
  381. </Dataset>
  382. <Dataset id="ds_hidden_smpic00200_rslt_mech" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  383. <Dataset id="ds_hidden_smpic00200_rslt_picmech" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  384. <Dataset id="ds_tmp" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  385. <Dataset id="ds_temp_picmmech" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  386. <Dataset id="ds_main_picmmech" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  387. <ColumnInfo>
  388. <Column id="picmmech_hidden" type="STRING" size="4000"/>
  389. <Column id="picmmech_dpt" type="STRING" size="256"/>
  390. <Column id="picmmech_calcgrupcd" type="STRING" size="4000"/>
  391. <Column id="picmmech_agepay" type="STRING" size="4000"/>
  392. <Column id="picmmech_calcscorcd" type="STRING" size="4000"/>
  393. <Column id="picmmech_insuedicd" type="STRING" size="4000"/>
  394. <Column id="picmmech_oldordcd" type="STRING" size="4000"/>
  395. <Column id="picmmech_engnm" type="STRING" size="4000"/>
  396. <Column id="picmmech_hngnm" type="STRING" size="4000"/>
  397. <Column id="picmmech_pynpy1" type="STRING" size="4000"/>
  398. <Column id="picmmech_rbpnt" type="STRING" size="4000"/>
  399. <Column id="picmmech_unitcost" type="STRING" size="4000"/>
  400. <Column id="picmmech_specrate" type="STRING" size="4000"/>
  401. <Column id="picmmech_gnrlunitcost" type="STRING" size="4000"/>
  402. <Column id="picmmech_forgnunitcost" type="STRING" size="4000"/>
  403. <Column id="picmmech_mouunitcost" type="STRING" size="4000"/>
  404. <Column id="picmmech_ordnm" type="STRING" size="4000"/>
  405. <Column id="picmmech_qty" type="STRING" size="4000"/>
  406. <Column id="picmmech_estmmncd" type="STRING" size="4000"/>
  407. <Column id="picmmech_fromdd" type="STRING" size="4000"/>
  408. <Column id="picmmech_todd" type="STRING" size="4000"/>
  409. <Column id="picmmech_lastupdtdt" type="STRING" size="4000"/>
  410. <Column id="picmmech_lastupdtrid" type="STRING" size="4000"/>
  411. <Column id="picmmech_temp_insupynpy1" type="STRING" size="4000"/>
  412. <Column id="picmmech_temp_insuunitcost" type="STRING" size="4000"/>
  413. <Column id="picmmech_temp_specrate" type="STRING" size="4000"/>
  414. <Column id="picmmech_temp_instcd" type="STRING" size="4000"/>
  415. <Column id="picmmech_temp_grupsnglflag" type="STRING" size="4000"/>
  416. <Column id="picmmech_ordinptflag" type="STRING" size="4000"/>
  417. <Column id="picmmech_earncls1" type="STRING" size="4000"/>
  418. <Column id="picmmech_earncls2" type="STRING" size="4000"/>
  419. <Column id="picmmech_earncls3" type="STRING" size="4000"/>
  420. <Column id="picmmech_earncls1nm" type="STRING" size="4000"/>
  421. <Column id="picmmech_earncls2nm" type="STRING" size="4000"/>
  422. <Column id="picmmech_earncls3nm" type="STRING" size="4000"/>
  423. <Column id="picmmech_chk" type="STRING" size="256"/>
  424. <Column id="picmmech_specamt" type="STRING" size="256"/>
  425. <Column id="picmmech_insuclsno" type="STRING" size="256"/>
  426. <Column id="picmmech_pynpy1nm" type="STRING" size="256"/>
  427. <Column id="picmmech_payamt" type="STRING" size="256"/>
  428. <Column id="picmmech_nopyamt" type="STRING" size="256"/>
  429. <Column id="picmmech_payspecamt" type="STRING" size="256"/>
  430. <Column id="picmmech_nopyspecamt" type="STRING" size="256"/>
  431. <Column id="picmmech_mrinopyyn" type="STRING" size="256"/>
  432. <Column id="picmmech_freeflag" type="STRING" size="256"/>
  433. <Column id="picmmech_remfact" type="STRING" size="256"/>
  434. </ColumnInfo>
  435. </Dataset>
  436. </Objects>
  437. <Bind>
  438. <BindItem id="item0" compid="group2.group3.ipt_fromdd" propid="value" datasetid="ds_send" columnid="fromdd"/>
  439. <BindItem id="item1" compid="group2.group3.ipt_todd" propid="value" datasetid="ds_send" columnid="todd"/>
  440. <BindItem id="item2" compid="group2.group3.rdo_ioflag" propid="value" datasetid="ds_send" columnid="ioflag"/>
  441. <BindItem id="item3" compid="group2.group3.ipt_patunitsrch" propid="value" datasetid="ds_send" columnid="pid"/>
  442. <BindItem id="item4" compid="group2.group3.combo1" propid="value" datasetid="ds_send" columnid="judgrid"/>
  443. <BindItem id="item8" compid="group2.group3.cmb_orddrid" propid="value" datasetid="ds_send" columnid="orddrid"/>
  444. <BindItem id="item9" compid="group2.group3.base_date" propid="value" datasetid="ds_send" columnid="orddeptcd"/>
  445. <BindItem id="item12" compid="group2.group3.ipt_code" propid="value" datasetid="ds_send" columnid="code"/>
  446. <BindItem id="item5" compid="group2.group3.ipt_fromdd00" propid="value" datasetid="ds_send" columnid="exefromdd"/>
  447. <BindItem id="item6" compid="group2.group3.ipt_todd00" propid="value" datasetid="ds_send" columnid="exetodd"/>
  448. </Bind>
  449. <Script type="xscript4.0"><![CDATA[/***************************************************************************************
  450. * System Name :
  451. * Job Name :
  452. * Creator :
  453. * Make Date : 2016-05-24
  454. * Description :
  455. *---------------------------------------------------------------------------------------
  456. * Modify Date Modifier Modify Description
  457. *---------------------------------------------------------------------------------------
  458. * 2016-05-24 Live Converter TF->XP
  459. *
  460. *---------------------------------------------------------------------------------------
  461. ****************************************************************************************/
  462. include "com_commonxp::comm_main.xjs";
  463. include "pam_pamcomnxp::PAM001.xjs";
  464. include "pam_pamcomnxp::PAM.xjs";
  465. function SMPIS00500_oninit(obj:Form, e:InitEventInfo)
  466. {
  467. frmf_initForm(obj);
  468. }
  469. function SMPIS00500_onload(obj:Form, e:LoadEventInfo)
  470. {
  471. grdf_initGrid(group2.grd_outjudg);
  472. grdf_setToolTipBind(group2.grd_outjudg);
  473. grdf_initGrid(group2.Div00.Grid00);
  474. //grdf_clipboardPaste(group2.Div00.Grid00)
  475. fInitialize();
  476. }
  477. function fInitialize()
  478. {
  479. ds_send.setColumn(0, "instcd", sysf_getUserInfo("dutplceinstcd"));
  480. if (frmf_checkOpener())
  481. {
  482. try
  483. {
  484. if(!utlf_isNull(arg_ds_send))
  485. {
  486. ds_tmp.copyData(arg_ds_send);
  487. ds_send.setColumn(0, "instcd", sysf_getUserInfo("dutplceinstcd"));
  488. ds_send.setColumn(0, "pid", ds_tmp.getColumn(0, "patunitsrch"));
  489. ds_send.setColumn(0, "fromdd", ds_tmp.getColumn(0, "fromdd"));
  490. ds_send.setColumn(0, "todd", ds_tmp.getColumn(0, "todd"));
  491. ds_send.setColumn(0, "ioflag", ds_tmp.getColumn(0, "ioflag"));
  492. ds_send.setColumn(0, "orddrid", ds_tmp.getColumn(0, "orddrid"));
  493. ds_send.setColumn(0, "orddeptcd", ds_tmp.getColumn(0, "orddeptcd"));
  494. ds_send.setColumn(0, "codecond", ds_tmp.getColumn(0, "codecond"));
  495. ds_send.setColumn(0, "code", ds_tmp.getColumn(0, "code"));
  496. }
  497. }
  498. catch(e)
  499. {
  500. }
  501. }
  502. ds_main_grdlist_calcorderlist.clearData();
  503. fGetOrdDept(); // 진료과 콤보 리스트
  504. dsf_createDsRow("ds_req", [{col:"instcd", type:"STRING", size:256 , val : sysf_getUserInfo("dutplceinstcd")}
  505. , {col:"grupcd", type:"STRING", size:256 , val : ""}]);
  506. var oParam = {};
  507. oParam.id = "TRPIB00603";
  508. oParam.service = "insubasecdmngtapp.JudgCmt";
  509. oParam.method = "reqGetJudgRidList";
  510. oParam.inds = "req=ds_req";
  511. oParam.outds = "ds_init_U0001list=U0001";
  512. oParam.async = false;
  513. //oParam.callback = "cf_TRPIB00603";
  514. tranf_submit(oParam);
  515. var oParam = {};
  516. oParam.id = "TRPIS00510";
  517. oParam.service = "aftjudgstatapp.CalcOrderList";
  518. oParam.method = "reqGetEarnclsList";
  519. oParam.inds = "req=ds_req";
  520. oParam.outds = "ds_init_hidden_earnclslist=earnclslist";
  521. oParam.async = false;
  522. //oParam.callback = "cf_TRPIS00510";
  523. tranf_submit(oParam); // 수가 수익분류 리스트
  524. ds_send.setColumn(0, "codecond", "calc");
  525. if(!utlf_isNull(ds_send.getColumn(0, "pid")))
  526. {
  527. if(utlf_isNull(ds_send.getColumn(0, "ioflag")))
  528. {
  529. ds_send.setColumn(0, "ioflag", "A");
  530. }
  531. fSearch();
  532. }
  533. else
  534. {
  535. ds_send.setColumn(0, "ioflag", "A");
  536. ds_send.setColumn(0, "fromdd", utlf_getCurrentDate());
  537. ds_send.setColumn(0, "todd", utlf_getCurrentDate());
  538. //ds_send.setColumn(0, "exefromdd", utlf_getCurrentDate());
  539. //ds_send.setColumn(0, "exetodd", utlf_getCurrentDate());
  540. }
  541. }
  542. function fGetOrdDept()
  543. {
  544. var oParam = {};
  545. oParam.id = "TRPID20309";
  546. oParam.service = "aftjudgapp.InAftJudgTrgtMan";
  547. oParam.method = "reqGetDeptCDDrID";
  548. oParam.inds = "req=ds_send";
  549. oParam.outds = "ds_init_tmp_orddeptcd_orddeptcdlist=orddeptcd ds_init_tmp_orddrid_orddridlist=orddrid";
  550. oParam.async = false;
  551. //oParam.callback = "cf_TRPID20309";
  552. tranf_submit(oParam);
  553. }
  554. function fSearch()
  555. {
  556. var chk_pid = ds_send.getColumn(0, "pid");
  557. var chk_fromdd = ds_send.getColumn(0, "fromdd");
  558. var chk_todd = ds_send.getColumn(0, "todd");
  559. var chk_exefromdd = ds_send.getColumn(0, "exefromdd");
  560. var chk_exetodd = ds_send.getColumn(0, "exetodd");
  561. var chk_code = ds_send.getColumn(0, "code");
  562. var chk_edicd = ds_send.getColumn(0, "edicd");
  563. var chk_cancer = ds_send.getColumn(0, "cancer");
  564. var chk_large = ds_send.getColumn(0, "large");
  565. var chk_grupcalcscorcd = ds_send.getColumn(0, "grupcalcscorcd");
  566. if (utlf_isNull(chk_fromdd) && utlf_isNull(chk_exefromdd))
  567. {
  568. sysf_messageBox("조회기간은 ", "I003");
  569. group2.group3.ipt_fromdd.setFocus();
  570. }
  571. else if (!utlf_isValidDateTime(chk_fromdd, "YYYYMMDD") && !utlf_isValidDateTime(chk_exefromdd, "YYYYMMDD"))
  572. {
  573. sysf_messageBox("날짜 타입이 ", "E004");
  574. group2.group3.ipt_fromdd.setFocus();
  575. }
  576. else if (utlf_isNull(chk_todd) && utlf_isNull(chk_exetodd))
  577. {
  578. sysf_messageBox("조회기간은 ", "I003");
  579. group2.group3.ipt_todd.setFocus();
  580. }
  581. else if (!utlf_isValidDateTime(chk_todd,"YYYYMMDD") && !utlf_isValidDateTime(chk_exetodd,"YYYYMMDD"))
  582. {
  583. sysf_messageBox("날짜 타입이 ", "E004");
  584. group2.group3.ipt_todd.setFocus();
  585. }
  586. else
  587. {
  588. var chk_Time = utlf_getCurrentTime() ;
  589. var chk_diff = utlf_getDateInterval(chk_fromdd, chk_todd, "dd");
  590. var chk_exediff = utlf_getDateInterval(chk_exefromdd, chk_exetodd, "dd");
  591. if (chk_Time >= "080000" && chk_Time <= "173000")
  592. {
  593. if ((!utlf_isNull(chk_fromdd) && chk_diff > "31") || (!utlf_isNull(chk_exefromdd) && chk_exediff > "31") )
  594. {
  595. alert("근무시간 중(08:00~17:30)에는 한달 이내만 조회 가능합니다!! 조회 기간을 다시 설정하세요!!!");
  596. group2.group3.ipt_fromdd.setFocus();
  597. }
  598. else
  599. {
  600. ds_main_grdlist_calcorderlist.clearData();
  601. ds_send.setColumn(0, "pid", ds_send.getColumn(0, "pid"));
  602. var oParam = {};
  603. oParam.id = "TRPIS00500";
  604. oParam.service = "aftjudgstatapp.CalcOrderList";
  605. oParam.method = "reqGetCalcOrderList";
  606. oParam.inds = "req=ds_send";
  607. oParam.outds = "ds_main_grdlist_calcorderlist=calcorderlist";
  608. oParam.async = false;
  609. //oParam.callback = "cf_TRPIS00500";
  610. tranf_submit(oParam);
  611. if(ds_main_grdlist_calcorderlist.getColumn(0, "pid") == "over10000") //if (model.getValue("/root/main/grdlist/calcorderlist[1]/pid") == "over10000")
  612. {
  613. ds_main_grdlist_calcorderlist.clearData();
  614. sysf_messageBox("조회된 건수가 만건을 초과하여 배치로 ", "I001");
  615. }
  616. }
  617. }
  618. else
  619. {
  620. if ((!utlf_isNull(chk_fromdd) && chk_diff > "365") || (!utlf_isNull(chk_exefromdd) && chk_exediff > "365") )
  621. {
  622. alert("조회기간은 일년 이내만 가능합니다!! 조회 기간을 다시 설정하세요!!!");
  623. group2.group3.ipt_fromdd.setFocus();
  624. }
  625. else
  626. {
  627. ds_main_grdlist_calcorderlist.clearData();
  628. var oParam = {};
  629. oParam.id = "TRPIS00500";
  630. oParam.service = "aftjudgstatapp.CalcOrderList";
  631. oParam.method = "reqGetCalcOrderList";
  632. oParam.inds = "req=ds_send";
  633. oParam.outds = "ds_main_grdlist_calcorderlist=calcorderlist";
  634. oParam.async = false;
  635. //oParam.callback = "cf_TRPIS00500";
  636. tranf_submit(oParam);
  637. if(ds_main_grdlist_calcorderlist.getColumn(0, "pid") == "over10000")
  638. {
  639. ds_main_grdlist_calcorderlist.clearData();
  640. sysf_messageBox("조회된 건수가 만건을 초과하여 배치로 ", "I001");
  641. }
  642. }
  643. }
  644. }
  645. }
  646. function group2_group3_rdo_ioflag_onitemchanged(obj:Radio, e:ItemChangeEventInfo)
  647. {
  648. fGetOrdDept();
  649. }
  650. function group2_group3_ipt_patunitsrch_onkeyup(obj:Edit, e:KeyEventInfo)
  651. {
  652. if(e.keycode == 13)
  653. {
  654. obj.updateToDataset();
  655. if (String(obj.value).length > 1)
  656. {
  657. ds_send.setColumn(0, "pid", obj.value);
  658. if( isNaN(ds_send.getColumn(0, "pid")))
  659. {
  660. fPatSrch();
  661. }
  662. else
  663. {
  664. fSearch();
  665. }
  666. }
  667. }
  668. }
  669. function fPatSrch()
  670. {
  671. var ipt_pid = ds_send.getColumn(0, "pid");
  672. if (ipt_pid)
  673. {
  674. if (!isNaN(ipt_pid))
  675. {
  676. ds_hidden_sppmc02500_cond.setColumn(0, "srchcond", "1");
  677. ds_hidden_sppmc02500_cond.setColumn(0, "pid", ipt_pid);
  678. }
  679. else
  680. {
  681. ds_hidden_sppmc02500_cond.setColumn(0, "srchcond", "2");
  682. ds_hidden_sppmc02500_cond.setColumn(0, "hngnm", ipt_pid);
  683. }
  684. }
  685. else
  686. {
  687. ds_hidden_sppmc02500_cond.clearData();
  688. ds_hidden_sppmc02500_cond.addRow();
  689. }
  690. var objArg = new Object();
  691. objArg.arg_ds_send= ds_hidden_sppmc02500_cond;
  692. frmf_modal("SPPMC02500", "SPPMC02500", objArg, "", "", "", "", "", "", "", "", "", "M");
  693. var srch_pid = ds_patinfolist.getColumn(0, "pid");
  694. if (srch_pid)
  695. {
  696. ds_send.setColumn(0, "pid", srch_pid);
  697. }
  698. }
  699. function group2_group3_base_date_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
  700. {
  701. var orddeptcd = ds_send.getColumn(0, "orddeptcd");
  702. if (orddeptcd)
  703. {
  704. ds_init_tmp_orddrid_orddridlist.filterstr = "dp == '"+orddeptcd+"'";
  705. }
  706. else
  707. {
  708. ds_init_tmp_orddrid_orddridlist.filterstr = "";
  709. }
  710. ds_send.setColumn(0, "orddrid", "");
  711. }
  712. function group2_group3_cmb_large_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
  713. {
  714. ds_send.setColumn(0, "middle", "");
  715. ds_send.setColumn(0, "small", "");
  716. FilteredDataset01.filterstr = "step == 'M' && earncls1 == '" + obj.value + "'"
  717. group2.group3.cmb_middle.innerdataset = FilteredDataset01;
  718. group2.group3.cmb_middle.datacolumn = "earncls2nm";
  719. group2.group3.cmb_middle.codecolumn = "earncls2";
  720. }
  721. function group2_group3_cmb_middle_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
  722. {
  723. FilteredDataset02.filterstr = "step == 'S' && earncls1 == '" + ds_send.getColumn(0, "large") + "' && earncls2 == '" + obj.value + "'";
  724. group2.group3.cmb_small.innerdataset = FilteredDataset02;
  725. group2.group3.cmb_small.datacolumn = "earncls3nm";
  726. group2.group3.cmb_small.codecolumn = "earncls3";
  727. }
  728. function group2_group3_rdo_searchcond_onitemchanged(obj:Radio, e:ItemChangeEventInfo)
  729. {
  730. ds_send.setColumn(0, "code", "");
  731. ds_send.setColumn(0, "cancer", "");
  732. ds_send.setColumn(0, "large", "");
  733. ds_send.setColumn(0, "middle", "");
  734. ds_send.setColumn(0, "large", "");
  735. var choice = obj.value;
  736. if ( choice == "calc" )
  737. {
  738. group2.group3.cp_code.enable = true;
  739. group2.group3.ipt_code.enable = true;
  740. group2.group3.ipt_grupcalcscorcd.enable = true;
  741. group2.group3.cp_edicd.enable = true;
  742. group2.group3.ipt_edicd.enable = true;
  743. group2.group3.rdo_cancer.enable = false;
  744. group2.group3.cp_large.enable = false;
  745. group2.group3.cp_middle.enable = false;
  746. group2.group3.cp_small.enable = false;
  747. group2.group3.cmb_large.enable = false;
  748. group2.group3.cmb_middle.enable = false;
  749. group2.group3.cmb_small.enable = false;
  750. }
  751. else if (choice == "cancer")
  752. {
  753. group2.group3.rdo_cancer.index = 0;
  754. group2.group3.cp_code.enable = false;
  755. group2.group3.ipt_code.enable = false;
  756. group2.group3.ipt_grupcalcscorcd.enable = false;
  757. group2.group3.cp_edicd.enable = false;
  758. group2.group3.ipt_edicd.enable = false;
  759. group2.group3.rdo_cancer.enable = true;
  760. group2.group3.cp_large.enable = false;
  761. group2.group3.cp_middle.enable = false;
  762. group2.group3.cp_small.enable = false;
  763. group2.group3.cmb_large.enable = false;
  764. group2.group3.cmb_middle.enable = false;
  765. group2.group3.cmb_small.enable = false;
  766. }
  767. else if ( choice == "kind" )
  768. {
  769. group2.group3.cp_code.enable = false;
  770. group2.group3.ipt_code.enable = false;
  771. group2.group3.ipt_grupcalcscorcd.enable = false;
  772. group2.group3.cp_edicd.enable = false;
  773. group2.group3.ipt_edicd.enable = false;
  774. group2.group3.rdo_cancer.enable = false;
  775. group2.group3.cp_large.enable = true;
  776. group2.group3.cp_middle.enable = true;
  777. group2.group3.cp_small.enable = true;
  778. group2.group3.cmb_large.enable = true;
  779. group2.group3.cmb_middle.enable = true;
  780. group2.group3.cmb_small.enable = true;
  781. }
  782. }
  783. function btn_code_onclick(obj:Button, e:ClickEventInfo)
  784. {
  785. fGetSnglcalcscorcd();
  786. ds_main_picmmech.appendData(ds_hidden_smpic00200_rslt_picmech);
  787. ds_hidden_smpic00200_rslt_mech.clearData();
  788. ds_hidden_smpic00200_rslt_picmech.clearData();
  789. ds_temp_picmmech.clearData();
  790. }
  791. function group2_group3_ipt_code_ontextchanged(obj:Edit, e:TextChangedEventInfo)
  792. {
  793. ds_send.setColumn(0, "edicd", "");
  794. }
  795. function fGetSnglcalcscorcd()
  796. {
  797. ds_hidden_smpic00200_judgsrch.setColumn(0, "con1_dd", utlf_getCurrentDate());
  798. ds_hidden_smpic00200_judgsrch.setColumn(0, "con2_gsflag", "S");
  799. ds_hidden_smpic00200_judgsrch.setColumn(0, "con3_search1", "calcscorcd");
  800. ds_hidden_smpic00200_judgsrch.setColumn(0, "con4_search2", "");
  801. ds_hidden_smpic00200_judgsrch.setColumn(0, "con5_insu", "insu");
  802. ds_hidden_smpic00200_rslt_mech.clearData();
  803. ds_hidden_smpic00200_rslt_picmech.clearData();
  804. var objArg = new Object();
  805. objArg.arg_ds_temp = ds_hidden_smpic00200_judgsrch;
  806. frmf_modal("SMPIC00200", "SMPIC00200", objArg, null, null, null, null, null, null, null, null, null, "M");
  807. ds_hidden_smpic00200_rslt_mech.copyData(ds_temp_picmmech);
  808. ds_hidden_smpic00200_rslt_picmech.copyData(ds_temp_picmmech);
  809. if (ds_hidden_smpic00200_rslt_picmech.rowcount == 0)
  810. {
  811. sysf_messageBox("수가조회 화면에서 선택한 결과가", "I004");
  812. return;
  813. }
  814. if(ds_hidden_smpic00200_rslt_picmech.findRowExpr("ordinptflag != 'A'") > -1)
  815. {
  816. sysf_messageBox("처방이 불가한 코드", "E008");
  817. return;
  818. }
  819. }
  820. function group2_group3_btn_pat_onclick(obj:Button, e:ClickEventInfo)
  821. {
  822. fPatSrch();
  823. }
  824. function group2_group3_btn_edicd_onclick(obj:Button, e:ClickEventInfo)
  825. {
  826. fGetEdicd();
  827. }
  828. function group2_group3_ipt_grupcalcscorcd_ontextchanged(obj:Edit, e:TextChangedEventInfo)
  829. {
  830. ds_send.setColumn(0, "edicd", "");
  831. }
  832. function group2_group3_btn_groupcd_onclick(obj:Button, e:ClickEventInfo)
  833. {
  834. fGetGrupcalcscorcd();
  835. }
  836. function group2_group3_ipt_edicd_ontextchanged(obj:Edit, e:TextChangedEventInfo)
  837. {
  838. ds_send.setColumn(0, "code", "");
  839. }
  840. function fGetEdicd()
  841. {
  842. ds_hidden_smpic00200_judgsrch.setColumn(0, "con1_dd", ds_send.getColumn(0, "fromdd"));
  843. ds_hidden_smpic00200_judgsrch.setColumn(0, "con2_gsflag", "S");
  844. ds_hidden_smpic00200_judgsrch.setColumn(0, "con3_search1", "edicd");
  845. ds_hidden_smpic00200_judgsrch.setColumn(0, "con4_search2", "");
  846. ds_hidden_smpic00200_judgsrch.setColumn(0, "con5_insu", "insu");
  847. ds_hidden_smpic00200_rslt_mech.clearData();
  848. ds_hidden_smpic00200_rslt_picmech.clearData();
  849. var objArg = new Object();
  850. objArg.arg_ds_temp = ds_hidden_smpic00200_judgsrch;
  851. frmf_modal("SMPIC00200", "SMPIC00200", objArg, null, null, null, null, null, null, null, null, null, "M");
  852. ds_hidden_smpic00200_rslt_mech.copyData(ds_temp_mech);
  853. ds_hidden_smpic00200_rslt_picmech.copyData(ds_temp_picmmech);
  854. if(ds_hidden_smpic00200_rslt_mech.rowcount == 0)
  855. {
  856. sysf_messageBox("수가조회 화면에서 선택한 결과가", "I004");
  857. return;
  858. }
  859. if(ds_hidden_smpic00200_rslt_mech.getColumn(0, "ordinptflag") != "A")
  860. {
  861. sysf_messageBox("처방이 불가한 코드", "E008");
  862. return;
  863. }
  864. ds_send.setColumn(0, "code", ds_hidden_smpic00200_rslt_picmech.getColumn(0, "picmmech_insuedicd"));
  865. }
  866. function group2_group3_btn_search_onclick(obj:Button, e:ClickEventInfo)
  867. {
  868. fSearch();
  869. }
  870. function group2_btn_excelsave_onclick(obj:Button, e:ClickEventInfo)
  871. {
  872. if (ds_main_grdlist_calcorderlist.rowcount == 0)
  873. {
  874. sysf_messageBox("엑셀저장할 내역이", "I004");
  875. }
  876. else
  877. {
  878. grdf_exportExcel(group2.grd_outjudg, "계산처방시행 조회_"+utlf_getCurrentDate(), "see");
  879. }
  880. }
  881. function fGetGrupcalcscorcd()
  882. {
  883. ds_hidden_smpic00200_judgsrch.setColumn(0, "con1_dd", ds_send.getColumn(0, "fromdd"));
  884. ds_hidden_smpic00200_judgsrch.setColumn(0, "con2_gsflag", "S");
  885. ds_hidden_smpic00200_judgsrch.setColumn(0, "con3_search1", "calcscorcd");
  886. ds_hidden_smpic00200_judgsrch.setColumn(0, "con4_search2", "");
  887. ds_hidden_smpic00200_judgsrch.setColumn(0, "con5_insu", "insu");
  888. ds_hidden_smpic00200_rslt_mech.clearData();
  889. ds_hidden_smpic00200_rslt_picmech.clearData();
  890. var objArg = new Object();
  891. objArg.arg_ds_temp = ds_hidden_smpic00200_judgsrch;
  892. frmf_modal("SMPIC00200", "SMPIC00200", objArg, null, null, null, null, null, null, null, null, null, "M");
  893. ds_hidden_smpic00200_rslt_mech.copyData(ds_temp_mech);
  894. ds_hidden_smpic00200_rslt_picmech.copyData(ds_temp_picmmech);
  895. if(ds_hidden_smpic00200_rslt_mech.rowcount == 0)
  896. {
  897. sysf_messageBox("수가조회 화면에서 선택한 결과가", "I004");
  898. return;
  899. }
  900. if(ds_hidden_smpic00200_rslt_mech.getColumn(0, "ordinptflag") != "A")
  901. {
  902. sysf_messageBox("처방이 불가한 코드", "E008");
  903. return;
  904. }
  905. ds_send.setColumn(0, "grupcalcscorcd", ds_hidden_smpic00200_rslt_picmech.getColumn(0, "picmmech_calcscorcd"));
  906. }
  907. function group2_btn_batch_onclick(obj:Button, e:ClickEventInfo)
  908. {
  909. var todd = utlf_getCurrentDate();
  910. var objArg = new Object();
  911. objArg.todd = todd;
  912. objArg.execrid = sysf_getUserId();
  913. objArg.prgmid = "CalcOrderListBatch";
  914. frmf_open("SPZSB00301", "SPZSB00301", objArg, "","","","","","","","","","M");
  915. }
  916. function group2_group3_ipt_code_oneditclick(obj:Edit, e:EditClickEventInfo)
  917. {
  918. }
  919. function group2_Div00_Button01_onclick(obj:Button, e:ClickEventInfo)
  920. {
  921. var nrow = grdf_getSelectedRows(group2.Div00.Grid00);
  922. for (var i=nrow.length-1; i >= 0; i--) {
  923. ds_main_picmmech.deleteRow(nrow[i]);
  924. }
  925. }
  926. function group2_Div00_Button02_onclick(obj:Button, e:ClickEventInfo)
  927. {
  928. if (!utlf_isNull(group2.Div00.ipt_code.value)){
  929. var arrow = ds_main_picmmech.addRow();
  930. ds_main_picmmech.setColumn(arrow, "picmmech_calcscorcd", group2.Div00.ipt_code.value);
  931. obj.value = "";
  932. }
  933. var code = "";
  934. for (var i=0; i < ds_main_picmmech.rowcount; i++) {
  935. code += ds_main_picmmech.getColumn(i, "picmmech_calcscorcd") + (i==ds_main_picmmech.rowcount-1 ? "" : ",");
  936. }
  937. ds_send.setColumn(0, "code", code);
  938. group2.Div00.ipt_code.value = "";
  939. group2.Div00.visible = false;
  940. group2.group3.btn_search.click();
  941. }
  942. function group2_Button00_onclick(obj:Button, e:ClickEventInfo)
  943. {
  944. if (sysf_messageBox("배치실행을", "Q003") == 6) {
  945. var oParam = {};
  946. oParam.id = "TRPIS00500";
  947. oParam.service = "aftjudgstatapp.CalcOrderList";
  948. oParam.method = "reqGetCalcOrderListBatch";
  949. oParam.inds = "req=ds_send";
  950. oParam.outds = "ds_main_grdlist_calcorderlist=calcorderlist";
  951. oParam.async = false;
  952. //oParam.callback = "cf_TRPIS00500";
  953. tranf_submit(oParam);
  954. group2.btn_batch.click();
  955. }
  956. }
  957. function grp_biz_grp_sea_btn_today_onclick(obj:Button, e:ClickEventInfo)
  958. {
  959. ds_send.setColumn(0, "fromdd", utlf_getCurrentDate());
  960. ds_send.setColumn(0, "todd", utlf_getCurrentDate());
  961. }
  962. function group2_group3_btn_today00_onclick(obj:Button, e:ClickEventInfo)
  963. {
  964. ds_send.setColumn(0, "exefromdd", utlf_getCurrentDate());
  965. ds_send.setColumn(0, "exetodd", utlf_getCurrentDate());
  966. }
  967. function grp_biz_grp_sea_btn_redo_onclick(obj:Button, e:ClickEventInfo)
  968. {
  969. ds_send.setColumn(0, "fromdd", "");
  970. ds_send.setColumn(0, "todd", "");
  971. }
  972. function group2_group3_btn_redo00_onclick(obj:Button, e:ClickEventInfo)
  973. {
  974. ds_send.setColumn(0, "exefromdd", "");
  975. ds_send.setColumn(0, "exetodd", "");
  976. }
  977. function group2_Div00_ipt_code_onkeydown(obj:Edit, e:KeyEventInfo)
  978. {
  979. if (e.keycode == 13) {
  980. var strtmp = String(obj.value).split("\n");
  981. if(String(obj.value).length > 0){
  982. var arrow = ds_main_picmmech.addRow();
  983. ds_main_picmmech.setColumn(arrow, "picmmech_calcscorcd", String(obj.value).getTrim());
  984. obj.value = "";
  985. }
  986. }
  987. }
  988. function group2_group3_Button01_onclick(obj:Button, e:ClickEventInfo)
  989. {
  990. group2.Div00.visible = true;
  991. //group2.Div00.ipt_code.setFocus();
  992. }
  993. function group2_group3_btn_code_onclick(obj:Button, e:ClickEventInfo)
  994. {
  995. fGetSnglcalcscorcd();
  996. if (ds_hidden_smpic00200_rslt_picmech.rowcount > 0)
  997. {
  998. ds_send.setColumn(0,"code", ds_hidden_smpic00200_rslt_picmech.getColumn(0,"picmmech_calcscorcd"));
  999. }
  1000. ds_hidden_smpic00200_rslt_mech.clearData();
  1001. ds_hidden_smpic00200_rslt_picmech.clearData();
  1002. ds_temp_picmmech.clearData();
  1003. }
  1004. function group2_Div00_Button00_onclick(obj:Button, e:ClickEventInfo)
  1005. {
  1006. group2.Div00.ipt_code.value = "";
  1007. group2.Div00.visible = false;
  1008. }
  1009. function group2_Div00_Button03_onclick(obj:Button, e:ClickEventInfo)
  1010. {
  1011. if (!utlf_isNull(group2.Div00.ipt_code.value)){
  1012. var arrow = ds_main_picmmech.addRow();
  1013. ds_main_picmmech.setColumn(arrow, "picmmech_calcscorcd", group2.Div00.ipt_code.value);
  1014. obj.value = "";
  1015. }
  1016. var code = "";
  1017. for (var i=0; i < ds_main_picmmech.rowcount; i++) {
  1018. code += ds_main_picmmech.getColumn(i, "picmmech_calcscorcd") + (i==ds_main_picmmech.rowcount-1 ? "" : ",");
  1019. }
  1020. ds_send.setColumn(0, "code", code);
  1021. group2.Div00.ipt_code.value = "";
  1022. group2.Div00.visible = false;
  1023. group2.Button00.setFocus();
  1024. group2.Button00.click();
  1025. }
  1026. function group2_Div00_ipt_code_ontextchange(obj:Edit, e:TextChangeEventInfo)
  1027. {
  1028. }
  1029. function group2_Div00_ipt_code_ontextchanged(obj:Edit, e:TextChangedEventInfo)
  1030. {
  1031. var lv_sClipboardData = system.getClipboard("CF_TEXT").replace(",","\n");
  1032. if (lv_sClipboardData.length > 0) {
  1033. var lv_sClipboardRecord = lv_sClipboardData.split("\n");
  1034. for (var i=0; i < lv_sClipboardRecord.length; i++){
  1035. var rtn = String(lv_sClipboardRecord[i]).replace(String.fromCharCode(13),"");
  1036. if(rtn.length > 0){
  1037. var arrow = ds_main_picmmech.addRow();
  1038. ds_main_picmmech.setColumn(arrow, "picmmech_calcscorcd", rtn);
  1039. }
  1040. }
  1041. system.setClipboard("CF_TEXT","");
  1042. group2.Div00.Grid00.setFocus();
  1043. group2.Div00.ipt_code.value = "";
  1044. }
  1045. }
  1046. ]]></Script>
  1047. </Form>
  1048. </FDL>