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

BGP31P8.m

Go to the documentation of this file.
BGP31P8 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 29, 2012;
 ;;13.0;IHS CLINICAL REPORTING;;NOV 20, 2012;Build 81
 ;
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,"58809-0717-01 ")
 ;;2725
 ;;21,"58864-0017-60 ")
 ;;2726
 ;;21,"58864-0022-15 ")
 ;;2727
 ;;21,"58864-0022-30 ")
 ;;2728
 ;;21,"58864-0022-60 ")
 ;;2729
 ;;21,"58864-0022-90 ")
 ;;2730
 ;;21,"58864-0023-30 ")
 ;;2731
 ;;21,"58864-0023-60 ")
 ;;2732
 ;;21,"58864-0023-90 ")
 ;;2733
 ;;21,"58864-0024-30 ")
 ;;2734
 ;;21,"58864-0185-30 ")
 ;;2735
 ;;21,"58864-0186-30 ")
 ;;2736
 ;;21,"58864-0292-30 ")
 ;;2737
 ;;21,"58864-0700-15 ")
 ;;2738
 ;;21,"58864-0734-20 ")
 ;;2739
 ;;21,"58864-0757-30 ")
 ;;2740
 ;;21,"58864-0857-30 ")
 ;;2741
 ;;21,"58864-0891-06 ")
 ;;2742
 ;;21,"59011-0255-30 ")
 ;;2743
 ;;21,"59011-0256-30 ")
 ;;2744
 ;;21,"59417-0401-71 ")
 ;;2745
 ;;21,"59417-0402-71 ")
 ;;2746
 ;;21,"59417-0404-71 ")
 ;;2747
 ;;21,"59441-0153-01 ")
 ;;2748
 ;;21,"59630-0074-10 ")
 ;;2749
 ;;21,"59630-0170-10 ")
 ;;2750
 ;;21,"59630-0170-11 ")
 ;;2751
 ;;21,"59702-0650-01 ")
 ;;2752
 ;;21,"59702-0661-01 ")
 ;;2753
 ;;21,"59743-0004-01 ")
 ;;2754
 ;;21,"59743-0027-10 ")
 ;;2755
 ;;21,"59762-2630-01 ")
 ;;2756
 ;;21,"59762-2630-04 ")
 ;;2757
 ;;21,"59762-2631-01 ")
 ;;2758
 ;;21,"59762-2631-04 ")
 ;;2759
 ;;21,"60258-0513-03 ")
 ;;2760
 ;;21,"60258-0804-01 ")
 ;;2761
 ;;21,"60346-0027-12 ")
 ;;2762
 ;;21,"60346-0027-30 ")
 ;;2763
 ;;21,"60346-0027-60 ")
 ;;2764
 ;;21,"60346-0027-90 ")
 ;;2765
 ;;21,"60346-0042-12 ")
 ;;2766
 ;;21,"60346-0042-15 ")
 ;;2767
 ;;21,"60346-0042-20 ")
 ;;2768
 ;;21,"60346-0042-30 ")
 ;;2769
 ;;21,"60346-0042-40 ")
 ;;2770
 ;;21,"60346-0042-44 ")
 ;;2771
 ;;21,"60346-0042-90 ")
 ;;2772
 ;;21,"60346-0224-90 ")
 ;;2773
 ;;21,"60346-0264-04 ")
 ;;2774
 ;;21,"60346-0264-88 ")
 ;;2775
 ;;21,"60346-0269-30 ")
 ;;2776
 ;;21,"60346-0354-15 ")
 ;;2777
 ;;21,"60346-0354-30 ")
 ;;2778
 ;;21,"60346-0354-60 ")
 ;;2779
 ;;21,"60346-0460-20 ")
 ;;2780
 ;;21,"60346-0460-30 ")
 ;;2781
 ;;21,"60346-0486-30 ")
 ;;2782
 ;;21,"60346-0486-90 ")
 ;;2783
 ;;21,"60346-0553-10 ")
 ;;2784
 ;;21,"60346-0553-12 ")
 ;;2785
 ;;21,"60346-0553-30 ")
 ;;2786
 ;;21,"60346-0553-90 ")
 ;;2787
 ;;21,"60346-0619-10 ")
 ;;2788
 ;;21,"60346-0619-20 ")
 ;;2789
 ;;21,"60346-0619-28 ")
 ;;2790
 ;;21,"60346-0619-30 ")
 ;;2791
 ;;21,"60346-0619-40 ")
 ;;2792
 ;;21,"60346-0619-90 ")
 ;;2793
 ;;21,"60346-0673-30 ")
 ;;2794
 ;;21,"60346-0673-50 ")
 ;;2795
 ;;21,"60346-0673-60 ")
 ;;2796
 ;;21,"60346-0673-90 ")
 ;;2797
 ;;21,"60346-0703-12 ")
 ;;2798
 ;;21,"60346-0703-15 ")
 ;;2799
 ;;21,"60346-0703-20 ")
 ;;2800
 ;;21,"60346-0703-30 ")
 ;;2801
 ;;21,"60346-0703-50 ")
 ;;2802
 ;;21,"60346-0709-30 ")
 ;;2803
 ;;21,"60346-0709-90 ")
 ;;2804
 ;;21,"60346-0718-20 ")
 ;;2805
 ;;21,"60346-0718-30 ")
 ;;2806
 ;;21,"60346-0726-15 ")
 ;;2807
 ;;21,"60346-0785-30 ")
 ;;2808
 ;;21,"60346-0793-30 ")
 ;;2809
 ;;21,"60346-0838-30 ")
 ;;2810
 ;;21,"60346-0839-30 ")
 ;;2811
 ;;21,"60346-0857-08 ")
 ;;2812
 ;;21,"60346-0857-14 ")
 ;;2813
 ;;21,"60346-0857-20 ")
 ;;2814
 ;;21,"60346-0864-30 ")
 ;;2815
 ;;21,"60346-0867-30 ")
 ;;2816
 ;;21,"60346-0915-20 ")
 ;;2817
 ;;21,"60346-0915-30 ")
 ;;2818
 ;;21,"60346-0921-30 ")
 ;;2819
 ;;21,"60346-0923-30 ")
 ;;2820
 ;;21,"60346-0949-06 ")
 ;;2821
 ;;21,"60346-0949-30 ")
 ;;2822
 ;;21,"60346-0957-20 ")
 ;;2823
 ;;21,"60429-0016-12 ")
 ;;2824
 ;;21,"60429-0016-18 ")
 ;;2825
 ;;21,"60429-0016-30 ")
 ;;2826
 ;;21,"60429-0016-60 ")
 ;;2827
 ;;21,"60429-0016-90 ")
 ;;2828
 ;;21,"60429-0017-30 ")
 ;;2829
 ;;21,"60429-0095-01 ")
 ;;2830
 ;;21,"60429-0096-01 ")
 ;;2831
 ;;21,"60429-0097-01 ")
 ;;2832
 ;;21,"60429-0252-01 ")
 ;;2833
 ;;21,"60429-0252-05 ")
 ;;2834
 ;;21,"60429-0253-01 ")
 ;;2835
 ;;21,"60429-0253-05 ")
 ;;2836
 ;;21,"60429-0287-30 ")
 ;;2837
 ;;21,"60429-0287-90 ")
 ;;2838
 ;;21,"60429-0288-30 ")
 ;;2839
 ;;21,"60429-0288-90 ")
 ;;2840
 ;;21,"60429-0289-30 ")
 ;;2841
 ;;21,"60429-0289-90 ")
 ;;2842
 ;;21,"60429-0530-01 ")
 ;;2843
 ;;21,"60429-0530-05 ")
 ;;2844
 ;;21,"60429-0530-20 ")
 ;;2845
 ;;21,"60429-0530-30 ")
 ;;2846
 ;;21,"60429-0531-01 ")
 ;;2847
 ;;21,"60429-0531-05 ")
 ;;2848
 ;;21,"60429-0531-15 ")
 ;;2849
 ;;21,"60429-0531-20 ")
 ;;2850
 ;;21,"60429-0531-30 ")
 ;;2851
 ;;21,"60429-0531-60 ")
 ;;2852
 ;;21,"60429-0531-90 ")
 ;;2853
 ;;21,"60432-0009-04 ")
 ;;2854
 ;;21,"60432-0009-16 ")
 ;;2855
 ;;21,"60432-0009-28 ")
 ;;2856
 ;;21,"60432-0533-16 ")
 ;;2857
 ;;21,"60432-0651-04 ")
 ;;2858
 ;;21,"60505-2604-00 ")
 ;;2859
 ;;21,"60505-2604-01 ")
 ;;2860
 ;;21,"60505-2604-08 ")
 ;;2861
 ;;21,"60505-2605-00 ")
 ;;2862
 ;;21,"60505-2605-01 ")
 ;;2863
 ;;21,"60505-2605-08 ")
 ;;2864
 ;;21,"60760-0116-30 ")
 ;;2865
 ;;21,"60760-0191-30 ")
 ;;2866
 ;;21,"60760-0193-30 ")
 ;;2867
 ;;21,"60760-0211-30 ")
 ;;2868
 ;;21,"60760-0212-15 ")
 ;;2869
 ;;21,"60760-0212-30 ")
 ;;2870
 ;;21,"60760-0214-30 ")
 ;;2871
 ;;21,"60760-0221-30 ")
 ;;2872
 ;;21,"60760-0288-30 ")
 ;;2873
 ;;21,"60760-0367-30 ")
 ;;2874
 ;;21,"60760-0367-60 ")
 ;;2875
 ;;21,"60760-0515-30 ")
 ;;2876
 ;;21,"60760-0550-30 ")
 ;;2877
 ;;21,"60760-0551-30 ")
 ;;2878
 ;;21,"60760-0754-30 ")
 ;;2879
 ;;21,"60793-0145-01 ")
 ;;2880
 ;;21,"60793-0146-01 ")
 ;;2881
 ;;21,"60793-0146-56 ")
 ;;2882
 ;;21,"60951-0675-70 ")
 ;;2883
 ;;21,"61442-0231-01 ")
 ;;2884
 ;;21,"61442-0232-01 ")
 ;;2885
 ;;21,"61451-6005-07 ")
 ;;2886
 ;;21,"61451-6010-07 ")
 ;;2887
 ;;21,"61808-0110-01 ")
 ;;2888
 ;;21,"61808-0110-05 ")
 ;;2889
 ;;21,"62022-0070-01 ")
 ;;2890
 ;;21,"62022-0073-01 ")
 ;;2891
 ;;21,"62584-0687-01 ")
 ;;2892
 ;;21,"62584-0687-33 ")
 ;;2893
 ;;21,"62584-0688-01 ")
 ;;2894
 ;;21,"62584-0688-33 ")
 ;;2895
 ;;21,"62584-0750-01 ")
 ;;2896
 ;;21,"62584-0751-01 ")
 ;;2897
 ;;21,"62682-7032-01 ")
 ;;2898
 ;;21,"63304-0159-01 ")
 ;;2899
 ;;21,"63304-0159-05 ")
 ;;2900
 ;;21,"63304-0160-01 ")
 ;;2901
 ;;21,"63304-0160-05 ")
 ;;2902
 ;;21,"63304-0303-10 ")
 ;;2903
 ;;21,"63304-0303-25 ")
 ;;2904
 ;;21,"63304-0679-01 ")
 ;;2905
 ;;21,"63304-0679-80 ")
 ;;2906
 ;;21,"63304-0680-01 ")
 ;;2907
 ;;21,"63304-0741-01 ")
 ;;2908
 ;;21,"63304-0742-01 ")
 ;;2909
 ;;21,"63304-0742-10 ")
 ;;2910
 ;;21,"63304-0743-01 ")
 ;;2911
 ;;21,"63304-0743-10 ")
 ;;2912
 ;;21,"63304-0744-01 ")
 ;;2913
 ;;21,"63402-0190-10 ")
 ;;2914
 ;;21,"63402-0190-30 ")
 ;;2915
 ;;21,"63402-0191-09 ")
 ;;2916
 ;;21,"63402-0191-10 ")
 ;;2917
 ;;21,"63402-0193-09 ")
 ;;2918
 ;;21,"63402-0193-10 ")
 ;;2919
 ;;21,"63629-1256-01 ")
 ;;2920
 ;;21,"63629-1256-02 ")
 ;;2921
 ;;21,"63629-1256-03 ")
 ;;2922
 ;;21,"63629-1256-04 ")
 ;;2923
 ;;21,"63629-1256-05 ")
 ;;2924
 ;;21,"63629-1356-01 ")
 ;;2925
 ;;21,"63629-1356-02 ")
 ;;2926
 ;;21,"63629-1368-01 ")
 ;;2927
 ;;21,"63629-1368-02 ")
 ;;2928
 ;;21,"63629-1368-03 ")
 ;;2929
 ;;21,"63629-1368-04 ")
 ;;2930
 ;;21,"63629-1368-05 ")
 ;;2931
 ;;21,"63629-1368-06 ")
 ;;2932
 ;;21,"63629-1368-07 ")
 ;;2933
 ;;21,"63629-1368-08 ")
 ;;2934
 ;;21,"63629-1369-01 ")
 ;;2935
 ;;21,"63629-1369-02 ")
 ;;2936
 ;;21,"63629-1369-03 ")
 ;;2937
 ;;21,"63629-1369-04 ")
 ;;2938
 ;;21,"63629-1369-05 ")
 ;;2939
 ;;21,"63629-1369-06 ")
 ;;2940
 ;;21,"63629-1369-07 ")
 ;;2941
 ;;21,"63629-1369-08 ")
 ;;2942
 ;;21,"63629-1369-09 ")
 ;;2943
 ;;21,"63629-1369-10 ")
 ;;2944
 ;;21,"63629-1370-01 ")
 ;;2945
 ;;21,"63629-1370-02 ")
 ;;2946
 ;;21,"63629-1370-03 ")
 ;;2947
 ;;21,"63629-1370-04 ")
 ;;2948
 ;;21,"63629-1510-01 ")
 ;;2949
 ;;21,"63629-1510-02 ")
 ;;2950
 ;;21,"63629-1510-03 ")
 ;;2951
 ;;21,"63629-1719-01 ")
 ;;2952
 ;;21,"63629-1719-02 ")
 ;;2953
 ;;21,"63629-1719-03 ")
 ;;2954
 ;;21,"63629-1774-01 ")
 ;;2955
 ;;21,"63629-1774-02 ")
 ;;2956
 ;;21,"63629-1774-03 ")
 ;;2957
 ;;21,"63629-1774-04 ")
 ;;2958
 ;;21,"63629-1774-05 ")
 ;;2959
 ;;21,"63629-1774-06 ")
 ;;2960
 ;;21,"63629-1774-07 ")
 ;;2961
 ;;21,"63629-1774-08 ")
 ;;2962
 ;;21,"63629-2756-01 ")
 ;;2963
 ;;21,"63629-2951-01 ")
 ;;2964
 ;;21,"63629-2951-02 ")
 ;;2965
 ;;21,"63629-2951-03 ")
 ;;2966
 ;;21,"63629-2951-04 ")
 ;;2967
 ;;21,"63629-2952-01 ")
 ;;2968
 ;;21,"63629-2952-02 ")
 ;;2969
 ;;21,"63629-2952-03 ")
 ;;2970
 ;;21,"63629-3141-01 ")
 ;;2971
 ;;21,"63629-3141-02 ")
 ;;2972
 ;;21,"63629-3141-03 ")
 ;;2973
 ;;21,"63629-3141-04 ")
 ;;2974
 ;;21,"63629-3141-05 ")
 ;;2975
 ;;21,"63629-3141-06 ")
 ;;2976
 ;;21,"63629-3142-01 ")
 ;;2977
 ;;21,"63629-3142-02 ")
 ;;2978
 ;;21,"63629-3142-03 ")
 ;;2979
 ;;21,"63629-3152-01 ")
 ;;2980
 ;;21,"63629-3152-02 ")
 ;;2981
 ;;21,"63629-3199-01 ")
 ;;2982
 ;;21,"63629-3199-02 ")
 ;;2983
 ;;21,"63629-3199-03 ")
 ;;2984
 ;;21,"63629-3199-04 ")
 ;;2985
 ;;21,"63629-3221-01 ")
 ;;2986
 ;;21,"63629-3337-01 ")
 ;;2987
 ;;21,"63629-3337-02 ")
 ;;2988
 ;;21,"63629-3337-03 ")
 ;;2989
 ;;21,"63629-3337-04 ")
 ;;2990
 ;;21,"63629-3362-01 ")
 ;;2991
 ;;21,"63629-3362-02 ")
 ;;2992
 ;;21,"63629-3362-03 ")
 ;;2993
 ;;21,"63629-3362-04 ")
 ;;2994
 ;;21,"63629-3405-01 ")
 ;;2995
 ;;21,"63629-3405-02 ")
 ;;2996
 ;;21,"63629-3405-03 ")
 ;;2997
 ;;21,"63629-3405-04 ")
 ;;2998
 ;;21,"63629-3548-01 ")
 ;;2999
 ;;21,"63629-3548-02 ")
 ;;3000
 ;;21,"63629-3548-03 ")
 ;;3001
 ;;21,"63629-3548-04 ")
 ;;3002
 ;;21,"63629-3548-05 ")
 ;;3003
 ;;21,"63629-3548-06 ")
 ;;3004
 ;;21,"63629-3548-07 ")
 ;;3005
 ;;21,"63629-3548-08 ")
 ;;3006
 ;;21,"63629-3549-01 ")
 ;;3007
 ;;21,"63629-3549-02 ")
 ;;3008
 ;;21,"63629-3549-03 ")
 ;;3009
 ;;21,"63629-3549-04 ")
 ;;3010
 ;;21,"63629-3549-05 ")
 ;;3011
 ;;21,"63629-3549-06 ")
 ;;3012
 ;;21,"63629-3597-01 ")
 ;;3013
 ;;21,"63629-3597-02 ")
 ;;3014
 ;;21,"63629-3786-01 ")
 ;;3015
 ;;21,"63629-3786-02 ")
 ;;3016
 ;;21,"63629-3906-01 ")
 ;;3017
 ;;21,"63629-3906-02 ")
 ;;3018
 ;;21,"63629-3906-03 ")
 ;;3019
 ;;21,"63629-4026-01 ")
 ;;3020
 ;;21,"63629-4123-01 ")
 ;;3021
 ;;21,"63629-4123-02 ")
 ;;3022
 ;;21,"63629-4304-01 ")
 ;;3023
 ;;21,"63629-4597-01 ")
 ;;3024
 ;;21,"63672-3005-01 ")
 ;;3025
 ;;21,"63672-3005-02 ")
 ;;3026
 ;;21,"63672-3010-01 ")
 ;;3027
 ;;21,"63672-3010-02 ")
 ;;3028
 ;;21,"63739-0093-02 ")
 ;;3029
 ;;21,"63739-0094-02 ")
 ;;3030
 ;;21,"63739-0200-01 ")
 ;;3031
 ;;21,"63739-0200-03 ")
 ;;3032
 ;;21,"63739-0200-10 ")
 ;;3033
 ;;21,"63739-0200-15 ")
 ;;3034
 ;;21,"63739-0201-01 ")
 ;;3035
 ;;21,"63739-0201-03 ")
 ;;3036
 ;;21,"63739-0201-10 ")
 ;;3037
 ;;21,"63739-0201-15 ")
 ;;3038
 ;;21,"63739-0429-10 ")
 ;;3039
 ;;21,"63739-0430-10 ")
 ;;3040
 ;;21,"63739-0526-10 ")
 ;;3041
 ;;21,"63874-0219-01 ")
 ;;3042
 ;;21,"63874-0219-20 ")
 ;;3043
 ;;21,"63874-0219-25 ")
 ;;3044
 ;;21,"63874-0219-30 ")
 ;;3045
 ;;21,"63874-0268-01 ")
 ;;3046
 ;;21,"63874-0268-02 ")
 ;;3047
 ;;21,"63874-0268-10 ")
 ;;3048
 ;;21,"63874-0268-12 ")
 ;;3049
 ;;21,"63874-0268-14 ")
 ;;3050
 ;;21,"63874-0268-15 ")
 ;;3051
 ;;21,"63874-0268-20 ")
 ;;3052
 ;;21,"63874-0268-21 ")
 ;;3053
 ;;21,"63874-0268-24 ")
 ;;3054
 ;;21,"63874-0268-25 ")
 ;;3055
 ;;21,"63874-0268-28 ")
 ;;3056
 ;;21,"63874-0268-30 ")
 ;;3057
 ;;21,"63874-0268-40 ")
 ;;3058
 ;;21,"63874-0268-50 ")
 ;;3059
 ;;21,"63874-0268-60 ")
 ;;3060
 ;;21,"63874-0280-01 ")
 ;;3061
 ;;21,"63874-0280-04 ")
 ;;3062
 ;;21,"63874-0280-06 ")
 ;;3063
 ;;21,"63874-0280-10 ")
 ;;3064
 ;;21,"63874-0280-15 ")
 ;;3065
 ;;21,"63874-0280-20 ")
 ;;3066
 ;;21,"63874-0280-30 ")
 ;;3067
 ;;21,"63874-0280-40 ")
 ;;3068
 ;;21,"63874-0280-60 ")
 ;;3069
 ;;21,"63874-0280-90 ")
 ;;3070
 ;;21,"63874-0296-01 ")
 ;;3071
 ;;21,"63874-0296-04 ")
 ;;3072
 ;;21,"63874-0296-15 ")
 ;;3073
 ;;21,"63874-0296-20 ")
 ;;3074
 ;;21,"63874-0296-30 ")
 ;;3075
 ;;21,"63874-0296-40 ")
 ;;3076
 ;;21,"63874-0296-60 ")
 ;;3077
 ;;21,"63874-0296-90 ")
 ;;3078
 ;;21,"63874-0309-01 ")
 ;;3079
 ;;21,"63874-0309-02 ")
 ;;3080
 ;;21,"63874-0309-04 ")
 ;;3081
 ;;21,"63874-0309-15 ")
 ;;3082
 ;;21,"63874-0309-20 ")
 ;;3083
 ;;21,"63874-0309-30 ")
 ;;3084
 ;;21,"63874-0309-40 ")
 ;;3085
 ;;21,"63874-0309-42 ")
 ;;3086
 ;;21,"63874-0309-50 ")
 ;;3087
 ;;21,"63874-0309-60 ")
 ;;3088
 ;;21,"63874-0309-72 ")
 ;;3089
 ;;21,"63874-0309-74 ")
 ;;3090
 ;;21,"63874-0309-77 ")
 ;;3091
 ;;21,"63874-0311-01 ")
 ;;3092
 ;;21,"63874-0311-02 ")
 ;;3093
 ;;21,"63874-0311-04 ")
 ;;3094
 ;;21,"63874-0311-10 ")
 ;;3095
 ;;21,"63874-0311-12 ")
 ;;3096
 ;;21,"63874-0311-15 ")
 ;;3097
 ;;21,"63874-0311-20 ")
 ;;3098
 ;;21,"63874-0311-24 ")
 ;;3099
 ;;21,"63874-0311-30 ")
 ;;3100
 ;;21,"63874-0311-40 ")
 ;;3101
 ;;21,"63874-0311-50 ")
 ;;3102
 ;;21,"63874-0311-60 ")
 ;;3103
 ;;21,"63874-0311-72 ")
 ;;3104
 ;;21,"63874-0311-74 ")
 ;;3105
 ;;21,"63874-0311-77 ")
 ;;3106
 ;;21,"63874-0311-90 ")
 ;;3107
 ;;21,"63874-0359-01 ")
 ;;3108
 ;;21,"63874-0359-02 ")
 ;;3109
 ;;21,"63874-0359-04 ")
 ;;3110