BGPTXVC ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON DEC 04, 2003 ;
;;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,"805,16602-5 ",.01)
;;16602-5
;;9002226.02101,"805,16602-5 ",.02)
;;16602-5
;;9002226.02101,"805,18490-3 ",.01)
;;18490-3
;;9002226.02101,"805,18490-3 ",.02)
;;18490-3
;;9002226.02101,"805,18491-1 ",.01)
;;18491-1
;;9002226.02101,"805,18491-1 ",.02)
;;18491-1
;;9002226.02101,"805,18492-9 ",.01)
;;18492-9
;;9002226.02101,"805,18492-9 ",.02)
;;18492-9
;;9002226.02101,"805,20755-5 ",.01)
;;20755-5
;;9002226.02101,"805,20755-5 ",.02)
;;20755-5
;;9002226.02101,"805,20756-3 ",.01)
;;20756-3
;;9002226.02101,"805,20756-3 ",.02)
;;20756-3
;;9002226.02101,"805,20757-1 ",.01)
;;20757-1
;;9002226.02101,"805,20757-1 ",.02)
;;20757-1
;;9002226.02101,"805,20993-2 ",.01)
;;20993-2
;;9002226.02101,"805,20993-2 ",.02)
;;20993-2
;;9002226.02101,"805,21185-4 ",.01)
;;21185-4
;;9002226.02101,"805,21185-4 ",.02)
;;21185-4
;;9002226.02101,"805,21186-2 ",.01)
;;21186-2
;;9002226.02101,"805,21186-2 ",.02)
;;21186-2
;;9002226.02101,"805,21187-0 ",.01)
;;21187-0
;;9002226.02101,"805,21187-0 ",.02)
;;21187-0
;;9002226.02101,"805,21188-8 ",.01)
;;21188-8
;;9002226.02101,"805,21188-8 ",.02)
;;21188-8
;;9002226.02101,"805,21189-6 ",.01)
;;21189-6
;;9002226.02101,"805,21189-6 ",.02)
;;21189-6
;;9002226.02101,"805,21190-4 ",.01)
;;21190-4
;;9002226.02101,"805,21190-4 ",.02)
;;21190-4
;;9002226.02101,"805,21191-2 ",.01)
;;21191-2
;;9002226.02101,"805,21191-2 ",.02)
;;21191-2
;;9002226.02101,"805,21192-0 ",.01)
;;21192-0
;;9002226.02101,"805,21192-0 ",.02)
;;21192-0
;;9002226.02101,"805,21613-5 ",.01)
;;21613-5
;;9002226.02101,"805,21613-5 ",.02)
;;21613-5
;;9002226.02101,"805,22182-0 ",.01)
;;22182-0
;;9002226.02101,"805,22182-0 ",.02)
;;22182-0
;;9002226.02101,"805,22183-8 ",.01)
;;22183-8
;;9002226.02101,"805,22183-8 ",.02)
;;22183-8
;;9002226.02101,"805,22184-6 ",.01)
;;22184-6
;;9002226.02101,"805,22184-6 ",.02)
;;22184-6
;;9002226.02101,"805,22185-3 ",.01)
;;22185-3
;;9002226.02101,"805,22185-3 ",.02)
;;22185-3
;;9002226.02101,"805,22186-1 ",.01)
;;22186-1
;;9002226.02101,"805,22186-1 ",.02)
;;22186-1
;;9002226.02101,"805,22187-9 ",.01)
;;22187-9
;;9002226.02101,"805,22187-9 ",.02)
;;22187-9
;;9002226.02101,"805,22188-7 ",.01)
;;22188-7
;;9002226.02101,"805,22188-7 ",.02)
;;22188-7
;;9002226.02101,"805,22189-5 ",.01)
;;22189-5
;;9002226.02101,"805,22189-5 ",.02)
;;22189-5
;;9002226.02101,"805,22190-3 ",.01)
;;22190-3
;;9002226.02101,"805,22190-3 ",.02)
;;22190-3
;;9002226.02101,"805,22191-1 ",.01)
;;22191-1
;;9002226.02101,"805,22191-1 ",.02)
;;22191-1
;;9002226.02101,"805,22192-9 ",.01)
;;22192-9
;;9002226.02101,"805,22192-9 ",.02)
;;22192-9
;;9002226.02101,"805,22193-7 ",.01)
;;22193-7
;;9002226.02101,"805,22193-7 ",.02)
;;22193-7
;;9002226.02101,"805,22194-5 ",.01)
;;22194-5
;;9002226.02101,"805,22194-5 ",.02)
;;22194-5
;;9002226.02101,"805,22195-2 ",.01)
;;22195-2
;;9002226.02101,"805,22195-2 ",.02)
;;22195-2
;;9002226.02101,"805,22196-0 ",.01)
;;22196-0
;;9002226.02101,"805,22196-0 ",.02)
;;22196-0
;;9002226.02101,"805,22197-8 ",.01)
;;22197-8
;;9002226.02101,"805,22197-8 ",.02)
;;22197-8
;;9002226.02101,"805,22198-6 ",.01)
;;22198-6
;;9002226.02101,"805,22198-6 ",.02)
;;22198-6
;;9002226.02101,"805,22199-4 ",.01)
;;22199-4
;;9002226.02101,"805,22199-4 ",.02)
;;22199-4
;;9002226.02101,"805,22200-0 ",.01)
;;22200-0
;;9002226.02101,"805,22200-0 ",.02)
;;22200-0
;;9002226.02101,"805,22201-8 ",.01)
;;22201-8
;;9002226.02101,"805,22201-8 ",.02)
;;22201-8
;;9002226.02101,"805,22202-6 ",.01)
;;22202-6
;;9002226.02101,"805,22202-6 ",.02)
;;22202-6
;;9002226.02101,"805,23838-6 ",.01)
;;23838-6
;;9002226.02101,"805,23838-6 ",.02)
;;23838-6
;;9002226.02101,"805,23967-3 ",.01)
;;23967-3
;;9002226.02101,"805,23967-3 ",.02)
;;23967-3
;;9002226.02101,"805,23990-5 ",.01)
;;23990-5
;;9002226.02101,"805,23990-5 ",.02)
;;23990-5
;;9002226.02101,"805,24005-1 ",.01)
;;24005-1
;;9002226.02101,"805,24005-1 ",.02)
;;24005-1
;;9002226.02101,"805,24238-8 ",.01)
;;24238-8
;;9002226.02101,"805,24238-8 ",.02)
;;24238-8
;;9002226.02101,"805,24239-6 ",.01)
;;24239-6
;;9002226.02101,"805,24239-6 ",.02)
;;24239-6
;;9002226.02101,"805,25369-0 ",.01)
;;25369-0
;;9002226.02101,"805,25369-0 ",.02)
;;25369-0
;;9002226.02101,"805,26626-2 ",.01)
;;26626-2
;;9002226.02101,"805,26626-2 ",.02)
;;26626-2
;;9002226.02101,"805,26663-5 ",.01)
;;26663-5
;;9002226.02101,"805,26663-5 ",.02)
;;26663-5
;;9002226.02101,"805,26664-3 ",.01)
;;26664-3
;;9002226.02101,"805,26664-3 ",.02)
;;26664-3
;;9002226.02101,"805,26665-0 ",.01)
;;26665-0
;;9002226.02101,"805,26665-0 ",.02)
;;26665-0
;;9002226.02101,"805,26666-8 ",.01)
;;26666-8
;;9002226.02101,"805,26666-8 ",.02)
;;26666-8
;;9002226.02101,"805,26667-6 ",.01)
;;26667-6
;;9002226.02101,"805,26667-6 ",.02)
;;26667-6
;;9002226.02101,"805,26668-4 ",.01)
;;26668-4
;;9002226.02101,"805,26668-4 ",.02)
;;26668-4
;;9002226.02101,"805,26715-3 ",.01)
;;26715-3
BGPTXVC ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON DEC 04, 2003 ;
+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,"805,16602-5 ",.01)
+2 ;;16602-5
+3 ;;9002226.02101,"805,16602-5 ",.02)
+4 ;;16602-5
+5 ;;9002226.02101,"805,18490-3 ",.01)
+6 ;;18490-3
+7 ;;9002226.02101,"805,18490-3 ",.02)
+8 ;;18490-3
+9 ;;9002226.02101,"805,18491-1 ",.01)
+10 ;;18491-1
+11 ;;9002226.02101,"805,18491-1 ",.02)
+12 ;;18491-1
+13 ;;9002226.02101,"805,18492-9 ",.01)
+14 ;;18492-9
+15 ;;9002226.02101,"805,18492-9 ",.02)
+16 ;;18492-9
+17 ;;9002226.02101,"805,20755-5 ",.01)
+18 ;;20755-5
+19 ;;9002226.02101,"805,20755-5 ",.02)
+20 ;;20755-5
+21 ;;9002226.02101,"805,20756-3 ",.01)
+22 ;;20756-3
+23 ;;9002226.02101,"805,20756-3 ",.02)
+24 ;;20756-3
+25 ;;9002226.02101,"805,20757-1 ",.01)
+26 ;;20757-1
+27 ;;9002226.02101,"805,20757-1 ",.02)
+28 ;;20757-1
+29 ;;9002226.02101,"805,20993-2 ",.01)
+30 ;;20993-2
+31 ;;9002226.02101,"805,20993-2 ",.02)
+32 ;;20993-2
+33 ;;9002226.02101,"805,21185-4 ",.01)
+34 ;;21185-4
+35 ;;9002226.02101,"805,21185-4 ",.02)
+36 ;;21185-4
+37 ;;9002226.02101,"805,21186-2 ",.01)
+38 ;;21186-2
+39 ;;9002226.02101,"805,21186-2 ",.02)
+40 ;;21186-2
+41 ;;9002226.02101,"805,21187-0 ",.01)
+42 ;;21187-0
+43 ;;9002226.02101,"805,21187-0 ",.02)
+44 ;;21187-0
+45 ;;9002226.02101,"805,21188-8 ",.01)
+46 ;;21188-8
+47 ;;9002226.02101,"805,21188-8 ",.02)
+48 ;;21188-8
+49 ;;9002226.02101,"805,21189-6 ",.01)
+50 ;;21189-6
+51 ;;9002226.02101,"805,21189-6 ",.02)
+52 ;;21189-6
+53 ;;9002226.02101,"805,21190-4 ",.01)
+54 ;;21190-4
+55 ;;9002226.02101,"805,21190-4 ",.02)
+56 ;;21190-4
+57 ;;9002226.02101,"805,21191-2 ",.01)
+58 ;;21191-2
+59 ;;9002226.02101,"805,21191-2 ",.02)
+60 ;;21191-2
+61 ;;9002226.02101,"805,21192-0 ",.01)
+62 ;;21192-0
+63 ;;9002226.02101,"805,21192-0 ",.02)
+64 ;;21192-0
+65 ;;9002226.02101,"805,21613-5 ",.01)
+66 ;;21613-5
+67 ;;9002226.02101,"805,21613-5 ",.02)
+68 ;;21613-5
+69 ;;9002226.02101,"805,22182-0 ",.01)
+70 ;;22182-0
+71 ;;9002226.02101,"805,22182-0 ",.02)
+72 ;;22182-0
+73 ;;9002226.02101,"805,22183-8 ",.01)
+74 ;;22183-8
+75 ;;9002226.02101,"805,22183-8 ",.02)
+76 ;;22183-8
+77 ;;9002226.02101,"805,22184-6 ",.01)
+78 ;;22184-6
+79 ;;9002226.02101,"805,22184-6 ",.02)
+80 ;;22184-6
+81 ;;9002226.02101,"805,22185-3 ",.01)
+82 ;;22185-3
+83 ;;9002226.02101,"805,22185-3 ",.02)
+84 ;;22185-3
+85 ;;9002226.02101,"805,22186-1 ",.01)
+86 ;;22186-1
+87 ;;9002226.02101,"805,22186-1 ",.02)
+88 ;;22186-1
+89 ;;9002226.02101,"805,22187-9 ",.01)
+90 ;;22187-9
+91 ;;9002226.02101,"805,22187-9 ",.02)
+92 ;;22187-9
+93 ;;9002226.02101,"805,22188-7 ",.01)
+94 ;;22188-7
+95 ;;9002226.02101,"805,22188-7 ",.02)
+96 ;;22188-7
+97 ;;9002226.02101,"805,22189-5 ",.01)
+98 ;;22189-5
+99 ;;9002226.02101,"805,22189-5 ",.02)
+100 ;;22189-5
+101 ;;9002226.02101,"805,22190-3 ",.01)
+102 ;;22190-3
+103 ;;9002226.02101,"805,22190-3 ",.02)
+104 ;;22190-3
+105 ;;9002226.02101,"805,22191-1 ",.01)
+106 ;;22191-1
+107 ;;9002226.02101,"805,22191-1 ",.02)
+108 ;;22191-1
+109 ;;9002226.02101,"805,22192-9 ",.01)
+110 ;;22192-9
+111 ;;9002226.02101,"805,22192-9 ",.02)
+112 ;;22192-9
+113 ;;9002226.02101,"805,22193-7 ",.01)
+114 ;;22193-7
+115 ;;9002226.02101,"805,22193-7 ",.02)
+116 ;;22193-7
+117 ;;9002226.02101,"805,22194-5 ",.01)
+118 ;;22194-5
+119 ;;9002226.02101,"805,22194-5 ",.02)
+120 ;;22194-5
+121 ;;9002226.02101,"805,22195-2 ",.01)
+122 ;;22195-2
+123 ;;9002226.02101,"805,22195-2 ",.02)
+124 ;;22195-2
+125 ;;9002226.02101,"805,22196-0 ",.01)
+126 ;;22196-0
+127 ;;9002226.02101,"805,22196-0 ",.02)
+128 ;;22196-0
+129 ;;9002226.02101,"805,22197-8 ",.01)
+130 ;;22197-8
+131 ;;9002226.02101,"805,22197-8 ",.02)
+132 ;;22197-8
+133 ;;9002226.02101,"805,22198-6 ",.01)
+134 ;;22198-6
+135 ;;9002226.02101,"805,22198-6 ",.02)
+136 ;;22198-6
+137 ;;9002226.02101,"805,22199-4 ",.01)
+138 ;;22199-4
+139 ;;9002226.02101,"805,22199-4 ",.02)
+140 ;;22199-4
+141 ;;9002226.02101,"805,22200-0 ",.01)
+142 ;;22200-0
+143 ;;9002226.02101,"805,22200-0 ",.02)
+144 ;;22200-0
+145 ;;9002226.02101,"805,22201-8 ",.01)
+146 ;;22201-8
+147 ;;9002226.02101,"805,22201-8 ",.02)
+148 ;;22201-8
+149 ;;9002226.02101,"805,22202-6 ",.01)
+150 ;;22202-6
+151 ;;9002226.02101,"805,22202-6 ",.02)
+152 ;;22202-6
+153 ;;9002226.02101,"805,23838-6 ",.01)
+154 ;;23838-6
+155 ;;9002226.02101,"805,23838-6 ",.02)
+156 ;;23838-6
+157 ;;9002226.02101,"805,23967-3 ",.01)
+158 ;;23967-3
+159 ;;9002226.02101,"805,23967-3 ",.02)
+160 ;;23967-3
+161 ;;9002226.02101,"805,23990-5 ",.01)
+162 ;;23990-5
+163 ;;9002226.02101,"805,23990-5 ",.02)
+164 ;;23990-5
+165 ;;9002226.02101,"805,24005-1 ",.01)
+166 ;;24005-1
+167 ;;9002226.02101,"805,24005-1 ",.02)
+168 ;;24005-1
+169 ;;9002226.02101,"805,24238-8 ",.01)
+170 ;;24238-8
+171 ;;9002226.02101,"805,24238-8 ",.02)
+172 ;;24238-8
+173 ;;9002226.02101,"805,24239-6 ",.01)
+174 ;;24239-6
+175 ;;9002226.02101,"805,24239-6 ",.02)
+176 ;;24239-6
+177 ;;9002226.02101,"805,25369-0 ",.01)
+178 ;;25369-0
+179 ;;9002226.02101,"805,25369-0 ",.02)
+180 ;;25369-0
+181 ;;9002226.02101,"805,26626-2 ",.01)
+182 ;;26626-2
+183 ;;9002226.02101,"805,26626-2 ",.02)
+184 ;;26626-2
+185 ;;9002226.02101,"805,26663-5 ",.01)
+186 ;;26663-5
+187 ;;9002226.02101,"805,26663-5 ",.02)
+188 ;;26663-5
+189 ;;9002226.02101,"805,26664-3 ",.01)
+190 ;;26664-3
+191 ;;9002226.02101,"805,26664-3 ",.02)
+192 ;;26664-3
+193 ;;9002226.02101,"805,26665-0 ",.01)
+194 ;;26665-0
+195 ;;9002226.02101,"805,26665-0 ",.02)
+196 ;;26665-0
+197 ;;9002226.02101,"805,26666-8 ",.01)
+198 ;;26666-8
+199 ;;9002226.02101,"805,26666-8 ",.02)
+200 ;;26666-8
+201 ;;9002226.02101,"805,26667-6 ",.01)
+202 ;;26667-6
+203 ;;9002226.02101,"805,26667-6 ",.02)
+204 ;;26667-6
+205 ;;9002226.02101,"805,26668-4 ",.01)
+206 ;;26668-4
+207 ;;9002226.02101,"805,26668-4 ",.02)
+208 ;;26668-4
+209 ;;9002226.02101,"805,26715-3 ",.01)
+210 ;;26715-3
