BGPVXLB ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON JUL 09, 2004 ;
;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
;
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,"786,12893-4 ",.02)
;;12893-4
;;9002226.02101,"786,12894-2 ",.01)
;;12894-2
;;9002226.02101,"786,12894-2 ",.02)
;;12894-2
;;9002226.02101,"786,12895-9 ",.01)
;;12895-9
;;9002226.02101,"786,12895-9 ",.02)
;;12895-9
;;9002226.02101,"786,13499-9 ",.01)
;;13499-9
;;9002226.02101,"786,13499-9 ",.02)
;;13499-9
;;9002226.02101,"786,13920-4 ",.01)
;;13920-4
;;9002226.02101,"786,13920-4 ",.02)
;;13920-4
;;9002226.02101,"786,14092-1 ",.01)
;;14092-1
;;9002226.02101,"786,14092-1 ",.02)
;;14092-1
;;9002226.02101,"786,14126-7 ",.01)
;;14126-7
;;9002226.02101,"786,14126-7 ",.02)
;;14126-7
;;9002226.02101,"786,16132-3 ",.01)
;;16132-3
;;9002226.02101,"786,16132-3 ",.02)
;;16132-3
;;9002226.02101,"786,16974-8 ",.01)
;;16974-8
;;9002226.02101,"786,16974-8 ",.02)
;;16974-8
;;9002226.02101,"786,16975-5 ",.01)
;;16975-5
;;9002226.02101,"786,16975-5 ",.02)
;;16975-5
;;9002226.02101,"786,16976-3 ",.01)
;;16976-3
;;9002226.02101,"786,16976-3 ",.02)
;;16976-3
;;9002226.02101,"786,16977-1 ",.01)
;;16977-1
;;9002226.02101,"786,16977-1 ",.02)
;;16977-1
;;9002226.02101,"786,16978-9 ",.01)
;;16978-9
;;9002226.02101,"786,16978-9 ",.02)
;;16978-9
;;9002226.02101,"786,16979-7 ",.01)
;;16979-7
;;9002226.02101,"786,16979-7 ",.02)
;;16979-7
;;9002226.02101,"786,18396-2 ",.01)
;;18396-2
;;9002226.02101,"786,18396-2 ",.02)
;;18396-2
;;9002226.02101,"786,19110-6 ",.01)
;;19110-6
;;9002226.02101,"786,19110-6 ",.02)
;;19110-6
;;9002226.02101,"786,20447-9 ",.01)
;;20447-9
;;9002226.02101,"786,20447-9 ",.02)
;;20447-9
;;9002226.02101,"786,21007-0 ",.01)
;;21007-0
;;9002226.02101,"786,21007-0 ",.02)
;;21007-0
;;9002226.02101,"786,21008-8 ",.01)
;;21008-8
;;9002226.02101,"786,21008-8 ",.02)
;;21008-8
;;9002226.02101,"786,21009-6 ",.01)
;;21009-6
;;9002226.02101,"786,21009-6 ",.02)
;;21009-6
;;9002226.02101,"786,21331-4 ",.01)
;;21331-4
;;9002226.02101,"786,21331-4 ",.02)
;;21331-4
;;9002226.02101,"786,21332-2 ",.01)
;;21332-2
;;9002226.02101,"786,21332-2 ",.02)
;;21332-2
;;9002226.02101,"786,21333-0 ",.01)
;;21333-0
;;9002226.02101,"786,21333-0 ",.02)
;;21333-0
;;9002226.02101,"786,21334-8 ",.01)
;;21334-8
;;9002226.02101,"786,21334-8 ",.02)
;;21334-8
;;9002226.02101,"786,21335-5 ",.01)
;;21335-5
;;9002226.02101,"786,21335-5 ",.02)
;;21335-5
;;9002226.02101,"786,21336-3 ",.01)
;;21336-3
;;9002226.02101,"786,21336-3 ",.02)
;;21336-3
;;9002226.02101,"786,21337-1 ",.01)
;;21337-1
;;9002226.02101,"786,21337-1 ",.02)
;;21337-1
;;9002226.02101,"786,21338-9 ",.01)
;;21338-9
;;9002226.02101,"786,21338-9 ",.02)
;;21338-9
;;9002226.02101,"786,21339-7 ",.01)
;;21339-7
;;9002226.02101,"786,21339-7 ",.02)
;;21339-7
;;9002226.02101,"786,21340-5 ",.01)
;;21340-5
;;9002226.02101,"786,21340-5 ",.02)
;;21340-5
;;9002226.02101,"786,22356-0 ",.01)
;;22356-0
;;9002226.02101,"786,22356-0 ",.02)
;;22356-0
;;9002226.02101,"786,22357-8 ",.01)
;;22357-8
;;9002226.02101,"786,22357-8 ",.02)
;;22357-8
;;9002226.02101,"786,22358-6 ",.01)
;;22358-6
;;9002226.02101,"786,22358-6 ",.02)
;;22358-6
;;9002226.02101,"786,23876-6 ",.01)
;;23876-6
;;9002226.02101,"786,23876-6 ",.02)
;;23876-6
;;9002226.02101,"786,24012-7 ",.01)
;;24012-7
;;9002226.02101,"786,24012-7 ",.02)
;;24012-7
;;9002226.02101,"786,24013-5 ",.01)
;;24013-5
;;9002226.02101,"786,24013-5 ",.02)
;;24013-5
;;9002226.02101,"786,25835-0 ",.01)
;;25835-0
;;9002226.02101,"786,25835-0 ",.02)
;;25835-0
;;9002226.02101,"786,25836-8 ",.01)
;;25836-8
;;9002226.02101,"786,25836-8 ",.02)
;;25836-8
;;9002226.02101,"786,25841-8 ",.01)
;;25841-8
;;9002226.02101,"786,25841-8 ",.02)
;;25841-8
;;9002226.02101,"786,25842-6 ",.01)
;;25842-6
;;9002226.02101,"786,25842-6 ",.02)
;;25842-6
;;9002226.02101,"786,28004-0 ",.01)
;;28004-0
;;9002226.02101,"786,28004-0 ",.02)
;;28004-0
;;9002226.02101,"786,28052-9 ",.01)
;;28052-9
;;9002226.02101,"786,28052-9 ",.02)
;;28052-9
;;9002226.02101,"786,29327-4 ",.01)
;;29327-4
;;9002226.02101,"786,29327-4 ",.02)
;;29327-4
;;9002226.02101,"786,29539-4 ",.01)
;;29539-4
;;9002226.02101,"786,29539-4 ",.02)
;;29539-4
;;9002226.02101,"786,29541-0 ",.01)
;;29541-0
;;9002226.02101,"786,29541-0 ",.02)
;;29541-0
;;9002226.02101,"786,29893-5 ",.01)
;;29893-5
;;9002226.02101,"786,29893-5 ",.02)
;;29893-5
;;9002226.02101,"786,30245-5 ",.01)
;;30245-5
;;9002226.02101,"786,30245-5 ",.02)
;;30245-5
;;9002226.02101,"786,30361-0 ",.01)
;;30361-0
;;9002226.02101,"786,30361-0 ",.02)
;;30361-0
;;9002226.02101,"786,30554-0 ",.01)
;;30554-0
;;9002226.02101,"786,30554-0 ",.02)
;;30554-0
;;9002226.02101,"786,31072-2 ",.01)
;;31072-2
;;9002226.02101,"786,31072-2 ",.02)
;;31072-2
;;9002226.02101,"786,31073-0 ",.01)
;;31073-0
;;9002226.02101,"786,31073-0 ",.02)
;;31073-0
;;9002226.02101,"786,31201-7 ",.01)
;;31201-7
;;9002226.02101,"786,31201-7 ",.02)
;;31201-7
;;9002226.02101,"786,31430-2 ",.01)
;;31430-2
;;9002226.02101,"786,31430-2 ",.02)
;;31430-2
BGPVXLB ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON JUL 09, 2004 ;
+1 ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
+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,"786,12893-4 ",.02)
+2 ;;12893-4
+3 ;;9002226.02101,"786,12894-2 ",.01)
+4 ;;12894-2
+5 ;;9002226.02101,"786,12894-2 ",.02)
+6 ;;12894-2
+7 ;;9002226.02101,"786,12895-9 ",.01)
+8 ;;12895-9
+9 ;;9002226.02101,"786,12895-9 ",.02)
+10 ;;12895-9
+11 ;;9002226.02101,"786,13499-9 ",.01)
+12 ;;13499-9
+13 ;;9002226.02101,"786,13499-9 ",.02)
+14 ;;13499-9
+15 ;;9002226.02101,"786,13920-4 ",.01)
+16 ;;13920-4
+17 ;;9002226.02101,"786,13920-4 ",.02)
+18 ;;13920-4
+19 ;;9002226.02101,"786,14092-1 ",.01)
+20 ;;14092-1
+21 ;;9002226.02101,"786,14092-1 ",.02)
+22 ;;14092-1
+23 ;;9002226.02101,"786,14126-7 ",.01)
+24 ;;14126-7
+25 ;;9002226.02101,"786,14126-7 ",.02)
+26 ;;14126-7
+27 ;;9002226.02101,"786,16132-3 ",.01)
+28 ;;16132-3
+29 ;;9002226.02101,"786,16132-3 ",.02)
+30 ;;16132-3
+31 ;;9002226.02101,"786,16974-8 ",.01)
+32 ;;16974-8
+33 ;;9002226.02101,"786,16974-8 ",.02)
+34 ;;16974-8
+35 ;;9002226.02101,"786,16975-5 ",.01)
+36 ;;16975-5
+37 ;;9002226.02101,"786,16975-5 ",.02)
+38 ;;16975-5
+39 ;;9002226.02101,"786,16976-3 ",.01)
+40 ;;16976-3
+41 ;;9002226.02101,"786,16976-3 ",.02)
+42 ;;16976-3
+43 ;;9002226.02101,"786,16977-1 ",.01)
+44 ;;16977-1
+45 ;;9002226.02101,"786,16977-1 ",.02)
+46 ;;16977-1
+47 ;;9002226.02101,"786,16978-9 ",.01)
+48 ;;16978-9
+49 ;;9002226.02101,"786,16978-9 ",.02)
+50 ;;16978-9
+51 ;;9002226.02101,"786,16979-7 ",.01)
+52 ;;16979-7
+53 ;;9002226.02101,"786,16979-7 ",.02)
+54 ;;16979-7
+55 ;;9002226.02101,"786,18396-2 ",.01)
+56 ;;18396-2
+57 ;;9002226.02101,"786,18396-2 ",.02)
+58 ;;18396-2
+59 ;;9002226.02101,"786,19110-6 ",.01)
+60 ;;19110-6
+61 ;;9002226.02101,"786,19110-6 ",.02)
+62 ;;19110-6
+63 ;;9002226.02101,"786,20447-9 ",.01)
+64 ;;20447-9
+65 ;;9002226.02101,"786,20447-9 ",.02)
+66 ;;20447-9
+67 ;;9002226.02101,"786,21007-0 ",.01)
+68 ;;21007-0
+69 ;;9002226.02101,"786,21007-0 ",.02)
+70 ;;21007-0
+71 ;;9002226.02101,"786,21008-8 ",.01)
+72 ;;21008-8
+73 ;;9002226.02101,"786,21008-8 ",.02)
+74 ;;21008-8
+75 ;;9002226.02101,"786,21009-6 ",.01)
+76 ;;21009-6
+77 ;;9002226.02101,"786,21009-6 ",.02)
+78 ;;21009-6
+79 ;;9002226.02101,"786,21331-4 ",.01)
+80 ;;21331-4
+81 ;;9002226.02101,"786,21331-4 ",.02)
+82 ;;21331-4
+83 ;;9002226.02101,"786,21332-2 ",.01)
+84 ;;21332-2
+85 ;;9002226.02101,"786,21332-2 ",.02)
+86 ;;21332-2
+87 ;;9002226.02101,"786,21333-0 ",.01)
+88 ;;21333-0
+89 ;;9002226.02101,"786,21333-0 ",.02)
+90 ;;21333-0
+91 ;;9002226.02101,"786,21334-8 ",.01)
+92 ;;21334-8
+93 ;;9002226.02101,"786,21334-8 ",.02)
+94 ;;21334-8
+95 ;;9002226.02101,"786,21335-5 ",.01)
+96 ;;21335-5
+97 ;;9002226.02101,"786,21335-5 ",.02)
+98 ;;21335-5
+99 ;;9002226.02101,"786,21336-3 ",.01)
+100 ;;21336-3
+101 ;;9002226.02101,"786,21336-3 ",.02)
+102 ;;21336-3
+103 ;;9002226.02101,"786,21337-1 ",.01)
+104 ;;21337-1
+105 ;;9002226.02101,"786,21337-1 ",.02)
+106 ;;21337-1
+107 ;;9002226.02101,"786,21338-9 ",.01)
+108 ;;21338-9
+109 ;;9002226.02101,"786,21338-9 ",.02)
+110 ;;21338-9
+111 ;;9002226.02101,"786,21339-7 ",.01)
+112 ;;21339-7
+113 ;;9002226.02101,"786,21339-7 ",.02)
+114 ;;21339-7
+115 ;;9002226.02101,"786,21340-5 ",.01)
+116 ;;21340-5
+117 ;;9002226.02101,"786,21340-5 ",.02)
+118 ;;21340-5
+119 ;;9002226.02101,"786,22356-0 ",.01)
+120 ;;22356-0
+121 ;;9002226.02101,"786,22356-0 ",.02)
+122 ;;22356-0
+123 ;;9002226.02101,"786,22357-8 ",.01)
+124 ;;22357-8
+125 ;;9002226.02101,"786,22357-8 ",.02)
+126 ;;22357-8
+127 ;;9002226.02101,"786,22358-6 ",.01)
+128 ;;22358-6
+129 ;;9002226.02101,"786,22358-6 ",.02)
+130 ;;22358-6
+131 ;;9002226.02101,"786,23876-6 ",.01)
+132 ;;23876-6
+133 ;;9002226.02101,"786,23876-6 ",.02)
+134 ;;23876-6
+135 ;;9002226.02101,"786,24012-7 ",.01)
+136 ;;24012-7
+137 ;;9002226.02101,"786,24012-7 ",.02)
+138 ;;24012-7
+139 ;;9002226.02101,"786,24013-5 ",.01)
+140 ;;24013-5
+141 ;;9002226.02101,"786,24013-5 ",.02)
+142 ;;24013-5
+143 ;;9002226.02101,"786,25835-0 ",.01)
+144 ;;25835-0
+145 ;;9002226.02101,"786,25835-0 ",.02)
+146 ;;25835-0
+147 ;;9002226.02101,"786,25836-8 ",.01)
+148 ;;25836-8
+149 ;;9002226.02101,"786,25836-8 ",.02)
+150 ;;25836-8
+151 ;;9002226.02101,"786,25841-8 ",.01)
+152 ;;25841-8
+153 ;;9002226.02101,"786,25841-8 ",.02)
+154 ;;25841-8
+155 ;;9002226.02101,"786,25842-6 ",.01)
+156 ;;25842-6
+157 ;;9002226.02101,"786,25842-6 ",.02)
+158 ;;25842-6
+159 ;;9002226.02101,"786,28004-0 ",.01)
+160 ;;28004-0
+161 ;;9002226.02101,"786,28004-0 ",.02)
+162 ;;28004-0
+163 ;;9002226.02101,"786,28052-9 ",.01)
+164 ;;28052-9
+165 ;;9002226.02101,"786,28052-9 ",.02)
+166 ;;28052-9
+167 ;;9002226.02101,"786,29327-4 ",.01)
+168 ;;29327-4
+169 ;;9002226.02101,"786,29327-4 ",.02)
+170 ;;29327-4
+171 ;;9002226.02101,"786,29539-4 ",.01)
+172 ;;29539-4
+173 ;;9002226.02101,"786,29539-4 ",.02)
+174 ;;29539-4
+175 ;;9002226.02101,"786,29541-0 ",.01)
+176 ;;29541-0
+177 ;;9002226.02101,"786,29541-0 ",.02)
+178 ;;29541-0
+179 ;;9002226.02101,"786,29893-5 ",.01)
+180 ;;29893-5
+181 ;;9002226.02101,"786,29893-5 ",.02)
+182 ;;29893-5
+183 ;;9002226.02101,"786,30245-5 ",.01)
+184 ;;30245-5
+185 ;;9002226.02101,"786,30245-5 ",.02)
+186 ;;30245-5
+187 ;;9002226.02101,"786,30361-0 ",.01)
+188 ;;30361-0
+189 ;;9002226.02101,"786,30361-0 ",.02)
+190 ;;30361-0
+191 ;;9002226.02101,"786,30554-0 ",.01)
+192 ;;30554-0
+193 ;;9002226.02101,"786,30554-0 ",.02)
+194 ;;30554-0
+195 ;;9002226.02101,"786,31072-2 ",.01)
+196 ;;31072-2
+197 ;;9002226.02101,"786,31072-2 ",.02)
+198 ;;31072-2
+199 ;;9002226.02101,"786,31073-0 ",.01)
+200 ;;31073-0
+201 ;;9002226.02101,"786,31073-0 ",.02)
+202 ;;31073-0
+203 ;;9002226.02101,"786,31201-7 ",.01)
+204 ;;31201-7
+205 ;;9002226.02101,"786,31201-7 ",.02)
+206 ;;31201-7
+207 ;;9002226.02101,"786,31430-2 ",.01)
+208 ;;31430-2
+209 ;;9002226.02101,"786,31430-2 ",.02)
+210 ;;31430-2
