Routine: SROREAS

Information

SROREAS ;B'HAM ISC/MAM - DELAY REASONS ; [ 04/04/00 11:54 AM ]

Package	Total	Call Graph
Surgery	5	^SROREA1 ^SROREA2 DATE^SROUTL $$INST^SROUTL0 ^SRSKILL
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	1	^DIC

Package	Total	Caller Graph
Surgery	1	SROREAS

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,"Report of Delay Reasons",! Line Location: SROREAS+2
Function Call: READ	Timeout: DTIME Variable: SRYN Line Location: SPEC+0
Function Call: WRITE	Prompt: !!,"Enter RETURN to print this report for all surgical specialties, or 'NO' to",!,"select a specific specialty." Line Location: SPEC+2
Function Call: WRITE	Prompt: ! Line Location: SPEC+5
Function Call: WRITE	Prompt: !!,"Press RETURN to continue " Line Location: END+0
Function Call: WRITE	Prompt: @IOF Line Location: END+1
Function Call: WRITE	Prompt: @IOF Line Location: END+3
Function Call: WRITE	Prompt: !! Line Location: SP+0
Function Call: READ	Timeout: DTIME Variable: SRYN Line Location: ALL+1
Function Call: WRITE	Prompt: !!,"Enter RETURN to display the totals for delay reasons for each specialty. If",!,"you want to display the totals for all delay reasons for the entire medical",!,"center, enter 'NO'." Line Location: ALL+3
Routine Call	DIC Line Location: SP
Routine Call	%ZIS Line Location: SPEC+5

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

Name	Line Occurrences
ALL	SPEC+4, ALL+3
END	DATE, DATE+1, SPEC, SPEC+3, SPEC+4, SPEC+5, SPEC+6, EN+2
SP	SPEC+3
SPEC	SPEC+2

Name	Field # of Occurrence
%DT	SROREAS+2!
%ZIS	SPEC+5!*
%ZIS("A"	SPEC+5*
DIC	SP!*
DIC("A"	SP*
DIC(0	SP*
DTIME	SPEC, END, ALL+1
IO	EN+1
IO("Q"	SPEC+5!, SPEC+6!
IOF	SROREAS+2, END+1, END+3
IOP	SPEC+5!
IOST	END, END+1
POP	SPEC+5!
>> SRED	DATE
>> SRINST	DATE+1*
SRINSTP	DATE+1~*
>> SROTOT	SROREAS+2, ALL+4
>> SRSD	DATE
>> SRSOUT	SROREAS+2, DATE, SPEC, SPEC+3, SPEC+4, SPEC+5, EN+1, END, SP, ALL+1
>> SRSS	SPEC+3, SPEC+4, EN+2, SP+1
SRTN	END+3!
>> SRYN	SPEC, SPEC+1, SPEC+2, SPEC+3, ALL+1, ALL+2, ALL+3, ALL+4
U	DATE+1
>> X	END*
>> Y	SP, SP+1
>> ZTDESC	SPEC+6*
>> ZTQUEUED	END+2
>> ZTREQ	END+2*
>> ZTRTN	SPEC+6*
>> ZTSAVE("SRED"	SPEC+6*
>> ZTSAVE("SRINST"	SPEC+6*
>> ZTSAVE("SRINSTP"	SPEC+6*
>> ZTSAVE("SROTOT"	SPEC+6*
>> ZTSAVE("SRSD"	SPEC+6*
>> ZTSAVE("SRSS"	SPEC+6*
>> ZTSTOP	END+2