BGPM5AIM.m

BGPM5AIM ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 2011;

 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106

 ;;BGPMU BETABLOCKER NDCS

 ;

 ; This routine loads Taxonomy BGPMU BETABLOCKER NDCS

 ;

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

 D OTHER

 I $O(^TMP("ATX",$J,3.6,0)) D BULL^ATXSTX2

 I $O(^TMP("ATX",$J,9002226,0)) D TAX^ATXSTX2

 D KILL^ATXSTX2

 Q

 ;

TMP ;;TAXONOMY (WITH BULLETIN)

 ;;21,"00003020750 ")

 ;;3447

 ;;21,"00003020753 ")

 ;;3448

 ;;21,"00003020767 ")

 ;;3449

 ;;21,"00003020776 ")

 ;;3450

 ;;21,"00003020850 ")

 ;;3451

 ;;21,"00003020876 ")

 ;;3452

 ;;21,"00003023215 ")

 ;;3453

 ;;21,"00003023250 ")

 ;;3454

 ;;21,"00003023251 ")

 ;;3455

 ;;21,"00003024150 ")

 ;;3456

 ;;21,"00003024155 ")

 ;;3457

 ;;21,"00003024176 ")

 ;;3458

 ;;21,"00003024649 ")

 ;;3459

 ;;21,"00003028316 ")

 ;;3460

 ;;21,"00003028350 ")

 ;;3461

 ;;21,"00003028450 ")

 ;;3462

 ;;21,"00005323423 ")

 ;;3463

 ;;21,"00005323538 ")

 ;;3464

 ;;21,"00005323823 ")

 ;;3465

 ;;21,"00005381638 ")

 ;;3466

 ;;21,"00005381738 ")

 ;;3467

 ;;21,"00006005968 ")

 ;;3468

 ;;21,"00006013668 ")

 ;;3469

 ;;21,"00006043768 ")

 ;;3470

 ;;21,"00007413906 ")

 ;;3471

 ;;21,"00007413920 ")

 ;;3472

 ;;21,"00007414020 ")

 ;;3473

 ;;21,"00007414120 ")

 ;;3474

 ;;21,"00007414220 ")

 ;;3475

 ;;21,"00015246201 ")

 ;;3476

 ;;21,"00015246202 ")

 ;;3477

 ;;21,"00015246203 ")

 ;;3478

 ;;21,"00024230020 ")

 ;;3479

 ;;21,"00024230110 ")

 ;;3480

 ;;21,"00025510131 ")

 ;;3481

 ;;21,"00025520131 ")

 ;;3482

 ;;21,"00028003501 ")

 ;;3483

 ;;21,"00028005101 ")

 ;;3484

 ;;21,"00028005110 ")

 ;;3485

 ;;21,"00028005114 ")

 ;;3486

 ;;21,"00028005136 ")

 ;;3487

 ;;21,"00028005161 ")

 ;;3488

 ;;21,"00028005165 ")

 ;;3489

 ;;21,"00028005301 ")

 ;;3490

 ;;21,"00028007101 ")

 ;;3491

 ;;21,"00028007110 ")

 ;;3492

 ;;21,"00028007114 ")

 ;;3493

 ;;21,"00028007161 ")

 ;;3494

 ;;21,"00028007165 ")

 ;;3495

 ;;21,"00028007173 ")

 ;;3496

 ;;21,"00028007301 ")

 ;;3497

 ;;21,"00028007339 ")

 ;;3498

 ;;21,"00028137100 ")

 ;;3499

 ;;21,"00028137200 ")

 ;;3500

 ;;21,"00028420133 ")

 ;;3501

 ;;21,"00046042681 ")

 ;;3502

 ;;21,"00046042881 ")

 ;;3503

 ;;21,"00046047081 ")

 ;;3504

 ;;21,"00046047181 ")

 ;;3505

 ;;21,"00046047381 ")

 ;;3506

 ;;21,"00046047981 ")

 ;;3507

 ;;21,"00046048481 ")

 ;;3508

 ;;21,"00046326510 ")

 ;;3509

 ;;21,"00054372763 ")

 ;;3510

 ;;21,"00054373063 ")

 ;;3511

 ;;21,"00074226705 ")

 ;;3512

 ;;21,"00074226711 ")

 ;;3513

 ;;21,"00074226720 ")

 ;;3514

 ;;21,"00074226734 ")

 ;;3515

 ;;21,"00078007305 ")

 ;;3516

 ;;21,"00078011105 ")

 ;;3517

 ;;21,"00078040001 ")

 ;;3518

 ;;21,"00078040061 ")

 ;;3519

 ;;21,"00078045805 ")

 ;;3520

 ;;21,"00078045809 ")

 ;;3521

 ;;21,"00078045905 ")

 ;;3522

 ;;21,"00078045909 ")

 ;;3523

 ;;21,"00078046005 ")

 ;;3524

 ;;21,"00078046105 ")

 ;;3525

 ;;21,"00078046205 ")

 ;;3526

 ;;21,"00078054605 ")

 ;;3527

 ;;21,"00078054609 ")

 ;;3528

 ;;21,"00078054705 ")

 ;;3529

 ;;21,"00078054709 ")

 ;;3530

 ;;21,"00078054805 ")

 ;;3531

 ;;21,"00078054905 ")

 ;;3532

 ;;21,"00078055005 ")

 ;;3533

 ;;21,"00078057605 ")

 ;;3534

 ;;21,"00078057705 ")

 ;;3535

 ;;21,"00078057805 ")

 ;;3536

 ;;21,"00083005101 ")

 ;;3537

 ;;21,"00085024404 ")

 ;;3538

 ;;21,"00085024405 ")

 ;;3539

 ;;21,"00085024407 ")

 ;;3540

 ;;21,"00085024408 ")

 ;;3541

 ;;21,"00085036206 ")

 ;;3542

 ;;21,"00085036207 ")

 ;;3543

 ;;21,"00085036208 ")

 ;;3544

 ;;21,"00085036209 ")

 ;;3545

 ;;21,"00085043803 ")

 ;;3546

 ;;21,"00085043805 ")

 ;;3547

 ;;21,"00085043806 ")

 ;;3548

 ;;21,"00085075204 ")

 ;;3549

 ;;21,"00085075205 ")

 ;;3550

 ;;21,"00085075207 ")

 ;;3551

 ;;21,"00085075208 ")

 ;;3552

 ;;21,"00091450015 ")

 ;;3553

 ;;21,"00093073301 ")

 ;;3554

 ;;21,"00093073310 ")

 ;;3555

 ;;21,"00093073401 ")

 ;;3556

 ;;21,"00093073410 ")

 ;;3557

 ;;21,"00093075201 ")

 ;;3558

 ;;21,"00093075210 ")

 ;;3559

 ;;21,"00093075301 ")

 ;;3560

 ;;21,"00093075305 ")

 ;;3561

 ;;21,"00093078701 ")

 ;;3562

 ;;21,"00093078710 ")

 ;;3563

 ;;21,"00093423501 ")

 ;;3564

 ;;21,"00093423601 ")

 ;;3565

 ;;21,"00093423701 ")

 ;;3566

 ;;21,"00093527056 ")

 ;;3567

 ;;21,"00093527156 ")

 ;;3568

 ;;21,"00131450015 ")

 ;;3569

 ;;21,"00143987201 ")

 ;;3570

 ;;21,"00143987301 ")

 ;;3571

 ;;21,"00143987310 ")

 ;;3572

 ;;21,"00172436400 ")

 ;;3573

 ;;21,"00172436410 ")

 ;;3574

 ;;21,"00172436460 ")

 ;;3575

 ;;21,"00172436470 ")

 ;;3576

 ;;21,"00172436500 ")

 ;;3577

 ;;21,"00172436510 ")

 ;;3578

 ;;21,"00172436560 ")

 ;;3579

 ;;21,"00172436570 ")

 ;;3580

 ;;21,"00172436660 ")

 ;;3581

 ;;21,"00172573060 ")

 ;;3582

 ;;21,"00172573070 ")

 ;;3583

 ;;21,"00172573160 ")

 ;;3584

 ;;21,"00172573170 ")

 ;;3585

 ;;21,"00172573260 ")

 ;;3586

 ;;21,"00172573270 ")

 ;;3587

 ;;21,"00173079001 ")

 ;;3588

 ;;21,"00173079002 ")

 ;;3589

 ;;21,"00173079101 ")

 ;;3590

 ;;21,"00173079102 ")

 ;;3591

 ;;21,"00179108802 ")

 ;;3592

 ;;21,"00179108902 ")

 ;;3593

 ;;21,"00179109002 ")

 ;;3594

 ;;21,"00179109102 ")

 ;;3595

 ;;21,"00179116501 ")

 ;;3596

 ;;21,"00179116530 ")

 ;;3597

 ;;21,"00179116550 ")

 ;;3598

 ;;21,"00179116560 ")

 ;;3599

 ;;21,"00179116590 ")

 ;;3600

 ;;21,"00179116601 ")

 ;;3601

 ;;21,"00179116630 ")

 ;;3602

 ;;21,"00179141701 ")

 ;;3603

 ;;21,"00179141730 ")

 ;;3604

 ;;21,"00179141750 ")

 ;;3605

 ;;21,"00179141760 ")

 ;;3606

 ;;21,"00179143901 ")

 ;;3607

 ;;21,"00179143930 ")

 ;;3608

 ;;21,"00179143950 ")

 ;;3609

 ;;21,"00179143960 ")

 ;;3610

 ;;21,"00179143990 ")

 ;;3611

 ;;21,"00179145201 ")

 ;;3612

 ;;21,"00179145230 ")

 ;;3613

 ;;21,"00179145250 ")

 ;;3614

 ;;21,"00179145260 ")

 ;;3615

 ;;21,"00179145290 ")

 ;;3616

 ;;21,"00179150101 ")

 ;;3617

 ;;21,"00179150130 ")

 ;;3618

 ;;21,"00179150160 ")

 ;;3619

 ;;21,"00179150170 ")

 ;;3620

 ;;21,"00179159770 ")

 ;;3621

 ;;21,"00179159771 ")

 ;;3622

 ;;21,"00179159772 ")

 ;;3623

 ;;21,"00179164870 ")

 ;;3624

 ;;21,"00179164871 ")

 ;;3625

 ;;21,"00179164872 ")

 ;;3626

 ;;21,"00179165170 ")

 ;;3627

 ;;21,"00179165171 ")

 ;;3628

 ;;21,"00179165172 ")

 ;;3629

 ;;21,"00179175670 ")

 ;;3630

 ;;21,"00179175671 ")

 ;;3631

 ;;21,"00179175672 ")

 ;;3632

 ;;21,"00179176070 ")

 ;;3633

 ;;21,"00179176071 ")

 ;;3634

 ;;21,"00179176072 ")

 ;;3635

 ;;21,"00179188470 ")

 ;;3636

 ;;21,"00179188471 ")

 ;;3637

 ;;21,"00179188472 ")

 ;;3638

 ;;21,"00179197401 ")

 ;;3639

 ;;21,"00179197430 ")

 ;;3640

 ;;21,"00179197450 ")

 ;;3641

 ;;21,"00179197460 ")

 ;;3642

 ;;21,"00179197490 ")

 ;;3643

 ;;21,"00179197501 ")

 ;;3644

 ;;21,"00179197530 ")

 ;;3645

 ;;21,"00179197550 ")

 ;;3646

 ;;21,"00179197560 ")

 ;;3647

 ;;21,"00179197590 ")

 ;;3648

 ;;21,"00182820200 ")

 ;;3649

 ;;21,"00182820289 ")

 ;;3650

 ;;21,"00182820300 ")

 ;;3651

 ;;21,"00182820389 ")

 ;;3652

 ;;21,"00182823589 ")

 ;;3653

 ;;21,"00182823689 ")

 ;;3654

 ;;21,"00185001001 ")

 ;;3655

 ;;21,"00185001005 ")

 ;;3656

 ;;21,"00185001010 ")

 ;;3657

 ;;21,"00185011701 ")

 ;;3658

 ;;21,"00185011705 ")

 ;;3659

 ;;21,"00185011710 ")

 ;;3660

 ;;21,"00185011801 ")

 ;;3661

 ;;21,"00185011805 ")

 ;;3662

 ;;21,"00185011810 ")

 ;;3663

 ;;21,"00185070101 ")

 ;;3664

 ;;21,"00185070105 ")

 ;;3665

 ;;21,"00185070130 ")

 ;;3666

 ;;21,"00185070401 ")

 ;;3667

 ;;21,"00185070405 ")

 ;;3668

 ;;21,"00185070430 ")

 ;;3669

 ;;21,"00185070701 ")

 ;;3670

 ;;21,"00185070705 ")

 ;;3671

 ;;21,"00185070730 ")

 ;;3672

 ;;21,"00185077101 ")

 ;;3673

 ;;21,"00185077130 ")

 ;;3674

 ;;21,"00185077401 ")

 ;;3675

 ;;21,"00185077430 ")

 ;;3676

 ;;21,"00186010810 ")

 ;;3677

 ;;21,"00186108805 ")

 ;;3678

 ;;21,"00186108839 ")

 ;;3679

 ;;21,"00186109005 ")

 ;;3680

 ;;21,"00186109039 ")

 ;;3681

 ;;21,"00186109050 ")

 ;;3682

 ;;21,"00186109205 ")

 ;;3683

 ;;21,"00186109239 ")

 ;;3684

 ;;21,"00186109405 ")

 ;;3685

 ;;21,"00228235810 ")

 ;;3686

 ;;21,"00228235850 ")

 ;;3687

 ;;21,"00228236010 ")

 ;;3688

 ;;21,"00228277802 ")

 ;;3689

 ;;21,"00228277811 ")

 ;;3690

 ;;21,"00228277850 ")

 ;;3691

 ;;21,"00228277902 ")

 ;;3692

 ;;21,"00228277911 ")

 ;;3693

 ;;21,"00228277950 ")

 ;;3694

 ;;21,"00228278002 ")

 ;;3695

 ;;21,"00228278011 ")

 ;;3696

 ;;21,"00228278050 ")

 ;;3697

 ;;21,"00228278102 ")

 ;;3698

 ;;21,"00228278111 ")

 ;;3699

 ;;21,"00228278150 ")

 ;;3700

 ;;21,"00245008401 ")

 ;;3701

 ;;21,"00245008410 ")

 ;;3702

 ;;21,"00245008411 ")

 ;;3703

 ;;21,"00245008489 ")

 ;;3704

 ;;21,"00245008501 ")

 ;;3705

 ;;21,"00245008510 ")

 ;;3706

 ;;21,"00245008511 ")

 ;;3707

 ;;21,"00245008589 ")

 ;;3708

 ;;21,"00245008601 ")

 ;;3709

 ;;21,"00245008610 ")

 ;;3710

 ;;21,"00245008611 ")

 ;;3711

 ;;21,"00245008689 ")

 ;;3712

 ;;21,"00245008701 ")

 ;;3713

 ;;21,"00245008710 ")

 ;;3714

 ;;21,"00245008711 ")

 ;;3715

 ;;21,"00245008789 ")

 ;;3716

 ;;21,"00247101230 ")

 ;;3717

 ;;21,"00247104430 ")

 ;;3718

 ;;21,"00247104460 ")

 ;;3719

 ;;21,"00247105160 ")

 ;;3720

 ;;21,"00247105199 ")

 ;;3721

 ;;21,"00247106500 ")

 ;;3722

 ;;21,"00247106560 ")

 ;;3723

 ;;21,"00247106577 ")

 ;;3724

 ;;21,"00247106590 ")

 ;;3725

 ;;21,"00247107200 ")

 ;;3726

 ;;21,"00247107206 ")

 ;;3727

 ;;21,"00247107214 ")

 ;;3728

 ;;21,"00247107290 ")

 ;;3729

 ;;21,"00247113330 ")

 ;;3730

 ;;21,"00247113360 ")

 ;;3731

 ;;21,"00247113430 ")

 ;;3732

 ;;21,"00247113460 ")

 ;;3733

 ;;21,"00247114602 ")

 ;;3734

 ;;21,"00247114607 ")

 ;;3735

 ;;21,"00247127330 ")

 ;;3736

 ;;21,"00247127399 ")

 ;;3737

 ;;21,"00247163430 ")

 ;;3738

 ;;21,"00247167130 ")

 ;;3739

 ;;21,"00247167230 ")

 ;;3740

 ;;21,"00247167330 ")

 ;;3741

 ;;21,"00247180100 ")

 ;;3742

 ;;21,"00247180130 ")

 ;;3743

 ;;21,"00247180160 ")

 ;;3744

 ;;21,"00247180177 ")

 ;;3745

 ;;21,"00247180190 ")

 ;;3746

 ;;21,"00247180200 ")

 ;;3747

 ;;21,"00247180230 ")

 ;;3748

 ;;21,"00247180260 ")

 ;;3749

 ;;21,"00247180277 ")

 ;;3750

 ;;21,"00247180290 ")

 ;;3751

 ;;21,"00247180300 ")

 ;;3752

 ;;21,"00247180330 ")

 ;;3753

 ;;21,"00247180360 ")

 ;;3754

 ;;21,"00247180377 ")

 ;;3755

 ;;21,"00247180390 ")

 ;;3756

 ;;21,"00247188700 ")

 ;;3757

 ;;21,"00247188730 ")

 ;;3758

 ;;21,"00247188760 ")

 ;;3759

 ;;21,"00247188777 ")

 ;;3760

 ;;21,"00247188790 ")

 ;;3761

 ;;21,"00247188800 ")

 ;;3762

 ;;21,"00247188830 ")

 ;;3763

 ;;21,"00247188860 ")

 ;;3764

 ;;21,"00247188877 ")

 ;;3765

 ;;21,"00247188890 ")

 ;;3766

 ;;21,"00247188900 ")

 ;;3767

 ;;21,"00247188930 ")

 ;;3768

 ;;21,"00247188960 ")

 ;;3769

 ;;21,"00247188977 ")

 ;;3770

 ;;21,"00247188990 ")

 ;;3771

 ;;21,"00247192300 ")

 ;;3772

 ;;21,"00247192360 ")

 ;;3773

 ;;21,"00247207630 ")

 ;;3774

 ;;21,"00247207660 ")

 ;;3775

 ;;21,"00247233100 ")

 ;;3776

 ;;21,"00247233130 ")

 ;;3777

 ;;21,"00247233160 ")

 ;;3778

 ;;21,"00247233177 ")

 ;;3779

 ;;21,"00247233190 ")

 ;;3780

 ;;21,"00247233200 ")

 ;;3781

 ;;21,"00247233230 ")

 ;;3782

 ;;21,"00247233260 ")

 ;;3783

 ;;21,"00247233277 ")

 ;;3784

 ;;21,"00247233290 ")

 ;;3785

 ;;21,"00247233300 ")

 ;;3786

 ;;21,"00247233330 ")

 ;;3787

 ;;21,"00247233360 ")

 ;;3788

 ;;21,"00247233377 ")

 ;;3789

 ;;21,"00247233390 ")

 ;;3790

 ;;21,"00247233400 ")

 ;;3791

 ;;21,"00247233430 ")

 ;;3792

 ;

OTHER ; OTHER ROUTINES

 D ^BGPM5AIN

 D ^BGPM5AIO

 D ^BGPM5AIP

 D ^BGPM5AIQ

 D ^BGPM5AIR

 D ^BGPM5AIS

 D ^BGPM5AIT

 D ^BGPM5AIU

 D ^BGPM5AIV

 D ^BGPM5AIW

 D ^BGPM5AIX

 D ^BGPM5AIY

 D ^BGPM5AIZ

 D ^BGPM5AJ

 D ^BGPM5AJA

 D ^BGPM5AJB

 D ^BGPM5AJC

 D ^BGPM5AJD

 D ^BGPM5AJE

 D ^BGPM5AJF

 D ^BGPM5AJG

 D ^BGPM5AJH

 D ^BGPM5AJI

 D ^BGPM5AJJ

 D ^BGPM5AJK

 D ^BGPM5AJL

 D ^BGPM5AJM

 D ^BGPM5AJN

 D ^BGPM5AJO

 D ^BGPM5AJP

 D ^BGPM5AJQ

 D ^BGPM5AJR

 D ^BGPM5AJS

 D ^BGPM5AJT

 D ^BGPM5AJU

 D ^BGPM5AJV

 D ^BGPM5AJW

 D ^BGPM5AJX

 D ^BGPM5AJY

 D ^BGPM5AJZ

 D ^BGPM5AK

 D ^BGPM5AKA

 D ^BGPM5AKB

 D ^BGPM5AKC

 D ^BGPM5AKD

 D ^BGPM5AKE

 D ^BGPM5AKF

 D ^BGPM5AKG

 D ^BGPM5AKH

 D ^BGPM5AKI

 D ^BGPM5AKJ

 D ^BGPM5AKK

 D ^BGPM5AKL

 Q

BGPM5AIM  ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 2011;

 +1       ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106

 +2       ;;BGPMU BETABLOCKER NDCS

 +3       ;

 +4       ; This routine loads Taxonomy BGPMU BETABLOCKER NDCS

 +5       ;

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        DO OTHER

 +5        IF $ORDER(^TMP("ATX",$JOB,3.6,0))

               DO BULL^ATXSTX2

 +6        IF $ORDER(^TMP("ATX",$JOB,9002226,0))

               DO TAX^ATXSTX2

 +7        DO KILL^ATXSTX2

 +8        QUIT 

 +9       ;

TMP       ;;TAXONOMY (WITH BULLETIN)

 +1       ;;21,"00003020750 ")

 +2       ;;3447

 +3       ;;21,"00003020753 ")

 +4       ;;3448

 +5       ;;21,"00003020767 ")

 +6       ;;3449

 +7       ;;21,"00003020776 ")

 +8       ;;3450

 +9       ;;21,"00003020850 ")

 +10      ;;3451

 +11      ;;21,"00003020876 ")

 +12      ;;3452

 +13      ;;21,"00003023215 ")

 +14      ;;3453

 +15      ;;21,"00003023250 ")

 +16      ;;3454

 +17      ;;21,"00003023251 ")

 +18      ;;3455

 +19      ;;21,"00003024150 ")

 +20      ;;3456

 +21      ;;21,"00003024155 ")

 +22      ;;3457

 +23      ;;21,"00003024176 ")

 +24      ;;3458

 +25      ;;21,"00003024649 ")

 +26      ;;3459

 +27      ;;21,"00003028316 ")

 +28      ;;3460

 +29      ;;21,"00003028350 ")

 +30      ;;3461

 +31      ;;21,"00003028450 ")

 +32      ;;3462

 +33      ;;21,"00005323423 ")

 +34      ;;3463

 +35      ;;21,"00005323538 ")

 +36      ;;3464

 +37      ;;21,"00005323823 ")

 +38      ;;3465

 +39      ;;21,"00005381638 ")

 +40      ;;3466

 +41      ;;21,"00005381738 ")

 +42      ;;3467

 +43      ;;21,"00006005968 ")

 +44      ;;3468

 +45      ;;21,"00006013668 ")

 +46      ;;3469

 +47      ;;21,"00006043768 ")

 +48      ;;3470

 +49      ;;21,"00007413906 ")

 +50      ;;3471

 +51      ;;21,"00007413920 ")

 +52      ;;3472

 +53      ;;21,"00007414020 ")

 +54      ;;3473

 +55      ;;21,"00007414120 ")

 +56      ;;3474

 +57      ;;21,"00007414220 ")

 +58      ;;3475

 +59      ;;21,"00015246201 ")

 +60      ;;3476

 +61      ;;21,"00015246202 ")

 +62      ;;3477

 +63      ;;21,"00015246203 ")

 +64      ;;3478

 +65      ;;21,"00024230020 ")

 +66      ;;3479

 +67      ;;21,"00024230110 ")

 +68      ;;3480

 +69      ;;21,"00025510131 ")

 +70      ;;3481

 +71      ;;21,"00025520131 ")

 +72      ;;3482

 +73      ;;21,"00028003501 ")

 +74      ;;3483

 +75      ;;21,"00028005101 ")

 +76      ;;3484

 +77      ;;21,"00028005110 ")

 +78      ;;3485

 +79      ;;21,"00028005114 ")

 +80      ;;3486

 +81      ;;21,"00028005136 ")

 +82      ;;3487

 +83      ;;21,"00028005161 ")

 +84      ;;3488

 +85      ;;21,"00028005165 ")

 +86      ;;3489

 +87      ;;21,"00028005301 ")

 +88      ;;3490

 +89      ;;21,"00028007101 ")

 +90      ;;3491

 +91      ;;21,"00028007110 ")

 +92      ;;3492

 +93      ;;21,"00028007114 ")

 +94      ;;3493

 +95      ;;21,"00028007161 ")

 +96      ;;3494

 +97      ;;21,"00028007165 ")

 +98      ;;3495

 +99      ;;21,"00028007173 ")

 +100     ;;3496

 +101     ;;21,"00028007301 ")

 +102     ;;3497

 +103     ;;21,"00028007339 ")

 +104     ;;3498

 +105     ;;21,"00028137100 ")

 +106     ;;3499

 +107     ;;21,"00028137200 ")

 +108     ;;3500

 +109     ;;21,"00028420133 ")

 +110     ;;3501

 +111     ;;21,"00046042681 ")

 +112     ;;3502

 +113     ;;21,"00046042881 ")

 +114     ;;3503

 +115     ;;21,"00046047081 ")

 +116     ;;3504

 +117     ;;21,"00046047181 ")

 +118     ;;3505

 +119     ;;21,"00046047381 ")

 +120     ;;3506

 +121     ;;21,"00046047981 ")

 +122     ;;3507

 +123     ;;21,"00046048481 ")

 +124     ;;3508

 +125     ;;21,"00046326510 ")

 +126     ;;3509

 +127     ;;21,"00054372763 ")

 +128     ;;3510

 +129     ;;21,"00054373063 ")

 +130     ;;3511

 +131     ;;21,"00074226705 ")

 +132     ;;3512

 +133     ;;21,"00074226711 ")

 +134     ;;3513

 +135     ;;21,"00074226720 ")

 +136     ;;3514

 +137     ;;21,"00074226734 ")

 +138     ;;3515

 +139     ;;21,"00078007305 ")

 +140     ;;3516

 +141     ;;21,"00078011105 ")

 +142     ;;3517

 +143     ;;21,"00078040001 ")

 +144     ;;3518

 +145     ;;21,"00078040061 ")

 +146     ;;3519

 +147     ;;21,"00078045805 ")

 +148     ;;3520

 +149     ;;21,"00078045809 ")

 +150     ;;3521

 +151     ;;21,"00078045905 ")

 +152     ;;3522

 +153     ;;21,"00078045909 ")

 +154     ;;3523

 +155     ;;21,"00078046005 ")

 +156     ;;3524

 +157     ;;21,"00078046105 ")

 +158     ;;3525

 +159     ;;21,"00078046205 ")

 +160     ;;3526

 +161     ;;21,"00078054605 ")

 +162     ;;3527

 +163     ;;21,"00078054609 ")

 +164     ;;3528

 +165     ;;21,"00078054705 ")

 +166     ;;3529

 +167     ;;21,"00078054709 ")

 +168     ;;3530

 +169     ;;21,"00078054805 ")

 +170     ;;3531

 +171     ;;21,"00078054905 ")

 +172     ;;3532

 +173     ;;21,"00078055005 ")

 +174     ;;3533

 +175     ;;21,"00078057605 ")

 +176     ;;3534

 +177     ;;21,"00078057705 ")

 +178     ;;3535

 +179     ;;21,"00078057805 ")

 +180     ;;3536

 +181     ;;21,"00083005101 ")

 +182     ;;3537

 +183     ;;21,"00085024404 ")

 +184     ;;3538

 +185     ;;21,"00085024405 ")

 +186     ;;3539

 +187     ;;21,"00085024407 ")

 +188     ;;3540

 +189     ;;21,"00085024408 ")

 +190     ;;3541

 +191     ;;21,"00085036206 ")

 +192     ;;3542

 +193     ;;21,"00085036207 ")

 +194     ;;3543

 +195     ;;21,"00085036208 ")

 +196     ;;3544

 +197     ;;21,"00085036209 ")

 +198     ;;3545

 +199     ;;21,"00085043803 ")

 +200     ;;3546

 +201     ;;21,"00085043805 ")

 +202     ;;3547

 +203     ;;21,"00085043806 ")

 +204     ;;3548

 +205     ;;21,"00085075204 ")

 +206     ;;3549

 +207     ;;21,"00085075205 ")

 +208     ;;3550

 +209     ;;21,"00085075207 ")

 +210     ;;3551

 +211     ;;21,"00085075208 ")

 +212     ;;3552

 +213     ;;21,"00091450015 ")

 +214     ;;3553

 +215     ;;21,"00093073301 ")

 +216     ;;3554

 +217     ;;21,"00093073310 ")

 +218     ;;3555

 +219     ;;21,"00093073401 ")

 +220     ;;3556

 +221     ;;21,"00093073410 ")

 +222     ;;3557

 +223     ;;21,"00093075201 ")

 +224     ;;3558

 +225     ;;21,"00093075210 ")

 +226     ;;3559

 +227     ;;21,"00093075301 ")

 +228     ;;3560

 +229     ;;21,"00093075305 ")

 +230     ;;3561

 +231     ;;21,"00093078701 ")

 +232     ;;3562

 +233     ;;21,"00093078710 ")

 +234     ;;3563

 +235     ;;21,"00093423501 ")

 +236     ;;3564

 +237     ;;21,"00093423601 ")

 +238     ;;3565

 +239     ;;21,"00093423701 ")

 +240     ;;3566

 +241     ;;21,"00093527056 ")

 +242     ;;3567

 +243     ;;21,"00093527156 ")

 +244     ;;3568

 +245     ;;21,"00131450015 ")

 +246     ;;3569

 +247     ;;21,"00143987201 ")

 +248     ;;3570

 +249     ;;21,"00143987301 ")

 +250     ;;3571

 +251     ;;21,"00143987310 ")

 +252     ;;3572

 +253     ;;21,"00172436400 ")

 +254     ;;3573

 +255     ;;21,"00172436410 ")

 +256     ;;3574

 +257     ;;21,"00172436460 ")

 +258     ;;3575

 +259     ;;21,"00172436470 ")

 +260     ;;3576

 +261     ;;21,"00172436500 ")

 +262     ;;3577

 +263     ;;21,"00172436510 ")

 +264     ;;3578

 +265     ;;21,"00172436560 ")

 +266     ;;3579

 +267     ;;21,"00172436570 ")

 +268     ;;3580

 +269     ;;21,"00172436660 ")

 +270     ;;3581

 +271     ;;21,"00172573060 ")

 +272     ;;3582

 +273     ;;21,"00172573070 ")

 +274     ;;3583

 +275     ;;21,"00172573160 ")

 +276     ;;3584

 +277     ;;21,"00172573170 ")

 +278     ;;3585

 +279     ;;21,"00172573260 ")

 +280     ;;3586

 +281     ;;21,"00172573270 ")

 +282     ;;3587

 +283     ;;21,"00173079001 ")

 +284     ;;3588

 +285     ;;21,"00173079002 ")

 +286     ;;3589

 +287     ;;21,"00173079101 ")

 +288     ;;3590

 +289     ;;21,"00173079102 ")

 +290     ;;3591

 +291     ;;21,"00179108802 ")

 +292     ;;3592

 +293     ;;21,"00179108902 ")

 +294     ;;3593

 +295     ;;21,"00179109002 ")

 +296     ;;3594

 +297     ;;21,"00179109102 ")

 +298     ;;3595

 +299     ;;21,"00179116501 ")

 +300     ;;3596

 +301     ;;21,"00179116530 ")

 +302     ;;3597

 +303     ;;21,"00179116550 ")

 +304     ;;3598

 +305     ;;21,"00179116560 ")

 +306     ;;3599

 +307     ;;21,"00179116590 ")

 +308     ;;3600

 +309     ;;21,"00179116601 ")

 +310     ;;3601

 +311     ;;21,"00179116630 ")

 +312     ;;3602

 +313     ;;21,"00179141701 ")

 +314     ;;3603

 +315     ;;21,"00179141730 ")

 +316     ;;3604

 +317     ;;21,"00179141750 ")

 +318     ;;3605

 +319     ;;21,"00179141760 ")

 +320     ;;3606

 +321     ;;21,"00179143901 ")

 +322     ;;3607

 +323     ;;21,"00179143930 ")

 +324     ;;3608

 +325     ;;21,"00179143950 ")

 +326     ;;3609

 +327     ;;21,"00179143960 ")

 +328     ;;3610

 +329     ;;21,"00179143990 ")

 +330     ;;3611

 +331     ;;21,"00179145201 ")

 +332     ;;3612

 +333     ;;21,"00179145230 ")

 +334     ;;3613

 +335     ;;21,"00179145250 ")

 +336     ;;3614

 +337     ;;21,"00179145260 ")

 +338     ;;3615

 +339     ;;21,"00179145290 ")

 +340     ;;3616

 +341     ;;21,"00179150101 ")

 +342     ;;3617

 +343     ;;21,"00179150130 ")

 +344     ;;3618

 +345     ;;21,"00179150160 ")

 +346     ;;3619

 +347     ;;21,"00179150170 ")

 +348     ;;3620

 +349     ;;21,"00179159770 ")

 +350     ;;3621

 +351     ;;21,"00179159771 ")

 +352     ;;3622

 +353     ;;21,"00179159772 ")

 +354     ;;3623

 +355     ;;21,"00179164870 ")

 +356     ;;3624

 +357     ;;21,"00179164871 ")

 +358     ;;3625

 +359     ;;21,"00179164872 ")

 +360     ;;3626

 +361     ;;21,"00179165170 ")

 +362     ;;3627

 +363     ;;21,"00179165171 ")

 +364     ;;3628

 +365     ;;21,"00179165172 ")

 +366     ;;3629

 +367     ;;21,"00179175670 ")

 +368     ;;3630

 +369     ;;21,"00179175671 ")

 +370     ;;3631

 +371     ;;21,"00179175672 ")

 +372     ;;3632

 +373     ;;21,"00179176070 ")

 +374     ;;3633

 +375     ;;21,"00179176071 ")

 +376     ;;3634

 +377     ;;21,"00179176072 ")

 +378     ;;3635

 +379     ;;21,"00179188470 ")

 +380     ;;3636

 +381     ;;21,"00179188471 ")

 +382     ;;3637

 +383     ;;21,"00179188472 ")

 +384     ;;3638

 +385     ;;21,"00179197401 ")

 +386     ;;3639

 +387     ;;21,"00179197430 ")

 +388     ;;3640

 +389     ;;21,"00179197450 ")

 +390     ;;3641

 +391     ;;21,"00179197460 ")

 +392     ;;3642

 +393     ;;21,"00179197490 ")

 +394     ;;3643

 +395     ;;21,"00179197501 ")

 +396     ;;3644

 +397     ;;21,"00179197530 ")

 +398     ;;3645

 +399     ;;21,"00179197550 ")

 +400     ;;3646

 +401     ;;21,"00179197560 ")

 +402     ;;3647

 +403     ;;21,"00179197590 ")

 +404     ;;3648

 +405     ;;21,"00182820200 ")

 +406     ;;3649

 +407     ;;21,"00182820289 ")

 +408     ;;3650

 +409     ;;21,"00182820300 ")

 +410     ;;3651

 +411     ;;21,"00182820389 ")

 +412     ;;3652

 +413     ;;21,"00182823589 ")

 +414     ;;3653

 +415     ;;21,"00182823689 ")

 +416     ;;3654

 +417     ;;21,"00185001001 ")

 +418     ;;3655

 +419     ;;21,"00185001005 ")

 +420     ;;3656

 +421     ;;21,"00185001010 ")

 +422     ;;3657

 +423     ;;21,"00185011701 ")

 +424     ;;3658

 +425     ;;21,"00185011705 ")

 +426     ;;3659

 +427     ;;21,"00185011710 ")

 +428     ;;3660

 +429     ;;21,"00185011801 ")

 +430     ;;3661

 +431     ;;21,"00185011805 ")

 +432     ;;3662

 +433     ;;21,"00185011810 ")

 +434     ;;3663

 +435     ;;21,"00185070101 ")

 +436     ;;3664

 +437     ;;21,"00185070105 ")

 +438     ;;3665

 +439     ;;21,"00185070130 ")

 +440     ;;3666

 +441     ;;21,"00185070401 ")

 +442     ;;3667

 +443     ;;21,"00185070405 ")

 +444     ;;3668

 +445     ;;21,"00185070430 ")

 +446     ;;3669

 +447     ;;21,"00185070701 ")

 +448     ;;3670

 +449     ;;21,"00185070705 ")

 +450     ;;3671

 +451     ;;21,"00185070730 ")

 +452     ;;3672

 +453     ;;21,"00185077101 ")

 +454     ;;3673

 +455     ;;21,"00185077130 ")

 +456     ;;3674

 +457     ;;21,"00185077401 ")

 +458     ;;3675

 +459     ;;21,"00185077430 ")

 +460     ;;3676

 +461     ;;21,"00186010810 ")

 +462     ;;3677

 +463     ;;21,"00186108805 ")

 +464     ;;3678

 +465     ;;21,"00186108839 ")

 +466     ;;3679

 +467     ;;21,"00186109005 ")

 +468     ;;3680

 +469     ;;21,"00186109039 ")

 +470     ;;3681

 +471     ;;21,"00186109050 ")

 +472     ;;3682

 +473     ;;21,"00186109205 ")

 +474     ;;3683

 +475     ;;21,"00186109239 ")

 +476     ;;3684

 +477     ;;21,"00186109405 ")

 +478     ;;3685

 +479     ;;21,"00228235810 ")

 +480     ;;3686

 +481     ;;21,"00228235850 ")

 +482     ;;3687

 +483     ;;21,"00228236010 ")

 +484     ;;3688

 +485     ;;21,"00228277802 ")

 +486     ;;3689

 +487     ;;21,"00228277811 ")

 +488     ;;3690

 +489     ;;21,"00228277850 ")

 +490     ;;3691

 +491     ;;21,"00228277902 ")

 +492     ;;3692

 +493     ;;21,"00228277911 ")

 +494     ;;3693

 +495     ;;21,"00228277950 ")

 +496     ;;3694

 +497     ;;21,"00228278002 ")

 +498     ;;3695

 +499     ;;21,"00228278011 ")

 +500     ;;3696

 +501     ;;21,"00228278050 ")

 +502     ;;3697

 +503     ;;21,"00228278102 ")

 +504     ;;3698

 +505     ;;21,"00228278111 ")

 +506     ;;3699

 +507     ;;21,"00228278150 ")

 +508     ;;3700

 +509     ;;21,"00245008401 ")

 +510     ;;3701

 +511     ;;21,"00245008410 ")

 +512     ;;3702

 +513     ;;21,"00245008411 ")

 +514     ;;3703

 +515     ;;21,"00245008489 ")

 +516     ;;3704

 +517     ;;21,"00245008501 ")

 +518     ;;3705

 +519     ;;21,"00245008510 ")

 +520     ;;3706

 +521     ;;21,"00245008511 ")

 +522     ;;3707

 +523     ;;21,"00245008589 ")

 +524     ;;3708

 +525     ;;21,"00245008601 ")

 +526     ;;3709

 +527     ;;21,"00245008610 ")

 +528     ;;3710

 +529     ;;21,"00245008611 ")

 +530     ;;3711

 +531     ;;21,"00245008689 ")

 +532     ;;3712

 +533     ;;21,"00245008701 ")

 +534     ;;3713

 +535     ;;21,"00245008710 ")

 +536     ;;3714

 +537     ;;21,"00245008711 ")

 +538     ;;3715

 +539     ;;21,"00245008789 ")

 +540     ;;3716

 +541     ;;21,"00247101230 ")

 +542     ;;3717

 +543     ;;21,"00247104430 ")

 +544     ;;3718

 +545     ;;21,"00247104460 ")

 +546     ;;3719

 +547     ;;21,"00247105160 ")

 +548     ;;3720

 +549     ;;21,"00247105199 ")

 +550     ;;3721

 +551     ;;21,"00247106500 ")

 +552     ;;3722

 +553     ;;21,"00247106560 ")

 +554     ;;3723

 +555     ;;21,"00247106577 ")

 +556     ;;3724

 +557     ;;21,"00247106590 ")

 +558     ;;3725

 +559     ;;21,"00247107200 ")

 +560     ;;3726

 +561     ;;21,"00247107206 ")

 +562     ;;3727

 +563     ;;21,"00247107214 ")

 +564     ;;3728

 +565     ;;21,"00247107290 ")

 +566     ;;3729

 +567     ;;21,"00247113330 ")

 +568     ;;3730

 +569     ;;21,"00247113360 ")

 +570     ;;3731

 +571     ;;21,"00247113430 ")

 +572     ;;3732

 +573     ;;21,"00247113460 ")

 +574     ;;3733

 +575     ;;21,"00247114602 ")

 +576     ;;3734

 +577     ;;21,"00247114607 ")

 +578     ;;3735

 +579     ;;21,"00247127330 ")

 +580     ;;3736

 +581     ;;21,"00247127399 ")

 +582     ;;3737

 +583     ;;21,"00247163430 ")

 +584     ;;3738

 +585     ;;21,"00247167130 ")

 +586     ;;3739

 +587     ;;21,"00247167230 ")

 +588     ;;3740

 +589     ;;21,"00247167330 ")

 +590     ;;3741

 +591     ;;21,"00247180100 ")

 +592     ;;3742

 +593     ;;21,"00247180130 ")

 +594     ;;3743

 +595     ;;21,"00247180160 ")

 +596     ;;3744

 +597     ;;21,"00247180177 ")

 +598     ;;3745

 +599     ;;21,"00247180190 ")

 +600     ;;3746

 +601     ;;21,"00247180200 ")

 +602     ;;3747

 +603     ;;21,"00247180230 ")

 +604     ;;3748

 +605     ;;21,"00247180260 ")

 +606     ;;3749

 +607     ;;21,"00247180277 ")

 +608     ;;3750

 +609     ;;21,"00247180290 ")

 +610     ;;3751

 +611     ;;21,"00247180300 ")

 +612     ;;3752

 +613     ;;21,"00247180330 ")

 +614     ;;3753

 +615     ;;21,"00247180360 ")

 +616     ;;3754

 +617     ;;21,"00247180377 ")

 +618     ;;3755

 +619     ;;21,"00247180390 ")

 +620     ;;3756

 +621     ;;21,"00247188700 ")

 +622     ;;3757

 +623     ;;21,"00247188730 ")

 +624     ;;3758

 +625     ;;21,"00247188760 ")

 +626     ;;3759

 +627     ;;21,"00247188777 ")

 +628     ;;3760

 +629     ;;21,"00247188790 ")

 +630     ;;3761

 +631     ;;21,"00247188800 ")

 +632     ;;3762

 +633     ;;21,"00247188830 ")

 +634     ;;3763

 +635     ;;21,"00247188860 ")

 +636     ;;3764

 +637     ;;21,"00247188877 ")

 +638     ;;3765

 +639     ;;21,"00247188890 ")

 +640     ;;3766

 +641     ;;21,"00247188900 ")

 +642     ;;3767

 +643     ;;21,"00247188930 ")

 +644     ;;3768

 +645     ;;21,"00247188960 ")

 +646     ;;3769

 +647     ;;21,"00247188977 ")

 +648     ;;3770

 +649     ;;21,"00247188990 ")

 +650     ;;3771

 +651     ;;21,"00247192300 ")

 +652     ;;3772

 +653     ;;21,"00247192360 ")

 +654     ;;3773

 +655     ;;21,"00247207630 ")

 +656     ;;3774

 +657     ;;21,"00247207660 ")

 +658     ;;3775

 +659     ;;21,"00247233100 ")

 +660     ;;3776

 +661     ;;21,"00247233130 ")

 +662     ;;3777

 +663     ;;21,"00247233160 ")

 +664     ;;3778

 +665     ;;21,"00247233177 ")

 +666     ;;3779

 +667     ;;21,"00247233190 ")

 +668     ;;3780

 +669     ;;21,"00247233200 ")

 +670     ;;3781

 +671     ;;21,"00247233230 ")

 +672     ;;3782

 +673     ;;21,"00247233260 ")

 +674     ;;3783

 +675     ;;21,"00247233277 ")

 +676     ;;3784

 +677     ;;21,"00247233290 ")

 +678     ;;3785

 +679     ;;21,"00247233300 ")

 +680     ;;3786

 +681     ;;21,"00247233330 ")

 +682     ;;3787

 +683     ;;21,"00247233360 ")

 +684     ;;3788

 +685     ;;21,"00247233377 ")

 +686     ;;3789

 +687     ;;21,"00247233390 ")

 +688     ;;3790

 +689     ;;21,"00247233400 ")

 +690     ;;3791

 +691     ;;21,"00247233430 ")

 +692     ;;3792

 +693     ;

OTHER     ; OTHER ROUTINES

 +1        DO ^BGPM5AIN

 +2        DO ^BGPM5AIO

 +3        DO ^BGPM5AIP

 +4        DO ^BGPM5AIQ

 +5        DO ^BGPM5AIR

 +6        DO ^BGPM5AIS

 +7        DO ^BGPM5AIT

 +8        DO ^BGPM5AIU

 +9        DO ^BGPM5AIV

 +10       DO ^BGPM5AIW

 +11       DO ^BGPM5AIX

 +12       DO ^BGPM5AIY

 +13       DO ^BGPM5AIZ

 +14       DO ^BGPM5AJ

 +15       DO ^BGPM5AJA

 +16       DO ^BGPM5AJB

 +17       DO ^BGPM5AJC

 +18       DO ^BGPM5AJD

 +19       DO ^BGPM5AJE

 +20       DO ^BGPM5AJF

 +21       DO ^BGPM5AJG

 +22       DO ^BGPM5AJH

 +23       DO ^BGPM5AJI

 +24       DO ^BGPM5AJJ

 +25       DO ^BGPM5AJK

 +26       DO ^BGPM5AJL

 +27       DO ^BGPM5AJM

 +28       DO ^BGPM5AJN

 +29       DO ^BGPM5AJO

 +30       DO ^BGPM5AJP

 +31       DO ^BGPM5AJQ

 +32       DO ^BGPM5AJR

 +33       DO ^BGPM5AJS

 +34       DO ^BGPM5AJT

 +35       DO ^BGPM5AJU

 +36       DO ^BGPM5AJV

 +37       DO ^BGPM5AJW

 +38       DO ^BGPM5AJX

 +39       DO ^BGPM5AJY

 +40       DO ^BGPM5AJZ

 +41       DO ^BGPM5AK

 +42       DO ^BGPM5AKA

 +43       DO ^BGPM5AKB

 +44       DO ^BGPM5AKC

 +45       DO ^BGPM5AKD

 +46       DO ^BGPM5AKE

 +47       DO ^BGPM5AKF

 +48       DO ^BGPM5AKG

 +49       DO ^BGPM5AKH

 +50       DO ^BGPM5AKI

 +51       DO ^BGPM5AKJ

 +52       DO ^BGPM5AKK

 +53       DO ^BGPM5AKL

 +54       QUIT