- GMTSENV ;SLC/JER - Environment check routine for HS ;11/16/92 15:28
- ;;2.7;Health Summary;;Oct 20, 1995
- MAIN ; Controls branching
- I $S('+$G(DUZ):1,$G(DUZ(0))'="@":1,'$D(U):1,1:0) D
- . W !,$C(7),$C(7),$C(7),"Environment is not appropriately initialized...",!
- . W "Please D ^XUP and be sure that DUZ(0)=""@"" before continuing.",!
- . K DIFQ
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMTSENV 353 printed Feb 18, 2025@23:23:52 Page 2
- GMTSENV ;SLC/JER - Environment check routine for HS ;11/16/92 15:28
- +1 ;;2.7;Health Summary;;Oct 20, 1995
- MAIN ; Controls branching
- +1 IF $SELECT('+$GET(DUZ):1,$GET(DUZ(0))'="@":1,'$DATA(U):1,1:0)
- Begin DoDot:1
- +2 WRITE !,$CHAR(7),$CHAR(7),$CHAR(7),"Environment is not appropriately initialized...",!
- +3 WRITE "Please D ^XUP and be sure that DUZ(0)=""@"" before continuing.",!
- +4 KILL DIFQ
- End DoDot:1
- +5 QUIT