Routine: XUSPURGE

Package	Total	Call Graph
VA Fileman	3	^DIE ^DIK ^DIR
Kernel	1	($$FMADD,$$NOW)^XLFDT

Package	Total	Caller Graph
Kernel	2	XUSCZONK XUSERAOLD

Entry Points

Name	Comments	DBIA/ICR reference
A02(XUDAYS)	;Purge old Access codes in the AOLD x-ref.
DAYS
ENDA
AOLD	;
SCPURG	;Purge sign-on log to 30 days
V02(XUDAYS)	;Purge old Verify code from each users VOLD x-ref

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option will purge the log of inactive access and verify codes ",!,"older than the date specified to allow for their re-use." Line Location: AOLD+5
Routine Call	DIE Line Location: SCPURG+7
Routine Call	DIR Line Location: AOLD+6 DAYS+2

Name	Line Occurrences (* Changed, ! Killed)
^VA(200 - [#200]	A02+3!, V02+3, V02+4!
^XUSEC(0 - [#3.081]	SCPURG+3, SCPURG+4, SCPURG+5, SCPURG+11!

Name	Field # of Occurrence
^(	A02+3, V02+4

Name	Field # of Occurrence
DA	SCPURG+1~, SCPURG+4*, SCPURG+5, SCPURG+11
DIE	SCPURG+1~, SCPURG+7*
DIK	SCPURG+1~, SCPURG+9*
DIR	AOLD+1~, DAYS!, ENDA!
DIR("?"	DAYS+1*
DIR("A"	AOLD+6, DAYS
DIR("B"	AOLD+6, DAYS
DIR(0	AOLD+6, DAYS+1
DIRUT	AOLD+1~, AOLD+6, DAYS+2, ENDA!
DR	SCPURG+1~, SCPURG+7*
DT	SCPURG+2
U	SCPURG+7
X	AOLD+1~, AOLD+3*, DAYS+3
XU1	SCPURG+1~, SCPURG+5*, SCPURG+7, SCPURG+11
XU2	SCPURG+1~, SCPURG+5*, SCPURG+11
XUDAYS	AOLD+1~, A02~, A02+2, V02~, V02+2, ENDA!
XUDT	SCPURG+1~, SCPURG+2, SCPURG+4, AOLD+1~, A02+1~, A02+2, A02+3, V02+1~, V02+2*, V02+4 , ENDA!
XUI	AOLD+1~, A02+1~, A02+2, A02+3, V02+1~, V02+2, V02+3, V02+4, ENDA!
XUJ	AOLD+1~, A02+1~, A02+3*, V02+1~, ENDA!
XUK	AOLD+1~, A02+1~, A02+3, V02+1~, V02+3, V02+4*, ENDA!
XUNOW	SCPURG+1~, SCPURG+2*, SCPURG+7
XUT	AOLD+1~, A02+1~, A02+2, A02+3, A02+4, V02+1~, V02+2, V02+4, V02+5, ENDA!
>> Y	AOLD+6
>> ZTQPARAM	AOLD+3
>> ZTQUEUED	AOLD+2, A02+3, A02+4, V02+4, V02+5