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

BGP8ZH11.m

Go to the documentation of this file.
BGP8ZH11 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 22, 2018;
 ;;18.0;IHS CLINICAL REPORTING;**1**;NOV 21, 2017;Build 62
 ;
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,"54868-3109-01 ")
 ;;3355
 ;;21,"54868-3109-02 ")
 ;;3356
 ;;21,"54868-3109-06 ")
 ;;3357
 ;;21,"54868-3109-07 ")
 ;;3358
 ;;21,"54868-3109-08 ")
 ;;3359
 ;;21,"54868-3109-09 ")
 ;;3360
 ;;21,"54868-3113-00 ")
 ;;3361
 ;;21,"54868-3113-03 ")
 ;;3362
 ;;21,"54868-3113-05 ")
 ;;3363
 ;;21,"54868-3113-07 ")
 ;;3364
 ;;21,"54868-3113-08 ")
 ;;3365
 ;;21,"54868-3113-09 ")
 ;;3366
 ;;21,"54868-3169-00 ")
 ;;3367
 ;;21,"54868-3169-01 ")
 ;;3368
 ;;21,"54868-3169-02 ")
 ;;3369
 ;;21,"54868-3169-04 ")
 ;;3370
 ;;21,"54868-3169-05 ")
 ;;3371
 ;;21,"54868-3244-00 ")
 ;;3372
 ;;21,"54868-3384-00 ")
 ;;3373
 ;;21,"54868-3511-04 ")
 ;;3374
 ;;21,"54868-3695-00 ")
 ;;3375
 ;;21,"54868-3742-01 ")
 ;;3376
 ;;21,"54868-3742-02 ")
 ;;3377
 ;;21,"54868-3742-03 ")
 ;;3378
 ;;21,"54868-3923-00 ")
 ;;3379
 ;;21,"54868-3923-01 ")
 ;;3380
 ;;21,"54868-3923-02 ")
 ;;3381
 ;;21,"54868-3923-03 ")
 ;;3382
 ;;21,"54868-3923-04 ")
 ;;3383
 ;;21,"54868-3923-05 ")
 ;;3384
 ;;21,"54868-4047-00 ")
 ;;3385
 ;;21,"54868-4078-01 ")
 ;;3386
 ;;21,"54868-4125-01 ")
 ;;3387
 ;;21,"54868-4125-02 ")
 ;;3388
 ;;21,"54868-4150-01 ")
 ;;3389
 ;;21,"54868-4150-02 ")
 ;;3390
 ;;21,"54868-4154-00 ")
 ;;3391
 ;;21,"54868-4155-00 ")
 ;;3392
 ;;21,"54868-4155-01 ")
 ;;3393
 ;;21,"54868-4155-02 ")
 ;;3394
 ;;21,"54868-4155-03 ")
 ;;3395
 ;;21,"54868-4175-00 ")
 ;;3396
 ;;21,"54868-4175-01 ")
 ;;3397
 ;;21,"54868-4175-02 ")
 ;;3398
 ;;21,"54868-4175-03 ")
 ;;3399
 ;;21,"54868-4175-04 ")
 ;;3400
 ;;21,"54868-4175-05 ")
 ;;3401
 ;;21,"54868-4191-00 ")
 ;;3402
 ;;21,"54868-4191-01 ")
 ;;3403
 ;;21,"54868-4366-00 ")
 ;;3404
 ;;21,"54868-4366-01 ")
 ;;3405
 ;;21,"54868-4367-00 ")
 ;;3406
 ;;21,"54868-4367-01 ")
 ;;3407
 ;;21,"54868-4367-02 ")
 ;;3408
 ;;21,"54868-4367-03 ")
 ;;3409
 ;;21,"54868-4468-00 ")
 ;;3410
 ;;21,"54868-4488-00 ")
 ;;3411
 ;;21,"54868-4527-00 ")
 ;;3412
 ;;21,"54868-4543-00 ")
 ;;3413
 ;;21,"54868-4543-01 ")
 ;;3414
 ;;21,"54868-4543-02 ")
 ;;3415
 ;;21,"54868-4547-00 ")
 ;;3416
 ;;21,"54868-4644-01 ")
 ;;3417
 ;;21,"54868-4651-00 ")
 ;;3418
 ;;21,"54868-4682-00 ")
 ;;3419
 ;;21,"54868-4682-01 ")
 ;;3420
 ;;21,"54868-4743-00 ")
 ;;3421
 ;;21,"54868-4743-01 ")
 ;;3422
 ;;21,"54868-4743-02 ")
 ;;3423
 ;;21,"54868-4858-00 ")
 ;;3424
 ;;21,"54868-4858-01 ")
 ;;3425
 ;;21,"54868-4858-02 ")
 ;;3426
 ;;21,"54868-4858-03 ")
 ;;3427
 ;;21,"54868-4858-04 ")
 ;;3428
 ;;21,"54868-4858-05 ")
 ;;3429
 ;;21,"54868-4858-06 ")
 ;;3430
 ;;21,"54868-4858-07 ")
 ;;3431
 ;;21,"54868-4858-08 ")
 ;;3432
 ;;21,"54868-4898-00 ")
 ;;3433
 ;;21,"54868-4898-01 ")
 ;;3434
 ;;21,"54868-4898-02 ")
 ;;3435
 ;;21,"54868-4898-03 ")
 ;;3436
 ;;21,"54868-4898-04 ")
 ;;3437
 ;;21,"54868-4919-00 ")
 ;;3438
 ;;21,"54868-4951-00 ")
 ;;3439
 ;;21,"54868-4951-01 ")
 ;;3440
 ;;21,"54868-4951-02 ")
 ;;3441
 ;;21,"54868-4971-00 ")
 ;;3442
 ;;21,"54868-4987-00 ")
 ;;3443
 ;;21,"54868-4987-01 ")
 ;;3444
 ;;21,"54868-4990-00 ")
 ;;3445
 ;;21,"54868-5022-00 ")
 ;;3446
 ;;21,"54868-5022-01 ")
 ;;3447
 ;;21,"54868-5022-02 ")
 ;;3448
 ;;21,"54868-5023-00 ")
 ;;3449
 ;;21,"54868-5023-01 ")
 ;;3450
 ;;21,"54868-5040-00 ")
 ;;3451
 ;;21,"54868-5040-01 ")
 ;;3452
 ;;21,"54868-5040-02 ")
 ;;3453
 ;;21,"54868-5101-00 ")
 ;;3454
 ;;21,"54868-5101-01 ")
 ;;3455
 ;;21,"54868-5101-02 ")
 ;;3456
 ;;21,"54868-5211-00 ")
 ;;3457
 ;;21,"54868-5211-01 ")
 ;;3458
 ;;21,"54868-5211-02 ")
 ;;3459
 ;;21,"54868-5211-03 ")
 ;;3460
 ;;21,"54868-5211-04 ")
 ;;3461
 ;;21,"54868-5269-00 ")
 ;;3462
 ;;21,"54868-5404-00 ")
 ;;3463
 ;;21,"54868-5430-00 ")
 ;;3464
 ;;21,"54868-5430-01 ")
 ;;3465
 ;;21,"54868-5430-02 ")
 ;;3466
 ;;21,"54868-5471-00 ")
 ;;3467
 ;;21,"54868-5478-00 ")
 ;;3468
 ;;21,"54868-5478-01 ")
 ;;3469
 ;;21,"54868-5478-02 ")
 ;;3470
 ;;21,"54868-5487-00 ")
 ;;3471
 ;;21,"54868-5533-00 ")
 ;;3472
 ;;21,"54868-5589-00 ")
 ;;3473
 ;;21,"54868-5647-00 ")
 ;;3474
 ;;21,"54868-5648-00 ")
 ;;3475
 ;;21,"54868-5648-01 ")
 ;;3476
 ;;21,"54868-5648-02 ")
 ;;3477
 ;;21,"54868-5676-00 ")
 ;;3478
 ;;21,"54868-5756-00 ")
 ;;3479
 ;;21,"54868-5757-00 ")
 ;;3480
 ;;21,"54868-5767-00 ")
 ;;3481
 ;;21,"54868-5768-00 ")
 ;;3482
 ;;21,"54868-5768-01 ")
 ;;3483
 ;;21,"54868-5769-00 ")
 ;;3484
 ;;21,"54868-5769-01 ")
 ;;3485
 ;;21,"54868-5833-00 ")
 ;;3486
 ;;21,"54868-5981-00 ")
 ;;3487
 ;;21,"54879-0007-16 ")
 ;;3488
 ;;21,"54879-0025-01 ")
 ;;3489
 ;;21,"55045-1170-00 ")
 ;;3490
 ;;21,"55045-1170-01 ")
 ;;3491
 ;;21,"55045-1176-01 ")
 ;;3492
 ;;21,"55045-1189-01 ")
 ;;3493
 ;;21,"55045-1202-00 ")
 ;;3494
 ;;21,"55045-1202-01 ")
 ;;3495
 ;;21,"55045-1202-02 ")
 ;;3496
 ;;21,"55045-1202-06 ")
 ;;3497
 ;;21,"55045-1202-09 ")
 ;;3498
 ;;21,"55045-1207-00 ")
 ;;3499
 ;;21,"55045-1207-01 ")
 ;;3500
 ;;21,"55045-1207-05 ")
 ;;3501
 ;;21,"55045-1227-00 ")
 ;;3502
 ;;21,"55045-1227-01 ")
 ;;3503
 ;;21,"55045-1227-02 ")
 ;;3504
 ;;21,"55045-1227-04 ")
 ;;3505
 ;;21,"55045-1227-06 ")
 ;;3506
 ;;21,"55045-1227-07 ")
 ;;3507
 ;;21,"55045-1227-09 ")
 ;;3508
 ;;21,"55045-1247-01 ")
 ;;3509
 ;;21,"55045-1262-09 ")
 ;;3510
 ;;21,"55045-1270-03 ")
 ;;3511
 ;;21,"55045-1270-04 ")
 ;;3512
 ;;21,"55045-1270-06 ")
 ;;3513
 ;;21,"55045-1442-01 ")
 ;;3514
 ;;21,"55045-1469-09 ")
 ;;3515
 ;;21,"55045-1494-03 ")
 ;;3516
 ;;21,"55045-1494-05 ")
 ;;3517
 ;;21,"55045-1494-08 ")
 ;;3518
 ;;21,"55045-1494-09 ")
 ;;3519
 ;;21,"55045-1514-06 ")
 ;;3520
 ;;21,"55045-1546-02 ")
 ;;3521
 ;;21,"55045-1546-03 ")
 ;;3522
 ;;21,"55045-1546-05 ")
 ;;3523
 ;;21,"55045-1546-07 ")
 ;;3524
 ;;21,"55045-1650-02 ")
 ;;3525
 ;;21,"55045-1865-07 ")
 ;;3526
 ;;21,"55045-1918-00 ")
 ;;3527
 ;;21,"55045-1918-01 ")
 ;;3528
 ;;21,"55045-1918-02 ")
 ;;3529
 ;;21,"55045-1918-06 ")
 ;;3530
 ;;21,"55045-1918-09 ")
 ;;3531
 ;;21,"55045-2006-00 ")
 ;;3532
 ;;21,"55045-2006-01 ")
 ;;3533
 ;;21,"55045-2006-03 ")
 ;;3534
 ;;21,"55045-2006-05 ")
 ;;3535
 ;;21,"55045-2006-06 ")
 ;;3536
 ;;21,"55045-2006-09 ")
 ;;3537
 ;;21,"55045-2012-02 ")
 ;;3538
 ;;21,"55045-2012-05 ")
 ;;3539
 ;;21,"55045-2012-08 ")
 ;;3540
 ;;21,"55045-2012-09 ")
 ;;3541
 ;;21,"55045-2162-04 ")
 ;;3542
 ;;21,"55045-2162-07 ")
 ;;3543
 ;;21,"55045-2162-08 ")
 ;;3544
 ;;21,"55045-2302-03 ")
 ;;3545
 ;;21,"55045-2372-05 ")
 ;;3546
 ;;21,"55045-2373-05 ")
 ;;3547
 ;;21,"55045-2373-06 ")
 ;;3548
 ;;21,"55045-2373-08 ")
 ;;3549
 ;;21,"55045-2492-06 ")
 ;;3550
 ;;21,"55045-2597-01 ")
 ;;3551
 ;;21,"55045-2597-02 ")
 ;;3552
 ;;21,"55045-2597-03 ")
 ;;3553
 ;;21,"55045-2597-05 ")
 ;;3554
 ;;21,"55045-2597-06 ")
 ;;3555
 ;;21,"55045-2597-08 ")
 ;;3556
 ;;21,"55045-2598-03 ")
 ;;3557
 ;;21,"55045-2610-02 ")
 ;;3558
 ;;21,"55045-2610-07 ")
 ;;3559
 ;;21,"55045-2610-09 ")
 ;;3560
 ;;21,"55045-2843-01 ")
 ;;3561
 ;;21,"55045-2843-05 ")
 ;;3562
 ;;21,"55045-2843-07 ")
 ;;3563
 ;;21,"55045-2953-02 ")
 ;;3564
 ;;21,"55045-2953-06 ")
 ;;3565
 ;;21,"55045-2966-07 ")
 ;;3566
 ;;21,"55045-2966-08 ")
 ;;3567
 ;;21,"55045-2992-02 ")
 ;;3568
 ;;21,"55045-3016-07 ")
 ;;3569
 ;;21,"55045-3142-01 ")
 ;;3570
 ;;21,"55045-3233-08 ")
 ;;3571
 ;;21,"55045-3268-04 ")
 ;;3572
 ;;21,"55045-3306-05 ")
 ;;3573
 ;;21,"55045-3306-08 ")
 ;;3574
 ;;21,"55045-3310-08 ")
 ;;3575
 ;;21,"55045-3355-00 ")
 ;;3576
 ;;21,"55045-3355-01 ")
 ;;3577
 ;;21,"55045-3442-06 ")
 ;;3578
 ;;21,"55045-3452-01 ")
 ;;3579
 ;;21,"55045-3467-01 ")
 ;;3580
 ;;21,"55045-3490-01 ")
 ;;3581
 ;;21,"55045-3532-01 ")
 ;;3582
 ;;21,"55045-3693-01 ")
 ;;3583
 ;;21,"55045-3698-03 ")
 ;;3584
 ;;21,"55111-0112-30 ")
 ;;3585
 ;;21,"55111-0125-06 ")
 ;;3586
 ;;21,"55111-0126-01 ")
 ;;3587
 ;;21,"55111-0126-05 ")
 ;;3588
 ;;21,"55111-0127-01 ")
 ;;3589
 ;;21,"55111-0127-05 ")
 ;;3590
 ;;21,"55111-0128-50 ")
 ;;3591
 ;;21,"55111-0160-50 ")
 ;;3592
 ;;21,"55111-0161-50 ")
 ;;3593
 ;;21,"55111-0162-01 ")
 ;;3594
 ;;21,"55111-0279-50 ")
 ;;3595
 ;;21,"55111-0280-50 ")
 ;;3596
 ;;21,"55111-0281-30 ")
 ;;3597
 ;;21,"55111-0422-01 ")
 ;;3598
 ;;21,"55111-0422-30 ")
 ;;3599
 ;;21,"55111-0423-30 ")
 ;;3600
 ;;21,"55111-0637-01 ")
 ;;3601
 ;;21,"55111-0638-01 ")
 ;;3602
 ;;21,"55111-0639-60 ")
 ;;3603
 ;;21,"55150-0111-10 ")
 ;;3604
 ;;21,"55150-0112-10 ")
 ;;3605
 ;;21,"55150-0113-10 ")
 ;;3606
 ;;21,"55150-0114-20 ")
 ;;3607
 ;;21,"55150-0115-99 ")
 ;;3608
 ;;21,"55150-0156-20 ")
 ;;3609
 ;;21,"55150-0157-30 ")
 ;;3610
 ;;21,"55150-0174-10 ")
 ;;3611
 ;;21,"55150-0243-46 ")
 ;;3612
 ;;21,"55150-0244-47 ")
 ;;3613
 ;;21,"55150-0245-52 ")
 ;;3614
 ;;21,"55289-0019-06 ")
 ;;3615
 ;;21,"55289-0019-15 ")
 ;;3616
 ;;21,"55289-0019-21 ")
 ;;3617
 ;;21,"55289-0019-24 ")
 ;;3618
 ;;21,"55289-0019-30 ")
 ;;3619
 ;;21,"55289-0019-40 ")
 ;;3620
 ;;21,"55289-0019-60 ")
 ;;3621
 ;;21,"55289-0020-04 ")
 ;;3622
 ;;21,"55289-0020-06 ")
 ;;3623
 ;;21,"55289-0020-09 ")
 ;;3624
 ;;21,"55289-0020-14 ")
 ;;3625
 ;;21,"55289-0020-15 ")
 ;;3626
 ;;21,"55289-0020-21 ")
 ;;3627
 ;;21,"55289-0020-24 ")
 ;;3628
 ;;21,"55289-0020-28 ")
 ;;3629
 ;;21,"55289-0020-30 ")
 ;;3630
 ;;21,"55289-0020-40 ")
 ;;3631
 ;;21,"55289-0020-42 ")
 ;;3632
 ;;21,"55289-0020-50 ")
 ;;3633
 ;;21,"55289-0020-56 ")
 ;;3634
 ;;21,"55289-0020-60 ")
 ;;3635
 ;;21,"55289-0020-63 ")
 ;;3636
 ;;21,"55289-0021-10 ")
 ;;3637
 ;;21,"55289-0021-14 ")
 ;;3638
 ;;21,"55289-0021-20 ")
 ;;3639
 ;;21,"55289-0021-28 ")
 ;;3640
 ;;21,"55289-0024-04 ")
 ;;3641
 ;;21,"55289-0024-07 ")
 ;;3642
 ;;21,"55289-0024-10 ")
 ;;3643
 ;;21,"55289-0024-20 ")
 ;;3644
 ;;21,"55289-0024-28 ")
 ;;3645
 ;;21,"55289-0024-30 ")
 ;;3646
 ;;21,"55289-0024-40 ")
 ;;3647
 ;;21,"55289-0025-04 ")
 ;;3648
 ;;21,"55289-0025-20 ")
 ;;3649
 ;;21,"55289-0025-28 ")
 ;;3650
 ;;21,"55289-0025-30 ")
 ;;3651
 ;;21,"55289-0025-40 ")
 ;;3652
 ;;21,"55289-0027-20 ")
 ;;3653
 ;;21,"55289-0033-28 ")
 ;;3654
 ;;21,"55289-0033-40 ")
 ;;3655
 ;;21,"55289-0043-14 ")
 ;;3656
 ;;21,"55289-0050-40 ")
 ;;3657
 ;;21,"55289-0057-06 ")
 ;;3658
 ;;21,"55289-0057-10 ")
 ;;3659
 ;;21,"55289-0057-15 ")
 ;;3660
 ;;21,"55289-0057-20 ")
 ;;3661
 ;;21,"55289-0057-24 ")
 ;;3662
 ;;21,"55289-0057-28 ")
 ;;3663
 ;;21,"55289-0057-30 ")
 ;;3664
 ;;21,"55289-0057-40 ")
 ;;3665
 ;;21,"55289-0058-04 ")
 ;;3666
 ;;21,"55289-0058-08 ")
 ;;3667
 ;;21,"55289-0058-10 ")
 ;;3668
 ;;21,"55289-0058-14 ")
 ;;3669
 ;;21,"55289-0058-20 ")
 ;;3670
 ;;21,"55289-0058-21 ")
 ;;3671
 ;;21,"55289-0058-24 ")
 ;;3672
 ;;21,"55289-0058-28 ")
 ;;3673
 ;;21,"55289-0058-30 ")
 ;;3674
 ;;21,"55289-0058-40 ")
 ;;3675
 ;;21,"55289-0058-56 ")
 ;;3676
 ;;21,"55289-0072-01 ")
 ;;3677
 ;;21,"55289-0072-40 ")
 ;;3678
 ;;21,"55289-0075-03 ")
 ;;3679
 ;;21,"55289-0075-40 ")
 ;;3680
 ;;21,"55289-0075-56 ")
 ;;3681
 ;;21,"55289-0077-10 ")
 ;;3682
 ;;21,"55289-0081-20 ")
 ;;3683
 ;;21,"55289-0094-10 ")
 ;;3684
 ;;21,"55289-0094-20 ")
 ;;3685
 ;;21,"55289-0094-30 ")
 ;;3686
 ;;21,"55289-0094-40 ")
 ;;3687