BGPM5ATJ.m

BGPM5ATJ ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 2011;

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

 ;;BGPMU PHARYNGITIS MEDS NDCS

 ;

 ; This routine loads Taxonomy BGPMU PHARYNGITIS MEDS 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,"00003066805 ")

 ;;6438

 ;;21,"00009374301 ")

 ;;6439

 ;;21,"00009374302 ")

 ;;6440

 ;;21,"00009500901 ")

 ;;6441

 ;;21,"00015340095 ")

 ;;6442

 ;;21,"00015370995 ")

 ;;6443

 ;;21,"00015710028 ")

 ;;6444

 ;;21,"00015710098 ")

 ;;6445

 ;;21,"00015727675 ")

 ;;6446

 ;;21,"00015727760 ")

 ;;6447

 ;;21,"00015727775 ")

 ;;6448

 ;;21,"00015727862 ")

 ;;6449

 ;;21,"00015727873 ")

 ;;6450

 ;;21,"00015733812 ")

 ;;6451

 ;;21,"00015733833 ")

 ;;6452

 ;;21,"00015740120 ")

 ;;6453

 ;;21,"00015740199 ")

 ;;6454

 ;;21,"00015740220 ")

 ;;6455

 ;;21,"00015740299 ")

 ;;6456

 ;;21,"00015740320 ")

 ;;6457

 ;;21,"00015740399 ")

 ;;6458

 ;;21,"00015740418 ")

 ;;6459

 ;;21,"00015740420 ")

 ;;6460

 ;;21,"00015740436 ")

 ;;6461

 ;;21,"00015740489 ")

 ;;6462

 ;;21,"00015740494 ")

 ;;6463

 ;;21,"00015740499 ")

 ;;6464

 ;;21,"00015740518 ")

 ;;6465

 ;;21,"00015740520 ")

 ;;6466

 ;;21,"00015740528 ")

 ;;6467

 ;;21,"00015740589 ")

 ;;6468

 ;;21,"00015740595 ")

 ;;6469

 ;;21,"00015740599 ")

 ;;6470

 ;;21,"00015799368 ")

 ;;6471

 ;;21,"00051570801 ")

 ;;6472

 ;;21,"00054003621 ")

 ;;6473

 ;;21,"00054003721 ")

 ;;6474

 ;;21,"00069002601 ")

 ;;6475

 ;;21,"00069002605 ")

 ;;6476

 ;;21,"00069002710 ")

 ;;6477

 ;;21,"00069002712 ")

 ;;6478

 ;;21,"00069002918 ")

 ;;6479

 ;;21,"00069002920 ")

 ;;6480

 ;;21,"00069004631 ")

 ;;6481

 ;;21,"00069004637 ")

 ;;6482

 ;;21,"00069006525 ")

 ;;6483

 ;;21,"00069006530 ")

 ;;6484

 ;;21,"00069007128 ")

 ;;6485

 ;;21,"00069007135 ")

 ;;6486

 ;;21,"00069031003 ")

 ;;6487

 ;;21,"00069031020 ")

 ;;6488

 ;;21,"00069031203 ")

 ;;6489

 ;;21,"00069031220 ")

 ;;6490

 ;;21,"00069031503 ")

 ;;6491

 ;;21,"00069031520 ")

 ;;6492

 ;;21,"00069439519 ")

 ;;6493

 ;;21,"00069439627 ")

 ;;6494

 ;;21,"00069448003 ")

 ;;6495

 ;;21,"00069448010 ")

 ;;6496

 ;;21,"00069448103 ")

 ;;6497

 ;;21,"00069448110 ")

 ;;6498

 ;;21,"00069448203 ")

 ;;6499

 ;;21,"00069448210 ")

 ;;6500

 ;;21,"00069448303 ")

 ;;6501

 ;;21,"00069448310 ")

 ;;6502

 ;;21,"00069448401 ")

 ;;6503

 ;;21,"00074258913 ")

 ;;6504

 ;;21,"00074258953 ")

 ;;6505

 ;;21,"00074374716 ")

 ;;6506

 ;;21,"00074374816 ")

 ;;6507

 ;;21,"00074432560 ")

 ;;6508

 ;;21,"00074433860 ")

 ;;6509

 ;;21,"00074473203 ")

 ;;6510

 ;;21,"00074622713 ")

 ;;6511

 ;;21,"00074715613 ")

 ;;6512

 ;;21,"00074715643 ")

 ;;6513

 ;;21,"00074715653 ")

 ;;6514

 ;;21,"00078324009 ")

 ;;6515

 ;;21,"00078324048 ")

 ;;6516

 ;;21,"00093107573 ")

 ;;6517

 ;;21,"00093107576 ")

 ;;6518

 ;;21,"00093107578 ")

 ;;6519

 ;;21,"00093107673 ")

 ;;6520

 ;;21,"00093107676 ")

 ;;6521

 ;;21,"00093107678 ")

 ;;6522

 ;;21,"00093107701 ")

 ;;6523

 ;;21,"00093107801 ")

 ;;6524

 ;;21,"00093107853 ")

 ;;6525

 ;;21,"00093108701 ")

 ;;6526

 ;;21,"00093117201 ")

 ;;6527

 ;;21,"00093117210 ")

 ;;6528

 ;;21,"00093117401 ")

 ;;6529

 ;;21,"00093117410 ")

 ;;6530

 ;;21,"00093202623 ")

 ;;6531

 ;;21,"00093202631 ")

 ;;6532

 ;;21,"00093202694 ")

 ;;6533

 ;;21,"00093202723 ")

 ;;6534

 ;;21,"00093215801 ")

 ;;6535

 ;;21,"00093223801 ")

 ;;6536

 ;;21,"00093224001 ")

 ;;6537

 ;;21,"00093226301 ")

 ;;6538

 ;;21,"00093226401 ")

 ;;6539

 ;;21,"00093226701 ")

 ;;6540

 ;;21,"00093226801 ")

 ;;6541

 ;;21,"00093226805 ")

 ;;6542

 ;;21,"00093227034 ")

 ;;6543

 ;;21,"00093227234 ")

 ;;6544

 ;;21,"00093227434 ")

 ;;6545

 ;;21,"00093227534 ")

 ;;6546

 ;;21,"00093227773 ")

 ;;6547

 ;;21,"00093227973 ")

 ;;6548

 ;;21,"00093310701 ")

 ;;6549

 ;;21,"00093310705 ")

 ;;6550

 ;;21,"00093310719 ")

 ;;6551

 ;;21,"00093310756 ")

 ;;6552

 ;;21,"00093310793 ")

 ;;6553

 ;;21,"00093310905 ")

 ;;6554

 ;;21,"00093310919 ")

 ;;6555

 ;;21,"00093310953 ")

 ;;6556

 ;;21,"00093310993 ")

 ;;6557

 ;;21,"00093312301 ")

 ;;6558

 ;;21,"00093312501 ")

 ;;6559

 ;;21,"00093314501 ")

 ;;6560

 ;;21,"00093314505 ")

 ;;6561

 ;;21,"00093314519 ")

 ;;6562

 ;;21,"00093314593 ")

 ;;6563

 ;;21,"00093314701 ")

 ;;6564

 ;;21,"00093314705 ")

 ;;6565

 ;;21,"00093314719 ")

 ;;6566

 ;;21,"00093314793 ")

 ;;6567

 ;;21,"00093316006 ")

 ;;6568

 ;;21,"00093316501 ")

 ;;6569

 ;;21,"00093316753 ")

 ;;6570

 ;;21,"00093317101 ")

 ;;6571

 ;;21,"00093319601 ")

 ;;6572

 ;;21,"00093319653 ")

 ;;6573

 ;;21,"00093405953 ")

 ;;6574

 ;;21,"00093412573 ")

 ;;6575

 ;;21,"00093412574 ")

 ;;6576

 ;;21,"00093412773 ")

 ;;6577

 ;;21,"00093412774 ")

 ;;6578

 ;;21,"00093413664 ")

 ;;6579

 ;;21,"00093413673 ")

 ;;6580

 ;;21,"00093413764 ")

 ;;6581

 ;;21,"00093413773 ")

 ;;6582

 ;;21,"00093415073 ")

 ;;6583

 ;;21,"00093415079 ")

 ;;6584

 ;;21,"00093415080 ")

 ;;6585

 ;;21,"00093415573 ")

 ;;6586

 ;;21,"00093415579 ")

 ;;6587

 ;;21,"00093415580 ")

 ;;6588

 ;;21,"00093416073 ")

 ;;6589

 ;;21,"00093416076 ")

 ;;6590

 ;;21,"00093416078 ")

 ;;6591

 ;;21,"00093416173 ")

 ;;6592

 ;;21,"00093416176 ")

 ;;6593

 ;;21,"00093416178 ")

 ;;6594

 ;;21,"00093417064 ")

 ;;6595

 ;;21,"00093417573 ")

 ;;6596

 ;;21,"00093417574 ")

 ;;6597

 ;;21,"00093417773 ")

 ;;6598

 ;;21,"00093417774 ")

 ;;6599

 ;;21,"00093418073 ")

 ;;6600

 ;;21,"00093418076 ")

 ;;6601

 ;;21,"00093418173 ")

 ;;6602

 ;;21,"00093418178 ")

 ;;6603

 ;;21,"00093519501 ")

 ;;6604

 ;;21,"00093525601 ")

 ;;6605

 ;;21,"00093525668 ")

 ;;6606

 ;;21,"00093547616 ")

 ;;6607

 ;;21,"00093714656 ")

 ;;6608

 ;;21,"00093714823 ")

 ;;6609

 ;;21,"00093714923 ")

 ;;6610

 ;;21,"00093714931 ")

 ;;6611

 ;;21,"00093714994 ")

 ;;6612

 ;;21,"00093715706 ")

 ;;6613

 ;;21,"00093715806 ")

 ;;6614

 ;;21,"00093718001 ")

 ;;6615

 ;;21,"00093718101 ")

 ;;6616

 ;;21,"00093718201 ")

 ;;6617

 ;;21,"00093724406 ")

 ;;6618

 ;;21,"00093729353 ")

 ;;6619

 ;;21,"00093730001 ")

 ;;6620

 ;;21,"00093867574 ")

 ;;6621

 ;;21,"00093867575 ")

 ;;6622

 ;;21,"00093867578 ")

 ;;6623

 ;;21,"00115120801 ")

 ;;6624

 ;;21,"00115120808 ")

 ;;6625

 ;;21,"00115120813 ")

 ;;6626

 ;;21,"00115120901 ")

 ;;6627

 ;;21,"00115120903 ")

 ;;6628

 ;;21,"00115120908 ")

 ;;6629

 ;;21,"00115124501 ")

 ;;6630

 ;;21,"00115124502 ")

 ;;6631

 ;;21,"00115124503 ")

 ;;6632

 ;;21,"00115124508 ")

 ;;6633

 ;;21,"00115124510 ")

 ;;6634

 ;;21,"00115124601 ")

 ;;6635

 ;;21,"00115124602 ")

 ;;6636

 ;;21,"00115124603 ")

 ;;6637

 ;;21,"00115124608 ")

 ;;6638

 ;;21,"00115124610 ")

 ;;6639

 ;;21,"00115124701 ")

 ;;6640

 ;;21,"00115124702 ")

 ;;6641

 ;;21,"00115124703 ")

 ;;6642

 ;;21,"00115124708 ")

 ;;6643

 ;;21,"00115124710 ")

 ;;6644

 ;;21,"00115132701 ")

 ;;6645

 ;;21,"00115132703 ")

 ;;6646

 ;;21,"00115132708 ")

 ;;6647

 ;;21,"00115132710 ")

 ;;6648

 ;;21,"00115132713 ")

 ;;6649

 ;;21,"00115139901 ")

 ;;6650

 ;;21,"00115139903 ")

 ;;6651

 ;;21,"00115140001 ")

 ;;6652

 ;;21,"00115140003 ")

 ;;6653

 ;;21,"00115140201 ")

 ;;6654

 ;;21,"00115140203 ")

 ;;6655

 ;;21,"00115140501 ")

 ;;6656

 ;;21,"00115140503 ")

 ;;6657

 ;;21,"00115701701 ")

 ;;6658

 ;;21,"00115701806 ")

 ;;6659

 ;;21,"00115701813 ")

 ;;6660

 ;;21,"00115705401 ")

 ;;6661

 ;;21,"00121479320 ")

 ;;6662

 ;;21,"00143203601 ")

 ;;6663

 ;;21,"00143203701 ")

 ;;6664

 ;;21,"00143203705 ")

 ;;6665

 ;;21,"00143203850 ")

 ;;6666

 ;;21,"00143211201 ")

 ;;6667

 ;;21,"00143211205 ")

 ;;6668

 ;;21,"00143211250 ")

 ;;6669

 ;;21,"00143314105 ")

 ;;6670

 ;;21,"00143314125 ")

 ;;6671

 ;;21,"00143314150 ")

 ;;6672

 ;;21,"00143314205 ")

 ;;6673

 ;;21,"00143314214 ")

 ;;6674

 ;;21,"00143314225 ")

 ;;6675

 ;;21,"00143314250 ")

 ;;6676

 ;;21,"00143908305 ")

 ;;6677

 ;;21,"00143908314 ")

 ;;6678

 ;;21,"00143908320 ")

 ;;6679

 ;;21,"00143908350 ")

 ;;6680

 ;;21,"00143976801 ")

 ;;6681

 ;;21,"00143976846 ")

 ;;6682

 ;;21,"00143976901 ")

 ;;6683

 ;;21,"00143976924 ")

 ;;6684

 ;;21,"00143977001 ")

 ;;6685

 ;;21,"00143977024 ")

 ;;6686

 ;;21,"00143985316 ")

 ;;6687

 ;;21,"00143985324 ")

 ;;6688

 ;;21,"00143985375 ")

 ;;6689

 ;;21,"00143985625 ")

 ;;6690

 ;;21,"00143985725 ")

 ;;6691

 ;;21,"00143985825 ")

 ;;6692

 ;;21,"00143985925 ")

 ;;6693

 ;;21,"00143988601 ")

 ;;6694

 ;;21,"00143988650 ")

 ;;6695

 ;;21,"00143988675 ")

 ;;6696

 ;;21,"00143988701 ")

 ;;6697

 ;;21,"00143988750 ")

 ;;6698

 ;;21,"00143988775 ")

 ;;6699

 ;;21,"00143988801 ")

 ;;6700

 ;;21,"00143988805 ")

 ;;6701

 ;;21,"00143988815 ")

 ;;6702

 ;;21,"00143988880 ")

 ;;6703

 ;;21,"00143988901 ")

 ;;6704

 ;;21,"00143988905 ")

 ;;6705

 ;;21,"00143988915 ")

 ;;6706

 ;;21,"00143988980 ")

 ;;6707

 ;;21,"00143989701 ")

 ;;6708

 ;;21,"00143989705 ")

 ;;6709

 ;;21,"00143989801 ")

 ;;6710

 ;;21,"00143989805 ")

 ;;6711

 ;;21,"00143992390 ")

 ;;6712

 ;;21,"00143992490 ")

 ;;6713

 ;;21,"00143992591 ")

 ;;6714

 ;;21,"00143992701 ")

 ;;6715

 ;;21,"00143992705 ")

 ;;6716

 ;;21,"00143992730 ")

 ;;6717

 ;;21,"00143992801 ")

 ;;6718

 ;;21,"00143992805 ")

 ;;6719

 ;;21,"00143992830 ")

 ;;6720

 ;;21,"00143992901 ")

 ;;6721

 ;;21,"00143992950 ")

 ;;6722

 ;;21,"00143993801 ")

 ;;6723

 ;;21,"00143993805 ")

 ;;6724

 ;;21,"00143993830 ")

 ;;6725

 ;;21,"00143993901 ")

 ;;6726

 ;;21,"00143993905 ")

 ;;6727

 ;;21,"00143993920 ")

 ;;6728

 ;;21,"00143994701 ")

 ;;6729

 ;;21,"00143994720 ")

 ;;6730

 ;;21,"00143994750 ")

 ;;6731

 ;;21,"00143994801 ")

 ;;6732

 ;;21,"00143994850 ")

 ;;6733

 ;;21,"00143995101 ")

 ;;6734

 ;;21,"00143995120 ")

 ;;6735

 ;;21,"00143997603 ")

 ;;6736

 ;;21,"00143997691 ")

 ;;6737

 ;;21,"00143997722 ")

 ;;6738

 ;;21,"00143997790 ")

 ;;6739

 ;;21,"00143998101 ")

 ;;6740

 ;;21,"00143998150 ")

 ;;6741

 ;;21,"00143998175 ")

 ;;6742

 ;;21,"00143998201 ")

 ;;6743

 ;;21,"00143998250 ")

 ;;6744

 ;;21,"00143998275 ")

 ;;6745

 ;;21,"00143998303 ")

 ;;6746

 ;;21,"00143998391 ")

 ;;6747

 ;;21,"00143998501 ")

 ;;6748

 ;;21,"00143998515 ")

 ;;6749

 ;;21,"00143998601 ")

 ;;6750

 ;;21,"00143998615 ")

 ;;6751

 ;;21,"00168020101 ")

 ;;6752

 ;;21,"00168020130 ")

 ;;6753

 ;;21,"00168020160 ")

 ;;6754

 ;;21,"00168020230 ")

 ;;6755

 ;;21,"00168020260 ")

 ;;6756

 ;;21,"00168020360 ")

 ;;6757

 ;;21,"00168027740 ")

 ;;6758

 ;;21,"00172240700 ")

 ;;6759

 ;;21,"00172240710 ")

 ;;6760

 ;;21,"00172240760 ")

 ;;6761

 ;;21,"00172240780 ")

 ;;6762

 ;;21,"00172241600 ")

 ;;6763

 ;;21,"00172241610 ")

 ;;6764

 ;;21,"00172241660 ")

 ;;6765

 ;;21,"00172241680 ")

 ;;6766

 ;;21,"00172245860 ")

 ;;6767

 ;;21,"00172245870 ")

 ;;6768

 ;;21,"00172245880 ")

 ;;6769

 ;;21,"00172282360 ")

 ;;6770

 ;;21,"00172298448 ")

 ;;6771

 ;;21,"00172298470 ")

 ;;6772

 ;;21,"00172298500 ")

 ;;6773

 ;;21,"00172298510 ")

 ;;6774

 ;;21,"00172298548 ")

 ;;6775

 ;;21,"00172298570 ")

 ;;6776

 ;;21,"00172362600 ")

 ;;6777

 ;;21,"00172362610 ")

 ;;6778

 ;;21,"00172362648 ")

 ;;6779

 ;;21,"00172362670 ")

 ;;6780

 ;;21,"00172405848 ")

 ;;6781

 ;;21,"00172405860 ")

 ;;6782

 ;

OTHER ; OTHER ROUTINES

 D ^BGPM5ATK

 D ^BGPM5ATL

 D ^BGPM5ATM

 D ^BGPM5ATN

 D ^BGPM5ATO

 D ^BGPM5ATP

 D ^BGPM5ATQ

 D ^BGPM5ATR

 D ^BGPM5ATS

 D ^BGPM5ATT

 D ^BGPM5ATU

 D ^BGPM5ATV

 D ^BGPM5ATW

 D ^BGPM5ATX

 D ^BGPM5ATY

 D ^BGPM5ATZ

 D ^BGPM5AU

 D ^BGPM5AUA

 D ^BGPM5AUB

 D ^BGPM5AUC

 D ^BGPM5AUD

 D ^BGPM5AUE

 D ^BGPM5AUF

 D ^BGPM5AUG

 D ^BGPM5AUH

 D ^BGPM5AUI

 D ^BGPM5AUJ

 D ^BGPM5AUK

 D ^BGPM5AUL

 D ^BGPM5AUM

 D ^BGPM5AUN

 D ^BGPM5AUO

 D ^BGPM5AUP

 D ^BGPM5AUQ

 D ^BGPM5AUR

 D ^BGPM5AUS

 D ^BGPM5AUT

 D ^BGPM5AUU

 D ^BGPM5AUV

 D ^BGPM5AUW

 D ^BGPM5AUX

 D ^BGPM5AUY

 D ^BGPM5AUZ

 D ^BGPM5AV

 D ^BGPM5AVA

 D ^BGPM5AVB

 D ^BGPM5AVC

 D ^BGPM5AVD

 D ^BGPM5AVE

 D ^BGPM5AVF

 D ^BGPM5AVG

 D ^BGPM5AVH

 D ^BGPM5AVI

 D ^BGPM5AVJ

 D ^BGPM5AVK

 D ^BGPM5AVL

 D ^BGPM5AVM

 D ^BGPM5AVN

 D ^BGPM5AVO

 D ^BGPM5AVP

 D ^BGPM5AVQ

 D ^BGPM5AVR

 D ^BGPM5AVS

 D ^BGPM5AVT

 D ^BGPM5AVU

 D ^BGPM5AVV

 D ^BGPM5AVW

 D ^BGPM5AVX

 D ^BGPM5AVY

 D ^BGPM5AVZ

 D ^BGPM5AW

 D ^BGPM5AWA

 D ^BGPM5AWB

 D ^BGPM5AWC

 D ^BGPM5AWD

 D ^BGPM5AWE

 D ^BGPM5AWF

 D ^BGPM5AWG

 D ^BGPM5AWH

 D ^BGPM5AWI

 D ^BGPM5AWJ

 D ^BGPM5AWK

 D ^BGPM5AWL

 D ^BGPM5AWM

 D ^BGPM5AWN

 D ^BGPM5AWO

 D ^BGPM5AWP

 D ^BGPM5AWQ

 D ^BGPM5AWR

 D ^BGPM5AWS

 D ^BGPM5AWT

 D ^BGPM5AWU

 D ^BGPM5AWV

 D ^BGPM5AWW

 D ^BGPM5AWX

 D ^BGPM5AWY

 D ^BGPM5AWZ

 D ^BGPM5AX

 D ^BGPM5AXA

 D ^BGPM5AXB

 D ^BGPM5AXC

 D ^BGPM5AXD

 D ^BGPM5AXE

 Q

BGPM5ATJ  ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 2011;

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

 +2       ;;BGPMU PHARYNGITIS MEDS NDCS

 +3       ;

 +4       ; This routine loads Taxonomy BGPMU PHARYNGITIS MEDS 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,"00003066805 ")

 +2       ;;6438

 +3       ;;21,"00009374301 ")

 +4       ;;6439

 +5       ;;21,"00009374302 ")

 +6       ;;6440

 +7       ;;21,"00009500901 ")

 +8       ;;6441

 +9       ;;21,"00015340095 ")

 +10      ;;6442

 +11      ;;21,"00015370995 ")

 +12      ;;6443

 +13      ;;21,"00015710028 ")

 +14      ;;6444

 +15      ;;21,"00015710098 ")

 +16      ;;6445

 +17      ;;21,"00015727675 ")

 +18      ;;6446

 +19      ;;21,"00015727760 ")

 +20      ;;6447

 +21      ;;21,"00015727775 ")

 +22      ;;6448

 +23      ;;21,"00015727862 ")

 +24      ;;6449

 +25      ;;21,"00015727873 ")

 +26      ;;6450

 +27      ;;21,"00015733812 ")

 +28      ;;6451

 +29      ;;21,"00015733833 ")

 +30      ;;6452

 +31      ;;21,"00015740120 ")

 +32      ;;6453

 +33      ;;21,"00015740199 ")

 +34      ;;6454

 +35      ;;21,"00015740220 ")

 +36      ;;6455

 +37      ;;21,"00015740299 ")

 +38      ;;6456

 +39      ;;21,"00015740320 ")

 +40      ;;6457

 +41      ;;21,"00015740399 ")

 +42      ;;6458

 +43      ;;21,"00015740418 ")

 +44      ;;6459

 +45      ;;21,"00015740420 ")

 +46      ;;6460

 +47      ;;21,"00015740436 ")

 +48      ;;6461

 +49      ;;21,"00015740489 ")

 +50      ;;6462

 +51      ;;21,"00015740494 ")

 +52      ;;6463

 +53      ;;21,"00015740499 ")

 +54      ;;6464

 +55      ;;21,"00015740518 ")

 +56      ;;6465

 +57      ;;21,"00015740520 ")

 +58      ;;6466

 +59      ;;21,"00015740528 ")

 +60      ;;6467

 +61      ;;21,"00015740589 ")

 +62      ;;6468

 +63      ;;21,"00015740595 ")

 +64      ;;6469

 +65      ;;21,"00015740599 ")

 +66      ;;6470

 +67      ;;21,"00015799368 ")

 +68      ;;6471

 +69      ;;21,"00051570801 ")

 +70      ;;6472

 +71      ;;21,"00054003621 ")

 +72      ;;6473

 +73      ;;21,"00054003721 ")

 +74      ;;6474

 +75      ;;21,"00069002601 ")

 +76      ;;6475

 +77      ;;21,"00069002605 ")

 +78      ;;6476

 +79      ;;21,"00069002710 ")

 +80      ;;6477

 +81      ;;21,"00069002712 ")

 +82      ;;6478

 +83      ;;21,"00069002918 ")

 +84      ;;6479

 +85      ;;21,"00069002920 ")

 +86      ;;6480

 +87      ;;21,"00069004631 ")

 +88      ;;6481

 +89      ;;21,"00069004637 ")

 +90      ;;6482

 +91      ;;21,"00069006525 ")

 +92      ;;6483

 +93      ;;21,"00069006530 ")

 +94      ;;6484

 +95      ;;21,"00069007128 ")

 +96      ;;6485

 +97      ;;21,"00069007135 ")

 +98      ;;6486

 +99      ;;21,"00069031003 ")

 +100     ;;6487

 +101     ;;21,"00069031020 ")

 +102     ;;6488

 +103     ;;21,"00069031203 ")

 +104     ;;6489

 +105     ;;21,"00069031220 ")

 +106     ;;6490

 +107     ;;21,"00069031503 ")

 +108     ;;6491

 +109     ;;21,"00069031520 ")

 +110     ;;6492

 +111     ;;21,"00069439519 ")

 +112     ;;6493

 +113     ;;21,"00069439627 ")

 +114     ;;6494

 +115     ;;21,"00069448003 ")

 +116     ;;6495

 +117     ;;21,"00069448010 ")

 +118     ;;6496

 +119     ;;21,"00069448103 ")

 +120     ;;6497

 +121     ;;21,"00069448110 ")

 +122     ;;6498

 +123     ;;21,"00069448203 ")

 +124     ;;6499

 +125     ;;21,"00069448210 ")

 +126     ;;6500

 +127     ;;21,"00069448303 ")

 +128     ;;6501

 +129     ;;21,"00069448310 ")

 +130     ;;6502

 +131     ;;21,"00069448401 ")

 +132     ;;6503

 +133     ;;21,"00074258913 ")

 +134     ;;6504

 +135     ;;21,"00074258953 ")

 +136     ;;6505

 +137     ;;21,"00074374716 ")

 +138     ;;6506

 +139     ;;21,"00074374816 ")

 +140     ;;6507

 +141     ;;21,"00074432560 ")

 +142     ;;6508

 +143     ;;21,"00074433860 ")

 +144     ;;6509

 +145     ;;21,"00074473203 ")

 +146     ;;6510

 +147     ;;21,"00074622713 ")

 +148     ;;6511

 +149     ;;21,"00074715613 ")

 +150     ;;6512

 +151     ;;21,"00074715643 ")

 +152     ;;6513

 +153     ;;21,"00074715653 ")

 +154     ;;6514

 +155     ;;21,"00078324009 ")

 +156     ;;6515

 +157     ;;21,"00078324048 ")

 +158     ;;6516

 +159     ;;21,"00093107573 ")

 +160     ;;6517

 +161     ;;21,"00093107576 ")

 +162     ;;6518

 +163     ;;21,"00093107578 ")

 +164     ;;6519

 +165     ;;21,"00093107673 ")

 +166     ;;6520

 +167     ;;21,"00093107676 ")

 +168     ;;6521

 +169     ;;21,"00093107678 ")

 +170     ;;6522

 +171     ;;21,"00093107701 ")

 +172     ;;6523

 +173     ;;21,"00093107801 ")

 +174     ;;6524

 +175     ;;21,"00093107853 ")

 +176     ;;6525

 +177     ;;21,"00093108701 ")

 +178     ;;6526

 +179     ;;21,"00093117201 ")

 +180     ;;6527

 +181     ;;21,"00093117210 ")

 +182     ;;6528

 +183     ;;21,"00093117401 ")

 +184     ;;6529

 +185     ;;21,"00093117410 ")

 +186     ;;6530

 +187     ;;21,"00093202623 ")

 +188     ;;6531

 +189     ;;21,"00093202631 ")

 +190     ;;6532

 +191     ;;21,"00093202694 ")

 +192     ;;6533

 +193     ;;21,"00093202723 ")

 +194     ;;6534

 +195     ;;21,"00093215801 ")

 +196     ;;6535

 +197     ;;21,"00093223801 ")

 +198     ;;6536

 +199     ;;21,"00093224001 ")

 +200     ;;6537

 +201     ;;21,"00093226301 ")

 +202     ;;6538

 +203     ;;21,"00093226401 ")

 +204     ;;6539

 +205     ;;21,"00093226701 ")

 +206     ;;6540

 +207     ;;21,"00093226801 ")

 +208     ;;6541

 +209     ;;21,"00093226805 ")

 +210     ;;6542

 +211     ;;21,"00093227034 ")

 +212     ;;6543

 +213     ;;21,"00093227234 ")

 +214     ;;6544

 +215     ;;21,"00093227434 ")

 +216     ;;6545

 +217     ;;21,"00093227534 ")

 +218     ;;6546

 +219     ;;21,"00093227773 ")

 +220     ;;6547

 +221     ;;21,"00093227973 ")

 +222     ;;6548

 +223     ;;21,"00093310701 ")

 +224     ;;6549

 +225     ;;21,"00093310705 ")

 +226     ;;6550

 +227     ;;21,"00093310719 ")

 +228     ;;6551

 +229     ;;21,"00093310756 ")

 +230     ;;6552

 +231     ;;21,"00093310793 ")

 +232     ;;6553

 +233     ;;21,"00093310905 ")

 +234     ;;6554

 +235     ;;21,"00093310919 ")

 +236     ;;6555

 +237     ;;21,"00093310953 ")

 +238     ;;6556

 +239     ;;21,"00093310993 ")

 +240     ;;6557

 +241     ;;21,"00093312301 ")

 +242     ;;6558

 +243     ;;21,"00093312501 ")

 +244     ;;6559

 +245     ;;21,"00093314501 ")

 +246     ;;6560

 +247     ;;21,"00093314505 ")

 +248     ;;6561

 +249     ;;21,"00093314519 ")

 +250     ;;6562

 +251     ;;21,"00093314593 ")

 +252     ;;6563

 +253     ;;21,"00093314701 ")

 +254     ;;6564

 +255     ;;21,"00093314705 ")

 +256     ;;6565

 +257     ;;21,"00093314719 ")

 +258     ;;6566

 +259     ;;21,"00093314793 ")

 +260     ;;6567

 +261     ;;21,"00093316006 ")

 +262     ;;6568

 +263     ;;21,"00093316501 ")

 +264     ;;6569

 +265     ;;21,"00093316753 ")

 +266     ;;6570

 +267     ;;21,"00093317101 ")

 +268     ;;6571

 +269     ;;21,"00093319601 ")

 +270     ;;6572

 +271     ;;21,"00093319653 ")

 +272     ;;6573

 +273     ;;21,"00093405953 ")

 +274     ;;6574

 +275     ;;21,"00093412573 ")

 +276     ;;6575

 +277     ;;21,"00093412574 ")

 +278     ;;6576

 +279     ;;21,"00093412773 ")

 +280     ;;6577

 +281     ;;21,"00093412774 ")

 +282     ;;6578

 +283     ;;21,"00093413664 ")

 +284     ;;6579

 +285     ;;21,"00093413673 ")

 +286     ;;6580

 +287     ;;21,"00093413764 ")

 +288     ;;6581

 +289     ;;21,"00093413773 ")

 +290     ;;6582

 +291     ;;21,"00093415073 ")

 +292     ;;6583

 +293     ;;21,"00093415079 ")

 +294     ;;6584

 +295     ;;21,"00093415080 ")

 +296     ;;6585

 +297     ;;21,"00093415573 ")

 +298     ;;6586

 +299     ;;21,"00093415579 ")

 +300     ;;6587

 +301     ;;21,"00093415580 ")

 +302     ;;6588

 +303     ;;21,"00093416073 ")

 +304     ;;6589

 +305     ;;21,"00093416076 ")

 +306     ;;6590

 +307     ;;21,"00093416078 ")

 +308     ;;6591

 +309     ;;21,"00093416173 ")

 +310     ;;6592

 +311     ;;21,"00093416176 ")

 +312     ;;6593

 +313     ;;21,"00093416178 ")

 +314     ;;6594

 +315     ;;21,"00093417064 ")

 +316     ;;6595

 +317     ;;21,"00093417573 ")

 +318     ;;6596

 +319     ;;21,"00093417574 ")

 +320     ;;6597

 +321     ;;21,"00093417773 ")

 +322     ;;6598

 +323     ;;21,"00093417774 ")

 +324     ;;6599

 +325     ;;21,"00093418073 ")

 +326     ;;6600

 +327     ;;21,"00093418076 ")

 +328     ;;6601

 +329     ;;21,"00093418173 ")

 +330     ;;6602

 +331     ;;21,"00093418178 ")

 +332     ;;6603

 +333     ;;21,"00093519501 ")

 +334     ;;6604

 +335     ;;21,"00093525601 ")

 +336     ;;6605

 +337     ;;21,"00093525668 ")

 +338     ;;6606

 +339     ;;21,"00093547616 ")

 +340     ;;6607

 +341     ;;21,"00093714656 ")

 +342     ;;6608

 +343     ;;21,"00093714823 ")

 +344     ;;6609

 +345     ;;21,"00093714923 ")

 +346     ;;6610

 +347     ;;21,"00093714931 ")

 +348     ;;6611

 +349     ;;21,"00093714994 ")

 +350     ;;6612

 +351     ;;21,"00093715706 ")

 +352     ;;6613

 +353     ;;21,"00093715806 ")

 +354     ;;6614

 +355     ;;21,"00093718001 ")

 +356     ;;6615

 +357     ;;21,"00093718101 ")

 +358     ;;6616

 +359     ;;21,"00093718201 ")

 +360     ;;6617

 +361     ;;21,"00093724406 ")

 +362     ;;6618

 +363     ;;21,"00093729353 ")

 +364     ;;6619

 +365     ;;21,"00093730001 ")

 +366     ;;6620

 +367     ;;21,"00093867574 ")

 +368     ;;6621

 +369     ;;21,"00093867575 ")

 +370     ;;6622

 +371     ;;21,"00093867578 ")

 +372     ;;6623

 +373     ;;21,"00115120801 ")

 +374     ;;6624

 +375     ;;21,"00115120808 ")

 +376     ;;6625

 +377     ;;21,"00115120813 ")

 +378     ;;6626

 +379     ;;21,"00115120901 ")

 +380     ;;6627

 +381     ;;21,"00115120903 ")

 +382     ;;6628

 +383     ;;21,"00115120908 ")

 +384     ;;6629

 +385     ;;21,"00115124501 ")

 +386     ;;6630

 +387     ;;21,"00115124502 ")

 +388     ;;6631

 +389     ;;21,"00115124503 ")

 +390     ;;6632

 +391     ;;21,"00115124508 ")

 +392     ;;6633

 +393     ;;21,"00115124510 ")

 +394     ;;6634

 +395     ;;21,"00115124601 ")

 +396     ;;6635

 +397     ;;21,"00115124602 ")

 +398     ;;6636

 +399     ;;21,"00115124603 ")

 +400     ;;6637

 +401     ;;21,"00115124608 ")

 +402     ;;6638

 +403     ;;21,"00115124610 ")

 +404     ;;6639

 +405     ;;21,"00115124701 ")

 +406     ;;6640

 +407     ;;21,"00115124702 ")

 +408     ;;6641

 +409     ;;21,"00115124703 ")

 +410     ;;6642

 +411     ;;21,"00115124708 ")

 +412     ;;6643

 +413     ;;21,"00115124710 ")

 +414     ;;6644

 +415     ;;21,"00115132701 ")

 +416     ;;6645

 +417     ;;21,"00115132703 ")

 +418     ;;6646

 +419     ;;21,"00115132708 ")

 +420     ;;6647

 +421     ;;21,"00115132710 ")

 +422     ;;6648

 +423     ;;21,"00115132713 ")

 +424     ;;6649

 +425     ;;21,"00115139901 ")

 +426     ;;6650

 +427     ;;21,"00115139903 ")

 +428     ;;6651

 +429     ;;21,"00115140001 ")

 +430     ;;6652

 +431     ;;21,"00115140003 ")

 +432     ;;6653

 +433     ;;21,"00115140201 ")

 +434     ;;6654

 +435     ;;21,"00115140203 ")

 +436     ;;6655

 +437     ;;21,"00115140501 ")

 +438     ;;6656

 +439     ;;21,"00115140503 ")

 +440     ;;6657

 +441     ;;21,"00115701701 ")

 +442     ;;6658

 +443     ;;21,"00115701806 ")

 +444     ;;6659

 +445     ;;21,"00115701813 ")

 +446     ;;6660

 +447     ;;21,"00115705401 ")

 +448     ;;6661

 +449     ;;21,"00121479320 ")

 +450     ;;6662

 +451     ;;21,"00143203601 ")

 +452     ;;6663

 +453     ;;21,"00143203701 ")

 +454     ;;6664

 +455     ;;21,"00143203705 ")

 +456     ;;6665

 +457     ;;21,"00143203850 ")

 +458     ;;6666

 +459     ;;21,"00143211201 ")

 +460     ;;6667

 +461     ;;21,"00143211205 ")

 +462     ;;6668

 +463     ;;21,"00143211250 ")

 +464     ;;6669

 +465     ;;21,"00143314105 ")

 +466     ;;6670

 +467     ;;21,"00143314125 ")

 +468     ;;6671

 +469     ;;21,"00143314150 ")

 +470     ;;6672

 +471     ;;21,"00143314205 ")

 +472     ;;6673

 +473     ;;21,"00143314214 ")

 +474     ;;6674

 +475     ;;21,"00143314225 ")

 +476     ;;6675

 +477     ;;21,"00143314250 ")

 +478     ;;6676

 +479     ;;21,"00143908305 ")

 +480     ;;6677

 +481     ;;21,"00143908314 ")

 +482     ;;6678

 +483     ;;21,"00143908320 ")

 +484     ;;6679

 +485     ;;21,"00143908350 ")

 +486     ;;6680

 +487     ;;21,"00143976801 ")

 +488     ;;6681

 +489     ;;21,"00143976846 ")

 +490     ;;6682

 +491     ;;21,"00143976901 ")

 +492     ;;6683

 +493     ;;21,"00143976924 ")

 +494     ;;6684

 +495     ;;21,"00143977001 ")

 +496     ;;6685

 +497     ;;21,"00143977024 ")

 +498     ;;6686

 +499     ;;21,"00143985316 ")

 +500     ;;6687

 +501     ;;21,"00143985324 ")

 +502     ;;6688

 +503     ;;21,"00143985375 ")

 +504     ;;6689

 +505     ;;21,"00143985625 ")

 +506     ;;6690

 +507     ;;21,"00143985725 ")

 +508     ;;6691

 +509     ;;21,"00143985825 ")

 +510     ;;6692

 +511     ;;21,"00143985925 ")

 +512     ;;6693

 +513     ;;21,"00143988601 ")

 +514     ;;6694

 +515     ;;21,"00143988650 ")

 +516     ;;6695

 +517     ;;21,"00143988675 ")

 +518     ;;6696

 +519     ;;21,"00143988701 ")

 +520     ;;6697

 +521     ;;21,"00143988750 ")

 +522     ;;6698

 +523     ;;21,"00143988775 ")

 +524     ;;6699

 +525     ;;21,"00143988801 ")

 +526     ;;6700

 +527     ;;21,"00143988805 ")

 +528     ;;6701

 +529     ;;21,"00143988815 ")

 +530     ;;6702

 +531     ;;21,"00143988880 ")

 +532     ;;6703

 +533     ;;21,"00143988901 ")

 +534     ;;6704

 +535     ;;21,"00143988905 ")

 +536     ;;6705

 +537     ;;21,"00143988915 ")

 +538     ;;6706

 +539     ;;21,"00143988980 ")

 +540     ;;6707

 +541     ;;21,"00143989701 ")

 +542     ;;6708

 +543     ;;21,"00143989705 ")

 +544     ;;6709

 +545     ;;21,"00143989801 ")

 +546     ;;6710

 +547     ;;21,"00143989805 ")

 +548     ;;6711

 +549     ;;21,"00143992390 ")

 +550     ;;6712

 +551     ;;21,"00143992490 ")

 +552     ;;6713

 +553     ;;21,"00143992591 ")

 +554     ;;6714

 +555     ;;21,"00143992701 ")

 +556     ;;6715

 +557     ;;21,"00143992705 ")

 +558     ;;6716

 +559     ;;21,"00143992730 ")

 +560     ;;6717

 +561     ;;21,"00143992801 ")

 +562     ;;6718

 +563     ;;21,"00143992805 ")

 +564     ;;6719

 +565     ;;21,"00143992830 ")

 +566     ;;6720

 +567     ;;21,"00143992901 ")

 +568     ;;6721

 +569     ;;21,"00143992950 ")

 +570     ;;6722

 +571     ;;21,"00143993801 ")

 +572     ;;6723

 +573     ;;21,"00143993805 ")

 +574     ;;6724

 +575     ;;21,"00143993830 ")

 +576     ;;6725

 +577     ;;21,"00143993901 ")

 +578     ;;6726

 +579     ;;21,"00143993905 ")

 +580     ;;6727

 +581     ;;21,"00143993920 ")

 +582     ;;6728

 +583     ;;21,"00143994701 ")

 +584     ;;6729

 +585     ;;21,"00143994720 ")

 +586     ;;6730

 +587     ;;21,"00143994750 ")

 +588     ;;6731

 +589     ;;21,"00143994801 ")

 +590     ;;6732

 +591     ;;21,"00143994850 ")

 +592     ;;6733

 +593     ;;21,"00143995101 ")

 +594     ;;6734

 +595     ;;21,"00143995120 ")

 +596     ;;6735

 +597     ;;21,"00143997603 ")

 +598     ;;6736

 +599     ;;21,"00143997691 ")

 +600     ;;6737

 +601     ;;21,"00143997722 ")

 +602     ;;6738

 +603     ;;21,"00143997790 ")

 +604     ;;6739

 +605     ;;21,"00143998101 ")

 +606     ;;6740

 +607     ;;21,"00143998150 ")

 +608     ;;6741

 +609     ;;21,"00143998175 ")

 +610     ;;6742

 +611     ;;21,"00143998201 ")

 +612     ;;6743

 +613     ;;21,"00143998250 ")

 +614     ;;6744

 +615     ;;21,"00143998275 ")

 +616     ;;6745

 +617     ;;21,"00143998303 ")

 +618     ;;6746

 +619     ;;21,"00143998391 ")

 +620     ;;6747

 +621     ;;21,"00143998501 ")

 +622     ;;6748

 +623     ;;21,"00143998515 ")

 +624     ;;6749

 +625     ;;21,"00143998601 ")

 +626     ;;6750

 +627     ;;21,"00143998615 ")

 +628     ;;6751

 +629     ;;21,"00168020101 ")

 +630     ;;6752

 +631     ;;21,"00168020130 ")

 +632     ;;6753

 +633     ;;21,"00168020160 ")

 +634     ;;6754

 +635     ;;21,"00168020230 ")

 +636     ;;6755

 +637     ;;21,"00168020260 ")

 +638     ;;6756

 +639     ;;21,"00168020360 ")

 +640     ;;6757

 +641     ;;21,"00168027740 ")

 +642     ;;6758

 +643     ;;21,"00172240700 ")

 +644     ;;6759

 +645     ;;21,"00172240710 ")

 +646     ;;6760

 +647     ;;21,"00172240760 ")

 +648     ;;6761

 +649     ;;21,"00172240780 ")

 +650     ;;6762

 +651     ;;21,"00172241600 ")

 +652     ;;6763

 +653     ;;21,"00172241610 ")

 +654     ;;6764

 +655     ;;21,"00172241660 ")

 +656     ;;6765

 +657     ;;21,"00172241680 ")

 +658     ;;6766

 +659     ;;21,"00172245860 ")

 +660     ;;6767

 +661     ;;21,"00172245870 ")

 +662     ;;6768

 +663     ;;21,"00172245880 ")

 +664     ;;6769

 +665     ;;21,"00172282360 ")

 +666     ;;6770

 +667     ;;21,"00172298448 ")

 +668     ;;6771

 +669     ;;21,"00172298470 ")

 +670     ;;6772

 +671     ;;21,"00172298500 ")

 +672     ;;6773

 +673     ;;21,"00172298510 ")

 +674     ;;6774

 +675     ;;21,"00172298548 ")

 +676     ;;6775

 +677     ;;21,"00172298570 ")

 +678     ;;6776

 +679     ;;21,"00172362600 ")

 +680     ;;6777

 +681     ;;21,"00172362610 ")

 +682     ;;6778

 +683     ;;21,"00172362648 ")

 +684     ;;6779

 +685     ;;21,"00172362670 ")

 +686     ;;6780

 +687     ;;21,"00172405848 ")

 +688     ;;6781

 +689     ;;21,"00172405860 ")

 +690     ;;6782

 +691     ;

OTHER     ; OTHER ROUTINES

 +1        DO ^BGPM5ATK

 +2        DO ^BGPM5ATL

 +3        DO ^BGPM5ATM

 +4        DO ^BGPM5ATN

 +5        DO ^BGPM5ATO

 +6        DO ^BGPM5ATP

 +7        DO ^BGPM5ATQ

 +8        DO ^BGPM5ATR

 +9        DO ^BGPM5ATS

 +10       DO ^BGPM5ATT

 +11       DO ^BGPM5ATU

 +12       DO ^BGPM5ATV

 +13       DO ^BGPM5ATW

 +14       DO ^BGPM5ATX

 +15       DO ^BGPM5ATY

 +16       DO ^BGPM5ATZ

 +17       DO ^BGPM5AU

 +18       DO ^BGPM5AUA

 +19       DO ^BGPM5AUB

 +20       DO ^BGPM5AUC

 +21       DO ^BGPM5AUD

 +22       DO ^BGPM5AUE

 +23       DO ^BGPM5AUF

 +24       DO ^BGPM5AUG

 +25       DO ^BGPM5AUH

 +26       DO ^BGPM5AUI

 +27       DO ^BGPM5AUJ

 +28       DO ^BGPM5AUK

 +29       DO ^BGPM5AUL

 +30       DO ^BGPM5AUM

 +31       DO ^BGPM5AUN

 +32       DO ^BGPM5AUO

 +33       DO ^BGPM5AUP

 +34       DO ^BGPM5AUQ

 +35       DO ^BGPM5AUR

 +36       DO ^BGPM5AUS

 +37       DO ^BGPM5AUT

 +38       DO ^BGPM5AUU

 +39       DO ^BGPM5AUV

 +40       DO ^BGPM5AUW

 +41       DO ^BGPM5AUX

 +42       DO ^BGPM5AUY

 +43       DO ^BGPM5AUZ

 +44       DO ^BGPM5AV

 +45       DO ^BGPM5AVA

 +46       DO ^BGPM5AVB

 +47       DO ^BGPM5AVC

 +48       DO ^BGPM5AVD

 +49       DO ^BGPM5AVE

 +50       DO ^BGPM5AVF

 +51       DO ^BGPM5AVG

 +52       DO ^BGPM5AVH

 +53       DO ^BGPM5AVI

 +54       DO ^BGPM5AVJ

 +55       DO ^BGPM5AVK

 +56       DO ^BGPM5AVL

 +57       DO ^BGPM5AVM

 +58       DO ^BGPM5AVN

 +59       DO ^BGPM5AVO

 +60       DO ^BGPM5AVP

 +61       DO ^BGPM5AVQ

 +62       DO ^BGPM5AVR

 +63       DO ^BGPM5AVS

 +64       DO ^BGPM5AVT

 +65       DO ^BGPM5AVU

 +66       DO ^BGPM5AVV

 +67       DO ^BGPM5AVW

 +68       DO ^BGPM5AVX

 +69       DO ^BGPM5AVY

 +70       DO ^BGPM5AVZ

 +71       DO ^BGPM5AW

 +72       DO ^BGPM5AWA

 +73       DO ^BGPM5AWB

 +74       DO ^BGPM5AWC

 +75       DO ^BGPM5AWD

 +76       DO ^BGPM5AWE

 +77       DO ^BGPM5AWF

 +78       DO ^BGPM5AWG

 +79       DO ^BGPM5AWH

 +80       DO ^BGPM5AWI

 +81       DO ^BGPM5AWJ

 +82       DO ^BGPM5AWK

 +83       DO ^BGPM5AWL

 +84       DO ^BGPM5AWM

 +85       DO ^BGPM5AWN

 +86       DO ^BGPM5AWO

 +87       DO ^BGPM5AWP

 +88       DO ^BGPM5AWQ

 +89       DO ^BGPM5AWR

 +90       DO ^BGPM5AWS

 +91       DO ^BGPM5AWT

 +92       DO ^BGPM5AWU

 +93       DO ^BGPM5AWV

 +94       DO ^BGPM5AWW

 +95       DO ^BGPM5AWX

 +96       DO ^BGPM5AWY

 +97       DO ^BGPM5AWZ

 +98       DO ^BGPM5AX

 +99       DO ^BGPM5AXA

 +100      DO ^BGPM5AXB

 +101      DO ^BGPM5AXC

 +102      DO ^BGPM5AXD

 +103      DO ^BGPM5AXE

 +104      QUIT