source: FOIAVistA/tag/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DG53749V.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: 443 bytes
Line 
1DG53749V ;ALB/MRY - ENVIRONMENT CHECK; 10/2/03 3:32pm
2 ;;5.3;Registration;**749**;Aug 13, 1993;Build 10
3 ;;
4EN ;
5 S XPDABORT=""
6 D PROGCHK(.XPDABORT)
7 I XPDABORT="" K XPDABORT
8 ;
9 Q
10 ;
11PROGCHK(XPDABORT) ;
12 I '$G(DUZ)!($G(DUZ(0))'="@")!('$G(DT))!($G(U)'="^") DO
13 .D BMES^XPDUTL("*****")
14 .D MES^XPDUTL("Your programming variables are not set up properly.")
15 .D MES^XPDUTL("Installation aborted.")
16 .D MES^XPDUTL("*****")
17 .S XPDABORT=2
18 .Q
19 Q
Note: See TracBrowser for help on using the repository browser.