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

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

initial load of WorldVistAEHR

File size: 877 bytes
RevLine 
[613]1DG53P555 ; BAY/JAT- Patch DG*5.3*555 Install Utility Routine ; 11/7/03 11:25am
2 ;;5.3;Registration;**555**;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
10PRE ;Main entry point for Pre-install items.
11 Q
12 ;
13 ;
14POST ;Main entry point for Post-install items.
15 ;
16 D POST1
17 Q
18POST1 ;remove references to field #1 in Race file (it is a
19 ; partial duplicate of field #2) data dictionary
20 ;
21 K ^DD(10,1)
22 K ^DD(10,"B","ABBREVIATION",1)
23 K ^DD(10,"GL",0,2,1)
24 Q
25PROGCHK(XPDABORT) ;checks for necessary programmer variables
26 ;
27 I '$G(DUZ)!($G(DUZ(0))'="@")!('$G(DT))!($G(U)'="^") D
28 . D BMES^XPDUTL("*****")
29 . D MES^XPDUTL("Your programming variables are not set up properly.")
30 . D MES^XPDUTL("Installation aborted.")
31 . D MES^XPDUTL("*****")
32 . S XPDABORT=2
33 Q
Note: See TracBrowser for help on using the repository browser.