BGPM5AGB.m

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

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

 ;

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,"67544037760 ")

 ;;3402

 ;;21,"67544038030 ")

 ;;3403

 ;;21,"67544038060 ")

 ;;3404

 ;;21,"67544038115 ")

 ;;3405

 ;;21,"67544038130 ")

 ;;3406

 ;;21,"67544038145 ")

 ;;3407

 ;;21,"67544038153 ")

 ;;3408

 ;;21,"67544038160 ")

 ;;3409

 ;;21,"67544038170 ")

 ;;3410

 ;;21,"67544038173 ")

 ;;3411

 ;;21,"67544038180 ")

 ;;3412

 ;;21,"67544038192 ")

 ;;3413

 ;;21,"67544038194 ")

 ;;3414

 ;;21,"67544041860 ")

 ;;3415

 ;;21,"67544043115 ")

 ;;3416

 ;;21,"67544043130 ")

 ;;3417

 ;;21,"67544043145 ")

 ;;3418

 ;;21,"67544043153 ")

 ;;3419

 ;;21,"67544043160 ")

 ;;3420

 ;;21,"67544043170 ")

 ;;3421

 ;;21,"67544043173 ")

 ;;3422

 ;;21,"67544043180 ")

 ;;3423

 ;;21,"67544043192 ")

 ;;3424

 ;;21,"67544043194 ")

 ;;3425

 ;;21,"67544045415 ")

 ;;3426

 ;;21,"67544045430 ")

 ;;3427

 ;;21,"67544045440 ")

 ;;3428

 ;;21,"67544045445 ")

 ;;3429

 ;;21,"67544045460 ")

 ;;3430

 ;;21,"67544048915 ")

 ;;3431

 ;;21,"67544048930 ")

 ;;3432

 ;;21,"67544048960 ")

 ;;3433

 ;;21,"67544055930 ")

 ;;3434

 ;;21,"67544055932 ")

 ;;3435

 ;;21,"67544062131 ")

 ;;3436

 ;;21,"67544062145 ")

 ;;3437

 ;;21,"67544062160 ")

 ;;3438

 ;;21,"67544066731 ")

 ;;3439

 ;;21,"67544066760 ")

 ;;3440

 ;;21,"67544067832 ")

 ;;3441

 ;;21,"67544067845 ")

 ;;3442

 ;;21,"67544067860 ")

 ;;3443

 ;;21,"67544068731 ")

 ;;3444

 ;;21,"67544068732 ")

 ;;3445

 ;;21,"67544070531 ")

 ;;3446

 ;;21,"67544070631 ")

 ;;3447

 ;;21,"67544071132 ")

 ;;3448

 ;;21,"67544071731 ")

 ;;3449

 ;;21,"67544072431 ")

 ;;3450

 ;;21,"67544077932 ")

 ;;3451

 ;;21,"67544081832 ")

 ;;3452

 ;;21,"67544086131 ")

 ;;3453

 ;;21,"67544086132 ")

 ;;3454

 ;;21,"67544086832 ")

 ;;3455

 ;;21,"67544093330 ")

 ;;3456

 ;;21,"67544096032 ")

 ;;3457

 ;;21,"67544099730 ")

 ;;3458

 ;;21,"67544099760 ")

 ;;3459

 ;;21,"67544099960 ")

 ;;3460

 ;;21,"67544099980 ")

 ;;3461

 ;;21,"67651001801 ")

 ;;3462

 ;;21,"67651001805 ")

 ;;3463

 ;;21,"67651001901 ")

 ;;3464

 ;;21,"67651001905 ")

 ;;3465

 ;;21,"67651002001 ")

 ;;3466

 ;;21,"67651002005 ")

 ;;3467

 ;;21,"67651002101 ")

 ;;3468

 ;;21,"67651002105 ")

 ;;3469

 ;;21,"67787020005 ")

 ;;3470

 ;;21,"67787020010 ")

 ;;3471

 ;;21,"67787020090 ")

 ;;3472

 ;;21,"67787020105 ")

 ;;3473

 ;;21,"67787020110 ")

 ;;3474

 ;;21,"67787020190 ")

 ;;3475

 ;;21,"67787020210 ")

 ;;3476

 ;;21,"67787020290 ")

 ;;3477

 ;;21,"67787022901 ")

 ;;3478

 ;;21,"67787023001 ")

 ;;3479

 ;;21,"67787026790 ")

 ;;3480

 ;;21,"67787026890 ")

 ;;3481

 ;;21,"67787026990 ")

 ;;3482

 ;;21,"67787027090 ")

 ;;3483

 ;;21,"67787027101 ")

 ;;3484

 ;;21,"67787027110 ")

 ;;3485

 ;;21,"67787027201 ")

 ;;3486

 ;;21,"67787027210 ")

 ;;3487

 ;;21,"67787027301 ")

 ;;3488

 ;;21,"67787027305 ")

 ;;3489

 ;;21,"67787027310 ")

 ;;3490

 ;;21,"67787027401 ")

 ;;3491

 ;;21,"67787027405 ")

 ;;3492

 ;;21,"67787027410 ")

 ;;3493

 ;;21,"68071004845 ")

 ;;3494

 ;;21,"68071009530 ")

 ;;3495

 ;;21,"68071010430 ")

 ;;3496

 ;;21,"68071015330 ")

 ;;3497

 ;;21,"68071015360 ")

 ;;3498

 ;;21,"68071015390 ")

 ;;3499

 ;;21,"68071015745 ")

 ;;3500

 ;;21,"68071015790 ")

 ;;3501

 ;;21,"68071015792 ")

 ;;3502

 ;;21,"68071021692 ")

 ;;3503

 ;;21,"68071039030 ")

 ;;3504

 ;;21,"68071043612 ")

 ;;3505

 ;;21,"68071049330 ")

 ;;3506

 ;;21,"68071076928 ")

 ;;3507

 ;;21,"68071077130 ")

 ;;3508

 ;;21,"68084005801 ")

 ;;3509

 ;;21,"68084006001 ")

 ;;3510

 ;;21,"68084006011 ")

 ;;3511

 ;;21,"68084006101 ")

 ;;3512

 ;;21,"68084006111 ")

 ;;3513

 ;;21,"68084006201 ")

 ;;3514

 ;;21,"68084006211 ")

 ;;3515

 ;;21,"68084006401 ")

 ;;3516

 ;;21,"68084006411 ")

 ;;3517

 ;;21,"68084009800 ")

 ;;3518

 ;;21,"68084009806 ")

 ;;3519

 ;;21,"68084009900 ")

 ;;3520

 ;;21,"68084009906 ")

 ;;3521

 ;;21,"68084026601 ")

 ;;3522

 ;;21,"68084026611 ")

 ;;3523

 ;;21,"68084026701 ")

 ;;3524

 ;;21,"68084026711 ")

 ;;3525

 ;;21,"68084026801 ")

 ;;3526

 ;;21,"68084026811 ")

 ;;3527

 ;;21,"68084029411 ")

 ;;3528

 ;;21,"68084029421 ")

 ;;3529

 ;;21,"68084039001 ")

 ;;3530

 ;;21,"68084039011 ")

 ;;3531

 ;;21,"68084039101 ")

 ;;3532

 ;;21,"68084039111 ")

 ;;3533

 ;;21,"68084039201 ")

 ;;3534

 ;;21,"68084039211 ")

 ;;3535

 ;;21,"68115012715 ")

 ;;3536

 ;;21,"68115012860 ")

 ;;3537

 ;;21,"68115012890 ")

 ;;3538

 ;;21,"68115036330 ")

 ;;3539

 ;;21,"68180023501 ")

 ;;3540

 ;;21,"68180023601 ")

 ;;3541

 ;;21,"68180023701 ")

 ;;3542

 ;;21,"68180051201 ")

 ;;3543

 ;;21,"68180051202 ")

 ;;3544

 ;;21,"68180051203 ")

 ;;3545

 ;;21,"68180051209 ")

 ;;3546

 ;;21,"68180051230 ")

 ;;3547

 ;;21,"68180051301 ")

 ;;3548

 ;;21,"68180051302 ")

 ;;3549

 ;;21,"68180051303 ")

 ;;3550

 ;;21,"68180051304 ")

 ;;3551

 ;;21,"68180051305 ")

 ;;3552

 ;;21,"68180051309 ")

 ;;3553

 ;;21,"68180051330 ")

 ;;3554

 ;;21,"68180051401 ")

 ;;3555

 ;;21,"68180051402 ")

 ;;3556

 ;;21,"68180051403 ")

 ;;3557

 ;;21,"68180051404 ")

 ;;3558

 ;;21,"68180051405 ")

 ;;3559

 ;;21,"68180051409 ")

 ;;3560

 ;;21,"68180051430 ")

 ;;3561

 ;;21,"68180051501 ")

 ;;3562

 ;;21,"68180051502 ")

 ;;3563

 ;;21,"68180051503 ")

 ;;3564

 ;;21,"68180051504 ")

 ;;3565

 ;;21,"68180051505 ")

 ;;3566

 ;;21,"68180051509 ")

 ;;3567

 ;;21,"68180051530 ")

 ;;3568

 ;;21,"68180051601 ")

 ;;3569

 ;;21,"68180051602 ")

 ;;3570

 ;;21,"68180051603 ")

 ;;3571

 ;;21,"68180051609 ")

 ;;3572

 ;;21,"68180051630 ")

 ;;3573

 ;;21,"68180051701 ")

 ;;3574

 ;;21,"68180051702 ")

 ;;3575

 ;;21,"68180051703 ")

 ;;3576

 ;;21,"68180051704 ")

 ;;3577

 ;;21,"68180051709 ")

 ;;3578

 ;;21,"68180051730 ")

 ;;3579

 ;;21,"68180051790 ")

 ;;3580

 ;;21,"68180051801 ")

 ;;3581

 ;;21,"68180051802 ")

 ;;3582

 ;;21,"68180051830 ")

 ;;3583

 ;;21,"68180051901 ")

 ;;3584

 ;;21,"68180051902 ")

 ;;3585

 ;;21,"68180051930 ")

 ;;3586

 ;;21,"68180052001 ")

 ;;3587

 ;;21,"68180052002 ")

 ;;3588

 ;;21,"68180052030 ")

 ;;3589

 ;;21,"68180055609 ")

 ;;3590

 ;;21,"68180055703 ")

 ;;3591

 ;;21,"68180055709 ")

 ;;3592

 ;;21,"68180055803 ")

 ;;3593

 ;;21,"68180055809 ")

 ;;3594

 ;;21,"68180055903 ")

 ;;3595

 ;;21,"68180055909 ")

 ;;3596

 ;;21,"68180056601 ")

 ;;3597

 ;;21,"68180056701 ")

 ;;3598

 ;;21,"68180058801 ")

 ;;3599

 ;;21,"68180058802 ")

 ;;3600

 ;;21,"68180058901 ")

 ;;3601

 ;;21,"68180058902 ")

 ;;3602

 ;;21,"68180058909 ")

 ;;3603

 ;;21,"68180059001 ")

 ;;3604

 ;;21,"68180059002 ")

 ;;3605

 ;;21,"68180059009 ")

 ;;3606

 ;;21,"68180059101 ")

 ;;3607

 ;;21,"68180059102 ")

 ;;3608

 ;;21,"68180059109 ")

 ;;3609

 ;;21,"68382014401 ")

 ;;3610

 ;;21,"68382014405 ")

 ;;3611

 ;;21,"68382014406 ")

 ;;3612

 ;;21,"68382014416 ")

 ;;3613

 ;;21,"68382014430 ")

 ;;3614

 ;;21,"68382014501 ")

 ;;3615

 ;;21,"68382014505 ")

 ;;3616

 ;;21,"68382014506 ")

 ;;3617

 ;;21,"68382014516 ")

 ;;3618

 ;;21,"68382014530 ")

 ;;3619

 ;;21,"68382014601 ")

 ;;3620

 ;;21,"68382014605 ")

 ;;3621

 ;;21,"68382014606 ")

 ;;3622

 ;;21,"68382014616 ")

 ;;3623

 ;;21,"68382014630 ")

 ;;3624

 ;;21,"68382014701 ")

 ;;3625

 ;;21,"68382014705 ")

 ;;3626

 ;;21,"68382014706 ")

 ;;3627

 ;;21,"68382014716 ")

 ;;3628

 ;;21,"68382014730 ")

 ;;3629

 ;;21,"68387052110 ")

 ;;3630

 ;;21,"68387054330 ")

 ;;3631

 ;;21,"68462020501 ")

 ;;3632

 ;;21,"68462020510 ")

 ;;3633

 ;;21,"68462020530 ")

 ;;3634

 ;;21,"68462020601 ")

 ;;3635

 ;;21,"68462020610 ")

 ;;3636

 ;;21,"68462020630 ")

 ;;3637

 ;;21,"68462020701 ")

 ;;3638

 ;;21,"68462020710 ")

 ;;3639

 ;;21,"68462020730 ")

 ;;3640

 ;;21,"68462020801 ")

 ;;3641

 ;;21,"68462020810 ")

 ;;3642

 ;;21,"68462020890 ")

 ;;3643

 ;;21,"68462020901 ")

 ;;3644

 ;;21,"68462020910 ")

 ;;3645

 ;;21,"68462020990 ")

 ;;3646

 ;;21,"68462036705 ")

 ;;3647

 ;;21,"68462036710 ")

 ;;3648

 ;;21,"68462036790 ")

 ;;3649

 ;;21,"68462036805 ")

 ;;3650

 ;;21,"68462036810 ")

 ;;3651

 ;;21,"68462036890 ")

 ;;3652

 ;;21,"68462036910 ")

 ;;3653

 ;;21,"68462036990 ")

 ;;3654

 ;;21,"68462055401 ")

 ;;3655

 ;;21,"68462055410 ")

 ;;3656

 ;;21,"68462055430 ")

 ;;3657

 ;;21,"68462055501 ")

 ;;3658

 ;;21,"68462055510 ")

 ;;3659

 ;;21,"68462055530 ")

 ;;3660

 ;;21,"68505251002 ")

 ;;3661

 ;;21,"68505251004 ")

 ;;3662

 ;;21,"68533004200 ")

 ;;3663

 ;;21,"68533004212 ")

 ;;3664

 ;;21,"68533004225 ")

 ;;3665

 ;;21,"68533004240 ")

 ;;3666

 ;;21,"68533004300 ")

 ;;3667

 ;;21,"68533004312 ")

 ;;3668

 ;;21,"68533004325 ")

 ;;3669

 ;;21,"68533004340 ")

 ;;3670

 ;;21,"68533004400 ")

 ;;3671

 ;;21,"68533004412 ")

 ;;3672

 ;;21,"68533004425 ")

 ;;3673

 ;;21,"68533004440 ")

 ;;3674

 ;;21,"68533006500 ")

 ;;3675

 ;;21,"68533006512 ")

 ;;3676

 ;;21,"68533006540 ")

 ;;3677

 ;;21,"68533006548 ")

 ;;3678

 ;;21,"68533006600 ")

 ;;3679

 ;;21,"68533006612 ")

 ;;3680

 ;;21,"68533006640 ")

 ;;3681

 ;;21,"68533006648 ")

 ;;3682

 ;;21,"68552022110 ")

 ;;3683

 ;;21,"68552022190 ")

 ;;3684

 ;;21,"68552022210 ")

 ;;3685

 ;;21,"68552022290 ")

 ;;3686

 ;;21,"68552022310 ")

 ;;3687

 ;;21,"68552022390 ")

 ;;3688

 ;;21,"68645016059 ")

 ;;3689

 ;;21,"68645016159 ")

 ;;3690

 ;;21,"68645016259 ")

 ;;3691

 ;;21,"68645016359 ")

 ;;3692

 ;;21,"68645027254 ")

 ;;3693

 ;;21,"68788006703 ")

 ;;3694

 ;;21,"68788006706 ")

 ;;3695

 ;;21,"68788006709 ")

 ;;3696

 ;;21,"68788010203 ")

 ;;3697

 ;;21,"68788010206 ")

 ;;3698

 ;;21,"68788010209 ")

 ;;3699

 ;;21,"68788036003 ")

 ;;3700

 ;;21,"68788036006 ")

 ;;3701

 ;;21,"68788036009 ")

 ;;3702

 ;;21,"68788056101 ")

 ;;3703

 ;;21,"68788056103 ")

 ;;3704

 ;;21,"68788056106 ")

 ;;3705

 ;;21,"68788056109 ")

 ;;3706

 ;;21,"68788083503 ")

 ;;3707

 ;;21,"68788083506 ")

 ;;3708

 ;;21,"68788083509 ")

 ;;3709

 ;;21,"68788083603 ")

 ;;3710

 ;;21,"68788083606 ")

 ;;3711

 ;;21,"68788083609 ")

 ;;3712

 ;;21,"68788083703 ")

 ;;3713

 ;;21,"68788083706 ")

 ;;3714

 ;;21,"68788083709 ")

 ;;3715

 ;;21,"68788084301 ")

 ;;3716

 ;;21,"68788084303 ")

 ;;3717

 ;;21,"68788084306 ")

 ;;3718

 ;;21,"68788084309 ")

 ;;3719

 ;;21,"68788092403 ")

 ;;3720

 ;;21,"68788092406 ")

 ;;3721

 ;;21,"68788092409 ")

 ;;3722

 ;;21,"68788092503 ")

 ;;3723

 ;;21,"68788092506 ")

 ;;3724

 ;;21,"68788092509 ")

 ;;3725

 ;;21,"68788092903 ")

 ;;3726

 ;;21,"68788092906 ")

 ;;3727

 ;;21,"68788092909 ")

 ;;3728

 ;;21,"68788117203 ")

 ;;3729

 ;;21,"68788117209 ")

 ;;3730

 ;;21,"68788234200 ")

 ;;3731

 ;;21,"68788234203 ")

 ;;3732

 ;;21,"68788234206 ")

 ;;3733

 ;;21,"68788234209 ")

 ;;3734

 ;;21,"68788376003 ")

 ;;3735

 ;;21,"68788376006 ")

 ;;3736

 ;;21,"68788376009 ")

 ;;3737

 ;;21,"68788376203 ")

 ;;3738

 ;;21,"68788376206 ")

 ;;3739

 ;;21,"68788376209 ")

 ;;3740

 ;;21,"68788540003 ")

 ;;3741

 ;;21,"68788540006 ")

 ;;3742

 ;;21,"68788540009 ")

 ;;3743

 ;;21,"68788999401 ")

 ;;3744

 ;;21,"68788999403 ")

 ;;3745

 ;;21,"68788999406 ")

 ;;3746

 ;;21,"68788999409 ")

 ;;3747

 ;;21,"68966207301 ")

 ;;3748

 ;;9002226,882,.01)

 ;;BGPMU DIAB ARB NDCS

 ;;9002226,882,.02)

 ;;Diabetes ACE/ARB NDCs

 ;;9002226,882,.04)

 ;;@

 ;;9002226,882,.06)

 ;;@

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

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

 +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,"67544037760 ")

 +2       ;;3402

 +3       ;;21,"67544038030 ")

 +4       ;;3403

 +5       ;;21,"67544038060 ")

 +6       ;;3404

 +7       ;;21,"67544038115 ")

 +8       ;;3405

 +9       ;;21,"67544038130 ")

 +10      ;;3406

 +11      ;;21,"67544038145 ")

 +12      ;;3407

 +13      ;;21,"67544038153 ")

 +14      ;;3408

 +15      ;;21,"67544038160 ")

 +16      ;;3409

 +17      ;;21,"67544038170 ")

 +18      ;;3410

 +19      ;;21,"67544038173 ")

 +20      ;;3411

 +21      ;;21,"67544038180 ")

 +22      ;;3412

 +23      ;;21,"67544038192 ")

 +24      ;;3413

 +25      ;;21,"67544038194 ")

 +26      ;;3414

 +27      ;;21,"67544041860 ")

 +28      ;;3415

 +29      ;;21,"67544043115 ")

 +30      ;;3416

 +31      ;;21,"67544043130 ")

 +32      ;;3417

 +33      ;;21,"67544043145 ")

 +34      ;;3418

 +35      ;;21,"67544043153 ")

 +36      ;;3419

 +37      ;;21,"67544043160 ")

 +38      ;;3420

 +39      ;;21,"67544043170 ")

 +40      ;;3421

 +41      ;;21,"67544043173 ")

 +42      ;;3422

 +43      ;;21,"67544043180 ")

 +44      ;;3423

 +45      ;;21,"67544043192 ")

 +46      ;;3424

 +47      ;;21,"67544043194 ")

 +48      ;;3425

 +49      ;;21,"67544045415 ")

 +50      ;;3426

 +51      ;;21,"67544045430 ")

 +52      ;;3427

 +53      ;;21,"67544045440 ")

 +54      ;;3428

 +55      ;;21,"67544045445 ")

 +56      ;;3429

 +57      ;;21,"67544045460 ")

 +58      ;;3430

 +59      ;;21,"67544048915 ")

 +60      ;;3431

 +61      ;;21,"67544048930 ")

 +62      ;;3432

 +63      ;;21,"67544048960 ")

 +64      ;;3433

 +65      ;;21,"67544055930 ")

 +66      ;;3434

 +67      ;;21,"67544055932 ")

 +68      ;;3435

 +69      ;;21,"67544062131 ")

 +70      ;;3436

 +71      ;;21,"67544062145 ")

 +72      ;;3437

 +73      ;;21,"67544062160 ")

 +74      ;;3438

 +75      ;;21,"67544066731 ")

 +76      ;;3439

 +77      ;;21,"67544066760 ")

 +78      ;;3440

 +79      ;;21,"67544067832 ")

 +80      ;;3441

 +81      ;;21,"67544067845 ")

 +82      ;;3442

 +83      ;;21,"67544067860 ")

 +84      ;;3443

 +85      ;;21,"67544068731 ")

 +86      ;;3444

 +87      ;;21,"67544068732 ")

 +88      ;;3445

 +89      ;;21,"67544070531 ")

 +90      ;;3446

 +91      ;;21,"67544070631 ")

 +92      ;;3447

 +93      ;;21,"67544071132 ")

 +94      ;;3448

 +95      ;;21,"67544071731 ")

 +96      ;;3449

 +97      ;;21,"67544072431 ")

 +98      ;;3450

 +99      ;;21,"67544077932 ")

 +100     ;;3451

 +101     ;;21,"67544081832 ")

 +102     ;;3452

 +103     ;;21,"67544086131 ")

 +104     ;;3453

 +105     ;;21,"67544086132 ")

 +106     ;;3454

 +107     ;;21,"67544086832 ")

 +108     ;;3455

 +109     ;;21,"67544093330 ")

 +110     ;;3456

 +111     ;;21,"67544096032 ")

 +112     ;;3457

 +113     ;;21,"67544099730 ")

 +114     ;;3458

 +115     ;;21,"67544099760 ")

 +116     ;;3459

 +117     ;;21,"67544099960 ")

 +118     ;;3460

 +119     ;;21,"67544099980 ")

 +120     ;;3461

 +121     ;;21,"67651001801 ")

 +122     ;;3462

 +123     ;;21,"67651001805 ")

 +124     ;;3463

 +125     ;;21,"67651001901 ")

 +126     ;;3464

 +127     ;;21,"67651001905 ")

 +128     ;;3465

 +129     ;;21,"67651002001 ")

 +130     ;;3466

 +131     ;;21,"67651002005 ")

 +132     ;;3467

 +133     ;;21,"67651002101 ")

 +134     ;;3468

 +135     ;;21,"67651002105 ")

 +136     ;;3469

 +137     ;;21,"67787020005 ")

 +138     ;;3470

 +139     ;;21,"67787020010 ")

 +140     ;;3471

 +141     ;;21,"67787020090 ")

 +142     ;;3472

 +143     ;;21,"67787020105 ")

 +144     ;;3473

 +145     ;;21,"67787020110 ")

 +146     ;;3474

 +147     ;;21,"67787020190 ")

 +148     ;;3475

 +149     ;;21,"67787020210 ")

 +150     ;;3476

 +151     ;;21,"67787020290 ")

 +152     ;;3477

 +153     ;;21,"67787022901 ")

 +154     ;;3478

 +155     ;;21,"67787023001 ")

 +156     ;;3479

 +157     ;;21,"67787026790 ")

 +158     ;;3480

 +159     ;;21,"67787026890 ")

 +160     ;;3481

 +161     ;;21,"67787026990 ")

 +162     ;;3482

 +163     ;;21,"67787027090 ")

 +164     ;;3483

 +165     ;;21,"67787027101 ")

 +166     ;;3484

 +167     ;;21,"67787027110 ")

 +168     ;;3485

 +169     ;;21,"67787027201 ")

 +170     ;;3486

 +171     ;;21,"67787027210 ")

 +172     ;;3487

 +173     ;;21,"67787027301 ")

 +174     ;;3488

 +175     ;;21,"67787027305 ")

 +176     ;;3489

 +177     ;;21,"67787027310 ")

 +178     ;;3490

 +179     ;;21,"67787027401 ")

 +180     ;;3491

 +181     ;;21,"67787027405 ")

 +182     ;;3492

 +183     ;;21,"67787027410 ")

 +184     ;;3493

 +185     ;;21,"68071004845 ")

 +186     ;;3494

 +187     ;;21,"68071009530 ")

 +188     ;;3495

 +189     ;;21,"68071010430 ")

 +190     ;;3496

 +191     ;;21,"68071015330 ")

 +192     ;;3497

 +193     ;;21,"68071015360 ")

 +194     ;;3498

 +195     ;;21,"68071015390 ")

 +196     ;;3499

 +197     ;;21,"68071015745 ")

 +198     ;;3500

 +199     ;;21,"68071015790 ")

 +200     ;;3501

 +201     ;;21,"68071015792 ")

 +202     ;;3502

 +203     ;;21,"68071021692 ")

 +204     ;;3503

 +205     ;;21,"68071039030 ")

 +206     ;;3504

 +207     ;;21,"68071043612 ")

 +208     ;;3505

 +209     ;;21,"68071049330 ")

 +210     ;;3506

 +211     ;;21,"68071076928 ")

 +212     ;;3507

 +213     ;;21,"68071077130 ")

 +214     ;;3508

 +215     ;;21,"68084005801 ")

 +216     ;;3509

 +217     ;;21,"68084006001 ")

 +218     ;;3510

 +219     ;;21,"68084006011 ")

 +220     ;;3511

 +221     ;;21,"68084006101 ")

 +222     ;;3512

 +223     ;;21,"68084006111 ")

 +224     ;;3513

 +225     ;;21,"68084006201 ")

 +226     ;;3514

 +227     ;;21,"68084006211 ")

 +228     ;;3515

 +229     ;;21,"68084006401 ")

 +230     ;;3516

 +231     ;;21,"68084006411 ")

 +232     ;;3517

 +233     ;;21,"68084009800 ")

 +234     ;;3518

 +235     ;;21,"68084009806 ")

 +236     ;;3519

 +237     ;;21,"68084009900 ")

 +238     ;;3520

 +239     ;;21,"68084009906 ")

 +240     ;;3521

 +241     ;;21,"68084026601 ")

 +242     ;;3522

 +243     ;;21,"68084026611 ")

 +244     ;;3523

 +245     ;;21,"68084026701 ")

 +246     ;;3524

 +247     ;;21,"68084026711 ")

 +248     ;;3525

 +249     ;;21,"68084026801 ")

 +250     ;;3526

 +251     ;;21,"68084026811 ")

 +252     ;;3527

 +253     ;;21,"68084029411 ")

 +254     ;;3528

 +255     ;;21,"68084029421 ")

 +256     ;;3529

 +257     ;;21,"68084039001 ")

 +258     ;;3530

 +259     ;;21,"68084039011 ")

 +260     ;;3531

 +261     ;;21,"68084039101 ")

 +262     ;;3532

 +263     ;;21,"68084039111 ")

 +264     ;;3533

 +265     ;;21,"68084039201 ")

 +266     ;;3534

 +267     ;;21,"68084039211 ")

 +268     ;;3535

 +269     ;;21,"68115012715 ")

 +270     ;;3536

 +271     ;;21,"68115012860 ")

 +272     ;;3537

 +273     ;;21,"68115012890 ")

 +274     ;;3538

 +275     ;;21,"68115036330 ")

 +276     ;;3539

 +277     ;;21,"68180023501 ")

 +278     ;;3540

 +279     ;;21,"68180023601 ")

 +280     ;;3541

 +281     ;;21,"68180023701 ")

 +282     ;;3542

 +283     ;;21,"68180051201 ")

 +284     ;;3543

 +285     ;;21,"68180051202 ")

 +286     ;;3544

 +287     ;;21,"68180051203 ")

 +288     ;;3545

 +289     ;;21,"68180051209 ")

 +290     ;;3546

 +291     ;;21,"68180051230 ")

 +292     ;;3547

 +293     ;;21,"68180051301 ")

 +294     ;;3548

 +295     ;;21,"68180051302 ")

 +296     ;;3549

 +297     ;;21,"68180051303 ")

 +298     ;;3550

 +299     ;;21,"68180051304 ")

 +300     ;;3551

 +301     ;;21,"68180051305 ")

 +302     ;;3552

 +303     ;;21,"68180051309 ")

 +304     ;;3553

 +305     ;;21,"68180051330 ")

 +306     ;;3554

 +307     ;;21,"68180051401 ")

 +308     ;;3555

 +309     ;;21,"68180051402 ")

 +310     ;;3556

 +311     ;;21,"68180051403 ")

 +312     ;;3557

 +313     ;;21,"68180051404 ")

 +314     ;;3558

 +315     ;;21,"68180051405 ")

 +316     ;;3559

 +317     ;;21,"68180051409 ")

 +318     ;;3560

 +319     ;;21,"68180051430 ")

 +320     ;;3561

 +321     ;;21,"68180051501 ")

 +322     ;;3562

 +323     ;;21,"68180051502 ")

 +324     ;;3563

 +325     ;;21,"68180051503 ")

 +326     ;;3564

 +327     ;;21,"68180051504 ")

 +328     ;;3565

 +329     ;;21,"68180051505 ")

 +330     ;;3566

 +331     ;;21,"68180051509 ")

 +332     ;;3567

 +333     ;;21,"68180051530 ")

 +334     ;;3568

 +335     ;;21,"68180051601 ")

 +336     ;;3569

 +337     ;;21,"68180051602 ")

 +338     ;;3570

 +339     ;;21,"68180051603 ")

 +340     ;;3571

 +341     ;;21,"68180051609 ")

 +342     ;;3572

 +343     ;;21,"68180051630 ")

 +344     ;;3573

 +345     ;;21,"68180051701 ")

 +346     ;;3574

 +347     ;;21,"68180051702 ")

 +348     ;;3575

 +349     ;;21,"68180051703 ")

 +350     ;;3576

 +351     ;;21,"68180051704 ")

 +352     ;;3577

 +353     ;;21,"68180051709 ")

 +354     ;;3578

 +355     ;;21,"68180051730 ")

 +356     ;;3579

 +357     ;;21,"68180051790 ")

 +358     ;;3580

 +359     ;;21,"68180051801 ")

 +360     ;;3581

 +361     ;;21,"68180051802 ")

 +362     ;;3582

 +363     ;;21,"68180051830 ")

 +364     ;;3583

 +365     ;;21,"68180051901 ")

 +366     ;;3584

 +367     ;;21,"68180051902 ")

 +368     ;;3585

 +369     ;;21,"68180051930 ")

 +370     ;;3586

 +371     ;;21,"68180052001 ")

 +372     ;;3587

 +373     ;;21,"68180052002 ")

 +374     ;;3588

 +375     ;;21,"68180052030 ")

 +376     ;;3589

 +377     ;;21,"68180055609 ")

 +378     ;;3590

 +379     ;;21,"68180055703 ")

 +380     ;;3591

 +381     ;;21,"68180055709 ")

 +382     ;;3592

 +383     ;;21,"68180055803 ")

 +384     ;;3593

 +385     ;;21,"68180055809 ")

 +386     ;;3594

 +387     ;;21,"68180055903 ")

 +388     ;;3595

 +389     ;;21,"68180055909 ")

 +390     ;;3596

 +391     ;;21,"68180056601 ")

 +392     ;;3597

 +393     ;;21,"68180056701 ")

 +394     ;;3598

 +395     ;;21,"68180058801 ")

 +396     ;;3599

 +397     ;;21,"68180058802 ")

 +398     ;;3600

 +399     ;;21,"68180058901 ")

 +400     ;;3601

 +401     ;;21,"68180058902 ")

 +402     ;;3602

 +403     ;;21,"68180058909 ")

 +404     ;;3603

 +405     ;;21,"68180059001 ")

 +406     ;;3604

 +407     ;;21,"68180059002 ")

 +408     ;;3605

 +409     ;;21,"68180059009 ")

 +410     ;;3606

 +411     ;;21,"68180059101 ")

 +412     ;;3607

 +413     ;;21,"68180059102 ")

 +414     ;;3608

 +415     ;;21,"68180059109 ")

 +416     ;;3609

 +417     ;;21,"68382014401 ")

 +418     ;;3610

 +419     ;;21,"68382014405 ")

 +420     ;;3611

 +421     ;;21,"68382014406 ")

 +422     ;;3612

 +423     ;;21,"68382014416 ")

 +424     ;;3613

 +425     ;;21,"68382014430 ")

 +426     ;;3614

 +427     ;;21,"68382014501 ")

 +428     ;;3615

 +429     ;;21,"68382014505 ")

 +430     ;;3616

 +431     ;;21,"68382014506 ")

 +432     ;;3617

 +433     ;;21,"68382014516 ")

 +434     ;;3618

 +435     ;;21,"68382014530 ")

 +436     ;;3619

 +437     ;;21,"68382014601 ")

 +438     ;;3620

 +439     ;;21,"68382014605 ")

 +440     ;;3621

 +441     ;;21,"68382014606 ")

 +442     ;;3622

 +443     ;;21,"68382014616 ")

 +444     ;;3623

 +445     ;;21,"68382014630 ")

 +446     ;;3624

 +447     ;;21,"68382014701 ")

 +448     ;;3625

 +449     ;;21,"68382014705 ")

 +450     ;;3626

 +451     ;;21,"68382014706 ")

 +452     ;;3627

 +453     ;;21,"68382014716 ")

 +454     ;;3628

 +455     ;;21,"68382014730 ")

 +456     ;;3629

 +457     ;;21,"68387052110 ")

 +458     ;;3630

 +459     ;;21,"68387054330 ")

 +460     ;;3631

 +461     ;;21,"68462020501 ")

 +462     ;;3632

 +463     ;;21,"68462020510 ")

 +464     ;;3633

 +465     ;;21,"68462020530 ")

 +466     ;;3634

 +467     ;;21,"68462020601 ")

 +468     ;;3635

 +469     ;;21,"68462020610 ")

 +470     ;;3636

 +471     ;;21,"68462020630 ")

 +472     ;;3637

 +473     ;;21,"68462020701 ")

 +474     ;;3638

 +475     ;;21,"68462020710 ")

 +476     ;;3639

 +477     ;;21,"68462020730 ")

 +478     ;;3640

 +479     ;;21,"68462020801 ")

 +480     ;;3641

 +481     ;;21,"68462020810 ")

 +482     ;;3642

 +483     ;;21,"68462020890 ")

 +484     ;;3643

 +485     ;;21,"68462020901 ")

 +486     ;;3644

 +487     ;;21,"68462020910 ")

 +488     ;;3645

 +489     ;;21,"68462020990 ")

 +490     ;;3646

 +491     ;;21,"68462036705 ")

 +492     ;;3647

 +493     ;;21,"68462036710 ")

 +494     ;;3648

 +495     ;;21,"68462036790 ")

 +496     ;;3649

 +497     ;;21,"68462036805 ")

 +498     ;;3650

 +499     ;;21,"68462036810 ")

 +500     ;;3651

 +501     ;;21,"68462036890 ")

 +502     ;;3652

 +503     ;;21,"68462036910 ")

 +504     ;;3653

 +505     ;;21,"68462036990 ")

 +506     ;;3654

 +507     ;;21,"68462055401 ")

 +508     ;;3655

 +509     ;;21,"68462055410 ")

 +510     ;;3656

 +511     ;;21,"68462055430 ")

 +512     ;;3657

 +513     ;;21,"68462055501 ")

 +514     ;;3658

 +515     ;;21,"68462055510 ")

 +516     ;;3659

 +517     ;;21,"68462055530 ")

 +518     ;;3660

 +519     ;;21,"68505251002 ")

 +520     ;;3661

 +521     ;;21,"68505251004 ")

 +522     ;;3662

 +523     ;;21,"68533004200 ")

 +524     ;;3663

 +525     ;;21,"68533004212 ")

 +526     ;;3664

 +527     ;;21,"68533004225 ")

 +528     ;;3665

 +529     ;;21,"68533004240 ")

 +530     ;;3666

 +531     ;;21,"68533004300 ")

 +532     ;;3667

 +533     ;;21,"68533004312 ")

 +534     ;;3668

 +535     ;;21,"68533004325 ")

 +536     ;;3669

 +537     ;;21,"68533004340 ")

 +538     ;;3670

 +539     ;;21,"68533004400 ")

 +540     ;;3671

 +541     ;;21,"68533004412 ")

 +542     ;;3672

 +543     ;;21,"68533004425 ")

 +544     ;;3673

 +545     ;;21,"68533004440 ")

 +546     ;;3674

 +547     ;;21,"68533006500 ")

 +548     ;;3675

 +549     ;;21,"68533006512 ")

 +550     ;;3676

 +551     ;;21,"68533006540 ")

 +552     ;;3677

 +553     ;;21,"68533006548 ")

 +554     ;;3678

 +555     ;;21,"68533006600 ")

 +556     ;;3679

 +557     ;;21,"68533006612 ")

 +558     ;;3680

 +559     ;;21,"68533006640 ")

 +560     ;;3681

 +561     ;;21,"68533006648 ")

 +562     ;;3682

 +563     ;;21,"68552022110 ")

 +564     ;;3683

 +565     ;;21,"68552022190 ")

 +566     ;;3684

 +567     ;;21,"68552022210 ")

 +568     ;;3685

 +569     ;;21,"68552022290 ")

 +570     ;;3686

 +571     ;;21,"68552022310 ")

 +572     ;;3687

 +573     ;;21,"68552022390 ")

 +574     ;;3688

 +575     ;;21,"68645016059 ")

 +576     ;;3689

 +577     ;;21,"68645016159 ")

 +578     ;;3690

 +579     ;;21,"68645016259 ")

 +580     ;;3691

 +581     ;;21,"68645016359 ")

 +582     ;;3692

 +583     ;;21,"68645027254 ")

 +584     ;;3693

 +585     ;;21,"68788006703 ")

 +586     ;;3694

 +587     ;;21,"68788006706 ")

 +588     ;;3695

 +589     ;;21,"68788006709 ")

 +590     ;;3696

 +591     ;;21,"68788010203 ")

 +592     ;;3697

 +593     ;;21,"68788010206 ")

 +594     ;;3698

 +595     ;;21,"68788010209 ")

 +596     ;;3699

 +597     ;;21,"68788036003 ")

 +598     ;;3700

 +599     ;;21,"68788036006 ")

 +600     ;;3701

 +601     ;;21,"68788036009 ")

 +602     ;;3702

 +603     ;;21,"68788056101 ")

 +604     ;;3703

 +605     ;;21,"68788056103 ")

 +606     ;;3704

 +607     ;;21,"68788056106 ")

 +608     ;;3705

 +609     ;;21,"68788056109 ")

 +610     ;;3706

 +611     ;;21,"68788083503 ")

 +612     ;;3707

 +613     ;;21,"68788083506 ")

 +614     ;;3708

 +615     ;;21,"68788083509 ")

 +616     ;;3709

 +617     ;;21,"68788083603 ")

 +618     ;;3710

 +619     ;;21,"68788083606 ")

 +620     ;;3711

 +621     ;;21,"68788083609 ")

 +622     ;;3712

 +623     ;;21,"68788083703 ")

 +624     ;;3713

 +625     ;;21,"68788083706 ")

 +626     ;;3714

 +627     ;;21,"68788083709 ")

 +628     ;;3715

 +629     ;;21,"68788084301 ")

 +630     ;;3716

 +631     ;;21,"68788084303 ")

 +632     ;;3717

 +633     ;;21,"68788084306 ")

 +634     ;;3718

 +635     ;;21,"68788084309 ")

 +636     ;;3719

 +637     ;;21,"68788092403 ")

 +638     ;;3720

 +639     ;;21,"68788092406 ")

 +640     ;;3721

 +641     ;;21,"68788092409 ")

 +642     ;;3722

 +643     ;;21,"68788092503 ")

 +644     ;;3723

 +645     ;;21,"68788092506 ")

 +646     ;;3724

 +647     ;;21,"68788092509 ")

 +648     ;;3725

 +649     ;;21,"68788092903 ")

 +650     ;;3726

 +651     ;;21,"68788092906 ")

 +652     ;;3727

 +653     ;;21,"68788092909 ")

 +654     ;;3728

 +655     ;;21,"68788117203 ")

 +656     ;;3729

 +657     ;;21,"68788117209 ")

 +658     ;;3730

 +659     ;;21,"68788234200 ")

 +660     ;;3731

 +661     ;;21,"68788234203 ")

 +662     ;;3732

 +663     ;;21,"68788234206 ")

 +664     ;;3733

 +665     ;;21,"68788234209 ")

 +666     ;;3734

 +667     ;;21,"68788376003 ")

 +668     ;;3735

 +669     ;;21,"68788376006 ")

 +670     ;;3736

 +671     ;;21,"68788376009 ")

 +672     ;;3737

 +673     ;;21,"68788376203 ")

 +674     ;;3738

 +675     ;;21,"68788376206 ")

 +676     ;;3739

 +677     ;;21,"68788376209 ")

 +678     ;;3740

 +679     ;;21,"68788540003 ")

 +680     ;;3741

 +681     ;;21,"68788540006 ")

 +682     ;;3742

 +683     ;;21,"68788540009 ")

 +684     ;;3743

 +685     ;;21,"68788999401 ")

 +686     ;;3744

 +687     ;;21,"68788999403 ")

 +688     ;;3745

 +689     ;;21,"68788999406 ")

 +690     ;;3746

 +691     ;;21,"68788999409 ")

 +692     ;;3747

 +693     ;;21,"68966207301 ")

 +694     ;;3748

 +695     ;;9002226,882,.01)

 +696     ;;BGPMU DIAB ARB NDCS

 +697     ;;9002226,882,.02)

 +698     ;;Diabetes ACE/ARB NDCs

 +699     ;;9002226,882,.04)

 +700     ;;@

 +701     ;;9002226,882,.06)

 +702     ;;@