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

BGP82Z10.m

Go to the documentation of this file.
  1. BGP82Z10 ; 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,"52959-0688-03 ")
  1. ;;3022
  1. ;;21,"52959-0688-05 ")
  1. ;;3023
  1. ;;21,"52959-0688-10 ")
  1. ;;3024
  1. ;;21,"52959-0688-12 ")
  1. ;;3025
  1. ;;21,"52959-0688-15 ")
  1. ;;3026
  1. ;;21,"52959-0688-18 ")
  1. ;;3027
  1. ;;21,"52959-0688-20 ")
  1. ;;3028
  1. ;;21,"52959-0688-21 ")
  1. ;;3029
  1. ;;21,"52959-0688-24 ")
  1. ;;3030
  1. ;;21,"52959-0688-25 ")
  1. ;;3031
  1. ;;21,"52959-0688-28 ")
  1. ;;3032
  1. ;;21,"52959-0688-30 ")
  1. ;;3033
  1. ;;21,"52959-0688-35 ")
  1. ;;3034
  1. ;;21,"52959-0688-40 ")
  1. ;;3035
  1. ;;21,"52959-0688-50 ")
  1. ;;3036
  1. ;;21,"52959-0688-56 ")
  1. ;;3037
  1. ;;21,"52959-0688-60 ")
  1. ;;3038
  1. ;;21,"52959-0688-84 ")
  1. ;;3039
  1. ;;21,"52959-0688-90 ")
  1. ;;3040
  1. ;;21,"52959-0735-00 ")
  1. ;;3041
  1. ;;21,"52959-0735-02 ")
  1. ;;3042
  1. ;;21,"52959-0735-03 ")
  1. ;;3043
  1. ;;21,"52959-0735-28 ")
  1. ;;3044
  1. ;;21,"52959-0735-30 ")
  1. ;;3045
  1. ;;21,"52959-0735-40 ")
  1. ;;3046
  1. ;;21,"52959-0735-42 ")
  1. ;;3047
  1. ;;21,"52959-0735-50 ")
  1. ;;3048
  1. ;;21,"52959-0735-60 ")
  1. ;;3049
  1. ;;21,"52959-0735-80 ")
  1. ;;3050
  1. ;;21,"52959-0735-84 ")
  1. ;;3051
  1. ;;21,"52959-0735-90 ")
  1. ;;3052
  1. ;;21,"52959-0737-02 ")
  1. ;;3053
  1. ;;21,"52959-0737-15 ")
  1. ;;3054
  1. ;;21,"52959-0737-20 ")
  1. ;;3055
  1. ;;21,"52959-0737-25 ")
  1. ;;3056
  1. ;;21,"52959-0737-28 ")
  1. ;;3057
  1. ;;21,"52959-0737-30 ")
  1. ;;3058
  1. ;;21,"52959-0737-40 ")
  1. ;;3059
  1. ;;21,"52959-0737-42 ")
  1. ;;3060
  1. ;;21,"52959-0737-45 ")
  1. ;;3061
  1. ;;21,"52959-0737-50 ")
  1. ;;3062
  1. ;;21,"52959-0737-60 ")
  1. ;;3063
  1. ;;21,"52959-0737-90 ")
  1. ;;3064
  1. ;;21,"52959-0738-00 ")
  1. ;;3065
  1. ;;21,"52959-0738-02 ")
  1. ;;3066
  1. ;;21,"52959-0738-10 ")
  1. ;;3067
  1. ;;21,"52959-0738-12 ")
  1. ;;3068
  1. ;;21,"52959-0738-15 ")
  1. ;;3069
  1. ;;21,"52959-0738-20 ")
  1. ;;3070
  1. ;;21,"52959-0738-30 ")
  1. ;;3071
  1. ;;21,"52959-0738-40 ")
  1. ;;3072
  1. ;;21,"52959-0738-50 ")
  1. ;;3073
  1. ;;21,"52959-0738-60 ")
  1. ;;3074
  1. ;;21,"52959-0738-90 ")
  1. ;;3075
  1. ;;21,"52959-0814-00 ")
  1. ;;3076
  1. ;;21,"52959-0814-10 ")
  1. ;;3077
  1. ;;21,"52959-0814-12 ")
  1. ;;3078
  1. ;;21,"52959-0814-15 ")
  1. ;;3079
  1. ;;21,"52959-0814-18 ")
  1. ;;3080
  1. ;;21,"52959-0814-20 ")
  1. ;;3081
  1. ;;21,"52959-0814-30 ")
  1. ;;3082
  1. ;;21,"52959-0814-40 ")
  1. ;;3083
  1. ;;21,"52959-0814-60 ")
  1. ;;3084
  1. ;;21,"52959-0814-90 ")
  1. ;;3085
  1. ;;21,"52959-0865-00 ")
  1. ;;3086
  1. ;;21,"52959-0865-30 ")
  1. ;;3087
  1. ;;21,"52959-0868-00 ")
  1. ;;3088
  1. ;;21,"52959-0868-60 ")
  1. ;;3089
  1. ;;21,"52959-0868-90 ")
  1. ;;3090
  1. ;;21,"52959-0912-60 ")
  1. ;;3091
  1. ;;21,"53002-0101-10 ")
  1. ;;3092
  1. ;;21,"53002-0101-15 ")
  1. ;;3093
  1. ;;21,"53002-0101-20 ")
  1. ;;3094
  1. ;;21,"53002-0101-30 ")
  1. ;;3095
  1. ;;21,"53002-0327-92 ")
  1. ;;3096
  1. ;;21,"53002-0432-10 ")
  1. ;;3097
  1. ;;21,"53002-0432-20 ")
  1. ;;3098
  1. ;;21,"53002-0432-30 ")
  1. ;;3099
  1. ;;21,"53014-0548-01 ")
  1. ;;3100
  1. ;;21,"53217-0040-00 ")
  1. ;;3101
  1. ;;21,"53217-0040-02 ")
  1. ;;3102
  1. ;;21,"53217-0040-03 ")
  1. ;;3103
  1. ;;21,"53217-0040-07 ")
  1. ;;3104
  1. ;;21,"53217-0040-10 ")
  1. ;;3105
  1. ;;21,"53217-0040-14 ")
  1. ;;3106
  1. ;;21,"53217-0040-20 ")
  1. ;;3107
  1. ;;21,"53217-0040-21 ")
  1. ;;3108
  1. ;;21,"53217-0040-28 ")
  1. ;;3109
  1. ;;21,"53217-0040-30 ")
  1. ;;3110
  1. ;;21,"53217-0040-40 ")
  1. ;;3111
  1. ;;21,"53217-0040-60 ")
  1. ;;3112
  1. ;;21,"53217-0040-90 ")
  1. ;;3113
  1. ;;21,"53217-0040-98 ")
  1. ;;3114
  1. ;;21,"53217-0136-01 ")
  1. ;;3115
  1. ;;21,"53217-0137-01 ")
  1. ;;3116
  1. ;;21,"53217-0180-02 ")
  1. ;;3117
  1. ;;21,"53217-0180-20 ")
  1. ;;3118
  1. ;;21,"53217-0180-30 ")
  1. ;;3119
  1. ;;21,"53217-0180-60 ")
  1. ;;3120
  1. ;;21,"53217-0180-90 ")
  1. ;;3121
  1. ;;21,"53217-0192-02 ")
  1. ;;3122
  1. ;;21,"53217-0192-30 ")
  1. ;;3123
  1. ;;21,"53217-0192-60 ")
  1. ;;3124
  1. ;;21,"53217-0192-90 ")
  1. ;;3125
  1. ;;21,"53217-0195-30 ")
  1. ;;3126
  1. ;;21,"53217-0195-60 ")
  1. ;;3127
  1. ;;21,"53217-0195-90 ")
  1. ;;3128
  1. ;;21,"53217-0213-01 ")
  1. ;;3129
  1. ;;21,"53217-0265-02 ")
  1. ;;3130
  1. ;;21,"53217-0265-10 ")
  1. ;;3131
  1. ;;21,"53217-0265-12 ")
  1. ;;3132
  1. ;;21,"53217-0265-15 ")
  1. ;;3133
  1. ;;21,"53217-0265-16 ")
  1. ;;3134
  1. ;;21,"53217-0265-20 ")
  1. ;;3135
  1. ;;21,"53217-0265-24 ")
  1. ;;3136
  1. ;;21,"53217-0265-30 ")
  1. ;;3137
  1. ;;21,"53217-0265-40 ")
  1. ;;3138
  1. ;;21,"53217-0265-50 ")
  1. ;;3139
  1. ;;21,"53217-0265-60 ")
  1. ;;3140
  1. ;;21,"53217-0265-90 ")
  1. ;;3141
  1. ;;21,"53217-0266-02 ")
  1. ;;3142
  1. ;;21,"53217-0266-10 ")
  1. ;;3143
  1. ;;21,"53217-0266-12 ")
  1. ;;3144
  1. ;;21,"53217-0266-15 ")
  1. ;;3145
  1. ;;21,"53217-0266-18 ")
  1. ;;3146
  1. ;;21,"53217-0266-20 ")
  1. ;;3147
  1. ;;21,"53217-0266-30 ")
  1. ;;3148
  1. ;;21,"53217-0266-40 ")
  1. ;;3149
  1. ;;21,"53217-0266-45 ")
  1. ;;3150
  1. ;;21,"53217-0266-60 ")
  1. ;;3151
  1. ;;21,"53217-0266-90 ")
  1. ;;3152
  1. ;;21,"53217-0267-02 ")
  1. ;;3153
  1. ;;21,"53217-0267-10 ")
  1. ;;3154
  1. ;;21,"53217-0267-12 ")
  1. ;;3155
  1. ;;21,"53217-0267-16 ")
  1. ;;3156
  1. ;;21,"53217-0267-20 ")
  1. ;;3157
  1. ;;21,"53217-0267-28 ")
  1. ;;3158
  1. ;;21,"53217-0267-30 ")
  1. ;;3159
  1. ;;21,"53217-0267-32 ")
  1. ;;3160
  1. ;;21,"53217-0267-40 ")
  1. ;;3161
  1. ;;21,"53217-0267-45 ")
  1. ;;3162
  1. ;;21,"53217-0267-50 ")
  1. ;;3163
  1. ;;21,"53217-0267-56 ")
  1. ;;3164
  1. ;;21,"53217-0267-60 ")
  1. ;;3165
  1. ;;21,"53217-0267-84 ")
  1. ;;3166
  1. ;;21,"53217-0267-90 ")
  1. ;;3167
  1. ;;21,"53217-0267-92 ")
  1. ;;3168
  1. ;;21,"53746-0109-01 ")
  1. ;;3169
  1. ;;21,"53746-0109-05 ")
  1. ;;3170
  1. ;;21,"53746-0109-10 ")
  1. ;;3171
  1. ;;21,"53746-0110-01 ")
  1. ;;3172
  1. ;;21,"53746-0110-05 ")
  1. ;;3173
  1. ;;21,"53746-0110-10 ")
  1. ;;3174
  1. ;;21,"53746-0116-01 ")
  1. ;;3175
  1. ;;21,"53746-0117-01 ")
  1. ;;3176
  1. ;;21,"53746-0145-01 ")
  1. ;;3177
  1. ;;21,"53746-0146-01 ")
  1. ;;3178
  1. ;;21,"53746-0203-01 ")
  1. ;;3179
  1. ;;21,"53746-0203-05 ")
  1. ;;3180
  1. ;;21,"53746-0204-01 ")
  1. ;;3181
  1. ;;21,"53746-0204-05 ")
  1. ;;3182
  1. ;;21,"53746-0617-01 ")
  1. ;;3183
  1. ;;21,"53746-0617-05 ")
  1. ;;3184
  1. ;;21,"53746-0617-10 ")
  1. ;;3185
  1. ;;21,"54348-0015-10 ")
  1. ;;3186
  1. ;;21,"54348-0015-15 ")
  1. ;;3187
  1. ;;21,"54348-0015-20 ")
  1. ;;3188
  1. ;;21,"54348-0015-30 ")
  1. ;;3189
  1. ;;21,"54569-0024-02 ")
  1. ;;3190
  1. ;;21,"54569-0025-00 ")
  1. ;;3191
  1. ;;21,"54569-0025-01 ")
  1. ;;3192
  1. ;;21,"54569-0025-02 ")
  1. ;;3193
  1. ;;21,"54569-0025-03 ")
  1. ;;3194
  1. ;;21,"54569-0025-04 ")
  1. ;;3195
  1. ;;21,"54569-0025-06 ")
  1. ;;3196
  1. ;;21,"54569-0025-07 ")
  1. ;;3197
  1. ;;21,"54569-0025-09 ")
  1. ;;3198
  1. ;;21,"54569-0302-01 ")
  1. ;;3199
  1. ;;21,"54569-0302-02 ")
  1. ;;3200
  1. ;;21,"54569-0302-08 ")
  1. ;;3201
  1. ;;21,"54569-0311-00 ")
  1. ;;3202
  1. ;;21,"54569-0311-02 ")
  1. ;;3203
  1. ;;21,"54569-0337-02 ")
  1. ;;3204
  1. ;;21,"54569-1001-00 ")
  1. ;;3205
  1. ;;21,"54569-1047-00 ")
  1. ;;3206
  1. ;;21,"54569-1056-00 ")
  1. ;;3207
  1. ;;21,"54569-2523-00 ")
  1. ;;3208
  1. ;;21,"54569-2523-01 ")
  1. ;;3209
  1. ;;21,"54569-2523-04 ")
  1. ;;3210
  1. ;;21,"54569-2523-06 ")
  1. ;;3211
  1. ;;21,"54569-2523-07 ")
  1. ;;3212
  1. ;;21,"54569-3515-00 ")
  1. ;;3213
  1. ;;21,"54569-3540-02 ")
  1. ;;3214
  1. ;;21,"54569-4089-00 ")
  1. ;;3215
  1. ;;21,"54569-4089-01 ")
  1. ;;3216
  1. ;;21,"54569-4089-05 ")
  1. ;;3217
  1. ;;21,"54569-4510-00 ")
  1. ;;3218
  1. ;;21,"54569-5240-00 ")
  1. ;;3219
  1. ;;21,"54569-5240-01 ")
  1. ;;3220
  1. ;;21,"54569-5240-02 ")
  1. ;;3221
  1. ;;21,"54569-5240-03 ")
  1. ;;3222
  1. ;;21,"54569-5240-04 ")
  1. ;;3223
  1. ;;21,"54569-5240-05 ")
  1. ;;3224
  1. ;;21,"54569-5240-08 ")
  1. ;;3225
  1. ;;21,"54569-5240-09 ")
  1. ;;3226
  1. ;;21,"54569-5305-00 ")
  1. ;;3227
  1. ;;21,"54569-5308-00 ")
  1. ;;3228
  1. ;;21,"54569-5308-01 ")
  1. ;;3229
  1. ;;21,"54569-5308-02 ")
  1. ;;3230
  1. ;;21,"54569-5436-00 ")
  1. ;;3231
  1. ;;21,"54569-5436-01 ")
  1. ;;3232
  1. ;;21,"54569-5436-02 ")
  1. ;;3233
  1. ;;21,"54569-5436-03 ")
  1. ;;3234
  1. ;;21,"54569-5436-04 ")
  1. ;;3235
  1. ;;21,"54569-5436-05 ")
  1. ;;3236
  1. ;;21,"54569-5436-07 ")
  1. ;;3237
  1. ;;21,"54569-5436-09 ")
  1. ;;3238
  1. ;;21,"54569-5523-00 ")
  1. ;;3239
  1. ;;21,"54569-5523-01 ")
  1. ;;3240
  1. ;;21,"54569-5523-02 ")
  1. ;;3241
  1. ;;21,"54569-5523-03 ")
  1. ;;3242
  1. ;;21,"54569-5523-04 ")
  1. ;;3243
  1. ;;21,"54569-5523-05 ")
  1. ;;3244
  1. ;;21,"54569-5523-06 ")
  1. ;;3245
  1. ;;21,"54569-5523-07 ")
  1. ;;3246
  1. ;;21,"54569-5680-00 ")
  1. ;;3247
  1. ;;21,"54569-5680-01 ")
  1. ;;3248
  1. ;;21,"54569-5680-02 ")
  1. ;;3249
  1. ;;21,"54569-5680-03 ")
  1. ;;3250
  1. ;;21,"54569-5680-04 ")
  1. ;;3251
  1. ;;21,"54569-5772-01 ")
  1. ;;3252
  1. ;;21,"54569-5967-00 ")
  1. ;;3253
  1. ;;21,"54569-5967-01 ")
  1. ;;3254
  1. ;;21,"54569-5967-02 ")
  1. ;;3255
  1. ;;21,"54569-5967-03 ")
  1. ;;3256
  1. ;;21,"54569-5967-04 ")
  1. ;;3257
  1. ;;21,"54569-5967-05 ")
  1. ;;3258
  1. ;;21,"54569-5967-06 ")
  1. ;;3259
  1. ;;21,"54569-5988-00 ")
  1. ;;3260
  1. ;;21,"54569-6027-01 ")
  1. ;;3261
  1. ;;21,"54569-6027-02 ")
  1. ;;3262
  1. ;;21,"54569-6027-03 ")
  1. ;;3263
  1. ;;21,"54569-6027-05 ")
  1. ;;3264
  1. ;;21,"54569-6027-06 ")
  1. ;;3265
  1. ;;21,"54569-6121-00 ")
  1. ;;3266
  1. ;;21,"54569-6121-01 ")
  1. ;;3267
  1. ;;21,"54569-6164-00 ")
  1. ;;3268
  1. ;;21,"54569-6325-00 ")
  1. ;;3269
  1. ;;21,"54569-6326-00 ")
  1. ;;3270
  1. ;;21,"54569-6328-00 ")
  1. ;;3271
  1. ;;21,"54569-6361-00 ")
  1. ;;3272
  1. ;;21,"54569-6361-01 ")
  1. ;;3273
  1. ;;21,"54569-6361-02 ")
  1. ;;3274
  1. ;;21,"54569-6361-03 ")
  1. ;;3275
  1. ;;21,"54569-6385-00 ")
  1. ;;3276
  1. ;;21,"54569-6438-00 ")
  1. ;;3277
  1. ;;21,"54569-6500-00 ")
  1. ;;3278
  1. ;;21,"54569-8305-00 ")
  1. ;;3279
  1. ;;21,"54569-8314-00 ")
  1. ;;3280
  1. ;;21,"54569-8336-00 ")
  1. ;;3281
  1. ;;21,"54569-8709-00 ")
  1. ;;3282
  1. ;;21,"54569-8808-00 ")
  1. ;;3283
  1. ;;21,"54868-0072-01 ")
  1. ;;3284
  1. ;;21,"54868-0072-02 ")
  1. ;;3285
  1. ;;21,"54868-0072-03 ")
  1. ;;3286
  1. ;;21,"54868-0072-04 ")
  1. ;;3287
  1. ;;21,"54868-0072-05 ")
  1. ;;3288
  1. ;;21,"54868-0072-07 ")
  1. ;;3289
  1. ;;21,"54868-0072-08 ")
  1. ;;3290
  1. ;;21,"54868-0072-09 ")
  1. ;;3291
  1. ;;21,"54868-0162-00 ")
  1. ;;3292
  1. ;;21,"54868-0162-01 ")
  1. ;;3293
  1. ;;21,"54868-0244-00 ")
  1. ;;3294
  1. ;;21,"54868-0244-01 ")
  1. ;;3295
  1. ;;21,"54868-0263-00 ")
  1. ;;3296
  1. ;;21,"54868-0263-01 ")
  1. ;;3297
  1. ;;21,"54868-0287-00 ")
  1. ;;3298
  1. ;;21,"54868-0287-01 ")
  1. ;;3299
  1. ;;21,"54868-0378-01 ")
  1. ;;3300
  1. ;;21,"54868-0378-02 ")
  1. ;;3301
  1. ;;21,"54868-0510-00 ")
  1. ;;3302
  1. ;;21,"54868-0510-01 ")
  1. ;;3303
  1. ;;21,"54868-0510-02 ")
  1. ;;3304
  1. ;;21,"54868-0510-03 ")
  1. ;;3305
  1. ;;21,"54868-0534-02 ")
  1. ;;3306
  1. ;;21,"54868-0860-00 ")
  1. ;;3307
  1. ;;21,"54868-0860-01 ")
  1. ;;3308
  1. ;;21,"54868-0860-02 ")
  1. ;;3309
  1. ;;21,"54868-0860-03 ")
  1. ;;3310
  1. ;;21,"54868-1029-00 ")
  1. ;;3311
  1. ;;21,"54868-1029-01 ")
  1. ;;3312
  1. ;;21,"54868-1029-02 ")
  1. ;;3313
  1. ;;21,"54868-1037-01 ")
  1. ;;3314
  1. ;;21,"54868-1037-03 ")
  1. ;;3315
  1. ;;21,"54868-1037-04 ")
  1. ;;3316
  1. ;;21,"54868-1037-05 ")
  1. ;;3317
  1. ;;21,"54868-1071-00 ")
  1. ;;3318
  1. ;;21,"54868-1071-01 ")
  1. ;;3319
  1. ;;21,"54868-1071-02 ")
  1. ;;3320
  1. ;;21,"54868-1071-03 ")
  1. ;;3321
  1. ;;21,"54868-1233-01 ")
  1. ;;3322
  1. ;;21,"54868-1233-02 ")
  1. ;;3323
  1. ;;21,"54868-1233-04 ")
  1. ;;3324
  1. ;;21,"54868-1233-05 ")
  1. ;;3325
  1. ;;21,"54868-1233-06 ")
  1. ;;3326
  1. ;;21,"54868-1523-00 ")
  1. ;;3327
  1. ;;21,"54868-1523-01 ")
  1. ;;3328
  1. ;;21,"54868-1700-00 ")
  1. ;;3329
  1. ;;21,"54868-1700-01 ")
  1. ;;3330
  1. ;;21,"54868-1700-02 ")
  1. ;;3331
  1. ;;21,"54868-1700-04 ")
  1. ;;3332
  1. ;;21,"54868-1700-06 ")
  1. ;;3333
  1. ;;21,"54868-1700-07 ")
  1. ;;3334
  1. ;;21,"54868-1700-08 ")
  1. ;;3335
  1. ;;21,"54868-1700-09 ")
  1. ;;3336
  1. ;;21,"54868-2094-00 ")
  1. ;;3337
  1. ;;21,"54868-2094-01 ")
  1. ;;3338
  1. ;;21,"54868-2115-00 ")
  1. ;;3339
  1. ;;21,"54868-2115-01 ")
  1. ;;3340
  1. ;;21,"54868-2130-01 ")
  1. ;;3341
  1. ;;21,"54868-2413-00 ")
  1. ;;3342
  1. ;;21,"54868-2541-00 ")
  1. ;;3343
  1. ;;21,"54868-2541-01 ")
  1. ;;3344
  1. ;;21,"54868-2541-02 ")
  1. ;;3345
  1. ;;21,"54868-2905-00 ")
  1. ;;3346
  1. ;;21,"54868-2905-01 ")
  1. ;;3347
  1. ;;21,"54868-2905-02 ")
  1. ;;3348
  1. ;;21,"54868-2905-03 ")
  1. ;;3349
  1. ;;21,"54868-2905-04 ")
  1. ;;3350
  1. ;;21,"54868-2905-05 ")
  1. ;;3351
  1. ;;21,"54868-2908-00 ")
  1. ;;3352
  1. ;;21,"54868-3073-00 ")
  1. ;;3353
  1. ;;21,"54868-3074-00 ")
  1. ;;3354