VistA-FOIAVistA/r/CONSULT_REQUEST_TRACKING-GM.../GMRCHK.m

6 lines
203 B
Mathematica

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