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

DG53749V.m

Go to the documentation of this file.
  1. DG53749V ;ALB/MRY - ENVIRONMENT CHECK; 10/2/03 3:32pm
  1. ;;5.3;Registration;**749**;Aug 13, 1993;Build 10
  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