Routine: SRSCHAP

Entry Points

Name	Comments	DBIA/ICR reference
EN	; entry when queued
END	;
HDR	; print heading
WARD	; check for scheduled admission
UTIL	; set ^TMP("SR")
PRINT	; loop through ^TMP and print cases
DT
PAGE
LOOP	; break procedure if greater than 65 characters
OUT	; output data

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Press RETURN to continue " Line Location: END+2
Function Call: WRITE	Prompt: @IOF Line Location: END+3
Function Call: READ	Timeout: DTIME Variable: X Line Location: PAGE+0
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+2
Function Call: WRITE	Prompt: !,?20,"* Scheduled Operations for "_SREL_" *",!,?30,SRDATE,!!,"Start Time",?13,"Patient",?43,"Surgical Specialty",?67,"Ward Location",! Line Location: HDR+2
Function Call: WRITE	Prompt: "=" Line Location: HDR+2
Function Call: WRITE	Prompt: !,SRSST,?12,SRNAME,?43,SRSS,?67,SRWARD,!,?12,SROP(1) Line Location: OUT+9
Function Call: WRITE	Prompt: !,?12,SROP(2) Line Location: OUT+9
Function Call: WRITE	Prompt: !,?12,SROP(2) Line Location: OUT+9
Function Call: WRITE	Prompt: ! Line Location: OUT+10
Function Call: WRITE	Prompt: "-" Line Location: OUT+10
Routine Call	%ZIS Line Location: DT+1

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PRINT+1
^DGS(41.1 - [#41.1]	WARD+1
^DPT - [#2]	OUT+6
^SRF - [#130]	EN+1, UTIL+1, OUT+3, OUT+8
^SRF("AOR"	EN+1
^SRO(137.45 - [#137.45]	OUT+4
^TMP("SR"	EN+2!, UTIL+2*, PRINT+2

Name	Field # of Occurrence
>> %DT	DT*
>> %DT("A"	DT*
%ZIS	DT+1!*
%ZIS("A"	DT+1*
>> DFN	UTIL+1, OUT+3, OUT+6, WARD+1
DT	WARD+1
DTIME	END+2, PAGE
IO	EN+1
IO("Q"	DT+1!
IOF	EN+2, END+3, HDR+2
IOP	DT+1!
IOSL	OUT+2
IOST	EN+2, END+1, PAGE
>> LINE	HDR+2, OUT+10
>> LOOP	LOOP+1*
>> M	LOOP+1, OUT+8*
MM	LOOP+1*, OUT+8!
MMM	LOOP+1*, OUT+8!
>> PDATE	WARD+1*
>> PEND	WARD+1*
POP	DT+1!
>> SRDATE	HDR+2, PRINT+1*
>> SREL	HDR+2, UTIL+1, UTIL+2, PRINT+1, PRINT+2*
>> SRF(0	OUT+3*, OUT+4
>> SRHALT	HDR+1
>> SRHDR	PAGE, PRINT+1, PRINT+2, OUT+1
>> SRNAME	OUT+3*, OUT+9
SROP	OUT+8!
SROP(	LOOP+1*
SROP(1	OUT+8*, OUT+9
SROP(2	OUT+9
SROP(3	OUT+9
>> SROPER	LOOP+1, OUT+8
>> SROR	EN+1*
>> SRPRINT	END+1*, END+2
>> SRSDATE	DT*, DT+1, EN+1, PRINT+1
>> SRSOUT	DT, EN+1, END+2, PAGE, HDR+1, PRINT+2, OUT+1, OUT+2
>> SRSS	OUT+4, OUT+5, OUT+9
>> SRSST	OUT+7*, OUT+9
>> SRST	EN+1, UTIL+2, PRINT+2, OUT+7
SRTN	EN+1, END+3!, UTIL+1, UTIL+2, PRINT+2, OUT+3, OUT+8
>> SRWARD	OUT+6, OUT+9, WARD+1, WARD+2*
>> VADM(1	OUT+3
>> VADM(9	UTIL+1
>> X	END+2, PAGE, WARD+1*, WARD+2
>> Y	DT, PRINT+1, OUT+7
>> ZTDESC	DT+1*
>> ZTQUEUED	EN+2, HDR+1
>> ZTREQ	EN+2*
>> ZTRTN	DT+1*
>> ZTSAVE("SRSDATE"	DT+1*
>> ZTSTOP	EN+2