Routine: SRSUPRG

Information

SRSUPRG ;B'HAM ISC/MAM - PURGE UTILIZATION ; [ 10/01/98 11:48 AM ]

Source file <SRSUPRG.m>

Package	Total	Caller Graph
Surgery	1	SR PURGE UTILIZATION

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,"Purge Utilization Information",!! Line Location: SRSUPRG+2
Function Call: WRITE	Prompt: !!,"This option will purge all utilization information for the dates prior to (and",!,"including) "_SRDATE_"." Line Location: SRSUPRG+5
Function Call: READ	Timeout: DTIME Variable: SRYN Line Location: ASK+0
Function Call: WRITE	Prompt: !!,"Enter 'YES' to purge information, 'NO' to quit, or '?' for more help." Line Location: ASK+2
Function Call: WRITE	Prompt: ! Line Location: ASK+5
Function Call: WRITE	Prompt: !,"The option to purge utilization data has been queued." Line Location: ASK+6
Function Call: WRITE	Prompt: !!,"Press RETURN to continue " Line Location: END+0
Function Call: WRITE	Prompt: @IOF Line Location: END+1
Function Call: WRITE	Prompt: !!,"Enter 'YES' to purge utilization information for all dates prior to and",!,"including "_SRDATE_". Enter 'NO' to quit this option." Line Location: HELP+0

FileNo	Call Tags
^SRU - [#131.8]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^SRU - [#131.8]	EN+1, EN+3

Name	Field # of Occurrence
>> %	ASK+4
%DT	SRSUPRG+3!*
%DT("A"	SRSUPRG+3*
DA	EN+2!, EN+3!
DA(1	EN+2*
DIK	EN+2!, EN+3!
DTIME	ASK, END
IOF	SRSUPRG+2, END+1
>> SRDATE	SRSUPRG+4*, SRSUPRG+5, HELP
>> SRDT	EN+1*, EN+2, EN+3
>> SROOM	EN+1*, EN+2
>> SRSDT	SRSUPRG+4*, EN+1
>> SRSITE("DIV"	EN+1
>> SRSOUT	SRSUPRG+2, SRSUPRG+3, ASK, ASK+3, EN+1*, END
>> SRYN	ASK, ASK+1, ASK+2, ASK+3
>> X	END*
>> Y	SRSUPRG+3, SRSUPRG+4
>> ZTDESC	ASK+5*
>> ZTDTH	ASK+4*
>> ZTIO	ASK+5*
>> ZTREQ	EN+4*
>> ZTRTN	ASK+5*
>> ZTSAVE("SRSDT"	ASK+5*
>> ZTSAVE("SRSITE*"	ASK+5*