- 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 ---[H[J[2J[HDG53749V 462 printed Jan 18, 2025@03:39:20 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