source: WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SDVPP.m@ 1710

Last change on this file since 1710 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.1 KB
RevLine 
[613]1SDVPP ;alb/mjk - SD Pre-Init Driver ; 3/26/93
2 ;;5.3;Scheduling;;Aug 13, 1993
3 ;
4EN ; -- 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
11ENQ Q
12Q K DGVCUR,DGVNEW,DGVNEWR,DGXX,SDX,DGVREQ,DGVREL,SDTIME,DGTIME,DGDATE,SDVCUR,SD00,SDZ01,DGVNEWVR
13 Q
14 ;
15VERS ; -- 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
20VERSQ Q
21 ;
22MSG 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
Note: See TracBrowser for help on using the repository browser.