APCL23HI ; 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,665.00 ",.02)
;;665.00
;;9002226.02101,"1018,665.03 ",.01)
;;665.03
;;9002226.02101,"1018,665.03 ",.02)
;;665.03
;;9002226.02101,"1018,665.80 ",.01)
;;665.80
;;9002226.02101,"1018,665.80 ",.02)
;;665.80
;;9002226.02101,"1018,665.83 ",.01)
;;665.83
;;9002226.02101,"1018,665.83 ",.02)
;;665.83
;;9002226.02101,"1018,665.90 ",.01)
;;665.90
;;9002226.02101,"1018,665.90 ",.02)
;;665.90
;;9002226.02101,"1018,665.93 ",.01)
;;665.93
;;9002226.02101,"1018,665.93 ",.02)
;;665.93
;;9002226.02101,"1018,671.00 ",.01)
;;671.00
;;9002226.02101,"1018,671.00 ",.02)
;;671.00
;;9002226.02101,"1018,671.03 ",.01)
;;671.03
;;9002226.02101,"1018,671.03 ",.02)
;;671.03
;;9002226.02101,"1018,671.10 ",.01)
;;671.10
;;9002226.02101,"1018,671.10 ",.02)
;;671.10
;;9002226.02101,"1018,671.13 ",.01)
;;671.13
;;9002226.02101,"1018,671.13 ",.02)
;;671.13
;;9002226.02101,"1018,671.20 ",.01)
;;671.20
;;9002226.02101,"1018,671.20 ",.02)
;;671.20
;;9002226.02101,"1018,671.23 ",.01)
;;671.23
;;9002226.02101,"1018,671.23 ",.02)
;;671.23
;;9002226.02101,"1018,671.30 ",.01)
;;671.30
;;9002226.02101,"1018,671.30 ",.02)
;;671.30
;;9002226.02101,"1018,671.33 ",.01)
;;671.33
;;9002226.02101,"1018,671.33 ",.02)
;;671.33
;;9002226.02101,"1018,671.50 ",.01)
;;671.50
;;9002226.02101,"1018,671.50 ",.02)
;;671.50
;;9002226.02101,"1018,671.53 ",.01)
;;671.53
;;9002226.02101,"1018,671.53 ",.02)
;;671.53
;;9002226.02101,"1018,671.80 ",.01)
;;671.80
;;9002226.02101,"1018,671.80 ",.02)
;;671.80
;;9002226.02101,"1018,671.83 ",.01)
;;671.83
;;9002226.02101,"1018,671.83 ",.02)
;;671.83
;;9002226.02101,"1018,671.90 ",.01)
;;671.90
;;9002226.02101,"1018,671.90 ",.02)
;;671.90
;;9002226.02101,"1018,671.93 ",.01)
;;671.93
;;9002226.02101,"1018,671.93 ",.02)
;;671.93
;;9002226.02101,"1018,673.00 ",.01)
;;673.00
;;9002226.02101,"1018,673.00 ",.02)
;;673.00
;;9002226.02101,"1018,673.03 ",.01)
;;673.03
;;9002226.02101,"1018,673.03 ",.02)
;;673.03
;;9002226.02101,"1018,673.10 ",.01)
;;673.10
;;9002226.02101,"1018,673.10 ",.02)
;;673.10
;;9002226.02101,"1018,673.13 ",.01)
;;673.13
;;9002226.02101,"1018,673.13 ",.02)
;;673.13
;;9002226.02101,"1018,673.20 ",.01)
;;673.20
;;9002226.02101,"1018,673.20 ",.02)
;;673.20
;;9002226.02101,"1018,673.23 ",.01)
;;673.23
;;9002226.02101,"1018,673.23 ",.02)
;;673.23
;;9002226.02101,"1018,673.30 ",.01)
;;673.30
;;9002226.02101,"1018,673.30 ",.02)
;;673.30
;;9002226.02101,"1018,673.33 ",.01)
;;673.33
;;9002226.02101,"1018,673.33 ",.02)
;;673.33
;;9002226.02101,"1018,673.80 ",.01)
;;673.80
;;9002226.02101,"1018,673.80 ",.02)
;;673.80
;;9002226.02101,"1018,673.83 ",.01)
;;673.83
;;9002226.02101,"1018,673.83 ",.02)
;;673.83
;;9002226.02101,"1018,V22.0 ",.01)
;;V22.0
;;9002226.02101,"1018,V22.0 ",.02)
;;V23.9
;;9002226.02101,"1018,V72.42 ",.01)
;;V72.42
;;9002226.02101,"1018,V72.42 ",.02)
;;V72.42
APCL23HI ; 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,665.00 ",.02)
+2 ;;665.00
+3 ;;9002226.02101,"1018,665.03 ",.01)
+4 ;;665.03
+5 ;;9002226.02101,"1018,665.03 ",.02)
+6 ;;665.03
+7 ;;9002226.02101,"1018,665.80 ",.01)
+8 ;;665.80
+9 ;;9002226.02101,"1018,665.80 ",.02)
+10 ;;665.80
+11 ;;9002226.02101,"1018,665.83 ",.01)
+12 ;;665.83
+13 ;;9002226.02101,"1018,665.83 ",.02)
+14 ;;665.83
+15 ;;9002226.02101,"1018,665.90 ",.01)
+16 ;;665.90
+17 ;;9002226.02101,"1018,665.90 ",.02)
+18 ;;665.90
+19 ;;9002226.02101,"1018,665.93 ",.01)
+20 ;;665.93
+21 ;;9002226.02101,"1018,665.93 ",.02)
+22 ;;665.93
+23 ;;9002226.02101,"1018,671.00 ",.01)
+24 ;;671.00
+25 ;;9002226.02101,"1018,671.00 ",.02)
+26 ;;671.00
+27 ;;9002226.02101,"1018,671.03 ",.01)
+28 ;;671.03
+29 ;;9002226.02101,"1018,671.03 ",.02)
+30 ;;671.03
+31 ;;9002226.02101,"1018,671.10 ",.01)
+32 ;;671.10
+33 ;;9002226.02101,"1018,671.10 ",.02)
+34 ;;671.10
+35 ;;9002226.02101,"1018,671.13 ",.01)
+36 ;;671.13
+37 ;;9002226.02101,"1018,671.13 ",.02)
+38 ;;671.13
+39 ;;9002226.02101,"1018,671.20 ",.01)
+40 ;;671.20
+41 ;;9002226.02101,"1018,671.20 ",.02)
+42 ;;671.20
+43 ;;9002226.02101,"1018,671.23 ",.01)
+44 ;;671.23
+45 ;;9002226.02101,"1018,671.23 ",.02)
+46 ;;671.23
+47 ;;9002226.02101,"1018,671.30 ",.01)
+48 ;;671.30
+49 ;;9002226.02101,"1018,671.30 ",.02)
+50 ;;671.30
+51 ;;9002226.02101,"1018,671.33 ",.01)
+52 ;;671.33
+53 ;;9002226.02101,"1018,671.33 ",.02)
+54 ;;671.33
+55 ;;9002226.02101,"1018,671.50 ",.01)
+56 ;;671.50
+57 ;;9002226.02101,"1018,671.50 ",.02)
+58 ;;671.50
+59 ;;9002226.02101,"1018,671.53 ",.01)
+60 ;;671.53
+61 ;;9002226.02101,"1018,671.53 ",.02)
+62 ;;671.53
+63 ;;9002226.02101,"1018,671.80 ",.01)
+64 ;;671.80
+65 ;;9002226.02101,"1018,671.80 ",.02)
+66 ;;671.80
+67 ;;9002226.02101,"1018,671.83 ",.01)
+68 ;;671.83
+69 ;;9002226.02101,"1018,671.83 ",.02)
+70 ;;671.83
+71 ;;9002226.02101,"1018,671.90 ",.01)
+72 ;;671.90
+73 ;;9002226.02101,"1018,671.90 ",.02)
+74 ;;671.90
+75 ;;9002226.02101,"1018,671.93 ",.01)
+76 ;;671.93
+77 ;;9002226.02101,"1018,671.93 ",.02)
+78 ;;671.93
+79 ;;9002226.02101,"1018,673.00 ",.01)
+80 ;;673.00
+81 ;;9002226.02101,"1018,673.00 ",.02)
+82 ;;673.00
+83 ;;9002226.02101,"1018,673.03 ",.01)
+84 ;;673.03
+85 ;;9002226.02101,"1018,673.03 ",.02)
+86 ;;673.03
+87 ;;9002226.02101,"1018,673.10 ",.01)
+88 ;;673.10
+89 ;;9002226.02101,"1018,673.10 ",.02)
+90 ;;673.10
+91 ;;9002226.02101,"1018,673.13 ",.01)
+92 ;;673.13
+93 ;;9002226.02101,"1018,673.13 ",.02)
+94 ;;673.13
+95 ;;9002226.02101,"1018,673.20 ",.01)
+96 ;;673.20
+97 ;;9002226.02101,"1018,673.20 ",.02)
+98 ;;673.20
+99 ;;9002226.02101,"1018,673.23 ",.01)
+100 ;;673.23
+101 ;;9002226.02101,"1018,673.23 ",.02)
+102 ;;673.23
+103 ;;9002226.02101,"1018,673.30 ",.01)
+104 ;;673.30
+105 ;;9002226.02101,"1018,673.30 ",.02)
+106 ;;673.30
+107 ;;9002226.02101,"1018,673.33 ",.01)
+108 ;;673.33
+109 ;;9002226.02101,"1018,673.33 ",.02)
+110 ;;673.33
+111 ;;9002226.02101,"1018,673.80 ",.01)
+112 ;;673.80
+113 ;;9002226.02101,"1018,673.80 ",.02)
+114 ;;673.80
+115 ;;9002226.02101,"1018,673.83 ",.01)
+116 ;;673.83
+117 ;;9002226.02101,"1018,673.83 ",.02)
+118 ;;673.83
+119 ;;9002226.02101,"1018,V22.0 ",.01)
+120 ;;V22.0
+121 ;;9002226.02101,"1018,V22.0 ",.02)
+122 ;;V23.9
+123 ;;9002226.02101,"1018,V72.42 ",.01)
+124 ;;V72.42
+125 ;;9002226.02101,"1018,V72.42 ",.02)
+126 ;;V72.42
