BGPM5ADM.m

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

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

 ;;BGPMU DIAB ACE NDCS

 ;

 ; This routine loads Taxonomy BGPMU DIAB ACE 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,"00006017399 ")

 ;;3741

 ;;21,"00006072099 ")

 ;;3742

 ;;21,"00054010625 ")

 ;;3743

 ;;21,"00054010720 ")

 ;;3744

 ;;21,"00054010725 ")

 ;;3745

 ;;21,"00054010729 ")

 ;;3746

 ;;21,"00054010820 ")

 ;;3747

 ;;21,"00054010825 ")

 ;;3748

 ;;21,"00054010829 ")

 ;;3749

 ;;21,"00054010925 ")

 ;;3750

 ;;21,"00054010929 ")

 ;;3751

 ;;21,"00054011025 ")

 ;;3752

 ;;21,"00054011125 ")

 ;;3753

 ;;21,"00054011225 ")

 ;;3754

 ;;21,"00056072170 ")

 ;;3755

 ;;21,"00056072190 ")

 ;;3756

 ;;21,"00056072270 ")

 ;;3757

 ;;21,"00056072290 ")

 ;;3758

 ;;21,"00056072470 ")

 ;;3759

 ;;21,"00056072490 ")

 ;;3760

 ;;21,"00056072770 ")

 ;;3761

 ;;21,"00056072790 ")

 ;;3762

 ;;21,"00056073170 ")

 ;;3763

 ;;21,"00056073370 ")

 ;;3764

 ;;21,"00056073970 ")

 ;;3765

 ;;21,"00056074170 ")

 ;;3766

 ;;21,"00068070061 ")

 ;;3767

 ;;21,"00068070065 ")

 ;;3768

 ;;21,"00068070361 ")

 ;;3769

 ;;21,"00068070365 ")

 ;;3770

 ;;21,"00068070561 ")

 ;;3771

 ;;21,"00068070565 ")

 ;;3772

 ;;21,"00078167301 ")

 ;;3773

 ;;21,"00078167331 ")

 ;;3774

 ;;21,"00078167334 ")

 ;;3775

 ;;21,"00093001701 ")

 ;;3776

 ;;21,"00093002601 ")

 ;;3777

 ;;21,"00093002610 ")

 ;;3778

 ;;21,"00093002701 ")

 ;;3779

 ;;21,"00093002750 ")

 ;;3780

 ;;21,"00093002801 ")

 ;;3781

 ;;21,"00093002810 ")

 ;;3782

 ;;21,"00093002850 ")

 ;;3783

 ;;21,"00093002901 ")

 ;;3784

 ;;21,"00093002910 ")

 ;;3785

 ;;21,"00093002950 ")

 ;;3786

 ;;21,"00093017601 ")

 ;;3787

 ;;21,"00093017701 ")

 ;;3788

 ;;21,"00093018101 ")

 ;;3789

 ;;21,"00093018201 ")

 ;;3790

 ;;21,"00093103605 ")

 ;;3791

 ;;21,"00093103705 ")

 ;;3792

 ;;21,"00093104401 ")

 ;;3793

 ;;21,"00093104505 ")

 ;;3794

 ;;21,"00093104598 ")

 ;;3795

 ;;21,"00093105005 ")

 ;;3796

 ;;21,"00093105098 ")

 ;;3797

 ;;21,"00093105105 ")

 ;;3798

 ;;21,"00093105198 ")

 ;;3799

 ;;21,"00093105201 ")

 ;;3800

 ;;21,"00093105210 ")

 ;;3801

 ;;21,"00093105305 ")

 ;;3802

 ;;21,"00093105398 ")

 ;;3803

 ;;21,"00093111210 ")

 ;;3804

 ;;21,"00093111310 ")

 ;;3805

 ;;21,"00093111505 ")

 ;;3806

 ;;21,"00093515001 ")

 ;;3807

 ;;21,"00093521301 ")

 ;;3808

 ;;21,"00093521401 ")

 ;;3809

 ;;21,"00093521501 ")

 ;;3810

 ;;21,"00093545698 ")

 ;;3811

 ;;21,"00093545798 ")

 ;;3812

 ;;21,"00093545898 ")

 ;;3813

 ;;21,"00093545998 ")

 ;;3814

 ;;21,"00093722210 ")

 ;;3815

 ;;21,"00093722298 ")

 ;;3816

 ;;21,"00093722310 ")

 ;;3817

 ;;21,"00093722398 ")

 ;;3818

 ;;21,"00093722410 ")

 ;;3819

 ;;21,"00093722498 ")

 ;;3820

 ;;21,"00093732501 ")

 ;;3821

 ;;21,"00093732601 ")

 ;;3822

 ;;21,"00093743601 ")

 ;;3823

 ;;21,"00093743605 ")

 ;;3824

 ;;21,"00093743701 ")

 ;;3825

 ;;21,"00093743705 ")

 ;;3826

 ;;21,"00093743801 ")

 ;;3827

 ;;21,"00093743805 ")

 ;;3828

 ;;21,"00093813201 ")

 ;;3829

 ;;21,"00093813210 ")

 ;;3830

 ;;21,"00093813301 ")

 ;;3831

 ;;21,"00093813310 ")

 ;;3832

 ;;21,"00093813401 ")

 ;;3833

 ;;21,"00093813410 ")

 ;;3834

 ;;21,"00093813501 ")

 ;;3835

 ;;21,"00143117101 ")

 ;;3836

 ;;21,"00143117109 ")

 ;;3837

 ;;21,"00143117110 ")

 ;;3838

 ;;21,"00143117125 ")

 ;;3839

 ;;21,"00143117130 ")

 ;;3840

 ;;21,"00143117190 ")

 ;;3841

 ;;21,"00143117201 ")

 ;;3842

 ;;21,"00143117210 ")

 ;;3843

 ;;21,"00143117225 ")

 ;;3844

 ;;21,"00143117230 ")

 ;;3845

 ;;21,"00143117290 ")

 ;;3846

 ;;21,"00143117301 ")

 ;;3847

 ;;21,"00143117309 ")

 ;;3848

 ;;21,"00143117310 ")

 ;;3849

 ;;21,"00143117325 ")

 ;;3850

 ;;21,"00143117330 ")

 ;;3851

 ;;21,"00143117401 ")

 ;;3852

 ;;21,"00143117409 ")

 ;;3853

 ;;21,"00143117410 ")

 ;;3854

 ;;21,"00143117425 ")

 ;;3855

 ;;21,"00143117430 ")

 ;;3856

 ;;21,"00143126201 ")

 ;;3857

 ;;21,"00143126205 ")

 ;;3858

 ;;21,"00143126210 ")

 ;;3859

 ;;21,"00143126230 ")

 ;;3860

 ;;21,"00143126301 ")

 ;;3861

 ;;21,"00143126305 ")

 ;;3862

 ;;21,"00143126310 ")

 ;;3863

 ;;21,"00143126330 ")

 ;;3864

 ;;21,"00143126401 ")

 ;;3865

 ;;21,"00143126405 ")

 ;;3866

 ;;21,"00143126410 ")

 ;;3867

 ;;21,"00143126430 ")

 ;;3868

 ;;21,"00143126501 ")

 ;;3869

 ;;21,"00143126509 ")

 ;;3870

 ;;21,"00143126510 ")

 ;;3871

 ;;21,"00143126530 ")

 ;;3872

 ;;21,"00143126601 ")

 ;;3873

 ;;21,"00143126609 ")

 ;;3874

 ;;21,"00143126610 ")

 ;;3875

 ;;21,"00143126630 ")

 ;;3876

 ;;21,"00143126645 ")

 ;;3877

 ;;21,"00143126701 ")

 ;;3878

 ;;21,"00143126709 ")

 ;;3879

 ;;21,"00143126710 ")

 ;;3880

 ;;21,"00143126718 ")

 ;;3881

 ;;21,"00143126730 ")

 ;;3882

 ;;21,"00143126745 ")

 ;;3883

 ;;21,"00143126751 ")

 ;;3884

 ;;21,"00143126801 ")

 ;;3885

 ;;21,"00143126809 ")

 ;;3886

 ;;21,"00143126810 ")

 ;;3887

 ;;21,"00143126818 ")

 ;;3888

 ;;21,"00143126830 ")

 ;;3889

 ;;21,"00143126845 ")

 ;;3890

 ;;21,"00143126851 ")

 ;;3891

 ;;21,"00143127001 ")

 ;;3892

 ;;21,"00143127009 ")

 ;;3893

 ;;21,"00143127010 ")

 ;;3894

 ;;21,"00143127018 ")

 ;;3895

 ;;21,"00143127030 ")

 ;;3896

 ;;21,"00143127045 ")

 ;;3897

 ;;21,"00143127051 ")

 ;;3898

 ;;21,"00143128001 ")

 ;;3899

 ;;21,"00143128010 ")

 ;;3900

 ;;21,"00143128030 ")

 ;;3901

 ;;21,"00143912501 ")

 ;;3902

 ;;21,"00143912601 ")

 ;;3903

 ;;21,"00172375700 ")

 ;;3904

 ;;21,"00172375710 ")

 ;;3905

 ;;21,"00172375760 ")

 ;;3906

 ;;21,"00172375770 ")

 ;;3907

 ;;21,"00172375800 ")

 ;;3908

 ;;21,"00172375810 ")

 ;;3909

 ;;21,"00172375860 ")

 ;;3910

 ;;21,"00172375870 ")

 ;;3911

 ;;21,"00172375880 ")

 ;;3912

 ;;21,"00172375900 ")

 ;;3913

 ;;21,"00172375910 ")

 ;;3914

 ;;21,"00172375960 ")

 ;;3915

 ;;21,"00172375970 ")

 ;;3916

 ;;21,"00172375980 ")

 ;;3917

 ;;21,"00172376000 ")

 ;;3918

 ;;21,"00172376010 ")

 ;;3919

 ;;21,"00172376060 ")

 ;;3920

 ;;21,"00172376070 ")

 ;;3921

 ;;21,"00172376080 ")

 ;;3922

 ;;21,"00172376100 ")

 ;;3923

 ;;21,"00172376110 ")

 ;;3924

 ;;21,"00172376160 ")

 ;;3925

 ;;21,"00172376170 ")

 ;;3926

 ;;21,"00172376180 ")

 ;;3927

 ;;21,"00172376200 ")

 ;;3928

 ;;21,"00172376210 ")

 ;;3929

 ;;21,"00172376260 ")

 ;;3930

 ;;21,"00172376270 ")

 ;;3931

 ;;21,"00172419510 ")

 ;;3932

 ;;21,"00172419610 ")

 ;;3933

 ;;21,"00172419710 ")

 ;;3934

 ;;21,"00172419810 ")

 ;;3935

 ;;21,"00172503200 ")

 ;;3936

 ;;21,"00172503210 ")

 ;;3937

 ;;21,"00172503260 ")

 ;;3938

 ;;21,"00172503270 ")

 ;;3939

 ;;21,"00172503300 ")

 ;;3940

 ;;21,"00172503310 ")

 ;;3941

 ;;21,"00172503360 ")

 ;;3942

 ;;21,"00172503370 ")

 ;;3943

 ;;21,"00172503400 ")

 ;;3944

 ;;21,"00172503410 ")

 ;;3945

 ;;21,"00172503460 ")

 ;;3946

 ;;21,"00172503470 ")

 ;;3947

 ;;21,"00172565260 ")

 ;;3948

 ;;21,"00172565270 ")

 ;;3949

 ;;21,"00172565360 ")

 ;;3950

 ;;21,"00172565380 ")

 ;;3951

 ;;21,"00179115701 ")

 ;;3952

 ;;21,"00179115705 ")

 ;;3953

 ;;21,"00179115730 ")

 ;;3954

 ;;21,"00179115745 ")

 ;;3955

 ;;21,"00179115750 ")

 ;;3956

 ;;21,"00179115777 ")

 ;;3957

 ;;21,"00179116801 ")

 ;;3958

 ;;21,"00179116802 ")

 ;;3959

 ;;21,"00179116830 ")

 ;;3960

 ;;21,"00179116850 ")

 ;;3961

 ;;21,"00179116890 ")

 ;;3962

 ;;21,"00179116901 ")

 ;;3963

 ;;21,"00179116930 ")

 ;;3964

 ;;21,"00179116945 ")

 ;;3965

 ;;21,"00179116950 ")

 ;;3966

 ;;21,"00179120301 ")

 ;;3967

 ;;21,"00179120304 ")

 ;;3968

 ;;21,"00179120330 ")

 ;;3969

 ;;21,"00179120345 ")

 ;;3970

 ;;21,"00179120350 ")

 ;;3971

 ;;21,"00179120360 ")

 ;;3972

 ;;21,"00179145601 ")

 ;;3973

 ;;21,"00179145630 ")

 ;;3974

 ;;21,"00179145650 ")

 ;;3975

 ;;21,"00179145660 ")

 ;;3976

 ;;21,"00179145690 ")

 ;;3977

 ;;21,"00179150801 ")

 ;;3978

 ;;21,"00179150811 ")

 ;;3979

 ;;21,"00179150820 ")

 ;;3980

 ;;21,"00179150830 ")

 ;;3981

 ;;21,"00179150850 ")

 ;;3982

 ;;21,"00179150860 ")

 ;;3983

 ;;21,"00179150890 ")

 ;;3984

 ;;21,"00179153970 ")

 ;;3985

 ;;21,"00179153971 ")

 ;;3986

 ;;21,"00179153972 ")

 ;;3987

 ;;21,"00179160770 ")

 ;;3988

 ;;21,"00179160771 ")

 ;;3989

 ;;21,"00179160772 ")

 ;;3990

 ;;21,"00179162770 ")

 ;;3991

 ;;21,"00179162771 ")

 ;;3992

 ;;21,"00179162772 ")

 ;;3993

 ;;21,"00179176870 ")

 ;;3994

 ;;21,"00179176871 ")

 ;;3995

 ;;21,"00179176872 ")

 ;;3996

 ;;21,"00179190601 ")

 ;;3997

 ;;21,"00179190630 ")

 ;;3998

 ;;21,"00179190650 ")

 ;;3999

 ;;21,"00179190660 ")

 ;;4000

 ;;21,"00179190690 ")

 ;;4001

 ;;21,"00179190770 ")

 ;;4002

 ;;21,"00179190771 ")

 ;;4003

 ;;21,"00179190772 ")

 ;;4004

 ;;21,"00179191501 ")

 ;;4005

 ;;21,"00179191530 ")

 ;;4006

 ;;21,"00179191550 ")

 ;;4007

 ;;21,"00179191560 ")

 ;;4008

 ;;21,"00179191590 ")

 ;;4009

 ;;21,"00179192470 ")

 ;;4010

 ;;21,"00179192471 ")

 ;;4011

 ;;21,"00179192472 ")

 ;;4012

 ;;21,"00179192501 ")

 ;;4013

 ;;21,"00179192530 ")

 ;;4014

 ;;21,"00179192550 ")

 ;;4015

 ;;21,"00179192560 ")

 ;;4016

 ;;21,"00179192590 ")

 ;;4017

 ;;21,"00179198370 ")

 ;;4018

 ;;21,"00179198371 ")

 ;;4019

 ;;21,"00179198372 ")

 ;;4020

 ;;21,"00179198401 ")

 ;;4021

 ;;21,"00179198430 ")

 ;;4022

 ;;21,"00179198450 ")

 ;;4023

 ;;21,"00179198460 ")

 ;;4024

 ;;21,"00179198490 ")

 ;;4025

 ;;21,"00179198501 ")

 ;;4026

 ;;21,"00179198530 ")

 ;;4027

 ;;21,"00179198550 ")

 ;;4028

 ;;21,"00179198560 ")

 ;;4029

 ;;21,"00179198590 ")

 ;;4030

 ;;21,"00179198770 ")

 ;;4031

 ;;21,"00179198771 ")

 ;;4032

 ;;21,"00179198772 ")

 ;;4033

 ;;21,"00179198801 ")

 ;;4034

 ;;21,"00179198830 ")

 ;;4035

 ;;21,"00179198850 ")

 ;;4036

 ;;21,"00179198860 ")

 ;;4037

 ;;21,"00179198890 ")

 ;;4038

 ;;21,"00179199270 ")

 ;;4039

 ;;21,"00179199271 ")

 ;;4040

 ;;21,"00179199272 ")

 ;;4041

 ;;21,"00185002301 ")

 ;;4042

 ;;21,"00185002305 ")

 ;;4043

 ;;21,"00185002309 ")

 ;;4044

 ;;21,"00185002501 ")

 ;;4045

 ;;21,"00185002510 ")

 ;;4046

 ;;21,"00185003301 ")

 ;;4047

 ;;21,"00185003305 ")

 ;;4048

 ;;21,"00185003309 ")

 ;;4049

 ;;21,"00185003310 ")

 ;;4050

 ;;21,"00185004101 ")

 ;;4051

 ;;21,"00185004109 ")

 ;;4052

 ;;21,"00185004110 ")

 ;;4053

 ;;21,"00185004190 ")

 ;;4054

 ;;21,"00185004201 ")

 ;;4055

 ;;21,"00185004209 ")

 ;;4056

 ;;21,"00185004210 ")

 ;;4057

 ;;21,"00185004290 ")

 ;;4058

 ;;21,"00185004701 ")

 ;;4059

 ;;21,"00185004709 ")

 ;;4060

 ;;21,"00185004710 ")

 ;;4061

 ;;21,"00185004790 ")

 ;;4062

 ;;21,"00185004901 ")

 ;;4063

 ;;21,"00185004905 ")

 ;;4064

 ;;21,"00185004909 ")

 ;;4065

 ;;21,"00185004910 ")

 ;;4066

 ;;21,"00185006701 ")

 ;;4067

 ;;21,"00185006705 ")

 ;;4068

 ;;21,"00185006709 ")

 ;;4069

 ;;21,"00185006710 ")

 ;;4070

 ;;21,"00185010101 ")

 ;;4071

 ;;21,"00185010110 ")

 ;;4072

 ;;21,"00185010133 ")

 ;;4073

 ;;21,"00185010201 ")

 ;;4074

 ;;21,"00185010210 ")

 ;;4075

 ;;21,"00185010233 ")

 ;;4076

 ;;21,"00185010301 ")

 ;;4077

 ;;21,"00185010310 ")

 ;;4078

 ;;21,"00185010333 ")

 ;;4079

 ;;21,"00185010401 ")

 ;;4080

 ;;21,"00185010410 ")

 ;;4081

 ;;21,"00185011401 ")

 ;;4082

 ;;21,"00185011410 ")

 ;;4083

 ;;21,"00185011450 ")

 ;;4084

 ;;21,"00185012701 ")

 ;;4085

 ;;21,"00185012710 ")

 ;;4086

 ;

OTHER ; OTHER ROUTINES

 D ^BGPM5ADN

 D ^BGPM5ADO

 D ^BGPM5ADP

 D ^BGPM5ADQ

 D ^BGPM5ADR

 D ^BGPM5ADS

 D ^BGPM5ADT

 D ^BGPM5ADU

 D ^BGPM5ADV

 D ^BGPM5ADW

 D ^BGPM5ADX

 D ^BGPM5ADY

 D ^BGPM5ADZ

 D ^BGPM5AE

 D ^BGPM5AEA

 D ^BGPM5AEB

 D ^BGPM5AEC

 D ^BGPM5AED

 D ^BGPM5AEE

 D ^BGPM5AEF

 D ^BGPM5AEG

 D ^BGPM5AEH

 D ^BGPM5AEI

 D ^BGPM5AEJ

 D ^BGPM5AEK

 D ^BGPM5AEL

 D ^BGPM5AEM

 D ^BGPM5AEN

 D ^BGPM5AEO

 D ^BGPM5AEP

 D ^BGPM5AEQ

 D ^BGPM5AER

 D ^BGPM5AES

 D ^BGPM5AET

 D ^BGPM5AEU

 D ^BGPM5AEV

 D ^BGPM5AEW

 D ^BGPM5AEX

 D ^BGPM5AEY

 D ^BGPM5AEZ

 D ^BGPM5AF

 D ^BGPM5AFA

 D ^BGPM5AFB

 D ^BGPM5AFC

 D ^BGPM5AFD

 D ^BGPM5AFE

 D ^BGPM5AFF

 D ^BGPM5AFG

 D ^BGPM5AFH

 D ^BGPM5AFI

 D ^BGPM5AFJ

 D ^BGPM5AFK

 D ^BGPM5AFL

 D ^BGPM5AFM

 D ^BGPM5AFN

 D ^BGPM5AFO

 D ^BGPM5AFP

 Q

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

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

 +2       ;;BGPMU DIAB ACE NDCS

 +3       ;

 +4       ; This routine loads Taxonomy BGPMU DIAB ACE 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,"00006017399 ")

 +2       ;;3741

 +3       ;;21,"00006072099 ")

 +4       ;;3742

 +5       ;;21,"00054010625 ")

 +6       ;;3743

 +7       ;;21,"00054010720 ")

 +8       ;;3744

 +9       ;;21,"00054010725 ")

 +10      ;;3745

 +11      ;;21,"00054010729 ")

 +12      ;;3746

 +13      ;;21,"00054010820 ")

 +14      ;;3747

 +15      ;;21,"00054010825 ")

 +16      ;;3748

 +17      ;;21,"00054010829 ")

 +18      ;;3749

 +19      ;;21,"00054010925 ")

 +20      ;;3750

 +21      ;;21,"00054010929 ")

 +22      ;;3751

 +23      ;;21,"00054011025 ")

 +24      ;;3752

 +25      ;;21,"00054011125 ")

 +26      ;;3753

 +27      ;;21,"00054011225 ")

 +28      ;;3754

 +29      ;;21,"00056072170 ")

 +30      ;;3755

 +31      ;;21,"00056072190 ")

 +32      ;;3756

 +33      ;;21,"00056072270 ")

 +34      ;;3757

 +35      ;;21,"00056072290 ")

 +36      ;;3758

 +37      ;;21,"00056072470 ")

 +38      ;;3759

 +39      ;;21,"00056072490 ")

 +40      ;;3760

 +41      ;;21,"00056072770 ")

 +42      ;;3761

 +43      ;;21,"00056072790 ")

 +44      ;;3762

 +45      ;;21,"00056073170 ")

 +46      ;;3763

 +47      ;;21,"00056073370 ")

 +48      ;;3764

 +49      ;;21,"00056073970 ")

 +50      ;;3765

 +51      ;;21,"00056074170 ")

 +52      ;;3766

 +53      ;;21,"00068070061 ")

 +54      ;;3767

 +55      ;;21,"00068070065 ")

 +56      ;;3768

 +57      ;;21,"00068070361 ")

 +58      ;;3769

 +59      ;;21,"00068070365 ")

 +60      ;;3770

 +61      ;;21,"00068070561 ")

 +62      ;;3771

 +63      ;;21,"00068070565 ")

 +64      ;;3772

 +65      ;;21,"00078167301 ")

 +66      ;;3773

 +67      ;;21,"00078167331 ")

 +68      ;;3774

 +69      ;;21,"00078167334 ")

 +70      ;;3775

 +71      ;;21,"00093001701 ")

 +72      ;;3776

 +73      ;;21,"00093002601 ")

 +74      ;;3777

 +75      ;;21,"00093002610 ")

 +76      ;;3778

 +77      ;;21,"00093002701 ")

 +78      ;;3779

 +79      ;;21,"00093002750 ")

 +80      ;;3780

 +81      ;;21,"00093002801 ")

 +82      ;;3781

 +83      ;;21,"00093002810 ")

 +84      ;;3782

 +85      ;;21,"00093002850 ")

 +86      ;;3783

 +87      ;;21,"00093002901 ")

 +88      ;;3784

 +89      ;;21,"00093002910 ")

 +90      ;;3785

 +91      ;;21,"00093002950 ")

 +92      ;;3786

 +93      ;;21,"00093017601 ")

 +94      ;;3787

 +95      ;;21,"00093017701 ")

 +96      ;;3788

 +97      ;;21,"00093018101 ")

 +98      ;;3789

 +99      ;;21,"00093018201 ")

 +100     ;;3790

 +101     ;;21,"00093103605 ")

 +102     ;;3791

 +103     ;;21,"00093103705 ")

 +104     ;;3792

 +105     ;;21,"00093104401 ")

 +106     ;;3793

 +107     ;;21,"00093104505 ")

 +108     ;;3794

 +109     ;;21,"00093104598 ")

 +110     ;;3795

 +111     ;;21,"00093105005 ")

 +112     ;;3796

 +113     ;;21,"00093105098 ")

 +114     ;;3797

 +115     ;;21,"00093105105 ")

 +116     ;;3798

 +117     ;;21,"00093105198 ")

 +118     ;;3799

 +119     ;;21,"00093105201 ")

 +120     ;;3800

 +121     ;;21,"00093105210 ")

 +122     ;;3801

 +123     ;;21,"00093105305 ")

 +124     ;;3802

 +125     ;;21,"00093105398 ")

 +126     ;;3803

 +127     ;;21,"00093111210 ")

 +128     ;;3804

 +129     ;;21,"00093111310 ")

 +130     ;;3805

 +131     ;;21,"00093111505 ")

 +132     ;;3806

 +133     ;;21,"00093515001 ")

 +134     ;;3807

 +135     ;;21,"00093521301 ")

 +136     ;;3808

 +137     ;;21,"00093521401 ")

 +138     ;;3809

 +139     ;;21,"00093521501 ")

 +140     ;;3810

 +141     ;;21,"00093545698 ")

 +142     ;;3811

 +143     ;;21,"00093545798 ")

 +144     ;;3812

 +145     ;;21,"00093545898 ")

 +146     ;;3813

 +147     ;;21,"00093545998 ")

 +148     ;;3814

 +149     ;;21,"00093722210 ")

 +150     ;;3815

 +151     ;;21,"00093722298 ")

 +152     ;;3816

 +153     ;;21,"00093722310 ")

 +154     ;;3817

 +155     ;;21,"00093722398 ")

 +156     ;;3818

 +157     ;;21,"00093722410 ")

 +158     ;;3819

 +159     ;;21,"00093722498 ")

 +160     ;;3820

 +161     ;;21,"00093732501 ")

 +162     ;;3821

 +163     ;;21,"00093732601 ")

 +164     ;;3822

 +165     ;;21,"00093743601 ")

 +166     ;;3823

 +167     ;;21,"00093743605 ")

 +168     ;;3824

 +169     ;;21,"00093743701 ")

 +170     ;;3825

 +171     ;;21,"00093743705 ")

 +172     ;;3826

 +173     ;;21,"00093743801 ")

 +174     ;;3827

 +175     ;;21,"00093743805 ")

 +176     ;;3828

 +177     ;;21,"00093813201 ")

 +178     ;;3829

 +179     ;;21,"00093813210 ")

 +180     ;;3830

 +181     ;;21,"00093813301 ")

 +182     ;;3831

 +183     ;;21,"00093813310 ")

 +184     ;;3832

 +185     ;;21,"00093813401 ")

 +186     ;;3833

 +187     ;;21,"00093813410 ")

 +188     ;;3834

 +189     ;;21,"00093813501 ")

 +190     ;;3835

 +191     ;;21,"00143117101 ")

 +192     ;;3836

 +193     ;;21,"00143117109 ")

 +194     ;;3837

 +195     ;;21,"00143117110 ")

 +196     ;;3838

 +197     ;;21,"00143117125 ")

 +198     ;;3839

 +199     ;;21,"00143117130 ")

 +200     ;;3840

 +201     ;;21,"00143117190 ")

 +202     ;;3841

 +203     ;;21,"00143117201 ")

 +204     ;;3842

 +205     ;;21,"00143117210 ")

 +206     ;;3843

 +207     ;;21,"00143117225 ")

 +208     ;;3844

 +209     ;;21,"00143117230 ")

 +210     ;;3845

 +211     ;;21,"00143117290 ")

 +212     ;;3846

 +213     ;;21,"00143117301 ")

 +214     ;;3847

 +215     ;;21,"00143117309 ")

 +216     ;;3848

 +217     ;;21,"00143117310 ")

 +218     ;;3849

 +219     ;;21,"00143117325 ")

 +220     ;;3850

 +221     ;;21,"00143117330 ")

 +222     ;;3851

 +223     ;;21,"00143117401 ")

 +224     ;;3852

 +225     ;;21,"00143117409 ")

 +226     ;;3853

 +227     ;;21,"00143117410 ")

 +228     ;;3854

 +229     ;;21,"00143117425 ")

 +230     ;;3855

 +231     ;;21,"00143117430 ")

 +232     ;;3856

 +233     ;;21,"00143126201 ")

 +234     ;;3857

 +235     ;;21,"00143126205 ")

 +236     ;;3858

 +237     ;;21,"00143126210 ")

 +238     ;;3859

 +239     ;;21,"00143126230 ")

 +240     ;;3860

 +241     ;;21,"00143126301 ")

 +242     ;;3861

 +243     ;;21,"00143126305 ")

 +244     ;;3862

 +245     ;;21,"00143126310 ")

 +246     ;;3863

 +247     ;;21,"00143126330 ")

 +248     ;;3864

 +249     ;;21,"00143126401 ")

 +250     ;;3865

 +251     ;;21,"00143126405 ")

 +252     ;;3866

 +253     ;;21,"00143126410 ")

 +254     ;;3867

 +255     ;;21,"00143126430 ")

 +256     ;;3868

 +257     ;;21,"00143126501 ")

 +258     ;;3869

 +259     ;;21,"00143126509 ")

 +260     ;;3870

 +261     ;;21,"00143126510 ")

 +262     ;;3871

 +263     ;;21,"00143126530 ")

 +264     ;;3872

 +265     ;;21,"00143126601 ")

 +266     ;;3873

 +267     ;;21,"00143126609 ")

 +268     ;;3874

 +269     ;;21,"00143126610 ")

 +270     ;;3875

 +271     ;;21,"00143126630 ")

 +272     ;;3876

 +273     ;;21,"00143126645 ")

 +274     ;;3877

 +275     ;;21,"00143126701 ")

 +276     ;;3878

 +277     ;;21,"00143126709 ")

 +278     ;;3879

 +279     ;;21,"00143126710 ")

 +280     ;;3880

 +281     ;;21,"00143126718 ")

 +282     ;;3881

 +283     ;;21,"00143126730 ")

 +284     ;;3882

 +285     ;;21,"00143126745 ")

 +286     ;;3883

 +287     ;;21,"00143126751 ")

 +288     ;;3884

 +289     ;;21,"00143126801 ")

 +290     ;;3885

 +291     ;;21,"00143126809 ")

 +292     ;;3886

 +293     ;;21,"00143126810 ")

 +294     ;;3887

 +295     ;;21,"00143126818 ")

 +296     ;;3888

 +297     ;;21,"00143126830 ")

 +298     ;;3889

 +299     ;;21,"00143126845 ")

 +300     ;;3890

 +301     ;;21,"00143126851 ")

 +302     ;;3891

 +303     ;;21,"00143127001 ")

 +304     ;;3892

 +305     ;;21,"00143127009 ")

 +306     ;;3893

 +307     ;;21,"00143127010 ")

 +308     ;;3894

 +309     ;;21,"00143127018 ")

 +310     ;;3895

 +311     ;;21,"00143127030 ")

 +312     ;;3896

 +313     ;;21,"00143127045 ")

 +314     ;;3897

 +315     ;;21,"00143127051 ")

 +316     ;;3898

 +317     ;;21,"00143128001 ")

 +318     ;;3899

 +319     ;;21,"00143128010 ")

 +320     ;;3900

 +321     ;;21,"00143128030 ")

 +322     ;;3901

 +323     ;;21,"00143912501 ")

 +324     ;;3902

 +325     ;;21,"00143912601 ")

 +326     ;;3903

 +327     ;;21,"00172375700 ")

 +328     ;;3904

 +329     ;;21,"00172375710 ")

 +330     ;;3905

 +331     ;;21,"00172375760 ")

 +332     ;;3906

 +333     ;;21,"00172375770 ")

 +334     ;;3907

 +335     ;;21,"00172375800 ")

 +336     ;;3908

 +337     ;;21,"00172375810 ")

 +338     ;;3909

 +339     ;;21,"00172375860 ")

 +340     ;;3910

 +341     ;;21,"00172375870 ")

 +342     ;;3911

 +343     ;;21,"00172375880 ")

 +344     ;;3912

 +345     ;;21,"00172375900 ")

 +346     ;;3913

 +347     ;;21,"00172375910 ")

 +348     ;;3914

 +349     ;;21,"00172375960 ")

 +350     ;;3915

 +351     ;;21,"00172375970 ")

 +352     ;;3916

 +353     ;;21,"00172375980 ")

 +354     ;;3917

 +355     ;;21,"00172376000 ")

 +356     ;;3918

 +357     ;;21,"00172376010 ")

 +358     ;;3919

 +359     ;;21,"00172376060 ")

 +360     ;;3920

 +361     ;;21,"00172376070 ")

 +362     ;;3921

 +363     ;;21,"00172376080 ")

 +364     ;;3922

 +365     ;;21,"00172376100 ")

 +366     ;;3923

 +367     ;;21,"00172376110 ")

 +368     ;;3924

 +369     ;;21,"00172376160 ")

 +370     ;;3925

 +371     ;;21,"00172376170 ")

 +372     ;;3926

 +373     ;;21,"00172376180 ")

 +374     ;;3927

 +375     ;;21,"00172376200 ")

 +376     ;;3928

 +377     ;;21,"00172376210 ")

 +378     ;;3929

 +379     ;;21,"00172376260 ")

 +380     ;;3930

 +381     ;;21,"00172376270 ")

 +382     ;;3931

 +383     ;;21,"00172419510 ")

 +384     ;;3932

 +385     ;;21,"00172419610 ")

 +386     ;;3933

 +387     ;;21,"00172419710 ")

 +388     ;;3934

 +389     ;;21,"00172419810 ")

 +390     ;;3935

 +391     ;;21,"00172503200 ")

 +392     ;;3936

 +393     ;;21,"00172503210 ")

 +394     ;;3937

 +395     ;;21,"00172503260 ")

 +396     ;;3938

 +397     ;;21,"00172503270 ")

 +398     ;;3939

 +399     ;;21,"00172503300 ")

 +400     ;;3940

 +401     ;;21,"00172503310 ")

 +402     ;;3941

 +403     ;;21,"00172503360 ")

 +404     ;;3942

 +405     ;;21,"00172503370 ")

 +406     ;;3943

 +407     ;;21,"00172503400 ")

 +408     ;;3944

 +409     ;;21,"00172503410 ")

 +410     ;;3945

 +411     ;;21,"00172503460 ")

 +412     ;;3946

 +413     ;;21,"00172503470 ")

 +414     ;;3947

 +415     ;;21,"00172565260 ")

 +416     ;;3948

 +417     ;;21,"00172565270 ")

 +418     ;;3949

 +419     ;;21,"00172565360 ")

 +420     ;;3950

 +421     ;;21,"00172565380 ")

 +422     ;;3951

 +423     ;;21,"00179115701 ")

 +424     ;;3952

 +425     ;;21,"00179115705 ")

 +426     ;;3953

 +427     ;;21,"00179115730 ")

 +428     ;;3954

 +429     ;;21,"00179115745 ")

 +430     ;;3955

 +431     ;;21,"00179115750 ")

 +432     ;;3956

 +433     ;;21,"00179115777 ")

 +434     ;;3957

 +435     ;;21,"00179116801 ")

 +436     ;;3958

 +437     ;;21,"00179116802 ")

 +438     ;;3959

 +439     ;;21,"00179116830 ")

 +440     ;;3960

 +441     ;;21,"00179116850 ")

 +442     ;;3961

 +443     ;;21,"00179116890 ")

 +444     ;;3962

 +445     ;;21,"00179116901 ")

 +446     ;;3963

 +447     ;;21,"00179116930 ")

 +448     ;;3964

 +449     ;;21,"00179116945 ")

 +450     ;;3965

 +451     ;;21,"00179116950 ")

 +452     ;;3966

 +453     ;;21,"00179120301 ")

 +454     ;;3967

 +455     ;;21,"00179120304 ")

 +456     ;;3968

 +457     ;;21,"00179120330 ")

 +458     ;;3969

 +459     ;;21,"00179120345 ")

 +460     ;;3970

 +461     ;;21,"00179120350 ")

 +462     ;;3971

 +463     ;;21,"00179120360 ")

 +464     ;;3972

 +465     ;;21,"00179145601 ")

 +466     ;;3973

 +467     ;;21,"00179145630 ")

 +468     ;;3974

 +469     ;;21,"00179145650 ")

 +470     ;;3975

 +471     ;;21,"00179145660 ")

 +472     ;;3976

 +473     ;;21,"00179145690 ")

 +474     ;;3977

 +475     ;;21,"00179150801 ")

 +476     ;;3978

 +477     ;;21,"00179150811 ")

 +478     ;;3979

 +479     ;;21,"00179150820 ")

 +480     ;;3980

 +481     ;;21,"00179150830 ")

 +482     ;;3981

 +483     ;;21,"00179150850 ")

 +484     ;;3982

 +485     ;;21,"00179150860 ")

 +486     ;;3983

 +487     ;;21,"00179150890 ")

 +488     ;;3984

 +489     ;;21,"00179153970 ")

 +490     ;;3985

 +491     ;;21,"00179153971 ")

 +492     ;;3986

 +493     ;;21,"00179153972 ")

 +494     ;;3987

 +495     ;;21,"00179160770 ")

 +496     ;;3988

 +497     ;;21,"00179160771 ")

 +498     ;;3989

 +499     ;;21,"00179160772 ")

 +500     ;;3990

 +501     ;;21,"00179162770 ")

 +502     ;;3991

 +503     ;;21,"00179162771 ")

 +504     ;;3992

 +505     ;;21,"00179162772 ")

 +506     ;;3993

 +507     ;;21,"00179176870 ")

 +508     ;;3994

 +509     ;;21,"00179176871 ")

 +510     ;;3995

 +511     ;;21,"00179176872 ")

 +512     ;;3996

 +513     ;;21,"00179190601 ")

 +514     ;;3997

 +515     ;;21,"00179190630 ")

 +516     ;;3998

 +517     ;;21,"00179190650 ")

 +518     ;;3999

 +519     ;;21,"00179190660 ")

 +520     ;;4000

 +521     ;;21,"00179190690 ")

 +522     ;;4001

 +523     ;;21,"00179190770 ")

 +524     ;;4002

 +525     ;;21,"00179190771 ")

 +526     ;;4003

 +527     ;;21,"00179190772 ")

 +528     ;;4004

 +529     ;;21,"00179191501 ")

 +530     ;;4005

 +531     ;;21,"00179191530 ")

 +532     ;;4006

 +533     ;;21,"00179191550 ")

 +534     ;;4007

 +535     ;;21,"00179191560 ")

 +536     ;;4008

 +537     ;;21,"00179191590 ")

 +538     ;;4009

 +539     ;;21,"00179192470 ")

 +540     ;;4010

 +541     ;;21,"00179192471 ")

 +542     ;;4011

 +543     ;;21,"00179192472 ")

 +544     ;;4012

 +545     ;;21,"00179192501 ")

 +546     ;;4013

 +547     ;;21,"00179192530 ")

 +548     ;;4014

 +549     ;;21,"00179192550 ")

 +550     ;;4015

 +551     ;;21,"00179192560 ")

 +552     ;;4016

 +553     ;;21,"00179192590 ")

 +554     ;;4017

 +555     ;;21,"00179198370 ")

 +556     ;;4018

 +557     ;;21,"00179198371 ")

 +558     ;;4019

 +559     ;;21,"00179198372 ")

 +560     ;;4020

 +561     ;;21,"00179198401 ")

 +562     ;;4021

 +563     ;;21,"00179198430 ")

 +564     ;;4022

 +565     ;;21,"00179198450 ")

 +566     ;;4023

 +567     ;;21,"00179198460 ")

 +568     ;;4024

 +569     ;;21,"00179198490 ")

 +570     ;;4025

 +571     ;;21,"00179198501 ")

 +572     ;;4026

 +573     ;;21,"00179198530 ")

 +574     ;;4027

 +575     ;;21,"00179198550 ")

 +576     ;;4028

 +577     ;;21,"00179198560 ")

 +578     ;;4029

 +579     ;;21,"00179198590 ")

 +580     ;;4030

 +581     ;;21,"00179198770 ")

 +582     ;;4031

 +583     ;;21,"00179198771 ")

 +584     ;;4032

 +585     ;;21,"00179198772 ")

 +586     ;;4033

 +587     ;;21,"00179198801 ")

 +588     ;;4034

 +589     ;;21,"00179198830 ")

 +590     ;;4035

 +591     ;;21,"00179198850 ")

 +592     ;;4036

 +593     ;;21,"00179198860 ")

 +594     ;;4037

 +595     ;;21,"00179198890 ")

 +596     ;;4038

 +597     ;;21,"00179199270 ")

 +598     ;;4039

 +599     ;;21,"00179199271 ")

 +600     ;;4040

 +601     ;;21,"00179199272 ")

 +602     ;;4041

 +603     ;;21,"00185002301 ")

 +604     ;;4042

 +605     ;;21,"00185002305 ")

 +606     ;;4043

 +607     ;;21,"00185002309 ")

 +608     ;;4044

 +609     ;;21,"00185002501 ")

 +610     ;;4045

 +611     ;;21,"00185002510 ")

 +612     ;;4046

 +613     ;;21,"00185003301 ")

 +614     ;;4047

 +615     ;;21,"00185003305 ")

 +616     ;;4048

 +617     ;;21,"00185003309 ")

 +618     ;;4049

 +619     ;;21,"00185003310 ")

 +620     ;;4050

 +621     ;;21,"00185004101 ")

 +622     ;;4051

 +623     ;;21,"00185004109 ")

 +624     ;;4052

 +625     ;;21,"00185004110 ")

 +626     ;;4053

 +627     ;;21,"00185004190 ")

 +628     ;;4054

 +629     ;;21,"00185004201 ")

 +630     ;;4055

 +631     ;;21,"00185004209 ")

 +632     ;;4056

 +633     ;;21,"00185004210 ")

 +634     ;;4057

 +635     ;;21,"00185004290 ")

 +636     ;;4058

 +637     ;;21,"00185004701 ")

 +638     ;;4059

 +639     ;;21,"00185004709 ")

 +640     ;;4060

 +641     ;;21,"00185004710 ")

 +642     ;;4061

 +643     ;;21,"00185004790 ")

 +644     ;;4062

 +645     ;;21,"00185004901 ")

 +646     ;;4063

 +647     ;;21,"00185004905 ")

 +648     ;;4064

 +649     ;;21,"00185004909 ")

 +650     ;;4065

 +651     ;;21,"00185004910 ")

 +652     ;;4066

 +653     ;;21,"00185006701 ")

 +654     ;;4067

 +655     ;;21,"00185006705 ")

 +656     ;;4068

 +657     ;;21,"00185006709 ")

 +658     ;;4069

 +659     ;;21,"00185006710 ")

 +660     ;;4070

 +661     ;;21,"00185010101 ")

 +662     ;;4071

 +663     ;;21,"00185010110 ")

 +664     ;;4072

 +665     ;;21,"00185010133 ")

 +666     ;;4073

 +667     ;;21,"00185010201 ")

 +668     ;;4074

 +669     ;;21,"00185010210 ")

 +670     ;;4075

 +671     ;;21,"00185010233 ")

 +672     ;;4076

 +673     ;;21,"00185010301 ")

 +674     ;;4077

 +675     ;;21,"00185010310 ")

 +676     ;;4078

 +677     ;;21,"00185010333 ")

 +678     ;;4079

 +679     ;;21,"00185010401 ")

 +680     ;;4080

 +681     ;;21,"00185010410 ")

 +682     ;;4081

 +683     ;;21,"00185011401 ")

 +684     ;;4082

 +685     ;;21,"00185011410 ")

 +686     ;;4083

 +687     ;;21,"00185011450 ")

 +688     ;;4084

 +689     ;;21,"00185012701 ")

 +690     ;;4085

 +691     ;;21,"00185012710 ")

 +692     ;;4086

 +693     ;

OTHER     ; OTHER ROUTINES

 +1        DO ^BGPM5ADN

 +2        DO ^BGPM5ADO

 +3        DO ^BGPM5ADP

 +4        DO ^BGPM5ADQ

 +5        DO ^BGPM5ADR

 +6        DO ^BGPM5ADS

 +7        DO ^BGPM5ADT

 +8        DO ^BGPM5ADU

 +9        DO ^BGPM5ADV

 +10       DO ^BGPM5ADW

 +11       DO ^BGPM5ADX

 +12       DO ^BGPM5ADY

 +13       DO ^BGPM5ADZ

 +14       DO ^BGPM5AE

 +15       DO ^BGPM5AEA

 +16       DO ^BGPM5AEB

 +17       DO ^BGPM5AEC

 +18       DO ^BGPM5AED

 +19       DO ^BGPM5AEE

 +20       DO ^BGPM5AEF

 +21       DO ^BGPM5AEG

 +22       DO ^BGPM5AEH

 +23       DO ^BGPM5AEI

 +24       DO ^BGPM5AEJ

 +25       DO ^BGPM5AEK

 +26       DO ^BGPM5AEL

 +27       DO ^BGPM5AEM

 +28       DO ^BGPM5AEN

 +29       DO ^BGPM5AEO

 +30       DO ^BGPM5AEP

 +31       DO ^BGPM5AEQ

 +32       DO ^BGPM5AER

 +33       DO ^BGPM5AES

 +34       DO ^BGPM5AET

 +35       DO ^BGPM5AEU

 +36       DO ^BGPM5AEV

 +37       DO ^BGPM5AEW

 +38       DO ^BGPM5AEX

 +39       DO ^BGPM5AEY

 +40       DO ^BGPM5AEZ

 +41       DO ^BGPM5AF

 +42       DO ^BGPM5AFA

 +43       DO ^BGPM5AFB

 +44       DO ^BGPM5AFC

 +45       DO ^BGPM5AFD

 +46       DO ^BGPM5AFE

 +47       DO ^BGPM5AFF

 +48       DO ^BGPM5AFG

 +49       DO ^BGPM5AFH

 +50       DO ^BGPM5AFI

 +51       DO ^BGPM5AFJ

 +52       DO ^BGPM5AFK

 +53       DO ^BGPM5AFL

 +54       DO ^BGPM5AFM

 +55       DO ^BGPM5AFN

 +56       DO ^BGPM5AFO

 +57       DO ^BGPM5AFP

 +58       QUIT