source:
WorldVistAEHR/trunk/r/HEALTH_SUMMARY-GMTS/GMTSENV.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
File size: 345 bytes |
Line | |
---|---|
1 | GMTSENV ;SLC/JER - Environment check routine for HS ;11/16/92 15:28 |
2 | ;;2.7;Health Summary;;Oct 20, 1995 |
3 | MAIN ; Controls branching |
4 | I $S('+$G(DUZ):1,$G(DUZ(0))'="@":1,'$D(U):1,1:0) D |
5 | . W !,$C(7),$C(7),$C(7),"Environment is not appropriately initialized...",! |
6 | . W "Please D ^XUP and be sure that DUZ(0)=""@"" before continuing.",! |
7 | . K DIFQ |
8 | Q |
Note:
See TracBrowser
for help on using the repository browser.