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

BGP53I9.m

Go to the documentation of this file.
BGP53I9 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON FEB 23, 2015;
 ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
 ;
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,"52959-0730-60 ")
 ;;3111
 ;;21,"52959-0734-14 ")
 ;;3112
 ;;21,"52959-0734-20 ")
 ;;3113
 ;;21,"52959-0734-30 ")
 ;;3114
 ;;21,"52959-0734-60 ")
 ;;3115
 ;;21,"52959-0739-06 ")
 ;;3116
 ;;21,"52959-0739-10 ")
 ;;3117
 ;;21,"52959-0739-14 ")
 ;;3118
 ;;21,"52959-0739-20 ")
 ;;3119
 ;;21,"52959-0744-20 ")
 ;;3120
 ;;21,"52959-0744-30 ")
 ;;3121
 ;;21,"52959-0744-40 ")
 ;;3122
 ;;21,"52959-0744-42 ")
 ;;3123
 ;;21,"52959-0765-01 ")
 ;;3124
 ;;21,"52959-0765-02 ")
 ;;3125
 ;;21,"52959-0766-03 ")
 ;;3126
 ;;21,"52959-0766-05 ")
 ;;3127
 ;;21,"52959-0766-07 ")
 ;;3128
 ;;21,"52959-0782-10 ")
 ;;3129
 ;;21,"52959-0782-20 ")
 ;;3130
 ;;21,"52959-0784-04 ")
 ;;3131
 ;;21,"52959-0784-16 ")
 ;;3132
 ;;21,"52959-0784-21 ")
 ;;3133
 ;;21,"52959-0784-28 ")
 ;;3134
 ;;21,"52959-0784-30 ")
 ;;3135
 ;;21,"52959-0784-40 ")
 ;;3136
 ;;21,"52959-0793-28 ")
 ;;3137
 ;;21,"52959-0793-40 ")
 ;;3138
 ;;21,"52959-0796-10 ")
 ;;3139
 ;;21,"52959-0816-20 ")
 ;;3140
 ;;21,"52959-0816-28 ")
 ;;3141
 ;;21,"52959-0816-30 ")
 ;;3142
 ;;21,"52959-0836-10 ")
 ;;3143
 ;;21,"52959-0836-14 ")
 ;;3144
 ;;21,"52959-0836-20 ")
 ;;3145
 ;;21,"52959-0836-60 ")
 ;;3146
 ;;21,"52959-0838-06 ")
 ;;3147
 ;;21,"52959-0843-01 ")
 ;;3148
 ;;21,"52959-0855-07 ")
 ;;3149
 ;;21,"52959-0927-03 ")
 ;;3150
 ;;21,"52959-0932-30 ")
 ;;3151
 ;;21,"52959-0939-20 ")
 ;;3152
 ;;21,"52959-0939-30 ")
 ;;3153
 ;;21,"52959-1012-00 ")
 ;;3154
 ;;21,"52959-1012-01 ")
 ;;3155
 ;;21,"52959-1023-01 ")
 ;;3156
 ;;21,"52959-1023-03 ")
 ;;3157
 ;;21,"52959-1023-05 ")
 ;;3158
 ;;21,"52959-1023-07 ")
 ;;3159
 ;;21,"52959-1023-09 ")
 ;;3160
 ;;21,"52959-1029-00 ")
 ;;3161
 ;;21,"52959-1029-01 ")
 ;;3162
 ;;21,"52959-1055-00 ")
 ;;3163
 ;;21,"52959-1055-01 ")
 ;;3164
 ;;21,"52959-1172-01 ")
 ;;3165
 ;;21,"52959-1172-02 ")
 ;;3166
 ;;21,"52959-1399-03 ")
 ;;3167
 ;;21,"52959-1425-03 ")
 ;;3168
 ;;21,"52959-1452-01 ")
 ;;3169
 ;;21,"52959-1452-02 ")
 ;;3170
 ;;21,"52959-1453-02 ")
 ;;3171
 ;;21,"52959-1462-00 ")
 ;;3172
 ;;21,"52959-1463-03 ")
 ;;3173
 ;;21,"53489-0118-02 ")
 ;;3174
 ;;21,"53489-0118-05 ")
 ;;3175
 ;;21,"53489-0119-02 ")
 ;;3176
 ;;21,"53489-0119-05 ")
 ;;3177
 ;;21,"53489-0120-02 ")
 ;;3178
 ;;21,"53489-0120-05 ")
 ;;3179
 ;;21,"53489-0145-01 ")
 ;;3180
 ;;21,"53489-0145-05 ")
 ;;3181
 ;;21,"53489-0146-01 ")
 ;;3182
 ;;21,"53489-0146-05 ")
 ;;3183
 ;;21,"53489-0647-01 ")
 ;;3184
 ;;21,"53746-0271-01 ")
 ;;3185
 ;;21,"53746-0271-05 ")
 ;;3186
 ;;21,"53746-0272-01 ")
 ;;3187
 ;;21,"53746-0272-05 ")
 ;;3188
 ;;21,"54348-0575-02 ")
 ;;3189
 ;;21,"54348-0854-04 ")
 ;;3190
 ;;21,"54531-0100-01 ")
 ;;3191
 ;;21,"54569-0075-00 ")
 ;;3192
 ;;21,"54569-0075-01 ")
 ;;3193
 ;;21,"54569-0075-02 ")
 ;;3194
 ;;21,"54569-0075-03 ")
 ;;3195
 ;;21,"54569-0075-05 ")
 ;;3196
 ;;21,"54569-0075-07 ")
 ;;3197
 ;;21,"54569-0075-09 ")
 ;;3198
 ;;21,"54569-0109-00 ")
 ;;3199
 ;;21,"54569-0110-02 ")
 ;;3200
 ;;21,"54569-0110-04 ")
 ;;3201
 ;;21,"54569-0118-00 ")
 ;;3202
 ;;21,"54569-0118-01 ")
 ;;3203
 ;;21,"54569-0118-02 ")
 ;;3204
 ;;21,"54569-0118-03 ")
 ;;3205
 ;;21,"54569-0118-05 ")
 ;;3206
 ;;21,"54569-0118-06 ")
 ;;3207
 ;;21,"54569-0118-08 ")
 ;;3208
 ;;21,"54569-0118-09 ")
 ;;3209
 ;;21,"54569-0120-00 ")
 ;;3210
 ;;21,"54569-0126-00 ")
 ;;3211
 ;;21,"54569-0127-00 ")
 ;;3212
 ;;21,"54569-0127-02 ")
 ;;3213
 ;;21,"54569-0127-03 ")
 ;;3214
 ;;21,"54569-0127-05 ")
 ;;3215
 ;;21,"54569-0128-00 ")
 ;;3216
 ;;21,"54569-0132-00 ")
 ;;3217
 ;;21,"54569-0134-00 ")
 ;;3218
 ;;21,"54569-0135-00 ")
 ;;3219
 ;;21,"54569-0136-01 ")
 ;;3220
 ;;21,"54569-0142-01 ")
 ;;3221
 ;;21,"54569-0147-01 ")
 ;;3222
 ;;21,"54569-0147-02 ")
 ;;3223
 ;;21,"54569-0147-04 ")
 ;;3224
 ;;21,"54569-0157-02 ")
 ;;3225
 ;;21,"54569-0179-00 ")
 ;;3226
 ;;21,"54569-0269-00 ")
 ;;3227
 ;;21,"54569-0304-02 ")
 ;;3228
 ;;21,"54569-0304-03 ")
 ;;3229
 ;;21,"54569-0304-04 ")
 ;;3230
 ;;21,"54569-0304-05 ")
 ;;3231
 ;;21,"54569-0304-06 ")
 ;;3232
 ;;21,"54569-0304-08 ")
 ;;3233
 ;;21,"54569-0305-00 ")
 ;;3234
 ;;21,"54569-0305-01 ")
 ;;3235
 ;;21,"54569-0305-02 ")
 ;;3236
 ;;21,"54569-0305-03 ")
 ;;3237
 ;;21,"54569-0305-05 ")
 ;;3238
 ;;21,"54569-0305-06 ")
 ;;3239
 ;;21,"54569-0305-07 ")
 ;;3240
 ;;21,"54569-0305-08 ")
 ;;3241
 ;;21,"54569-0306-00 ")
 ;;3242
 ;;21,"54569-0306-01 ")
 ;;3243
 ;;21,"54569-0384-00 ")
 ;;3244
 ;;21,"54569-0384-01 ")
 ;;3245
 ;;21,"54569-0384-04 ")
 ;;3246
 ;;21,"54569-0384-05 ")
 ;;3247
 ;;21,"54569-1019-00 ")
 ;;3248
 ;;21,"54569-1023-00 ")
 ;;3249
 ;;21,"54569-1024-00 ")
 ;;3250
 ;;21,"54569-1025-00 ")
 ;;3251
 ;;21,"54569-1026-00 ")
 ;;3252
 ;;21,"54569-1377-00 ")
 ;;3253
 ;;21,"54569-1648-03 ")
 ;;3254
 ;;21,"54569-1648-05 ")
 ;;3255
 ;;21,"54569-1648-07 ")
 ;;3256
 ;;21,"54569-1719-00 ")
 ;;3257
 ;;21,"54569-1719-02 ")
 ;;3258
 ;;21,"54569-1723-00 ")
 ;;3259
 ;;21,"54569-1723-01 ")
 ;;3260
 ;;21,"54569-1723-02 ")
 ;;3261
 ;;21,"54569-1723-03 ")
 ;;3262
 ;;21,"54569-1723-04 ")
 ;;3263
 ;;21,"54569-1723-05 ")
 ;;3264
 ;;21,"54569-1723-08 ")
 ;;3265
 ;;21,"54569-1723-09 ")
 ;;3266
 ;;21,"54569-1792-03 ")
 ;;3267
 ;;21,"54569-1802-01 ")
 ;;3268
 ;;21,"54569-1840-00 ")
 ;;3269
 ;;21,"54569-1840-01 ")
 ;;3270
 ;;21,"54569-1840-03 ")
 ;;3271
 ;;21,"54569-1840-04 ")
 ;;3272
 ;;21,"54569-1840-07 ")
 ;;3273
 ;;21,"54569-1889-00 ")
 ;;3274
 ;;21,"54569-1889-01 ")
 ;;3275
 ;;21,"54569-1889-04 ")
 ;;3276
 ;;21,"54569-1959-00 ")
 ;;3277
 ;;21,"54569-1959-03 ")
 ;;3278
 ;;21,"54569-1959-04 ")
 ;;3279
 ;;21,"54569-1959-05 ")
 ;;3280
 ;;21,"54569-1959-06 ")
 ;;3281
 ;;21,"54569-1959-08 ")
 ;;3282
 ;;21,"54569-1962-00 ")
 ;;3283
 ;;21,"54569-1962-01 ")
 ;;3284
 ;;21,"54569-1962-02 ")
 ;;3285
 ;;21,"54569-1962-03 ")
 ;;3286
 ;;21,"54569-2000-00 ")
 ;;3287
 ;;21,"54569-2187-00 ")
 ;;3288
 ;;21,"54569-2199-00 ")
 ;;3289
 ;;21,"54569-2199-01 ")
 ;;3290
 ;;21,"54569-2199-03 ")
 ;;3291
 ;;21,"54569-2279-03 ")
 ;;3292
 ;;21,"54569-2279-07 ")
 ;;3293
 ;;21,"54569-2281-00 ")
 ;;3294
 ;;21,"54569-2281-01 ")
 ;;3295
 ;;21,"54569-2281-02 ")
 ;;3296
 ;;21,"54569-2281-03 ")
 ;;3297
 ;;21,"54569-2281-04 ")
 ;;3298
 ;;21,"54569-2433-00 ")
 ;;3299
 ;;21,"54569-2433-02 ")
 ;;3300
 ;;21,"54569-2488-00 ")
 ;;3301
 ;;21,"54569-2488-01 ")
 ;;3302
 ;;21,"54569-2488-03 ")
 ;;3303
 ;;21,"54569-2502-00 ")
 ;;3304
 ;;21,"54569-2502-01 ")
 ;;3305
 ;;21,"54569-2502-03 ")
 ;;3306
 ;;21,"54569-2502-05 ")
 ;;3307
 ;;21,"54569-2502-06 ")
 ;;3308
 ;;21,"54569-2508-00 ")
 ;;3309
 ;;21,"54569-2508-01 ")
 ;;3310
 ;;21,"54569-2508-02 ")
 ;;3311
 ;;21,"54569-2508-03 ")
 ;;3312
 ;;21,"54569-2508-04 ")
 ;;3313
 ;;21,"54569-2702-08 ")
 ;;3314
 ;;21,"54569-2719-00 ")
 ;;3315
 ;;21,"54569-2821-00 ")
 ;;3316
 ;;21,"54569-2928-00 ")
 ;;3317
 ;;21,"54569-2930-00 ")
 ;;3318
 ;;21,"54569-2931-00 ")
 ;;3319
 ;;21,"54569-2933-00 ")
 ;;3320
 ;;21,"54569-2935-00 ")
 ;;3321
 ;;21,"54569-2952-01 ")
 ;;3322
 ;;21,"54569-2953-00 ")
 ;;3323
 ;;21,"54569-2954-00 ")
 ;;3324
 ;;21,"54569-2986-00 ")
 ;;3325
 ;;21,"54569-2986-04 ")
 ;;3326
 ;;21,"54569-2986-05 ")
 ;;3327
 ;;21,"54569-3057-00 ")
 ;;3328
 ;;21,"54569-3074-01 ")
 ;;3329
 ;;21,"54569-3074-02 ")
 ;;3330
 ;;21,"54569-3074-05 ")
 ;;3331
 ;;21,"54569-3074-06 ")
 ;;3332
 ;;21,"54569-3074-07 ")
 ;;3333
 ;;21,"54569-3074-08 ")
 ;;3334
 ;;21,"54569-3153-00 ")
 ;;3335
 ;;21,"54569-3153-02 ")
 ;;3336
 ;;21,"54569-3153-03 ")
 ;;3337
 ;;21,"54569-3162-00 ")
 ;;3338
 ;;21,"54569-3315-00 ")
 ;;3339
 ;;21,"54569-3324-03 ")
 ;;3340
 ;;21,"54569-3439-00 ")
 ;;3341
 ;;21,"54569-3439-01 ")
 ;;3342
 ;;21,"54569-3439-03 ")
 ;;3343
 ;;21,"54569-3439-04 ")
 ;;3344
 ;;21,"54569-3456-00 ")
 ;;3345
 ;;21,"54569-3456-01 ")
 ;;3346
 ;;21,"54569-3456-02 ")
 ;;3347
 ;;21,"54569-3456-03 ")
 ;;3348
 ;;21,"54569-3456-04 ")
 ;;3349
 ;;21,"54569-3456-06 ")
 ;;3350
 ;;21,"54569-3477-00 ")
 ;;3351
 ;;21,"54569-3479-00 ")
 ;;3352
 ;;21,"54569-3503-01 ")
 ;;3353
 ;;21,"54569-3531-02 ")
 ;;3354
 ;;21,"54569-3556-01 ")
 ;;3355
 ;;21,"54569-3563-00 ")
 ;;3356
 ;;21,"54569-3563-01 ")
 ;;3357
 ;;21,"54569-3563-02 ")
 ;;3358
 ;;21,"54569-3563-03 ")
 ;;3359
 ;;21,"54569-3563-04 ")
 ;;3360
 ;;21,"54569-3563-05 ")
 ;;3361
 ;;21,"54569-3630-00 ")
 ;;3362
 ;;21,"54569-3652-00 ")
 ;;3363
 ;;21,"54569-3653-00 ")
 ;;3364
 ;;21,"54569-3689-00 ")
 ;;3365
 ;;21,"54569-3689-01 ")
 ;;3366
 ;;21,"54569-3689-02 ")
 ;;3367
 ;;21,"54569-3689-03 ")
 ;;3368
 ;;21,"54569-3689-04 ")
 ;;3369
 ;;21,"54569-3689-05 ")
 ;;3370
 ;;21,"54569-3689-06 ")
 ;;3371
 ;;21,"54569-3743-00 ")
 ;;3372
 ;;21,"54569-3876-00 ")
 ;;3373
 ;;21,"54569-3896-00 ")
 ;;3374
 ;;21,"54569-3897-00 ")
 ;;3375
 ;;21,"54569-3986-01 ")
 ;;3376
 ;;21,"54569-4003-00 ")
 ;;3377
 ;;21,"54569-4003-01 ")
 ;;3378
 ;;21,"54569-4003-02 ")
 ;;3379
 ;;21,"54569-4005-00 ")
 ;;3380
 ;;21,"54569-4005-01 ")
 ;;3381
 ;;21,"54569-4230-00 ")
 ;;3382
 ;;21,"54569-4231-00 ")
 ;;3383
 ;;21,"54569-4232-00 ")
 ;;3384
 ;;21,"54569-4270-00 ")
 ;;3385
 ;;21,"54569-4271-00 ")
 ;;3386
 ;;21,"54569-4294-00 ")
 ;;3387
 ;;21,"54569-4311-00 ")
 ;;3388
 ;;21,"54569-4391-00 ")
 ;;3389
 ;;21,"54569-4391-01 ")
 ;;3390
 ;;21,"54569-4391-02 ")
 ;;3391
 ;;21,"54569-4391-03 ")
 ;;3392
 ;;21,"54569-4391-04 ")
 ;;3393
 ;;21,"54569-4417-00 ")
 ;;3394
 ;;21,"54569-4489-00 ")
 ;;3395
 ;;21,"54569-4489-01 ")
 ;;3396
 ;;21,"54569-4489-02 ")
 ;;3397
 ;;21,"54569-4489-03 ")
 ;;3398
 ;;21,"54569-4489-04 ")
 ;;3399
 ;;21,"54569-4497-00 ")
 ;;3400
 ;;21,"54569-4522-00 ")
 ;;3401
 ;;21,"54569-4522-01 ")
 ;;3402
 ;;21,"54569-4522-02 ")
 ;;3403
 ;;21,"54569-4551-01 ")
 ;;3404
 ;;21,"54569-4567-00 ")
 ;;3405
 ;;21,"54569-4647-00 ")
 ;;3406
 ;;21,"54569-4689-00 ")
 ;;3407
 ;;21,"54569-4712-00 ")
 ;;3408
 ;;21,"54569-4713-00 ")
 ;;3409
 ;;21,"54569-4713-02 ")
 ;;3410
 ;;21,"54569-4737-00 ")
 ;;3411
 ;;21,"54569-4783-00 ")
 ;;3412
 ;;21,"54569-4820-00 ")
 ;;3413
 ;;21,"54569-4877-00 ")
 ;;3414
 ;;21,"54569-4915-00 ")
 ;;3415
 ;;21,"54569-4915-01 ")
 ;;3416
 ;;21,"54569-4915-02 ")
 ;;3417
 ;;21,"54569-4922-00 ")
 ;;3418
 ;;21,"54569-4922-01 ")
 ;;3419
 ;;21,"54569-4922-02 ")
 ;;3420
 ;;21,"54569-4953-00 ")
 ;;3421
 ;;21,"54569-4972-00 ")
 ;;3422
 ;;21,"54569-5149-00 ")
 ;;3423
 ;;21,"54569-5154-00 ")
 ;;3424
 ;;21,"54569-5182-00 ")
 ;;3425
 ;;21,"54569-5193-00 ")
 ;;3426
 ;;21,"54569-5214-00 ")
 ;;3427
 ;;21,"54569-5214-01 ")
 ;;3428
 ;;21,"54569-5215-00 ")
 ;;3429
 ;;21,"54569-5386-00 ")
 ;;3430
 ;;21,"54569-5386-01 ")
 ;;3431
 ;;21,"54569-5386-02 ")
 ;;3432
 ;;21,"54569-5386-03 ")
 ;;3433
 ;;21,"54569-5418-00 ")
 ;;3434
 ;;21,"54569-5448-00 ")
 ;;3435
 ;;21,"54569-5470-00 ")
 ;;3436
 ;;21,"54569-5470-01 ")
 ;;3437
 ;;21,"54569-5470-02 ")
 ;;3438
 ;;21,"54569-5470-03 ")
 ;;3439
 ;;21,"54569-5471-00 ")
 ;;3440
 ;;21,"54569-5471-01 ")
 ;;3441
 ;;21,"54569-5471-02 ")
 ;;3442
 ;;21,"54569-5471-03 ")
 ;;3443
 ;;21,"54569-5471-04 ")
 ;;3444
 ;;21,"54569-5487-00 ")
 ;;3445
 ;;21,"54569-5488-00 ")
 ;;3446
 ;;21,"54569-5510-00 ")
 ;;3447
 ;;21,"54569-5553-00 ")
 ;;3448
 ;;21,"54569-5574-00 ")
 ;;3449
 ;;21,"54569-5574-01 ")
 ;;3450
 ;;21,"54569-5574-02 ")
 ;;3451
 ;;21,"54569-5574-03 ")
 ;;3452
 ;;21,"54569-5574-04 ")
 ;;3453
 ;;21,"54569-5574-05 ")
 ;;3454
 ;;21,"54569-5574-06 ")
 ;;3455
 ;;21,"54569-5584-00 ")
 ;;3456
 ;;21,"54569-5584-01 ")
 ;;3457
 ;;21,"54569-5584-02 ")
 ;;3458
 ;;21,"54569-5638-00 ")
 ;;3459
 ;;21,"54569-5638-01 ")
 ;;3460
 ;;21,"54569-5649-00 ")
 ;;3461
 ;;21,"54569-5650-00 ")
 ;;3462
 ;;21,"54569-5688-00 ")
 ;;3463
 ;;21,"54569-5689-00 ")
 ;;3464
 ;;21,"54569-5690-00 ")
 ;;3465
 ;;21,"54569-5698-00 ")
 ;;3466
 ;;21,"54569-5698-01 ")
 ;;3467
 ;;21,"54569-5698-02 ")
 ;;3468
 ;;21,"54569-5720-00 ")
 ;;3469
 ;;21,"54569-5721-00 ")
 ;;3470
 ;;21,"54569-5722-00 ")
 ;;3471
 ;;21,"54569-5723-00 ")
 ;;3472
 ;;21,"54569-5724-00 ")
 ;;3473
 ;;21,"54569-5725-00 ")
 ;;3474
 ;;21,"54569-5727-00 ")
 ;;3475
 ;;21,"54569-5754-00 ")
 ;;3476
 ;;21,"54569-5755-00 ")
 ;;3477
 ;;21,"54569-5756-00 ")
 ;;3478
 ;;21,"54569-5774-00 ")
 ;;3479
 ;;21,"54569-5774-01 ")
 ;;3480
 ;;21,"54569-5774-02 ")
 ;;3481
 ;;21,"54569-5774-03 ")
 ;;3482
 ;;21,"54569-5784-00 ")
 ;;3483
 ;;21,"54569-5785-00 ")
 ;;3484
 ;;21,"54569-5804-00 ")
 ;;3485
 ;;21,"54569-5806-00 ")
 ;;3486
 ;;21,"54569-5807-00 ")
 ;;3487
 ;;21,"54569-5808-00 ")
 ;;3488
 ;;21,"54569-5809-00 ")
 ;;3489
 ;;21,"54569-5810-00 ")
 ;;3490
 ;;21,"54569-5813-00 ")
 ;;3491
 ;;21,"54569-5824-00 ")
 ;;3492
 ;;21,"54569-5829-00 ")
 ;;3493
 ;;21,"54569-5831-00 ")
 ;;3494
 ;;21,"54569-5899-00 ")
 ;;3495
 ;;21,"54569-5917-00 ")
 ;;3496