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

BGP61F9.m

Go to the documentation of this file.
BGP61F9 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 18, 2015 ;
 ;;16.1;IHS CLINICAL REPORTING;;MAR 22, 2016;Build 170
 ;
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,"55700-0037-60 ")
 ;;2898
 ;;21,"55700-0037-90 ")
 ;;2899
 ;;21,"55700-0059-90 ")
 ;;2900
 ;;21,"55700-0077-90 ")
 ;;2901
 ;;21,"55700-0205-30 ")
 ;;2902
 ;;21,"57237-0026-01 ")
 ;;2903
 ;;21,"57237-0026-30 ")
 ;;2904
 ;;21,"57237-0027-01 ")
 ;;2905
 ;;21,"57237-0027-30 ")
 ;;2906
 ;;21,"57237-0052-00 ")
 ;;2907
 ;;21,"57237-0052-05 ")
 ;;2908
 ;;21,"57237-0053-00 ")
 ;;2909
 ;;21,"57237-0053-99 ")
 ;;2910
 ;;21,"57237-0054-00 ")
 ;;2911
 ;;21,"57237-0054-99 ")
 ;;2912
 ;;21,"57237-0055-00 ")
 ;;2913
 ;;21,"57237-0055-99 ")
 ;;2914
 ;;21,"57237-0056-00 ")
 ;;2915
 ;;21,"57237-0057-00 ")
 ;;2916
 ;;21,"57237-0057-99 ")
 ;;2917
 ;;21,"58118-0115-03 ")
 ;;2918
 ;;21,"58118-0115-06 ")
 ;;2919
 ;;21,"58118-0115-09 ")
 ;;2920
 ;;21,"58118-0116-03 ")
 ;;2921
 ;;21,"58118-0116-09 ")
 ;;2922
 ;;21,"58118-0117-03 ")
 ;;2923
 ;;21,"58118-0117-09 ")
 ;;2924
 ;;21,"58118-0118-03 ")
 ;;2925
 ;;21,"58118-0118-09 ")
 ;;2926
 ;;21,"58118-0337-03 ")
 ;;2927
 ;;21,"58118-0337-09 ")
 ;;2928
 ;;21,"58118-0338-08 ")
 ;;2929
 ;;21,"58118-0338-09 ")
 ;;2930
 ;;21,"58118-0339-08 ")
 ;;2931
 ;;21,"58118-0339-09 ")
 ;;2932
 ;;21,"58118-0340-03 ")
 ;;2933
 ;;21,"58118-0340-09 ")
 ;;2934
 ;;21,"58118-0409-03 ")
 ;;2935
 ;;21,"58118-0409-06 ")
 ;;2936
 ;;21,"58118-0409-09 ")
 ;;2937
 ;;21,"58118-0512-03 ")
 ;;2938
 ;;21,"58118-0512-09 ")
 ;;2939
 ;;21,"58118-0513-08 ")
 ;;2940
 ;;21,"58118-0513-09 ")
 ;;2941
 ;;21,"58118-0514-03 ")
 ;;2942
 ;;21,"58118-0514-06 ")
 ;;2943
 ;;21,"58118-0514-09 ")
 ;;2944
 ;;21,"58118-0515-03 ")
 ;;2945
 ;;21,"58118-0515-09 ")
 ;;2946
 ;;21,"58118-0517-03 ")
 ;;2947
 ;;21,"58118-0517-09 ")
 ;;2948
 ;;21,"58118-0519-03 ")
 ;;2949
 ;;21,"58118-0590-08 ")
 ;;2950
 ;;21,"58118-0590-09 ")
 ;;2951
 ;;21,"58118-0591-08 ")
 ;;2952
 ;;21,"58118-0591-09 ")
 ;;2953
 ;;21,"58118-1518-03 ")
 ;;2954
 ;;21,"58118-1518-06 ")
 ;;2955
 ;;21,"58118-1518-09 ")
 ;;2956
 ;;21,"58118-1520-03 ")
 ;;2957
 ;;21,"58118-1520-09 ")
 ;;2958
 ;;21,"58118-2271-03 ")
 ;;2959
 ;;21,"58118-2271-09 ")
 ;;2960
 ;;21,"58118-2272-03 ")
 ;;2961
 ;;21,"58118-2272-09 ")
 ;;2962
 ;;21,"58118-2273-03 ")
 ;;2963
 ;;21,"58118-2273-09 ")
 ;;2964
 ;;21,"58118-2274-03 ")
 ;;2965
 ;;21,"58118-2274-09 ")
 ;;2966
 ;;21,"58118-2277-03 ")
 ;;2967
 ;;21,"58118-2277-09 ")
 ;;2968
 ;;21,"58118-2279-03 ")
 ;;2969
 ;;21,"58118-2279-09 ")
 ;;2970
 ;;21,"58118-4725-03 ")
 ;;2971
 ;;21,"58118-4725-09 ")
 ;;2972
 ;;21,"58118-4745-03 ")
 ;;2973
 ;;21,"58118-4745-09 ")
 ;;2974
 ;;21,"58118-4775-03 ")
 ;;2975
 ;;21,"58118-4775-09 ")
 ;;2976
 ;;21,"58517-0240-30 ")
 ;;2977
 ;;21,"58864-0000-63 ")
 ;;2978
 ;;21,"58864-0006-30 ")
 ;;2979
 ;;21,"58864-0066-28 ")
 ;;2980
 ;;21,"58864-0603-15 ")
 ;;2981
 ;;21,"58864-0603-30 ")
 ;;2982
 ;;21,"58864-0603-90 ")
 ;;2983
 ;;21,"58864-0605-30 ")
 ;;2984
 ;;21,"58864-0618-15 ")
 ;;2985
 ;;21,"58864-0618-30 ")
 ;;2986
 ;;21,"58864-0654-30 ")
 ;;2987
 ;;21,"58864-0659-30 ")
 ;;2988
 ;;21,"58864-0661-30 ")
 ;;2989
 ;;21,"58864-0662-30 ")
 ;;2990
 ;;21,"58864-0674-30 ")
 ;;2991
 ;;21,"58864-0681-30 ")
 ;;2992
 ;;21,"58864-0726-15 ")
 ;;2993
 ;;21,"58864-0726-30 ")
 ;;2994
 ;;21,"58864-0750-30 ")
 ;;2995
 ;;21,"58864-0753-30 ")
 ;;2996
 ;;21,"58864-0753-90 ")
 ;;2997
 ;;21,"58864-0754-30 ")
 ;;2998
 ;;21,"58864-0755-30 ")
 ;;2999
 ;;21,"58864-0762-30 ")
 ;;3000
 ;;21,"58864-0771-15 ")
 ;;3001
 ;;21,"58864-0774-90 ")
 ;;3002
 ;;21,"58864-0787-30 ")
 ;;3003
 ;;21,"58864-0807-30 ")
 ;;3004
 ;;21,"58864-0838-30 ")
 ;;3005
 ;;21,"58864-0847-30 ")
 ;;3006
 ;;21,"58864-0859-30 ")
 ;;3007
 ;;21,"58864-0863-30 ")
 ;;3008
 ;;21,"58864-0869-30 ")
 ;;3009
 ;;21,"59746-0333-10 ")
 ;;3010
 ;;21,"59746-0333-90 ")
 ;;3011
 ;;21,"59746-0334-10 ")
 ;;3012
 ;;21,"59746-0334-30 ")
 ;;3013
 ;;21,"59746-0334-90 ")
 ;;3014
 ;;21,"59746-0335-10 ")
 ;;3015
 ;;21,"59746-0335-30 ")
 ;;3016
 ;;21,"59746-0335-90 ")
 ;;3017
 ;;21,"59746-0337-30 ")
 ;;3018
 ;;21,"59746-0337-90 ")
 ;;3019
 ;;21,"59746-0338-30 ")
 ;;3020
 ;;21,"59746-0338-90 ")
 ;;3021
 ;;21,"59746-0339-30 ")
 ;;3022
 ;;21,"59746-0339-90 ")
 ;;3023
 ;;21,"59746-0360-30 ")
 ;;3024
 ;;21,"59746-0361-90 ")
 ;;3025
 ;;21,"59746-0362-90 ")
 ;;3026
 ;;21,"59746-0363-90 ")
 ;;3027
 ;;21,"59762-0122-01 ")
 ;;3028
 ;;21,"59762-0132-01 ")
 ;;3029
 ;;21,"59762-0142-01 ")
 ;;3030
 ;;21,"59762-0152-01 ")
 ;;3031
 ;;21,"59762-0220-01 ")
 ;;3032
 ;;21,"59762-0222-01 ")
 ;;3033
 ;;21,"59762-0223-01 ")
 ;;3034
 ;;21,"59762-3146-01 ")
 ;;3035
 ;;21,"59762-3146-02 ")
 ;;3036
 ;;21,"59762-3147-01 ")
 ;;3037
 ;;21,"59762-3147-02 ")
 ;;3038
 ;;21,"59762-3148-01 ")
 ;;3039
 ;;21,"59762-3148-02 ")
 ;;3040
 ;;21,"59762-5019-01 ")
 ;;3041
 ;;21,"59762-5020-01 ")
 ;;3042
 ;;21,"59762-5021-01 ")
 ;;3043
 ;;21,"59762-5022-01 ")
 ;;3044
 ;;21,"59762-5250-01 ")
 ;;3045
 ;;21,"59762-5250-04 ")
 ;;3046
 ;;21,"59762-5251-01 ")
 ;;3047
 ;;21,"59762-5251-04 ")
 ;;3048
 ;;21,"60429-0029-01 ")
 ;;3049
 ;;21,"60429-0029-10 ")
 ;;3050
 ;;21,"60429-0029-90 ")
 ;;3051
 ;;21,"60429-0030-01 ")
 ;;3052
 ;;21,"60429-0030-10 ")
 ;;3053
 ;;21,"60429-0030-12 ")
 ;;3054
 ;;21,"60429-0030-27 ")
 ;;3055
 ;;21,"60429-0030-60 ")
 ;;3056
 ;;21,"60429-0030-90 ")
 ;;3057
 ;;21,"60429-0031-01 ")
 ;;3058
 ;;21,"60429-0031-10 ")
 ;;3059
 ;;21,"60429-0031-12 ")
 ;;3060
 ;;21,"60429-0031-27 ")
 ;;3061
 ;;21,"60429-0031-30 ")
 ;;3062
 ;;21,"60429-0031-60 ")
 ;;3063
 ;;21,"60429-0031-90 ")
 ;;3064
 ;;21,"60429-0038-01 ")
 ;;3065
 ;;21,"60429-0039-01 ")
 ;;3066
 ;;21,"60429-0039-10 ")
 ;;3067
 ;;21,"60429-0040-01 ")
 ;;3068
 ;;21,"60429-0040-10 ")
 ;;3069
 ;;21,"60429-0041-01 ")
 ;;3070
 ;;21,"60429-0041-10 ")
 ;;3071
 ;;21,"60429-0044-01 ")
 ;;3072
 ;;21,"60429-0044-10 ")
 ;;3073
 ;;21,"60429-0045-01 ")
 ;;3074
 ;;21,"60429-0045-10 ")
 ;;3075
 ;;21,"60429-0045-90 ")
 ;;3076
 ;;21,"60429-0046-01 ")
 ;;3077
 ;;21,"60429-0046-10 ")
 ;;3078
 ;;21,"60429-0071-01 ")
 ;;3079
 ;;21,"60429-0071-05 ")
 ;;3080
 ;;21,"60429-0071-10 ")
 ;;3081
 ;;21,"60429-0071-27 ")
 ;;3082
 ;;21,"60429-0071-30 ")
 ;;3083
 ;;21,"60429-0071-60 ")
 ;;3084
 ;;21,"60429-0071-90 ")
 ;;3085
 ;;21,"60429-0072-01 ")
 ;;3086
 ;;21,"60429-0072-05 ")
 ;;3087
 ;;21,"60429-0072-10 ")
 ;;3088
 ;;21,"60429-0072-27 ")
 ;;3089
 ;;21,"60429-0072-30 ")
 ;;3090
 ;;21,"60429-0072-60 ")
 ;;3091
 ;;21,"60429-0072-90 ")
 ;;3092
 ;;21,"60429-0073-01 ")
 ;;3093
 ;;21,"60429-0073-05 ")
 ;;3094
 ;;21,"60429-0073-10 ")
 ;;3095
 ;;21,"60429-0073-27 ")
 ;;3096
 ;;21,"60429-0073-30 ")
 ;;3097
 ;;21,"60429-0073-60 ")
 ;;3098
 ;;21,"60429-0073-90 ")
 ;;3099
 ;;21,"60429-0074-01 ")
 ;;3100
 ;;21,"60429-0074-05 ")
 ;;3101
 ;;21,"60429-0074-10 ")
 ;;3102
 ;;21,"60429-0074-27 ")
 ;;3103
 ;;21,"60429-0074-30 ")
 ;;3104
 ;;21,"60429-0074-60 ")
 ;;3105
 ;;21,"60429-0074-90 ")
 ;;3106
 ;;21,"60429-0183-10 ")
 ;;3107
 ;;21,"60429-0183-30 ")
 ;;3108
 ;;21,"60429-0183-90 ")
 ;;3109
 ;;21,"60429-0184-10 ")
 ;;3110
 ;;21,"60429-0184-30 ")
 ;;3111
 ;;21,"60429-0184-90 ")
 ;;3112
 ;;21,"60429-0185-10 ")
 ;;3113
 ;;21,"60429-0185-30 ")
 ;;3114
 ;;21,"60429-0185-90 ")
 ;;3115
 ;;21,"60429-0186-10 ")
 ;;3116
 ;;21,"60429-0186-30 ")
 ;;3117
 ;;21,"60429-0186-90 ")
 ;;3118
 ;;21,"60429-0201-10 ")
 ;;3119
 ;;21,"60429-0201-90 ")
 ;;3120
 ;;21,"60429-0202-10 ")
 ;;3121
 ;;21,"60429-0202-90 ")
 ;;3122
 ;;21,"60429-0203-10 ")
 ;;3123
 ;;21,"60429-0203-90 ")
 ;;3124
 ;;21,"60429-0206-01 ")
 ;;3125
 ;;21,"60429-0206-05 ")
 ;;3126
 ;;21,"60429-0207-01 ")
 ;;3127
 ;;21,"60429-0207-10 ")
 ;;3128
 ;;21,"60429-0207-30 ")
 ;;3129
 ;;21,"60429-0207-45 ")
 ;;3130
 ;;21,"60429-0207-90 ")
 ;;3131
 ;;21,"60429-0208-01 ")
 ;;3132
 ;;21,"60429-0208-10 ")
 ;;3133
 ;;21,"60429-0208-30 ")
 ;;3134
 ;;21,"60429-0208-45 ")
 ;;3135
 ;;21,"60429-0208-50 ")
 ;;3136
 ;;21,"60429-0208-90 ")
 ;;3137
 ;;21,"60429-0209-01 ")
 ;;3138
 ;;21,"60429-0209-10 ")
 ;;3139
 ;;21,"60429-0209-15 ")
 ;;3140
 ;;21,"60429-0209-18 ")
 ;;3141
 ;;21,"60429-0209-30 ")
 ;;3142
 ;;21,"60429-0209-45 ")
 ;;3143
 ;;21,"60429-0209-50 ")
 ;;3144
 ;;21,"60429-0209-90 ")
 ;;3145
 ;;21,"60429-0211-01 ")
 ;;3146
 ;;21,"60429-0211-05 ")
 ;;3147
 ;;21,"60429-0212-01 ")
 ;;3148
 ;;21,"60429-0212-10 ")
 ;;3149
 ;;21,"60429-0212-18 ")
 ;;3150
 ;;21,"60429-0212-30 ")
 ;;3151
 ;;21,"60429-0212-45 ")
 ;;3152
 ;;21,"60429-0212-60 ")
 ;;3153
 ;;21,"60429-0212-90 ")
 ;;3154
 ;;21,"60429-0234-10 ")
 ;;3155
 ;;21,"60429-0234-45 ")
 ;;3156
 ;;21,"60429-0234-90 ")
 ;;3157
 ;;21,"60429-0235-10 ")
 ;;3158
 ;;21,"60429-0235-18 ")
 ;;3159
 ;;21,"60429-0235-45 ")
 ;;3160
 ;;21,"60429-0235-90 ")
 ;;3161
 ;;21,"60429-0236-10 ")
 ;;3162
 ;;21,"60429-0236-18 ")
 ;;3163
 ;;21,"60429-0236-45 ")
 ;;3164
 ;;21,"60429-0236-90 ")
 ;;3165
 ;;21,"60429-0257-01 ")
 ;;3166
 ;;21,"60429-0316-10 ")
 ;;3167
 ;;21,"60429-0316-30 ")
 ;;3168
 ;;21,"60429-0316-90 ")
 ;;3169
 ;;21,"60429-0317-10 ")
 ;;3170
 ;;21,"60429-0317-30 ")
 ;;3171
 ;;21,"60429-0317-90 ")
 ;;3172
 ;;21,"60429-0318-10 ")
 ;;3173
 ;;21,"60429-0318-30 ")
 ;;3174
 ;;21,"60429-0318-90 ")
 ;;3175
 ;;21,"60429-0728-01 ")
 ;;3176
 ;;21,"60429-0728-10 ")
 ;;3177
 ;;21,"60429-0728-30 ")
 ;;3178
 ;;21,"60429-0728-90 ")
 ;;3179
 ;;21,"60429-0729-01 ")
 ;;3180
 ;;21,"60429-0729-10 ")
 ;;3181
 ;;21,"60429-0729-30 ")
 ;;3182
 ;;21,"60429-0729-45 ")
 ;;3183
 ;;21,"60429-0729-90 ")
 ;;3184
 ;;21,"60429-0730-01 ")
 ;;3185
 ;;21,"60429-0730-10 ")
 ;;3186
 ;;21,"60429-0730-30 ")
 ;;3187
 ;;21,"60429-0730-45 ")
 ;;3188
 ;;21,"60429-0730-90 ")
 ;;3189
 ;;21,"60429-0731-01 ")
 ;;3190
 ;;21,"60429-0731-10 ")
 ;;3191
 ;;21,"60429-0731-30 ")
 ;;3192
 ;;21,"60429-0731-45 ")
 ;;3193
 ;;21,"60429-0731-90 ")
 ;;3194
 ;;21,"60429-0732-10 ")
 ;;3195
 ;;21,"60429-0732-30 ")
 ;;3196
 ;;21,"60429-0732-90 ")
 ;;3197
 ;;21,"60429-0733-01 ")
 ;;3198
 ;;21,"60429-0733-10 ")
 ;;3199
 ;;21,"60429-0733-30 ")
 ;;3200
 ;;21,"60429-0733-45 ")
 ;;3201
 ;;21,"60429-0733-90 ")
 ;;3202
 ;;21,"60429-0755-10 ")
 ;;3203
 ;;21,"60429-0755-45 ")
 ;;3204
 ;;21,"60429-0755-90 ")
 ;;3205
 ;;21,"60429-0756-10 ")
 ;;3206
 ;;21,"60429-0756-18 ")
 ;;3207
 ;;21,"60429-0756-45 ")
 ;;3208
 ;;21,"60429-0756-90 ")
 ;;3209
 ;;21,"60429-0757-10 ")
 ;;3210
 ;;21,"60429-0757-18 ")
 ;;3211
 ;;21,"60429-0757-45 ")
 ;;3212
 ;;21,"60429-0757-90 ")
 ;;3213
 ;;21,"60505-0003-06 ")
 ;;3214
 ;;21,"60505-0003-09 ")
 ;;3215
 ;;21,"60505-0004-06 ")
 ;;3216
 ;;21,"60505-0004-09 ")
 ;;3217
 ;;21,"60505-0005-06 ")
 ;;3218
 ;;21,"60505-0005-09 ")
 ;;3219
 ;;21,"60505-0006-06 ")
 ;;3220
 ;;21,"60505-0006-09 ")
 ;;3221
 ;;21,"60505-0049-07 ")
 ;;3222
 ;;21,"60505-0049-09 ")
 ;;3223
 ;;21,"60505-0050-07 ")
 ;;3224
 ;;21,"60505-0050-09 ")
 ;;3225
 ;;21,"60505-0051-07 ")
 ;;3226
 ;;21,"60505-0051-09 ")
 ;;3227
 ;;21,"60505-0052-09 ")
 ;;3228
 ;;21,"60505-0172-00 ")
 ;;3229
 ;;21,"60505-0172-01 ")
 ;;3230
 ;;21,"60505-0173-00 ")
 ;;3231
 ;;21,"60505-0173-01 ")
 ;;3232
 ;;21,"60505-0174-00 ")
 ;;3233
 ;;21,"60505-0174-01 ")
 ;;3234
 ;;21,"60505-0175-00 ")
 ;;3235
 ;;21,"60505-0175-01 ")
 ;;3236
 ;;21,"60505-0184-00 ")
 ;;3237
 ;;21,"60505-0185-00 ")
 ;;3238
 ;;21,"60505-0185-01 ")
 ;;3239
 ;;21,"60505-0185-07 ")
 ;;3240
 ;;21,"60505-0185-09 ")
 ;;3241
 ;;21,"60505-0186-00 ")
 ;;3242
 ;;21,"60505-0186-01 ")
 ;;3243
 ;;21,"60505-0186-07 ")
 ;;3244
 ;;21,"60505-0186-09 ")
 ;;3245
 ;;21,"60505-0187-00 ")
 ;;3246
 ;;21,"60505-0187-01 ")
 ;;3247
 ;;21,"60505-0187-07 ")
 ;;3248
 ;;21,"60505-0187-09 ")
 ;;3249
 ;;21,"60505-0188-00 ")
 ;;3250
 ;;21,"60505-0188-01 ")
 ;;3251
 ;;21,"60505-0189-00 ")
 ;;3252
 ;;21,"60505-0189-01 ")
 ;;3253
 ;;21,"60505-0189-08 ")
 ;;3254
 ;;21,"60505-0189-09 ")
 ;;3255
 ;;21,"60505-0205-03 ")
 ;;3256