Routine: XUAPURGE

Information

XUAPURGE ;SF/RWF - PURGE %ZUA GLOBAL FILES. ;1/22/93 14:37 ; [ 04/02/2003 8:29 AM ]

Source file <XUAPURGE.m>

Package	Total	Call Graph
Kernel	2	^%ZTLOAD DE^XUSHSHP
VA Fileman	2	^%DT ^DIK

Package	Total	Caller Graph
Kernel	4	XUFAA XUFPURGE XUOPTPURGE XUPMPURGE

Name	Comments	DBIA/ICR reference
OKEND
PURGE
END
PRFAA	;Print faild access log with text
BEG
FAPURGE	;Failed access purge
OPTPURGE	;Option audit purge
PMPURGE	;Programmer mode purge

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"You will be asked for a date range to purge, Begin to End" Line Location: BEG+0

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("MGR"	PMPURGE+2, FAPURGE+2
^XUSEC("XUMGR"	PRFAA+1
^XUSEC(19 - [#19.081]	PURGE

Name	Line Occurrences
BEG	PMPURGE+1, FAPURGE+1, OPTPURGE+1
END	PMPURGE+1, BEG+1, FAPURGE+1, OPTPURGE+1, PURGE+1
OKEND	PMPURGE+3, FAPURGE+4, OPTPURGE+4

Name	Field # of Occurrence
%DT	END!, BEG+1*
%DT("A"	BEG+1*
%DT(0	BEG+1*
BDATE	END!, BEG+1*, PURGE
>> D0	PRFAA+2
DA	PURGE*!
>> DIK	PURGE*
DUZ	PRFAA+1
EDATE	PMPURGE+1, END!, BEG+1*, FAPURGE+1, OPTPURGE+1, PURGE
>> G	PMPURGE+2, FAPURGE+2, OPTPURGE+2*
>> REC	PURGE*
>> X	PRFAA+1*
>> X2	PRFAA+2*
>> Y	BEG+1
ZTDESC	PMPURGE+2, FAPURGE+2, OPTPURGE+2*, OPTPURGE+3!
ZTIO	PMPURGE+2, END!, FAPURGE+2, OPTPURGE+2*, OPTPURGE+3!
ZTRTN	PMPURGE+2, END!, FAPURGE+2, OPTPURGE+2*, OPTPURGE+3!
ZTSAVE	END!, OPTPURGE+3!
ZTSAVE(	PMPURGE+2, FAPURGE+2, OPTPURGE+2*
ZTSK	OKEND, END!
ZTUCI	PMPURGE+2, END!, FAPURGE+2, OPTPURGE+3!