Routine: SROAR

Information

SROAR ;B'HAM ISC/MAM - ANNUAL REPORT OF SURGICAL PROCEDURES ; [ 09/22/98 11:28 AM ]

Package	Total	Call Graph
Surgery	4	^SROAR1 ^SROAR2 DATE^SROUTL ^SRSKILL
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	2	^DIC ^DIR

Package	Total	Caller Graph
Surgery	1	SROARSP

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,"Annual Report of Surgical Procedures" Line Location: BEG+1
Function Call: READ	Timeout: DTIME Variable: SRYN Line Location: ALL+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: ALL+2
Function Call: WRITE	Prompt: !!,"Enter RETURN if you want to print the report for all specialties, or 'NO'",!,"to select a specific Surgical Specialty.",!!,"Press RETURN to continue " Line Location: ALL+2
Function Call: WRITE	Prompt: !! Line Location: ALL+3
Function Call: WRITE	Prompt: !!,"This report is designed to use a 132 column format, and must be run",!,"on a printer.",!! Line Location: ALL+4
Function Call: WRITE	Prompt: !!,"This report must be run on a printer. Please select another device.",! Line Location: PTR+1
Function Call: WRITE	Prompt: @IOF Line Location: PTR+1
Function Call: WRITE	Prompt: ! Line Location: END+0
Function Call: WRITE	Prompt: !!,"Press RETURN to continue " Line Location: END+0
Function Call: WRITE	Prompt: @IOF Line Location: END+2
Function Call: WRITE	Prompt: ! Line Location: PRESS+0
Routine Call	DIC Line Location: ALL+3
Routine Call	DIR Line Location: PRESS
Routine Call	%ZIS Line Location: PTR

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	EN
^TMP("SR"	END+1!

Name	Field # of Occurrence
%ZIS	PTR!*
%ZIS("A"	PTR*
DIC	ALL+3!*
DIC("A"	ALL+3*
DIC("S"	ALL+3*
DIC(0	ALL+3*
DIR	PRESS!
DIR("A"	PRESS*
DIR(0	PRESS*
DT	EN
DTIME	ALL, ALL+2, END
>> DTOUT	PRESS
>> DUOUT	PRESS
>> EDATE	DATE, EN, EN+1
>> EDATE1	EN+1*
IO	EN
IO("Q"	PTR!, PTR+2!
IOF	BEG+1, PTR+1, END+1, END+2
IOP	PTR!
IOST	PTR+1, END, END+1
POP	PTR!
>> SDATE	DATE, EN, EN+1
>> SDATE1	EN+1*
SRFRTO	EN~*
>> SRHALT	EN+1*
>> SRINST	EN+1*
>> SRPRINT	EN*
>> SRSITE("SITE"	EN+1
>> SRSOUT	BEG, DATE, ALL, ALL+3, PTR, PTR+1, EN+1, END, PRESS
>> SRSS	ALL+3*, EN+1
SRTN	END+2!
>> SRYN	ALL, ALL+1, ALL+2, ALL+3
>> X	ALL+2, END
>> Y	ALL+3, EN*
>> ZTDESC	PTR+2*
>> ZTQUEUED	END+1
>> ZTREQ	END+1*
>> ZTRTN	PTR+2*
>> ZTSAVE("EDATE"	PTR+2*
>> ZTSAVE("SDATE"	PTR+2*
>> ZTSAVE("SRSITE*"	PTR+2*
>> ZTSAVE("SRSS"	PTR+2*
>> ZTSTOP	END+1