Routine: ADGAD0

Package	Total	Call Graph
VA Fileman	4	^%DT C^%DTC ^DIK ^DIR

Entry Points

Name	Comments	DBIA/ICR reference
PRG	;EP; -- purge (PD, (purge date)-1, required) called from recalc ; -- adgwd (ward)
E	; -- error processor
FORMAT	;EP; -- format
HLP
OLDPRG	;IHS/DSD/ENM 03/16/99 PRG MODULE COPIED/MODIFIED
MAN	; -- manual purge

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?20,"Paper margin must be at least 110." Line Location: HLP+11
Function Call: WRITE	Prompt: !!,"Do you want to purge census file from " Line Location: MAN+6
Function Call: WRITE	Prompt: Y Line Location: MAN+6
Routine Call	DIR Line Location: HLP+10 MAN+7

Name	Line Occurrences (* Changed, ! Killed)
^ADGTX - [#9009011.5]	PRG+8, PRG+9, PRG+10, OLDPRG+9, OLDPRG+10, OLDPRG+11
^ADGWD - [#9009011]	PRG+3, PRG+4, PRG+5, OLDPRG+4, OLDPRG+5, OLDPRG+6
^DD("DD"	MAN+6

Name	Field # of Occurrence
^(0	PRG+4, PRG+9, OLDPRG+5, OLDPRG+10

Name	Field # of Occurrence
%DT	MAN+1~, MAN+3*!
%DT("A"	MAN+3*
D	PRG+2~, PRG+5, PRG+6, PRG+10, PRG+11, OLDPRG+3~, OLDPRG+6, OLDPRG+7~, OLDPRG+11, OLDPRG+12~
DA	PRG+6!, PRG+11!, OLDPRG+7!, OLDPRG+12!
DA(1	PRG+6, PRG+11, OLDPRG+7, OLDPRG+12
>> DGZFM	HLP+10*
DIK	PRG+6!, PRG+11!, OLDPRG+7!, OLDPRG+12!
DIR	FORMAT+1~, FORMAT+2!, MAN+1~
DIR("?"	HLP, HLP+1, HLP+2, HLP+3, HLP+4, HLP+5, HLP+6, HLP+7, HLP+8, HLP+9
DIR("A"	FORMAT+3, MAN+7
DIR("B"	MAN+7*
DIR(0	FORMAT+2, MAN+7
>> DTOUT	MAN+4
PD	MAN+4, MAN+9!, MAN+10, MAN+11!, OLDPRG+6, OLDPRG+11
>> RC	PRG+5, PRG+10
T	PRG+2~, PRG+8, PRG+9, PRG+10, PRG+11, OLDPRG+3~, OLDPRG+9, OLDPRG+10, OLDPRG+11, OLDPRG+12~
U	PRG+4, PRG+9, OLDPRG+5, OLDPRG+10
W	PRG+2~, PRG+3, PRG+4, PRG+5, PRG+6, OLDPRG+3~, OLDPRG+4, OLDPRG+5, OLDPRG+6, OLDPRG+7~
X	MAN+1~, MAN+10
X1	MAN+1~, MAN+10*
X2	MAN+1~, MAN+10*
Y	FORMAT+1~, HLP+10, HLP+11, MAN+1~, MAN+4, MAN+6, MAN+9