DG53E640.m

DG53E640 ; BAY/JAT - ENVIRONMENT CHECK; 9/17/01 3:32pm ; 12/13/04 12:07pm

 ;;5.3;Registration;**640**;Aug 13,1993

 ;;

EN ;

 S XPDABORT=""

 D PROGCHK(.XPDABORT)

 I XPDABORT="" K XPDABORT

 ;

 Q

 ;

PROGCHK(XPDABORT) ;

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

 .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

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DG53E640   475     printed  Apr 09, 2024@21:41:37                                                                                                                                                                                                     Page 2

DG53E640  ; BAY/JAT - ENVIRONMENT CHECK; 9/17/01 3:32pm ; 12/13/04 12:07pm

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

 +2       ;;

EN        ;

 +1        SET XPDABORT=""

 +2        DO PROGCHK(.XPDABORT)

 +3        IF XPDABORT=""

               KILL XPDABORT

 +4       ;

 +5        QUIT 

 +6       ;

PROGCHK(XPDABORT) ;

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

               Begin DoDot:1

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

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

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

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

 +6                SET XPDABORT=2

 +7                QUIT 

               End DoDot:1

 +8        QUIT 

 +9       ;