34 lines
877 B
Mathematica
34 lines
877 B
Mathematica
|
DG53P555 ; BAY/JAT- Patch DG*5.3*555 Install Utility Routine ; 11/7/03 11:25am
|
||
|
|
;;5.3;Registration;**555**;AUG 13, 1993
|
||
|
|
;
|
||
|
|
ENV ;Main entry point for Environment check point.
|
||
|
|
;
|
||
|
|
S XPDABORT=""
|
||
|
|
D PROGCHK(.XPDABORT) ;checks programmer variables
|
||
|
|
I XPDABORT="" K XPDABORT
|
||
|
|
Q
|
||
|
|
PRE ;Main entry point for Pre-install items.
|
||
|
|
Q
|
||
|
|
;
|
||
|
|
;
|
||
|
|
POST ;Main entry point for Post-install items.
|
||
|
|
;
|
||
|
|
D POST1
|
||
|
|
Q
|
||
|
|
POST1 ;remove references to field #1 in Race file (it is a
|
||
|
|
; partial duplicate of field #2) data dictionary
|
||
|
|
;
|
||
|
|
K ^DD(10,1)
|
||
|
|
K ^DD(10,"B","ABBREVIATION",1)
|
||
|
|
K ^DD(10,"GL",0,2,1)
|
||
|
|
Q
|
||
|
|
PROGCHK(XPDABORT) ;checks for necessary programmer variables
|
||
|
|
;
|
||
|
|
I '$G(DUZ)!($G(DUZ(0))'="@")!('$G(DT))!($G(U)'="^") D
|
||
|
|
. D BMES^XPDUTL("*****")
|
||
|
|
. D MES^XPDUTL("Your programming variables are not set up properly.")
|
||
|
|
. D MES^XPDUTL("Installation aborted.")
|
||
|
|
. D MES^XPDUTL("*****")
|
||
|
|
. S XPDABORT=2
|
||
|
|
Q
|