APCL29UF ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JUN 12, 2013;
;;3.0;IHS PCC REPORTS;**29**;FEB 05, 1997;Build 35
;
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,"1322,654.62 ",.01)
;;654.62
;;9002226.02101,"1322,654.62 ",.02)
;;654.62
;;9002226.02101,"1322,654.64 ",.01)
;;654.64
;;9002226.02101,"1322,654.64 ",.02)
;;654.64
;;9002226.02101,"1322,654.71 ",.01)
;;654.71
;;9002226.02101,"1322,654.71 ",.02)
;;654.71
;;9002226.02101,"1322,654.72 ",.01)
;;654.72
;;9002226.02101,"1322,654.72 ",.02)
;;654.72
;;9002226.02101,"1322,654.74 ",.01)
;;654.74
;;9002226.02101,"1322,654.74 ",.02)
;;654.74
;;9002226.02101,"1322,654.81 ",.01)
;;654.81
;;9002226.02101,"1322,654.81 ",.02)
;;654.81
;;9002226.02101,"1322,654.82 ",.01)
;;654.82
;;9002226.02101,"1322,654.82 ",.02)
;;654.82
;;9002226.02101,"1322,654.84 ",.01)
;;654.84
;;9002226.02101,"1322,654.84 ",.02)
;;654.84
;;9002226.02101,"1322,654.91 ",.01)
;;654.91
;;9002226.02101,"1322,654.91 ",.02)
;;654.91
;;9002226.02101,"1322,654.92 ",.01)
;;654.92
;;9002226.02101,"1322,654.92 ",.02)
;;654.92
;;9002226.02101,"1322,654.94 ",.01)
;;654.94
;;9002226.02101,"1322,654.94 ",.02)
;;654.94
;;9002226.02101,"1322,655.01 ",.01)
;;655.01
;;9002226.02101,"1322,655.01 ",.02)
;;655.01
;;9002226.02101,"1322,655.11 ",.01)
;;655.11
;;9002226.02101,"1322,655.11 ",.02)
;;655.11
;;9002226.02101,"1322,655.21 ",.01)
;;655.21
;;9002226.02101,"1322,655.21 ",.02)
;;655.21
;;9002226.02101,"1322,655.31 ",.01)
;;655.31
;;9002226.02101,"1322,655.31 ",.02)
;;655.31
;;9002226.02101,"1322,655.41 ",.01)
;;655.41
;;9002226.02101,"1322,655.41 ",.02)
;;655.41
;;9002226.02101,"1322,655.51 ",.01)
;;655.51
;;9002226.02101,"1322,655.51 ",.02)
;;655.51
;;9002226.02101,"1322,655.61 ",.01)
;;655.61
;;9002226.02101,"1322,655.61 ",.02)
;;655.61
;;9002226.02101,"1322,655.71 ",.01)
;;655.71
;;9002226.02101,"1322,655.71 ",.02)
;;655.71
;;9002226.02101,"1322,655.81 ",.01)
;;655.81
;;9002226.02101,"1322,655.81 ",.02)
;;655.81
;;9002226.02101,"1322,655.91 ",.01)
;;655.91
;;9002226.02101,"1322,655.91 ",.02)
;;655.91
;;9002226.02101,"1322,656.01 ",.01)
;;656.01
;;9002226.02101,"1322,656.01 ",.02)
;;656.01
;;9002226.02101,"1322,656.11 ",.01)
;;656.11
;;9002226.02101,"1322,656.11 ",.02)
;;656.11
;;9002226.02101,"1322,656.21 ",.01)
;;656.21
;;9002226.02101,"1322,656.21 ",.02)
;;656.21
;;9002226.02101,"1322,656.31 ",.01)
;;656.31
;;9002226.02101,"1322,656.31 ",.02)
;;656.31
;;9002226.02101,"1322,656.41 ",.01)
;;656.41
;;9002226.02101,"1322,656.41 ",.02)
;;656.41
;;9002226.02101,"1322,656.51 ",.01)
;;656.51
;;9002226.02101,"1322,656.51 ",.02)
;;656.51
;;9002226.02101,"1322,656.61 ",.01)
;;656.61
;;9002226.02101,"1322,656.61 ",.02)
;;656.61
;;9002226.02101,"1322,656.71 ",.01)
;;656.71
;;9002226.02101,"1322,656.71 ",.02)
;;656.71
;;9002226.02101,"1322,656.81 ",.01)
;;656.81
;;9002226.02101,"1322,656.81 ",.02)
;;656.81
;;9002226.02101,"1322,656.91 ",.01)
;;656.91
;;9002226.02101,"1322,656.91 ",.02)
;;656.91
;;9002226.02101,"1322,657.01 ",.01)
;;657.01
;;9002226.02101,"1322,657.01 ",.02)
;;657.01
;;9002226.02101,"1322,658.01 ",.01)
;;658.01
;;9002226.02101,"1322,658.01 ",.02)
;;658.01
;;9002226.02101,"1322,658.11 ",.01)
;;658.11
;;9002226.02101,"1322,658.11 ",.02)
;;658.11
;;9002226.02101,"1322,658.21 ",.01)
;;658.21
;;9002226.02101,"1322,658.21 ",.02)
;;658.21
;;9002226.02101,"1322,658.31 ",.01)
;;658.31
;;9002226.02101,"1322,658.31 ",.02)
;;658.31
;;9002226.02101,"1322,658.41 ",.01)
;;658.41
;;9002226.02101,"1322,658.41 ",.02)
;;658.41
;;9002226.02101,"1322,658.81 ",.01)
;;658.81
;;9002226.02101,"1322,658.81 ",.02)
;;658.81
;;9002226.02101,"1322,658.91 ",.01)
;;658.91
;;9002226.02101,"1322,658.91 ",.02)
;;658.91
;;9002226.02101,"1322,659.01 ",.01)
;;659.01
;;9002226.02101,"1322,659.01 ",.02)
;;659.01
;;9002226.02101,"1322,659.11 ",.01)
;;659.11
;;9002226.02101,"1322,659.11 ",.02)
;;659.11
;;9002226.02101,"1322,659.21 ",.01)
;;659.21
;;9002226.02101,"1322,659.21 ",.02)
;;659.21
;;9002226.02101,"1322,659.31 ",.01)
;;659.31
;;9002226.02101,"1322,659.31 ",.02)
;;659.31
;;9002226.02101,"1322,659.41 ",.01)
;;659.41
;;9002226.02101,"1322,659.41 ",.02)
;;659.41
;;9002226.02101,"1322,659.51 ",.01)
;;659.51
;;9002226.02101,"1322,659.51 ",.02)
;;659.51
;;9002226.02101,"1322,659.61 ",.01)
;;659.61
;;9002226.02101,"1322,659.61 ",.02)
;;659.61
;;9002226.02101,"1322,659.71 ",.01)
;;659.71
;;9002226.02101,"1322,659.71 ",.02)
;;659.71
;;9002226.02101,"1322,659.81 ",.01)
;;659.81
;;9002226.02101,"1322,659.81 ",.02)
;;659.81
;;9002226.02101,"1322,659.91 ",.01)
;;659.91
;;9002226.02101,"1322,659.91 ",.02)
;;659.91
;;9002226.02101,"1322,660.01 ",.01)
;;660.01
;;9002226.02101,"1322,660.01 ",.02)
;;660.01
;;9002226.02101,"1322,660.11 ",.01)
;;660.11
;;9002226.02101,"1322,660.11 ",.02)
;;660.11
;;9002226.02101,"1322,660.21 ",.01)
;;660.21
;;9002226.02101,"1322,660.21 ",.02)
;;660.21
;;9002226.02101,"1322,660.31 ",.01)
;;660.31
APCL29UF ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JUN 12, 2013;
+1 ;;3.0;IHS PCC REPORTS;**29**;FEB 05, 1997;Build 35
+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,"1322,654.62 ",.01)
+2 ;;654.62
+3 ;;9002226.02101,"1322,654.62 ",.02)
+4 ;;654.62
+5 ;;9002226.02101,"1322,654.64 ",.01)
+6 ;;654.64
+7 ;;9002226.02101,"1322,654.64 ",.02)
+8 ;;654.64
+9 ;;9002226.02101,"1322,654.71 ",.01)
+10 ;;654.71
+11 ;;9002226.02101,"1322,654.71 ",.02)
+12 ;;654.71
+13 ;;9002226.02101,"1322,654.72 ",.01)
+14 ;;654.72
+15 ;;9002226.02101,"1322,654.72 ",.02)
+16 ;;654.72
+17 ;;9002226.02101,"1322,654.74 ",.01)
+18 ;;654.74
+19 ;;9002226.02101,"1322,654.74 ",.02)
+20 ;;654.74
+21 ;;9002226.02101,"1322,654.81 ",.01)
+22 ;;654.81
+23 ;;9002226.02101,"1322,654.81 ",.02)
+24 ;;654.81
+25 ;;9002226.02101,"1322,654.82 ",.01)
+26 ;;654.82
+27 ;;9002226.02101,"1322,654.82 ",.02)
+28 ;;654.82
+29 ;;9002226.02101,"1322,654.84 ",.01)
+30 ;;654.84
+31 ;;9002226.02101,"1322,654.84 ",.02)
+32 ;;654.84
+33 ;;9002226.02101,"1322,654.91 ",.01)
+34 ;;654.91
+35 ;;9002226.02101,"1322,654.91 ",.02)
+36 ;;654.91
+37 ;;9002226.02101,"1322,654.92 ",.01)
+38 ;;654.92
+39 ;;9002226.02101,"1322,654.92 ",.02)
+40 ;;654.92
+41 ;;9002226.02101,"1322,654.94 ",.01)
+42 ;;654.94
+43 ;;9002226.02101,"1322,654.94 ",.02)
+44 ;;654.94
+45 ;;9002226.02101,"1322,655.01 ",.01)
+46 ;;655.01
+47 ;;9002226.02101,"1322,655.01 ",.02)
+48 ;;655.01
+49 ;;9002226.02101,"1322,655.11 ",.01)
+50 ;;655.11
+51 ;;9002226.02101,"1322,655.11 ",.02)
+52 ;;655.11
+53 ;;9002226.02101,"1322,655.21 ",.01)
+54 ;;655.21
+55 ;;9002226.02101,"1322,655.21 ",.02)
+56 ;;655.21
+57 ;;9002226.02101,"1322,655.31 ",.01)
+58 ;;655.31
+59 ;;9002226.02101,"1322,655.31 ",.02)
+60 ;;655.31
+61 ;;9002226.02101,"1322,655.41 ",.01)
+62 ;;655.41
+63 ;;9002226.02101,"1322,655.41 ",.02)
+64 ;;655.41
+65 ;;9002226.02101,"1322,655.51 ",.01)
+66 ;;655.51
+67 ;;9002226.02101,"1322,655.51 ",.02)
+68 ;;655.51
+69 ;;9002226.02101,"1322,655.61 ",.01)
+70 ;;655.61
+71 ;;9002226.02101,"1322,655.61 ",.02)
+72 ;;655.61
+73 ;;9002226.02101,"1322,655.71 ",.01)
+74 ;;655.71
+75 ;;9002226.02101,"1322,655.71 ",.02)
+76 ;;655.71
+77 ;;9002226.02101,"1322,655.81 ",.01)
+78 ;;655.81
+79 ;;9002226.02101,"1322,655.81 ",.02)
+80 ;;655.81
+81 ;;9002226.02101,"1322,655.91 ",.01)
+82 ;;655.91
+83 ;;9002226.02101,"1322,655.91 ",.02)
+84 ;;655.91
+85 ;;9002226.02101,"1322,656.01 ",.01)
+86 ;;656.01
+87 ;;9002226.02101,"1322,656.01 ",.02)
+88 ;;656.01
+89 ;;9002226.02101,"1322,656.11 ",.01)
+90 ;;656.11
+91 ;;9002226.02101,"1322,656.11 ",.02)
+92 ;;656.11
+93 ;;9002226.02101,"1322,656.21 ",.01)
+94 ;;656.21
+95 ;;9002226.02101,"1322,656.21 ",.02)
+96 ;;656.21
+97 ;;9002226.02101,"1322,656.31 ",.01)
+98 ;;656.31
+99 ;;9002226.02101,"1322,656.31 ",.02)
+100 ;;656.31
+101 ;;9002226.02101,"1322,656.41 ",.01)
+102 ;;656.41
+103 ;;9002226.02101,"1322,656.41 ",.02)
+104 ;;656.41
+105 ;;9002226.02101,"1322,656.51 ",.01)
+106 ;;656.51
+107 ;;9002226.02101,"1322,656.51 ",.02)
+108 ;;656.51
+109 ;;9002226.02101,"1322,656.61 ",.01)
+110 ;;656.61
+111 ;;9002226.02101,"1322,656.61 ",.02)
+112 ;;656.61
+113 ;;9002226.02101,"1322,656.71 ",.01)
+114 ;;656.71
+115 ;;9002226.02101,"1322,656.71 ",.02)
+116 ;;656.71
+117 ;;9002226.02101,"1322,656.81 ",.01)
+118 ;;656.81
+119 ;;9002226.02101,"1322,656.81 ",.02)
+120 ;;656.81
+121 ;;9002226.02101,"1322,656.91 ",.01)
+122 ;;656.91
+123 ;;9002226.02101,"1322,656.91 ",.02)
+124 ;;656.91
+125 ;;9002226.02101,"1322,657.01 ",.01)
+126 ;;657.01
+127 ;;9002226.02101,"1322,657.01 ",.02)
+128 ;;657.01
+129 ;;9002226.02101,"1322,658.01 ",.01)
+130 ;;658.01
+131 ;;9002226.02101,"1322,658.01 ",.02)
+132 ;;658.01
+133 ;;9002226.02101,"1322,658.11 ",.01)
+134 ;;658.11
+135 ;;9002226.02101,"1322,658.11 ",.02)
+136 ;;658.11
+137 ;;9002226.02101,"1322,658.21 ",.01)
+138 ;;658.21
+139 ;;9002226.02101,"1322,658.21 ",.02)
+140 ;;658.21
+141 ;;9002226.02101,"1322,658.31 ",.01)
+142 ;;658.31
+143 ;;9002226.02101,"1322,658.31 ",.02)
+144 ;;658.31
+145 ;;9002226.02101,"1322,658.41 ",.01)
+146 ;;658.41
+147 ;;9002226.02101,"1322,658.41 ",.02)
+148 ;;658.41
+149 ;;9002226.02101,"1322,658.81 ",.01)
+150 ;;658.81
+151 ;;9002226.02101,"1322,658.81 ",.02)
+152 ;;658.81
+153 ;;9002226.02101,"1322,658.91 ",.01)
+154 ;;658.91
+155 ;;9002226.02101,"1322,658.91 ",.02)
+156 ;;658.91
+157 ;;9002226.02101,"1322,659.01 ",.01)
+158 ;;659.01
+159 ;;9002226.02101,"1322,659.01 ",.02)
+160 ;;659.01
+161 ;;9002226.02101,"1322,659.11 ",.01)
+162 ;;659.11
+163 ;;9002226.02101,"1322,659.11 ",.02)
+164 ;;659.11
+165 ;;9002226.02101,"1322,659.21 ",.01)
+166 ;;659.21
+167 ;;9002226.02101,"1322,659.21 ",.02)
+168 ;;659.21
+169 ;;9002226.02101,"1322,659.31 ",.01)
+170 ;;659.31
+171 ;;9002226.02101,"1322,659.31 ",.02)
+172 ;;659.31
+173 ;;9002226.02101,"1322,659.41 ",.01)
+174 ;;659.41
+175 ;;9002226.02101,"1322,659.41 ",.02)
+176 ;;659.41
+177 ;;9002226.02101,"1322,659.51 ",.01)
+178 ;;659.51
+179 ;;9002226.02101,"1322,659.51 ",.02)
+180 ;;659.51
+181 ;;9002226.02101,"1322,659.61 ",.01)
+182 ;;659.61
+183 ;;9002226.02101,"1322,659.61 ",.02)
+184 ;;659.61
+185 ;;9002226.02101,"1322,659.71 ",.01)
+186 ;;659.71
+187 ;;9002226.02101,"1322,659.71 ",.02)
+188 ;;659.71
+189 ;;9002226.02101,"1322,659.81 ",.01)
+190 ;;659.81
+191 ;;9002226.02101,"1322,659.81 ",.02)
+192 ;;659.81
+193 ;;9002226.02101,"1322,659.91 ",.01)
+194 ;;659.91
+195 ;;9002226.02101,"1322,659.91 ",.02)
+196 ;;659.91
+197 ;;9002226.02101,"1322,660.01 ",.01)
+198 ;;660.01
+199 ;;9002226.02101,"1322,660.01 ",.02)
+200 ;;660.01
+201 ;;9002226.02101,"1322,660.11 ",.01)
+202 ;;660.11
+203 ;;9002226.02101,"1322,660.11 ",.02)
+204 ;;660.11
+205 ;;9002226.02101,"1322,660.21 ",.01)
+206 ;;660.21
+207 ;;9002226.02101,"1322,660.21 ",.02)
+208 ;;660.21
+209 ;;9002226.02101,"1322,660.31 ",.01)
+210 ;;660.31
