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

DG53522P.m

Go to the documentation of this file.
DG53522P ;ALB/DW - DG*5.3*522 POST-INSTALL; 6/2/2003
 ;;5.3;Registration;**522**;Aug 13, 1993
ENV ;Environment check
 S XPDABORT=""
 D PRGCHK(.XPDABORT)
 I XPDABORT="" K XPDABORT
 Q
 ;
PRGCHK(XPDABORT) ;Checks programmer variables
 I '$G(DUZ)!($G(DUZ(0))'="@") D
 . W !,$C(7),"     To insure that data dictionary changes contained in this patch"
 . W !,"     are installed correctly, DUZ(0) must be equal the ""@"" symbol!",!
 . S XPDABORT=2
 Q