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