26 lines
1.1 KiB
Mathematica
26 lines
1.1 KiB
Mathematica
SDVPP ;alb/mjk - SD Pre-Init Driver ; 3/26/93
|
|
;;5.3;Scheduling;;Aug 13, 1993
|
|
;
|
|
EN ; -- main entry point
|
|
S XQABT1=$H
|
|
D USER^DGVPP,VERS:$D(DIFQ),ROU^DGVPP:$D(DIFQ)
|
|
I $D(DIFQ) D EN^SDV53PP
|
|
;insert vers specific call -- if any
|
|
I '$D(DIFQ) W !!,"'SD' INITIALIZATION ABORTED!!" G Q
|
|
S XQABT2=$H
|
|
ENQ Q
|
|
Q K DGVCUR,DGVNEW,DGVNEWR,DGXX,SDX,DGVREQ,DGVREL,SDTIME,DGTIME,DGDATE,SDVCUR,SD00,SDZ01,DGVNEWVR
|
|
Q
|
|
;
|
|
VERS ; -- check current version of SD
|
|
D VERS^DGVPP
|
|
I SDVCUR,(SDVCUR<DGVREQ) D MSG G VERSQ
|
|
;
|
|
I SDVCUR>DGVNEW W "Current version (",SDVCUR,") is greater than this version (",DGVNEW,")." K DIFQ
|
|
VERSQ Q
|
|
;
|
|
MSG W !!,*7,"A search of your system indicates that the Version of the SD module which you",!,"are currently running on this system is Version ",SDVCUR,"."
|
|
W !!,"This initialization requires that Version ",DGVREQ,", or higher, of the SD module be installed",!,"prior to installing this release."
|
|
W !!,"If you do not have a copy of the necessary previous release(s) of SD, which",!,"must be installed prior to this release of the module, please contact your",!,"local Information Systems Center for assistance." K DIFQ
|
|
Q
|