BGPM5AIU ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 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 ;;21,"58016053167 ")
+2 ;;2031
+3 ;;21,"58016053169 ")
+4 ;;2032
+5 ;;21,"58016053170 ")
+6 ;;2033
+7 ;;21,"58016053171 ")
+8 ;;2034
+9 ;;21,"58016053172 ")
+10 ;;2035
+11 ;;21,"58016053173 ")
+12 ;;2036
+13 ;;21,"58016053175 ")
+14 ;;2037
+15 ;;21,"58016053176 ")
+16 ;;2038
+17 ;;21,"58016053177 ")
+18 ;;2039
+19 ;;21,"58016053179 ")
+20 ;;2040
+21 ;;21,"58016053180 ")
+22 ;;2041
+23 ;;21,"58016053181 ")
+24 ;;2042
+25 ;;21,"58016053182 ")
+26 ;;2043
+27 ;;21,"58016053183 ")
+28 ;;2044
+29 ;;21,"58016053184 ")
+30 ;;2045
+31 ;;21,"58016053187 ")
+32 ;;2046
+33 ;;21,"58016053189 ")
+34 ;;2047
+35 ;;21,"58016053190 ")
+36 ;;2048
+37 ;;21,"58016053191 ")
+38 ;;2049
+39 ;;21,"58016053192 ")
+40 ;;2050
+41 ;;21,"58016053193 ")
+42 ;;2051
+43 ;;21,"58016053196 ")
+44 ;;2052
+45 ;;21,"58016053197 ")
+46 ;;2053
+47 ;;21,"58016053198 ")
+48 ;;2054
+49 ;;21,"58016053199 ")
+50 ;;2055
+51 ;;21,"58016053200 ")
+52 ;;2056
+53 ;;21,"58016053201 ")
+54 ;;2057
+55 ;;21,"58016053202 ")
+56 ;;2058
+57 ;;21,"58016053203 ")
+58 ;;2059
+59 ;;21,"58016053204 ")
+60 ;;2060
+61 ;;21,"58016053205 ")
+62 ;;2061
+63 ;;21,"58016053206 ")
+64 ;;2062
+65 ;;21,"58016053207 ")
+66 ;;2063
+67 ;;21,"58016053208 ")
+68 ;;2064
+69 ;;21,"58016053209 ")
+70 ;;2065
+71 ;;21,"58016053210 ")
+72 ;;2066
+73 ;;21,"58016053212 ")
+74 ;;2067
+75 ;;21,"58016053214 ")
+76 ;;2068
+77 ;;21,"58016053215 ")
+78 ;;2069
+79 ;;21,"58016053216 ")
+80 ;;2070
+81 ;;21,"58016053218 ")
+82 ;;2071
+83 ;;21,"58016053220 ")
+84 ;;2072
+85 ;;21,"58016053221 ")
+86 ;;2073
+87 ;;21,"58016053224 ")
+88 ;;2074
+89 ;;21,"58016053225 ")
+90 ;;2075
+91 ;;21,"58016053226 ")
+92 ;;2076
+93 ;;21,"58016053227 ")
+94 ;;2077
+95 ;;21,"58016053228 ")
+96 ;;2078
+97 ;;21,"58016053230 ")
+98 ;;2079
+99 ;;21,"58016053232 ")
+100 ;;2080
+101 ;;21,"58016053235 ")
+102 ;;2081
+103 ;;21,"58016053236 ")
+104 ;;2082
+105 ;;21,"58016053240 ")
+106 ;;2083
+107 ;;21,"58016053242 ")
+108 ;;2084
+109 ;;21,"58016053244 ")
+110 ;;2085
+111 ;;21,"58016053245 ")
+112 ;;2086
+113 ;;21,"58016053248 ")
+114 ;;2087
+115 ;;21,"58016053250 ")
+116 ;;2088
+117 ;;21,"58016053256 ")
+118 ;;2089
+119 ;;21,"58016053260 ")
+120 ;;2090
+121 ;;21,"58016053267 ")
+122 ;;2091
+123 ;;21,"58016053269 ")
+124 ;;2092
+125 ;;21,"58016053270 ")
+126 ;;2093
+127 ;;21,"58016053271 ")
+128 ;;2094
+129 ;;21,"58016053272 ")
+130 ;;2095
+131 ;;21,"58016053273 ")
+132 ;;2096
+133 ;;21,"58016053275 ")
+134 ;;2097
+135 ;;21,"58016053276 ")
+136 ;;2098
+137 ;;21,"58016053277 ")
+138 ;;2099
+139 ;;21,"58016053279 ")
+140 ;;2100
+141 ;;21,"58016053280 ")
+142 ;;2101
+143 ;;21,"58016053281 ")
+144 ;;2102
+145 ;;21,"58016053282 ")
+146 ;;2103
+147 ;;21,"58016053283 ")
+148 ;;2104
+149 ;;21,"58016053284 ")
+150 ;;2105
+151 ;;21,"58016053287 ")
+152 ;;2106
+153 ;;21,"58016053289 ")
+154 ;;2107
+155 ;;21,"58016053290 ")
+156 ;;2108
+157 ;;21,"58016053291 ")
+158 ;;2109
+159 ;;21,"58016053292 ")
+160 ;;2110
+161 ;;21,"58016053293 ")
+162 ;;2111
+163 ;;21,"58016053296 ")
+164 ;;2112
+165 ;;21,"58016053297 ")
+166 ;;2113
+167 ;;21,"58016053298 ")
+168 ;;2114
+169 ;;21,"58016053299 ")
+170 ;;2115
+171 ;;21,"58016058200 ")
+172 ;;2116
+173 ;;21,"58016058215 ")
+174 ;;2117
+175 ;;21,"58016058220 ")
+176 ;;2118
+177 ;;21,"58016058230 ")
+178 ;;2119
+179 ;;21,"58016058260 ")
+180 ;;2120
+181 ;;21,"58016060400 ")
+182 ;;2121
+183 ;;21,"58016060430 ")
+184 ;;2122
+185 ;;21,"58016060460 ")
+186 ;;2123
+187 ;;21,"58016060490 ")
+188 ;;2124
+189 ;;21,"58016077100 ")
+190 ;;2125
+191 ;;21,"58016077112 ")
+192 ;;2126
+193 ;;21,"58016077115 ")
+194 ;;2127
+195 ;;21,"58016077120 ")
+196 ;;2128
+197 ;;21,"58016077130 ")
+198 ;;2129
+199 ;;21,"58016077160 ")
+200 ;;2130
+201 ;;21,"58016082000 ")
+202 ;;2131
+203 ;;21,"58016082001 ")
+204 ;;2132
+205 ;;21,"58016082002 ")
+206 ;;2133
+207 ;;21,"58016082003 ")
+208 ;;2134
+209 ;;21,"58016082004 ")
+210 ;;2135
+211 ;;21,"58016082005 ")
+212 ;;2136
+213 ;;21,"58016082006 ")
+214 ;;2137
+215 ;;21,"58016082007 ")
+216 ;;2138
+217 ;;21,"58016082008 ")
+218 ;;2139
+219 ;;21,"58016082009 ")
+220 ;;2140
+221 ;;21,"58016082010 ")
+222 ;;2141
+223 ;;21,"58016082012 ")
+224 ;;2142
+225 ;;21,"58016082014 ")
+226 ;;2143
+227 ;;21,"58016082015 ")
+228 ;;2144
+229 ;;21,"58016082016 ")
+230 ;;2145
+231 ;;21,"58016082018 ")
+232 ;;2146
+233 ;;21,"58016082020 ")
+234 ;;2147
+235 ;;21,"58016082021 ")
+236 ;;2148
+237 ;;21,"58016082024 ")
+238 ;;2149
+239 ;;21,"58016082025 ")
+240 ;;2150
+241 ;;21,"58016082026 ")
+242 ;;2151
+243 ;;21,"58016082027 ")
+244 ;;2152
+245 ;;21,"58016082028 ")
+246 ;;2153
+247 ;;21,"58016082030 ")
+248 ;;2154
+249 ;;21,"58016082032 ")
+250 ;;2155
+251 ;;21,"58016082035 ")
+252 ;;2156
+253 ;;21,"58016082036 ")
+254 ;;2157
+255 ;;21,"58016082040 ")
+256 ;;2158
+257 ;;21,"58016082042 ")
+258 ;;2159
+259 ;;21,"58016082044 ")
+260 ;;2160
+261 ;;21,"58016082045 ")
+262 ;;2161
+263 ;;21,"58016082048 ")
+264 ;;2162
+265 ;;21,"58016082050 ")
+266 ;;2163
+267 ;;21,"58016082056 ")
+268 ;;2164
+269 ;;21,"58016082060 ")
+270 ;;2165
+271 ;;21,"58016082067 ")
+272 ;;2166
+273 ;;21,"58016082069 ")
+274 ;;2167
+275 ;;21,"58016082070 ")
+276 ;;2168
+277 ;;21,"58016082071 ")
+278 ;;2169
+279 ;;21,"58016082072 ")
+280 ;;2170
+281 ;;21,"58016082073 ")
+282 ;;2171
+283 ;;21,"58016082075 ")
+284 ;;2172
+285 ;;21,"58016082076 ")
+286 ;;2173
+287 ;;21,"58016082077 ")
+288 ;;2174
+289 ;;21,"58016082079 ")
+290 ;;2175
+291 ;;21,"58016082080 ")
+292 ;;2176
+293 ;;21,"58016082081 ")
+294 ;;2177
+295 ;;21,"58016082082 ")
+296 ;;2178
+297 ;;21,"58016082083 ")
+298 ;;2179
+299 ;;21,"58016082084 ")
+300 ;;2180
+301 ;;21,"58016082087 ")
+302 ;;2181
+303 ;;21,"58016082089 ")
+304 ;;2182
+305 ;;21,"58016082090 ")
+306 ;;2183
+307 ;;21,"58016082091 ")
+308 ;;2184
+309 ;;21,"58016082092 ")
+310 ;;2185
+311 ;;21,"58016082093 ")
+312 ;;2186
+313 ;;21,"58016082096 ")
+314 ;;2187
+315 ;;21,"58016082097 ")
+316 ;;2188
+317 ;;21,"58016082098 ")
+318 ;;2189
+319 ;;21,"58016082099 ")
+320 ;;2190
+321 ;;21,"58016085200 ")
+322 ;;2191
+323 ;;21,"58016085201 ")
+324 ;;2192
+325 ;;21,"58016085202 ")
+326 ;;2193
+327 ;;21,"58016085203 ")
+328 ;;2194
+329 ;;21,"58016085204 ")
+330 ;;2195
+331 ;;21,"58016085205 ")
+332 ;;2196
+333 ;;21,"58016085207 ")
+334 ;;2197
+335 ;;21,"58016085208 ")
+336 ;;2198
+337 ;;21,"58016085209 ")
+338 ;;2199
+339 ;;21,"58016085210 ")
+340 ;;2200
+341 ;;21,"58016085212 ")
+342 ;;2201
+343 ;;21,"58016085214 ")
+344 ;;2202
+345 ;;21,"58016085215 ")
+346 ;;2203
+347 ;;21,"58016085216 ")
+348 ;;2204
+349 ;;21,"58016085218 ")
+350 ;;2205
+351 ;;21,"58016085220 ")
+352 ;;2206
+353 ;;21,"58016085221 ")
+354 ;;2207
+355 ;;21,"58016085225 ")
+356 ;;2208
+357 ;;21,"58016085226 ")
+358 ;;2209
+359 ;;21,"58016085227 ")
+360 ;;2210
+361 ;;21,"58016085228 ")
+362 ;;2211
+363 ;;21,"58016085230 ")
+364 ;;2212
+365 ;;21,"58016085232 ")
+366 ;;2213
+367 ;;21,"58016085235 ")
+368 ;;2214
+369 ;;21,"58016085236 ")
+370 ;;2215
+371 ;;21,"58016085240 ")
+372 ;;2216
+373 ;;21,"58016085242 ")
+374 ;;2217
+375 ;;21,"58016085244 ")
+376 ;;2218
+377 ;;21,"58016085245 ")
+378 ;;2219
+379 ;;21,"58016085248 ")
+380 ;;2220
+381 ;;21,"58016085250 ")
+382 ;;2221
+383 ;;21,"58016085256 ")
+384 ;;2222
+385 ;;21,"58016085260 ")
+386 ;;2223
+387 ;;21,"58016085267 ")
+388 ;;2224
+389 ;;21,"58016085269 ")
+390 ;;2225
+391 ;;21,"58016085270 ")
+392 ;;2226
+393 ;;21,"58016085271 ")
+394 ;;2227
+395 ;;21,"58016085272 ")
+396 ;;2228
+397 ;;21,"58016085273 ")
+398 ;;2229
+399 ;;21,"58016085275 ")
+400 ;;2230
+401 ;;21,"58016085276 ")
+402 ;;2231
+403 ;;21,"58016085277 ")
+404 ;;2232
+405 ;;21,"58016085279 ")
+406 ;;2233
+407 ;;21,"58016085280 ")
+408 ;;2234
+409 ;;21,"58016085281 ")
+410 ;;2235
+411 ;;21,"58016085282 ")
+412 ;;2236
+413 ;;21,"58016085283 ")
+414 ;;2237
+415 ;;21,"58016085284 ")
+416 ;;2238
+417 ;;21,"58016085287 ")
+418 ;;2239
+419 ;;21,"58016085289 ")
+420 ;;2240
+421 ;;21,"58016085290 ")
+422 ;;2241
+423 ;;21,"58016085291 ")
+424 ;;2242
+425 ;;21,"58016085292 ")
+426 ;;2243
+427 ;;21,"58016085293 ")
+428 ;;2244
+429 ;;21,"58016085296 ")
+430 ;;2245
+431 ;;21,"58016085297 ")
+432 ;;2246
+433 ;;21,"58016085298 ")
+434 ;;2247
+435 ;;21,"58016085299 ")
+436 ;;2248
+437 ;;21,"58016085900 ")
+438 ;;2249
+439 ;;21,"58016085901 ")
+440 ;;2250
+441 ;;21,"58016085902 ")
+442 ;;2251
+443 ;;21,"58016085903 ")
+444 ;;2252
+445 ;;21,"58016085904 ")
+446 ;;2253
+447 ;;21,"58016085905 ")
+448 ;;2254
+449 ;;21,"58016085906 ")
+450 ;;2255
+451 ;;21,"58016085907 ")
+452 ;;2256
+453 ;;21,"58016085908 ")
+454 ;;2257
+455 ;;21,"58016085909 ")
+456 ;;2258
+457 ;;21,"58016085910 ")
+458 ;;2259
+459 ;;21,"58016085912 ")
+460 ;;2260
+461 ;;21,"58016085914 ")
+462 ;;2261
+463 ;;21,"58016085915 ")
+464 ;;2262
+465 ;;21,"58016085916 ")
+466 ;;2263
+467 ;;21,"58016085918 ")
+468 ;;2264
+469 ;;21,"58016085920 ")
+470 ;;2265
+471 ;;21,"58016085921 ")
+472 ;;2266
+473 ;;21,"58016085924 ")
+474 ;;2267
+475 ;;21,"58016085925 ")
+476 ;;2268
+477 ;;21,"58016085926 ")
+478 ;;2269
+479 ;;21,"58016085927 ")
+480 ;;2270
+481 ;;21,"58016085928 ")
+482 ;;2271
+483 ;;21,"58016085930 ")
+484 ;;2272
+485 ;;21,"58016085932 ")
+486 ;;2273
+487 ;;21,"58016085935 ")
+488 ;;2274
+489 ;;21,"58016085936 ")
+490 ;;2275
+491 ;;21,"58016085940 ")
+492 ;;2276
+493 ;;21,"58016085942 ")
+494 ;;2277
+495 ;;21,"58016085944 ")
+496 ;;2278
+497 ;;21,"58016085945 ")
+498 ;;2279
+499 ;;21,"58016085948 ")
+500 ;;2280
+501 ;;21,"58016085950 ")
+502 ;;2281
+503 ;;21,"58016085956 ")
+504 ;;2282
+505 ;;21,"58016085960 ")
+506 ;;2283
+507 ;;21,"58016085967 ")
+508 ;;2284
+509 ;;21,"58016085969 ")
+510 ;;2285
+511 ;;21,"58016085970 ")
+512 ;;2286
+513 ;;21,"58016085971 ")
+514 ;;2287
+515 ;;21,"58016085972 ")
+516 ;;2288
+517 ;;21,"58016085973 ")
+518 ;;2289
+519 ;;21,"58016085975 ")
+520 ;;2290
+521 ;;21,"58016085976 ")
+522 ;;2291
+523 ;;21,"58016085977 ")
+524 ;;2292
+525 ;;21,"58016085979 ")
+526 ;;2293
+527 ;;21,"58016085980 ")
+528 ;;2294
+529 ;;21,"58016085981 ")
+530 ;;2295
+531 ;;21,"58016085982 ")
+532 ;;2296
+533 ;;21,"58016085989 ")
+534 ;;2297
+535 ;;21,"58016085990 ")
+536 ;;2298
+537 ;;21,"58016085991 ")
+538 ;;2299
+539 ;;21,"58016085992 ")
+540 ;;2300
+541 ;;21,"58016085993 ")
+542 ;;2301
+543 ;;21,"58016085996 ")
+544 ;;2302
+545 ;;21,"58016085997 ")
+546 ;;2303
+547 ;;21,"58016085998 ")
+548 ;;2304
+549 ;;21,"58016085999 ")
+550 ;;2305
+551 ;;21,"58016097400 ")
+552 ;;2306
+553 ;;21,"58016097430 ")
+554 ;;2307
+555 ;;21,"58016097460 ")
+556 ;;2308
+557 ;;21,"58016097490 ")
+558 ;;2309
+559 ;;21,"58016481001 ")
+560 ;;2310
+561 ;;21,"58016499601 ")
+562 ;;2311
+563 ;;21,"58087005712 ")
+564 ;;2312
+565 ;;21,"58087005812 ")
+566 ;;2313
+567 ;;21,"58087007030 ")
+568 ;;2314
+569 ;;21,"58087007060 ")
+570 ;;2315
+571 ;;21,"58087007130 ")
+572 ;;2316
+573 ;;21,"58087007160 ")
+574 ;;2317
+575 ;;21,"58107000290 ")
+576 ;;2318
+577 ;;21,"58107000350 ")
+578 ;;2319
+579 ;;21,"58107000415 ")
+580 ;;2320
+581 ;;21,"58107000575 ")
+582 ;;2321
+583 ;;21,"58107000690 ")
+584 ;;2322
+585 ;;21,"58107000745 ")
+586 ;;2323
+587 ;;21,"58864001601 ")
+588 ;;2324
+589 ;;21,"58864001628 ")
+590 ;;2325
+591 ;;21,"58864001630 ")
+592 ;;2326
+593 ;;21,"58864001660 ")
+594 ;;2327
+595 ;;21,"58864006501 ")
+596 ;;2328
+597 ;;21,"58864006530 ")
+598 ;;2329
+599 ;;21,"58864036330 ")
+600 ;;2330
+601 ;;21,"58864043160 ")
+602 ;;2331
+603 ;;21,"58864064556 ")
+604 ;;2332
+605 ;;21,"58864068030 ")
+606 ;;2333
+607 ;;21,"58864069530 ")
+608 ;;2334
+609 ;;21,"58864071730 ")
+610 ;;2335
+611 ;;21,"58864072730 ")
+612 ;;2336
+613 ;;21,"58864073730 ")
+614 ;;2337
+615 ;;21,"58864074930 ")
+616 ;;2338
+617 ;;21,"58864074990 ")
+618 ;;2339
+619 ;;21,"58864075930 ")
+620 ;;2340
+621 ;;21,"58864076530 ")
+622 ;;2341
+623 ;;21,"58864078430 ")
+624 ;;2342
+625 ;;21,"59252011100 ")
+626 ;;2343
+627 ;;21,"59564012510 ")
+628 ;;2344
+629 ;;21,"59564012525 ")
+630 ;;2345
+631 ;;21,"59564012610 ")
+632 ;;2346
+633 ;;21,"59564012625 ")
+634 ;;2347
+635 ;;21,"59762125801 ")
+636 ;;2348
+637 ;;21,"59762125802 ")
+638 ;;2349
+639 ;;21,"59762126101 ")
+640 ;;2350
+641 ;;21,"59762126102 ")
+642 ;;2351
+643 ;;21,"59762130001 ")
+644 ;;2352
+645 ;;21,"59762130003 ")
+646 ;;2353
+647 ;;21,"59762130101 ")
+648 ;;2354
+649 ;;21,"59762130103 ")
+650 ;;2355
+651 ;;21,"59762130201 ")
+652 ;;2356
+653 ;;21,"59762130203 ")
+654 ;;2357
+655 ;;21,"59772246101 ")
+656 ;;2358
+657 ;;21,"59772246102 ")
+658 ;;2359
+659 ;;21,"59772246201 ")
+660 ;;2360
+661 ;;21,"59772246202 ")
+662 ;;2361
+663 ;;21,"59772246203 ")
+664 ;;2362
+665 ;;21,"59772246301 ")
+666 ;;2363
+667 ;;21,"59772246302 ")
+668 ;;2364
+669 ;;21,"59772246303 ")
+670 ;;2365
+671 ;;21,"59772246401 ")
+672 ;;2366
+673 ;;21,"59772246403 ")
+674 ;;2367
+675 ;;21,"59772246501 ")
+676 ;;2368
+677 ;;21,"59772259201 ")
+678 ;;2369
+679 ;;21,"59772259301 ")
+680 ;;2370
+681 ;;21,"59772369202 ")
+682 ;;2371
+683 ;;21,"59772369205 ")
+684 ;;2372
+685 ;;21,"59772369302 ")
+686 ;;2373
+687 ;;21,"59772369305 ")
+688 ;;2374
+689 ;;21,"60346052306 ")
+690 ;;2375
+691 ;;21,"60429002530 ")
+692 ;;2376
+693 ;;21,"60429002590 ")
+694 ;;2377
+695 ;;21,"60429002630 ")
+696 ;;2378
+697 ;;21,"60429012630 ")
+698 ;;2379
+699 ;;21,"60429012660 ")
+700 ;;2380
+701 ;;21,"60429012730 ")
+702 ;;2381
+703 ;;21,"60429012760 ")
+704 ;;2382