BJPC2UMB ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON FEB 17, 2009;
;;2.0;IHS PCC SUITE;;MAY 14, 2009
;
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,"748,00089-0782-11 ",.02)
;;00089-0782-11
;;9002226.02101,"748,00089-0782-21 ",.01)
;;00089-0782-21
;;9002226.02101,"748,00089-0782-21 ",.02)
;;00089-0782-21
;;9002226.02101,"748,00089-0815-21 ",.01)
;;00089-0815-21
;;9002226.02101,"748,00089-0815-21 ",.02)
;;00089-0815-21
;;9002226.02101,"748,00172-4390-00 ",.01)
;;00172-4390-00
;;9002226.02101,"748,00172-4390-00 ",.02)
;;00172-4390-00
;;9002226.02101,"748,00172-4390-18 ",.01)
;;00172-4390-18
;;9002226.02101,"748,00172-4390-18 ",.02)
;;00172-4390-18
;;9002226.02101,"748,00173-0321-88 ",.01)
;;00173-0321-88
;;9002226.02101,"748,00173-0321-88 ",.02)
;;00173-0321-88
;;9002226.02101,"748,00173-0321-98 ",.01)
;;00173-0321-98
;;9002226.02101,"748,00173-0321-98 ",.02)
;;00173-0321-98
;;9002226.02101,"748,00173-0389-03 ",.01)
;;00173-0389-03
;;9002226.02101,"748,00173-0389-03 ",.02)
;;00173-0389-03
;;9002226.02101,"748,00173-0389-81 ",.01)
;;00173-0389-81
;;9002226.02101,"748,00173-0389-81 ",.02)
;;00173-0389-81
;;9002226.02101,"748,00173-0463-00 ",.01)
;;00173-0463-00
;;9002226.02101,"748,00173-0463-00 ",.02)
;;00173-0463-00
;;9002226.02101,"748,00173-0682-00 ",.01)
;;00173-0682-00
;;9002226.02101,"748,00173-0682-00 ",.02)
;;00173-0682-00
;;9002226.02101,"748,00173-0682-01 ",.01)
;;00173-0682-01
;;9002226.02101,"748,00173-0682-01 ",.02)
;;00173-0682-01
;;9002226.02101,"748,00173-0682-04 ",.01)
;;00173-0682-04
;;9002226.02101,"748,00173-0682-04 ",.02)
;;00173-0682-04
;;9002226.02101,"748,00247-0084-17 ",.01)
;;00247-0084-17
;;9002226.02101,"748,00247-0084-17 ",.02)
;;00247-0084-17
;;9002226.02101,"748,00247-0084-86 ",.01)
;;00247-0084-86
;;9002226.02101,"748,00247-0084-86 ",.02)
;;00247-0084-86
;;9002226.02101,"748,00247-0348-17 ",.01)
;;00247-0348-17
;;9002226.02101,"748,00247-0348-17 ",.02)
;;00247-0348-17
;;9002226.02101,"748,00364-2632-17 ",.01)
;;00364-2632-17
;;9002226.02101,"748,00364-2632-17 ",.02)
;;00364-2632-17
;;9002226.02101,"748,00403-1771-18 ",.01)
;;00403-1771-18
;;9002226.02101,"748,00403-1771-18 ",.02)
;;00403-1771-18
;;9002226.02101,"748,00403-1772-18 ",.01)
;;00403-1772-18
;;9002226.02101,"748,00403-1772-18 ",.02)
;;00403-1772-18
;;9002226.02101,"748,00403-2251-18 ",.01)
;;00403-2251-18
;;9002226.02101,"748,00403-2251-18 ",.02)
;;00403-2251-18
;;9002226.02101,"748,00472-1264-63 ",.01)
;;00472-1264-63
;;9002226.02101,"748,00472-1264-63 ",.02)
;;00472-1264-63
;;9002226.02101,"748,00472-1264-78 ",.01)
;;00472-1264-78
;;9002226.02101,"748,00472-1264-78 ",.02)
;;00472-1264-78
;;9002226.02101,"748,00536-0416-12 ",.01)
;;00536-0416-12
;;9002226.02101,"748,00536-0416-12 ",.02)
;;00536-0416-12
;;9002226.02101,"748,00536-0416-13 ",.01)
;;00536-0416-13
;;9002226.02101,"748,00536-0416-13 ",.02)
;;00536-0416-13
;;9002226.02101,"748,00536-1216-12 ",.01)
;;00536-1216-12
;;9002226.02101,"748,00536-1216-12 ",.02)
;;00536-1216-12
;;9002226.02101,"748,00536-1216-13 ",.01)
;;00536-1216-13
;;9002226.02101,"748,00536-1216-13 ",.02)
;;00536-1216-13
;;9002226.02101,"748,00677-1549-70 ",.01)
;;00677-1549-70
;;9002226.02101,"748,00677-1549-70 ",.02)
;;00677-1549-70
;;9002226.02101,"748,00677-1549-71 ",.01)
;;00677-1549-71
;;9002226.02101,"748,00677-1549-71 ",.02)
;;00677-1549-71
;;9002226.02101,"748,00904-2875-34 ",.01)
;;00904-2875-34
;;9002226.02101,"748,00904-2875-34 ",.02)
;;00904-2875-34
;;9002226.02101,"748,00904-2875-57 ",.01)
;;00904-2875-57
;;9002226.02101,"748,00904-2875-57 ",.02)
;;00904-2875-57
;;9002226.02101,"748,00904-5078-34 ",.01)
;;00904-5078-34
;;9002226.02101,"748,00904-5078-34 ",.02)
;;00904-5078-34
;;9002226.02101,"748,00904-5078-68 ",.01)
;;00904-5078-68
;;9002226.02101,"748,00904-5078-68 ",.02)
;;00904-5078-68
;;9002226.02101,"748,00904-5079-34 ",.01)
;;00904-5079-34
;;9002226.02101,"748,00904-5079-34 ",.02)
;;00904-5079-34
;;9002226.02101,"748,17270-0721-01 ",.01)
;;17270-0721-01
;;9002226.02101,"748,17270-0721-01 ",.02)
;;17270-0721-01
;;9002226.02101,"748,49502-0333-27 ",.01)
;;49502-0333-27
;;9002226.02101,"748,49502-0333-27 ",.02)
;;49502-0333-27
;;9002226.02101,"748,49999-0171-17 ",.01)
;;49999-0171-17
;;9002226.02101,"748,49999-0171-17 ",.02)
;;49999-0171-17
;;9002226.02101,"748,50111-0801-31 ",.01)
;;50111-0801-31
;;9002226.02101,"748,50111-0801-31 ",.02)
;;50111-0801-31
;;9002226.02101,"748,50111-0801-32 ",.01)
;;50111-0801-32
;;9002226.02101,"748,50111-0801-32 ",.02)
;;50111-0801-32
;;9002226.02101,"748,51479-0012-02 ",.01)
;;51479-0012-02
;;9002226.02101,"748,51479-0012-02 ",.02)
;;51479-0012-02
;;9002226.02101,"748,52493-0847-01 ",.01)
;;52493-0847-01
;;9002226.02101,"748,52493-0847-01 ",.02)
;;52493-0847-01
;;9002226.02101,"748,52493-0847-17 ",.01)
;;52493-0847-17
;;9002226.02101,"748,52493-0847-17 ",.02)
;;52493-0847-17
;;9002226.02101,"748,52493-0869-26 ",.01)
;;52493-0869-26
;;9002226.02101,"748,52493-0869-26 ",.02)
;;52493-0869-26
;;9002226.02101,"748,52959-0094-03 ",.01)
;;52959-0094-03
;;9002226.02101,"748,52959-0094-03 ",.02)
;;52959-0094-03
;;9002226.02101,"748,52959-0293-00 ",.01)
;;52959-0293-00
BJPC2UMB ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON FEB 17, 2009;
+1 ;;2.0;IHS PCC SUITE;;MAY 14, 2009
+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,"748,00089-0782-11 ",.02)
+2 ;;00089-0782-11
+3 ;;9002226.02101,"748,00089-0782-21 ",.01)
+4 ;;00089-0782-21
+5 ;;9002226.02101,"748,00089-0782-21 ",.02)
+6 ;;00089-0782-21
+7 ;;9002226.02101,"748,00089-0815-21 ",.01)
+8 ;;00089-0815-21
+9 ;;9002226.02101,"748,00089-0815-21 ",.02)
+10 ;;00089-0815-21
+11 ;;9002226.02101,"748,00172-4390-00 ",.01)
+12 ;;00172-4390-00
+13 ;;9002226.02101,"748,00172-4390-00 ",.02)
+14 ;;00172-4390-00
+15 ;;9002226.02101,"748,00172-4390-18 ",.01)
+16 ;;00172-4390-18
+17 ;;9002226.02101,"748,00172-4390-18 ",.02)
+18 ;;00172-4390-18
+19 ;;9002226.02101,"748,00173-0321-88 ",.01)
+20 ;;00173-0321-88
+21 ;;9002226.02101,"748,00173-0321-88 ",.02)
+22 ;;00173-0321-88
+23 ;;9002226.02101,"748,00173-0321-98 ",.01)
+24 ;;00173-0321-98
+25 ;;9002226.02101,"748,00173-0321-98 ",.02)
+26 ;;00173-0321-98
+27 ;;9002226.02101,"748,00173-0389-03 ",.01)
+28 ;;00173-0389-03
+29 ;;9002226.02101,"748,00173-0389-03 ",.02)
+30 ;;00173-0389-03
+31 ;;9002226.02101,"748,00173-0389-81 ",.01)
+32 ;;00173-0389-81
+33 ;;9002226.02101,"748,00173-0389-81 ",.02)
+34 ;;00173-0389-81
+35 ;;9002226.02101,"748,00173-0463-00 ",.01)
+36 ;;00173-0463-00
+37 ;;9002226.02101,"748,00173-0463-00 ",.02)
+38 ;;00173-0463-00
+39 ;;9002226.02101,"748,00173-0682-00 ",.01)
+40 ;;00173-0682-00
+41 ;;9002226.02101,"748,00173-0682-00 ",.02)
+42 ;;00173-0682-00
+43 ;;9002226.02101,"748,00173-0682-01 ",.01)
+44 ;;00173-0682-01
+45 ;;9002226.02101,"748,00173-0682-01 ",.02)
+46 ;;00173-0682-01
+47 ;;9002226.02101,"748,00173-0682-04 ",.01)
+48 ;;00173-0682-04
+49 ;;9002226.02101,"748,00173-0682-04 ",.02)
+50 ;;00173-0682-04
+51 ;;9002226.02101,"748,00247-0084-17 ",.01)
+52 ;;00247-0084-17
+53 ;;9002226.02101,"748,00247-0084-17 ",.02)
+54 ;;00247-0084-17
+55 ;;9002226.02101,"748,00247-0084-86 ",.01)
+56 ;;00247-0084-86
+57 ;;9002226.02101,"748,00247-0084-86 ",.02)
+58 ;;00247-0084-86
+59 ;;9002226.02101,"748,00247-0348-17 ",.01)
+60 ;;00247-0348-17
+61 ;;9002226.02101,"748,00247-0348-17 ",.02)
+62 ;;00247-0348-17
+63 ;;9002226.02101,"748,00364-2632-17 ",.01)
+64 ;;00364-2632-17
+65 ;;9002226.02101,"748,00364-2632-17 ",.02)
+66 ;;00364-2632-17
+67 ;;9002226.02101,"748,00403-1771-18 ",.01)
+68 ;;00403-1771-18
+69 ;;9002226.02101,"748,00403-1771-18 ",.02)
+70 ;;00403-1771-18
+71 ;;9002226.02101,"748,00403-1772-18 ",.01)
+72 ;;00403-1772-18
+73 ;;9002226.02101,"748,00403-1772-18 ",.02)
+74 ;;00403-1772-18
+75 ;;9002226.02101,"748,00403-2251-18 ",.01)
+76 ;;00403-2251-18
+77 ;;9002226.02101,"748,00403-2251-18 ",.02)
+78 ;;00403-2251-18
+79 ;;9002226.02101,"748,00472-1264-63 ",.01)
+80 ;;00472-1264-63
+81 ;;9002226.02101,"748,00472-1264-63 ",.02)
+82 ;;00472-1264-63
+83 ;;9002226.02101,"748,00472-1264-78 ",.01)
+84 ;;00472-1264-78
+85 ;;9002226.02101,"748,00472-1264-78 ",.02)
+86 ;;00472-1264-78
+87 ;;9002226.02101,"748,00536-0416-12 ",.01)
+88 ;;00536-0416-12
+89 ;;9002226.02101,"748,00536-0416-12 ",.02)
+90 ;;00536-0416-12
+91 ;;9002226.02101,"748,00536-0416-13 ",.01)
+92 ;;00536-0416-13
+93 ;;9002226.02101,"748,00536-0416-13 ",.02)
+94 ;;00536-0416-13
+95 ;;9002226.02101,"748,00536-1216-12 ",.01)
+96 ;;00536-1216-12
+97 ;;9002226.02101,"748,00536-1216-12 ",.02)
+98 ;;00536-1216-12
+99 ;;9002226.02101,"748,00536-1216-13 ",.01)
+100 ;;00536-1216-13
+101 ;;9002226.02101,"748,00536-1216-13 ",.02)
+102 ;;00536-1216-13
+103 ;;9002226.02101,"748,00677-1549-70 ",.01)
+104 ;;00677-1549-70
+105 ;;9002226.02101,"748,00677-1549-70 ",.02)
+106 ;;00677-1549-70
+107 ;;9002226.02101,"748,00677-1549-71 ",.01)
+108 ;;00677-1549-71
+109 ;;9002226.02101,"748,00677-1549-71 ",.02)
+110 ;;00677-1549-71
+111 ;;9002226.02101,"748,00904-2875-34 ",.01)
+112 ;;00904-2875-34
+113 ;;9002226.02101,"748,00904-2875-34 ",.02)
+114 ;;00904-2875-34
+115 ;;9002226.02101,"748,00904-2875-57 ",.01)
+116 ;;00904-2875-57
+117 ;;9002226.02101,"748,00904-2875-57 ",.02)
+118 ;;00904-2875-57
+119 ;;9002226.02101,"748,00904-5078-34 ",.01)
+120 ;;00904-5078-34
+121 ;;9002226.02101,"748,00904-5078-34 ",.02)
+122 ;;00904-5078-34
+123 ;;9002226.02101,"748,00904-5078-68 ",.01)
+124 ;;00904-5078-68
+125 ;;9002226.02101,"748,00904-5078-68 ",.02)
+126 ;;00904-5078-68
+127 ;;9002226.02101,"748,00904-5079-34 ",.01)
+128 ;;00904-5079-34
+129 ;;9002226.02101,"748,00904-5079-34 ",.02)
+130 ;;00904-5079-34
+131 ;;9002226.02101,"748,17270-0721-01 ",.01)
+132 ;;17270-0721-01
+133 ;;9002226.02101,"748,17270-0721-01 ",.02)
+134 ;;17270-0721-01
+135 ;;9002226.02101,"748,49502-0333-27 ",.01)
+136 ;;49502-0333-27
+137 ;;9002226.02101,"748,49502-0333-27 ",.02)
+138 ;;49502-0333-27
+139 ;;9002226.02101,"748,49999-0171-17 ",.01)
+140 ;;49999-0171-17
+141 ;;9002226.02101,"748,49999-0171-17 ",.02)
+142 ;;49999-0171-17
+143 ;;9002226.02101,"748,50111-0801-31 ",.01)
+144 ;;50111-0801-31
+145 ;;9002226.02101,"748,50111-0801-31 ",.02)
+146 ;;50111-0801-31
+147 ;;9002226.02101,"748,50111-0801-32 ",.01)
+148 ;;50111-0801-32
+149 ;;9002226.02101,"748,50111-0801-32 ",.02)
+150 ;;50111-0801-32
+151 ;;9002226.02101,"748,51479-0012-02 ",.01)
+152 ;;51479-0012-02
+153 ;;9002226.02101,"748,51479-0012-02 ",.02)
+154 ;;51479-0012-02
+155 ;;9002226.02101,"748,52493-0847-01 ",.01)
+156 ;;52493-0847-01
+157 ;;9002226.02101,"748,52493-0847-01 ",.02)
+158 ;;52493-0847-01
+159 ;;9002226.02101,"748,52493-0847-17 ",.01)
+160 ;;52493-0847-17
+161 ;;9002226.02101,"748,52493-0847-17 ",.02)
+162 ;;52493-0847-17
+163 ;;9002226.02101,"748,52493-0869-26 ",.01)
+164 ;;52493-0869-26
+165 ;;9002226.02101,"748,52493-0869-26 ",.02)
+166 ;;52493-0869-26
+167 ;;9002226.02101,"748,52959-0094-03 ",.01)
+168 ;;52959-0094-03
+169 ;;9002226.02101,"748,52959-0094-03 ",.02)
+170 ;;52959-0094-03
+171 ;;9002226.02101,"748,52959-0293-00 ",.01)
+172 ;;52959-0293-00
