SMLPJ00201_병리검체접수확인.xfdl 65 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508
  1. <?xml version="1.0" encoding="utf-8"?>
  2. <FDL version="1.5">
  3. <TypeDefinition url="..\..\..\default_typedef.xml"/>
  4. <Form id="SMLPJ00201" position="absolute 0 0 1194 789" titletext="병리검체접수확인" oninit="SMLPJ00200_oninit" onload="SMLPJ00200_onload" ontimer="SMLPJ00200_ontimer" hotkey="F2">
  5. <Layouts>
  6. <Layout>
  7. <Div position="absolute 0 13 1194 789" id="grp_biz" anchor="all">
  8. <Layouts>
  9. <Layout>
  10. <Static text="처방목록" position="absolute 1 54 76 70" id="caption6" class="tit_2" anchor="default"/>
  11. <Shape position="absolute 0 71 1194 77" linetype="horizontal" id="line1" class="line_1" style="strokepen:3 solid #33bbbbff;" anchor="left top right"/>
  12. <Div position="absolute 0 12 1194 48" align="align:center top;" id="grp_sea" class="div_SA" anchor="left top right">
  13. <Layouts>
  14. <Layout>
  15. <Shape position="absolute 1105 8 1111 28" linetype="vertical" id="line13" class="line_4" anchor="default"/>
  16. <Static text="~" position="absolute 804 11 816 28" align="align:center middle;" id="caption4" class="search_no_b" anchor="default"/>
  17. <Static text="검색방법 :" position="absolute 920 9 1017 26" align="align:center middle;" id="caption5" class="search_name" anchor="default"/>
  18. <Calendar position="absolute 814 8 913 28" id="input3" class="input_search" taborder="6" mask="yyyy-mm-dd" anchor="default" autoselect="true" onkeyup="grp_biz_grp_sea_input3_onkeyup"/>
  19. <Calendar position="absolute 701 8 801 28" id="ipt_ddfrom" class="input_search" taborder="5" mask="yyyy-mm-dd" anchor="default" autoselect="true" autoskip="true"/>
  20. <Combo position="absolute 993 8 1093 28" id="cmbseaflagcd" class="combo_search" taborder="7" codecolumn="codecolumn" datacolumn="datacolumn" anchor="default" onitemchanged="grp_biz_grp_sea_cmbseaflagcd_onitemchanged">
  21. <Dataset id="innerdataset">
  22. <ColumnInfo>
  23. <Column id="codecolumn"/>
  24. <Column id="datacolumn"/>
  25. </ColumnInfo>
  26. <Rows>
  27. <Row>
  28. <Col id="codecolumn">0</Col>
  29. <Col id="datacolumn">미확인</Col>
  30. </Row>
  31. <Row>
  32. <Col id="codecolumn">1</Col>
  33. <Col id="datacolumn">확인</Col>
  34. </Row>
  35. <Row>
  36. <Col id="codecolumn">2</Col>
  37. <Col id="datacolumn">전체</Col>
  38. </Row>
  39. </Rows>
  40. </Dataset>
  41. </Combo>
  42. <Button position="absolute 1123 8 1179 28" id="btn_sea" class="btn1" taborder="8" text="조회" anchor="default" onclick="grp_biz_grp_sea_btn_sea_onclick"/>
  43. <Edit position="absolute 96 8 208 28" id="ipt_pidno" class="input_search" taborder="1" anchor="default" onkeydown="grp_biz_grp_sea_ipt_pidno_onkeydown" autoselect="true" oneditclick="grp_biz_grp_sea_ipt_pidno_oneditclick"/>
  44. <Static text="등록번호:" position="absolute 25 10 96 27" align="align:center middle;" id="caption7" class="search_name" anchor="default"/>
  45. <Combo position="absolute 599 8 699 28" id="cmbddflag" class="combo_search" taborder="4" codecolumn="codecolumn" datacolumn="datacolumn" anchor="default" onitemchanged="grp_biz_grp_sea_cmbddflag_onitemchanged">
  46. <Dataset id="innerdataset">
  47. <ColumnInfo>
  48. <Column id="codecolumn"/>
  49. <Column id="datacolumn"/>
  50. </ColumnInfo>
  51. <Rows>
  52. <Row>
  53. <Col id="codecolumn">0</Col>
  54. <Col id="datacolumn">발송일자</Col>
  55. </Row>
  56. <Row>
  57. <Col id="codecolumn">1</Col>
  58. <Col id="datacolumn">수신일자</Col>
  59. </Row>
  60. <Row>
  61. <Col id="codecolumn">2</Col>
  62. <Col id="datacolumn">처방일자</Col>
  63. </Row>
  64. </Rows>
  65. </Dataset>
  66. </Combo>
  67. <CheckBox id="checkbox5" taborder="9" text="Urine" value="0" truevalue="1" falsevalue="0" visible="true" position="absolute 547 8 614 28"/>
  68. <Static id="caption9" text="진료과 :" class="search_name" position="absolute 220 11 314 28"/>
  69. <Combo id="cmborddept" taborder="10" innerdataset="@ds_init_lb0002" codecolumn="cd" datacolumn="nm" onitemchanged="group3_group6_combo1_onitemchanged" position="absolute 284 9 484 28"/>
  70. </Layout>
  71. </Layouts>
  72. </Div>
  73. <Grid position="absolute 1 76 1192 768" id="grd_prcplist" class="datagrid2" taborder="9" binddataset="ds_grd_prcplist" oncellclick="grp_biz_grd_prcplist_oncellclick" cellsizingtype="col" anchor="all">
  74. <Formats>
  75. <Format id="default">
  76. <Columns>
  77. <Column size="0"/>
  78. <Column size="0"/>
  79. <Column size="25"/>
  80. <Column size="25"/>
  81. <Column size="25"/>
  82. <Column size="0"/>
  83. <Column size="0"/>
  84. <Column size="0"/>
  85. <Column size="100"/>
  86. <Column size="100"/>
  87. <Column size="70"/>
  88. <Column size="70"/>
  89. <Column size="0"/>
  90. <Column size="107"/>
  91. <Column size="82"/>
  92. <Column size="0"/>
  93. <Column size="54"/>
  94. <Column size="80"/>
  95. <Column size="241"/>
  96. <Column size="100"/>
  97. <Column size="100"/>
  98. <Column size="60"/>
  99. <Column size="100"/>
  100. <Column size="60"/>
  101. <Column size="60"/>
  102. <Column size="0"/>
  103. <Column size="0"/>
  104. <Column size="0"/>
  105. <Column size="0"/>
  106. <Column size="0"/>
  107. <Column size="0"/>
  108. <Column size="0"/>
  109. <Column size="0"/>
  110. <Column size="0"/>
  111. <Column size="0"/>
  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="123"/>
  120. <Column size="60"/>
  121. <Column size="75"/>
  122. <Column size="0"/>
  123. <Column size="0"/>
  124. <Column size="0"/>
  125. <Column size="0"/>
  126. </Columns>
  127. <Rows>
  128. <Row size="26" band="head"/>
  129. <Row size="24"/>
  130. </Rows>
  131. <Band id="head">
  132. <Cell text="선택"/>
  133. <Cell col="1" text="기관코드"/>
  134. <Cell col="2" colspan="3" text="감염정보" taborder="undefined"/>
  135. <Cell col="5" text="caption1"/>
  136. <Cell col="6" text="caption2"/>
  137. <Cell col="7" text="caption3"/>
  138. <Cell col="8" text="검체명"/>
  139. <Cell col="9" text="바코드번호"/>
  140. <Cell col="10" text="등록번호"/>
  141. <Cell col="11" text="성명"/>
  142. <Cell col="12" text="진료과코드"/>
  143. <Cell col="13" text="진료과"/>
  144. <Cell col="14" text="발송과"/>
  145. <Cell col="15" text="진료의ID"/>
  146. <Cell col="16" text="진료의사"/>
  147. <Cell col="17" text="검사코드"/>
  148. <Cell col="18" text="처방명"/>
  149. <Cell col="19" text="처방일시"/>
  150. <Cell col="20" text="바코드 출력시간"/>
  151. <Cell col="21" text="출력자"/>
  152. <Cell col="22" text="전달시간"/>
  153. <Cell col="23" text="전달자"/>
  154. <Cell col="24" text="수신자"/>
  155. <Cell col="25" text="전송일자"/>
  156. <Cell col="26" text="전송번호"/>
  157. <Cell col="27" text="전송일련번호"/>
  158. <Cell col="28" text="검체전송일자"/>
  159. <Cell col="29" text="검체전송번호"/>
  160. <Cell col="30" text="검체전송일련번호"/>
  161. <Cell col="31" text="현재상태코드"/>
  162. <Cell col="32" text="처방상태코드"/>
  163. <Cell col="33" text="처방발생구분"/>
  164. <Cell col="34" text="처방일자"/>
  165. <Cell col="35" text="처방번호"/>
  166. <Cell col="36" text="실시처방고유번호"/>
  167. <Cell col="37" text="처리구분"/>
  168. <Cell col="38" text="취소구분코드"/>
  169. <Cell col="39" text="취소코드"/>
  170. <Cell col="40" text="spcstatcd"/>
  171. <Cell col="41" text="workflagcd"/>
  172. <Cell col="42" text="접수일시"/>
  173. <Cell col="43" text="검체상태"/>
  174. <Cell col="44" text="병리번호"/>
  175. <Cell col="45" text="의뢰지구분"/>
  176. <Cell col="46" text="cnfmid"/>
  177. <Cell col="47" text="reqfrmVal"/>
  178. <Cell col="48" text="mmospccd"/>
  179. </Band>
  180. <Band id="body">
  181. <Cell displaytype="checkbox" edittype="checkbox" style="background:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);background2:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);" text="bind:choi"/>
  182. <Cell col="1" style="background:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);background2:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);" text="bind:instcd"/>
  183. <Cell col="2" displaytype="normal" edittype="none" style="background:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);background2:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);backgroundimage:EXPR(disp1 == 'Y'?&quot;../../../com/hismainxp/images/injector_en.gif&quot;:&quot;&quot;);" text="bind:disp1img"/>
  184. <Cell col="3" displaytype="normal" edittype="none" style="background:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);background2:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);backgroundimage:EXPR(disp2 == 'Y'?&quot;../../../com/hismainxp/images/touch_en.gif&quot;:&quot;&quot;);" text="bind:disp2img"/>
  185. <Cell col="4" displaytype="normal" edittype="none" style="background:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);background2:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);backgroundimage:EXPR(disp3=='Y'?&quot;../../../com/hismainxp/images/air_en.gif&quot;:&quot;&quot;);" text="bind:disp3img"/>
  186. <Cell col="5" displaytype="none" edittype="none" style="background:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);background2:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);" text="bind:disp1"/>
  187. <Cell col="6" displaytype="none" edittype="none" style="background:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);background2:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);" text="bind:disp2"/>
  188. <Cell col="7" displaytype="none" edittype="none" style="background:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);background2:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);" text="bind:disp3"/>
  189. <Cell col="8" style="align:left;background:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);background2:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);" text="bind:spcnm"/>
  190. <Cell col="9" edittype="text" style="align:center middle;background:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);background2:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);" class="text_center" text="bind:spcbarcdno"/>
  191. <Cell col="10" edittype="text" style="align:center middle;background:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);background2:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);" class="text_center" text="bind:pid"/>
  192. <Cell col="11" style="background:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);background2:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);" class="text_center" text="bind:patnm"/>
  193. <Cell col="12" style="background:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);background2:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);" text="bind:orddeptcd"/>
  194. <Cell col="13" style="align:left middle;background:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);background2:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);" class="text_center" text="bind:orddeptnm" wordwrap="char"/>
  195. <Cell col="14" style="background:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);background2:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);" class="text_center" text="bind:oproomnm" wordwrap="char"/>
  196. <Cell col="15" style="background:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);background2:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);" text="bind:orddrid"/>
  197. <Cell col="16" style="background:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);background2:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);" class="text_center" text="bind:orddrnm"/>
  198. <Cell col="17" style="background:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);background2:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);" text="bind:testcd"/>
  199. <Cell col="18" style="align:left;background:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);background2:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);" text="bind:testnm"/>
  200. <Cell col="19" style="background:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);background2:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);" text="bind:prcprgstdt"/>
  201. <Cell col="20" style="background:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);background2:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);" text="bind:delivedt"/>
  202. <Cell col="21" style="background:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);background2:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);" class="text_center" text="bind:delivenm"/>
  203. <Cell col="22" style="background:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);background2:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);" text="bind:cnfmdt"/>
  204. <Cell col="23" text="bind:transfernm"/>
  205. <Cell col="24" style="background:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);background2:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);" class="text_center" text="bind:cnfmnm"/>
  206. <Cell col="25" style="background:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);background2:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);" text="bind:trandd"/>
  207. <Cell col="26" style="background:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);background2:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);" text="bind:tranno"/>
  208. <Cell col="27" style="background:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);background2:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);" text="bind:transeqno"/>
  209. <Cell col="28" style="background:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);background2:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);" text="bind:spctrandd"/>
  210. <Cell col="29" style="background:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);background2:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);" text="bind:spctranno"/>
  211. <Cell col="30" style="background:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);background2:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);" text="bind:spctranseqno"/>
  212. <Cell col="31" style="background:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);background2:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);" text="bind:preststatcd"/>
  213. <Cell col="32" style="background:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);background2:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);" text="bind:orgprcpstatcd"/>
  214. <Cell col="33" style="background:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);background2:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);" text="bind:prcpgenrflag"/>
  215. <Cell col="34" style="background:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);background2:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);" text="bind:prcpdd"/>
  216. <Cell col="35" style="background:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);background2:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);" text="bind:prcpno"/>
  217. <Cell col="36" style="background:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);background2:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);" text="bind:execprcpuniqno"/>
  218. <Cell col="37" style="background:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);background2:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);" text="bind:tretflag"/>
  219. <Cell col="38" style="background:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);background2:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);" text="bind:resncdkind"/>
  220. <Cell col="39" style="background:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);background2:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);" text="bind:resncd"/>
  221. <Cell col="40" style="background:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);background2:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);" text="bind:spcstatcd"/>
  222. <Cell col="41" style="background:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);background2:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);" text="bind:workflagcd"/>
  223. <Cell col="42" style="background:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);background2:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);" text="bind:acptdt"/>
  224. <Cell col="43" displaytype="combo" style="align:center middle;" text="bind:orgprcpstatcd" combodataset="ds_prcpstatcd" combocodecol="cd" combodatacol="nm" combodisplay="edit"/>
  225. <Cell col="44" style="background:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);background2:EXPR(!utlf_isNull(backcolor)?backcolor:&quot;&quot;);" text="bind:ptno"/>
  226. <Cell col="45" text="bind:reqfrmflagcd"/>
  227. <Cell col="46" text="bind:cnfmid"/>
  228. <Cell col="47" text="bind:reqfrmno"/>
  229. <Cell col="48" text="bind:mmospccd"/>
  230. </Band>
  231. </Format>
  232. </Formats>
  233. </Grid>
  234. <Div id="grp_resncancle" taborder="10" style="shadow:outer 3,3 3 gray;" class="div_DA" visible="false" position="absolute 390 195 810 270">
  235. <Layouts>
  236. <Layout>
  237. <Static id="cap_cnclresn" text="취소사유" class="cell_2" position="absolute 15 15 95 38"/>
  238. <Combo id="cbo_cnclresn" taborder="1" innerdataset="ds_init_cbo_cnclresn" codecolumn="resncd" datacolumn="resncnts" class="combo_default" position="absolute 15 40 400 60"/>
  239. <Shape id="line3" class="line_3" position="absolute 16 58 400 64"/>
  240. <Shape id="line2" class="line_3" position="absolute 16 12 400 18"/>
  241. <Button id="btn_cncresn" taborder="2" text="확인취소" class="btn2" position="absolute 334 17 398 38"/>
  242. </Layout>
  243. </Layouts>
  244. </Div>
  245. </Layout>
  246. </Layouts>
  247. </Div>
  248. <Div position="absolute 0 -1 1194 26" id="grp_btn" scrollbars="none" anchor="left top right">
  249. <Layouts>
  250. <Layout width="1194" height="27">
  251. <Shape position="absolute 0 22 1194 28" linetype="horizontal" id="line9" class="line_6" anchor="left top right" visible="false"/>
  252. <Button position="absolute 1114 5 1194 25" id="btn_cnfm" class="btn4" taborder="13" text="확인취소" anchor="top right" onclick="grp_btn_btn_cnfm_onclick" visible="false"/>
  253. <Button position="absolute 3 5 126 25" id="btn_excel" class="btn7" taborder="10" text="EXCEL저장 [F9]" anchor="default" onclick="grp_btn_btn_excel_onclick" hotkey="F9" visible="false"/>
  254. <Button position="absolute 129 5 197 25" id="btn_clear" class="btn3" taborder="11" text="초기화" anchor="default" onclick="grp_btn_btn_clear_onclick" visible="false"/>
  255. <Button position="absolute 1026 5 1110 25" id="btn_save" class="btn4" taborder="12" text="확인 [F2]" anchor="top right" onclick="grp_btn_btn_save_onclick" hotkey="F2" visible="false"/>
  256. <Button position="absolute 201 5 293 25" id="button26" class="btn3" text="프린터설정" anchor="default" onclick="grp_btn_button26_onclick" visible="false"/>
  257. <Button position="absolute 298 5 402 25" id="btn_reprnt" class="btn3" text="바코드재출력" anchor="default" onclick="grp_btn_btn_reprnt_onclick" visible="false"/>
  258. <Button id="btn_cnfm2" taborder="14" text="부적합등록" class="btn4" position="absolute 931 4 1020 24" onclick="grp_btn_btn_cnfm2_onclick" anchor="top right" visible="false"/>
  259. <Static id="caption01" text="병리검체접수확인" onclick="&quot;caption6_onclick&quot;" class="tit_1" position="absolute 0 0 155 24"/>
  260. </Layout>
  261. </Layouts>
  262. </Div>
  263. </Layout>
  264. </Layouts>
  265. <Objects>
  266. <Dataset id="ds_init_cmb_trsmdeptcd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
  267. <ColumnInfo>
  268. <Column id="depthngnm" type="STRING"/>
  269. <Column id="deptcd" type="STRING"/>
  270. </ColumnInfo>
  271. </Dataset>
  272. <Dataset id="ds_grd_prcplist" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false" oncolumnchanged="ds_grd_prcplist_oncolumnchanged">
  273. <ColumnInfo>
  274. <Column id="choi" type="STRING"/>
  275. <Column id="instcd" type="STRING"/>
  276. <Column id="disp1img" type="STRING"/>
  277. <Column id="disp2img" type="STRING"/>
  278. <Column id="disp3img" type="STRING"/>
  279. <Column id="disp1" type="STRING"/>
  280. <Column id="disp2" type="STRING"/>
  281. <Column id="disp3" type="STRING"/>
  282. <Column id="spcnm" type="STRING"/>
  283. <Column id="spcbarcdno" type="STRING"/>
  284. <Column id="spccnt" type="STRING"/>
  285. <Column id="formrecseq" type="STRING"/>
  286. <Column id="pid" type="STRING"/>
  287. <Column id="patnm" type="STRING"/>
  288. <Column id="orddeptcd" type="STRING"/>
  289. <Column id="orddeptnm" type="STRING"/>
  290. <Column id="oproomnm" type="STRING"/>
  291. <Column id="orddrid" type="STRING"/>
  292. <Column id="orddrnm" type="STRING"/>
  293. <Column id="testcd" type="STRING"/>
  294. <Column id="testnm" type="STRING"/>
  295. <Column id="rcptflag" type="STRING"/>
  296. <Column id="prcprgstdt" type="STRING"/>
  297. <Column id="delivedt" type="STRING"/>
  298. <Column id="delivenm" type="STRING"/>
  299. <Column id="cnfmdt" type="STRING"/>
  300. <Column id="cnfmnm" type="STRING"/>
  301. <Column id="trandd" type="STRING"/>
  302. <Column id="tranno" type="STRING"/>
  303. <Column id="transeqno" type="STRING"/>
  304. <Column id="spctrandd" type="STRING"/>
  305. <Column id="spctranno" type="STRING"/>
  306. <Column id="spctranseqno" type="STRING"/>
  307. <Column id="preststatcd" type="STRING"/>
  308. <Column id="orgprcpstatcd" type="STRING"/>
  309. <Column id="prcpgenrflag" type="STRING"/>
  310. <Column id="prcpdd" type="STRING"/>
  311. <Column id="prcpno" type="STRING"/>
  312. <Column id="execprcpuniqno" type="STRING"/>
  313. <Column id="tretflag" type="STRING"/>
  314. <Column id="resncdkind" type="STRING"/>
  315. <Column id="resncd" type="STRING"/>
  316. <Column id="spcstatcd" type="STRING"/>
  317. <Column id="workflagcd" type="STRING"/>
  318. <Column id="acptdt" type="STRING"/>
  319. <Column id="ptno" type="STRING"/>
  320. <Column id="reqfrmflagcd" type="STRING"/>
  321. <Column id="cnfmid" type="STRING"/>
  322. <Column id="reqfrmno" type="STRING"/>
  323. <Column id="mmospccd" type="STRING"/>
  324. <Column id="backcolor" type="STRING" size="256"/>
  325. <Column id="prcpcd" type="STRING" size="256"/>
  326. <Column id="spccd" type="STRING" size="256"/>
  327. <Column id="prcpnm" type="STRING" size="256"/>
  328. <Column id="reqno" type="STRING" size="256"/>
  329. <Column id="transfernm" type="STRING" size="256"/>
  330. </ColumnInfo>
  331. </Dataset>
  332. <Dataset id="ds_init_cbo_cnclresn" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
  333. <ColumnInfo>
  334. <Column id="resncnts" type="STRING"/>
  335. <Column id="resncd" type="STRING"/>
  336. </ColumnInfo>
  337. </Dataset>
  338. <Dataset id="ds_init_testdept" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  339. <Dataset id="ds_init" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  340. <ColumnInfo>
  341. <Column id="ddfrom" type="STRING" size="256"/>
  342. <Column id="ddto" type="STRING" size="256"/>
  343. <Column id="trsmdeptcd" type="STRING" size="256"/>
  344. <Column id="testdeptcd" type="STRING" size="256"/>
  345. <Column id="seaflagcd" type="STRING" size="256"/>
  346. <Column id="barcdno" type="STRING" size="256"/>
  347. <Column id="ddflagcd" type="STRING" size="256"/>
  348. <Column id="pidno" type="STRING" size="256"/>
  349. <Column id="urine" type="STRING" size="256"/>
  350. <Column id="transferid" type="STRING" size="256"/>
  351. </ColumnInfo>
  352. <Rows>
  353. <Row>
  354. <Col id="ddfrom"/>
  355. <Col id="ddto"/>
  356. <Col id="trsmdeptcd"/>
  357. <Col id="testdeptcd"/>
  358. <Col id="seaflagcd">0</Col>
  359. <Col id="barcdno"/>
  360. <Col id="ddflagcd">0</Col>
  361. </Row>
  362. </Rows>
  363. </Dataset>
  364. <Dataset id="ds_init_sysdtinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  365. <ColumnInfo>
  366. <Column id="sysdd" type="STRING" size="256"/>
  367. <Column id="systm" type="STRING" size="256"/>
  368. </ColumnInfo>
  369. <Rows>
  370. <Row>
  371. <Col id="systm"/>
  372. <Col id="sysdd"/>
  373. </Row>
  374. </Rows>
  375. </Dataset>
  376. <Dataset id="ds_barcdprntsetup" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  377. <Dataset id="ds_init_hospenvinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  378. <ColumnInfo>
  379. <Column id="instcd" type="STRING" size="256"/>
  380. <Column id="lendrtnterm" type="STRING" size="256"/>
  381. <Column id="recvqualmthdcd" type="STRING" size="256"/>
  382. <Column id="reptautoprntflagcd" type="STRING" size="256"/>
  383. </ColumnInfo>
  384. <Rows>
  385. <Row>
  386. <Col id="instcd"/>
  387. <Col id="lendrtnterm"/>
  388. <Col id="recvqualmthdcd"/>
  389. <Col id="reptautoprntflagcd"/>
  390. </Row>
  391. </Rows>
  392. </Dataset>
  393. <Dataset id="ds_spcbarcdstatinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  394. <Dataset id="ds_temp" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  395. <ColumnInfo>
  396. <Column id="loginid" type="STRING" size="256"/>
  397. <Column id="loginnm" type="STRING" size="256"/>
  398. </ColumnInfo>
  399. <Rows>
  400. <Row/>
  401. </Rows>
  402. </Dataset>
  403. <Dataset id="ds_hidden" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  404. <ColumnInfo>
  405. <Column id="resncd" type="STRING" size="256"/>
  406. <Column id="interval" type="STRING" size="256"/>
  407. </ColumnInfo>
  408. <Rows>
  409. <Row>
  410. <Col id="interval">10</Col>
  411. <Col id="resncd"/>
  412. </Row>
  413. </Rows>
  414. </Dataset>
  415. <Dataset id="ds_barcdlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  416. <Dataset id="ds_data_setupinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  417. <ColumnInfo>
  418. <Column id="dsvaluepath" type="STRING" size="256"/>
  419. <Column id="prntkind" type="STRING" size="256"/>
  420. <Column id="commkind" type="STRING" size="256"/>
  421. <Column id="rexgbn" type="STRING" size="256"/>
  422. </ColumnInfo>
  423. </Dataset>
  424. <Dataset id="ds_data_blank" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  425. <ColumnInfo>
  426. <Column id="dsvaluepath" type="STRING" size="256"/>
  427. <Column id="left" type="STRING" size="256"/>
  428. <Column id="top" type="STRING" size="256"/>
  429. <Column id="b472size" type="STRING" size="256"/>
  430. </ColumnInfo>
  431. </Dataset>
  432. <Dataset id="ds_data_comm01" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  433. <ColumnInfo>
  434. <Column id="setupval" type="STRING" size="256"/>
  435. </ColumnInfo>
  436. </Dataset>
  437. <Dataset id="ds_data_comm02" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  438. <ColumnInfo>
  439. <Column id="dsvaluepath" type="STRING" size="256"/>
  440. <Column id="comm" type="STRING" size="256"/>
  441. <Column id="databit" type="STRING" size="256"/>
  442. <Column id="stopbit" type="STRING" size="256"/>
  443. <Column id="baudrate" type="STRING" size="256"/>
  444. <Column id="parity" type="STRING" size="256"/>
  445. </ColumnInfo>
  446. <Rows>
  447. <Row>
  448. <Col id="dsvaluepath">/setupinfo</Col>
  449. <Col id="comm">2</Col>
  450. <Col id="databit">8</Col>
  451. <Col id="stopbit">1</Col>
  452. <Col id="baudrate">9600</Col>
  453. <Col id="parity">n</Col>
  454. </Row>
  455. </Rows>
  456. </Dataset>
  457. <Dataset id="ds_data_comm03" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  458. <ColumnInfo>
  459. <Column id="dsvaluepath" type="STRING" size="256"/>
  460. <Column id="comm" type="STRING" size="256"/>
  461. <Column id="databit" type="STRING" size="256"/>
  462. <Column id="stopbit" type="STRING" size="256"/>
  463. <Column id="baudrate" type="STRING" size="256"/>
  464. <Column id="parity" type="STRING" size="256"/>
  465. </ColumnInfo>
  466. <Rows>
  467. <Row>
  468. <Col id="dsvaluepath">/setupinfo</Col>
  469. <Col id="comm">2</Col>
  470. <Col id="databit">8</Col>
  471. <Col id="stopbit">1</Col>
  472. <Col id="baudrate">9600</Col>
  473. <Col id="parity">n</Col>
  474. </Row>
  475. </Rows>
  476. </Dataset>
  477. <Dataset id="ds_deny" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  478. <ColumnInfo>
  479. <Column id="pid" type="STRING" size="256"/>
  480. <Column id="rgst" type="STRING" size="256"/>
  481. <Column id="name" type="STRING" size="256"/>
  482. <Column id="deptcd" type="STRING" size="256"/>
  483. <Column id="drname" type="STRING" size="256"/>
  484. <Column id="resncd" type="STRING" size="256"/>
  485. <Column id="lcomment" type="STRING" size="256"/>
  486. <Column id="canceltime" type="STRING" size="256"/>
  487. </ColumnInfo>
  488. <Rows>
  489. <Row/>
  490. </Rows>
  491. </Dataset>
  492. <Dataset id="ds_perdeny" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  493. <ColumnInfo>
  494. <Column id="pid" type="STRING" size="256"/>
  495. <Column id="rgst" type="STRING" size="256"/>
  496. <Column id="name" type="STRING" size="256"/>
  497. <Column id="deptcd" type="STRING" size="256"/>
  498. <Column id="drname" type="STRING" size="256"/>
  499. <Column id="resncd" type="STRING" size="256"/>
  500. <Column id="lcomment" type="STRING" size="256"/>
  501. <Column id="canceltime" type="STRING" size="256"/>
  502. </ColumnInfo>
  503. <Rows>
  504. <Row/>
  505. </Rows>
  506. </Dataset>
  507. <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  508. <ColumnInfo>
  509. <Column id="pid" type="STRING" size="256"/>
  510. <Column id="prcpdd" type="STRING" size="256"/>
  511. <Column id="execprcpuniqno" type="STRING" size="256"/>
  512. <Column id="instcd" type="STRING" size="256"/>
  513. </ColumnInfo>
  514. <Rows>
  515. <Row/>
  516. </Rows>
  517. </Dataset>
  518. <Dataset id="ds_init_dept" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
  519. <ColumnInfo>
  520. <Column id="depthngnm" type="STRING"/>
  521. <Column id="deptcd" type="STRING"/>
  522. </ColumnInfo>
  523. </Dataset>
  524. <Dataset id="ds_init_lb0002" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
  525. <ColumnInfo>
  526. <Column id="cd" type="STRING"/>
  527. <Column id="nm" type="STRING"/>
  528. </ColumnInfo>
  529. </Dataset>
  530. <Dataset id="ds_init_usernm" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
  531. <ColumnInfo>
  532. <Column id="usernm" type="STRING"/>
  533. </ColumnInfo>
  534. </Dataset>
  535. <Dataset id="ds_prcpstatcd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  536. <ColumnInfo>
  537. <Column id="cd" type="STRING" size="256"/>
  538. <Column id="nm" type="STRING" size="256"/>
  539. </ColumnInfo>
  540. <Rows>
  541. <Row>
  542. <Col id="cd">000</Col>
  543. <Col id="nm">처방</Col>
  544. </Row>
  545. <Row>
  546. <Col id="nm">채취/채혈</Col>
  547. <Col id="cd">410</Col>
  548. </Row>
  549. <Row>
  550. <Col id="cd">420</Col>
  551. <Col id="nm">전달/확인</Col>
  552. </Row>
  553. <Row>
  554. <Col id="nm">검체접수</Col>
  555. <Col id="cd">430</Col>
  556. </Row>
  557. <Row>
  558. <Col id="cd">510</Col>
  559. <Col id="nm">검사중</Col>
  560. </Row>
  561. <Row>
  562. <Col id="cd">700</Col>
  563. <Col id="nm">판독중</Col>
  564. </Row>
  565. <Row>
  566. <Col id="nm">예비결과</Col>
  567. <Col id="cd">710</Col>
  568. </Row>
  569. <Row>
  570. <Col id="cd">720</Col>
  571. <Col id="nm">중간결과</Col>
  572. </Row>
  573. <Row>
  574. <Col id="cd">730</Col>
  575. <Col id="nm">최종결과</Col>
  576. </Row>
  577. <Row>
  578. <Col id="cd">740</Col>
  579. <Col id="nm">추가결과</Col>
  580. </Row>
  581. </Rows>
  582. </Dataset>
  583. </Objects>
  584. <Bind>
  585. <BindItem id="item1" compid="grp_biz.grp_sea.cmbseaflagcd" propid="value" datasetid="ds_init" columnid="seaflagcd"/>
  586. <BindItem id="item2" compid="grp_biz.grp_sea.input3" propid="value" datasetid="ds_init" columnid="ddto"/>
  587. <BindItem id="item3" compid="grp_biz.grp_sea.ipt_ddfrom" propid="value" datasetid="ds_init" columnid="ddfrom"/>
  588. <BindItem id="item4" compid="grp_biz.grp_sea.cmbddflag" propid="value" datasetid="ds_init" columnid="ddflagcd"/>
  589. <BindItem id="item6" compid="grp_biz.grp_sea.ipt_pidno" propid="value" datasetid="ds_init" columnid="pidno"/>
  590. <BindItem id="item15" compid="grp_biz.grp_sea.cmborddept" propid="value" datasetid="ds_init" columnid="trsmdeptcd"/>
  591. </Bind>
  592. <Script type="xscript4.0"><![CDATA[/***************************************************************************************
  593. * System Name :
  594. * Job Name :
  595. * Creator :
  596. * Make Date : 2015-11-13
  597. * Description :
  598. *---------------------------------------------------------------------------------------
  599. * Modify Date Modifier Modify Description
  600. *---------------------------------------------------------------------------------------
  601. * 2015-11-13 Live Converter TF->XP
  602. *
  603. *---------------------------------------------------------------------------------------
  604. ****************************************************************************************/
  605. include "com_commonxp::comm_main.xjs";
  606. include "lis_commonxp::LLZ001.xjs";
  607. include "lis_commonxp::LPZ001.xjs";
  608. include "com_commodulexp::SSZFM00901.xjs";
  609. var COL_SPCINFO = 11;
  610. var interval_id;
  611. var sAutoSearYN = "N";
  612. var iAcptPrcpCnt = Array(); // 수신확인한 검체 갯수
  613. var sBarCode = "";
  614. var iCnt = 0;
  615. var arErrorCode = new HashArray();
  616. var param = "";
  617. function SMLPJ00200_oninit(obj:Form, e:InitEventInfo)
  618. {
  619. frmf_initForm(obj); // 화면공통
  620. }
  621. function SMLPJ00200_onload(obj:Form, e:LoadEventInfo)
  622. {
  623. fExeInitialize();
  624. grdf_initGrid(grp_biz.grd_prcplist);
  625. //lzzfMakeBrcdPrntObjHanDo("CommAX");
  626. }
  627. function fExeInitialize()
  628. {
  629. //타부서에서는 버튼 비활성화
  630. grp_btn.btn_save.enable = frmf_checkAuth("X");
  631. grp_btn.btn_cnfm.enable = frmf_checkAuth("X");
  632. var iMaxRowCnt = 0;
  633. var instcd = sysf_getUserInfo("dutdmlplceinstcd");
  634. var standard_yn = "orduseyn";
  635. var ord_deptflag = "D";
  636. //var rslt_ref = "/root/init/deptlist";
  637. var sort_field = "dispseq";
  638. var sort_method = "asc";
  639. appf_getDeptCodeList(instcd,standard_yn,ord_deptflag,sort_field,"","","","","ds_init_cmb_trsmdeptcd",false,"");
  640. //--------------
  641. // 시행부서 검색
  642. ord_deptflag = "E";
  643. appf_getDeptCodeList(instcd,standard_yn,ord_deptflag,sort_field,"","","","","ds_init_testdept",false,"");
  644. //-------------------------------------------------------
  645. iMaxRowCnt = ds_init_testdept.rowcount;
  646. ds_init_testdept.filter("deptcd == ''");
  647. ds_init_testdept.applyChange();
  648. ds_init_testdept.clearData();
  649. ds_init_testdept.filter("");
  650. for (var iNo=0; iNo < ds_init_testdept.rowcount; iNo++)
  651. {
  652. ds_init_testdept.setColumn(iNo,"deptflagcd", "E");
  653. }
  654. //---------------------------------------------------------
  655. ds_init_cmb_trsmdeptcd.filter("deptcd == ''");
  656. ds_init_cmb_trsmdeptcd.applyChange();
  657. ds_init_cmb_trsmdeptcd.clearData();
  658. ds_init_cmb_trsmdeptcd.filter("");
  659. for (var iNo=0; iNo < ds_init_cmb_trsmdeptcd.rowcount; iNo++)
  660. {
  661. ds_init_cmb_trsmdeptcd.setColumn(iNo,"deptflagcd", "-");
  662. }
  663. dsf_copyDs(ds_init_cmb_trsmdeptcd,ds_init_testdept,"after");
  664. //-------------------------------------------------------
  665. iMaxRowCnt = ds_init_cmb_trsmdeptcd.addRow();
  666. ds_init_cmb_trsmdeptcd.setColumn(iMaxRowCnt,"deptcd", "ZZZZZ");
  667. ds_init_cmb_trsmdeptcd.setColumn(iMaxRowCnt,"depthngnm", "전 체");
  668. //---------------------
  669. // Instance Node 초기화
  670. ds_grd_prcplist.clearData();
  671. //---------------------
  672. // 병원환경설정 정보조회
  673. fGetHospEnvSetInfo();
  674. //------------------------------------------
  675. ds_init.setColumn(0,"barcdno", ""); // 바코드번호 초기화
  676. ds_init.setColumn(0,"trsmdeptcd", ""); // 발송과 초기화
  677. ds_init.setColumn(0,"ddflagcd", "0"); // 일자구분코드(0:발송일자, 1:수신일자)
  678. ds_init.setColumn(0,"seaflagcd", "0"); // 검색방법(0:미확인, 1:확인, 2:전체)
  679. ds_init.setColumn(0,"trsmdeptcd", "ZZZZZ");
  680. //--------------------------------------------------
  681. dsf_createDsRow("ds_send_scrnid", [{col: "scrnid", val: frmf_getScreenID()}]);
  682. var oParam = {};
  683. oParam.id = "TRLLC90101";
  684. oParam.service = "diagtestapplib.LisCommon";
  685. oParam.method = "reqGetSetUpInfo";
  686. oParam.inds = "scrnid=ds_send_scrnid";
  687. oParam.outds = "ds_barcdprntsetup=getSetUpInfo";
  688. oParam.async = false;
  689. oParam.callback = "cf_TRLLC90101";
  690. tranf_submit(oParam);
  691. //---------------------------------
  692. // 수신확인방법(0:선조회, 1:후조회)
  693. if (ds_init_hospenvinfo.getColumn(0,"recvqualmthdcd") == "0") {
  694. fGetPrcpCnfmList("1");
  695. }
  696. dsf_createDsRow("ds_temp_search"
  697. , [{col: "codeflag", val: "0002|"}]);
  698. // 서브밋호출
  699. var oParam = {};
  700. oParam.id = "TRLZZ00101";
  701. oParam.service = "diagtestapplib.DiagTestBaseInfoMngt";
  702. oParam.method = "reqGetInitCodeInfo";
  703. oParam.inds = "cond=ds_temp_search";
  704. oParam.outds = "ds_init_lb0002=0002 ";
  705. oParam.async = false;
  706. tranf_submit(oParam);
  707. grp_biz.grp_sea.cmborddept.value = '00';
  708. }
  709. function cf_TRLLC90101(sSvcId, nErrorCode, sErrorMsg)
  710. {
  711. if(nErrorCode < 0) return;
  712. var pParamObj = new Object();
  713. pParamObj.pathYN = "N";
  714. pParamObj.nullColumnYN = "N";
  715. lf_convertXmlToDs(ds_barcdprntsetup.getColumn(0,"prntsetupinfo"),pParamObj);
  716. }
  717. function cf_TXLPJ00202(sSvcId, nErrorCode, sErrorMsg)
  718. {
  719. if(nErrorCode < 0) return;
  720. var pParamObj = new Object();
  721. pParamObj.pathYN = "N";
  722. pParamObj.nullColumnYN = "N";
  723. lf_convertXmlToDs(ds_barcdprntsetup.getColumn(0,"prntsetupinfo"),pParamObj);
  724. }
  725. function cf_TXLPJ00203(sSvcId, nErrorCode, sErrorMsg)
  726. {
  727. if(nErrorCode < 0) return;
  728. var pParamObj = new Object();
  729. pParamObj.pathYN = "N";
  730. pParamObj.nullColumnYN = "N";
  731. }
  732. /* @group : 전달검체수신확인
  733. * @ver : 2007.02.12 (CMCDEV-0001)
  734. * @by : 유동철(ACK)
  735. * @-----------------------------------
  736. * @type : function
  737. * @access : public
  738. * @desc : 병원환경설정 정보조회 처리 Function
  739. */
  740. function fGetHospEnvSetInfo()
  741. {
  742. dsf_createDsRow("ds_send_refdata", [{col: "instcd", val:sysf_getUserInfo("dutplceinstcd")}]);
  743. var oParam = {};
  744. oParam.id = "TRLPZ00101";
  745. oParam.service = "plgycomnusemngtapp.BaseInfoCode";
  746. oParam.method = "reqGetHospitalEnvironmentSetInfo";
  747. oParam.inds = "refData=ds_send_refdata";
  748. oParam.outds = "ds_init_hospenvinfo=hospenvinfo";
  749. oParam.async = false;
  750. // oParam.callback = "cf_TRLPZ00101";
  751. tranf_submit(oParam);
  752. //--------------------
  753. var oParam = {};
  754. oParam.id = "TRLPZ00102";
  755. oParam.service = "plgycomnusemngtapp.BaseInfoCode";
  756. oParam.method = "reqGetSystemDateTimeInformation";
  757. oParam.inds = "refData=ds_send_refdata";
  758. oParam.outds = "ds_init_sysdtinfo=sysdtinfo";
  759. oParam.async = false;
  760. //oParam.callback = "cf_TRLPZ00102";
  761. tranf_submit(oParam); // 시스템 현재일시를 조회
  762. fExeSysDtSet(); // 시스템일자를 설정
  763. //----------------------------------------------
  764. dsf_createDsRow("ds_send_refdata"
  765. , [{col: "instcd", val:sysf_getUserInfo("dutplceinstcd")}
  766. ,{col: "baseflagcd", val:"'20'"}
  767. ]);
  768. var oParam = {};
  769. oParam.id = "TRLPZ00103";
  770. oParam.service = "plgycomnusemngtapp.BaseInfoCode";
  771. oParam.method = "reqGetReasonCodeList";
  772. oParam.inds = "refData=ds_send_refdata";
  773. oParam.outds = "ds_init_cbo_cnclresn=refrslt";
  774. oParam.async = false;
  775. //oParam.callback = "cf_TRLPZ00103";
  776. tranf_submit(oParam);
  777. ds_init_cbo_cnclresn.filterstr = "resncd != 'ZZZZ'";
  778. }
  779. /* @group : 전달검체수신확인
  780. * @ver : 2007.02.12 (CMCDEV-0001)
  781. * @by : 유동철(ACK)
  782. * @-----------------------------------
  783. * @type : function
  784. * @access : public
  785. * @desc : 시스템일시 설정 처리 Function
  786. */
  787. function fExeSysDtSet()
  788. {
  789. var sTDay = ds_init_sysdtinfo.getColumn(0,"sysdd");
  790. ds_init.setColumn(0,"ddfrom", sTDay.toDate().getAddDate(-3,"D").getDateFormat("YYYYMMDD"));
  791. ds_init.setColumn(0,"ddto", ds_init_sysdtinfo.getColumn(0,"sysdd"));
  792. }
  793. /* @group : 전달검체수신확인
  794. * @ver : 2007.02.12 (CMCDEV-0001)
  795. * @by : 유동철(ACK)
  796. * @-----------------------------------
  797. * @type : function
  798. * @access : public
  799. * @desc : 의뢰지 검체정보 조회 처리 Function
  800. */
  801. function fExePopupOpenSpeciman()
  802. {
  803. if(!utlf_isNull(ds_grd_prcplist.getColumn(ds_grd_prcplist.rowposition,"pid")))
  804. {
  805. ds_grd_prcplist.setColumn(ds_grd_prcplist.rowposition,"testhngnm",
  806. ds_grd_prcplist.getColumn(ds_grd_prcplist.rowposition,"testnm"));
  807. ds_grd_prcplist.setColumn(ds_grd_prcplist.rowposition,"reprspccd",
  808. ds_grd_prcplist.getColumn(ds_grd_prcplist.rowposition,"mmospccd"));
  809. ds_grd_prcplist.setColumn(ds_grd_prcplist.rowposition,"prcpcd",
  810. ds_grd_prcplist.getColumn(ds_grd_prcplist.rowposition,"testcd"));
  811. ds_grd_prcplist.setColumn(ds_grd_prcplist.rowposition,"spccd",
  812. ds_grd_prcplist.getColumn(ds_grd_prcplist.rowposition,"mmospccd"));
  813. ds_grd_prcplist.setColumn(ds_grd_prcplist.rowposition,"prcpnm",
  814. ds_grd_prcplist.getColumn(ds_grd_prcplist.rowposition,"testnm"));
  815. ds_grd_prcplist.setColumn(ds_grd_prcplist.rowposition,"reqno",
  816. ds_grd_prcplist.getColumn(ds_grd_prcplist.rowposition,"reqfrmno"));
  817. lpzfExeReqFrmInfo(ds_grd_prcplist, ds_grd_prcplist.rowposition);
  818. }
  819. }
  820. /* @group : 전달검체수신확인
  821. * @ver : 2007.02.12 (CMCDEV-0001)
  822. * @by : 유동철(ACK)
  823. * @-----------------------------------
  824. * @type : function
  825. * @access : public
  826. * @desc : "처방리스트" 그리트 클릭 처리 Function
  827. */
  828. function fExeOrdListClick()
  829. {
  830. switch (grp_biz.grd_prcplist.currentcol)
  831. {
  832. case COL_SPCINFO : fExePopupOpenSpeciman();
  833. break;
  834. }
  835. }
  836. function cf_TRLPJ00203(sSvcId, nErrorCode, sErrorMsg)
  837. {
  838. arErrorCode.push(sSvcId, nErrorCode);
  839. }
  840. function cf_TRLPJ00204(sSvcId, nErrorCode, sErrorMsg)
  841. {
  842. arErrorCode.push(sSvcId, nErrorCode);
  843. }
  844. //조회
  845. function fGetPrcpCnfmList(param)
  846. {
  847. var bState = false;
  848. var iMaxRowCnt = 0;
  849. var sDeptFlagCd = "";
  850. // // 선 조회일 경우 처리(0:선조회, 1:후조회)
  851. // if (ds_init_hospenvinfo.getColumn(0, "recvqualmthdcd") == "0")
  852. // {
  853. // trace("123");
  854. // //-------------------------------------
  855. // // 바코드번호 입력 후 검색 할 경우 처리
  856. // if (param == "0")
  857. // {
  858. // trace("456");
  859. // dsf_createDsRow("ds_send_refdata" , [{col: "instcd", val:sysf_getUserInfo("dutplceinstcd")}
  860. // ,{col: "spcbarcdno", val:grp_biz.grp_sea.ipt_barcdno.value}]);
  861. //
  862. //
  863. //
  864. // var oParam = {};
  865. // oParam.id = "TRLPJ00203";
  866. // oParam.service = "plgyacptmngtapp.SpecimenAccept";
  867. // oParam.method = "reqGetSpcBarCdInfo";
  868. // oParam.inds = "refData=ds_send_refdata";
  869. // oParam.outds = "ds_spcbarcdstatinfo=reflist";
  870. // oParam.async = false;
  871. // oParam.callback = "cf_TRLPJ00203";
  872. //
  873. // tranf_submit(oParam);
  874. //
  875. // if (arErrorCode.pop("TRLPJ00203") > -1)
  876. // {
  877. //
  878. // // 검색방법:미확인
  879. // if (ds_init.getColumn(0,"seaflagcd") == "0")
  880. // {
  881. // if (ds_spcbarcdstatinfo.getColumn(0,"spcstatcd") != "0")
  882. // {
  883. // sysf_messageBox(ds_spcbarcdstatinfo.getColumn(0,"spcstatnm"), "I007");
  884. // return false;
  885. // }
  886. // }
  887. // else if (ds_init.getColumn(0,"seaflagcd") == "1")
  888. // {
  889. // if (ds_spcbarcdstatinfo.getColumn(0,"spcstatcd") != "2"
  890. // && ds_spcbarcdstatinfo.getColumn(0,"spcstatcd") != "5")
  891. // {
  892. // sysf_messageBox(ds_spcbarcdstatinfo.getColumn(0,"spcstatnm"), "I007");
  893. // return false;
  894. // }
  895. // }
  896. // }
  897. // else
  898. // {
  899. // sysf_messageBox("바코드 정보를 조회할 수 없습니다!", "I007");
  900. // return false;
  901. // }
  902. // }
  903. // else
  904. // {
  905. // //ds_grd_prcplist.clearData();
  906. // bState = true;
  907. // }
  908. // }
  909. // else
  910. // {
  911. // bState = true;
  912. // }
  913. // trace("bState="+bState);
  914. bState = true;
  915. if (bState)
  916. {
  917. //---------------------------------
  918. sDeptFlagCd = ds_init_cmb_trsmdeptcd.lookup("deptcd",ds_init.getColumn(0,"trsmdeptcd"),"deptflagcd");
  919. dsf_createDsRow("ds_send_refdata" , [{col: "instcd", val:sysf_getUserInfo("dutplceinstcd")} // 기관코드
  920. ,{col: "fromdd", val:ds_init.getColumn(0,"ddfrom")} // 검색시작일자
  921. ,{col: "todd", val:ds_init.getColumn(0,"ddto")} // 검색종료일자
  922. ,{col: "barcdno", val:ds_init.getColumn(0,"barcdno")} // 바코드번호
  923. ,{col: "delivedeptcd", val:ds_init.getColumn(0,"trsmdeptcd")} // 발송과코드
  924. ,{col: "ddflagcd", val:ds_init.getColumn(0,"ddflagcd")} // 일자구분코드(0:발송일자,1:수신일자)
  925. ,{col: "refflagcd", val:ds_init.getColumn(0,"seaflagcd")} // 검색구분코드(0:미확인,1:확인,2:전체)
  926. ,{col: "trsmdeptcd", val:ds_init.getColumn(0,"trsmdeptcd")} // 발송과
  927. ,{col: "deptflagcd", val:sDeptFlagCd} // 발송과 구분(E:시행부서)
  928. ,{col: "pidno", val:ds_init.getColumn(0,"pidno")} // 등록번호
  929. ,{col: "urinecheck", val:grp_biz.grp_sea.checkbox5.value}]);
  930. // ds_init_lb0002 변경 ,{col: "pidno", val:ds_init.getColumn(0,"pidno")}]); // 등록번호 backup 2018.5.8
  931. var oParam = {};
  932. oParam.id = "TRLPJ00201";
  933. oParam.service = "plgyacptmngtapp.SpecimenAccept";
  934. oParam.method = "reqGetPrcpCnfmList";
  935. oParam.inds = "refData=ds_send_refdata";
  936. oParam.outds = "ds_grd_prcplist=refrslt";
  937. oParam.async = false;
  938. //oParam.callback = "cf_TRLPJ00201";
  939. tranf_submit(oParam);
  940. //return true;
  941. // if (arErrorCode.pop("TRLPJ00201") > -1)
  942. // {
  943. // // 후 조회, 바코드입력시에만 처리
  944. // //if (ds_init_hospenvinfo.getColumn(0,"recvqualmthdcd") != "0" && param == "0")
  945. // if (ds_init_hospenvinfo.getColumn(0,"recvqualmthdcd") == "0" && param == "0")
  946. // {
  947. // //---------------------------------------------------------------
  948. // iMaxRowCnt = ds_grd_prcplist.rowcount;
  949. //
  950. // if (iMaxRowCnt > 24)
  951. // {
  952. // ds_grd_prcplist.rowposition = Number(iMaxRowCnt) - 24;
  953. // grp_biz.grd_prcplist.vscrollbar.pos = Number(iMaxRowCnt) - 24;
  954. // }
  955. //
  956. // // 바코드로 조회한 경우 해당되는 바코드의 색을 변경
  957. // for(var i = 0; i < ds_grd_prcplist.rowcount; i++)
  958. // {
  959. // if(ds_grd_prcplist.getColumn(i, "spcbarcdno") == grp_biz.grp_sea.ipt_barcdno.value)
  960. // {
  961. // for(var j=0; j<=46; j++)
  962. // {
  963. // grp_biz.grd_prcplist.setCellProperty("body", j, "background-color", "#99ffcc");
  964. // }
  965. // }
  966. // }
  967. // //ds_grd_prcplist.setColumn(ds_grd_prcplist.rowcount-1,"backcolor","#99ffcc");
  968. //
  969. // }
  970. // else if (ds_init_hospenvinfo.getColumn(0,"recvqualmthdcd") == "0") // 선조회일 경우 자동선택을 비활성화 한다.
  971. // {
  972. // for (var iNo=0; iNo < ds_grd_prcplist.rowcount; iNo++)
  973. // {
  974. // ds_grd_prcplist.setColumn(iNo,"choi", "0");
  975. // }
  976. // }
  977. // }
  978. }
  979. }
  980. function cf_TRLPJ00201(sSvcId, nErrorCode, sErrorMsg)
  981. {
  982. arErrorCode.push(sSvcId, nErrorCode);
  983. ds_grd_prcplist.addColumn("choi","string");
  984. ds_grd_prcplist.addColumn("backcolor","string");
  985. ds_grd_prcplist.addColumn("testhngnm","string");
  986. ds_grd_prcplist.addColumn("reprspccd","string");
  987. ds_grd_prcplist.addColumn("tretflag","string");
  988. ds_grd_prcplist.addColumn("resncdkind","string");
  989. ds_grd_prcplist.addColumn("resncd","string");
  990. ds_grd_prcplist.addColumn("workflagcd","string");
  991. for (var i = 0; i< ds_grd_prcplist.rowcount; i++)
  992. {
  993. ds_grd_prcplist.setColumn(i,"choi","1");
  994. }
  995. }
  996. function fSelectBarcdInfo(sCheck)
  997. {
  998. // var sBarCode = grp_biz.grp_sea.ipt_barcdno.value;
  999. if(sCheck == "1")
  1000. {
  1001. ds_init.setColumn(0,"pidno", "-");
  1002. ds_init.setColumn(0,"barcdno", sBarCode.toUpperCase());
  1003. }
  1004. else if(sCheck == "2")
  1005. {
  1006. ds_init.setColumn(0,"barcdno", "-");
  1007. ds_init.setColumn(0,"pidno", grp_biz.grp_sea.ipt_pidno.value);
  1008. }
  1009. // 바코드 길이 검사(11자리가 아닐경우 바코드 오류)
  1010. if ((sCheck == "1") && (sBarCode.length != 11))
  1011. {
  1012. sysf_messageBox("바코드번호 오류", "E008");
  1013. return false;
  1014. }
  1015. fGetPrcpCnfmList("0");
  1016. if(sCheck == "1")
  1017. {
  1018. ds_init.setColumn(0,"barcdno", "");
  1019. grp_biz.grp_sea.ipt_barcdno.setFocus();
  1020. }
  1021. else if(sCheck == "2")
  1022. {
  1023. ds_init.setColumn(0,"pidno", "");
  1024. grp_biz.grp_sea.ipt_pidno.setFocus();
  1025. }
  1026. }
  1027. /* @group : 전달검체수신확인
  1028. * @ver : 2007.05.07 (CMCDEV-0001)
  1029. * @by : 유동철(ACK)
  1030. * @-----------------------------------
  1031. * @type : function
  1032. * @access : public
  1033. * @desc : 바코드번호 검색 처리 Function
  1034. */
  1035. function fExeBarCdNoSea(sBarCdNo, pMaxRow)
  1036. {
  1037. var iFindRowNo = -1;
  1038. var iRowNo = 0;
  1039. //------------------------------
  1040. if (utlf_isNull(sBarCdNo)) return true;
  1041. do{
  1042. iFindRowNo = ds_grd_prcplist.findRow("spcbarcdno", sBarCdNo, iFindRowNo+1);
  1043. //iRowNo = Number(iFindRowNo) + 1;
  1044. //alert("iRowNo="+iRowNo);
  1045. //---------------------------
  1046. if (Number(iFindRowNo) > -1)
  1047. {
  1048. if (ds_grd_prcplist.getColumn(iFindRowNo, "choi") == "0")
  1049. {
  1050. ds_grd_prcplist.enableevent = false;
  1051. ds_grd_prcplist.setColumn(iFindRowNo, "choi", "1");
  1052. ds_grd_prcplist.setColumn(iFindRowNo, "backcolor", "#99ffcc");
  1053. ds_grd_prcplist.enableevent = true;
  1054. if ((Number(pMaxRow) - 24) > 0)
  1055. {
  1056. if (iFindRowNo < (Number(pMaxRow) - 24))
  1057. {
  1058. ds_grd_prcplist.rowposition = iFindRowNo;
  1059. grp_biz.grd_prcplist.vscrollbar.pos = iFindRowNo;
  1060. }
  1061. else
  1062. {
  1063. ds_grd_prcplist.rowposition = Number(pMaxRow) - 24;
  1064. grp_biz.grd_prcplist.vscrollbar.pos = Number(pMaxRow) - 24;
  1065. }
  1066. }
  1067. }
  1068. else
  1069. {
  1070. sysf_messageBox("검색된 바코드번호", "E008");
  1071. return false;
  1072. }
  1073. }
  1074. else
  1075. {
  1076. return true;
  1077. }
  1078. }
  1079. while (iFindRowNo != -1);
  1080. }
  1081. function fExeRefMthdChange()
  1082. {
  1083. fGetPrcpCnfmList("1");
  1084. }
  1085. function grp_biz_grp_sea_ipt_pidno_onkeydown(obj:Edit, e:KeyEventInfo)
  1086. {
  1087. if(e.keycode == 13)
  1088. {
  1089. ds_grd_prcplist.clearData();
  1090. if(utlf_isNull(obj.value))
  1091. {
  1092. alert("등록번호를 입력하세요");
  1093. grp_biz.grp_sea.ipt_pidno.setFocus();
  1094. }
  1095. else
  1096. {
  1097. ds_init.setColumn(0, "pidno", obj.value);
  1098. fGetPrcpCnfmList("1");
  1099. }
  1100. //ds_init_hospenvinfo.setColumn(0,"recvqualmthdcd", "0");
  1101. }
  1102. }
  1103. function ds_grd_prcplist_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
  1104. {
  1105. obj.enableevent = false;
  1106. if(e.columnid == "choi")
  1107. {
  1108. sBarCdNo = ds_grd_prcplist.getColumn(e.row,"spcbarcdno");
  1109. for (var iNo=0; iNo < obj.rowcount; iNo++)
  1110. {
  1111. if(obj.getColumn(iNo,"spcbarcdno") == sBarCdNo)
  1112. {
  1113. obj.setColumn(iNo,"choi", obj.getColumn(e.row,"choi"));
  1114. if( obj.getColumn(e.row,"choi") == "0")
  1115. {
  1116. ds_grd_prcplist.setColumn(iNo,"backcolor","#FFFFFF");
  1117. }
  1118. else
  1119. {
  1120. ds_grd_prcplist.setColumn(iNo,"backcolor","#99ffcc");
  1121. }
  1122. }
  1123. }
  1124. }
  1125. obj.enableevent = true;
  1126. }
  1127. function grp_btn_button26_onclick(obj:Button, e:ClickEventInfo)
  1128. {
  1129. var objArg = new Object();
  1130. if(ds_barcdprntsetup.rowcount == 0)
  1131. {
  1132. ds_barcdprntsetup.addRow();
  1133. }
  1134. objArg.arg_sSetupInfo = ds_barcdprntsetup.getColumn(0,"prntsetupinfo");
  1135. objArg.arg_sCallBackFunction = "lf_convertXmlToDs";
  1136. frmf_modal("SPLLC90100","SPLLC90100",objArg,"","","","","","","","","","M");
  1137. ds_barcdprntsetup.setColumn(0, "prntsetupinfo", frmf_getParameter("SetupInfo"));
  1138. }
  1139. function SMLPJ00200_ontimer(obj:Form, e:TimerEventInfo)
  1140. {
  1141. fGetPrcpCnfmList("1");
  1142. }
  1143. function grp_biz_grp_sea_cmbseaflagcd_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
  1144. {
  1145. //obj.updateToDataset();
  1146. //fExeRefMthdChange();
  1147. }
  1148. function grp_biz_grp_sea_btn_sea_onclick(obj:Button, e:ClickEventInfo)
  1149. {
  1150. var ddflag = "";
  1151. ddflag = fsetRefFromdd();
  1152. if(ddflag)
  1153. {
  1154. if(utlf_isNull(grp_biz.grp_sea.ipt_pidno.value))
  1155. {
  1156. if(grp_biz.grp_sea.cmborddept.value == "00")
  1157. {
  1158. alert("진료과를 선택해주세요.");
  1159. }
  1160. else
  1161. {
  1162. fGetPrcpCnfmList("1");
  1163. }
  1164. }
  1165. else
  1166. {
  1167. fGetPrcpCnfmList("1");
  1168. }
  1169. }
  1170. }
  1171. function grp_biz_grd_prcplist_oncellclick(obj:Grid, e:GridClickEventInfo)
  1172. {
  1173. fExeOrdListClick();
  1174. }
  1175. function grp_btn_btn_save_onclick(obj:Button, e:ClickEventInfo)
  1176. {
  1177. //fExePrcpCnfm("0");
  1178. fGetPrcpCnfmList("1");
  1179. ds_init.setColumn(0,'transferid',"");
  1180. ds_init_usernm.setColumn(0,'usernm',"");
  1181. }
  1182. function grp_btn_btn_excel_onclick(obj:Button, e:ClickEventInfo)
  1183. {
  1184. grdf_exportExcel(grp_biz.grd_prcplist, "전달검체수신확인");
  1185. }
  1186. function grp_btn_btn_clear_onclick(obj:Button, e:ClickEventInfo)
  1187. {
  1188. ds_grd_prcplist.clearData();
  1189. }
  1190. function grp_btn_btn_cnfm2_onclick(obj:Button, e:ClickEventInfo)
  1191. {
  1192. grp_deny.visible = true;
  1193. //ds_deny.setColumn(0, "canceltime", utlf_getCurrentDateTime());
  1194. //-----------------------
  1195. // 블럭번호 지정여부 확인
  1196. for(var iRowNo = 0; iRowNo < ds_grd_prcplist.rowcount; iRowNo++)
  1197. {
  1198. if(ds_grd_prcplist.getColumn(iRowNo, "choi") == 1)
  1199. {
  1200. ds_send.setColumn(0, "instcd", ds_grd_prcplist.getColumn(iRowNo, "instcd"));
  1201. ds_send.setColumn(0, "pid", ds_grd_prcplist.getColumn(iRowNo, "pid"));
  1202. ds_send.setColumn(0, "prcpdd", ds_grd_prcplist.getColumn(iRowNo, "prcpdd"));
  1203. ds_send.setColumn(0, "execprcpuniqno", ds_grd_prcplist.getColumn(iRowNo, "execprcpuniqno"));
  1204. var oParam = {};
  1205. oParam.id = "TRLPJ00204";
  1206. oParam.service = "plgyacptmngtapp.SpecimenAccept";
  1207. oParam.method = "reqGetBujukList";
  1208. oParam.inds = "refData=ds_send";
  1209. oParam.outds = "ds_perdeny=reflist";
  1210. oParam.async = false;
  1211. oParam.callback = "cf_TRLPJ00204";
  1212. tranf_submit(oParam);
  1213. if(ds_perdeny.rowcount > 0)
  1214. {
  1215. ds_deny.setColumn(0,"resncd",ds_perdeny.getColumn(0,"resncd"));
  1216. ds_deny.setColumn(0,"lcomment",ds_perdeny.getColumn(0,"lcomment"));
  1217. ds_deny.setColumn(0,"canceltime",ds_perdeny.getColumn(0,"canceltime"));
  1218. }
  1219. else
  1220. {
  1221. ds_deny.setColumn(0,"resncd",'');
  1222. ds_deny.setColumn(0,"lcomment",'');
  1223. ds_deny.setColumn(0, "canceltime", utlf_getCurrentDateTime());
  1224. }
  1225. ds_deny.setColumn(0,"pid",ds_grd_prcplist.getColumn(iRowNo,"pid"));
  1226. ds_deny.setColumn(0,"name",ds_grd_prcplist.getColumn(iRowNo,"patnm"));
  1227. ds_deny.setColumn(0,"deptcd",ds_grd_prcplist.getColumn(iRowNo,"orddeptnm"));
  1228. ds_deny.setColumn(0,"drname",ds_grd_prcplist.getColumn(iRowNo,"orddrnm"));
  1229. // ds_deny.setColumn(0,"name",ds_grd_prcplist.getColumn(iRowNo,"orddeptnm"));
  1230. }
  1231. }
  1232. }
  1233. function fExePrcpCnfm2(param)
  1234. {
  1235. var iRowNo = ds_grd_prcplist.findRow("choi","1");
  1236. var iNo = 0;
  1237. if (iRowNo < 0)
  1238. {
  1239. sysf_messageBox("처방을 선택하여 주십시오! 확인을", "E001");
  1240. return false;
  1241. }
  1242. // 확인취소일 경우 취소사유 입력여부를 검사
  1243. if (param == "1")
  1244. {
  1245. if (!frmf_isRequiredControls(new Array("grp_deny.cbo_cnclresn"))) return false;
  1246. }
  1247. // 선택여부에 따라 접수검체가 존재하는지 검사
  1248. for (iRowNo=0; iRowNo < ds_grd_prcplist.rowcount; iRowNo++)
  1249. {
  1250. if (ds_grd_prcplist.getColumn(iRowNo,"choi") == "1")
  1251. {
  1252. if (ds_grd_prcplist.getColumn(iRowNo,"preststatcd") == "5" && ds_grd_prcplist.getColumn(iRowNo,"spcstatcd") == "5")
  1253. {
  1254. if (param == "1" && ds_grd_prcplist.getColumn(iRowNo,"workflagcd") == "1002")
  1255. {
  1256. // Continue
  1257. }
  1258. else
  1259. {
  1260. sysf_messageBox("접수된 처방은 확인 및 확인취소를 ", "E001");
  1261. return false;
  1262. }
  1263. }
  1264. }
  1265. }
  1266. // 선택여부에 따라 그리드 변경상태를 설정
  1267. for (iRowNo=0; iRowNo < ds_grd_prcplist.rowcount; iRowNo++)
  1268. {
  1269. if (ds_grd_prcplist.getColumn(iRowNo,"choi") == "1")
  1270. {
  1271. //검체접수자를 화면 오픈시 확인한 사람으로 등록.
  1272. grdf_setStatus(grp_biz.grd_prcplist, "U", iRowNo)
  1273. }
  1274. // 처리구분 추가
  1275. ds_grd_prcplist.setColumn(iRowNo,"tretflag", param);
  1276. ds_grd_prcplist.setColumn(iRowNo,"resncdkind", ds_deny.getColumn(0,"resncd")); //사유
  1277. ds_grd_prcplist.setColumn(iRowNo,"resncd", ds_deny.getColumn(0,"lcomment")); //조치사항
  1278. }
  1279. dsf_createDs("ds_send_updatedata");
  1280. ds_grd_prcplist.filter("choi == '1'");
  1281. ds_send_updatedata.copyData(ds_grd_prcplist,true);
  1282. ds_grd_prcplist.filter("");
  1283. ds_send_updatedata.addColumn("instcd","string");
  1284. for(var i=0;i<ds_send_updatedata.rowcount;i++)
  1285. {
  1286. ds_send_updatedata.setColumn(i,"instcd",sysf_getUserInfo("dutplceinstcd"));
  1287. }
  1288. // 검채 수신 확인 갯수 구하기 iNo
  1289. for (iRowNo=0; iRowNo < ds_grd_prcplist.rowcount; iRowNo++)
  1290. {
  1291. var sBarcdTmp = ds_grd_prcplist.getColumn(iRowNo,"spcbarcdno");
  1292. if (ds_grd_prcplist.getColumn(iRowNo,"choi") == "1")
  1293. {
  1294. if(iNo == 0)
  1295. {
  1296. iAcptPrcpCnt[iNo] = sBarcdTmp;
  1297. iNo++;
  1298. }
  1299. else
  1300. {
  1301. var iCheck = 0;
  1302. for(var i = 0; i < iAcptPrcpCnt.length; i++)
  1303. {
  1304. if (sBarcdTmp == iAcptPrcpCnt[i])
  1305. {
  1306. iCheck = 1;
  1307. break;
  1308. }
  1309. }
  1310. if(iCheck == 0)
  1311. {
  1312. iAcptPrcpCnt[iNo] = sBarcdTmp;
  1313. iNo++;
  1314. }
  1315. }
  1316. }
  1317. }
  1318. if(iAcptPrcpCnt.length > 0)
  1319. {
  1320. if(param == "0")
  1321. {
  1322. sysf_messageBox("바코드 " + iAcptPrcpCnt.length + " 건 확인 ", "I001");
  1323. }
  1324. else if (param == "1")
  1325. {
  1326. sysf_messageBox("바코드 " + iAcptPrcpCnt.length + " 건 부적합 취소 ", "I001");
  1327. }
  1328. iAcptPrcpCnt = Array();
  1329. iCnt = 0;
  1330. }
  1331. var oParam = {};
  1332. oParam.id = "TXLPJ00202";
  1333. oParam.service = "plgyacptmngtapp.SpecimenAccept";
  1334. oParam.method = "reqExePrcpCnfm2";
  1335. oParam.inds = "refData=ds_send_updatedata";
  1336. oParam.outds = "ds_barcdlist=reflist";
  1337. oParam.async = false;
  1338. oParam.callback = "cf_TXLPJ00202";
  1339. tranf_submit(oParam);
  1340. }
  1341. function grp_biz_grp_sea_input3_onkeyup(obj:Calendar, e:KeyEventInfo)
  1342. {
  1343. if(e.keycode == 13)
  1344. {
  1345. fGetPrcpCnfmList("1");
  1346. }
  1347. }
  1348. function grp_biz_grp_sea_cmbddflag_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
  1349. {
  1350. }
  1351. // 조회일자 3일 이전으로 못가게 막기
  1352. function fsetRefFromdd()
  1353. {
  1354. var todd = ds_init.getColumn(0,"ddto");
  1355. var mDate = todd.toDate("YYYYMMDD").getAddDate(-3);
  1356. var fromdd = ds_init.getColumn(0,"ddfrom");
  1357. trace("mDate = " + mDate.getDateFormat("YYYYMMDD"));
  1358. trace("fromdd = " + fromdd);
  1359. if(utlf_isNull(grp_biz.grp_sea.ipt_pidno.value))
  1360. {
  1361. if(mDate.getDateFormat("YYYYMMDD") > fromdd)
  1362. {
  1363. sysf_messageBox("3일 이내의 기간만 검색","I006");
  1364. return false;
  1365. }
  1366. else if(todd < fromdd)
  1367. {
  1368. sysf_messageBox("기간설정이 잘못", "E005");
  1369. return false;
  1370. }
  1371. else
  1372. {
  1373. return true;
  1374. }
  1375. }
  1376. else
  1377. {
  1378. return true;
  1379. }
  1380. }
  1381. ]]></Script>
  1382. </Form>
  1383. </FDL>