SDVPP.m

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 ---SDVPP   1159     printed  Apr 09, 2024@21:45:48                                                                                                                                                                                                       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