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

BGP82I9.m

Go to the documentation of this file.
BGP82I9 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
 ;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
 ;
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,"54868-5782-00 ")
 ;;2689
 ;;21,"54868-5782-01 ")
 ;;2690
 ;;21,"54868-5782-02 ")
 ;;2691
 ;;21,"54868-5782-03 ")
 ;;2692
 ;;21,"54868-5782-04 ")
 ;;2693
 ;;21,"54868-5783-00 ")
 ;;2694
 ;;21,"54868-5783-01 ")
 ;;2695
 ;;21,"54868-5787-00 ")
 ;;2696
 ;;21,"54868-5792-00 ")
 ;;2697
 ;;21,"54868-5792-01 ")
 ;;2698
 ;;21,"54868-5792-02 ")
 ;;2699
 ;;21,"54868-5793-00 ")
 ;;2700
 ;;21,"54868-5793-01 ")
 ;;2701
 ;;21,"54868-5804-00 ")
 ;;2702
 ;;21,"54868-5842-00 ")
 ;;2703
 ;;21,"54868-5842-01 ")
 ;;2704
 ;;21,"54868-5842-02 ")
 ;;2705
 ;;21,"54868-5842-03 ")
 ;;2706
 ;;21,"54868-5843-00 ")
 ;;2707
 ;;21,"54868-5843-01 ")
 ;;2708
 ;;21,"54868-5843-02 ")
 ;;2709
 ;;21,"54868-5843-03 ")
 ;;2710
 ;;21,"54868-5856-00 ")
 ;;2711
 ;;21,"54868-5856-01 ")
 ;;2712
 ;;21,"54868-5896-00 ")
 ;;2713
 ;;21,"54868-5928-00 ")
 ;;2714
 ;;21,"54868-5977-00 ")
 ;;2715
 ;;21,"54868-5983-00 ")
 ;;2716
 ;;21,"54868-5983-01 ")
 ;;2717
 ;;21,"54868-5996-00 ")
 ;;2718
 ;;21,"54868-5996-01 ")
 ;;2719
 ;;21,"54868-5997-00 ")
 ;;2720
 ;;21,"54868-5997-01 ")
 ;;2721
 ;;21,"54868-6036-00 ")
 ;;2722
 ;;21,"54868-6041-00 ")
 ;;2723
 ;;21,"54868-6042-00 ")
 ;;2724
 ;;21,"54868-6061-00 ")
 ;;2725
 ;;21,"54868-6061-01 ")
 ;;2726
 ;;21,"54868-6103-00 ")
 ;;2727
 ;;21,"54868-6104-00 ")
 ;;2728
 ;;21,"54868-6104-01 ")
 ;;2729
 ;;21,"54868-6107-00 ")
 ;;2730
 ;;21,"54868-6107-01 ")
 ;;2731
 ;;21,"54868-6108-00 ")
 ;;2732
 ;;21,"54868-6108-01 ")
 ;;2733
 ;;21,"54868-6109-00 ")
 ;;2734
 ;;21,"54868-6109-01 ")
 ;;2735
 ;;21,"54868-6110-00 ")
 ;;2736
 ;;21,"54868-6110-01 ")
 ;;2737
 ;;21,"54868-6117-00 ")
 ;;2738
 ;;21,"54868-6117-01 ")
 ;;2739
 ;;21,"54868-6117-02 ")
 ;;2740
 ;;21,"54868-6123-00 ")
 ;;2741
 ;;21,"54868-6193-00 ")
 ;;2742
 ;;21,"54868-6194-00 ")
 ;;2743
 ;;21,"54868-6250-00 ")
 ;;2744
 ;;21,"54868-6297-00 ")
 ;;2745
 ;;21,"55111-0133-01 ")
 ;;2746
 ;;21,"55111-0134-01 ")
 ;;2747
 ;;21,"55111-0338-01 ")
 ;;2748
 ;;21,"55111-0339-01 ")
 ;;2749
 ;;21,"55111-0339-05 ")
 ;;2750
 ;;21,"55111-0340-01 ")
 ;;2751
 ;;21,"55111-0340-05 ")
 ;;2752
 ;;21,"55111-0341-01 ")
 ;;2753
 ;;21,"55111-0341-05 ")
 ;;2754
 ;;21,"55111-0438-90 ")
 ;;2755
 ;;21,"55111-0439-05 ")
 ;;2756
 ;;21,"55111-0439-90 ")
 ;;2757
 ;;21,"55111-0440-05 ")
 ;;2758
 ;;21,"55111-0440-90 ")
 ;;2759
 ;;21,"55111-0441-05 ")
 ;;2760
 ;;21,"55111-0441-90 ")
 ;;2761
 ;;21,"55111-0586-01 ")
 ;;2762
 ;;21,"55111-0587-01 ")
 ;;2763
 ;;21,"55111-0621-90 ")
 ;;2764
 ;;21,"55111-0622-90 ")
 ;;2765
 ;;21,"55111-0623-90 ")
 ;;2766
 ;;21,"55111-0624-90 ")
 ;;2767
 ;;21,"55154-4957-00 ")
 ;;2768
 ;;21,"55154-5052-00 ")
 ;;2769
 ;;21,"55154-5053-00 ")
 ;;2770
 ;;21,"55154-6281-00 ")
 ;;2771
 ;;21,"55289-0039-30 ")
 ;;2772
 ;;21,"55289-0086-30 ")
 ;;2773
 ;;21,"55289-0096-30 ")
 ;;2774
 ;;21,"55289-0106-30 ")
 ;;2775
 ;;21,"55289-0212-30 ")
 ;;2776
 ;;21,"55289-0212-90 ")
 ;;2777
 ;;21,"55289-0238-30 ")
 ;;2778
 ;;21,"55289-0344-30 ")
 ;;2779
 ;;21,"55289-0344-90 ")
 ;;2780
 ;;21,"55289-0436-30 ")
 ;;2781
 ;;21,"55289-0443-30 ")
 ;;2782
 ;;21,"55289-0483-30 ")
 ;;2783
 ;;21,"55289-0484-30 ")
 ;;2784
 ;;21,"55289-0509-30 ")
 ;;2785
 ;;21,"55289-0522-30 ")
 ;;2786
 ;;21,"55289-0552-30 ")
 ;;2787
 ;;21,"55289-0553-30 ")
 ;;2788
 ;;21,"55289-0554-30 ")
 ;;2789
 ;;21,"55289-0555-30 ")
 ;;2790
 ;;21,"55289-0591-30 ")
 ;;2791
 ;;21,"55289-0591-90 ")
 ;;2792
 ;;21,"55289-0622-03 ")
 ;;2793
 ;;21,"55289-0622-30 ")
 ;;2794
 ;;21,"55289-0638-01 ")
 ;;2795
 ;;21,"55289-0638-12 ")
 ;;2796
 ;;21,"55289-0638-14 ")
 ;;2797
 ;;21,"55289-0638-30 ")
 ;;2798
 ;;21,"55289-0638-60 ")
 ;;2799
 ;;21,"55289-0638-90 ")
 ;;2800
 ;;21,"55289-0638-98 ")
 ;;2801
 ;;21,"55289-0694-10 ")
 ;;2802
 ;;21,"55289-0694-30 ")
 ;;2803
 ;;21,"55289-0694-90 ")
 ;;2804
 ;;21,"55289-0696-14 ")
 ;;2805
 ;;21,"55289-0696-30 ")
 ;;2806
 ;;21,"55289-0696-60 ")
 ;;2807
 ;;21,"55289-0696-90 ")
 ;;2808
 ;;21,"55289-0696-98 ")
 ;;2809
 ;;21,"55289-0815-30 ")
 ;;2810
 ;;21,"55289-0817-30 ")
 ;;2811
 ;;21,"55289-0820-30 ")
 ;;2812
 ;;21,"55289-0825-30 ")
 ;;2813
 ;;21,"55289-0838-30 ")
 ;;2814
 ;;21,"55289-0867-30 ")
 ;;2815
 ;;21,"55289-0876-30 ")
 ;;2816
 ;;21,"55289-0878-30 ")
 ;;2817
 ;;21,"55289-0884-30 ")
 ;;2818
 ;;21,"55289-0884-90 ")
 ;;2819
 ;;21,"55289-0917-30 ")
 ;;2820
 ;;21,"55289-0917-90 ")
 ;;2821
 ;;21,"55289-0929-08 ")
 ;;2822
 ;;21,"55289-0929-30 ")
 ;;2823
 ;;21,"55289-0963-30 ")
 ;;2824
 ;;21,"55289-0981-30 ")
 ;;2825
 ;;21,"55289-0984-30 ")
 ;;2826
 ;;21,"55289-0984-90 ")
 ;;2827
 ;;21,"55700-0011-30 ")
 ;;2828
 ;;21,"55700-0011-60 ")
 ;;2829
 ;;21,"55700-0011-90 ")
 ;;2830
 ;;21,"55700-0012-30 ")
 ;;2831
 ;;21,"55700-0012-60 ")
 ;;2832
 ;;21,"55700-0012-90 ")
 ;;2833
 ;;21,"55700-0014-30 ")
 ;;2834
 ;;21,"55700-0014-60 ")
 ;;2835
 ;;21,"55700-0023-30 ")
 ;;2836
 ;;21,"55700-0023-60 ")
 ;;2837
 ;;21,"55700-0032-30 ")
 ;;2838
 ;;21,"55700-0032-60 ")
 ;;2839
 ;;21,"55700-0032-90 ")
 ;;2840
 ;;21,"55700-0037-30 ")
 ;;2841
 ;;21,"55700-0037-60 ")
 ;;2842
 ;;21,"55700-0037-90 ")
 ;;2843
 ;;21,"55700-0059-90 ")
 ;;2844
 ;;21,"55700-0077-90 ")
 ;;2845
 ;;21,"55700-0205-30 ")
 ;;2846
 ;;21,"55700-0269-30 ")
 ;;2847
 ;;21,"55700-0285-30 ")
 ;;2848
 ;;21,"55700-0290-30 ")
 ;;2849
 ;;21,"55700-0290-90 ")
 ;;2850
 ;;21,"55700-0291-30 ")
 ;;2851
 ;;21,"55700-0291-90 ")
 ;;2852
 ;;21,"55700-0317-30 ")
 ;;2853
 ;;21,"55700-0317-90 ")
 ;;2854
 ;;21,"55700-0346-30 ")
 ;;2855
 ;;21,"55700-0347-30 ")
 ;;2856
 ;;21,"55700-0407-30 ")
 ;;2857
 ;;21,"55700-0407-60 ")
 ;;2858
 ;;21,"55700-0407-90 ")
 ;;2859
 ;;21,"55700-0474-30 ")
 ;;2860
 ;;21,"55700-0479-90 ")
 ;;2861
 ;;21,"55700-0480-30 ")
 ;;2862
 ;;21,"55700-0480-90 ")
 ;;2863
 ;;21,"55700-0513-18 ")
 ;;2864
 ;;21,"55700-0513-30 ")
 ;;2865
 ;;21,"55700-0513-60 ")
 ;;2866
 ;;21,"55700-0513-90 ")
 ;;2867
 ;;21,"55700-0514-30 ")
 ;;2868
 ;;21,"55700-0514-60 ")
 ;;2869
 ;;21,"55700-0514-90 ")
 ;;2870
 ;;21,"57237-0026-01 ")
 ;;2871
 ;;21,"57237-0026-30 ")
 ;;2872
 ;;21,"57237-0027-01 ")
 ;;2873
 ;;21,"57237-0027-30 ")
 ;;2874
 ;;21,"57237-0052-00 ")
 ;;2875
 ;;21,"57237-0052-05 ")
 ;;2876
 ;;21,"57237-0053-00 ")
 ;;2877
 ;;21,"57237-0053-99 ")
 ;;2878
 ;;21,"57237-0054-00 ")
 ;;2879
 ;;21,"57237-0054-99 ")
 ;;2880
 ;;21,"57237-0055-00 ")
 ;;2881
 ;;21,"57237-0055-99 ")
 ;;2882
 ;;21,"57237-0056-00 ")
 ;;2883
 ;;21,"57237-0057-00 ")
 ;;2884
 ;;21,"57237-0057-99 ")
 ;;2885
 ;;21,"57237-0089-01 ")
 ;;2886
 ;;21,"57237-0090-01 ")
 ;;2887
 ;;21,"57237-0091-01 ")
 ;;2888
 ;;21,"57237-0142-01 ")
 ;;2889
 ;;21,"57237-0143-01 ")
 ;;2890
 ;;21,"57237-0143-05 ")
 ;;2891
 ;;21,"57237-0144-01 ")
 ;;2892
 ;;21,"57237-0144-05 ")
 ;;2893
 ;;21,"57237-0145-01 ")
 ;;2894
 ;;21,"57237-0145-05 ")
 ;;2895
 ;;21,"57237-0146-01 ")
 ;;2896
 ;;21,"57237-0146-05 ")
 ;;2897
 ;;21,"57237-0147-01 ")
 ;;2898
 ;;21,"57237-0147-05 ")
 ;;2899
 ;;21,"57237-0204-90 ")
 ;;2900
 ;;21,"57237-0204-99 ")
 ;;2901
 ;;21,"57237-0205-90 ")
 ;;2902
 ;;21,"57237-0205-99 ")
 ;;2903
 ;;21,"57237-0206-90 ")
 ;;2904
 ;;21,"57237-0206-99 ")
 ;;2905
 ;;21,"57237-0222-01 ")
 ;;2906
 ;;21,"57237-0222-30 ")
 ;;2907
 ;;21,"57237-0223-01 ")
 ;;2908
 ;;21,"57237-0223-05 ")
 ;;2909
 ;;21,"57237-0224-01 ")
 ;;2910
 ;;21,"57237-0224-05 ")
 ;;2911
 ;;21,"57237-0225-01 ")
 ;;2912
 ;;21,"57237-0225-05 ")
 ;;2913
 ;;21,"57664-0755-83 ")
 ;;2914
 ;;21,"57664-0756-83 ")
 ;;2915
 ;;21,"57664-0756-99 ")
 ;;2916
 ;;21,"57664-0757-83 ")
 ;;2917
 ;;21,"57664-0757-99 ")
 ;;2918
 ;;21,"57664-0758-83 ")
 ;;2919
 ;;21,"57664-0758-99 ")
 ;;2920
 ;;21,"57664-0759-83 ")
 ;;2921
 ;;21,"57664-0759-99 ")
 ;;2922
 ;;21,"57664-0760-83 ")
 ;;2923
 ;;21,"57664-0760-99 ")
 ;;2924
 ;;21,"57664-0772-83 ")
 ;;2925
 ;;21,"57664-0772-99 ")
 ;;2926
 ;;21,"57664-0773-83 ")
 ;;2927
 ;;21,"57664-0773-99 ")
 ;;2928
 ;;21,"57664-0774-83 ")
 ;;2929
 ;;21,"57664-0774-99 ")
 ;;2930
 ;;21,"57664-0775-83 ")
 ;;2931
 ;;21,"57664-0775-99 ")
 ;;2932
 ;;21,"57664-0796-83 ")
 ;;2933
 ;;21,"57664-0796-99 ")
 ;;2934
 ;;21,"57664-0797-83 ")
 ;;2935
 ;;21,"57664-0797-99 ")
 ;;2936
 ;;21,"57664-0798-83 ")
 ;;2937
 ;;21,"57664-0798-99 ")
 ;;2938
 ;;21,"57664-0799-83 ")
 ;;2939
 ;;21,"57664-0799-99 ")
 ;;2940
 ;;21,"57664-0800-83 ")
 ;;2941
 ;;21,"57664-0800-99 ")
 ;;2942
 ;;21,"58118-0116-03 ")
 ;;2943
 ;;21,"58118-0116-09 ")
 ;;2944
 ;;21,"58118-0117-03 ")
 ;;2945
 ;;21,"58118-0117-09 ")
 ;;2946
 ;;21,"58118-0118-03 ")
 ;;2947
 ;;21,"58118-0118-09 ")
 ;;2948
 ;;21,"58118-0337-03 ")
 ;;2949
 ;;21,"58118-0337-09 ")
 ;;2950
 ;;21,"58118-0338-08 ")
 ;;2951
 ;;21,"58118-0338-09 ")
 ;;2952
 ;;21,"58118-0339-08 ")
 ;;2953
 ;;21,"58118-0339-09 ")
 ;;2954
 ;;21,"58118-0340-03 ")
 ;;2955
 ;;21,"58118-0340-09 ")
 ;;2956
 ;;21,"58118-0512-03 ")
 ;;2957
 ;;21,"58118-0512-09 ")
 ;;2958
 ;;21,"58118-0513-08 ")
 ;;2959
 ;;21,"58118-0513-09 ")
 ;;2960
 ;;21,"58118-0514-03 ")
 ;;2961
 ;;21,"58118-0514-06 ")
 ;;2962
 ;;21,"58118-0514-09 ")
 ;;2963
 ;;21,"58118-0515-03 ")
 ;;2964
 ;;21,"58118-0515-09 ")
 ;;2965
 ;;21,"58118-0517-03 ")
 ;;2966
 ;;21,"58118-0517-09 ")
 ;;2967
 ;;21,"58118-0519-03 ")
 ;;2968
 ;;21,"58118-0590-08 ")
 ;;2969
 ;;21,"58118-0590-09 ")
 ;;2970
 ;;21,"58118-0591-08 ")
 ;;2971
 ;;21,"58118-0591-09 ")
 ;;2972
 ;;21,"58118-1518-03 ")
 ;;2973
 ;;21,"58118-1518-06 ")
 ;;2974
 ;;21,"58118-1518-09 ")
 ;;2975
 ;;21,"58118-1520-03 ")
 ;;2976
 ;;21,"58118-1520-09 ")
 ;;2977
 ;;21,"58118-2271-03 ")
 ;;2978
 ;;21,"58118-2271-09 ")
 ;;2979
 ;;21,"58118-2272-03 ")
 ;;2980
 ;;21,"58118-2272-09 ")
 ;;2981
 ;;21,"58118-2273-03 ")
 ;;2982
 ;;21,"58118-2273-09 ")
 ;;2983
 ;;21,"58118-2274-03 ")
 ;;2984
 ;;21,"58118-2274-09 ")
 ;;2985
 ;;21,"58118-2277-03 ")
 ;;2986
 ;;21,"58118-2277-09 ")
 ;;2987
 ;;21,"58118-2279-03 ")
 ;;2988
 ;;21,"58118-2279-09 ")
 ;;2989
 ;;21,"58118-4725-03 ")
 ;;2990
 ;;21,"58118-4725-09 ")
 ;;2991
 ;;21,"58118-4745-03 ")
 ;;2992
 ;;21,"58118-4745-09 ")
 ;;2993
 ;;21,"58118-4775-03 ")
 ;;2994
 ;;21,"58118-4775-09 ")
 ;;2995
 ;;21,"58517-0240-30 ")
 ;;2996
 ;;21,"58657-0610-10 ")
 ;;2997
 ;;21,"58657-0610-50 ")
 ;;2998
 ;;21,"58657-0610-90 ")
 ;;2999
 ;;21,"58657-0611-10 ")
 ;;3000
 ;;21,"58657-0611-30 ")
 ;;3001
 ;;21,"58657-0611-90 ")
 ;;3002
 ;;21,"58657-0612-10 ")
 ;;3003
 ;;21,"58657-0612-30 ")
 ;;3004
 ;;21,"58657-0612-90 ")
 ;;3005
 ;;21,"58864-0000-63 ")
 ;;3006
 ;;21,"58864-0006-30 ")
 ;;3007
 ;;21,"58864-0066-28 ")
 ;;3008
 ;;21,"58864-0603-15 ")
 ;;3009
 ;;21,"58864-0603-30 ")
 ;;3010
 ;;21,"58864-0603-90 ")
 ;;3011
 ;;21,"58864-0605-30 ")
 ;;3012
 ;;21,"58864-0618-15 ")
 ;;3013
 ;;21,"58864-0618-30 ")
 ;;3014
 ;;21,"58864-0654-30 ")
 ;;3015
 ;;21,"58864-0659-30 ")
 ;;3016
 ;;21,"58864-0662-30 ")
 ;;3017
 ;;21,"58864-0674-30 ")
 ;;3018
 ;;21,"58864-0681-30 ")
 ;;3019
 ;;21,"58864-0726-15 ")
 ;;3020
 ;;21,"58864-0726-30 ")
 ;;3021