BGPM5ATU ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 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,"58016008607 ")
+2 ;;2211
+3 ;;21,"58016008608 ")
+4 ;;2212
+5 ;;21,"58016008609 ")
+6 ;;2213
+7 ;;21,"58016008610 ")
+8 ;;2214
+9 ;;21,"58016008612 ")
+10 ;;2215
+11 ;;21,"58016008614 ")
+12 ;;2216
+13 ;;21,"58016008615 ")
+14 ;;2217
+15 ;;21,"58016008616 ")
+16 ;;2218
+17 ;;21,"58016008618 ")
+18 ;;2219
+19 ;;21,"58016008620 ")
+20 ;;2220
+21 ;;21,"58016008621 ")
+22 ;;2221
+23 ;;21,"58016008624 ")
+24 ;;2222
+25 ;;21,"58016008625 ")
+26 ;;2223
+27 ;;21,"58016008626 ")
+28 ;;2224
+29 ;;21,"58016008627 ")
+30 ;;2225
+31 ;;21,"58016008628 ")
+32 ;;2226
+33 ;;21,"58016008630 ")
+34 ;;2227
+35 ;;21,"58016008632 ")
+36 ;;2228
+37 ;;21,"58016008635 ")
+38 ;;2229
+39 ;;21,"58016008636 ")
+40 ;;2230
+41 ;;21,"58016008640 ")
+42 ;;2231
+43 ;;21,"58016008642 ")
+44 ;;2232
+45 ;;21,"58016008644 ")
+46 ;;2233
+47 ;;21,"58016008645 ")
+48 ;;2234
+49 ;;21,"58016008648 ")
+50 ;;2235
+51 ;;21,"58016008650 ")
+52 ;;2236
+53 ;;21,"58016008656 ")
+54 ;;2237
+55 ;;21,"58016008660 ")
+56 ;;2238
+57 ;;21,"58016008667 ")
+58 ;;2239
+59 ;;21,"58016008669 ")
+60 ;;2240
+61 ;;21,"58016008670 ")
+62 ;;2241
+63 ;;21,"58016008671 ")
+64 ;;2242
+65 ;;21,"58016008672 ")
+66 ;;2243
+67 ;;21,"58016008673 ")
+68 ;;2244
+69 ;;21,"58016008675 ")
+70 ;;2245
+71 ;;21,"58016008676 ")
+72 ;;2246
+73 ;;21,"58016008677 ")
+74 ;;2247
+75 ;;21,"58016008679 ")
+76 ;;2248
+77 ;;21,"58016008680 ")
+78 ;;2249
+79 ;;21,"58016008681 ")
+80 ;;2250
+81 ;;21,"58016008682 ")
+82 ;;2251
+83 ;;21,"58016008683 ")
+84 ;;2252
+85 ;;21,"58016008684 ")
+86 ;;2253
+87 ;;21,"58016008687 ")
+88 ;;2254
+89 ;;21,"58016008689 ")
+90 ;;2255
+91 ;;21,"58016008690 ")
+92 ;;2256
+93 ;;21,"58016008691 ")
+94 ;;2257
+95 ;;21,"58016008692 ")
+96 ;;2258
+97 ;;21,"58016008693 ")
+98 ;;2259
+99 ;;21,"58016008696 ")
+100 ;;2260
+101 ;;21,"58016008697 ")
+102 ;;2261
+103 ;;21,"58016008698 ")
+104 ;;2262
+105 ;;21,"58016008699 ")
+106 ;;2263
+107 ;;21,"58016010100 ")
+108 ;;2264
+109 ;;21,"58016010108 ")
+110 ;;2265
+111 ;;21,"58016010110 ")
+112 ;;2266
+113 ;;21,"58016010112 ")
+114 ;;2267
+115 ;;21,"58016010114 ")
+116 ;;2268
+117 ;;21,"58016010120 ")
+118 ;;2269
+119 ;;21,"58016010124 ")
+120 ;;2270
+121 ;;21,"58016010128 ")
+122 ;;2271
+123 ;;21,"58016010130 ")
+124 ;;2272
+125 ;;21,"58016010140 ")
+126 ;;2273
+127 ;;21,"58016010150 ")
+128 ;;2274
+129 ;;21,"58016010160 ")
+130 ;;2275
+131 ;;21,"58016010190 ")
+132 ;;2276
+133 ;;21,"58016010200 ")
+134 ;;2277
+135 ;;21,"58016010210 ")
+136 ;;2278
+137 ;;21,"58016010212 ")
+138 ;;2279
+139 ;;21,"58016010214 ")
+140 ;;2280
+141 ;;21,"58016010215 ")
+142 ;;2281
+143 ;;21,"58016010220 ")
+144 ;;2282
+145 ;;21,"58016010224 ")
+146 ;;2283
+147 ;;21,"58016010228 ")
+148 ;;2284
+149 ;;21,"58016010230 ")
+150 ;;2285
+151 ;;21,"58016010240 ")
+152 ;;2286
+153 ;;21,"58016010250 ")
+154 ;;2287
+155 ;;21,"58016010260 ")
+156 ;;2288
+157 ;;21,"58016010290 ")
+158 ;;2289
+159 ;;21,"58016010300 ")
+160 ;;2290
+161 ;;21,"58016010309 ")
+162 ;;2291
+163 ;;21,"58016010312 ")
+164 ;;2292
+165 ;;21,"58016010315 ")
+166 ;;2293
+167 ;;21,"58016010318 ")
+168 ;;2294
+169 ;;21,"58016010320 ")
+170 ;;2295
+171 ;;21,"58016010321 ")
+172 ;;2296
+173 ;;21,"58016010324 ")
+174 ;;2297
+175 ;;21,"58016010330 ")
+176 ;;2298
+177 ;;21,"58016010340 ")
+178 ;;2299
+179 ;;21,"58016010400 ")
+180 ;;2300
+181 ;;21,"58016010401 ")
+182 ;;2301
+183 ;;21,"58016010402 ")
+184 ;;2302
+185 ;;21,"58016010403 ")
+186 ;;2303
+187 ;;21,"58016010404 ")
+188 ;;2304
+189 ;;21,"58016010407 ")
+190 ;;2305
+191 ;;21,"58016010408 ")
+192 ;;2306
+193 ;;21,"58016010409 ")
+194 ;;2307
+195 ;;21,"58016010410 ")
+196 ;;2308
+197 ;;21,"58016010412 ")
+198 ;;2309
+199 ;;21,"58016010414 ")
+200 ;;2310
+201 ;;21,"58016010415 ")
+202 ;;2311
+203 ;;21,"58016010416 ")
+204 ;;2312
+205 ;;21,"58016010418 ")
+206 ;;2313
+207 ;;21,"58016010420 ")
+208 ;;2314
+209 ;;21,"58016010421 ")
+210 ;;2315
+211 ;;21,"58016010424 ")
+212 ;;2316
+213 ;;21,"58016010425 ")
+214 ;;2317
+215 ;;21,"58016010426 ")
+216 ;;2318
+217 ;;21,"58016010427 ")
+218 ;;2319
+219 ;;21,"58016010428 ")
+220 ;;2320
+221 ;;21,"58016010430 ")
+222 ;;2321
+223 ;;21,"58016010432 ")
+224 ;;2322
+225 ;;21,"58016010435 ")
+226 ;;2323
+227 ;;21,"58016010436 ")
+228 ;;2324
+229 ;;21,"58016010440 ")
+230 ;;2325
+231 ;;21,"58016010442 ")
+232 ;;2326
+233 ;;21,"58016010444 ")
+234 ;;2327
+235 ;;21,"58016010445 ")
+236 ;;2328
+237 ;;21,"58016010448 ")
+238 ;;2329
+239 ;;21,"58016010450 ")
+240 ;;2330
+241 ;;21,"58016010456 ")
+242 ;;2331
+243 ;;21,"58016010460 ")
+244 ;;2332
+245 ;;21,"58016010470 ")
+246 ;;2333
+247 ;;21,"58016010472 ")
+248 ;;2334
+249 ;;21,"58016010475 ")
+250 ;;2335
+251 ;;21,"58016010476 ")
+252 ;;2336
+253 ;;21,"58016010480 ")
+254 ;;2337
+255 ;;21,"58016010484 ")
+256 ;;2338
+257 ;;21,"58016010490 ")
+258 ;;2339
+259 ;;21,"58016010492 ")
+260 ;;2340
+261 ;;21,"58016010496 ")
+262 ;;2341
+263 ;;21,"58016010497 ")
+264 ;;2342
+265 ;;21,"58016010499 ")
+266 ;;2343
+267 ;;21,"58016010500 ")
+268 ;;2344
+269 ;;21,"58016010520 ")
+270 ;;2345
+271 ;;21,"58016010530 ")
+272 ;;2346
+273 ;;21,"58016010560 ")
+274 ;;2347
+275 ;;21,"58016010590 ")
+276 ;;2348
+277 ;;21,"58016010900 ")
+278 ;;2349
+279 ;;21,"58016010902 ")
+280 ;;2350
+281 ;;21,"58016010903 ")
+282 ;;2351
+283 ;;21,"58016010906 ")
+284 ;;2352
+285 ;;21,"58016010907 ")
+286 ;;2353
+287 ;;21,"58016010910 ")
+288 ;;2354
+289 ;;21,"58016010914 ")
+290 ;;2355
+291 ;;21,"58016010918 ")
+292 ;;2356
+293 ;;21,"58016010920 ")
+294 ;;2357
+295 ;;21,"58016010921 ")
+296 ;;2358
+297 ;;21,"58016010924 ")
+298 ;;2359
+299 ;;21,"58016010928 ")
+300 ;;2360
+301 ;;21,"58016010930 ")
+302 ;;2361
+303 ;;21,"58016010940 ")
+304 ;;2362
+305 ;;21,"58016010950 ")
+306 ;;2363
+307 ;;21,"58016010960 ")
+308 ;;2364
+309 ;;21,"58016010973 ")
+310 ;;2365
+311 ;;21,"58016010980 ")
+312 ;;2366
+313 ;;21,"58016010989 ")
+314 ;;2367
+315 ;;21,"58016010990 ")
+316 ;;2368
+317 ;;21,"58016011900 ")
+318 ;;2369
+319 ;;21,"58016011901 ")
+320 ;;2370
+321 ;;21,"58016011902 ")
+322 ;;2371
+323 ;;21,"58016011903 ")
+324 ;;2372
+325 ;;21,"58016011904 ")
+326 ;;2373
+327 ;;21,"58016011907 ")
+328 ;;2374
+329 ;;21,"58016011908 ")
+330 ;;2375
+331 ;;21,"58016011909 ")
+332 ;;2376
+333 ;;21,"58016011910 ")
+334 ;;2377
+335 ;;21,"58016011912 ")
+336 ;;2378
+337 ;;21,"58016011914 ")
+338 ;;2379
+339 ;;21,"58016011915 ")
+340 ;;2380
+341 ;;21,"58016011916 ")
+342 ;;2381
+343 ;;21,"58016011918 ")
+344 ;;2382
+345 ;;21,"58016011920 ")
+346 ;;2383
+347 ;;21,"58016011921 ")
+348 ;;2384
+349 ;;21,"58016011924 ")
+350 ;;2385
+351 ;;21,"58016011925 ")
+352 ;;2386
+353 ;;21,"58016011926 ")
+354 ;;2387
+355 ;;21,"58016011927 ")
+356 ;;2388
+357 ;;21,"58016011928 ")
+358 ;;2389
+359 ;;21,"58016011930 ")
+360 ;;2390
+361 ;;21,"58016011932 ")
+362 ;;2391
+363 ;;21,"58016011935 ")
+364 ;;2392
+365 ;;21,"58016011936 ")
+366 ;;2393
+367 ;;21,"58016011940 ")
+368 ;;2394
+369 ;;21,"58016011942 ")
+370 ;;2395
+371 ;;21,"58016011944 ")
+372 ;;2396
+373 ;;21,"58016011945 ")
+374 ;;2397
+375 ;;21,"58016011948 ")
+376 ;;2398
+377 ;;21,"58016011950 ")
+378 ;;2399
+379 ;;21,"58016011956 ")
+380 ;;2400
+381 ;;21,"58016011960 ")
+382 ;;2401
+383 ;;21,"58016011970 ")
+384 ;;2402
+385 ;;21,"58016011972 ")
+386 ;;2403
+387 ;;21,"58016011973 ")
+388 ;;2404
+389 ;;21,"58016011975 ")
+390 ;;2405
+391 ;;21,"58016011976 ")
+392 ;;2406
+393 ;;21,"58016011980 ")
+394 ;;2407
+395 ;;21,"58016011984 ")
+396 ;;2408
+397 ;;21,"58016011989 ")
+398 ;;2409
+399 ;;21,"58016011990 ")
+400 ;;2410
+401 ;;21,"58016011992 ")
+402 ;;2411
+403 ;;21,"58016011996 ")
+404 ;;2412
+405 ;;21,"58016011997 ")
+406 ;;2413
+407 ;;21,"58016011999 ")
+408 ;;2414
+409 ;;21,"58016012100 ")
+410 ;;2415
+411 ;;21,"58016012110 ")
+412 ;;2416
+413 ;;21,"58016012112 ")
+414 ;;2417
+415 ;;21,"58016012114 ")
+416 ;;2418
+417 ;;21,"58016012115 ")
+418 ;;2419
+419 ;;21,"58016012118 ")
+420 ;;2420
+421 ;;21,"58016012120 ")
+422 ;;2421
+423 ;;21,"58016012124 ")
+424 ;;2422
+425 ;;21,"58016012128 ")
+426 ;;2423
+427 ;;21,"58016012130 ")
+428 ;;2424
+429 ;;21,"58016012140 ")
+430 ;;2425
+431 ;;21,"58016012200 ")
+432 ;;2426
+433 ;;21,"58016012201 ")
+434 ;;2427
+435 ;;21,"58016012202 ")
+436 ;;2428
+437 ;;21,"58016012203 ")
+438 ;;2429
+439 ;;21,"58016012204 ")
+440 ;;2430
+441 ;;21,"58016012205 ")
+442 ;;2431
+443 ;;21,"58016012206 ")
+444 ;;2432
+445 ;;21,"58016012207 ")
+446 ;;2433
+447 ;;21,"58016012208 ")
+448 ;;2434
+449 ;;21,"58016012209 ")
+450 ;;2435
+451 ;;21,"58016012210 ")
+452 ;;2436
+453 ;;21,"58016012212 ")
+454 ;;2437
+455 ;;21,"58016012214 ")
+456 ;;2438
+457 ;;21,"58016012215 ")
+458 ;;2439
+459 ;;21,"58016012216 ")
+460 ;;2440
+461 ;;21,"58016012218 ")
+462 ;;2441
+463 ;;21,"58016012220 ")
+464 ;;2442
+465 ;;21,"58016012221 ")
+466 ;;2443
+467 ;;21,"58016012224 ")
+468 ;;2444
+469 ;;21,"58016012225 ")
+470 ;;2445
+471 ;;21,"58016012226 ")
+472 ;;2446
+473 ;;21,"58016012227 ")
+474 ;;2447
+475 ;;21,"58016012228 ")
+476 ;;2448
+477 ;;21,"58016012230 ")
+478 ;;2449
+479 ;;21,"58016012232 ")
+480 ;;2450
+481 ;;21,"58016012235 ")
+482 ;;2451
+483 ;;21,"58016012236 ")
+484 ;;2452
+485 ;;21,"58016012240 ")
+486 ;;2453
+487 ;;21,"58016012242 ")
+488 ;;2454
+489 ;;21,"58016012244 ")
+490 ;;2455
+491 ;;21,"58016012245 ")
+492 ;;2456
+493 ;;21,"58016012248 ")
+494 ;;2457
+495 ;;21,"58016012250 ")
+496 ;;2458
+497 ;;21,"58016012256 ")
+498 ;;2459
+499 ;;21,"58016012260 ")
+500 ;;2460
+501 ;;21,"58016012267 ")
+502 ;;2461
+503 ;;21,"58016012269 ")
+504 ;;2462
+505 ;;21,"58016012270 ")
+506 ;;2463
+507 ;;21,"58016012271 ")
+508 ;;2464
+509 ;;21,"58016012272 ")
+510 ;;2465
+511 ;;21,"58016012273 ")
+512 ;;2466
+513 ;;21,"58016012275 ")
+514 ;;2467
+515 ;;21,"58016012276 ")
+516 ;;2468
+517 ;;21,"58016012277 ")
+518 ;;2469
+519 ;;21,"58016012279 ")
+520 ;;2470
+521 ;;21,"58016012280 ")
+522 ;;2471
+523 ;;21,"58016012281 ")
+524 ;;2472
+525 ;;21,"58016012282 ")
+526 ;;2473
+527 ;;21,"58016012283 ")
+528 ;;2474
+529 ;;21,"58016012284 ")
+530 ;;2475
+531 ;;21,"58016012287 ")
+532 ;;2476
+533 ;;21,"58016012289 ")
+534 ;;2477
+535 ;;21,"58016012290 ")
+536 ;;2478
+537 ;;21,"58016012291 ")
+538 ;;2479
+539 ;;21,"58016012292 ")
+540 ;;2480
+541 ;;21,"58016012293 ")
+542 ;;2481
+543 ;;21,"58016012296 ")
+544 ;;2482
+545 ;;21,"58016012297 ")
+546 ;;2483
+547 ;;21,"58016012298 ")
+548 ;;2484
+549 ;;21,"58016012299 ")
+550 ;;2485
+551 ;;21,"58016012400 ")
+552 ;;2486
+553 ;;21,"58016012401 ")
+554 ;;2487
+555 ;;21,"58016012402 ")
+556 ;;2488
+557 ;;21,"58016012403 ")
+558 ;;2489
+559 ;;21,"58016012404 ")
+560 ;;2490
+561 ;;21,"58016012405 ")
+562 ;;2491
+563 ;;21,"58016012406 ")
+564 ;;2492
+565 ;;21,"58016012407 ")
+566 ;;2493
+567 ;;21,"58016012408 ")
+568 ;;2494
+569 ;;21,"58016012409 ")
+570 ;;2495
+571 ;;21,"58016012410 ")
+572 ;;2496
+573 ;;21,"58016012412 ")
+574 ;;2497
+575 ;;21,"58016012414 ")
+576 ;;2498
+577 ;;21,"58016012415 ")
+578 ;;2499
+579 ;;21,"58016012416 ")
+580 ;;2500
+581 ;;21,"58016012418 ")
+582 ;;2501
+583 ;;21,"58016012420 ")
+584 ;;2502
+585 ;;21,"58016012421 ")
+586 ;;2503
+587 ;;21,"58016012424 ")
+588 ;;2504
+589 ;;21,"58016012425 ")
+590 ;;2505
+591 ;;21,"58016012426 ")
+592 ;;2506
+593 ;;21,"58016012427 ")
+594 ;;2507
+595 ;;21,"58016012428 ")
+596 ;;2508
+597 ;;21,"58016012430 ")
+598 ;;2509
+599 ;;21,"58016012432 ")
+600 ;;2510
+601 ;;21,"58016012435 ")
+602 ;;2511
+603 ;;21,"58016012436 ")
+604 ;;2512
+605 ;;21,"58016012440 ")
+606 ;;2513
+607 ;;21,"58016012442 ")
+608 ;;2514
+609 ;;21,"58016012444 ")
+610 ;;2515
+611 ;;21,"58016012445 ")
+612 ;;2516
+613 ;;21,"58016012448 ")
+614 ;;2517
+615 ;;21,"58016012450 ")
+616 ;;2518
+617 ;;21,"58016012456 ")
+618 ;;2519
+619 ;;21,"58016012460 ")
+620 ;;2520
+621 ;;21,"58016012467 ")
+622 ;;2521
+623 ;;21,"58016012469 ")
+624 ;;2522
+625 ;;21,"58016012470 ")
+626 ;;2523
+627 ;;21,"58016012471 ")
+628 ;;2524
+629 ;;21,"58016012472 ")
+630 ;;2525
+631 ;;21,"58016012473 ")
+632 ;;2526
+633 ;;21,"58016012475 ")
+634 ;;2527
+635 ;;21,"58016012476 ")
+636 ;;2528
+637 ;;21,"58016012477 ")
+638 ;;2529
+639 ;;21,"58016012479 ")
+640 ;;2530
+641 ;;21,"58016012480 ")
+642 ;;2531
+643 ;;21,"58016012481 ")
+644 ;;2532
+645 ;;21,"58016012482 ")
+646 ;;2533
+647 ;;21,"58016012483 ")
+648 ;;2534
+649 ;;21,"58016012484 ")
+650 ;;2535
+651 ;;21,"58016012487 ")
+652 ;;2536
+653 ;;21,"58016012489 ")
+654 ;;2537
+655 ;;21,"58016012490 ")
+656 ;;2538
+657 ;;21,"58016012491 ")
+658 ;;2539
+659 ;;21,"58016012492 ")
+660 ;;2540
+661 ;;21,"58016012493 ")
+662 ;;2541
+663 ;;21,"58016012496 ")
+664 ;;2542
+665 ;;21,"58016012497 ")
+666 ;;2543
+667 ;;21,"58016012498 ")
+668 ;;2544
+669 ;;21,"58016012499 ")
+670 ;;2545
+671 ;;21,"58016012700 ")
+672 ;;2546
+673 ;;21,"58016012706 ")
+674 ;;2547
+675 ;;21,"58016012708 ")
+676 ;;2548
+677 ;;21,"58016012710 ")
+678 ;;2549
+679 ;;21,"58016012714 ")
+680 ;;2550
+681 ;;21,"58016012720 ")
+682 ;;2551
+683 ;;21,"58016012721 ")
+684 ;;2552
+685 ;;21,"58016012724 ")
+686 ;;2553
+687 ;;21,"58016012728 ")
+688 ;;2554
+689 ;;21,"58016012730 ")
+690 ;;2555
+691 ;;21,"58016012740 ")
+692 ;;2556
+693 ;;21,"58016012742 ")
+694 ;;2557
+695 ;;21,"58016012750 ")
+696 ;;2558
+697 ;;21,"58016012760 ")
+698 ;;2559
+699 ;;21,"58016013700 ")
+700 ;;2560
+701 ;;21,"58016013701 ")
+702 ;;2561
+703 ;;21,"58016013702 ")
+704 ;;2562