BMCTXED ; IHS/PHXAO/TMJ -CREATED BY ^ATXSTX ON APR 12, 1996 ;
;;4.0;REFERRED CARE INFO SYSTEM;;JAN 09, 2006
;
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,"35616 ")
;;582
;;21,"35621 ")
;;583
;;21,"35626 ")
;;584
;;21,"35631 ")
;;585
;;21,"35636 ")
;;586
;;21,"35641 ")
;;587
;;21,"35642 ")
;;588
;;21,"35645 ")
;;589
;;21,"35646 ")
;;590
;;21,"35650 ")
;;591
;;21,"35651 ")
;;592
;;21,"35654 ")
;;593
;;21,"35656 ")
;;594
;;21,"35661 ")
;;595
;;21,"35663 ")
;;596
;;21,"35665 ")
;;597
;;21,"35666 ")
;;598
;;21,"35671 ")
;;599
;;21,"35691 ")
;;600
;;21,"35694 ")
;;601
;;21,"35695 ")
;;602
;;21,"35870 ")
;;603
;;21,"36834 ")
;;604
;;21,"37140 ")
;;605
;;21,"37145 ")
;;606
;;21,"37160 ")
;;607
;;21,"37180 ")
;;608
;;21,"37181 ")
;;609
;;21,"37190 ")
;;610
;;21,"37204 ")
;;611
;;21,"37788 ")
;;612
;;21,"38240 ")
;;613
;;21,"38241 ")
;;614
;;21,"38720 ")
;;615
;;21,"38724 ")
;;616
;;21,"38765 ")
;;617
;;21,"38770 ")
;;618
;;21,"38780 ")
;;619
;;21,"39220 ")
;;620
;;21,"39502 ")
;;621
;;21,"39503 ")
;;622
;;21,"39520 ")
;;623
;;21,"39530 ")
;;624
;;21,"39531 ")
;;625
;;21,"39541 ")
;;626
;;21,"40701 ")
;;627
;;21,"40844 ")
;;628
;;21,"40845 ")
;;629
;;21,"41135 ")
;;630
;;21,"41140 ")
;;631
;;21,"41145 ")
;;632
;;21,"41150 ")
;;633
;;21,"41153 ")
;;634
;;21,"41155 ")
;;635
;;21,"42415 ")
;;636
;;21,"42420 ")
;;637
;;21,"42426 ")
;;638
;;21,"42845 ")
;;639
;;21,"42894 ")
;;640
;;21,"43045 ")
;;641
;;21,"43105 ")
;;642
;;21,"43106 ")
;;643
;;21,"43107 ")
;;644
;;21,"43108 ")
;;645
;;21,"43110 ")
;;646
;;21,"43111 ")
;;647
;;21,"43112 ")
;;648
;;21,"43113 ")
;;649
;;21,"43115 ")
;;650
;;21,"43116 ")
;;651
;;21,"43117 ")
;;652
;;21,"43118 ")
;;653
;;21,"43119 ")
;;654
;;21,"43120 ")
;;655
;;21,"43121 ")
;;656
;;21,"43122 ")
;;657
;;21,"43123 ")
;;658
;;21,"43124 ")
;;659
;;21,"43135 ")
;;660
;;21,"43305 ")
;;661
;;21,"43310 ")
;;662
;;21,"43312 ")
;;663
;;21,"43320 ")
;;664
;;21,"43321 ")
;;665
;;21,"43324 ")
;;666
;;21,"43325 ")
;;667
;;21,"43330 ")
;;668
;;21,"43331 ")
;;669
;;21,"43340 ")
;;670
;;21,"43360 ")
;;671
;;21,"43361 ")
;;672
;;21,"43400 ")
;;673
;;21,"43401 ")
;;674
;;21,"43405 ")
;;675
;;21,"43415 ")
;;676
;;21,"43425 ")
;;677
;;21,"43501 ")
;;678
;;21,"43502 ")
;;679
;;21,"43620 ")
;;680
;;21,"43621 ")
;;681
;;21,"43622 ")
;;682
;;21,"43631 ")
;;683
;;21,"43632 ")
;;684
;;21,"43633 ")
;;685
;;21,"43634 ")
;;686
;;21,"43638 ")
;;687
;;21,"43639 ")
;;688
;;21,"43640 ")
;;689
;;21,"43825 ")
;;690
;;21,"43842 ")
;;691
;;21,"43843 ")
;;692
;;21,"43846 ")
;;693
;;21,"43847 ")
;;694
;;21,"43848 ")
;;695
;;21,"43850 ")
;;696
;;21,"43855 ")
;;697
;;21,"43860 ")
;;698
;;21,"43865 ")
;;699
;;21,"43880 ")
;;700
;;21,"44040 ")
;;701
;;21,"44125 ")
;;702
;;21,"44140 ")
;;703
;;21,"44141 ")
;;704
;;21,"44143 ")
;;705
;;21,"44144 ")
;;706
;;21,"44145 ")
;;707
;;21,"44146 ")
;;708
;;21,"44147 ")
;;709
;;21,"44150 ")
;;710
;;21,"44151 ")
;;711
;;21,"44152 ")
;;712
;;21,"44153 ")
;;713
;;21,"44155 ")
;;714
;;21,"44156 ")
;;715
;;21,"44160 ")
;;716
;;21,"44603 ")
;;717
;;21,"44605 ")
;;718
;;21,"44661 ")
;;719
;;21,"44680 ")
;;720
;;21,"45110 ")
;;721
;;21,"45111 ")
;;722
;;21,"45112 ")
;;723
;;21,"45113 ")
;;724
;;21,"45114 ")
;;725
;;21,"45116 ")
;;726
;;21,"45120 ")
;;727
;;21,"45121 ")
;;728
;;21,"45123 ")
;;729
;;21,"45135 ")
;;730
;;21,"45540 ")
;;731
;;21,"45550 ")
;;732
;;21,"45563 ")
;;733
;;21,"45805 ")
;;734
;;21,"45825 ")
;;735
;;21,"46730 ")
;;736
;;21,"46735 ")
;;737
;;21,"46740 ")
;;738
;;21,"46742 ")
;;739
;;21,"46744 ")
;;740
;;21,"46746 ")
;;741
;;21,"46748 ")
;;742
;;21,"47120 ")
;;743
;;21,"47122 ")
;;744
;;21,"47125 ")
;;745
;;21,"47130 ")
;;746
;;21,"47134 ")
;;747
;;21,"47135 ")
;;748
;;21,"47136 ")
;;749
;;21,"47360 ")
;;750
;;21,"47400 ")
;;751
;;21,"47420 ")
;;752
;;21,"47425 ")
;;753
;;21,"47440 ")
;;754
;;21,"47460 ")
;;755
;;21,"47612 ")
;;756
;;21,"47620 ")
;;757
;;21,"47701 ")
;;758
;;21,"47710 ")
;;759
;;21,"47711 ")
;;760
;;21,"47712 ")
;;761
;;21,"47721 ")
;;762
;;21,"47740 ")
;;763
;;21,"47741 ")
;;764
;;21,"47760 ")
;;765
;;21,"47765 ")
;;766
;;21,"47780 ")
;;767
;;21,"47785 ")
;;768
;;21,"47800 ")
;;769
;;21,"47802 ")
;;770
;;21,"47900 ")
;;771
;;21,"48005 ")
;;772
;;21,"48120 ")
;;773
;;21,"48140 ")
;;774
;;21,"48145 ")
;;775
;;21,"48146 ")
;;776
BMCTXED ; IHS/PHXAO/TMJ -CREATED BY ^ATXSTX ON APR 12, 1996 ;
+1 ;;4.0;REFERRED CARE INFO SYSTEM;;JAN 09, 2006
+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,"35616 ")
+2 ;;582
+3 ;;21,"35621 ")
+4 ;;583
+5 ;;21,"35626 ")
+6 ;;584
+7 ;;21,"35631 ")
+8 ;;585
+9 ;;21,"35636 ")
+10 ;;586
+11 ;;21,"35641 ")
+12 ;;587
+13 ;;21,"35642 ")
+14 ;;588
+15 ;;21,"35645 ")
+16 ;;589
+17 ;;21,"35646 ")
+18 ;;590
+19 ;;21,"35650 ")
+20 ;;591
+21 ;;21,"35651 ")
+22 ;;592
+23 ;;21,"35654 ")
+24 ;;593
+25 ;;21,"35656 ")
+26 ;;594
+27 ;;21,"35661 ")
+28 ;;595
+29 ;;21,"35663 ")
+30 ;;596
+31 ;;21,"35665 ")
+32 ;;597
+33 ;;21,"35666 ")
+34 ;;598
+35 ;;21,"35671 ")
+36 ;;599
+37 ;;21,"35691 ")
+38 ;;600
+39 ;;21,"35694 ")
+40 ;;601
+41 ;;21,"35695 ")
+42 ;;602
+43 ;;21,"35870 ")
+44 ;;603
+45 ;;21,"36834 ")
+46 ;;604
+47 ;;21,"37140 ")
+48 ;;605
+49 ;;21,"37145 ")
+50 ;;606
+51 ;;21,"37160 ")
+52 ;;607
+53 ;;21,"37180 ")
+54 ;;608
+55 ;;21,"37181 ")
+56 ;;609
+57 ;;21,"37190 ")
+58 ;;610
+59 ;;21,"37204 ")
+60 ;;611
+61 ;;21,"37788 ")
+62 ;;612
+63 ;;21,"38240 ")
+64 ;;613
+65 ;;21,"38241 ")
+66 ;;614
+67 ;;21,"38720 ")
+68 ;;615
+69 ;;21,"38724 ")
+70 ;;616
+71 ;;21,"38765 ")
+72 ;;617
+73 ;;21,"38770 ")
+74 ;;618
+75 ;;21,"38780 ")
+76 ;;619
+77 ;;21,"39220 ")
+78 ;;620
+79 ;;21,"39502 ")
+80 ;;621
+81 ;;21,"39503 ")
+82 ;;622
+83 ;;21,"39520 ")
+84 ;;623
+85 ;;21,"39530 ")
+86 ;;624
+87 ;;21,"39531 ")
+88 ;;625
+89 ;;21,"39541 ")
+90 ;;626
+91 ;;21,"40701 ")
+92 ;;627
+93 ;;21,"40844 ")
+94 ;;628
+95 ;;21,"40845 ")
+96 ;;629
+97 ;;21,"41135 ")
+98 ;;630
+99 ;;21,"41140 ")
+100 ;;631
+101 ;;21,"41145 ")
+102 ;;632
+103 ;;21,"41150 ")
+104 ;;633
+105 ;;21,"41153 ")
+106 ;;634
+107 ;;21,"41155 ")
+108 ;;635
+109 ;;21,"42415 ")
+110 ;;636
+111 ;;21,"42420 ")
+112 ;;637
+113 ;;21,"42426 ")
+114 ;;638
+115 ;;21,"42845 ")
+116 ;;639
+117 ;;21,"42894 ")
+118 ;;640
+119 ;;21,"43045 ")
+120 ;;641
+121 ;;21,"43105 ")
+122 ;;642
+123 ;;21,"43106 ")
+124 ;;643
+125 ;;21,"43107 ")
+126 ;;644
+127 ;;21,"43108 ")
+128 ;;645
+129 ;;21,"43110 ")
+130 ;;646
+131 ;;21,"43111 ")
+132 ;;647
+133 ;;21,"43112 ")
+134 ;;648
+135 ;;21,"43113 ")
+136 ;;649
+137 ;;21,"43115 ")
+138 ;;650
+139 ;;21,"43116 ")
+140 ;;651
+141 ;;21,"43117 ")
+142 ;;652
+143 ;;21,"43118 ")
+144 ;;653
+145 ;;21,"43119 ")
+146 ;;654
+147 ;;21,"43120 ")
+148 ;;655
+149 ;;21,"43121 ")
+150 ;;656
+151 ;;21,"43122 ")
+152 ;;657
+153 ;;21,"43123 ")
+154 ;;658
+155 ;;21,"43124 ")
+156 ;;659
+157 ;;21,"43135 ")
+158 ;;660
+159 ;;21,"43305 ")
+160 ;;661
+161 ;;21,"43310 ")
+162 ;;662
+163 ;;21,"43312 ")
+164 ;;663
+165 ;;21,"43320 ")
+166 ;;664
+167 ;;21,"43321 ")
+168 ;;665
+169 ;;21,"43324 ")
+170 ;;666
+171 ;;21,"43325 ")
+172 ;;667
+173 ;;21,"43330 ")
+174 ;;668
+175 ;;21,"43331 ")
+176 ;;669
+177 ;;21,"43340 ")
+178 ;;670
+179 ;;21,"43360 ")
+180 ;;671
+181 ;;21,"43361 ")
+182 ;;672
+183 ;;21,"43400 ")
+184 ;;673
+185 ;;21,"43401 ")
+186 ;;674
+187 ;;21,"43405 ")
+188 ;;675
+189 ;;21,"43415 ")
+190 ;;676
+191 ;;21,"43425 ")
+192 ;;677
+193 ;;21,"43501 ")
+194 ;;678
+195 ;;21,"43502 ")
+196 ;;679
+197 ;;21,"43620 ")
+198 ;;680
+199 ;;21,"43621 ")
+200 ;;681
+201 ;;21,"43622 ")
+202 ;;682
+203 ;;21,"43631 ")
+204 ;;683
+205 ;;21,"43632 ")
+206 ;;684
+207 ;;21,"43633 ")
+208 ;;685
+209 ;;21,"43634 ")
+210 ;;686
+211 ;;21,"43638 ")
+212 ;;687
+213 ;;21,"43639 ")
+214 ;;688
+215 ;;21,"43640 ")
+216 ;;689
+217 ;;21,"43825 ")
+218 ;;690
+219 ;;21,"43842 ")
+220 ;;691
+221 ;;21,"43843 ")
+222 ;;692
+223 ;;21,"43846 ")
+224 ;;693
+225 ;;21,"43847 ")
+226 ;;694
+227 ;;21,"43848 ")
+228 ;;695
+229 ;;21,"43850 ")
+230 ;;696
+231 ;;21,"43855 ")
+232 ;;697
+233 ;;21,"43860 ")
+234 ;;698
+235 ;;21,"43865 ")
+236 ;;699
+237 ;;21,"43880 ")
+238 ;;700
+239 ;;21,"44040 ")
+240 ;;701
+241 ;;21,"44125 ")
+242 ;;702
+243 ;;21,"44140 ")
+244 ;;703
+245 ;;21,"44141 ")
+246 ;;704
+247 ;;21,"44143 ")
+248 ;;705
+249 ;;21,"44144 ")
+250 ;;706
+251 ;;21,"44145 ")
+252 ;;707
+253 ;;21,"44146 ")
+254 ;;708
+255 ;;21,"44147 ")
+256 ;;709
+257 ;;21,"44150 ")
+258 ;;710
+259 ;;21,"44151 ")
+260 ;;711
+261 ;;21,"44152 ")
+262 ;;712
+263 ;;21,"44153 ")
+264 ;;713
+265 ;;21,"44155 ")
+266 ;;714
+267 ;;21,"44156 ")
+268 ;;715
+269 ;;21,"44160 ")
+270 ;;716
+271 ;;21,"44603 ")
+272 ;;717
+273 ;;21,"44605 ")
+274 ;;718
+275 ;;21,"44661 ")
+276 ;;719
+277 ;;21,"44680 ")
+278 ;;720
+279 ;;21,"45110 ")
+280 ;;721
+281 ;;21,"45111 ")
+282 ;;722
+283 ;;21,"45112 ")
+284 ;;723
+285 ;;21,"45113 ")
+286 ;;724
+287 ;;21,"45114 ")
+288 ;;725
+289 ;;21,"45116 ")
+290 ;;726
+291 ;;21,"45120 ")
+292 ;;727
+293 ;;21,"45121 ")
+294 ;;728
+295 ;;21,"45123 ")
+296 ;;729
+297 ;;21,"45135 ")
+298 ;;730
+299 ;;21,"45540 ")
+300 ;;731
+301 ;;21,"45550 ")
+302 ;;732
+303 ;;21,"45563 ")
+304 ;;733
+305 ;;21,"45805 ")
+306 ;;734
+307 ;;21,"45825 ")
+308 ;;735
+309 ;;21,"46730 ")
+310 ;;736
+311 ;;21,"46735 ")
+312 ;;737
+313 ;;21,"46740 ")
+314 ;;738
+315 ;;21,"46742 ")
+316 ;;739
+317 ;;21,"46744 ")
+318 ;;740
+319 ;;21,"46746 ")
+320 ;;741
+321 ;;21,"46748 ")
+322 ;;742
+323 ;;21,"47120 ")
+324 ;;743
+325 ;;21,"47122 ")
+326 ;;744
+327 ;;21,"47125 ")
+328 ;;745
+329 ;;21,"47130 ")
+330 ;;746
+331 ;;21,"47134 ")
+332 ;;747
+333 ;;21,"47135 ")
+334 ;;748
+335 ;;21,"47136 ")
+336 ;;749
+337 ;;21,"47360 ")
+338 ;;750
+339 ;;21,"47400 ")
+340 ;;751
+341 ;;21,"47420 ")
+342 ;;752
+343 ;;21,"47425 ")
+344 ;;753
+345 ;;21,"47440 ")
+346 ;;754
+347 ;;21,"47460 ")
+348 ;;755
+349 ;;21,"47612 ")
+350 ;;756
+351 ;;21,"47620 ")
+352 ;;757
+353 ;;21,"47701 ")
+354 ;;758
+355 ;;21,"47710 ")
+356 ;;759
+357 ;;21,"47711 ")
+358 ;;760
+359 ;;21,"47712 ")
+360 ;;761
+361 ;;21,"47721 ")
+362 ;;762
+363 ;;21,"47740 ")
+364 ;;763
+365 ;;21,"47741 ")
+366 ;;764
+367 ;;21,"47760 ")
+368 ;;765
+369 ;;21,"47765 ")
+370 ;;766
+371 ;;21,"47780 ")
+372 ;;767
+373 ;;21,"47785 ")
+374 ;;768
+375 ;;21,"47800 ")
+376 ;;769
+377 ;;21,"47802 ")
+378 ;;770
+379 ;;21,"47900 ")
+380 ;;771
+381 ;;21,"48005 ")
+382 ;;772
+383 ;;21,"48120 ")
+384 ;;773
+385 ;;21,"48140 ")
+386 ;;774
+387 ;;21,"48145 ")
+388 ;;775
+389 ;;21,"48146 ")
+390 ;;776
