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

BGP71U9.m

Go to the documentation of this file.
  1. BGP71U9 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 11, 2016 ;
  1. ;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;21,"54868-6042-00 ")
  1. ;;2689
  1. ;;21,"54868-6061-00 ")
  1. ;;2690
  1. ;;21,"54868-6061-01 ")
  1. ;;2691
  1. ;;21,"54868-6103-00 ")
  1. ;;2692
  1. ;;21,"54868-6104-00 ")
  1. ;;2693
  1. ;;21,"54868-6104-01 ")
  1. ;;2694
  1. ;;21,"54868-6107-00 ")
  1. ;;2695
  1. ;;21,"54868-6107-01 ")
  1. ;;2696
  1. ;;21,"54868-6108-00 ")
  1. ;;2697
  1. ;;21,"54868-6108-01 ")
  1. ;;2698
  1. ;;21,"54868-6109-00 ")
  1. ;;2699
  1. ;;21,"54868-6109-01 ")
  1. ;;2700
  1. ;;21,"54868-6110-00 ")
  1. ;;2701
  1. ;;21,"54868-6110-01 ")
  1. ;;2702
  1. ;;21,"54868-6117-00 ")
  1. ;;2703
  1. ;;21,"54868-6117-01 ")
  1. ;;2704
  1. ;;21,"54868-6117-02 ")
  1. ;;2705
  1. ;;21,"54868-6123-00 ")
  1. ;;2706
  1. ;;21,"54868-6193-00 ")
  1. ;;2707
  1. ;;21,"54868-6194-00 ")
  1. ;;2708
  1. ;;21,"54868-6250-00 ")
  1. ;;2709
  1. ;;21,"54868-6297-00 ")
  1. ;;2710
  1. ;;21,"55048-0020-30 ")
  1. ;;2711
  1. ;;21,"55048-0021-30 ")
  1. ;;2712
  1. ;;21,"55048-0022-30 ")
  1. ;;2713
  1. ;;21,"55048-0023-30 ")
  1. ;;2714
  1. ;;21,"55048-0024-30 ")
  1. ;;2715
  1. ;;21,"55048-0039-30 ")
  1. ;;2716
  1. ;;21,"55048-0040-30 ")
  1. ;;2717
  1. ;;21,"55048-0043-30 ")
  1. ;;2718
  1. ;;21,"55048-0123-30 ")
  1. ;;2719
  1. ;;21,"55048-0124-30 ")
  1. ;;2720
  1. ;;21,"55048-0125-30 ")
  1. ;;2721
  1. ;;21,"55048-0220-30 ")
  1. ;;2722
  1. ;;21,"55048-0221-30 ")
  1. ;;2723
  1. ;;21,"55048-0222-30 ")
  1. ;;2724
  1. ;;21,"55048-0223-30 ")
  1. ;;2725
  1. ;;21,"55048-0250-30 ")
  1. ;;2726
  1. ;;21,"55048-0251-30 ")
  1. ;;2727
  1. ;;21,"55048-0252-30 ")
  1. ;;2728
  1. ;;21,"55048-0253-30 ")
  1. ;;2729
  1. ;;21,"55048-0277-30 ")
  1. ;;2730
  1. ;;21,"55048-0278-30 ")
  1. ;;2731
  1. ;;21,"55048-0283-30 ")
  1. ;;2732
  1. ;;21,"55048-0291-30 ")
  1. ;;2733
  1. ;;21,"55048-0375-30 ")
  1. ;;2734
  1. ;;21,"55048-0376-30 ")
  1. ;;2735
  1. ;;21,"55048-0387-30 ")
  1. ;;2736
  1. ;;21,"55048-0387-60 ")
  1. ;;2737
  1. ;;21,"55048-0387-90 ")
  1. ;;2738
  1. ;;21,"55048-0388-30 ")
  1. ;;2739
  1. ;;21,"55048-0388-60 ")
  1. ;;2740
  1. ;;21,"55048-0388-90 ")
  1. ;;2741
  1. ;;21,"55048-0389-30 ")
  1. ;;2742
  1. ;;21,"55048-0390-30 ")
  1. ;;2743
  1. ;;21,"55048-0390-60 ")
  1. ;;2744
  1. ;;21,"55048-0409-30 ")
  1. ;;2745
  1. ;;21,"55048-0410-30 ")
  1. ;;2746
  1. ;;21,"55048-0410-90 ")
  1. ;;2747
  1. ;;21,"55048-0429-30 ")
  1. ;;2748
  1. ;;21,"55048-0444-30 ")
  1. ;;2749
  1. ;;21,"55048-0445-30 ")
  1. ;;2750
  1. ;;21,"55048-0446-30 ")
  1. ;;2751
  1. ;;21,"55048-0447-30 ")
  1. ;;2752
  1. ;;21,"55048-0448-30 ")
  1. ;;2753
  1. ;;21,"55048-0463-30 ")
  1. ;;2754
  1. ;;21,"55048-0464-30 ")
  1. ;;2755
  1. ;;21,"55048-0465-30 ")
  1. ;;2756
  1. ;;21,"55048-0466-30 ")
  1. ;;2757
  1. ;;21,"55048-0471-30 ")
  1. ;;2758
  1. ;;21,"55048-0473-90 ")
  1. ;;2759
  1. ;;21,"55048-0619-30 ")
  1. ;;2760
  1. ;;21,"55048-0620-30 ")
  1. ;;2761
  1. ;;21,"55048-0621-30 ")
  1. ;;2762
  1. ;;21,"55111-0133-01 ")
  1. ;;2763
  1. ;;21,"55111-0134-01 ")
  1. ;;2764
  1. ;;21,"55111-0338-01 ")
  1. ;;2765
  1. ;;21,"55111-0339-01 ")
  1. ;;2766
  1. ;;21,"55111-0339-05 ")
  1. ;;2767
  1. ;;21,"55111-0340-01 ")
  1. ;;2768
  1. ;;21,"55111-0340-05 ")
  1. ;;2769
  1. ;;21,"55111-0341-01 ")
  1. ;;2770
  1. ;;21,"55111-0341-05 ")
  1. ;;2771
  1. ;;21,"55111-0438-90 ")
  1. ;;2772
  1. ;;21,"55111-0439-05 ")
  1. ;;2773
  1. ;;21,"55111-0439-90 ")
  1. ;;2774
  1. ;;21,"55111-0440-05 ")
  1. ;;2775
  1. ;;21,"55111-0440-90 ")
  1. ;;2776
  1. ;;21,"55111-0441-05 ")
  1. ;;2777
  1. ;;21,"55111-0441-90 ")
  1. ;;2778
  1. ;;21,"55111-0586-01 ")
  1. ;;2779
  1. ;;21,"55111-0587-01 ")
  1. ;;2780
  1. ;;21,"55111-0621-90 ")
  1. ;;2781
  1. ;;21,"55111-0622-90 ")
  1. ;;2782
  1. ;;21,"55111-0623-90 ")
  1. ;;2783
  1. ;;21,"55111-0624-90 ")
  1. ;;2784
  1. ;;21,"55154-6281-00 ")
  1. ;;2785
  1. ;;21,"55289-0039-30 ")
  1. ;;2786
  1. ;;21,"55289-0086-30 ")
  1. ;;2787
  1. ;;21,"55289-0096-30 ")
  1. ;;2788
  1. ;;21,"55289-0106-30 ")
  1. ;;2789
  1. ;;21,"55289-0212-30 ")
  1. ;;2790
  1. ;;21,"55289-0212-90 ")
  1. ;;2791
  1. ;;21,"55289-0238-30 ")
  1. ;;2792
  1. ;;21,"55289-0344-30 ")
  1. ;;2793
  1. ;;21,"55289-0344-90 ")
  1. ;;2794
  1. ;;21,"55289-0436-30 ")
  1. ;;2795
  1. ;;21,"55289-0443-30 ")
  1. ;;2796
  1. ;;21,"55289-0483-30 ")
  1. ;;2797
  1. ;;21,"55289-0484-30 ")
  1. ;;2798
  1. ;;21,"55289-0509-30 ")
  1. ;;2799
  1. ;;21,"55289-0522-30 ")
  1. ;;2800
  1. ;;21,"55289-0552-30 ")
  1. ;;2801
  1. ;;21,"55289-0553-30 ")
  1. ;;2802
  1. ;;21,"55289-0554-30 ")
  1. ;;2803
  1. ;;21,"55289-0555-30 ")
  1. ;;2804
  1. ;;21,"55289-0591-30 ")
  1. ;;2805
  1. ;;21,"55289-0591-90 ")
  1. ;;2806
  1. ;;21,"55289-0622-03 ")
  1. ;;2807
  1. ;;21,"55289-0622-30 ")
  1. ;;2808
  1. ;;21,"55289-0638-01 ")
  1. ;;2809
  1. ;;21,"55289-0638-12 ")
  1. ;;2810
  1. ;;21,"55289-0638-14 ")
  1. ;;2811
  1. ;;21,"55289-0638-30 ")
  1. ;;2812
  1. ;;21,"55289-0638-60 ")
  1. ;;2813
  1. ;;21,"55289-0638-90 ")
  1. ;;2814
  1. ;;21,"55289-0638-98 ")
  1. ;;2815
  1. ;;21,"55289-0694-10 ")
  1. ;;2816
  1. ;;21,"55289-0694-30 ")
  1. ;;2817
  1. ;;21,"55289-0694-90 ")
  1. ;;2818
  1. ;;21,"55289-0696-14 ")
  1. ;;2819
  1. ;;21,"55289-0696-30 ")
  1. ;;2820
  1. ;;21,"55289-0696-60 ")
  1. ;;2821
  1. ;;21,"55289-0696-90 ")
  1. ;;2822
  1. ;;21,"55289-0696-98 ")
  1. ;;2823
  1. ;;21,"55289-0815-30 ")
  1. ;;2824
  1. ;;21,"55289-0817-30 ")
  1. ;;2825
  1. ;;21,"55289-0820-30 ")
  1. ;;2826
  1. ;;21,"55289-0825-30 ")
  1. ;;2827
  1. ;;21,"55289-0838-30 ")
  1. ;;2828
  1. ;;21,"55289-0867-30 ")
  1. ;;2829
  1. ;;21,"55289-0876-30 ")
  1. ;;2830
  1. ;;21,"55289-0878-30 ")
  1. ;;2831
  1. ;;21,"55289-0884-30 ")
  1. ;;2832
  1. ;;21,"55289-0884-90 ")
  1. ;;2833
  1. ;;21,"55289-0917-30 ")
  1. ;;2834
  1. ;;21,"55289-0917-90 ")
  1. ;;2835
  1. ;;21,"55289-0929-08 ")
  1. ;;2836
  1. ;;21,"55289-0929-30 ")
  1. ;;2837
  1. ;;21,"55289-0963-30 ")
  1. ;;2838
  1. ;;21,"55289-0981-30 ")
  1. ;;2839
  1. ;;21,"55289-0984-30 ")
  1. ;;2840
  1. ;;21,"55289-0984-90 ")
  1. ;;2841
  1. ;;21,"55700-0011-30 ")
  1. ;;2842
  1. ;;21,"55700-0011-60 ")
  1. ;;2843
  1. ;;21,"55700-0011-90 ")
  1. ;;2844
  1. ;;21,"55700-0012-30 ")
  1. ;;2845
  1. ;;21,"55700-0012-60 ")
  1. ;;2846
  1. ;;21,"55700-0012-90 ")
  1. ;;2847
  1. ;;21,"55700-0014-30 ")
  1. ;;2848
  1. ;;21,"55700-0014-60 ")
  1. ;;2849
  1. ;;21,"55700-0023-30 ")
  1. ;;2850
  1. ;;21,"55700-0023-60 ")
  1. ;;2851
  1. ;;21,"55700-0032-30 ")
  1. ;;2852
  1. ;;21,"55700-0032-60 ")
  1. ;;2853
  1. ;;21,"55700-0032-90 ")
  1. ;;2854
  1. ;;21,"55700-0037-30 ")
  1. ;;2855
  1. ;;21,"55700-0037-60 ")
  1. ;;2856
  1. ;;21,"55700-0037-90 ")
  1. ;;2857
  1. ;;21,"55700-0059-90 ")
  1. ;;2858
  1. ;;21,"55700-0077-90 ")
  1. ;;2859
  1. ;;21,"55700-0205-30 ")
  1. ;;2860
  1. ;;21,"55700-0269-30 ")
  1. ;;2861
  1. ;;21,"55700-0285-30 ")
  1. ;;2862
  1. ;;21,"55700-0290-30 ")
  1. ;;2863
  1. ;;21,"55700-0290-90 ")
  1. ;;2864
  1. ;;21,"55700-0291-30 ")
  1. ;;2865
  1. ;;21,"55700-0291-90 ")
  1. ;;2866
  1. ;;21,"55700-0317-30 ")
  1. ;;2867
  1. ;;21,"55700-0317-90 ")
  1. ;;2868
  1. ;;21,"55700-0346-30 ")
  1. ;;2869
  1. ;;21,"55700-0347-30 ")
  1. ;;2870
  1. ;;21,"55700-0407-30 ")
  1. ;;2871
  1. ;;21,"55700-0407-60 ")
  1. ;;2872
  1. ;;21,"55700-0407-90 ")
  1. ;;2873
  1. ;;21,"57237-0026-01 ")
  1. ;;2874
  1. ;;21,"57237-0026-30 ")
  1. ;;2875
  1. ;;21,"57237-0027-01 ")
  1. ;;2876
  1. ;;21,"57237-0027-30 ")
  1. ;;2877
  1. ;;21,"57237-0052-00 ")
  1. ;;2878
  1. ;;21,"57237-0052-05 ")
  1. ;;2879
  1. ;;21,"57237-0053-00 ")
  1. ;;2880
  1. ;;21,"57237-0053-99 ")
  1. ;;2881
  1. ;;21,"57237-0054-00 ")
  1. ;;2882
  1. ;;21,"57237-0054-99 ")
  1. ;;2883
  1. ;;21,"57237-0055-00 ")
  1. ;;2884
  1. ;;21,"57237-0055-99 ")
  1. ;;2885
  1. ;;21,"57237-0056-00 ")
  1. ;;2886
  1. ;;21,"57237-0057-00 ")
  1. ;;2887
  1. ;;21,"57237-0057-99 ")
  1. ;;2888
  1. ;;21,"57237-0089-01 ")
  1. ;;2889
  1. ;;21,"57237-0090-01 ")
  1. ;;2890
  1. ;;21,"57237-0091-01 ")
  1. ;;2891
  1. ;;21,"57237-0142-01 ")
  1. ;;2892
  1. ;;21,"57237-0143-01 ")
  1. ;;2893
  1. ;;21,"57237-0143-05 ")
  1. ;;2894
  1. ;;21,"57237-0144-01 ")
  1. ;;2895
  1. ;;21,"57237-0144-05 ")
  1. ;;2896
  1. ;;21,"57237-0145-01 ")
  1. ;;2897
  1. ;;21,"57237-0145-05 ")
  1. ;;2898
  1. ;;21,"57237-0146-01 ")
  1. ;;2899
  1. ;;21,"57237-0146-05 ")
  1. ;;2900
  1. ;;21,"57237-0147-01 ")
  1. ;;2901
  1. ;;21,"57237-0147-05 ")
  1. ;;2902
  1. ;;21,"58118-0115-03 ")
  1. ;;2903
  1. ;;21,"58118-0115-06 ")
  1. ;;2904
  1. ;;21,"58118-0115-09 ")
  1. ;;2905
  1. ;;21,"58118-0116-03 ")
  1. ;;2906
  1. ;;21,"58118-0116-09 ")
  1. ;;2907
  1. ;;21,"58118-0117-03 ")
  1. ;;2908
  1. ;;21,"58118-0117-09 ")
  1. ;;2909
  1. ;;21,"58118-0118-03 ")
  1. ;;2910
  1. ;;21,"58118-0118-09 ")
  1. ;;2911
  1. ;;21,"58118-0337-03 ")
  1. ;;2912
  1. ;;21,"58118-0337-09 ")
  1. ;;2913
  1. ;;21,"58118-0338-08 ")
  1. ;;2914
  1. ;;21,"58118-0338-09 ")
  1. ;;2915
  1. ;;21,"58118-0339-08 ")
  1. ;;2916
  1. ;;21,"58118-0339-09 ")
  1. ;;2917
  1. ;;21,"58118-0340-03 ")
  1. ;;2918
  1. ;;21,"58118-0340-09 ")
  1. ;;2919
  1. ;;21,"58118-0409-03 ")
  1. ;;2920
  1. ;;21,"58118-0409-06 ")
  1. ;;2921
  1. ;;21,"58118-0409-09 ")
  1. ;;2922
  1. ;;21,"58118-0512-03 ")
  1. ;;2923
  1. ;;21,"58118-0512-09 ")
  1. ;;2924
  1. ;;21,"58118-0513-08 ")
  1. ;;2925
  1. ;;21,"58118-0513-09 ")
  1. ;;2926
  1. ;;21,"58118-0514-03 ")
  1. ;;2927
  1. ;;21,"58118-0514-06 ")
  1. ;;2928
  1. ;;21,"58118-0514-09 ")
  1. ;;2929
  1. ;;21,"58118-0515-03 ")
  1. ;;2930
  1. ;;21,"58118-0515-09 ")
  1. ;;2931
  1. ;;21,"58118-0517-03 ")
  1. ;;2932
  1. ;;21,"58118-0517-09 ")
  1. ;;2933
  1. ;;21,"58118-0519-03 ")
  1. ;;2934
  1. ;;21,"58118-0590-08 ")
  1. ;;2935
  1. ;;21,"58118-0590-09 ")
  1. ;;2936
  1. ;;21,"58118-0591-08 ")
  1. ;;2937
  1. ;;21,"58118-0591-09 ")
  1. ;;2938
  1. ;;21,"58118-1518-03 ")
  1. ;;2939
  1. ;;21,"58118-1518-06 ")
  1. ;;2940
  1. ;;21,"58118-1518-09 ")
  1. ;;2941
  1. ;;21,"58118-1520-03 ")
  1. ;;2942
  1. ;;21,"58118-1520-09 ")
  1. ;;2943
  1. ;;21,"58118-2271-03 ")
  1. ;;2944
  1. ;;21,"58118-2271-09 ")
  1. ;;2945
  1. ;;21,"58118-2272-03 ")
  1. ;;2946
  1. ;;21,"58118-2272-09 ")
  1. ;;2947
  1. ;;21,"58118-2273-03 ")
  1. ;;2948
  1. ;;21,"58118-2273-09 ")
  1. ;;2949
  1. ;;21,"58118-2274-03 ")
  1. ;;2950
  1. ;;21,"58118-2274-09 ")
  1. ;;2951
  1. ;;21,"58118-2277-03 ")
  1. ;;2952
  1. ;;21,"58118-2277-09 ")
  1. ;;2953
  1. ;;21,"58118-2279-03 ")
  1. ;;2954
  1. ;;21,"58118-2279-09 ")
  1. ;;2955
  1. ;;21,"58118-4725-03 ")
  1. ;;2956
  1. ;;21,"58118-4725-09 ")
  1. ;;2957
  1. ;;21,"58118-4745-03 ")
  1. ;;2958
  1. ;;21,"58118-4745-09 ")
  1. ;;2959
  1. ;;21,"58118-4775-03 ")
  1. ;;2960
  1. ;;21,"58118-4775-09 ")
  1. ;;2961
  1. ;;21,"58517-0240-30 ")
  1. ;;2962
  1. ;;21,"58864-0000-63 ")
  1. ;;2963
  1. ;;21,"58864-0006-30 ")
  1. ;;2964
  1. ;;21,"58864-0066-28 ")
  1. ;;2965
  1. ;;21,"58864-0603-15 ")
  1. ;;2966
  1. ;;21,"58864-0603-30 ")
  1. ;;2967
  1. ;;21,"58864-0603-90 ")
  1. ;;2968
  1. ;;21,"58864-0605-30 ")
  1. ;;2969
  1. ;;21,"58864-0618-15 ")
  1. ;;2970
  1. ;;21,"58864-0618-30 ")
  1. ;;2971
  1. ;;21,"58864-0654-30 ")
  1. ;;2972
  1. ;;21,"58864-0659-30 ")
  1. ;;2973
  1. ;;21,"58864-0661-30 ")
  1. ;;2974
  1. ;;21,"58864-0662-30 ")
  1. ;;2975
  1. ;;21,"58864-0674-30 ")
  1. ;;2976
  1. ;;21,"58864-0681-30 ")
  1. ;;2977
  1. ;;21,"58864-0726-15 ")
  1. ;;2978
  1. ;;21,"58864-0726-30 ")
  1. ;;2979
  1. ;;21,"58864-0750-30 ")
  1. ;;2980
  1. ;;21,"58864-0753-30 ")
  1. ;;2981
  1. ;;21,"58864-0753-90 ")
  1. ;;2982
  1. ;;21,"58864-0754-30 ")
  1. ;;2983
  1. ;;21,"58864-0755-30 ")
  1. ;;2984
  1. ;;21,"58864-0762-30 ")
  1. ;;2985
  1. ;;21,"58864-0771-15 ")
  1. ;;2986
  1. ;;21,"58864-0774-90 ")
  1. ;;2987
  1. ;;21,"58864-0787-30 ")
  1. ;;2988
  1. ;;21,"58864-0807-30 ")
  1. ;;2989
  1. ;;21,"58864-0847-30 ")
  1. ;;2990
  1. ;;21,"58864-0859-30 ")
  1. ;;2991
  1. ;;21,"58864-0863-30 ")
  1. ;;2992
  1. ;;21,"58864-0869-30 ")
  1. ;;2993
  1. ;;21,"59746-0333-10 ")
  1. ;;2994
  1. ;;21,"59746-0333-90 ")
  1. ;;2995
  1. ;;21,"59746-0334-10 ")
  1. ;;2996
  1. ;;21,"59746-0334-30 ")
  1. ;;2997
  1. ;;21,"59746-0334-90 ")
  1. ;;2998
  1. ;;21,"59746-0335-10 ")
  1. ;;2999
  1. ;;21,"59746-0335-30 ")
  1. ;;3000
  1. ;;21,"59746-0335-90 ")
  1. ;;3001
  1. ;;21,"59746-0337-30 ")
  1. ;;3002
  1. ;;21,"59746-0337-90 ")
  1. ;;3003
  1. ;;21,"59746-0338-30 ")
  1. ;;3004
  1. ;;21,"59746-0338-90 ")
  1. ;;3005
  1. ;;21,"59746-0339-30 ")
  1. ;;3006
  1. ;;21,"59746-0339-90 ")
  1. ;;3007
  1. ;;21,"59746-0360-30 ")
  1. ;;3008
  1. ;;21,"59746-0361-90 ")
  1. ;;3009
  1. ;;21,"59746-0362-90 ")
  1. ;;3010
  1. ;;21,"59746-0363-90 ")
  1. ;;3011
  1. ;;21,"59746-0447-30 ")
  1. ;;3012
  1. ;;21,"59746-0447-90 ")
  1. ;;3013
  1. ;;21,"59746-0448-30 ")
  1. ;;3014
  1. ;;21,"59746-0448-90 ")
  1. ;;3015
  1. ;;21,"59746-0449-30 ")
  1. ;;3016
  1. ;;21,"59746-0449-90 ")
  1. ;;3017
  1. ;;21,"59762-0122-01 ")
  1. ;;3018
  1. ;;21,"59762-0132-01 ")
  1. ;;3019
  1. ;;21,"59762-0142-01 ")
  1. ;;3020
  1. ;;21,"59762-0152-01 ")
  1. ;;3021