27 lines
741 B
Mathematica
27 lines
741 B
Mathematica
YS501P82 ;BP/TMD,Pre-init Routine for YS*5.01*82 ; 2/18/04 9:29am
|
|
;;5.01;MENTAL HEALTH;**82**;Dec 30, 1994;Build 3
|
|
;
|
|
ENV ;Main entry point for Environment check point.
|
|
;
|
|
S XPDABORT=""
|
|
D PROGCHK(.XPDABORT) ;checks programmer variables
|
|
I XPDABORT="" K XPDABORT
|
|
Q
|
|
;
|
|
POST ;Main entry point for Post-init items.
|
|
;
|
|
;Remove left over nodes from file restructuring
|
|
I $D(^DD(604,18.1)) K ^DD(604,18.1)
|
|
I $D(^DD(604,.53)) K ^DD(604,.53)
|
|
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
|