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

BGP82I10.m

Go to the documentation of this file.
BGP82I10 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
 ;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
 ;
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,"58864-0750-30 ")
 ;;3022
 ;;21,"58864-0753-30 ")
 ;;3023
 ;;21,"58864-0753-90 ")
 ;;3024
 ;;21,"58864-0754-30 ")
 ;;3025
 ;;21,"58864-0755-30 ")
 ;;3026
 ;;21,"58864-0762-30 ")
 ;;3027
 ;;21,"58864-0771-15 ")
 ;;3028
 ;;21,"58864-0774-90 ")
 ;;3029
 ;;21,"58864-0787-30 ")
 ;;3030
 ;;21,"58864-0807-30 ")
 ;;3031
 ;;21,"58864-0847-30 ")
 ;;3032
 ;;21,"58864-0859-30 ")
 ;;3033
 ;;21,"58864-0863-30 ")
 ;;3034
 ;;21,"58864-0869-30 ")
 ;;3035
 ;;21,"59746-0333-10 ")
 ;;3036
 ;;21,"59746-0333-90 ")
 ;;3037
 ;;21,"59746-0334-10 ")
 ;;3038
 ;;21,"59746-0334-30 ")
 ;;3039
 ;;21,"59746-0334-90 ")
 ;;3040
 ;;21,"59746-0335-10 ")
 ;;3041
 ;;21,"59746-0335-30 ")
 ;;3042
 ;;21,"59746-0335-90 ")
 ;;3043
 ;;21,"59746-0337-30 ")
 ;;3044
 ;;21,"59746-0337-90 ")
 ;;3045
 ;;21,"59746-0338-30 ")
 ;;3046
 ;;21,"59746-0338-90 ")
 ;;3047
 ;;21,"59746-0339-30 ")
 ;;3048
 ;;21,"59746-0339-90 ")
 ;;3049
 ;;21,"59746-0360-30 ")
 ;;3050
 ;;21,"59746-0361-90 ")
 ;;3051
 ;;21,"59746-0362-90 ")
 ;;3052
 ;;21,"59746-0363-90 ")
 ;;3053
 ;;21,"59746-0447-30 ")
 ;;3054
 ;;21,"59746-0447-90 ")
 ;;3055
 ;;21,"59746-0448-30 ")
 ;;3056
 ;;21,"59746-0448-90 ")
 ;;3057
 ;;21,"59746-0449-30 ")
 ;;3058
 ;;21,"59746-0449-90 ")
 ;;3059
 ;;21,"59746-0463-30 ")
 ;;3060
 ;;21,"59746-0465-30 ")
 ;;3061
 ;;21,"59746-0465-90 ")
 ;;3062
 ;;21,"59746-0466-30 ")
 ;;3063
 ;;21,"59746-0466-90 ")
 ;;3064
 ;;21,"59762-0122-01 ")
 ;;3065
 ;;21,"59762-0132-01 ")
 ;;3066
 ;;21,"59762-0142-01 ")
 ;;3067
 ;;21,"59762-0152-01 ")
 ;;3068
 ;;21,"59762-0220-01 ")
 ;;3069
 ;;21,"59762-0222-01 ")
 ;;3070
 ;;21,"59762-0223-01 ")
 ;;3071
 ;;21,"59762-5019-01 ")
 ;;3072
 ;;21,"59762-5020-01 ")
 ;;3073
 ;;21,"59762-5021-01 ")
 ;;3074
 ;;21,"59762-5022-01 ")
 ;;3075
 ;;21,"60429-0029-01 ")
 ;;3076
 ;;21,"60429-0029-10 ")
 ;;3077
 ;;21,"60429-0029-90 ")
 ;;3078
 ;;21,"60429-0030-01 ")
 ;;3079
 ;;21,"60429-0030-10 ")
 ;;3080
 ;;21,"60429-0030-12 ")
 ;;3081
 ;;21,"60429-0030-27 ")
 ;;3082
 ;;21,"60429-0030-60 ")
 ;;3083
 ;;21,"60429-0030-90 ")
 ;;3084
 ;;21,"60429-0031-01 ")
 ;;3085
 ;;21,"60429-0031-10 ")
 ;;3086
 ;;21,"60429-0031-12 ")
 ;;3087
 ;;21,"60429-0031-27 ")
 ;;3088
 ;;21,"60429-0031-30 ")
 ;;3089
 ;;21,"60429-0031-60 ")
 ;;3090
 ;;21,"60429-0031-90 ")
 ;;3091
 ;;21,"60429-0038-01 ")
 ;;3092
 ;;21,"60429-0039-01 ")
 ;;3093
 ;;21,"60429-0039-10 ")
 ;;3094
 ;;21,"60429-0040-01 ")
 ;;3095
 ;;21,"60429-0040-10 ")
 ;;3096
 ;;21,"60429-0041-01 ")
 ;;3097
 ;;21,"60429-0041-10 ")
 ;;3098
 ;;21,"60429-0044-01 ")
 ;;3099
 ;;21,"60429-0044-10 ")
 ;;3100
 ;;21,"60429-0045-01 ")
 ;;3101
 ;;21,"60429-0045-10 ")
 ;;3102
 ;;21,"60429-0046-01 ")
 ;;3103
 ;;21,"60429-0046-10 ")
 ;;3104
 ;;21,"60429-0071-01 ")
 ;;3105
 ;;21,"60429-0071-05 ")
 ;;3106
 ;;21,"60429-0071-10 ")
 ;;3107
 ;;21,"60429-0071-27 ")
 ;;3108
 ;;21,"60429-0071-30 ")
 ;;3109
 ;;21,"60429-0071-60 ")
 ;;3110
 ;;21,"60429-0071-90 ")
 ;;3111
 ;;21,"60429-0072-01 ")
 ;;3112
 ;;21,"60429-0072-05 ")
 ;;3113
 ;;21,"60429-0072-10 ")
 ;;3114
 ;;21,"60429-0072-27 ")
 ;;3115
 ;;21,"60429-0072-30 ")
 ;;3116
 ;;21,"60429-0072-60 ")
 ;;3117
 ;;21,"60429-0072-90 ")
 ;;3118
 ;;21,"60429-0073-01 ")
 ;;3119
 ;;21,"60429-0073-05 ")
 ;;3120
 ;;21,"60429-0073-10 ")
 ;;3121
 ;;21,"60429-0073-27 ")
 ;;3122
 ;;21,"60429-0073-30 ")
 ;;3123
 ;;21,"60429-0073-60 ")
 ;;3124
 ;;21,"60429-0073-90 ")
 ;;3125
 ;;21,"60429-0074-05 ")
 ;;3126
 ;;21,"60429-0074-27 ")
 ;;3127
 ;;21,"60429-0074-30 ")
 ;;3128
 ;;21,"60429-0074-60 ")
 ;;3129
 ;;21,"60429-0158-90 ")
 ;;3130
 ;;21,"60429-0159-90 ")
 ;;3131
 ;;21,"60429-0160-01 ")
 ;;3132
 ;;21,"60429-0160-05 ")
 ;;3133
 ;;21,"60429-0160-18 ")
 ;;3134
 ;;21,"60429-0160-90 ")
 ;;3135
 ;;21,"60429-0183-10 ")
 ;;3136
 ;;21,"60429-0183-30 ")
 ;;3137
 ;;21,"60429-0183-90 ")
 ;;3138
 ;;21,"60429-0184-10 ")
 ;;3139
 ;;21,"60429-0184-30 ")
 ;;3140
 ;;21,"60429-0184-90 ")
 ;;3141
 ;;21,"60429-0185-10 ")
 ;;3142
 ;;21,"60429-0185-30 ")
 ;;3143
 ;;21,"60429-0185-90 ")
 ;;3144
 ;;21,"60429-0186-10 ")
 ;;3145
 ;;21,"60429-0186-30 ")
 ;;3146
 ;;21,"60429-0186-90 ")
 ;;3147
 ;;21,"60429-0201-10 ")
 ;;3148
 ;;21,"60429-0201-90 ")
 ;;3149
 ;;21,"60429-0202-10 ")
 ;;3150
 ;;21,"60429-0202-90 ")
 ;;3151
 ;;21,"60429-0203-10 ")
 ;;3152
 ;;21,"60429-0203-90 ")
 ;;3153
 ;;21,"60429-0206-01 ")
 ;;3154
 ;;21,"60429-0206-05 ")
 ;;3155
 ;;21,"60429-0207-01 ")
 ;;3156
 ;;21,"60429-0207-10 ")
 ;;3157
 ;;21,"60429-0207-30 ")
 ;;3158
 ;;21,"60429-0207-45 ")
 ;;3159
 ;;21,"60429-0207-90 ")
 ;;3160
 ;;21,"60429-0208-01 ")
 ;;3161
 ;;21,"60429-0208-10 ")
 ;;3162
 ;;21,"60429-0208-30 ")
 ;;3163
 ;;21,"60429-0208-45 ")
 ;;3164
 ;;21,"60429-0208-50 ")
 ;;3165
 ;;21,"60429-0208-90 ")
 ;;3166
 ;;21,"60429-0209-01 ")
 ;;3167
 ;;21,"60429-0209-10 ")
 ;;3168
 ;;21,"60429-0209-15 ")
 ;;3169
 ;;21,"60429-0209-18 ")
 ;;3170
 ;;21,"60429-0209-30 ")
 ;;3171
 ;;21,"60429-0209-45 ")
 ;;3172
 ;;21,"60429-0209-50 ")
 ;;3173
 ;;21,"60429-0209-90 ")
 ;;3174
 ;;21,"60429-0211-01 ")
 ;;3175
 ;;21,"60429-0211-05 ")
 ;;3176
 ;;21,"60429-0212-01 ")
 ;;3177
 ;;21,"60429-0212-10 ")
 ;;3178
 ;;21,"60429-0212-18 ")
 ;;3179
 ;;21,"60429-0212-30 ")
 ;;3180
 ;;21,"60429-0212-45 ")
 ;;3181
 ;;21,"60429-0212-60 ")
 ;;3182
 ;;21,"60429-0212-90 ")
 ;;3183
 ;;21,"60429-0234-10 ")
 ;;3184
 ;;21,"60429-0234-45 ")
 ;;3185
 ;;21,"60429-0234-90 ")
 ;;3186
 ;;21,"60429-0235-10 ")
 ;;3187
 ;;21,"60429-0235-18 ")
 ;;3188
 ;;21,"60429-0235-45 ")
 ;;3189
 ;;21,"60429-0235-90 ")
 ;;3190
 ;;21,"60429-0236-10 ")
 ;;3191
 ;;21,"60429-0236-18 ")
 ;;3192
 ;;21,"60429-0236-45 ")
 ;;3193
 ;;21,"60429-0236-90 ")
 ;;3194
 ;;21,"60429-0257-01 ")
 ;;3195
 ;;21,"60429-0316-10 ")
 ;;3196
 ;;21,"60429-0316-30 ")
 ;;3197
 ;;21,"60429-0316-90 ")
 ;;3198
 ;;21,"60429-0317-10 ")
 ;;3199
 ;;21,"60429-0317-30 ")
 ;;3200
 ;;21,"60429-0317-90 ")
 ;;3201
 ;;21,"60429-0318-10 ")
 ;;3202
 ;;21,"60429-0318-30 ")
 ;;3203
 ;;21,"60429-0318-90 ")
 ;;3204
 ;;21,"60429-0403-01 ")
 ;;3205
 ;;21,"60429-0404-01 ")
 ;;3206
 ;;21,"60429-0405-01 ")
 ;;3207
 ;;21,"60429-0406-01 ")
 ;;3208
 ;;21,"60429-0640-05 ")
 ;;3209
 ;;21,"60429-0640-30 ")
 ;;3210
 ;;21,"60429-0640-90 ")
 ;;3211
 ;;21,"60429-0641-05 ")
 ;;3212
 ;;21,"60429-0641-30 ")
 ;;3213
 ;;21,"60429-0641-90 ")
 ;;3214
 ;;21,"60429-0642-05 ")
 ;;3215
 ;;21,"60429-0642-30 ")
 ;;3216
 ;;21,"60429-0642-90 ")
 ;;3217
 ;;21,"60505-0003-06 ")
 ;;3218
 ;;21,"60505-0003-09 ")
 ;;3219
 ;;21,"60505-0004-06 ")
 ;;3220
 ;;21,"60505-0004-09 ")
 ;;3221
 ;;21,"60505-0005-06 ")
 ;;3222
 ;;21,"60505-0005-09 ")
 ;;3223
 ;;21,"60505-0006-06 ")
 ;;3224
 ;;21,"60505-0006-09 ")
 ;;3225
 ;;21,"60505-0049-07 ")
 ;;3226
 ;;21,"60505-0049-09 ")
 ;;3227
 ;;21,"60505-0050-07 ")
 ;;3228
 ;;21,"60505-0050-09 ")
 ;;3229
 ;;21,"60505-0051-07 ")
 ;;3230
 ;;21,"60505-0051-09 ")
 ;;3231
 ;;21,"60505-0052-09 ")
 ;;3232
 ;;21,"60505-0185-00 ")
 ;;3233
 ;;21,"60505-0185-01 ")
 ;;3234
 ;;21,"60505-0185-07 ")
 ;;3235
 ;;21,"60505-0185-09 ")
 ;;3236
 ;;21,"60505-0186-00 ")
 ;;3237
 ;;21,"60505-0186-01 ")
 ;;3238
 ;;21,"60505-0186-07 ")
 ;;3239
 ;;21,"60505-0186-09 ")
 ;;3240
 ;;21,"60505-0187-00 ")
 ;;3241
 ;;21,"60505-0187-07 ")
 ;;3242
 ;;21,"60505-0187-09 ")
 ;;3243
 ;;21,"60505-0188-00 ")
 ;;3244
 ;;21,"60505-0188-01 ")
 ;;3245
 ;;21,"60505-0189-00 ")
 ;;3246
 ;;21,"60505-0189-01 ")
 ;;3247
 ;;21,"60505-0189-08 ")
 ;;3248
 ;;21,"60505-0189-09 ")
 ;;3249
 ;;21,"60505-0205-03 ")
 ;;3250
 ;;21,"60505-0205-07 ")
 ;;3251
 ;;21,"60505-0206-03 ")
 ;;3252
 ;;21,"60505-0206-07 ")
 ;;3253
 ;;21,"60505-0207-03 ")
 ;;3254
 ;;21,"60505-0207-07 ")
 ;;3255
 ;;21,"60505-0208-01 ")
 ;;3256
 ;;21,"60505-0209-01 ")
 ;;3257
 ;;21,"60505-0261-01 ")
 ;;3258
 ;;21,"60505-0262-01 ")
 ;;3259
 ;;21,"60505-0263-01 ")
 ;;3260
 ;;21,"60505-0264-01 ")
 ;;3261
 ;;21,"60505-0265-01 ")
 ;;3262
 ;;21,"60505-0266-01 ")
 ;;3263
 ;;21,"60505-0266-05 ")
 ;;3264
 ;;21,"60505-0267-01 ")
 ;;3265
 ;;21,"60505-0267-05 ")
 ;;3266
 ;;21,"60505-0268-01 ")
 ;;3267
 ;;21,"60505-0268-05 ")
 ;;3268
 ;;21,"60505-0271-01 ")
 ;;3269
 ;;21,"60505-0272-01 ")
 ;;3270
 ;;21,"60505-2510-02 ")
 ;;3271
 ;;21,"60505-2510-04 ")
 ;;3272
 ;;21,"60505-2511-02 ")
 ;;3273
 ;;21,"60505-2511-04 ")
 ;;3274
 ;;21,"60505-2512-02 ")
 ;;3275
 ;;21,"60505-2512-08 ")
 ;;3276
 ;;21,"60505-2684-08 ")
 ;;3277
 ;;21,"60505-2684-09 ")
 ;;3278
 ;;21,"60505-2685-01 ")
 ;;3279
 ;;21,"60505-2685-09 ")
 ;;3280
 ;;21,"60505-2686-09 ")
 ;;3281
 ;;21,"60505-2688-08 ")
 ;;3282
 ;;21,"60505-2688-09 ")
 ;;3283
 ;;21,"60505-2875-01 ")
 ;;3284
 ;;21,"60505-2876-00 ")
 ;;3285
 ;;21,"60505-2876-01 ")
 ;;3286
 ;;21,"60505-2876-05 ")
 ;;3287
 ;;21,"60505-2877-00 ")
 ;;3288
 ;;21,"60505-2877-01 ")
 ;;3289
 ;;21,"60505-2877-05 ")
 ;;3290
 ;;21,"60505-2878-00 ")
 ;;3291
 ;;21,"60505-2878-01 ")
 ;;3292
 ;;21,"60505-2878-05 ")
 ;;3293
 ;;21,"60505-2915-03 ")
 ;;3294
 ;;21,"60505-2915-09 ")
 ;;3295
 ;;21,"60505-2916-03 ")
 ;;3296
 ;;21,"60505-2916-09 ")
 ;;3297
 ;;21,"60505-2917-03 ")
 ;;3298
 ;;21,"60505-2917-09 ")
 ;;3299
 ;;21,"60505-3160-08 ")
 ;;3300
 ;;21,"60505-3160-09 ")
 ;;3301
 ;;21,"60505-3161-03 ")
 ;;3302
 ;;21,"60505-3161-08 ")
 ;;3303
 ;;21,"60505-3161-09 ")
 ;;3304
 ;;21,"60505-3162-03 ")
 ;;3305
 ;;21,"60505-3162-09 ")
 ;;3306
 ;;21,"60505-3409-05 ")
 ;;3307
 ;;21,"60505-3409-09 ")
 ;;3308
 ;;21,"60505-3410-05 ")
 ;;3309
 ;;21,"60505-3410-09 ")
 ;;3310
 ;;21,"60505-3411-05 ")
 ;;3311
 ;;21,"60505-3411-09 ")
 ;;3312
 ;;21,"60505-3547-03 ")
 ;;3313
 ;;21,"60505-3547-09 ")
 ;;3314
 ;;21,"60505-3548-03 ")
 ;;3315
 ;;21,"60505-3548-05 ")
 ;;3316
 ;;21,"60505-3548-09 ")
 ;;3317
 ;;21,"60505-3549-03 ")
 ;;3318
 ;;21,"60505-3549-05 ")
 ;;3319
 ;;21,"60505-3549-09 ")
 ;;3320
 ;;21,"60505-3603-03 ")
 ;;3321
 ;;21,"60505-3603-09 ")
 ;;3322
 ;;21,"60505-3604-03 ")
 ;;3323
 ;;21,"60505-3604-09 ")
 ;;3324
 ;;21,"60505-3618-03 ")
 ;;3325
 ;;21,"60505-3619-03 ")
 ;;3326
 ;;21,"60505-3620-03 ")
 ;;3327
 ;;21,"60505-3620-09 ")
 ;;3328
 ;;21,"60505-3621-03 ")
 ;;3329
 ;;21,"60505-3621-09 ")
 ;;3330
 ;;21,"60505-3758-05 ")
 ;;3331
 ;;21,"60505-3758-09 ")
 ;;3332
 ;;21,"60505-3759-05 ")
 ;;3333
 ;;21,"60505-3759-09 ")
 ;;3334
 ;;21,"60505-3760-09 ")
 ;;3335
 ;;21,"60505-3806-09 ")
 ;;3336
 ;;21,"60505-3807-09 ")
 ;;3337
 ;;21,"60505-3808-09 ")
 ;;3338
 ;;21,"60505-3809-09 ")
 ;;3339
 ;;21,"60505-3810-09 ")
 ;;3340
 ;;21,"60631-0040-30 ")
 ;;3341
 ;;21,"60631-0080-30 ")
 ;;3342
 ;;21,"60631-0412-30 ")
 ;;3343
 ;;21,"60631-0425-30 ")
 ;;3344
 ;;21,"60687-0119-25 ")
 ;;3345
 ;;21,"60687-0119-95 ")
 ;;3346
 ;;21,"60687-0128-01 ")
 ;;3347
 ;;21,"60687-0128-11 ")
 ;;3348
 ;;21,"60687-0130-25 ")
 ;;3349
 ;;21,"60687-0130-95 ")
 ;;3350
 ;;21,"60687-0139-01 ")
 ;;3351
 ;;21,"60687-0139-11 ")
 ;;3352
 ;;21,"60687-0177-25 ")
 ;;3353
 ;;21,"60687-0177-95 ")
 ;;3354