BMCTXFC ; 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,768.5 ",.01)
;;768.5
;;9002226.02101,"118,768.5 ",.02)
;;768.5
;;9002226.02101,"118,769 ",.01)
;;769
;;9002226.02101,"118,769 ",.02)
;;769
;;9002226.02101,"118,770.0 ",.01)
;;770.0
;;9002226.02101,"118,770.0 ",.02)
;;770.3
;;9002226.02101,"118,771.0 ",.01)
;;771.0
;;9002226.02101,"118,771.0 ",.02)
;;771.3
;;9002226.02101,"118,771.8 ",.01)
;;771.8
;;9002226.02101,"118,771.8 ",.02)
;;771.8
;;9002226.02101,"118,772.1 ",.01)
;;772.1
;;9002226.02101,"118,772.1 ",.02)
;;772.2
;;9002226.02101,"118,773.3 ",.01)
;;773.3
;;9002226.02101,"118,773.3 ",.02)
;;773.4
;;9002226.02101,"118,777.5 ",.01)
;;777.5
;;9002226.02101,"118,777.5 ",.02)
;;777.6
;;9002226.02101,"118,779.0 ",.01)
;;779.0
;;9002226.02101,"118,779.0 ",.02)
;;779.0
;;9002226.02101,"118,780.01 ",.01)
;;780.01
;;9002226.02101,"118,780.01 ",.02)
;;780.01
;;9002226.02101,"118,785.50 ",.01)
;;785.50
;;9002226.02101,"118,785.50 ",.02)
;;785.59
;;9002226.02101,"118,799.1 ",.01)
;;799.1
;;9002226.02101,"118,799.1 ",.02)
;;799.1
;;9002226.02101,"118,799.4 ",.01)
;;799.4
;;9002226.02101,"118,799.4 ",.02)
;;799.4
;;9002226.02101,"118,800.10 ",.01)
;;800.10
;;9002226.02101,"118,800.10 ",.02)
;;800.49
;;9002226.02101,"118,800.60 ",.01)
;;800.60
;;9002226.02101,"118,800.60 ",.02)
;;800.99
;;9002226.02101,"118,802.20 ",.01)
;;802.20
;;9002226.02101,"118,802.20 ",.02)
;;802.9
;;9002226.02101,"118,803.10 ",.01)
;;803.10
;;9002226.02101,"118,803.10 ",.02)
;;803.49
;;9002226.02101,"118,803.60 ",.01)
;;803.60
;;9002226.02101,"118,803.60 ",.02)
;;803.99
;;9002226.02101,"118,804.10 ",.01)
;;804.10
;;9002226.02101,"118,804.10 ",.02)
;;804.49
;;9002226.02101,"118,804.60 ",.01)
;;804.60
;;9002226.02101,"118,804.60 ",.02)
;;804.99
;;9002226.02101,"118,806.00 ",.01)
;;806.00
;;9002226.02101,"118,806.00 ",.02)
;;806.9
;;9002226.02101,"118,808.0 ",.01)
;;808.0
;;9002226.02101,"118,808.0 ",.02)
;;808.9
;;9002226.02101,"118,819.0 ",.01)
;;819.0
;;9002226.02101,"118,819.0 ",.02)
;;819.1
;;9002226.02101,"118,827.0 ",.01)
;;827.0
;;9002226.02101,"118,827.0 ",.02)
;;828.1
;;9002226.02101,"118,851.0 ",.01)
;;851.0
;;9002226.02101,"118,851.0 ",.02)
;;853.1
;;9002226.02101,"118,860.0 ",.01)
;;860.0
;;9002226.02101,"118,860.0 ",.02)
;;869.1
;;9002226.02101,"118,871.0 ",.01)
;;871.0
;;9002226.02101,"118,871.0 ",.02)
;;871.9
;;9002226.02101,"118,887.0 ",.01)
;;887.0
;;9002226.02101,"118,887.0 ",.02)
;;887.7
;;9002226.02101,"118,897.0 ",.01)
;;897.0
;;9002226.02101,"118,897.0 ",.02)
;;897.7
;;9002226.02101,"118,900.00 ",.01)
;;900.00
;;9002226.02101,"118,900.00 ",.02)
;;904.9
;;9002226.02101,"118,941.3 ",.01)
;;941.3
;;9002226.02101,"118,941.3 ",.02)
;;941.59
;;9002226.02101,"118,942.3 ",.01)
;;942.3
;;9002226.02101,"118,942.3 ",.02)
;;942.59
;;9002226.02101,"118,943.3 ",.01)
;;943.3
;;9002226.02101,"118,943.3 ",.02)
;;943.59
;;9002226.02101,"118,944.3 ",.01)
;;944.3
;;9002226.02101,"118,944.3 ",.02)
;;944.59
;;9002226.02101,"118,945.3 ",.01)
;;945.3
;;9002226.02101,"118,945.3 ",.02)
;;945.59
;;9002226.02101,"118,946.3 ",.01)
;;946.3
;;9002226.02101,"118,946.3 ",.02)
;;946.59
;;9002226.02101,"118,948.10 ",.01)
;;948.10
;;9002226.02101,"118,948.10 ",.02)
;;948.99
;;9002226.02101,"118,949.3 ",.01)
;;949.3
;;9002226.02101,"118,949.3 ",.02)
;;949.5
;;9002226.02101,"118,952.00 ",.01)
;;952.00
;;9002226.02101,"118,952.00 ",.02)
;;952.9
;;9002226.02101,"118,958.4 ",.01)
;;958.4
;;9002226.02101,"118,958.4 ",.02)
;;958.4
;;9002226.02101,"118,984.0 ",.01)
;;984.0
;;9002226.02101,"118,984.0 ",.02)
;;984.9
;;9002226.02101,"118,996.00 ",.01)
;;996.00
;;9002226.02101,"118,996.00 ",.02)
;;999.9
BMCTXFC ; 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,768.5 ",.01)
+2 ;;768.5
+3 ;;9002226.02101,"118,768.5 ",.02)
+4 ;;768.5
+5 ;;9002226.02101,"118,769 ",.01)
+6 ;;769
+7 ;;9002226.02101,"118,769 ",.02)
+8 ;;769
+9 ;;9002226.02101,"118,770.0 ",.01)
+10 ;;770.0
+11 ;;9002226.02101,"118,770.0 ",.02)
+12 ;;770.3
+13 ;;9002226.02101,"118,771.0 ",.01)
+14 ;;771.0
+15 ;;9002226.02101,"118,771.0 ",.02)
+16 ;;771.3
+17 ;;9002226.02101,"118,771.8 ",.01)
+18 ;;771.8
+19 ;;9002226.02101,"118,771.8 ",.02)
+20 ;;771.8
+21 ;;9002226.02101,"118,772.1 ",.01)
+22 ;;772.1
+23 ;;9002226.02101,"118,772.1 ",.02)
+24 ;;772.2
+25 ;;9002226.02101,"118,773.3 ",.01)
+26 ;;773.3
+27 ;;9002226.02101,"118,773.3 ",.02)
+28 ;;773.4
+29 ;;9002226.02101,"118,777.5 ",.01)
+30 ;;777.5
+31 ;;9002226.02101,"118,777.5 ",.02)
+32 ;;777.6
+33 ;;9002226.02101,"118,779.0 ",.01)
+34 ;;779.0
+35 ;;9002226.02101,"118,779.0 ",.02)
+36 ;;779.0
+37 ;;9002226.02101,"118,780.01 ",.01)
+38 ;;780.01
+39 ;;9002226.02101,"118,780.01 ",.02)
+40 ;;780.01
+41 ;;9002226.02101,"118,785.50 ",.01)
+42 ;;785.50
+43 ;;9002226.02101,"118,785.50 ",.02)
+44 ;;785.59
+45 ;;9002226.02101,"118,799.1 ",.01)
+46 ;;799.1
+47 ;;9002226.02101,"118,799.1 ",.02)
+48 ;;799.1
+49 ;;9002226.02101,"118,799.4 ",.01)
+50 ;;799.4
+51 ;;9002226.02101,"118,799.4 ",.02)
+52 ;;799.4
+53 ;;9002226.02101,"118,800.10 ",.01)
+54 ;;800.10
+55 ;;9002226.02101,"118,800.10 ",.02)
+56 ;;800.49
+57 ;;9002226.02101,"118,800.60 ",.01)
+58 ;;800.60
+59 ;;9002226.02101,"118,800.60 ",.02)
+60 ;;800.99
+61 ;;9002226.02101,"118,802.20 ",.01)
+62 ;;802.20
+63 ;;9002226.02101,"118,802.20 ",.02)
+64 ;;802.9
+65 ;;9002226.02101,"118,803.10 ",.01)
+66 ;;803.10
+67 ;;9002226.02101,"118,803.10 ",.02)
+68 ;;803.49
+69 ;;9002226.02101,"118,803.60 ",.01)
+70 ;;803.60
+71 ;;9002226.02101,"118,803.60 ",.02)
+72 ;;803.99
+73 ;;9002226.02101,"118,804.10 ",.01)
+74 ;;804.10
+75 ;;9002226.02101,"118,804.10 ",.02)
+76 ;;804.49
+77 ;;9002226.02101,"118,804.60 ",.01)
+78 ;;804.60
+79 ;;9002226.02101,"118,804.60 ",.02)
+80 ;;804.99
+81 ;;9002226.02101,"118,806.00 ",.01)
+82 ;;806.00
+83 ;;9002226.02101,"118,806.00 ",.02)
+84 ;;806.9
+85 ;;9002226.02101,"118,808.0 ",.01)
+86 ;;808.0
+87 ;;9002226.02101,"118,808.0 ",.02)
+88 ;;808.9
+89 ;;9002226.02101,"118,819.0 ",.01)
+90 ;;819.0
+91 ;;9002226.02101,"118,819.0 ",.02)
+92 ;;819.1
+93 ;;9002226.02101,"118,827.0 ",.01)
+94 ;;827.0
+95 ;;9002226.02101,"118,827.0 ",.02)
+96 ;;828.1
+97 ;;9002226.02101,"118,851.0 ",.01)
+98 ;;851.0
+99 ;;9002226.02101,"118,851.0 ",.02)
+100 ;;853.1
+101 ;;9002226.02101,"118,860.0 ",.01)
+102 ;;860.0
+103 ;;9002226.02101,"118,860.0 ",.02)
+104 ;;869.1
+105 ;;9002226.02101,"118,871.0 ",.01)
+106 ;;871.0
+107 ;;9002226.02101,"118,871.0 ",.02)
+108 ;;871.9
+109 ;;9002226.02101,"118,887.0 ",.01)
+110 ;;887.0
+111 ;;9002226.02101,"118,887.0 ",.02)
+112 ;;887.7
+113 ;;9002226.02101,"118,897.0 ",.01)
+114 ;;897.0
+115 ;;9002226.02101,"118,897.0 ",.02)
+116 ;;897.7
+117 ;;9002226.02101,"118,900.00 ",.01)
+118 ;;900.00
+119 ;;9002226.02101,"118,900.00 ",.02)
+120 ;;904.9
+121 ;;9002226.02101,"118,941.3 ",.01)
+122 ;;941.3
+123 ;;9002226.02101,"118,941.3 ",.02)
+124 ;;941.59
+125 ;;9002226.02101,"118,942.3 ",.01)
+126 ;;942.3
+127 ;;9002226.02101,"118,942.3 ",.02)
+128 ;;942.59
+129 ;;9002226.02101,"118,943.3 ",.01)
+130 ;;943.3
+131 ;;9002226.02101,"118,943.3 ",.02)
+132 ;;943.59
+133 ;;9002226.02101,"118,944.3 ",.01)
+134 ;;944.3
+135 ;;9002226.02101,"118,944.3 ",.02)
+136 ;;944.59
+137 ;;9002226.02101,"118,945.3 ",.01)
+138 ;;945.3
+139 ;;9002226.02101,"118,945.3 ",.02)
+140 ;;945.59
+141 ;;9002226.02101,"118,946.3 ",.01)
+142 ;;946.3
+143 ;;9002226.02101,"118,946.3 ",.02)
+144 ;;946.59
+145 ;;9002226.02101,"118,948.10 ",.01)
+146 ;;948.10
+147 ;;9002226.02101,"118,948.10 ",.02)
+148 ;;948.99
+149 ;;9002226.02101,"118,949.3 ",.01)
+150 ;;949.3
+151 ;;9002226.02101,"118,949.3 ",.02)
+152 ;;949.5
+153 ;;9002226.02101,"118,952.00 ",.01)
+154 ;;952.00
+155 ;;9002226.02101,"118,952.00 ",.02)
+156 ;;952.9
+157 ;;9002226.02101,"118,958.4 ",.01)
+158 ;;958.4
+159 ;;9002226.02101,"118,958.4 ",.02)
+160 ;;958.4
+161 ;;9002226.02101,"118,984.0 ",.01)
+162 ;;984.0
+163 ;;9002226.02101,"118,984.0 ",.02)
+164 ;;984.9
+165 ;;9002226.02101,"118,996.00 ",.01)
+166 ;;996.00
+167 ;;9002226.02101,"118,996.00 ",.02)
+168 ;;999.9
