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

BGP47S8.m

Go to the documentation of this file.
BGP47S8 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 16, 2014;
 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
 ;
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,"66267-0064-30 ")
 ;;2725
 ;;21,"66267-0064-40 ")
 ;;2726
 ;;21,"66267-0064-45 ")
 ;;2727
 ;;21,"66267-0064-56 ")
 ;;2728
 ;;21,"66267-0064-60 ")
 ;;2729
 ;;21,"66267-0064-90 ")
 ;;2730
 ;;21,"66267-0064-91 ")
 ;;2731
 ;;21,"66267-0145-20 ")
 ;;2732
 ;;21,"66267-0145-30 ")
 ;;2733
 ;;21,"66267-0145-40 ")
 ;;2734
 ;;21,"66267-0145-60 ")
 ;;2735
 ;;21,"66267-0145-90 ")
 ;;2736
 ;;21,"66267-0146-12 ")
 ;;2737
 ;;21,"66267-0146-20 ")
 ;;2738
 ;;21,"66267-0146-30 ")
 ;;2739
 ;;21,"66267-0146-40 ")
 ;;2740
 ;;21,"66267-0146-60 ")
 ;;2741
 ;;21,"66267-0146-84 ")
 ;;2742
 ;;21,"66267-0146-90 ")
 ;;2743
 ;;21,"66267-0146-91 ")
 ;;2744
 ;;21,"66267-0157-14 ")
 ;;2745
 ;;21,"66267-0157-20 ")
 ;;2746
 ;;21,"66267-0158-14 ")
 ;;2747
 ;;21,"66267-0158-15 ")
 ;;2748
 ;;21,"66267-0158-20 ")
 ;;2749
 ;;21,"66267-0158-30 ")
 ;;2750
 ;;21,"66267-0158-60 ")
 ;;2751
 ;;21,"66267-0158-90 ")
 ;;2752
 ;;21,"66267-0193-07 ")
 ;;2753
 ;;21,"66267-0193-10 ")
 ;;2754
 ;;21,"66267-0193-14 ")
 ;;2755
 ;;21,"66267-0193-20 ")
 ;;2756
 ;;21,"66267-0193-28 ")
 ;;2757
 ;;21,"66267-0193-30 ")
 ;;2758
 ;;21,"66267-0193-40 ")
 ;;2759
 ;;21,"66267-0611-00 ")
 ;;2760
 ;;21,"66267-0611-08 ")
 ;;2761
 ;;21,"66267-0611-15 ")
 ;;2762
 ;;21,"66267-0611-20 ")
 ;;2763
 ;;21,"66267-0611-21 ")
 ;;2764
 ;;21,"66267-0611-30 ")
 ;;2765
 ;;21,"66267-0611-42 ")
 ;;2766
 ;;21,"66267-0611-45 ")
 ;;2767
 ;;21,"66267-0611-60 ")
 ;;2768
 ;;21,"66267-0611-78 ")
 ;;2769
 ;;21,"66267-0611-90 ")
 ;;2770
 ;;21,"66267-0611-91 ")
 ;;2771
 ;;21,"66267-0775-03 ")
 ;;2772
 ;;21,"66267-0775-04 ")
 ;;2773
 ;;21,"66267-1007-00 ")
 ;;2774
 ;;21,"66336-0063-20 ")
 ;;2775
 ;;21,"66336-0063-28 ")
 ;;2776
 ;;21,"66336-0063-30 ")
 ;;2777
 ;;21,"66336-0063-40 ")
 ;;2778
 ;;21,"66336-0063-60 ")
 ;;2779
 ;;21,"66336-0063-90 ")
 ;;2780
 ;;21,"66336-0063-94 ")
 ;;2781
 ;;21,"66336-0080-18 ")
 ;;2782
 ;;21,"66336-0080-20 ")
 ;;2783
 ;;21,"66336-0080-30 ")
 ;;2784
 ;;21,"66336-0080-40 ")
 ;;2785
 ;;21,"66336-0080-60 ")
 ;;2786
 ;;21,"66336-0080-90 ")
 ;;2787
 ;;21,"66336-0554-20 ")
 ;;2788
 ;;21,"66336-0554-30 ")
 ;;2789
 ;;21,"66336-0554-60 ")
 ;;2790
 ;;21,"66336-0554-90 ")
 ;;2791
 ;;21,"66336-0581-07 ")
 ;;2792
 ;;21,"66336-0581-09 ")
 ;;2793
 ;;21,"66336-0581-10 ")
 ;;2794
 ;;21,"66336-0581-12 ")
 ;;2795
 ;;21,"66336-0581-15 ")
 ;;2796
 ;;21,"66336-0581-20 ")
 ;;2797
 ;;21,"66336-0581-21 ")
 ;;2798
 ;;21,"66336-0581-30 ")
 ;;2799
 ;;21,"66336-0581-45 ")
 ;;2800
 ;;21,"66336-0581-60 ")
 ;;2801
 ;;21,"66336-0581-90 ")
 ;;2802
 ;;21,"66336-0581-94 ")
 ;;2803
 ;;21,"66336-0635-15 ")
 ;;2804
 ;;21,"66336-0635-20 ")
 ;;2805
 ;;21,"66336-0635-30 ")
 ;;2806
 ;;21,"66336-0635-40 ")
 ;;2807
 ;;21,"66336-0635-56 ")
 ;;2808
 ;;21,"66336-0635-60 ")
 ;;2809
 ;;21,"66336-0635-87 ")
 ;;2810
 ;;21,"66336-0635-90 ")
 ;;2811
 ;;21,"66336-0635-94 ")
 ;;2812
 ;;21,"66336-0663-15 ")
 ;;2813
 ;;21,"66336-0663-20 ")
 ;;2814
 ;;21,"66336-0663-28 ")
 ;;2815
 ;;21,"66336-0663-30 ")
 ;;2816
 ;;21,"66336-0663-60 ")
 ;;2817
 ;;21,"66336-0663-90 ")
 ;;2818
 ;;21,"66336-0709-15 ")
 ;;2819
 ;;21,"66336-0709-16 ")
 ;;2820
 ;;21,"66336-0709-20 ")
 ;;2821
 ;;21,"66336-0709-30 ")
 ;;2822
 ;;21,"66336-0709-60 ")
 ;;2823
 ;;21,"66336-0709-90 ")
 ;;2824
 ;;21,"67263-0182-01 ")
 ;;2825
 ;;21,"67544-0012-30 ")
 ;;2826
 ;;21,"67544-0012-53 ")
 ;;2827
 ;;21,"67544-0012-60 ")
 ;;2828
 ;;21,"67544-0012-70 ")
 ;;2829
 ;;21,"67544-0180-30 ")
 ;;2830
 ;;21,"67544-0180-45 ")
 ;;2831
 ;;21,"67544-0180-53 ")
 ;;2832
 ;;21,"67544-0180-60 ")
 ;;2833
 ;;21,"67544-0180-70 ")
 ;;2834
 ;;21,"67544-0180-80 ")
 ;;2835
 ;;21,"67544-0180-92 ")
 ;;2836
 ;;21,"67544-0251-30 ")
 ;;2837
 ;;21,"67544-0251-45 ")
 ;;2838
 ;;21,"67544-0251-53 ")
 ;;2839
 ;;21,"67544-0251-60 ")
 ;;2840
 ;;21,"67544-0251-70 ")
 ;;2841
 ;;21,"67544-0251-80 ")
 ;;2842
 ;;21,"67544-0251-92 ")
 ;;2843
 ;;21,"67544-0283-30 ")
 ;;2844
 ;;21,"67544-0283-53 ")
 ;;2845
 ;;21,"67544-0283-60 ")
 ;;2846
 ;;21,"67544-0283-70 ")
 ;;2847
 ;;21,"67544-0291-30 ")
 ;;2848
 ;;21,"67544-0291-53 ")
 ;;2849
 ;;21,"67544-0291-60 ")
 ;;2850
 ;;21,"67544-0291-70 ")
 ;;2851
 ;;21,"67544-0473-30 ")
 ;;2852
 ;;21,"67544-0473-53 ")
 ;;2853
 ;;21,"67544-0473-60 ")
 ;;2854
 ;;21,"67544-0473-70 ")
 ;;2855
 ;;21,"67544-0508-30 ")
 ;;2856
 ;;21,"67544-0589-30 ")
 ;;2857
 ;;21,"67544-0662-53 ")
 ;;2858
 ;;21,"67544-0662-60 ")
 ;;2859
 ;;21,"67544-0662-70 ")
 ;;2860
 ;;21,"67544-0662-80 ")
 ;;2861
 ;;21,"67544-0747-30 ")
 ;;2862
 ;;21,"67544-0747-53 ")
 ;;2863
 ;;21,"67544-0747-60 ")
 ;;2864
 ;;21,"67544-0747-70 ")
 ;;2865
 ;;21,"67544-0747-80 ")
 ;;2866
 ;;21,"67544-0747-90 ")
 ;;2867
 ;;21,"67544-0747-92 ")
 ;;2868
 ;;21,"68001-0004-00 ")
 ;;2869
 ;;21,"68001-0004-01 ")
 ;;2870
 ;;21,"68013-0016-01 ")
 ;;2871
 ;;21,"68013-0016-05 ")
 ;;2872
 ;;21,"68025-0046-10 ")
 ;;2873
 ;;21,"68025-0047-10 ")
 ;;2874
 ;;21,"68030-0039-02 ")
 ;;2875
 ;;21,"68030-0039-03 ")
 ;;2876
 ;;21,"68030-0111-01 ")
 ;;2877
 ;;21,"68030-0111-02 ")
 ;;2878
 ;;21,"68030-0111-04 ")
 ;;2879
 ;;21,"68030-3435-01 ")
 ;;2880
 ;;21,"68030-3435-03 ")
 ;;2881
 ;;21,"68030-3444-01 ")
 ;;2882
 ;;21,"68030-3444-08 ")
 ;;2883
 ;;21,"68030-3444-09 ")
 ;;2884
 ;;21,"68030-4026-03 ")
 ;;2885
 ;;21,"68030-4027-02 ")
 ;;2886
 ;;21,"68030-4027-08 ")
 ;;2887
 ;;21,"68030-4637-02 ")
 ;;2888
 ;;21,"68030-4637-04 ")
 ;;2889
 ;;21,"68030-4637-05 ")
 ;;2890
 ;;21,"68030-4637-06 ")
 ;;2891
 ;;21,"68030-4842-00 ")
 ;;2892
 ;;21,"68030-4842-01 ")
 ;;2893
 ;;21,"68030-4842-05 ")
 ;;2894
 ;;21,"68030-6045-01 ")
 ;;2895
 ;;21,"68030-6045-02 ")
 ;;2896
 ;;21,"68030-6045-03 ")
 ;;2897
 ;;21,"68030-6048-01 ")
 ;;2898
 ;;21,"68030-6058-01 ")
 ;;2899
 ;;21,"68030-9784-01 ")
 ;;2900
 ;;21,"68071-0462-14 ")
 ;;2901
 ;;21,"68071-0462-30 ")
 ;;2902
 ;;21,"68071-0462-60 ")
 ;;2903
 ;;21,"68071-0462-90 ")
 ;;2904
 ;;21,"68071-0610-40 ")
 ;;2905
 ;;21,"68071-0827-30 ")
 ;;2906
 ;;21,"68071-0827-60 ")
 ;;2907
 ;;21,"68071-0885-30 ")
 ;;2908
 ;;21,"68071-0885-60 ")
 ;;2909
 ;;21,"68071-0885-90 ")
 ;;2910
 ;;21,"68071-1352-00 ")
 ;;2911
 ;;21,"68071-2004-06 ")
 ;;2912
 ;;21,"68084-0056-01 ")
 ;;2913
 ;;21,"68084-0056-11 ")
 ;;2914
 ;;21,"68084-0057-01 ")
 ;;2915
 ;;21,"68084-0057-11 ")
 ;;2916
 ;;21,"68084-0135-11 ")
 ;;2917
 ;;21,"68084-0135-21 ")
 ;;2918
 ;;21,"68084-0380-01 ")
 ;;2919
 ;;21,"68084-0380-11 ")
 ;;2920
 ;;21,"68084-0397-01 ")
 ;;2921
 ;;21,"68084-0397-11 ")
 ;;2922
 ;;21,"68084-0585-01 ")
 ;;2923
 ;;21,"68084-0585-11 ")
 ;;2924
 ;;21,"68084-0586-01 ")
 ;;2925
 ;;21,"68084-0586-11 ")
 ;;2926
 ;;21,"68115-0063-00 ")
 ;;2927
 ;;21,"68115-0063-04 ")
 ;;2928
 ;;21,"68115-0063-12 ")
 ;;2929
 ;;21,"68115-0063-15 ")
 ;;2930
 ;;21,"68115-0063-20 ")
 ;;2931
 ;;21,"68115-0063-28 ")
 ;;2932
 ;;21,"68115-0063-30 ")
 ;;2933
 ;;21,"68115-0063-40 ")
 ;;2934
 ;;21,"68115-0063-45 ")
 ;;2935
 ;;21,"68115-0063-48 ")
 ;;2936
 ;;21,"68115-0063-50 ")
 ;;2937
 ;;21,"68115-0063-56 ")
 ;;2938
 ;;21,"68115-0063-60 ")
 ;;2939
 ;;21,"68115-0063-90 ")
 ;;2940
 ;;21,"68115-0063-96 ")
 ;;2941
 ;;21,"68115-0063-97 ")
 ;;2942
 ;;21,"68115-0063-99 ")
 ;;2943
 ;;21,"68115-0077-00 ")
 ;;2944
 ;;21,"68115-0077-15 ")
 ;;2945
 ;;21,"68115-0077-20 ")
 ;;2946
 ;;21,"68115-0077-30 ")
 ;;2947
 ;;21,"68115-0077-40 ")
 ;;2948
 ;;21,"68115-0077-60 ")
 ;;2949
 ;;21,"68115-0077-90 ")
 ;;2950
 ;;21,"68115-0095-00 ")
 ;;2951
 ;;21,"68115-0095-06 ")
 ;;2952
 ;;21,"68115-0095-10 ")
 ;;2953
 ;;21,"68115-0095-12 ")
 ;;2954
 ;;21,"68115-0095-15 ")
 ;;2955
 ;;21,"68115-0095-20 ")
 ;;2956
 ;;21,"68115-0095-30 ")
 ;;2957
 ;;21,"68115-0095-40 ")
 ;;2958
 ;;21,"68115-0095-45 ")
 ;;2959
 ;;21,"68115-0095-48 ")
 ;;2960
 ;;21,"68115-0095-60 ")
 ;;2961
 ;;21,"68115-0095-90 ")
 ;;2962
 ;;21,"68115-0095-99 ")
 ;;2963
 ;;21,"68115-0234-00 ")
 ;;2964
 ;;21,"68115-0234-20 ")
 ;;2965
 ;;21,"68115-0234-30 ")
 ;;2966
 ;;21,"68115-0234-40 ")
 ;;2967
 ;;21,"68115-0234-60 ")
 ;;2968
 ;;21,"68115-0234-90 ")
 ;;2969
 ;;21,"68115-0235-15 ")
 ;;2970
 ;;21,"68115-0235-20 ")
 ;;2971
 ;;21,"68115-0235-30 ")
 ;;2972
 ;;21,"68115-0235-60 ")
 ;;2973
 ;;21,"68115-0235-90 ")
 ;;2974
 ;;21,"68115-0235-99 ")
 ;;2975
 ;;21,"68115-0264-10 ")
 ;;2976
 ;;21,"68115-0264-14 ")
 ;;2977
 ;;21,"68115-0264-20 ")
 ;;2978
 ;;21,"68115-0264-30 ")
 ;;2979
 ;;21,"68115-0264-60 ")
 ;;2980
 ;;21,"68115-0264-90 ")
 ;;2981
 ;;21,"68115-0318-30 ")
 ;;2982
 ;;21,"68115-0318-40 ")
 ;;2983
 ;;21,"68115-0319-00 ")
 ;;2984
 ;;21,"68115-0319-08 ")
 ;;2985
 ;;21,"68115-0319-15 ")
 ;;2986
 ;;21,"68115-0319-20 ")
 ;;2987
 ;;21,"68115-0319-30 ")
 ;;2988
 ;;21,"68115-0319-60 ")
 ;;2989
 ;;21,"68115-0319-90 ")
 ;;2990
 ;;21,"68115-0319-99 ")
 ;;2991
 ;;21,"68115-0440-00 ")
 ;;2992
 ;;21,"68115-0440-04 ")
 ;;2993
 ;;21,"68115-0440-12 ")
 ;;2994
 ;;21,"68115-0440-15 ")
 ;;2995
 ;;21,"68115-0440-20 ")
 ;;2996
 ;;21,"68115-0440-21 ")
 ;;2997
 ;;21,"68115-0440-28 ")
 ;;2998
 ;;21,"68115-0440-30 ")
 ;;2999
 ;;21,"68115-0440-40 ")
 ;;3000
 ;;21,"68115-0440-45 ")
 ;;3001
 ;;21,"68115-0440-48 ")
 ;;3002
 ;;21,"68115-0440-50 ")
 ;;3003
 ;;21,"68115-0440-56 ")
 ;;3004
 ;;21,"68115-0440-60 ")
 ;;3005
 ;;21,"68115-0440-90 ")
 ;;3006
 ;;21,"68115-0440-97 ")
 ;;3007
 ;;21,"68115-0440-99 ")
 ;;3008
 ;;21,"68115-0450-30 ")
 ;;3009
 ;;21,"68115-0546-00 ")
 ;;3010
 ;;21,"68258-1050-01 ")
 ;;3011
 ;;21,"68258-7013-01 ")
 ;;3012
 ;;21,"68258-7013-02 ")
 ;;3013
 ;;21,"68258-7013-03 ")
 ;;3014
 ;;21,"68258-7013-06 ")
 ;;3015
 ;;21,"68258-7013-08 ")
 ;;3016
 ;;21,"68258-7013-09 ")
 ;;3017
 ;;21,"68258-7019-09 ")
 ;;3018
 ;;21,"68258-7061-05 ")
 ;;3019
 ;;21,"68258-7094-05 ")
 ;;3020
 ;;21,"68258-7100-01 ")
 ;;3021
 ;;21,"68258-7100-02 ")
 ;;3022
 ;;21,"68258-7100-03 ")
 ;;3023
 ;;21,"68258-7100-06 ")
 ;;3024
 ;;21,"68258-7100-09 ")
 ;;3025
 ;;21,"68258-7150-03 ")
 ;;3026
 ;;21,"68258-7150-06 ")
 ;;3027
 ;;21,"68258-7150-09 ")
 ;;3028
 ;;21,"68258-9095-01 ")
 ;;3029
 ;;21,"68387-0108-30 ")
 ;;3030
 ;;21,"68387-0108-60 ")
 ;;3031
 ;;21,"68387-0108-90 ")
 ;;3032
 ;;21,"68387-0340-24 ")
 ;;3033
 ;;21,"68387-0340-30 ")
 ;;3034
 ;;21,"68387-0340-45 ")
 ;;3035
 ;;21,"68387-0340-60 ")
 ;;3036
 ;;21,"68387-0340-90 ")
 ;;3037
 ;;21,"68387-0342-60 ")
 ;;3038
 ;;21,"68387-0375-30 ")
 ;;3039
 ;;21,"68387-0375-90 ")
 ;;3040
 ;;21,"68387-0500-10 ")
 ;;3041
 ;;21,"68387-0500-12 ")
 ;;3042
 ;;21,"68387-0500-15 ")
 ;;3043
 ;;21,"68387-0500-30 ")
 ;;3044
 ;;21,"68387-0500-45 ")
 ;;3045
 ;;21,"68387-0500-60 ")
 ;;3046
 ;;21,"68387-0500-90 ")
 ;;3047
 ;;21,"68387-0502-90 ")
 ;;3048
 ;;21,"68387-0575-14 ")
 ;;3049
 ;;21,"68387-0575-60 ")
 ;;3050
 ;;21,"68387-0600-12 ")
 ;;3051
 ;;21,"68387-0600-15 ")
 ;;3052
 ;;21,"68387-0600-30 ")
 ;;3053
 ;;21,"68387-0600-45 ")
 ;;3054
 ;;21,"68387-0600-60 ")
 ;;3055
 ;;21,"68387-0600-90 ")
 ;;3056
 ;;21,"68453-0950-10 ")
 ;;3057
 ;;21,"68462-0552-01 ")
 ;;3058
 ;;21,"68462-0553-01 ")
 ;;3059
 ;;21,"68462-0553-10 ")
 ;;3060
 ;;21,"76218-1219-01 ")
 ;;3061
 ;;21,"76420-0991-06 ")
 ;;3062
 ;;21,"76519-0100-01 ")
 ;;3063
 ;;21,"76519-0100-02 ")
 ;;3064
 ;;21,"76519-0100-03 ")
 ;;3065
 ;;21,"76519-0100-05 ")
 ;;3066
 ;;21,"76519-0100-06 ")
 ;;3067
 ;;21,"76519-0100-07 ")
 ;;3068
 ;;21,"76519-0100-09 ")
 ;;3069
 ;;9002226,804,.01)
 ;;BGP HEDIS SKL MUSCLE RELAX NDC
 ;;9002226,804,.02)
 ;;@
 ;;9002226,804,.04)
 ;;n
 ;;9002226,804,.06)
 ;;@
 ;;9002226,804,.08)
 ;;@
 ;;9002226,804,.09)
 ;;3140316
 ;;9002226,804,.11)
 ;;@
 ;;9002226,804,.12)
 ;;@
 ;;9002226,804,.13)
 ;;1
 ;;9002226,804,.14)
 ;;@
 ;;9002226,804,.15)
 ;;@
 ;;9002226,804,.16)
 ;;@
 ;;9002226,804,.17)
 ;;@
 ;;9002226,804,3101)
 ;;@
 ;;9002226.02101,"804,00005-3562-23 ",.01)
 ;;00005-3562-23
 ;;9002226.02101,"804,00005-3562-23 ",.02)
 ;;00005-3562-23
 ;;9002226.02101,"804,00005-3563-23 ",.01)
 ;;00005-3563-23
 ;;9002226.02101,"804,00005-3563-23 ",.02)
 ;;00005-3563-23
 ;;9002226.02101,"804,00005-3563-31 ",.01)
 ;;00005-3563-31
 ;;9002226.02101,"804,00005-3563-31 ",.02)
 ;;00005-3563-31
 ;;9002226.02101,"804,00006-0931-28 ",.01)
 ;;00006-0931-28
 ;;9002226.02101,"804,00006-0931-28 ",.02)
 ;;00006-0931-28
 ;;9002226.02101,"804,00031-7409-87 ",.01)
 ;;00031-7409-87
 ;;9002226.02101,"804,00031-7409-87 ",.02)
 ;;00031-7409-87
 ;;9002226.02101,"804,00031-7409-94 ",.01)
 ;;00031-7409-94
 ;;9002226.02101,"804,00031-7409-94 ",.02)
 ;;00031-7409-94
 ;;9002226.02101,"804,00031-7429-63 ",.01)
 ;;00031-7429-63
 ;;9002226.02101,"804,00031-7429-63 ",.02)
 ;;00031-7429-63
 ;;9002226.02101,"804,00031-7449-63 ",.01)
 ;;00031-7449-63
 ;;9002226.02101,"804,00031-7449-63 ",.02)
 ;;00031-7449-63
 ;;9002226.02101,"804,00031-7449-70 ",.01)
 ;;00031-7449-70