- 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