- SD252EN ;BAY/JKT - ENVIRONMENT CHECK ; 9/24/01 10:35am
- ;;5.3;Scheduling;**252,1015**;Aug 13, 1993;Build 21
- ;;
- 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
- ;
- SD252EN ;BAY/JKT - ENVIRONMENT CHECK ; 9/24/01 10:35am
- +1 ;;5.3;Scheduling;**252,1015**;Aug 13, 1993;Build 21
- +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 ;