Routine: SROCRAT

Information

SROCRAT ;B'HAM ISC/MAM - CANCELLATION RATES ; [ 04/06/00 10:19 AM ]

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

Package	Total	Caller Graph
Surgery	1	SROCRAT

Name	Comments	DBIA/ICR reference
ALL	; display for each specialty ?
EN	; entry when queued
END
SP
DATE
SPEC
MORE	; ask for more surgical specialties

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,"Report of Cancellation Rates",! Line Location: SROCRAT+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 cancellation rates for each specialty along with the",!,"cancellation rates for the entire medical center. If you only want to display" Line Location: ALL+3
Function Call: WRITE	Prompt: !,"the rates for the entire medical center, enter 'NO'." Line Location: ALL+4
Routine Call	DIC Line Location: SP MORE+1
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+4
END	DATE, DATE+1, SPEC, SPEC+3, SPEC+4, SPEC+5, SPEC+6, EN+2
MORE	SP+1, MORE+1
SP	SPEC+3
SPEC	SPEC+2

Name	Field # of Occurrence
%DT	SROCRAT+2!
%ZIS	SPEC+5!*
%ZIS("A"	SPEC+5*
DIC	SP!, MORE+1!
DIC("A"	SP, MORE+1
DIC("S"	SP, MORE+1
DIC(0	SP, MORE+1
DTIME	SPEC, END, ALL+1
IO	EN+1
IO("Q"	SPEC+5!, SPEC+6!
IOF	SROCRAT+2, END+1, END+3
IOP	SPEC+5!
IOST	END, END+1
POP	SPEC+5!
>> SRCT	SP+1, MORE+1
>> SRED	DATE
>> SRINST	DATE+1*
SRINSTP	DATE+1~*
>> SROTOT	SROCRAT+2, ALL+5
>> SRSD	DATE
>> SRSOUT	SROCRAT+2, DATE, SPEC, SPEC+3, SPEC+4, SPEC+5, EN+1, END, SP, ALL+1
>> SRSS	SPEC+3, SPEC+4, EN+2, SP
>> SRSS(	SP+1, MORE+1
SRTN	END+3!
>> SRYN	SPEC, SPEC+1, SPEC+2, SPEC+3, ALL+1, ALL+2, ALL+3, ALL+4, ALL+5
U	DATE+1
>> X	END*
>> Y	SP, SP+1, MORE+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