BGP06A10.m

BGP06A10 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;

 ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010

 ;

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-0333-07 ")

 ;;3497

 ;;21,"54868-0337-00 ")

 ;;3498

 ;;21,"54868-0348-01 ")

 ;;3499

 ;;21,"54868-0348-02 ")

 ;;3500

 ;;21,"54868-0387-00 ")

 ;;3501

 ;;21,"54868-0387-01 ")

 ;;3502

 ;;21,"54868-0387-02 ")

 ;;3503

 ;;21,"54868-0387-03 ")

 ;;3504

 ;;21,"54868-0388-00 ")

 ;;3505

 ;;21,"54868-0388-01 ")

 ;;3506

 ;;21,"54868-0388-02 ")

 ;;3507

 ;;21,"54868-0388-04 ")

 ;;3508

 ;;21,"54868-0388-05 ")

 ;;3509

 ;;21,"54868-0407-01 ")

 ;;3510

 ;;21,"54868-0407-03 ")

 ;;3511

 ;;21,"54868-0407-04 ")

 ;;3512

 ;;21,"54868-0413-02 ")

 ;;3513

 ;;21,"54868-0413-04 ")

 ;;3514

 ;;21,"54868-0413-07 ")

 ;;3515

 ;;21,"54868-0413-08 ")

 ;;3516

 ;;21,"54868-0425-01 ")

 ;;3517

 ;;21,"54868-0472-01 ")

 ;;3518

 ;;21,"54868-0538-01 ")

 ;;3519

 ;;21,"54868-0538-02 ")

 ;;3520

 ;;21,"54868-0559-00 ")

 ;;3521

 ;;21,"54868-0737-00 ")

 ;;3522

 ;;21,"54868-0737-01 ")

 ;;3523

 ;;21,"54868-0807-01 ")

 ;;3524

 ;;21,"54868-0840-00 ")

 ;;3525

 ;;21,"54868-0840-01 ")

 ;;3526

 ;;21,"54868-0840-02 ")

 ;;3527

 ;;21,"54868-0840-03 ")

 ;;3528

 ;;21,"54868-0840-04 ")

 ;;3529

 ;;21,"54868-0934-00 ")

 ;;3530

 ;;21,"54868-0937-00 ")

 ;;3531

 ;;21,"54868-0937-01 ")

 ;;3532

 ;;21,"54868-0937-02 ")

 ;;3533

 ;;21,"54868-0939-00 ")

 ;;3534

 ;;21,"54868-0939-01 ")

 ;;3535

 ;;21,"54868-0939-02 ")

 ;;3536

 ;;21,"54868-0939-03 ")

 ;;3537

 ;;21,"54868-0939-05 ")

 ;;3538

 ;;21,"54868-0939-06 ")

 ;;3539

 ;;21,"54868-0939-07 ")

 ;;3540

 ;;21,"54868-0971-00 ")

 ;;3541

 ;;21,"54868-0971-01 ")

 ;;3542

 ;;21,"54868-0985-01 ")

 ;;3543

 ;;21,"54868-0990-00 ")

 ;;3544

 ;;21,"54868-0990-01 ")

 ;;3545

 ;;21,"54868-0990-02 ")

 ;;3546

 ;;21,"54868-0990-04 ")

 ;;3547

 ;;21,"54868-0990-05 ")

 ;;3548

 ;;21,"54868-1044-01 ")

 ;;3549

 ;;21,"54868-1047-00 ")

 ;;3550

 ;;21,"54868-1047-01 ")

 ;;3551

 ;;21,"54868-1047-02 ")

 ;;3552

 ;;21,"54868-1047-03 ")

 ;;3553

 ;;21,"54868-1047-04 ")

 ;;3554

 ;;21,"54868-1048-01 ")

 ;;3555

 ;;21,"54868-1048-02 ")

 ;;3556

 ;;21,"54868-1048-03 ")

 ;;3557

 ;;21,"54868-1080-00 ")

 ;;3558

 ;;21,"54868-1080-01 ")

 ;;3559

 ;;21,"54868-1080-03 ")

 ;;3560

 ;;21,"54868-1112-01 ")

 ;;3561

 ;;21,"54868-1112-02 ")

 ;;3562

 ;;21,"54868-1146-00 ")

 ;;3563

 ;;21,"54868-1171-00 ")

 ;;3564

 ;;21,"54868-1171-01 ")

 ;;3565

 ;;21,"54868-1171-03 ")

 ;;3566

 ;;21,"54868-1173-00 ")

 ;;3567

 ;;21,"54868-1173-01 ")

 ;;3568

 ;;21,"54868-1173-02 ")

 ;;3569

 ;;21,"54868-1173-04 ")

 ;;3570

 ;;21,"54868-1173-05 ")

 ;;3571

 ;;21,"54868-1173-06 ")

 ;;3572

 ;;21,"54868-1184-01 ")

 ;;3573

 ;;21,"54868-1184-02 ")

 ;;3574

 ;;21,"54868-1184-03 ")

 ;;3575

 ;;21,"54868-1231-00 ")

 ;;3576

 ;;21,"54868-1380-00 ")

 ;;3577

 ;;21,"54868-1380-01 ")

 ;;3578

 ;;21,"54868-1380-02 ")

 ;;3579

 ;;21,"54868-1380-03 ")

 ;;3580

 ;;21,"54868-1383-00 ")

 ;;3581

 ;;21,"54868-1384-01 ")

 ;;3582

 ;;21,"54868-1384-02 ")

 ;;3583

 ;;21,"54868-1385-01 ")

 ;;3584

 ;;21,"54868-1385-02 ")

 ;;3585

 ;;21,"54868-1386-01 ")

 ;;3586

 ;;21,"54868-1386-02 ")

 ;;3587

 ;;21,"54868-1386-03 ")

 ;;3588

 ;;21,"54868-1386-04 ")

 ;;3589

 ;;21,"54868-1387-00 ")

 ;;3590

 ;;21,"54868-1387-01 ")

 ;;3591

 ;;21,"54868-1387-04 ")

 ;;3592

 ;;21,"54868-1392-00 ")

 ;;3593

 ;;21,"54868-1420-01 ")

 ;;3594

 ;;21,"54868-1426-01 ")

 ;;3595

 ;;21,"54868-1535-00 ")

 ;;3596

 ;;21,"54868-1710-00 ")

 ;;3597

 ;;21,"54868-1772-00 ")

 ;;3598

 ;;21,"54868-1772-02 ")

 ;;3599

 ;;21,"54868-1774-00 ")

 ;;3600

 ;;21,"54868-1774-02 ")

 ;;3601

 ;;21,"54868-1780-01 ")

 ;;3602

 ;;21,"54868-1780-02 ")

 ;;3603

 ;;21,"54868-1857-00 ")

 ;;3604

 ;;21,"54868-1857-01 ")

 ;;3605

 ;;21,"54868-1857-02 ")

 ;;3606

 ;;21,"54868-1857-06 ")

 ;;3607

 ;;21,"54868-1865-01 ")

 ;;3608

 ;;21,"54868-1865-02 ")

 ;;3609

 ;;21,"54868-1865-03 ")

 ;;3610

 ;;21,"54868-1886-00 ")

 ;;3611

 ;;21,"54868-1887-00 ")

 ;;3612

 ;;21,"54868-1887-01 ")

 ;;3613

 ;;21,"54868-1997-01 ")

 ;;3614

 ;;21,"54868-2016-00 ")

 ;;3615

 ;;21,"54868-2017-00 ")

 ;;3616

 ;;21,"54868-2017-01 ")

 ;;3617

 ;;21,"54868-2201-01 ")

 ;;3618

 ;;21,"54868-2391-01 ")

 ;;3619

 ;;21,"54868-2391-02 ")

 ;;3620

 ;;21,"54868-2444-00 ")

 ;;3621

 ;;21,"54868-2488-01 ")

 ;;3622

 ;;21,"54868-2641-00 ")

 ;;3623

 ;;21,"54868-2641-02 ")

 ;;3624

 ;;21,"54868-2641-03 ")

 ;;3625

 ;;21,"54868-2805-00 ")

 ;;3626

 ;;21,"54868-2910-00 ")

 ;;3627

 ;;21,"54868-2927-00 ")

 ;;3628

 ;;21,"54868-3016-00 ")

 ;;3629

 ;;21,"54868-3016-01 ")

 ;;3630

 ;;21,"54868-3105-00 ")

 ;;3631

 ;;21,"54868-3105-01 ")

 ;;3632

 ;;21,"54868-3105-02 ")

 ;;3633

 ;;21,"54868-3107-00 ")

 ;;3634

 ;;21,"54868-3107-01 ")

 ;;3635

 ;;21,"54868-3107-02 ")

 ;;3636

 ;;21,"54868-3107-03 ")

 ;;3637

 ;;21,"54868-3107-07 ")

 ;;3638

 ;;21,"54868-3107-08 ")

 ;;3639

 ;;21,"54868-3107-09 ")

 ;;3640

 ;;21,"54868-3109-00 ")

 ;;3641

 ;;21,"54868-3109-01 ")

 ;;3642

 ;;21,"54868-3109-02 ")

 ;;3643

 ;;21,"54868-3109-04 ")

 ;;3644

 ;;21,"54868-3109-06 ")

 ;;3645

 ;;21,"54868-3109-07 ")

 ;;3646

 ;;21,"54868-3109-08 ")

 ;;3647

 ;;21,"54868-3109-09 ")

 ;;3648

 ;;21,"54868-3111-00 ")

 ;;3649

 ;;21,"54868-3111-01 ")

 ;;3650

 ;;21,"54868-3111-03 ")

 ;;3651

 ;;21,"54868-3111-05 ")

 ;;3652

 ;;21,"54868-3113-00 ")

 ;;3653

 ;;21,"54868-3113-01 ")

 ;;3654

 ;;21,"54868-3113-03 ")

 ;;3655

 ;;21,"54868-3113-05 ")

 ;;3656

 ;;21,"54868-3113-07 ")

 ;;3657

 ;;21,"54868-3113-08 ")

 ;;3658

 ;;21,"54868-3113-09 ")

 ;;3659

 ;;21,"54868-3169-00 ")

 ;;3660

 ;;21,"54868-3169-01 ")

 ;;3661

 ;;21,"54868-3169-02 ")

 ;;3662

 ;;21,"54868-3169-04 ")

 ;;3663

 ;;21,"54868-3221-00 ")

 ;;3664

 ;;21,"54868-3221-01 ")

 ;;3665

 ;;21,"54868-3244-00 ")

 ;;3666

 ;;21,"54868-3343-00 ")

 ;;3667

 ;;21,"54868-3343-01 ")

 ;;3668

 ;;21,"54868-3424-00 ")

 ;;3669

 ;;21,"54868-3472-00 ")

 ;;3670

 ;;21,"54868-3473-00 ")

 ;;3671

 ;;21,"54868-3478-00 ")

 ;;3672

 ;;21,"54868-3478-01 ")

 ;;3673

 ;;21,"54868-3478-02 ")

 ;;3674

 ;;21,"54868-3478-03 ")

 ;;3675

 ;;21,"54868-3480-00 ")

 ;;3676

 ;;21,"54868-3481-00 ")

 ;;3677

 ;;21,"54868-3511-00 ")

 ;;3678

 ;;21,"54868-3511-01 ")

 ;;3679

 ;;21,"54868-3511-02 ")

 ;;3680

 ;;21,"54868-3648-00 ")

 ;;3681

 ;;21,"54868-3742-00 ")

 ;;3682

 ;;21,"54868-3742-01 ")

 ;;3683

 ;;21,"54868-3903-00 ")

 ;;3684

 ;;21,"54868-3903-01 ")

 ;;3685

 ;;21,"54868-3903-02 ")

 ;;3686

 ;;21,"54868-3903-03 ")

 ;;3687

 ;;21,"54868-3923-00 ")

 ;;3688

 ;;21,"54868-3923-01 ")

 ;;3689

 ;;21,"54868-4047-00 ")

 ;;3690

 ;;21,"54868-4076-00 ")

 ;;3691

 ;;21,"54868-4078-00 ")

 ;;3692

 ;;21,"54868-4078-01 ")

 ;;3693

 ;;21,"54868-4078-02 ")

 ;;3694

 ;;21,"54868-4080-00 ")

 ;;3695

 ;;21,"54868-4125-01 ")

 ;;3696

 ;;21,"54868-4125-02 ")

 ;;3697

 ;;21,"54868-4129-01 ")

 ;;3698

 ;;21,"54868-4129-02 ")

 ;;3699

 ;;21,"54868-4131-01 ")

 ;;3700

 ;;21,"54868-4150-01 ")

 ;;3701

 ;;21,"54868-4150-02 ")

 ;;3702

 ;;21,"54868-4155-00 ")

 ;;3703

 ;;21,"54868-4155-01 ")

 ;;3704

 ;;21,"54868-4155-02 ")

 ;;3705

 ;;21,"54868-4155-03 ")

 ;;3706

 ;;21,"54868-4175-00 ")

 ;;3707

 ;;21,"54868-4175-01 ")

 ;;3708

 ;;21,"54868-4175-02 ")

 ;;3709

 ;;21,"54868-4183-00 ")

 ;;3710

 ;;21,"54868-4208-00 ")

 ;;3711

 ;;21,"54868-4330-00 ")

 ;;3712

 ;;21,"54868-4330-01 ")

 ;;3713

 ;;21,"54868-4330-02 ")

 ;;3714

 ;;21,"54868-4366-00 ")

 ;;3715

 ;;21,"54868-4366-01 ")

 ;;3716

 ;;21,"54868-4473-00 ")

 ;;3717

 ;;21,"54868-4483-00 ")

 ;;3718

 ;;21,"54868-4543-00 ")

 ;;3719

 ;;21,"54868-4614-00 ")

 ;;3720

 ;;21,"54868-4614-01 ")

 ;;3721

 ;;21,"54868-4644-00 ")

 ;;3722

 ;;21,"54868-4644-01 ")

 ;;3723

 ;;21,"54868-4644-02 ")

 ;;3724

 ;;21,"54868-4682-00 ")

 ;;3725

 ;;21,"54868-4682-01 ")

 ;;3726

 ;;21,"54868-5057-01 ")

 ;;3727

 ;;21,"54868-5471-00 ")

 ;;3728

 ;;21,"54868-5478-00 ")

 ;;3729

 ;;21,"54868-5478-02 ")

 ;;3730

 ;;21,"54868-5487-00 ")

 ;;3731

 ;;21,"55045-1117-00 ")

 ;;3732

 ;;21,"55045-1117-02 ")

 ;;3733

 ;;21,"55045-1117-04 ")

 ;;3734

 ;;21,"55045-1117-05 ")

 ;;3735

 ;;21,"55045-1117-06 ")

 ;;3736

 ;;21,"55045-1117-07 ")

 ;;3737

 ;;21,"55045-1117-08 ")

 ;;3738

 ;;21,"55045-1122-00 ")

 ;;3739

 ;;21,"55045-1122-01 ")

 ;;3740

 ;;21,"55045-1122-03 ")

 ;;3741

 ;;21,"55045-1122-05 ")

 ;;3742

 ;;21,"55045-1122-08 ")

 ;;3743

 ;;21,"55045-1226-00 ")

 ;;3744

 ;;21,"55045-1226-01 ")

 ;;3745

 ;;21,"55045-1226-02 ")

 ;;3746

 ;;21,"55045-1226-03 ")

 ;;3747

 ;;21,"55045-1226-05 ")

 ;;3748

 ;;21,"55045-1226-08 ")

 ;;3749

 ;;21,"55045-1226-09 ")

 ;;3750

 ;;21,"55045-1381-05 ")

 ;;3751

 ;;21,"55045-1478-07 ")

 ;;3752

 ;;21,"55045-1478-08 ")

 ;;3753

 ;;21,"55045-2004-08 ")

 ;;3754

 ;;21,"55045-2372-05 ")

 ;;3755

 ;;21,"55045-2492-06 ")

 ;;3756

 ;;21,"55045-2597-01 ")

 ;;3757

 ;;21,"55045-2597-02 ")

 ;;3758

 ;;21,"55045-2597-03 ")

 ;;3759

 ;;21,"55045-2597-05 ")

 ;;3760

 ;;21,"55045-2597-06 ")

 ;;3761

 ;;21,"55045-2597-08 ")

 ;;3762

 ;;21,"55045-2598-03 ")

 ;;3763

 ;;21,"55045-3080-05 ")

 ;;3764

 ;;21,"55045-3080-07 ")

 ;;3765

 ;;21,"55045-3080-08 ")

 ;;3766

 ;;21,"55045-3081-07 ")

 ;;3767

 ;;21,"55045-3194-04 ")

 ;;3768

 ;;21,"55045-3194-06 ")

 ;;3769

 ;;21,"55045-3194-09 ")

 ;;3770

 ;;21,"55045-3260-06 ")

 ;;3771

 ;;21,"55045-3260-09 ")

 ;;3772

 ;;21,"55111-0125-06 ")

 ;;3773

 ;;21,"55111-0126-01 ")

 ;;3774

 ;;21,"55111-0126-05 ")

 ;;3775

 ;;21,"55111-0127-01 ")

 ;;3776

 ;;21,"55111-0127-05 ")

 ;;3777

 ;;21,"55111-0128-01 ")

 ;;3778

 ;;21,"55111-0128-50 ")

 ;;3779

 ;;21,"55175-1219-00 ")

 ;;3780

 ;;21,"55175-1219-01 ")

 ;;3781

 ;;21,"55175-1219-05 ")

 ;;3782

 ;;21,"55175-1220-00 ")

 ;;3783

 ;;21,"55175-1220-01 ")

 ;;3784

 ;;21,"55175-1220-02 ")

 ;;3785

 ;;21,"55175-1220-05 ")

 ;;3786

 ;;21,"55175-1221-05 ")

 ;;3787

 ;;21,"55175-1221-07 ")

 ;;3788

 ;;21,"55175-1222-01 ")

 ;;3789

 ;;21,"55175-1222-02 ")

 ;;3790

 ;;21,"55175-1223-05 ")

 ;;3791

 ;;21,"55175-1223-07 ")

 ;;3792

 ;;21,"55175-1745-00 ")

 ;;3793

 ;;21,"55175-1850-00 ")

 ;;3794

 ;;21,"55175-1895-01 ")

 ;;3795

 ;;21,"55175-1895-02 ")

 ;;3796

 ;;21,"55175-1895-04 ")

 ;;3797

 ;;21,"55175-1895-06 ")

 ;;3798

 ;;21,"55175-1897-02 ")

 ;;3799

 ;;21,"55175-6020-01 ")

 ;;3800

 ;;21,"55289-0019-01 ")

 ;;3801

 ;;21,"55289-0019-06 ")

 ;;3802

 ;;21,"55289-0019-15 ")

 ;;3803

 ;;21,"55289-0019-21 ")

 ;;3804

 ;;21,"55289-0019-24 ")

 ;;3805

 ;;21,"55289-0019-30 ")

 ;;3806

 ;;21,"55289-0019-40 ")

 ;;3807

 ;;21,"55289-0019-60 ")

 ;;3808

 ;;21,"55289-0019-97 ")

 ;;3809

 ;;21,"55289-0020-04 ")

 ;;3810

 ;;21,"55289-0020-06 ")

 ;;3811

 ;;21,"55289-0020-09 ")

 ;;3812

 ;;21,"55289-0020-14 ")

 ;;3813

 ;;21,"55289-0020-15 ")

 ;;3814

 ;;21,"55289-0020-21 ")

 ;;3815

 ;;21,"55289-0020-24 ")

 ;;3816

 ;;21,"55289-0020-28 ")

 ;;3817

 ;;21,"55289-0020-30 ")

 ;;3818

 ;;21,"55289-0020-42 ")

 ;;3819

 ;;21,"55289-0020-50 ")

 ;;3820

 ;;21,"55289-0020-56 ")

 ;;3821

 ;;21,"55289-0020-60 ")

 ;;3822

 ;;21,"55289-0020-63 ")

 ;;3823

 ;;21,"55289-0023-01 ")

 ;;3824

 ;;21,"55289-0023-10 ")

 ;;3825

 ;;21,"55289-0023-20 ")

 ;;3826

 ;;21,"55289-0023-28 ")

 ;;3827

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

 ;;3828

 ;;21,"55289-0023-40 ")

 ;;3829

 ;;21,"55289-0024-04 ")

 ;;3830

 ;;21,"55289-0024-07 ")

 ;;3831

 ;;21,"55289-0024-10 ")

 ;;3832

 ;;21,"55289-0024-20 ")

 ;;3833

 ;;21,"55289-0024-28 ")

 ;;3834

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

 ;;3835

 ;;21,"55289-0024-40 ")

 ;;3836

 ;;21,"55289-0024-97 ")

 ;;3837

 ;;21,"55289-0025-04 ")

 ;;3838

 ;;21,"55289-0025-20 ")

 ;;3839

 ;;21,"55289-0025-28 ")

 ;;3840

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

 ;;3841

 ;;21,"55289-0025-40 ")

 ;;3842

 ;;21,"55289-0027-20 ")

 ;;3843

 ;;21,"55289-0028-01 ")

 ;;3844

 ;;21,"55289-0028-30 ")

 ;;3845

 ;;21,"55289-0028-50 ")

 ;;3846

 ;;21,"55289-0029-21 ")

 ;;3847

 ;;21,"55289-0029-30 ")

 ;;3848

 ;;21,"55289-0030-06 ")

 ;;3849

 ;;21,"55289-0032-10 ")

 ;;3850

 ;;21,"55289-0033-28 ")

 ;;3851

 ;;21,"55289-0033-40 ")

 ;;3852

 ;;21,"55289-0043-14 ")

 ;;3853

 ;;21,"55289-0050-40 ")

 ;;3854

 ;;21,"55289-0051-15 ")

 ;;3855

 ;;21,"55289-0051-30 ")

 ;;3856

 ;;21,"55289-0056-06 ")

 ;;3857

 ;;21,"55289-0056-10 ")

 ;;3858

 ;;21,"55289-0056-14 ")

 ;;3859

 ;;21,"55289-0056-20 ")

 ;;3860

 ;;21,"55289-0057-01 ")

 ;;3861

 ;;21,"55289-0057-10 ")

 ;;3862

 ;;21,"55289-0057-15 ")

 ;;3863

 ;;21,"55289-0057-17 ")

 ;;3864

 ;;21,"55289-0057-20 ")

 ;;3865

 ;;21,"55289-0057-24 ")

 ;;3866

 ;;21,"55289-0057-28 ")

 ;;3867

 ;;21,"55289-0057-30 ")

 ;;3868

 ;;21,"55289-0057-40 ")

 ;;3869

 ;;21,"55289-0057-97 ")

 ;;3870

 ;;21,"55289-0058-01 ")

 ;;3871

 ;;21,"55289-0058-08 ")

 ;;3872

 ;;21,"55289-0058-10 ")

 ;;3873

 ;;21,"55289-0058-14 ")

 ;;3874

 ;;21,"55289-0058-17 ")

 ;;3875

 ;;21,"55289-0058-20 ")

 ;;3876

 ;;21,"55289-0058-21 ")

 ;;3877

 ;;21,"55289-0058-24 ")

 ;;3878

 ;;21,"55289-0058-28 ")

 ;;3879

 ;;21,"55289-0058-30 ")

 ;;3880

 ;;21,"55289-0058-40 ")

 ;;3881

 ;;21,"55289-0058-56 ")

 ;;3882

BGP06A10  ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;

 +1       ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010

 +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,"54868-0333-07 ")

 +2       ;;3497

 +3       ;;21,"54868-0337-00 ")

 +4       ;;3498

 +5       ;;21,"54868-0348-01 ")

 +6       ;;3499

 +7       ;;21,"54868-0348-02 ")

 +8       ;;3500

 +9       ;;21,"54868-0387-00 ")

 +10      ;;3501

 +11      ;;21,"54868-0387-01 ")

 +12      ;;3502

 +13      ;;21,"54868-0387-02 ")

 +14      ;;3503

 +15      ;;21,"54868-0387-03 ")

 +16      ;;3504

 +17      ;;21,"54868-0388-00 ")

 +18      ;;3505

 +19      ;;21,"54868-0388-01 ")

 +20      ;;3506

 +21      ;;21,"54868-0388-02 ")

 +22      ;;3507

 +23      ;;21,"54868-0388-04 ")

 +24      ;;3508

 +25      ;;21,"54868-0388-05 ")

 +26      ;;3509

 +27      ;;21,"54868-0407-01 ")

 +28      ;;3510

 +29      ;;21,"54868-0407-03 ")

 +30      ;;3511

 +31      ;;21,"54868-0407-04 ")

 +32      ;;3512

 +33      ;;21,"54868-0413-02 ")

 +34      ;;3513

 +35      ;;21,"54868-0413-04 ")

 +36      ;;3514

 +37      ;;21,"54868-0413-07 ")

 +38      ;;3515

 +39      ;;21,"54868-0413-08 ")

 +40      ;;3516

 +41      ;;21,"54868-0425-01 ")

 +42      ;;3517

 +43      ;;21,"54868-0472-01 ")

 +44      ;;3518

 +45      ;;21,"54868-0538-01 ")

 +46      ;;3519

 +47      ;;21,"54868-0538-02 ")

 +48      ;;3520

 +49      ;;21,"54868-0559-00 ")

 +50      ;;3521

 +51      ;;21,"54868-0737-00 ")

 +52      ;;3522

 +53      ;;21,"54868-0737-01 ")

 +54      ;;3523

 +55      ;;21,"54868-0807-01 ")

 +56      ;;3524

 +57      ;;21,"54868-0840-00 ")

 +58      ;;3525

 +59      ;;21,"54868-0840-01 ")

 +60      ;;3526

 +61      ;;21,"54868-0840-02 ")

 +62      ;;3527

 +63      ;;21,"54868-0840-03 ")

 +64      ;;3528

 +65      ;;21,"54868-0840-04 ")

 +66      ;;3529

 +67      ;;21,"54868-0934-00 ")

 +68      ;;3530

 +69      ;;21,"54868-0937-00 ")

 +70      ;;3531

 +71      ;;21,"54868-0937-01 ")

 +72      ;;3532

 +73      ;;21,"54868-0937-02 ")

 +74      ;;3533

 +75      ;;21,"54868-0939-00 ")

 +76      ;;3534

 +77      ;;21,"54868-0939-01 ")

 +78      ;;3535

 +79      ;;21,"54868-0939-02 ")

 +80      ;;3536

 +81      ;;21,"54868-0939-03 ")

 +82      ;;3537

 +83      ;;21,"54868-0939-05 ")

 +84      ;;3538

 +85      ;;21,"54868-0939-06 ")

 +86      ;;3539

 +87      ;;21,"54868-0939-07 ")

 +88      ;;3540

 +89      ;;21,"54868-0971-00 ")

 +90      ;;3541

 +91      ;;21,"54868-0971-01 ")

 +92      ;;3542

 +93      ;;21,"54868-0985-01 ")

 +94      ;;3543

 +95      ;;21,"54868-0990-00 ")

 +96      ;;3544

 +97      ;;21,"54868-0990-01 ")

 +98      ;;3545

 +99      ;;21,"54868-0990-02 ")

 +100     ;;3546

 +101     ;;21,"54868-0990-04 ")

 +102     ;;3547

 +103     ;;21,"54868-0990-05 ")

 +104     ;;3548

 +105     ;;21,"54868-1044-01 ")

 +106     ;;3549

 +107     ;;21,"54868-1047-00 ")

 +108     ;;3550

 +109     ;;21,"54868-1047-01 ")

 +110     ;;3551

 +111     ;;21,"54868-1047-02 ")

 +112     ;;3552

 +113     ;;21,"54868-1047-03 ")

 +114     ;;3553

 +115     ;;21,"54868-1047-04 ")

 +116     ;;3554

 +117     ;;21,"54868-1048-01 ")

 +118     ;;3555

 +119     ;;21,"54868-1048-02 ")

 +120     ;;3556

 +121     ;;21,"54868-1048-03 ")

 +122     ;;3557

 +123     ;;21,"54868-1080-00 ")

 +124     ;;3558

 +125     ;;21,"54868-1080-01 ")

 +126     ;;3559

 +127     ;;21,"54868-1080-03 ")

 +128     ;;3560

 +129     ;;21,"54868-1112-01 ")

 +130     ;;3561

 +131     ;;21,"54868-1112-02 ")

 +132     ;;3562

 +133     ;;21,"54868-1146-00 ")

 +134     ;;3563

 +135     ;;21,"54868-1171-00 ")

 +136     ;;3564

 +137     ;;21,"54868-1171-01 ")

 +138     ;;3565

 +139     ;;21,"54868-1171-03 ")

 +140     ;;3566

 +141     ;;21,"54868-1173-00 ")

 +142     ;;3567

 +143     ;;21,"54868-1173-01 ")

 +144     ;;3568

 +145     ;;21,"54868-1173-02 ")

 +146     ;;3569

 +147     ;;21,"54868-1173-04 ")

 +148     ;;3570

 +149     ;;21,"54868-1173-05 ")

 +150     ;;3571

 +151     ;;21,"54868-1173-06 ")

 +152     ;;3572

 +153     ;;21,"54868-1184-01 ")

 +154     ;;3573

 +155     ;;21,"54868-1184-02 ")

 +156     ;;3574

 +157     ;;21,"54868-1184-03 ")

 +158     ;;3575

 +159     ;;21,"54868-1231-00 ")

 +160     ;;3576

 +161     ;;21,"54868-1380-00 ")

 +162     ;;3577

 +163     ;;21,"54868-1380-01 ")

 +164     ;;3578

 +165     ;;21,"54868-1380-02 ")

 +166     ;;3579

 +167     ;;21,"54868-1380-03 ")

 +168     ;;3580

 +169     ;;21,"54868-1383-00 ")

 +170     ;;3581

 +171     ;;21,"54868-1384-01 ")

 +172     ;;3582

 +173     ;;21,"54868-1384-02 ")

 +174     ;;3583

 +175     ;;21,"54868-1385-01 ")

 +176     ;;3584

 +177     ;;21,"54868-1385-02 ")

 +178     ;;3585

 +179     ;;21,"54868-1386-01 ")

 +180     ;;3586

 +181     ;;21,"54868-1386-02 ")

 +182     ;;3587

 +183     ;;21,"54868-1386-03 ")

 +184     ;;3588

 +185     ;;21,"54868-1386-04 ")

 +186     ;;3589

 +187     ;;21,"54868-1387-00 ")

 +188     ;;3590

 +189     ;;21,"54868-1387-01 ")

 +190     ;;3591

 +191     ;;21,"54868-1387-04 ")

 +192     ;;3592

 +193     ;;21,"54868-1392-00 ")

 +194     ;;3593

 +195     ;;21,"54868-1420-01 ")

 +196     ;;3594

 +197     ;;21,"54868-1426-01 ")

 +198     ;;3595

 +199     ;;21,"54868-1535-00 ")

 +200     ;;3596

 +201     ;;21,"54868-1710-00 ")

 +202     ;;3597

 +203     ;;21,"54868-1772-00 ")

 +204     ;;3598

 +205     ;;21,"54868-1772-02 ")

 +206     ;;3599

 +207     ;;21,"54868-1774-00 ")

 +208     ;;3600

 +209     ;;21,"54868-1774-02 ")

 +210     ;;3601

 +211     ;;21,"54868-1780-01 ")

 +212     ;;3602

 +213     ;;21,"54868-1780-02 ")

 +214     ;;3603

 +215     ;;21,"54868-1857-00 ")

 +216     ;;3604

 +217     ;;21,"54868-1857-01 ")

 +218     ;;3605

 +219     ;;21,"54868-1857-02 ")

 +220     ;;3606

 +221     ;;21,"54868-1857-06 ")

 +222     ;;3607

 +223     ;;21,"54868-1865-01 ")

 +224     ;;3608

 +225     ;;21,"54868-1865-02 ")

 +226     ;;3609

 +227     ;;21,"54868-1865-03 ")

 +228     ;;3610

 +229     ;;21,"54868-1886-00 ")

 +230     ;;3611

 +231     ;;21,"54868-1887-00 ")

 +232     ;;3612

 +233     ;;21,"54868-1887-01 ")

 +234     ;;3613

 +235     ;;21,"54868-1997-01 ")

 +236     ;;3614

 +237     ;;21,"54868-2016-00 ")

 +238     ;;3615

 +239     ;;21,"54868-2017-00 ")

 +240     ;;3616

 +241     ;;21,"54868-2017-01 ")

 +242     ;;3617

 +243     ;;21,"54868-2201-01 ")

 +244     ;;3618

 +245     ;;21,"54868-2391-01 ")

 +246     ;;3619

 +247     ;;21,"54868-2391-02 ")

 +248     ;;3620

 +249     ;;21,"54868-2444-00 ")

 +250     ;;3621

 +251     ;;21,"54868-2488-01 ")

 +252     ;;3622

 +253     ;;21,"54868-2641-00 ")

 +254     ;;3623

 +255     ;;21,"54868-2641-02 ")

 +256     ;;3624

 +257     ;;21,"54868-2641-03 ")

 +258     ;;3625

 +259     ;;21,"54868-2805-00 ")

 +260     ;;3626

 +261     ;;21,"54868-2910-00 ")

 +262     ;;3627

 +263     ;;21,"54868-2927-00 ")

 +264     ;;3628

 +265     ;;21,"54868-3016-00 ")

 +266     ;;3629

 +267     ;;21,"54868-3016-01 ")

 +268     ;;3630

 +269     ;;21,"54868-3105-00 ")

 +270     ;;3631

 +271     ;;21,"54868-3105-01 ")

 +272     ;;3632

 +273     ;;21,"54868-3105-02 ")

 +274     ;;3633

 +275     ;;21,"54868-3107-00 ")

 +276     ;;3634

 +277     ;;21,"54868-3107-01 ")

 +278     ;;3635

 +279     ;;21,"54868-3107-02 ")

 +280     ;;3636

 +281     ;;21,"54868-3107-03 ")

 +282     ;;3637

 +283     ;;21,"54868-3107-07 ")

 +284     ;;3638

 +285     ;;21,"54868-3107-08 ")

 +286     ;;3639

 +287     ;;21,"54868-3107-09 ")

 +288     ;;3640

 +289     ;;21,"54868-3109-00 ")

 +290     ;;3641

 +291     ;;21,"54868-3109-01 ")

 +292     ;;3642

 +293     ;;21,"54868-3109-02 ")

 +294     ;;3643

 +295     ;;21,"54868-3109-04 ")

 +296     ;;3644

 +297     ;;21,"54868-3109-06 ")

 +298     ;;3645

 +299     ;;21,"54868-3109-07 ")

 +300     ;;3646

 +301     ;;21,"54868-3109-08 ")

 +302     ;;3647

 +303     ;;21,"54868-3109-09 ")

 +304     ;;3648

 +305     ;;21,"54868-3111-00 ")

 +306     ;;3649

 +307     ;;21,"54868-3111-01 ")

 +308     ;;3650

 +309     ;;21,"54868-3111-03 ")

 +310     ;;3651

 +311     ;;21,"54868-3111-05 ")

 +312     ;;3652

 +313     ;;21,"54868-3113-00 ")

 +314     ;;3653

 +315     ;;21,"54868-3113-01 ")

 +316     ;;3654

 +317     ;;21,"54868-3113-03 ")

 +318     ;;3655

 +319     ;;21,"54868-3113-05 ")

 +320     ;;3656

 +321     ;;21,"54868-3113-07 ")

 +322     ;;3657

 +323     ;;21,"54868-3113-08 ")

 +324     ;;3658

 +325     ;;21,"54868-3113-09 ")

 +326     ;;3659

 +327     ;;21,"54868-3169-00 ")

 +328     ;;3660

 +329     ;;21,"54868-3169-01 ")

 +330     ;;3661

 +331     ;;21,"54868-3169-02 ")

 +332     ;;3662

 +333     ;;21,"54868-3169-04 ")

 +334     ;;3663

 +335     ;;21,"54868-3221-00 ")

 +336     ;;3664

 +337     ;;21,"54868-3221-01 ")

 +338     ;;3665

 +339     ;;21,"54868-3244-00 ")

 +340     ;;3666

 +341     ;;21,"54868-3343-00 ")

 +342     ;;3667

 +343     ;;21,"54868-3343-01 ")

 +344     ;;3668

 +345     ;;21,"54868-3424-00 ")

 +346     ;;3669

 +347     ;;21,"54868-3472-00 ")

 +348     ;;3670

 +349     ;;21,"54868-3473-00 ")

 +350     ;;3671

 +351     ;;21,"54868-3478-00 ")

 +352     ;;3672

 +353     ;;21,"54868-3478-01 ")

 +354     ;;3673

 +355     ;;21,"54868-3478-02 ")

 +356     ;;3674

 +357     ;;21,"54868-3478-03 ")

 +358     ;;3675

 +359     ;;21,"54868-3480-00 ")

 +360     ;;3676

 +361     ;;21,"54868-3481-00 ")

 +362     ;;3677

 +363     ;;21,"54868-3511-00 ")

 +364     ;;3678

 +365     ;;21,"54868-3511-01 ")

 +366     ;;3679

 +367     ;;21,"54868-3511-02 ")

 +368     ;;3680

 +369     ;;21,"54868-3648-00 ")

 +370     ;;3681

 +371     ;;21,"54868-3742-00 ")

 +372     ;;3682

 +373     ;;21,"54868-3742-01 ")

 +374     ;;3683

 +375     ;;21,"54868-3903-00 ")

 +376     ;;3684

 +377     ;;21,"54868-3903-01 ")

 +378     ;;3685

 +379     ;;21,"54868-3903-02 ")

 +380     ;;3686

 +381     ;;21,"54868-3903-03 ")

 +382     ;;3687

 +383     ;;21,"54868-3923-00 ")

 +384     ;;3688

 +385     ;;21,"54868-3923-01 ")

 +386     ;;3689

 +387     ;;21,"54868-4047-00 ")

 +388     ;;3690

 +389     ;;21,"54868-4076-00 ")

 +390     ;;3691

 +391     ;;21,"54868-4078-00 ")

 +392     ;;3692

 +393     ;;21,"54868-4078-01 ")

 +394     ;;3693

 +395     ;;21,"54868-4078-02 ")

 +396     ;;3694

 +397     ;;21,"54868-4080-00 ")

 +398     ;;3695

 +399     ;;21,"54868-4125-01 ")

 +400     ;;3696

 +401     ;;21,"54868-4125-02 ")

 +402     ;;3697

 +403     ;;21,"54868-4129-01 ")

 +404     ;;3698

 +405     ;;21,"54868-4129-02 ")

 +406     ;;3699

 +407     ;;21,"54868-4131-01 ")

 +408     ;;3700

 +409     ;;21,"54868-4150-01 ")

 +410     ;;3701

 +411     ;;21,"54868-4150-02 ")

 +412     ;;3702

 +413     ;;21,"54868-4155-00 ")

 +414     ;;3703

 +415     ;;21,"54868-4155-01 ")

 +416     ;;3704

 +417     ;;21,"54868-4155-02 ")

 +418     ;;3705

 +419     ;;21,"54868-4155-03 ")

 +420     ;;3706

 +421     ;;21,"54868-4175-00 ")

 +422     ;;3707

 +423     ;;21,"54868-4175-01 ")

 +424     ;;3708

 +425     ;;21,"54868-4175-02 ")

 +426     ;;3709

 +427     ;;21,"54868-4183-00 ")

 +428     ;;3710

 +429     ;;21,"54868-4208-00 ")

 +430     ;;3711

 +431     ;;21,"54868-4330-00 ")

 +432     ;;3712

 +433     ;;21,"54868-4330-01 ")

 +434     ;;3713

 +435     ;;21,"54868-4330-02 ")

 +436     ;;3714

 +437     ;;21,"54868-4366-00 ")

 +438     ;;3715

 +439     ;;21,"54868-4366-01 ")

 +440     ;;3716

 +441     ;;21,"54868-4473-00 ")

 +442     ;;3717

 +443     ;;21,"54868-4483-00 ")

 +444     ;;3718

 +445     ;;21,"54868-4543-00 ")

 +446     ;;3719

 +447     ;;21,"54868-4614-00 ")

 +448     ;;3720

 +449     ;;21,"54868-4614-01 ")

 +450     ;;3721

 +451     ;;21,"54868-4644-00 ")

 +452     ;;3722

 +453     ;;21,"54868-4644-01 ")

 +454     ;;3723

 +455     ;;21,"54868-4644-02 ")

 +456     ;;3724

 +457     ;;21,"54868-4682-00 ")

 +458     ;;3725

 +459     ;;21,"54868-4682-01 ")

 +460     ;;3726

 +461     ;;21,"54868-5057-01 ")

 +462     ;;3727

 +463     ;;21,"54868-5471-00 ")

 +464     ;;3728

 +465     ;;21,"54868-5478-00 ")

 +466     ;;3729

 +467     ;;21,"54868-5478-02 ")

 +468     ;;3730

 +469     ;;21,"54868-5487-00 ")

 +470     ;;3731

 +471     ;;21,"55045-1117-00 ")

 +472     ;;3732

 +473     ;;21,"55045-1117-02 ")

 +474     ;;3733

 +475     ;;21,"55045-1117-04 ")

 +476     ;;3734

 +477     ;;21,"55045-1117-05 ")

 +478     ;;3735

 +479     ;;21,"55045-1117-06 ")

 +480     ;;3736

 +481     ;;21,"55045-1117-07 ")

 +482     ;;3737

 +483     ;;21,"55045-1117-08 ")

 +484     ;;3738

 +485     ;;21,"55045-1122-00 ")

 +486     ;;3739

 +487     ;;21,"55045-1122-01 ")

 +488     ;;3740

 +489     ;;21,"55045-1122-03 ")

 +490     ;;3741

 +491     ;;21,"55045-1122-05 ")

 +492     ;;3742

 +493     ;;21,"55045-1122-08 ")

 +494     ;;3743

 +495     ;;21,"55045-1226-00 ")

 +496     ;;3744

 +497     ;;21,"55045-1226-01 ")

 +498     ;;3745

 +499     ;;21,"55045-1226-02 ")

 +500     ;;3746

 +501     ;;21,"55045-1226-03 ")

 +502     ;;3747

 +503     ;;21,"55045-1226-05 ")

 +504     ;;3748

 +505     ;;21,"55045-1226-08 ")

 +506     ;;3749

 +507     ;;21,"55045-1226-09 ")

 +508     ;;3750

 +509     ;;21,"55045-1381-05 ")

 +510     ;;3751

 +511     ;;21,"55045-1478-07 ")

 +512     ;;3752

 +513     ;;21,"55045-1478-08 ")

 +514     ;;3753

 +515     ;;21,"55045-2004-08 ")

 +516     ;;3754

 +517     ;;21,"55045-2372-05 ")

 +518     ;;3755

 +519     ;;21,"55045-2492-06 ")

 +520     ;;3756

 +521     ;;21,"55045-2597-01 ")

 +522     ;;3757

 +523     ;;21,"55045-2597-02 ")

 +524     ;;3758

 +525     ;;21,"55045-2597-03 ")

 +526     ;;3759

 +527     ;;21,"55045-2597-05 ")

 +528     ;;3760

 +529     ;;21,"55045-2597-06 ")

 +530     ;;3761

 +531     ;;21,"55045-2597-08 ")

 +532     ;;3762

 +533     ;;21,"55045-2598-03 ")

 +534     ;;3763

 +535     ;;21,"55045-3080-05 ")

 +536     ;;3764

 +537     ;;21,"55045-3080-07 ")

 +538     ;;3765

 +539     ;;21,"55045-3080-08 ")

 +540     ;;3766

 +541     ;;21,"55045-3081-07 ")

 +542     ;;3767

 +543     ;;21,"55045-3194-04 ")

 +544     ;;3768