BGP9VXID ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON MAR 25, 2009 ;
;;9.0;IHS CLINICAL REPORTING;;JUL 1, 2009
;
START ;
K:'$G(ATXPGMC) ^TMP("ATX",$J)
S ATXPGMC=$G(ATXPGMC)+1
F ATXI=1:1 S X=$P($T(TMP+ATXI),";;",2,99) Q:X="" S X="^TMP(""ATX"",$J,"_X,ATXI=ATXI+1,Y=$P($T(TMP+ATXI),";;",2,99) S @X=Y
Q
;
TMP ;;TAXONOMY (WITH BULLETIN)
;;21,"51.89 ")
;;585
;;21,"51.91 ")
;;586
;;21,"51.92 ")
;;587
;;21,"51.93 ")
;;588
;;21,"51.94 ")
;;589
;;21,"51.95 ")
;;590
;;21,"51.99 ")
;;591
;;21,"52.09 ")
;;592
;;21,"52.22 ")
;;593
;;21,"52.3 ")
;;594
;;21,"52.4 ")
;;595
;;21,"52.51 ")
;;596
;;21,"52.52 ")
;;597
;;21,"52.53 ")
;;598
;;21,"52.59 ")
;;599
;;21,"52.6 ")
;;600
;;21,"52.7 ")
;;601
;;21,"52.80 ")
;;602
;;21,"52.81 ")
;;603
;;21,"52.82 ")
;;604
;;21,"52.83 ")
;;605
;;21,"52.92 ")
;;606
;;21,"52.95 ")
;;607
;;21,"52.96 ")
;;608
;;21,"52.99 ")
;;609
;;21,"53.51 ")
;;610
;;21,"53.59 ")
;;611
;;21,"53.61 ")
;;612
;;21,"53.69 ")
;;613
;;21,"53.7 ")
;;614
;;21,"53.80 ")
;;615
;;21,"53.81 ")
;;616
;;21,"53.82 ")
;;617
;;21,"53.9 ")
;;618
;;21,"54.11 ")
;;619
;;21,"54.12 ")
;;620
;;21,"54.19 ")
;;621
;;21,"54.4 ")
;;622
;;21,"54.59 ")
;;623
;;21,"54.61 ")
;;624
;;21,"54.62 ")
;;625
;;21,"54.63 ")
;;626
;;21,"54.64 ")
;;627
;;21,"54.71 ")
;;628
;;21,"54.72 ")
;;629
;;21,"54.73 ")
;;630
;;21,"54.74 ")
;;631
;;21,"54.75 ")
;;632
;;21,"54.92 ")
;;633
;;21,"54.94 ")
;;634
;;21,"54.95 ")
;;635
;;21,"55.01 ")
;;636
;;21,"55.02 ")
;;637
;;21,"55.11 ")
;;638
;;21,"55.12 ")
;;639
;;21,"55.32 ")
;;640
;;21,"55.34 ")
;;641
;;21,"55.35 ")
;;642
;;21,"55.4 ")
;;643
;;21,"55.51 ")
;;644
;;21,"55.52 ")
;;645
;;21,"55.53 ")
;;646
;;21,"55.54 ")
;;647
;;21,"55.61 ")
;;648
;;21,"55.69 ")
;;649
;;21,"55.7 ")
;;650
;;21,"55.81 ")
;;651
;;21,"55.82 ")
;;652
;;21,"55.83 ")
;;653
;;21,"55.84 ")
;;654
;;21,"55.85 ")
;;655
;;21,"55.86 ")
;;656
;;21,"55.87 ")
;;657
;;21,"55.91 ")
;;658
;;21,"55.97 ")
;;659
;;21,"55.98 ")
;;660
;;21,"55.99 ")
;;661
;;21,"56.40 ")
;;662
;;21,"56.41 ")
;;663
;;21,"56.42 ")
;;664
;;21,"56.51 ")
;;665
;;21,"56.52 ")
;;666
;;21,"56.61 ")
;;667
;;21,"56.62 ")
;;668
;;21,"56.71 ")
;;669
;;21,"56.72 ")
;;670
;;21,"56.73 ")
;;671
;;21,"56.74 ")
;;672
;;21,"56.75 ")
;;673
;;21,"56.79 ")
;;674
;;21,"56.81 ")
;;675
;;21,"56.82 ")
;;676
;;21,"56.83 ")
;;677
;;21,"56.84 ")
;;678
;;21,"56.85 ")
;;679
;;21,"56.86 ")
;;680
;;21,"56.89 ")
;;681
;;21,"56.95 ")
;;682
;;21,"56.99 ")
;;683
;;21,"57.12 ")
;;684
;;21,"57.18 ")
;;685
;;21,"57.19 ")
;;686
;;21,"57.21 ")
;;687
;;21,"57.22 ")
;;688
;;21,"57.6 ")
;;689
;;21,"57.71 ")
;;690
;;21,"57.79 ")
;;691
;;21,"57.81 ")
;;692
;;21,"57.82 ")
;;693
;;21,"57.83 ")
;;694
;;21,"57.84 ")
;;695
;;21,"57.85 ")
;;696
;;21,"57.86 ")
;;697
;;21,"57.87 ")
;;698
;;21,"57.88 ")
;;699
;;21,"57.89 ")
;;700
;;21,"57.91 ")
;;701
;;21,"57.93 ")
;;702
;;21,"59.00 ")
;;703
;;21,"59.02 ")
;;704
;;21,"59.03 ")
;;705
;;21,"59.09 ")
;;706
;;21,"59.11 ")
;;707
;;21,"59.19 ")
;;708
;;21,"59.3 ")
;;709
;;21,"59.4 ")
;;710
;;21,"59.5 ")
;;711
;;21,"59.6 ")
;;712
;;21,"59.71 ")
;;713
;;21,"59.79 ")
;;714
;;21,"60.0 ")
;;715
;;21,"60.21 ")
;;716
;;21,"60.29 ")
;;717
;;21,"60.3 ")
;;718
;;21,"60.4 ")
;;719
;;21,"60.5 ")
;;720
;;21,"60.61 ")
;;721
;;21,"60.62 ")
;;722
;;21,"60.69 ")
;;723
;;21,"60.72 ")
;;724
;;21,"60.73 ")
;;725
;;21,"60.79 ")
;;726
;;21,"60.81 ")
;;727
;;21,"60.82 ")
;;728
;;21,"64.3 ")
;;729
;;21,"64.43 ")
;;730
;;21,"64.44 ")
;;731
;;21,"64.45 ")
;;732
;;21,"64.49 ")
;;733
;;21,"64.5 ")
;;734
;;21,"65.09 ")
;;735
;;21,"65.21 ")
;;736
;;21,"65.22 ")
;;737
;;21,"65.29 ")
;;738
;;21,"65.39 ")
;;739
;;21,"65.49 ")
;;740
;;21,"65.51 ")
;;741
;;21,"65.52 ")
;;742
;;21,"65.61 ")
;;743
;;21,"65.62 ")
;;744
;;21,"65.71 ")
;;745
;;21,"65.72 ")
;;746
;;21,"65.73 ")
;;747
;;21,"65.79 ")
;;748
;;21,"65.89 ")
;;749
;;21,"65.92 ")
;;750
;;21,"65.93 ")
;;751
;;21,"65.94 ")
;;752
;;21,"65.95 ")
;;753
;;21,"65.99 ")
;;754
;;21,"66.01 ")
;;755
;;21,"66.02 ")
;;756
;;21,"66.4 ")
;;757
;;21,"66.51 ")
;;758
;;21,"66.52 ")
;;759
;;21,"66.61 ")
;;760
;;21,"66.62 ")
;;761
;;21,"66.63 ")
;;762
;;21,"66.69 ")
;;763
;;21,"66.71 ")
;;764
;;21,"66.72 ")
;;765
;;21,"66.73 ")
;;766
;;21,"66.74 ")
;;767
;;21,"66.79 ")
;;768
;;21,"68.0 ")
;;769
;;21,"68.21 ")
;;770
;;21,"68.22 ")
;;771
;;21,"68.29 ")
;;772
;;21,"68.39 ")
;;773
;;21,"68.49 ")
;;774
;;21,"68.51 ")
;;775
;;21,"68.59 ")
;;776
;;21,"68.69 ")
;;777
;;21,"68.79 ")
;;778
;;21,"68.8 ")
;;779
;;21,"68.9 ")
;;780
BGP9VXID ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON MAR 25, 2009 ;
+1 ;;9.0;IHS CLINICAL REPORTING;;JUL 1, 2009
+2 ;
START ;
+1 IF '$GET(ATXPGMC)
KILL ^TMP("ATX",$JOB)
+2 SET ATXPGMC=$GET(ATXPGMC)+1
+3 FOR ATXI=1:1
SET X=$PIECE($TEXT(TMP+ATXI),";;",2,99)
IF X=""
QUIT
SET X="^TMP(""ATX"",$J,"_X
SET ATXI=ATXI+1
SET Y=$PIECE($TEXT(TMP+ATXI),";;",2,99)
SET @X=Y
+4 QUIT
+5 ;
TMP ;;TAXONOMY (WITH BULLETIN)
+1 ;;21,"51.89 ")
+2 ;;585
+3 ;;21,"51.91 ")
+4 ;;586
+5 ;;21,"51.92 ")
+6 ;;587
+7 ;;21,"51.93 ")
+8 ;;588
+9 ;;21,"51.94 ")
+10 ;;589
+11 ;;21,"51.95 ")
+12 ;;590
+13 ;;21,"51.99 ")
+14 ;;591
+15 ;;21,"52.09 ")
+16 ;;592
+17 ;;21,"52.22 ")
+18 ;;593
+19 ;;21,"52.3 ")
+20 ;;594
+21 ;;21,"52.4 ")
+22 ;;595
+23 ;;21,"52.51 ")
+24 ;;596
+25 ;;21,"52.52 ")
+26 ;;597
+27 ;;21,"52.53 ")
+28 ;;598
+29 ;;21,"52.59 ")
+30 ;;599
+31 ;;21,"52.6 ")
+32 ;;600
+33 ;;21,"52.7 ")
+34 ;;601
+35 ;;21,"52.80 ")
+36 ;;602
+37 ;;21,"52.81 ")
+38 ;;603
+39 ;;21,"52.82 ")
+40 ;;604
+41 ;;21,"52.83 ")
+42 ;;605
+43 ;;21,"52.92 ")
+44 ;;606
+45 ;;21,"52.95 ")
+46 ;;607
+47 ;;21,"52.96 ")
+48 ;;608
+49 ;;21,"52.99 ")
+50 ;;609
+51 ;;21,"53.51 ")
+52 ;;610
+53 ;;21,"53.59 ")
+54 ;;611
+55 ;;21,"53.61 ")
+56 ;;612
+57 ;;21,"53.69 ")
+58 ;;613
+59 ;;21,"53.7 ")
+60 ;;614
+61 ;;21,"53.80 ")
+62 ;;615
+63 ;;21,"53.81 ")
+64 ;;616
+65 ;;21,"53.82 ")
+66 ;;617
+67 ;;21,"53.9 ")
+68 ;;618
+69 ;;21,"54.11 ")
+70 ;;619
+71 ;;21,"54.12 ")
+72 ;;620
+73 ;;21,"54.19 ")
+74 ;;621
+75 ;;21,"54.4 ")
+76 ;;622
+77 ;;21,"54.59 ")
+78 ;;623
+79 ;;21,"54.61 ")
+80 ;;624
+81 ;;21,"54.62 ")
+82 ;;625
+83 ;;21,"54.63 ")
+84 ;;626
+85 ;;21,"54.64 ")
+86 ;;627
+87 ;;21,"54.71 ")
+88 ;;628
+89 ;;21,"54.72 ")
+90 ;;629
+91 ;;21,"54.73 ")
+92 ;;630
+93 ;;21,"54.74 ")
+94 ;;631
+95 ;;21,"54.75 ")
+96 ;;632
+97 ;;21,"54.92 ")
+98 ;;633
+99 ;;21,"54.94 ")
+100 ;;634
+101 ;;21,"54.95 ")
+102 ;;635
+103 ;;21,"55.01 ")
+104 ;;636
+105 ;;21,"55.02 ")
+106 ;;637
+107 ;;21,"55.11 ")
+108 ;;638
+109 ;;21,"55.12 ")
+110 ;;639
+111 ;;21,"55.32 ")
+112 ;;640
+113 ;;21,"55.34 ")
+114 ;;641
+115 ;;21,"55.35 ")
+116 ;;642
+117 ;;21,"55.4 ")
+118 ;;643
+119 ;;21,"55.51 ")
+120 ;;644
+121 ;;21,"55.52 ")
+122 ;;645
+123 ;;21,"55.53 ")
+124 ;;646
+125 ;;21,"55.54 ")
+126 ;;647
+127 ;;21,"55.61 ")
+128 ;;648
+129 ;;21,"55.69 ")
+130 ;;649
+131 ;;21,"55.7 ")
+132 ;;650
+133 ;;21,"55.81 ")
+134 ;;651
+135 ;;21,"55.82 ")
+136 ;;652
+137 ;;21,"55.83 ")
+138 ;;653
+139 ;;21,"55.84 ")
+140 ;;654
+141 ;;21,"55.85 ")
+142 ;;655
+143 ;;21,"55.86 ")
+144 ;;656
+145 ;;21,"55.87 ")
+146 ;;657
+147 ;;21,"55.91 ")
+148 ;;658
+149 ;;21,"55.97 ")
+150 ;;659
+151 ;;21,"55.98 ")
+152 ;;660
+153 ;;21,"55.99 ")
+154 ;;661
+155 ;;21,"56.40 ")
+156 ;;662
+157 ;;21,"56.41 ")
+158 ;;663
+159 ;;21,"56.42 ")
+160 ;;664
+161 ;;21,"56.51 ")
+162 ;;665
+163 ;;21,"56.52 ")
+164 ;;666
+165 ;;21,"56.61 ")
+166 ;;667
+167 ;;21,"56.62 ")
+168 ;;668
+169 ;;21,"56.71 ")
+170 ;;669
+171 ;;21,"56.72 ")
+172 ;;670
+173 ;;21,"56.73 ")
+174 ;;671
+175 ;;21,"56.74 ")
+176 ;;672
+177 ;;21,"56.75 ")
+178 ;;673
+179 ;;21,"56.79 ")
+180 ;;674
+181 ;;21,"56.81 ")
+182 ;;675
+183 ;;21,"56.82 ")
+184 ;;676
+185 ;;21,"56.83 ")
+186 ;;677
+187 ;;21,"56.84 ")
+188 ;;678
+189 ;;21,"56.85 ")
+190 ;;679
+191 ;;21,"56.86 ")
+192 ;;680
+193 ;;21,"56.89 ")
+194 ;;681
+195 ;;21,"56.95 ")
+196 ;;682
+197 ;;21,"56.99 ")
+198 ;;683
+199 ;;21,"57.12 ")
+200 ;;684
+201 ;;21,"57.18 ")
+202 ;;685
+203 ;;21,"57.19 ")
+204 ;;686
+205 ;;21,"57.21 ")
+206 ;;687
+207 ;;21,"57.22 ")
+208 ;;688
+209 ;;21,"57.6 ")
+210 ;;689
+211 ;;21,"57.71 ")
+212 ;;690
+213 ;;21,"57.79 ")
+214 ;;691
+215 ;;21,"57.81 ")
+216 ;;692
+217 ;;21,"57.82 ")
+218 ;;693
+219 ;;21,"57.83 ")
+220 ;;694
+221 ;;21,"57.84 ")
+222 ;;695
+223 ;;21,"57.85 ")
+224 ;;696
+225 ;;21,"57.86 ")
+226 ;;697
+227 ;;21,"57.87 ")
+228 ;;698
+229 ;;21,"57.88 ")
+230 ;;699
+231 ;;21,"57.89 ")
+232 ;;700
+233 ;;21,"57.91 ")
+234 ;;701
+235 ;;21,"57.93 ")
+236 ;;702
+237 ;;21,"59.00 ")
+238 ;;703
+239 ;;21,"59.02 ")
+240 ;;704
+241 ;;21,"59.03 ")
+242 ;;705
+243 ;;21,"59.09 ")
+244 ;;706
+245 ;;21,"59.11 ")
+246 ;;707
+247 ;;21,"59.19 ")
+248 ;;708
+249 ;;21,"59.3 ")
+250 ;;709
+251 ;;21,"59.4 ")
+252 ;;710
+253 ;;21,"59.5 ")
+254 ;;711
+255 ;;21,"59.6 ")
+256 ;;712
+257 ;;21,"59.71 ")
+258 ;;713
+259 ;;21,"59.79 ")
+260 ;;714
+261 ;;21,"60.0 ")
+262 ;;715
+263 ;;21,"60.21 ")
+264 ;;716
+265 ;;21,"60.29 ")
+266 ;;717
+267 ;;21,"60.3 ")
+268 ;;718
+269 ;;21,"60.4 ")
+270 ;;719
+271 ;;21,"60.5 ")
+272 ;;720
+273 ;;21,"60.61 ")
+274 ;;721
+275 ;;21,"60.62 ")
+276 ;;722
+277 ;;21,"60.69 ")
+278 ;;723
+279 ;;21,"60.72 ")
+280 ;;724
+281 ;;21,"60.73 ")
+282 ;;725
+283 ;;21,"60.79 ")
+284 ;;726
+285 ;;21,"60.81 ")
+286 ;;727
+287 ;;21,"60.82 ")
+288 ;;728
+289 ;;21,"64.3 ")
+290 ;;729
+291 ;;21,"64.43 ")
+292 ;;730
+293 ;;21,"64.44 ")
+294 ;;731
+295 ;;21,"64.45 ")
+296 ;;732
+297 ;;21,"64.49 ")
+298 ;;733
+299 ;;21,"64.5 ")
+300 ;;734
+301 ;;21,"65.09 ")
+302 ;;735
+303 ;;21,"65.21 ")
+304 ;;736
+305 ;;21,"65.22 ")
+306 ;;737
+307 ;;21,"65.29 ")
+308 ;;738
+309 ;;21,"65.39 ")
+310 ;;739
+311 ;;21,"65.49 ")
+312 ;;740
+313 ;;21,"65.51 ")
+314 ;;741
+315 ;;21,"65.52 ")
+316 ;;742
+317 ;;21,"65.61 ")
+318 ;;743
+319 ;;21,"65.62 ")
+320 ;;744
+321 ;;21,"65.71 ")
+322 ;;745
+323 ;;21,"65.72 ")
+324 ;;746
+325 ;;21,"65.73 ")
+326 ;;747
+327 ;;21,"65.79 ")
+328 ;;748
+329 ;;21,"65.89 ")
+330 ;;749
+331 ;;21,"65.92 ")
+332 ;;750
+333 ;;21,"65.93 ")
+334 ;;751
+335 ;;21,"65.94 ")
+336 ;;752
+337 ;;21,"65.95 ")
+338 ;;753
+339 ;;21,"65.99 ")
+340 ;;754
+341 ;;21,"66.01 ")
+342 ;;755
+343 ;;21,"66.02 ")
+344 ;;756
+345 ;;21,"66.4 ")
+346 ;;757
+347 ;;21,"66.51 ")
+348 ;;758
+349 ;;21,"66.52 ")
+350 ;;759
+351 ;;21,"66.61 ")
+352 ;;760
+353 ;;21,"66.62 ")
+354 ;;761
+355 ;;21,"66.63 ")
+356 ;;762
+357 ;;21,"66.69 ")
+358 ;;763
+359 ;;21,"66.71 ")
+360 ;;764
+361 ;;21,"66.72 ")
+362 ;;765
+363 ;;21,"66.73 ")
+364 ;;766
+365 ;;21,"66.74 ")
+366 ;;767
+367 ;;21,"66.79 ")
+368 ;;768
+369 ;;21,"68.0 ")
+370 ;;769
+371 ;;21,"68.21 ")
+372 ;;770
+373 ;;21,"68.22 ")
+374 ;;771
+375 ;;21,"68.29 ")
+376 ;;772
+377 ;;21,"68.39 ")
+378 ;;773
+379 ;;21,"68.49 ")
+380 ;;774
+381 ;;21,"68.51 ")
+382 ;;775
+383 ;;21,"68.59 ")
+384 ;;776
+385 ;;21,"68.69 ")
+386 ;;777
+387 ;;21,"68.79 ")
+388 ;;778
+389 ;;21,"68.8 ")
+390 ;;779
+391 ;;21,"68.9 ")
+392 ;;780
