source: WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SD53P478.m@ 861

Last change on this file since 861 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 442 bytes
RevLine 
[613]1SD53P478 ;ALB/MRY - POST INIT ;3/14/06
2 ;;5.3;Scheduling;**478**;Aug 13, 1993
3 ;
4EN ;
5 S XPDABORT=""
6 I '$G(DUZ)!($G(DUZ(0))'="@")!('$G(DT))!($G(U)'="^") D G ABRT
7 . D BMES^XPDUTL("*****")
8 . D MES^XPDUTL("Your programming variables are not set up properly.")
9 . D MES^XPDUTL("Installation aborted.")
10 W !!,">> Environment check complete and okay."
11 I XPDABORT="" K XPDABORT
12 Q
13 ;
14ABRT ; Abort transport, but leave in ^XTMP.
15 S XPDABORT=2 Q
Note: See TracBrowser for help on using the repository browser.