source: FOIAVistA/tag/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DG53E574.m@ 794

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

initial load of FOIAVistA 6/30/08 version

File size: 581 bytes
Line 
1DG53E574 ; BAY/JAT- Patch DG*5.3*574 Install Utility Routine ; 12/9/03 3:11pm
2 ;;5.3;Registration;**574**;AUG 13, 1993
3 ;
4ENV ;Main entry point for Environment check point.
5 ;
6 S XPDABORT=""
7 D PROGCHK(.XPDABORT) ;checks programmer variables
8 I XPDABORT="" K XPDABORT
9 Q
10 ;
11PROGCHK(XPDABORT) ;checks for necessary programmer variables
12 ;
13 I '$G(DUZ)!($G(DUZ(0))'="@")!('$G(DT))!($G(U)'="^") D
14 . D BMES^XPDUTL("*****")
15 . D MES^XPDUTL("Your programming variables are not set up properly.")
16 . D MES^XPDUTL("Installation aborted.")
17 . D MES^XPDUTL("*****")
18 . S XPDABORT=2
19 Q
Note: See TracBrowser for help on using the repository browser.