SMLPC00200_기본세부파트등록.xfdl 44 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829
  1. <?xml version="1.0" encoding="utf-8"?>
  2. <FDL version="1.5">
  3. <TypeDefinition url="..\..\..\default_typedef.xml"/>
  4. <Form id="SMLPC00200" position="absolute 0 0 1256 805" titletext="기본/세부 파트등록" onload="SMLPC00200_onload">
  5. <Layouts>
  6. <Layout>
  7. <Static id="caption6" class="tit_1" position="absolute 0 3 176 28" anchor="default" positiontype="position" text="기본/세부 파트등록"/>
  8. <Div id="group2" position="absolute 0 77 433 805" anchor="left top bottom" positiontype="position">
  9. <Layouts>
  10. <Layout>
  11. <Shape id="line1" class="line_1" position="absolute 0 15 425 15" anchor="default" linetype="horizontal" positiontype="position"/>
  12. <Static id="caption1" text="기본파트" class="tit_2" position="absolute 0 0 131 20" anchor="default" positiontype="position"/>
  13. <Grid id="grd_basepart" taborder="1" useinputpanel="false" autofittype="col" position="absolute 0 20 433 728" anchor="left top bottom" onclick="grd_basepart_onclick" oncellclick="group2_grd_basepart_oncellclick" class="CSS::lis.css">
  14. <Formats>
  15. <Format id="default">
  16. <Columns>
  17. <Column size="30"/>
  18. <Column size="0"/>
  19. <Column size="50"/>
  20. <Column size="200"/>
  21. <Column size="150"/>
  22. </Columns>
  23. <Rows>
  24. <Row size="22" band="head"/>
  25. <Row size="20"/>
  26. </Rows>
  27. <Band id="head">
  28. <Cell/>
  29. <Cell col="1" text="병원코드"/>
  30. <Cell col="2" text="코드"/>
  31. <Cell col="3" text="파트명칭"/>
  32. <Cell col="4" text="파트약칭"/>
  33. </Band>
  34. <Band id="body">
  35. <Cell celltype="head" text="expr:currow+1"/>
  36. <Cell col="1" displaytype="text" text="bind:instcd"/>
  37. <Cell col="2" displaytype="text" text="bind:basepartcd"/>
  38. <Cell col="3" displaytype="text" text="bind:basepartnm"/>
  39. <Cell col="4" displaytype="text" text="bind:basepartabbr"/>
  40. </Band>
  41. </Format>
  42. </Formats>
  43. </Grid>
  44. </Layout>
  45. </Layouts>
  46. </Div>
  47. <Div id="group5" position="absolute 443 77 876 805" anchor="left top bottom" positiontype="position">
  48. <Layouts>
  49. <Layout>
  50. <Static id="caption3" class="tit_2" position="absolute 0 0 131 20" anchor="default" text="세부파트" positiontype="position"/>
  51. <Shape id="line2" class="line_1" position="absolute 0 15 425 15" anchor="default" linetype="horizontal" positiontype="position"/>
  52. <Grid id="grd_detlpart" taborder="7" position="absolute 0 20 433 728" anchor="left top bottom" onclick="grd_detlpart_onclick" autofittype="col" positiontype="position" oncellclick="group5_grd_detlpart_oncellclick" class="CSS::lis.css">
  53. <Formats>
  54. <Format id="default">
  55. <Columns>
  56. <Column size="30"/>
  57. <Column size="0"/>
  58. <Column size="50"/>
  59. <Column size="200"/>
  60. <Column size="150"/>
  61. <Column size="0"/>
  62. </Columns>
  63. <Rows>
  64. <Row size="22" band="head"/>
  65. <Row size="20"/>
  66. </Rows>
  67. <Band id="head">
  68. <Cell/>
  69. <Cell col="1" text="병원코드"/>
  70. <Cell col="2" text="코드"/>
  71. <Cell col="3" text="파트명칭"/>
  72. <Cell col="4" text="파트약칭"/>
  73. <Cell col="5" text="기본코드"/>
  74. </Band>
  75. <Band id="body">
  76. <Cell celltype="head" text="expr:currow+1"/>
  77. <Cell col="1" displaytype="text" text="bind:instcd"/>
  78. <Cell col="2" displaytype="text" text="bind:detlpartcd"/>
  79. <Cell col="3" displaytype="text" text="bind:detlpartnm"/>
  80. <Cell col="4" displaytype="text" text="bind:detlpartabbr"/>
  81. <Cell col="5" displaytype="text" text="bind:basepartcd"/>
  82. </Band>
  83. </Format>
  84. </Formats>
  85. </Grid>
  86. </Layout>
  87. </Layouts>
  88. </Div>
  89. <Div id="group6" position="absolute 886 77 1256 805" anchor="all" positiontype="position">
  90. <Layouts>
  91. <Layout>
  92. <Static id="Static00" class="sta_DA_box" position="absolute 0 251 370 452" anchor="default"/>
  93. <Static id="Static03" class="sta_DA_box" position="absolute 0 20 370 221" anchor="default"/>
  94. <Static id="caption4" class="tit_2" position="absolute 0 0 100 20" anchor="default" text="기본파트정보" positiontype="position"/>
  95. <Shape id="line3" class="line_1" position="absolute 0 20 334 20" anchor="default" linetype="horizontal" positiontype="position"/>
  96. <Static id="caption5" class="tit_2" position="absolute 0 231 131 251" anchor="default" text="세부파트정보" positiontype="position"/>
  97. <Shape id="line4" class="line_1" position="absolute 0 267 334 267" anchor="default" linetype="horizontal" positiontype="position"/>
  98. <Shape id="line20" class="line_2" position="absolute 0 123 333 123" anchor="default" linetype="horizontal" positiontype="position"/>
  99. <Static id="caption21" class="cell_1" position="absolute 1 96 131 120" style="align:left middle;" anchor="default" text="사용여부" positiontype="position"/>
  100. <Static id="caption12" class="cell_1" position="absolute 1 196 131 220" style="align:left middle;" anchor="default" text="최종등록자" positiontype="position"/>
  101. <Shape id="line16" class="line_2" position="absolute 0 147 333 147" anchor="default" linetype="horizontal" positiontype="position"/>
  102. <Static id="caption15" class="cell_1" position="absolute 1 121 131 145" style="align:left middle;" anchor="default" text="최초등록일시" positiontype="position"/>
  103. <Shape id="line18" class="line_2" position="absolute 0 171 333 171" anchor="default" linetype="horizontal" positiontype="position"/>
  104. <Shape id="line19" class="line_2" position="absolute 0 195 333 195" anchor="default" linetype="horizontal" positiontype="position"/>
  105. <Shape id="line5" class="line_3" position="absolute 0 218 333 218" anchor="default" linetype="horizontal" positiontype="position"/>
  106. <Static id="caption18" class="cell_1" position="absolute 1 146 131 170" style="align:left middle;" anchor="default" text="최초등록자" positiontype="position"/>
  107. <Static id="caption19" class="cell_1" position="absolute 1 171 131 195" style="align:left middle;" anchor="default" text="최종등록일시" positiontype="position"/>
  108. <Shape id="line6" class="line_2" position="absolute 0 99 333 99" anchor="default" linetype="horizontal" positiontype="position"/>
  109. <Static id="caption7" class="cell_1" position="absolute 1 71 131 95" style="align:left middle;" anchor="default" text="기본파트약칭" positiontype="position"/>
  110. <Static id="caption8" class="cell_1" position="absolute 1 46 131 70" style="align:left middle;" anchor="default" text="기본파트명칭" positiontype="position"/>
  111. <Shape id="line7" class="line_2" position="absolute 0 74 333 74" anchor="default" linetype="horizontal" positiontype="position"/>
  112. <Static id="caption9" class="cell_1" position="absolute 1 21 131 45" style="align:left middle;" anchor="default" text="기본파트코드" positiontype="position"/>
  113. <Shape id="line8" class="line_2" position="absolute 0 49 333 49" anchor="default" linetype="horizontal" positiontype="position"/>
  114. <Shape id="line9" class="line_2" position="absolute 0 296 333 296" anchor="default" linetype="horizontal" positiontype="position"/>
  115. <Shape id="line10" class="line_2" position="absolute 0 370 333 370" anchor="default" linetype="horizontal" positiontype="position"/>
  116. <Static id="caption10" class="cell_1" position="absolute 1 327 131 351" style="align:left middle;" anchor="default" text="사용여부" positiontype="position"/>
  117. <Static id="caption11" class="cell_1" position="absolute 1 427 131 451" style="align:left middle;" anchor="default" text="최종등록자" positiontype="position"/>
  118. <Shape id="line11" class="line_2" position="absolute 0 394 333 394" anchor="default" linetype="horizontal" positiontype="position"/>
  119. <Shape id="line12" class="line_2" position="absolute 0 418 333 418" anchor="default" linetype="horizontal" positiontype="position"/>
  120. <Static id="caption13" class="cell_1" position="absolute 1 352 131 376" style="align:left middle;" anchor="default" text="최초등록일시" positiontype="position"/>
  121. <Static id="caption14" class="cell_1" position="absolute 1 302 131 326" style="align:left middle;" anchor="default" text="세부파트약칭" positiontype="position"/>
  122. <Shape id="line13" class="line_2" position="absolute 0 442 333 442" anchor="default" linetype="horizontal" positiontype="position"/>
  123. <Static id="caption16" class="cell_1" position="absolute 1 277 131 301" style="align:left middle;" anchor="default" text="세부파트명칭" positiontype="position"/>
  124. <Static id="caption17" class="cell_1" position="absolute 1 252 131 276" style="align:left middle;" anchor="default" text="세부파트코드" positiontype="position"/>
  125. <Static id="caption20" class="cell_1" position="absolute 1 377 131 401" style="align:left middle;" anchor="default" text="최초등록자" positiontype="position"/>
  126. <Shape id="line15" class="line_3" position="absolute 0 465 333 465" anchor="default" linetype="horizontal" positiontype="position"/>
  127. <Shape id="line21" class="line_2" position="absolute 0 346 333 346" anchor="default" linetype="horizontal" positiontype="position"/>
  128. <Static id="caption22" class="cell_1" position="absolute 1 402 131 426" style="align:left middle;" anchor="default" text="최종등록일시" positiontype="position"/>
  129. <Shape id="line22" class="line_2" position="absolute 0 321 333 321" anchor="default" linetype="horizontal" positiontype="position"/>
  130. <Edit id="ipt_basepartcd" class="input_essential" taborder="9" position="absolute 134 23 367 43" anchor="default" onmouseleave="ipt_basepartcd_onmouseleave" positiontype="position" enable="false" maxlength="2" inputmode="upper"/>
  131. <Edit id="ipt_basepartnm" class="input_essential" taborder="10" position="absolute 133 48 366 68" anchor="default" positiontype="position" enable="false"/>
  132. <Edit id="ipt_basepartabbr" class="input_default" taborder="11" position="absolute 133 73 366 93" anchor="default" positiontype="position" enable="false"/>
  133. <MaskEdit readonly="true" id="opt_basefstrgstdt" mask="####-##-## ##:##:##" position="absolute 133 123 366 143" anchor="default" positiontype="position" type="string" style="align:left middle;"/>
  134. <Edit readonly="true" id="opt_basefstrgstrid" position="absolute 133 148 366 168" anchor="default" positiontype="position" type="string"/>
  135. <MaskEdit readonly="true" id="opt_baselastrgstdt" mask="####-##-## ##:##:##" position="absolute 133 173 366 193" anchor="default" positiontype="position" type="string" style="align:left middle;"/>
  136. <Edit readonly="true" id="opt_baselastrgstrid" position="absolute 133 198 366 218" anchor="default" positiontype="position" type="string"/>
  137. <Radio id="rdo_baseupdtflag" taborder="8" columncount="3" position="absolute 108 -2 263 18" anchor="default" codecolumn="codecolumn" datacolumn="datacolumn" positiontype="position" value="1" index="0" onitemchanged="group6_rdo_baseupdtflag_onitemchanged">
  138. <Dataset id="innerdataset">
  139. <ColumnInfo>
  140. <Column id="codecolumn" size="256"/>
  141. <Column id="datacolumn" size="256"/>
  142. </ColumnInfo>
  143. <Rows>
  144. <Row>
  145. <Col id="codecolumn">1</Col>
  146. <Col id="datacolumn">조회</Col>
  147. </Row>
  148. <Row>
  149. <Col id="codecolumn">2</Col>
  150. <Col id="datacolumn">수정</Col>
  151. </Row>
  152. <Row>
  153. <Col id="codecolumn">3</Col>
  154. <Col id="datacolumn">신규</Col>
  155. </Row>
  156. </Rows>
  157. </Dataset>
  158. </Radio>
  159. <Radio id="rdo_detlupdtflag" taborder="13" columncount="3" position="absolute 108 228 263 248" anchor="default" codecolumn="codecolumn" datacolumn="datacolumn" positiontype="position" value="1" index="0" onitemchanged="group6_rdo_detlupdtflag_onitemchanged">
  160. <Dataset id="innerdataset">
  161. <ColumnInfo>
  162. <Column id="codecolumn" size="256"/>
  163. <Column id="datacolumn" size="256"/>
  164. </ColumnInfo>
  165. <Rows>
  166. <Row>
  167. <Col id="codecolumn">1</Col>
  168. <Col id="datacolumn">조회</Col>
  169. </Row>
  170. <Row>
  171. <Col id="codecolumn">2</Col>
  172. <Col id="datacolumn">수정</Col>
  173. </Row>
  174. <Row>
  175. <Col id="codecolumn">3</Col>
  176. <Col id="datacolumn">신규</Col>
  177. </Row>
  178. </Rows>
  179. </Dataset>
  180. </Radio>
  181. <Edit id="ipt_detlpartcd" class="input_essential" taborder="14" position="absolute 134 254 367 274" anchor="default" onmouseleave="ipt_detlpartcd_onmouseleave" positiontype="position" enable="false" maxlength="2" inputmode="upper"/>
  182. <Edit id="ipt_detlpartnm" class="input_essential" taborder="15" position="absolute 134 279 367 299" anchor="default" positiontype="position" enable="false"/>
  183. <Edit id="ipt_detlpartabbr" class="input_default" taborder="16" position="absolute 134 304 367 324" anchor="default" positiontype="position" enable="false"/>
  184. <MaskEdit readonly="true" id="opt_detlfstrgstdt" mask="####-##-## ##:##:##" position="absolute 134 354 367 374" anchor="default" positiontype="position" style="align:left middle;" type="string"/>
  185. <Edit readonly="true" id="opt_detlfstrgstrid" position="absolute 134 379 367 399" anchor="default" positiontype="position" type="string"/>
  186. <MaskEdit readonly="true" id="opt_detllastrgstdt" mask="####-##-## ##:##:##" position="absolute 134 404 367 424" anchor="default" positiontype="position" type="string" style="align:left middle;"/>
  187. <Edit readonly="true" id="opt_detllastrgstrid" position="absolute 134 429 367 449" anchor="default" positiontype="position" type="string"/>
  188. <Radio id="rdo_basepartdelflagcd" taborder="12" columncount="2" position="absolute 133 98 366 118" anchor="default" codecolumn="codecolumn" datacolumn="datacolumn" positiontype="position" enable="false" onitemchanged="group6_rdo_basepartdelflagcd_onitemchanged">
  189. <Dataset id="innerdataset">
  190. <ColumnInfo>
  191. <Column id="codecolumn" size="256"/>
  192. <Column id="datacolumn" size="256"/>
  193. </ColumnInfo>
  194. <Rows>
  195. <Row>
  196. <Col id="codecolumn">0</Col>
  197. <Col id="datacolumn">사용</Col>
  198. </Row>
  199. <Row>
  200. <Col id="codecolumn">1</Col>
  201. <Col id="datacolumn">미사용</Col>
  202. </Row>
  203. </Rows>
  204. </Dataset>
  205. </Radio>
  206. <Radio id="rdo_detlpartdelflagcd" taborder="17" columncount="2" position="absolute 134 329 367 349" anchor="default" codecolumn="codecolumn" datacolumn="datacolumn" positiontype="position" enable="false">
  207. <Dataset id="innerdataset">
  208. <ColumnInfo>
  209. <Column id="codecolumn" size="256"/>
  210. <Column id="datacolumn" size="256"/>
  211. </ColumnInfo>
  212. <Rows>
  213. <Row>
  214. <Col id="codecolumn">0</Col>
  215. <Col id="datacolumn">사용</Col>
  216. </Row>
  217. <Row>
  218. <Col id="codecolumn">1</Col>
  219. <Col id="datacolumn">미사용</Col>
  220. </Row>
  221. </Rows>
  222. </Dataset>
  223. </Radio>
  224. <Edit id="ipt_orgdelflagcd" visible="false" position="absolute 338 98 367 118" anchor="default" positiontype="position"/>
  225. </Layout>
  226. </Layouts>
  227. </Div>
  228. <Button id="button11" taborder="6" text="저장" onclick="btn_save_onclick" class="btn4" position="absolute 1200 0 1256 23" anchor="top right"/>
  229. <Shape id="line17" class="line_6" position="absolute 0 25 1194 25" anchor="default" positiontype="position" linetype="horizontal"/>
  230. <Div id="group1" anchor="left top right" taborder="19" style="align:center top;" class="div_SA" position="absolute 0 30 1256 72">
  231. <Layouts>
  232. <Layout>
  233. <Static id="caption23" text="기본파트 사용여부" class="search_name" position="absolute 15 10 140 30" style="align:center middle;" anchor="default"/>
  234. <Radio id="rdo_s_basepartdelflagcd" taborder="1" columncount="3" rowcount="0" codecolumn="codecolumn" datacolumn="datacolumn" class="radio_search" position="absolute 148 10 270 30" anchor="default" value="0" index="0" onitemchanged="group1_rdo_s_basepartdelflagcd_onitemchanged">
  235. <Dataset id="innerdataset">
  236. <ColumnInfo>
  237. <Column id="codecolumn" size="256"/>
  238. <Column id="datacolumn" size="256"/>
  239. </ColumnInfo>
  240. <Rows>
  241. <Row>
  242. <Col id="codecolumn">0</Col>
  243. <Col id="datacolumn">사용</Col>
  244. </Row>
  245. <Row>
  246. <Col id="codecolumn">1</Col>
  247. <Col id="datacolumn">미사용</Col>
  248. </Row>
  249. </Rows>
  250. </Dataset>
  251. </Radio>
  252. <Static id="caption24" text="세부파트 사용여부" class="search_name" position="absolute 286 11 411 28" style="align:center middle;" anchor="default"/>
  253. <Radio id="rdo_s_detlpartdelflagcd" taborder="2" columncount="3" rowcount="0" codecolumn="codecolumn" datacolumn="datacolumn" class="radio_search" position="absolute 419 10 541 30" anchor="default" value="0" index="0" onitemchanged="group1_rdo_s_detlpartdelflagcd_onitemchanged">
  254. <Dataset id="innerdataset">
  255. <ColumnInfo>
  256. <Column id="codecolumn" size="256"/>
  257. <Column id="datacolumn" size="256"/>
  258. </ColumnInfo>
  259. <Rows>
  260. <Row>
  261. <Col id="codecolumn">0</Col>
  262. <Col id="datacolumn">사용</Col>
  263. </Row>
  264. <Row>
  265. <Col id="codecolumn">1</Col>
  266. <Col id="datacolumn">미사용</Col>
  267. </Row>
  268. </Rows>
  269. </Dataset>
  270. </Radio>
  271. <Static id="caption2" text="조회값" class="search_name" position="absolute 557 10 612 30" style="align:center middle;" anchor="default"/>
  272. <Combo id="cmb_refflag" taborder="3" class="combo_search" position="absolute 620 10 740 30" anchor="default" onitemchanged="group1_cmb_refflag_onitemchanged" codecolumn="codecolumn" datacolumn="datacolumn" value="1" text="기본파트코드" index="0">
  273. <Dataset id="innerdataset">
  274. <ColumnInfo>
  275. <Column id="codecolumn" size="256"/>
  276. <Column id="datacolumn" size="256"/>
  277. </ColumnInfo>
  278. <Rows>
  279. <Row>
  280. <Col id="codecolumn">1</Col>
  281. <Col id="datacolumn">기본파트코드</Col>
  282. </Row>
  283. <Row>
  284. <Col id="codecolumn">2</Col>
  285. <Col id="datacolumn">기본파트명칭</Col>
  286. </Row>
  287. <Row>
  288. <Col id="codecolumn">3</Col>
  289. <Col id="datacolumn">세부파트코드</Col>
  290. </Row>
  291. <Row>
  292. <Col id="codecolumn">4</Col>
  293. <Col id="datacolumn">세부파트명칭</Col>
  294. </Row>
  295. </Rows>
  296. </Dataset>
  297. </Combo>
  298. <Edit id="ipt_refval" taborder="4" class="input_search" position="absolute 743 10 863 30" onmouseleave="ipt_refval_onmouseleave" anchor="default" inputmode="upper"/>
  299. <Button id="btn_serch" taborder="5" text="조회" class="btn1" position="absolute 1188 10 1244 30" anchor="top right" onclick="group1_btn_serch_onclick"/>
  300. </Layout>
  301. </Layouts>
  302. </Div>
  303. </Layout>
  304. </Layouts>
  305. <Objects>
  306. <Dataset id="ds_database_instcd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  307. </Objects>
  308. <Bind/>
  309. <Script type="xscript4.0"><![CDATA[/***************************************************************************************
  310. * System Name : KU2.0
  311. * Job Name :
  312. * File Name : SMLPC00200_기본세부파트등록.xfdl
  313. * Creator :
  314. * Make Date : 2016-01-05
  315. *
  316. * Description :
  317. *---------------------------------------------------------------------------------------
  318. * Modify Date Modifier Modify Description
  319. *---------------------------------------------------------------------------------------
  320. *
  321. *---------------------------------------------------------------------------------------
  322. ****************************************************************************************/
  323. //=======================================================================================
  324. // Lib Include
  325. //---------------------------------------------------------------------------------------
  326. include "com_basiccodexp::ZBC001.xjs";
  327. include "com_commonxp::comm_main.xjs";
  328. include "lis_commonxp::LPZ001.xjs";
  329. include "lis_commonxp::LZZ001.xjs";
  330. //=======================================================================================
  331. // global variable
  332. //---------------------------------------------------------------------------------------
  333. var lgv_sInstCd = sysf_getUserInfo("dutplceinstcd");
  334. var lgv_sTargetDb = "";
  335. //=======================================================================================
  336. // Function
  337. //---------------------------------------------------------------------------------------
  338. function fGetRefData(refWorkFlag){
  339. switch(refWorkFlag){
  340. case "B_List": //기본파트 리스트조회
  341. if(group6.rdo_baseupdtflag.value!=1||group6.rdo_detlupdtflag.value!=1){
  342. if(sysf_messageBox("[신규/수정]중인 작업이 있습니다.\n 무시하고", "Q005")!=6) return;
  343. }
  344. ds_rslt_basepartlist.clearData();
  345. ds_rslt_detlpartlist.clearData();
  346. ds_rslt_basepartinfo.clearData();
  347. ds_rslt_detlpartinfo.clearData();
  348. fCompBinding("basepartinfo");
  349. fCompBinding("detlpartinfo");
  350. group6.rdo_baseupdtflag.value = 1;
  351. group6_rdo_baseupdtflag_onitemchanged();
  352. group6.rdo_detlupdtflag.value = 1;
  353. group6_rdo_detlupdtflag_onitemchanged();
  354. var sInDsName = dsf_createDsRow("ds_temp_search"
  355. , [{col: "refareaflag" , val: refWorkFlag } //조회영역구분
  356. , {col: "refflag" , val: group1.cmb_refflag.value } //조회조건 조회구분
  357. , {col: "refval" , val: group1.ipt_refval.value } //조회조건 조회값
  358. , {col: "b_delflagcd" , val: group1.rdo_s_basepartdelflagcd.value } //기본파트 사용구분
  359. , {col: "d_delflagcd" , val: group1.rdo_s_detlpartdelflagcd.value } //세부파트 사용구분
  360. , {col: "b_choicd" , val: "" } //기본파트 선택코드
  361. , {col: "d_choicd" , val: "" } //세부파트 선택코드
  362. , {col: "instcd" , val: lgv_sInstCd } //병원코드
  363. , {col: "targetdb" , val: lgv_sTargetDb}]);
  364. tranf_submit({
  365. id : "TRLPC00201"
  366. , service : "plgybaseinfomngtapp.TestPartCode"
  367. , method : "reqGetTestPartCodeInfo"
  368. , inds : "refData="+sInDsName
  369. , outds : "ds_rslt_basepartlist=refrslt"
  370. , callback : "cbf_SMLPC00200"
  371. , async : false
  372. });
  373. group2.grd_basepart.binddataset = ds_rslt_basepartlist;
  374. break;
  375. case "D_List": //세부파트 리스트조회
  376. group6.rdo_detlupdtflag.value = 1;
  377. group6_rdo_detlupdtflag_onitemchanged();
  378. var grd_basepart_Currentrow = group2.grd_basepart.currentrow;
  379. ds_rslt_detlpartlist.clearData();
  380. var sInDsName = dsf_createDsRow("ds_temp_search"
  381. , [{col: "refareaflag" , val: refWorkFlag } //조회영역구분
  382. , {col: "b_delflagcd" , val: "" } //기본파트 사용구분
  383. , {col: "d_delflagcd" , val: group1.rdo_s_detlpartdelflagcd.value } //세부파트 사용구분
  384. , {col: "b_choicd" , val: group2.grd_basepart.getCellValue(grd_basepart_Currentrow, group2.grd_basepart.getBindCellIndex( "body", "basepartcd")) } //기본파트 선택코드
  385. , {col: "d_choicd" , val: "" } //세부파트 선택코드
  386. , {col: "instcd" , val: lgv_sInstCd } //병원코드
  387. , {col: "targetdb" , val: lgv_sTargetDb}]);
  388. tranf_submit({
  389. id : "TRLPC00202"
  390. , service : "plgybaseinfomngtapp.TestPartCode"
  391. , method : "reqGetTestPartCodeInfo"
  392. , inds : "refData="+sInDsName
  393. , outds : "ds_rslt_detlpartlist=refrslt"
  394. , callback : "cbf_SMLPC00200"
  395. , async : false
  396. });
  397. group5.grd_detlpart.binddataset = ds_rslt_detlpartlist;
  398. break;
  399. case "B_Info": //기본파트 정보조회
  400. var grd_basepart_Currentrow = group2.grd_basepart.currentrow;
  401. ds_rslt_basepartinfo.clearData();
  402. group6.rdo_detlupdtflag.value = 1;
  403. group6_rdo_detlupdtflag_onitemchanged();
  404. var sInDsName = dsf_createDsRow("ds_temp_search"
  405. , [{col: "refareaflag" , val: refWorkFlag } //조회영역구분
  406. , {col: "b_delflagcd" , val: group1.rdo_s_basepartdelflagcd.value } //기본파트 사용구분
  407. , {col: "d_delflagcd" , val: "" } //세부파트 사용구분
  408. , {col: "b_choicd" , val: group2.grd_basepart.getCellValue(grd_basepart_Currentrow, group2.grd_basepart.getBindCellIndex( "body", "basepartcd")) } //기본파트 선택코드
  409. , {col: "d_choicd" , val: "" } //세부파트 선택코드
  410. , {col: "instcd" , val: lgv_sInstCd } //병원코드
  411. , {col: "targetdb" , val: lgv_sTargetDb}]);
  412. tranf_submit({
  413. id : "TRLPC00203"
  414. , service : "plgybaseinfomngtapp.TestPartCode"
  415. , method : "reqGetTestPartCodeInfo"
  416. , inds : "refData="+sInDsName
  417. , outds : "ds_rslt_basepartinfo=refrslt"
  418. , callback : "cbf_SMLPC00200"
  419. , async : false
  420. });
  421. fCompBinding("basepartinfo");
  422. if(group6.rdo_baseupdtflag.value != 1){
  423. group6.rdo_baseupdtflag.value = 1;
  424. group6_rdo_baseupdtflag_onitemchanged();
  425. }
  426. ds_rslt_detlpartinfo.clearData();
  427. ds_rslt_detlpartinfo.addRow();
  428. fCompBinding("detlpartinfo");
  429. break;
  430. case "D_Info": //세부파트 정보조회
  431. var grd_detlpart_Currentrow = group5.grd_detlpart.currentrow;
  432. ds_rslt_detlpartinfo.clearData();
  433. var sInDsName = dsf_createDsRow("ds_temp_search"
  434. , [{col: "refareaflag" , val: refWorkFlag } //조회영역구분
  435. , {col: "b_delflagcd" , val: "" } //기본파트 사용구분
  436. , {col: "d_delflagcd" , val: group1.rdo_s_detlpartdelflagcd.value } //세부파트 사용구분
  437. , {col: "b_choicd" , val: group6.ipt_basepartcd.value } //기본파트 선택코드
  438. , {col: "d_choicd" , val: group5.grd_detlpart.getCellValue(grd_detlpart_Currentrow, group5.grd_detlpart.getBindCellIndex( "body", "detlpartcd")) } //세부파트 선택코드
  439. , {col: "instcd" , val: lgv_sInstCd } //병원코드
  440. , {col: "targetdb" , val: lgv_sTargetDb}]);
  441. tranf_submit({
  442. id : "TRLPC00204"
  443. , service : "plgybaseinfomngtapp.TestPartCode"
  444. , method : "reqGetTestPartCodeInfo"
  445. , inds : "refData="+sInDsName
  446. , outds : "ds_rslt_detlpartinfo=refrslt"
  447. , callback : "cbf_SMLPC00200"
  448. , async : false
  449. });
  450. fCompBinding("detlpartinfo");
  451. if(group6.rdo_detlupdtflag.value != 1){
  452. group6.rdo_detlupdtflag.value = 1;
  453. group6_rdo_detlupdtflag_onitemchanged();
  454. }
  455. break;
  456. default:
  457. return;
  458. }
  459. }
  460. //조회콜백함수
  461. function cbf_SMLPC00200(strSvcID, nErrorCode, strErrorMag){
  462. if(nErrorCode != 0) sysf_messageBox("ID: " + strSvcID + " Error: " + strErrorMag, "E009", "");
  463. }
  464. //컴포넌트 바인딩
  465. function fCompBinding(refWorkFlag){
  466. switch(refWorkFlag){
  467. case "basepartinfo":
  468. faddobjBindItem("base00", "group6.ipt_basepartcd" , "value", "ds_rslt_basepartinfo", "basepartcd" );
  469. faddobjBindItem("base01", "group6.ipt_basepartnm" , "value", "ds_rslt_basepartinfo", "basepartnm" );
  470. faddobjBindItem("base02", "group6.ipt_basepartabbr" , "value", "ds_rslt_basepartinfo", "basepartabbr" );
  471. faddobjBindItem("base03", "group6.rdo_basepartdelflagcd", "value", "ds_rslt_basepartinfo", "delflagcd" );
  472. faddobjBindItem("base04", "group6.opt_basefstrgstdt" , "value", "ds_rslt_basepartinfo", "fstrgstdt" );
  473. faddobjBindItem("base05", "group6.opt_basefstrgstrid" , "value", "ds_rslt_basepartinfo", "fstrgstrid" );
  474. faddobjBindItem("base06", "group6.opt_baselastrgstdt" , "value", "ds_rslt_basepartinfo", "lastupdtdt" );
  475. faddobjBindItem("base07", "group6.opt_baselastrgstrid" , "value", "ds_rslt_basepartinfo", "lastupdtrid" );
  476. faddobjBindItem("base08", "group6.ipt_orgdelflagcd" , "value", "ds_rslt_basepartinfo", "delflagcd" );
  477. break;
  478. case "detlpartinfo":
  479. faddobjBindItem("detl00", "group6.ipt_detlpartcd" , "value", "ds_rslt_detlpartinfo", "detlpartcd" );
  480. faddobjBindItem("detl01", "group6.ipt_detlpartnm" , "value", "ds_rslt_detlpartinfo", "detlpartnm" );
  481. faddobjBindItem("detl02", "group6.ipt_detlpartabbr" , "value", "ds_rslt_detlpartinfo", "detlpartabbr" );
  482. faddobjBindItem("detl03", "group6.rdo_detlpartdelflagcd", "value", "ds_rslt_detlpartinfo", "delflagcd" );
  483. faddobjBindItem("detl04", "group6.opt_detlfstrgstdt" , "value", "ds_rslt_detlpartinfo", "fstrgstdt" );
  484. faddobjBindItem("detl05", "group6.opt_detlfstrgstrid" , "value", "ds_rslt_detlpartinfo", "fstrgstrid" );
  485. faddobjBindItem("detl06", "group6.opt_detllastrgstdt" , "value", "ds_rslt_detlpartinfo", "lastupdtdt" );
  486. faddobjBindItem("detl07", "group6.opt_detllastrgstrid" , "value", "ds_rslt_detlpartinfo", "lastupdtrid" );
  487. break;
  488. default:
  489. return;
  490. }
  491. }
  492. // 저장함수
  493. function fSetUpdtData(){
  494. var bsUpdtGbn = group6.rdo_baseupdtflag.value;
  495. var dtUpdtGbn = group6.rdo_detlupdtflag.value;
  496. if (bsUpdtGbn == "1" && dtUpdtGbn == "1") {
  497. sysf_messageBox("조회작업 중", "E008");
  498. return;
  499. }
  500. if(bsUpdtGbn == "2" || bsUpdtGbn == "3"){
  501. //기본파트 신규/수정 작업
  502. if ( utlf_isNull(group6.ipt_basepartcd.value) ) {
  503. sysf_messageBox("기본파트 코드를", "C001", "");
  504. group6.ipt_basepartcd.setFocus();
  505. return;
  506. }
  507. if ( utlf_isNull(group6.ipt_basepartnm.value) ) {
  508. sysf_messageBox("기본파트 명칭을", "C001", "");
  509. group6.ipt_basepartnm.setFocus();
  510. return;
  511. }
  512. var sInDsName = dsf_createDsRow("ds_temp_search"
  513. , [{col: "workflag" , val: bsUpdtGbn } //작업구분
  514. , {col: "uppartcd" , val: "-" } //상위파트코드(세부)
  515. , {col: "instcd" , val: lgv_sInstCd } //기관코드
  516. , {col: "basepartcd" , val: group6.ipt_basepartcd.value } //기본파트코드
  517. , {col: "basepartnm" , val: group6.ipt_basepartnm.value } //기본파트명
  518. , {col: "basepartabbr" , val: group6.ipt_basepartabbr.value } //기본파트약어명
  519. , {col: "delflagcd" , val: group6.rdo_basepartdelflagcd.value } //사용구분
  520. , {col: "orgdelflagcd" , val: group6.ipt_orgdelflagcd.value } //사용구분
  521. , {col: "targetdb" , val: lgv_sTargetDb}]);
  522. tranf_submit({
  523. id : "TXLPC00201"
  524. , service : "plgybaseinfomngtapp.TestPartCode"
  525. , method : "reqSetTestPartCodeInfo"
  526. , inds : "refData="+sInDsName
  527. //, outds : "ds_rslt_detlpartinfo=refrslt"
  528. , callback : "cbf_SMLPC00200"
  529. , async : false
  530. });
  531. }
  532. if(dtUpdtGbn == "2" || dtUpdtGbn == "3"){
  533. //세부파트 신규/수정 작업
  534. if ( utlf_isNull(group6.ipt_detlpartcd.value) ) {
  535. sysf_messageBox("세부파트 코드를", "C001", "");
  536. group6.ipt_detlpartcd.setFocus();
  537. return;
  538. }
  539. if ( utlf_isNull(group6.ipt_detlpartnm.value) ) {
  540. sysf_messageBox("세부파트 명칭을", "C001", "");
  541. group6.ipt_detlpartnm.setFocus();
  542. return;
  543. }
  544. var sInDsName = dsf_createDsRow("ds_temp_search"
  545. , [{col: "workflag" , val: dtUpdtGbn } //작업구분
  546. , {col: "uppartcd" , val: group6.ipt_basepartcd.value } //상위파트코드(세부)
  547. , {col: "instcd" , val: lgv_sInstCd } //기관코드
  548. , {col: "detlpartcd" , val: group6.ipt_detlpartcd.value } //기본파트코드
  549. , {col: "detlpartnm" , val: group6.ipt_detlpartnm.value } //기본파트명
  550. , {col: "detlpartabbr" , val: group6.ipt_detlpartabbr.value } //기본파트약어명
  551. , {col: "delflagcd" , val: group6.rdo_detlpartdelflagcd.value } //사용구분
  552. , {col: "targetdb" , val: lgv_sTargetDb}]);
  553. tranf_submit({
  554. id : "TXLPC00202"
  555. , service : "plgybaseinfomngtapp.TestPartCode"
  556. , method : "reqSetTestPartCodeInfo"
  557. , inds : "refData="+sInDsName
  558. //, outds : "ds_rslt_detlpartinfo=refrslt"
  559. , callback : "cbf_SMLPC00200"
  560. , async : false
  561. });
  562. }
  563. sysf_messageBox("", "I001");
  564. group6.rdo_baseupdtflag.value = 1;
  565. group6.rdo_detlupdtflag.value = 1;
  566. fGetRefData("B_List");
  567. }
  568. //=======================================================================================
  569. // Event
  570. //---------------------------------------------------------------------------------------
  571. /****************************************************************************************
  572. * Components :
  573. * Components ID : SMLPC00200
  574. * Event : onload
  575. * Argument : 01.obj : Object Event has occurred
  576. * : 02.e : Event Object
  577. * Description : 화면 초기화
  578. ****************************************************************************************/
  579. function SMLPC00200_onload(obj:Form, e:LoadEventInfo)
  580. {
  581. frmf_initForm(obj);
  582. dsf_createDs("ds_rslt_basepartlist");
  583. dsf_createDs("ds_rslt_detlpartlist");
  584. dsf_createDs("ds_rslt_basepartinfo" ,[{ col: "basepartcd" , type: "String"}
  585. , { col: "basepartnm" , type: "String"}
  586. , { col: "basepartabbr" , type: "String"}
  587. , { col: "delflagcd" , type: "String"}
  588. , { col: "fstrgstdt" , type: "String"}
  589. , { col: "fstrgstrid" , type: "String"}
  590. , { col: "lastupdtdt" , type: "String"}
  591. , { col: "lastupdtrid" , type: "String"}]);
  592. dsf_createDs("ds_rslt_detlpartinfo" ,[{ col: "detlpartcd" , type: "String"}
  593. , { col: "detlpartnm" , type: "String"}
  594. , { col: "detlpartabbr" , type: "String"}
  595. , { col: "delflagcd" , type: "String"}
  596. , { col: "fstrgstdt" , type: "String"}
  597. , { col: "fstrgstrid" , type: "String"}
  598. , { col: "lastupdtdt" , type: "String"}
  599. , { col: "lastupdtrid" , type: "String"}]);
  600. fCompBinding("basepartinfo");
  601. fCompBinding("detlpartinfo");
  602. }
  603. /****************************************************************************************
  604. * Components :
  605. * Components ID : btn_serch
  606. * Event : onclick
  607. * Argument : 01.obj : Object Event has occurred
  608. * : 02.e : Event Object
  609. * Description : 기본파트리스트 조회
  610. ****************************************************************************************/
  611. function group1_btn_serch_onclick(obj:Button, e:ClickEventInfo)
  612. {
  613. fGetRefData("B_List");
  614. }
  615. /****************************************************************************************
  616. * Components :
  617. * Components ID : grd_basepart
  618. * Event : oncellclick
  619. * Argument : 01.obj : Object Event has occurred
  620. * : 02.e : Event Object
  621. * Description : 기본파트정보 및 세부파트리스트 조회
  622. ****************************************************************************************/
  623. function group2_grd_basepart_oncellclick(obj:Grid, e:GridClickEventInfo)
  624. {
  625. fGetRefData("D_List");
  626. fGetRefData("B_Info");
  627. }
  628. /****************************************************************************************
  629. * Components :
  630. * Components ID : grd_basepart
  631. * Event : oncellclick
  632. * Argument : 01.obj : Object Event has occurred
  633. * : 02.e : Event Object
  634. * Description : 세부파트 정보조회
  635. ****************************************************************************************/
  636. function group5_grd_detlpart_oncellclick(obj:Grid, e:GridClickEventInfo)
  637. {
  638. fGetRefData("D_Info");
  639. }
  640. /****************************************************************************************
  641. * Components :
  642. * Components ID : rdo_s_basepartdelflagcd
  643. * Event : onitemchanged
  644. * Argument : 01.obj : Object Event has occurred
  645. * : 02.e : Event Object
  646. * Description : 기본파트리스트 조회
  647. ****************************************************************************************/
  648. function group1_rdo_s_basepartdelflagcd_onitemchanged(obj:Radio, e:ItemChangeEventInfo)
  649. {
  650. fGetRefData("B_List");
  651. }
  652. /****************************************************************************************
  653. * Components :
  654. * Components ID : rdo_s_detlpartdelflagcd
  655. * Event : onitemclick
  656. * Argument : 01.obj : Object Event has occurred
  657. * : 02.e : Event Object
  658. * Description : 기본파트리스트 조회
  659. ****************************************************************************************/
  660. function group1_rdo_s_detlpartdelflagcd_onitemchanged(obj:Radio, e:ItemChangeEventInfo)
  661. {
  662. fGetRefData("B_List");
  663. }
  664. /****************************************************************************************
  665. * Components :
  666. * Components ID : rdo_baseupdtflag
  667. * Event : onitemchanged
  668. * Argument : 01.obj : Object Event has occurred
  669. * : 02.e : Event Object
  670. * Description : 기본파트정도 등록
  671. ****************************************************************************************/
  672. function group6_rdo_baseupdtflag_onitemchanged(obj:Radio, e:ItemChangeEventInfo)
  673. {
  674. if(group6.rdo_detlupdtflag.value==2||group6.rdo_detlupdtflag.value==3){
  675. if(sysf_messageBox("[신규/수정]중인 세부파트정보가 있습니다.\n 무시하고", "Q005")!=6){
  676. group6.rdo_baseupdtflag.value = e.prevalue;
  677. return;
  678. } else {
  679. group6.rdo_detlupdtflag.value = 1;
  680. group6_rdo_detlupdtflag_onitemchanged();
  681. }
  682. }
  683. if(group6.rdo_baseupdtflag.value == 3){
  684. ds_rslt_basepartinfo.clearData();
  685. ds_rslt_basepartinfo.addRow();
  686. fCompBinding("basepartinfo");
  687. group6.ipt_basepartcd.enable = true;
  688. group6.ipt_basepartnm.enable = true;
  689. group6.ipt_basepartabbr.enable = true;
  690. group6.rdo_basepartdelflagcd.enable = true;
  691. group6.rdo_basepartdelflagcd.value = 0;
  692. } else if(group6.rdo_baseupdtflag.value == 2) {
  693. if(group6.ipt_basepartcd.enable){
  694. sysf_messageBox("신규코드를 수정","E001","");
  695. group6.rdo_baseupdtflag.value = 3;
  696. return;
  697. }
  698. if(utlf_isNull(group6.ipt_basepartcd.value)){
  699. sysf_messageBox("기본파트코드가 없으면 수정","E001","");
  700. group6.rdo_baseupdtflag.value = 3;
  701. group6_rdo_baseupdtflag_onitemchanged();
  702. return;
  703. }
  704. group6.ipt_basepartcd.enable = false;
  705. group6.ipt_basepartnm.enable = true;
  706. group6.ipt_basepartabbr.enable = true;
  707. group6.rdo_basepartdelflagcd.enable = true;
  708. } else {
  709. group6.ipt_basepartcd.enable = false;
  710. group6.ipt_basepartnm.enable = false;
  711. group6.ipt_basepartabbr.enable = false;
  712. group6.rdo_basepartdelflagcd.enable = false;
  713. }
  714. }
  715. /****************************************************************************************
  716. * Components :
  717. * Components ID : rdo_baseupdtflag
  718. * Event : onitemchanged
  719. * Argument : 01.obj : Object Event has occurred
  720. * : 02.e : Event Object
  721. * Description : 세부파트정보 등록
  722. ****************************************************************************************/
  723. function group6_rdo_detlupdtflag_onitemchanged(obj:Radio, e:ItemChangeEventInfo)
  724. {
  725. if(group6.rdo_detlupdtflag.value == 3){
  726. if(group6.rdo_baseupdtflag.value != 1){
  727. sysf_messageBox("기본파트 수정/신규작업 중","I009","");
  728. group6.rdo_detlupdtflag.value = 1;
  729. return;
  730. }
  731. if(group6.rdo_baseupdtflag.value == 1 && utlf_isNull(group6.ipt_basepartcd.value)){
  732. sysf_messageBox("기본파트 정보를 먼저","C002","");
  733. group6.rdo_detlupdtflag.value = 1;
  734. return;
  735. }
  736. ds_rslt_detlpartinfo.clearData();
  737. ds_rslt_detlpartinfo.addRow();
  738. fCompBinding("detlpartinfo");
  739. group6.ipt_detlpartcd.enable = true;
  740. group6.ipt_detlpartnm.enable = true;
  741. group6.ipt_detlpartabbr.enable = true;
  742. group6.rdo_detlpartdelflagcd.enable = true;
  743. group6.rdo_detlpartdelflagcd.value = 0;
  744. } else if(group6.rdo_detlupdtflag.value == 2) {
  745. if(utlf_isNull(group6.ipt_detlpartcd.value)){
  746. sysf_messageBox("세부파트코드가 없으면 수정","E001","");
  747. group6.rdo_detlupdtflag.value = 1;
  748. group6_rdo_detlupdtflag_onitemchanged();
  749. return;
  750. }
  751. if(group6.ipt_detlpartcd.enable){
  752. sysf_messageBox("신규코드를 수정","E001","");
  753. group6.rdo_detlupdtflag.value = 3;
  754. return;
  755. }
  756. group6.ipt_detlpartcd.enable = false;
  757. group6.ipt_detlpartnm.enable = true;
  758. group6.ipt_detlpartabbr.enable = true;
  759. group6.rdo_detlpartdelflagcd.enable = true;
  760. } else {
  761. group6.ipt_detlpartcd.enable = false;
  762. group6.ipt_detlpartnm.enable = false;
  763. group6.ipt_detlpartabbr.enable = false;
  764. group6.rdo_detlpartdelflagcd.enable = false;
  765. }
  766. }
  767. /****************************************************************************************
  768. * Components :
  769. * Components ID : rdo_baseupdtflag
  770. * Event : onitemchanged
  771. * Argument : 01.obj : Object Event has occurred
  772. * : 02.e : Event Object
  773. * Description : 세부파트정보 등록
  774. ****************************************************************************************/
  775. function btn_save_onclick(obj:Button, e:ClickEventInfo)
  776. {
  777. fSetUpdtData();
  778. }
  779. function group6_rdo_basepartdelflagcd_onitemchanged(obj:Radio, e:ItemChangeEventInfo)
  780. {
  781. if(group6.rdo_basepartdelflagcd.value == 1){
  782. if(sysf_messageBox("해당 기본파트를 미사용시 세부파트까지 미사용됩니다.\n미사용 하시겠습니까?", "Q") == "7"){
  783. group6.rdo_basepartdelflagcd.value = 0;
  784. return;
  785. }
  786. }
  787. }
  788. ]]></Script>
  789. </Form>
  790. </FDL>