DG53749V.m

DG53749V ;ALB/MRY - ENVIRONMENT CHECK; 10/2/03 3:32pm

  ;;5.3;Registration;**749**;Aug 13, 1993;Build 10

 ;;

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 ---DG53749V   462     printed  Apr 09, 2024@21:43:24                                                                                                                                                                                                     Page 2

DG53749V  ;ALB/MRY - ENVIRONMENT CHECK; 10/2/03 3:32pm

 +1       ;;5.3;Registration;**749**;Aug 13, 1993;Build 10

 +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