SMPIS01600_사후일괄상병입력.xfdl 82 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677
  1. <?xml version="1.0" encoding="utf-8"?>
  2. <FDL version="1.5">
  3. <TypeDefinition url="..\..\..\default_typedef.xml"/>
  4. <Form id="SMPIS01600" position="absolute 0 0 1197 761" titletext="사후일괄 상병입력" oninit="SMPIS01600_oninit" onload="SMPIS01600_onload">
  5. <Layouts>
  6. <Layout>
  7. <Div position="absolute 0 22 1190 757" id="group2" anchor="all">
  8. <Layouts>
  9. <Layout>
  10. <Div position="absolute 0 1 1190 98" align="align:center top;" id="group4" class="div_SA" anchor="left top right">
  11. <Layouts>
  12. <Layout>
  13. <Static text="청구년월" position="absolute 5 7 81 24" id="caption5" class="search_name" anchor="default"/>
  14. <Combo position="absolute 162 7 220 26" id="cmb_clamdgfrom" class="combo_search" innerdataset="@ds_init_clamdglist" datacolumn="clamdgnm" codecolumn="clamdgcd" anchor="default" onitemchanged="group2_group4_cmb_clamdgfrom_onitemchanged"/>
  15. <Static text="진료과" position="absolute 234 30 299 47" id="caption6" class="search_name" anchor="default"/>
  16. <Combo position="absolute 315 30 400 49" id="combo2" class="combo_search" innerdataset="@ds_init_tmp_orddeptcdlist" datacolumn="nm" codecolumn="cd" anchor="default"/>
  17. <Shape position="absolute 1108 35 1114 77" linetype="vertical" id="line2" class="line_4" anchor="top right"/>
  18. <Button position="absolute 1125 42 1181 64" id="button1" class="btn1" taborder="2" text="조회" anchor="top right" onclick="group2_group4_button1_onclick"/>
  19. <Static text="내원유형" position="absolute 5 30 81 47" id="caption9" class="search_name" anchor="default"/>
  20. <Combo position="absolute 85 30 160 49" id="rdo_ioflag" class="combo_search" codecolumn="value" datacolumn="label" anchor="default" innerdataset="@ds_rdo_ioflag" onitemchanged="group2_group4_rdo_ioflag_onitemchanged"/>
  21. <Edit position="absolute 500 7 585 26" id="ipt_code" class="input_search" anchor="default" inputmode="upper"/>
  22. <Static text="청구구분" position="absolute 234 7 310 24" id="caption11" class="search_name" anchor="default"/>
  23. <Combo position="absolute 315 7 400 26" id="cmb_clamflag" class="combo_search" innerdataset="@ds_init_P0155list" datacolumn="cdnm" codecolumn="cdid" anchor="default"/>
  24. <Static text="보험유형" position="absolute 810 7 886 24" id="caption13" class="search_name" anchor="default"/>
  25. <Edit readonly="true" position="absolute 988 7 1008 26" id="opt_insukind" class="output_search" anchor="default"/>
  26. <Combo position="absolute 888 7 983 26" id="cmb_insukind" class="combo_search" innerdataset="@ds_init_P0008list" datacolumn="cdnm" codecolumn="cdid" anchor="default"/>
  27. <Static text="수가코드" position="absolute 424 7 500 24" id="cp_code" class="search_name" anchor="default"/>
  28. <Edit position="absolute 688 7 773 26" id="ipt_edicd" class="input_search" anchor="default" ontextchanged="group2_group4_ipt_edicd_ontextchanged" inputmode="upper"/>
  29. <Static text="EDI코드" position="absolute 614 7 690 24" id="cp_edicd" class="search_name" anchor="default"/>
  30. <Static text="상병조회선택" position="absolute 67 75 169 92" id="caption3" class="search_name" anchor="default"/>
  31. <Button position="absolute 911 72 991 94" id="button4" class="btn1" taborder="2" text="일괄입력" anchor="default" onclick="group2_group4_button4_onclick"/>
  32. <Combo position="absolute 500 29 585 48" id="combo3" class="combo_search" codecolumn="value" datacolumn="label" anchor="default" innerdataset="@ds_cmb_combo3"/>
  33. <Static text="처방구분" position="absolute 424 29 500 46" id="caption7" class="search_name" anchor="default"/>
  34. <Combo position="absolute 84 53 163 72" id="cmb_judgrid" class="combo_default" innerdataset="@ds_init_U0001list" datacolumn="cdnm" codecolumn="cdid" anchor="default"/>
  35. <Static text="심사자" position="absolute 6 53 92 70" id="caption17" class="search_name" anchor="default" onclick="group2_group4_caption17_onclick"/>
  36. <Edit position="absolute 592 73 677 92" id="ipt_diagcd" taborder="5" anchor="default" onkeydown="group2_group4_ipt_diagcd_onkeydown" inputmode="upper"/>
  37. <Edit position="absolute 679 73 909 92" id="ipt_diagnm" enable="false" anchor="default"/>
  38. <Radio position="absolute 168 70 453 93" id="rdo_delgb" columncount="3" codecolumn="value" datacolumn="label" anchor="default" innerdataset="@ds_rdo_delgb" onitemchanged="group2_group4_rdo_delgb_onitemchanged"/>
  39. <Button position="absolute 993 72 1097 94" id="btn_psave" class="btn4" visible="false" text="자동상병저장" anchor="default" onclick="group2_group4_btn_psave_onclick"/>
  40. <Static text="적용상병코드" position="absolute 486 75 588 92" id="caption4" class="search_name" anchor="default"/>
  41. <Edit position="absolute 887 28 930 47" id="ipt_fromdiagcd" taborder="5" anchor="default" onkeydown="group2_group4_ipt_fromdiagcd_onkeydown" ontextchanged="group2_group4_ipt_fromdiagcd_ontextchanged" inputmode="upper"/>
  42. <Edit position="absolute 945 28 988 47" id="ipt_todiagcd" taborder="5" anchor="default" onkeydown="group2_group4_ipt_todiagcd_onkeydown" inputmode="upper"/>
  43. <Static text="상병코드" position="absolute 811 28 887 45" id="caption8" class="search_name" anchor="default"/>
  44. <Combo position="absolute 688 28 773 47" id="cmb_judgendyn" class="combo_search" innerdataset="@ds_init_P0151list" datacolumn="cdnm" codecolumn="cdid" anchor="default"/>
  45. <Static text="심사상태" position="absolute 614 28 690 45" id="caption10" class="search_name" anchor="default"/>
  46. <Static text="~" position="absolute 932 31 947 46" id="caption14" anchor="default"/>
  47. <Static text="~" position="absolute 1042 32 1057 47" id="caption15" anchor="default"/>
  48. <Edit position="absolute 997 28 1040 47" id="ipt_fromdiagcd2" taborder="5" anchor="default" oneditclick="group2_group4_ipt_fromdiagcd2_oneditclick" ontextchanged="group2_group4_ipt_fromdiagcd2_ontextchanged" inputmode="upper"/>
  49. <Edit position="absolute 1055 28 1098 47" id="ipt_todiagcd2" taborder="5" anchor="default" onkeydown="group2_group4_ipt_todiagcd2_onkeydown" ontextchanged="group2_group4_ipt_todiagcd2_ontextchanged" inputmode="upper"/>
  50. <Static text="|" position="absolute 989 31 1004 46" id="caption16" anchor="default"/>
  51. <cp_monthCal id="ipt_clamymfrom" titletext="monthCalendar" taborder="6" scrollbars="none" position="absolute 85 6 161 30" anchor="default"/>
  52. <Button id="btn" taborder="7" class="icon_search" position="absolute 585 8 601 27" anchor="default" onclick="group2_group4_btn_onclick"/>
  53. <Button id="btn1" taborder="8" class="icon_search" position="absolute 774 7 790 26" anchor="default" onclick="group2_group4_btn1_onclick"/>
  54. <Static id="caption00" text="진료분야" class="search_name" position="absolute 233 53 319 70"/>
  55. <Combo id="combo6" taborder="9" innerdataset="ds_init_P0291list" codecolumn="cdid" datacolumn="cdnm" class="combo_search" position="absolute 314 53 423 72"/>
  56. </Layout>
  57. </Layouts>
  58. </Div>
  59. <Static text="환자 리스트" position="absolute 0 103 100 124" id="caption12" class="tit_2" anchor="default"/>
  60. <Button position="absolute 1121 136 1185 155" id="button2" class="btn2" text="엑셀저장" anchor="default"/>
  61. <Grid position="absolute 0 121 1190 713" id="grd_outjudg" class="datagrid2" binddataset="ds_main_calcorderlist" anchor="all" oncellclick="group2_grd_outjudg_oncellclick" cellsizingtype="col" cellmovingtype="col" cellclickbound="cell" onlbuttonup="group2_grd_outjudg_onlbuttonup" selecttype="multirow" onheadclick="group2_grd_outjudg_onheadclick">
  62. <Formats>
  63. <Format id="default">
  64. <Columns>
  65. <Column size="21"/>
  66. <Column size="30"/>
  67. <Column size="48"/>
  68. <Column size="46"/>
  69. <Column size="21"/>
  70. <Column size="22"/>
  71. <Column size="30"/>
  72. <Column size="51"/>
  73. <Column size="22"/>
  74. <Column size="25"/>
  75. <Column size="90"/>
  76. <Column size="66"/>
  77. <Column size="121"/>
  78. <Column size="48"/>
  79. <Column size="78"/>
  80. <Column size="130"/>
  81. <Column size="0"/>
  82. <Column size="50"/>
  83. <Column size="58"/>
  84. <Column size="100"/>
  85. <Column size="103"/>
  86. <Column size="100"/>
  87. <Column size="0"/>
  88. <Column size="0"/>
  89. <Column size="0"/>
  90. <Column size="0"/>
  91. <Column size="0"/>
  92. <Column size="0"/>
  93. <Column size="0"/>
  94. <Column size="70"/>
  95. <Column size="70"/>
  96. <Column size="70"/>
  97. <Column size="0"/>
  98. <Column size="36"/>
  99. <Column size="0"/>
  100. <Column size="0"/>
  101. <Column size="0"/>
  102. <Column size="0"/>
  103. <Column size="31"/>
  104. <Column size="0"/>
  105. <Column size="55"/>
  106. <Column size="100"/>
  107. <Column size="100"/>
  108. <Column size="67"/>
  109. <Column size="45"/>
  110. <Column size="30"/>
  111. <Column size="36"/>
  112. <Column size="0"/>
  113. <Column size="0"/>
  114. <Column size="0"/>
  115. <Column size="0"/>
  116. <Column size="0"/>
  117. <Column size="0"/>
  118. <Column size="0"/>
  119. <Column size="0"/>
  120. <Column size="0"/>
  121. <Column size="0"/>
  122. <Column size="0"/>
  123. <Column size="0"/>
  124. <Column size="0"/>
  125. <Column size="0"/>
  126. </Columns>
  127. <Rows>
  128. <Row size="19" band="head"/>
  129. <Row size="16" band="head"/>
  130. <Row size="24"/>
  131. </Rows>
  132. <Band id="head">
  133. <Cell rowspan="2" taborder="undefined"/>
  134. <Cell col="1" rowspan="2" text="순번" taborder="undefined"/>
  135. <Cell col="2" rowspan="2" text="등록번호" taborder="undefined"/>
  136. <Cell col="3" rowspan="2" text="성명" taborder="undefined"/>
  137. <Cell col="4" rowspan="2" text="나&#10;이" taborder="undefined"/>
  138. <Cell col="5" rowspan="2" text="성&#10;별" taborder="undefined"/>
  139. <Cell col="6" rowspan="2" text="내원&#10;유형" taborder="undefined"/>
  140. <Cell col="7" rowspan="2" text="청구월" taborder="undefined"/>
  141. <Cell col="8" rowspan="2" text="유&#10;형" taborder="undefined"/>
  142. <Cell col="9" rowspan="2" text="보&#10;조" taborder="undefined"/>
  143. <Cell col="10" rowspan="2" text="청구과" taborder="undefined"/>
  144. <Cell col="11" rowspan="2" text="주상병" taborder="undefined"/>
  145. <Cell col="12" rowspan="2" text="주상병명" taborder="undefined"/>
  146. <Cell col="13" displaytype="normal" edittype="normal" text="R/O" tooltiptext="R/O"/>
  147. <Cell col="14" rowspan="2" text="적용상병" taborder="undefined"/>
  148. <Cell col="15" rowspan="2" text="적용상병명" taborder="undefined"/>
  149. <Cell col="16" text="특정내역주석"/>
  150. <Cell col="17" displaytype="normal" edittype="normal" text="제외" taborder="undefined" tooltiptext="제외"/>
  151. <Cell col="18" rowspan="2" text="심사상태" taborder="undefined"/>
  152. <Cell col="19" rowspan="2" text="처방코드" taborder="undefined"/>
  153. <Cell col="20" rowspan="2" text="EDI코드" taborder="undefined"/>
  154. <Cell col="21" rowspan="2" text="한글명" taborder="undefined"/>
  155. <Cell col="22" text="줄번호"/>
  156. <Cell col="23" text="단가"/>
  157. <Cell col="24" text="수량"/>
  158. <Cell col="25" text="횟수"/>
  159. <Cell col="26" text="일수"/>
  160. <Cell col="27" text="총투여량"/>
  161. <Cell col="28" text="금액"/>
  162. <Cell col="29" rowspan="2" text="입원일자" taborder="undefined"/>
  163. <Cell col="30" rowspan="2" text="유형시작일" taborder="undefined"/>
  164. <Cell col="31" rowspan="2" text="종료일" taborder="undefined"/>
  165. <Cell col="32" text="처방의"/>
  166. <Cell col="33" rowspan="2" text="심사&#10;결정" taborder="undefined"/>
  167. <Cell col="34" text="삭감투여량"/>
  168. <Cell col="35" text="삭감횟수"/>
  169. <Cell col="36" text="삭감일수"/>
  170. <Cell col="37" text="총투삭감량"/>
  171. <Cell col="38" rowspan="2" text="원외" taborder="undefined"/>
  172. <Cell col="39" text="급&#10;비"/>
  173. <Cell col="40" rowspan="2" text="심사자" taborder="undefined"/>
  174. <Cell col="41" rowspan="2" text="접수번호" taborder="undefined"/>
  175. <Cell col="42" rowspan="2" text="명일련" taborder="undefined"/>
  176. <Cell col="43" rowspan="2" text="진료과" taborder="undefined"/>
  177. <Cell col="44" rowspan="2" text="진료의" taborder="undefined"/>
  178. <Cell col="45" rowspan="2" text="구분" taborder="undefined"/>
  179. <Cell col="46" rowspan="2" text="차수" taborder="undefined"/>
  180. <Cell col="48" text="원외처방구분"/>
  181. <Cell col="49" text="caption1"/>
  182. <Cell col="50" text="caption2"/>
  183. <Cell col="51" text="caption3"/>
  184. <Cell col="52" text="caption4"/>
  185. <Cell col="53" text="caption5"/>
  186. <Cell col="54" text="caption6"/>
  187. <Cell col="55" text="caption7"/>
  188. <Cell col="56" text="caption8"/>
  189. <Cell col="57" text="caption9"/>
  190. <Cell col="58" text="caption10"/>
  191. <Cell col="59" text="caption11"/>
  192. <Cell col="60" text="caption12"/>
  193. <Cell col="61" text="caption13"/>
  194. <Cell row="1" col="13" displaytype="checkbox" edittype="checkbox"/>
  195. <Cell row="1" col="16"/>
  196. <Cell row="1" col="17" displaytype="checkbox" edittype="checkbox"/>
  197. <Cell row="1" col="22"/>
  198. <Cell row="1" col="23"/>
  199. <Cell row="1" col="24"/>
  200. <Cell row="1" col="25"/>
  201. <Cell row="1" col="26"/>
  202. <Cell row="1" col="27"/>
  203. <Cell row="1" col="28"/>
  204. <Cell row="1" col="32"/>
  205. <Cell row="1" col="34"/>
  206. <Cell row="1" col="35"/>
  207. <Cell row="1" col="36"/>
  208. <Cell row="1" col="37"/>
  209. <Cell row="1" col="39"/>
  210. <Cell row="1" col="47"/>
  211. <Cell row="1" col="48"/>
  212. <Cell row="1" col="49"/>
  213. <Cell row="1" col="50"/>
  214. <Cell row="1" col="51"/>
  215. <Cell row="1" col="52"/>
  216. <Cell row="1" col="53"/>
  217. <Cell row="1" col="54"/>
  218. <Cell row="1" col="55"/>
  219. <Cell row="1" col="56"/>
  220. <Cell row="1" col="57"/>
  221. <Cell row="1" col="58"/>
  222. <Cell row="1" col="59"/>
  223. <Cell row="1" col="60"/>
  224. <Cell row="1" col="61"/>
  225. </Band>
  226. <Band id="body">
  227. <Cell celltype="head"/>
  228. <Cell col="1" style="background:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');background2:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');" text="bind:rowno"/>
  229. <Cell col="2" displaytype="text" edittype="text" style="align:center;background:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');background2:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');" text="bind:pid"/>
  230. <Cell col="3" style="background:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');background2:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');" text="bind:hngnm"/>
  231. <Cell col="4" style="background:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');background2:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');" text="bind:age"/>
  232. <Cell col="5" style="background:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');background2:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');" text="bind:gndr"/>
  233. <Cell col="6" displaytype="combo" edittype="combo" style="background:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');background2:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');" text="bind:ioflag" combodataset="ds_rdo_ioflag" combocodecol="value" combodatacol="label" enable="false"/>
  234. <Cell col="7" displaytype="date" style="background:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');background2:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');" text="bind:clamym" mask="yyyy-MM"/>
  235. <Cell col="8" style="background:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');background2:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');" text="bind:insukind"/>
  236. <Cell col="9" style="background:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');background2:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');" text="bind:suppkind"/>
  237. <Cell col="10" style="align:left middle;background:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');background2:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');" text="bind:clamdeptcd"/>
  238. <Cell col="11" style="align:left middle;background:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');background2:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');" text="bind:diagcd2"/>
  239. <Cell col="12" style="align:left top;background:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');background2:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');" text="bind:diagnm2"/>
  240. <Cell col="13" displaytype="checkbox" edittype="checkbox" style="background:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');background2:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');" text="bind:diagkindcd" expr="expr:diagkindcd == 'R' || diagkindcd == 'Y' || diagkindcd == '1' ? 1 : 0"/>
  241. <Cell col="14" style="background:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');background2:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');" text="bind:diagcd"/>
  242. <Cell col="15" style="align:left middle;background:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');background2:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');" text="bind:diagnm"/>
  243. <Cell col="16" style="background:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');background2:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');" text="bind:spclspec" enable="false"/>
  244. <Cell col="17" displaytype="checkbox" edittype="checkbox" style="background:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');background2:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');" text="bind:chk" expr="expr:chk == &quot;Y&quot; || chk == &quot;1&quot; ? 1 : 0"/>
  245. <Cell col="18" displaytype="combo" edittype="combo" style="background:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');background2:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');" text="bind:judgendyn" combodataset="ds_init_P0151list" combocodecol="cdid" combodatacol="cdnm" enable="false"/>
  246. <Cell col="19" style="align:left middle;background:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');background2:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');" text="bind:snglcalcscorcd"/>
  247. <Cell col="20" style="align:left middle;background:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');background2:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');" text="bind:edicd"/>
  248. <Cell col="21" style="align:left middle;background:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');background2:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');" text="bind:calchngnm"/>
  249. <Cell col="22" style="background:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');background2:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');" text="bind:edilnno"/>
  250. <Cell col="23" style="background:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');background2:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');" text="bind:unitcost" mask="#,###" enable="false"/>
  251. <Cell col="24" style="background:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');background2:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');" text="bind:drugqty" mask="#,###.00" enable="false"/>
  252. <Cell col="25" style="background:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');background2:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');" text="bind:tims" mask="#,###" enable="false"/>
  253. <Cell col="26" style="background:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');background2:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');" text="bind:dayno" mask="#,###" enable="false"/>
  254. <Cell col="27" style="background:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');background2:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');" text="bind:totdrugqty" mask="#,###.00" enable="false"/>
  255. <Cell col="28" style="background:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');background2:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');" text="bind:amt" mask="#,###" enable="false"/>
  256. <Cell col="29" displaytype="date" style="background:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');background2:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');" text="bind:indd" mask="yyyy-MM-dd"/>
  257. <Cell col="30" displaytype="date" style="background:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');background2:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');" text="bind:cretfromdd" mask="yyyy-MM-dd"/>
  258. <Cell col="31" displaytype="date" style="background:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');background2:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');" text="bind:crettodd" mask="yyyy-MM-dd"/>
  259. <Cell col="32" style="background:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');background2:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');" text="bind:clamdrid"/>
  260. <Cell col="33" style="background:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');background2:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');" text="bind:judgyn"/>
  261. <Cell col="34" style="background:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');background2:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');" text="bind:cutdrugqty" mask="#,###.00" enable="false"/>
  262. <Cell col="35" style="background:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');background2:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');" text="bind:cuttims" mask="#,###"/>
  263. <Cell col="36" style="background:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');background2:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');" text="bind:cutdayno" mask="#,###"/>
  264. <Cell col="37" style="background:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');background2:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');" text="bind:totcutqty" mask="#,###.00"/>
  265. <Cell col="38" style="background:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');background2:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');" text="bind:oprcp"/>
  266. <Cell col="39" displaytype="combo" edittype="combo" style="background:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');background2:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');" text="bind:payflag" enable="false"/>
  267. <Cell col="40" style="background:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');background2:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');" text="bind:judgrnm"/>
  268. <Cell col="41" style="background:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');background2:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');" text="bind:acptno"/>
  269. <Cell col="42" style="background:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');background2:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');" text="bind:docuseqno"/>
  270. <Cell col="43" style="align:left middle;background:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');background2:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');" text="bind:orddeptcd"/>
  271. <Cell col="44" style="background:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');background2:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');" text="bind:orddrnm"/>
  272. <Cell col="45" displaytype="combo" edittype="combo" style="background:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');background2:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');" text="bind:clamflagcd" combodataset="ds_init_P0155list" combocodecol="cdid" combodatacol="cdnm" enable="false"/>
  273. <Cell col="46" style="background:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');background2:EXPR(diagcnt &gt; '1' ? '#00ffff' : '#ffffff');" text="bind:clamdg"/>
  274. <Cell col="47" text="bind:edicdflag"/>
  275. <Cell col="48" text="bind:clodseqno"/>
  276. <Cell col="49" text="bind:pidsn"/>
  277. <Cell col="50" text="bind:mpsno"/>
  278. <Cell col="51" text="bind:mpsflag"/>
  279. <Cell col="52" text="bind:workflag"/>
  280. <Cell col="53" text="bind:clamdeptcode"/>
  281. <Cell col="54" text="bind:ordfromdd"/>
  282. <Cell col="55" text="bind:execdd"/>
  283. <Cell col="56" displaytype="checkbox" edittype="checkbox" text="bind:chk2"/>
  284. <Cell col="57" text="bind:diagcnt"/>
  285. <Cell col="58" text="bind:fromdiagcd"/>
  286. <Cell col="59" text="bind:todiagcd"/>
  287. <Cell col="60" text="bind:fromdiagcd2"/>
  288. <Cell col="61" text="bind:todiagcd2"/>
  289. </Band>
  290. </Format>
  291. </Formats>
  292. </Grid>
  293. <Static text="~" position="absolute 10 175 25 195" id="caption2" visible="false" anchor="default"/>
  294. <Combo position="absolute 25 195 75 214" id="cmb_clamdgto" class="combo_search" visible="false" innerdataset="ds_init_cmb_clamdgto" datacolumn="clamdgnm" codecolumn="clamdgcd" anchor="default"/>
  295. <Button position="absolute 1110 101 1189 120" id="btn_excelsave" class="btn7" text="엑셀저장" anchor="top right" onclick="group2_btn_excelsave_onclick"/>
  296. <Button position="absolute 1022 101 1108 120" id="button8" class="btn2" text="심사화면보기" anchor="top right" onclick="group2_button8_onclick"/>
  297. <cp_monthCal id="ipt_clamymto" titletext="monthCalendar" taborder="1" scrollbars="none" position="absolute 25 173 97 199" visible="false" anchor="default"/>
  298. </Layout>
  299. </Layouts>
  300. </Div>
  301. <Button position="absolute 993 95 1049 117" id="button3" class="btn4" text="저장" onclick="button3_onclick"/>
  302. <Button position="absolute 1110 737 1190 759" id="button18" class="btn4" text="환경저장" onclick="button18_onclick" anchor="right bottom"/>
  303. <Static id="caption1" text="사후일괄 상병입력" class="tit_1" position="absolute 0 0 224 23"/>
  304. <Button id="button00" taborder="1" text="환경초기화" onclick="button00_onclick" class="btn4" position="absolute 1016 737 1108 759" anchor="right bottom"/>
  305. </Layout>
  306. </Layouts>
  307. <Objects>
  308. <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  309. <ColumnInfo>
  310. <Column id="clamflag" type="STRING" size="256"/>
  311. <Column id="clamym" type="STRING" size="256"/>
  312. <Column id="clamymfrom" type="STRING" size="256"/>
  313. <Column id="clamdgfrom" type="STRING" size="256"/>
  314. <Column id="clamymto" type="STRING" size="256"/>
  315. <Column id="clamdgto" type="STRING" size="256"/>
  316. <Column id="insukind" type="STRING" size="256"/>
  317. <Column id="ioflag" type="STRING" size="256"/>
  318. <Column id="clamdeptid" type="STRING" size="256"/>
  319. <Column id="orddeptcd" type="STRING" size="256"/>
  320. <Column id="orddrid" type="STRING" size="256"/>
  321. <Column id="code" type="STRING" size="256"/>
  322. <Column id="patunitsrch" type="STRING" size="256"/>
  323. <Column id="cutonly" type="STRING" size="256"/>
  324. <Column id="codecond" type="STRING" size="256"/>
  325. <Column id="cancer" type="STRING" size="256"/>
  326. <Column id="large" type="STRING" size="256"/>
  327. <Column id="middle" type="STRING" size="256"/>
  328. <Column id="small" type="STRING" size="256"/>
  329. <Column id="judgrid" type="STRING" size="256"/>
  330. <Column id="edicd" type="STRING" size="256"/>
  331. <Column id="trustinstcd" type="STRING" size="256"/>
  332. <Column id="clamcutlist" type="STRING" size="256"/>
  333. <Column id="spclcd" type="STRING" size="256"/>
  334. <Column id="mpsflag" type="STRING" size="256"/>
  335. <Column id="judgrid" type="STRING" size="256"/>
  336. <Column id="workflag" type="STRING" size="256"/>
  337. <Column id="clamym" type="STRING" size="256"/>
  338. <Column id="clamdg" type="STRING" size="256"/>
  339. <Column id="pid" type="STRING" size="256"/>
  340. <Column id="pidsn" type="STRING" size="256"/>
  341. <Column id="ioflag" type="STRING" size="256"/>
  342. <Column id="diagcd" type="STRING" size="256"/>
  343. <Column id="diagnm" type="STRING" size="256"/>
  344. <Column id="delgb" type="STRING" size="256"/>
  345. <Column id="fromdiagcd" type="STRING" size="256"/>
  346. <Column id="todiagcd" type="STRING" size="256"/>
  347. <Column id="judgendyn" type="STRING" size="256"/>
  348. <Column id="fromdiagcd2" type="STRING" size="256"/>
  349. <Column id="todiagcd2" type="STRING" size="256"/>
  350. <Column id="ordflag" type="STRING" size="256"/>
  351. <Column id="instcd" type="STRING" size="256"/>
  352. <Column id="ordfildcd" type="STRING" size="256"/>
  353. </ColumnInfo>
  354. <Rows>
  355. <Row>
  356. <Col id="clamflag"/>
  357. <Col id="clamym"/>
  358. <Col id="clamymfrom"/>
  359. <Col id="clamdgfrom"/>
  360. <Col id="clamymto"/>
  361. <Col id="clamdgto"/>
  362. <Col id="insukind"/>
  363. <Col id="ioflag"/>
  364. <Col id="clamdeptid"/>
  365. <Col id="orddeptcd"/>
  366. <Col id="orddrid"/>
  367. <Col id="code"/>
  368. <Col id="patunitsrch"/>
  369. <Col id="cutonly"/>
  370. <Col id="codecond"/>
  371. <Col id="cancer"/>
  372. <Col id="large"/>
  373. <Col id="middle"/>
  374. <Col id="small"/>
  375. <Col id="judgrid"/>
  376. <Col id="edicd"/>
  377. <Col id="trustinstcd"/>
  378. <Col id="clamcutlist"/>
  379. <Col id="spclcd">JX999</Col>
  380. <Col id="mpsflag">A</Col>
  381. <Col id="judgrid"/>
  382. <Col id="workflag"/>
  383. <Col id="clamym"/>
  384. <Col id="clamdg"/>
  385. <Col id="pid"/>
  386. <Col id="pidsn"/>
  387. <Col id="ioflag"/>
  388. <Col id="diagcd"/>
  389. <Col id="diagnm"/>
  390. <Col id="delgb">A</Col>
  391. <Col id="fromdiagcd"/>
  392. <Col id="todiagcd"/>
  393. <Col id="judgendyn"/>
  394. <Col id="fromdiagcd2"/>
  395. <Col id="todiagcd2"/>
  396. <Col id="ordflag">J</Col>
  397. </Row>
  398. </Rows>
  399. </Dataset>
  400. <Dataset id="ds_rdo_delgb" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  401. <ColumnInfo>
  402. <Column id="label" type="STRING" size="256"/>
  403. <Column id="value" type="STRING" size="256"/>
  404. </ColumnInfo>
  405. <Rows>
  406. <Row>
  407. <Col id="label">일괄적용대상</Col>
  408. <Col id="value">A</Col>
  409. </Row>
  410. <Row>
  411. <Col id="label">일괄삭제대상</Col>
  412. <Col id="value">D</Col>
  413. </Row>
  414. <Row>
  415. <Col id="label">자동상병대상</Col>
  416. <Col id="value">P</Col>
  417. </Row>
  418. </Rows>
  419. </Dataset>
  420. <Dataset id="ds_init_clamdglist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  421. <ColumnInfo>
  422. <Column id="clamdgnm" type="STRING" size="256"/>
  423. <Column id="clamdgcd" type="STRING" size="256"/>
  424. </ColumnInfo>
  425. <Rows>
  426. <Row/>
  427. </Rows>
  428. </Dataset>
  429. <Dataset id="ds_init_P0155list" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  430. <ColumnInfo>
  431. <Column id="cdnm" type="STRING" size="256"/>
  432. <Column id="cdid" type="STRING" size="256"/>
  433. </ColumnInfo>
  434. <Rows>
  435. <Row/>
  436. </Rows>
  437. </Dataset>
  438. <Dataset id="ds_init_P0008list" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  439. <ColumnInfo>
  440. <Column id="cdnm" type="STRING" size="256"/>
  441. <Column id="cdid" type="STRING" size="256"/>
  442. </ColumnInfo>
  443. <Rows>
  444. <Row/>
  445. </Rows>
  446. </Dataset>
  447. <Dataset id="ds_init_U0001list" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  448. <ColumnInfo>
  449. <Column id="cdnm" type="STRING" size="256"/>
  450. <Column id="cdid" type="STRING" size="256"/>
  451. </ColumnInfo>
  452. <Rows>
  453. <Row/>
  454. </Rows>
  455. </Dataset>
  456. <Dataset id="ds_rdo_ioflag" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  457. <ColumnInfo>
  458. <Column id="label" type="STRING" size="256"/>
  459. <Column id="value" type="STRING" size="256"/>
  460. </ColumnInfo>
  461. <Rows>
  462. <Row>
  463. <Col id="label">전체</Col>
  464. <Col id="value">A</Col>
  465. </Row>
  466. <Row>
  467. <Col id="label">입원</Col>
  468. <Col id="value">I</Col>
  469. </Row>
  470. <Row>
  471. <Col id="label">외래</Col>
  472. <Col id="value">O</Col>
  473. </Row>
  474. </Rows>
  475. </Dataset>
  476. <Dataset id="ds_init_tmp_orddeptcdlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  477. <ColumnInfo>
  478. <Column id="nm" type="STRING" size="256"/>
  479. <Column id="cd" type="STRING" size="256"/>
  480. </ColumnInfo>
  481. <Rows>
  482. <Row/>
  483. </Rows>
  484. </Dataset>
  485. <Dataset id="ds_cmb_combo3" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  486. <ColumnInfo>
  487. <Column id="label" type="STRING" size="256"/>
  488. <Column id="value" type="STRING" size="256"/>
  489. </ColumnInfo>
  490. <Rows>
  491. <Row>
  492. <Col id="label">전체</Col>
  493. <Col id="value">A</Col>
  494. </Row>
  495. <Row>
  496. <Col id="label">원내처방</Col>
  497. <Col id="value">I</Col>
  498. </Row>
  499. <Row>
  500. <Col id="label">원외처방</Col>
  501. <Col id="value">O</Col>
  502. </Row>
  503. </Rows>
  504. </Dataset>
  505. <Dataset id="ds_init_P0151list" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  506. <ColumnInfo>
  507. <Column id="cdnm" type="STRING" size="256"/>
  508. <Column id="cdid" type="STRING" size="256"/>
  509. </ColumnInfo>
  510. <Rows>
  511. <Row/>
  512. </Rows>
  513. </Dataset>
  514. <Dataset id="ds_main_calcorderlist" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_main_calcorderlist_oncolumnchanged">
  515. <ColumnInfo>
  516. <Column id="rowno" type="STRING" size="256" sumtext="순번"/>
  517. <Column id="pid" type="STRING" size="256" sumtext="등록번호"/>
  518. <Column id="hngnm" type="STRING" size="256" sumtext="성명"/>
  519. <Column id="ioflag" type="STRING" size="256" sumtext="내원유형"/>
  520. <Column id="clamym" type="STRING" size="256" sumtext="청구월"/>
  521. <Column id="clamflagcd" type="STRING" size="256" sumtext="구분"/>
  522. <Column id="clamdg" type="STRING" size="256" sumtext="차수"/>
  523. <Column id="insukind" type="STRING" size="256" sumtext="유형"/>
  524. <Column id="suppkind" type="STRING" size="256" sumtext="보조"/>
  525. <Column id="clamdeptcd" type="STRING" size="256" sumtext="청구과"/>
  526. <Column id="orddeptcd" type="STRING" size="256" sumtext="진료과"/>
  527. <Column id="orddrnm" type="STRING" size="256" sumtext="진료의"/>
  528. <Column id="diagnm" type="STRING" size="256" sumtext="주상병명"/>
  529. <Column id="diagcd" type="STRING" size="256" sumtext="주상병"/>
  530. <Column id="acptno" type="STRING" size="256" sumtext="접수번호"/>
  531. <Column id="docuseqno" type="STRING" size="256" sumtext="명일련"/>
  532. <Column id="edilnno" type="STRING" size="256" sumtext="줄번호"/>
  533. <Column id="snglcalcscorcd" type="STRING" size="256" sumtext="처방코드"/>
  534. <Column id="edicd" type="STRING" size="256" sumtext="EDI코드"/>
  535. <Column id="calchngnm" type="STRING" size="256" sumtext="한글명"/>
  536. <Column id="unitcost" type="STRING" size="256" sumtext="단가"/>
  537. <Column id="drugqty" type="STRING" size="256" sumtext="수량"/>
  538. <Column id="tims" type="STRING" size="256" sumtext="횟수"/>
  539. <Column id="dayno" type="STRING" size="256" sumtext="일수"/>
  540. <Column id="totdrugqty" type="STRING" size="256" sumtext="총투여량"/>
  541. <Column id="amt" type="STRING" size="256" sumtext="금액"/>
  542. <Column id="indd" type="STRING" size="256" sumtext="입원일자"/>
  543. <Column id="cretfromdd" type="STRING" size="256" sumtext="유형시작일"/>
  544. <Column id="crettodd" type="STRING" size="256" sumtext="종료일"/>
  545. <Column id="clamdrid" type="STRING" size="256" sumtext="처방의"/>
  546. <Column id="judgyn" type="STRING" size="256" sumtext="심사결정"/>
  547. <Column id="cutdrugqty" type="STRING" size="256" sumtext="삭감투여량"/>
  548. <Column id="cuttims" type="STRING" size="256" sumtext="삭감횟수"/>
  549. <Column id="cutdayno" type="STRING" size="256" sumtext="삭감일수"/>
  550. <Column id="totcutqty" type="STRING" size="256" sumtext="총투삭감량"/>
  551. <Column id="oprcp" type="STRING" size="256" sumtext="원내외"/>
  552. <Column id="payflag" type="STRING" size="256" sumtext="급비구분"/>
  553. <Column id="judgrnm" type="STRING" size="256" sumtext="심사자"/>
  554. <Column id="edicdflag" type="STRING" size="256" sumtext="EDI코드구분"/>
  555. <Column id="clodseqno" type="STRING" size="256" sumtext="사후심사처방일련번호"/>
  556. <Column id="spclspec" type="STRING" size="256" sumtext="특정내역"/>
  557. <Column id="spclcd" type="STRING" size="256" sumtext="특정코드"/>
  558. <Column id="pidsn" type="STRING" size="256" sumtext="등록번호순번"/>
  559. <Column id="mpsno" type="STRING" size="256" sumtext="원외처방전번호"/>
  560. <Column id="mpsflag" type="STRING" size="256" sumtext="원외처방구분"/>
  561. <Column id="orddd" type="STRING" size="256" sumtext="처방일"/>
  562. <Column id="age" type="STRING" size="256" sumtext="나이"/>
  563. <Column id="execdd" type="STRING" size="256" sumtext="실시일자"/>
  564. <Column id="judgendyn" type="STRING" size="256" sumtext="심사상태"/>
  565. <Column id="workflag" type="STRING" size="256" sumtext="심사상태"/>
  566. <Column id="clamdeptcode" type="STRING" size="256" sumtext="심사상태"/>
  567. <Column id="ordfromdd" type="STRING" size="256" sumtext="ordfromdd"/>
  568. <Column id="a" type="STRING" size="256" sumtext="ordfromdd"/>
  569. <Column id="gndr" type="STRING" size="256" sumtext="성별"/>
  570. <Column id="diagcnt" type="STRING" size="256" sumtext="성별"/>
  571. <Column id="diagkindcd" type="STRING" size="256" sumtext="성별"/>
  572. <Column id="chk" type="STRING" size="256"/>
  573. <Column id="diagcd2" type="STRING" size="256"/>
  574. <Column id="diagnm2" type="STRING" size="256"/>
  575. <Column id="fromdiagcd" type="STRING" size="256"/>
  576. <Column id="todiagcd" type="STRING" size="256"/>
  577. <Column id="fromdiagcd2" type="STRING" size="256"/>
  578. <Column id="todiagcd2" type="STRING" size="256"/>
  579. </ColumnInfo>
  580. </Dataset>
  581. <Dataset id="ds_init_UserInfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  582. <ColumnInfo>
  583. <Column id="userId" type="STRING" size="256"/>
  584. <Column id="userNm" type="STRING" size="256"/>
  585. </ColumnInfo>
  586. <Rows>
  587. <Row/>
  588. </Rows>
  589. </Dataset>
  590. <Dataset id="ds_hidden_smpid20300" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  591. <ColumnInfo>
  592. <Column id="workflag" type="STRING" size="256"/>
  593. <Column id="clamym" type="STRING" size="256"/>
  594. <Column id="clamdg" type="STRING" size="256"/>
  595. <Column id="pid" type="STRING" size="256"/>
  596. <Column id="pidsn" type="STRING" size="256"/>
  597. <Column id="ioflag" type="STRING" size="256"/>
  598. </ColumnInfo>
  599. <Rows>
  600. <Row/>
  601. </Rows>
  602. </Dataset>
  603. <Dataset id="ds_hidden_targetdiag" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  604. <ColumnInfo>
  605. <Column id="diagcd" type="STRING" size="256"/>
  606. <Column id="diagcdref" type="STRING" size="256"/>
  607. <Column id="diagnmref" type="STRING" size="256"/>
  608. </ColumnInfo>
  609. <Rows>
  610. <Row/>
  611. </Rows>
  612. </Dataset>
  613. <Dataset id="ds_hidden_sppiz00400" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  614. <ColumnInfo>
  615. <Column id="basedd" type="STRING" size="256"/>
  616. <Column id="diagcd" type="STRING" size="256"/>
  617. <Column id="diagnm" type="STRING" size="256"/>
  618. <Column id="selectedrdodiagkind" type="STRING" size="256"/>
  619. </ColumnInfo>
  620. <Rows>
  621. <Row/>
  622. </Rows>
  623. </Dataset>
  624. <Dataset id="ds_rslt_sppiz00400" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  625. <ColumnInfo>
  626. <Column id="diagfromdd" type="STRING" size="256" sumtext="시작일자"/>
  627. <Column id="diagtodd" type="STRING" size="256" sumtext="종료일자"/>
  628. <Column id="diagcd" type="STRING" size="256" sumtext="ICO10코드"/>
  629. <Column id="diaghngnm" type="STRING" size="256" sumtext="한글명"/>
  630. <Column id="diagengnm" type="STRING" size="256" sumtext="영문명"/>
  631. </ColumnInfo>
  632. <Rows>
  633. <Row/>
  634. </Rows>
  635. </Dataset>
  636. <Dataset id="ds_hidden_listval_uuee" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  637. <ColumnInfo>
  638. <Column id="compsnm" type="STRING" size="256"/>
  639. <Column id="compscnts" type="STRING" size="256"/>
  640. <Column id="compssizecnts" type="STRING" size="256"/>
  641. </ColumnInfo>
  642. <Rows>
  643. <Row>
  644. <Col id="compsnm">grd_outjudg</Col>
  645. <Col id="compscnts">^rowno^pid^hngnm^age^gndr^ioflag^clamym^insukind^suppkind^clamdeptcd^diagcd2^diagnm2^diagkindcd^diagcd^diagnm^spclspec^chk^judgendyn^sngcalcscorcd^edicd^calchngnm^edilnno^unitcost^drugqty^tims^dayno^totdrugqty^amt^indd^cretfromdd^crettodd^clamdrid^judgyn^cutdrugqty^cuttims^cutdayno^totcutqty^oprcp^payflag^judgrnm^acptno^docuseqno^orddeptcd^orddrnm^clamflagcd^clamdg^edicdflag^clodseqno^pidsn^mpsno^mpsflag^workflag^clamdeptcode^ordfromdd^execdd^chk2^diagcnt^fromdiagcd^todiagcd^fromdiagcd2^todiagcd2</Col>
  646. <Col id="compssizecnts">21^30^48^46^21^22^30^51^22^25^90^66^121^48^78^130^0^50^58^100^103^100^0^0^0^0^0^0^0^70^70^70^0^36^0^0^0^0^31^0^55^100^100^67^45^30^36^0^0^0^0^0^0^0^0^0^0^0^0^0^0</Col>
  647. </Row>
  648. </Rows>
  649. </Dataset>
  650. <Dataset id="ds_temp_mech" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  651. <Dataset id="ds_temp_edicd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  652. <Dataset id="ds_hidden_smpid20500" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  653. <ColumnInfo>
  654. <Column id="oldPid" type="STRING" size="256"/>
  655. <Column id="judgendyn" type="STRING" size="256"/>
  656. <Column id="clamdg" type="STRING" size="256"/>
  657. <Column id="pid" type="STRING" size="256"/>
  658. <Column id="pidsn" type="STRING" size="256"/>
  659. <Column id="popupcallyn" type="STRING" size="256"/>
  660. <Column id="selectedRow" type="STRING" size="256"/>
  661. <Column id="reselect" type="STRING" size="256"/>
  662. <Column id="workflag" type="STRING" size="256"/>
  663. <Column id="cutprcpyn" type="STRING" size="256"/>
  664. <Column id="docuseqno" type="STRING" size="256"/>
  665. <Column id="judgrid" type="STRING" size="256"/>
  666. <Column id="orddeptcd" type="STRING" size="256"/>
  667. <Column id="clamym" type="STRING" size="256"/>
  668. <Column id="tootpopupyn" type="STRING" size="256"/>
  669. <Column id="cutviewyn" type="STRING" size="256"/>
  670. <Column id="ordfildcd" type="STRING" size="256"/>
  671. <Column id="clamflagcd" type="STRING" size="256"/>
  672. <Column id="insukindcd" type="STRING" size="256"/>
  673. <Column id="ordfromdd" type="STRING" size="256"/>
  674. <Column id="judgenddd" type="STRING" size="256"/>
  675. <Column id="cretno" type="STRING" size="256"/>
  676. </ColumnInfo>
  677. <Rows>
  678. <Row/>
  679. </Rows>
  680. </Dataset>
  681. <Dataset id="ds_hidden_smpic00200" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  682. <ColumnInfo>
  683. <Column id="con1_dd" type="STRING" size="256"/>
  684. <Column id="con2_gsflag" type="STRING" size="256"/>
  685. <Column id="con3_search1" type="STRING" size="256"/>
  686. <Column id="con4_search2" type="STRING" size="256"/>
  687. <Column id="con5_insu" type="STRING" size="256"/>
  688. <Column id="srchdrugcd" type="STRING" size="256"/>
  689. </ColumnInfo>
  690. <Rows>
  691. <Row/>
  692. </Rows>
  693. </Dataset>
  694. <Dataset id="ds_temp_picmmech" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  695. <Dataset id="ds_send_send_afjudg" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  696. <ColumnInfo>
  697. <Column id="clamym" type="STRING" size="256"/>
  698. <Column id="clamdg" type="STRING" size="256"/>
  699. <Column id="pid" type="STRING" size="256"/>
  700. <Column id="pidsn" type="STRING" size="256"/>
  701. <Column id="ioflag" type="STRING" size="256"/>
  702. <Column id="workflag" type="STRING" size="256"/>
  703. <Column id="judgstat" type="STRING" size="256"/>
  704. <Column id="cutprcpyn" type="STRING" size="256"/>
  705. <Column id="selectedRow" type="STRING" size="256"/>
  706. <Column id="judgenddd" type="STRING" size="256"/>
  707. <Column id="cretno" type="STRING" size="256"/>
  708. <Column id="popupcallyn" type="STRING" size="256"/>
  709. </ColumnInfo>
  710. <Rows>
  711. <Row/>
  712. </Rows>
  713. </Dataset>
  714. <Dataset id="ds_init_P0291list" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  715. </Objects>
  716. <Bind>
  717. <BindItem id="item0" compid="group2.group4.ipt_clamymfrom" propid="text" datasetid="ds_send" columnid="clamymfrom"/>
  718. <BindItem id="item1" compid="group2.group4.cmb_clamdgfrom" propid="value" datasetid="ds_send" columnid="clamdgfrom"/>
  719. <BindItem id="item2" compid="group2.group4.cmb_clamflag" propid="value" datasetid="ds_send" columnid="clamflag"/>
  720. <BindItem id="item3" compid="group2.group4.ipt_code" propid="value" datasetid="ds_send" columnid="code"/>
  721. <BindItem id="item4" compid="group2.group4.ipt_edicd" propid="value" datasetid="ds_send" columnid="edicd"/>
  722. <BindItem id="item5" compid="group2.group4.cmb_insukind" propid="value" datasetid="ds_send" columnid="insukind"/>
  723. <BindItem id="item6" compid="group2.group4.opt_insukind" propid="value" datasetid="ds_send" columnid="insukind"/>
  724. <BindItem id="item7" compid="group2.group4.cmb_judgrid" propid="value" datasetid="ds_send" columnid="judgrid"/>
  725. <BindItem id="item8" compid="group2.group4.rdo_ioflag" propid="value" datasetid="ds_send" columnid="ioflag"/>
  726. <BindItem id="item9" compid="group2.group4.combo2" propid="value" datasetid="ds_send" columnid="orddeptcd"/>
  727. <BindItem id="item10" compid="group2.group4.combo3" propid="value" datasetid="ds_send" columnid="mpsflag"/>
  728. <BindItem id="item11" compid="group2.group4.cmb_judgendyn" propid="value" datasetid="ds_send" columnid="judgendyn"/>
  729. <BindItem id="item12" compid="group2.group4.ipt_fromdiagcd" propid="value" datasetid="ds_send" columnid="fromdiagcd"/>
  730. <BindItem id="item13" compid="group2.group4.ipt_todiagcd" propid="value" datasetid="ds_send" columnid="todiagcd"/>
  731. <BindItem id="item14" compid="group2.group4.ipt_fromdiagcd2" propid="value" datasetid="ds_send" columnid="fromdiagcd2"/>
  732. <BindItem id="item15" compid="group2.group4.ipt_todiagcd2" propid="value" datasetid="ds_send" columnid="todiagcd2"/>
  733. <BindItem id="item16" compid="group2.group4.rdo_delgb" propid="value" datasetid="ds_send" columnid="delgb"/>
  734. <BindItem id="item17" compid="group2.group4.ipt_diagcd" propid="value" datasetid="ds_send" columnid="diagcd"/>
  735. <BindItem id="item18" compid="group2.group4.ipt_diagnm" propid="value" datasetid="ds_send" columnid="diagnm"/>
  736. <BindItem id="item19" compid="group2.ipt_clamymto" propid="text" datasetid="ds_send" columnid="clamymto"/>
  737. <BindItem id="item20" compid="group2.cmb_clamdgto" propid="value" datasetid="ds_send" columnid="clamdgto"/>
  738. <BindItem id="item21" compid="group2.group4.combo6" propid="value" datasetid="ds_send" columnid="ordfildcd"/>
  739. </Bind>
  740. <Script type="xscript4.0"><![CDATA[/***************************************************************************************
  741. * System Name :
  742. * Job Name :
  743. * Creator :
  744. * Make Date : 2016-05-24
  745. * Description :
  746. *---------------------------------------------------------------------------------------
  747. * Modify Date Modifier Modify Description
  748. *---------------------------------------------------------------------------------------
  749. * 2016-05-24 Live Converter TF->XP
  750. *
  751. *---------------------------------------------------------------------------------------
  752. ****************************************************************************************/
  753. include "com_commonxp::comm_main.xjs";
  754. include "pam_pamcomnxp::PAM001.xjs";
  755. include "pam_pamcomnxp::PAM.xjs";
  756. include "pam_aftjudgstatxp::SMPIS01700.xjs";
  757. include "pam_bfjudgxp::pam_grd.xjs";
  758. function SMPIS01600_oninit(obj:Form, e:InitEventInfo)
  759. {
  760. frmf_initForm(obj);
  761. }
  762. function SMPIS01600_onload(obj:Form, e:LoadEventInfo)
  763. {
  764. grdf_GetUuee("ds_send_listval_uuee", "ds_hidden_listval_uuee",frmf_getScreenID(), "cf_Uuee_"+frmf_getScreenID());
  765. fInitialize();
  766. }
  767. function cf_Uuee_SMPIS01600(sSvcId, nErrorCode, sErrorMsg)
  768. {
  769. if(nErrorCode < 0) return;
  770. ds_hidden_listval_uuee.filterstr = "compsnm == 'grd_outjudg'";
  771. var grd_name = ds_hidden_listval_uuee.getColumn(0,"compsnm");
  772. var refdata = ds_hidden_listval_uuee.getColumn(0,"compscnts");
  773. var sizedata = ds_hidden_listval_uuee.getColumn(0,"compssizecnts");
  774. ds_hidden_listval_uuee.filterstr = "";
  775. if (!utlf_isNull(grd_name))
  776. {
  777. grdf_SetOrderInfoOfCol_format(group2.grd_outjudg, refdata, sizedata);
  778. }
  779. grdf_initGrid(group2.grd_outjudg);
  780. grdf_setRowTypeIcon(group2.grd_outjudg, 0);
  781. lf_grid_band_left(group2.grd_outjudg, 14);
  782. }
  783. function fInitialize()
  784. {
  785. ds_main_calcorderlist.clearData();
  786. ds_send.setColumn(0, "instcd", sysf_getUserInfo("dutplceinstcd"));
  787. var oParam = {};
  788. oParam.id = "TRPIB00603";
  789. oParam.service = "insubasecdmngtapp.JudgCmt";
  790. oParam.method = "reqGetJudgRidList";
  791. oParam.inds = "req=ds_send";
  792. oParam.outds = "ds_init_U0001list=U0001 ds_init_UserInfo=UserInfo";
  793. oParam.async = false;
  794. //oParam.callback = "cf_TRPIB00603";
  795. tranf_submit(oParam);
  796. var arrParam = [{dsNm: "ds_init_P0008list", cdGrpId: "P0008"}
  797. ,{dsNm: "ds_init_P0155list", cdGrpId: "P0155"}
  798. ,{dsNm: "ds_init_P0151list", cdGrpId: "P0151"}
  799. ,{dsNm: "ds_init_P0291list", cdGrpId: "P0291"}]
  800. appf_getCodeList(arrParam);
  801. pamGetDeptCDDrIDList();
  802. group2.group4.rdo_ioflag.value = "A";
  803. var today = new Date();
  804. var baseyear = today.getDateFormat("YYYY");
  805. var basemonth = today.getDateFormat("MM");
  806. var currentym = baseyear + basemonth;
  807. ds_send.setColumn(0, "clamymfrom", currentym);
  808. ds_send.setColumn(0, "clamymto", currentym);
  809. group2.group4.ipt_clamymfrom.setData(ds_send.getColumn(0, "clamymfrom"));
  810. group2.ipt_clamymto.setData(ds_send.getColumn(0, "clamymto"));
  811. group2.group4.ipt_clamymfrom.setCallEvent("fn_Cal");
  812. var clamym = group2.group4.ipt_clamymfrom.getData();
  813. var clamtoym = group2.ipt_clamymto.getData();
  814. var ioflag = ds_send.getColumn(0, "ioflag");
  815. var insukind = ds_send.getColumn(0, "insukind");
  816. pidfGetClamdg(clamym, clamtoym, ioflag, insukind, "ds_init_clamdglist");
  817. fGetOrdDept();
  818. fGetClamDept();
  819. frmf_addComboItem("group2.group4.cmb_insukind","보험+급여","T","below");
  820. frmf_addComboItem("group2.group4.cmb_clamdgfrom","전체","","above");
  821. fDiagcdChange();
  822. group2.group4.cmb_insukind.value = "T";
  823. }
  824. function fn_Cal()
  825. {
  826. var clamym = group2.group4.ipt_clamymfrom.getData();
  827. ds_send.setColumn(0, "clamymfrom", clamym);
  828. ds_send.setColumn(0, "clamymto", clamym);
  829. var clamtoym = ds_send.getColumn(0, "clamymto");
  830. var ioflag = ds_send.getColumn(0, "ioflag");
  831. var insukind = ds_send.getColumn(0, "insukind");
  832. pidfGetClamdg(clamym, clamtoym, ioflag, insukind, "ds_init_clamdglist");
  833. frmf_addComboItem("group2.group4.cmb_clamdgfrom","전체","","above");
  834. group2.group4.cmb_clamdgfrom.value = "";
  835. fChkClamym();
  836. }
  837. function fChkClamym()
  838. {
  839. var fromym = ds_send.getColumn(0, "clamymfrom");
  840. var toym = ds_send.getColumn(0, "clamymto");
  841. if ( fromym != toym )
  842. {
  843. group2.group4.cmb_clamdgfrom.value = "";
  844. group2.cmb_clamdgto.value = "";
  845. group2.group4.cmb_clamdgfrom.enable = false;
  846. group2.cmb_clamdgto.enable = false;
  847. }
  848. else
  849. {
  850. group2.group4.cmb_clamdgfrom.enable = true;
  851. group2.cmb_clamdgto.enable = true;
  852. group2.group4.cmb_clamdgfrom.index = 0;
  853. group2.cmb_clamdgto.index = 0;
  854. }
  855. }
  856. function fGetOrdDept()
  857. {
  858. var oParam = {};
  859. oParam.id = "TRPID20309";
  860. oParam.service = "aftjudgapp.InAftJudgTrgtMan";
  861. oParam.method = "reqGetDeptCDDrID";
  862. oParam.inds = "req=ds_send";
  863. oParam.outds = "ds_init_tmp_orddeptcdlist=orddeptcd ds_init_tmp_orddeptcdlist2=orddeptcd2 ds_init_tmp_orddridlist=orddrid ds_init_tmp_orddridlist2=orddrid2";
  864. oParam.async = false;
  865. //oParam.callback = "cf_TRPID20309";
  866. tranf_submit(oParam);
  867. }
  868. function fGetClamDept()
  869. {
  870. var oParam = {};
  871. oParam.id = "TRPID20201";
  872. oParam.service = "aftjudgapp.InAftJudgTrgtMan";
  873. oParam.method = "reqGetInitComCd";
  874. oParam.inds = "req=ds_send";
  875. oParam.outds = "ds_init_judgrid=judgrid ds_init_suppkind=suppkind ds_init_tmp_orddridlist=orddrid ds_init_tmp_orddridlist2=orddrid2 ds_init_clamdept=clamdept ds_init_tmp_orddeptcdlist=orddeptcd ds_init_tmp_orddeptcdlist2=orddeptcd2 ds_init_item3=item3 ds_init_clamdept=clamdg ds_init_aftjudgerr=aftjudgerr ds_init_uuee=uuee";
  876. oParam.async = false;
  877. //oParam.callback = "cf_TRPID20201";
  878. tranf_submit(oParam);
  879. }
  880. function fDiagcdChange()
  881. {
  882. if (group2.group4.rdo_delgb.value == "A")
  883. {
  884. button3.visible = true;
  885. group2.group4.btn_psave.visible = false;
  886. group2.group4.caption8.visible = true;
  887. group2.group4.ipt_fromdiagcd.visible = true;
  888. group2.group4.ipt_todiagcd.visible = true;
  889. group2.group4.caption14.visible = true;
  890. group2.group4.caption4.visible = true;
  891. group2.group4.ipt_diagcd.visible = true;
  892. group2.group4.ipt_diagnm.visible = true;
  893. group2.group4.button4.visible = true;
  894. group2.grd_outjudg.setFormatColProperty(group2.grd_outjudg.getBindCellIndex("body","snglcalcscorcd"), "size", 100);
  895. group2.grd_outjudg.setFormatColProperty(group2.grd_outjudg.getBindCellIndex("body","diagcd"), "size", 130);
  896. group2.grd_outjudg.setFormatColProperty(group2.grd_outjudg.getBindCellIndex("body","diagnm"), "size", 130);
  897. group2.group4.caption16.visible = true;
  898. group2.group4.ipt_fromdiagcd2.visible = true;
  899. group2.group4.caption15.visible = true;
  900. group2.group4.ipt_todiagcd2.visible = true;
  901. }
  902. else if (group2.group4.rdo_delgb.value == "D")
  903. {
  904. button3.visible = true;
  905. group2.group4.btn_psave.visible = false;
  906. group2.group4.caption8.visible = true;
  907. group2.group4.ipt_fromdiagcd.visible = true;
  908. group2.group4.ipt_todiagcd.visible = true;
  909. group2.group4.caption14.visible = true;
  910. group2.group4.caption4.visible = false;
  911. group2.group4.ipt_diagcd.visible = false;
  912. group2.group4.ipt_diagnm.visible = false;
  913. group2.group4.button4.visible = true;
  914. group2.grd_outjudg.setFormatColProperty(group2.grd_outjudg.getBindCellIndex("body","snglcalcscorcd"), "size", 100);
  915. group2.grd_outjudg.setFormatColProperty(group2.grd_outjudg.getBindCellIndex("body","diagcd"), "size", 0);
  916. group2.grd_outjudg.setFormatColProperty(group2.grd_outjudg.getBindCellIndex("body","diagnm"), "size", 0);
  917. group2.group4.caption16.visible = true;
  918. group2.group4.ipt_fromdiagcd2.visible = true;
  919. group2.group4.caption15.visible = true;
  920. group2.group4.ipt_todiagcd2.visible = true;
  921. }
  922. else
  923. {
  924. ds_send.setColumn(0, "codecond", "");
  925. button3.visible = false;
  926. group2.group4.btn_psave.visible = true;
  927. group2.group4.caption8.visible = false;
  928. group2.group4.ipt_fromdiagcd.visible = false;
  929. group2.group4.ipt_todiagcd.visible = false;
  930. group2.group4.caption14.visible = false;
  931. group2.group4.caption4.visible = false;
  932. group2.group4.ipt_diagcd.visible = false;
  933. group2.group4.ipt_diagnm.visible = false;
  934. group2.group4.button4.visible = false;
  935. group2.grd_outjudg.setFormatColProperty(group2.grd_outjudg.getBindCellIndex("body","snglcalcscorcd"), "size", 0);
  936. group2.grd_outjudg.setFormatColProperty(group2.grd_outjudg.getBindCellIndex("body","diagcd"), "size", 78);
  937. group2.grd_outjudg.setFormatColProperty(group2.grd_outjudg.getBindCellIndex("body","diagnm"), "size", 130);
  938. group2.group4.caption16.visible = false;
  939. group2.group4.ipt_fromdiagcd2.visible = false;
  940. group2.group4.caption15.visible = false;
  941. group2.group4.ipt_todiagcd2.visible = false;
  942. }
  943. // ds_main_calcorderlist.setColumn(0, "diagcd", group2.group4.rdo_delgb.label+ "상병코드");
  944. // ds_main_calcorderlist.setColumn(0, "diagnm", group2.group4.rdo_delgb.label+ "상병명");
  945. group2.grd_outjudg.setCellProperty("Head", 14, "text", group2.group4.rdo_delgb.text + "상병코드");
  946. group2.grd_outjudg.setCellProperty("Head", 15, "text", group2.group4.rdo_delgb.text + "상병명");
  947. ds_main_calcorderlist.updatecontrol = true;
  948. }
  949. function group2_group4_rdo_delgb_onitemchanged(obj:Radio, e:ItemChangeEventInfo)
  950. {
  951. fDiagcdChange();
  952. group2_group4_button1_onclick();
  953. }
  954. //조회
  955. function group2_group4_button1_onclick(obj:Button, e:ClickEventInfo)
  956. {
  957. if(ds_send.getColumn(0, "delgb") == "A" && utlf_isNull(ds_send.getColumn(0, "code")) && utlf_isNull(ds_send.getColumn(0, "edicd")))
  958. {
  959. sysf_messageBox("수가코드나 EDI코드중 하나는 필수입니다. ", "");
  960. group2.group4.ipt_code.setFocus();
  961. return;
  962. }
  963. if(ds_send.getColumn(0, "delgb") == "P")
  964. {
  965. if(group2.group4.rdo_ioflag.value == "A")
  966. {
  967. sysf_messageBox("내원유형 선택은 필수입니다. ", "");
  968. group2.group4.rdo_ioflag.setFocus();
  969. return ;
  970. }
  971. if(utlf_isNull(group2.group4.cmb_judgendyn.value))
  972. {
  973. sysf_messageBox("심사상태 선택은 필수입니다. ", "");
  974. group2.group4.cmb_judgendyn.setFocus();
  975. return ;
  976. }
  977. }
  978. ds_send.setColumn(0, "codecond", "calc");
  979. ds_send.setColumn(0, "trustinstcd", "N");
  980. fSearch();
  981. }
  982. function fSearch()
  983. {
  984. var chk_clamymfrom = ds_send.getColumn(0, "clamymfrom");
  985. var chk_clamymto = ds_send.getColumn(0, "clamymto");
  986. var ipt_code = ds_send.getColumn(0, "code");
  987. chk_clamymfrom = String(chk_clamymfrom).substr(0,6);
  988. chk_clamymto = String(chk_clamymto).substr(0,6);
  989. ds_send.setColumn(0, "clamymfrom", chk_clamymfrom);
  990. ds_send.setColumn(0, "clamymto", chk_clamymto);
  991. if (utlf_isNull(chk_clamymfrom) || utlf_isNull(chk_clamymto))
  992. {
  993. sysf_messageBox("청구년월은 ", "I003");
  994. group2.group4.ipt_clamymfrom.setFocus();
  995. return;
  996. }
  997. ds_main_calcorderlist.clearData();
  998. var oParam = {};
  999. oParam.id = "TRPIS00600";
  1000. oParam.service = "aftjudgstatapp.DiagClam";
  1001. oParam.method = "reqGetClamListWithCldi";
  1002. oParam.inds = "req=ds_send";
  1003. oParam.outds = "ds_main_calcorderlist=clamcutlist";
  1004. oParam.async = false;
  1005. //oParam.callback = "cf_TRPIS00600";
  1006. tranf_submit(oParam);
  1007. group2.grd_outjudg.setCellProperty("Head", group2.grd_outjudg.getBindCellIndex("Body", "diagkindcd"), "displaytype", "checkbox");
  1008. group2.grd_outjudg.setCellProperty("Head", group2.grd_outjudg.getBindCellIndex("Body", "diagkindcd"), "edittype", "checkbox");
  1009. if(!utlf_isNull(ds_main_calcorderlist.lookupExpr("diagcnt > '1'", "diagcnt")))
  1010. {
  1011. sysf_messageBox("주상병이 중복인 환자가 있습니다","I");
  1012. }
  1013. ds_main_calcorderlist.updatecontrol = false;
  1014. for(var i = 0; i < ds_main_calcorderlist.rowcount; i++)
  1015. {
  1016. ds_main_calcorderlist.setColumn(i, "diagcd2", ds_main_calcorderlist.getColumn(i, "diagcd"));
  1017. ds_main_calcorderlist.setColumn(i, "diagcd", "");
  1018. ds_main_calcorderlist.setColumn(i, "diagnm2", ds_main_calcorderlist.getColumn(i, "diagnm"));
  1019. ds_main_calcorderlist.setColumn(i, "diagnm", "");
  1020. }
  1021. for(var i = 0; i < ds_main_calcorderlist.rowcount; i++)
  1022. {
  1023. ds_main_calcorderlist.setColumn(i, "chk", "N");
  1024. }
  1025. ds_main_calcorderlist.updatecontrol = true;
  1026. fDiagcdChange();
  1027. }
  1028. function group2_group4_cmb_clamdgfrom_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
  1029. {
  1030. ds_send.setColumn(0, "clamdgto", ds_send.getColumn(0, "clamdgfrom"));
  1031. }
  1032. //환경저장
  1033. function button18_onclick(obj:Button, e:ClickEventInfo)
  1034. {
  1035. grdf_SaveOrderInfoOfCol(group2.grd_outjudg, ds_hidden_listval_uuee, frmf_getScreenID(), "cf_Cnfm_"+frmf_getScreenID());
  1036. }
  1037. function cf_Cnfm_SMPIS01600(sSvcId, nErrorCode, sErrorMsg)
  1038. {
  1039. if(nErrorCode < 0) return;
  1040. sysf_messageBox("사용자 환경 저장이","I002");
  1041. }
  1042. //엑셀저장
  1043. function group2_btn_excelsave_onclick(obj:Button, e:ClickEventInfo)
  1044. {
  1045. if (ds_main_calcorderlist.rowcount > 0)
  1046. {
  1047. grdf_exportExcel(group2.grd_outjudg, "exportExcel", "see");
  1048. }
  1049. else
  1050. {
  1051. sysf_messageBox("엑셀저장할 내역이", "I004"); ///엑셀저장할 내역이 없습니다.
  1052. }
  1053. }
  1054. //심사화면보기
  1055. function group2_button8_onclick(obj:Button, e:ClickEventInfo)
  1056. {
  1057. var row = ds_main_calcorderlist.rowposition;
  1058. if(row > -1)
  1059. {
  1060. if(ds_main_calcorderlist.getColumn(row, "ioflag") == "I")
  1061. {
  1062. var preDocuWindow = frmf_getChildWindow("SMPID20300");
  1063. }
  1064. else
  1065. {
  1066. var preDocuWindow = frmf_getChildWindow("SMPID20500");
  1067. }
  1068. if(utlf_isNull(preDocuWindow))
  1069. {
  1070. ds_send_send_afjudg.setColumn(0, "workflag", "12");
  1071. ds_send_send_afjudg.setColumn(0, "clamym", ds_main_calcorderlist.getColumn(row, "clamym"));
  1072. ds_send_send_afjudg.setColumn(0, "clamdg", ds_main_calcorderlist.getColumn(row, "clamdg"));
  1073. ds_send_send_afjudg.setColumn(0, "pid", ds_main_calcorderlist.getColumn(row, "pid"));
  1074. ds_send_send_afjudg.setColumn(0, "pidsn", ds_main_calcorderlist.getColumn(row, "pidsn"));
  1075. ds_send_send_afjudg.setColumn(0, "ioflag", ds_main_calcorderlist.getColumn(row, "ioflag"));
  1076. if(ds_main_calcorderlist.getColumn(row, "ioflag") == "I")
  1077. {
  1078. frmf_open("SMPID20300", "SMPID20300", {objDs:ds_send_send_afjudg}, "", "", "", "", "", "", "", "", "", "M");
  1079. }
  1080. else
  1081. {
  1082. frmf_open("SMPID20500", "SMPID20500", {objDs:ds_send_send_afjudg}, "", "", "", "", "", "", "", "", "", "M");
  1083. }
  1084. }
  1085. else
  1086. {
  1087. ds_hidden_smpid20500.setColumn(0, "workflag", "12");
  1088. ds_hidden_smpid20500.setColumn(0, "clamym", ds_main_calcorderlist.getColumn(row, "clamym"));
  1089. ds_hidden_smpid20500.setColumn(0, "clamdg", ds_main_calcorderlist.getColumn(row, "clamdg"));
  1090. ds_hidden_smpid20500.setColumn(0, "pid", ds_main_calcorderlist.getColumn(row, "pid"));
  1091. ds_hidden_smpid20500.setColumn(0, "pidsn", ds_main_calcorderlist.getColumn(row, "pidsn"));
  1092. ds_hidden_smpid20500.setColumn(0, "cutprcpyn", "N");
  1093. preDocuWindow.lf_fGetAftJudgMngt(ds_hidden_smpid20500);
  1094. frmf_setFocusPop("SMPID20500");
  1095. }
  1096. }
  1097. }
  1098. //일괄입력
  1099. function group2_group4_button4_onclick(obj:Button, e:ClickEventInfo)
  1100. {
  1101. group2_group4_button1_onclick();
  1102. if (fChangeRow() != false)
  1103. {
  1104. group2_group4_button1_onclick();
  1105. for(var i = 0; i < ds_main_calcorderlist.rowcount; i++)
  1106. {
  1107. if(group2.group4.rdo_delgb.value == "A")
  1108. {
  1109. var arrRow = new Array();
  1110. arrRow[0] = i;
  1111. grdf_setStatus(group2.grd_outjudg, "I", arrRow);
  1112. }
  1113. else if(group2.group4.rdo_delgb.value == "D")
  1114. {
  1115. var arrRow = new Array();
  1116. arrRow[0] = i;
  1117. grdf_setStatus(group2.grd_outjudg, "U", arrRow);
  1118. ds_main_calcorderlist.setColumn(i, "fromdiagcd", group2.group4.ipt_fromdiagcd.value);
  1119. ds_main_calcorderlist.setColumn(i, "todiagcd", group2.group4.ipt_todiagcd.value);
  1120. ds_main_calcorderlist.setColumn(i, "fromdiagcd2", group2.group4.ipt_fromdiagcd2.value);
  1121. ds_main_calcorderlist.setColumn(i, "todiagcd2", group2.group4.ipt_fromdiagcd2.value);
  1122. }
  1123. ds_main_calcorderlist.setColumn(i, "diagnm", group2.group4.ipt_diagnm.value);
  1124. ds_main_calcorderlist.setColumn(i, "diagcd", group2.group4.ipt_diagcd.value);
  1125. }
  1126. //
  1127. // grd_outjudg.colHidden(grd_outjudg.colRef("chk")) = false;
  1128. // grd_outjudg.colWidth(grd_outjudg.colRef("chk")) = 50;
  1129. }
  1130. }
  1131. function fChangeRow()
  1132. {
  1133. if (ds_send.getColumn(0, "delgb") == "A")
  1134. {
  1135. if(utlf_isNull(ds_send.getColumn(0, "fromdiagcd")))
  1136. {
  1137. sysf_messageBox("상병시작코드입력은 필수입니다. ", "");
  1138. group2.group4.ipt_fromdiagcd.setFocus();
  1139. return false;
  1140. }
  1141. if(utlf_isNull(ds_send.getColumn(0, "todiagcd")))
  1142. {
  1143. sysf_messageBox("상병종료코드입력은 필수입니다. ", "");
  1144. group2.group4.ipt_todiagcd.setFocus();
  1145. return false;
  1146. }
  1147. if(!utlf_isNull(ds_send.getColumn(0, "fromdiagcd2")) && utlf_isNull(ds_send.getColumn(0, "todiagcd2")))
  1148. {
  1149. sysf_messageBox("상병종료코드입력은 필수입니다. ", "");
  1150. group2.group4.ipt_todiagcd2.setFocus();
  1151. return false;
  1152. }
  1153. if(utlf_isNull(ds_send.getColumn(0, "diagcd")))
  1154. {
  1155. sysf_messageBox("적용상병코드입력은 필수입니다. ", "");
  1156. group2.group4.ipt_diagcd.setFocus();
  1157. return false;
  1158. }
  1159. ds_hidden_targetdiag.setColumn(0, "diagcd", group2.group4.ipt_diagcd.value);
  1160. ds_hidden_targetdiag.setColumn(0, "diagcdref", "ds_send");
  1161. ds_hidden_targetdiag.setColumn(0, "diagnmref", "ds_send");
  1162. fSearchDiageCode();
  1163. if(utlf_isNull(ds_send.getColumn(0, "diagnm")))
  1164. {
  1165. messageBox("올바른 상병코드를 입력해주세요. ", "");
  1166. group2.group4.ipt_diagcd.setFocus();
  1167. return false;
  1168. }
  1169. }
  1170. }
  1171. function group2_group4_ipt_diagcd_onkeydown(obj:Edit, e:KeyEventInfo)
  1172. {
  1173. if (e.keycode == 13)
  1174. {
  1175. ds_hidden_targetdiag.setColumn(0, "diagcd", obj.value);
  1176. ds_hidden_targetdiag.setColumn(0, "diagcdref", "ds_send");
  1177. ds_hidden_targetdiag.setColumn(0, "diagnmref", "ds_send");
  1178. fSearchDiageCode();
  1179. ds_send.setColumn(0, "diagcd", ds_rslt_sppiz00400.getColumn(0, "diagcd"));
  1180. ds_send.setColumn(0, "diagnm", ds_rslt_sppiz00400.getColumn(0, "diaghngnm"));
  1181. }
  1182. }
  1183. function fSearchDiageCode()
  1184. {
  1185. var diagcd = ds_hidden_targetdiag.getColumn(0, "diagcd");
  1186. if (diagcd)
  1187. {
  1188. ds_hidden_sppiz00400.clearData();
  1189. ds_hidden_sppiz00400.addRow();
  1190. ds_hidden_sppiz00400.setColumn(0, "basedd", utlf_getCurrentDate());
  1191. ds_hidden_sppiz00400.setColumn(0, "diagcd", diagcd);
  1192. ds_hidden_sppiz00400.setColumn(0, "diagnm", "");
  1193. ds_hidden_sppiz00400.setColumn(0, "selectedrdodiagkind", "1");
  1194. var oParam = {};
  1195. oParam.id = "TRPID20306";
  1196. oParam.service = "aftjudgapp.InAftJudg";
  1197. oParam.method = "reqGetSickAndWounded";
  1198. oParam.inds = "req=ds_hidden_sppiz00400";
  1199. oParam.outds = "ds_hidden_sppiz00400=cond ds_rslt_sppiz00400=rslt";
  1200. oParam.async = false;
  1201. //oParam.callback = "cf_TRPID20306";
  1202. tranf_submit(oParam);
  1203. var rsltList = ds_rslt_sppiz00400.rowcount;
  1204. if (rsltList == 1)
  1205. {
  1206. fSetDiagCdNm();
  1207. }
  1208. else
  1209. {
  1210. fSearchSPPIZ00400();
  1211. }
  1212. }
  1213. else
  1214. {
  1215. fSearchSPPIZ00400();
  1216. }
  1217. }
  1218. function fSearchSPPIZ00400()
  1219. {
  1220. var diagcd = ds_hidden_targetdiag.getColumn(0, "diagcd");
  1221. var objArg = new Object();
  1222. objArg.sDiagcd = diagcd;
  1223. objArg.sSelectedrdodiagkind = 3;
  1224. objArg.sSingleFlag = "M";
  1225. var objDs = frmf_modal("SPPIZ00400", "SPPIZ00400", objArg);
  1226. ds_rslt_sppiz00400.copyData(objDs);
  1227. group2.group4.button1.setFocus();
  1228. }
  1229. function fSetDiagCdNm(target_ipt_diagcd, target_ipt_diagnm)
  1230. {
  1231. var diagcd = ds_rslt_sppiz00400.getColumn(0, "diagcd");
  1232. var diaghngnm = ds_rslt_sppiz00400.getColumn(0, "diaghngnm");
  1233. var diagengnm = ds_rslt_sppiz00400.getColumn(0, "diagengnm");
  1234. var target_diagcd = ds_hidden_targetdiag.getColumn(0, "diagcdref");
  1235. var target_diagnm = ds_hidden_targetdiag.getColumn(0, "diagnmref");
  1236. eval(target_diagcd).setColumn(0, "diagcd", diagcd);
  1237. eval(target_diagnm).setColumn(0, "diagnm", diaghngnm);
  1238. }
  1239. //저장
  1240. function button3_onclick(obj:Button, e:ClickEventInfo)
  1241. {
  1242. if ( fChangeRow() != false )
  1243. {
  1244. //model.resetInstanceNode("/root/send/clamcutlist");
  1245. if ( sysf_messageBox("","Q002")==6 )
  1246. {
  1247. var update = grdf_getGridUpdateData(group2.grd_outjudg);
  1248. if(update.rowcount == 0)
  1249. {
  1250. sysf_messageBox("업데이트 정보가 없습니다.", "I");
  1251. return 0;
  1252. }
  1253. else
  1254. {
  1255. dsf_setDefaultVal(ds_main_calcorderlist, "diagkindcd:C");
  1256. var oParam = {};
  1257. oParam.id = "TRPIS00600";
  1258. oParam.service = "aftjudgstatapp.DiagClam";
  1259. oParam.method = "reqExeClamListWithCldi";
  1260. oParam.inds = "req=ds_main_calcorderlist:U";
  1261. oParam.outds = "";
  1262. oParam.async = false;
  1263. //oParam.callback = "cf_TRPIS00600";
  1264. tranf_submit(oParam);
  1265. ds_main_calcorderlist.clearData();
  1266. group2_group4_button1_onclick();
  1267. }
  1268. }
  1269. }
  1270. }
  1271. //일괄저장
  1272. function group2_group4_btn_psave_onclick(obj:Button, e:ClickEventInfo)
  1273. {
  1274. //model.resetInstanceNode("/root/send/clamcutlist");
  1275. var update = grdf_getGridUpdateData(group2.grd_outjudg);
  1276. if(update.rowcount == 0)
  1277. {
  1278. sysf_messageBox("업데이트 정보가 없습니다.", "I");
  1279. }
  1280. else
  1281. {
  1282. if ( sysf_messageBox("","Q002")==6 )
  1283. {
  1284. var update = grd_outjudg.getUpdateDataAll('i');
  1285. var oParam = {};
  1286. oParam.id = "TRPIS00600";
  1287. oParam.service = "aftjudgstatapp.DiagClam";
  1288. oParam.method = "reqExeAutoDiagLists";
  1289. oParam.inds = "req=ds_main_calcorderlist:U";
  1290. oParam.outds = "";
  1291. oParam.async = false;
  1292. //oParam.callback = "cf_TRPIS00600";
  1293. tranf_submit(oParam);
  1294. }
  1295. }
  1296. }
  1297. function group2_grd_outjudg_oncellclick(obj:Grid, e:GridClickEventInfo)
  1298. {
  1299. var rowno = new Array();
  1300. if(group2.grd_outjudg.getBindCellIndex("Body", "diagkindcd") == obj.currentcell)
  1301. {
  1302. if(ds_main_calcorderlist.getColumn(e.row, "diagkindcd") == "R" && ds_main_calcorderlist.getColumn(e.row, "chk") == "N")
  1303. {
  1304. rowno[0] = e.row;
  1305. grdf_setStatus(group2.grd_outjudg, "I", rowno);
  1306. }
  1307. else if(ds_main_calcorderlist.getColumn(e.row, "diagkindcd") == "R" && ds_main_calcorderlist.getColumn(e.row, "chk") == "Y")
  1308. {
  1309. rowno[0] = e.row;
  1310. grdf_setStatus(group2.grd_outjudg, "D", rowno);
  1311. }
  1312. else if(ds_main_calcorderlist.getColumn(e.row, "diagkindcd") == "C" && ds_main_calcorderlist.getColumn(e.row, "chk") == "Y")
  1313. {
  1314. rowno[0] = e.row;
  1315. grdf_setStatus(group2.grd_outjudg, "D", rowno);
  1316. }
  1317. else
  1318. {
  1319. rowno[0] = e.row;
  1320. grdf_setStatus(group2.grd_outjudg, "I", rowno);
  1321. }
  1322. }
  1323. }
  1324. function group2_group4_btn_onclick(obj:Button, e:ClickEventInfo)
  1325. {
  1326. fGetSnglcalcscorcd();
  1327. }
  1328. function fGetSnglcalcscorcd()
  1329. {
  1330. ds_temp_picmmech.clearData();
  1331. ds_hidden_smpic00200.setColumn(0, "con1_dd", utlf_getCurrentDate());
  1332. ds_hidden_smpic00200.setColumn(0, "con2_gsflag", "S");
  1333. ds_hidden_smpic00200.setColumn(0, "con3_search1", "hngnm");
  1334. ds_hidden_smpic00200.setColumn(0, "con4_search2", "");
  1335. ds_hidden_smpic00200.setColumn(0, "con5_insu", "insu");
  1336. ds_hidden_smpic00200.setColumn(0, "srchdrugcd", group2.group4.ipt_code.value);
  1337. frmf_setParameter("openflag", "hngnm");
  1338. var objArg = new Object();
  1339. objArg.arg_ds_temp = ds_hidden_smpic00200;
  1340. frmf_modal("SMPIC00200", "SMPIC00200", objArg, "", "", "", "", "", "", "", "", "", "M");
  1341. if (ds_temp_picmmech.rowcount == 0)
  1342. {
  1343. sysf_messageBox("수가조회 화면에서 선택한 결과가", "I004");
  1344. return;
  1345. }
  1346. if(ds_temp_picmmech.getColumn(0, "picmmech_ordinptflag") != "A")
  1347. {
  1348. sysf_messageBox("처방이 불가한 코드", "E008"); ///처방이 불가한 코드입니다.
  1349. return;
  1350. }
  1351. ds_send.setColumn(0, "code", ds_temp_picmmech.getColumn(0, "picmmech_calcscorcd"));
  1352. }
  1353. function group2_group4_btn1_onclick(obj:Button, e:ClickEventInfo)
  1354. {
  1355. fGetEdicd();
  1356. }
  1357. function fGetEdicd()
  1358. {
  1359. ds_temp_picmmech.clearData();
  1360. ds_hidden_smpic00200.setColumn(0, "con1_dd", utlf_getCurrentDate());
  1361. ds_hidden_smpic00200.setColumn(0, "con2_gsflag", "S");
  1362. ds_hidden_smpic00200.setColumn(0, "con3_search1", "hngnm");
  1363. ds_hidden_smpic00200.setColumn(0, "con4_search2", "");
  1364. ds_hidden_smpic00200.setColumn(0, "con5_insu", "insu");
  1365. ds_hidden_smpic00200.setColumn(0, "srchdrugcd", group2.group4.ipt_edicd.value);
  1366. frmf_setParameter("openflag", "hngnm");
  1367. var objArg = new Object();
  1368. objArg.arg_ds_temp = ds_hidden_smpic00200;
  1369. frmf_modal("SMPIC00200", "SMPIC00200", objArg, "", "", "", "", "", "", "", "", "", "M");
  1370. if(ds_temp_picmmech.rowcount == 0)
  1371. {
  1372. sysf_messageBox("수가조회 화면에서 선택한 결과가", "I004");
  1373. return;
  1374. }
  1375. ;
  1376. if(ds_temp_picmmech.getColumn(0, "picmmech_ordinptflag") != "A")
  1377. {
  1378. sysf_messageBox("처방이 불가한 코드", "E008"); ///처방이 불가한 코드입니다.
  1379. return;
  1380. }
  1381. ds_send.setColumn(0, "edicd", ds_temp_picmmech.getColumn(0, "picmmech_insuedicd"));
  1382. }
  1383. function group2_group4_rdo_ioflag_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
  1384. {
  1385. fGetOrdDept();
  1386. fGetClamDept();
  1387. }
  1388. function group2_group4_ipt_edicd_ontextchanged(obj:Edit, e:TextChangedEventInfo)
  1389. {
  1390. ds_send.setColumn(0, "code", "");
  1391. }
  1392. function group2_group4_ipt_fromdiagcd_onkeydown(obj:Edit, e:KeyEventInfo)
  1393. {
  1394. if(e.keycode == 13)
  1395. {
  1396. ds_hidden_targetdiag.setColumn(0, "diagcd", obj.value);
  1397. ds_hidden_targetdiag.setColumn(0, "diagcdref", "ds_send");
  1398. ds_hidden_targetdiag.setColumn(0, "diagnmref", "ds_send");
  1399. fSearchDiageCode();
  1400. ds_send.setColumn(0, "fromdiagcd", ds_rslt_sppiz00400.getColumn(0, "diagcd"));
  1401. ds_send.setColumn(0, "todiagcd", obj.value);
  1402. }
  1403. }
  1404. function group2_group4_ipt_todiagcd_onkeydown(obj:Edit, e:KeyEventInfo)
  1405. {
  1406. if(e.keycode == 13)
  1407. {
  1408. ds_hidden_targetdiag.setColumn(0, "diagcd", obj.value);
  1409. ds_hidden_targetdiag.setColumn(0, "diagcdref", "ds_send");
  1410. ds_hidden_targetdiag.setColumn(0, "diagnmref", "ds_send");
  1411. fSearchDiageCode();
  1412. ds_send.setColumn(0, "todiagcd", ds_rslt_sppiz00400.getColumn(0, "diagcd"));
  1413. }
  1414. }
  1415. function group2_group4_ipt_fromdiagcd2_oneditclick(obj:Edit, e:EditClickEventInfo)
  1416. {
  1417. if(e.keycode == 13)
  1418. {
  1419. ds_hidden_targetdiag.setColumn(0, "diagcd", obj.value);
  1420. ds_hidden_targetdiag.setColumn(0, "diagcdref", "ds_send");
  1421. ds_hidden_targetdiag.setColumn(0, "diagnmref", "ds_send");
  1422. fSearchDiageCode();
  1423. ds_send.setColumn(0, "fromdiagcd2", ds_rslt_sppiz00400.getColumn(0, "diagcd"));
  1424. ds_send.setColumn(0, "todiagcd2", obj.value);
  1425. }
  1426. }
  1427. function group2_group4_ipt_todiagcd2_onkeydown(obj:Edit, e:KeyEventInfo)
  1428. {
  1429. if(e.keycode == 13)
  1430. {
  1431. ds_hidden_targetdiag.setColumn(0, "diagcd", obj.value);
  1432. ds_hidden_targetdiag.setColumn(0, "diagcdref", "ds_send");
  1433. ds_hidden_targetdiag.setColumn(0, "diagnmref", "ds_send");
  1434. fSearchDiageCode();
  1435. ds_send.setColumn(0, "todiagcd2", ds_rslt_sppiz00400.getColumn(0, "diagcd"));
  1436. }
  1437. }
  1438. function group2_group4_ipt_fromdiagcd2_ontextchanged(obj:Edit, e:TextChangedEventInfo)
  1439. {
  1440. group2.group4.ipt_todiagcd2.value = obj.value;
  1441. }
  1442. function ds_main_calcorderlist_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
  1443. {
  1444. if(e.columnid == "chk")
  1445. {
  1446. obj.setColumn(e.row, "chk", (e.newvalue == "Y" || e.newvalue == 1) ? "Y" : "N");
  1447. }
  1448. ds_main_calcorderlist.updatecontrol = false;
  1449. if(e.columnid == "diagkindcd")
  1450. {
  1451. obj.setColumn(e.row, "diagkindcd", (e.newvalue == "R" || e.newvalue == 1) ? "R" : "C");
  1452. if(ds_main_calcorderlist.getRowType(0) == 4)
  1453. {
  1454. var arrRow = new Array();
  1455. arrRow[0] = 0;
  1456. grdf_setStatus(group2.grd_outjudg, "", arrRow);
  1457. }
  1458. }
  1459. }
  1460. function group2_grd_outjudg_onlbuttonup(obj:Grid, e:GridMouseEventInfo)
  1461. {
  1462. if(obj.currentcell == group2.grd_outjudg.getBindCellIndex("Body", "chk"))
  1463. {
  1464. var rows = grdf_getSelectedRows(group2.grd_outjudg);
  1465. if(rows.length > 1)
  1466. {
  1467. for(var i = 0; i < rows.length; i++)
  1468. {
  1469. var sel = rows[i];
  1470. ds_main_calcorderlist.setColumn(sel, "chk", "Y");
  1471. var arrRow = new Array();
  1472. arrRow[0] = sel;
  1473. grdf_setStatus(group2.grd_outjudg, "D", arrRow);
  1474. }
  1475. }
  1476. else
  1477. {
  1478. if(ds_main_calcorderlist.getColumn(e.row, "chk") == "Y")
  1479. {
  1480. var arrRow = new Array();
  1481. arrRow[0] = e.row;
  1482. grdf_setStatus(group2.grd_outjudg, "D", arrRow);
  1483. }
  1484. else
  1485. {
  1486. var arrRow = new Array();
  1487. arrRow[0] = e.row;
  1488. grdf_setStatus(group2.grd_outjudg, "I", arrRow);
  1489. }
  1490. }
  1491. }
  1492. }
  1493. function group2_grd_outjudg_onheadclick(obj:Grid, e:GridClickEventInfo)
  1494. {
  1495. if(e.cell == group2.grd_outjudg.getBindCellIndex("Body", "diagkindcd"))
  1496. {
  1497. if(ds_main_calcorderlist.getRowType(e.row) == 1)
  1498. {
  1499. var arrRow = new Array();
  1500. arrRow[0] = e.row;
  1501. grdf_setStatus(group2.grd_outjudg, "", arrRow);
  1502. }
  1503. }
  1504. }
  1505. function group2_group4_caption17_onclick(obj:Static, e:ClickEventInfo)
  1506. {
  1507. }
  1508. function button00_onclick(obj:Button, e:ClickEventInfo)
  1509. {
  1510. var msg = sysf_messageBox("환경저장 데이터가 모두 삭제 됩니다.","Q003");
  1511. if (msg == 6) { // 6세미만 요율을 적용한다.
  1512. grdf_DelUuee(group2.grd_outjudg, ds_hidden_listval_uuee, frmf_getScreenID(), "cf_Cnfm_"+frmf_getScreenID());
  1513. group2.grd_outjudg.formatid = "default";
  1514. grdf_GetUuee("ds_send_listval_uuee", "ds_hidden_listval_uuee",frmf_getScreenID(), "cf_Uuee_"+frmf_getScreenID());
  1515. }
  1516. }
  1517. ]]></Script>
  1518. </Form>
  1519. </FDL>