BMCTXEK ; 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,33521 ",.01)
;;33521
;;9002226.02101,"123,33522 ",.01)
;;33522
;;9002226.02101,"123,33523 ",.01)
;;33523
;;9002226.02101,"123,33533 ",.01)
;;33533
;;9002226.02101,"123,33534 ",.01)
;;33534
;;9002226.02101,"123,33535 ",.01)
;;33535
;;9002226.02101,"123,33536 ",.01)
;;33536
;;9002226.02101,"123,33542 ",.01)
;;33542
;;9002226.02101,"123,33545 ",.01)
;;33545
;;9002226.02101,"123,33570 ",.01)
;;33570
;;9002226.02101,"123,33600 ",.01)
;;33600
;;9002226.02101,"123,33602 ",.01)
;;33602
;;9002226.02101,"123,33606 ",.01)
;;33606
;;9002226.02101,"123,33608 ",.01)
;;33608
;;9002226.02101,"123,33610 ",.01)
;;33610
;;9002226.02101,"123,33611 ",.01)
;;33611
;;9002226.02101,"123,33612 ",.01)
;;33612
;;9002226.02101,"123,33615 ",.01)
;;33615
;;9002226.02101,"123,33617 ",.01)
;;33617
;;9002226.02101,"123,33619 ",.01)
;;33619
;;9002226.02101,"123,33641 ",.01)
;;33641
;;9002226.02101,"123,33645 ",.01)
;;33645
;;9002226.02101,"123,33647 ",.01)
;;33647
;;9002226.02101,"123,33660 ",.01)
;;33660
;;9002226.02101,"123,33665 ",.01)
;;33665
;;9002226.02101,"123,33670 ",.01)
;;33670
;;9002226.02101,"123,33681 ",.01)
;;33681
;;9002226.02101,"123,33684 ",.01)
;;33684
;;9002226.02101,"123,33688 ",.01)
;;33688
;;9002226.02101,"123,33690 ",.01)
;;33690
;;9002226.02101,"123,33692 ",.01)
;;33692
;;9002226.02101,"123,33694 ",.01)
;;33694
;;9002226.02101,"123,33696 ",.01)
;;33696
;;9002226.02101,"123,33697 ",.01)
;;33697
;;9002226.02101,"123,33698 ",.01)
;;33698
;;9002226.02101,"123,33702 ",.01)
;;33702
;;9002226.02101,"123,33710 ",.01)
;;33710
;;9002226.02101,"123,33720 ",.01)
;;33720
;;9002226.02101,"123,33722 ",.01)
;;33722
;;9002226.02101,"123,33730 ",.01)
;;33730
;;9002226.02101,"123,33732 ",.01)
;;33732
;;9002226.02101,"123,33735 ",.01)
;;33735
;;9002226.02101,"123,33736 ",.01)
;;33736
;;9002226.02101,"123,33737 ",.01)
;;33737
;;9002226.02101,"123,33750 ",.01)
;;33750
;;9002226.02101,"123,33755 ",.01)
;;33755
;;9002226.02101,"123,33762 ",.01)
;;33762
;;9002226.02101,"123,33764 ",.01)
;;33764
;;9002226.02101,"123,33766 ",.01)
;;33766
;;9002226.02101,"123,33767 ",.01)
;;33767
;;9002226.02101,"123,33770 ",.01)
;;33770
;;9002226.02101,"123,33771 ",.01)
;;33771
;;9002226.02101,"123,33774 ",.01)
;;33774
;;9002226.02101,"123,33775 ",.01)
;;33775
;;9002226.02101,"123,33776 ",.01)
;;33776
;;9002226.02101,"123,33777 ",.01)
;;33777
;;9002226.02101,"123,33778 ",.01)
;;33778
;;9002226.02101,"123,33779 ",.01)
;;33779
;;9002226.02101,"123,33780 ",.01)
;;33780
;;9002226.02101,"123,33781 ",.01)
;;33781
;;9002226.02101,"123,33786 ",.01)
;;33786
;;9002226.02101,"123,33788 ",.01)
;;33788
;;9002226.02101,"123,33800 ",.01)
;;33800
;;9002226.02101,"123,33802 ",.01)
;;33802
;;9002226.02101,"123,33803 ",.01)
;;33803
;;9002226.02101,"123,33813 ",.01)
;;33813
;;9002226.02101,"123,33814 ",.01)
;;33814
;;9002226.02101,"123,33820 ",.01)
;;33820
;;9002226.02101,"123,33822 ",.01)
;;33822
;;9002226.02101,"123,33824 ",.01)
;;33824
;;9002226.02101,"123,33840 ",.01)
;;33840
;;9002226.02101,"123,33845 ",.01)
;;33845
;;9002226.02101,"123,33851 ",.01)
;;33851
;;9002226.02101,"123,33852 ",.01)
;;33852
;;9002226.02101,"123,33853 ",.01)
;;33853
;;9002226.02101,"123,33860 ",.01)
;;33860
;;9002226.02101,"123,33861 ",.01)
;;33861
;;9002226.02101,"123,33863 ",.01)
;;33863
;;9002226.02101,"123,33870 ",.01)
;;33870
;;9002226.02101,"123,33875 ",.01)
;;33875
;;9002226.02101,"123,33877 ",.01)
;;33877
;;9002226.02101,"123,33910 ",.01)
;;33910
;;9002226.02101,"123,33915 ",.01)
;;33915
;;9002226.02101,"123,33916 ",.01)
;;33916
;;9002226.02101,"123,33917 ",.01)
;;33917
;;9002226.02101,"123,33918 ",.01)
;;33918
;;9002226.02101,"123,33919 ",.01)
;;33919
;;9002226.02101,"123,33920 ",.01)
;;33920
;;9002226.02101,"123,33922 ",.01)
;;33922
;;9002226.02101,"123,33935 ",.01)
;;33935
;;9002226.02101,"123,33945 ",.01)
;;33945
;;9002226.02101,"123,33960 ",.01)
;;33960
;;9002226.02101,"123,33975 ",.01)
;;33975
;;9002226.02101,"123,33976 ",.01)
;;33976
;;9002226.02101,"123,33977 ",.01)
;;33977
;;9002226.02101,"123,33978 ",.01)
;;33978
;;9002226.02101,"123,34151 ",.01)
;;34151
;;9002226.02101,"123,34502 ",.01)
;;34502
;;9002226.02101,"123,34530 ",.01)
;;34530
;;9002226.02101,"123,35001 ",.01)
;;35001
;;9002226.02101,"123,35002 ",.01)
;;35002
;;9002226.02101,"123,35005 ",.01)
;;35005
;;9002226.02101,"123,35011 ",.01)
;;35011
;;9002226.02101,"123,35013 ",.01)
;;35013
;;9002226.02101,"123,35021 ",.01)
;;35021
;;9002226.02101,"123,35022 ",.01)
;;35022
;;9002226.02101,"123,35045 ",.01)
;;35045
;;9002226.02101,"123,35081 ",.01)
;;35081
;;9002226.02101,"123,35082 ",.01)
;;35082
;;9002226.02101,"123,35091 ",.01)
;;35091
;;9002226.02101,"123,35092 ",.01)
;;35092
;;9002226.02101,"123,35102 ",.01)
;;35102
;;9002226.02101,"123,35103 ",.01)
;;35103
BMCTXEK ; 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,33521 ",.01)
+2 ;;33521
+3 ;;9002226.02101,"123,33522 ",.01)
+4 ;;33522
+5 ;;9002226.02101,"123,33523 ",.01)
+6 ;;33523
+7 ;;9002226.02101,"123,33533 ",.01)
+8 ;;33533
+9 ;;9002226.02101,"123,33534 ",.01)
+10 ;;33534
+11 ;;9002226.02101,"123,33535 ",.01)
+12 ;;33535
+13 ;;9002226.02101,"123,33536 ",.01)
+14 ;;33536
+15 ;;9002226.02101,"123,33542 ",.01)
+16 ;;33542
+17 ;;9002226.02101,"123,33545 ",.01)
+18 ;;33545
+19 ;;9002226.02101,"123,33570 ",.01)
+20 ;;33570
+21 ;;9002226.02101,"123,33600 ",.01)
+22 ;;33600
+23 ;;9002226.02101,"123,33602 ",.01)
+24 ;;33602
+25 ;;9002226.02101,"123,33606 ",.01)
+26 ;;33606
+27 ;;9002226.02101,"123,33608 ",.01)
+28 ;;33608
+29 ;;9002226.02101,"123,33610 ",.01)
+30 ;;33610
+31 ;;9002226.02101,"123,33611 ",.01)
+32 ;;33611
+33 ;;9002226.02101,"123,33612 ",.01)
+34 ;;33612
+35 ;;9002226.02101,"123,33615 ",.01)
+36 ;;33615
+37 ;;9002226.02101,"123,33617 ",.01)
+38 ;;33617
+39 ;;9002226.02101,"123,33619 ",.01)
+40 ;;33619
+41 ;;9002226.02101,"123,33641 ",.01)
+42 ;;33641
+43 ;;9002226.02101,"123,33645 ",.01)
+44 ;;33645
+45 ;;9002226.02101,"123,33647 ",.01)
+46 ;;33647
+47 ;;9002226.02101,"123,33660 ",.01)
+48 ;;33660
+49 ;;9002226.02101,"123,33665 ",.01)
+50 ;;33665
+51 ;;9002226.02101,"123,33670 ",.01)
+52 ;;33670
+53 ;;9002226.02101,"123,33681 ",.01)
+54 ;;33681
+55 ;;9002226.02101,"123,33684 ",.01)
+56 ;;33684
+57 ;;9002226.02101,"123,33688 ",.01)
+58 ;;33688
+59 ;;9002226.02101,"123,33690 ",.01)
+60 ;;33690
+61 ;;9002226.02101,"123,33692 ",.01)
+62 ;;33692
+63 ;;9002226.02101,"123,33694 ",.01)
+64 ;;33694
+65 ;;9002226.02101,"123,33696 ",.01)
+66 ;;33696
+67 ;;9002226.02101,"123,33697 ",.01)
+68 ;;33697
+69 ;;9002226.02101,"123,33698 ",.01)
+70 ;;33698
+71 ;;9002226.02101,"123,33702 ",.01)
+72 ;;33702
+73 ;;9002226.02101,"123,33710 ",.01)
+74 ;;33710
+75 ;;9002226.02101,"123,33720 ",.01)
+76 ;;33720
+77 ;;9002226.02101,"123,33722 ",.01)
+78 ;;33722
+79 ;;9002226.02101,"123,33730 ",.01)
+80 ;;33730
+81 ;;9002226.02101,"123,33732 ",.01)
+82 ;;33732
+83 ;;9002226.02101,"123,33735 ",.01)
+84 ;;33735
+85 ;;9002226.02101,"123,33736 ",.01)
+86 ;;33736
+87 ;;9002226.02101,"123,33737 ",.01)
+88 ;;33737
+89 ;;9002226.02101,"123,33750 ",.01)
+90 ;;33750
+91 ;;9002226.02101,"123,33755 ",.01)
+92 ;;33755
+93 ;;9002226.02101,"123,33762 ",.01)
+94 ;;33762
+95 ;;9002226.02101,"123,33764 ",.01)
+96 ;;33764
+97 ;;9002226.02101,"123,33766 ",.01)
+98 ;;33766
+99 ;;9002226.02101,"123,33767 ",.01)
+100 ;;33767
+101 ;;9002226.02101,"123,33770 ",.01)
+102 ;;33770
+103 ;;9002226.02101,"123,33771 ",.01)
+104 ;;33771
+105 ;;9002226.02101,"123,33774 ",.01)
+106 ;;33774
+107 ;;9002226.02101,"123,33775 ",.01)
+108 ;;33775
+109 ;;9002226.02101,"123,33776 ",.01)
+110 ;;33776
+111 ;;9002226.02101,"123,33777 ",.01)
+112 ;;33777
+113 ;;9002226.02101,"123,33778 ",.01)
+114 ;;33778
+115 ;;9002226.02101,"123,33779 ",.01)
+116 ;;33779
+117 ;;9002226.02101,"123,33780 ",.01)
+118 ;;33780
+119 ;;9002226.02101,"123,33781 ",.01)
+120 ;;33781
+121 ;;9002226.02101,"123,33786 ",.01)
+122 ;;33786
+123 ;;9002226.02101,"123,33788 ",.01)
+124 ;;33788
+125 ;;9002226.02101,"123,33800 ",.01)
+126 ;;33800
+127 ;;9002226.02101,"123,33802 ",.01)
+128 ;;33802
+129 ;;9002226.02101,"123,33803 ",.01)
+130 ;;33803
+131 ;;9002226.02101,"123,33813 ",.01)
+132 ;;33813
+133 ;;9002226.02101,"123,33814 ",.01)
+134 ;;33814
+135 ;;9002226.02101,"123,33820 ",.01)
+136 ;;33820
+137 ;;9002226.02101,"123,33822 ",.01)
+138 ;;33822
+139 ;;9002226.02101,"123,33824 ",.01)
+140 ;;33824
+141 ;;9002226.02101,"123,33840 ",.01)
+142 ;;33840
+143 ;;9002226.02101,"123,33845 ",.01)
+144 ;;33845
+145 ;;9002226.02101,"123,33851 ",.01)
+146 ;;33851
+147 ;;9002226.02101,"123,33852 ",.01)
+148 ;;33852
+149 ;;9002226.02101,"123,33853 ",.01)
+150 ;;33853
+151 ;;9002226.02101,"123,33860 ",.01)
+152 ;;33860
+153 ;;9002226.02101,"123,33861 ",.01)
+154 ;;33861
+155 ;;9002226.02101,"123,33863 ",.01)
+156 ;;33863
+157 ;;9002226.02101,"123,33870 ",.01)
+158 ;;33870
+159 ;;9002226.02101,"123,33875 ",.01)
+160 ;;33875
+161 ;;9002226.02101,"123,33877 ",.01)
+162 ;;33877
+163 ;;9002226.02101,"123,33910 ",.01)
+164 ;;33910
+165 ;;9002226.02101,"123,33915 ",.01)
+166 ;;33915
+167 ;;9002226.02101,"123,33916 ",.01)
+168 ;;33916
+169 ;;9002226.02101,"123,33917 ",.01)
+170 ;;33917
+171 ;;9002226.02101,"123,33918 ",.01)
+172 ;;33918
+173 ;;9002226.02101,"123,33919 ",.01)
+174 ;;33919
+175 ;;9002226.02101,"123,33920 ",.01)
+176 ;;33920
+177 ;;9002226.02101,"123,33922 ",.01)
+178 ;;33922
+179 ;;9002226.02101,"123,33935 ",.01)
+180 ;;33935
+181 ;;9002226.02101,"123,33945 ",.01)
+182 ;;33945
+183 ;;9002226.02101,"123,33960 ",.01)
+184 ;;33960
+185 ;;9002226.02101,"123,33975 ",.01)
+186 ;;33975
+187 ;;9002226.02101,"123,33976 ",.01)
+188 ;;33976
+189 ;;9002226.02101,"123,33977 ",.01)
+190 ;;33977
+191 ;;9002226.02101,"123,33978 ",.01)
+192 ;;33978
+193 ;;9002226.02101,"123,34151 ",.01)
+194 ;;34151
+195 ;;9002226.02101,"123,34502 ",.01)
+196 ;;34502
+197 ;;9002226.02101,"123,34530 ",.01)
+198 ;;34530
+199 ;;9002226.02101,"123,35001 ",.01)
+200 ;;35001
+201 ;;9002226.02101,"123,35002 ",.01)
+202 ;;35002
+203 ;;9002226.02101,"123,35005 ",.01)
+204 ;;35005
+205 ;;9002226.02101,"123,35011 ",.01)
+206 ;;35011
+207 ;;9002226.02101,"123,35013 ",.01)
+208 ;;35013
+209 ;;9002226.02101,"123,35021 ",.01)
+210 ;;35021
+211 ;;9002226.02101,"123,35022 ",.01)
+212 ;;35022
+213 ;;9002226.02101,"123,35045 ",.01)
+214 ;;35045
+215 ;;9002226.02101,"123,35081 ",.01)
+216 ;;35081
+217 ;;9002226.02101,"123,35082 ",.01)
+218 ;;35082
+219 ;;9002226.02101,"123,35091 ",.01)
+220 ;;35091
+221 ;;9002226.02101,"123,35092 ",.01)
+222 ;;35092
+223 ;;9002226.02101,"123,35102 ",.01)
+224 ;;35102
+225 ;;9002226.02101,"123,35103 ",.01)
+226 ;;35103
