DG53E574.m

DG53E574 ; BAY/JAT- Patch DG*5.3*574 Install Utility Routine ; 12/9/03 3:11pm

 ;;5.3;Registration;**574**;AUG 13, 1993

 ;

ENV ;Main entry point for Environment check point.

 ;

 S XPDABORT=""

 D PROGCHK(.XPDABORT) ;checks programmer variables

 I XPDABORT="" K XPDABORT

 Q

 ;

PROGCHK(XPDABORT)       ;checks for necessary programmer variables

 ;

 I '$G(DUZ)!($G(DUZ(0))'="@")!('$G(DT))!($G(U)'="^") D

 . D BMES^XPDUTL("*****")

 . D MES^XPDUTL("Your programming variables are not set up properly.")

 . D MES^XPDUTL("Installation aborted.")

 . D MES^XPDUTL("*****")

 . S XPDABORT=2

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DG53E574   600     printed  Apr 09, 2024@21:53:13                                                                                                                                                                                                     Page 2

DG53E574  ; BAY/JAT- Patch DG*5.3*574 Install Utility Routine ; 12/9/03 3:11pm

 +1       ;;5.3;Registration;**574**;AUG 13, 1993

 +2       ;

ENV       ;Main entry point for Environment check point.

 +1       ;

 +2        SET XPDABORT=""

 +3       ;checks programmer variables

           DO PROGCHK(.XPDABORT)

 +4        IF XPDABORT=""

               KILL XPDABORT

 +5        QUIT 

 +6       ;

PROGCHK(XPDABORT) ;checks for necessary programmer variables

 +1       ;

 +2        IF '$GET(DUZ)!($GET(DUZ(0))'="@")!('$GET(DT))!($GET(U)'="^")

               Begin DoDot:1

 +3                DO BMES^XPDUTL("*****")

 +4                DO MES^XPDUTL("Your programming variables are not set up properly.")

 +5                DO MES^XPDUTL("Installation aborted.")

 +6                DO MES^XPDUTL("*****")

 +7                SET XPDABORT=2

               End DoDot:1

 +8        QUIT