BGP9VXDD ; 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,"090.0 ")
;;570
;;21,"090.1 ")
;;571
;;21,"090.2 ")
;;572
;;21,"090.3 ")
;;573
;;21,"090.40 ")
;;574
;;21,"090.41 ")
;;575
;;21,"090.42 ")
;;576
;;21,"090.49 ")
;;577
;;21,"090.5 ")
;;578
;;21,"090.6 ")
;;579
;;21,"090.7 ")
;;580
;;21,"090.9 ")
;;581
;;21,"091.0 ")
;;582
;;21,"091.1 ")
;;583
;;21,"091.2 ")
;;584
;;21,"091.3 ")
;;585
;;21,"091.4 ")
;;586
;;21,"091.50 ")
;;587
;;21,"091.51 ")
;;588
;;21,"091.52 ")
;;589
;;21,"091.61 ")
;;590
;;21,"091.62 ")
;;591
;;21,"091.69 ")
;;592
;;21,"091.7 ")
;;593
;;21,"091.81 ")
;;594
;;21,"091.82 ")
;;595
;;21,"091.89 ")
;;596
;;21,"091.9 ")
;;597
;;21,"092.0 ")
;;598
;;21,"092.9 ")
;;599
;;21,"093.0 ")
;;600
;;21,"093.1 ")
;;601
;;21,"093.20 ")
;;602
;;21,"093.21 ")
;;603
;;21,"093.22 ")
;;604
;;21,"093.23 ")
;;605
;;21,"093.24 ")
;;606
;;21,"093.81 ")
;;607
;;21,"093.82 ")
;;608
;;21,"093.89 ")
;;609
;;21,"093.9 ")
;;610
;;21,"094.0 ")
;;611
;;21,"094.1 ")
;;612
;;21,"094.2 ")
;;613
;;21,"094.3 ")
;;614
;;21,"094.81 ")
;;615
;;21,"094.82 ")
;;616
;;21,"094.83 ")
;;617
;;21,"094.84 ")
;;618
;;21,"094.85 ")
;;619
;;21,"094.86 ")
;;620
;;21,"094.87 ")
;;621
;;21,"094.89 ")
;;622
;;21,"094.9 ")
;;623
;;21,"095.0 ")
;;624
;;21,"095.1 ")
;;625
;;21,"095.2 ")
;;626
;;21,"095.3 ")
;;627
;;21,"095.4 ")
;;628
;;21,"095.5 ")
;;629
;;21,"095.6 ")
;;630
;;21,"095.7 ")
;;631
;;21,"095.8 ")
;;632
;;21,"095.9 ")
;;633
;;21,"096 ")
;;634
;;21,"097.0 ")
;;635
;;21,"097.1 ")
;;636
;;21,"097.9 ")
;;637
;;21,"098.0 ")
;;638
;;21,"098.10 ")
;;639
;;21,"098.11 ")
;;640
;;21,"098.12 ")
;;641
;;21,"098.13 ")
;;642
;;21,"098.14 ")
;;643
;;21,"098.15 ")
;;644
;;21,"098.16 ")
;;645
;;21,"098.17 ")
;;646
;;21,"098.19 ")
;;647
;;21,"098.2 ")
;;648
;;21,"098.30 ")
;;649
;;21,"098.31 ")
;;650
;;21,"098.32 ")
;;651
;;21,"098.33 ")
;;652
;;21,"098.34 ")
;;653
;;21,"098.35 ")
;;654
;;21,"098.36 ")
;;655
;;21,"098.37 ")
;;656
;;21,"098.39 ")
;;657
;;21,"098.40 ")
;;658
;;21,"098.41 ")
;;659
;;21,"098.42 ")
;;660
;;21,"098.43 ")
;;661
;;21,"098.49 ")
;;662
;;21,"098.50 ")
;;663
;;21,"098.51 ")
;;664
;;21,"098.52 ")
;;665
;;21,"098.53 ")
;;666
;;21,"098.59 ")
;;667
;;21,"098.6 ")
;;668
;;21,"098.7 ")
;;669
;;21,"098.81 ")
;;670
;;21,"098.82 ")
;;671
;;21,"098.83 ")
;;672
;;21,"098.84 ")
;;673
;;21,"098.85 ")
;;674
;;21,"098.86 ")
;;675
;;21,"098.89 ")
;;676
;;21,"099.0 ")
;;677
;;21,"099.1 ")
;;678
;;21,"099.2 ")
;;679
;;21,"099.3 ")
;;680
;;21,"099.40 ")
;;681
;;21,"099.41 ")
;;682
;;21,"099.49 ")
;;683
;;21,"099.50 ")
;;684
;;21,"099.51 ")
;;685
;;21,"099.52 ")
;;686
;;21,"099.53 ")
;;687
;;21,"099.54 ")
;;688
;;21,"099.55 ")
;;689
;;21,"099.56 ")
;;690
;;21,"099.59 ")
;;691
;;21,"099.8 ")
;;692
;;21,"099.9 ")
;;693
;;21,"100.0 ")
;;694
;;21,"100.81 ")
;;695
;;21,"100.89 ")
;;696
;;21,"100.9 ")
;;697
;;21,"101 ")
;;698
;;21,"102.0 ")
;;699
;;21,"102.1 ")
;;700
;;21,"102.2 ")
;;701
;;21,"102.3 ")
;;702
;;21,"102.4 ")
;;703
;;21,"102.5 ")
;;704
;;21,"102.6 ")
;;705
;;21,"102.7 ")
;;706
;;21,"102.8 ")
;;707
;;21,"102.9 ")
;;708
;;21,"103.0 ")
;;709
;;21,"103.1 ")
;;710
;;21,"103.2 ")
;;711
;;21,"103.3 ")
;;712
;;21,"103.9 ")
;;713
;;21,"104.0 ")
;;714
;;21,"104.8 ")
;;715
;;21,"104.9 ")
;;716
;;21,"110.0 ")
;;717
;;21,"110.1 ")
;;718
;;21,"110.2 ")
;;719
;;21,"110.3 ")
;;720
;;21,"110.4 ")
;;721
;;21,"110.5 ")
;;722
;;21,"110.6 ")
;;723
;;21,"110.8 ")
;;724
;;21,"110.9 ")
;;725
;;21,"111.3 ")
;;726
;;21,"111.8 ")
;;727
;;21,"111.9 ")
;;728
;;21,"114.0 ")
;;729
;;21,"114.1 ")
;;730
;;21,"114.2 ")
;;731
;;21,"114.3 ")
;;732
;;21,"114.4 ")
;;733
;;21,"114.5 ")
;;734
;;21,"114.9 ")
;;735
;;21,"117.4 ")
;;736
;;21,"117.5 ")
;;737
;;21,"117.6 ")
;;738
;;21,"117.7 ")
;;739
;;21,"117.8 ")
;;740
;;21,"117.9 ")
;;741
;;21,"118 ")
;;742
;;21,"120.0 ")
;;743
;;21,"120.1 ")
;;744
;;21,"120.2 ")
;;745
;;21,"120.3 ")
;;746
;;21,"120.8 ")
;;747
;;21,"120.9 ")
;;748
;;21,"121.0 ")
;;749
;;21,"121.1 ")
;;750
;;21,"121.2 ")
;;751
;;21,"121.3 ")
;;752
;;21,"121.4 ")
;;753
;;21,"121.5 ")
;;754
;;21,"121.6 ")
;;755
;;21,"121.8 ")
;;756
;;21,"121.9 ")
;;757
;;21,"122.0 ")
;;758
;;21,"122.1 ")
;;759
;;21,"122.2 ")
;;760
;;21,"122.3 ")
;;761
;;21,"122.4 ")
;;762
BGP9VXDD ; 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,"090.0 ")
+2 ;;570
+3 ;;21,"090.1 ")
+4 ;;571
+5 ;;21,"090.2 ")
+6 ;;572
+7 ;;21,"090.3 ")
+8 ;;573
+9 ;;21,"090.40 ")
+10 ;;574
+11 ;;21,"090.41 ")
+12 ;;575
+13 ;;21,"090.42 ")
+14 ;;576
+15 ;;21,"090.49 ")
+16 ;;577
+17 ;;21,"090.5 ")
+18 ;;578
+19 ;;21,"090.6 ")
+20 ;;579
+21 ;;21,"090.7 ")
+22 ;;580
+23 ;;21,"090.9 ")
+24 ;;581
+25 ;;21,"091.0 ")
+26 ;;582
+27 ;;21,"091.1 ")
+28 ;;583
+29 ;;21,"091.2 ")
+30 ;;584
+31 ;;21,"091.3 ")
+32 ;;585
+33 ;;21,"091.4 ")
+34 ;;586
+35 ;;21,"091.50 ")
+36 ;;587
+37 ;;21,"091.51 ")
+38 ;;588
+39 ;;21,"091.52 ")
+40 ;;589
+41 ;;21,"091.61 ")
+42 ;;590
+43 ;;21,"091.62 ")
+44 ;;591
+45 ;;21,"091.69 ")
+46 ;;592
+47 ;;21,"091.7 ")
+48 ;;593
+49 ;;21,"091.81 ")
+50 ;;594
+51 ;;21,"091.82 ")
+52 ;;595
+53 ;;21,"091.89 ")
+54 ;;596
+55 ;;21,"091.9 ")
+56 ;;597
+57 ;;21,"092.0 ")
+58 ;;598
+59 ;;21,"092.9 ")
+60 ;;599
+61 ;;21,"093.0 ")
+62 ;;600
+63 ;;21,"093.1 ")
+64 ;;601
+65 ;;21,"093.20 ")
+66 ;;602
+67 ;;21,"093.21 ")
+68 ;;603
+69 ;;21,"093.22 ")
+70 ;;604
+71 ;;21,"093.23 ")
+72 ;;605
+73 ;;21,"093.24 ")
+74 ;;606
+75 ;;21,"093.81 ")
+76 ;;607
+77 ;;21,"093.82 ")
+78 ;;608
+79 ;;21,"093.89 ")
+80 ;;609
+81 ;;21,"093.9 ")
+82 ;;610
+83 ;;21,"094.0 ")
+84 ;;611
+85 ;;21,"094.1 ")
+86 ;;612
+87 ;;21,"094.2 ")
+88 ;;613
+89 ;;21,"094.3 ")
+90 ;;614
+91 ;;21,"094.81 ")
+92 ;;615
+93 ;;21,"094.82 ")
+94 ;;616
+95 ;;21,"094.83 ")
+96 ;;617
+97 ;;21,"094.84 ")
+98 ;;618
+99 ;;21,"094.85 ")
+100 ;;619
+101 ;;21,"094.86 ")
+102 ;;620
+103 ;;21,"094.87 ")
+104 ;;621
+105 ;;21,"094.89 ")
+106 ;;622
+107 ;;21,"094.9 ")
+108 ;;623
+109 ;;21,"095.0 ")
+110 ;;624
+111 ;;21,"095.1 ")
+112 ;;625
+113 ;;21,"095.2 ")
+114 ;;626
+115 ;;21,"095.3 ")
+116 ;;627
+117 ;;21,"095.4 ")
+118 ;;628
+119 ;;21,"095.5 ")
+120 ;;629
+121 ;;21,"095.6 ")
+122 ;;630
+123 ;;21,"095.7 ")
+124 ;;631
+125 ;;21,"095.8 ")
+126 ;;632
+127 ;;21,"095.9 ")
+128 ;;633
+129 ;;21,"096 ")
+130 ;;634
+131 ;;21,"097.0 ")
+132 ;;635
+133 ;;21,"097.1 ")
+134 ;;636
+135 ;;21,"097.9 ")
+136 ;;637
+137 ;;21,"098.0 ")
+138 ;;638
+139 ;;21,"098.10 ")
+140 ;;639
+141 ;;21,"098.11 ")
+142 ;;640
+143 ;;21,"098.12 ")
+144 ;;641
+145 ;;21,"098.13 ")
+146 ;;642
+147 ;;21,"098.14 ")
+148 ;;643
+149 ;;21,"098.15 ")
+150 ;;644
+151 ;;21,"098.16 ")
+152 ;;645
+153 ;;21,"098.17 ")
+154 ;;646
+155 ;;21,"098.19 ")
+156 ;;647
+157 ;;21,"098.2 ")
+158 ;;648
+159 ;;21,"098.30 ")
+160 ;;649
+161 ;;21,"098.31 ")
+162 ;;650
+163 ;;21,"098.32 ")
+164 ;;651
+165 ;;21,"098.33 ")
+166 ;;652
+167 ;;21,"098.34 ")
+168 ;;653
+169 ;;21,"098.35 ")
+170 ;;654
+171 ;;21,"098.36 ")
+172 ;;655
+173 ;;21,"098.37 ")
+174 ;;656
+175 ;;21,"098.39 ")
+176 ;;657
+177 ;;21,"098.40 ")
+178 ;;658
+179 ;;21,"098.41 ")
+180 ;;659
+181 ;;21,"098.42 ")
+182 ;;660
+183 ;;21,"098.43 ")
+184 ;;661
+185 ;;21,"098.49 ")
+186 ;;662
+187 ;;21,"098.50 ")
+188 ;;663
+189 ;;21,"098.51 ")
+190 ;;664
+191 ;;21,"098.52 ")
+192 ;;665
+193 ;;21,"098.53 ")
+194 ;;666
+195 ;;21,"098.59 ")
+196 ;;667
+197 ;;21,"098.6 ")
+198 ;;668
+199 ;;21,"098.7 ")
+200 ;;669
+201 ;;21,"098.81 ")
+202 ;;670
+203 ;;21,"098.82 ")
+204 ;;671
+205 ;;21,"098.83 ")
+206 ;;672
+207 ;;21,"098.84 ")
+208 ;;673
+209 ;;21,"098.85 ")
+210 ;;674
+211 ;;21,"098.86 ")
+212 ;;675
+213 ;;21,"098.89 ")
+214 ;;676
+215 ;;21,"099.0 ")
+216 ;;677
+217 ;;21,"099.1 ")
+218 ;;678
+219 ;;21,"099.2 ")
+220 ;;679
+221 ;;21,"099.3 ")
+222 ;;680
+223 ;;21,"099.40 ")
+224 ;;681
+225 ;;21,"099.41 ")
+226 ;;682
+227 ;;21,"099.49 ")
+228 ;;683
+229 ;;21,"099.50 ")
+230 ;;684
+231 ;;21,"099.51 ")
+232 ;;685
+233 ;;21,"099.52 ")
+234 ;;686
+235 ;;21,"099.53 ")
+236 ;;687
+237 ;;21,"099.54 ")
+238 ;;688
+239 ;;21,"099.55 ")
+240 ;;689
+241 ;;21,"099.56 ")
+242 ;;690
+243 ;;21,"099.59 ")
+244 ;;691
+245 ;;21,"099.8 ")
+246 ;;692
+247 ;;21,"099.9 ")
+248 ;;693
+249 ;;21,"100.0 ")
+250 ;;694
+251 ;;21,"100.81 ")
+252 ;;695
+253 ;;21,"100.89 ")
+254 ;;696
+255 ;;21,"100.9 ")
+256 ;;697
+257 ;;21,"101 ")
+258 ;;698
+259 ;;21,"102.0 ")
+260 ;;699
+261 ;;21,"102.1 ")
+262 ;;700
+263 ;;21,"102.2 ")
+264 ;;701
+265 ;;21,"102.3 ")
+266 ;;702
+267 ;;21,"102.4 ")
+268 ;;703
+269 ;;21,"102.5 ")
+270 ;;704
+271 ;;21,"102.6 ")
+272 ;;705
+273 ;;21,"102.7 ")
+274 ;;706
+275 ;;21,"102.8 ")
+276 ;;707
+277 ;;21,"102.9 ")
+278 ;;708
+279 ;;21,"103.0 ")
+280 ;;709
+281 ;;21,"103.1 ")
+282 ;;710
+283 ;;21,"103.2 ")
+284 ;;711
+285 ;;21,"103.3 ")
+286 ;;712
+287 ;;21,"103.9 ")
+288 ;;713
+289 ;;21,"104.0 ")
+290 ;;714
+291 ;;21,"104.8 ")
+292 ;;715
+293 ;;21,"104.9 ")
+294 ;;716
+295 ;;21,"110.0 ")
+296 ;;717
+297 ;;21,"110.1 ")
+298 ;;718
+299 ;;21,"110.2 ")
+300 ;;719
+301 ;;21,"110.3 ")
+302 ;;720
+303 ;;21,"110.4 ")
+304 ;;721
+305 ;;21,"110.5 ")
+306 ;;722
+307 ;;21,"110.6 ")
+308 ;;723
+309 ;;21,"110.8 ")
+310 ;;724
+311 ;;21,"110.9 ")
+312 ;;725
+313 ;;21,"111.3 ")
+314 ;;726
+315 ;;21,"111.8 ")
+316 ;;727
+317 ;;21,"111.9 ")
+318 ;;728
+319 ;;21,"114.0 ")
+320 ;;729
+321 ;;21,"114.1 ")
+322 ;;730
+323 ;;21,"114.2 ")
+324 ;;731
+325 ;;21,"114.3 ")
+326 ;;732
+327 ;;21,"114.4 ")
+328 ;;733
+329 ;;21,"114.5 ")
+330 ;;734
+331 ;;21,"114.9 ")
+332 ;;735
+333 ;;21,"117.4 ")
+334 ;;736
+335 ;;21,"117.5 ")
+336 ;;737
+337 ;;21,"117.6 ")
+338 ;;738
+339 ;;21,"117.7 ")
+340 ;;739
+341 ;;21,"117.8 ")
+342 ;;740
+343 ;;21,"117.9 ")
+344 ;;741
+345 ;;21,"118 ")
+346 ;;742
+347 ;;21,"120.0 ")
+348 ;;743
+349 ;;21,"120.1 ")
+350 ;;744
+351 ;;21,"120.2 ")
+352 ;;745
+353 ;;21,"120.3 ")
+354 ;;746
+355 ;;21,"120.8 ")
+356 ;;747
+357 ;;21,"120.9 ")
+358 ;;748
+359 ;;21,"121.0 ")
+360 ;;749
+361 ;;21,"121.1 ")
+362 ;;750
+363 ;;21,"121.2 ")
+364 ;;751
+365 ;;21,"121.3 ")
+366 ;;752
+367 ;;21,"121.4 ")
+368 ;;753
+369 ;;21,"121.5 ")
+370 ;;754
+371 ;;21,"121.6 ")
+372 ;;755
+373 ;;21,"121.8 ")
+374 ;;756
+375 ;;21,"121.9 ")
+376 ;;757
+377 ;;21,"122.0 ")
+378 ;;758
+379 ;;21,"122.1 ")
+380 ;;759
+381 ;;21,"122.2 ")
+382 ;;760
+383 ;;21,"122.3 ")
+384 ;;761
+385 ;;21,"122.4 ")
+386 ;;762
