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

BGP47J8.m

Go to the documentation of this file.
BGP47J8 ;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,"64376-0729-16 ")
 ;;2725
 ;;21,"64376-0729-40 ")
 ;;2726
 ;;21,"64376-0730-30 ")
 ;;2727
 ;;21,"64376-0731-16 ")
 ;;2728
 ;;21,"64376-0731-40 ")
 ;;2729
 ;;21,"64376-0732-16 ")
 ;;2730
 ;;21,"64376-0732-40 ")
 ;;2731
 ;;21,"64376-0736-16 ")
 ;;2732
 ;;21,"64455-0013-01 ")
 ;;2733
 ;;21,"64455-0022-01 ")
 ;;2734
 ;;21,"64455-0025-01 ")
 ;;2735
 ;;21,"64455-0070-03 ")
 ;;2736
 ;;21,"64455-0080-03 ")
 ;;2737
 ;;21,"64455-0081-12 ")
 ;;2738
 ;;21,"64455-0081-48 ")
 ;;2739
 ;;21,"64543-0025-90 ")
 ;;2740
 ;;21,"64543-0082-01 ")
 ;;2741
 ;;21,"64543-0084-90 ")
 ;;2742
 ;;21,"64543-0085-01 ")
 ;;2743
 ;;21,"64543-0087-01 ")
 ;;2744
 ;;21,"64543-0091-90 ")
 ;;2745
 ;;21,"64661-0020-16 ")
 ;;2746
 ;;21,"64661-0022-16 ")
 ;;2747
 ;;21,"64661-0031-30 ")
 ;;2748
 ;;21,"64661-0032-30 ")
 ;;2749
 ;;21,"64661-0050-01 ")
 ;;2750
 ;;21,"64720-0143-10 ")
 ;;2751
 ;;21,"64720-0143-11 ")
 ;;2752
 ;;21,"64720-0144-10 ")
 ;;2753
 ;;21,"64720-0144-11 ")
 ;;2754
 ;;21,"64720-0145-10 ")
 ;;2755
 ;;21,"64720-0145-11 ")
 ;;2756
 ;;21,"64759-0005-01 ")
 ;;2757
 ;;21,"64899-0097-24 ")
 ;;2758
 ;;21,"64980-0111-01 ")
 ;;2759
 ;;21,"64980-0111-10 ")
 ;;2760
 ;;21,"64980-0112-01 ")
 ;;2761
 ;;21,"64980-0112-10 ")
 ;;2762
 ;;21,"64980-0113-01 ")
 ;;2763
 ;;21,"64980-0113-10 ")
 ;;2764
 ;;21,"64980-0123-01 ")
 ;;2765
 ;;21,"64980-0123-10 ")
 ;;2766
 ;;21,"64980-0169-01 ")
 ;;2767
 ;;21,"64980-0169-05 ")
 ;;2768
 ;;21,"64980-0170-01 ")
 ;;2769
 ;;21,"64980-0170-05 ")
 ;;2770
 ;;21,"64980-0504-48 ")
 ;;2771
 ;;21,"65162-0012-10 ")
 ;;2772
 ;;21,"65162-0012-11 ")
 ;;2773
 ;;21,"65162-0016-10 ")
 ;;2774
 ;;21,"65162-0016-11 ")
 ;;2775
 ;;21,"65162-0521-10 ")
 ;;2776
 ;;21,"65162-0521-11 ")
 ;;2777
 ;;21,"65162-0522-10 ")
 ;;2778
 ;;21,"65162-0662-86 ")
 ;;2779
 ;;21,"65162-0662-90 ")
 ;;2780
 ;;21,"65162-0745-10 ")
 ;;2781
 ;;21,"65162-0756-86 ")
 ;;2782
 ;;21,"65162-0756-90 ")
 ;;2783
 ;;21,"65224-0123-16 ")
 ;;2784
 ;;21,"65224-0148-16 ")
 ;;2785
 ;;21,"65224-0150-16 ")
 ;;2786
 ;;21,"65224-0175-16 ")
 ;;2787
 ;;21,"65224-0225-16 ")
 ;;2788
 ;;21,"65224-0293-16 ")
 ;;2789
 ;;21,"65224-0295-16 ")
 ;;2790
 ;;21,"65224-0300-16 ")
 ;;2791
 ;;21,"65224-0321-16 ")
 ;;2792
 ;;21,"65224-0443-16 ")
 ;;2793
 ;;21,"65224-0445-16 ")
 ;;2794
 ;;21,"65224-0450-16 ")
 ;;2795
 ;;21,"65224-0457-16 ")
 ;;2796
 ;;21,"65224-0501-16 ")
 ;;2797
 ;;21,"65224-0503-16 ")
 ;;2798
 ;;21,"65224-0537-30 ")
 ;;2799
 ;;21,"65224-0539-30 ")
 ;;2800
 ;;21,"65224-0540-01 ")
 ;;2801
 ;;21,"65224-0545-01 ")
 ;;2802
 ;;21,"65224-0750-01 ")
 ;;2803
 ;;21,"65581-0020-45 ")
 ;;2804
 ;;21,"66116-0230-30 ")
 ;;2805
 ;;21,"66116-0284-12 ")
 ;;2806
 ;;21,"66116-0488-30 ")
 ;;2807
 ;;21,"66116-0618-18 ")
 ;;2808
 ;;21,"66116-0651-30 ")
 ;;2809
 ;;21,"66239-0157-16 ")
 ;;2810
 ;;21,"66239-0192-16 ")
 ;;2811
 ;;21,"66239-0195-04 ")
 ;;2812
 ;;21,"66239-0195-16 ")
 ;;2813
 ;;21,"66239-0202-16 ")
 ;;2814
 ;;21,"66239-0208-16 ")
 ;;2815
 ;;21,"66239-0242-30 ")
 ;;2816
 ;;21,"66239-0245-30 ")
 ;;2817
 ;;21,"66239-0264-16 ")
 ;;2818
 ;;21,"66239-0288-16 ")
 ;;2819
 ;;21,"66267-0080-20 ")
 ;;2820
 ;;21,"66267-0081-20 ")
 ;;2821
 ;;21,"66267-0081-30 ")
 ;;2822
 ;;21,"66267-0081-60 ")
 ;;2823
 ;;21,"66267-0112-15 ")
 ;;2824
 ;;21,"66267-0112-30 ")
 ;;2825
 ;;21,"66267-0112-40 ")
 ;;2826
 ;;21,"66267-0112-60 ")
 ;;2827
 ;;21,"66267-0113-15 ")
 ;;2828
 ;;21,"66267-0113-20 ")
 ;;2829
 ;;21,"66267-0113-30 ")
 ;;2830
 ;;21,"66267-0114-20 ")
 ;;2831
 ;;21,"66267-0114-30 ")
 ;;2832
 ;;21,"66267-0164-04 ")
 ;;2833
 ;;21,"66267-0177-10 ")
 ;;2834
 ;;21,"66267-0177-15 ")
 ;;2835
 ;;21,"66267-0177-20 ")
 ;;2836
 ;;21,"66267-0177-30 ")
 ;;2837
 ;;21,"66267-0177-60 ")
 ;;2838
 ;;21,"66267-0177-90 ")
 ;;2839
 ;;21,"66267-0184-06 ")
 ;;2840
 ;;21,"66267-0184-20 ")
 ;;2841
 ;;21,"66267-0813-06 ")
 ;;2842
 ;;21,"66336-0045-06 ")
 ;;2843
 ;;21,"66336-0045-15 ")
 ;;2844
 ;;21,"66336-0045-30 ")
 ;;2845
 ;;21,"66336-0045-60 ")
 ;;2846
 ;;21,"66336-0085-06 ")
 ;;2847
 ;;21,"66336-0085-10 ")
 ;;2848
 ;;21,"66336-0085-12 ")
 ;;2849
 ;;21,"66336-0085-20 ")
 ;;2850
 ;;21,"66336-0085-25 ")
 ;;2851
 ;;21,"66336-0085-30 ")
 ;;2852
 ;;21,"66336-0085-60 ")
 ;;2853
 ;;21,"66336-0085-90 ")
 ;;2854
 ;;21,"66336-0085-94 ")
 ;;2855
 ;;21,"66336-0086-06 ")
 ;;2856
 ;;21,"66336-0086-15 ")
 ;;2857
 ;;21,"66336-0086-20 ")
 ;;2858
 ;;21,"66336-0086-30 ")
 ;;2859
 ;;21,"66336-0086-60 ")
 ;;2860
 ;;21,"66336-0208-14 ")
 ;;2861
 ;;21,"66336-0208-20 ")
 ;;2862
 ;;21,"66336-0208-30 ")
 ;;2863
 ;;21,"66336-0208-90 ")
 ;;2864
 ;;21,"66336-0416-30 ")
 ;;2865
 ;;21,"66336-0416-99 ")
 ;;2866
 ;;21,"66336-0696-06 ")
 ;;2867
 ;;21,"66336-0699-30 ")
 ;;2868
 ;;21,"66336-0776-30 ")
 ;;2869
 ;;21,"66336-0776-60 ")
 ;;2870
 ;;21,"66336-0795-15 ")
 ;;2871
 ;;21,"66336-0796-30 ")
 ;;2872
 ;;21,"66336-0797-20 ")
 ;;2873
 ;;21,"66336-0797-60 ")
 ;;2874
 ;;21,"66346-0091-30 ")
 ;;2875
 ;;21,"66346-0161-30 ")
 ;;2876
 ;;21,"66440-0082-51 ")
 ;;2877
 ;;21,"66440-0110-02 ")
 ;;2878
 ;;21,"66440-0110-03 ")
 ;;2879
 ;;21,"66758-0601-19 ")
 ;;2880
 ;;21,"66813-0271-01 ")
 ;;2881
 ;;21,"66813-0272-04 ")
 ;;2882
 ;;21,"66813-0273-60 ")
 ;;2883
 ;;21,"66813-0274-16 ")
 ;;2884
 ;;21,"66860-0098-03 ")
 ;;2885
 ;;21,"66860-0099-03 ")
 ;;2886
 ;;21,"66869-0116-10 ")
 ;;2887
 ;;21,"66869-0201-10 ")
 ;;2888
 ;;21,"66869-0307-10 ")
 ;;2889
 ;;21,"66869-0721-10 ")
 ;;2890
 ;;21,"66870-0032-01 ")
 ;;2891
 ;;21,"66992-0130-16 ")
 ;;2892
 ;;21,"66992-0135-16 ")
 ;;2893
 ;;21,"66992-0136-16 ")
 ;;2894
 ;;21,"66992-0230-04 ")
 ;;2895
 ;;21,"66992-0235-60 ")
 ;;2896
 ;;21,"66993-0502-55 ")
 ;;2897
 ;;21,"66993-0531-55 ")
 ;;2898
 ;;21,"66993-0537-57 ")
 ;;2899
 ;;21,"67000-0200-10 ")
 ;;2900
 ;;21,"67000-0201-10 ")
 ;;2901
 ;;21,"67204-0245-16 ")
 ;;2902
 ;;21,"67204-0320-16 ")
 ;;2903
 ;;21,"67204-0325-16 ")
 ;;2904
 ;;21,"67204-0340-16 ")
 ;;2905
 ;;21,"67204-0390-16 ")
 ;;2906
 ;;21,"67336-0050-60 ")
 ;;2907
 ;;21,"67336-0089-01 ")
 ;;2908
 ;;21,"67336-0254-16 ")
 ;;2909
 ;;21,"67336-0258-01 ")
 ;;2910
 ;;21,"67336-0275-16 ")
 ;;2911
 ;;21,"67336-0532-04 ")
 ;;2912
 ;;21,"67336-0532-16 ")
 ;;2913
 ;;21,"67336-0910-16 ")
 ;;2914
 ;;21,"67386-0611-52 ")
 ;;2915
 ;;21,"67405-0575-10 ")
 ;;2916
 ;;21,"67405-0575-50 ")
 ;;2917
 ;;21,"67405-0575-96 ")
 ;;2918
 ;;21,"67405-0577-10 ")
 ;;2919
 ;;21,"67405-0577-50 ")
 ;;2920
 ;;21,"67405-0671-10 ")
 ;;2921
 ;;21,"67405-0671-50 ")
 ;;2922
 ;;21,"67405-0671-96 ")
 ;;2923
 ;;21,"67457-0152-10 ")
 ;;2924
 ;;21,"67457-0154-10 ")
 ;;2925
 ;;21,"67537-0271-01 ")
 ;;2926
 ;;21,"67537-0273-60 ")
 ;;2927
 ;;21,"67537-0274-16 ")
 ;;2928
 ;;21,"67544-0246-30 ")
 ;;2929
 ;;21,"67544-0246-53 ")
 ;;2930
 ;;21,"67544-0304-30 ")
 ;;2931
 ;;21,"67544-0677-30 ")
 ;;2932
 ;;21,"67544-0677-53 ")
 ;;2933
 ;;21,"67544-0677-60 ")
 ;;2934
 ;;21,"67544-0791-30 ")
 ;;2935
 ;;21,"67544-0791-53 ")
 ;;2936
 ;;21,"67544-0791-60 ")
 ;;2937
 ;;21,"67544-1053-20 ")
 ;;2938
 ;;21,"68013-0007-01 ")
 ;;2939
 ;;21,"68013-0007-60 ")
 ;;2940
 ;;21,"68016-0022-99 ")
 ;;2941
 ;;21,"68016-0277-06 ")
 ;;2942
 ;;21,"68025-0032-16 ")
 ;;2943
 ;;21,"68025-0034-10 ")
 ;;2944
 ;;21,"68025-0051-10 ")
 ;;2945
 ;;21,"68030-4379-02 ")
 ;;2946
 ;;21,"68032-0107-04 ")
 ;;2947
 ;;21,"68032-0157-16 ")
 ;;2948
 ;;21,"68032-0178-60 ")
 ;;2949
 ;;21,"68032-0181-04 ")
 ;;2950
 ;;21,"68032-0182-10 ")
 ;;2951
 ;;21,"68032-0189-60 ")
 ;;2952
 ;;21,"68032-0203-16 ")
 ;;2953
 ;;21,"68032-0204-16 ")
 ;;2954
 ;;21,"68032-0205-60 ")
 ;;2955
 ;;21,"68032-0229-10 ")
 ;;2956
 ;;21,"68032-0307-16 ")
 ;;2957
 ;;21,"68032-0326-21 ")
 ;;2958
 ;;21,"68032-0330-10 ")
 ;;2959
 ;;21,"68032-0457-01 ")
 ;;2960
 ;;21,"68032-0459-16 ")
 ;;2961
 ;;21,"68047-0011-30 ")
 ;;2962
 ;;21,"68047-0030-02 ")
 ;;2963
 ;;21,"68047-0031-02 ")
 ;;2964
 ;;21,"68047-0120-16 ")
 ;;2965
 ;;21,"68047-0121-01 ")
 ;;2966
 ;;21,"68047-0122-01 ")
 ;;2967
 ;;21,"68047-0126-16 ")
 ;;2968
 ;;21,"68047-0129-16 ")
 ;;2969
 ;;21,"68047-0133-16 ")
 ;;2970
 ;;21,"68047-0136-16 ")
 ;;2971
 ;;21,"68047-0138-04 ")
 ;;2972
 ;;21,"68047-0142-16 ")
 ;;2973
 ;;21,"68047-0145-16 ")
 ;;2974
 ;;21,"68047-0160-01 ")
 ;;2975
 ;;21,"68047-0161-01 ")
 ;;2976
 ;;21,"68047-0166-01 ")
 ;;2977
 ;;21,"68047-0169-16 ")
 ;;2978
 ;;21,"68047-0210-01 ")
 ;;2979
 ;;21,"68047-0292-16 ")
 ;;2980
 ;;21,"68047-0310-16 ")
 ;;2981
 ;;21,"68047-0310-30 ")
 ;;2982
 ;;21,"68047-0330-01 ")
 ;;2983
 ;;21,"68071-0448-60 ")
 ;;2984
 ;;21,"68084-0154-01 ")
 ;;2985
 ;;21,"68084-0154-11 ")
 ;;2986
 ;;21,"68084-0155-01 ")
 ;;2987
 ;;21,"68084-0155-11 ")
 ;;2988
 ;;21,"68084-0156-01 ")
 ;;2989
 ;;21,"68084-0156-11 ")
 ;;2990
 ;;21,"68084-0253-01 ")
 ;;2991
 ;;21,"68084-0253-11 ")
 ;;2992
 ;;21,"68084-0254-01 ")
 ;;2993
 ;;21,"68084-0254-11 ")
 ;;2994
 ;;21,"68084-0255-01 ")
 ;;2995
 ;;21,"68084-0255-11 ")
 ;;2996
 ;;21,"68084-0381-01 ")
 ;;2997
 ;;21,"68084-0381-11 ")
 ;;2998
 ;;21,"68084-0388-01 ")
 ;;2999
 ;;21,"68084-0388-11 ")
 ;;3000
 ;;21,"68084-0389-01 ")
 ;;3001
 ;;21,"68084-0389-11 ")
 ;;3002
 ;;21,"68115-0043-30 ")
 ;;3003
 ;;21,"68115-0044-30 ")
 ;;3004
 ;;21,"68115-0044-60 ")
 ;;3005
 ;;21,"68115-0117-06 ")
 ;;3006
 ;;21,"68115-0117-15 ")
 ;;3007
 ;;21,"68115-0117-20 ")
 ;;3008
 ;;21,"68115-0117-30 ")
 ;;3009
 ;;21,"68115-0174-00 ")
 ;;3010
 ;;21,"68115-0174-15 ")
 ;;3011
 ;;21,"68115-0174-30 ")
 ;;3012
 ;;21,"68115-0174-60 ")
 ;;3013
 ;;21,"68115-0175-12 ")
 ;;3014
 ;;21,"68115-0175-15 ")
 ;;3015
 ;;21,"68115-0175-20 ")
 ;;3016
 ;;21,"68115-0175-30 ")
 ;;3017
 ;;21,"68115-0175-48 ")
 ;;3018
 ;;21,"68115-0175-60 ")
 ;;3019
 ;;21,"68115-0175-90 ")
 ;;3020
 ;;21,"68115-0176-00 ")
 ;;3021
 ;;21,"68115-0176-30 ")
 ;;3022
 ;;21,"68115-0176-60 ")
 ;;3023
 ;;21,"68115-0177-00 ")
 ;;3024
 ;;21,"68115-0177-30 ")
 ;;3025
 ;;21,"68115-0177-60 ")
 ;;3026
 ;;21,"68115-0177-99 ")
 ;;3027
 ;;21,"68115-0178-20 ")
 ;;3028
 ;;21,"68115-0178-60 ")
 ;;3029
 ;;21,"68115-0302-00 ")
 ;;3030
 ;;21,"68115-0302-04 ")
 ;;3031
 ;;21,"68115-0302-10 ")
 ;;3032
 ;;21,"68115-0302-20 ")
 ;;3033
 ;;21,"68115-0302-30 ")
 ;;3034
 ;;21,"68115-0302-60 ")
 ;;3035
 ;;21,"68115-0302-90 ")
 ;;3036
 ;;21,"68115-0311-20 ")
 ;;3037
 ;;21,"68115-0598-04 ")
 ;;3038
 ;;21,"68115-0826-00 ")
 ;;3039
 ;;21,"68115-0900-04 ")
 ;;3040
 ;;21,"68115-0915-04 ")
 ;;3041
 ;;21,"68134-0101-01 ")
 ;;3042
 ;;21,"68134-0328-01 ")
 ;;3043
 ;;21,"68134-0553-01 ")
 ;;3044
 ;;21,"68134-0613-30 ")
 ;;3045
 ;;21,"68188-0060-03 ")
 ;;3046
 ;;21,"68188-0061-04 ")
 ;;3047
 ;;21,"68188-0061-16 ")
 ;;3048
 ;;21,"68220-0027-10 ")
 ;;3049
 ;;21,"68220-0036-10 ")
 ;;3050
 ;;21,"68258-1068-01 ")
 ;;3051
 ;;21,"68258-3011-01 ")
 ;;3052
 ;;21,"68258-3011-04 ")
 ;;3053
 ;;21,"68258-3011-06 ")
 ;;3054
 ;;21,"68258-3028-01 ")
 ;;3055
 ;;21,"68258-8945-01 ")
 ;;3056
 ;;21,"68258-9048-01 ")
 ;;3057
 ;;21,"68258-9065-01 ")
 ;;3058
 ;;21,"68258-9066-01 ")
 ;;3059
 ;;21,"68258-9078-01 ")
 ;;3060
 ;;21,"68258-9136-01 ")
 ;;3061
 ;;21,"68308-0122-04 ")
 ;;3062
 ;;21,"68308-0126-04 ")
 ;;3063
 ;;21,"68308-0136-04 ")
 ;;3064
 ;;21,"68308-0410-16 ")
 ;;3065
 ;;21,"68308-0412-16 ")
 ;;3066
 ;;21,"68308-0430-30 ")
 ;;3067
 ;;21,"68308-0431-30 ")
 ;;3068
 ;;21,"68308-0526-60 ")
 ;;3069
 ;;21,"68308-0922-04 ")
 ;;3070
 ;;21,"68308-0926-04 ")
 ;;3071
 ;;21,"68308-0930-16 ")
 ;;3072
 ;;21,"68382-0040-01 ")
 ;;3073
 ;;21,"68382-0040-10 ")
 ;;3074
 ;;21,"68382-0041-01 ")
 ;;3075
 ;;21,"68382-0041-10 ")
 ;;3076
 ;;21,"68382-0042-01 ")
 ;;3077
 ;;21,"68382-0042-10 ")
 ;;3078
 ;;21,"68387-0468-30 ")
 ;;3079
 ;;21,"68387-0469-30 ")
 ;;3080
 ;;21,"68387-0536-12 ")
 ;;3081
 ;;21,"68387-0536-30 ")
 ;;3082
 ;;21,"68387-0536-60 ")
 ;;3083
 ;;21,"68387-0536-90 ")
 ;;3084
 ;;21,"68453-0145-04 ")
 ;;3085
 ;;21,"68453-0145-16 ")
 ;;3086
 ;;21,"68453-0200-10 ")
 ;;3087
 ;;21,"68453-0201-10 ")
 ;;3088
 ;;21,"68453-0795-10 ")
 ;;3089
 ;;21,"68462-0360-01 ")
 ;;3090
 ;;21,"68462-0360-05 ")
 ;;3091
 ;;21,"68462-0361-01 ")
 ;;3092
 ;;21,"68462-0361-05 ")
 ;;3093
 ;;21,"68462-0362-01 ")
 ;;3094
 ;;21,"68462-0362-05 ")
 ;;3095
 ;;21,"68716-0107-01 ")
 ;;3096
 ;;21,"68716-0107-03 ")
 ;;3097
 ;;21,"70030-0130-15 ")
 ;;3098
 ;;21,"70030-0131-33 ")
 ;;3099
 ;;21,"70030-0132-64 ")
 ;;3100
 ;;21,"70030-0620-75 ")
 ;;3101
 ;;21,"70030-0621-68 ")
 ;;3102
 ;;21,"70030-0621-70 ")
 ;;3103
 ;;21,"76478-0611-02 ")
 ;;3104
 ;;21,"81131-0183-95 ")
 ;;3105
 ;;21,"81131-0187-22 ")
 ;;3106
 ;;21,"81131-0187-23 ")
 ;;3107
 ;;21,"87701-0412-49 ")
 ;;3108
 ;;21,"87701-0649-55 ")
 ;;3109
 ;;21,"87701-0898-65 ")
 ;;3110