source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DG53P343.m@ 1389

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

initial load of WorldVistAEHR

File size: 692 bytes
RevLine 
[613]1DG53P343 ;ALB/RPM - Patch DG*5.3*343 Install Utility Routine ; 12/06/00 11:04am
2 ;;5.3;Registration;**343**;AUG 13, 1993
3 ;
4 ;
5ENV ;Main entry point for Environment check point.
6 ;
7 S XPDABORT=""
8 D PROGCHK(.XPDABORT) ;checks programmer variables
9 I XPDABORT="" K XPDABORT
10 Q
11 ;
12 ;
13PRE ;Main entry point for Pre-init items.
14 Q
15 ;
16 ;
17POST ;Main entry point for Post-init items.
18 ;
19 Q
20 ;
21 ;
22PROGCHK(XPDABORT) ;checks for necessary programmer variables
23 ;
24 I '$G(DUZ)!($G(DUZ(0))'="@")!('$G(DT))!($G(U)'="^") DO
25 .D BMES^XPDUTL("*****")
26 .D MES^XPDUTL("Your programming variables are not set up properly.")
27 .D MES^XPDUTL("Installation aborted.")
28 .D MES^XPDUTL("*****")
29 .S XPDABORT=2
30 Q
31 ;
32 ;
Note: See TracBrowser for help on using the repository browser.