Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BGPM5ATV

BGPM5ATV.m

Go to the documentation of this file.
BGPM5ATV ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 2011;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
 ;
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)
 ;;21,"58016013703 ")
 ;;2563
 ;;21,"58016013704 ")
 ;;2564
 ;;21,"58016013705 ")
 ;;2565
 ;;21,"58016013706 ")
 ;;2566
 ;;21,"58016013707 ")
 ;;2567
 ;;21,"58016013708 ")
 ;;2568
 ;;21,"58016013709 ")
 ;;2569
 ;;21,"58016013710 ")
 ;;2570
 ;;21,"58016013712 ")
 ;;2571
 ;;21,"58016013714 ")
 ;;2572
 ;;21,"58016013715 ")
 ;;2573
 ;;21,"58016013716 ")
 ;;2574
 ;;21,"58016013718 ")
 ;;2575
 ;;21,"58016013720 ")
 ;;2576
 ;;21,"58016013721 ")
 ;;2577
 ;;21,"58016013724 ")
 ;;2578
 ;;21,"58016013725 ")
 ;;2579
 ;;21,"58016013726 ")
 ;;2580
 ;;21,"58016013727 ")
 ;;2581
 ;;21,"58016013728 ")
 ;;2582
 ;;21,"58016013730 ")
 ;;2583
 ;;21,"58016013732 ")
 ;;2584
 ;;21,"58016013735 ")
 ;;2585
 ;;21,"58016013736 ")
 ;;2586
 ;;21,"58016013740 ")
 ;;2587
 ;;21,"58016013742 ")
 ;;2588
 ;;21,"58016013744 ")
 ;;2589
 ;;21,"58016013745 ")
 ;;2590
 ;;21,"58016013748 ")
 ;;2591
 ;;21,"58016013750 ")
 ;;2592
 ;;21,"58016013756 ")
 ;;2593
 ;;21,"58016013760 ")
 ;;2594
 ;;21,"58016013767 ")
 ;;2595
 ;;21,"58016013769 ")
 ;;2596
 ;;21,"58016013770 ")
 ;;2597
 ;;21,"58016013771 ")
 ;;2598
 ;;21,"58016013772 ")
 ;;2599
 ;;21,"58016013773 ")
 ;;2600
 ;;21,"58016013775 ")
 ;;2601
 ;;21,"58016013776 ")
 ;;2602
 ;;21,"58016013777 ")
 ;;2603
 ;;21,"58016013779 ")
 ;;2604
 ;;21,"58016013780 ")
 ;;2605
 ;;21,"58016013781 ")
 ;;2606
 ;;21,"58016013782 ")
 ;;2607
 ;;21,"58016013783 ")
 ;;2608
 ;;21,"58016013784 ")
 ;;2609
 ;;21,"58016013787 ")
 ;;2610
 ;;21,"58016013789 ")
 ;;2611
 ;;21,"58016013790 ")
 ;;2612
 ;;21,"58016013791 ")
 ;;2613
 ;;21,"58016013792 ")
 ;;2614
 ;;21,"58016013793 ")
 ;;2615
 ;;21,"58016013796 ")
 ;;2616
 ;;21,"58016013797 ")
 ;;2617
 ;;21,"58016013798 ")
 ;;2618
 ;;21,"58016013799 ")
 ;;2619
 ;;21,"58016013800 ")
 ;;2620
 ;;21,"58016013802 ")
 ;;2621
 ;;21,"58016013803 ")
 ;;2622
 ;;21,"58016013812 ")
 ;;2623
 ;;21,"58016013814 ")
 ;;2624
 ;;21,"58016013815 ")
 ;;2625
 ;;21,"58016013820 ")
 ;;2626
 ;;21,"58016013821 ")
 ;;2627
 ;;21,"58016013824 ")
 ;;2628
 ;;21,"58016013828 ")
 ;;2629
 ;;21,"58016013830 ")
 ;;2630
 ;;21,"58016013840 ")
 ;;2631
 ;;21,"58016013856 ")
 ;;2632
 ;;21,"58016013860 ")
 ;;2633
 ;;21,"58016013873 ")
 ;;2634
 ;;21,"58016013889 ")
 ;;2635
 ;;21,"58016013900 ")
 ;;2636
 ;;21,"58016013902 ")
 ;;2637
 ;;21,"58016013903 ")
 ;;2638
 ;;21,"58016013904 ")
 ;;2639
 ;;21,"58016013905 ")
 ;;2640
 ;;21,"58016013906 ")
 ;;2641
 ;;21,"58016013908 ")
 ;;2642
 ;;21,"58016013910 ")
 ;;2643
 ;;21,"58016013912 ")
 ;;2644
 ;;21,"58016013914 ")
 ;;2645
 ;;21,"58016013915 ")
 ;;2646
 ;;21,"58016013918 ")
 ;;2647
 ;;21,"58016013920 ")
 ;;2648
 ;;21,"58016013921 ")
 ;;2649
 ;;21,"58016013924 ")
 ;;2650
 ;;21,"58016013928 ")
 ;;2651
 ;;21,"58016013930 ")
 ;;2652
 ;;21,"58016013940 ")
 ;;2653
 ;;21,"58016013950 ")
 ;;2654
 ;;21,"58016013956 ")
 ;;2655
 ;;21,"58016013960 ")
 ;;2656
 ;;21,"58016013973 ")
 ;;2657
 ;;21,"58016013989 ")
 ;;2658
 ;;21,"58016014600 ")
 ;;2659
 ;;21,"58016014602 ")
 ;;2660
 ;;21,"58016014603 ")
 ;;2661
 ;;21,"58016014610 ")
 ;;2662
 ;;21,"58016014612 ")
 ;;2663
 ;;21,"58016014616 ")
 ;;2664
 ;;21,"58016014620 ")
 ;;2665
 ;;21,"58016014621 ")
 ;;2666
 ;;21,"58016014624 ")
 ;;2667
 ;;21,"58016014628 ")
 ;;2668
 ;;21,"58016014630 ")
 ;;2669
 ;;21,"58016014640 ")
 ;;2670
 ;;21,"58016014660 ")
 ;;2671
 ;;21,"58016014673 ")
 ;;2672
 ;;21,"58016014689 ")
 ;;2673
 ;;21,"58016014690 ")
 ;;2674
 ;;21,"58016014700 ")
 ;;2675
 ;;21,"58016014701 ")
 ;;2676
 ;;21,"58016014702 ")
 ;;2677
 ;;21,"58016014703 ")
 ;;2678
 ;;21,"58016014704 ")
 ;;2679
 ;;21,"58016014705 ")
 ;;2680
 ;;21,"58016014706 ")
 ;;2681
 ;;21,"58016014707 ")
 ;;2682
 ;;21,"58016014708 ")
 ;;2683
 ;;21,"58016014709 ")
 ;;2684
 ;;21,"58016014710 ")
 ;;2685
 ;;21,"58016014712 ")
 ;;2686
 ;;21,"58016014714 ")
 ;;2687
 ;;21,"58016014715 ")
 ;;2688
 ;;21,"58016014716 ")
 ;;2689
 ;;21,"58016014718 ")
 ;;2690
 ;;21,"58016014720 ")
 ;;2691
 ;;21,"58016014721 ")
 ;;2692
 ;;21,"58016014724 ")
 ;;2693
 ;;21,"58016014725 ")
 ;;2694
 ;;21,"58016014726 ")
 ;;2695
 ;;21,"58016014727 ")
 ;;2696
 ;;21,"58016014728 ")
 ;;2697
 ;;21,"58016014730 ")
 ;;2698
 ;;21,"58016014732 ")
 ;;2699
 ;;21,"58016014735 ")
 ;;2700
 ;;21,"58016014736 ")
 ;;2701
 ;;21,"58016014740 ")
 ;;2702
 ;;21,"58016014742 ")
 ;;2703
 ;;21,"58016014744 ")
 ;;2704
 ;;21,"58016014745 ")
 ;;2705
 ;;21,"58016014746 ")
 ;;2706
 ;;21,"58016014750 ")
 ;;2707
 ;;21,"58016014756 ")
 ;;2708
 ;;21,"58016014760 ")
 ;;2709
 ;;21,"58016014767 ")
 ;;2710
 ;;21,"58016014769 ")
 ;;2711
 ;;21,"58016014770 ")
 ;;2712
 ;;21,"58016014771 ")
 ;;2713
 ;;21,"58016014772 ")
 ;;2714
 ;;21,"58016014773 ")
 ;;2715
 ;;21,"58016014775 ")
 ;;2716
 ;;21,"58016014776 ")
 ;;2717
 ;;21,"58016014777 ")
 ;;2718
 ;;21,"58016014779 ")
 ;;2719
 ;;21,"58016014780 ")
 ;;2720
 ;;21,"58016014781 ")
 ;;2721
 ;;21,"58016014782 ")
 ;;2722
 ;;21,"58016014783 ")
 ;;2723
 ;;21,"58016014784 ")
 ;;2724
 ;;21,"58016014787 ")
 ;;2725
 ;;21,"58016014789 ")
 ;;2726
 ;;21,"58016014790 ")
 ;;2727
 ;;21,"58016014791 ")
 ;;2728
 ;;21,"58016014792 ")
 ;;2729
 ;;21,"58016014793 ")
 ;;2730
 ;;21,"58016014796 ")
 ;;2731
 ;;21,"58016014798 ")
 ;;2734
 ;;21,"58016014799 ")
 ;;2735
 ;;21,"58016014800 ")
 ;;2736
 ;;21,"58016014808 ")
 ;;2737
 ;;21,"58016014809 ")
 ;;2738
 ;;21,"58016014810 ")
 ;;2739
 ;;21,"58016014812 ")
 ;;2740
 ;;21,"58016014814 ")
 ;;2741
 ;;21,"58016014815 ")
 ;;2742
 ;;21,"58016014820 ")
 ;;2743
 ;;21,"58016014824 ")
 ;;2744
 ;;21,"58016014828 ")
 ;;2745
 ;;21,"58016014830 ")
 ;;2746
 ;;21,"58016014840 ")
 ;;2747
 ;;21,"58016014850 ")
 ;;2748
 ;;21,"58016014900 ")
 ;;2749
 ;;21,"58016014907 ")
 ;;2750
 ;;21,"58016014910 ")
 ;;2751
 ;;21,"58016014920 ")
 ;;2752
 ;;21,"58016014921 ")
 ;;2753
 ;;21,"58016014924 ")
 ;;2754
 ;;21,"58016014925 ")
 ;;2755
 ;;21,"58016014928 ")
 ;;2756
 ;;21,"58016014930 ")
 ;;2757
 ;;21,"58016014940 ")
 ;;2758
 ;;21,"58016015600 ")
 ;;2759
 ;;21,"58016015602 ")
 ;;2760
 ;;21,"58016015603 ")
 ;;2761
 ;;21,"58016015606 ")
 ;;2762
 ;;21,"58016015607 ")
 ;;2763
 ;;21,"58016015610 ")
 ;;2764
 ;;21,"58016015612 ")
 ;;2765
 ;;21,"58016015614 ")
 ;;2766
 ;;21,"58016015615 ")
 ;;2767
 ;;21,"58016015616 ")
 ;;2768
 ;;21,"58016015620 ")
 ;;2769
 ;;21,"58016015621 ")
 ;;2770
 ;;21,"58016015624 ")
 ;;2771
 ;;21,"58016015628 ")
 ;;2772
 ;;21,"58016015630 ")
 ;;2773
 ;;21,"58016015640 ")
 ;;2774
 ;;21,"58016015660 ")
 ;;2775
 ;;21,"58016015673 ")
 ;;2776
 ;;21,"58016015689 ")
 ;;2777
 ;;21,"58016016100 ")
 ;;2778
 ;;21,"58016016110 ")
 ;;2779
 ;;21,"58016016112 ")
 ;;2780
 ;;21,"58016016114 ")
 ;;2781
 ;;21,"58016016115 ")
 ;;2782
 ;;21,"58016016116 ")
 ;;2783
 ;;21,"58016016118 ")
 ;;2784
 ;;21,"58016016120 ")
 ;;2785
 ;;21,"58016016121 ")
 ;;2786
 ;;21,"58016016124 ")
 ;;2787
 ;;21,"58016016128 ")
 ;;2788
 ;;21,"58016016130 ")
 ;;2789
 ;;21,"58016016140 ")
 ;;2790
 ;;21,"58016016150 ")
 ;;2791
 ;;21,"58016016160 ")
 ;;2792
 ;;21,"58016017100 ")
 ;;2793
 ;;21,"58016017120 ")
 ;;2794
 ;;21,"58016017130 ")
 ;;2795
 ;;21,"58016020400 ")
 ;;2796
 ;;21,"58016020420 ")
 ;;2797
 ;;21,"58016020430 ")
 ;;2798
 ;;21,"58016020460 ")
 ;;2799
 ;;21,"58016020490 ")
 ;;2800
 ;;21,"58016028415 ")
 ;;2801
 ;;21,"58016028420 ")
 ;;2802
 ;;21,"58016028430 ")
 ;;2803
 ;;21,"58016028450 ")
 ;;2804
 ;;21,"58016029900 ")
 ;;2805
 ;;21,"58016029930 ")
 ;;2806
 ;;21,"58016029960 ")
 ;;2807
 ;;21,"58016029990 ")
 ;;2808
 ;;21,"58016033900 ")
 ;;2809
 ;;21,"58016033901 ")
 ;;2810
 ;;21,"58016033902 ")
 ;;2811
 ;;21,"58016033903 ")
 ;;2812
 ;;21,"58016033904 ")
 ;;2813
 ;;21,"58016033905 ")
 ;;2814
 ;;21,"58016033906 ")
 ;;2815
 ;;21,"58016033907 ")
 ;;2816
 ;;21,"58016033908 ")
 ;;2817
 ;;21,"58016033909 ")
 ;;2818
 ;;21,"58016033910 ")
 ;;2819
 ;;21,"58016033912 ")
 ;;2820
 ;;21,"58016033914 ")
 ;;2821
 ;;21,"58016033915 ")
 ;;2822
 ;;21,"58016033916 ")
 ;;2823
 ;;21,"58016033918 ")
 ;;2824
 ;;21,"58016033920 ")
 ;;2825
 ;;21,"58016033921 ")
 ;;2826
 ;;21,"58016033924 ")
 ;;2827
 ;;21,"58016033925 ")
 ;;2828
 ;;21,"58016033926 ")
 ;;2829
 ;;21,"58016033927 ")
 ;;2830
 ;;21,"58016033928 ")
 ;;2831
 ;;21,"58016033930 ")
 ;;2832
 ;;21,"58016033932 ")
 ;;2833
 ;;21,"58016033935 ")
 ;;2834
 ;;21,"58016033936 ")
 ;;2835
 ;;21,"58016033940 ")
 ;;2836
 ;;21,"58016033942 ")
 ;;2837
 ;;21,"58016033944 ")
 ;;2838
 ;;21,"58016033945 ")
 ;;2839
 ;;21,"58016033948 ")
 ;;2840
 ;;21,"58016033950 ")
 ;;2841
 ;;21,"58016033956 ")
 ;;2842
 ;;21,"58016033960 ")
 ;;2843
 ;;21,"58016033967 ")
 ;;2844
 ;;21,"58016033969 ")
 ;;2845
 ;;21,"58016033970 ")
 ;;2846
 ;;21,"58016033971 ")
 ;;2847
 ;;21,"58016033972 ")
 ;;2848
 ;;21,"58016033973 ")
 ;;2849
 ;;21,"58016033975 ")
 ;;2850
 ;;21,"58016033976 ")
 ;;2851
 ;;21,"58016033977 ")
 ;;2852
 ;;21,"58016033979 ")
 ;;2853
 ;;21,"58016033980 ")
 ;;2854
 ;;21,"58016033981 ")
 ;;2855
 ;;21,"58016033982 ")
 ;;2856
 ;;21,"58016033983 ")
 ;;2857
 ;;21,"58016033984 ")
 ;;2858
 ;;21,"58016033987 ")
 ;;2859
 ;;21,"58016033989 ")
 ;;2860
 ;;21,"58016033990 ")
 ;;2861
 ;;21,"58016033991 ")
 ;;2862
 ;;21,"58016033992 ")
 ;;2863
 ;;21,"58016033993 ")
 ;;2864
 ;;21,"58016033996 ")
 ;;2865
 ;;21,"58016033997 ")
 ;;2866
 ;;21,"58016033998 ")
 ;;2867
 ;;21,"58016033999 ")
 ;;2868
 ;;21,"58016045300 ")
 ;;2869
 ;;21,"58016045301 ")
 ;;2870
 ;;21,"58016045302 ")
 ;;2871
 ;;21,"58016045303 ")
 ;;2872
 ;;21,"58016045304 ")
 ;;2873
 ;;21,"58016045305 ")
 ;;2874
 ;;21,"58016045306 ")
 ;;2875
 ;;21,"58016045307 ")
 ;;2876
 ;;21,"58016045308 ")
 ;;2877
 ;;21,"58016045309 ")
 ;;2878
 ;;21,"58016045310 ")
 ;;2879
 ;;21,"58016045312 ")
 ;;2880
 ;;21,"58016045314 ")
 ;;2881
 ;;21,"58016045315 ")
 ;;2882
 ;;21,"58016045316 ")
 ;;2883
 ;;21,"58016045318 ")
 ;;2884
 ;;21,"58016045320 ")
 ;;2885
 ;;21,"58016045321 ")
 ;;2886
 ;;21,"58016045324 ")
 ;;2887
 ;;21,"58016045325 ")
 ;;2888
 ;;21,"58016045326 ")
 ;;2889
 ;;21,"58016045327 ")
 ;;2890
 ;;21,"58016045328 ")
 ;;2891
 ;;21,"58016045330 ")
 ;;2892
 ;;21,"58016045332 ")
 ;;2893
 ;;21,"58016045335 ")
 ;;2894
 ;;21,"58016045336 ")
 ;;2895
 ;;21,"58016045340 ")
 ;;2896
 ;;21,"58016045342 ")
 ;;2897
 ;;21,"58016045344 ")
 ;;2898
 ;;21,"58016045345 ")
 ;;2899
 ;;21,"58016045348 ")
 ;;2900
 ;;21,"58016045350 ")
 ;;2901
 ;;21,"58016045356 ")
 ;;2902
 ;;21,"58016045360 ")
 ;;2903
 ;;21,"58016045367 ")
 ;;2904
 ;;21,"58016045369 ")
 ;;2905
 ;;21,"58016045370 ")
 ;;2906
 ;;21,"58016045371 ")
 ;;2907
 ;;21,"58016045372 ")
 ;;2908
 ;;21,"58016045373 ")
 ;;2909
 ;;21,"58016045375 ")
 ;;2910
 ;;21,"58016045376 ")
 ;;2911
 ;;21,"58016045377 ")
 ;;2912
 ;;21,"58016045379 ")
 ;;2913
 ;;21,"58016045380 ")
 ;;2914
 ;;21,"58016045381 ")
 ;;2915
 ;;21,"58016045382 ")
 ;;2916