26 lines
796 B
Mathematica
26 lines
796 B
Mathematica
A1B2PRE ;ALB/MJK - ODS PRE-INIT Version 1.5; 14 JAN 1991
|
|
;;Version 1.55 (local for MAS v5 sites);;
|
|
;
|
|
EN ; -- pre-init entry point
|
|
D REL,DD:$D(DIFQ)
|
|
Q
|
|
;
|
|
REL ; -- check if version 1 was loaded
|
|
;
|
|
F A1B2PKG=0:0 S A1B2PKG=+$O(^DIC(9.4,"C","A1B2",A1B2PKG)) Q:'A1B2PKG I $D(^DIC(9.4,A1B2PKG,0)),$P(^(0),U)="OPERATION DESERT SHIELD" Q
|
|
I '$D(^DIC(9.4,A1B2PKG,0)) D MES G RELQ
|
|
I $S('$D(^DIC(9.4,A1B2PKG,"VERSION")):1,1:+^("VERSION")<1) D MES G RELQ
|
|
RELQ K A1B2PKG Q
|
|
;
|
|
MES ; -- error message
|
|
W !!,*7,"You must load version 1 of 'OPERATION DESERT SHIELD' package first."
|
|
W !!,"Initialization aborted." K DIFQ
|
|
Q
|
|
;
|
|
DD ; -- del 11500.2
|
|
W !,">>> Deleting ODS ADMISSIONS file data dictionary..."
|
|
S DIU=11500.2,DIU(0)="" D EN^DIU2 K DIU
|
|
W !," Data dictionary will be restored by inits."
|
|
Q
|
|
;
|