APCL23FH ; 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,"1019,668.24 ",.01)
;;668.24
;;9002226.02101,"1019,668.24 ",.02)
;;668.82
;;9002226.02101,"1019,668.84 ",.01)
;;668.84
;;9002226.02101,"1019,668.84 ",.02)
;;668.92
;;9002226.02101,"1019,668.94 ",.01)
;;668.94
;;9002226.02101,"1019,668.94 ",.02)
;;668.94
;;9002226.02101,"1019,669.00 ",.01)
;;669.00
;;9002226.02101,"1019,669.00 ",.02)
;;669.02
;;9002226.02101,"1019,669.04 ",.01)
;;669.04
;;9002226.02101,"1019,669.04 ",.02)
;;669.12
;;9002226.02101,"1019,669.14 ",.01)
;;669.14
;;9002226.02101,"1019,669.14 ",.02)
;;669.22
;;9002226.02101,"1019,669.24 ",.01)
;;669.24
;;9002226.02101,"1019,669.24 ",.02)
;;669.42
;;9002226.02101,"1019,669.44 ",.01)
;;669.44
;;9002226.02101,"1019,669.44 ",.02)
;;669.82
;;9002226.02101,"1019,669.84 ",.01)
;;669.84
;;9002226.02101,"1019,669.84 ",.02)
;;669.92
;;9002226.02101,"1019,669.94 ",.01)
;;669.94
;;9002226.02101,"1019,669.94 ",.02)
;;669.94
;;9002226.02101,"1019,670.00 ",.01)
;;670.00
;;9002226.02101,"1019,670.00 ",.02)
;;670.04
;;9002226.02101,"1019,671.01 ",.01)
;;671.01
;;9002226.02101,"1019,671.01 ",.02)
;;671.01
;;9002226.02101,"1019,671.02 ",.01)
;;671.02
;;9002226.02101,"1019,671.02 ",.02)
;;671.02
;;9002226.02101,"1019,671.04 ",.01)
;;671.04
;;9002226.02101,"1019,671.04 ",.02)
;;671.04
;;9002226.02101,"1019,671.11 ",.01)
;;671.11
;;9002226.02101,"1019,671.11 ",.02)
;;671.11
;;9002226.02101,"1019,671.12 ",.01)
;;671.12
;;9002226.02101,"1019,671.12 ",.02)
;;671.12
;;9002226.02101,"1019,671.14 ",.01)
;;671.14
;;9002226.02101,"1019,671.14 ",.02)
;;671.14
;;9002226.02101,"1019,671.21 ",.01)
;;671.21
;;9002226.02101,"1019,671.21 ",.02)
;;671.21
;;9002226.02101,"1019,671.22 ",.01)
;;671.22
;;9002226.02101,"1019,671.22 ",.02)
;;671.22
;;9002226.02101,"1019,671.24 ",.01)
;;671.24
;;9002226.02101,"1019,671.24 ",.02)
;;671.24
;;9002226.02101,"1019,671.31 ",.01)
;;671.31
;;9002226.02101,"1019,671.31 ",.02)
;;671.31
;;9002226.02101,"1019,671.42 ",.01)
;;671.42
;;9002226.02101,"1019,671.42 ",.02)
;;671.42
;;9002226.02101,"1019,671.44 ",.01)
;;671.44
;;9002226.02101,"1019,671.44 ",.02)
;;671.44
;;9002226.02101,"1019,671.51 ",.01)
;;671.51
;;9002226.02101,"1019,671.51 ",.02)
;;671.51
;;9002226.02101,"1019,671.52 ",.01)
;;671.52
;;9002226.02101,"1019,671.52 ",.02)
;;671.52
;;9002226.02101,"1019,671.54 ",.01)
;;671.54
;;9002226.02101,"1019,671.54 ",.02)
;;671.54
;;9002226.02101,"1019,671.81 ",.01)
;;671.81
;;9002226.02101,"1019,671.81 ",.02)
;;671.81
;;9002226.02101,"1019,671.82 ",.01)
;;671.82
;;9002226.02101,"1019,671.82 ",.02)
;;671.82
;;9002226.02101,"1019,671.84 ",.01)
;;671.84
;;9002226.02101,"1019,671.84 ",.02)
;;671.84
;;9002226.02101,"1019,671.91 ",.01)
;;671.91
;;9002226.02101,"1019,671.91 ",.02)
;;671.91
;;9002226.02101,"1019,671.92 ",.01)
;;671.92
;;9002226.02101,"1019,671.92 ",.02)
;;671.92
;;9002226.02101,"1019,671.94 ",.01)
;;671.94
;;9002226.02101,"1019,671.94 ",.02)
;;672.04
;;9002226.02101,"1019,673.01 ",.01)
;;673.01
;;9002226.02101,"1019,673.01 ",.02)
;;673.01
;;9002226.02101,"1019,673.02 ",.01)
;;673.02
;;9002226.02101,"1019,673.02 ",.02)
;;673.02
;;9002226.02101,"1019,673.04 ",.01)
;;673.04
;;9002226.02101,"1019,673.04 ",.02)
;;673.04
;;9002226.02101,"1019,673.11 ",.01)
;;673.11
;;9002226.02101,"1019,673.11 ",.02)
;;673.11
;;9002226.02101,"1019,673.12 ",.01)
;;673.12
;;9002226.02101,"1019,673.12 ",.02)
;;673.12
;;9002226.02101,"1019,673.14 ",.01)
;;673.14
;;9002226.02101,"1019,673.14 ",.02)
;;673.14
;;9002226.02101,"1019,673.21 ",.01)
;;673.21
;;9002226.02101,"1019,673.21 ",.02)
;;673.21
;;9002226.02101,"1019,673.22 ",.01)
;;673.22
;;9002226.02101,"1019,673.22 ",.02)
;;673.22
;;9002226.02101,"1019,673.24 ",.01)
;;673.24
;;9002226.02101,"1019,673.24 ",.02)
;;673.24
;;9002226.02101,"1019,673.31 ",.01)
;;673.31
;;9002226.02101,"1019,673.31 ",.02)
;;673.31
;;9002226.02101,"1019,673.32 ",.01)
;;673.32
;;9002226.02101,"1019,673.32 ",.02)
;;673.32
;;9002226.02101,"1019,673.34 ",.01)
;;673.34
;;9002226.02101,"1019,673.34 ",.02)
;;673.34
;;9002226.02101,"1019,673.81 ",.01)
;;673.81
;;9002226.02101,"1019,673.81 ",.02)
;;673.81
;;9002226.02101,"1019,673.82 ",.01)
;;673.82
;;9002226.02101,"1019,673.82 ",.02)
;;673.82
;;9002226.02101,"1019,673.84 ",.01)
;;673.84
;;9002226.02101,"1019,673.84 ",.02)
;;674.02
;;9002226.02101,"1019,674.04 ",.01)
;;674.04
;;9002226.02101,"1019,674.04 ",.02)
;;674.52
;;9002226.02101,"1019,674.54 ",.01)
;;674.54
;;9002226.02101,"1019,674.54 ",.02)
;;674.94
;;9002226.02101,"1019,V24.0 ",.01)
;;V24.0
;;9002226.02101,"1019,V24.0 ",.02)
;;V24.2
;;9002226.02101,"1019,V27.0 ",.01)
;;V27.0
;;9002226.02101,"1019,V27.0 ",.02)
;;V27.9
APCL23FH ; 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,"1019,668.24 ",.01)
+2 ;;668.24
+3 ;;9002226.02101,"1019,668.24 ",.02)
+4 ;;668.82
+5 ;;9002226.02101,"1019,668.84 ",.01)
+6 ;;668.84
+7 ;;9002226.02101,"1019,668.84 ",.02)
+8 ;;668.92
+9 ;;9002226.02101,"1019,668.94 ",.01)
+10 ;;668.94
+11 ;;9002226.02101,"1019,668.94 ",.02)
+12 ;;668.94
+13 ;;9002226.02101,"1019,669.00 ",.01)
+14 ;;669.00
+15 ;;9002226.02101,"1019,669.00 ",.02)
+16 ;;669.02
+17 ;;9002226.02101,"1019,669.04 ",.01)
+18 ;;669.04
+19 ;;9002226.02101,"1019,669.04 ",.02)
+20 ;;669.12
+21 ;;9002226.02101,"1019,669.14 ",.01)
+22 ;;669.14
+23 ;;9002226.02101,"1019,669.14 ",.02)
+24 ;;669.22
+25 ;;9002226.02101,"1019,669.24 ",.01)
+26 ;;669.24
+27 ;;9002226.02101,"1019,669.24 ",.02)
+28 ;;669.42
+29 ;;9002226.02101,"1019,669.44 ",.01)
+30 ;;669.44
+31 ;;9002226.02101,"1019,669.44 ",.02)
+32 ;;669.82
+33 ;;9002226.02101,"1019,669.84 ",.01)
+34 ;;669.84
+35 ;;9002226.02101,"1019,669.84 ",.02)
+36 ;;669.92
+37 ;;9002226.02101,"1019,669.94 ",.01)
+38 ;;669.94
+39 ;;9002226.02101,"1019,669.94 ",.02)
+40 ;;669.94
+41 ;;9002226.02101,"1019,670.00 ",.01)
+42 ;;670.00
+43 ;;9002226.02101,"1019,670.00 ",.02)
+44 ;;670.04
+45 ;;9002226.02101,"1019,671.01 ",.01)
+46 ;;671.01
+47 ;;9002226.02101,"1019,671.01 ",.02)
+48 ;;671.01
+49 ;;9002226.02101,"1019,671.02 ",.01)
+50 ;;671.02
+51 ;;9002226.02101,"1019,671.02 ",.02)
+52 ;;671.02
+53 ;;9002226.02101,"1019,671.04 ",.01)
+54 ;;671.04
+55 ;;9002226.02101,"1019,671.04 ",.02)
+56 ;;671.04
+57 ;;9002226.02101,"1019,671.11 ",.01)
+58 ;;671.11
+59 ;;9002226.02101,"1019,671.11 ",.02)
+60 ;;671.11
+61 ;;9002226.02101,"1019,671.12 ",.01)
+62 ;;671.12
+63 ;;9002226.02101,"1019,671.12 ",.02)
+64 ;;671.12
+65 ;;9002226.02101,"1019,671.14 ",.01)
+66 ;;671.14
+67 ;;9002226.02101,"1019,671.14 ",.02)
+68 ;;671.14
+69 ;;9002226.02101,"1019,671.21 ",.01)
+70 ;;671.21
+71 ;;9002226.02101,"1019,671.21 ",.02)
+72 ;;671.21
+73 ;;9002226.02101,"1019,671.22 ",.01)
+74 ;;671.22
+75 ;;9002226.02101,"1019,671.22 ",.02)
+76 ;;671.22
+77 ;;9002226.02101,"1019,671.24 ",.01)
+78 ;;671.24
+79 ;;9002226.02101,"1019,671.24 ",.02)
+80 ;;671.24
+81 ;;9002226.02101,"1019,671.31 ",.01)
+82 ;;671.31
+83 ;;9002226.02101,"1019,671.31 ",.02)
+84 ;;671.31
+85 ;;9002226.02101,"1019,671.42 ",.01)
+86 ;;671.42
+87 ;;9002226.02101,"1019,671.42 ",.02)
+88 ;;671.42
+89 ;;9002226.02101,"1019,671.44 ",.01)
+90 ;;671.44
+91 ;;9002226.02101,"1019,671.44 ",.02)
+92 ;;671.44
+93 ;;9002226.02101,"1019,671.51 ",.01)
+94 ;;671.51
+95 ;;9002226.02101,"1019,671.51 ",.02)
+96 ;;671.51
+97 ;;9002226.02101,"1019,671.52 ",.01)
+98 ;;671.52
+99 ;;9002226.02101,"1019,671.52 ",.02)
+100 ;;671.52
+101 ;;9002226.02101,"1019,671.54 ",.01)
+102 ;;671.54
+103 ;;9002226.02101,"1019,671.54 ",.02)
+104 ;;671.54
+105 ;;9002226.02101,"1019,671.81 ",.01)
+106 ;;671.81
+107 ;;9002226.02101,"1019,671.81 ",.02)
+108 ;;671.81
+109 ;;9002226.02101,"1019,671.82 ",.01)
+110 ;;671.82
+111 ;;9002226.02101,"1019,671.82 ",.02)
+112 ;;671.82
+113 ;;9002226.02101,"1019,671.84 ",.01)
+114 ;;671.84
+115 ;;9002226.02101,"1019,671.84 ",.02)
+116 ;;671.84
+117 ;;9002226.02101,"1019,671.91 ",.01)
+118 ;;671.91
+119 ;;9002226.02101,"1019,671.91 ",.02)
+120 ;;671.91
+121 ;;9002226.02101,"1019,671.92 ",.01)
+122 ;;671.92
+123 ;;9002226.02101,"1019,671.92 ",.02)
+124 ;;671.92
+125 ;;9002226.02101,"1019,671.94 ",.01)
+126 ;;671.94
+127 ;;9002226.02101,"1019,671.94 ",.02)
+128 ;;672.04
+129 ;;9002226.02101,"1019,673.01 ",.01)
+130 ;;673.01
+131 ;;9002226.02101,"1019,673.01 ",.02)
+132 ;;673.01
+133 ;;9002226.02101,"1019,673.02 ",.01)
+134 ;;673.02
+135 ;;9002226.02101,"1019,673.02 ",.02)
+136 ;;673.02
+137 ;;9002226.02101,"1019,673.04 ",.01)
+138 ;;673.04
+139 ;;9002226.02101,"1019,673.04 ",.02)
+140 ;;673.04
+141 ;;9002226.02101,"1019,673.11 ",.01)
+142 ;;673.11
+143 ;;9002226.02101,"1019,673.11 ",.02)
+144 ;;673.11
+145 ;;9002226.02101,"1019,673.12 ",.01)
+146 ;;673.12
+147 ;;9002226.02101,"1019,673.12 ",.02)
+148 ;;673.12
+149 ;;9002226.02101,"1019,673.14 ",.01)
+150 ;;673.14
+151 ;;9002226.02101,"1019,673.14 ",.02)
+152 ;;673.14
+153 ;;9002226.02101,"1019,673.21 ",.01)
+154 ;;673.21
+155 ;;9002226.02101,"1019,673.21 ",.02)
+156 ;;673.21
+157 ;;9002226.02101,"1019,673.22 ",.01)
+158 ;;673.22
+159 ;;9002226.02101,"1019,673.22 ",.02)
+160 ;;673.22
+161 ;;9002226.02101,"1019,673.24 ",.01)
+162 ;;673.24
+163 ;;9002226.02101,"1019,673.24 ",.02)
+164 ;;673.24
+165 ;;9002226.02101,"1019,673.31 ",.01)
+166 ;;673.31
+167 ;;9002226.02101,"1019,673.31 ",.02)
+168 ;;673.31
+169 ;;9002226.02101,"1019,673.32 ",.01)
+170 ;;673.32
+171 ;;9002226.02101,"1019,673.32 ",.02)
+172 ;;673.32
+173 ;;9002226.02101,"1019,673.34 ",.01)
+174 ;;673.34
+175 ;;9002226.02101,"1019,673.34 ",.02)
+176 ;;673.34
+177 ;;9002226.02101,"1019,673.81 ",.01)
+178 ;;673.81
+179 ;;9002226.02101,"1019,673.81 ",.02)
+180 ;;673.81
+181 ;;9002226.02101,"1019,673.82 ",.01)
+182 ;;673.82
+183 ;;9002226.02101,"1019,673.82 ",.02)
+184 ;;673.82
+185 ;;9002226.02101,"1019,673.84 ",.01)
+186 ;;673.84
+187 ;;9002226.02101,"1019,673.84 ",.02)
+188 ;;674.02
+189 ;;9002226.02101,"1019,674.04 ",.01)
+190 ;;674.04
+191 ;;9002226.02101,"1019,674.04 ",.02)
+192 ;;674.52
+193 ;;9002226.02101,"1019,674.54 ",.01)
+194 ;;674.54
+195 ;;9002226.02101,"1019,674.54 ",.02)
+196 ;;674.94
+197 ;;9002226.02101,"1019,V24.0 ",.01)
+198 ;;V24.0
+199 ;;9002226.02101,"1019,V24.0 ",.02)
+200 ;;V24.2
+201 ;;9002226.02101,"1019,V27.0 ",.01)
+202 ;;V27.0
+203 ;;9002226.02101,"1019,V27.0 ",.02)
+204 ;;V27.9
