APCHTXEC ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JUN 23, 2005;
;;2.0;IHS RPMS/PCC Health Summary;**14**;JUN 24, 1997
;;;APCH;;JUN 23, 2005
;
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,"418,1524-8 ",.01)
;;1524-8
;;9002226.02101,"418,1524-8 ",.02)
;;1524-8
;;9002226.02101,"418,1525-5 ",.01)
;;1525-5
;;9002226.02101,"418,1525-5 ",.02)
;;1525-5
;;9002226.02101,"418,1527-1 ",.01)
;;1527-1
;;9002226.02101,"418,1527-1 ",.02)
;;1527-1
;;9002226.02101,"418,1528-9 ",.01)
;;1528-9
;;9002226.02101,"418,1528-9 ",.02)
;;1528-9
;;9002226.02101,"418,1529-7 ",.01)
;;1529-7
;;9002226.02101,"418,1529-7 ",.02)
;;1529-7
;;9002226.02101,"418,1530-5 ",.01)
;;1530-5
;;9002226.02101,"418,1530-5 ",.02)
;;1530-5
;;9002226.02101,"418,1531-3 ",.01)
;;1531-3
;;9002226.02101,"418,1531-3 ",.02)
;;1531-3
;;9002226.02101,"418,1533-9 ",.01)
;;1533-9
;;9002226.02101,"418,1533-9 ",.02)
;;1533-9
;;9002226.02101,"418,1534-7 ",.01)
;;1534-7
;;9002226.02101,"418,1534-7 ",.02)
;;1534-7
;;9002226.02101,"418,1535-4 ",.01)
;;1535-4
;;9002226.02101,"418,1535-4 ",.02)
;;1535-4
;;9002226.02101,"418,1536-2 ",.01)
;;1536-2
;;9002226.02101,"418,1536-2 ",.02)
;;1536-2
;;9002226.02101,"418,1537-0 ",.01)
;;1537-0
;;9002226.02101,"418,1537-0 ",.02)
;;1537-0
;;9002226.02101,"418,1539-6 ",.01)
;;1539-6
;;9002226.02101,"418,1539-6 ",.02)
;;1539-6
;;9002226.02101,"418,1540-4 ",.01)
;;1540-4
;;9002226.02101,"418,1540-4 ",.02)
;;1540-4
;;9002226.02101,"418,1542-0 ",.01)
;;1542-0
;;9002226.02101,"418,1542-0 ",.02)
;;1542-0
;;9002226.02101,"418,1543-8 ",.01)
;;1543-8
;;9002226.02101,"418,1543-8 ",.02)
;;1543-8
;;9002226.02101,"418,1544-6 ",.01)
;;1544-6
;;9002226.02101,"418,1544-6 ",.02)
;;1544-6
;;9002226.02101,"418,1545-3 ",.01)
;;1545-3
;;9002226.02101,"418,1545-3 ",.02)
;;1545-3
;;9002226.02101,"418,1547-9 ",.01)
;;1547-9
;;9002226.02101,"418,1547-9 ",.02)
;;1547-9
;;9002226.02101,"418,1548-7 ",.01)
;;1548-7
;;9002226.02101,"418,1548-7 ",.02)
;;1548-7
;;9002226.02101,"418,1549-5 ",.01)
;;1549-5
;;9002226.02101,"418,1549-5 ",.02)
;;1549-5
;;9002226.02101,"418,1550-3 ",.01)
;;1550-3
;;9002226.02101,"418,1550-3 ",.02)
;;1550-3
;;9002226.02101,"418,1551-1 ",.01)
;;1551-1
;;9002226.02101,"418,1551-1 ",.02)
;;1551-1
;;9002226.02101,"418,1552-9 ",.01)
;;1552-9
;;9002226.02101,"418,1552-9 ",.02)
;;1552-9
;;9002226.02101,"418,1553-7 ",.01)
;;1553-7
;;9002226.02101,"418,1553-7 ",.02)
;;1553-7
;;9002226.02101,"418,1554-5 ",.01)
;;1554-5
;;9002226.02101,"418,1554-5 ",.02)
;;1554-5
;;9002226.02101,"418,1556-0 ",.01)
;;1556-0
;;9002226.02101,"418,1556-0 ",.02)
;;1556-0
;;9002226.02101,"418,1557-8 ",.01)
;;1557-8
;;9002226.02101,"418,1557-8 ",.02)
;;1557-8
;;9002226.02101,"418,1558-6 ",.01)
;;1558-6
;;9002226.02101,"418,1558-6 ",.02)
;;1558-6
;;9002226.02101,"418,16165-3 ",.01)
;;16165-3
;;9002226.02101,"418,16165-3 ",.02)
;;16165-3
;;9002226.02101,"418,16166-1 ",.01)
;;16166-1
;;9002226.02101,"418,16166-1 ",.02)
;;16166-1
;;9002226.02101,"418,16167-9 ",.01)
;;16167-9
;;9002226.02101,"418,16167-9 ",.02)
;;16167-9
;;9002226.02101,"418,16168-7 ",.01)
;;16168-7
;;9002226.02101,"418,16168-7 ",.02)
;;16168-7
;;9002226.02101,"418,16169-5 ",.01)
;;16169-5
;;9002226.02101,"418,16169-5 ",.02)
;;16169-5
;;9002226.02101,"418,16170-3 ",.01)
;;16170-3
;;9002226.02101,"418,16170-3 ",.02)
;;16170-3
;;9002226.02101,"418,16914-4 ",.01)
;;16914-4
;;9002226.02101,"418,16914-4 ",.02)
;;16914-4
;;9002226.02101,"418,16915-1 ",.01)
;;16915-1
;;9002226.02101,"418,16915-1 ",.02)
;;16915-1
;;9002226.02101,"418,17865-7 ",.01)
;;17865-7
;;9002226.02101,"418,17865-7 ",.02)
;;17865-7
;;9002226.02101,"418,18296-4 ",.01)
;;18296-4
;;9002226.02101,"418,18296-4 ",.02)
;;18296-4
;;9002226.02101,"418,18342-6 ",.01)
;;18342-6
;;9002226.02101,"418,18342-6 ",.02)
;;18342-6
;;9002226.02101,"418,18353-3 ",.01)
;;18353-3
;;9002226.02101,"418,18353-3 ",.02)
;;18353-3
;;9002226.02101,"418,18354-1 ",.01)
;;18354-1
;;9002226.02101,"418,18354-1 ",.02)
;;18354-1
;;9002226.02101,"418,19104-9 ",.01)
;;19104-9
;;9002226.02101,"418,19104-9 ",.02)
;;19104-9
;;9002226.02101,"418,19105-6 ",.01)
;;19105-6
;;9002226.02101,"418,19105-6 ",.02)
;;19105-6
;;9002226.02101,"418,20436-2 ",.01)
;;20436-2
;;9002226.02101,"418,20436-2 ",.02)
;;20436-2
;;9002226.02101,"418,20437-0 ",.01)
;;20437-0
;;9002226.02101,"418,20437-0 ",.02)
;;20437-0
;;9002226.02101,"418,20438-8 ",.01)
;;20438-8
;;9002226.02101,"418,20438-8 ",.02)
;;20438-8
;;9002226.02101,"418,20439-6 ",.01)
;;20439-6
;;9002226.02101,"418,20439-6 ",.02)
;;20439-6
;;9002226.02101,"418,20440-4 ",.01)
;;20440-4
;;9002226.02101,"418,20440-4 ",.02)
;;20440-4
;;9002226.02101,"418,20441-2 ",.01)
;;20441-2
;;9002226.02101,"418,20441-2 ",.02)
;;20441-2
;;9002226.02101,"418,21004-7 ",.01)
;;21004-7
;;9002226.02101,"418,21004-7 ",.02)
;;21004-7
;;9002226.02101,"418,21308-2 ",.01)
;;21308-2
;;9002226.02101,"418,21308-2 ",.02)
;;21308-2
;;9002226.02101,"418,21309-0 ",.01)
;;21309-0
;;9002226.02101,"418,21309-0 ",.02)
;;21309-0
;;9002226.02101,"418,21310-8 ",.01)
;;21310-8
APCHTXEC ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JUN 23, 2005;
+1 ;;2.0;IHS RPMS/PCC Health Summary;**14**;JUN 24, 1997
+2 ;;;APCH;;JUN 23, 2005
+3 ;
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,"418,1524-8 ",.01)
+2 ;;1524-8
+3 ;;9002226.02101,"418,1524-8 ",.02)
+4 ;;1524-8
+5 ;;9002226.02101,"418,1525-5 ",.01)
+6 ;;1525-5
+7 ;;9002226.02101,"418,1525-5 ",.02)
+8 ;;1525-5
+9 ;;9002226.02101,"418,1527-1 ",.01)
+10 ;;1527-1
+11 ;;9002226.02101,"418,1527-1 ",.02)
+12 ;;1527-1
+13 ;;9002226.02101,"418,1528-9 ",.01)
+14 ;;1528-9
+15 ;;9002226.02101,"418,1528-9 ",.02)
+16 ;;1528-9
+17 ;;9002226.02101,"418,1529-7 ",.01)
+18 ;;1529-7
+19 ;;9002226.02101,"418,1529-7 ",.02)
+20 ;;1529-7
+21 ;;9002226.02101,"418,1530-5 ",.01)
+22 ;;1530-5
+23 ;;9002226.02101,"418,1530-5 ",.02)
+24 ;;1530-5
+25 ;;9002226.02101,"418,1531-3 ",.01)
+26 ;;1531-3
+27 ;;9002226.02101,"418,1531-3 ",.02)
+28 ;;1531-3
+29 ;;9002226.02101,"418,1533-9 ",.01)
+30 ;;1533-9
+31 ;;9002226.02101,"418,1533-9 ",.02)
+32 ;;1533-9
+33 ;;9002226.02101,"418,1534-7 ",.01)
+34 ;;1534-7
+35 ;;9002226.02101,"418,1534-7 ",.02)
+36 ;;1534-7
+37 ;;9002226.02101,"418,1535-4 ",.01)
+38 ;;1535-4
+39 ;;9002226.02101,"418,1535-4 ",.02)
+40 ;;1535-4
+41 ;;9002226.02101,"418,1536-2 ",.01)
+42 ;;1536-2
+43 ;;9002226.02101,"418,1536-2 ",.02)
+44 ;;1536-2
+45 ;;9002226.02101,"418,1537-0 ",.01)
+46 ;;1537-0
+47 ;;9002226.02101,"418,1537-0 ",.02)
+48 ;;1537-0
+49 ;;9002226.02101,"418,1539-6 ",.01)
+50 ;;1539-6
+51 ;;9002226.02101,"418,1539-6 ",.02)
+52 ;;1539-6
+53 ;;9002226.02101,"418,1540-4 ",.01)
+54 ;;1540-4
+55 ;;9002226.02101,"418,1540-4 ",.02)
+56 ;;1540-4
+57 ;;9002226.02101,"418,1542-0 ",.01)
+58 ;;1542-0
+59 ;;9002226.02101,"418,1542-0 ",.02)
+60 ;;1542-0
+61 ;;9002226.02101,"418,1543-8 ",.01)
+62 ;;1543-8
+63 ;;9002226.02101,"418,1543-8 ",.02)
+64 ;;1543-8
+65 ;;9002226.02101,"418,1544-6 ",.01)
+66 ;;1544-6
+67 ;;9002226.02101,"418,1544-6 ",.02)
+68 ;;1544-6
+69 ;;9002226.02101,"418,1545-3 ",.01)
+70 ;;1545-3
+71 ;;9002226.02101,"418,1545-3 ",.02)
+72 ;;1545-3
+73 ;;9002226.02101,"418,1547-9 ",.01)
+74 ;;1547-9
+75 ;;9002226.02101,"418,1547-9 ",.02)
+76 ;;1547-9
+77 ;;9002226.02101,"418,1548-7 ",.01)
+78 ;;1548-7
+79 ;;9002226.02101,"418,1548-7 ",.02)
+80 ;;1548-7
+81 ;;9002226.02101,"418,1549-5 ",.01)
+82 ;;1549-5
+83 ;;9002226.02101,"418,1549-5 ",.02)
+84 ;;1549-5
+85 ;;9002226.02101,"418,1550-3 ",.01)
+86 ;;1550-3
+87 ;;9002226.02101,"418,1550-3 ",.02)
+88 ;;1550-3
+89 ;;9002226.02101,"418,1551-1 ",.01)
+90 ;;1551-1
+91 ;;9002226.02101,"418,1551-1 ",.02)
+92 ;;1551-1
+93 ;;9002226.02101,"418,1552-9 ",.01)
+94 ;;1552-9
+95 ;;9002226.02101,"418,1552-9 ",.02)
+96 ;;1552-9
+97 ;;9002226.02101,"418,1553-7 ",.01)
+98 ;;1553-7
+99 ;;9002226.02101,"418,1553-7 ",.02)
+100 ;;1553-7
+101 ;;9002226.02101,"418,1554-5 ",.01)
+102 ;;1554-5
+103 ;;9002226.02101,"418,1554-5 ",.02)
+104 ;;1554-5
+105 ;;9002226.02101,"418,1556-0 ",.01)
+106 ;;1556-0
+107 ;;9002226.02101,"418,1556-0 ",.02)
+108 ;;1556-0
+109 ;;9002226.02101,"418,1557-8 ",.01)
+110 ;;1557-8
+111 ;;9002226.02101,"418,1557-8 ",.02)
+112 ;;1557-8
+113 ;;9002226.02101,"418,1558-6 ",.01)
+114 ;;1558-6
+115 ;;9002226.02101,"418,1558-6 ",.02)
+116 ;;1558-6
+117 ;;9002226.02101,"418,16165-3 ",.01)
+118 ;;16165-3
+119 ;;9002226.02101,"418,16165-3 ",.02)
+120 ;;16165-3
+121 ;;9002226.02101,"418,16166-1 ",.01)
+122 ;;16166-1
+123 ;;9002226.02101,"418,16166-1 ",.02)
+124 ;;16166-1
+125 ;;9002226.02101,"418,16167-9 ",.01)
+126 ;;16167-9
+127 ;;9002226.02101,"418,16167-9 ",.02)
+128 ;;16167-9
+129 ;;9002226.02101,"418,16168-7 ",.01)
+130 ;;16168-7
+131 ;;9002226.02101,"418,16168-7 ",.02)
+132 ;;16168-7
+133 ;;9002226.02101,"418,16169-5 ",.01)
+134 ;;16169-5
+135 ;;9002226.02101,"418,16169-5 ",.02)
+136 ;;16169-5
+137 ;;9002226.02101,"418,16170-3 ",.01)
+138 ;;16170-3
+139 ;;9002226.02101,"418,16170-3 ",.02)
+140 ;;16170-3
+141 ;;9002226.02101,"418,16914-4 ",.01)
+142 ;;16914-4
+143 ;;9002226.02101,"418,16914-4 ",.02)
+144 ;;16914-4
+145 ;;9002226.02101,"418,16915-1 ",.01)
+146 ;;16915-1
+147 ;;9002226.02101,"418,16915-1 ",.02)
+148 ;;16915-1
+149 ;;9002226.02101,"418,17865-7 ",.01)
+150 ;;17865-7
+151 ;;9002226.02101,"418,17865-7 ",.02)
+152 ;;17865-7
+153 ;;9002226.02101,"418,18296-4 ",.01)
+154 ;;18296-4
+155 ;;9002226.02101,"418,18296-4 ",.02)
+156 ;;18296-4
+157 ;;9002226.02101,"418,18342-6 ",.01)
+158 ;;18342-6
+159 ;;9002226.02101,"418,18342-6 ",.02)
+160 ;;18342-6
+161 ;;9002226.02101,"418,18353-3 ",.01)
+162 ;;18353-3
+163 ;;9002226.02101,"418,18353-3 ",.02)
+164 ;;18353-3
+165 ;;9002226.02101,"418,18354-1 ",.01)
+166 ;;18354-1
+167 ;;9002226.02101,"418,18354-1 ",.02)
+168 ;;18354-1
+169 ;;9002226.02101,"418,19104-9 ",.01)
+170 ;;19104-9
+171 ;;9002226.02101,"418,19104-9 ",.02)
+172 ;;19104-9
+173 ;;9002226.02101,"418,19105-6 ",.01)
+174 ;;19105-6
+175 ;;9002226.02101,"418,19105-6 ",.02)
+176 ;;19105-6
+177 ;;9002226.02101,"418,20436-2 ",.01)
+178 ;;20436-2
+179 ;;9002226.02101,"418,20436-2 ",.02)
+180 ;;20436-2
+181 ;;9002226.02101,"418,20437-0 ",.01)
+182 ;;20437-0
+183 ;;9002226.02101,"418,20437-0 ",.02)
+184 ;;20437-0
+185 ;;9002226.02101,"418,20438-8 ",.01)
+186 ;;20438-8
+187 ;;9002226.02101,"418,20438-8 ",.02)
+188 ;;20438-8
+189 ;;9002226.02101,"418,20439-6 ",.01)
+190 ;;20439-6
+191 ;;9002226.02101,"418,20439-6 ",.02)
+192 ;;20439-6
+193 ;;9002226.02101,"418,20440-4 ",.01)
+194 ;;20440-4
+195 ;;9002226.02101,"418,20440-4 ",.02)
+196 ;;20440-4
+197 ;;9002226.02101,"418,20441-2 ",.01)
+198 ;;20441-2
+199 ;;9002226.02101,"418,20441-2 ",.02)
+200 ;;20441-2
+201 ;;9002226.02101,"418,21004-7 ",.01)
+202 ;;21004-7
+203 ;;9002226.02101,"418,21004-7 ",.02)
+204 ;;21004-7
+205 ;;9002226.02101,"418,21308-2 ",.01)
+206 ;;21308-2
+207 ;;9002226.02101,"418,21308-2 ",.02)
+208 ;;21308-2
+209 ;;9002226.02101,"418,21309-0 ",.01)
+210 ;;21309-0
+211 ;;9002226.02101,"418,21309-0 ",.02)
+212 ;;21309-0
+213 ;;9002226.02101,"418,21310-8 ",.01)
+214 ;;21310-8
