SD53P478.m

SD53P478 ;ALB/MRY - POST INIT ;3/14/06

 ;;5.3;Scheduling;**478**;Aug 13, 1993

 ;

EN ;

 S XPDABORT=""

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

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

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

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

 W !!,">> Environment check complete and okay."

 I XPDABORT="" K XPDABORT

 Q

 ;

ABRT ; Abort transport, but leave in ^XTMP.

 S XPDABORT=2 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SD53P478   457     printed  Dec 13, 2024@02:46:17                                                                                                                                                                                                     Page 2

SD53P478  ;ALB/MRY - POST INIT ;3/14/06

 +1       ;;5.3;Scheduling;**478**;Aug 13, 1993

 +2       ;

EN        ;

 +1        SET XPDABORT=""

 +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.")

               End DoDot:1

               GOTO ABRT

 +6        WRITE !!,">> Environment check complete and okay."

 +7        IF XPDABORT=""

               KILL XPDABORT

 +8        QUIT 

 +9       ;

ABRT      ; Abort transport, but leave in ^XTMP.

 +1        SET XPDABORT=2

           QUIT