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

BGP31P9.m

Go to the documentation of this file.
BGP31P9 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 29, 2012;
 ;;13.0;IHS CLINICAL REPORTING;;NOV 20, 2012;Build 81
 ;
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,"63874-0359-14 ")
 ;;3111
 ;;21,"63874-0359-15 ")
 ;;3112
 ;;21,"63874-0359-20 ")
 ;;3113
 ;;21,"63874-0359-28 ")
 ;;3114
 ;;21,"63874-0359-30 ")
 ;;3115
 ;;21,"63874-0359-40 ")
 ;;3116
 ;;21,"63874-0359-50 ")
 ;;3117
 ;;21,"63874-0359-60 ")
 ;;3118
 ;;21,"63874-0359-90 ")
 ;;3119
 ;;21,"63874-0430-01 ")
 ;;3120
 ;;21,"63874-0430-02 ")
 ;;3121
 ;;21,"63874-0430-04 ")
 ;;3122
 ;;21,"63874-0430-14 ")
 ;;3123
 ;;21,"63874-0430-15 ")
 ;;3124
 ;;21,"63874-0430-20 ")
 ;;3125
 ;;21,"63874-0430-25 ")
 ;;3126
 ;;21,"63874-0430-28 ")
 ;;3127
 ;;21,"63874-0430-30 ")
 ;;3128
 ;;21,"63874-0430-40 ")
 ;;3129
 ;;21,"63874-0430-50 ")
 ;;3130
 ;;21,"63874-0430-60 ")
 ;;3131
 ;;21,"63874-0430-90 ")
 ;;3132
 ;;21,"63874-0448-01 ")
 ;;3133
 ;;21,"63874-0448-02 ")
 ;;3134
 ;;21,"63874-0448-03 ")
 ;;3135
 ;;21,"63874-0448-10 ")
 ;;3136
 ;;21,"63874-0448-20 ")
 ;;3137
 ;;21,"63874-0448-30 ")
 ;;3138
 ;;21,"63874-0448-50 ")
 ;;3139
 ;;21,"63874-0448-60 ")
 ;;3140
 ;;21,"63874-0448-90 ")
 ;;3141
 ;;21,"63874-0579-01 ")
 ;;3142
 ;;21,"63874-0579-04 ")
 ;;3143
 ;;21,"63874-0579-10 ")
 ;;3144
 ;;21,"63874-0579-12 ")
 ;;3145
 ;;21,"63874-0579-14 ")
 ;;3146
 ;;21,"63874-0579-15 ")
 ;;3147
 ;;21,"63874-0579-20 ")
 ;;3148
 ;;21,"63874-0579-28 ")
 ;;3149
 ;;21,"63874-0579-30 ")
 ;;3150
 ;;21,"63874-0579-32 ")
 ;;3151
 ;;21,"63874-0579-40 ")
 ;;3152
 ;;21,"63874-0579-50 ")
 ;;3153
 ;;21,"63874-0579-60 ")
 ;;3154
 ;;21,"63874-0579-90 ")
 ;;3155
 ;;21,"63874-0638-01 ")
 ;;3156
 ;;21,"63874-0638-04 ")
 ;;3157
 ;;21,"63874-0638-10 ")
 ;;3158
 ;;21,"63874-0638-14 ")
 ;;3159
 ;;21,"63874-0638-15 ")
 ;;3160
 ;;21,"63874-0638-20 ")
 ;;3161
 ;;21,"63874-0638-21 ")
 ;;3162
 ;;21,"63874-0638-28 ")
 ;;3163
 ;;21,"63874-0638-30 ")
 ;;3164
 ;;21,"63874-0638-40 ")
 ;;3165
 ;;21,"63874-0638-50 ")
 ;;3166
 ;;21,"63874-0638-60 ")
 ;;3167
 ;;21,"63874-0638-90 ")
 ;;3168
 ;;21,"63874-0924-01 ")
 ;;3169
 ;;21,"63874-0924-06 ")
 ;;3170
 ;;21,"63874-0924-08 ")
 ;;3171
 ;;21,"63874-0924-10 ")
 ;;3172
 ;;21,"63874-0924-20 ")
 ;;3173
 ;;21,"63874-0924-30 ")
 ;;3174
 ;;21,"63874-0924-40 ")
 ;;3175
 ;;21,"63874-0924-60 ")
 ;;3176
 ;;21,"63874-0924-90 ")
 ;;3177
 ;;21,"63874-1070-01 ")
 ;;3178
 ;;21,"63874-1246-00 ")
 ;;3179
 ;;21,"63874-1246-01 ")
 ;;3180
 ;;21,"63874-1246-02 ")
 ;;3181
 ;;21,"63874-1246-03 ")
 ;;3182
 ;;21,"63874-1246-06 ")
 ;;3183
 ;;21,"63874-1247-01 ")
 ;;3184
 ;;21,"63874-1247-02 ")
 ;;3185
 ;;21,"63874-1247-03 ")
 ;;3186
 ;;21,"63874-1247-06 ")
 ;;3187
 ;;21,"63874-1247-08 ")
 ;;3188
 ;;21,"63874-1247-09 ")
 ;;3189
 ;;21,"64125-0128-10 ")
 ;;3190
 ;;21,"64125-0901-01 ")
 ;;3191
 ;;21,"64125-0901-10 ")
 ;;3192
 ;;21,"64125-0902-01 ")
 ;;3193
 ;;21,"64125-0902-10 ")
 ;;3194
 ;;21,"64125-0903-01 ")
 ;;3195
 ;;21,"64125-0903-10 ")
 ;;3196
 ;;21,"64125-0915-01 ")
 ;;3197
 ;;21,"64125-0915-10 ")
 ;;3198
 ;;21,"64248-0091-10 ")
 ;;3199
 ;;21,"64376-0436-16 ")
 ;;3200
 ;;21,"64679-0714-01 ")
 ;;3201
 ;;21,"64679-0714-04 ")
 ;;3202
 ;;21,"64679-0715-01 ")
 ;;3203
 ;;21,"64679-0715-04 ")
 ;;3204
 ;;21,"64720-0322-10 ")
 ;;3205
 ;;21,"64720-0323-10 ")
 ;;3206
 ;;21,"64731-0575-01 ")
 ;;3207
 ;;21,"64731-0575-10 ")
 ;;3208
 ;;21,"64731-0576-01 ")
 ;;3209
 ;;21,"64731-0576-10 ")
 ;;3210
 ;;21,"64980-0154-01 ")
 ;;3211
 ;;21,"64980-0154-05 ")
 ;;3212
 ;;21,"64980-0155-01 ")
 ;;3213
 ;;21,"64980-0155-05 ")
 ;;3214
 ;;21,"65162-0459-10 ")
 ;;3215
 ;;21,"65162-0459-50 ")
 ;;3216
 ;;21,"65234-0050-10 ")
 ;;3217
 ;;21,"65234-0050-50 ")
 ;;3218
 ;;21,"65234-0056-10 ")
 ;;3219
 ;;21,"65234-0056-50 ")
 ;;3220
 ;;21,"65234-0061-10 ")
 ;;3221
 ;;21,"65243-0006-03 ")
 ;;3222
 ;;21,"65243-0006-09 ")
 ;;3223
 ;;21,"65243-0242-03 ")
 ;;3224
 ;;21,"65243-0242-09 ")
 ;;3225
 ;;21,"65473-0718-01 ")
 ;;3226
 ;;21,"65473-0719-01 ")
 ;;3227
 ;;21,"65473-0720-01 ")
 ;;3228
 ;;21,"65862-0159-01 ")
 ;;3229
 ;;21,"65862-0159-05 ")
 ;;3230
 ;;21,"65862-0160-01 ")
 ;;3231
 ;;21,"65862-0160-05 ")
 ;;3232
 ;;21,"65862-0214-01 ")
 ;;3233
 ;;21,"65862-0215-01 ")
 ;;3234
 ;;21,"66116-0176-20 ")
 ;;3235
 ;;21,"66116-0253-30 ")
 ;;3236
 ;;21,"66116-0254-30 ")
 ;;3237
 ;;21,"66116-0280-30 ")
 ;;3238
 ;;21,"66116-0477-30 ")
 ;;3239
 ;;21,"66116-0648-30 ")
 ;;3240
 ;;21,"66213-0421-10 ")
 ;;3241
 ;;21,"66213-0421-50 ")
 ;;3242
 ;;21,"66213-0422-04 ")
 ;;3243
 ;;21,"66213-0422-16 ")
 ;;3244
 ;;21,"66213-0423-04 ")
 ;;3245
 ;;21,"66213-0423-16 ")
 ;;3246
 ;;21,"66213-0425-10 ")
 ;;3247
 ;;21,"66213-0425-11 ")
 ;;3248
 ;;21,"66267-0016-10 ")
 ;;3249
 ;;21,"66267-0016-12 ")
 ;;3250
 ;;21,"66267-0016-20 ")
 ;;3251
 ;;21,"66267-0016-28 ")
 ;;3252
 ;;21,"66267-0016-30 ")
 ;;3253
 ;;21,"66267-0016-60 ")
 ;;3254
 ;;21,"66267-0017-10 ")
 ;;3255
 ;;21,"66267-0017-30 ")
 ;;3256
 ;;21,"66267-0018-30 ")
 ;;3257
 ;;21,"66267-0018-60 ")
 ;;3258
 ;;21,"66267-0018-90 ")
 ;;3259
 ;;21,"66267-0019-14 ")
 ;;3260
 ;;21,"66267-0019-30 ")
 ;;3261
 ;;21,"66267-0019-60 ")
 ;;3262
 ;;21,"66267-0019-90 ")
 ;;3263
 ;;21,"66267-0019-91 ")
 ;;3264
 ;;21,"66267-0020-30 ")
 ;;3265
 ;;21,"66267-0020-60 ")
 ;;3266
 ;;21,"66267-0020-90 ")
 ;;3267
 ;;21,"66267-0032-15 ")
 ;;3268
 ;;21,"66267-0032-20 ")
 ;;3269
 ;;21,"66267-0032-30 ")
 ;;3270
 ;;21,"66267-0038-15 ")
 ;;3271
 ;;21,"66267-0039-12 ")
 ;;3272
 ;;21,"66267-0039-30 ")
 ;;3273
 ;;21,"66267-0039-60 ")
 ;;3274
 ;;21,"66267-0039-90 ")
 ;;3275
 ;;21,"66267-0084-30 ")
 ;;3276
 ;;21,"66267-0266-30 ")
 ;;3277
 ;;21,"66267-0560-90 ")
 ;;3278
 ;;21,"66267-0680-30 ")
 ;;3279
 ;;21,"66267-0723-30 ")
 ;;3280
 ;;21,"66267-1006-00 ")
 ;;3281
 ;;21,"66336-0027-30 ")
 ;;3282
 ;;21,"66336-0027-60 ")
 ;;3283
 ;;21,"66336-0027-90 ")
 ;;3284
 ;;21,"66336-0042-15 ")
 ;;3285
 ;;21,"66336-0042-20 ")
 ;;3286
 ;;21,"66336-0042-30 ")
 ;;3287
 ;;21,"66336-0042-60 ")
 ;;3288
 ;;21,"66336-0056-30 ")
 ;;3289
 ;;21,"66336-0102-30 ")
 ;;3290
 ;;21,"66336-0224-30 ")
 ;;3291
 ;;21,"66336-0314-30 ")
 ;;3292
 ;;21,"66336-0314-90 ")
 ;;3293
 ;;21,"66336-0354-30 ")
 ;;3294
 ;;21,"66336-0354-60 ")
 ;;3295
 ;;21,"66336-0354-90 ")
 ;;3296
 ;;21,"66336-0460-03 ")
 ;;3297
 ;;21,"66336-0460-10 ")
 ;;3298
 ;;21,"66336-0460-20 ")
 ;;3299
 ;;21,"66336-0460-30 ")
 ;;3300
 ;;21,"66336-0460-60 ")
 ;;3301
 ;;21,"66336-0553-30 ")
 ;;3302
 ;;21,"66336-0553-40 ")
 ;;3303
 ;;21,"66336-0619-30 ")
 ;;3304
 ;;21,"66336-0673-30 ")
 ;;3305
 ;;21,"66336-0673-50 ")
 ;;3306
 ;;21,"66336-0673-60 ")
 ;;3307
 ;;21,"66336-0673-90 ")
 ;;3308
 ;;21,"66336-0703-30 ")
 ;;3309
 ;;21,"66336-0703-60 ")
 ;;3310
 ;;21,"66336-0703-90 ")
 ;;3311
 ;;21,"66336-0703-94 ")
 ;;3312
 ;;21,"66336-0718-02 ")
 ;;3313
 ;;21,"66336-0718-10 ")
 ;;3314
 ;;21,"66336-0718-30 ")
 ;;3315
 ;;21,"66336-0718-60 ")
 ;;3316
 ;;21,"66336-0718-90 ")
 ;;3317
 ;;21,"66336-0791-30 ")
 ;;3318
 ;;21,"66336-0949-30 ")
 ;;3319
 ;;21,"66663-0702-01 ")
 ;;3320
 ;;21,"66813-0073-16 ")
 ;;3321
 ;;21,"66813-0074-01 ")
 ;;3322
 ;;21,"66993-0715-02 ")
 ;;3323
 ;;21,"66993-0715-04 ")
 ;;3324
 ;;21,"66993-0716-02 ")
 ;;3325
 ;;21,"66993-0716-04 ")
 ;;3326
 ;;21,"67253-0950-10 ")
 ;;3327
 ;;21,"67253-0951-10 ")
 ;;3328
 ;;21,"67386-0501-52 ")
 ;;3329
 ;;21,"67386-0501-55 ")
 ;;3330
 ;;21,"67386-0801-02 ")
 ;;3331
 ;;21,"67386-0802-02 ")
 ;;3332
 ;;21,"67386-0803-02 ")
 ;;3333
 ;;21,"67544-0009-07 ")
 ;;3334
 ;;21,"67544-0009-14 ")
 ;;3335
 ;;21,"67544-0009-15 ")
 ;;3336
 ;;21,"67544-0009-20 ")
 ;;3337
 ;;21,"67544-0009-30 ")
 ;;3338
 ;;21,"67544-0009-53 ")
 ;;3339
 ;;21,"67544-0010-07 ")
 ;;3340
 ;;21,"67544-0010-10 ")
 ;;3341
 ;;21,"67544-0010-15 ")
 ;;3342
 ;;21,"67544-0010-20 ")
 ;;3343
 ;;21,"67544-0010-21 ")
 ;;3344
 ;;21,"67544-0010-30 ")
 ;;3345
 ;;21,"67544-0010-45 ")
 ;;3346
 ;;21,"67544-0010-53 ")
 ;;3347
 ;;21,"67544-0010-60 ")
 ;;3348
 ;;21,"67544-0011-30 ")
 ;;3349
 ;;21,"67544-0011-50 ")
 ;;3350
 ;;21,"67544-0011-53 ")
 ;;3351
 ;;21,"67544-0011-60 ")
 ;;3352
 ;;21,"67544-0011-70 ")
 ;;3353
 ;;21,"67544-0031-30 ")
 ;;3354
 ;;21,"67544-0057-30 ")
 ;;3355
 ;;21,"67544-0057-53 ")
 ;;3356
 ;;21,"67544-0057-60 ")
 ;;3357
 ;;21,"67544-0057-70 ")
 ;;3358
 ;;21,"67544-0057-75 ")
 ;;3359
 ;;21,"67544-0057-80 ")
 ;;3360
 ;;21,"67544-0057-92 ")
 ;;3361
 ;;21,"67544-0057-94 ")
 ;;3362
 ;;21,"67544-0085-30 ")
 ;;3363
 ;;21,"67544-0085-53 ")
 ;;3364
 ;;21,"67544-0085-60 ")
 ;;3365
 ;;21,"67544-0085-70 ")
 ;;3366
 ;;21,"67544-0085-75 ")
 ;;3367
 ;;21,"67544-0085-80 ")
 ;;3368
 ;;21,"67544-0121-30 ")
 ;;3369
 ;;21,"67544-0121-53 ")
 ;;3370
 ;;21,"67544-0121-60 ")
 ;;3371
 ;;21,"67544-0121-70 ")
 ;;3372
 ;;21,"67544-0121-75 ")
 ;;3373
 ;;21,"67544-0139-30 ")
 ;;3374
 ;;21,"67544-0139-53 ")
 ;;3375
 ;;21,"67544-0139-60 ")
 ;;3376
 ;;21,"67544-0139-70 ")
 ;;3377
 ;;21,"67544-0206-30 ")
 ;;3378
 ;;21,"67544-0206-60 ")
 ;;3379
 ;;21,"67544-0253-30 ")
 ;;3380
 ;;21,"67544-0253-53 ")
 ;;3381
 ;;21,"67544-0253-60 ")
 ;;3382
 ;;21,"67544-0253-70 ")
 ;;3383
 ;;21,"67544-0267-30 ")
 ;;3384
 ;;21,"67544-0343-30 ")
 ;;3385
 ;;21,"67544-0343-53 ")
 ;;3386
 ;;21,"67544-0343-60 ")
 ;;3387
 ;;21,"67544-0343-70 ")
 ;;3388
 ;;21,"67544-0383-30 ")
 ;;3389
 ;;21,"67544-0383-53 ")
 ;;3390
 ;;21,"67544-0383-60 ")
 ;;3391
 ;;21,"67544-0383-70 ")
 ;;3392
 ;;21,"67544-0394-30 ")
 ;;3393
 ;;21,"67544-0394-53 ")
 ;;3394
 ;;21,"67544-0394-60 ")
 ;;3395
 ;;21,"67544-0394-70 ")
 ;;3396
 ;;21,"67544-0759-53 ")
 ;;3397
 ;;21,"67544-0996-10 ")
 ;;3398
 ;;21,"67544-0996-14 ")
 ;;3399
 ;;21,"67544-0996-15 ")
 ;;3400
 ;;21,"67544-0996-20 ")
 ;;3401
 ;;21,"67544-0996-21 ")
 ;;3402
 ;;21,"67544-0996-28 ")
 ;;3403
 ;;21,"67544-0996-30 ")
 ;;3404
 ;;21,"67544-0996-40 ")
 ;;3405
 ;;21,"67544-0996-45 ")
 ;;3406
 ;;21,"67544-0996-53 ")
 ;;3407
 ;;21,"67544-0996-59 ")
 ;;3408
 ;;21,"67544-0996-60 ")
 ;;3409
 ;;21,"67544-1000-30 ")
 ;;3410
 ;;21,"67544-1002-07 ")
 ;;3411
 ;;21,"67544-1002-14 ")
 ;;3412
 ;;21,"67544-1015-07 ")
 ;;3413
 ;;21,"67544-1015-10 ")
 ;;3414
 ;;21,"67544-1015-15 ")
 ;;3415
 ;;21,"67544-1015-20 ")
 ;;3416
 ;;21,"67544-1015-21 ")
 ;;3417
 ;;21,"67544-1015-30 ")
 ;;3418
 ;;21,"67544-1015-53 ")
 ;;3419
 ;;21,"67544-1027-07 ")
 ;;3420
 ;;21,"67544-1027-14 ")
 ;;3421
 ;;21,"67544-1027-15 ")
 ;;3422
 ;;21,"67544-1027-30 ")
 ;;3423
 ;;21,"67544-1045-30 ")
 ;;3424
 ;;21,"67544-1045-53 ")
 ;;3425
 ;;21,"67544-1141-30 ")
 ;;3426
 ;;21,"67544-1184-30 ")
 ;;3427
 ;;21,"67544-1201-30 ")
 ;;3428
 ;;21,"67544-1202-15 ")
 ;;3429
 ;;21,"67544-1202-30 ")
 ;;3430
 ;;21,"67544-1202-53 ")
 ;;3431
 ;;21,"67870-0111-01 ")
 ;;3432
 ;;21,"67870-0111-05 ")
 ;;3433
 ;;21,"67877-0210-01 ")
 ;;3434
 ;;21,"67877-0211-01 ")
 ;;3435
 ;;21,"68032-0256-10 ")
 ;;3436
 ;;21,"68032-0395-16 ")
 ;;3437
 ;;21,"68071-0304-30 ")
 ;;3438
 ;;21,"68071-0305-30 ")
 ;;3439
 ;;21,"68071-0361-30 ")
 ;;3440
 ;;21,"68071-0414-30 ")
 ;;3441
 ;;21,"68071-0421-30 ")
 ;;3442
 ;;21,"68071-0421-60 ")
 ;;3443
 ;;21,"68071-0421-90 ")
 ;;3444
 ;;21,"68071-0553-30 ")
 ;;3445
 ;;21,"68071-0698-10 ")
 ;;3446
 ;;21,"68071-0698-14 ")
 ;;3447
 ;;21,"68071-0698-20 ")
 ;;3448
 ;;21,"68071-0698-30 ")
 ;;3449
 ;;21,"68071-0698-60 ")
 ;;3450
 ;;21,"68071-0703-14 ")
 ;;3451
 ;;21,"68071-0703-30 ")
 ;;3452
 ;;21,"68071-0703-45 ")
 ;;3453
 ;;21,"68071-0703-60 ")
 ;;3454
 ;;21,"68071-0788-30 ")
 ;;3455
 ;;21,"68071-0789-30 ")
 ;;3456
 ;;21,"68084-0114-00 ")
 ;;3457
 ;;21,"68084-0114-05 ")
 ;;3458
 ;;21,"68084-0225-01 ")
 ;;3459
 ;;21,"68084-0225-11 ")
 ;;3460
 ;;21,"68084-0226-01 ")
 ;;3461
 ;;21,"68084-0226-11 ")
 ;;3462
 ;;21,"68084-0396-01 ")
 ;;3463
 ;;21,"68084-0396-11 ")
 ;;3464
 ;;21,"68084-0523-11 ")
 ;;3465
 ;;21,"68084-0523-21 ")
 ;;3466
 ;;21,"68115-0019-00 ")
 ;;3467
 ;;21,"68115-0019-10 ")
 ;;3468
 ;;21,"68115-0019-15 ")
 ;;3469
 ;;21,"68115-0019-20 ")
 ;;3470
 ;;21,"68115-0019-30 ")
 ;;3471
 ;;21,"68115-0019-60 ")
 ;;3472
 ;;21,"68115-0019-90 ")
 ;;3473
 ;;21,"68115-0020-00 ")
 ;;3474
 ;;21,"68115-0020-10 ")
 ;;3475
 ;;21,"68115-0020-15 ")
 ;;3476
 ;;21,"68115-0020-30 ")
 ;;3477
 ;;21,"68115-0021-00 ")
 ;;3478
 ;;21,"68115-0021-30 ")
 ;;3479
 ;;21,"68115-0021-60 ")
 ;;3480
 ;;21,"68115-0022-00 ")
 ;;3481
 ;;21,"68115-0022-30 ")
 ;;3482
 ;;21,"68115-0022-60 ")
 ;;3483
 ;;21,"68115-0022-90 ")
 ;;3484
 ;;21,"68115-0023-00 ")
 ;;3485
 ;;21,"68115-0023-30 ")
 ;;3486
 ;;21,"68115-0023-60 ")
 ;;3487
 ;;21,"68115-0023-90 ")
 ;;3488
 ;;21,"68115-0023-99 ")
 ;;3489
 ;;21,"68115-0024-00 ")
 ;;3490
 ;;21,"68115-0024-30 ")
 ;;3491
 ;;21,"68115-0024-60 ")
 ;;3492
 ;;21,"68115-0024-90 ")
 ;;3493
 ;;21,"68115-0041-15 ")
 ;;3494
 ;;21,"68115-0041-20 ")
 ;;3495
 ;;21,"68115-0041-30 ")
 ;;3496