Routine: DGVPP

Information

DGVPP ;ALB/MTC - DG PRE-PRE-INIT DRIVER ; 05 JUN 87

Source file <DGVPP.m>

Package	Total	Caller Graph
Registration	13	DGNOTE DGV53PP DGV53PR DGV53PT DGVPR DGVPT DGVPT1 DGVREL DGYKPT DGYXPT DPTV53PT DPTVPP DPTVPT
Scheduling	4	SDV53PP SDVPP SDVPR SDVPT

Name	Comments	DBIA/ICR reference
VERS	;Set-up variables for Current, New and Required versions of PIMS
EN	; -- main entry point
VERSQ
REL()	; -- this release's final version
Q
ENQ
DPT	;Check if DPTINIT has been installed prior to installing DG
USER
MSG	;Print message if this version of PIMS can not be installed
ALR	;Check if this version of PIMS has already been installed
LINE	; -- write separator line
REQ()	; -- release required
ROU	;Check compiled routine size parameter
PKG	;Check other packages required for this version of PIMS

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"'DG' INITIALIZATION ABORTED!!" Line Location: EN+5
Function Call: WRITE	Prompt: !!?3,"The variable DUZ must be set to an active user code and the variable",!?3,"DUZ(0) must equal '@' to initialize.",! Line Location: USER+0
Function Call: WRITE	Prompt: !!,"Current version (",DGVCUR,") is greater than this version (",DGVNEW,")." Line Location: VERS+9
Function Call: WRITE	Prompt: !!,*7,"A search of your system indicates that the Version of the PIMS module which you",!,"are currently running on this system is Version ",DGVCUR,"." Line Location: MSG+1
Function Call: WRITE	Prompt: !!,"This initialization requires that Version ",DGVREQ,", or higher, of the PIMS module be installed",!,"prior to installing this release." Line Location: MSG+2
Function Call: WRITE	Prompt: !!,"If you do not have a copy of the necessary previous release(s) of MAS, which",!,"must be installed prior to this release of the module, please contact your",!,"local Information Systems Center for assistance." Line Location: MSG+3
Function Call: WRITE	Prompt: !!,"'DPTINIT' must be run before initializing 'DG'!!" Line Location: DPT+1
Function Call: WRITE	Prompt: !!,"YOU'VE ALREADY INSTALLED VERSION ",DGVNEW," ONCE.",!,"DO YOU REALLY WANT TO REINSTALL" Line Location: ALR+2
Function Call: WRITE	Prompt: !!?3,"Enter 'YES' to reinstall, or 'NO' not to." Line Location: ALR+3
Function Call: WRITE	Prompt: !,X Line Location: LINE+2
Routine Call	%ZIS Line Location: EN+2

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	PKG+6
^DD("ROU"	ROU+1, ROU+3
^DG(43 - [#43]	VERS+1, VERS+5
^DG(48 - [#48]	DPT+1
^HL(770 - [#770]	PKG+14
^ORD(100.99 - [#100.99]	PKG+1
^VA(200 - [#200]	USER

Name	Field # of Occurrence
>> %	ALR+1, ALR+2, ALR+3, ALR+4
CT	Q+1!
CURPT	Q+1!
DFN	Q+1!
DGCFLBD	Q+1!
DGCFLCN	Q+1!
DGDATE	Q!
DGDAY	Q+1!
DGDIU	Q!
DGDJ	Q+1!
DGDOCFL	Q+1!
DGDOMB	Q+1!
DGENDT	Q+1!
DGER	Q!
DGI	Q!
DGSTDT	Q+1!
DGTIME	Q!
DGTOTBD	Q+1!
DGTOTCN	Q+1!
DGVCUR	EN+4, Q!, VERS+1*, VERS+7, VERS+9, MSG+1, ALR+2
DGVFLD	EN+4*, Q!
DGVNEW	Q!, VERS+4*, VERS+9, ALR+2
DGVNEWVR	Q!, VERS+4*, ALR+2
DGVREL	Q!, VERS+3*, DPT+1
DGVREQ	Q!, VERS+2*, VERS+7, MSG+2
DIFQ	EN+3, EN+4, EN+5, USER!, VERS+9!, MSG+3!, DPT+1!, ALR+4!, PKG+4!, PKG+12! , PKG+17!, ROU+1!
DMRG	Q+1!
DPTIME	Q+1!
DUZ	USER
DUZ(0	USER
I2	Q+1!
>> IOP	EN+2*
J	Q!
ON	Q!
SDVCUR	Q!, VERS+5*
STIME	Q+1!
X	PKG+6~, LINE+1~, LINE+2
XCNP	Q+1!
XMZ	Q+1!
>> XQABT1	EN+1*
>> XQABT2	EN+6*