Routine: SRODLT

Information

SRODLT ;B'HAM ISC/MAM - REPORT OF DELAY TIME ; [ 04/05/00 2:37 PM ]

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

Package	Total	Caller Graph
Surgery	1	SRO DELAY TIME

Name	Comments	DBIA/ICR reference
END
SP
DELAY
DEVICE
ADD	; ask for additional delay reasons
DATE
MORE	; ask for more surgical specialties
SPEC
REAS

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,"Report of Delay Time",! Line Location: SRODLT+2
Function Call: READ	Timeout: DTIME Variable: SRYN Line Location: REAS+0
Function Call: WRITE	Prompt: !!,"Enter RETURN to print this report for all delay reasons, or 'NO' to select",!,"a specific delay reason." Line Location: REAS+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: DEVICE+0
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: !! Line Location: SP+0
Function Call: WRITE	Prompt: !! Line Location: DELAY+0
Routine Call	DIC Line Location: SP MORE+1 DELAY ADD+1
Routine Call	%ZIS Line Location: DEVICE

Name	Line Occurrences
ADD	ADD+1
DELAY	REAS+3
END	DATE, DATE+1, REAS, REAS+3, SPEC, SPEC+3, DEVICE, DEVICE+1
MORE	MORE+1
REAS	REAS+2
SP	SPEC+3
SPEC	SPEC+2

Name	Field # of Occurrence
%DT	SRODLT+2!
%ZIS	DEVICE!*
%ZIS("A"	DEVICE*
DIC	SP!, MORE+1!, DELAY!, ADD+1!
DIC("A"	SP, MORE+1, DELAY, ADD+1
DIC("S"	SP, MORE+1
DIC(0	SP, MORE+1, DELAY, ADD+1
DTIME	REAS, SPEC, END
IO("Q"	DEVICE!, DEVICE+1!
IOF	SRODLT+2, END+1
IOP	DEVICE!
IOST	END
POP	DEVICE!
>> SRCT	SP+1, MORE+1, DELAY+1, ADD+1
>> SRDL	SRODLT+2, DELAY
>> SRDL(	DELAY+1, ADD+1
>> SRED	DATE
>> SRINST	DATE+1*
SRINSTP	DATE+1~*
>> SRSD	DATE
>> SRSOUT	SRODLT+2, DATE, REAS, REAS+3, SPEC, SPEC+3, DEVICE, END, SP, DELAY
>> SRSP	SRODLT+2, SP
>> SRSP(	SP+1, MORE+1
>> SRSS	SPEC+3*
SRTN	END+1!
>> SRYN	REAS, REAS+1, REAS+2, REAS+3, SPEC, SPEC+1, SPEC+2, SPEC+3
U	DATE+1
>> X	END*
>> Y	SP, SP+1, MORE+1, DELAY, DELAY+1, ADD+1
>> ZTDESC	DEVICE+1*
>> ZTRTN	DEVICE+1*
>> ZTSAVE("SRDL*"	DEVICE+1*
>> ZTSAVE("SRED"	DEVICE+1*
>> ZTSAVE("SRINST"	DEVICE+1*
>> ZTSAVE("SRINSTP"	DEVICE+1*
>> ZTSAVE("SRSD"	DEVICE+1*
>> ZTSAVE("SRSP*"	DEVICE+1*