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

BGPM5BAX.m

Go to the documentation of this file.
BGPM5BAX ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON SEP 12, 2011;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
 ;
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,"55045356601 ")
 ;;2651
 ;;21,"55045356801 ")
 ;;2652
 ;;21,"55045375708 ")
 ;;2653
 ;;21,"55045376608 ")
 ;;2654
 ;;21,"55045379901 ")
 ;;2655
 ;;21,"55111014701 ")
 ;;2656
 ;;21,"55111014730 ")
 ;;2657
 ;;21,"55111014790 ")
 ;;2658
 ;;21,"55111014801 ")
 ;;2659
 ;;21,"55111014810 ")
 ;;2660
 ;;21,"55111014830 ")
 ;;2661
 ;;21,"55111014890 ")
 ;;2662
 ;;21,"55111014901 ")
 ;;2663
 ;;21,"55111014910 ")
 ;;2664
 ;;21,"55111014930 ")
 ;;2665
 ;;21,"55111014990 ")
 ;;2666
 ;;21,"55111015001 ")
 ;;2667
 ;;21,"55111015005 ")
 ;;2668
 ;;21,"55111015010 ")
 ;;2669
 ;;21,"55111015030 ")
 ;;2670
 ;;21,"55111015078 ")
 ;;2671
 ;;21,"55111015079 ")
 ;;2672
 ;;21,"55111017301 ")
 ;;2673
 ;;21,"55111017305 ")
 ;;2674
 ;;21,"55111017330 ")
 ;;2675
 ;;21,"55111017360 ")
 ;;2676
 ;;21,"55111017390 ")
 ;;2677
 ;;21,"55111017401 ")
 ;;2678
 ;;21,"55111017405 ")
 ;;2679
 ;;21,"55111017430 ")
 ;;2680
 ;;21,"55111017460 ")
 ;;2681
 ;;21,"55111017490 ")
 ;;2682
 ;;21,"55111017501 ")
 ;;2683
 ;;21,"55111017505 ")
 ;;2684
 ;;21,"55111017530 ")
 ;;2685
 ;;21,"55111017560 ")
 ;;2686
 ;;21,"55111017590 ")
 ;;2687
 ;;21,"55111028448 ")
 ;;2688
 ;;21,"55111034201 ")
 ;;2689
 ;;21,"55111034205 ")
 ;;2690
 ;;21,"55111034230 ")
 ;;2691
 ;;21,"55111034260 ")
 ;;2692
 ;;21,"55111034278 ")
 ;;2693
 ;;21,"55111034288 ")
 ;;2694
 ;;21,"55111034290 ")
 ;;2695
 ;;21,"55111034299 ")
 ;;2696
 ;;21,"55111034301 ")
 ;;2697
 ;;21,"55111034305 ")
 ;;2698
 ;;21,"55111034330 ")
 ;;2699
 ;;21,"55111034360 ")
 ;;2700
 ;;21,"55111034378 ")
 ;;2701
 ;;21,"55111034390 ")
 ;;2702
 ;;21,"55111034396 ")
 ;;2703
 ;;21,"55111034398 ")
 ;;2704
 ;;21,"55111034401 ")
 ;;2705
 ;;21,"55111034405 ")
 ;;2706
 ;;21,"55111034430 ")
 ;;2707
 ;;21,"55111034460 ")
 ;;2708
 ;;21,"55111034478 ")
 ;;2709
 ;;21,"55111034486 ")
 ;;2710
 ;;21,"55111034490 ")
 ;;2711
 ;;21,"55111034497 ")
 ;;2712
 ;;21,"55111045301 ")
 ;;2713
 ;;21,"55111045305 ")
 ;;2714
 ;;21,"55111045330 ")
 ;;2715
 ;;21,"55111045360 ")
 ;;2716
 ;;21,"55111045378 ")
 ;;2717
 ;;21,"55111045379 ")
 ;;2718
 ;;21,"55111045390 ")
 ;;2719
 ;;21,"55111045401 ")
 ;;2720
 ;;21,"55111045405 ")
 ;;2721
 ;;21,"55111045430 ")
 ;;2722
 ;;21,"55111045460 ")
 ;;2723
 ;;21,"55111045478 ")
 ;;2724
 ;;21,"55111045479 ")
 ;;2725
 ;;21,"55111045490 ")
 ;;2726
 ;;21,"55111045501 ")
 ;;2727
 ;;21,"55111045505 ")
 ;;2728
 ;;21,"55111045530 ")
 ;;2729
 ;;21,"55111045560 ")
 ;;2730
 ;;21,"55111045578 ")
 ;;2731
 ;;21,"55111045579 ")
 ;;2732
 ;;21,"55111045590 ")
 ;;2733
 ;;21,"55111054501 ")
 ;;2734
 ;;21,"55111054505 ")
 ;;2735
 ;;21,"55111054530 ")
 ;;2736
 ;;21,"55111054560 ")
 ;;2737
 ;;21,"55111054579 ")
 ;;2738
 ;;21,"55111054590 ")
 ;;2739
 ;;21,"55111054601 ")
 ;;2740
 ;;21,"55111054605 ")
 ;;2741
 ;;21,"55111054630 ")
 ;;2742
 ;;21,"55111054660 ")
 ;;2743
 ;;21,"55111054679 ")
 ;;2744
 ;;21,"55111054690 ")
 ;;2745
 ;;21,"55111054701 ")
 ;;2746
 ;;21,"55111054705 ")
 ;;2747
 ;;21,"55111054730 ")
 ;;2748
 ;;21,"55111054760 ")
 ;;2749
 ;;21,"55111054779 ")
 ;;2750
 ;;21,"55111054790 ")
 ;;2751
 ;;21,"55111054801 ")
 ;;2752
 ;;21,"55111054805 ")
 ;;2753
 ;;21,"55111054830 ")
 ;;2754
 ;;21,"55111054860 ")
 ;;2755
 ;;21,"55111054879 ")
 ;;2756
 ;;21,"55111054890 ")
 ;;2757
 ;;21,"55111054901 ")
 ;;2758
 ;;21,"55111054905 ")
 ;;2759
 ;;21,"55111054930 ")
 ;;2760
 ;;21,"55111054960 ")
 ;;2761
 ;;21,"55111054979 ")
 ;;2762
 ;;21,"55111054990 ")
 ;;2763
 ;;21,"55154052700 ")
 ;;2764
 ;;21,"55154053003 ")
 ;;2765
 ;;21,"55154053103 ")
 ;;2766
 ;;21,"55154053200 ")
 ;;2767
 ;;21,"55154065900 ")
 ;;2768
 ;;21,"55154065907 ")
 ;;2769
 ;;21,"55154067300 ")
 ;;2770
 ;;21,"55154068800 ")
 ;;2771
 ;;21,"55154073600 ")
 ;;2772
 ;;21,"55154102509 ")
 ;;2773
 ;;21,"55154102609 ")
 ;;2774
 ;;21,"55154102709 ")
 ;;2775
 ;;21,"55154139000 ")
 ;;2776
 ;;21,"55154139100 ")
 ;;2777
 ;;21,"55154140607 ")
 ;;2778
 ;;21,"55154455209 ")
 ;;2779
 ;;21,"55154455909 ")
 ;;2780
 ;;21,"55154506600 ")
 ;;2781
 ;;21,"55154508700 ")
 ;;2782
 ;;21,"55154535300 ")
 ;;2783
 ;;21,"55154535500 ")
 ;;2784
 ;;21,"55154545900 ")
 ;;2785
 ;;21,"55154546700 ")
 ;;2786
 ;;21,"55154549500 ")
 ;;2787
 ;;21,"55154566500 ")
 ;;2788
 ;;21,"55154568000 ")
 ;;2789
 ;;21,"55154575409 ")
 ;;2790
 ;;21,"55154576109 ")
 ;;2791
 ;;21,"55154576204 ")
 ;;2792
 ;;21,"55154576206 ")
 ;;2793
 ;;21,"55154576309 ")
 ;;2794
 ;;21,"55154580907 ")
 ;;2795
 ;;21,"55154581407 ")
 ;;2796
 ;;21,"55154583900 ")
 ;;2797
 ;;21,"55154602709 ")
 ;;2798
 ;;21,"55154616500 ")
 ;;2799
 ;;21,"55154616700 ")
 ;;2800
 ;;21,"55154617500 ")
 ;;2801
 ;;21,"55154619900 ")
 ;;2802
 ;;21,"55154622003 ")
 ;;2803
 ;;21,"55154622103 ")
 ;;2804
 ;;21,"55154624009 ")
 ;;2805
 ;;21,"55154624109 ")
 ;;2806
 ;;21,"55154632500 ")
 ;;2807
 ;;21,"55154634609 ")
 ;;2808
 ;;21,"55154666000 ")
 ;;2809
 ;;21,"55154666100 ")
 ;;2810
 ;;21,"55154725100 ")
 ;;2811
 ;;21,"55154725107 ")
 ;;2812
 ;;21,"55154825600 ")
 ;;2813
 ;;21,"55154825604 ")
 ;;2814
 ;;21,"55154825606 ")
 ;;2815
 ;;21,"55154826209 ")
 ;;2816
 ;;21,"55154826309 ")
 ;;2817
 ;;21,"55154826509 ")
 ;;2818
 ;;21,"55154826600 ")
 ;;2819
 ;;21,"55154826609 ")
 ;;2820
 ;;21,"55154826700 ")
 ;;2821
 ;;21,"55154826709 ")
 ;;2822
 ;;21,"55154826809 ")
 ;;2823
 ;;21,"55154826900 ")
 ;;2824
 ;;21,"55154826909 ")
 ;;2825
 ;;21,"55154827109 ")
 ;;2826
 ;;21,"55160011401 ")
 ;;2827
 ;;21,"55160011501 ")
 ;;2828
 ;;21,"55160011601 ")
 ;;2829
 ;;21,"55160011701 ")
 ;;2830
 ;;21,"55289001630 ")
 ;;2831
 ;;21,"55289001660 ")
 ;;2832
 ;;21,"55289003745 ")
 ;;2833
 ;;21,"55289003790 ")
 ;;2834
 ;;21,"55289005345 ")
 ;;2835
 ;;21,"55289005390 ")
 ;;2836
 ;;21,"55289006014 ")
 ;;2837
 ;;21,"55289006407 ")
 ;;2838
 ;;21,"55289006414 ")
 ;;2839
 ;;21,"55289006430 ")
 ;;2840
 ;;21,"55289006460 ")
 ;;2841
 ;;21,"55289006490 ")
 ;;2842
 ;;21,"55289009930 ")
 ;;2843
 ;;21,"55289009950 ")
 ;;2844
 ;;21,"55289012412 ")
 ;;2845
 ;;21,"55289012430 ")
 ;;2846
 ;;21,"55289014414 ")
 ;;2847
 ;;21,"55289014430 ")
 ;;2848
 ;;21,"55289014490 ")
 ;;2849
 ;;21,"55289014930 ")
 ;;2850
 ;;21,"55289014960 ")
 ;;2851
 ;;21,"55289018517 ")
 ;;2852
 ;;21,"55289022330 ")
 ;;2853
 ;;21,"55289022360 ")
 ;;2854
 ;;21,"55289022390 ")
 ;;2855
 ;;21,"55289029114 ")
 ;;2856
 ;;21,"55289029130 ")
 ;;2857
 ;;21,"55289029160 ")
 ;;2858
 ;;21,"55289037830 ")
 ;;2859
 ;;21,"55289038130 ")
 ;;2860
 ;;21,"55289038145 ")
 ;;2861
 ;;21,"55289038160 ")
 ;;2862
 ;;21,"55289038190 ")
 ;;2863
 ;;21,"55289058630 ")
 ;;2864
 ;;21,"55289061014 ")
 ;;2865
 ;;21,"55289061028 ")
 ;;2866
 ;;21,"55289061030 ")
 ;;2867
 ;;21,"55289061060 ")
 ;;2868
 ;;21,"55289061090 ")
 ;;2869
 ;;21,"55289061314 ")
 ;;2870
 ;;21,"55289061330 ")
 ;;2871
 ;;21,"55289061360 ")
 ;;2872
 ;;21,"55289073001 ")
 ;;2873
 ;;21,"55289073012 ")
 ;;2874
 ;;21,"55289073025 ")
 ;;2875
 ;;21,"55289073030 ")
 ;;2876
 ;;21,"55289073060 ")
 ;;2877
 ;;21,"55289073090 ")
 ;;2878
 ;;21,"55289083930 ")
 ;;2879
 ;;21,"55289088314 ")
 ;;2880
 ;;21,"55289088330 ")
 ;;2881
 ;;21,"55289088360 ")
 ;;2882
 ;;21,"55289088390 ")
 ;;2883
 ;;21,"55289097230 ")
 ;;2884
 ;;21,"55289097260 ")
 ;;2885
 ;;21,"55289097290 ")
 ;;2886
 ;;21,"55567011206 ")
 ;;2887
 ;;21,"55567011215 ")
 ;;2888
 ;;21,"55567011225 ")
 ;;2889
 ;;21,"55567011306 ")
 ;;2890
 ;;21,"55567011315 ")
 ;;2891
 ;;21,"55567017013 ")
 ;;2892
 ;;21,"55567017035 ")
 ;;2893
 ;;21,"55567017037 ")
 ;;2894
 ;;21,"55567017113 ")
 ;;2895
 ;;21,"55567017135 ")
 ;;2896
 ;;21,"55567017136 ")
 ;;2897
 ;;21,"55567017213 ")
 ;;2898
 ;;21,"55567017234 ")
 ;;2899
 ;;21,"55567017235 ")
 ;;2900
 ;;21,"55567021413 ")
 ;;2901
 ;;21,"55567021435 ")
 ;;2902
 ;;21,"55567021513 ")
 ;;2903
 ;;21,"55567021518 ")
 ;;2904
 ;;21,"55567021526 ")
 ;;2905
 ;;21,"55567021613 ")
 ;;2906
 ;;21,"55567021635 ")
 ;;2907
 ;;21,"55567021713 ")
 ;;2908
 ;;21,"55567021735 ")
 ;;2909
 ;;21,"55648071601 ")
 ;;2910
 ;;21,"55648071602 ")
 ;;2911
 ;;21,"55648071603 ")
 ;;2912
 ;;21,"55648071604 ")
 ;;2913
 ;;21,"55648071605 ")
 ;;2914
 ;;21,"55648071701 ")
 ;;2915
 ;;21,"55648071702 ")
 ;;2916
 ;;21,"55648071703 ")
 ;;2917
 ;;21,"55648071704 ")
 ;;2918
 ;;21,"55648071705 ")
 ;;2919
 ;;21,"55648071801 ")
 ;;2920
 ;;21,"55648071802 ")
 ;;2921
 ;;21,"55648071803 ")
 ;;2922
 ;;21,"55648071804 ")
 ;;2923
 ;;21,"55648071805 ")
 ;;2924
 ;;21,"55648075101 ")
 ;;2925
 ;;21,"55648075201 ")
 ;;2926
 ;;21,"55648075202 ")
 ;;2927
 ;;21,"55648075203 ")
 ;;2928
 ;;21,"55648075204 ")
 ;;2929
 ;;21,"55648075207 ")
 ;;2930
 ;;21,"55648075301 ")
 ;;2931
 ;;21,"55648075302 ")
 ;;2932
 ;;21,"55648075303 ")
 ;;2933
 ;;21,"55648075304 ")
 ;;2934
 ;;21,"55648075307 ")
 ;;2935
 ;;21,"55864070830 ")
 ;;2936
 ;;21,"55887007530 ")
 ;;2937
 ;;21,"55887012530 ")
 ;;2938
 ;;21,"55887012560 ")
 ;;2939
 ;;21,"55887016015 ")
 ;;2940
 ;;21,"55887016030 ")
 ;;2941
 ;;21,"55887016060 ")
 ;;2942
 ;;21,"55887016090 ")
 ;;2943
 ;;21,"55887016830 ")
 ;;2944
 ;;21,"55887016860 ")
 ;;2945
 ;;21,"55887016890 ")
 ;;2946
 ;;21,"55887023730 ")
 ;;2947
 ;;21,"55887023760 ")
 ;;2948
 ;;21,"55887023786 ")
 ;;2949
 ;;21,"55887023790 ")
 ;;2950
 ;;21,"55887025620 ")
 ;;2951
 ;;21,"55887025630 ")
 ;;2952
 ;;21,"55887026030 ")
 ;;2953
 ;;21,"55887026090 ")
 ;;2954
 ;;21,"55887026101 ")
 ;;2955
 ;;21,"55887026130 ")
 ;;2956
 ;;21,"55887026190 ")
 ;;2957
 ;;21,"55887028830 ")
 ;;2958
 ;;21,"55887034630 ")
 ;;2959
 ;;21,"55887039430 ")
 ;;2960
 ;;21,"55887039490 ")
 ;;2961
 ;;21,"55887039860 ")
 ;;2962
 ;;21,"55887043310 ")
 ;;2963
 ;;21,"55887043330 ")
 ;;2964
 ;;21,"55887043930 ")
 ;;2965
 ;;21,"55887043960 ")
 ;;2966
 ;;21,"55887043992 ")
 ;;2967
 ;;21,"55887045830 ")
 ;;2968
 ;;21,"55887045860 ")
 ;;2969
 ;;21,"55887045890 ")
 ;;2970
 ;;21,"55887049830 ")
 ;;2971
 ;;21,"55887049860 ")
 ;;2972
 ;;21,"55887049890 ")
 ;;2973
 ;;21,"55887051815 ")
 ;;2974
 ;;21,"55887051830 ")
 ;;2975
 ;;21,"55887051860 ")
 ;;2976
 ;;21,"55887051890 ")
 ;;2977
 ;;21,"55887052420 ")
 ;;2978
 ;;21,"55887052430 ")
 ;;2979
 ;;21,"55887052460 ")
 ;;2980
 ;;21,"55887052490 ")
 ;;2981
 ;;21,"55887052492 ")
 ;;2982
 ;;21,"55887054130 ")
 ;;2983
 ;;21,"55887054830 ")
 ;;2984
 ;;21,"55887055230 ")
 ;;2985
 ;;21,"55887055260 ")
 ;;2986
 ;;21,"55887055290 ")
 ;;2987
 ;;21,"55887057030 ")
 ;;2988
 ;;21,"55887057040 ")
 ;;2989
 ;;21,"55887057060 ")
 ;;2990
 ;;21,"55887057090 ")
 ;;2991
 ;;21,"55887057092 ")
 ;;2992
 ;;21,"55887057214 ")
 ;;2993
 ;;21,"55887057290 ")
 ;;2994
 ;;21,"55887066105 ")
 ;;2995
 ;;21,"55887066130 ")
 ;;2996
 ;;21,"55887066160 ")
 ;;2997
 ;;21,"55887066190 ")
 ;;2998
 ;;21,"55887066430 ")
 ;;2999
 ;;21,"55887066490 ")
 ;;3000
 ;;21,"55887074550 ")
 ;;3001
 ;;21,"55887087130 ")
 ;;3002