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

BGPM5BEL.m

Go to the documentation of this file.
BGPM5BEL ;IHS/MSC/MMT-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,"57866646301 ")
 ;;2840
 ;;21,"57866646302 ")
 ;;2841
 ;;21,"57866707301 ")
 ;;2842
 ;;21,"57866707302 ")
 ;;2843
 ;;21,"57866707401 ")
 ;;2844
 ;;21,"57866707402 ")
 ;;2845
 ;;21,"57866905401 ")
 ;;963
 ;;21,"57866905402 ")
 ;;964
 ;;21,"57866905403 ")
 ;;965
 ;;21,"57866905404 ")
 ;;966
 ;;21,"57866905501 ")
 ;;967
 ;;21,"57866905502 ")
 ;;968
 ;;21,"57866905503 ")
 ;;969
 ;;21,"57866905504 ")
 ;;970
 ;;21,"57866905505 ")
 ;;971
 ;;21,"57866905601 ")
 ;;972
 ;;21,"57866905602 ")
 ;;973
 ;;21,"57866905603 ")
 ;;974
 ;;21,"57866905604 ")
 ;;975
 ;;21,"57866905606 ")
 ;;976
 ;;21,"58016000500 ")
 ;;2846
 ;;21,"58016000501 ")
 ;;2847
 ;;21,"58016000502 ")
 ;;2848
 ;;21,"58016000503 ")
 ;;2849
 ;;21,"58016000504 ")
 ;;2850
 ;;21,"58016000505 ")
 ;;2851
 ;;21,"58016000530 ")
 ;;2852
 ;;21,"58016000560 ")
 ;;2853
 ;;21,"58016000590 ")
 ;;2854
 ;;21,"58016005800 ")
 ;;95
 ;;21,"58016005801 ")
 ;;96
 ;;21,"58016005802 ")
 ;;97
 ;;21,"58016005803 ")
 ;;98
 ;;21,"58016005804 ")
 ;;99
 ;;21,"58016005805 ")
 ;;100
 ;;21,"58016005830 ")
 ;;101
 ;;21,"58016005860 ")
 ;;102
 ;;21,"58016005890 ")
 ;;103
 ;;21,"58016033400 ")
 ;;2864
 ;;21,"58016033401 ")
 ;;2865
 ;;21,"58016033402 ")
 ;;2866
 ;;21,"58016033403 ")
 ;;2867
 ;;21,"58016033404 ")
 ;;2868
 ;;21,"58016033405 ")
 ;;2869
 ;;21,"58016033406 ")
 ;;2870
 ;;21,"58016033407 ")
 ;;2871
 ;;21,"58016033408 ")
 ;;2872
 ;;21,"58016033409 ")
 ;;2873
 ;;21,"58016033410 ")
 ;;2874
 ;;21,"58016033412 ")
 ;;2875
 ;;21,"58016033414 ")
 ;;2876
 ;;21,"58016033415 ")
 ;;2877
 ;;21,"58016033416 ")
 ;;2878
 ;;21,"58016033418 ")
 ;;2879
 ;;21,"58016033420 ")
 ;;2880
 ;;21,"58016033421 ")
 ;;2881
 ;;21,"58016033424 ")
 ;;2882
 ;;21,"58016033425 ")
 ;;2883
 ;;21,"58016033426 ")
 ;;2884
 ;;21,"58016033427 ")
 ;;2885
 ;;21,"58016033428 ")
 ;;2886
 ;;21,"58016033430 ")
 ;;2887
 ;;21,"58016033432 ")
 ;;2888
 ;;21,"58016033435 ")
 ;;2889
 ;;21,"58016033436 ")
 ;;2890
 ;;21,"58016033440 ")
 ;;2891
 ;;21,"58016033442 ")
 ;;2892
 ;;21,"58016033444 ")
 ;;2893
 ;;21,"58016033445 ")
 ;;2894
 ;;21,"58016033448 ")
 ;;2895
 ;;21,"58016033450 ")
 ;;2896
 ;;21,"58016033456 ")
 ;;2897
 ;;21,"58016033460 ")
 ;;2898
 ;;21,"58016033467 ")
 ;;2899
 ;;21,"58016033469 ")
 ;;2900
 ;;21,"58016033470 ")
 ;;2901
 ;;21,"58016033471 ")
 ;;2902
 ;;21,"58016033472 ")
 ;;2903
 ;;21,"58016033473 ")
 ;;2904
 ;;21,"58016033475 ")
 ;;2905
 ;;21,"58016033476 ")
 ;;2906
 ;;21,"58016033477 ")
 ;;2907
 ;;21,"58016033479 ")
 ;;2908
 ;;21,"58016033480 ")
 ;;2909
 ;;21,"58016033481 ")
 ;;2910
 ;;21,"58016033482 ")
 ;;2911
 ;;21,"58016033483 ")
 ;;2912
 ;;21,"58016033484 ")
 ;;2913
 ;;21,"58016033487 ")
 ;;2914
 ;;21,"58016033489 ")
 ;;2915
 ;;21,"58016033490 ")
 ;;2916
 ;;21,"58016033491 ")
 ;;2917
 ;;21,"58016033492 ")
 ;;2918
 ;;21,"58016033493 ")
 ;;2919
 ;;21,"58016033496 ")
 ;;2920
 ;;21,"58016033497 ")
 ;;2921
 ;;21,"58016033498 ")
 ;;2922
 ;;21,"58016033499 ")
 ;;2923
 ;;21,"58016037030 ")
 ;;2924
 ;;21,"58016037600 ")
 ;;2925
 ;;21,"58016037601 ")
 ;;2926
 ;;21,"58016037602 ")
 ;;2927
 ;;21,"58016037603 ")
 ;;2928
 ;;21,"58016037604 ")
 ;;2929
 ;;21,"58016037605 ")
 ;;2930
 ;;21,"58016037606 ")
 ;;2931
 ;;21,"58016037607 ")
 ;;2932
 ;;21,"58016037608 ")
 ;;2933
 ;;21,"58016037609 ")
 ;;2934
 ;;21,"58016037610 ")
 ;;2935
 ;;21,"58016037612 ")
 ;;2936
 ;;21,"58016037614 ")
 ;;2937
 ;;21,"58016037615 ")
 ;;2938
 ;;21,"58016037616 ")
 ;;2939
 ;;21,"58016037618 ")
 ;;2940
 ;;21,"58016037620 ")
 ;;2941
 ;;21,"58016037621 ")
 ;;2942
 ;;21,"58016037624 ")
 ;;2943
 ;;21,"58016037625 ")
 ;;2944
 ;;21,"58016037626 ")
 ;;2945
 ;;21,"58016037627 ")
 ;;2946
 ;;21,"58016037628 ")
 ;;2947
 ;;21,"58016037630 ")
 ;;2948
 ;;21,"58016037632 ")
 ;;2949
 ;;21,"58016037635 ")
 ;;2950
 ;;21,"58016037636 ")
 ;;2951
 ;;21,"58016037640 ")
 ;;2952
 ;;21,"58016037642 ")
 ;;2953
 ;;21,"58016037644 ")
 ;;2954
 ;;21,"58016037645 ")
 ;;2955
 ;;21,"58016037648 ")
 ;;2956
 ;;21,"58016037650 ")
 ;;2957
 ;;21,"58016037656 ")
 ;;2958
 ;;21,"58016037660 ")
 ;;2959
 ;;21,"58016037667 ")
 ;;2960
 ;;21,"58016037669 ")
 ;;2961
 ;;21,"58016037670 ")
 ;;2962
 ;;21,"58016037671 ")
 ;;2963
 ;;21,"58016037672 ")
 ;;2964
 ;;21,"58016037673 ")
 ;;2965
 ;;21,"58016037675 ")
 ;;2966
 ;;21,"58016037676 ")
 ;;2967
 ;;21,"58016037677 ")
 ;;2968
 ;;21,"58016037679 ")
 ;;2969
 ;;21,"58016037680 ")
 ;;2970
 ;;21,"58016037681 ")
 ;;2971
 ;;21,"58016037682 ")
 ;;2972
 ;;21,"58016037683 ")
 ;;2973
 ;;21,"58016037684 ")
 ;;2974
 ;;21,"58016037687 ")
 ;;2975
 ;;21,"58016037689 ")
 ;;2976
 ;;21,"58016037690 ")
 ;;2977
 ;;21,"58016037691 ")
 ;;2978
 ;;21,"58016037692 ")
 ;;2979
 ;;21,"58016037693 ")
 ;;2980
 ;;21,"58016037696 ")
 ;;2981
 ;;21,"58016037697 ")
 ;;2982
 ;;21,"58016037698 ")
 ;;2983
 ;;21,"58016037699 ")
 ;;2984
 ;;21,"58016037800 ")
 ;;2985
 ;;21,"58016037801 ")
 ;;2986
 ;;21,"58016037802 ")
 ;;2987
 ;;21,"58016037803 ")
 ;;2988
 ;;21,"58016037804 ")
 ;;2989
 ;;21,"58016037805 ")
 ;;2990
 ;;21,"58016037806 ")
 ;;2991
 ;;21,"58016037807 ")
 ;;2992
 ;;21,"58016037808 ")
 ;;2993
 ;;21,"58016037809 ")
 ;;2994
 ;;21,"58016037810 ")
 ;;2995
 ;;21,"58016037812 ")
 ;;2996
 ;;21,"58016037814 ")
 ;;2997
 ;;21,"58016037815 ")
 ;;2998
 ;;21,"58016037816 ")
 ;;2999
 ;;21,"58016037818 ")
 ;;3000
 ;;21,"58016037820 ")
 ;;3001
 ;;21,"58016037821 ")
 ;;3002
 ;;21,"58016037824 ")
 ;;3003
 ;;21,"58016037825 ")
 ;;3004
 ;;21,"58016037826 ")
 ;;3005
 ;;21,"58016037827 ")
 ;;3006
 ;;21,"58016037828 ")
 ;;3007
 ;;21,"58016037830 ")
 ;;3008
 ;;21,"58016037832 ")
 ;;3009
 ;;21,"58016037835 ")
 ;;3010
 ;;21,"58016037836 ")
 ;;3011
 ;;21,"58016037840 ")
 ;;3012
 ;;21,"58016037842 ")
 ;;3013
 ;;21,"58016037844 ")
 ;;3014
 ;;21,"58016037845 ")
 ;;3015
 ;;21,"58016037848 ")
 ;;3016
 ;;21,"58016037850 ")
 ;;3017
 ;;21,"58016037856 ")
 ;;3018
 ;;21,"58016037860 ")
 ;;3019
 ;;21,"58016037867 ")
 ;;3020
 ;;21,"58016037869 ")
 ;;3021
 ;;21,"58016037870 ")
 ;;3022
 ;;21,"58016037871 ")
 ;;3023
 ;;21,"58016037872 ")
 ;;3024
 ;;21,"58016037873 ")
 ;;3025
 ;;21,"58016037875 ")
 ;;3026
 ;;21,"58016037876 ")
 ;;3027
 ;;21,"58016037877 ")
 ;;3028
 ;;21,"58016037879 ")
 ;;3029
 ;;21,"58016037880 ")
 ;;3030
 ;;21,"58016037881 ")
 ;;3031
 ;;21,"58016037882 ")
 ;;3032
 ;;21,"58016037883 ")
 ;;3033
 ;;21,"58016037884 ")
 ;;3034
 ;;21,"58016037887 ")
 ;;3035
 ;;21,"58016037889 ")
 ;;3036
 ;;21,"58016037890 ")
 ;;3037
 ;;21,"58016037891 ")
 ;;3038
 ;;21,"58016037892 ")
 ;;3039
 ;;21,"58016037893 ")
 ;;3040
 ;;21,"58016037896 ")
 ;;3041
 ;;21,"58016037897 ")
 ;;3042
 ;;21,"58016037898 ")
 ;;3043
 ;;21,"58016037899 ")
 ;;3044
 ;;21,"58016038300 ")
 ;;3045
 ;;21,"58016038301 ")
 ;;3046
 ;;21,"58016038302 ")
 ;;3047
 ;;21,"58016038303 ")
 ;;3048
 ;;21,"58016038304 ")
 ;;3049
 ;;21,"58016038305 ")
 ;;3050
 ;;21,"58016038306 ")
 ;;3051
 ;;21,"58016038307 ")
 ;;3052
 ;;21,"58016038308 ")
 ;;3053
 ;;21,"58016038309 ")
 ;;3054
 ;;21,"58016038310 ")
 ;;3055
 ;;21,"58016038312 ")
 ;;3056
 ;;21,"58016038314 ")
 ;;3057
 ;;21,"58016038315 ")
 ;;3058
 ;;21,"58016038316 ")
 ;;3059
 ;;21,"58016038318 ")
 ;;3060
 ;;21,"58016038320 ")
 ;;3061
 ;;21,"58016038321 ")
 ;;3062
 ;;21,"58016038324 ")
 ;;3063
 ;;21,"58016038325 ")
 ;;3064
 ;;21,"58016038326 ")
 ;;3065
 ;;21,"58016038327 ")
 ;;3066
 ;;21,"58016038328 ")
 ;;3067
 ;;21,"58016038330 ")
 ;;3068
 ;;21,"58016038332 ")
 ;;3069
 ;;21,"58016038335 ")
 ;;3070
 ;;21,"58016038336 ")
 ;;3071
 ;;21,"58016038340 ")
 ;;3072
 ;;21,"58016038342 ")
 ;;3073
 ;;21,"58016038344 ")
 ;;3074
 ;;21,"58016038345 ")
 ;;3075
 ;;21,"58016038348 ")
 ;;3076
 ;;21,"58016038350 ")
 ;;3077
 ;;21,"58016038356 ")
 ;;3078
 ;;21,"58016038360 ")
 ;;3079
 ;;21,"58016038367 ")
 ;;3080
 ;;21,"58016038369 ")
 ;;3081
 ;;21,"58016038370 ")
 ;;3082
 ;;21,"58016038371 ")
 ;;3083
 ;;21,"58016038372 ")
 ;;3084
 ;;21,"58016038373 ")
 ;;3085
 ;;21,"58016038375 ")
 ;;3086
 ;;21,"58016038376 ")
 ;;3087
 ;;21,"58016038377 ")
 ;;3088
 ;;21,"58016038379 ")
 ;;3089
 ;;21,"58016038380 ")
 ;;3090
 ;;21,"58016038381 ")
 ;;3091
 ;;21,"58016038382 ")
 ;;3092
 ;;21,"58016038383 ")
 ;;3093
 ;;21,"58016038384 ")
 ;;3094
 ;;21,"58016038387 ")
 ;;3095
 ;;21,"58016038389 ")
 ;;3096
 ;;21,"58016038390 ")
 ;;3097
 ;;21,"58016038391 ")
 ;;3098
 ;;21,"58016038392 ")
 ;;3099
 ;;21,"58016038393 ")
 ;;3100
 ;;21,"58016038396 ")
 ;;3101
 ;;21,"58016038397 ")
 ;;3102
 ;;21,"58016038398 ")
 ;;3103
 ;;21,"58016038399 ")
 ;;3104
 ;;21,"58016038600 ")
 ;;3105
 ;;21,"58016038601 ")
 ;;3106
 ;;21,"58016038602 ")
 ;;3107
 ;;21,"58016038603 ")
 ;;3108
 ;;21,"58016038604 ")
 ;;3109
 ;;21,"58016038605 ")
 ;;3110
 ;;21,"58016038606 ")
 ;;3111
 ;;21,"58016038607 ")
 ;;3112
 ;;21,"58016038608 ")
 ;;3113
 ;;21,"58016038609 ")
 ;;3114
 ;;21,"58016038610 ")
 ;;3115
 ;;21,"58016038612 ")
 ;;3116
 ;;21,"58016038614 ")
 ;;3117
 ;;21,"58016038615 ")
 ;;3118
 ;;21,"58016038616 ")
 ;;3119
 ;;21,"58016038618 ")
 ;;3120
 ;;21,"58016038620 ")
 ;;3121
 ;;21,"58016038621 ")
 ;;3122
 ;;21,"58016038624 ")
 ;;3123
 ;;21,"58016038625 ")
 ;;3124
 ;;21,"58016038626 ")
 ;;3125
 ;;21,"58016038627 ")
 ;;3126
 ;;21,"58016038628 ")
 ;;3127
 ;;21,"58016038630 ")
 ;;3128
 ;;21,"58016038632 ")
 ;;3129
 ;;21,"58016038635 ")
 ;;3130
 ;;21,"58016038636 ")
 ;;3131
 ;;21,"58016038640 ")
 ;;3132
 ;;21,"58016038642 ")
 ;;3133
 ;;21,"58016038644 ")
 ;;3134
 ;;21,"58016038645 ")
 ;;3135
 ;;21,"58016038648 ")
 ;;3136
 ;;21,"58016038650 ")
 ;;3137
 ;;21,"58016038656 ")
 ;;3138
 ;;21,"58016038660 ")
 ;;3139
 ;;21,"58016038667 ")
 ;;3140
 ;;21,"58016038669 ")
 ;;3141
 ;;21,"58016038670 ")
 ;;3142
 ;;21,"58016038671 ")
 ;;3143
 ;;21,"58016038672 ")
 ;;3144
 ;;21,"58016038673 ")
 ;;3145
 ;;21,"58016038675 ")
 ;;3146
 ;;21,"58016038676 ")
 ;;3147
 ;;21,"58016038677 ")
 ;;3148
 ;;21,"58016038679 ")
 ;;3149
 ;;21,"58016038680 ")
 ;;3150
 ;;21,"58016038681 ")
 ;;3151
 ;;21,"58016038682 ")
 ;;3152
 ;;21,"58016038683 ")
 ;;3153
 ;;21,"58016038684 ")
 ;;3154
 ;;21,"58016038687 ")
 ;;3155
 ;;21,"58016038689 ")
 ;;3156
 ;;21,"58016038690 ")
 ;;3157
 ;;21,"58016038691 ")
 ;;3158
 ;;21,"58016038692 ")
 ;;3159
 ;;21,"58016038693 ")
 ;;3160
 ;;21,"58016038696 ")
 ;;3161
 ;;21,"58016038697 ")
 ;;3162
 ;;21,"58016038698 ")
 ;;3163
 ;;21,"58016038699 ")
 ;;3164
 ;;21,"58016041100 ")
 ;;104
 ;;21,"58016041102 ")
 ;;105
 ;;21,"58016041130 ")
 ;;106
 ;;21,"58016041160 ")
 ;;107
 ;;21,"58016041190 ")
 ;;108
 ;;21,"58016046600 ")
 ;;991
 ;;21,"58016046601 ")
 ;;992
 ;;21,"58016046602 ")
 ;;993
 ;;21,"58016046603 ")
 ;;994
 ;;21,"58016046604 ")
 ;;995
 ;;21,"58016046605 ")
 ;;996
 ;;21,"58016046606 ")
 ;;997
 ;;21,"58016046607 ")
 ;;998
 ;;21,"58016046608 ")
 ;;999