GMRCHK.m

GMRCHK ;SLC/DLT - GMRC CHECK FOR PROGRAMMER ACCESS ;5/20/98  14:20

 ;;3.0;CONSULT/REQUEST TRACKING;**1**;DEC 27, 1997

 I $D(DUZ)>10,$D(DUZ(0)),DUZ(0)="@"

 E  W !,"PROGRAMMER ACCESS REQUIRED" K DIFQ Q

 Q

GMRCHK    ;SLC/DLT - GMRC CHECK FOR PROGRAMMER ACCESS ;5/20/98  14:20

 +1       ;;3.0;CONSULT/REQUEST TRACKING;**1**;DEC 27, 1997

 +2        IF $DATA(DUZ)>10

               IF $DATA(DUZ(0))

                   IF DUZ(0)="@"

 +3       IF '$TEST

               WRITE !,"PROGRAMMER ACCESS REQUIRED"

               KILL DIFQ

               QUIT 

 +4        QUIT