APCL23HC ; 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,640.83 ",.02)
;;640.90
;;9002226.02101,"1018,640.93 ",.01)
;;640.93
;;9002226.02101,"1018,640.93 ",.02)
;;641.00
;;9002226.02101,"1018,641.03 ",.01)
;;641.03
;;9002226.02101,"1018,641.03 ",.02)
;;641.10
;;9002226.02101,"1018,641.13 ",.01)
;;641.13
;;9002226.02101,"1018,641.13 ",.02)
;;641.20
;;9002226.02101,"1018,641.23 ",.01)
;;641.23
;;9002226.02101,"1018,641.23 ",.02)
;;641.30
;;9002226.02101,"1018,641.33 ",.01)
;;641.33
;;9002226.02101,"1018,641.33 ",.02)
;;641.80
;;9002226.02101,"1018,641.83 ",.01)
;;641.83
;;9002226.02101,"1018,641.83 ",.02)
;;641.90
;;9002226.02101,"1018,641.93 ",.01)
;;641.93
;;9002226.02101,"1018,641.93 ",.02)
;;642.00
;;9002226.02101,"1018,642.03 ",.01)
;;642.03
;;9002226.02101,"1018,642.03 ",.02)
;;642.03
;;9002226.02101,"1018,642.10 ",.01)
;;642.10
;;9002226.02101,"1018,642.10 ",.02)
;;642.10
;;9002226.02101,"1018,642.13 ",.01)
;;642.13
;;9002226.02101,"1018,642.13 ",.02)
;;642.13
;;9002226.02101,"1018,642.20 ",.01)
;;642.20
;;9002226.02101,"1018,642.20 ",.02)
;;642.20
;;9002226.02101,"1018,642.23 ",.01)
;;642.23
;;9002226.02101,"1018,642.23 ",.02)
;;642.23
;;9002226.02101,"1018,642.30 ",.01)
;;642.30
;;9002226.02101,"1018,642.30 ",.02)
;;642.30
;;9002226.02101,"1018,642.33 ",.01)
;;642.33
;;9002226.02101,"1018,642.33 ",.02)
;;642.33
;;9002226.02101,"1018,642.40 ",.01)
;;642.40
;;9002226.02101,"1018,642.40 ",.02)
;;642.40
;;9002226.02101,"1018,642.43 ",.01)
;;642.43
;;9002226.02101,"1018,642.43 ",.02)
;;642.43
;;9002226.02101,"1018,642.50 ",.01)
;;642.50
;;9002226.02101,"1018,642.50 ",.02)
;;642.50
;;9002226.02101,"1018,642.53 ",.01)
;;642.53
;;9002226.02101,"1018,642.53 ",.02)
;;642.53
;;9002226.02101,"1018,642.60 ",.01)
;;642.60
;;9002226.02101,"1018,642.60 ",.02)
;;642.60
;;9002226.02101,"1018,642.63 ",.01)
;;642.63
;;9002226.02101,"1018,642.63 ",.02)
;;642.63
;;9002226.02101,"1018,642.70 ",.01)
;;642.70
;;9002226.02101,"1018,642.70 ",.02)
;;642.70
;;9002226.02101,"1018,642.73 ",.01)
;;642.73
;;9002226.02101,"1018,642.73 ",.02)
;;642.73
;;9002226.02101,"1018,642.90 ",.01)
;;642.90
;;9002226.02101,"1018,642.90 ",.02)
;;642.90
;;9002226.02101,"1018,642.93 ",.01)
;;642.93
;;9002226.02101,"1018,642.93 ",.02)
;;642.93
;;9002226.02101,"1018,643.00 ",.01)
;;643.00
;;9002226.02101,"1018,643.00 ",.02)
;;643.00
;;9002226.02101,"1018,643.03 ",.01)
;;643.03
;;9002226.02101,"1018,643.03 ",.02)
;;643.10
;;9002226.02101,"1018,643.13 ",.01)
;;643.13
;;9002226.02101,"1018,643.13 ",.02)
;;643.20
;;9002226.02101,"1018,643.23 ",.01)
;;643.23
;;9002226.02101,"1018,643.23 ",.02)
;;643.80
;;9002226.02101,"1018,643.83 ",.01)
;;643.83
;;9002226.02101,"1018,643.83 ",.02)
;;643.90
;;9002226.02101,"1018,643.93 ",.01)
;;643.93
;;9002226.02101,"1018,643.93 ",.02)
;;644.13
;;9002226.02101,"1018,645.00 ",.01)
;;645.00
;;9002226.02101,"1018,645.00 ",.02)
;;645.00
;;9002226.02101,"1018,645.03 ",.01)
;;645.03
;;9002226.02101,"1018,645.03 ",.02)
;;645.10
;;9002226.02101,"1018,645.13 ",.01)
;;645.13
;;9002226.02101,"1018,645.13 ",.02)
;;645.20
;;9002226.02101,"1018,645.23 ",.01)
;;645.23
;;9002226.02101,"1018,645.23 ",.02)
;;646.00
;;9002226.02101,"1018,646.03 ",.01)
;;646.03
;;9002226.02101,"1018,646.03 ",.02)
;;646.10
;;9002226.02101,"1018,646.13 ",.01)
;;646.13
;;9002226.02101,"1018,646.13 ",.02)
;;646.20
;;9002226.02101,"1018,646.23 ",.01)
;;646.23
;;9002226.02101,"1018,646.23 ",.02)
;;646.23
;;9002226.02101,"1018,646.30 ",.01)
;;646.30
;;9002226.02101,"1018,646.30 ",.02)
;;646.30
;;9002226.02101,"1018,646.33 ",.01)
;;646.33
;;9002226.02101,"1018,646.33 ",.02)
;;646.40
;;9002226.02101,"1018,646.43 ",.01)
;;646.43
;;9002226.02101,"1018,646.43 ",.02)
;;646.43
;;9002226.02101,"1018,646.50 ",.01)
;;646.50
;;9002226.02101,"1018,646.50 ",.02)
;;646.50
;;9002226.02101,"1018,646.53 ",.01)
;;646.53
;;9002226.02101,"1018,646.53 ",.02)
;;646.53
;;9002226.02101,"1018,646.60 ",.01)
;;646.60
;;9002226.02101,"1018,646.60 ",.02)
;;646.60
;;9002226.02101,"1018,646.63 ",.01)
;;646.63
;;9002226.02101,"1018,646.63 ",.02)
;;646.63
;;9002226.02101,"1018,646.70 ",.01)
;;646.70
;;9002226.02101,"1018,646.70 ",.02)
;;646.70
;;9002226.02101,"1018,646.73 ",.01)
;;646.73
;;9002226.02101,"1018,646.73 ",.02)
;;646.80
;;9002226.02101,"1018,646.83 ",.01)
;;646.83
;;9002226.02101,"1018,646.83 ",.02)
;;646.83
;;9002226.02101,"1018,646.90 ",.01)
;;646.90
;;9002226.02101,"1018,646.90 ",.02)
;;646.90
;;9002226.02101,"1018,646.93 ",.01)
;;646.93
;;9002226.02101,"1018,646.93 ",.02)
;;647.00
;;9002226.02101,"1018,647.03 ",.01)
;;647.03
;;9002226.02101,"1018,647.03 ",.02)
;;647.03
;;9002226.02101,"1018,647.10 ",.01)
;;647.10
;;9002226.02101,"1018,647.10 ",.02)
;;647.10
;;9002226.02101,"1018,647.13 ",.01)
;;647.13
;;9002226.02101,"1018,647.13 ",.02)
;;647.13
APCL23HC ; 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,640.83 ",.02)
+2 ;;640.90
+3 ;;9002226.02101,"1018,640.93 ",.01)
+4 ;;640.93
+5 ;;9002226.02101,"1018,640.93 ",.02)
+6 ;;641.00
+7 ;;9002226.02101,"1018,641.03 ",.01)
+8 ;;641.03
+9 ;;9002226.02101,"1018,641.03 ",.02)
+10 ;;641.10
+11 ;;9002226.02101,"1018,641.13 ",.01)
+12 ;;641.13
+13 ;;9002226.02101,"1018,641.13 ",.02)
+14 ;;641.20
+15 ;;9002226.02101,"1018,641.23 ",.01)
+16 ;;641.23
+17 ;;9002226.02101,"1018,641.23 ",.02)
+18 ;;641.30
+19 ;;9002226.02101,"1018,641.33 ",.01)
+20 ;;641.33
+21 ;;9002226.02101,"1018,641.33 ",.02)
+22 ;;641.80
+23 ;;9002226.02101,"1018,641.83 ",.01)
+24 ;;641.83
+25 ;;9002226.02101,"1018,641.83 ",.02)
+26 ;;641.90
+27 ;;9002226.02101,"1018,641.93 ",.01)
+28 ;;641.93
+29 ;;9002226.02101,"1018,641.93 ",.02)
+30 ;;642.00
+31 ;;9002226.02101,"1018,642.03 ",.01)
+32 ;;642.03
+33 ;;9002226.02101,"1018,642.03 ",.02)
+34 ;;642.03
+35 ;;9002226.02101,"1018,642.10 ",.01)
+36 ;;642.10
+37 ;;9002226.02101,"1018,642.10 ",.02)
+38 ;;642.10
+39 ;;9002226.02101,"1018,642.13 ",.01)
+40 ;;642.13
+41 ;;9002226.02101,"1018,642.13 ",.02)
+42 ;;642.13
+43 ;;9002226.02101,"1018,642.20 ",.01)
+44 ;;642.20
+45 ;;9002226.02101,"1018,642.20 ",.02)
+46 ;;642.20
+47 ;;9002226.02101,"1018,642.23 ",.01)
+48 ;;642.23
+49 ;;9002226.02101,"1018,642.23 ",.02)
+50 ;;642.23
+51 ;;9002226.02101,"1018,642.30 ",.01)
+52 ;;642.30
+53 ;;9002226.02101,"1018,642.30 ",.02)
+54 ;;642.30
+55 ;;9002226.02101,"1018,642.33 ",.01)
+56 ;;642.33
+57 ;;9002226.02101,"1018,642.33 ",.02)
+58 ;;642.33
+59 ;;9002226.02101,"1018,642.40 ",.01)
+60 ;;642.40
+61 ;;9002226.02101,"1018,642.40 ",.02)
+62 ;;642.40
+63 ;;9002226.02101,"1018,642.43 ",.01)
+64 ;;642.43
+65 ;;9002226.02101,"1018,642.43 ",.02)
+66 ;;642.43
+67 ;;9002226.02101,"1018,642.50 ",.01)
+68 ;;642.50
+69 ;;9002226.02101,"1018,642.50 ",.02)
+70 ;;642.50
+71 ;;9002226.02101,"1018,642.53 ",.01)
+72 ;;642.53
+73 ;;9002226.02101,"1018,642.53 ",.02)
+74 ;;642.53
+75 ;;9002226.02101,"1018,642.60 ",.01)
+76 ;;642.60
+77 ;;9002226.02101,"1018,642.60 ",.02)
+78 ;;642.60
+79 ;;9002226.02101,"1018,642.63 ",.01)
+80 ;;642.63
+81 ;;9002226.02101,"1018,642.63 ",.02)
+82 ;;642.63
+83 ;;9002226.02101,"1018,642.70 ",.01)
+84 ;;642.70
+85 ;;9002226.02101,"1018,642.70 ",.02)
+86 ;;642.70
+87 ;;9002226.02101,"1018,642.73 ",.01)
+88 ;;642.73
+89 ;;9002226.02101,"1018,642.73 ",.02)
+90 ;;642.73
+91 ;;9002226.02101,"1018,642.90 ",.01)
+92 ;;642.90
+93 ;;9002226.02101,"1018,642.90 ",.02)
+94 ;;642.90
+95 ;;9002226.02101,"1018,642.93 ",.01)
+96 ;;642.93
+97 ;;9002226.02101,"1018,642.93 ",.02)
+98 ;;642.93
+99 ;;9002226.02101,"1018,643.00 ",.01)
+100 ;;643.00
+101 ;;9002226.02101,"1018,643.00 ",.02)
+102 ;;643.00
+103 ;;9002226.02101,"1018,643.03 ",.01)
+104 ;;643.03
+105 ;;9002226.02101,"1018,643.03 ",.02)
+106 ;;643.10
+107 ;;9002226.02101,"1018,643.13 ",.01)
+108 ;;643.13
+109 ;;9002226.02101,"1018,643.13 ",.02)
+110 ;;643.20
+111 ;;9002226.02101,"1018,643.23 ",.01)
+112 ;;643.23
+113 ;;9002226.02101,"1018,643.23 ",.02)
+114 ;;643.80
+115 ;;9002226.02101,"1018,643.83 ",.01)
+116 ;;643.83
+117 ;;9002226.02101,"1018,643.83 ",.02)
+118 ;;643.90
+119 ;;9002226.02101,"1018,643.93 ",.01)
+120 ;;643.93
+121 ;;9002226.02101,"1018,643.93 ",.02)
+122 ;;644.13
+123 ;;9002226.02101,"1018,645.00 ",.01)
+124 ;;645.00
+125 ;;9002226.02101,"1018,645.00 ",.02)
+126 ;;645.00
+127 ;;9002226.02101,"1018,645.03 ",.01)
+128 ;;645.03
+129 ;;9002226.02101,"1018,645.03 ",.02)
+130 ;;645.10
+131 ;;9002226.02101,"1018,645.13 ",.01)
+132 ;;645.13
+133 ;;9002226.02101,"1018,645.13 ",.02)
+134 ;;645.20
+135 ;;9002226.02101,"1018,645.23 ",.01)
+136 ;;645.23
+137 ;;9002226.02101,"1018,645.23 ",.02)
+138 ;;646.00
+139 ;;9002226.02101,"1018,646.03 ",.01)
+140 ;;646.03
+141 ;;9002226.02101,"1018,646.03 ",.02)
+142 ;;646.10
+143 ;;9002226.02101,"1018,646.13 ",.01)
+144 ;;646.13
+145 ;;9002226.02101,"1018,646.13 ",.02)
+146 ;;646.20
+147 ;;9002226.02101,"1018,646.23 ",.01)
+148 ;;646.23
+149 ;;9002226.02101,"1018,646.23 ",.02)
+150 ;;646.23
+151 ;;9002226.02101,"1018,646.30 ",.01)
+152 ;;646.30
+153 ;;9002226.02101,"1018,646.30 ",.02)
+154 ;;646.30
+155 ;;9002226.02101,"1018,646.33 ",.01)
+156 ;;646.33
+157 ;;9002226.02101,"1018,646.33 ",.02)
+158 ;;646.40
+159 ;;9002226.02101,"1018,646.43 ",.01)
+160 ;;646.43
+161 ;;9002226.02101,"1018,646.43 ",.02)
+162 ;;646.43
+163 ;;9002226.02101,"1018,646.50 ",.01)
+164 ;;646.50
+165 ;;9002226.02101,"1018,646.50 ",.02)
+166 ;;646.50
+167 ;;9002226.02101,"1018,646.53 ",.01)
+168 ;;646.53
+169 ;;9002226.02101,"1018,646.53 ",.02)
+170 ;;646.53
+171 ;;9002226.02101,"1018,646.60 ",.01)
+172 ;;646.60
+173 ;;9002226.02101,"1018,646.60 ",.02)
+174 ;;646.60
+175 ;;9002226.02101,"1018,646.63 ",.01)
+176 ;;646.63
+177 ;;9002226.02101,"1018,646.63 ",.02)
+178 ;;646.63
+179 ;;9002226.02101,"1018,646.70 ",.01)
+180 ;;646.70
+181 ;;9002226.02101,"1018,646.70 ",.02)
+182 ;;646.70
+183 ;;9002226.02101,"1018,646.73 ",.01)
+184 ;;646.73
+185 ;;9002226.02101,"1018,646.73 ",.02)
+186 ;;646.80
+187 ;;9002226.02101,"1018,646.83 ",.01)
+188 ;;646.83
+189 ;;9002226.02101,"1018,646.83 ",.02)
+190 ;;646.83
+191 ;;9002226.02101,"1018,646.90 ",.01)
+192 ;;646.90
+193 ;;9002226.02101,"1018,646.90 ",.02)
+194 ;;646.90
+195 ;;9002226.02101,"1018,646.93 ",.01)
+196 ;;646.93
+197 ;;9002226.02101,"1018,646.93 ",.02)
+198 ;;647.00
+199 ;;9002226.02101,"1018,647.03 ",.01)
+200 ;;647.03
+201 ;;9002226.02101,"1018,647.03 ",.02)
+202 ;;647.03
+203 ;;9002226.02101,"1018,647.10 ",.01)
+204 ;;647.10
+205 ;;9002226.02101,"1018,647.10 ",.02)
+206 ;;647.10
+207 ;;9002226.02101,"1018,647.13 ",.01)
+208 ;;647.13
+209 ;;9002226.02101,"1018,647.13 ",.02)
+210 ;;647.13
