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