BGPM5AZR.m

BGPM5AZR ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON SEP 12, 2011;

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

 ;;BGPMU ANTIDEPRESSANT MEDS NDCS

 ;

 ; This routine loads Taxonomy BGPMU ANTIDEPRESSANT 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,"00054002213 ")

 ;;6618

 ;;21,"00054002222 ")

 ;;6619

 ;;21,"00054002313 ")

 ;;6620

 ;;21,"00054002322 ")

 ;;6621

 ;;21,"00054002328 ")

 ;;6622

 ;;21,"00054002413 ")

 ;;6623

 ;;21,"00054002422 ")

 ;;6624

 ;;21,"00054002428 ")

 ;;6625

 ;;21,"00054006258 ")

 ;;6626

 ;;21,"00054008246 ")

 ;;6627

 ;;21,"00054021025 ")

 ;;6628

 ;;21,"00054021125 ")

 ;;6629

 ;;21,"00054027313 ")

 ;;6630

 ;;21,"00054027413 ")

 ;;6631

 ;;21,"00054027513 ")

 ;;6632

 ;;21,"00054027613 ")

 ;;6633

 ;;21,"00054467625 ")

 ;;6634

 ;;21,"00054467725 ")

 ;;6635

 ;;21,"00056062085 ")

 ;;6636

 ;;21,"00069492001 ")

 ;;6637

 ;;21,"00069492002 ")

 ;;6638

 ;;21,"00069492003 ")

 ;;6639

 ;;21,"00069492004 ")

 ;;6640

 ;;21,"00069492005 ")

 ;;6641

 ;;21,"00069493001 ")

 ;;6642

 ;;21,"00069493002 ")

 ;;6643

 ;;21,"00069493003 ")

 ;;6644

 ;;21,"00069493004 ")

 ;;6645

 ;;21,"00069493005 ")

 ;;6646

 ;;21,"00069497001 ")

 ;;6647

 ;;21,"00093005601 ")

 ;;6648

 ;;21,"00093005701 ")

 ;;6649

 ;;21,"00093007201 ")

 ;;6650

 ;;21,"00093019901 ")

 ;;6651

 ;;21,"00093019913 ")

 ;;6652

 ;;21,"00093063801 ")

 ;;6653

 ;;21,"00093063810 ")

 ;;6654

 ;;21,"00093069501 ")

 ;;6655

 ;;21,"00093069505 ")

 ;;6656

 ;;21,"00093069510 ")

 ;;6657

 ;;21,"00093081001 ")

 ;;6658

 ;;21,"00093081005 ")

 ;;6659

 ;;21,"00093081010 ")

 ;;6660

 ;;21,"00093081101 ")

 ;;6661

 ;;21,"00093081105 ")

 ;;6662

 ;;21,"00093081110 ")

 ;;6663

 ;;21,"00093081201 ")

 ;;6664

 ;;21,"00093081205 ")

 ;;6665

 ;;21,"00093081210 ")

 ;;6666

 ;;21,"00093081301 ")

 ;;6667

 ;;21,"00093081305 ")

 ;;6668

 ;;21,"00093081310 ")

 ;;6669

 ;;21,"00093095601 ")

 ;;6670

 ;;21,"00093095610 ")

 ;;6671

 ;;21,"00093095801 ")

 ;;6672

 ;;21,"00093095810 ")

 ;;6673

 ;;21,"00093096001 ")

 ;;6674

 ;;21,"00093096010 ")

 ;;6675

 ;;21,"00093104201 ")

 ;;6676

 ;;21,"00093104210 ")

 ;;6677

 ;;21,"00093104219 ")

 ;;6678

 ;;21,"00093104293 ")

 ;;6679

 ;;21,"00093435601 ")

 ;;6680

 ;;21,"00093435605 ")

 ;;6681

 ;;21,"00093435610 ")

 ;;6682

 ;;21,"00093435619 ")

 ;;6683

 ;;21,"00093435693 ")

 ;;6684

 ;;21,"00093452101 ")

 ;;6685

 ;;21,"00093452110 ")

 ;;6686

 ;;21,"00093452201 ")

 ;;6687

 ;;21,"00093452205 ")

 ;;6688

 ;;21,"00093452250 ")

 ;;6689

 ;;21,"00093452301 ")

 ;;6690

 ;;21,"00093452305 ")

 ;;6691

 ;;21,"00093452308 ")

 ;;6692

 ;;21,"00093474001 ")

 ;;6693

 ;;21,"00093474010 ")

 ;;6694

 ;;21,"00093474019 ")

 ;;6695

 ;;21,"00093474093 ")

 ;;6696

 ;;21,"00093474101 ")

 ;;6697

 ;;21,"00093474105 ")

 ;;6698

 ;;21,"00093474119 ")

 ;;6699

 ;;21,"00093474150 ")

 ;;6700

 ;;21,"00093474193 ")

 ;;6701

 ;;21,"00093474201 ")

 ;;6702

 ;;21,"00093474205 ")

 ;;6703

 ;;21,"00093474219 ")

 ;;6704

 ;;21,"00093474250 ")

 ;;6705

 ;;21,"00093474293 ")

 ;;6706

 ;;21,"00093711456 ")

 ;;6707

 ;;21,"00093711498 ")

 ;;6708

 ;;21,"00093711556 ")

 ;;6709

 ;;21,"00093711598 ")

 ;;6710

 ;;21,"00093711656 ")

 ;;6711

 ;;21,"00093711698 ")

 ;;6712

 ;;21,"00093712156 ")

 ;;6713

 ;;21,"00093712198 ")

 ;;6714

 ;;21,"00093717556 ")

 ;;6715

 ;;21,"00093717610 ")

 ;;6716

 ;;21,"00093717656 ")

 ;;6717

 ;;21,"00093717710 ")

 ;;6718

 ;;21,"00093717756 ")

 ;;6719

 ;;21,"00093718356 ")

 ;;6720

 ;;21,"00093718398 ")

 ;;6721

 ;;21,"00093718456 ")

 ;;6722

 ;;21,"00093718498 ")

 ;;6723

 ;;21,"00093718810 ")

 ;;6724

 ;;21,"00093718856 ")

 ;;6725

 ;;21,"00093719801 ")

 ;;6726

 ;;21,"00093719805 ")

 ;;6727

 ;;21,"00093719819 ")

 ;;6728

 ;;21,"00093719856 ")

 ;;6729

 ;;21,"00093719893 ")

 ;;6730

 ;;21,"00093720619 ")

 ;;6731

 ;;21,"00093720656 ")

 ;;6732

 ;;21,"00093720693 ")

 ;;6733

 ;;21,"00093720719 ")

 ;;6734

 ;;21,"00093720756 ")

 ;;6735

 ;;21,"00093720793 ")

 ;;6736

 ;;21,"00093720819 ")

 ;;6737

 ;;21,"00093720856 ")

 ;;6738

 ;;21,"00093720893 ")

 ;;6739

 ;;21,"00093730318 ")

 ;;6740

 ;;21,"00093730365 ")

 ;;6741

 ;;21,"00093730418 ")

 ;;6742

 ;;21,"00093730465 ")

 ;;6743

 ;;21,"00093730502 ")

 ;;6744

 ;;21,"00093730565 ")

 ;;6745

 ;;21,"00093738001 ")

 ;;6746

 ;;21,"00093738070 ")

 ;;6747

 ;;21,"00093738101 ")

 ;;6748

 ;;21,"00093738197 ")

 ;;6749

 ;;21,"00093738201 ")

 ;;6750

 ;;21,"00093738283 ")

 ;;6751

 ;;21,"00093738301 ")

 ;;6752

 ;;21,"00093738396 ")

 ;;6753

 ;;21,"00093738456 ")

 ;;6754

 ;;21,"00093738498 ")

 ;;6755

 ;;21,"00093738556 ")

 ;;6756

 ;;21,"00093738598 ")

 ;;6757

 ;;21,"00093738656 ")

 ;;6758

 ;;21,"00093738698 ")

 ;;6759

 ;;21,"00093751556 ")

 ;;6760

 ;;21,"00093751598 ")

 ;;6761

 ;;21,"00121067805 ")

 ;;6762

 ;;21,"00121067812 ")

 ;;6763

 ;;21,"00121067816 ")

 ;;6764

 ;;21,"00121067825 ")

 ;;6765

 ;;21,"00131326532 ")

 ;;6766

 ;;21,"00131326546 ")

 ;;6767

 ;;21,"00131326632 ")

 ;;6768

 ;;21,"00131326646 ")

 ;;6769

 ;;21,"00131326732 ")

 ;;6770

 ;;21,"00131326746 ")

 ;;6771

 ;;21,"00131326832 ")

 ;;6772

 ;;21,"00131326846 ")

 ;;6773

 ;;21,"00143958005 ")

 ;;6774

 ;;21,"00143958009 ")

 ;;6775

 ;;21,"00143958030 ")

 ;;6776

 ;;21,"00143958090 ")

 ;;6777

 ;;21,"00143958105 ")

 ;;6778

 ;;21,"00143958109 ")

 ;;6779

 ;;21,"00143958130 ")

 ;;6780

 ;;21,"00143958190 ")

 ;;6781

 ;;21,"00143958209 ")

 ;;6782

 ;;21,"00143958230 ")

 ;;6783

 ;;21,"00143958290 ")

 ;;6784

 ;;21,"00143995601 ")

 ;;6785

 ;;21,"00143995605 ")

 ;;6786

 ;;21,"00143995630 ")

 ;;6787

 ;;21,"00143995650 ")

 ;;6788

 ;;21,"00143995701 ")

 ;;6789

 ;;21,"00143995705 ")

 ;;6790

 ;;21,"00143995730 ")

 ;;6791

 ;;21,"00143995801 ")

 ;;6792

 ;;21,"00143995805 ")

 ;;6793

 ;;21,"00143995830 ")

 ;;6794

 ;;21,"00172434610 ")

 ;;6795

 ;;21,"00172434646 ")

 ;;6796

 ;;21,"00172434660 ")

 ;;6797

 ;;21,"00172434670 ")

 ;;6798

 ;;21,"00172435610 ")

 ;;6799

 ;;21,"00172435660 ")

 ;;6800

 ;;21,"00172435670 ")

 ;;6801

 ;;21,"00172435680 ")

 ;;6802

 ;;21,"00172436310 ")

 ;;6803

 ;;21,"00172436360 ")

 ;;6804

 ;;21,"00172436370 ")

 ;;6805

 ;;21,"00172436380 ")

 ;;6806

 ;;21,"00172438910 ")

 ;;6807

 ;;21,"00172438960 ")

 ;;6808

 ;;21,"00172438970 ")

 ;;6809

 ;;21,"00172439110 ")

 ;;6810

 ;;21,"00172439160 ")

 ;;6811

 ;;21,"00172439170 ")

 ;;6812

 ;;21,"00172439180 ")

 ;;6813

 ;;21,"00172439210 ")

 ;;6814

 ;;21,"00172439260 ")

 ;;6815

 ;;21,"00172439270 ")

 ;;6816

 ;;21,"00172439280 ")

 ;;6817

 ;;21,"00172451070 ")

 ;;6818

 ;;21,"00172483970 ")

 ;;6819

 ;;21,"00172567210 ")

 ;;6820

 ;;21,"00172567280 ")

 ;;6821

 ;;21,"00172567310 ")

 ;;6822

 ;;21,"00172567410 ")

 ;;6823

 ;;21,"00179000570 ")

 ;;6824

 ;;21,"00179000571 ")

 ;;6825

 ;;21,"00179000572 ")

 ;;6826

 ;;21,"00179001436 ")

 ;;6827

 ;;21,"00179001480 ")

 ;;6828

 ;;21,"00179004201 ")

 ;;6829

 ;;21,"00179004230 ")

 ;;6830

 ;;21,"00179004250 ")

 ;;6831

 ;;21,"00179006030 ")

 ;;6832

 ;;21,"00179007188 ")

 ;;6833

 ;;21,"00179111830 ")

 ;;6834

 ;;21,"00179111850 ")

 ;;6835

 ;;21,"00179111860 ")

 ;;6836

 ;;21,"00179111890 ")

 ;;6837

 ;;21,"00179127501 ")

 ;;6838

 ;;21,"00179127530 ")

 ;;6839

 ;;21,"00179127550 ")

 ;;6840

 ;;21,"00179133630 ")

 ;;6841

 ;;21,"00179141901 ")

 ;;6842

 ;;21,"00179141930 ")

 ;;6843

 ;;21,"00179141950 ")

 ;;6844

 ;;21,"00179141960 ")

 ;;6845

 ;;21,"00179141990 ")

 ;;6846

 ;;21,"00179144501 ")

 ;;6847

 ;;21,"00179144530 ")

 ;;6848

 ;;21,"00179144550 ")

 ;;6849

 ;;21,"00179144560 ")

 ;;6850

 ;;21,"00179144570 ")

 ;;6851

 ;;21,"00179144590 ")

 ;;6852

 ;;21,"00179147901 ")

 ;;6853

 ;;21,"00179147911 ")

 ;;6854

 ;;21,"00179147930 ")

 ;;6855

 ;;21,"00179147950 ")

 ;;6856

 ;;21,"00179147960 ")

 ;;6857

 ;;21,"00179150301 ")

 ;;6858

 ;;21,"00179150305 ")

 ;;6859

 ;;21,"00179150330 ")

 ;;6860

 ;;21,"00179150350 ")

 ;;6861

 ;;21,"00179150360 ")

 ;;6862

 ;;21,"00179150401 ")

 ;;6863

 ;;21,"00179150430 ")

 ;;6864

 ;;21,"00179150450 ")

 ;;6865

 ;;21,"00179150460 ")

 ;;6866

 ;;21,"00179151430 ")

 ;;6867

 ;;21,"00179151450 ")

 ;;6868

 ;;21,"00179151460 ")

 ;;6869

 ;;21,"00179151470 ")

 ;;6870

 ;;21,"00179151490 ")

 ;;6871

 ;;21,"00179152001 ")

 ;;6872

 ;;21,"00179152010 ")

 ;;6873

 ;;21,"00179152030 ")

 ;;6874

 ;;21,"00179152060 ")

 ;;6875

 ;;21,"00179152090 ")

 ;;6876

 ;;21,"00179153801 ")

 ;;6877

 ;;21,"00179153830 ")

 ;;6878

 ;;21,"00179153850 ")

 ;;6879

 ;;21,"00179153860 ")

 ;;6880

 ;;21,"00179153890 ")

 ;;6881

 ;;21,"00179163870 ")

 ;;6882

 ;;21,"00179163871 ")

 ;;6883

 ;;21,"00179163872 ")

 ;;6884

 ;;21,"00179175570 ")

 ;;6885

 ;;21,"00179175571 ")

 ;;6886

 ;;21,"00179175572 ")

 ;;6887

 ;;21,"00179179770 ")

 ;;6888

 ;;21,"00179179771 ")

 ;;6889

 ;;21,"00179179772 ")

 ;;6890

 ;;21,"00179188070 ")

 ;;6891

 ;;21,"00179188071 ")

 ;;6892

 ;;21,"00179188072 ")

 ;;6893

 ;;21,"00179191070 ")

 ;;6894

 ;;21,"00179191071 ")

 ;;6895

 ;;21,"00179191072 ")

 ;;6896

 ;;21,"00179191670 ")

 ;;6897

 ;;21,"00179191671 ")

 ;;6898

 ;;21,"00179191672 ")

 ;;6899

 ;;21,"00179191770 ")

 ;;6900

 ;;21,"00179191771 ")

 ;;6901

 ;;21,"00179191772 ")

 ;;6902

 ;;21,"00179192770 ")

 ;;6903

 ;;21,"00179192771 ")

 ;;6904

 ;;21,"00179192772 ")

 ;;6905

 ;;21,"00182125900 ")

 ;;6906

 ;;21,"00182125989 ")

 ;;6907

 ;;21,"00182126000 ")

 ;;6908

 ;;21,"00182126089 ")

 ;;6909

 ;;21,"00185001701 ")

 ;;6910

 ;;21,"00185001730 ")

 ;;6911

 ;;21,"00185002001 ")

 ;;6912

 ;;21,"00185002005 ")

 ;;6913

 ;;21,"00185002010 ")

 ;;6914

 ;;21,"00185002030 ")

 ;;6915

 ;;21,"00185002701 ")

 ;;6916

 ;;21,"00185002705 ")

 ;;6917

 ;;21,"00185002730 ")

 ;;6918

 ;;21,"00185005701 ")

 ;;6919

 ;;21,"00185005710 ")

 ;;6920

 ;;21,"00185005730 ")

 ;;6921

 ;;21,"00185005750 ")

 ;;6922

 ;;21,"00185005753 ")

 ;;6923

 ;;21,"00185008001 ")

 ;;6924

 ;;21,"00185008010 ")

 ;;6925

 ;;21,"00185008022 ")

 ;;6926

 ;;21,"00185008030 ")

 ;;6927

 ;;21,"00185008088 ")

 ;;6928

 ;;21,"00185008501 ")

 ;;6929

 ;;21,"00185008510 ")

 ;;6930

 ;;21,"00185008522 ")

 ;;6931

 ;;21,"00185008530 ")

 ;;6932

 ;;21,"00185008588 ")

 ;;6933

 ;;21,"00185015301 ")

 ;;6934

 ;;21,"00185015310 ")

 ;;6935

 ;;21,"00185015330 ")

 ;;6936

 ;;21,"00185015350 ")

 ;;6937

 ;;21,"00185015701 ")

 ;;6938

 ;;21,"00185015705 ")

 ;;6939

 ;;21,"00185015730 ")

 ;;6940

 ;;21,"00185021201 ")

 ;;6941

 ;;21,"00185021205 ")

 ;;6942

 ;;21,"00185021210 ")

 ;;6943

 ;;21,"00185021230 ")

 ;;6944

 ;;21,"00185022201 ")

 ;;6945

 ;;21,"00185022205 ")

 ;;6946

 ;;21,"00185022210 ")

 ;;6947

 ;;21,"00185022230 ")

 ;;6948

 ;;21,"00185026501 ")

 ;;6949

 ;;21,"00185026510 ")

 ;;6950

 ;;21,"00185026530 ")

 ;;6951

 ;;21,"00185026550 ")

 ;;6952

 ;;21,"00185037101 ")

 ;;6953

 ;;21,"00185037110 ")

 ;;6954

 ;;21,"00185037201 ")

 ;;6955

 ;;21,"00185037205 ")

 ;;6956

 ;;21,"00185037210 ")

 ;;6957

 ;;21,"00185037301 ")

 ;;6958

 ;;21,"00185037305 ")

 ;;6959

 ;;21,"00185037310 ")

 ;;6960

 ;;21,"00228272103 ")

 ;;6961

 ;;21,"00228272109 ")

 ;;6962

 ;

OTHER ; OTHER ROUTINES

 D ^BGPM5AZS

 D ^BGPM5AZT

 D ^BGPM5BAP

 D ^BGPM5BAQ

 D ^BGPM5BAR

 D ^BGPM5BAS

 D ^BGPM5BAT

 D ^BGPM5BAU

 D ^BGPM5BAV

 D ^BGPM5BAW

 D ^BGPM5BAX

 D ^BGPM5BAY

 D ^BGPM5BAZ

 D ^BGPM5BB

 D ^BGPM5BBA

 D ^BGPM5BBB

 D ^BGPM5BBC

 D ^BGPM5BBD

 D ^BGPM5BBE

 D ^BGPM5BBF

 D ^BGPM5BBG

 D ^BGPM5BBH

 D ^BGPM5BBI

 D ^BGPM5BBJ

 D ^BGPM5BBK

 D ^BGPM5BBL

 D ^BGPM5BBM

 D ^BGPM5BBN

 D ^BGPM5BBO

 D ^BGPM5BBP

 D ^BGPM5BBQ

 D ^BGPM5BBR

 D ^BGPM5BBS

 D ^BGPM5BBT

 D ^BGPM5BBU

 D ^BGPM5BBV

 D ^BGPM5BBW

 D ^BGPM5BBX

 D ^BGPM5BBY

 D ^BGPM5BBZ

 D ^BGPM5BC

 D ^BGPM5BCA

 D ^BGPM5BCB

 D ^BGPM5BCC

 D ^BGPM5BCD

 D ^BGPM5BCE

 D ^BGPM5BCF

 D ^BGPM5BCG

 D ^BGPM5BCH

 D ^BGPM5BCI

 D ^BGPM5BCJ

 D ^BGPM5BCK

 D ^BGPM5BCL

 D ^BGPM5BCM

 D ^BGPM5BCN

 D ^BGPM5BCO

 D ^BGPM5BCP

 D ^BGPM5BCQ

 D ^BGPM5BCR

 D ^BGPM5BCS

 D ^BGPM5BCT

 D ^BGPM5BCU

 D ^BGPM5BCV

 D ^BGPM5BCW

 D ^BGPM5BCX

 D ^BGPM5BCY

 D ^BGPM5BCZ

 D ^BGPM5BD

 D ^BGPM5BDA

 D ^BGPM5BDB

 D ^BGPM5BDC

 D ^BGPM5BDD

 D ^BGPM5BDE

 D ^BGPM5BDF

 D ^BGPM5BDG

 D ^BGPM5BDH

 D ^BGPM5BDI

 D ^BGPM5BDJ

 D ^BGPM5BDK

 D ^BGPM5BDL

 D ^BGPM5BDM

 D ^BGPM5BDN

 D ^BGPM5BDO

 D ^BGPM5BDP

 D ^BGPM5BDQ

 D ^BGPM5BDR

 D ^BGPM5BDS

 D ^BGPM5BDT

 D ^BGPM5BDU

 D ^BGPM5BDV

 D ^BGPM5BDW

 D ^BGPM5BDX

 D ^BGPM5BDY

 D ^BGPM5BDZ

 D ^BGPM5BE

 D ^BGPM5BEA

 D ^BGPM5BEB

 D ^BGPM5BEC

 D ^BGPM5BED

 D ^BGPM5BEE

 Q

BGPM5AZR  ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON SEP 12, 2011;

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

 +2       ;;BGPMU ANTIDEPRESSANT MEDS NDCS

 +3       ;

 +4       ; This routine loads Taxonomy BGPMU ANTIDEPRESSANT 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,"00054002213 ")

 +2       ;;6618

 +3       ;;21,"00054002222 ")

 +4       ;;6619

 +5       ;;21,"00054002313 ")

 +6       ;;6620

 +7       ;;21,"00054002322 ")

 +8       ;;6621

 +9       ;;21,"00054002328 ")

 +10      ;;6622

 +11      ;;21,"00054002413 ")

 +12      ;;6623

 +13      ;;21,"00054002422 ")

 +14      ;;6624

 +15      ;;21,"00054002428 ")

 +16      ;;6625

 +17      ;;21,"00054006258 ")

 +18      ;;6626

 +19      ;;21,"00054008246 ")

 +20      ;;6627

 +21      ;;21,"00054021025 ")

 +22      ;;6628

 +23      ;;21,"00054021125 ")

 +24      ;;6629

 +25      ;;21,"00054027313 ")

 +26      ;;6630

 +27      ;;21,"00054027413 ")

 +28      ;;6631

 +29      ;;21,"00054027513 ")

 +30      ;;6632

 +31      ;;21,"00054027613 ")

 +32      ;;6633

 +33      ;;21,"00054467625 ")

 +34      ;;6634

 +35      ;;21,"00054467725 ")

 +36      ;;6635

 +37      ;;21,"00056062085 ")

 +38      ;;6636

 +39      ;;21,"00069492001 ")

 +40      ;;6637

 +41      ;;21,"00069492002 ")

 +42      ;;6638

 +43      ;;21,"00069492003 ")

 +44      ;;6639

 +45      ;;21,"00069492004 ")

 +46      ;;6640

 +47      ;;21,"00069492005 ")

 +48      ;;6641

 +49      ;;21,"00069493001 ")

 +50      ;;6642

 +51      ;;21,"00069493002 ")

 +52      ;;6643

 +53      ;;21,"00069493003 ")

 +54      ;;6644

 +55      ;;21,"00069493004 ")

 +56      ;;6645

 +57      ;;21,"00069493005 ")

 +58      ;;6646

 +59      ;;21,"00069497001 ")

 +60      ;;6647

 +61      ;;21,"00093005601 ")

 +62      ;;6648

 +63      ;;21,"00093005701 ")

 +64      ;;6649

 +65      ;;21,"00093007201 ")

 +66      ;;6650

 +67      ;;21,"00093019901 ")

 +68      ;;6651

 +69      ;;21,"00093019913 ")

 +70      ;;6652

 +71      ;;21,"00093063801 ")

 +72      ;;6653

 +73      ;;21,"00093063810 ")

 +74      ;;6654

 +75      ;;21,"00093069501 ")

 +76      ;;6655

 +77      ;;21,"00093069505 ")

 +78      ;;6656

 +79      ;;21,"00093069510 ")

 +80      ;;6657

 +81      ;;21,"00093081001 ")

 +82      ;;6658

 +83      ;;21,"00093081005 ")

 +84      ;;6659

 +85      ;;21,"00093081010 ")

 +86      ;;6660

 +87      ;;21,"00093081101 ")

 +88      ;;6661

 +89      ;;21,"00093081105 ")

 +90      ;;6662

 +91      ;;21,"00093081110 ")

 +92      ;;6663

 +93      ;;21,"00093081201 ")

 +94      ;;6664

 +95      ;;21,"00093081205 ")

 +96      ;;6665

 +97      ;;21,"00093081210 ")

 +98      ;;6666

 +99      ;;21,"00093081301 ")

 +100     ;;6667

 +101     ;;21,"00093081305 ")

 +102     ;;6668

 +103     ;;21,"00093081310 ")

 +104     ;;6669

 +105     ;;21,"00093095601 ")

 +106     ;;6670

 +107     ;;21,"00093095610 ")

 +108     ;;6671

 +109     ;;21,"00093095801 ")

 +110     ;;6672

 +111     ;;21,"00093095810 ")

 +112     ;;6673

 +113     ;;21,"00093096001 ")

 +114     ;;6674

 +115     ;;21,"00093096010 ")

 +116     ;;6675

 +117     ;;21,"00093104201 ")

 +118     ;;6676

 +119     ;;21,"00093104210 ")

 +120     ;;6677

 +121     ;;21,"00093104219 ")

 +122     ;;6678

 +123     ;;21,"00093104293 ")

 +124     ;;6679

 +125     ;;21,"00093435601 ")

 +126     ;;6680

 +127     ;;21,"00093435605 ")

 +128     ;;6681

 +129     ;;21,"00093435610 ")

 +130     ;;6682

 +131     ;;21,"00093435619 ")

 +132     ;;6683

 +133     ;;21,"00093435693 ")

 +134     ;;6684

 +135     ;;21,"00093452101 ")

 +136     ;;6685

 +137     ;;21,"00093452110 ")

 +138     ;;6686

 +139     ;;21,"00093452201 ")

 +140     ;;6687

 +141     ;;21,"00093452205 ")

 +142     ;;6688

 +143     ;;21,"00093452250 ")

 +144     ;;6689

 +145     ;;21,"00093452301 ")

 +146     ;;6690

 +147     ;;21,"00093452305 ")

 +148     ;;6691

 +149     ;;21,"00093452308 ")

 +150     ;;6692

 +151     ;;21,"00093474001 ")

 +152     ;;6693

 +153     ;;21,"00093474010 ")

 +154     ;;6694

 +155     ;;21,"00093474019 ")

 +156     ;;6695

 +157     ;;21,"00093474093 ")

 +158     ;;6696

 +159     ;;21,"00093474101 ")

 +160     ;;6697

 +161     ;;21,"00093474105 ")

 +162     ;;6698

 +163     ;;21,"00093474119 ")

 +164     ;;6699

 +165     ;;21,"00093474150 ")

 +166     ;;6700

 +167     ;;21,"00093474193 ")

 +168     ;;6701

 +169     ;;21,"00093474201 ")

 +170     ;;6702

 +171     ;;21,"00093474205 ")

 +172     ;;6703

 +173     ;;21,"00093474219 ")

 +174     ;;6704

 +175     ;;21,"00093474250 ")

 +176     ;;6705

 +177     ;;21,"00093474293 ")

 +178     ;;6706

 +179     ;;21,"00093711456 ")

 +180     ;;6707

 +181     ;;21,"00093711498 ")

 +182     ;;6708

 +183     ;;21,"00093711556 ")

 +184     ;;6709

 +185     ;;21,"00093711598 ")

 +186     ;;6710

 +187     ;;21,"00093711656 ")

 +188     ;;6711

 +189     ;;21,"00093711698 ")

 +190     ;;6712

 +191     ;;21,"00093712156 ")

 +192     ;;6713

 +193     ;;21,"00093712198 ")

 +194     ;;6714

 +195     ;;21,"00093717556 ")

 +196     ;;6715

 +197     ;;21,"00093717610 ")

 +198     ;;6716

 +199     ;;21,"00093717656 ")

 +200     ;;6717

 +201     ;;21,"00093717710 ")

 +202     ;;6718

 +203     ;;21,"00093717756 ")

 +204     ;;6719

 +205     ;;21,"00093718356 ")

 +206     ;;6720

 +207     ;;21,"00093718398 ")

 +208     ;;6721

 +209     ;;21,"00093718456 ")

 +210     ;;6722

 +211     ;;21,"00093718498 ")

 +212     ;;6723

 +213     ;;21,"00093718810 ")

 +214     ;;6724

 +215     ;;21,"00093718856 ")

 +216     ;;6725

 +217     ;;21,"00093719801 ")

 +218     ;;6726

 +219     ;;21,"00093719805 ")

 +220     ;;6727

 +221     ;;21,"00093719819 ")

 +222     ;;6728

 +223     ;;21,"00093719856 ")

 +224     ;;6729

 +225     ;;21,"00093719893 ")

 +226     ;;6730

 +227     ;;21,"00093720619 ")

 +228     ;;6731

 +229     ;;21,"00093720656 ")

 +230     ;;6732

 +231     ;;21,"00093720693 ")

 +232     ;;6733

 +233     ;;21,"00093720719 ")

 +234     ;;6734

 +235     ;;21,"00093720756 ")

 +236     ;;6735

 +237     ;;21,"00093720793 ")

 +238     ;;6736

 +239     ;;21,"00093720819 ")

 +240     ;;6737

 +241     ;;21,"00093720856 ")

 +242     ;;6738

 +243     ;;21,"00093720893 ")

 +244     ;;6739

 +245     ;;21,"00093730318 ")

 +246     ;;6740

 +247     ;;21,"00093730365 ")

 +248     ;;6741

 +249     ;;21,"00093730418 ")

 +250     ;;6742

 +251     ;;21,"00093730465 ")

 +252     ;;6743

 +253     ;;21,"00093730502 ")

 +254     ;;6744

 +255     ;;21,"00093730565 ")

 +256     ;;6745

 +257     ;;21,"00093738001 ")

 +258     ;;6746

 +259     ;;21,"00093738070 ")

 +260     ;;6747

 +261     ;;21,"00093738101 ")

 +262     ;;6748

 +263     ;;21,"00093738197 ")

 +264     ;;6749

 +265     ;;21,"00093738201 ")

 +266     ;;6750

 +267     ;;21,"00093738283 ")

 +268     ;;6751

 +269     ;;21,"00093738301 ")

 +270     ;;6752

 +271     ;;21,"00093738396 ")

 +272     ;;6753

 +273     ;;21,"00093738456 ")

 +274     ;;6754

 +275     ;;21,"00093738498 ")

 +276     ;;6755

 +277     ;;21,"00093738556 ")

 +278     ;;6756

 +279     ;;21,"00093738598 ")

 +280     ;;6757

 +281     ;;21,"00093738656 ")

 +282     ;;6758

 +283     ;;21,"00093738698 ")

 +284     ;;6759

 +285     ;;21,"00093751556 ")

 +286     ;;6760

 +287     ;;21,"00093751598 ")

 +288     ;;6761

 +289     ;;21,"00121067805 ")

 +290     ;;6762

 +291     ;;21,"00121067812 ")

 +292     ;;6763

 +293     ;;21,"00121067816 ")

 +294     ;;6764

 +295     ;;21,"00121067825 ")

 +296     ;;6765

 +297     ;;21,"00131326532 ")

 +298     ;;6766

 +299     ;;21,"00131326546 ")

 +300     ;;6767

 +301     ;;21,"00131326632 ")

 +302     ;;6768

 +303     ;;21,"00131326646 ")

 +304     ;;6769

 +305     ;;21,"00131326732 ")

 +306     ;;6770

 +307     ;;21,"00131326746 ")

 +308     ;;6771

 +309     ;;21,"00131326832 ")

 +310     ;;6772

 +311     ;;21,"00131326846 ")

 +312     ;;6773

 +313     ;;21,"00143958005 ")

 +314     ;;6774

 +315     ;;21,"00143958009 ")

 +316     ;;6775

 +317     ;;21,"00143958030 ")

 +318     ;;6776

 +319     ;;21,"00143958090 ")

 +320     ;;6777

 +321     ;;21,"00143958105 ")

 +322     ;;6778

 +323     ;;21,"00143958109 ")

 +324     ;;6779

 +325     ;;21,"00143958130 ")

 +326     ;;6780

 +327     ;;21,"00143958190 ")

 +328     ;;6781

 +329     ;;21,"00143958209 ")

 +330     ;;6782

 +331     ;;21,"00143958230 ")

 +332     ;;6783

 +333     ;;21,"00143958290 ")

 +334     ;;6784

 +335     ;;21,"00143995601 ")

 +336     ;;6785

 +337     ;;21,"00143995605 ")

 +338     ;;6786

 +339     ;;21,"00143995630 ")

 +340     ;;6787

 +341     ;;21,"00143995650 ")

 +342     ;;6788

 +343     ;;21,"00143995701 ")

 +344     ;;6789

 +345     ;;21,"00143995705 ")

 +346     ;;6790

 +347     ;;21,"00143995730 ")

 +348     ;;6791

 +349     ;;21,"00143995801 ")

 +350     ;;6792

 +351     ;;21,"00143995805 ")

 +352     ;;6793

 +353     ;;21,"00143995830 ")

 +354     ;;6794

 +355     ;;21,"00172434610 ")

 +356     ;;6795

 +357     ;;21,"00172434646 ")

 +358     ;;6796

 +359     ;;21,"00172434660 ")

 +360     ;;6797

 +361     ;;21,"00172434670 ")

 +362     ;;6798

 +363     ;;21,"00172435610 ")

 +364     ;;6799

 +365     ;;21,"00172435660 ")

 +366     ;;6800

 +367     ;;21,"00172435670 ")

 +368     ;;6801

 +369     ;;21,"00172435680 ")

 +370     ;;6802

 +371     ;;21,"00172436310 ")

 +372     ;;6803

 +373     ;;21,"00172436360 ")

 +374     ;;6804

 +375     ;;21,"00172436370 ")

 +376     ;;6805

 +377     ;;21,"00172436380 ")

 +378     ;;6806

 +379     ;;21,"00172438910 ")

 +380     ;;6807

 +381     ;;21,"00172438960 ")

 +382     ;;6808

 +383     ;;21,"00172438970 ")

 +384     ;;6809

 +385     ;;21,"00172439110 ")

 +386     ;;6810

 +387     ;;21,"00172439160 ")

 +388     ;;6811

 +389     ;;21,"00172439170 ")

 +390     ;;6812

 +391     ;;21,"00172439180 ")

 +392     ;;6813

 +393     ;;21,"00172439210 ")

 +394     ;;6814

 +395     ;;21,"00172439260 ")

 +396     ;;6815

 +397     ;;21,"00172439270 ")

 +398     ;;6816

 +399     ;;21,"00172439280 ")

 +400     ;;6817

 +401     ;;21,"00172451070 ")

 +402     ;;6818

 +403     ;;21,"00172483970 ")

 +404     ;;6819

 +405     ;;21,"00172567210 ")

 +406     ;;6820

 +407     ;;21,"00172567280 ")

 +408     ;;6821

 +409     ;;21,"00172567310 ")

 +410     ;;6822

 +411     ;;21,"00172567410 ")

 +412     ;;6823

 +413     ;;21,"00179000570 ")

 +414     ;;6824

 +415     ;;21,"00179000571 ")

 +416     ;;6825

 +417     ;;21,"00179000572 ")

 +418     ;;6826

 +419     ;;21,"00179001436 ")

 +420     ;;6827

 +421     ;;21,"00179001480 ")

 +422     ;;6828

 +423     ;;21,"00179004201 ")

 +424     ;;6829

 +425     ;;21,"00179004230 ")

 +426     ;;6830

 +427     ;;21,"00179004250 ")

 +428     ;;6831

 +429     ;;21,"00179006030 ")

 +430     ;;6832

 +431     ;;21,"00179007188 ")

 +432     ;;6833

 +433     ;;21,"00179111830 ")

 +434     ;;6834

 +435     ;;21,"00179111850 ")

 +436     ;;6835

 +437     ;;21,"00179111860 ")

 +438     ;;6836

 +439     ;;21,"00179111890 ")

 +440     ;;6837

 +441     ;;21,"00179127501 ")

 +442     ;;6838

 +443     ;;21,"00179127530 ")

 +444     ;;6839

 +445     ;;21,"00179127550 ")

 +446     ;;6840

 +447     ;;21,"00179133630 ")

 +448     ;;6841

 +449     ;;21,"00179141901 ")

 +450     ;;6842

 +451     ;;21,"00179141930 ")

 +452     ;;6843

 +453     ;;21,"00179141950 ")

 +454     ;;6844

 +455     ;;21,"00179141960 ")

 +456     ;;6845

 +457     ;;21,"00179141990 ")

 +458     ;;6846

 +459     ;;21,"00179144501 ")

 +460     ;;6847

 +461     ;;21,"00179144530 ")

 +462     ;;6848

 +463     ;;21,"00179144550 ")

 +464     ;;6849

 +465     ;;21,"00179144560 ")

 +466     ;;6850

 +467     ;;21,"00179144570 ")

 +468     ;;6851

 +469     ;;21,"00179144590 ")

 +470     ;;6852

 +471     ;;21,"00179147901 ")

 +472     ;;6853

 +473     ;;21,"00179147911 ")

 +474     ;;6854

 +475     ;;21,"00179147930 ")

 +476     ;;6855

 +477     ;;21,"00179147950 ")

 +478     ;;6856

 +479     ;;21,"00179147960 ")

 +480     ;;6857

 +481     ;;21,"00179150301 ")

 +482     ;;6858

 +483     ;;21,"00179150305 ")

 +484     ;;6859

 +485     ;;21,"00179150330 ")

 +486     ;;6860

 +487     ;;21,"00179150350 ")

 +488     ;;6861

 +489     ;;21,"00179150360 ")

 +490     ;;6862

 +491     ;;21,"00179150401 ")

 +492     ;;6863

 +493     ;;21,"00179150430 ")

 +494     ;;6864

 +495     ;;21,"00179150450 ")

 +496     ;;6865

 +497     ;;21,"00179150460 ")

 +498     ;;6866

 +499     ;;21,"00179151430 ")

 +500     ;;6867

 +501     ;;21,"00179151450 ")

 +502     ;;6868

 +503     ;;21,"00179151460 ")

 +504     ;;6869

 +505     ;;21,"00179151470 ")

 +506     ;;6870

 +507     ;;21,"00179151490 ")

 +508     ;;6871

 +509     ;;21,"00179152001 ")

 +510     ;;6872

 +511     ;;21,"00179152010 ")

 +512     ;;6873

 +513     ;;21,"00179152030 ")

 +514     ;;6874

 +515     ;;21,"00179152060 ")

 +516     ;;6875

 +517     ;;21,"00179152090 ")

 +518     ;;6876

 +519     ;;21,"00179153801 ")

 +520     ;;6877

 +521     ;;21,"00179153830 ")

 +522     ;;6878

 +523     ;;21,"00179153850 ")

 +524     ;;6879

 +525     ;;21,"00179153860 ")

 +526     ;;6880

 +527     ;;21,"00179153890 ")

 +528     ;;6881

 +529     ;;21,"00179163870 ")

 +530     ;;6882

 +531     ;;21,"00179163871 ")

 +532     ;;6883

 +533     ;;21,"00179163872 ")

 +534     ;;6884

 +535     ;;21,"00179175570 ")

 +536     ;;6885

 +537     ;;21,"00179175571 ")

 +538     ;;6886

 +539     ;;21,"00179175572 ")

 +540     ;;6887

 +541     ;;21,"00179179770 ")

 +542     ;;6888

 +543     ;;21,"00179179771 ")

 +544     ;;6889

 +545     ;;21,"00179179772 ")

 +546     ;;6890

 +547     ;;21,"00179188070 ")

 +548     ;;6891

 +549     ;;21,"00179188071 ")

 +550     ;;6892

 +551     ;;21,"00179188072 ")

 +552     ;;6893

 +553     ;;21,"00179191070 ")

 +554     ;;6894

 +555     ;;21,"00179191071 ")

 +556     ;;6895

 +557     ;;21,"00179191072 ")

 +558     ;;6896

 +559     ;;21,"00179191670 ")

 +560     ;;6897

 +561     ;;21,"00179191671 ")

 +562     ;;6898

 +563     ;;21,"00179191672 ")

 +564     ;;6899

 +565     ;;21,"00179191770 ")

 +566     ;;6900

 +567     ;;21,"00179191771 ")

 +568     ;;6901

 +569     ;;21,"00179191772 ")

 +570     ;;6902

 +571     ;;21,"00179192770 ")

 +572     ;;6903

 +573     ;;21,"00179192771 ")

 +574     ;;6904

 +575     ;;21,"00179192772 ")

 +576     ;;6905

 +577     ;;21,"00182125900 ")

 +578     ;;6906

 +579     ;;21,"00182125989 ")

 +580     ;;6907

 +581     ;;21,"00182126000 ")

 +582     ;;6908

 +583     ;;21,"00182126089 ")

 +584     ;;6909

 +585     ;;21,"00185001701 ")

 +586     ;;6910

 +587     ;;21,"00185001730 ")

 +588     ;;6911

 +589     ;;21,"00185002001 ")

 +590     ;;6912

 +591     ;;21,"00185002005 ")

 +592     ;;6913

 +593     ;;21,"00185002010 ")

 +594     ;;6914

 +595     ;;21,"00185002030 ")

 +596     ;;6915

 +597     ;;21,"00185002701 ")

 +598     ;;6916

 +599     ;;21,"00185002705 ")

 +600     ;;6917

 +601     ;;21,"00185002730 ")

 +602     ;;6918

 +603     ;;21,"00185005701 ")

 +604     ;;6919

 +605     ;;21,"00185005710 ")

 +606     ;;6920

 +607     ;;21,"00185005730 ")

 +608     ;;6921

 +609     ;;21,"00185005750 ")

 +610     ;;6922

 +611     ;;21,"00185005753 ")

 +612     ;;6923

 +613     ;;21,"00185008001 ")

 +614     ;;6924

 +615     ;;21,"00185008010 ")

 +616     ;;6925

 +617     ;;21,"00185008022 ")

 +618     ;;6926

 +619     ;;21,"00185008030 ")

 +620     ;;6927

 +621     ;;21,"00185008088 ")

 +622     ;;6928

 +623     ;;21,"00185008501 ")

 +624     ;;6929

 +625     ;;21,"00185008510 ")

 +626     ;;6930

 +627     ;;21,"00185008522 ")

 +628     ;;6931

 +629     ;;21,"00185008530 ")

 +630     ;;6932

 +631     ;;21,"00185008588 ")

 +632     ;;6933

 +633     ;;21,"00185015301 ")

 +634     ;;6934

 +635     ;;21,"00185015310 ")

 +636     ;;6935

 +637     ;;21,"00185015330 ")

 +638     ;;6936

 +639     ;;21,"00185015350 ")

 +640     ;;6937

 +641     ;;21,"00185015701 ")

 +642     ;;6938

 +643     ;;21,"00185015705 ")

 +644     ;;6939

 +645     ;;21,"00185015730 ")

 +646     ;;6940

 +647     ;;21,"00185021201 ")

 +648     ;;6941

 +649     ;;21,"00185021205 ")

 +650     ;;6942

 +651     ;;21,"00185021210 ")

 +652     ;;6943

 +653     ;;21,"00185021230 ")

 +654     ;;6944

 +655     ;;21,"00185022201 ")

 +656     ;;6945

 +657     ;;21,"00185022205 ")

 +658     ;;6946

 +659     ;;21,"00185022210 ")

 +660     ;;6947

 +661     ;;21,"00185022230 ")

 +662     ;;6948

 +663     ;;21,"00185026501 ")

 +664     ;;6949

 +665     ;;21,"00185026510 ")

 +666     ;;6950

 +667     ;;21,"00185026530 ")

 +668     ;;6951

 +669     ;;21,"00185026550 ")

 +670     ;;6952

 +671     ;;21,"00185037101 ")

 +672     ;;6953

 +673     ;;21,"00185037110 ")

 +674     ;;6954

 +675     ;;21,"00185037201 ")

 +676     ;;6955

 +677     ;;21,"00185037205 ")

 +678     ;;6956

 +679     ;;21,"00185037210 ")

 +680     ;;6957

 +681     ;;21,"00185037301 ")

 +682     ;;6958

 +683     ;;21,"00185037305 ")

 +684     ;;6959

 +685     ;;21,"00185037310 ")

 +686     ;;6960

 +687     ;;21,"00228272103 ")

 +688     ;;6961

 +689     ;;21,"00228272109 ")

 +690     ;;6962

 +691     ;

OTHER     ; OTHER ROUTINES

 +1        DO ^BGPM5AZS

 +2        DO ^BGPM5AZT

 +3        DO ^BGPM5BAP

 +4        DO ^BGPM5BAQ

 +5        DO ^BGPM5BAR

 +6        DO ^BGPM5BAS

 +7        DO ^BGPM5BAT

 +8        DO ^BGPM5BAU

 +9        DO ^BGPM5BAV

 +10       DO ^BGPM5BAW

 +11       DO ^BGPM5BAX

 +12       DO ^BGPM5BAY

 +13       DO ^BGPM5BAZ

 +14       DO ^BGPM5BB

 +15       DO ^BGPM5BBA

 +16       DO ^BGPM5BBB

 +17       DO ^BGPM5BBC

 +18       DO ^BGPM5BBD

 +19       DO ^BGPM5BBE

 +20       DO ^BGPM5BBF

 +21       DO ^BGPM5BBG

 +22       DO ^BGPM5BBH

 +23       DO ^BGPM5BBI

 +24       DO ^BGPM5BBJ

 +25       DO ^BGPM5BBK

 +26       DO ^BGPM5BBL

 +27       DO ^BGPM5BBM

 +28       DO ^BGPM5BBN

 +29       DO ^BGPM5BBO

 +30       DO ^BGPM5BBP

 +31       DO ^BGPM5BBQ

 +32       DO ^BGPM5BBR

 +33       DO ^BGPM5BBS

 +34       DO ^BGPM5BBT

 +35       DO ^BGPM5BBU

 +36       DO ^BGPM5BBV

 +37       DO ^BGPM5BBW

 +38       DO ^BGPM5BBX

 +39       DO ^BGPM5BBY

 +40       DO ^BGPM5BBZ

 +41       DO ^BGPM5BC

 +42       DO ^BGPM5BCA

 +43       DO ^BGPM5BCB

 +44       DO ^BGPM5BCC

 +45       DO ^BGPM5BCD

 +46       DO ^BGPM5BCE

 +47       DO ^BGPM5BCF

 +48       DO ^BGPM5BCG

 +49       DO ^BGPM5BCH

 +50       DO ^BGPM5BCI

 +51       DO ^BGPM5BCJ

 +52       DO ^BGPM5BCK

 +53       DO ^BGPM5BCL

 +54       DO ^BGPM5BCM

 +55       DO ^BGPM5BCN

 +56       DO ^BGPM5BCO

 +57       DO ^BGPM5BCP

 +58       DO ^BGPM5BCQ

 +59       DO ^BGPM5BCR

 +60       DO ^BGPM5BCS

 +61       DO ^BGPM5BCT

 +62       DO ^BGPM5BCU

 +63       DO ^BGPM5BCV

 +64       DO ^BGPM5BCW

 +65       DO ^BGPM5BCX

 +66       DO ^BGPM5BCY

 +67       DO ^BGPM5BCZ

 +68       DO ^BGPM5BD

 +69       DO ^BGPM5BDA

 +70       DO ^BGPM5BDB

 +71       DO ^BGPM5BDC

 +72       DO ^BGPM5BDD

 +73       DO ^BGPM5BDE

 +74       DO ^BGPM5BDF

 +75       DO ^BGPM5BDG

 +76       DO ^BGPM5BDH

 +77       DO ^BGPM5BDI

 +78       DO ^BGPM5BDJ

 +79       DO ^BGPM5BDK

 +80       DO ^BGPM5BDL

 +81       DO ^BGPM5BDM

 +82       DO ^BGPM5BDN

 +83       DO ^BGPM5BDO

 +84       DO ^BGPM5BDP

 +85       DO ^BGPM5BDQ

 +86       DO ^BGPM5BDR

 +87       DO ^BGPM5BDS

 +88       DO ^BGPM5BDT

 +89       DO ^BGPM5BDU

 +90       DO ^BGPM5BDV

 +91       DO ^BGPM5BDW

 +92       DO ^BGPM5BDX

 +93       DO ^BGPM5BDY

 +94       DO ^BGPM5BDZ

 +95       DO ^BGPM5BE

 +96       DO ^BGPM5BEA

 +97       DO ^BGPM5BEB

 +98       DO ^BGPM5BEC

 +99       DO ^BGPM5BED

 +100      DO ^BGPM5BEE

 +101      QUIT