BGPM5BEJ ;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 ;;21,"51138008530 ")
+2 ;;647
+3 ;;21,"51138025130 ")
+4 ;;2398
+5 ;;21,"51138025230 ")
+6 ;;2399
+7 ;;21,"51138026530 ")
+8 ;;2400
+9 ;;21,"51138026630 ")
+10 ;;2401
+11 ;;21,"51138026730 ")
+12 ;;2402
+13 ;;21,"51138026830 ")
+14 ;;2403
+15 ;;21,"51138026930 ")
+16 ;;2404
+17 ;;21,"51138027030 ")
+18 ;;2405
+19 ;;21,"51138027130 ")
+20 ;;2406
+21 ;;21,"51138033730 ")
+22 ;;2407
+23 ;;21,"51138033830 ")
+24 ;;2408
+25 ;;21,"51138033930 ")
+26 ;;2409
+27 ;;21,"51138036730 ")
+28 ;;2410
+29 ;;21,"51138036830 ")
+30 ;;2411
+31 ;;21,"51138036930 ")
+32 ;;2412
+33 ;;21,"51138037030 ")
+34 ;;2413
+35 ;;21,"51138037130 ")
+36 ;;2414
+37 ;;21,"51138037210 ")
+38 ;;2415
+39 ;;21,"51138037230 ")
+40 ;;2416
+41 ;;21,"51138047030 ")
+42 ;;31
+43 ;;21,"51138047130 ")
+44 ;;32
+45 ;;21,"51138047230 ")
+46 ;;33
+47 ;;21,"51138047330 ")
+48 ;;34
+49 ;;21,"51138047430 ")
+50 ;;35
+51 ;;21,"51138047530 ")
+52 ;;36
+53 ;;21,"51285059804 ")
+54 ;;2423
+55 ;;21,"51285059904 ")
+56 ;;2424
+57 ;;21,"51641040501 ")
+58 ;;2425
+59 ;;21,"51655004504 ")
+60 ;;654
+61 ;;21,"51655004524 ")
+62 ;;655
+63 ;;21,"51655004528 ")
+64 ;;656
+65 ;;21,"51655004552 ")
+66 ;;657
+67 ;;21,"51655004553 ")
+68 ;;658
+69 ;;21,"51655006324 ")
+70 ;;2426
+71 ;;21,"51655006352 ")
+72 ;;2427
+73 ;;21,"51655019124 ")
+74 ;;2428
+75 ;;21,"51655019125 ")
+76 ;;2429
+77 ;;21,"51655019126 ")
+78 ;;2430
+79 ;;21,"51655019182 ")
+80 ;;2431
+81 ;;21,"51655019183 ")
+82 ;;2432
+83 ;;21,"51655029124 ")
+84 ;;659
+85 ;;21,"51655029125 ")
+86 ;;660
+87 ;;21,"51655029152 ")
+88 ;;661
+89 ;;21,"51655029153 ")
+90 ;;662
+91 ;;21,"51655040024 ")
+92 ;;663
+93 ;;21,"51655040025 ")
+94 ;;664
+95 ;;21,"51655040052 ")
+96 ;;665
+97 ;;21,"51655040053 ")
+98 ;;666
+99 ;;21,"51655090424 ")
+100 ;;2433
+101 ;;21,"51655090425 ")
+102 ;;2434
+103 ;;21,"51655096124 ")
+104 ;;2435
+105 ;;21,"51655096125 ")
+106 ;;2436
+107 ;;21,"51655096224 ")
+108 ;;2437
+109 ;;21,"52544046001 ")
+110 ;;2438
+111 ;;21,"52544046005 ")
+112 ;;2439
+113 ;;21,"52544046010 ")
+114 ;;2440
+115 ;;21,"52544055901 ")
+116 ;;2441
+117 ;;21,"52544055905 ")
+118 ;;2442
+119 ;;21,"52544056001 ")
+120 ;;2443
+121 ;;21,"52544056005 ")
+122 ;;2444
+123 ;;21,"52959020700 ")
+124 ;;667
+125 ;;21,"52959020728 ")
+126 ;;668
+127 ;;21,"52959020730 ")
+128 ;;669
+129 ;;21,"52959020760 ")
+130 ;;670
+131 ;;21,"52959044901 ")
+132 ;;2445
+133 ;;21,"52959044930 ")
+134 ;;2446
+135 ;;21,"52959044960 ")
+136 ;;2447
+137 ;;21,"52959082200 ")
+138 ;;2448
+139 ;;21,"52959082230 ")
+140 ;;2449
+141 ;;21,"52959082260 ")
+142 ;;2450
+143 ;;21,"52959082320 ")
+144 ;;2451
+145 ;;21,"52959082360 ")
+146 ;;2452
+147 ;;21,"52959086002 ")
+148 ;;671
+149 ;;21,"52959086030 ")
+150 ;;672
+151 ;;21,"52959086060 ")
+152 ;;673
+153 ;;21,"52959086090 ")
+154 ;;674
+155 ;;21,"52959088800 ")
+156 ;;2453
+157 ;;21,"52959088830 ")
+158 ;;2454
+159 ;;21,"52959089601 ")
+160 ;;675
+161 ;;21,"52959089660 ")
+162 ;;676
+163 ;;21,"52959093630 ")
+164 ;;2455
+165 ;;21,"52959093660 ")
+166 ;;2456
+167 ;;21,"53002034700 ")
+168 ;;2457
+169 ;;21,"53002034720 ")
+170 ;;2458
+171 ;;21,"53002034730 ")
+172 ;;2459
+173 ;;21,"53002034750 ")
+174 ;;2460
+175 ;;21,"53002034760 ")
+176 ;;2461
+177 ;;21,"53002041700 ")
+178 ;;2462
+179 ;;21,"53002041720 ")
+180 ;;2463
+181 ;;21,"53002041730 ")
+182 ;;2464
+183 ;;21,"53002041750 ")
+184 ;;2465
+185 ;;21,"53002041760 ")
+186 ;;2466
+187 ;;21,"53002044630 ")
+188 ;;2467
+189 ;;21,"53002044660 ")
+190 ;;2468
+191 ;;21,"53002044690 ")
+192 ;;2469
+193 ;;21,"53002051900 ")
+194 ;;2470
+195 ;;21,"53002051930 ")
+196 ;;2471
+197 ;;21,"53002051950 ")
+198 ;;2472
+199 ;;21,"53002051960 ")
+200 ;;2473
+201 ;;21,"53002051990 ")
+202 ;;2474
+203 ;;21,"53002080072 ")
+204 ;;1998
+205 ;;21,"53489015101 ")
+206 ;;2475
+207 ;;21,"53489015110 ")
+208 ;;2476
+209 ;;21,"53489015201 ")
+210 ;;2477
+211 ;;21,"53489015204 ")
+212 ;;2478
+213 ;;21,"53489015205 ")
+214 ;;2479
+215 ;;21,"53489015210 ")
+216 ;;2480
+217 ;;21,"53489015301 ")
+218 ;;2481
+219 ;;21,"53489015303 ")
+220 ;;2482
+221 ;;21,"53489015305 ")
+222 ;;2483
+223 ;;21,"53489046701 ")
+224 ;;677
+225 ;;21,"53489046703 ")
+226 ;;678
+227 ;;21,"53489046705 ")
+228 ;;679
+229 ;;21,"53489046710 ")
+230 ;;680
+231 ;;21,"53489046788 ")
+232 ;;681
+233 ;;21,"53489046801 ")
+234 ;;682
+235 ;;21,"53489046803 ")
+236 ;;683
+237 ;;21,"53489046805 ")
+238 ;;684
+239 ;;21,"53489046810 ")
+240 ;;685
+241 ;;21,"53489046888 ")
+242 ;;686
+243 ;;21,"53489046901 ")
+244 ;;687
+245 ;;21,"53489046903 ")
+246 ;;688
+247 ;;21,"53489046905 ")
+248 ;;689
+249 ;;21,"53489046910 ")
+250 ;;690
+251 ;;21,"53489046988 ")
+252 ;;691
+253 ;;21,"53489058501 ")
+254 ;;692
+255 ;;21,"53489058503 ")
+256 ;;693
+257 ;;21,"53489058505 ")
+258 ;;694
+259 ;;21,"53489058506 ")
+260 ;;695
+261 ;;21,"53489058507 ")
+262 ;;696
+263 ;;21,"53489058510 ")
+264 ;;697
+265 ;;21,"53746017801 ")
+266 ;;698
+267 ;;21,"53746017805 ")
+268 ;;699
+269 ;;21,"53746017810 ")
+270 ;;700
+271 ;;21,"53746017890 ")
+272 ;;701
+273 ;;21,"53746017901 ")
+274 ;;702
+275 ;;21,"53746017905 ")
+276 ;;703
+277 ;;21,"53746017910 ")
+278 ;;704
+279 ;;21,"53746028602 ")
+280 ;;2484
+281 ;;21,"53808018301 ")
+282 ;;705
+283 ;;21,"53808018401 ")
+284 ;;706
+285 ;;21,"53808018501 ")
+286 ;;707
+287 ;;21,"53808025701 ")
+288 ;;2485
+289 ;;21,"53808025801 ")
+290 ;;2486
+291 ;;21,"53808025901 ")
+292 ;;2487
+293 ;;21,"53808026001 ")
+294 ;;2488
+295 ;;21,"53808036901 ")
+296 ;;2489
+297 ;;21,"53808038101 ")
+298 ;;708
+299 ;;21,"53808040001 ")
+300 ;;2490
+301 ;;21,"53808040101 ")
+302 ;;2491
+303 ;;21,"53808040801 ")
+304 ;;2492
+305 ;;21,"53808040901 ")
+306 ;;2493
+307 ;;21,"53808045901 ")
+308 ;;709
+309 ;;21,"53808061301 ")
+310 ;;710
+311 ;;21,"53808071201 ")
+312 ;;711
+313 ;;21,"53808071301 ")
+314 ;;712
+315 ;;21,"53808071701 ")
+316 ;;713
+317 ;;21,"53808071801 ")
+318 ;;714
+319 ;;21,"53808072001 ")
+320 ;;715
+321 ;;21,"53978069303 ")
+322 ;;2494
+323 ;;21,"53978069305 ")
+324 ;;2495
+325 ;;21,"53978069402 ")
+326 ;;2496
+327 ;;21,"53978069403 ")
+328 ;;2497
+329 ;;21,"53978069405 ")
+330 ;;2498
+331 ;;21,"53978069407 ")
+332 ;;2499
+333 ;;21,"53978069408 ")
+334 ;;2500
+335 ;;21,"53978201303 ")
+336 ;;2501
+337 ;;21,"53978201305 ")
+338 ;;2502
+339 ;;21,"53978201308 ")
+340 ;;2503
+341 ;;21,"53978201402 ")
+342 ;;2504
+343 ;;21,"53978201403 ")
+344 ;;2505
+345 ;;21,"53978201404 ")
+346 ;;2506
+347 ;;21,"53978201405 ")
+348 ;;2507
+349 ;;21,"53978201408 ")
+350 ;;2508
+351 ;;21,"54458096610 ")
+352 ;;2509
+353 ;;21,"54458096710 ")
+354 ;;2510
+355 ;;21,"54458096810 ")
+356 ;;2511
+357 ;;21,"54569020300 ")
+358 ;;2512
+359 ;;21,"54569020301 ")
+360 ;;2513
+361 ;;21,"54569020340 ")
+362 ;;2514
+363 ;;21,"54569201701 ")
+364 ;;2515
+365 ;;21,"54569383000 ")
+366 ;;2516
+367 ;;21,"54569383001 ")
+368 ;;2517
+369 ;;21,"54569383002 ")
+370 ;;2518
+371 ;;21,"54569383100 ")
+372 ;;2519
+373 ;;21,"54569383101 ")
+374 ;;2520
+375 ;;21,"54569383102 ")
+376 ;;2521
+377 ;;21,"54569383104 ")
+378 ;;2522
+379 ;;21,"54569383105 ")
+380 ;;2523
+381 ;;21,"54569383106 ")
+382 ;;2524
+383 ;;21,"54569383108 ")
+384 ;;2525
+385 ;;21,"54569383200 ")
+386 ;;2526
+387 ;;21,"54569384100 ")
+388 ;;2527
+389 ;;21,"54569384101 ")
+390 ;;2528
+391 ;;21,"54569384102 ")
+392 ;;2529
+393 ;;21,"54569384200 ")
+394 ;;2530
+395 ;;21,"54569384201 ")
+396 ;;2531
+397 ;;21,"54569384202 ")
+398 ;;2532
+399 ;;21,"54569384204 ")
+400 ;;2533
+401 ;;21,"54569535300 ")
+402 ;;716
+403 ;;21,"54569535302 ")
+404 ;;717
+405 ;;21,"54569535303 ")
+406 ;;718
+407 ;;21,"54569536000 ")
+408 ;;719
+409 ;;21,"54569536003 ")
+410 ;;720
+411 ;;21,"54569537300 ")
+412 ;;721
+413 ;;21,"54569537302 ")
+414 ;;722
+415 ;;21,"54569554600 ")
+416 ;;723
+417 ;;21,"54569554601 ")
+418 ;;724
+419 ;;21,"54569554602 ")
+420 ;;725
+421 ;;21,"54569554700 ")
+422 ;;2534
+423 ;;21,"54569554701 ")
+424 ;;2535
+425 ;;21,"54569554800 ")
+426 ;;2536
+427 ;;21,"54569554801 ")
+428 ;;2537
+429 ;;21,"54569561800 ")
+430 ;;37
+431 ;;21,"54569561801 ")
+432 ;;38
+433 ;;21,"54569561900 ")
+434 ;;39
+435 ;;21,"54569561901 ")
+436 ;;40
+437 ;;21,"54569585500 ")
+438 ;;2542
+439 ;;21,"54569599100 ")
+440 ;;41
+441 ;;21,"54569599200 ")
+442 ;;42
+443 ;;21,"54569599300 ")
+444 ;;43
+445 ;;21,"54569599301 ")
+446 ;;44
+447 ;;21,"54569606100 ")
+448 ;;4350
+449 ;;21,"54569607200 ")
+450 ;;2547
+451 ;;21,"54569860100 ")
+452 ;;2548
+453 ;;21,"54569860101 ")
+454 ;;2549
+455 ;;21,"54569860102 ")
+456 ;;2550
+457 ;;21,"54569860103 ")
+458 ;;2551
+459 ;;21,"54868003600 ")
+460 ;;2552
+461 ;;21,"54868003602 ")
+462 ;;2553
+463 ;;21,"54868003603 ")
+464 ;;2554
+465 ;;21,"54868003604 ")
+466 ;;2555
+467 ;;21,"54868079500 ")
+468 ;;45
+469 ;;21,"54868087700 ")
+470 ;;2557
+471 ;;21,"54868087701 ")
+472 ;;2558
+473 ;;21,"54868102000 ")
+474 ;;2559
+475 ;;21,"54868136101 ")
+476 ;;2560
+477 ;;21,"54868326500 ")
+478 ;;2561
+479 ;;21,"54868326501 ")
+480 ;;2562
+481 ;;21,"54868326503 ")
+482 ;;2563
+483 ;;21,"54868326504 ")
+484 ;;2564
+485 ;;21,"54868326505 ")
+486 ;;2565
+487 ;;21,"54868326601 ")
+488 ;;2566
+489 ;;21,"54868326602 ")
+490 ;;2567
+491 ;;21,"54868326603 ")
+492 ;;2568
+493 ;;21,"54868326604 ")
+494 ;;2569
+495 ;;21,"54868331801 ")
+496 ;;2570
+497 ;;21,"54868331802 ")
+498 ;;2571
+499 ;;21,"54868331803 ")
+500 ;;2572
+501 ;;21,"54868331804 ")
+502 ;;2573
+503 ;;21,"54868331805 ")
+504 ;;2574
+505 ;;21,"54868331901 ")
+506 ;;2575
+507 ;;21,"54868331902 ")
+508 ;;2576
+509 ;;21,"54868331903 ")
+510 ;;2577
+511 ;;21,"54868331904 ")
+512 ;;2578
+513 ;;21,"54868331905 ")
+514 ;;2579
+515 ;;21,"54868331906 ")
+516 ;;2580
+517 ;;21,"54868331907 ")
+518 ;;2581
+519 ;;21,"54868332700 ")
+520 ;;2582
+521 ;;21,"54868332701 ")
+522 ;;2583
+523 ;;21,"54868337700 ")
+524 ;;2584
+525 ;;21,"54868337701 ")
+526 ;;2585
+527 ;;21,"54868337702 ")
+528 ;;2586
+529 ;;21,"54868342600 ")
+530 ;;2587
+531 ;;21,"54868342601 ")
+532 ;;2588
+533 ;;21,"54868409100 ")
+534 ;;2589
+535 ;;21,"54868409101 ")
+536 ;;2590
+537 ;;21,"54868409102 ")
+538 ;;2591
+539 ;;21,"54868409103 ")
+540 ;;2592
+541 ;;21,"54868456100 ")
+542 ;;735
+543 ;;21,"54868456101 ")
+544 ;;736
+545 ;;21,"54868456102 ")
+546 ;;737
+547 ;;21,"54868456103 ")
+548 ;;738
+549 ;;21,"54868456104 ")
+550 ;;739
+551 ;;21,"54868456400 ")
+552 ;;740
+553 ;;21,"54868456401 ")
+554 ;;741
+555 ;;21,"54868456402 ")
+556 ;;742
+557 ;;21,"54868456403 ")
+558 ;;743
+559 ;;21,"54868456404 ")
+560 ;;744
+561 ;;21,"54868456405 ")
+562 ;;745
+563 ;;21,"54868456600 ")
+564 ;;746
+565 ;;21,"54868456601 ")
+566 ;;747
+567 ;;21,"54868456602 ")
+568 ;;748
+569 ;;21,"54868456603 ")
+570 ;;749
+571 ;;21,"54868456604 ")
+572 ;;750
+573 ;;21,"54868484200 ")
+574 ;;2593
+575 ;;21,"54868484201 ")
+576 ;;2594
+577 ;;21,"54868484202 ")
+578 ;;2595
+579 ;;21,"54868498800 ")
+580 ;;2596
+581 ;;21,"54868498801 ")
+582 ;;2597
+583 ;;21,"54868498802 ")
+584 ;;2598
+585 ;;21,"54868498803 ")
+586 ;;2599
+587 ;;21,"54868498804 ")
+588 ;;2600
+589 ;;21,"54868514800 ")
+590 ;;46
+591 ;;21,"54868514801 ")
+592 ;;47
+593 ;;21,"54868514802 ")
+594 ;;48
+595 ;;21,"54868514803 ")
+596 ;;49
+597 ;;21,"54868514804 ")
+598 ;;50
+599 ;;21,"54868518500 ")
+600 ;;51
+601 ;;21,"54868518501 ")
+602 ;;52
+603 ;;21,"54868518502 ")
+604 ;;53
+605 ;;21,"54868518503 ")
+606 ;;54
+607 ;;21,"54868518800 ")
+608 ;;55
+609 ;;21,"54868518801 ")
+610 ;;56
+611 ;;21,"54868518802 ")
+612 ;;57
+613 ;;21,"54868521000 ")
+614 ;;2613
+615 ;;21,"54868521001 ")
+616 ;;2614
+617 ;;21,"54868521002 ")
+618 ;;2615
+619 ;;21,"54868521003 ")
+620 ;;2616
+621 ;;21,"54868521700 ")
+622 ;;763
+623 ;;21,"54868521701 ")
+624 ;;764
+625 ;;21,"54868521702 ")
+626 ;;765
+627 ;;21,"54868521703 ")
+628 ;;766
+629 ;;21,"54868521704 ")
+630 ;;767
+631 ;;21,"54868521705 ")
+632 ;;768
+633 ;;21,"54868524300 ")
+634 ;;58
+635 ;;21,"54868524301 ")
+636 ;;59
+637 ;;21,"54868524302 ")
+638 ;;60
+639 ;;21,"54868524303 ")
+640 ;;61
+641 ;;21,"54868524304 ")
+642 ;;62
+643 ;;21,"54868536400 ")
+644 ;;2622
+645 ;;21,"54868536401 ")
+646 ;;2623
+647 ;;21,"54868536402 ")
+648 ;;2624
+649 ;;21,"54868545700 ")
+650 ;;2625
+651 ;;21,"54868545701 ")
+652 ;;2626
+653 ;;21,"54868545702 ")
+654 ;;2627
+655 ;;21,"54868546700 ")
+656 ;;63
+657 ;;21,"54868546701 ")
+658 ;;64
+659 ;;21,"54868546702 ")
+660 ;;65
+661 ;;21,"54868550500 ")
+662 ;;777
+663 ;;21,"54868550501 ")
+664 ;;778
+665 ;;21,"54868550502 ")
+666 ;;779
+667 ;;21,"54868571200 ")
+668 ;;2631
+669 ;;21,"54868589900 ")
+670 ;;1999
+671 ;;21,"54868594500 ")
+672 ;;4351
+673 ;;21,"54868625500 ")
+674 ;;2007
+675 ;;21,"54868625501 ")
+676 ;;2008
+677 ;;21,"54907042501 ")
+678 ;;2632
+679 ;;21,"54907042601 ")
+680 ;;2633
+681 ;;21,"54907042701 ")
+682 ;;2634
+683 ;;21,"54907076701 ")
+684 ;;780
+685 ;;21,"54907086001 ")
+686 ;;781
+687 ;;21,"54907086003 ")
+688 ;;782
+689 ;;21,"54907086004 ")
+690 ;;783
+691 ;;21,"54907086005 ")
+692 ;;784
+693 ;;21,"55045121101 ")
+694 ;;2635
+695 ;;21,"55045156809 ")
+696 ;;2636
+697 ;;21,"55045213800 ")
+698 ;;2637
+699 ;;21,"55045213801 ")
+700 ;;2638
+701 ;;21,"55045213802 ")
+702 ;;2639
+703 ;;21,"55045213806 ")
+704 ;;2640
+705 ;;21,"55045213808 ")
+706 ;;2641
+707 ;;21,"55045226501 ")
+708 ;;2642
+709 ;;21,"55045226601 ")
+710 ;;2643
+711 ;;21,"55045226606 ")
+712 ;;2644