BGPM5ATV ;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,"58016013703 ")
+2 ;;2563
+3 ;;21,"58016013704 ")
+4 ;;2564
+5 ;;21,"58016013705 ")
+6 ;;2565
+7 ;;21,"58016013706 ")
+8 ;;2566
+9 ;;21,"58016013707 ")
+10 ;;2567
+11 ;;21,"58016013708 ")
+12 ;;2568
+13 ;;21,"58016013709 ")
+14 ;;2569
+15 ;;21,"58016013710 ")
+16 ;;2570
+17 ;;21,"58016013712 ")
+18 ;;2571
+19 ;;21,"58016013714 ")
+20 ;;2572
+21 ;;21,"58016013715 ")
+22 ;;2573
+23 ;;21,"58016013716 ")
+24 ;;2574
+25 ;;21,"58016013718 ")
+26 ;;2575
+27 ;;21,"58016013720 ")
+28 ;;2576
+29 ;;21,"58016013721 ")
+30 ;;2577
+31 ;;21,"58016013724 ")
+32 ;;2578
+33 ;;21,"58016013725 ")
+34 ;;2579
+35 ;;21,"58016013726 ")
+36 ;;2580
+37 ;;21,"58016013727 ")
+38 ;;2581
+39 ;;21,"58016013728 ")
+40 ;;2582
+41 ;;21,"58016013730 ")
+42 ;;2583
+43 ;;21,"58016013732 ")
+44 ;;2584
+45 ;;21,"58016013735 ")
+46 ;;2585
+47 ;;21,"58016013736 ")
+48 ;;2586
+49 ;;21,"58016013740 ")
+50 ;;2587
+51 ;;21,"58016013742 ")
+52 ;;2588
+53 ;;21,"58016013744 ")
+54 ;;2589
+55 ;;21,"58016013745 ")
+56 ;;2590
+57 ;;21,"58016013748 ")
+58 ;;2591
+59 ;;21,"58016013750 ")
+60 ;;2592
+61 ;;21,"58016013756 ")
+62 ;;2593
+63 ;;21,"58016013760 ")
+64 ;;2594
+65 ;;21,"58016013767 ")
+66 ;;2595
+67 ;;21,"58016013769 ")
+68 ;;2596
+69 ;;21,"58016013770 ")
+70 ;;2597
+71 ;;21,"58016013771 ")
+72 ;;2598
+73 ;;21,"58016013772 ")
+74 ;;2599
+75 ;;21,"58016013773 ")
+76 ;;2600
+77 ;;21,"58016013775 ")
+78 ;;2601
+79 ;;21,"58016013776 ")
+80 ;;2602
+81 ;;21,"58016013777 ")
+82 ;;2603
+83 ;;21,"58016013779 ")
+84 ;;2604
+85 ;;21,"58016013780 ")
+86 ;;2605
+87 ;;21,"58016013781 ")
+88 ;;2606
+89 ;;21,"58016013782 ")
+90 ;;2607
+91 ;;21,"58016013783 ")
+92 ;;2608
+93 ;;21,"58016013784 ")
+94 ;;2609
+95 ;;21,"58016013787 ")
+96 ;;2610
+97 ;;21,"58016013789 ")
+98 ;;2611
+99 ;;21,"58016013790 ")
+100 ;;2612
+101 ;;21,"58016013791 ")
+102 ;;2613
+103 ;;21,"58016013792 ")
+104 ;;2614
+105 ;;21,"58016013793 ")
+106 ;;2615
+107 ;;21,"58016013796 ")
+108 ;;2616
+109 ;;21,"58016013797 ")
+110 ;;2617
+111 ;;21,"58016013798 ")
+112 ;;2618
+113 ;;21,"58016013799 ")
+114 ;;2619
+115 ;;21,"58016013800 ")
+116 ;;2620
+117 ;;21,"58016013802 ")
+118 ;;2621
+119 ;;21,"58016013803 ")
+120 ;;2622
+121 ;;21,"58016013812 ")
+122 ;;2623
+123 ;;21,"58016013814 ")
+124 ;;2624
+125 ;;21,"58016013815 ")
+126 ;;2625
+127 ;;21,"58016013820 ")
+128 ;;2626
+129 ;;21,"58016013821 ")
+130 ;;2627
+131 ;;21,"58016013824 ")
+132 ;;2628
+133 ;;21,"58016013828 ")
+134 ;;2629
+135 ;;21,"58016013830 ")
+136 ;;2630
+137 ;;21,"58016013840 ")
+138 ;;2631
+139 ;;21,"58016013856 ")
+140 ;;2632
+141 ;;21,"58016013860 ")
+142 ;;2633
+143 ;;21,"58016013873 ")
+144 ;;2634
+145 ;;21,"58016013889 ")
+146 ;;2635
+147 ;;21,"58016013900 ")
+148 ;;2636
+149 ;;21,"58016013902 ")
+150 ;;2637
+151 ;;21,"58016013903 ")
+152 ;;2638
+153 ;;21,"58016013904 ")
+154 ;;2639
+155 ;;21,"58016013905 ")
+156 ;;2640
+157 ;;21,"58016013906 ")
+158 ;;2641
+159 ;;21,"58016013908 ")
+160 ;;2642
+161 ;;21,"58016013910 ")
+162 ;;2643
+163 ;;21,"58016013912 ")
+164 ;;2644
+165 ;;21,"58016013914 ")
+166 ;;2645
+167 ;;21,"58016013915 ")
+168 ;;2646
+169 ;;21,"58016013918 ")
+170 ;;2647
+171 ;;21,"58016013920 ")
+172 ;;2648
+173 ;;21,"58016013921 ")
+174 ;;2649
+175 ;;21,"58016013924 ")
+176 ;;2650
+177 ;;21,"58016013928 ")
+178 ;;2651
+179 ;;21,"58016013930 ")
+180 ;;2652
+181 ;;21,"58016013940 ")
+182 ;;2653
+183 ;;21,"58016013950 ")
+184 ;;2654
+185 ;;21,"58016013956 ")
+186 ;;2655
+187 ;;21,"58016013960 ")
+188 ;;2656
+189 ;;21,"58016013973 ")
+190 ;;2657
+191 ;;21,"58016013989 ")
+192 ;;2658
+193 ;;21,"58016014600 ")
+194 ;;2659
+195 ;;21,"58016014602 ")
+196 ;;2660
+197 ;;21,"58016014603 ")
+198 ;;2661
+199 ;;21,"58016014610 ")
+200 ;;2662
+201 ;;21,"58016014612 ")
+202 ;;2663
+203 ;;21,"58016014616 ")
+204 ;;2664
+205 ;;21,"58016014620 ")
+206 ;;2665
+207 ;;21,"58016014621 ")
+208 ;;2666
+209 ;;21,"58016014624 ")
+210 ;;2667
+211 ;;21,"58016014628 ")
+212 ;;2668
+213 ;;21,"58016014630 ")
+214 ;;2669
+215 ;;21,"58016014640 ")
+216 ;;2670
+217 ;;21,"58016014660 ")
+218 ;;2671
+219 ;;21,"58016014673 ")
+220 ;;2672
+221 ;;21,"58016014689 ")
+222 ;;2673
+223 ;;21,"58016014690 ")
+224 ;;2674
+225 ;;21,"58016014700 ")
+226 ;;2675
+227 ;;21,"58016014701 ")
+228 ;;2676
+229 ;;21,"58016014702 ")
+230 ;;2677
+231 ;;21,"58016014703 ")
+232 ;;2678
+233 ;;21,"58016014704 ")
+234 ;;2679
+235 ;;21,"58016014705 ")
+236 ;;2680
+237 ;;21,"58016014706 ")
+238 ;;2681
+239 ;;21,"58016014707 ")
+240 ;;2682
+241 ;;21,"58016014708 ")
+242 ;;2683
+243 ;;21,"58016014709 ")
+244 ;;2684
+245 ;;21,"58016014710 ")
+246 ;;2685
+247 ;;21,"58016014712 ")
+248 ;;2686
+249 ;;21,"58016014714 ")
+250 ;;2687
+251 ;;21,"58016014715 ")
+252 ;;2688
+253 ;;21,"58016014716 ")
+254 ;;2689
+255 ;;21,"58016014718 ")
+256 ;;2690
+257 ;;21,"58016014720 ")
+258 ;;2691
+259 ;;21,"58016014721 ")
+260 ;;2692
+261 ;;21,"58016014724 ")
+262 ;;2693
+263 ;;21,"58016014725 ")
+264 ;;2694
+265 ;;21,"58016014726 ")
+266 ;;2695
+267 ;;21,"58016014727 ")
+268 ;;2696
+269 ;;21,"58016014728 ")
+270 ;;2697
+271 ;;21,"58016014730 ")
+272 ;;2698
+273 ;;21,"58016014732 ")
+274 ;;2699
+275 ;;21,"58016014735 ")
+276 ;;2700
+277 ;;21,"58016014736 ")
+278 ;;2701
+279 ;;21,"58016014740 ")
+280 ;;2702
+281 ;;21,"58016014742 ")
+282 ;;2703
+283 ;;21,"58016014744 ")
+284 ;;2704
+285 ;;21,"58016014745 ")
+286 ;;2705
+287 ;;21,"58016014746 ")
+288 ;;2706
+289 ;;21,"58016014750 ")
+290 ;;2707
+291 ;;21,"58016014756 ")
+292 ;;2708
+293 ;;21,"58016014760 ")
+294 ;;2709
+295 ;;21,"58016014767 ")
+296 ;;2710
+297 ;;21,"58016014769 ")
+298 ;;2711
+299 ;;21,"58016014770 ")
+300 ;;2712
+301 ;;21,"58016014771 ")
+302 ;;2713
+303 ;;21,"58016014772 ")
+304 ;;2714
+305 ;;21,"58016014773 ")
+306 ;;2715
+307 ;;21,"58016014775 ")
+308 ;;2716
+309 ;;21,"58016014776 ")
+310 ;;2717
+311 ;;21,"58016014777 ")
+312 ;;2718
+313 ;;21,"58016014779 ")
+314 ;;2719
+315 ;;21,"58016014780 ")
+316 ;;2720
+317 ;;21,"58016014781 ")
+318 ;;2721
+319 ;;21,"58016014782 ")
+320 ;;2722
+321 ;;21,"58016014783 ")
+322 ;;2723
+323 ;;21,"58016014784 ")
+324 ;;2724
+325 ;;21,"58016014787 ")
+326 ;;2725
+327 ;;21,"58016014789 ")
+328 ;;2726
+329 ;;21,"58016014790 ")
+330 ;;2727
+331 ;;21,"58016014791 ")
+332 ;;2728
+333 ;;21,"58016014792 ")
+334 ;;2729
+335 ;;21,"58016014793 ")
+336 ;;2730
+337 ;;21,"58016014796 ")
+338 ;;2731
+339 ;;21,"58016014798 ")
+340 ;;2734
+341 ;;21,"58016014799 ")
+342 ;;2735
+343 ;;21,"58016014800 ")
+344 ;;2736
+345 ;;21,"58016014808 ")
+346 ;;2737
+347 ;;21,"58016014809 ")
+348 ;;2738
+349 ;;21,"58016014810 ")
+350 ;;2739
+351 ;;21,"58016014812 ")
+352 ;;2740
+353 ;;21,"58016014814 ")
+354 ;;2741
+355 ;;21,"58016014815 ")
+356 ;;2742
+357 ;;21,"58016014820 ")
+358 ;;2743
+359 ;;21,"58016014824 ")
+360 ;;2744
+361 ;;21,"58016014828 ")
+362 ;;2745
+363 ;;21,"58016014830 ")
+364 ;;2746
+365 ;;21,"58016014840 ")
+366 ;;2747
+367 ;;21,"58016014850 ")
+368 ;;2748
+369 ;;21,"58016014900 ")
+370 ;;2749
+371 ;;21,"58016014907 ")
+372 ;;2750
+373 ;;21,"58016014910 ")
+374 ;;2751
+375 ;;21,"58016014920 ")
+376 ;;2752
+377 ;;21,"58016014921 ")
+378 ;;2753
+379 ;;21,"58016014924 ")
+380 ;;2754
+381 ;;21,"58016014925 ")
+382 ;;2755
+383 ;;21,"58016014928 ")
+384 ;;2756
+385 ;;21,"58016014930 ")
+386 ;;2757
+387 ;;21,"58016014940 ")
+388 ;;2758
+389 ;;21,"58016015600 ")
+390 ;;2759
+391 ;;21,"58016015602 ")
+392 ;;2760
+393 ;;21,"58016015603 ")
+394 ;;2761
+395 ;;21,"58016015606 ")
+396 ;;2762
+397 ;;21,"58016015607 ")
+398 ;;2763
+399 ;;21,"58016015610 ")
+400 ;;2764
+401 ;;21,"58016015612 ")
+402 ;;2765
+403 ;;21,"58016015614 ")
+404 ;;2766
+405 ;;21,"58016015615 ")
+406 ;;2767
+407 ;;21,"58016015616 ")
+408 ;;2768
+409 ;;21,"58016015620 ")
+410 ;;2769
+411 ;;21,"58016015621 ")
+412 ;;2770
+413 ;;21,"58016015624 ")
+414 ;;2771
+415 ;;21,"58016015628 ")
+416 ;;2772
+417 ;;21,"58016015630 ")
+418 ;;2773
+419 ;;21,"58016015640 ")
+420 ;;2774
+421 ;;21,"58016015660 ")
+422 ;;2775
+423 ;;21,"58016015673 ")
+424 ;;2776
+425 ;;21,"58016015689 ")
+426 ;;2777
+427 ;;21,"58016016100 ")
+428 ;;2778
+429 ;;21,"58016016110 ")
+430 ;;2779
+431 ;;21,"58016016112 ")
+432 ;;2780
+433 ;;21,"58016016114 ")
+434 ;;2781
+435 ;;21,"58016016115 ")
+436 ;;2782
+437 ;;21,"58016016116 ")
+438 ;;2783
+439 ;;21,"58016016118 ")
+440 ;;2784
+441 ;;21,"58016016120 ")
+442 ;;2785
+443 ;;21,"58016016121 ")
+444 ;;2786
+445 ;;21,"58016016124 ")
+446 ;;2787
+447 ;;21,"58016016128 ")
+448 ;;2788
+449 ;;21,"58016016130 ")
+450 ;;2789
+451 ;;21,"58016016140 ")
+452 ;;2790
+453 ;;21,"58016016150 ")
+454 ;;2791
+455 ;;21,"58016016160 ")
+456 ;;2792
+457 ;;21,"58016017100 ")
+458 ;;2793
+459 ;;21,"58016017120 ")
+460 ;;2794
+461 ;;21,"58016017130 ")
+462 ;;2795
+463 ;;21,"58016020400 ")
+464 ;;2796
+465 ;;21,"58016020420 ")
+466 ;;2797
+467 ;;21,"58016020430 ")
+468 ;;2798
+469 ;;21,"58016020460 ")
+470 ;;2799
+471 ;;21,"58016020490 ")
+472 ;;2800
+473 ;;21,"58016028415 ")
+474 ;;2801
+475 ;;21,"58016028420 ")
+476 ;;2802
+477 ;;21,"58016028430 ")
+478 ;;2803
+479 ;;21,"58016028450 ")
+480 ;;2804
+481 ;;21,"58016029900 ")
+482 ;;2805
+483 ;;21,"58016029930 ")
+484 ;;2806
+485 ;;21,"58016029960 ")
+486 ;;2807
+487 ;;21,"58016029990 ")
+488 ;;2808
+489 ;;21,"58016033900 ")
+490 ;;2809
+491 ;;21,"58016033901 ")
+492 ;;2810
+493 ;;21,"58016033902 ")
+494 ;;2811
+495 ;;21,"58016033903 ")
+496 ;;2812
+497 ;;21,"58016033904 ")
+498 ;;2813
+499 ;;21,"58016033905 ")
+500 ;;2814
+501 ;;21,"58016033906 ")
+502 ;;2815
+503 ;;21,"58016033907 ")
+504 ;;2816
+505 ;;21,"58016033908 ")
+506 ;;2817
+507 ;;21,"58016033909 ")
+508 ;;2818
+509 ;;21,"58016033910 ")
+510 ;;2819
+511 ;;21,"58016033912 ")
+512 ;;2820
+513 ;;21,"58016033914 ")
+514 ;;2821
+515 ;;21,"58016033915 ")
+516 ;;2822
+517 ;;21,"58016033916 ")
+518 ;;2823
+519 ;;21,"58016033918 ")
+520 ;;2824
+521 ;;21,"58016033920 ")
+522 ;;2825
+523 ;;21,"58016033921 ")
+524 ;;2826
+525 ;;21,"58016033924 ")
+526 ;;2827
+527 ;;21,"58016033925 ")
+528 ;;2828
+529 ;;21,"58016033926 ")
+530 ;;2829
+531 ;;21,"58016033927 ")
+532 ;;2830
+533 ;;21,"58016033928 ")
+534 ;;2831
+535 ;;21,"58016033930 ")
+536 ;;2832
+537 ;;21,"58016033932 ")
+538 ;;2833
+539 ;;21,"58016033935 ")
+540 ;;2834
+541 ;;21,"58016033936 ")
+542 ;;2835
+543 ;;21,"58016033940 ")
+544 ;;2836
+545 ;;21,"58016033942 ")
+546 ;;2837
+547 ;;21,"58016033944 ")
+548 ;;2838
+549 ;;21,"58016033945 ")
+550 ;;2839
+551 ;;21,"58016033948 ")
+552 ;;2840
+553 ;;21,"58016033950 ")
+554 ;;2841
+555 ;;21,"58016033956 ")
+556 ;;2842
+557 ;;21,"58016033960 ")
+558 ;;2843
+559 ;;21,"58016033967 ")
+560 ;;2844
+561 ;;21,"58016033969 ")
+562 ;;2845
+563 ;;21,"58016033970 ")
+564 ;;2846
+565 ;;21,"58016033971 ")
+566 ;;2847
+567 ;;21,"58016033972 ")
+568 ;;2848
+569 ;;21,"58016033973 ")
+570 ;;2849
+571 ;;21,"58016033975 ")
+572 ;;2850
+573 ;;21,"58016033976 ")
+574 ;;2851
+575 ;;21,"58016033977 ")
+576 ;;2852
+577 ;;21,"58016033979 ")
+578 ;;2853
+579 ;;21,"58016033980 ")
+580 ;;2854
+581 ;;21,"58016033981 ")
+582 ;;2855
+583 ;;21,"58016033982 ")
+584 ;;2856
+585 ;;21,"58016033983 ")
+586 ;;2857
+587 ;;21,"58016033984 ")
+588 ;;2858
+589 ;;21,"58016033987 ")
+590 ;;2859
+591 ;;21,"58016033989 ")
+592 ;;2860
+593 ;;21,"58016033990 ")
+594 ;;2861
+595 ;;21,"58016033991 ")
+596 ;;2862
+597 ;;21,"58016033992 ")
+598 ;;2863
+599 ;;21,"58016033993 ")
+600 ;;2864
+601 ;;21,"58016033996 ")
+602 ;;2865
+603 ;;21,"58016033997 ")
+604 ;;2866
+605 ;;21,"58016033998 ")
+606 ;;2867
+607 ;;21,"58016033999 ")
+608 ;;2868
+609 ;;21,"58016045300 ")
+610 ;;2869
+611 ;;21,"58016045301 ")
+612 ;;2870
+613 ;;21,"58016045302 ")
+614 ;;2871
+615 ;;21,"58016045303 ")
+616 ;;2872
+617 ;;21,"58016045304 ")
+618 ;;2873
+619 ;;21,"58016045305 ")
+620 ;;2874
+621 ;;21,"58016045306 ")
+622 ;;2875
+623 ;;21,"58016045307 ")
+624 ;;2876
+625 ;;21,"58016045308 ")
+626 ;;2877
+627 ;;21,"58016045309 ")
+628 ;;2878
+629 ;;21,"58016045310 ")
+630 ;;2879
+631 ;;21,"58016045312 ")
+632 ;;2880
+633 ;;21,"58016045314 ")
+634 ;;2881
+635 ;;21,"58016045315 ")
+636 ;;2882
+637 ;;21,"58016045316 ")
+638 ;;2883
+639 ;;21,"58016045318 ")
+640 ;;2884
+641 ;;21,"58016045320 ")
+642 ;;2885
+643 ;;21,"58016045321 ")
+644 ;;2886
+645 ;;21,"58016045324 ")
+646 ;;2887
+647 ;;21,"58016045325 ")
+648 ;;2888
+649 ;;21,"58016045326 ")
+650 ;;2889
+651 ;;21,"58016045327 ")
+652 ;;2890
+653 ;;21,"58016045328 ")
+654 ;;2891
+655 ;;21,"58016045330 ")
+656 ;;2892
+657 ;;21,"58016045332 ")
+658 ;;2893
+659 ;;21,"58016045335 ")
+660 ;;2894
+661 ;;21,"58016045336 ")
+662 ;;2895
+663 ;;21,"58016045340 ")
+664 ;;2896
+665 ;;21,"58016045342 ")
+666 ;;2897
+667 ;;21,"58016045344 ")
+668 ;;2898
+669 ;;21,"58016045345 ")
+670 ;;2899
+671 ;;21,"58016045348 ")
+672 ;;2900
+673 ;;21,"58016045350 ")
+674 ;;2901
+675 ;;21,"58016045356 ")
+676 ;;2902
+677 ;;21,"58016045360 ")
+678 ;;2903
+679 ;;21,"58016045367 ")
+680 ;;2904
+681 ;;21,"58016045369 ")
+682 ;;2905
+683 ;;21,"58016045370 ")
+684 ;;2906
+685 ;;21,"58016045371 ")
+686 ;;2907
+687 ;;21,"58016045372 ")
+688 ;;2908
+689 ;;21,"58016045373 ")
+690 ;;2909
+691 ;;21,"58016045375 ")
+692 ;;2910
+693 ;;21,"58016045376 ")
+694 ;;2911
+695 ;;21,"58016045377 ")
+696 ;;2912
+697 ;;21,"58016045379 ")
+698 ;;2913
+699 ;;21,"58016045380 ")
+700 ;;2914
+701 ;;21,"58016045381 ")
+702 ;;2915
+703 ;;21,"58016045382 ")
+704 ;;2916