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

BGP71U11.m

Go to the documentation of this file.
  1. BGP71U11 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 11, 2016 ;
  1. ;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29
  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,"61570-0111-01 ")
  1. ;;3355
  1. ;;21,"61570-0112-01 ")
  1. ;;3356
  1. ;;21,"61570-0120-01 ")
  1. ;;3357
  1. ;;21,"61894-0001-02 ")
  1. ;;3358
  1. ;;21,"61894-0002-02 ")
  1. ;;3359
  1. ;;21,"61894-0010-02 ")
  1. ;;3360
  1. ;;21,"61894-0011-02 ")
  1. ;;3361
  1. ;;21,"61894-0012-02 ")
  1. ;;3362
  1. ;;21,"61919-0030-30 ")
  1. ;;3363
  1. ;;21,"61919-0030-90 ")
  1. ;;3364
  1. ;;21,"61919-0040-30 ")
  1. ;;3365
  1. ;;21,"61919-0040-90 ")
  1. ;;3366
  1. ;;21,"61919-0277-30 ")
  1. ;;3367
  1. ;;21,"61919-0280-30 ")
  1. ;;3368
  1. ;;21,"61919-0280-60 ")
  1. ;;3369
  1. ;;21,"61919-0306-30 ")
  1. ;;3370
  1. ;;21,"61919-0306-60 ")
  1. ;;3371
  1. ;;21,"61919-0306-90 ")
  1. ;;3372
  1. ;;21,"61919-0307-30 ")
  1. ;;3373
  1. ;;21,"61919-0308-90 ")
  1. ;;3374
  1. ;;21,"61919-0309-30 ")
  1. ;;3375
  1. ;;21,"61919-0309-71 ")
  1. ;;3376
  1. ;;21,"61919-0309-90 ")
  1. ;;3377
  1. ;;21,"61919-0332-30 ")
  1. ;;3378
  1. ;;21,"61919-0461-30 ")
  1. ;;3379
  1. ;;21,"61919-0760-30 ")
  1. ;;3380
  1. ;;21,"61919-0833-30 ")
  1. ;;3381
  1. ;;21,"61919-0952-30 ")
  1. ;;3382
  1. ;;21,"61919-0954-30 ")
  1. ;;3383
  1. ;;21,"61919-0954-90 ")
  1. ;;3384
  1. ;;21,"61919-0970-90 ")
  1. ;;3385
  1. ;;21,"63304-0337-01 ")
  1. ;;3386
  1. ;;21,"63304-0338-01 ")
  1. ;;3387
  1. ;;21,"63304-0338-05 ")
  1. ;;3388
  1. ;;21,"63304-0339-01 ")
  1. ;;3389
  1. ;;21,"63304-0339-05 ")
  1. ;;3390
  1. ;;21,"63304-0340-01 ")
  1. ;;3391
  1. ;;21,"63304-0340-05 ")
  1. ;;3392
  1. ;;21,"63304-0531-01 ")
  1. ;;3393
  1. ;;21,"63304-0532-01 ")
  1. ;;3394
  1. ;;21,"63304-0532-10 ")
  1. ;;3395
  1. ;;21,"63304-0533-01 ")
  1. ;;3396
  1. ;;21,"63304-0533-10 ")
  1. ;;3397
  1. ;;21,"63304-0534-01 ")
  1. ;;3398
  1. ;;21,"63304-0534-10 ")
  1. ;;3399
  1. ;;21,"63304-0535-01 ")
  1. ;;3400
  1. ;;21,"63304-0535-10 ")
  1. ;;3401
  1. ;;21,"63304-0536-01 ")
  1. ;;3402
  1. ;;21,"63304-0536-05 ")
  1. ;;3403
  1. ;;21,"63304-0537-01 ")
  1. ;;3404
  1. ;;21,"63304-0537-05 ")
  1. ;;3405
  1. ;;21,"63304-0538-01 ")
  1. ;;3406
  1. ;;21,"63304-0538-05 ")
  1. ;;3407
  1. ;;21,"63304-0548-90 ")
  1. ;;3408
  1. ;;21,"63304-0549-90 ")
  1. ;;3409
  1. ;;21,"63304-0550-90 ")
  1. ;;3410
  1. ;;21,"63304-0551-90 ")
  1. ;;3411
  1. ;;21,"63304-0599-01 ")
  1. ;;3412
  1. ;;21,"63629-1241-01 ")
  1. ;;3413
  1. ;;21,"63629-1242-01 ")
  1. ;;3414
  1. ;;21,"63629-1253-01 ")
  1. ;;3415
  1. ;;21,"63629-1253-02 ")
  1. ;;3416
  1. ;;21,"63629-1254-01 ")
  1. ;;3417
  1. ;;21,"63629-1254-02 ")
  1. ;;3418
  1. ;;21,"63629-1337-01 ")
  1. ;;3419
  1. ;;21,"63629-1337-02 ")
  1. ;;3420
  1. ;;21,"63629-1337-03 ")
  1. ;;3421
  1. ;;21,"63629-1338-01 ")
  1. ;;3422
  1. ;;21,"63629-1338-02 ")
  1. ;;3423
  1. ;;21,"63629-1338-03 ")
  1. ;;3424
  1. ;;21,"63629-1454-01 ")
  1. ;;3425
  1. ;;21,"63629-1522-01 ")
  1. ;;3426
  1. ;;21,"63629-1522-02 ")
  1. ;;3427
  1. ;;21,"63629-1522-03 ")
  1. ;;3428
  1. ;;21,"63629-1522-04 ")
  1. ;;3429
  1. ;;21,"63629-1525-01 ")
  1. ;;3430
  1. ;;21,"63629-1525-02 ")
  1. ;;3431
  1. ;;21,"63629-1525-03 ")
  1. ;;3432
  1. ;;21,"63629-1526-01 ")
  1. ;;3433
  1. ;;21,"63629-1526-02 ")
  1. ;;3434
  1. ;;21,"63629-1526-03 ")
  1. ;;3435
  1. ;;21,"63629-1679-01 ")
  1. ;;3436
  1. ;;21,"63629-1679-02 ")
  1. ;;3437
  1. ;;21,"63629-1679-03 ")
  1. ;;3438
  1. ;;21,"63629-1679-04 ")
  1. ;;3439
  1. ;;21,"63629-1706-01 ")
  1. ;;3440
  1. ;;21,"63629-1706-02 ")
  1. ;;3441
  1. ;;21,"63629-1706-03 ")
  1. ;;3442
  1. ;;21,"63629-1728-01 ")
  1. ;;3443
  1. ;;21,"63629-1728-02 ")
  1. ;;3444
  1. ;;21,"63629-1728-03 ")
  1. ;;3445
  1. ;;21,"63629-1761-01 ")
  1. ;;3446
  1. ;;21,"63629-1809-01 ")
  1. ;;3447
  1. ;;21,"63629-1809-02 ")
  1. ;;3448
  1. ;;21,"63629-1809-03 ")
  1. ;;3449
  1. ;;21,"63629-2541-01 ")
  1. ;;3450
  1. ;;21,"63629-2541-02 ")
  1. ;;3451
  1. ;;21,"63629-2541-03 ")
  1. ;;3452
  1. ;;21,"63629-2541-04 ")
  1. ;;3453
  1. ;;21,"63629-2672-01 ")
  1. ;;3454
  1. ;;21,"63629-2672-02 ")
  1. ;;3455
  1. ;;21,"63629-2672-03 ")
  1. ;;3456
  1. ;;21,"63629-2679-01 ")
  1. ;;3457
  1. ;;21,"63629-2680-01 ")
  1. ;;3458
  1. ;;21,"63629-2680-02 ")
  1. ;;3459
  1. ;;21,"63629-2680-03 ")
  1. ;;3460
  1. ;;21,"63629-2688-01 ")
  1. ;;3461
  1. ;;21,"63629-2688-02 ")
  1. ;;3462
  1. ;;21,"63629-2688-03 ")
  1. ;;3463
  1. ;;21,"63629-2735-01 ")
  1. ;;3464
  1. ;;21,"63629-2896-01 ")
  1. ;;3465
  1. ;;21,"63629-2908-01 ")
  1. ;;3466
  1. ;;21,"63629-2908-02 ")
  1. ;;3467
  1. ;;21,"63629-2908-03 ")
  1. ;;3468
  1. ;;21,"63629-2908-04 ")
  1. ;;3469
  1. ;;21,"63629-2912-01 ")
  1. ;;3470
  1. ;;21,"63629-2912-02 ")
  1. ;;3471
  1. ;;21,"63629-2912-03 ")
  1. ;;3472
  1. ;;21,"63629-2912-04 ")
  1. ;;3473
  1. ;;21,"63629-2923-01 ")
  1. ;;3474
  1. ;;21,"63629-2923-02 ")
  1. ;;3475
  1. ;;21,"63629-2935-01 ")
  1. ;;3476
  1. ;;21,"63629-2935-02 ")
  1. ;;3477
  1. ;;21,"63629-2935-03 ")
  1. ;;3478
  1. ;;21,"63629-2935-04 ")
  1. ;;3479
  1. ;;21,"63629-3217-01 ")
  1. ;;3480
  1. ;;21,"63629-3344-01 ")
  1. ;;3481
  1. ;;21,"63629-3344-02 ")
  1. ;;3482
  1. ;;21,"63629-3371-01 ")
  1. ;;3483
  1. ;;21,"63629-3371-02 ")
  1. ;;3484
  1. ;;21,"63629-3371-03 ")
  1. ;;3485
  1. ;;21,"63629-3371-04 ")
  1. ;;3486
  1. ;;21,"63629-3373-01 ")
  1. ;;3487
  1. ;;21,"63629-3373-02 ")
  1. ;;3488
  1. ;;21,"63629-3373-03 ")
  1. ;;3489
  1. ;;21,"63629-3373-04 ")
  1. ;;3490
  1. ;;21,"63629-3374-01 ")
  1. ;;3491
  1. ;;21,"63629-3374-02 ")
  1. ;;3492
  1. ;;21,"63629-3374-03 ")
  1. ;;3493
  1. ;;21,"63629-3374-04 ")
  1. ;;3494
  1. ;;21,"63629-3376-01 ")
  1. ;;3495
  1. ;;21,"63629-3376-02 ")
  1. ;;3496
  1. ;;21,"63629-3376-03 ")
  1. ;;3497
  1. ;;21,"63629-3376-04 ")
  1. ;;3498
  1. ;;21,"63629-3377-01 ")
  1. ;;3499
  1. ;;21,"63629-3377-02 ")
  1. ;;3500
  1. ;;21,"63629-3377-03 ")
  1. ;;3501
  1. ;;21,"63629-3377-04 ")
  1. ;;3502
  1. ;;21,"63629-3390-01 ")
  1. ;;3503
  1. ;;21,"63629-3390-02 ")
  1. ;;3504
  1. ;;21,"63629-3390-03 ")
  1. ;;3505
  1. ;;21,"63629-3390-04 ")
  1. ;;3506
  1. ;;21,"63629-3739-01 ")
  1. ;;3507
  1. ;;21,"63629-3739-02 ")
  1. ;;3508
  1. ;;21,"63629-4888-01 ")
  1. ;;3509
  1. ;;21,"63629-4888-02 ")
  1. ;;3510
  1. ;;21,"63629-5247-01 ")
  1. ;;3511
  1. ;;21,"63629-5247-02 ")
  1. ;;3512
  1. ;;21,"63739-0349-10 ")
  1. ;;3513
  1. ;;21,"63739-0350-10 ")
  1. ;;3514
  1. ;;21,"63739-0513-10 ")
  1. ;;3515
  1. ;;21,"63739-0514-10 ")
  1. ;;3516
  1. ;;21,"63739-0515-10 ")
  1. ;;3517
  1. ;;21,"63739-0527-10 ")
  1. ;;3518
  1. ;;21,"63739-0528-10 ")
  1. ;;3519
  1. ;;21,"63739-0529-10 ")
  1. ;;3520
  1. ;;21,"63739-0698-10 ")
  1. ;;3521
  1. ;;21,"63874-0058-10 ")
  1. ;;3522
  1. ;;21,"63874-0058-15 ")
  1. ;;3523
  1. ;;21,"63874-0058-30 ")
  1. ;;3524
  1. ;;21,"63874-0058-90 ")
  1. ;;3525
  1. ;;21,"63874-0347-01 ")
  1. ;;3526
  1. ;;21,"63874-0347-02 ")
  1. ;;3527
  1. ;;21,"63874-0347-05 ")
  1. ;;3528
  1. ;;21,"63874-0347-20 ")
  1. ;;3529
  1. ;;21,"63874-0347-30 ")
  1. ;;3530
  1. ;;21,"63874-0347-40 ")
  1. ;;3531
  1. ;;21,"63874-0347-42 ")
  1. ;;3532
  1. ;;21,"63874-0347-45 ")
  1. ;;3533
  1. ;;21,"63874-0347-90 ")
  1. ;;3534
  1. ;;21,"63874-0348-01 ")
  1. ;;3535
  1. ;;21,"63874-0348-10 ")
  1. ;;3536
  1. ;;21,"63874-0348-14 ")
  1. ;;3537
  1. ;;21,"63874-0348-20 ")
  1. ;;3538
  1. ;;21,"63874-0348-30 ")
  1. ;;3539
  1. ;;21,"63874-0348-60 ")
  1. ;;3540
  1. ;;21,"63874-0348-90 ")
  1. ;;3541
  1. ;;21,"63874-0349-01 ")
  1. ;;3542
  1. ;;21,"63874-0349-10 ")
  1. ;;3543
  1. ;;21,"63874-0349-30 ")
  1. ;;3544
  1. ;;21,"63874-0379-10 ")
  1. ;;3545
  1. ;;21,"63874-0379-30 ")
  1. ;;3546
  1. ;;21,"63874-0423-01 ")
  1. ;;3547
  1. ;;21,"63874-0423-07 ")
  1. ;;3548
  1. ;;21,"63874-0423-10 ")
  1. ;;3549
  1. ;;21,"63874-0423-14 ")
  1. ;;3550
  1. ;;21,"63874-0423-20 ")
  1. ;;3551
  1. ;;21,"63874-0423-30 ")
  1. ;;3552
  1. ;;21,"63874-0423-60 ")
  1. ;;3553
  1. ;;21,"63874-0514-01 ")
  1. ;;3554
  1. ;;21,"63874-0514-10 ")
  1. ;;3555
  1. ;;21,"63874-0514-14 ")
  1. ;;3556
  1. ;;21,"63874-0514-15 ")
  1. ;;3557
  1. ;;21,"63874-0514-16 ")
  1. ;;3558
  1. ;;21,"63874-0514-20 ")
  1. ;;3559
  1. ;;21,"63874-0514-28 ")
  1. ;;3560
  1. ;;21,"63874-0514-30 ")
  1. ;;3561
  1. ;;21,"63874-0514-60 ")
  1. ;;3562
  1. ;;21,"63874-0514-90 ")
  1. ;;3563
  1. ;;21,"63874-0522-01 ")
  1. ;;3564
  1. ;;21,"63874-0522-08 ")
  1. ;;3565
  1. ;;21,"63874-0522-10 ")
  1. ;;3566
  1. ;;21,"63874-0522-14 ")
  1. ;;3567
  1. ;;21,"63874-0522-15 ")
  1. ;;3568
  1. ;;21,"63874-0522-20 ")
  1. ;;3569
  1. ;;21,"63874-0522-21 ")
  1. ;;3570
  1. ;;21,"63874-0522-28 ")
  1. ;;3571
  1. ;;21,"63874-0522-30 ")
  1. ;;3572
  1. ;;21,"63874-0522-60 ")
  1. ;;3573
  1. ;;21,"63874-0522-90 ")
  1. ;;3574
  1. ;;21,"63874-0558-01 ")
  1. ;;3575
  1. ;;21,"63874-0558-10 ")
  1. ;;3576
  1. ;;21,"63874-0558-14 ")
  1. ;;3577
  1. ;;21,"63874-0558-16 ")
  1. ;;3578
  1. ;;21,"63874-0558-28 ")
  1. ;;3579
  1. ;;21,"63874-0558-30 ")
  1. ;;3580
  1. ;;21,"63874-0558-60 ")
  1. ;;3581
  1. ;;21,"63874-0558-90 ")
  1. ;;3582
  1. ;;21,"63874-0581-10 ")
  1. ;;3583
  1. ;;21,"63874-0581-30 ")
  1. ;;3584
  1. ;;21,"63874-0581-90 ")
  1. ;;3585
  1. ;;21,"63874-0618-10 ")
  1. ;;3586
  1. ;;21,"63874-0618-15 ")
  1. ;;3587
  1. ;;21,"63874-0618-30 ")
  1. ;;3588
  1. ;;21,"63874-0618-40 ")
  1. ;;3589
  1. ;;21,"63874-0618-60 ")
  1. ;;3590
  1. ;;21,"63874-0655-01 ")
  1. ;;3591
  1. ;;21,"63874-0655-10 ")
  1. ;;3592
  1. ;;21,"63874-0655-14 ")
  1. ;;3593
  1. ;;21,"63874-0655-20 ")
  1. ;;3594
  1. ;;21,"63874-0655-30 ")
  1. ;;3595
  1. ;;21,"63874-0655-60 ")
  1. ;;3596
  1. ;;21,"63874-0987-01 ")
  1. ;;3597
  1. ;;21,"63874-0987-10 ")
  1. ;;3598
  1. ;;21,"63874-0987-14 ")
  1. ;;3599
  1. ;;21,"63874-0987-20 ")
  1. ;;3600
  1. ;;21,"63874-0987-30 ")
  1. ;;3601
  1. ;;21,"63874-0987-60 ")
  1. ;;3602
  1. ;;21,"63874-1114-09 ")
  1. ;;3603
  1. ;;21,"63874-1123-01 ")
  1. ;;3604
  1. ;;21,"63874-1123-03 ")
  1. ;;3605
  1. ;;21,"64679-0902-01 ")
  1. ;;3606
  1. ;;21,"64679-0902-02 ")
  1. ;;3607
  1. ;;21,"64679-0902-05 ")
  1. ;;3608
  1. ;;21,"64679-0903-01 ")
  1. ;;3609
  1. ;;21,"64679-0903-02 ")
  1. ;;3610
  1. ;;21,"64679-0903-05 ")
  1. ;;3611
  1. ;;21,"64679-0904-01 ")
  1. ;;3612
  1. ;;21,"64679-0904-02 ")
  1. ;;3613
  1. ;;21,"64679-0904-05 ")
  1. ;;3614
  1. ;;21,"64679-0905-01 ")
  1. ;;3615
  1. ;;21,"64679-0905-04 ")
  1. ;;3616
  1. ;;21,"64679-0923-02 ")
  1. ;;3617
  1. ;;21,"64679-0923-03 ")
  1. ;;3618
  1. ;;21,"64679-0923-09 ")
  1. ;;3619
  1. ;;21,"64679-0923-10 ")
  1. ;;3620
  1. ;;21,"64679-0924-02 ")
  1. ;;3621
  1. ;;21,"64679-0924-03 ")
  1. ;;3622
  1. ;;21,"64679-0924-09 ")
  1. ;;3623
  1. ;;21,"64679-0924-10 ")
  1. ;;3624
  1. ;;21,"64679-0925-02 ")
  1. ;;3625
  1. ;;21,"64679-0925-03 ")
  1. ;;3626
  1. ;;21,"64679-0925-09 ")
  1. ;;3627
  1. ;;21,"64679-0925-10 ")
  1. ;;3628
  1. ;;21,"64679-0926-02 ")
  1. ;;3629
  1. ;;21,"64679-0926-03 ")
  1. ;;3630
  1. ;;21,"64679-0926-09 ")
  1. ;;3631
  1. ;;21,"64679-0926-10 ")
  1. ;;3632
  1. ;;21,"64679-0927-01 ")
  1. ;;3633
  1. ;;21,"64679-0927-02 ")
  1. ;;3634
  1. ;;21,"64679-0927-05 ")
  1. ;;3635
  1. ;;21,"64679-0928-01 ")
  1. ;;3636
  1. ;;21,"64679-0928-05 ")
  1. ;;3637
  1. ;;21,"64679-0928-06 ")
  1. ;;3638
  1. ;;21,"64679-0929-01 ")
  1. ;;3639
  1. ;;21,"64679-0929-05 ")
  1. ;;3640
  1. ;;21,"64679-0929-06 ")
  1. ;;3641
  1. ;;21,"64679-0941-01 ")
  1. ;;3642
  1. ;;21,"64679-0941-05 ")
  1. ;;3643
  1. ;;21,"64679-0941-06 ")
  1. ;;3644
  1. ;;21,"64679-0942-01 ")
  1. ;;3645
  1. ;;21,"64679-0942-02 ")
  1. ;;3646
  1. ;;21,"64679-0942-05 ")
  1. ;;3647
  1. ;;21,"64679-0953-01 ")
  1. ;;3648
  1. ;;21,"64679-0953-02 ")
  1. ;;3649
  1. ;;21,"64679-0953-05 ")
  1. ;;3650
  1. ;;21,"64764-0844-30 ")
  1. ;;3651
  1. ;;21,"64764-0884-30 ")
  1. ;;3652
  1. ;;21,"64764-0944-30 ")
  1. ;;3653
  1. ;;21,"64764-0994-30 ")
  1. ;;3654
  1. ;;21,"64980-0194-01 ")
  1. ;;3655
  1. ;;21,"64980-0195-01 ")
  1. ;;3656
  1. ;;21,"64980-0196-01 ")
  1. ;;3657
  1. ;;21,"65162-0751-10 ")
  1. ;;3658
  1. ;;21,"65162-0751-50 ")
  1. ;;3659
  1. ;;21,"65162-0752-10 ")
  1. ;;3660
  1. ;;21,"65162-0752-50 ")
  1. ;;3661
  1. ;;21,"65162-0753-10 ")
  1. ;;3662
  1. ;;21,"65162-0753-50 ")
  1. ;;3663
  1. ;;21,"65162-0754-10 ")
  1. ;;3664
  1. ;;21,"65162-0754-50 ")
  1. ;;3665
  1. ;;21,"65243-0303-03 ")
  1. ;;3666
  1. ;;21,"65243-0303-09 ")
  1. ;;3667
  1. ;;21,"65243-0303-15 ")
  1. ;;3668
  1. ;;21,"65243-0303-45 ")
  1. ;;3669
  1. ;;21,"65243-0314-03 ")
  1. ;;3670
  1. ;;21,"65243-0314-09 ")
  1. ;;3671
  1. ;;21,"65243-0314-18 ")
  1. ;;3672
  1. ;;21,"65243-0314-45 ")
  1. ;;3673
  1. ;;21,"65243-0341-09 ")
  1. ;;3674
  1. ;;21,"65243-0341-18 ")
  1. ;;3675
  1. ;;21,"65243-0341-45 ")
  1. ;;3676
  1. ;;21,"65243-0358-03 ")
  1. ;;3677
  1. ;;21,"65243-0358-09 ")
  1. ;;3678
  1. ;;21,"65243-0358-45 ")
  1. ;;3679
  1. ;;21,"65597-0101-30 ")
  1. ;;3680
  1. ;;21,"65597-0103-03 ")
  1. ;;3681
  1. ;;21,"65597-0103-06 ")
  1. ;;3682
  1. ;;21,"65597-0103-10 ")
  1. ;;3683
  1. ;;21,"65597-0103-30 ")
  1. ;;3684
  1. ;;21,"65597-0103-90 ")
  1. ;;3685
  1. ;;21,"65597-0104-03 ")
  1. ;;3686
  1. ;;21,"65597-0104-06 ")
  1. ;;3687