BMCTXFB ; 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,"118,257.8 ",.01)
;;257.8
;;9002226.02101,"118,257.8 ",.02)
;;257.8
;;9002226.02101,"118,270.0 ",.01)
;;270.0
;;9002226.02101,"118,270.0 ",.02)
;;270.9
;;9002226.02101,"118,271.1 ",.01)
;;271.1
;;9002226.02101,"118,271.1 ",.02)
;;271.1
;;9002226.02101,"118,277.0 ",.01)
;;277.0
;;9002226.02101,"118,277.0 ",.02)
;;277.3
;;9002226.02101,"118,277.5 ",.01)
;;277.5
;;9002226.02101,"118,277.5 ",.02)
;;277.5
;;9002226.02101,"118,277.8 ",.01)
;;277.8
;;9002226.02101,"118,277.8 ",.02)
;;277.8
;;9002226.02101,"118,279 ",.01)
;;279
;;9002226.02101,"118,279 ",.02)
;;279
;;9002226.02101,"118,282.6 ",.01)
;;282.6
;;9002226.02101,"118,282.6 ",.02)
;;282.6
;;9002226.02101,"118,284.0 ",.01)
;;284.0
;;9002226.02101,"118,284.0 ",.02)
;;284.9
;;9002226.02101,"118,286.0 ",.01)
;;286.0
;;9002226.02101,"118,286.0 ",.02)
;;286.9
;;9002226.02101,"118,287.3 ",.01)
;;287.3
;;9002226.02101,"118,287.3 ",.02)
;;287.3
;;9002226.02101,"118,295.00 ",.01)
;;295.00
;;9002226.02101,"118,295.00 ",.02)
;;295.95
;;9002226.02101,"118,296.90 ",.01)
;;296.90
;;9002226.02101,"118,296.90 ",.02)
;;296.99
;;9002226.02101,"118,297.0 ",.01)
;;297.0
;;9002226.02101,"118,297.0 ",.02)
;;297.9
;;9002226.02101,"118,335.2 ",.01)
;;335.2
;;9002226.02101,"118,335.2 ",.02)
;;335.20
;;9002226.02101,"118,340 ",.01)
;;340
;;9002226.02101,"118,340 ",.02)
;;340
;;9002226.02101,"118,345.3 ",.01)
;;345.3
;;9002226.02101,"118,345.3 ",.02)
;;345.3
;;9002226.02101,"118,348.1 ",.01)
;;348.1
;;9002226.02101,"118,348.1 ",.02)
;;348.1
;;9002226.02101,"118,348.3 ",.01)
;;348.3
;;9002226.02101,"118,348.3 ",.02)
;;348.8
;;9002226.02101,"118,357.0 ",.01)
;;357.0
;;9002226.02101,"118,357.0 ",.02)
;;357.0
;;9002226.02101,"118,362.50 ",.01)
;;362.50
;;9002226.02101,"118,362.50 ",.02)
;;362.57
;;9002226.02101,"118,402.0 ",.01)
;;402.0
;;9002226.02101,"118,402.0 ",.02)
;;402.01
;;9002226.02101,"118,403.0 ",.01)
;;403.0
;;9002226.02101,"118,403.0 ",.02)
;;403.01
;;9002226.02101,"118,404.0 ",.01)
;;404.0
;;9002226.02101,"118,404.0 ",.02)
;;404.03
;;9002226.02101,"118,405.0 ",.01)
;;405.0
;;9002226.02101,"118,405.0 ",.02)
;;405.09
;;9002226.02101,"118,411.1 ",.01)
;;411.1
;;9002226.02101,"118,411.1 ",.02)
;;411.1
;;9002226.02101,"118,414.1 ",.01)
;;414.1
;;9002226.02101,"118,414.1 ",.02)
;;414.19
;;9002226.02101,"118,421.0 ",.01)
;;421.0
;;9002226.02101,"118,421.0 ",.02)
;;421.9
;;9002226.02101,"118,424.90 ",.01)
;;424.90
;;9002226.02101,"118,424.90 ",.02)
;;424.99
;;9002226.02101,"118,427.41 ",.01)
;;427.41
;;9002226.02101,"118,427.41 ",.02)
;;427.42
;;9002226.02101,"118,427.5 ",.01)
;;427.5
;;9002226.02101,"118,427.5 ",.02)
;;427.5
;;9002226.02101,"118,429.5 ",.01)
;;429.5
;;9002226.02101,"118,429.5 ",.02)
;;429.6
;;9002226.02101,"118,429.7 ",.01)
;;429.7
;;9002226.02101,"118,429.7 ",.02)
;;429.79
;;9002226.02101,"118,430 ",.01)
;;430
;;9002226.02101,"118,430 ",.02)
;;433.90
;;9002226.02101,"118,434.0 ",.01)
;;434.0
;;9002226.02101,"118,434.0 ",.02)
;;436
;;9002226.02101,"118,441.00 ",.01)
;;441.00
;;9002226.02101,"118,441.00 ",.02)
;;441.9
;;9002226.02101,"118,446.0 ",.01)
;;446.0
;;9002226.02101,"118,446.0 ",.02)
;;446.7
;;9002226.02101,"118,482.4 ",.01)
;;482.4
;;9002226.02101,"118,482.4 ",.02)
;;482.4
;;9002226.02101,"118,492.0 ",.01)
;;492.0
;;9002226.02101,"118,492.0 ",.02)
;;492.9
;;9002226.02101,"118,494 ",.01)
;;494
;;9002226.02101,"118,494 ",.02)
;;494
;;9002226.02101,"118,500 ",.01)
;;500
;;9002226.02101,"118,500 ",.02)
;;505
;;9002226.02101,"118,506.4 ",.01)
;;506.4
;;9002226.02101,"118,506.4 ",.02)
;;506.4
;;9002226.02101,"118,515 ",.01)
;;515
;;9002226.02101,"118,515 ",.02)
;;515
;;9002226.02101,"118,518.5 ",.01)
;;518.5
;;9002226.02101,"118,518.5 ",.02)
;;518.81
;;9002226.02101,"118,526.89 ",.01)
;;526.89
;;9002226.02101,"118,526.89 ",.02)
;;526.89
;;9002226.02101,"118,570 ",.01)
;;570
;;9002226.02101,"118,570 ",.02)
;;570
;;9002226.02101,"118,571.2 ",.01)
;;571.2
;;9002226.02101,"118,571.2 ",.02)
;;571.2
;;9002226.02101,"118,571.5 ",.01)
;;571.5
;;9002226.02101,"118,571.5 ",.02)
;;571.6
;;9002226.02101,"118,579.3 ",.01)
;;579.3
;;9002226.02101,"118,579.3 ",.02)
;;579.3
;;9002226.02101,"118,585 ",.01)
;;585
;;9002226.02101,"118,585 ",.02)
;;586
;;9002226.02101,"118,644.20 ",.01)
;;644.20
;;9002226.02101,"118,644.20 ",.02)
;;644.21
;;9002226.02101,"118,710.0 ",.01)
;;710.0
;;9002226.02101,"118,710.0 ",.02)
;;710.99
;;9002226.02101,"118,730.0 ",.01)
;;730.0
;;9002226.02101,"118,730.0 ",.02)
;;730.99
;;9002226.02101,"118,740.0 ",.01)
;;740.0
;;9002226.02101,"118,740.0 ",.02)
;;459.9
;;9002226.02101,"118,765.0 ",.01)
;;765.0
;;9002226.02101,"118,765.0 ",.02)
;;767.19
;;9002226.02101,"118,767.0 ",.01)
;;767.0
;;9002226.02101,"118,767.0 ",.02)
;;767.4
;;9002226.02101,"118,767.4 ",.01)
;;767.4
;;9002226.02101,"118,767.4 ",.02)
;;767.4
BMCTXFB ; 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,"118,257.8 ",.01)
+2 ;;257.8
+3 ;;9002226.02101,"118,257.8 ",.02)
+4 ;;257.8
+5 ;;9002226.02101,"118,270.0 ",.01)
+6 ;;270.0
+7 ;;9002226.02101,"118,270.0 ",.02)
+8 ;;270.9
+9 ;;9002226.02101,"118,271.1 ",.01)
+10 ;;271.1
+11 ;;9002226.02101,"118,271.1 ",.02)
+12 ;;271.1
+13 ;;9002226.02101,"118,277.0 ",.01)
+14 ;;277.0
+15 ;;9002226.02101,"118,277.0 ",.02)
+16 ;;277.3
+17 ;;9002226.02101,"118,277.5 ",.01)
+18 ;;277.5
+19 ;;9002226.02101,"118,277.5 ",.02)
+20 ;;277.5
+21 ;;9002226.02101,"118,277.8 ",.01)
+22 ;;277.8
+23 ;;9002226.02101,"118,277.8 ",.02)
+24 ;;277.8
+25 ;;9002226.02101,"118,279 ",.01)
+26 ;;279
+27 ;;9002226.02101,"118,279 ",.02)
+28 ;;279
+29 ;;9002226.02101,"118,282.6 ",.01)
+30 ;;282.6
+31 ;;9002226.02101,"118,282.6 ",.02)
+32 ;;282.6
+33 ;;9002226.02101,"118,284.0 ",.01)
+34 ;;284.0
+35 ;;9002226.02101,"118,284.0 ",.02)
+36 ;;284.9
+37 ;;9002226.02101,"118,286.0 ",.01)
+38 ;;286.0
+39 ;;9002226.02101,"118,286.0 ",.02)
+40 ;;286.9
+41 ;;9002226.02101,"118,287.3 ",.01)
+42 ;;287.3
+43 ;;9002226.02101,"118,287.3 ",.02)
+44 ;;287.3
+45 ;;9002226.02101,"118,295.00 ",.01)
+46 ;;295.00
+47 ;;9002226.02101,"118,295.00 ",.02)
+48 ;;295.95
+49 ;;9002226.02101,"118,296.90 ",.01)
+50 ;;296.90
+51 ;;9002226.02101,"118,296.90 ",.02)
+52 ;;296.99
+53 ;;9002226.02101,"118,297.0 ",.01)
+54 ;;297.0
+55 ;;9002226.02101,"118,297.0 ",.02)
+56 ;;297.9
+57 ;;9002226.02101,"118,335.2 ",.01)
+58 ;;335.2
+59 ;;9002226.02101,"118,335.2 ",.02)
+60 ;;335.20
+61 ;;9002226.02101,"118,340 ",.01)
+62 ;;340
+63 ;;9002226.02101,"118,340 ",.02)
+64 ;;340
+65 ;;9002226.02101,"118,345.3 ",.01)
+66 ;;345.3
+67 ;;9002226.02101,"118,345.3 ",.02)
+68 ;;345.3
+69 ;;9002226.02101,"118,348.1 ",.01)
+70 ;;348.1
+71 ;;9002226.02101,"118,348.1 ",.02)
+72 ;;348.1
+73 ;;9002226.02101,"118,348.3 ",.01)
+74 ;;348.3
+75 ;;9002226.02101,"118,348.3 ",.02)
+76 ;;348.8
+77 ;;9002226.02101,"118,357.0 ",.01)
+78 ;;357.0
+79 ;;9002226.02101,"118,357.0 ",.02)
+80 ;;357.0
+81 ;;9002226.02101,"118,362.50 ",.01)
+82 ;;362.50
+83 ;;9002226.02101,"118,362.50 ",.02)
+84 ;;362.57
+85 ;;9002226.02101,"118,402.0 ",.01)
+86 ;;402.0
+87 ;;9002226.02101,"118,402.0 ",.02)
+88 ;;402.01
+89 ;;9002226.02101,"118,403.0 ",.01)
+90 ;;403.0
+91 ;;9002226.02101,"118,403.0 ",.02)
+92 ;;403.01
+93 ;;9002226.02101,"118,404.0 ",.01)
+94 ;;404.0
+95 ;;9002226.02101,"118,404.0 ",.02)
+96 ;;404.03
+97 ;;9002226.02101,"118,405.0 ",.01)
+98 ;;405.0
+99 ;;9002226.02101,"118,405.0 ",.02)
+100 ;;405.09
+101 ;;9002226.02101,"118,411.1 ",.01)
+102 ;;411.1
+103 ;;9002226.02101,"118,411.1 ",.02)
+104 ;;411.1
+105 ;;9002226.02101,"118,414.1 ",.01)
+106 ;;414.1
+107 ;;9002226.02101,"118,414.1 ",.02)
+108 ;;414.19
+109 ;;9002226.02101,"118,421.0 ",.01)
+110 ;;421.0
+111 ;;9002226.02101,"118,421.0 ",.02)
+112 ;;421.9
+113 ;;9002226.02101,"118,424.90 ",.01)
+114 ;;424.90
+115 ;;9002226.02101,"118,424.90 ",.02)
+116 ;;424.99
+117 ;;9002226.02101,"118,427.41 ",.01)
+118 ;;427.41
+119 ;;9002226.02101,"118,427.41 ",.02)
+120 ;;427.42
+121 ;;9002226.02101,"118,427.5 ",.01)
+122 ;;427.5
+123 ;;9002226.02101,"118,427.5 ",.02)
+124 ;;427.5
+125 ;;9002226.02101,"118,429.5 ",.01)
+126 ;;429.5
+127 ;;9002226.02101,"118,429.5 ",.02)
+128 ;;429.6
+129 ;;9002226.02101,"118,429.7 ",.01)
+130 ;;429.7
+131 ;;9002226.02101,"118,429.7 ",.02)
+132 ;;429.79
+133 ;;9002226.02101,"118,430 ",.01)
+134 ;;430
+135 ;;9002226.02101,"118,430 ",.02)
+136 ;;433.90
+137 ;;9002226.02101,"118,434.0 ",.01)
+138 ;;434.0
+139 ;;9002226.02101,"118,434.0 ",.02)
+140 ;;436
+141 ;;9002226.02101,"118,441.00 ",.01)
+142 ;;441.00
+143 ;;9002226.02101,"118,441.00 ",.02)
+144 ;;441.9
+145 ;;9002226.02101,"118,446.0 ",.01)
+146 ;;446.0
+147 ;;9002226.02101,"118,446.0 ",.02)
+148 ;;446.7
+149 ;;9002226.02101,"118,482.4 ",.01)
+150 ;;482.4
+151 ;;9002226.02101,"118,482.4 ",.02)
+152 ;;482.4
+153 ;;9002226.02101,"118,492.0 ",.01)
+154 ;;492.0
+155 ;;9002226.02101,"118,492.0 ",.02)
+156 ;;492.9
+157 ;;9002226.02101,"118,494 ",.01)
+158 ;;494
+159 ;;9002226.02101,"118,494 ",.02)
+160 ;;494
+161 ;;9002226.02101,"118,500 ",.01)
+162 ;;500
+163 ;;9002226.02101,"118,500 ",.02)
+164 ;;505
+165 ;;9002226.02101,"118,506.4 ",.01)
+166 ;;506.4
+167 ;;9002226.02101,"118,506.4 ",.02)
+168 ;;506.4
+169 ;;9002226.02101,"118,515 ",.01)
+170 ;;515
+171 ;;9002226.02101,"118,515 ",.02)
+172 ;;515
+173 ;;9002226.02101,"118,518.5 ",.01)
+174 ;;518.5
+175 ;;9002226.02101,"118,518.5 ",.02)
+176 ;;518.81
+177 ;;9002226.02101,"118,526.89 ",.01)
+178 ;;526.89
+179 ;;9002226.02101,"118,526.89 ",.02)
+180 ;;526.89
+181 ;;9002226.02101,"118,570 ",.01)
+182 ;;570
+183 ;;9002226.02101,"118,570 ",.02)
+184 ;;570
+185 ;;9002226.02101,"118,571.2 ",.01)
+186 ;;571.2
+187 ;;9002226.02101,"118,571.2 ",.02)
+188 ;;571.2
+189 ;;9002226.02101,"118,571.5 ",.01)
+190 ;;571.5
+191 ;;9002226.02101,"118,571.5 ",.02)
+192 ;;571.6
+193 ;;9002226.02101,"118,579.3 ",.01)
+194 ;;579.3
+195 ;;9002226.02101,"118,579.3 ",.02)
+196 ;;579.3
+197 ;;9002226.02101,"118,585 ",.01)
+198 ;;585
+199 ;;9002226.02101,"118,585 ",.02)
+200 ;;586
+201 ;;9002226.02101,"118,644.20 ",.01)
+202 ;;644.20
+203 ;;9002226.02101,"118,644.20 ",.02)
+204 ;;644.21
+205 ;;9002226.02101,"118,710.0 ",.01)
+206 ;;710.0
+207 ;;9002226.02101,"118,710.0 ",.02)
+208 ;;710.99
+209 ;;9002226.02101,"118,730.0 ",.01)
+210 ;;730.0
+211 ;;9002226.02101,"118,730.0 ",.02)
+212 ;;730.99
+213 ;;9002226.02101,"118,740.0 ",.01)
+214 ;;740.0
+215 ;;9002226.02101,"118,740.0 ",.02)
+216 ;;459.9
+217 ;;9002226.02101,"118,765.0 ",.01)
+218 ;;765.0
+219 ;;9002226.02101,"118,765.0 ",.02)
+220 ;;767.19
+221 ;;9002226.02101,"118,767.0 ",.01)
+222 ;;767.0
+223 ;;9002226.02101,"118,767.0 ",.02)
+224 ;;767.4
+225 ;;9002226.02101,"118,767.4 ",.01)
+226 ;;767.4
+227 ;;9002226.02101,"118,767.4 ",.02)
+228 ;;767.4
