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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDVPP 1159 printed Nov 22, 2024@18:11:52 Page 2
SDVPP ;alb/mjk - SD Pre-Init Driver ; 3/26/93
+1 ;;5.3;Scheduling;;Aug 13, 1993
+2 ;
EN ; -- main entry point
+1 SET XQABT1=$HOROLOG
+2 DO USER^DGVPP
if $DATA(DIFQ)
DO VERS
if $DATA(DIFQ)
DO ROU^DGVPP
+3 IF $DATA(DIFQ)
DO EN^SDV53PP
+4 ;insert vers specific call -- if any
+5 IF '$DATA(DIFQ)
WRITE !!,"'SD' INITIALIZATION ABORTED!!"
GOTO Q
+6 SET XQABT2=$HOROLOG
ENQ QUIT
Q KILL DGVCUR,DGVNEW,DGVNEWR,DGXX,SDX,DGVREQ,DGVREL,SDTIME,DGTIME,DGDATE,SDVCUR,SD00,SDZ01,DGVNEWVR
+1 QUIT
+2 ;
VERS ; -- check current version of SD
+1 DO VERS^DGVPP
+2 IF SDVCUR
IF (SDVCUR<DGVREQ)
DO MSG
GOTO VERSQ
+3 ;
+4 IF SDVCUR>DGVNEW
WRITE "Current version (",SDVCUR,") is greater than this version (",DGVNEW,")."
KILL DIFQ
VERSQ QUIT
+1 ;
MSG WRITE !!,*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,"."
+1 WRITE !!,"This initialization requires that Version ",DGVREQ,", or higher, of the SD module be installed",!,"prior to installing this release."
+2 WRITE !!,"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."
KILL DIFQ
+3 QUIT
