DG53522P.m

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DG53522P   459     printed  Feb 19, 2025@00:03:45                                                                                                                                                                                                     Page 2

DG53522P  ;ALB/DW - DG*5.3*522 POST-INSTALL; 6/2/2003

 +1       ;;5.3;Registration;**522**;Aug 13, 1993

ENV       ;Environment check

 +1        SET XPDABORT=""

 +2        DO PRGCHK(.XPDABORT)

 +3        IF XPDABORT=""

               KILL XPDABORT

 +4        QUIT 

 +5       ;

PRGCHK(XPDABORT) ;Checks programmer variables

 +1        IF '$GET(DUZ)!($GET(DUZ(0))'="@")

               Begin DoDot:1

 +2                WRITE !,$CHAR(7),"     To insure that data dictionary changes contained in this patch"

 +3                WRITE !,"     are installed correctly, DUZ(0) must be equal the ""@"" symbol!",!

 +4                SET XPDABORT=2

               End DoDot:1

 +5        QUIT