- BMCTXEL ; 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)
- ;;9002226.02101,"123,35111 ",.01)
- ;;35111
- ;;9002226.02101,"123,35112 ",.01)
- ;;35112
- ;;9002226.02101,"123,35121 ",.01)
- ;;35121
- ;;9002226.02101,"123,35122 ",.01)
- ;;35122
- ;;9002226.02101,"123,35131 ",.01)
- ;;35131
- ;;9002226.02101,"123,35132 ",.01)
- ;;35132
- ;;9002226.02101,"123,35141 ",.01)
- ;;35141
- ;;9002226.02101,"123,35142 ",.01)
- ;;35142
- ;;9002226.02101,"123,35151 ",.01)
- ;;35151
- ;;9002226.02101,"123,35161 ",.01)
- ;;35161
- ;;9002226.02101,"123,35162 ",.01)
- ;;35162
- ;;9002226.02101,"123,35182 ",.01)
- ;;35182
- ;;9002226.02101,"123,35188 ",.01)
- ;;35188
- ;;9002226.02101,"123,35189 ",.01)
- ;;35189
- ;;9002226.02101,"123,35211 ",.01)
- ;;35211
- ;;9002226.02101,"123,35216 ",.01)
- ;;35216
- ;;9002226.02101,"123,35221 ",.01)
- ;;35221
- ;;9002226.02101,"123,35231 ",.01)
- ;;35231
- ;;9002226.02101,"123,35241 ",.01)
- ;;35241
- ;;9002226.02101,"123,35246 ",.01)
- ;;35246
- ;;9002226.02101,"123,35251 ",.01)
- ;;35251
- ;;9002226.02101,"123,35256 ",.01)
- ;;35256
- ;;9002226.02101,"123,35271 ",.01)
- ;;35271
- ;;9002226.02101,"123,35276 ",.01)
- ;;35276
- ;;9002226.02101,"123,35281 ",.01)
- ;;35281
- ;;9002226.02101,"123,35286 ",.01)
- ;;35286
- ;;9002226.02101,"123,35301 ",.01)
- ;;35301
- ;;9002226.02101,"123,35311 ",.01)
- ;;35311
- ;;9002226.02101,"123,35321 ",.01)
- ;;35321
- ;;9002226.02101,"123,35331 ",.01)
- ;;35331
- ;;9002226.02101,"123,35341 ",.01)
- ;;35341
- ;;9002226.02101,"123,35351 ",.01)
- ;;35351
- ;;9002226.02101,"123,35355 ",.01)
- ;;35355
- ;;9002226.02101,"123,35361 ",.01)
- ;;35361
- ;;9002226.02101,"123,35363 ",.01)
- ;;35363
- ;;9002226.02101,"123,35371 ",.01)
- ;;35371
- ;;9002226.02101,"123,35372 ",.01)
- ;;35372
- ;;9002226.02101,"123,35381 ",.01)
- ;;35381
- ;;9002226.02101,"123,35501 ",.01)
- ;;35501
- ;;9002226.02101,"123,35506 ",.01)
- ;;35506
- ;;9002226.02101,"123,35507 ",.01)
- ;;35507
- ;;9002226.02101,"123,35508 ",.01)
- ;;35508
- ;;9002226.02101,"123,35509 ",.01)
- ;;35509
- ;;9002226.02101,"123,35511 ",.01)
- ;;35511
- ;;9002226.02101,"123,35515 ",.01)
- ;;35515
- ;;9002226.02101,"123,35516 ",.01)
- ;;35516
- ;;9002226.02101,"123,35518 ",.01)
- ;;35518
- ;;9002226.02101,"123,35521 ",.01)
- ;;35521
- ;;9002226.02101,"123,35526 ",.01)
- ;;35526
- ;;9002226.02101,"123,35531 ",.01)
- ;;35531
- ;;9002226.02101,"123,35533 ",.01)
- ;;35533
- ;;9002226.02101,"123,35536 ",.01)
- ;;35536
- ;;9002226.02101,"123,35541 ",.01)
- ;;35541
- ;;9002226.02101,"123,35546 ",.01)
- ;;35546
- ;;9002226.02101,"123,35548 ",.01)
- ;;35548
- ;;9002226.02101,"123,35549 ",.01)
- ;;35549
- ;;9002226.02101,"123,35551 ",.01)
- ;;35551
- ;;9002226.02101,"123,35556 ",.01)
- ;;35556
- ;;9002226.02101,"123,35558 ",.01)
- ;;35558
- ;;9002226.02101,"123,35560 ",.01)
- ;;35560
- ;;9002226.02101,"123,35565 ",.01)
- ;;35565
- ;;9002226.02101,"123,35566 ",.01)
- ;;35566
- ;;9002226.02101,"123,35571 ",.01)
- ;;35571
- ;;9002226.02101,"123,35582 ",.01)
- ;;35582
- ;;9002226.02101,"123,35583 ",.01)
- ;;35583
- ;;9002226.02101,"123,35585 ",.01)
- ;;35585
- ;;9002226.02101,"123,35587 ",.01)
- ;;35587
- ;;9002226.02101,"123,35601 ",.01)
- ;;35601
- ;;9002226.02101,"123,35606 ",.01)
- ;;35606
- ;;9002226.02101,"123,35612 ",.01)
- ;;35612
- ;;9002226.02101,"123,35616 ",.01)
- ;;35616
- ;;9002226.02101,"123,35621 ",.01)
- ;;35621
- ;;9002226.02101,"123,35626 ",.01)
- ;;35626
- ;;9002226.02101,"123,35631 ",.01)
- ;;35631
- ;;9002226.02101,"123,35636 ",.01)
- ;;35636
- ;;9002226.02101,"123,35641 ",.01)
- ;;35641
- ;;9002226.02101,"123,35642 ",.01)
- ;;35642
- ;;9002226.02101,"123,35645 ",.01)
- ;;35645
- ;;9002226.02101,"123,35646 ",.01)
- ;;35646
- ;;9002226.02101,"123,35650 ",.01)
- ;;35650
- ;;9002226.02101,"123,35651 ",.01)
- ;;35651
- ;;9002226.02101,"123,35654 ",.01)
- ;;35654
- ;;9002226.02101,"123,35656 ",.01)
- ;;35656
- ;;9002226.02101,"123,35661 ",.01)
- ;;35661
- ;;9002226.02101,"123,35663 ",.01)
- ;;35663
- ;;9002226.02101,"123,35665 ",.01)
- ;;35665
- ;;9002226.02101,"123,35666 ",.01)
- ;;35666
- ;;9002226.02101,"123,35671 ",.01)
- ;;35671
- ;;9002226.02101,"123,35691 ",.01)
- ;;35691
- ;;9002226.02101,"123,35694 ",.01)
- ;;35694
- ;;9002226.02101,"123,35695 ",.01)
- ;;35695
- ;;9002226.02101,"123,35870 ",.01)
- ;;35870
- ;;9002226.02101,"123,36834 ",.01)
- ;;36834
- ;;9002226.02101,"123,37140 ",.01)
- ;;37140
- ;;9002226.02101,"123,37145 ",.01)
- ;;37145
- ;;9002226.02101,"123,37160 ",.01)
- ;;37160
- ;;9002226.02101,"123,37180 ",.01)
- ;;37180
- ;;9002226.02101,"123,37181 ",.01)
- ;;37181
- ;;9002226.02101,"123,37190 ",.01)
- ;;37190
- ;;9002226.02101,"123,37204 ",.01)
- ;;37204
- ;;9002226.02101,"123,37788 ",.01)
- ;;37788
- ;;9002226.02101,"123,38240 ",.01)
- ;;38240
- ;;9002226.02101,"123,38241 ",.01)
- ;;38241
- ;;9002226.02101,"123,38720 ",.01)
- ;;38720
- ;;9002226.02101,"123,38724 ",.01)
- ;;38724
- ;;9002226.02101,"123,38765 ",.01)
- ;;38765
- ;;9002226.02101,"123,38770 ",.01)
- ;;38770
- ;;9002226.02101,"123,38780 ",.01)
- ;;38780
- ;;9002226.02101,"123,39220 ",.01)
- ;;39220
- ;;9002226.02101,"123,39502 ",.01)
- ;;39502
- ;;9002226.02101,"123,39503 ",.01)
- ;;39503
- ;;9002226.02101,"123,39520 ",.01)
- ;;39520
- ;;9002226.02101,"123,39530 ",.01)
- ;;39530
- BMCTXEL ; 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 ;;9002226.02101,"123,35111 ",.01)
- +2 ;;35111
- +3 ;;9002226.02101,"123,35112 ",.01)
- +4 ;;35112
- +5 ;;9002226.02101,"123,35121 ",.01)
- +6 ;;35121
- +7 ;;9002226.02101,"123,35122 ",.01)
- +8 ;;35122
- +9 ;;9002226.02101,"123,35131 ",.01)
- +10 ;;35131
- +11 ;;9002226.02101,"123,35132 ",.01)
- +12 ;;35132
- +13 ;;9002226.02101,"123,35141 ",.01)
- +14 ;;35141
- +15 ;;9002226.02101,"123,35142 ",.01)
- +16 ;;35142
- +17 ;;9002226.02101,"123,35151 ",.01)
- +18 ;;35151
- +19 ;;9002226.02101,"123,35161 ",.01)
- +20 ;;35161
- +21 ;;9002226.02101,"123,35162 ",.01)
- +22 ;;35162
- +23 ;;9002226.02101,"123,35182 ",.01)
- +24 ;;35182
- +25 ;;9002226.02101,"123,35188 ",.01)
- +26 ;;35188
- +27 ;;9002226.02101,"123,35189 ",.01)
- +28 ;;35189
- +29 ;;9002226.02101,"123,35211 ",.01)
- +30 ;;35211
- +31 ;;9002226.02101,"123,35216 ",.01)
- +32 ;;35216
- +33 ;;9002226.02101,"123,35221 ",.01)
- +34 ;;35221
- +35 ;;9002226.02101,"123,35231 ",.01)
- +36 ;;35231
- +37 ;;9002226.02101,"123,35241 ",.01)
- +38 ;;35241
- +39 ;;9002226.02101,"123,35246 ",.01)
- +40 ;;35246
- +41 ;;9002226.02101,"123,35251 ",.01)
- +42 ;;35251
- +43 ;;9002226.02101,"123,35256 ",.01)
- +44 ;;35256
- +45 ;;9002226.02101,"123,35271 ",.01)
- +46 ;;35271
- +47 ;;9002226.02101,"123,35276 ",.01)
- +48 ;;35276
- +49 ;;9002226.02101,"123,35281 ",.01)
- +50 ;;35281
- +51 ;;9002226.02101,"123,35286 ",.01)
- +52 ;;35286
- +53 ;;9002226.02101,"123,35301 ",.01)
- +54 ;;35301
- +55 ;;9002226.02101,"123,35311 ",.01)
- +56 ;;35311
- +57 ;;9002226.02101,"123,35321 ",.01)
- +58 ;;35321
- +59 ;;9002226.02101,"123,35331 ",.01)
- +60 ;;35331
- +61 ;;9002226.02101,"123,35341 ",.01)
- +62 ;;35341
- +63 ;;9002226.02101,"123,35351 ",.01)
- +64 ;;35351
- +65 ;;9002226.02101,"123,35355 ",.01)
- +66 ;;35355
- +67 ;;9002226.02101,"123,35361 ",.01)
- +68 ;;35361
- +69 ;;9002226.02101,"123,35363 ",.01)
- +70 ;;35363
- +71 ;;9002226.02101,"123,35371 ",.01)
- +72 ;;35371
- +73 ;;9002226.02101,"123,35372 ",.01)
- +74 ;;35372
- +75 ;;9002226.02101,"123,35381 ",.01)
- +76 ;;35381
- +77 ;;9002226.02101,"123,35501 ",.01)
- +78 ;;35501
- +79 ;;9002226.02101,"123,35506 ",.01)
- +80 ;;35506
- +81 ;;9002226.02101,"123,35507 ",.01)
- +82 ;;35507
- +83 ;;9002226.02101,"123,35508 ",.01)
- +84 ;;35508
- +85 ;;9002226.02101,"123,35509 ",.01)
- +86 ;;35509
- +87 ;;9002226.02101,"123,35511 ",.01)
- +88 ;;35511
- +89 ;;9002226.02101,"123,35515 ",.01)
- +90 ;;35515
- +91 ;;9002226.02101,"123,35516 ",.01)
- +92 ;;35516
- +93 ;;9002226.02101,"123,35518 ",.01)
- +94 ;;35518
- +95 ;;9002226.02101,"123,35521 ",.01)
- +96 ;;35521
- +97 ;;9002226.02101,"123,35526 ",.01)
- +98 ;;35526
- +99 ;;9002226.02101,"123,35531 ",.01)
- +100 ;;35531
- +101 ;;9002226.02101,"123,35533 ",.01)
- +102 ;;35533
- +103 ;;9002226.02101,"123,35536 ",.01)
- +104 ;;35536
- +105 ;;9002226.02101,"123,35541 ",.01)
- +106 ;;35541
- +107 ;;9002226.02101,"123,35546 ",.01)
- +108 ;;35546
- +109 ;;9002226.02101,"123,35548 ",.01)
- +110 ;;35548
- +111 ;;9002226.02101,"123,35549 ",.01)
- +112 ;;35549
- +113 ;;9002226.02101,"123,35551 ",.01)
- +114 ;;35551
- +115 ;;9002226.02101,"123,35556 ",.01)
- +116 ;;35556
- +117 ;;9002226.02101,"123,35558 ",.01)
- +118 ;;35558
- +119 ;;9002226.02101,"123,35560 ",.01)
- +120 ;;35560
- +121 ;;9002226.02101,"123,35565 ",.01)
- +122 ;;35565
- +123 ;;9002226.02101,"123,35566 ",.01)
- +124 ;;35566
- +125 ;;9002226.02101,"123,35571 ",.01)
- +126 ;;35571
- +127 ;;9002226.02101,"123,35582 ",.01)
- +128 ;;35582
- +129 ;;9002226.02101,"123,35583 ",.01)
- +130 ;;35583
- +131 ;;9002226.02101,"123,35585 ",.01)
- +132 ;;35585
- +133 ;;9002226.02101,"123,35587 ",.01)
- +134 ;;35587
- +135 ;;9002226.02101,"123,35601 ",.01)
- +136 ;;35601
- +137 ;;9002226.02101,"123,35606 ",.01)
- +138 ;;35606
- +139 ;;9002226.02101,"123,35612 ",.01)
- +140 ;;35612
- +141 ;;9002226.02101,"123,35616 ",.01)
- +142 ;;35616
- +143 ;;9002226.02101,"123,35621 ",.01)
- +144 ;;35621
- +145 ;;9002226.02101,"123,35626 ",.01)
- +146 ;;35626
- +147 ;;9002226.02101,"123,35631 ",.01)
- +148 ;;35631
- +149 ;;9002226.02101,"123,35636 ",.01)
- +150 ;;35636
- +151 ;;9002226.02101,"123,35641 ",.01)
- +152 ;;35641
- +153 ;;9002226.02101,"123,35642 ",.01)
- +154 ;;35642
- +155 ;;9002226.02101,"123,35645 ",.01)
- +156 ;;35645
- +157 ;;9002226.02101,"123,35646 ",.01)
- +158 ;;35646
- +159 ;;9002226.02101,"123,35650 ",.01)
- +160 ;;35650
- +161 ;;9002226.02101,"123,35651 ",.01)
- +162 ;;35651
- +163 ;;9002226.02101,"123,35654 ",.01)
- +164 ;;35654
- +165 ;;9002226.02101,"123,35656 ",.01)
- +166 ;;35656
- +167 ;;9002226.02101,"123,35661 ",.01)
- +168 ;;35661
- +169 ;;9002226.02101,"123,35663 ",.01)
- +170 ;;35663
- +171 ;;9002226.02101,"123,35665 ",.01)
- +172 ;;35665
- +173 ;;9002226.02101,"123,35666 ",.01)
- +174 ;;35666
- +175 ;;9002226.02101,"123,35671 ",.01)
- +176 ;;35671
- +177 ;;9002226.02101,"123,35691 ",.01)
- +178 ;;35691
- +179 ;;9002226.02101,"123,35694 ",.01)
- +180 ;;35694
- +181 ;;9002226.02101,"123,35695 ",.01)
- +182 ;;35695
- +183 ;;9002226.02101,"123,35870 ",.01)
- +184 ;;35870
- +185 ;;9002226.02101,"123,36834 ",.01)
- +186 ;;36834
- +187 ;;9002226.02101,"123,37140 ",.01)
- +188 ;;37140
- +189 ;;9002226.02101,"123,37145 ",.01)
- +190 ;;37145
- +191 ;;9002226.02101,"123,37160 ",.01)
- +192 ;;37160
- +193 ;;9002226.02101,"123,37180 ",.01)
- +194 ;;37180
- +195 ;;9002226.02101,"123,37181 ",.01)
- +196 ;;37181
- +197 ;;9002226.02101,"123,37190 ",.01)
- +198 ;;37190
- +199 ;;9002226.02101,"123,37204 ",.01)
- +200 ;;37204
- +201 ;;9002226.02101,"123,37788 ",.01)
- +202 ;;37788
- +203 ;;9002226.02101,"123,38240 ",.01)
- +204 ;;38240
- +205 ;;9002226.02101,"123,38241 ",.01)
- +206 ;;38241
- +207 ;;9002226.02101,"123,38720 ",.01)
- +208 ;;38720
- +209 ;;9002226.02101,"123,38724 ",.01)
- +210 ;;38724
- +211 ;;9002226.02101,"123,38765 ",.01)
- +212 ;;38765
- +213 ;;9002226.02101,"123,38770 ",.01)
- +214 ;;38770
- +215 ;;9002226.02101,"123,38780 ",.01)
- +216 ;;38780
- +217 ;;9002226.02101,"123,39220 ",.01)
- +218 ;;39220
- +219 ;;9002226.02101,"123,39502 ",.01)
- +220 ;;39502
- +221 ;;9002226.02101,"123,39503 ",.01)
- +222 ;;39503
- +223 ;;9002226.02101,"123,39520 ",.01)
- +224 ;;39520
- +225 ;;9002226.02101,"123,39530 ",.01)
- +226 ;;39530