BGP47E10.m

BGP47E10 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 16, 2014;

 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114

 ;

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,"58016-0839-12 ")

 ;;3497

 ;;21,"58016-0839-15 ")

 ;;3498

 ;;21,"58016-0839-20 ")

 ;;3499

 ;;21,"58016-0839-30 ")

 ;;3500

 ;;21,"58016-0839-60 ")

 ;;3501

 ;;21,"58016-0839-90 ")

 ;;3502

 ;;21,"58016-0841-00 ")

 ;;3503

 ;;21,"58016-0841-02 ")

 ;;3504

 ;;21,"58016-0841-12 ")

 ;;3505

 ;;21,"58016-0841-15 ")

 ;;3506

 ;;21,"58016-0841-20 ")

 ;;3507

 ;;21,"58016-0841-30 ")

 ;;3508

 ;;21,"58016-0841-60 ")

 ;;3509

 ;;21,"58016-0841-90 ")

 ;;3510

 ;;21,"58016-0853-00 ")

 ;;3511

 ;;21,"58016-0853-02 ")

 ;;3512

 ;;21,"58016-0853-03 ")

 ;;3513

 ;;21,"58016-0853-14 ")

 ;;3514

 ;;21,"58016-0853-15 ")

 ;;3515

 ;;21,"58016-0853-20 ")

 ;;3516

 ;;21,"58016-0853-28 ")

 ;;3517

 ;;21,"58016-0853-30 ")

 ;;3518

 ;;21,"58016-0853-50 ")

 ;;3519

 ;;21,"58016-0853-60 ")

 ;;3520

 ;;21,"58016-0853-73 ")

 ;;3521

 ;;21,"58016-0853-89 ")

 ;;3522

 ;;21,"58016-0853-90 ")

 ;;3523

 ;;21,"58016-0858-00 ")

 ;;3524

 ;;21,"58016-0858-14 ")

 ;;3525

 ;;21,"58016-0858-21 ")

 ;;3526

 ;;21,"58016-0858-28 ")

 ;;3527

 ;;21,"58016-0858-30 ")

 ;;3528

 ;;21,"58016-0858-40 ")

 ;;3529

 ;;21,"58016-0858-50 ")

 ;;3530

 ;;21,"58016-0858-60 ")

 ;;3531

 ;;21,"58016-0858-99 ")

 ;;3532

 ;;21,"58016-0862-00 ")

 ;;3533

 ;;21,"58016-0862-02 ")

 ;;3534

 ;;21,"58016-0862-03 ")

 ;;3535

 ;;21,"58016-0862-12 ")

 ;;3536

 ;;21,"58016-0862-15 ")

 ;;3537

 ;;21,"58016-0862-20 ")

 ;;3538

 ;;21,"58016-0862-30 ")

 ;;3539

 ;;21,"58016-0862-50 ")

 ;;3540

 ;;21,"58016-0862-60 ")

 ;;3541

 ;;21,"58016-0862-73 ")

 ;;3542

 ;;21,"58016-0862-89 ")

 ;;3543

 ;;21,"58016-0862-90 ")

 ;;3544

 ;;21,"58016-0866-00 ")

 ;;3545

 ;;21,"58016-0866-02 ")

 ;;3546

 ;;21,"58016-0866-12 ")

 ;;3547

 ;;21,"58016-0866-15 ")

 ;;3548

 ;;21,"58016-0866-20 ")

 ;;3549

 ;;21,"58016-0866-30 ")

 ;;3550

 ;;21,"58016-0866-60 ")

 ;;3551

 ;;21,"58016-0866-90 ")

 ;;3552

 ;;21,"58016-0875-00 ")

 ;;3553

 ;;21,"58016-0875-12 ")

 ;;3554

 ;;21,"58016-0875-15 ")

 ;;3555

 ;;21,"58016-0875-20 ")

 ;;3556

 ;;21,"58016-0875-30 ")

 ;;3557

 ;;21,"58016-0875-60 ")

 ;;3558

 ;;21,"58016-0880-00 ")

 ;;3559

 ;;21,"58016-0880-12 ")

 ;;3560

 ;;21,"58016-0880-15 ")

 ;;3561

 ;;21,"58016-0880-20 ")

 ;;3562

 ;;21,"58016-0880-30 ")

 ;;3563

 ;;21,"58016-0881-00 ")

 ;;3564

 ;;21,"58016-0881-02 ")

 ;;3565

 ;;21,"58016-0881-03 ")

 ;;3566

 ;;21,"58016-0881-30 ")

 ;;3567

 ;;21,"58016-0881-60 ")

 ;;3568

 ;;21,"58016-0881-90 ")

 ;;3569

 ;;21,"58016-0894-00 ")

 ;;3570

 ;;21,"58016-0894-02 ")

 ;;3571

 ;;21,"58016-0894-03 ")

 ;;3572

 ;;21,"58016-0894-30 ")

 ;;3573

 ;;21,"58016-0894-60 ")

 ;;3574

 ;;21,"58016-0894-90 ")

 ;;3575

 ;;21,"58016-0894-99 ")

 ;;3576

 ;;21,"58016-0897-00 ")

 ;;3577

 ;;21,"58016-0897-30 ")

 ;;3578

 ;;21,"58016-0897-60 ")

 ;;3579

 ;;21,"58016-0897-90 ")

 ;;3580

 ;;21,"58016-0905-00 ")

 ;;3581

 ;;21,"58016-0905-02 ")

 ;;3582

 ;;21,"58016-0905-03 ")

 ;;3583

 ;;21,"58016-0905-10 ")

 ;;3584

 ;;21,"58016-0905-20 ")

 ;;3585

 ;;21,"58016-0905-30 ")

 ;;3586

 ;;21,"58016-0905-60 ")

 ;;3587

 ;;21,"58016-0905-73 ")

 ;;3588

 ;;21,"58016-0905-89 ")

 ;;3589

 ;;21,"58016-0907-00 ")

 ;;3590

 ;;21,"58016-0907-30 ")

 ;;3591

 ;;21,"58016-0907-60 ")

 ;;3592

 ;;21,"58016-0907-90 ")

 ;;3593

 ;;21,"58016-0977-00 ")

 ;;3594

 ;;21,"58016-0977-02 ")

 ;;3595

 ;;21,"58016-0977-30 ")

 ;;3596

 ;;21,"58016-0977-60 ")

 ;;3597

 ;;21,"58016-0977-90 ")

 ;;3598

 ;;21,"58016-0986-00 ")

 ;;3599

 ;;21,"58016-0986-02 ")

 ;;3600

 ;;21,"58016-0986-03 ")

 ;;3601

 ;;21,"58016-0986-30 ")

 ;;3602

 ;;21,"58016-0986-60 ")

 ;;3603

 ;;21,"58016-0986-90 ")

 ;;3604

 ;;21,"58016-4825-01 ")

 ;;3605

 ;;21,"58016-4826-01 ")

 ;;3606

 ;;21,"58809-0717-01 ")

 ;;3607

 ;;21,"58864-0022-15 ")

 ;;3608

 ;;21,"58864-0022-30 ")

 ;;3609

 ;;21,"58864-0023-30 ")

 ;;3610

 ;;21,"58864-0024-30 ")

 ;;3611

 ;;21,"58864-0025-01 ")

 ;;3612

 ;;21,"58864-0025-14 ")

 ;;3613

 ;;21,"58864-0025-30 ")

 ;;3614

 ;;21,"58864-0025-60 ")

 ;;3615

 ;;21,"58864-0103-15 ")

 ;;3616

 ;;21,"58864-0103-30 ")

 ;;3617

 ;;21,"58864-0103-60 ")

 ;;3618

 ;;21,"58864-0372-30 ")

 ;;3619

 ;;21,"58864-0616-15 ")

 ;;3620

 ;;21,"58864-0616-30 ")

 ;;3621

 ;;21,"58864-0625-30 ")

 ;;3622

 ;;21,"58864-0625-60 ")

 ;;3623

 ;;21,"58864-0627-15 ")

 ;;3624

 ;;21,"58864-0627-30 ")

 ;;3625

 ;;21,"58864-0628-15 ")

 ;;3626

 ;;21,"58864-0629-30 ")

 ;;3627

 ;;21,"58864-0696-30 ")

 ;;3628

 ;;21,"58864-0707-30 ")

 ;;3629

 ;;21,"58864-0715-30 ")

 ;;3630

 ;;21,"58864-0716-30 ")

 ;;3631

 ;;21,"58864-0741-15 ")

 ;;3632

 ;;21,"58864-0741-30 ")

 ;;3633

 ;;21,"58864-0756-30 ")

 ;;3634

 ;;21,"58864-0757-30 ")

 ;;3635

 ;;21,"58864-0783-30 ")

 ;;3636

 ;;21,"58864-0794-30 ")

 ;;3637

 ;;21,"58864-0808-90 ")

 ;;3638

 ;;21,"58864-0812-15 ")

 ;;3639

 ;;21,"58864-0823-15 ")

 ;;3640

 ;;21,"58864-0823-30 ")

 ;;3641

 ;;21,"58864-0840-30 ")

 ;;3642

 ;;21,"58864-0840-60 ")

 ;;3643

 ;;21,"58864-0849-30 ")

 ;;3644

 ;;21,"58864-0852-30 ")

 ;;3645

 ;;21,"58864-0917-30 ")

 ;;3646

 ;;21,"59762-0119-01 ")

 ;;3647

 ;;21,"59762-0180-01 ")

 ;;3648

 ;;21,"59762-0180-02 ")

 ;;3649

 ;;21,"59762-0180-03 ")

 ;;3650

 ;;21,"59762-0180-04 ")

 ;;3651

 ;;21,"59762-0181-01 ")

 ;;3652

 ;;21,"59762-0181-02 ")

 ;;3653

 ;;21,"59762-0181-03 ")

 ;;3654

 ;;21,"59762-0181-04 ")

 ;;3655

 ;;21,"59762-0182-01 ")

 ;;3656

 ;;21,"59762-0182-02 ")

 ;;3657

 ;;21,"59762-0182-03 ")

 ;;3658

 ;;21,"59762-0182-04 ")

 ;;3659

 ;;21,"59762-1410-07 ")

 ;;3660

 ;;21,"59762-1412-07 ")

 ;;3661

 ;;21,"59762-1414-07 ")

 ;;3662

 ;;21,"59762-1415-03 ")

 ;;3663

 ;;21,"59762-1415-05 ")

 ;;3664

 ;;21,"59762-1415-06 ")

 ;;3665

 ;;21,"59762-1415-09 ")

 ;;3666

 ;;21,"59762-1416-03 ")

 ;;3667

 ;;21,"59762-1416-05 ")

 ;;3668

 ;;21,"59762-1416-06 ")

 ;;3669

 ;;21,"59762-1416-09 ")

 ;;3670

 ;;21,"59762-1417-03 ")

 ;;3671

 ;;21,"59762-1417-05 ")

 ;;3672

 ;;21,"59762-1417-06 ")

 ;;3673

 ;;21,"59762-1417-09 ")

 ;;3674

 ;;21,"59762-1418-03 ")

 ;;3675

 ;;21,"59762-1418-05 ")

 ;;3676

 ;;21,"59762-1418-06 ")

 ;;3677

 ;;21,"59762-1418-09 ")

 ;;3678

 ;;21,"59762-1808-01 ")

 ;;3679

 ;;21,"59762-1808-02 ")

 ;;3680

 ;;21,"59762-1808-03 ")

 ;;3681

 ;;21,"59762-1810-01 ")

 ;;3682

 ;;21,"59762-1810-02 ")

 ;;3683

 ;;21,"59762-1810-03 ")

 ;;3684

 ;;21,"59762-1810-04 ")

 ;;3685

 ;;21,"59762-1812-01 ")

 ;;3686

 ;;21,"59762-1812-02 ")

 ;;3687

 ;;21,"59762-1812-03 ")

 ;;3688

 ;;21,"59762-1815-01 ")

 ;;3689

 ;;21,"59762-1815-02 ")

 ;;3690

 ;;21,"59762-1815-03 ")

 ;;3691

 ;;21,"59762-3480-03 ")

 ;;3692

 ;;21,"59762-3481-02 ")

 ;;3693

 ;;21,"59762-3482-02 ")

 ;;3694

 ;;21,"59762-3483-02 ")

 ;;3695

 ;;21,"59762-3484-02 ")

 ;;3696

 ;;21,"59762-4800-01 ")

 ;;3697

 ;;21,"59762-4800-03 ")

 ;;3698

 ;;21,"59762-4800-05 ")

 ;;3699

 ;;21,"59762-4800-06 ")

 ;;3700

 ;;21,"59762-4801-01 ")

 ;;3701

 ;;21,"59762-4801-03 ")

 ;;3702

 ;;21,"59762-4801-05 ")

 ;;3703

 ;;21,"59762-4801-06 ")

 ;;3704

 ;;21,"59762-4802-01 ")

 ;;3705

 ;;21,"59762-4802-03 ")

 ;;3706

 ;;21,"59762-4802-05 ")

 ;;3707

 ;;21,"59762-4802-06 ")

 ;;3708

 ;;21,"59762-4900-01 ")

 ;;3709

 ;;21,"59762-4900-02 ")

 ;;3710

 ;;21,"59762-4900-03 ")

 ;;3711

 ;;21,"59762-4900-04 ")

 ;;3712

 ;;21,"59762-4900-05 ")

 ;;3713

 ;;21,"59762-4910-01 ")

 ;;3714

 ;;21,"59762-4910-02 ")

 ;;3715

 ;;21,"59762-4910-03 ")

 ;;3716

 ;;21,"59762-4910-04 ")

 ;;3717

 ;;21,"59762-4910-05 ")

 ;;3718

 ;;21,"59762-4940-01 ")

 ;;3719

 ;;21,"59762-4960-01 ")

 ;;3720

 ;;21,"59772-3171-01 ")

 ;;3721

 ;;21,"60258-0830-08 ")

 ;;3722

 ;;21,"60429-0016-12 ")

 ;;3723

 ;;21,"60429-0016-18 ")

 ;;3724

 ;;21,"60429-0016-30 ")

 ;;3725

 ;;21,"60429-0016-60 ")

 ;;3726

 ;;21,"60429-0016-90 ")

 ;;3727

 ;;21,"60429-0017-30 ")

 ;;3728

 ;;21,"60429-0173-01 ")

 ;;3729

 ;;21,"60429-0173-10 ")

 ;;3730

 ;;21,"60429-0173-30 ")

 ;;3731

 ;;21,"60429-0174-01 ")

 ;;3732

 ;;21,"60429-0174-10 ")

 ;;3733

 ;;21,"60429-0174-30 ")

 ;;3734

 ;;21,"60429-0175-01 ")

 ;;3735

 ;;21,"60429-0175-10 ")

 ;;3736

 ;;21,"60429-0175-30 ")

 ;;3737

 ;;21,"60429-0187-01 ")

 ;;3738

 ;;21,"60429-0187-05 ")

 ;;3739

 ;;21,"60429-0188-01 ")

 ;;3740

 ;;21,"60429-0188-05 ")

 ;;3741

 ;;21,"60429-0188-90 ")

 ;;3742

 ;;21,"60429-0230-01 ")

 ;;3743

 ;;21,"60429-0230-05 ")

 ;;3744

 ;;21,"60429-0230-30 ")

 ;;3745

 ;;21,"60429-0230-90 ")

 ;;3746

 ;;21,"60429-0287-30 ")

 ;;3747

 ;;21,"60429-0288-30 ")

 ;;3748

 ;;21,"60429-0718-18 ")

 ;;3749

 ;;21,"60429-0718-30 ")

 ;;3750

 ;;21,"60429-0718-60 ")

 ;;3751

 ;;21,"60429-0718-90 ")

 ;;3752

 ;;21,"60429-0719-18 ")

 ;;3753

 ;;21,"60429-0719-30 ")

 ;;3754

 ;;21,"60429-0719-60 ")

 ;;3755

 ;;21,"60429-0719-90 ")

 ;;3756

 ;;21,"60429-0734-05 ")

 ;;3757

 ;;21,"60429-0734-30 ")

 ;;3758

 ;;21,"60429-0734-90 ")

 ;;3759

 ;;21,"60429-0735-01 ")

 ;;3760

 ;;21,"60429-0735-05 ")

 ;;3761

 ;;21,"60429-0735-30 ")

 ;;3762

 ;;21,"60429-0735-90 ")

 ;;3763

 ;;21,"60429-0736-05 ")

 ;;3764

 ;;21,"60429-0736-30 ")

 ;;3765

 ;;21,"60429-0736-90 ")

 ;;3766

 ;;21,"60429-0737-05 ")

 ;;3767

 ;;21,"60429-0737-15 ")

 ;;3768

 ;;21,"60429-0737-30 ")

 ;;3769

 ;;21,"60429-0737-45 ")

 ;;3770

 ;;21,"60429-0737-90 ")

 ;;3771

 ;;21,"60429-0746-01 ")

 ;;3772

 ;;21,"60429-0747-01 ")

 ;;3773

 ;;21,"60429-0758-01 ")

 ;;3774

 ;;21,"60429-0759-01 ")

 ;;3775

 ;;21,"60429-0759-30 ")

 ;;3776

 ;;21,"60429-0759-90 ")

 ;;3777

 ;;21,"60429-0760-01 ")

 ;;3778

 ;;21,"60429-0760-30 ")

 ;;3779

 ;;21,"60429-0760-90 ")

 ;;3780

 ;;21,"60429-0930-01 ")

 ;;3781

 ;;21,"60429-0930-05 ")

 ;;3782

 ;;21,"60429-0930-30 ")

 ;;3783

 ;;21,"60429-0930-90 ")

 ;;3784

 ;;21,"60429-0946-01 ")

 ;;3785

 ;;21,"60429-0946-05 ")

 ;;3786

 ;;21,"60429-0947-01 ")

 ;;3787

 ;;21,"60429-0947-05 ")

 ;;3788

 ;;21,"60429-0987-01 ")

 ;;3789

 ;;21,"60429-0987-05 ")

 ;;3790

 ;;21,"60429-0987-30 ")

 ;;3791

 ;;21,"60429-0987-60 ")

 ;;3792

 ;;21,"60429-0987-90 ")

 ;;3793

 ;;21,"60429-0988-01 ")

 ;;3794

 ;;21,"60429-0988-05 ")

 ;;3795

 ;;21,"60429-0988-30 ")

 ;;3796

 ;;21,"60432-0162-04 ")

 ;;3797

 ;;21,"60432-0651-04 ")

 ;;3798

 ;;21,"60505-0083-01 ")

 ;;3799

 ;;21,"60505-0083-02 ")

 ;;3800

 ;;21,"60505-0083-04 ")

 ;;3801

 ;;21,"60505-0084-01 ")

 ;;3802

 ;;21,"60505-0084-02 ")

 ;;3803

 ;;21,"60505-0084-04 ")

 ;;3804

 ;;21,"60505-0097-01 ")

 ;;3805

 ;;21,"60505-0097-02 ")

 ;;3806

 ;;21,"60505-0097-04 ")

 ;;3807

 ;;21,"60505-0101-01 ")

 ;;3808

 ;;21,"60505-0101-02 ")

 ;;3809

 ;;21,"60505-0101-04 ")

 ;;3810

 ;;21,"60505-0157-01 ")

 ;;3811

 ;;21,"60505-0157-05 ")

 ;;3812

 ;;21,"60505-0157-09 ")

 ;;3813

 ;;21,"60505-0158-01 ")

 ;;3814

 ;;21,"60505-0158-05 ")

 ;;3815

 ;;21,"60505-0158-09 ")

 ;;3816

 ;;21,"60505-0164-01 ")

 ;;3817

 ;;21,"60505-0165-01 ")

 ;;3818

 ;;21,"60505-0166-01 ")

 ;;3819

 ;;21,"60505-0180-03 ")

 ;;3820

 ;;21,"60505-0180-08 ")

 ;;3821

 ;;21,"60505-0181-03 ")

 ;;3822

 ;;21,"60505-0181-08 ")

 ;;3823

 ;;21,"60505-0182-03 ")

 ;;3824

 ;;21,"60505-0182-08 ")

 ;;3825

 ;;21,"60505-0247-01 ")

 ;;3826

 ;;21,"60505-0247-08 ")

 ;;3827

 ;;21,"60505-0248-01 ")

 ;;3828

 ;;21,"60505-0248-08 ")

 ;;3829

 ;;21,"60505-0249-01 ")

 ;;3830

 ;;21,"60505-0249-08 ")

 ;;3831

 ;;21,"60505-0352-01 ")

 ;;3832

 ;;21,"60505-0374-01 ")

 ;;3833

 ;;21,"60505-0402-05 ")

 ;;3834

 ;;21,"60505-2518-01 ")

 ;;3835

 ;;21,"60505-2518-03 ")

 ;;3836

 ;;21,"60505-2518-04 ")

 ;;3837

 ;;21,"60505-2518-08 ")

 ;;3838

 ;;21,"60505-2519-01 ")

 ;;3839

 ;;21,"60505-2519-03 ")

 ;;3840

 ;;21,"60505-2519-04 ")

 ;;3841

 ;;21,"60505-2519-08 ")

 ;;3842

 ;;21,"60505-2520-01 ")

 ;;3843

 ;;21,"60505-2520-03 ")

 ;;3844

 ;;21,"60505-2520-04 ")

 ;;3845

 ;;21,"60505-2520-08 ")

 ;;3846

 ;;21,"60505-2653-00 ")

 ;;3847

 ;;21,"60505-2653-01 ")

 ;;3848

 ;;21,"60505-2653-05 ")

 ;;3849

 ;;21,"60505-2653-07 ")

 ;;3850

 ;;21,"60505-2654-00 ")

 ;;3851

 ;;21,"60505-2654-01 ")

 ;;3852

 ;;21,"60505-2654-05 ")

 ;;3853

 ;;21,"60505-2654-07 ")

 ;;3854

 ;;21,"60505-2655-01 ")

 ;;3855

 ;;21,"60505-2655-05 ")

 ;;3856

 ;;21,"60505-2655-07 ")

 ;;3857

 ;;21,"60505-2659-01 ")

 ;;3858

 ;;21,"60505-2780-01 ")

 ;;3859

 ;;21,"60505-2780-08 ")

 ;;3860

 ;;21,"60505-2781-01 ")

 ;;3861

 ;;21,"60505-2781-08 ")

 ;;3862

 ;;21,"60505-2782-01 ")

 ;;3863

 ;;21,"60505-2782-08 ")

 ;;3864

 ;;21,"60505-3663-03 ")

 ;;3865

 ;;21,"60505-3664-03 ")

 ;;3866

 ;;21,"60505-3665-03 ")

 ;;3867

 ;;21,"60505-3666-03 ")

 ;;3868

 ;;21,"60505-3668-03 ")

 ;;3869

 ;;21,"60505-3669-03 ")

 ;;3870

 ;;21,"60505-3670-03 ")

 ;;3871

 ;;21,"60505-3673-03 ")

 ;;3872

 ;;21,"60505-3674-03 ")

 ;;3873

 ;;21,"60505-3675-03 ")

 ;;3874

 ;;21,"60505-3778-03 ")

 ;;3875

 ;;21,"60505-3778-09 ")

 ;;3876

 ;;21,"60505-3779-03 ")

 ;;3877

 ;;21,"60505-3779-09 ")

 ;;3878

 ;;21,"60505-3780-03 ")

 ;;3879

 ;;21,"60505-3780-09 ")

 ;;3880

 ;;21,"60760-0212-15 ")

 ;;3881

 ;;21,"60760-0212-30 ")

 ;;3882

BGP47E10  ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 16, 2014;

 +1       ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114

 +2       ;

START     ;

 +1        IF '$GET(ATXPGMC)

               KILL ^TMP("ATX",$JOB)

 +2        SET ATXPGMC=$GET(ATXPGMC)+1

 +3        FOR ATXI=1:1

               SET X=$PIECE($TEXT(TMP+ATXI),";;",2,99)

               IF X=""

                   QUIT 

               SET X="^TMP(""ATX"",$J,"_X

               SET ATXI=ATXI+1

               SET Y=$PIECE($TEXT(TMP+ATXI),";;",2,99)

               SET @X=Y

 +4        QUIT 

 +5       ;

TMP       ;;TAXONOMY (WITH BULLETIN)

 +1       ;;21,"58016-0839-12 ")

 +2       ;;3497

 +3       ;;21,"58016-0839-15 ")

 +4       ;;3498

 +5       ;;21,"58016-0839-20 ")

 +6       ;;3499

 +7       ;;21,"58016-0839-30 ")

 +8       ;;3500

 +9       ;;21,"58016-0839-60 ")

 +10      ;;3501

 +11      ;;21,"58016-0839-90 ")

 +12      ;;3502

 +13      ;;21,"58016-0841-00 ")

 +14      ;;3503

 +15      ;;21,"58016-0841-02 ")

 +16      ;;3504

 +17      ;;21,"58016-0841-12 ")

 +18      ;;3505

 +19      ;;21,"58016-0841-15 ")

 +20      ;;3506

 +21      ;;21,"58016-0841-20 ")

 +22      ;;3507

 +23      ;;21,"58016-0841-30 ")

 +24      ;;3508

 +25      ;;21,"58016-0841-60 ")

 +26      ;;3509

 +27      ;;21,"58016-0841-90 ")

 +28      ;;3510

 +29      ;;21,"58016-0853-00 ")

 +30      ;;3511

 +31      ;;21,"58016-0853-02 ")

 +32      ;;3512

 +33      ;;21,"58016-0853-03 ")

 +34      ;;3513

 +35      ;;21,"58016-0853-14 ")

 +36      ;;3514

 +37      ;;21,"58016-0853-15 ")

 +38      ;;3515

 +39      ;;21,"58016-0853-20 ")

 +40      ;;3516

 +41      ;;21,"58016-0853-28 ")

 +42      ;;3517

 +43      ;;21,"58016-0853-30 ")

 +44      ;;3518

 +45      ;;21,"58016-0853-50 ")

 +46      ;;3519

 +47      ;;21,"58016-0853-60 ")

 +48      ;;3520

 +49      ;;21,"58016-0853-73 ")

 +50      ;;3521

 +51      ;;21,"58016-0853-89 ")

 +52      ;;3522

 +53      ;;21,"58016-0853-90 ")

 +54      ;;3523

 +55      ;;21,"58016-0858-00 ")

 +56      ;;3524

 +57      ;;21,"58016-0858-14 ")

 +58      ;;3525

 +59      ;;21,"58016-0858-21 ")

 +60      ;;3526

 +61      ;;21,"58016-0858-28 ")

 +62      ;;3527

 +63      ;;21,"58016-0858-30 ")

 +64      ;;3528

 +65      ;;21,"58016-0858-40 ")

 +66      ;;3529

 +67      ;;21,"58016-0858-50 ")

 +68      ;;3530

 +69      ;;21,"58016-0858-60 ")

 +70      ;;3531

 +71      ;;21,"58016-0858-99 ")

 +72      ;;3532

 +73      ;;21,"58016-0862-00 ")

 +74      ;;3533

 +75      ;;21,"58016-0862-02 ")

 +76      ;;3534

 +77      ;;21,"58016-0862-03 ")

 +78      ;;3535

 +79      ;;21,"58016-0862-12 ")

 +80      ;;3536

 +81      ;;21,"58016-0862-15 ")

 +82      ;;3537

 +83      ;;21,"58016-0862-20 ")

 +84      ;;3538

 +85      ;;21,"58016-0862-30 ")

 +86      ;;3539

 +87      ;;21,"58016-0862-50 ")

 +88      ;;3540

 +89      ;;21,"58016-0862-60 ")

 +90      ;;3541

 +91      ;;21,"58016-0862-73 ")

 +92      ;;3542

 +93      ;;21,"58016-0862-89 ")

 +94      ;;3543

 +95      ;;21,"58016-0862-90 ")

 +96      ;;3544

 +97      ;;21,"58016-0866-00 ")

 +98      ;;3545

 +99      ;;21,"58016-0866-02 ")

 +100     ;;3546

 +101     ;;21,"58016-0866-12 ")

 +102     ;;3547

 +103     ;;21,"58016-0866-15 ")

 +104     ;;3548

 +105     ;;21,"58016-0866-20 ")

 +106     ;;3549

 +107     ;;21,"58016-0866-30 ")

 +108     ;;3550

 +109     ;;21,"58016-0866-60 ")

 +110     ;;3551

 +111     ;;21,"58016-0866-90 ")

 +112     ;;3552

 +113     ;;21,"58016-0875-00 ")

 +114     ;;3553

 +115     ;;21,"58016-0875-12 ")

 +116     ;;3554

 +117     ;;21,"58016-0875-15 ")

 +118     ;;3555

 +119     ;;21,"58016-0875-20 ")

 +120     ;;3556

 +121     ;;21,"58016-0875-30 ")

 +122     ;;3557

 +123     ;;21,"58016-0875-60 ")

 +124     ;;3558

 +125     ;;21,"58016-0880-00 ")

 +126     ;;3559

 +127     ;;21,"58016-0880-12 ")

 +128     ;;3560

 +129     ;;21,"58016-0880-15 ")

 +130     ;;3561

 +131     ;;21,"58016-0880-20 ")

 +132     ;;3562

 +133     ;;21,"58016-0880-30 ")

 +134     ;;3563

 +135     ;;21,"58016-0881-00 ")

 +136     ;;3564

 +137     ;;21,"58016-0881-02 ")

 +138     ;;3565

 +139     ;;21,"58016-0881-03 ")

 +140     ;;3566

 +141     ;;21,"58016-0881-30 ")

 +142     ;;3567

 +143     ;;21,"58016-0881-60 ")

 +144     ;;3568

 +145     ;;21,"58016-0881-90 ")

 +146     ;;3569

 +147     ;;21,"58016-0894-00 ")

 +148     ;;3570

 +149     ;;21,"58016-0894-02 ")

 +150     ;;3571

 +151     ;;21,"58016-0894-03 ")

 +152     ;;3572

 +153     ;;21,"58016-0894-30 ")

 +154     ;;3573

 +155     ;;21,"58016-0894-60 ")

 +156     ;;3574

 +157     ;;21,"58016-0894-90 ")

 +158     ;;3575

 +159     ;;21,"58016-0894-99 ")

 +160     ;;3576

 +161     ;;21,"58016-0897-00 ")

 +162     ;;3577

 +163     ;;21,"58016-0897-30 ")

 +164     ;;3578

 +165     ;;21,"58016-0897-60 ")

 +166     ;;3579

 +167     ;;21,"58016-0897-90 ")

 +168     ;;3580

 +169     ;;21,"58016-0905-00 ")

 +170     ;;3581

 +171     ;;21,"58016-0905-02 ")

 +172     ;;3582

 +173     ;;21,"58016-0905-03 ")

 +174     ;;3583

 +175     ;;21,"58016-0905-10 ")

 +176     ;;3584

 +177     ;;21,"58016-0905-20 ")

 +178     ;;3585

 +179     ;;21,"58016-0905-30 ")

 +180     ;;3586

 +181     ;;21,"58016-0905-60 ")

 +182     ;;3587

 +183     ;;21,"58016-0905-73 ")

 +184     ;;3588

 +185     ;;21,"58016-0905-89 ")

 +186     ;;3589

 +187     ;;21,"58016-0907-00 ")

 +188     ;;3590

 +189     ;;21,"58016-0907-30 ")

 +190     ;;3591

 +191     ;;21,"58016-0907-60 ")

 +192     ;;3592

 +193     ;;21,"58016-0907-90 ")

 +194     ;;3593

 +195     ;;21,"58016-0977-00 ")

 +196     ;;3594

 +197     ;;21,"58016-0977-02 ")

 +198     ;;3595

 +199     ;;21,"58016-0977-30 ")

 +200     ;;3596

 +201     ;;21,"58016-0977-60 ")

 +202     ;;3597

 +203     ;;21,"58016-0977-90 ")

 +204     ;;3598

 +205     ;;21,"58016-0986-00 ")

 +206     ;;3599

 +207     ;;21,"58016-0986-02 ")

 +208     ;;3600

 +209     ;;21,"58016-0986-03 ")

 +210     ;;3601

 +211     ;;21,"58016-0986-30 ")

 +212     ;;3602

 +213     ;;21,"58016-0986-60 ")

 +214     ;;3603

 +215     ;;21,"58016-0986-90 ")

 +216     ;;3604

 +217     ;;21,"58016-4825-01 ")

 +218     ;;3605

 +219     ;;21,"58016-4826-01 ")

 +220     ;;3606

 +221     ;;21,"58809-0717-01 ")

 +222     ;;3607

 +223     ;;21,"58864-0022-15 ")

 +224     ;;3608

 +225     ;;21,"58864-0022-30 ")

 +226     ;;3609

 +227     ;;21,"58864-0023-30 ")

 +228     ;;3610

 +229     ;;21,"58864-0024-30 ")

 +230     ;;3611

 +231     ;;21,"58864-0025-01 ")

 +232     ;;3612

 +233     ;;21,"58864-0025-14 ")

 +234     ;;3613

 +235     ;;21,"58864-0025-30 ")

 +236     ;;3614

 +237     ;;21,"58864-0025-60 ")

 +238     ;;3615

 +239     ;;21,"58864-0103-15 ")

 +240     ;;3616

 +241     ;;21,"58864-0103-30 ")

 +242     ;;3617

 +243     ;;21,"58864-0103-60 ")

 +244     ;;3618

 +245     ;;21,"58864-0372-30 ")

 +246     ;;3619

 +247     ;;21,"58864-0616-15 ")

 +248     ;;3620

 +249     ;;21,"58864-0616-30 ")

 +250     ;;3621

 +251     ;;21,"58864-0625-30 ")

 +252     ;;3622

 +253     ;;21,"58864-0625-60 ")

 +254     ;;3623

 +255     ;;21,"58864-0627-15 ")

 +256     ;;3624

 +257     ;;21,"58864-0627-30 ")

 +258     ;;3625

 +259     ;;21,"58864-0628-15 ")

 +260     ;;3626

 +261     ;;21,"58864-0629-30 ")

 +262     ;;3627

 +263     ;;21,"58864-0696-30 ")

 +264     ;;3628

 +265     ;;21,"58864-0707-30 ")

 +266     ;;3629

 +267     ;;21,"58864-0715-30 ")

 +268     ;;3630

 +269     ;;21,"58864-0716-30 ")

 +270     ;;3631

 +271     ;;21,"58864-0741-15 ")

 +272     ;;3632

 +273     ;;21,"58864-0741-30 ")

 +274     ;;3633

 +275     ;;21,"58864-0756-30 ")

 +276     ;;3634

 +277     ;;21,"58864-0757-30 ")

 +278     ;;3635

 +279     ;;21,"58864-0783-30 ")

 +280     ;;3636

 +281     ;;21,"58864-0794-30 ")

 +282     ;;3637

 +283     ;;21,"58864-0808-90 ")

 +284     ;;3638

 +285     ;;21,"58864-0812-15 ")

 +286     ;;3639

 +287     ;;21,"58864-0823-15 ")

 +288     ;;3640

 +289     ;;21,"58864-0823-30 ")

 +290     ;;3641

 +291     ;;21,"58864-0840-30 ")

 +292     ;;3642

 +293     ;;21,"58864-0840-60 ")

 +294     ;;3643

 +295     ;;21,"58864-0849-30 ")

 +296     ;;3644

 +297     ;;21,"58864-0852-30 ")

 +298     ;;3645

 +299     ;;21,"58864-0917-30 ")

 +300     ;;3646

 +301     ;;21,"59762-0119-01 ")

 +302     ;;3647

 +303     ;;21,"59762-0180-01 ")

 +304     ;;3648

 +305     ;;21,"59762-0180-02 ")

 +306     ;;3649

 +307     ;;21,"59762-0180-03 ")

 +308     ;;3650

 +309     ;;21,"59762-0180-04 ")

 +310     ;;3651

 +311     ;;21,"59762-0181-01 ")

 +312     ;;3652

 +313     ;;21,"59762-0181-02 ")

 +314     ;;3653

 +315     ;;21,"59762-0181-03 ")

 +316     ;;3654

 +317     ;;21,"59762-0181-04 ")

 +318     ;;3655

 +319     ;;21,"59762-0182-01 ")

 +320     ;;3656

 +321     ;;21,"59762-0182-02 ")

 +322     ;;3657

 +323     ;;21,"59762-0182-03 ")

 +324     ;;3658

 +325     ;;21,"59762-0182-04 ")

 +326     ;;3659

 +327     ;;21,"59762-1410-07 ")

 +328     ;;3660

 +329     ;;21,"59762-1412-07 ")

 +330     ;;3661

 +331     ;;21,"59762-1414-07 ")

 +332     ;;3662

 +333     ;;21,"59762-1415-03 ")

 +334     ;;3663

 +335     ;;21,"59762-1415-05 ")

 +336     ;;3664

 +337     ;;21,"59762-1415-06 ")

 +338     ;;3665

 +339     ;;21,"59762-1415-09 ")

 +340     ;;3666

 +341     ;;21,"59762-1416-03 ")

 +342     ;;3667

 +343     ;;21,"59762-1416-05 ")

 +344     ;;3668

 +345     ;;21,"59762-1416-06 ")

 +346     ;;3669

 +347     ;;21,"59762-1416-09 ")

 +348     ;;3670

 +349     ;;21,"59762-1417-03 ")

 +350     ;;3671

 +351     ;;21,"59762-1417-05 ")

 +352     ;;3672

 +353     ;;21,"59762-1417-06 ")

 +354     ;;3673

 +355     ;;21,"59762-1417-09 ")

 +356     ;;3674

 +357     ;;21,"59762-1418-03 ")

 +358     ;;3675

 +359     ;;21,"59762-1418-05 ")

 +360     ;;3676

 +361     ;;21,"59762-1418-06 ")

 +362     ;;3677

 +363     ;;21,"59762-1418-09 ")

 +364     ;;3678

 +365     ;;21,"59762-1808-01 ")

 +366     ;;3679

 +367     ;;21,"59762-1808-02 ")

 +368     ;;3680

 +369     ;;21,"59762-1808-03 ")

 +370     ;;3681

 +371     ;;21,"59762-1810-01 ")

 +372     ;;3682

 +373     ;;21,"59762-1810-02 ")

 +374     ;;3683

 +375     ;;21,"59762-1810-03 ")

 +376     ;;3684

 +377     ;;21,"59762-1810-04 ")

 +378     ;;3685

 +379     ;;21,"59762-1812-01 ")

 +380     ;;3686

 +381     ;;21,"59762-1812-02 ")

 +382     ;;3687

 +383     ;;21,"59762-1812-03 ")

 +384     ;;3688

 +385     ;;21,"59762-1815-01 ")

 +386     ;;3689

 +387     ;;21,"59762-1815-02 ")

 +388     ;;3690

 +389     ;;21,"59762-1815-03 ")

 +390     ;;3691

 +391     ;;21,"59762-3480-03 ")

 +392     ;;3692

 +393     ;;21,"59762-3481-02 ")

 +394     ;;3693

 +395     ;;21,"59762-3482-02 ")

 +396     ;;3694

 +397     ;;21,"59762-3483-02 ")

 +398     ;;3695

 +399     ;;21,"59762-3484-02 ")

 +400     ;;3696

 +401     ;;21,"59762-4800-01 ")

 +402     ;;3697

 +403     ;;21,"59762-4800-03 ")

 +404     ;;3698

 +405     ;;21,"59762-4800-05 ")

 +406     ;;3699

 +407     ;;21,"59762-4800-06 ")

 +408     ;;3700

 +409     ;;21,"59762-4801-01 ")

 +410     ;;3701

 +411     ;;21,"59762-4801-03 ")

 +412     ;;3702

 +413     ;;21,"59762-4801-05 ")

 +414     ;;3703

 +415     ;;21,"59762-4801-06 ")

 +416     ;;3704

 +417     ;;21,"59762-4802-01 ")

 +418     ;;3705

 +419     ;;21,"59762-4802-03 ")

 +420     ;;3706

 +421     ;;21,"59762-4802-05 ")

 +422     ;;3707

 +423     ;;21,"59762-4802-06 ")

 +424     ;;3708

 +425     ;;21,"59762-4900-01 ")

 +426     ;;3709

 +427     ;;21,"59762-4900-02 ")

 +428     ;;3710

 +429     ;;21,"59762-4900-03 ")

 +430     ;;3711

 +431     ;;21,"59762-4900-04 ")

 +432     ;;3712

 +433     ;;21,"59762-4900-05 ")

 +434     ;;3713

 +435     ;;21,"59762-4910-01 ")

 +436     ;;3714

 +437     ;;21,"59762-4910-02 ")

 +438     ;;3715

 +439     ;;21,"59762-4910-03 ")

 +440     ;;3716

 +441     ;;21,"59762-4910-04 ")

 +442     ;;3717

 +443     ;;21,"59762-4910-05 ")

 +444     ;;3718

 +445     ;;21,"59762-4940-01 ")

 +446     ;;3719

 +447     ;;21,"59762-4960-01 ")

 +448     ;;3720

 +449     ;;21,"59772-3171-01 ")

 +450     ;;3721

 +451     ;;21,"60258-0830-08 ")

 +452     ;;3722

 +453     ;;21,"60429-0016-12 ")

 +454     ;;3723

 +455     ;;21,"60429-0016-18 ")

 +456     ;;3724

 +457     ;;21,"60429-0016-30 ")

 +458     ;;3725

 +459     ;;21,"60429-0016-60 ")

 +460     ;;3726

 +461     ;;21,"60429-0016-90 ")

 +462     ;;3727

 +463     ;;21,"60429-0017-30 ")

 +464     ;;3728

 +465     ;;21,"60429-0173-01 ")

 +466     ;;3729

 +467     ;;21,"60429-0173-10 ")

 +468     ;;3730

 +469     ;;21,"60429-0173-30 ")

 +470     ;;3731

 +471     ;;21,"60429-0174-01 ")

 +472     ;;3732

 +473     ;;21,"60429-0174-10 ")

 +474     ;;3733

 +475     ;;21,"60429-0174-30 ")

 +476     ;;3734

 +477     ;;21,"60429-0175-01 ")

 +478     ;;3735

 +479     ;;21,"60429-0175-10 ")

 +480     ;;3736

 +481     ;;21,"60429-0175-30 ")

 +482     ;;3737

 +483     ;;21,"60429-0187-01 ")

 +484     ;;3738

 +485     ;;21,"60429-0187-05 ")

 +486     ;;3739

 +487     ;;21,"60429-0188-01 ")

 +488     ;;3740

 +489     ;;21,"60429-0188-05 ")

 +490     ;;3741

 +491     ;;21,"60429-0188-90 ")

 +492     ;;3742

 +493     ;;21,"60429-0230-01 ")

 +494     ;;3743

 +495     ;;21,"60429-0230-05 ")

 +496     ;;3744

 +497     ;;21,"60429-0230-30 ")

 +498     ;;3745

 +499     ;;21,"60429-0230-90 ")

 +500     ;;3746

 +501     ;;21,"60429-0287-30 ")

 +502     ;;3747

 +503     ;;21,"60429-0288-30 ")

 +504     ;;3748

 +505     ;;21,"60429-0718-18 ")

 +506     ;;3749

 +507     ;;21,"60429-0718-30 ")

 +508     ;;3750

 +509     ;;21,"60429-0718-60 ")

 +510     ;;3751

 +511     ;;21,"60429-0718-90 ")

 +512     ;;3752

 +513     ;;21,"60429-0719-18 ")

 +514     ;;3753

 +515     ;;21,"60429-0719-30 ")

 +516     ;;3754

 +517     ;;21,"60429-0719-60 ")

 +518     ;;3755

 +519     ;;21,"60429-0719-90 ")

 +520     ;;3756

 +521     ;;21,"60429-0734-05 ")

 +522     ;;3757

 +523     ;;21,"60429-0734-30 ")

 +524     ;;3758

 +525     ;;21,"60429-0734-90 ")

 +526     ;;3759

 +527     ;;21,"60429-0735-01 ")

 +528     ;;3760

 +529     ;;21,"60429-0735-05 ")

 +530     ;;3761

 +531     ;;21,"60429-0735-30 ")

 +532     ;;3762

 +533     ;;21,"60429-0735-90 ")

 +534     ;;3763

 +535     ;;21,"60429-0736-05 ")

 +536     ;;3764

 +537     ;;21,"60429-0736-30 ")

 +538     ;;3765

 +539     ;;21,"60429-0736-90 ")

 +540     ;;3766

 +541     ;;21,"60429-0737-05 ")

 +542     ;;3767

 +543     ;;21,"60429-0737-15 ")

 +544     ;;3768