Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SD252EN

SD252EN.m

Go to the documentation of this file.
  1. SD252EN ;BAY/JKT - ENVIRONMENT CHECK ; 9/24/01 10:35am
  1. ;;5.3;Scheduling;**252,1015**;Aug 13, 1993;Build 21
  1. ;;
  1. EN ;
  1. S XPDABORT=""
  1. D PROGCHK(.XPDABORT)
  1. I XPDABORT="" K XPDABORT
  1. ;
  1. Q
  1. ;
  1. PROGCHK(XPDABORT) ;
  1. I '$G(DUZ)!($G(DUZ(0))'="@")!('$G(DT))!($G(U)'="^") DO
  1. .D BMES^XPDUTL("*****")
  1. .D MES^XPDUTL("Your programming variables are not set up properly.")
  1. .D MES^XPDUTL("Installation aborted.")
  1. .D MES^XPDUTL("*****")
  1. .S XPDABORT=2
  1. .Q
  1. Q
  1. ;