Routine: SROATT0

Package	Total	Call Graph
Surgery	4	^SROAT0P ^SROAT0T $$DIV^SROUTL0 ^SRSKILL
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	1	^DIC

Package	Total	Caller Graph
Surgery	1	SROATT

Entry Points

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: SROATT0+2
Function Call: READ	Timeout: DTIME Variable: SRYN Line Location: REPORT+0
Function Call: WRITE	Prompt: !!,"Enter RETURN to dispay individual case information and the total number of",!,"cases for each code. If you only want to display the totals for the attending",!,"codes, enter 'YES'." Line Location: REPORT+2
Function Call: WRITE	Prompt: ! Line Location: REPORT+6
Function Call: WRITE	Prompt: !!,"Press RETURN to continue " Line Location: END+0
Function Call: WRITE	Prompt: @IOF Line Location: END+2
Routine Call	DIC Line Location: SROATT0+2
Routine Call	%ZIS Line Location: REPORT+6

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	EN+1
^SRF - [#130]	EN+4, UTIL, UTIL+1, UTIL+2, UTIL+3
^SRF("AC"	EN+4
^TMP("SR"	EN+2!, END+1!, UTIL+5*
^TMP("SRTOT"	EN+2!, EN+3, END+1!, UTIL+4, UTIL+5*
^VA(200 - [#200]	EN+5

Name	Line Occurrences
END	SROATT0+2, REPORT, REPORT+6, REPORT+7, EN+6
REPORT	REPORT+2
UTIL	EN+4

Name	Field # of Occurrence
%ZIS	REPORT+6!*
%ZIS("A"	REPORT+6*
DIC	SROATT0+2!*
DIC("A"	SROATT0+2*
DIC(0	SROATT0+2*
DT	EN+1
DTIME	REPORT, END
IO	EN+1
IO("Q"	REPORT+6!, REPORT+7!
IOF	END+1, END+2
IOP	REPORT+6!
IOST	END, END+1
>> LINE	EN+5*
POP	REPORT+6!
>> SRATT	SROATT0+3, EN+5, UTIL+2
>> SRATT1	EN+5*
>> SRBOTH	REPORT+3*, REPORT+4, REPORT+5, EN+6
>> SRCODE	UTIL+3*, UTIL+4, UTIL+5
>> SRED	EN+1, EN+4
>> SREDT	EN+4*
>> SRFRTO	EN+1*
>> SRINST	EN+1*
>> SRINSTP	EN+1*
>> SRPRINT	EN+1*
>> SRSD	EN+1, EN+4
>> SRSDATE	EN+4*, UTIL+5
>> SRSITE("DIV"	EN+1
>> SRSITE("SITE"	EN+1
>> SRSOUT	SROATT0+2, REPORT, REPORT+6, EN+1, EN+6, END
SRTN	EN+4*, END+2!, UTIL, UTIL+1, UTIL+2, UTIL+3, UTIL+5
>> SRYN	REPORT, REPORT+1, REPORT+2, REPORT+3
>> X	END, UTIL+2
>> Y	SROATT0+2, SROATT0+3, EN+1*
>> ZTDESC	REPORT+7*
>> ZTQUEUED	END+1
>> ZTREQ	END+1*
>> ZTRTN	REPORT+7*
>> ZTSAVE("SRATT"	REPORT+7*
>> ZTSAVE("SRBOTH"	REPORT+7*
>> ZTSAVE("SRED"	REPORT+7*
>> ZTSAVE("SRSD"	REPORT+7*
>> ZTSAVE("SRSITE*"	REPORT+7*
>> ZTSTOP	END+1