Routine: SROATT

Package	Total	Call Graph
Surgery	5	^SROATT0 ^SROATT1 ^SROATT2 DATE^SROUTL ^SRSKILL
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	2	^DIC ^DIR

Package	Total	Caller Graph
Surgery	1	SROATT

Entry Points

External References

Name	Field # of Occurrence
^%ZIS	SPEC+6
^%ZISC	END+2
^%ZTLOAD	SPEC+7
^DIC	SP+1
^DIR	BREAK
^SROATT0	ATT+3
^SROATT1	EN+2
^SROATT2	EN+3
DATE^SROUTL	DATE
^SRSKILL	END+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,"Attending Surgeon Report",! Line Location: SROATT+2
Function Call: READ	Timeout: DTIME Variable: SRYN Line Location: ATT+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: ATT+2
Function Call: WRITE	Prompt: !!,"Enter RETURN to print the report for all attending surgeons, or 'NO' to select",!,"a specific person.",!!,"Press RETURN to continue " Line Location: ATT+2
Function Call: WRITE	Prompt: @IOF,!,"Attending Surgeon Reports",!!,"1. Attending Surgeon Report",!,"2. Attending Surgeon Cumulative Report",!,"3. Attending Surgeon Report and Attending Surgeon Cumulative Report" Line Location: REPORT+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: REPORT+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: REPORT+2
Function Call: WRITE	Prompt: !!,"Press RETURN to continue " Line Location: REPORT+2
Function Call: WRITE	Prompt: ! Line Location: BREAK+0
Function Call: READ	Timeout: DTIME Variable: SRYN Line Location: SPEC+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: SPEC+2
Function Call: WRITE	Prompt: !!,"Enter 'YES' to print this report for all Surgical Specialties, or 'NO' to ",!,"select a specific specialty.",!!,"Press RETURN to continue " Line Location: SPEC+2
Function Call: WRITE	Prompt: !!,"The Attending Surgeon Report was designed to use a 132 column format." Line Location: SPEC+4
Function Call: WRITE	Prompt: !!,"The Attending Surgeon Cumulative Report was designed to use an 80 column format." Line Location: SPEC+5
Function Call: WRITE	Prompt: ! Line Location: SPEC+6
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: SP+1
Function Call: WRITE	Prompt: !!,"Enter '1' if you want to print the Attending Surgeon Report only. If you only want to print the Attending Surgeon Cumulative Report, enter '2'. Enter '3' to",!,"print both reports." Line Location: HELP+1
Routine Call	DIC Line Location: SP+1
Routine Call	DIR Line Location: BREAK
Routine Call	%ZIS Line Location: SPEC+6

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

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	SPEC+6!*
%ZIS("A"	SPEC+6*
DIC	SP+1!*
DIC("A"	SP+1*
DIC("S"	SP+1*
DIC(0	SP+1*
DIR	BREAK!
DIR("A"	BREAK*
DIR("B"	BREAK*
DIR(0	BREAK*
DT	EN+1
DTIME	ATT, ATT+2, REPORT+1, REPORT+2, SPEC, SPEC+2, END
>> DTOUT	BREAK
>> DUOUT	BREAK
IO	EN+1
IO("Q"	SPEC+6!, SPEC+7!
IOF	SROATT+2, ATT, REPORT, SPEC, END+1, END+2
IOP	SPEC+6!
IOST	END, END+1
POP	SPEC+6!
>> SRB	SROATT+2, BREAK
>> SRBOTH	REPORT, REPORT+3, BREAK, SPEC+4, SPEC+5
>> SRED	DATE, EN+1
>> SRFRTO	EN+1*
>> SRINST	EN+1*
>> SRINSTP	EN+1*
>> SRPRINT	EN+1*
>> SRSD	DATE, EN+1
>> SRSITE("DIV"	EN+1
>> SRSITE("SITE"	EN+1
>> SRSOUT	SROATT+2, DATE, ATT, REPORT+1, BREAK, SPEC, SPEC+3, SPEC+6, EN+1, END , SP+1
>> SRSS	SPEC+1, EN+2, SP+2
SRTN	END+2!
>> SRYN	ATT, ATT+1, ATT+2, ATT+3, SPEC, SPEC+1, SPEC+2, SPEC+3
>> X	ATT+2, REPORT+1, REPORT+2, REPORT+3, SPEC+2, END*, HELP+1
>> Y	BREAK, EN+1*, SP+1, SP+2
>> ZTDESC	SPEC+7*
>> ZTQUEUED	END+1
>> ZTREQ	END+1*
>> ZTRTN	SPEC+7*
>> ZTSAVE("SRB"	SPEC+7*
>> ZTSAVE("SRBOTH"	SPEC+7*
>> ZTSAVE("SRED"	SPEC+7*
>> ZTSAVE("SRSD"	SPEC+7*
>> ZTSAVE("SRSITE*"	SPEC+7*
>> ZTSAVE("SRSS"	SPEC+7*
>> ZTSTOP	END+1

Customize PDF page

Package: Surgery

Routine: SROATT

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
EN	; entry when queued
END
HELP	; print help message
SP	; select specialty
BREAK
REPORT
ATT
DATE
SPEC

Name	Line Occurrences
ATT	ATT+2
END	DATE, ATT, REPORT+1, BREAK, SPEC, SPEC+3, SPEC+6, SPEC+7, EN+2
HELP	REPORT+2
REPORT	REPORT+2
SP	SPEC+3
SPEC	SPEC+2