APCL23HF ; 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,653.80 ",.01)
;;653.80
;;9002226.02101,"1018,653.80 ",.02)
;;653.80
;;9002226.02101,"1018,653.83 ",.01)
;;653.83
;;9002226.02101,"1018,653.83 ",.02)
;;653.83
;;9002226.02101,"1018,653.90 ",.01)
;;653.90
;;9002226.02101,"1018,653.90 ",.02)
;;653.90
;;9002226.02101,"1018,653.93 ",.01)
;;653.93
;;9002226.02101,"1018,653.93 ",.02)
;;653.93
;;9002226.02101,"1018,654.00 ",.01)
;;654.00
;;9002226.02101,"1018,654.00 ",.02)
;;654.00
;;9002226.02101,"1018,654.03 ",.01)
;;654.03
;;9002226.02101,"1018,654.03 ",.02)
;;654.03
;;9002226.02101,"1018,654.10 ",.01)
;;654.10
;;9002226.02101,"1018,654.10 ",.02)
;;654.10
;;9002226.02101,"1018,654.13 ",.01)
;;654.13
;;9002226.02101,"1018,654.13 ",.02)
;;654.13
;;9002226.02101,"1018,654.20 ",.01)
;;654.20
;;9002226.02101,"1018,654.20 ",.02)
;;654.20
;;9002226.02101,"1018,654.23 ",.01)
;;654.23
;;9002226.02101,"1018,654.23 ",.02)
;;654.23
;;9002226.02101,"1018,654.30 ",.01)
;;654.30
;;9002226.02101,"1018,654.30 ",.02)
;;654.30
;;9002226.02101,"1018,654.33 ",.01)
;;654.33
;;9002226.02101,"1018,654.33 ",.02)
;;654.33
;;9002226.02101,"1018,654.40 ",.01)
;;654.40
;;9002226.02101,"1018,654.40 ",.02)
;;654.40
;;9002226.02101,"1018,654.43 ",.01)
;;654.43
;;9002226.02101,"1018,654.43 ",.02)
;;654.43
;;9002226.02101,"1018,654.50 ",.01)
;;654.50
;;9002226.02101,"1018,654.50 ",.02)
;;654.50
;;9002226.02101,"1018,654.53 ",.01)
;;654.53
;;9002226.02101,"1018,654.53 ",.02)
;;654.53
;;9002226.02101,"1018,654.60 ",.01)
;;654.60
;;9002226.02101,"1018,654.60 ",.02)
;;654.60
;;9002226.02101,"1018,654.63 ",.01)
;;654.63
;;9002226.02101,"1018,654.63 ",.02)
;;654.63
;;9002226.02101,"1018,654.70 ",.01)
;;654.70
;;9002226.02101,"1018,654.70 ",.02)
;;654.70
;;9002226.02101,"1018,654.73 ",.01)
;;654.73
;;9002226.02101,"1018,654.73 ",.02)
;;654.73
;;9002226.02101,"1018,654.80 ",.01)
;;654.80
;;9002226.02101,"1018,654.80 ",.02)
;;654.80
;;9002226.02101,"1018,654.83 ",.01)
;;654.83
;;9002226.02101,"1018,654.83 ",.02)
;;654.83
;;9002226.02101,"1018,654.90 ",.01)
;;654.90
;;9002226.02101,"1018,654.90 ",.02)
;;654.90
;;9002226.02101,"1018,654.93 ",.01)
;;654.93
;;9002226.02101,"1018,654.93 ",.02)
;;654.93
;;9002226.02101,"1018,655.00 ",.01)
;;655.00
;;9002226.02101,"1018,655.00 ",.02)
;;655.00
;;9002226.02101,"1018,655.03 ",.01)
;;655.03
;;9002226.02101,"1018,655.03 ",.02)
;;655.03
;;9002226.02101,"1018,655.10 ",.01)
;;655.10
;;9002226.02101,"1018,655.10 ",.02)
;;655.10
;;9002226.02101,"1018,655.13 ",.01)
;;655.13
;;9002226.02101,"1018,655.13 ",.02)
;;655.13
;;9002226.02101,"1018,655.20 ",.01)
;;655.20
;;9002226.02101,"1018,655.20 ",.02)
;;655.20
;;9002226.02101,"1018,655.23 ",.01)
;;655.23
;;9002226.02101,"1018,655.23 ",.02)
;;655.23
;;9002226.02101,"1018,655.30 ",.01)
;;655.30
;;9002226.02101,"1018,655.30 ",.02)
;;655.30
;;9002226.02101,"1018,655.33 ",.01)
;;655.33
;;9002226.02101,"1018,655.33 ",.02)
;;655.33
;;9002226.02101,"1018,655.40 ",.01)
;;655.40
;;9002226.02101,"1018,655.40 ",.02)
;;655.40
;;9002226.02101,"1018,655.43 ",.01)
;;655.43
;;9002226.02101,"1018,655.43 ",.02)
;;655.43
;;9002226.02101,"1018,655.50 ",.01)
;;655.50
;;9002226.02101,"1018,655.50 ",.02)
;;655.50
;;9002226.02101,"1018,655.53 ",.01)
;;655.53
;;9002226.02101,"1018,655.53 ",.02)
;;655.53
;;9002226.02101,"1018,655.60 ",.01)
;;655.60
;;9002226.02101,"1018,655.60 ",.02)
;;655.60
;;9002226.02101,"1018,655.63 ",.01)
;;655.63
;;9002226.02101,"1018,655.63 ",.02)
;;655.63
;;9002226.02101,"1018,655.70 ",.01)
;;655.70
;;9002226.02101,"1018,655.70 ",.02)
;;655.70
;;9002226.02101,"1018,655.73 ",.01)
;;655.73
;;9002226.02101,"1018,655.73 ",.02)
;;655.73
;;9002226.02101,"1018,655.80 ",.01)
;;655.80
;;9002226.02101,"1018,655.80 ",.02)
;;655.80
;;9002226.02101,"1018,655.83 ",.01)
;;655.83
;;9002226.02101,"1018,655.83 ",.02)
;;655.83
;;9002226.02101,"1018,655.90 ",.01)
;;655.90
;;9002226.02101,"1018,655.90 ",.02)
;;655.90
;;9002226.02101,"1018,655.93 ",.01)
;;655.93
;;9002226.02101,"1018,655.93 ",.02)
;;655.93
;;9002226.02101,"1018,656.00 ",.01)
;;656.00
;;9002226.02101,"1018,656.00 ",.02)
;;656.00
;;9002226.02101,"1018,656.03 ",.01)
;;656.03
;;9002226.02101,"1018,656.03 ",.02)
;;656.03
;;9002226.02101,"1018,656.10 ",.01)
;;656.10
;;9002226.02101,"1018,656.10 ",.02)
;;656.10
;;9002226.02101,"1018,656.13 ",.01)
;;656.13
;;9002226.02101,"1018,656.13 ",.02)
;;656.13
;;9002226.02101,"1018,656.20 ",.01)
;;656.20
;;9002226.02101,"1018,656.20 ",.02)
;;656.20
;;9002226.02101,"1018,656.23 ",.01)
;;656.23
;;9002226.02101,"1018,656.23 ",.02)
;;656.23
;;9002226.02101,"1018,656.30 ",.01)
;;656.30
;;9002226.02101,"1018,656.30 ",.02)
;;656.30
;;9002226.02101,"1018,656.33 ",.01)
;;656.33
;;9002226.02101,"1018,656.33 ",.02)
;;656.33
;;9002226.02101,"1018,656.40 ",.01)
;;656.40
APCL23HF ; 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,653.80 ",.01)
+2 ;;653.80
+3 ;;9002226.02101,"1018,653.80 ",.02)
+4 ;;653.80
+5 ;;9002226.02101,"1018,653.83 ",.01)
+6 ;;653.83
+7 ;;9002226.02101,"1018,653.83 ",.02)
+8 ;;653.83
+9 ;;9002226.02101,"1018,653.90 ",.01)
+10 ;;653.90
+11 ;;9002226.02101,"1018,653.90 ",.02)
+12 ;;653.90
+13 ;;9002226.02101,"1018,653.93 ",.01)
+14 ;;653.93
+15 ;;9002226.02101,"1018,653.93 ",.02)
+16 ;;653.93
+17 ;;9002226.02101,"1018,654.00 ",.01)
+18 ;;654.00
+19 ;;9002226.02101,"1018,654.00 ",.02)
+20 ;;654.00
+21 ;;9002226.02101,"1018,654.03 ",.01)
+22 ;;654.03
+23 ;;9002226.02101,"1018,654.03 ",.02)
+24 ;;654.03
+25 ;;9002226.02101,"1018,654.10 ",.01)
+26 ;;654.10
+27 ;;9002226.02101,"1018,654.10 ",.02)
+28 ;;654.10
+29 ;;9002226.02101,"1018,654.13 ",.01)
+30 ;;654.13
+31 ;;9002226.02101,"1018,654.13 ",.02)
+32 ;;654.13
+33 ;;9002226.02101,"1018,654.20 ",.01)
+34 ;;654.20
+35 ;;9002226.02101,"1018,654.20 ",.02)
+36 ;;654.20
+37 ;;9002226.02101,"1018,654.23 ",.01)
+38 ;;654.23
+39 ;;9002226.02101,"1018,654.23 ",.02)
+40 ;;654.23
+41 ;;9002226.02101,"1018,654.30 ",.01)
+42 ;;654.30
+43 ;;9002226.02101,"1018,654.30 ",.02)
+44 ;;654.30
+45 ;;9002226.02101,"1018,654.33 ",.01)
+46 ;;654.33
+47 ;;9002226.02101,"1018,654.33 ",.02)
+48 ;;654.33
+49 ;;9002226.02101,"1018,654.40 ",.01)
+50 ;;654.40
+51 ;;9002226.02101,"1018,654.40 ",.02)
+52 ;;654.40
+53 ;;9002226.02101,"1018,654.43 ",.01)
+54 ;;654.43
+55 ;;9002226.02101,"1018,654.43 ",.02)
+56 ;;654.43
+57 ;;9002226.02101,"1018,654.50 ",.01)
+58 ;;654.50
+59 ;;9002226.02101,"1018,654.50 ",.02)
+60 ;;654.50
+61 ;;9002226.02101,"1018,654.53 ",.01)
+62 ;;654.53
+63 ;;9002226.02101,"1018,654.53 ",.02)
+64 ;;654.53
+65 ;;9002226.02101,"1018,654.60 ",.01)
+66 ;;654.60
+67 ;;9002226.02101,"1018,654.60 ",.02)
+68 ;;654.60
+69 ;;9002226.02101,"1018,654.63 ",.01)
+70 ;;654.63
+71 ;;9002226.02101,"1018,654.63 ",.02)
+72 ;;654.63
+73 ;;9002226.02101,"1018,654.70 ",.01)
+74 ;;654.70
+75 ;;9002226.02101,"1018,654.70 ",.02)
+76 ;;654.70
+77 ;;9002226.02101,"1018,654.73 ",.01)
+78 ;;654.73
+79 ;;9002226.02101,"1018,654.73 ",.02)
+80 ;;654.73
+81 ;;9002226.02101,"1018,654.80 ",.01)
+82 ;;654.80
+83 ;;9002226.02101,"1018,654.80 ",.02)
+84 ;;654.80
+85 ;;9002226.02101,"1018,654.83 ",.01)
+86 ;;654.83
+87 ;;9002226.02101,"1018,654.83 ",.02)
+88 ;;654.83
+89 ;;9002226.02101,"1018,654.90 ",.01)
+90 ;;654.90
+91 ;;9002226.02101,"1018,654.90 ",.02)
+92 ;;654.90
+93 ;;9002226.02101,"1018,654.93 ",.01)
+94 ;;654.93
+95 ;;9002226.02101,"1018,654.93 ",.02)
+96 ;;654.93
+97 ;;9002226.02101,"1018,655.00 ",.01)
+98 ;;655.00
+99 ;;9002226.02101,"1018,655.00 ",.02)
+100 ;;655.00
+101 ;;9002226.02101,"1018,655.03 ",.01)
+102 ;;655.03
+103 ;;9002226.02101,"1018,655.03 ",.02)
+104 ;;655.03
+105 ;;9002226.02101,"1018,655.10 ",.01)
+106 ;;655.10
+107 ;;9002226.02101,"1018,655.10 ",.02)
+108 ;;655.10
+109 ;;9002226.02101,"1018,655.13 ",.01)
+110 ;;655.13
+111 ;;9002226.02101,"1018,655.13 ",.02)
+112 ;;655.13
+113 ;;9002226.02101,"1018,655.20 ",.01)
+114 ;;655.20
+115 ;;9002226.02101,"1018,655.20 ",.02)
+116 ;;655.20
+117 ;;9002226.02101,"1018,655.23 ",.01)
+118 ;;655.23
+119 ;;9002226.02101,"1018,655.23 ",.02)
+120 ;;655.23
+121 ;;9002226.02101,"1018,655.30 ",.01)
+122 ;;655.30
+123 ;;9002226.02101,"1018,655.30 ",.02)
+124 ;;655.30
+125 ;;9002226.02101,"1018,655.33 ",.01)
+126 ;;655.33
+127 ;;9002226.02101,"1018,655.33 ",.02)
+128 ;;655.33
+129 ;;9002226.02101,"1018,655.40 ",.01)
+130 ;;655.40
+131 ;;9002226.02101,"1018,655.40 ",.02)
+132 ;;655.40
+133 ;;9002226.02101,"1018,655.43 ",.01)
+134 ;;655.43
+135 ;;9002226.02101,"1018,655.43 ",.02)
+136 ;;655.43
+137 ;;9002226.02101,"1018,655.50 ",.01)
+138 ;;655.50
+139 ;;9002226.02101,"1018,655.50 ",.02)
+140 ;;655.50
+141 ;;9002226.02101,"1018,655.53 ",.01)
+142 ;;655.53
+143 ;;9002226.02101,"1018,655.53 ",.02)
+144 ;;655.53
+145 ;;9002226.02101,"1018,655.60 ",.01)
+146 ;;655.60
+147 ;;9002226.02101,"1018,655.60 ",.02)
+148 ;;655.60
+149 ;;9002226.02101,"1018,655.63 ",.01)
+150 ;;655.63
+151 ;;9002226.02101,"1018,655.63 ",.02)
+152 ;;655.63
+153 ;;9002226.02101,"1018,655.70 ",.01)
+154 ;;655.70
+155 ;;9002226.02101,"1018,655.70 ",.02)
+156 ;;655.70
+157 ;;9002226.02101,"1018,655.73 ",.01)
+158 ;;655.73
+159 ;;9002226.02101,"1018,655.73 ",.02)
+160 ;;655.73
+161 ;;9002226.02101,"1018,655.80 ",.01)
+162 ;;655.80
+163 ;;9002226.02101,"1018,655.80 ",.02)
+164 ;;655.80
+165 ;;9002226.02101,"1018,655.83 ",.01)
+166 ;;655.83
+167 ;;9002226.02101,"1018,655.83 ",.02)
+168 ;;655.83
+169 ;;9002226.02101,"1018,655.90 ",.01)
+170 ;;655.90
+171 ;;9002226.02101,"1018,655.90 ",.02)
+172 ;;655.90
+173 ;;9002226.02101,"1018,655.93 ",.01)
+174 ;;655.93
+175 ;;9002226.02101,"1018,655.93 ",.02)
+176 ;;655.93
+177 ;;9002226.02101,"1018,656.00 ",.01)
+178 ;;656.00
+179 ;;9002226.02101,"1018,656.00 ",.02)
+180 ;;656.00
+181 ;;9002226.02101,"1018,656.03 ",.01)
+182 ;;656.03
+183 ;;9002226.02101,"1018,656.03 ",.02)
+184 ;;656.03
+185 ;;9002226.02101,"1018,656.10 ",.01)
+186 ;;656.10
+187 ;;9002226.02101,"1018,656.10 ",.02)
+188 ;;656.10
+189 ;;9002226.02101,"1018,656.13 ",.01)
+190 ;;656.13
+191 ;;9002226.02101,"1018,656.13 ",.02)
+192 ;;656.13
+193 ;;9002226.02101,"1018,656.20 ",.01)
+194 ;;656.20
+195 ;;9002226.02101,"1018,656.20 ",.02)
+196 ;;656.20
+197 ;;9002226.02101,"1018,656.23 ",.01)
+198 ;;656.23
+199 ;;9002226.02101,"1018,656.23 ",.02)
+200 ;;656.23
+201 ;;9002226.02101,"1018,656.30 ",.01)
+202 ;;656.30
+203 ;;9002226.02101,"1018,656.30 ",.02)
+204 ;;656.30
+205 ;;9002226.02101,"1018,656.33 ",.01)
+206 ;;656.33
+207 ;;9002226.02101,"1018,656.33 ",.02)
+208 ;;656.33
+209 ;;9002226.02101,"1018,656.40 ",.01)
+210 ;;656.40
