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

BGPM5AQB.m

Go to the documentation of this file.
BGPM5AQB ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON AUG 16, 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,"58016089282 ")
 ;;2763
 ;;21,"58016089283 ")
 ;;2764
 ;;21,"58016089284 ")
 ;;2765
 ;;21,"58016089287 ")
 ;;2766
 ;;21,"58016089289 ")
 ;;2767
 ;;21,"58016089290 ")
 ;;2768
 ;;21,"58016089291 ")
 ;;2769
 ;;21,"58016089292 ")
 ;;2770
 ;;21,"58016089293 ")
 ;;2771
 ;;21,"58016089296 ")
 ;;2772
 ;;21,"58016089297 ")
 ;;2773
 ;;21,"58016089298 ")
 ;;2774
 ;;21,"58016089299 ")
 ;;2775
 ;;21,"58016091430 ")
 ;;2776
 ;;21,"58016091700 ")
 ;;2777
 ;;21,"58016091701 ")
 ;;2778
 ;;21,"58016091702 ")
 ;;2779
 ;;21,"58016091703 ")
 ;;2780
 ;;21,"58016091704 ")
 ;;2781
 ;;21,"58016091705 ")
 ;;2782
 ;;21,"58016091706 ")
 ;;2783
 ;;21,"58016091708 ")
 ;;2784
 ;;21,"58016091709 ")
 ;;2785
 ;;21,"58016091710 ")
 ;;2786
 ;;21,"58016091712 ")
 ;;2787
 ;;21,"58016091714 ")
 ;;2788
 ;;21,"58016091715 ")
 ;;2789
 ;;21,"58016091716 ")
 ;;2790
 ;;21,"58016091718 ")
 ;;2791
 ;;21,"58016091720 ")
 ;;2792
 ;;21,"58016091721 ")
 ;;2793
 ;;21,"58016091724 ")
 ;;2794
 ;;21,"58016091725 ")
 ;;2795
 ;;21,"58016091726 ")
 ;;2796
 ;;21,"58016091727 ")
 ;;2797
 ;;21,"58016091728 ")
 ;;2798
 ;;21,"58016091730 ")
 ;;2799
 ;;21,"58016091732 ")
 ;;2800
 ;;21,"58016091735 ")
 ;;2801
 ;;21,"58016091736 ")
 ;;2802
 ;;21,"58016091740 ")
 ;;2803
 ;;21,"58016091742 ")
 ;;2804
 ;;21,"58016091744 ")
 ;;2805
 ;;21,"58016091745 ")
 ;;2806
 ;;21,"58016091748 ")
 ;;2807
 ;;21,"58016091750 ")
 ;;2808
 ;;21,"58016091756 ")
 ;;2809
 ;;21,"58016091760 ")
 ;;2810
 ;;21,"58016091767 ")
 ;;2811
 ;;21,"58016091769 ")
 ;;2812
 ;;21,"58016091770 ")
 ;;2813
 ;;21,"58016091771 ")
 ;;2814
 ;;21,"58016091772 ")
 ;;2815
 ;;21,"58016091773 ")
 ;;2816
 ;;21,"58016091775 ")
 ;;2817
 ;;21,"58016091776 ")
 ;;2818
 ;;21,"58016091777 ")
 ;;2819
 ;;21,"58016091779 ")
 ;;2820
 ;;21,"58016091780 ")
 ;;2821
 ;;21,"58016091781 ")
 ;;2822
 ;;21,"58016091782 ")
 ;;2823
 ;;21,"58016091783 ")
 ;;2824
 ;;21,"58016091784 ")
 ;;2825
 ;;21,"58016091787 ")
 ;;2826
 ;;21,"58016091789 ")
 ;;2827
 ;;21,"58016091790 ")
 ;;2828
 ;;21,"58016091791 ")
 ;;2829
 ;;21,"58016091792 ")
 ;;2830
 ;;21,"58016091793 ")
 ;;2831
 ;;21,"58016091796 ")
 ;;2832
 ;;21,"58016091797 ")
 ;;2833
 ;;21,"58016091798 ")
 ;;2834
 ;;21,"58016091799 ")
 ;;2835
 ;;21,"58016093500 ")
 ;;2836
 ;;21,"58016093501 ")
 ;;2837
 ;;21,"58016093502 ")
 ;;2838
 ;;21,"58016093503 ")
 ;;2839
 ;;21,"58016093504 ")
 ;;2840
 ;;21,"58016093505 ")
 ;;2841
 ;;21,"58016093506 ")
 ;;2842
 ;;21,"58016093507 ")
 ;;2843
 ;;21,"58016093508 ")
 ;;2844
 ;;21,"58016093509 ")
 ;;2845
 ;;21,"58016093510 ")
 ;;2846
 ;;21,"58016093512 ")
 ;;2847
 ;;21,"58016093514 ")
 ;;2848
 ;;21,"58016093515 ")
 ;;2849
 ;;21,"58016093516 ")
 ;;2850
 ;;21,"58016093518 ")
 ;;2851
 ;;21,"58016093520 ")
 ;;2852
 ;;21,"58016093521 ")
 ;;2853
 ;;21,"58016093524 ")
 ;;2854
 ;;21,"58016093525 ")
 ;;2855
 ;;21,"58016093526 ")
 ;;2856
 ;;21,"58016093527 ")
 ;;2857
 ;;21,"58016093530 ")
 ;;2858
 ;;21,"58016093532 ")
 ;;2859
 ;;21,"58016093535 ")
 ;;2860
 ;;21,"58016093536 ")
 ;;2861
 ;;21,"58016093540 ")
 ;;2862
 ;;21,"58016093542 ")
 ;;2863
 ;;21,"58016093544 ")
 ;;2864
 ;;21,"58016093545 ")
 ;;2865
 ;;21,"58016093548 ")
 ;;2866
 ;;21,"58016093550 ")
 ;;2867
 ;;21,"58016093556 ")
 ;;2868
 ;;21,"58016093560 ")
 ;;2869
 ;;21,"58016093567 ")
 ;;2870
 ;;21,"58016093569 ")
 ;;2871
 ;;21,"58016093570 ")
 ;;2872
 ;;21,"58016093571 ")
 ;;2873
 ;;21,"58016093572 ")
 ;;2874
 ;;21,"58016093573 ")
 ;;2875
 ;;21,"58016093575 ")
 ;;2876
 ;;21,"58016093576 ")
 ;;2877
 ;;21,"58016093577 ")
 ;;2878
 ;;21,"58016093579 ")
 ;;2879
 ;;21,"58016093580 ")
 ;;2880
 ;;21,"58016093581 ")
 ;;2881
 ;;21,"58016093582 ")
 ;;2882
 ;;21,"58016093583 ")
 ;;2883
 ;;21,"58016093584 ")
 ;;2884
 ;;21,"58016093587 ")
 ;;2885
 ;;21,"58016093589 ")
 ;;2886
 ;;21,"58016093590 ")
 ;;2887
 ;;21,"58016093591 ")
 ;;2888
 ;;21,"58016093592 ")
 ;;2889
 ;;21,"58016093593 ")
 ;;2890
 ;;21,"58016093596 ")
 ;;2891
 ;;21,"58016093597 ")
 ;;2892
 ;;21,"58016093598 ")
 ;;2893
 ;;21,"58016093599 ")
 ;;2894
 ;;21,"58016095600 ")
 ;;2895
 ;;21,"58016095630 ")
 ;;2896
 ;;21,"58016095660 ")
 ;;2897
 ;;21,"58016095690 ")
 ;;2898
 ;;21,"58016096300 ")
 ;;2899
 ;;21,"58016096301 ")
 ;;2900
 ;;21,"58016096302 ")
 ;;2901
 ;;21,"58016096303 ")
 ;;2902
 ;;21,"58016096304 ")
 ;;2903
 ;;21,"58016096305 ")
 ;;2904
 ;;21,"58016096306 ")
 ;;2905
 ;;21,"58016096307 ")
 ;;2906
 ;;21,"58016096308 ")
 ;;2907
 ;;21,"58016096309 ")
 ;;2908
 ;;21,"58016096310 ")
 ;;2909
 ;;21,"58016096312 ")
 ;;2910
 ;;21,"58016096314 ")
 ;;2911
 ;;21,"58016096315 ")
 ;;2912
 ;;21,"58016096316 ")
 ;;2913
 ;;21,"58016096318 ")
 ;;2914
 ;;21,"58016096320 ")
 ;;2915
 ;;21,"58016096321 ")
 ;;2916
 ;;21,"58016096324 ")
 ;;2917
 ;;21,"58016096325 ")
 ;;2918
 ;;21,"58016096326 ")
 ;;2919
 ;;21,"58016096327 ")
 ;;2920
 ;;21,"58016096328 ")
 ;;2921
 ;;21,"58016096330 ")
 ;;2922
 ;;21,"58016096332 ")
 ;;2923
 ;;21,"58016096335 ")
 ;;2924
 ;;21,"58016096336 ")
 ;;2925
 ;;21,"58016096340 ")
 ;;2926
 ;;21,"58016096342 ")
 ;;2927
 ;;21,"58016096344 ")
 ;;2928
 ;;21,"58016096345 ")
 ;;2929
 ;;21,"58016096348 ")
 ;;2930
 ;;21,"58016096350 ")
 ;;2931
 ;;21,"58016096356 ")
 ;;2932
 ;;21,"58016096360 ")
 ;;2933
 ;;21,"58016096367 ")
 ;;2934
 ;;21,"58016096369 ")
 ;;2935
 ;;21,"58016096370 ")
 ;;2936
 ;;21,"58016096371 ")
 ;;2937
 ;;21,"58016096372 ")
 ;;2938
 ;;21,"58016096373 ")
 ;;2939
 ;;21,"58016096375 ")
 ;;2940
 ;;21,"58016096376 ")
 ;;2941
 ;;21,"58016096377 ")
 ;;2942
 ;;21,"58016096379 ")
 ;;2943
 ;;21,"58016096380 ")
 ;;2944
 ;;21,"58016096381 ")
 ;;2945
 ;;21,"58016096382 ")
 ;;2946
 ;;21,"58016096383 ")
 ;;2947
 ;;21,"58016096384 ")
 ;;2948
 ;;21,"58016096387 ")
 ;;2949
 ;;21,"58016096389 ")
 ;;2950
 ;;21,"58016096390 ")
 ;;2951
 ;;21,"58016096391 ")
 ;;2952
 ;;21,"58016096392 ")
 ;;2953
 ;;21,"58016096393 ")
 ;;2954
 ;;21,"58016096396 ")
 ;;2955
 ;;21,"58016096397 ")
 ;;2956
 ;;21,"58016096398 ")
 ;;2957
 ;;21,"58016096399 ")
 ;;2958
 ;;21,"58016099200 ")
 ;;2959
 ;;21,"58016099201 ")
 ;;2960
 ;;21,"58016099202 ")
 ;;2961
 ;;21,"58016099203 ")
 ;;2962
 ;;21,"58016099204 ")
 ;;2963
 ;;21,"58016099205 ")
 ;;2964
 ;;21,"58016099206 ")
 ;;2965
 ;;21,"58016099207 ")
 ;;2966
 ;;21,"58016099208 ")
 ;;2967
 ;;21,"58016099209 ")
 ;;2968
 ;;21,"58016099210 ")
 ;;2969
 ;;21,"58016099212 ")
 ;;2970
 ;;21,"58016099214 ")
 ;;2971
 ;;21,"58016099215 ")
 ;;2972
 ;;21,"58016099216 ")
 ;;2973
 ;;21,"58016099218 ")
 ;;2974
 ;;21,"58016099220 ")
 ;;2975
 ;;21,"58016099221 ")
 ;;2976
 ;;21,"58016099224 ")
 ;;2977
 ;;21,"58016099225 ")
 ;;2978
 ;;21,"58016099226 ")
 ;;2979
 ;;21,"58016099227 ")
 ;;2980
 ;;21,"58016099228 ")
 ;;2981
 ;;21,"58016099230 ")
 ;;2982
 ;;21,"58016099232 ")
 ;;2983
 ;;21,"58016099235 ")
 ;;2984
 ;;21,"58016099236 ")
 ;;2985
 ;;21,"58016099242 ")
 ;;2986
 ;;21,"58016099244 ")
 ;;2987
 ;;21,"58016099245 ")
 ;;2988
 ;;21,"58016099248 ")
 ;;2989
 ;;21,"58016099250 ")
 ;;2990
 ;;21,"58016099256 ")
 ;;2991
 ;;21,"58016099260 ")
 ;;2992
 ;;21,"58016099267 ")
 ;;2993
 ;;21,"58016099269 ")
 ;;2994
 ;;21,"58016099270 ")
 ;;2995
 ;;21,"58016099271 ")
 ;;2996
 ;;21,"58016099272 ")
 ;;2997
 ;;21,"58016099273 ")
 ;;2998
 ;;21,"58016099275 ")
 ;;2999
 ;;21,"58016099276 ")
 ;;3000
 ;;21,"58016099277 ")
 ;;3001
 ;;21,"58016099279 ")
 ;;3002
 ;;21,"58016099280 ")
 ;;3003
 ;;21,"58016099281 ")
 ;;3004
 ;;21,"58016099282 ")
 ;;3005
 ;;21,"58016099283 ")
 ;;3006
 ;;21,"58016099284 ")
 ;;3007
 ;;21,"58016099287 ")
 ;;3008
 ;;21,"58016099289 ")
 ;;3009
 ;;21,"58016099290 ")
 ;;3010
 ;;21,"58016099291 ")
 ;;3011
 ;;21,"58016099292 ")
 ;;3012
 ;;21,"58016099293 ")
 ;;3013
 ;;21,"58016099296 ")
 ;;3014
 ;;21,"58016099297 ")
 ;;3015
 ;;21,"58016099298 ")
 ;;3016
 ;;21,"58016099299 ")
 ;;3017
 ;;21,"58016099800 ")
 ;;3018
 ;;21,"58016099801 ")
 ;;3019
 ;;21,"58016099802 ")
 ;;3020
 ;;21,"58016099803 ")
 ;;3021
 ;;21,"58016099804 ")
 ;;3022
 ;;21,"58016099805 ")
 ;;3023
 ;;21,"58016099806 ")
 ;;3024
 ;;21,"58016099807 ")
 ;;3025
 ;;21,"58016099808 ")
 ;;3026
 ;;21,"58016099809 ")
 ;;3027
 ;;21,"58016099810 ")
 ;;3028
 ;;21,"58016099812 ")
 ;;3029
 ;;21,"58016099814 ")
 ;;3030
 ;;21,"58016099815 ")
 ;;3031
 ;;21,"58016099816 ")
 ;;3032
 ;;21,"58016099818 ")
 ;;3033
 ;;21,"58016099820 ")
 ;;3034
 ;;21,"58016099821 ")
 ;;3035
 ;;21,"58016099824 ")
 ;;3036
 ;;21,"58016099825 ")
 ;;3037
 ;;21,"58016099826 ")
 ;;3038
 ;;21,"58016099827 ")
 ;;3039
 ;;21,"58016099828 ")
 ;;3040
 ;;21,"58016099830 ")
 ;;3041
 ;;21,"58016099832 ")
 ;;3042
 ;;21,"58016099835 ")
 ;;3043
 ;;21,"58016099836 ")
 ;;3044
 ;;21,"58016099840 ")
 ;;3045
 ;;21,"58016099842 ")
 ;;3046
 ;;21,"58016099844 ")
 ;;3047
 ;;21,"58016099845 ")
 ;;3048
 ;;21,"58016099848 ")
 ;;3049
 ;;21,"58016099850 ")
 ;;3050
 ;;21,"58016099856 ")
 ;;3051
 ;;21,"58016099860 ")
 ;;3052
 ;;21,"58016099867 ")
 ;;3053
 ;;21,"58016099869 ")
 ;;3054
 ;;21,"58016099870 ")
 ;;3055
 ;;21,"58016099871 ")
 ;;3056
 ;;21,"58016099872 ")
 ;;3057
 ;;21,"58016099873 ")
 ;;3058
 ;;21,"58016099875 ")
 ;;3059
 ;;21,"58016099876 ")
 ;;3060
 ;;21,"58016099877 ")
 ;;3061
 ;;21,"58016099879 ")
 ;;3062
 ;;21,"58016099880 ")
 ;;3063
 ;;21,"58016099881 ")
 ;;3064
 ;;21,"58016099882 ")
 ;;3065
 ;;21,"58016099883 ")
 ;;3066
 ;;21,"58016099884 ")
 ;;3067
 ;;21,"58016099887 ")
 ;;3068
 ;;21,"58016099889 ")
 ;;3069
 ;;21,"58016099890 ")
 ;;3070
 ;;21,"58016099891 ")
 ;;3071
 ;;21,"58016099892 ")
 ;;3072
 ;;21,"58016099893 ")
 ;;3073
 ;;21,"58016099896 ")
 ;;3074
 ;;21,"58016099897 ")
 ;;3075
 ;;21,"58016099898 ")
 ;;3076
 ;;21,"58016099899 ")
 ;;3077
 ;;21,"58016463101 ")
 ;;3078
 ;;21,"58087007630 ")
 ;;3079
 ;;21,"58087007730 ")
 ;;3080
 ;;21,"58864000630 ")
 ;;3081
 ;;21,"58864006628 ")
 ;;3082
 ;;21,"58864010430 ")
 ;;3083
 ;;21,"58864051015 ")
 ;;3084
 ;;21,"58864060315 ")
 ;;3085
 ;;21,"58864060330 ")
 ;;3086
 ;;21,"58864060390 ")
 ;;3087
 ;;21,"58864060515 ")
 ;;3088
 ;;21,"58864060530 ")
 ;;3089
 ;;21,"58864061815 ")
 ;;3090
 ;;21,"58864061830 ")
 ;;3091
 ;;21,"58864065430 ")
 ;;3092
 ;;21,"58864066130 ")
 ;;3093
 ;;21,"58864066730 ")
 ;;3094
 ;;21,"58864067430 ")
 ;;3095
 ;;21,"58864068130 ")
 ;;3096
 ;;21,"58864072615 ")
 ;;3097
 ;;21,"58864072630 ")
 ;;3098
 ;;21,"58864075030 ")
 ;;3099
 ;;21,"58864075330 ")
 ;;3100
 ;;21,"58864075390 ")
 ;;3101
 ;;21,"58864075430 ")
 ;;3102
 ;;21,"58864075530 ")
 ;;3103
 ;;21,"58864076230 ")
 ;;3104
 ;;21,"58864077115 ")
 ;;3105
 ;;21,"58864077430 ")
 ;;3106
 ;;21,"58864077490 ")
 ;;3107
 ;;21,"58864078730 ")
 ;;3108
 ;;21,"58864083830 ")
 ;;3109
 ;;21,"58864084730 ")
 ;;3110
 ;;21,"58864085930 ")
 ;;3111
 ;;21,"58864086330 ")
 ;;3112
 ;;21,"58864086930 ")
 ;;3113
 ;;21,"59564012820 ")
 ;;3114