Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: GMRCHK

GMRCHK.m

Go to the documentation of this file.

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRCHK   208     printed  Apr 09, 2024@20:51:20                                                                                                                                                                                                       Page 2

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