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

GMTSENV.m

Go to the documentation of this file.
  1. GMTSENV ;SLC/JER - Environment check routine for HS ;11/16/92 15:28
  1. ;;2.7;Health Summary;;Oct 20, 1995
  1. MAIN ; Controls branching
  1. I $S('+$G(DUZ):1,$G(DUZ(0))'="@":1,'$D(U):1,1:0) D
  1. . W !,$C(7),$C(7),$C(7),"Environment is not appropriately initialized...",!
  1. . W "Please D ^XUP and be sure that DUZ(0)=""@"" before continuing.",!
  1. . K DIFQ
  1. Q