BGPM5BG ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON SEP 12, 2011;
;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
;
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,"1084,68462016110 ",.01)
;;68462016110
;;9002226.02101,"1084,68462016110 ",.02)
;;68462016110
;;9002226.02101,"1084,68462016118 ",.01)
;;68462016118
;;9002226.02101,"1084,68462016118 ",.02)
;;68462016118
;;9002226.02101,"1084,68462016190 ",.01)
;;68462016190
;;9002226.02101,"1084,68462016190 ",.02)
;;68462016190
;;9002226.02101,"1084,68533001712 ",.01)
;;68533001712
;;9002226.02101,"1084,68533001712 ",.02)
;;68533001712
;;9002226.02101,"1084,68533001722 ",.01)
;;68533001722
;;9002226.02101,"1084,68533001722 ",.02)
;;68533001722
;;9002226.02101,"1084,68533001739 ",.01)
;;68533001739
;;9002226.02101,"1084,68533001739 ",.02)
;;68533001739
;;9002226.02101,"1084,68533003400 ",.01)
;;68533003400
;;9002226.02101,"1084,68533003400 ",.02)
;;68533003400
;;9002226.02101,"1084,68533003412 ",.01)
;;68533003412
;;9002226.02101,"1084,68533003412 ",.02)
;;68533003412
;;9002226.02101,"1084,68533003440 ",.01)
;;68533003440
;;9002226.02101,"1084,68533003440 ",.02)
;;68533003440
;;9002226.02101,"1084,68533003445 ",.01)
;;68533003445
;;9002226.02101,"1084,68533003445 ",.02)
;;68533003445
;;9002226.02101,"1084,68533003500 ",.01)
;;68533003500
;;9002226.02101,"1084,68533003500 ",.02)
;;68533003500
;;9002226.02101,"1084,68533003512 ",.01)
;;68533003512
;;9002226.02101,"1084,68533003512 ",.02)
;;68533003512
;;9002226.02101,"1084,68533003540 ",.01)
;;68533003540
;;9002226.02101,"1084,68533003540 ",.02)
;;68533003540
;;9002226.02101,"1084,68533003548 ",.01)
;;68533003548
;;9002226.02101,"1084,68533003548 ",.02)
;;68533003548
;;9002226.02101,"1084,68533003600 ",.01)
;;68533003600
;;9002226.02101,"1084,68533003600 ",.02)
;;68533003600
;;9002226.02101,"1084,68533003612 ",.01)
;;68533003612
;;9002226.02101,"1084,68533003612 ",.02)
;;68533003612
;;9002226.02101,"1084,68533003640 ",.01)
;;68533003640
;;9002226.02101,"1084,68533003640 ",.02)
;;68533003640
;;9002226.02101,"1084,68533003645 ",.01)
;;68533003645
;;9002226.02101,"1084,68533003645 ",.02)
;;68533003645
;;9002226.02101,"1084,68645011259 ",.01)
;;68645011259
;;9002226.02101,"1084,68645011259 ",.02)
;;68645011259
;;9002226.02101,"1084,68645012059 ",.01)
;;68645012059
;;9002226.02101,"1084,68645012059 ",.02)
;;68645012059
;;9002226.02101,"1084,68645015054 ",.01)
;;68645015054
;;9002226.02101,"1084,68645015054 ",.02)
;;68645015054
;;9002226.02101,"1084,68645015159 ",.01)
;;68645015159
;;9002226.02101,"1084,68645015159 ",.02)
;;68645015159
;;9002226.02101,"1084,68645021054 ",.01)
;;68645021054
;;9002226.02101,"1084,68645021054 ",.02)
;;68645021054
;;9002226.02101,"1084,68645021154 ",.01)
;;68645021154
;;9002226.02101,"1084,68645021154 ",.02)
;;68645021154
;;9002226.02101,"1084,68788014103 ",.01)
;;68788014103
;;9002226.02101,"1084,68788014103 ",.02)
;;68788014103
;;9002226.02101,"1084,68788014106 ",.01)
;;68788014106
;;9002226.02101,"1084,68788014106 ",.02)
;;68788014106
;;9002226.02101,"1084,68788014203 ",.01)
;;68788014203
;;9002226.02101,"1084,68788014203 ",.02)
;;68788014203
;;9002226.02101,"1084,68788014206 ",.01)
;;68788014206
;;9002226.02101,"1084,68788014206 ",.02)
;;68788014206
;;9002226.02101,"1084,68788039701 ",.01)
;;68788039701
;;9002226.02101,"1084,68788039701 ",.02)
;;68788039701
;;9002226.02101,"1084,68788039703 ",.01)
;;68788039703
;;9002226.02101,"1084,68788039703 ",.02)
;;68788039703
;;9002226.02101,"1084,68788039706 ",.01)
;;68788039706
;;9002226.02101,"1084,68788039706 ",.02)
;;68788039706
;;9002226.02101,"1084,68788039708 ",.01)
;;68788039708
;;9002226.02101,"1084,68788039708 ",.02)
;;68788039708
;;9002226.02101,"1084,68788039709 ",.01)
;;68788039709
;;9002226.02101,"1084,68788039709 ",.02)
;;68788039709
;;9002226.02101,"1084,68788043501 ",.01)
;;68788043501
;;9002226.02101,"1084,68788043501 ",.02)
;;68788043501
;;9002226.02101,"1084,68788043503 ",.01)
;;68788043503
;;9002226.02101,"1084,68788043503 ",.02)
;;68788043503
;;9002226.02101,"1084,68788043506 ",.01)
;;68788043506
;;9002226.02101,"1084,68788043506 ",.02)
;;68788043506
;;9002226.02101,"1084,68788043508 ",.01)
;;68788043508
;;9002226.02101,"1084,68788043508 ",.02)
;;68788043508
;;9002226.02101,"1084,68788043509 ",.01)
;;68788043509
;;9002226.02101,"1084,68788043509 ",.02)
;;68788043509
;;9002226.02101,"1084,68788046003 ",.01)
;;68788046003
;;9002226.02101,"1084,68788046003 ",.02)
;;68788046003
;;9002226.02101,"1084,68788046006 ",.01)
;;68788046006
;;9002226.02101,"1084,68788046006 ",.02)
;;68788046006
;;9002226.02101,"1084,68788046009 ",.01)
;;68788046009
;;9002226.02101,"1084,68788046009 ",.02)
;;68788046009
;;9002226.02101,"1084,68788046103 ",.01)
;;68788046103
;;9002226.02101,"1084,68788046103 ",.02)
;;68788046103
;;9002226.02101,"1084,68788046106 ",.01)
;;68788046106
;;9002226.02101,"1084,68788046106 ",.02)
;;68788046106
;;9002226.02101,"1084,68788046703 ",.01)
;;68788046703
;;9002226.02101,"1084,68788046703 ",.02)
;;68788046703
;;9002226.02101,"1084,68788046706 ",.01)
;;68788046706
;;9002226.02101,"1084,68788046706 ",.02)
;;68788046706
;;9002226.02101,"1084,68788047401 ",.01)
;;68788047401
;;9002226.02101,"1084,68788047401 ",.02)
;;68788047401
;;9002226.02101,"1084,68788047403 ",.01)
;;68788047403
;;9002226.02101,"1084,68788047403 ",.02)
;;68788047403
;;9002226.02101,"1084,68788047406 ",.01)
;;68788047406
;;9002226.02101,"1084,68788047406 ",.02)
;;68788047406
;;9002226.02101,"1084,68788047408 ",.01)
;;68788047408
;;9002226.02101,"1084,68788047408 ",.02)
;;68788047408
;;9002226.02101,"1084,68788047409 ",.01)
;;68788047409
;;9002226.02101,"1084,68788047409 ",.02)
;;68788047409
;;9002226.02101,"1084,68788096903 ",.01)
;;68788096903
;;9002226.02101,"1084,68788096903 ",.02)
;;68788096903
;;9002226.02101,"1084,68788096906 ",.01)
;;68788096906
;;9002226.02101,"1084,68788096906 ",.02)
;;68788096906
;;9002226.02101,"1084,68788119100 ",.01)
;;68788119100
;;9002226.02101,"1084,68788119100 ",.02)
;;68788119100
;;9002226.02101,"1084,68788119103 ",.01)
;;68788119103
;;9002226.02101,"1084,68788119103 ",.02)
;;68788119103
;;9002226.02101,"1084,68788119106 ",.01)
;;68788119106
;;9002226.02101,"1084,68788119106 ",.02)
;;68788119106
;;9002226.02101,"1084,68788834403 ",.01)
;;68788834403
;;9002226.02101,"1084,68788834403 ",.02)
;;68788834403
;;9002226.02101,"1084,68788834406 ",.01)
;;68788834406
;;9002226.02101,"1084,68788834406 ",.02)
;;68788834406
;;9002226.02101,"1084,71114022100 ",.01)
;;71114022100
;;9002226.02101,"1084,71114022100 ",.02)
;;71114022100
;;9002226.02101,"1084,71114022101 ",.01)
;;71114022101
;;9002226.02101,"1084,71114022101 ",.02)
;;71114022101
;;9002226.02101,"1084,71114022105 ",.01)
;;71114022105
;;9002226.02101,"1084,71114022105 ",.02)
;;71114022105
;;9002226.02101,"1084,71114022200 ",.01)
;;71114022200
;;9002226.02101,"1084,71114022200 ",.02)
;;71114022200
;;9002226.02101,"1084,71114022201 ",.01)
;;71114022201
;;9002226.02101,"1084,71114022201 ",.02)
;;71114022201
;;9002226.02101,"1084,71114022205 ",.01)
;;71114022205
;;9002226.02101,"1084,71114022205 ",.02)
;;71114022205
BGPM5BG ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON SEP 12, 2011;
+1 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
+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,"1084,68462016110 ",.01)
+2 ;;68462016110
+3 ;;9002226.02101,"1084,68462016110 ",.02)
+4 ;;68462016110
+5 ;;9002226.02101,"1084,68462016118 ",.01)
+6 ;;68462016118
+7 ;;9002226.02101,"1084,68462016118 ",.02)
+8 ;;68462016118
+9 ;;9002226.02101,"1084,68462016190 ",.01)
+10 ;;68462016190
+11 ;;9002226.02101,"1084,68462016190 ",.02)
+12 ;;68462016190
+13 ;;9002226.02101,"1084,68533001712 ",.01)
+14 ;;68533001712
+15 ;;9002226.02101,"1084,68533001712 ",.02)
+16 ;;68533001712
+17 ;;9002226.02101,"1084,68533001722 ",.01)
+18 ;;68533001722
+19 ;;9002226.02101,"1084,68533001722 ",.02)
+20 ;;68533001722
+21 ;;9002226.02101,"1084,68533001739 ",.01)
+22 ;;68533001739
+23 ;;9002226.02101,"1084,68533001739 ",.02)
+24 ;;68533001739
+25 ;;9002226.02101,"1084,68533003400 ",.01)
+26 ;;68533003400
+27 ;;9002226.02101,"1084,68533003400 ",.02)
+28 ;;68533003400
+29 ;;9002226.02101,"1084,68533003412 ",.01)
+30 ;;68533003412
+31 ;;9002226.02101,"1084,68533003412 ",.02)
+32 ;;68533003412
+33 ;;9002226.02101,"1084,68533003440 ",.01)
+34 ;;68533003440
+35 ;;9002226.02101,"1084,68533003440 ",.02)
+36 ;;68533003440
+37 ;;9002226.02101,"1084,68533003445 ",.01)
+38 ;;68533003445
+39 ;;9002226.02101,"1084,68533003445 ",.02)
+40 ;;68533003445
+41 ;;9002226.02101,"1084,68533003500 ",.01)
+42 ;;68533003500
+43 ;;9002226.02101,"1084,68533003500 ",.02)
+44 ;;68533003500
+45 ;;9002226.02101,"1084,68533003512 ",.01)
+46 ;;68533003512
+47 ;;9002226.02101,"1084,68533003512 ",.02)
+48 ;;68533003512
+49 ;;9002226.02101,"1084,68533003540 ",.01)
+50 ;;68533003540
+51 ;;9002226.02101,"1084,68533003540 ",.02)
+52 ;;68533003540
+53 ;;9002226.02101,"1084,68533003548 ",.01)
+54 ;;68533003548
+55 ;;9002226.02101,"1084,68533003548 ",.02)
+56 ;;68533003548
+57 ;;9002226.02101,"1084,68533003600 ",.01)
+58 ;;68533003600
+59 ;;9002226.02101,"1084,68533003600 ",.02)
+60 ;;68533003600
+61 ;;9002226.02101,"1084,68533003612 ",.01)
+62 ;;68533003612
+63 ;;9002226.02101,"1084,68533003612 ",.02)
+64 ;;68533003612
+65 ;;9002226.02101,"1084,68533003640 ",.01)
+66 ;;68533003640
+67 ;;9002226.02101,"1084,68533003640 ",.02)
+68 ;;68533003640
+69 ;;9002226.02101,"1084,68533003645 ",.01)
+70 ;;68533003645
+71 ;;9002226.02101,"1084,68533003645 ",.02)
+72 ;;68533003645
+73 ;;9002226.02101,"1084,68645011259 ",.01)
+74 ;;68645011259
+75 ;;9002226.02101,"1084,68645011259 ",.02)
+76 ;;68645011259
+77 ;;9002226.02101,"1084,68645012059 ",.01)
+78 ;;68645012059
+79 ;;9002226.02101,"1084,68645012059 ",.02)
+80 ;;68645012059
+81 ;;9002226.02101,"1084,68645015054 ",.01)
+82 ;;68645015054
+83 ;;9002226.02101,"1084,68645015054 ",.02)
+84 ;;68645015054
+85 ;;9002226.02101,"1084,68645015159 ",.01)
+86 ;;68645015159
+87 ;;9002226.02101,"1084,68645015159 ",.02)
+88 ;;68645015159
+89 ;;9002226.02101,"1084,68645021054 ",.01)
+90 ;;68645021054
+91 ;;9002226.02101,"1084,68645021054 ",.02)
+92 ;;68645021054
+93 ;;9002226.02101,"1084,68645021154 ",.01)
+94 ;;68645021154
+95 ;;9002226.02101,"1084,68645021154 ",.02)
+96 ;;68645021154
+97 ;;9002226.02101,"1084,68788014103 ",.01)
+98 ;;68788014103
+99 ;;9002226.02101,"1084,68788014103 ",.02)
+100 ;;68788014103
+101 ;;9002226.02101,"1084,68788014106 ",.01)
+102 ;;68788014106
+103 ;;9002226.02101,"1084,68788014106 ",.02)
+104 ;;68788014106
+105 ;;9002226.02101,"1084,68788014203 ",.01)
+106 ;;68788014203
+107 ;;9002226.02101,"1084,68788014203 ",.02)
+108 ;;68788014203
+109 ;;9002226.02101,"1084,68788014206 ",.01)
+110 ;;68788014206
+111 ;;9002226.02101,"1084,68788014206 ",.02)
+112 ;;68788014206
+113 ;;9002226.02101,"1084,68788039701 ",.01)
+114 ;;68788039701
+115 ;;9002226.02101,"1084,68788039701 ",.02)
+116 ;;68788039701
+117 ;;9002226.02101,"1084,68788039703 ",.01)
+118 ;;68788039703
+119 ;;9002226.02101,"1084,68788039703 ",.02)
+120 ;;68788039703
+121 ;;9002226.02101,"1084,68788039706 ",.01)
+122 ;;68788039706
+123 ;;9002226.02101,"1084,68788039706 ",.02)
+124 ;;68788039706
+125 ;;9002226.02101,"1084,68788039708 ",.01)
+126 ;;68788039708
+127 ;;9002226.02101,"1084,68788039708 ",.02)
+128 ;;68788039708
+129 ;;9002226.02101,"1084,68788039709 ",.01)
+130 ;;68788039709
+131 ;;9002226.02101,"1084,68788039709 ",.02)
+132 ;;68788039709
+133 ;;9002226.02101,"1084,68788043501 ",.01)
+134 ;;68788043501
+135 ;;9002226.02101,"1084,68788043501 ",.02)
+136 ;;68788043501
+137 ;;9002226.02101,"1084,68788043503 ",.01)
+138 ;;68788043503
+139 ;;9002226.02101,"1084,68788043503 ",.02)
+140 ;;68788043503
+141 ;;9002226.02101,"1084,68788043506 ",.01)
+142 ;;68788043506
+143 ;;9002226.02101,"1084,68788043506 ",.02)
+144 ;;68788043506
+145 ;;9002226.02101,"1084,68788043508 ",.01)
+146 ;;68788043508
+147 ;;9002226.02101,"1084,68788043508 ",.02)
+148 ;;68788043508
+149 ;;9002226.02101,"1084,68788043509 ",.01)
+150 ;;68788043509
+151 ;;9002226.02101,"1084,68788043509 ",.02)
+152 ;;68788043509
+153 ;;9002226.02101,"1084,68788046003 ",.01)
+154 ;;68788046003
+155 ;;9002226.02101,"1084,68788046003 ",.02)
+156 ;;68788046003
+157 ;;9002226.02101,"1084,68788046006 ",.01)
+158 ;;68788046006
+159 ;;9002226.02101,"1084,68788046006 ",.02)
+160 ;;68788046006
+161 ;;9002226.02101,"1084,68788046009 ",.01)
+162 ;;68788046009
+163 ;;9002226.02101,"1084,68788046009 ",.02)
+164 ;;68788046009
+165 ;;9002226.02101,"1084,68788046103 ",.01)
+166 ;;68788046103
+167 ;;9002226.02101,"1084,68788046103 ",.02)
+168 ;;68788046103
+169 ;;9002226.02101,"1084,68788046106 ",.01)
+170 ;;68788046106
+171 ;;9002226.02101,"1084,68788046106 ",.02)
+172 ;;68788046106
+173 ;;9002226.02101,"1084,68788046703 ",.01)
+174 ;;68788046703
+175 ;;9002226.02101,"1084,68788046703 ",.02)
+176 ;;68788046703
+177 ;;9002226.02101,"1084,68788046706 ",.01)
+178 ;;68788046706
+179 ;;9002226.02101,"1084,68788046706 ",.02)
+180 ;;68788046706
+181 ;;9002226.02101,"1084,68788047401 ",.01)
+182 ;;68788047401
+183 ;;9002226.02101,"1084,68788047401 ",.02)
+184 ;;68788047401
+185 ;;9002226.02101,"1084,68788047403 ",.01)
+186 ;;68788047403
+187 ;;9002226.02101,"1084,68788047403 ",.02)
+188 ;;68788047403
+189 ;;9002226.02101,"1084,68788047406 ",.01)
+190 ;;68788047406
+191 ;;9002226.02101,"1084,68788047406 ",.02)
+192 ;;68788047406
+193 ;;9002226.02101,"1084,68788047408 ",.01)
+194 ;;68788047408
+195 ;;9002226.02101,"1084,68788047408 ",.02)
+196 ;;68788047408
+197 ;;9002226.02101,"1084,68788047409 ",.01)
+198 ;;68788047409
+199 ;;9002226.02101,"1084,68788047409 ",.02)
+200 ;;68788047409
+201 ;;9002226.02101,"1084,68788096903 ",.01)
+202 ;;68788096903
+203 ;;9002226.02101,"1084,68788096903 ",.02)
+204 ;;68788096903
+205 ;;9002226.02101,"1084,68788096906 ",.01)
+206 ;;68788096906
+207 ;;9002226.02101,"1084,68788096906 ",.02)
+208 ;;68788096906
+209 ;;9002226.02101,"1084,68788119100 ",.01)
+210 ;;68788119100
+211 ;;9002226.02101,"1084,68788119100 ",.02)
+212 ;;68788119100
+213 ;;9002226.02101,"1084,68788119103 ",.01)
+214 ;;68788119103
+215 ;;9002226.02101,"1084,68788119103 ",.02)
+216 ;;68788119103
+217 ;;9002226.02101,"1084,68788119106 ",.01)
+218 ;;68788119106
+219 ;;9002226.02101,"1084,68788119106 ",.02)
+220 ;;68788119106
+221 ;;9002226.02101,"1084,68788834403 ",.01)
+222 ;;68788834403
+223 ;;9002226.02101,"1084,68788834403 ",.02)
+224 ;;68788834403
+225 ;;9002226.02101,"1084,68788834406 ",.01)
+226 ;;68788834406
+227 ;;9002226.02101,"1084,68788834406 ",.02)
+228 ;;68788834406
+229 ;;9002226.02101,"1084,71114022100 ",.01)
+230 ;;71114022100
+231 ;;9002226.02101,"1084,71114022100 ",.02)
+232 ;;71114022100
+233 ;;9002226.02101,"1084,71114022101 ",.01)
+234 ;;71114022101
+235 ;;9002226.02101,"1084,71114022101 ",.02)
+236 ;;71114022101
+237 ;;9002226.02101,"1084,71114022105 ",.01)
+238 ;;71114022105
+239 ;;9002226.02101,"1084,71114022105 ",.02)
+240 ;;71114022105
+241 ;;9002226.02101,"1084,71114022200 ",.01)
+242 ;;71114022200
+243 ;;9002226.02101,"1084,71114022200 ",.02)
+244 ;;71114022200
+245 ;;9002226.02101,"1084,71114022201 ",.01)
+246 ;;71114022201
+247 ;;9002226.02101,"1084,71114022201 ",.02)
+248 ;;71114022201
+249 ;;9002226.02101,"1084,71114022205 ",.01)
+250 ;;71114022205
+251 ;;9002226.02101,"1084,71114022205 ",.02)
+252 ;;71114022205
