source: FOIAVistA/trunk/r/INCOMPLETE_RECORDS_TRACKING-DGJ/DGJ1P1.m@ 1397

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

initial load of FOIAVistA 6/30/08 version

File size: 718 bytes
Line 
1DGJ1P1 ;ALB/MRY - Patch #1 Environment Check ; 12/9/02 10:04 AM
2 ;;1.0;Incomplete Records Tracking;**1**;Jun 25, 2001
3EN ;
4 S XPDABORT=""
5 I '$G(DUZ)!($G(DUZ(0))'="@")!('$G(DT))!($G(U)'="^") D G ABRT
6 . D BMES^XPDUTL("*****")
7 . D MES^XPDUTL("Your programming variables are not set up properly.")
8 . D MES^XPDUTL("Installation aborted.")
9 ; Verify that Incomplete Records Tracking v1.0 exists, else Quit.
10 I $$VERSION^XPDUTL("DGJ")'="1.0" D G ABRT
11 . D BMES^XPDUTL("*****")
12 . D MES^XPDUTL("VERSION 1.0 OF INCOMPLETE RECORDS TRACKING HAS NOT BEEN LOADED.")
13 . D MES^XPDUTL("Installation aborted.")
14 W !!,">> Environment check complete and okay."
15 Q
16 ;
17ABRT ; Abort transport, but leave in ^XTMP.
18 S ^XPDABORT=2 Q
19 ;
Note: See TracBrowser for help on using the repository browser.