SMPID22200_공여자명세서생성.xfdl 36 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860
  1. <?xml version="1.0" encoding="utf-8"?>
  2. <FDL version="1.5">
  3. <TypeDefinition url="..\..\..\default_typedef.xml"/>
  4. <Form id="workform" position="absolute 0 0 776 454" titletext="공여자명세서생성" oninit="model1_oninit">
  5. <Layouts>
  6. <Layout>
  7. <Grid id="grd_clbsmast_O" class="datagrid2" taborder="32" binddataset="ds_grid_datagrid1" useinputpanel="false" position="absolute 0 99 768 267">
  8. <Formats>
  9. <Format id="default">
  10. <Columns>
  11. <Column size="23"/>
  12. <Column size="61"/>
  13. <Column size="41"/>
  14. <Column size="67"/>
  15. <Column size="22"/>
  16. <Column size="53"/>
  17. <Column size="30"/>
  18. <Column size="30"/>
  19. <Column size="72"/>
  20. <Column size="72"/>
  21. <Column size="0"/>
  22. <Column size="0"/>
  23. <Column size="70"/>
  24. <Column size="60"/>
  25. <Column size="65"/>
  26. <Column size="65"/>
  27. <Column size="64"/>
  28. </Columns>
  29. <Rows>
  30. <Row size="35" band="head"/>
  31. <Row size="20"/>
  32. </Rows>
  33. <Band id="head">
  34. <Cell text="C"/>
  35. <Cell col="1" text="청구년월"/>
  36. <Cell col="2" text="차수"/>
  37. <Cell col="3" colspan="2" text="등록번호"/>
  38. <Cell col="5" text="환자명"/>
  39. <Cell col="6" text="보험&#10;유형"/>
  40. <Cell col="7" text="보조&#10;유형"/>
  41. <Cell col="8" text="진료개시일"/>
  42. <Cell col="9" text="진료종료일"/>
  43. <Cell col="10" text="유형시작일"/>
  44. <Cell col="11" text="유형종료일"/>
  45. <Cell col="12" text="진료과"/>
  46. <Cell col="13" text="주치의"/>
  47. <Cell col="14" text="접수번호"/>
  48. <Cell col="15" text="접수일자"/>
  49. <Cell col="16" text="명일련"/>
  50. </Band>
  51. <Band id="body">
  52. <Cell displaytype="checkbox" edittype="checkbox" text="bind:fromchk"/>
  53. <Cell col="1" style="align:center middle;" text="bind:clamym" mask="####-##"/>
  54. <Cell col="2" style="align:center middle;" text="bind:clamdg"/>
  55. <Cell col="3" style="align:center middle;" text="bind:pid"/>
  56. <Cell col="4" style="align:center middle;" text="bind:pidsn"/>
  57. <Cell col="5" style="align:center middle;" text="bind:patnm"/>
  58. <Cell col="6" style="align:center middle;" text="bind:insukind"/>
  59. <Cell col="7" style="align:center middle;" text="bind:suppkind"/>
  60. <Cell col="8" style="align:center middle;" text="bind:ordfromdd" mask="####-##-##"/>
  61. <Cell col="9" style="align:center middle;accessibility: ;" text="bind:ordtodd" mask="####-##-##"/>
  62. <Cell col="10" style="align:center middle;" text="bind:iphsfromdd" mask="####-##-##"/>
  63. <Cell col="11" style="align:center middle;" text="bind:iphstodd" mask="####-##-##"/>
  64. <Cell col="12" displaytype="combo" style="align:left middle;" text="bind:orddeptcd" combodataset="ds_cond_deptinfolist" combocodecol="deptcd" combodatacol="depthngnm"/>
  65. <Cell col="13" displaytype="combo" style="align:center middle;" text="bind:orddrid" combodataset="ds_cond_orddrid" combocodecol="userid" combodatacol="usernm"/>
  66. <Cell col="14" style="align:center middle;" text="bind:acptno"/>
  67. <Cell col="15" style="align:center middle;" text="bind:acptdd"/>
  68. <Cell col="16" style="align:center middle;" text="bind:docuseqno"/>
  69. <Cell col="17"/>
  70. </Band>
  71. </Format>
  72. </Formats>
  73. </Grid>
  74. <Grid id="grd_clbsmast" class="datagrid2" taborder="3" useinputpanel="false" position="absolute 0 99 768 267" binddataset="ds_grid_datagrid1" cellsizingtype="col">
  75. <Formats>
  76. <Format id="default">
  77. <Columns>
  78. <Column size="23"/>
  79. <Column size="61"/>
  80. <Column size="41"/>
  81. <Column size="67"/>
  82. <Column size="22"/>
  83. <Column size="53"/>
  84. <Column size="30"/>
  85. <Column size="35"/>
  86. <Column size="80"/>
  87. <Column size="80"/>
  88. <Column size="80"/>
  89. <Column size="72"/>
  90. <Column size="70"/>
  91. <Column size="60"/>
  92. <Column size="65"/>
  93. <Column size="65"/>
  94. <Column size="64"/>
  95. </Columns>
  96. <Rows>
  97. <Row size="35" band="head"/>
  98. <Row size="20"/>
  99. </Rows>
  100. <Band id="head">
  101. <Cell text="C"/>
  102. <Cell col="1" text="청구년월"/>
  103. <Cell col="2" text="차수"/>
  104. <Cell col="3" colspan="2" text="등록번호"/>
  105. <Cell col="5" text="환자명"/>
  106. <Cell col="6" text="보험&#10;유형"/>
  107. <Cell col="7" text="보조&#10;유형"/>
  108. <Cell col="8" text="진료개시일"/>
  109. <Cell col="9" text="진료종료일"/>
  110. <Cell col="10" text="유형시작일"/>
  111. <Cell col="11" text="유형종료일"/>
  112. <Cell col="12" text="진료과"/>
  113. <Cell col="13" text="주치의"/>
  114. <Cell col="14" text="접수번호"/>
  115. <Cell col="15" text="접수일자"/>
  116. <Cell col="16" text="명일련"/>
  117. </Band>
  118. <Band id="body">
  119. <Cell displaytype="checkbox" edittype="checkbox" text="bind:fromchk"/>
  120. <Cell col="1" style="align:center middle;" text="bind:clamym" mask="####-##"/>
  121. <Cell col="2" style="align:center middle;" text="bind:clamdg"/>
  122. <Cell col="3" style="align:center middle;" text="bind:pid"/>
  123. <Cell col="4" style="align:center middle;" text="bind:pidsn"/>
  124. <Cell col="5" style="align:center middle;" text="bind:patnm"/>
  125. <Cell col="6" style="align:center middle;" text="bind:insukind"/>
  126. <Cell col="7" style="align:center middle;" text="bind:suppkind"/>
  127. <Cell col="8" style="align:center middle;" text="bind:ordfromdd" mask="####-##-##"/>
  128. <Cell col="9" style="align:center middle;accessibility: ;" text="bind:ordtodd" mask="####-##-##"/>
  129. <Cell col="10" style="align:center middle;" text="bind:iphsfromdd" mask="####-##-##"/>
  130. <Cell col="11" style="align:center middle;" text="bind:iphstodd" mask="####-##-##"/>
  131. <Cell col="12" displaytype="combo" style="align:left middle;" text="bind:orddeptcd" combodataset="ds_cond_deptinfolist" combocodecol="cd" combodatacol="nm"/>
  132. <Cell col="13" displaytype="combo" style="align:center middle;" text="bind:orddrid" combodataset="ds_cond_orddrid" combocodecol="cd" combodatacol="nm"/>
  133. <Cell col="14" style="align:center middle;" text="bind:acptno"/>
  134. <Cell col="15" style="align:center middle;" text="bind:acptdd"/>
  135. <Cell col="16" style="align:center middle;" text="bind:docuseqno"/>
  136. <Cell col="17"/>
  137. </Band>
  138. </Format>
  139. </Formats>
  140. </Grid>
  141. <Div id="group1" anchor="left top right" taborder="2" text="Div00" class="div_SA" position="absolute 0 27 768 69">
  142. <Layouts>
  143. <Layout>
  144. <Static id="caption2" text="청구년월" class="search_name" position="absolute 8 10 82 30" style="align:left middle;" anchor="default"/>
  145. <Button id="btn_search" taborder="18" text="조회" onlbuttonup="btn_search_onlbuttonup" class="btn1" position="absolute 700 10 756 30" anchor="top right"/>
  146. <Calendar id="Calendar00" taborder="19" dateformat="yyyy-MM" editformat="yyyy-MM" class="input_essential" style="align:center middle;" anchor="default" position="absolute 0 0 0 0"/>
  147. <Edit id="ipt_clamdg" taborder="21" class="input_search" position="absolute 160 10 201 30" style="align:left middle;" anchor="default" enable="false"/>
  148. <Static id="caption1" text="내원형태" class="search_name" position="absolute 225 10 299 30" anchor="default" style="align:left middle;"/>
  149. <Combo id="cmb_ioflag" taborder="22" class="combo_search" position="absolute 299 10 409 30" anchor="default" innerdataset="@ds_cond_iofalg" codecolumn="value" datacolumn="label" onitemchanged="group1_cmb_ioflag_onitemchanged"/>
  150. <Static id="caption38" text="등록번호" class="search_name" position="absolute 433 10 507 27" anchor="default" style="align:left middle;"/>
  151. <Edit id="ipt_patunitsrch" taborder="23" class="input_search" position="absolute 507 10 604 30" anchor="default"/>
  152. <cp_monthCal id="cp_monthCal00" titletext="monthCalendar" taborder="24" text="cp_monthCal00" scrollbars="none" position="absolute 82 10 157 30" anchor="default"/>
  153. </Layout>
  154. </Layouts>
  155. </Div>
  156. <Static id="cap_judgtrgtman" text="기본정보" class="tit_2" position="absolute 0 79 149 99"/>
  157. <Static id="caption2" text="등록정보" class="tit_2" position="absolute -3 277 123 297"/>
  158. <Button id="btn_confirm" taborder="16" text="생성" onlbuttonup="btn_confirm_onlbuttonup" class="btn4" position="absolute 585 426 641 446" onclick="btn_confirm_onclick"/>
  159. <Button id="btn_init" taborder="17" text="초기화" onlbuttonup="btn_init_onlbuttonup" class="btn4" position="absolute 644 426 713 446"/>
  160. <Static id="caption16" text="총진료비만 입력하세요! 단, CT가 있어서 수기로 계산할때만 본인부담금을 계산해서 입력하세요!" position="absolute 0 426 565 446"/>
  161. <Static id="Static07" text="Static00" class="sta_DA_box" position="absolute -2 297 768 423"/>
  162. <Static id="caption13" text="구분" class="cell_1" position="absolute -1 298 79 322" style="align:left middle;"/>
  163. <Combo id="cmb_spclcd" taborder="19" class="combo_essential" position="absolute 82 300 271 320" innerdataset="@ds_cond_flag" codecolumn="value" datacolumn="label" onitemchanged="cmb_spclcd_onitemchanged"/>
  164. <Static id="caption5" text="처방코드" class="cell_1" position="absolute 274 298 354 322" style="align:center middle;"/>
  165. <Edit id="ipt_calcscorcd" taborder="20" class="input_essential" position="absolute 357 300 430 320" enable="false"/>
  166. <Static id="caption10" text="상병코드" class="cell_1" position="absolute 433 298 513 322" style="align:center middle;"/>
  167. <Combo id="cmb_diagcd" taborder="21" class="combo_essential" position="absolute 516 300 610 320" innerdataset="@ds_cond_sickcode" codecolumn="value" datacolumn="label"/>
  168. <Edit id="ipt_hngnm" taborder="22" class="input_essential" position="absolute 82 325 764 345" enable="false"/>
  169. <Edit id="ipt_inclnm" taborder="23" class="input_essential" position="absolute 82 350 764 370" enable="false"/>
  170. <Static id="caption3" text="처방명" class="cell_1" position="absolute -1 323 79 347" style="align:left middle;"/>
  171. <Static id="caption4" text="준용명" class="cell_1" position="absolute -1 348 79 372" style="align:left middle;"/>
  172. <Static id="caption12" text="EDI메모" class="cell_1" position="absolute -1 373 79 397" style="align:left middle;"/>
  173. <Edit id="ipt_mx999" taborder="24" class="input_essential" position="absolute 82 375 764 395"/>
  174. <Static id="caption7" text="1회량" class="cell_1" position="absolute -1 398 79 422" style="align:left middle;"/>
  175. <Edit id="ipt_qty" taborder="25" class="input_essential" position="absolute 82 400 108 420" style="align:center middle;" enable="false"/>
  176. <Static id="caption8" text="횟수" class="cell_1" position="absolute 111 398 152 422" style="align:center middle;"/>
  177. <Edit id="ipt_tims" taborder="26" class="input_essential" position="absolute 155 400 181 420" style="align:center middle;" enable="false"/>
  178. <Static id="caption11" text="일수" class="cell_1" position="absolute 184 398 225 422" style="align:center middle;"/>
  179. <Edit id="ipt_dayno" taborder="27" class="input_essential" position="absolute 228 400 254 420" style="align:center middle;" enable="false"/>
  180. <Static id="caption9" text="총진료비" class="cell_1" position="absolute 257 398 337 422" style="align:center middle;"/>
  181. <MaskEdit id="ipt_totamt" taborder="28" mask="#,###" class="input_essential" position="absolute 340 400 430 420" style="align:right middle;"/>
  182. <Static id="caption14" text="본인부담" class="cell_1" position="absolute 433 398 513 422" style="align:center middle;"/>
  183. <MaskEdit id="ipt_ownbamt" taborder="29" mask="#,###" class="input_essential" position="absolute 516 400 764 420" style="align:right middle;"/>
  184. <Radio id="rdo_clamflag" taborder="31" columncount="3" rowcount="1" innerdataset="@ds_cond_clamflag2" codecolumn="value" datacolumn="label" position="absolute 619 300 769 320" visible="true"/>
  185. <Static id="caption00" text="공여자명세서생성" class="tit_1" position="absolute 0 0 177 26"/>
  186. <Button id="btn_close" taborder="33" text="닫기" onclick="btn_close_onclick" class="btn4" position="absolute 716 426 769 446" anchor="right bottom"/>
  187. </Layout>
  188. </Layouts>
  189. <Objects>
  190. <Dataset id="ds_cond_iofalg" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  191. <ColumnInfo>
  192. <Column id="value" type="STRING" size="256"/>
  193. <Column id="label" type="STRING" size="256"/>
  194. </ColumnInfo>
  195. <Rows>
  196. <Row>
  197. <Col id="value">I</Col>
  198. <Col id="label">입원</Col>
  199. </Row>
  200. <Row>
  201. <Col id="value">O</Col>
  202. <Col id="label">외래</Col>
  203. </Row>
  204. </Rows>
  205. </Dataset>
  206. <Dataset id="ds_grid_datagrid1" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
  207. <ColumnInfo>
  208. <column id="fromchk"/>
  209. <column id="clamym"/>
  210. <column id="clamdg"/>
  211. <column id="pid"/>
  212. <column id="pidsn"/>
  213. <column id="patnm"/>
  214. <column id="insukind"/>
  215. <column id="suppkind"/>
  216. <column id="ordfromdd"/>
  217. <column id="ordtodd"/>
  218. <column id="iphsfromdd"/>
  219. <column id="iphstodd"/>
  220. <column id="orddeptcd"/>
  221. <column id="orddrid"/>
  222. <column id="workflag"/>
  223. <column id="clbtworkflag"/>
  224. <column id="acptno"/>
  225. <column id="acptdd"/>
  226. <column id="docuseqno"/>
  227. </ColumnInfo>
  228. </Dataset>
  229. <Dataset id="ds_cond_flag" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  230. <ColumnInfo>
  231. <Column id="value" type="STRING" size="256"/>
  232. <Column id="label" type="STRING" size="256"/>
  233. </ColumnInfo>
  234. <Rows>
  235. <Row>
  236. <Col id="value">V073</Col>
  237. <Col id="label">조혈모세포 공여자</Col>
  238. </Row>
  239. <Row>
  240. <Col id="value">V074</Col>
  241. <Col id="label">신장 공여자</Col>
  242. </Row>
  243. <Row>
  244. <Col id="value">V075</Col>
  245. <Col id="label">간 공여자</Col>
  246. </Row>
  247. <Row>
  248. <Col id="value">V076</Col>
  249. <Col id="label">췌장 공여자</Col>
  250. </Row>
  251. <Row>
  252. <Col id="value">V077</Col>
  253. <Col id="label">심장 공여자</Col>
  254. </Row>
  255. <Row>
  256. <Col id="value">V078</Col>
  257. <Col id="label">폐 공여자</Col>
  258. </Row>
  259. <Row>
  260. <Col id="value">-</Col>
  261. <Col id="label">기타</Col>
  262. </Row>
  263. <Row>
  264. <Col id="label">타병원 진료 명세서</Col>
  265. <Col id="value">OH</Col>
  266. </Row>
  267. </Rows>
  268. </Dataset>
  269. <Dataset id="ds_cond_sickcode" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  270. <ColumnInfo>
  271. <Column id="value" type="STRING" size="256"/>
  272. <Column id="label" type="STRING" size="256"/>
  273. </ColumnInfo>
  274. <Rows>
  275. <Row>
  276. <Col id="value">Z523</Col>
  277. <Col id="label">Z523</Col>
  278. </Row>
  279. <Row>
  280. <Col id="value">Z524</Col>
  281. <Col id="label">Z524</Col>
  282. </Row>
  283. <Row>
  284. <Col id="value">Z526</Col>
  285. <Col id="label">Z526</Col>
  286. </Row>
  287. <Row>
  288. <Col id="value">Z528</Col>
  289. <Col id="label">Z528</Col>
  290. </Row>
  291. <Row>
  292. <Col id="value">Z527</Col>
  293. <Col id="label">Z527</Col>
  294. </Row>
  295. <Row>
  296. <Col id="value">Z528</Col>
  297. <Col id="label">Z528</Col>
  298. </Row>
  299. <Row>
  300. <Col id="value">-</Col>
  301. <Col id="label">-</Col>
  302. </Row>
  303. <Row>
  304. <Col id="value">-</Col>
  305. <Col id="label">-</Col>
  306. </Row>
  307. </Rows>
  308. </Dataset>
  309. <Dataset id="ds_cond_orddrid" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  310. <Dataset id="ds_cond_deptinfolist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  311. <ColumnInfo>
  312. <Column id="deptcd"/>
  313. <Column id="depthngnm"/>
  314. <Column id="deptengabbr"/>
  315. <Column id="reqfild"/>
  316. <Column id="reqdeptno"/>
  317. <Column id="depthardcd"/>
  318. </ColumnInfo>
  319. </Dataset>
  320. <Dataset id="ds_grid_datagrid2" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
  321. <ColumnInfo>
  322. <column id="clamym"/>
  323. <column id="clamdg"/>
  324. <column id="pid"/>
  325. <column id="pidsn"/>
  326. <column id="ioflag"/>
  327. <column id="ordfromdd"/>
  328. <column id="orddeptcd"/>
  329. <column id="orddrid"/>
  330. <column id="spclcd"/>
  331. <column id="diagcd"/>
  332. <column id="calcscorcd"/>
  333. <column id="hngnm"/>
  334. <column id="inclnm"/>
  335. <column id="MX999"/>
  336. <column id="drugqty"/>
  337. <column id="tims"/>
  338. <column id="dayno"/>
  339. <column id="totamt"/>
  340. <column id="ownbamt"/>
  341. <column id="workflag"/>
  342. <column id="clbtworkflag"/>
  343. <column id="clamflag"/>
  344. </ColumnInfo>
  345. </Dataset>
  346. <Dataset id="ds_cond_clamflag2" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  347. <ColumnInfo>
  348. <Column id="value" type="STRING" size="256"/>
  349. <Column id="label" type="STRING" size="256"/>
  350. </ColumnInfo>
  351. <Rows>
  352. <Row>
  353. <Col id="value">0</Col>
  354. <Col id="label">원청구</Col>
  355. </Row>
  356. <Row>
  357. <Col id="value">2</Col>
  358. <Col id="label">추가청구</Col>
  359. </Row>
  360. </Rows>
  361. </Dataset>
  362. <Dataset id="ds_send_item1" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  363. </Objects>
  364. <Script type="xscript4.0"><![CDATA[/***************************************************************************************
  365. * System Name :
  366. * Job Name :
  367. * Creator :
  368. * Make Date : 2016-05-24
  369. * Description :
  370. *---------------------------------------------------------------------------------------
  371. * Modify Date Modifier Modify Description
  372. *---------------------------------------------------------------------------------------
  373. * 2016-05-24 Live Converter TF->XP
  374. *
  375. *---------------------------------------------------------------------------------------
  376. ****************************************************************************************/
  377. include "com_commonxp::comm_main.xjs";
  378. /*popup 확인 */
  379. var makeflag = "";
  380. var copyflag ="";
  381. var ioflag = "";
  382. var clamym = "";
  383. var clamdg = "";
  384. var pid ="";
  385. var pidsn = "";
  386. var t_clamym = "";
  387. var t_clamdg = "";
  388. var t_clamflagcd = "";
  389. function model1_oninit(obj:Form, e:InitEventInfo)
  390. {
  391. frmf_initForm(obj);
  392. var curDate = utlf_getCurrentDate(); //getCurrentDate();
  393. ds_send_item1.copyData(ds_init_item1)
  394. var oParam = {};
  395. oParam.id = "TRPID20201";
  396. oParam.service = "aftjudgapp.InAftJudgTrgtMan";
  397. oParam.method = "reqGetInitComCd";
  398. oParam.inds = "req=ds_send_item1";
  399. oParam.outds = "ds_=judgrid ds_=suppkind ds_=orddrid ds_cond_orddrid=orddrid2 ds_=clamdept ds_=orddeptcd ds_cond_deptinfolist=orddeptcd2 ds_=item3 ds_=clamdg ds_=aftjudgerr ds_=uuee";
  400. oParam.async = false;
  401. tranf_submit(oParam);
  402. pid = ds_init_item1.getColumn(0,"pid");
  403. if(!utlf_isNull(pid))
  404. {
  405. ioflag = ds_init_item1.getColumn(0,"ioflag");
  406. clamym = ds_init_item1.getColumn(0,"clamym");
  407. clamym = clamym.substring(0,6);
  408. clamdg = ds_init_item1.getColumn(0,"clamdg");
  409. pid = ds_init_item1.getColumn(0,"pid");
  410. pidsn = ds_init_item1.getColumn(0,"pidsn");
  411. group1.ipt_clamdg.value = clamdg;
  412. group1.ipt_patunitsrch.value = pid;
  413. group1.cmb_ioflag.value = ioflag;
  414. group1.cp_monthCal00.setData(clamym);
  415. }
  416. ipt_calcscorcd.value ="JJJJJJ"; //처방코드
  417. ipt_hngnm.value ="타인간 이식 공여자 진료비"; //처방명
  418. ipt_inclnm.value = "타인간 이식 공여자 진료비"; //준용명
  419. ipt_qty.value = "1"; //1회량
  420. ipt_tims.value = "1"; //횟수
  421. ipt_dayno.value = "1"; //일수
  422. cmb_diagcd.value ="Z523";
  423. cmb_spclcd.value ="V073";
  424. ipt_totamt.value ="";
  425. rdo_clamflag.value = "0";
  426. fGetDocuList();
  427. }
  428. /****************************************************************************************
  429. * Components :
  430. * Components ID : grd_clbsmast
  431. * Event :
  432. * Argument : 01.obj : Object Event has occurred
  433. * : 02.e : Event Object
  434. * Description : Not Convert : xforms-value-changed
  435. ****************************************************************************************//* TF 이벤트 : xforms-value-changed
  436. function grd_clbsmast_(obj:Grid, e:)
  437. {
  438. var icol = grd_clbsmast.col;
  439. var ifromcnt=0;
  440. var fromchkyn;
  441. var nodeList = instance1.selectNodes("/root/main/list1/clbs");
  442. if (icol == grd_clbsmast.colRef("fromchk")) {
  443. for ( i = 1; i <= nodeList.length; i++) {
  444. fromchkyn = model.getValue("/root/main/list1/clbs[ " + i + "]/fromchk");
  445. if (fromchkyn == "Y") {
  446. ifromcnt++;
  447. // 추가청구 생성일 경우 체크
  448. if (model.getValue("/root/main/send/item/clamflag") == "2") {
  449. if (model.getValue("/root/main/list1/clbs[ " + i + "]/acptdd") == "-") {
  450. messageBox("접수증 수신파일을 업로드하세요! 접수번호가", "I004"); ///I004=없습니다.
  451. model.setValue("/root/main/list1/clbs[ " + i + "]/fromchk", "N");
  452. ifromcnt--;
  453. break;
  454. }
  455. }
  456. model.setValue("/root/send/item1/clamdg", model.getValue("/root/main/list1/clbs[ " + i + "]/clamdg"));
  457. model.refreshpart("/root/send/item1/clamdg");
  458. if (ifromcnt > 1) {
  459. messageBox("명세서를 하나만", "C002"); ///C002=선택하십시오 !
  460. model.setValue("/root/main/list1/clbs[ " + i + "]/fromchk", "N");
  461. ifromcnt--;
  462. }
  463. }
  464. }
  465. }
  466. }*/
  467. /****************************************************************************************
  468. * Components :
  469. * Components ID : ipt_patunitsrch
  470. * Event :
  471. * Argument : 01.obj : Object Event has occurred
  472. * : 02.e : Event Object
  473. * Description : Not Convert : onkeypress
  474. ****************************************************************************************//* TF 이벤트 : onkeypress
  475. function ipt_patunitsrch_(obj:Edit, e:)
  476. {
  477. if (event.keyCode == "13") { // Enter 입력 시에
  478. if (ipt_patunitsrch.currentText.length > 1) { // 2글자 이상이면
  479. setInputNodeCurText(); // (tfHelper.js) 현재 인풋값 노드 반영
  480. var srchtext = model.getValue("/root/send/item1/pid");
  481. if (srchtext.charCodeAt(0) > 255) {
  482. fGetSrchPid();
  483. } else {
  484. fGetDonorList();
  485. }
  486. }
  487. }
  488. }*/
  489. /****************************************************************************************
  490. * Components :
  491. * Components ID : ipt_patunitsrch
  492. * Event :
  493. * Argument : 01.obj : Object Event has occurred
  494. * : 02.e : Event Object
  495. * Description : Not Convert : onbuttonclick
  496. ****************************************************************************************//* TF 이벤트 : onbuttonclick
  497. function ipt_patunitsrch_(obj:Edit, e:)
  498. {
  499. fGetSrchPid();
  500. }*/
  501. /****************************************************************************************
  502. * Components :
  503. * Components ID : ipt_patunitsrch
  504. * Event :
  505. * Argument : 01.obj : Object Event has occurred
  506. * : 02.e : Event Object
  507. * Description : Not Convert : xforms-value-changed
  508. ****************************************************************************************//* TF 이벤트 : xforms-value-changed
  509. function ipt_patunitsrch_(obj:Edit, e:)
  510. {
  511. }*/
  512. /****************************************************************************************
  513. * Components :
  514. * Components ID : btn_select
  515. * Event : onlbuttonup
  516. * Argument : 01.obj : Object Event has occurred
  517. * : 02.e : Event Object
  518. * Description :
  519. ****************************************************************************************/
  520. function btn_select_onlbuttonup(obj:Button, e:MouseEventInfo)
  521. {
  522. fGetDonorList();
  523. }
  524. /****************************************************************************************
  525. * Components :
  526. * Components ID : cmb_ioflag
  527. * Event :
  528. * Argument : 01.obj : Object Event has occurred
  529. * : 02.e : Event Object
  530. * Description : Not Convert : xforms-value-changed
  531. ****************************************************************************************//* TF 이벤트 : xforms-value-changed
  532. function cmb_ioflag_(obj:Combo, e:)
  533. {
  534. if (model.getValue("/root/send/item1/ioflag") == "O") {
  535. grd_clbsmast.colHidden(grd_clbsmast.colRef("iphsfromdd")) = true;
  536. grd_clbsmast.colHidden(grd_clbsmast.colRef("iphstodd")) = true;
  537. } else {
  538. grd_clbsmast.colHidden(grd_clbsmast.colRef("iphsfromdd")) = false;
  539. grd_clbsmast.colHidden(grd_clbsmast.colRef("iphstodd")) = false;
  540. }
  541. }*/
  542. /****************************************************************************************
  543. * Components :
  544. * Components ID : cmb_spclcd
  545. * Event :
  546. * Argument : 01.obj : Object Event has occurred
  547. * : 02.e : Event Object
  548. * Description : Not Convert : xforms-value-changed
  549. ****************************************************************************************//* TF 이벤트 : xforms-value-changed
  550. function cmb_spclcd_(obj:Combo, e:)
  551. {
  552. var spclcd = model.getValue("/root/send/item1/spclcd");
  553. if (spclcd) {
  554. var iIndex = cmb_spclcd.focusIndex;
  555. cmb_diagcd.select(iIndex);
  556. // 구분을 '기타'로 선택한경우 EDI메모를 직접입력한다.
  557. if (spclcd == '-') {
  558. model.setFocus("ipt_mx999");
  559. }
  560. }
  561. }*/
  562. /****************************************************************************************
  563. * Components :
  564. * Components ID : radio2
  565. * Event :
  566. * Argument : 01.obj : Object Event has occurred
  567. * : 02.e : Event Object
  568. * Description : Not Convert : xforms-select
  569. ****************************************************************************************//* TF 이벤트 : xforms-select
  570. function radio2_(obj:Radio, e:)
  571. {
  572. // model.resetInstanceNode("/root/send/item1/choicdsrch2");
  573. model.setValue("/root/send/item1/choicdsrch2", "");
  574. ipt_choicdsrch.refresh();
  575. if (model.getValue("/root/send/item1/choicdsrch1") == "1") {
  576. fGetSnglcalcscorcd();
  577. }
  578. }*/
  579. /****************************************************************************************
  580. * Components :
  581. * Components ID : btn_init
  582. * Event : onlbuttonup
  583. * Argument : 01.obj : Object Event has occurred
  584. * : 02.e : Event Object
  585. * Description :
  586. ****************************************************************************************/
  587. function btn_init_onlbuttonup(obj:Button, e:MouseEventInfo)
  588. {
  589. cmb_diagcd.value ="Z523";
  590. cmb_spclcd.value ="V073";
  591. group1.cmb_ioflag.value="I";
  592. group1.ipt_clamdg.value = "";
  593. group1.ipt_patunitsrch.value = "";
  594. rdo_clamflag.value = "0";
  595. var curDate = utlf_getCurrentDate(); //getCurrentDate();
  596. group1.cp_monthCal00.setData(curDate);
  597. clamym = curDate;
  598. ds_grid_datagrid1.clearData();
  599. }
  600. /****************************************************************************************
  601. * Components :
  602. * Components ID : btn_confirm
  603. * Event : onlbuttonup
  604. * Argument : 01.obj : Object Event has occurred
  605. * : 02.e : Event Object
  606. * Description :
  607. ****************************************************************************************/
  608. function btn_confirm_onlbuttonup(obj:Button, e:MouseEventInfo)
  609. {
  610. var pid = group1.ipt_patunitsrch.value;
  611. var totamt = ipt_totamt.value;
  612. var spclcd = cmb_spclcd.value;
  613. var saveyn = "Y";
  614. if(pid ==""){
  615. sysf_messageBox("등록번호는", "I003"); //I003=필수입력입니다.
  616. group1.ipt_patunitsrch.setFocus();
  617. saveyn = "N";
  618. }
  619. if (totamt == "") {
  620. sysf_messageBox("총진료비는", "I003"); //I003=필수입력입니다.
  621. ipt_totamt.setFocus();
  622. saveyn = "N";
  623. }
  624. var ownbamt = ipt_ownbamt.value;
  625. if (ownbamt == "") {
  626. ownbamt ="0";
  627. }
  628. var preacptno = "";
  629. var clamflag = "";
  630. if (saveyn == "Y") {
  631. var icnt=1;
  632. var ichkcnt=0;
  633. ds_grid_datagrid2.clearData();
  634. for (var i = 0; i <= ds_grid_datagrid1.getRowCount(); i++) {
  635. if(ds_grid_datagrid1.getColumn(i,"fromchk")=="1") {
  636. if(rdo_clamflag.value =="2"){
  637. var aa = ds_grid_datagrid1.getColumn(i,"acptdd");
  638. if(ds_grid_datagrid1.getColumn(i,"acptdd") =="-"){
  639. sysf_messageBox("접수증 수신파일을 업로드하세요! 접수번호가", "I004"); ///I004=없습니다.
  640. ds_grid_datagrid1.setColumn(i,"fromchk","");
  641. return;
  642. }
  643. }
  644. ichkcnt = ds_grid_datagrid2.addRow();
  645. ds_grid_datagrid2.copyRow(ichkcnt,ds_grid_datagrid1,i);
  646. preacptno = ds_grid_datagrid1.getColumn(i,"acptno");
  647. clamflag = rdo_clamflag.value;
  648. ds_grid_datagrid2.setColumn(ichkcnt,"ioflag", group1.cmb_ioflag.value);
  649. ds_grid_datagrid2.setColumn(ichkcnt,"orddeptcd", ds_grid_datagrid1.getColumn(i,"orddeptcd"));
  650. ds_grid_datagrid2.setColumn(ichkcnt,"orddrid", ds_grid_datagrid1.getColumn(i,"orddrid"));
  651. ds_grid_datagrid2.setColumn(ichkcnt,"MX999", ipt_mx999.value);
  652. ds_grid_datagrid2.setColumn(ichkcnt,"totamt", totamt);
  653. ds_grid_datagrid2.setColumn(ichkcnt,"ownbamt", ownbamt);
  654. ds_grid_datagrid2.setColumn(ichkcnt,"spclcd", cmb_spclcd.value);
  655. ds_grid_datagrid2.setColumn(ichkcnt,"diagcd", cmb_diagcd.value);
  656. ds_grid_datagrid2.setColumn(ichkcnt,"hngnm", ipt_hngnm.value);
  657. ds_grid_datagrid2.setColumn(ichkcnt,"calcscorcd", "JJJJJJ");
  658. ds_grid_datagrid2.setColumn(ichkcnt,"inclnm", ipt_inclnm.value);
  659. ds_grid_datagrid2.setColumn(ichkcnt,"drugqty", ipt_qty.value);
  660. ds_grid_datagrid2.setColumn(ichkcnt,"tims", ipt_tims.value);
  661. ds_grid_datagrid2.setColumn(ichkcnt,"dayno", ipt_dayno.value);
  662. ds_grid_datagrid2.setColumn(ichkcnt,"clamflag",rdo_clamflag.value);
  663. /**
  664. "clamflag" 필수값이라 라디오 버튼이 없어서 생성.
  665. 값을 변경시 에러라서... 값을 박아줌.
  666. */
  667. ichkcnt++;
  668. }
  669. }
  670. if(ds_grid_datagrid2.getRowCount()>0){
  671. if (clamflag == "2" && preacptno == '-') {
  672. sysf_messageBox("선택된 명세서는 청구 전 자료로 추가청구 자료를 생성할 수 없는 명세서", "E008"); //E008=입니다.
  673. return;
  674. }
  675. if(ds_grid_datagrid2.getRowCount()>1){
  676. sysf_messageBox("명세서를 하나만", "C002"); ///C002=선택하십시오 !
  677. return;
  678. }else{
  679. dsf_setDefaultVal(ds_grid_datagrid2, "drugqty:1,tims:1,dayno:1,totamt:0,ownbamt:0");
  680. var oParam = {};
  681. oParam.id = "TXPID20601";
  682. oParam.service = "aftjudgapp.DocuManage";
  683. oParam.method = "reqExeDonorCreate";
  684. oParam.inds = "clbs=ds_grid_datagrid2";
  685. oParam.outds = "";
  686. oParam.async = false;
  687. oParam.callback = "cbf_TXPID22201";
  688. tranf_submit(oParam);
  689. }
  690. }else{
  691. sysf_messageBox("생성할 명세서를", "C002"); //선택하십시오 !
  692. }
  693. }
  694. }
  695. function cbf_TXPID22201(){
  696. sysf_messageBox("공여자명세서생성이", "I002"); //I002=완료되었습니다.
  697. }
  698. function grp_tle_caption6_onclick(obj:Static, e:ClickEventInfo)
  699. {
  700. }
  701. function fGetDocuList() {
  702. if(group1.ipt_patunitsrch.value ==""){
  703. messageBox("등록번호를", "C001"); ///입력하십시오 !'
  704. return;
  705. }
  706. var sInDsName = dsf_createDsRow("ds_cond"
  707. , [{col: "ioflag" , val: group1.cmb_ioflag.value}//외래입원
  708. , {col: "clamym" , val: group1.cp_monthCal00.getData()} //"청구년월"}//
  709. , {col: "clamdg" , val: group1.ipt_clamdg.value} //"청구차수"}//
  710. , {col: "pid" , val: group1.ipt_patunitsrch.value} //"등록번호"}//
  711. , {col: "pidsn" , val: pidsn}]); //등록번호순번
  712. tranf_submit({
  713. id: "TRPID22201"
  714. , service: "aftjudgapp.DocuManage"
  715. , method: "reqGetDonorList"
  716. , inds: "req=" + sInDsName
  717. , outds: "ds_grid_datagrid1=clbs"
  718. , callback: "cbf_TRPID22201"
  719. , async: true
  720. })
  721. }
  722. function cbf_TRPID22201(){
  723. if(ds_grid_datagrid1.getRowCount()>0){
  724. ds_grid_datagrid1.addColumn("fromchk","string");
  725. if(ds_grid_datagrid1.getRowCount()==1 && ds_grid_datagrid1.getColumn(0,"acptno") !="-"){
  726. ds_grid_datagrid1.setColumn(0,"fromchk","1");
  727. ds_grid_datagrid1.setColumn(0,"clamdg",group1.ipt_clamdg.value);
  728. }
  729. group1.cp_monthCal00.setData(clamym);
  730. }
  731. }
  732. function group1_cmb_ioflag_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
  733. {
  734. if(e.postvalue =="I"){ //
  735. grd_clbsmast.visible = true;
  736. grd_clbsmast_O.visible = false;
  737. }else{ //외래
  738. grd_clbsmast.visible = false;
  739. grd_clbsmast_O.visible = true;
  740. }
  741. }
  742. function btn_search_onlbuttonup(obj:Button, e:MouseEventInfo)
  743. {
  744. fGetDocuList();
  745. }
  746. function btn_close_onclick(obj:Button, e:ClickEventInfo)
  747. {
  748. this.close();
  749. }
  750. function btn_confirm_onclick(obj:Button, e:ClickEventInfo)
  751. {
  752. }
  753. function cmb_spclcd_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
  754. {
  755. cmb_diagcd.index = obj.index;
  756. if (obj.value == '-') {
  757. ipt_mx999.setFocus();
  758. }
  759. if (!utlf_isNull(obj.value)) {
  760. if (obj.value == 'OH') {
  761. ipt_hngnm.value = "타병원 진료 명세서"; //처방명
  762. ipt_inclnm.value = "타병원 진료 명세서"; //준용명
  763. }
  764. else {
  765. ipt_hngnm.value = "타인간 이식 공여자 진료비"; //처방명
  766. ipt_inclnm.value = "타인간 이식 공여자 진료비"; //준용명
  767. }
  768. }
  769. }
  770. ]]></Script>
  771. </Form>
  772. </FDL>