BGPM3AEI ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON APR 21, 2011;
;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84
;
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,"807,12671002601 ",.02)
;;12671002601
;;9002226.02101,"807,12671002603 ",.01)
;;12671002603
;;9002226.02101,"807,12671002603 ",.02)
;;12671002603
;;9002226.02101,"807,12671006303 ",.01)
;;12671006303
;;9002226.02101,"807,12671006303 ",.02)
;;12671006303
;;9002226.02101,"807,12671006307 ",.01)
;;12671006307
;;9002226.02101,"807,12671006307 ",.02)
;;12671006307
;;9002226.02101,"807,12671006501 ",.01)
;;12671006501
;;9002226.02101,"807,12671006501 ",.02)
;;12671006501
;;9002226.02101,"807,12671006515 ",.01)
;;12671006515
;;9002226.02101,"807,12671006515 ",.02)
;;12671006515
;;9002226.02101,"807,25021040001 ",.01)
;;25021040001
;;9002226.02101,"807,25021040001 ",.02)
;;25021040001
;;9002226.02101,"807,25021040010 ",.01)
;;25021040010
;;9002226.02101,"807,25021040010 ",.02)
;;25021040010
;;9002226.02101,"807,25021040030 ",.01)
;;25021040030
;;9002226.02101,"807,25021040030 ",.02)
;;25021040030
;;9002226.02101,"807,25021040102 ",.01)
;;25021040102
;;9002226.02101,"807,25021040102 ",.02)
;;25021040102
;;9002226.02101,"807,25021040301 ",.01)
;;25021040301
;;9002226.02101,"807,25021040301 ",.02)
;;25021040301
;;9002226.02101,"807,25021040304 ",.01)
;;25021040304
;;9002226.02101,"807,25021040304 ",.02)
;;25021040304
;;9002226.02101,"807,39769001101 ",.01)
;;39769001101
;;9002226.02101,"807,39769001101 ",.02)
;;39769001101
;;9002226.02101,"807,39769001102 ",.01)
;;39769001102
;;9002226.02101,"807,39769001102 ",.02)
;;39769001102
;;9002226.02101,"807,39769001105 ",.01)
;;39769001105
;;9002226.02101,"807,39769001105 ",.02)
;;39769001105
;;9002226.02101,"807,39769001171 ",.01)
;;39769001171
;;9002226.02101,"807,39769001171 ",.02)
;;39769001171
;;9002226.02101,"807,39769001173 ",.01)
;;39769001173
;;9002226.02101,"807,39769001173 ",.02)
;;39769001173
;;9002226.02101,"807,39769001175 ",.01)
;;39769001175
;;9002226.02101,"807,39769001175 ",.02)
;;39769001175
;;9002226.02101,"807,39769001910 ",.01)
;;39769001910
;;9002226.02101,"807,39769001910 ",.02)
;;39769001910
;;9002226.02101,"807,39769001930 ",.01)
;;39769001930
;;9002226.02101,"807,39769001930 ",.02)
;;39769001930
;;9002226.02101,"807,39769002601 ",.01)
;;39769002601
;;9002226.02101,"807,39769002601 ",.02)
;;39769002601
;;9002226.02101,"807,39769002801 ",.01)
;;39769002801
;;9002226.02101,"807,39769002801 ",.02)
;;39769002801
;;9002226.02101,"807,39769002905 ",.01)
;;39769002905
;;9002226.02101,"807,39769002905 ",.02)
;;39769002905
;;9002226.02101,"807,39769003610 ",.01)
;;39769003610
;;9002226.02101,"807,39769003610 ",.02)
;;39769003610
;;9002226.02101,"807,39769003630 ",.01)
;;39769003630
;;9002226.02101,"807,39769003630 ",.02)
;;39769003630
;;9002226.02101,"807,39769003671 ",.01)
;;39769003671
;;9002226.02101,"807,39769003671 ",.02)
;;39769003671
;;9002226.02101,"807,39769010771 ",.01)
;;39769010771
;;9002226.02101,"807,39769010771 ",.02)
;;39769010771
;;9002226.02101,"807,39769010773 ",.01)
;;39769010773
;;9002226.02101,"807,39769010773 ",.02)
;;39769010773
;;9002226.02101,"807,39769010775 ",.01)
;;39769010775
;;9002226.02101,"807,39769010775 ",.02)
;;39769010775
;;9002226.02101,"807,39769011871 ",.01)
;;39769011871
;;9002226.02101,"807,39769011871 ",.02)
;;39769011871
;;9002226.02101,"807,39769011873 ",.01)
;;39769011873
;;9002226.02101,"807,39769011873 ",.02)
;;39769011873
;;9002226.02101,"807,39769011875 ",.01)
;;39769011875
;;9002226.02101,"807,39769011875 ",.02)
;;39769011875
;;9002226.02101,"807,49072029130 ",.01)
;;49072029130
;;9002226.02101,"807,49072029130 ",.02)
;;49072029130
;;9002226.02101,"807,51698004910 ",.01)
;;51698004910
;;9002226.02101,"807,51698004910 ",.02)
;;51698004910
;;9002226.02101,"807,52584015270 ",.01)
;;52584015270
;;9002226.02101,"807,52584015270 ",.02)
;;52584015270
;;9002226.02101,"807,52584054001 ",.01)
;;52584054001
;;9002226.02101,"807,52584054001 ",.02)
;;52584054001
;;9002226.02101,"807,52584054201 ",.01)
;;52584054201
;;9002226.02101,"807,52584054201 ",.02)
;;52584054201
;;9002226.02101,"807,52958032004 ",.01)
;;52958032004
;;9002226.02101,"807,52958032004 ",.02)
;;52958032004
;;9002226.02101,"807,52958033008 ",.01)
;;52958033008
;;9002226.02101,"807,52958033008 ",.02)
;;52958033008
;;9002226.02101,"807,52958033012 ",.01)
;;52958033012
;;9002226.02101,"807,52958033012 ",.02)
;;52958033012
;;9002226.02101,"807,55154014105 ",.01)
;;55154014105
;;9002226.02101,"807,55154014105 ",.02)
;;55154014105
;;9002226.02101,"807,55154236205 ",.01)
;;55154236205
;;9002226.02101,"807,55154236205 ",.02)
;;55154236205
;;9002226.02101,"807,55154510905 ",.01)
;;55154510905
;;9002226.02101,"807,55154510905 ",.02)
;;55154510905
;;9002226.02101,"807,55154512205 ",.01)
;;55154512205
;;9002226.02101,"807,55154512205 ",.02)
;;55154512205
;;9002226.02101,"807,55154512207 ",.01)
;;55154512207
;;9002226.02101,"807,55154512207 ",.02)
;;55154512207
;;9002226.02101,"807,55154512605 ",.01)
;;55154512605
;;9002226.02101,"807,55154512605 ",.02)
;;55154512605
;;9002226.02101,"807,55154935305 ",.01)
;;55154935305
;;9002226.02101,"807,55154935305 ",.02)
;;55154935305
;;9002226.02101,"807,55154935505 ",.01)
;;55154935505
;;9002226.02101,"807,55154935505 ",.02)
;;55154935505
;;9002226.02101,"807,55154936005 ",.01)
;;55154936005
;;9002226.02101,"807,55154936005 ",.02)
;;55154936005
;;9002226.02101,"807,55154937305 ",.01)
;;55154937305
;;9002226.02101,"807,55154937305 ",.02)
;;55154937305
;;9002226.02101,"807,55154937705 ",.01)
;;55154937705
;;9002226.02101,"807,55154937705 ",.02)
;;55154937705
;;9002226.02101,"807,62338313701 ",.01)
;;62338313701
;;9002226.02101,"807,62338313701 ",.02)
;;62338313701
;;9002226.02101,"807,62338332701 ",.01)
;;62338332701
;;9002226.02101,"807,62338332701 ",.02)
;;62338332701
;;9002226.02101,"807,62338352701 ",.01)
;;62338352701
;;9002226.02101,"807,62338352701 ",.02)
;;62338352701
;;9002226.02101,"807,62338510503 ",.01)
;;62338510503
;;9002226.02101,"807,62338510503 ",.02)
;;62338510503
;;9002226.02101,"807,62338521303 ",.01)
;;62338521303
;;9002226.02101,"807,62338521303 ",.02)
;;62338521303
;;9002226.02101,"807,63323003810 ",.01)
;;63323003810
;;9002226.02101,"807,63323003810 ",.02)
;;63323003810
;;9002226.02101,"807,63323003830 ",.01)
;;63323003830
;;9002226.02101,"807,63323003830 ",.02)
;;63323003830
;;9002226.02101,"807,63323027602 ",.01)
;;63323027602
;;9002226.02101,"807,63323027602 ",.02)
;;63323027602
;;9002226.02101,"807,63323054001 ",.01)
;;63323054001
;;9002226.02101,"807,63323054001 ",.02)
;;63323054001
;;9002226.02101,"807,63323054011 ",.01)
;;63323054011
;;9002226.02101,"807,63323054011 ",.02)
;;63323054011
;;9002226.02101,"807,63323054031 ",.01)
;;63323054031
;;9002226.02101,"807,63323054031 ",.02)
;;63323054031
;;9002226.02101,"807,63323054057 ",.01)
;;63323054057
;;9002226.02101,"807,63323054057 ",.02)
;;63323054057
;;9002226.02101,"807,63323054501 ",.01)
;;63323054501
;;9002226.02101,"807,63323054501 ",.02)
;;63323054501
;;9002226.02101,"807,63323054505 ",.01)
;;63323054505
;;9002226.02101,"807,63323054505 ",.02)
;;63323054505
;;9002226.02101,"807,63807060050 ",.01)
;;63807060050
;;9002226.02101,"807,63807060050 ",.02)
;;63807060050
;;9002226.02101,"807,64054100302 ",.01)
;;64054100302
;;9002226.02101,"807,64054100302 ",.02)
;;64054100302
;;9002226.02101,"807,64253033301 ",.01)
;;64253033301
;;9002226.02101,"807,64253033301 ",.02)
;;64253033301
;;9002226.02101,"807,64253033352 ",.01)
;;64253033352
;;9002226.02101,"807,64253033352 ",.02)
;;64253033352
BGPM3AEI ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON APR 21, 2011;
+1 ;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84
+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,"807,12671002601 ",.02)
+2 ;;12671002601
+3 ;;9002226.02101,"807,12671002603 ",.01)
+4 ;;12671002603
+5 ;;9002226.02101,"807,12671002603 ",.02)
+6 ;;12671002603
+7 ;;9002226.02101,"807,12671006303 ",.01)
+8 ;;12671006303
+9 ;;9002226.02101,"807,12671006303 ",.02)
+10 ;;12671006303
+11 ;;9002226.02101,"807,12671006307 ",.01)
+12 ;;12671006307
+13 ;;9002226.02101,"807,12671006307 ",.02)
+14 ;;12671006307
+15 ;;9002226.02101,"807,12671006501 ",.01)
+16 ;;12671006501
+17 ;;9002226.02101,"807,12671006501 ",.02)
+18 ;;12671006501
+19 ;;9002226.02101,"807,12671006515 ",.01)
+20 ;;12671006515
+21 ;;9002226.02101,"807,12671006515 ",.02)
+22 ;;12671006515
+23 ;;9002226.02101,"807,25021040001 ",.01)
+24 ;;25021040001
+25 ;;9002226.02101,"807,25021040001 ",.02)
+26 ;;25021040001
+27 ;;9002226.02101,"807,25021040010 ",.01)
+28 ;;25021040010
+29 ;;9002226.02101,"807,25021040010 ",.02)
+30 ;;25021040010
+31 ;;9002226.02101,"807,25021040030 ",.01)
+32 ;;25021040030
+33 ;;9002226.02101,"807,25021040030 ",.02)
+34 ;;25021040030
+35 ;;9002226.02101,"807,25021040102 ",.01)
+36 ;;25021040102
+37 ;;9002226.02101,"807,25021040102 ",.02)
+38 ;;25021040102
+39 ;;9002226.02101,"807,25021040301 ",.01)
+40 ;;25021040301
+41 ;;9002226.02101,"807,25021040301 ",.02)
+42 ;;25021040301
+43 ;;9002226.02101,"807,25021040304 ",.01)
+44 ;;25021040304
+45 ;;9002226.02101,"807,25021040304 ",.02)
+46 ;;25021040304
+47 ;;9002226.02101,"807,39769001101 ",.01)
+48 ;;39769001101
+49 ;;9002226.02101,"807,39769001101 ",.02)
+50 ;;39769001101
+51 ;;9002226.02101,"807,39769001102 ",.01)
+52 ;;39769001102
+53 ;;9002226.02101,"807,39769001102 ",.02)
+54 ;;39769001102
+55 ;;9002226.02101,"807,39769001105 ",.01)
+56 ;;39769001105
+57 ;;9002226.02101,"807,39769001105 ",.02)
+58 ;;39769001105
+59 ;;9002226.02101,"807,39769001171 ",.01)
+60 ;;39769001171
+61 ;;9002226.02101,"807,39769001171 ",.02)
+62 ;;39769001171
+63 ;;9002226.02101,"807,39769001173 ",.01)
+64 ;;39769001173
+65 ;;9002226.02101,"807,39769001173 ",.02)
+66 ;;39769001173
+67 ;;9002226.02101,"807,39769001175 ",.01)
+68 ;;39769001175
+69 ;;9002226.02101,"807,39769001175 ",.02)
+70 ;;39769001175
+71 ;;9002226.02101,"807,39769001910 ",.01)
+72 ;;39769001910
+73 ;;9002226.02101,"807,39769001910 ",.02)
+74 ;;39769001910
+75 ;;9002226.02101,"807,39769001930 ",.01)
+76 ;;39769001930
+77 ;;9002226.02101,"807,39769001930 ",.02)
+78 ;;39769001930
+79 ;;9002226.02101,"807,39769002601 ",.01)
+80 ;;39769002601
+81 ;;9002226.02101,"807,39769002601 ",.02)
+82 ;;39769002601
+83 ;;9002226.02101,"807,39769002801 ",.01)
+84 ;;39769002801
+85 ;;9002226.02101,"807,39769002801 ",.02)
+86 ;;39769002801
+87 ;;9002226.02101,"807,39769002905 ",.01)
+88 ;;39769002905
+89 ;;9002226.02101,"807,39769002905 ",.02)
+90 ;;39769002905
+91 ;;9002226.02101,"807,39769003610 ",.01)
+92 ;;39769003610
+93 ;;9002226.02101,"807,39769003610 ",.02)
+94 ;;39769003610
+95 ;;9002226.02101,"807,39769003630 ",.01)
+96 ;;39769003630
+97 ;;9002226.02101,"807,39769003630 ",.02)
+98 ;;39769003630
+99 ;;9002226.02101,"807,39769003671 ",.01)
+100 ;;39769003671
+101 ;;9002226.02101,"807,39769003671 ",.02)
+102 ;;39769003671
+103 ;;9002226.02101,"807,39769010771 ",.01)
+104 ;;39769010771
+105 ;;9002226.02101,"807,39769010771 ",.02)
+106 ;;39769010771
+107 ;;9002226.02101,"807,39769010773 ",.01)
+108 ;;39769010773
+109 ;;9002226.02101,"807,39769010773 ",.02)
+110 ;;39769010773
+111 ;;9002226.02101,"807,39769010775 ",.01)
+112 ;;39769010775
+113 ;;9002226.02101,"807,39769010775 ",.02)
+114 ;;39769010775
+115 ;;9002226.02101,"807,39769011871 ",.01)
+116 ;;39769011871
+117 ;;9002226.02101,"807,39769011871 ",.02)
+118 ;;39769011871
+119 ;;9002226.02101,"807,39769011873 ",.01)
+120 ;;39769011873
+121 ;;9002226.02101,"807,39769011873 ",.02)
+122 ;;39769011873
+123 ;;9002226.02101,"807,39769011875 ",.01)
+124 ;;39769011875
+125 ;;9002226.02101,"807,39769011875 ",.02)
+126 ;;39769011875
+127 ;;9002226.02101,"807,49072029130 ",.01)
+128 ;;49072029130
+129 ;;9002226.02101,"807,49072029130 ",.02)
+130 ;;49072029130
+131 ;;9002226.02101,"807,51698004910 ",.01)
+132 ;;51698004910
+133 ;;9002226.02101,"807,51698004910 ",.02)
+134 ;;51698004910
+135 ;;9002226.02101,"807,52584015270 ",.01)
+136 ;;52584015270
+137 ;;9002226.02101,"807,52584015270 ",.02)
+138 ;;52584015270
+139 ;;9002226.02101,"807,52584054001 ",.01)
+140 ;;52584054001
+141 ;;9002226.02101,"807,52584054001 ",.02)
+142 ;;52584054001
+143 ;;9002226.02101,"807,52584054201 ",.01)
+144 ;;52584054201
+145 ;;9002226.02101,"807,52584054201 ",.02)
+146 ;;52584054201
+147 ;;9002226.02101,"807,52958032004 ",.01)
+148 ;;52958032004
+149 ;;9002226.02101,"807,52958032004 ",.02)
+150 ;;52958032004
+151 ;;9002226.02101,"807,52958033008 ",.01)
+152 ;;52958033008
+153 ;;9002226.02101,"807,52958033008 ",.02)
+154 ;;52958033008
+155 ;;9002226.02101,"807,52958033012 ",.01)
+156 ;;52958033012
+157 ;;9002226.02101,"807,52958033012 ",.02)
+158 ;;52958033012
+159 ;;9002226.02101,"807,55154014105 ",.01)
+160 ;;55154014105
+161 ;;9002226.02101,"807,55154014105 ",.02)
+162 ;;55154014105
+163 ;;9002226.02101,"807,55154236205 ",.01)
+164 ;;55154236205
+165 ;;9002226.02101,"807,55154236205 ",.02)
+166 ;;55154236205
+167 ;;9002226.02101,"807,55154510905 ",.01)
+168 ;;55154510905
+169 ;;9002226.02101,"807,55154510905 ",.02)
+170 ;;55154510905
+171 ;;9002226.02101,"807,55154512205 ",.01)
+172 ;;55154512205
+173 ;;9002226.02101,"807,55154512205 ",.02)
+174 ;;55154512205
+175 ;;9002226.02101,"807,55154512207 ",.01)
+176 ;;55154512207
+177 ;;9002226.02101,"807,55154512207 ",.02)
+178 ;;55154512207
+179 ;;9002226.02101,"807,55154512605 ",.01)
+180 ;;55154512605
+181 ;;9002226.02101,"807,55154512605 ",.02)
+182 ;;55154512605
+183 ;;9002226.02101,"807,55154935305 ",.01)
+184 ;;55154935305
+185 ;;9002226.02101,"807,55154935305 ",.02)
+186 ;;55154935305
+187 ;;9002226.02101,"807,55154935505 ",.01)
+188 ;;55154935505
+189 ;;9002226.02101,"807,55154935505 ",.02)
+190 ;;55154935505
+191 ;;9002226.02101,"807,55154936005 ",.01)
+192 ;;55154936005
+193 ;;9002226.02101,"807,55154936005 ",.02)
+194 ;;55154936005
+195 ;;9002226.02101,"807,55154937305 ",.01)
+196 ;;55154937305
+197 ;;9002226.02101,"807,55154937305 ",.02)
+198 ;;55154937305
+199 ;;9002226.02101,"807,55154937705 ",.01)
+200 ;;55154937705
+201 ;;9002226.02101,"807,55154937705 ",.02)
+202 ;;55154937705
+203 ;;9002226.02101,"807,62338313701 ",.01)
+204 ;;62338313701
+205 ;;9002226.02101,"807,62338313701 ",.02)
+206 ;;62338313701
+207 ;;9002226.02101,"807,62338332701 ",.01)
+208 ;;62338332701
+209 ;;9002226.02101,"807,62338332701 ",.02)
+210 ;;62338332701
+211 ;;9002226.02101,"807,62338352701 ",.01)
+212 ;;62338352701
+213 ;;9002226.02101,"807,62338352701 ",.02)
+214 ;;62338352701
+215 ;;9002226.02101,"807,62338510503 ",.01)
+216 ;;62338510503
+217 ;;9002226.02101,"807,62338510503 ",.02)
+218 ;;62338510503
+219 ;;9002226.02101,"807,62338521303 ",.01)
+220 ;;62338521303
+221 ;;9002226.02101,"807,62338521303 ",.02)
+222 ;;62338521303
+223 ;;9002226.02101,"807,63323003810 ",.01)
+224 ;;63323003810
+225 ;;9002226.02101,"807,63323003810 ",.02)
+226 ;;63323003810
+227 ;;9002226.02101,"807,63323003830 ",.01)
+228 ;;63323003830
+229 ;;9002226.02101,"807,63323003830 ",.02)
+230 ;;63323003830
+231 ;;9002226.02101,"807,63323027602 ",.01)
+232 ;;63323027602
+233 ;;9002226.02101,"807,63323027602 ",.02)
+234 ;;63323027602
+235 ;;9002226.02101,"807,63323054001 ",.01)
+236 ;;63323054001
+237 ;;9002226.02101,"807,63323054001 ",.02)
+238 ;;63323054001
+239 ;;9002226.02101,"807,63323054011 ",.01)
+240 ;;63323054011
+241 ;;9002226.02101,"807,63323054011 ",.02)
+242 ;;63323054011
+243 ;;9002226.02101,"807,63323054031 ",.01)
+244 ;;63323054031
+245 ;;9002226.02101,"807,63323054031 ",.02)
+246 ;;63323054031
+247 ;;9002226.02101,"807,63323054057 ",.01)
+248 ;;63323054057
+249 ;;9002226.02101,"807,63323054057 ",.02)
+250 ;;63323054057
+251 ;;9002226.02101,"807,63323054501 ",.01)
+252 ;;63323054501
+253 ;;9002226.02101,"807,63323054501 ",.02)
+254 ;;63323054501
+255 ;;9002226.02101,"807,63323054505 ",.01)
+256 ;;63323054505
+257 ;;9002226.02101,"807,63323054505 ",.02)
+258 ;;63323054505
+259 ;;9002226.02101,"807,63807060050 ",.01)
+260 ;;63807060050
+261 ;;9002226.02101,"807,63807060050 ",.02)
+262 ;;63807060050
+263 ;;9002226.02101,"807,64054100302 ",.01)
+264 ;;64054100302
+265 ;;9002226.02101,"807,64054100302 ",.02)
+266 ;;64054100302
+267 ;;9002226.02101,"807,64253033301 ",.01)
+268 ;;64253033301
+269 ;;9002226.02101,"807,64253033301 ",.02)
+270 ;;64253033301
+271 ;;9002226.02101,"807,64253033352 ",.01)
+272 ;;64253033352
+273 ;;9002226.02101,"807,64253033352 ",.02)
+274 ;;64253033352
