| 1 | SDVPP ;alb/mjk - SD Pre-Init Driver ; 3/26/93
|
|---|
| 2 | ;;5.3;Scheduling;;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | EN ; -- main entry point
|
|---|
| 5 | S XQABT1=$H
|
|---|
| 6 | D USER^DGVPP,VERS:$D(DIFQ),ROU^DGVPP:$D(DIFQ)
|
|---|
| 7 | I $D(DIFQ) D EN^SDV53PP
|
|---|
| 8 | ;insert vers specific call -- if any
|
|---|
| 9 | I '$D(DIFQ) W !!,"'SD' INITIALIZATION ABORTED!!" G Q
|
|---|
| 10 | S XQABT2=$H
|
|---|
| 11 | ENQ Q
|
|---|
| 12 | Q K DGVCUR,DGVNEW,DGVNEWR,DGXX,SDX,DGVREQ,DGVREL,SDTIME,DGTIME,DGDATE,SDVCUR,SD00,SDZ01,DGVNEWVR
|
|---|
| 13 | Q
|
|---|
| 14 | ;
|
|---|
| 15 | VERS ; -- check current version of SD
|
|---|
| 16 | D VERS^DGVPP
|
|---|
| 17 | I SDVCUR,(SDVCUR<DGVREQ) D MSG G VERSQ
|
|---|
| 18 | ;
|
|---|
| 19 | I SDVCUR>DGVNEW W "Current version (",SDVCUR,") is greater than this version (",DGVNEW,")." K DIFQ
|
|---|
| 20 | VERSQ Q
|
|---|
| 21 | ;
|
|---|
| 22 | 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,"."
|
|---|
| 23 | W !!,"This initialization requires that Version ",DGVREQ,", or higher, of the SD module be installed",!,"prior to installing this release."
|
|---|
| 24 | 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
|
|---|
| 25 | Q
|
|---|
