APCL23HE ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 24, 2009 ;
;;3.0;IHS PCC REPORTS;**24**;FEB 05, 1997
;
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,"1018,651.10 ",.02)
;;651.10
;;9002226.02101,"1018,651.13 ",.01)
;;651.13
;;9002226.02101,"1018,651.13 ",.02)
;;651.13
;;9002226.02101,"1018,651.20 ",.01)
;;651.20
;;9002226.02101,"1018,651.20 ",.02)
;;651.20
;;9002226.02101,"1018,651.23 ",.01)
;;651.23
;;9002226.02101,"1018,651.23 ",.02)
;;651.23
;;9002226.02101,"1018,651.30 ",.01)
;;651.30
;;9002226.02101,"1018,651.30 ",.02)
;;651.30
;;9002226.02101,"1018,651.33 ",.01)
;;651.33
;;9002226.02101,"1018,651.33 ",.02)
;;651.33
;;9002226.02101,"1018,651.40 ",.01)
;;651.40
;;9002226.02101,"1018,651.40 ",.02)
;;651.40
;;9002226.02101,"1018,651.43 ",.01)
;;651.43
;;9002226.02101,"1018,651.43 ",.02)
;;651.43
;;9002226.02101,"1018,651.50 ",.01)
;;651.50
;;9002226.02101,"1018,651.50 ",.02)
;;651.50
;;9002226.02101,"1018,651.53 ",.01)
;;651.53
;;9002226.02101,"1018,651.53 ",.02)
;;651.53
;;9002226.02101,"1018,651.60 ",.01)
;;651.60
;;9002226.02101,"1018,651.60 ",.02)
;;651.60
;;9002226.02101,"1018,651.63 ",.01)
;;651.63
;;9002226.02101,"1018,651.63 ",.02)
;;651.63
;;9002226.02101,"1018,651.70 ",.01)
;;651.70
;;9002226.02101,"1018,651.70 ",.02)
;;651.70
;;9002226.02101,"1018,651.73 ",.01)
;;651.73
;;9002226.02101,"1018,651.73 ",.02)
;;651.73
;;9002226.02101,"1018,651.80 ",.01)
;;651.80
;;9002226.02101,"1018,651.80 ",.02)
;;651.80
;;9002226.02101,"1018,651.83 ",.01)
;;651.83
;;9002226.02101,"1018,651.83 ",.02)
;;651.83
;;9002226.02101,"1018,651.90 ",.01)
;;651.90
;;9002226.02101,"1018,651.90 ",.02)
;;651.90
;;9002226.02101,"1018,651.93 ",.01)
;;651.93
;;9002226.02101,"1018,651.93 ",.02)
;;651.93
;;9002226.02101,"1018,652.00 ",.01)
;;652.00
;;9002226.02101,"1018,652.00 ",.02)
;;652.00
;;9002226.02101,"1018,652.03 ",.01)
;;652.03
;;9002226.02101,"1018,652.03 ",.02)
;;652.03
;;9002226.02101,"1018,652.10 ",.01)
;;652.10
;;9002226.02101,"1018,652.10 ",.02)
;;652.10
;;9002226.02101,"1018,652.13 ",.01)
;;652.13
;;9002226.02101,"1018,652.13 ",.02)
;;652.13
;;9002226.02101,"1018,652.20 ",.01)
;;652.20
;;9002226.02101,"1018,652.20 ",.02)
;;652.20
;;9002226.02101,"1018,652.23 ",.01)
;;652.23
;;9002226.02101,"1018,652.23 ",.02)
;;652.23
;;9002226.02101,"1018,652.30 ",.01)
;;652.30
;;9002226.02101,"1018,652.30 ",.02)
;;652.30
;;9002226.02101,"1018,652.33 ",.01)
;;652.33
;;9002226.02101,"1018,652.33 ",.02)
;;652.33
;;9002226.02101,"1018,652.40 ",.01)
;;652.40
;;9002226.02101,"1018,652.40 ",.02)
;;652.40
;;9002226.02101,"1018,652.43 ",.01)
;;652.43
;;9002226.02101,"1018,652.43 ",.02)
;;652.43
;;9002226.02101,"1018,652.50 ",.01)
;;652.50
;;9002226.02101,"1018,652.50 ",.02)
;;652.50
;;9002226.02101,"1018,652.53 ",.01)
;;652.53
;;9002226.02101,"1018,652.53 ",.02)
;;652.53
;;9002226.02101,"1018,652.60 ",.01)
;;652.60
;;9002226.02101,"1018,652.60 ",.02)
;;652.60
;;9002226.02101,"1018,652.63 ",.01)
;;652.63
;;9002226.02101,"1018,652.63 ",.02)
;;652.63
;;9002226.02101,"1018,652.70 ",.01)
;;652.70
;;9002226.02101,"1018,652.70 ",.02)
;;652.70
;;9002226.02101,"1018,652.73 ",.01)
;;652.73
;;9002226.02101,"1018,652.73 ",.02)
;;652.73
;;9002226.02101,"1018,652.80 ",.01)
;;652.80
;;9002226.02101,"1018,652.80 ",.02)
;;652.80
;;9002226.02101,"1018,652.83 ",.01)
;;652.83
;;9002226.02101,"1018,652.83 ",.02)
;;652.83
;;9002226.02101,"1018,652.90 ",.01)
;;652.90
;;9002226.02101,"1018,652.90 ",.02)
;;652.90
;;9002226.02101,"1018,652.93 ",.01)
;;652.93
;;9002226.02101,"1018,652.93 ",.02)
;;652.93
;;9002226.02101,"1018,653.00 ",.01)
;;653.00
;;9002226.02101,"1018,653.00 ",.02)
;;653.00
;;9002226.02101,"1018,653.03 ",.01)
;;653.03
;;9002226.02101,"1018,653.03 ",.02)
;;653.03
;;9002226.02101,"1018,653.10 ",.01)
;;653.10
;;9002226.02101,"1018,653.10 ",.02)
;;653.10
;;9002226.02101,"1018,653.13 ",.01)
;;653.13
;;9002226.02101,"1018,653.13 ",.02)
;;653.20
;;9002226.02101,"1018,653.23 ",.01)
;;653.23
;;9002226.02101,"1018,653.23 ",.02)
;;653.23
;;9002226.02101,"1018,653.30 ",.01)
;;653.30
;;9002226.02101,"1018,653.30 ",.02)
;;653.30
;;9002226.02101,"1018,653.33 ",.01)
;;653.33
;;9002226.02101,"1018,653.33 ",.02)
;;653.33
;;9002226.02101,"1018,653.40 ",.01)
;;653.40
;;9002226.02101,"1018,653.40 ",.02)
;;653.40
;;9002226.02101,"1018,653.43 ",.01)
;;653.43
;;9002226.02101,"1018,653.43 ",.02)
;;653.43
;;9002226.02101,"1018,653.50 ",.01)
;;653.50
;;9002226.02101,"1018,653.50 ",.02)
;;653.50
;;9002226.02101,"1018,653.53 ",.01)
;;653.53
;;9002226.02101,"1018,653.53 ",.02)
;;653.53
;;9002226.02101,"1018,653.60 ",.01)
;;653.60
;;9002226.02101,"1018,653.60 ",.02)
;;653.60
;;9002226.02101,"1018,653.63 ",.01)
;;653.63
;;9002226.02101,"1018,653.63 ",.02)
;;653.63
;;9002226.02101,"1018,653.70 ",.01)
;;653.70
;;9002226.02101,"1018,653.70 ",.02)
;;653.70
;;9002226.02101,"1018,653.73 ",.01)
;;653.73
;;9002226.02101,"1018,653.73 ",.02)
;;653.73
APCL23HE ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 24, 2009 ;
+1 ;;3.0;IHS PCC REPORTS;**24**;FEB 05, 1997
+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,"1018,651.10 ",.02)
+2 ;;651.10
+3 ;;9002226.02101,"1018,651.13 ",.01)
+4 ;;651.13
+5 ;;9002226.02101,"1018,651.13 ",.02)
+6 ;;651.13
+7 ;;9002226.02101,"1018,651.20 ",.01)
+8 ;;651.20
+9 ;;9002226.02101,"1018,651.20 ",.02)
+10 ;;651.20
+11 ;;9002226.02101,"1018,651.23 ",.01)
+12 ;;651.23
+13 ;;9002226.02101,"1018,651.23 ",.02)
+14 ;;651.23
+15 ;;9002226.02101,"1018,651.30 ",.01)
+16 ;;651.30
+17 ;;9002226.02101,"1018,651.30 ",.02)
+18 ;;651.30
+19 ;;9002226.02101,"1018,651.33 ",.01)
+20 ;;651.33
+21 ;;9002226.02101,"1018,651.33 ",.02)
+22 ;;651.33
+23 ;;9002226.02101,"1018,651.40 ",.01)
+24 ;;651.40
+25 ;;9002226.02101,"1018,651.40 ",.02)
+26 ;;651.40
+27 ;;9002226.02101,"1018,651.43 ",.01)
+28 ;;651.43
+29 ;;9002226.02101,"1018,651.43 ",.02)
+30 ;;651.43
+31 ;;9002226.02101,"1018,651.50 ",.01)
+32 ;;651.50
+33 ;;9002226.02101,"1018,651.50 ",.02)
+34 ;;651.50
+35 ;;9002226.02101,"1018,651.53 ",.01)
+36 ;;651.53
+37 ;;9002226.02101,"1018,651.53 ",.02)
+38 ;;651.53
+39 ;;9002226.02101,"1018,651.60 ",.01)
+40 ;;651.60
+41 ;;9002226.02101,"1018,651.60 ",.02)
+42 ;;651.60
+43 ;;9002226.02101,"1018,651.63 ",.01)
+44 ;;651.63
+45 ;;9002226.02101,"1018,651.63 ",.02)
+46 ;;651.63
+47 ;;9002226.02101,"1018,651.70 ",.01)
+48 ;;651.70
+49 ;;9002226.02101,"1018,651.70 ",.02)
+50 ;;651.70
+51 ;;9002226.02101,"1018,651.73 ",.01)
+52 ;;651.73
+53 ;;9002226.02101,"1018,651.73 ",.02)
+54 ;;651.73
+55 ;;9002226.02101,"1018,651.80 ",.01)
+56 ;;651.80
+57 ;;9002226.02101,"1018,651.80 ",.02)
+58 ;;651.80
+59 ;;9002226.02101,"1018,651.83 ",.01)
+60 ;;651.83
+61 ;;9002226.02101,"1018,651.83 ",.02)
+62 ;;651.83
+63 ;;9002226.02101,"1018,651.90 ",.01)
+64 ;;651.90
+65 ;;9002226.02101,"1018,651.90 ",.02)
+66 ;;651.90
+67 ;;9002226.02101,"1018,651.93 ",.01)
+68 ;;651.93
+69 ;;9002226.02101,"1018,651.93 ",.02)
+70 ;;651.93
+71 ;;9002226.02101,"1018,652.00 ",.01)
+72 ;;652.00
+73 ;;9002226.02101,"1018,652.00 ",.02)
+74 ;;652.00
+75 ;;9002226.02101,"1018,652.03 ",.01)
+76 ;;652.03
+77 ;;9002226.02101,"1018,652.03 ",.02)
+78 ;;652.03
+79 ;;9002226.02101,"1018,652.10 ",.01)
+80 ;;652.10
+81 ;;9002226.02101,"1018,652.10 ",.02)
+82 ;;652.10
+83 ;;9002226.02101,"1018,652.13 ",.01)
+84 ;;652.13
+85 ;;9002226.02101,"1018,652.13 ",.02)
+86 ;;652.13
+87 ;;9002226.02101,"1018,652.20 ",.01)
+88 ;;652.20
+89 ;;9002226.02101,"1018,652.20 ",.02)
+90 ;;652.20
+91 ;;9002226.02101,"1018,652.23 ",.01)
+92 ;;652.23
+93 ;;9002226.02101,"1018,652.23 ",.02)
+94 ;;652.23
+95 ;;9002226.02101,"1018,652.30 ",.01)
+96 ;;652.30
+97 ;;9002226.02101,"1018,652.30 ",.02)
+98 ;;652.30
+99 ;;9002226.02101,"1018,652.33 ",.01)
+100 ;;652.33
+101 ;;9002226.02101,"1018,652.33 ",.02)
+102 ;;652.33
+103 ;;9002226.02101,"1018,652.40 ",.01)
+104 ;;652.40
+105 ;;9002226.02101,"1018,652.40 ",.02)
+106 ;;652.40
+107 ;;9002226.02101,"1018,652.43 ",.01)
+108 ;;652.43
+109 ;;9002226.02101,"1018,652.43 ",.02)
+110 ;;652.43
+111 ;;9002226.02101,"1018,652.50 ",.01)
+112 ;;652.50
+113 ;;9002226.02101,"1018,652.50 ",.02)
+114 ;;652.50
+115 ;;9002226.02101,"1018,652.53 ",.01)
+116 ;;652.53
+117 ;;9002226.02101,"1018,652.53 ",.02)
+118 ;;652.53
+119 ;;9002226.02101,"1018,652.60 ",.01)
+120 ;;652.60
+121 ;;9002226.02101,"1018,652.60 ",.02)
+122 ;;652.60
+123 ;;9002226.02101,"1018,652.63 ",.01)
+124 ;;652.63
+125 ;;9002226.02101,"1018,652.63 ",.02)
+126 ;;652.63
+127 ;;9002226.02101,"1018,652.70 ",.01)
+128 ;;652.70
+129 ;;9002226.02101,"1018,652.70 ",.02)
+130 ;;652.70
+131 ;;9002226.02101,"1018,652.73 ",.01)
+132 ;;652.73
+133 ;;9002226.02101,"1018,652.73 ",.02)
+134 ;;652.73
+135 ;;9002226.02101,"1018,652.80 ",.01)
+136 ;;652.80
+137 ;;9002226.02101,"1018,652.80 ",.02)
+138 ;;652.80
+139 ;;9002226.02101,"1018,652.83 ",.01)
+140 ;;652.83
+141 ;;9002226.02101,"1018,652.83 ",.02)
+142 ;;652.83
+143 ;;9002226.02101,"1018,652.90 ",.01)
+144 ;;652.90
+145 ;;9002226.02101,"1018,652.90 ",.02)
+146 ;;652.90
+147 ;;9002226.02101,"1018,652.93 ",.01)
+148 ;;652.93
+149 ;;9002226.02101,"1018,652.93 ",.02)
+150 ;;652.93
+151 ;;9002226.02101,"1018,653.00 ",.01)
+152 ;;653.00
+153 ;;9002226.02101,"1018,653.00 ",.02)
+154 ;;653.00
+155 ;;9002226.02101,"1018,653.03 ",.01)
+156 ;;653.03
+157 ;;9002226.02101,"1018,653.03 ",.02)
+158 ;;653.03
+159 ;;9002226.02101,"1018,653.10 ",.01)
+160 ;;653.10
+161 ;;9002226.02101,"1018,653.10 ",.02)
+162 ;;653.10
+163 ;;9002226.02101,"1018,653.13 ",.01)
+164 ;;653.13
+165 ;;9002226.02101,"1018,653.13 ",.02)
+166 ;;653.20
+167 ;;9002226.02101,"1018,653.23 ",.01)
+168 ;;653.23
+169 ;;9002226.02101,"1018,653.23 ",.02)
+170 ;;653.23
+171 ;;9002226.02101,"1018,653.30 ",.01)
+172 ;;653.30
+173 ;;9002226.02101,"1018,653.30 ",.02)
+174 ;;653.30
+175 ;;9002226.02101,"1018,653.33 ",.01)
+176 ;;653.33
+177 ;;9002226.02101,"1018,653.33 ",.02)
+178 ;;653.33
+179 ;;9002226.02101,"1018,653.40 ",.01)
+180 ;;653.40
+181 ;;9002226.02101,"1018,653.40 ",.02)
+182 ;;653.40
+183 ;;9002226.02101,"1018,653.43 ",.01)
+184 ;;653.43
+185 ;;9002226.02101,"1018,653.43 ",.02)
+186 ;;653.43
+187 ;;9002226.02101,"1018,653.50 ",.01)
+188 ;;653.50
+189 ;;9002226.02101,"1018,653.50 ",.02)
+190 ;;653.50
+191 ;;9002226.02101,"1018,653.53 ",.01)
+192 ;;653.53
+193 ;;9002226.02101,"1018,653.53 ",.02)
+194 ;;653.53
+195 ;;9002226.02101,"1018,653.60 ",.01)
+196 ;;653.60
+197 ;;9002226.02101,"1018,653.60 ",.02)
+198 ;;653.60
+199 ;;9002226.02101,"1018,653.63 ",.01)
+200 ;;653.63
+201 ;;9002226.02101,"1018,653.63 ",.02)
+202 ;;653.63
+203 ;;9002226.02101,"1018,653.70 ",.01)
+204 ;;653.70
+205 ;;9002226.02101,"1018,653.70 ",.02)
+206 ;;653.70
+207 ;;9002226.02101,"1018,653.73 ",.01)
+208 ;;653.73
+209 ;;9002226.02101,"1018,653.73 ",.02)
+210 ;;653.73
