Routine: PRCAKM

Information

PRCAKM ;WASH-ISC@ALTOONA,PA/CMS-AR Mark as PENDING ARCHIVE ;10/20/94 2:20 PM

Source file <PRCAKM.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option will change the status of the AR Records whose Date of",!,"Last Activity is within the time frame selected to Pending Archive.",! Line Location: V+3
Function Call: WRITE	Prompt: !!,"NOTE: The Archive Ending Date must be before " Line Location: V+6
Function Call: WRITE	Prompt: Y,! Line Location: V+6
Function Call: WRITE	Prompt: !!,"The PENDING ARCHIVE entry is not setup properly in File 430.3" Line Location: V+7
Function Call: WRITE	Prompt: !!,"IF you want to archive all valid records through the ending date,",!,"press return to take the default of NONE.",! Line Location: BEG+0
Function Call: WRITE	Prompt: !!,7," Beginning date is greater than Ending date *",! Line Location: BEG+3
Function Call: WRITE	Prompt: !!,7," Ending date is after cut-off date *",! Line Location: BEG+4
Function Call: WRITE	Prompt: !!,*7,"WARNING: The date range is greater than one year.",!,"This may cause a large amount of system activity during the Archive processes!",! Line Location: BEG+5