Routine: AGREPRT

Information

AGREPRT ; IHS/ASDS/EFG - QUE DAILY REGISTRATION ACTIVITY REPORT ;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Enter the BEGINNING DATE for this report: " Line Location: A2+0
Function Call: WRITE	Prompt: !!,"Enter the ENDING DATE for this report: " Line Location: A3+0
Function Call: WRITE	Prompt: !!,*7,"INVALID ENTRY - The END is before the BEGINNING." Line Location: A3+1
Function Call: WRITE	Prompt: !!!,"Which type of report do you wish? (1,2 ,3 or 4)",!! Line Location: A5+0
Function Call: WRITE	Prompt: " 1... `NEW, EDITED, REMOVED` Statistics only",!! Line Location: A5+1
Function Call: WRITE	Prompt: " 2... `NEW, EDITED, REMOVED` Statistics and patient names",!! Line Location: A5+2
Function Call: WRITE	Prompt: " 3... `NEW / REGISTERED` Statistics from ",AGB," To ",AGE,!! Line Location: A5+3
Function Call: WRITE	Prompt: " 4... `NEW / REGISTERED` Statistics and Patients from ",AGB," To ",AGE,!!,"Enter: " Line Location: A5+4
Function Call: WRITE	Prompt: !!,*7,"Please Enter only ""1"" ,""2"",""3"" or ""4""." Line Location: A5+5
Function Call: WRITE	Prompt: *7,!,"Please queue to system printers." Line Location: DEV+1
Routine Call	%ZIS Line Location: DEV

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("UCI"	DEV+2
^AUTTLOC - [#9999999.06]	DEV+2