Routine: SRSWL8

Information

SRSWL8 ;B'HAM ISC/MAM - WAITING LIST, BRIEF-ALL ; 17 OCT 1989 7:35 AM

Package	Total	Caller Graph
Surgery	1	SRSWLST

Name	Comments	DBIA/ICR reference
END
HDR	; print heading
BEG	; entry when queued
PRINT	; print information
PAGE	; end of page
LOOP	; break operation if greater than 39 characters
MORE

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: SRSWL8+4
Function Call: WRITE	Prompt: @IOF Line Location: END+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: END+2
Function Call: WRITE	Prompt: !!,"Press RETURN to continue " Line Location: END+2
Function Call: WRITE	Prompt: @IOF Line Location: END+2
Function Call: WRITE	Prompt: !,SRDT,?15,SRSDPT,?40,SROP(1),!,"Tentative Admission: "_SRADT Line Location: PRINT+15
Function Call: WRITE	Prompt: ?40,SROP(2) Line Location: PRINT+15
Function Call: WRITE	Prompt: !,"Tentative Date of Operation: "_SROPDT Line Location: PRINT+18
Function Call: WRITE	Prompt: !,"Surgical Specialty: ",SRSNM Line Location: PRINT+21
Function Call: WRITE	Prompt: !,"* Procedure performed since entry on list ("_SROLD("DATE")_")" Line Location: PRINT+23
Function Call: WRITE	Prompt: ! Line Location: PRINT+25
Function Call: WRITE	Prompt: "-" Line Location: PRINT+25
Function Call: READ	Timeout: DTIME Variable: X Line Location: PAGE+3
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+2
Function Call: WRITE	Prompt: !,"Surgery Waiting List sorted by Patient ",!,"Printed "_SRTIME,!!,"Date Entered",?15,"Patient",?40,"Operative Procedure",! Line Location: HDR+2
Function Call: WRITE	Prompt: "=" Line Location: HDR+2
Routine Call	%ZIS Line Location: SRSWL8+4

Name	Line Occurrences (* Changed, ! Killed)
^SRO(133.8 - [#133.8]	BEG+8, PRINT+5, PRINT+20
^SRO(137.45 - [#137.45]	PRINT+20
^TMP("SR"	BEG+1!, BEG+10, END+1!, MORE*

Name	Field # of Occurrence
>> %	BEG+2
%ZIS	SRSWL8+4!*
%ZIS("A"	SRSWL8+4*
>> DFN	BEG+6, PRINT+5, MORE*
DTIME	END+2, PAGE+3
IO	BEG+2
IO("Q"	SRSWL8+4!, SRSWL8+6!
IOF	END, END+2, HDR+2
IOP	SRSWL8+4!
IOSL	PRINT+1
IOST	END, PAGE+3
>> LINE	PRINT+25, HDR+2
>> LOOP	LOOP+1*
>> M	PRINT+13*, LOOP+1
MM	PRINT+13!, LOOP+1*
MMM	PRINT+13!, LOOP+1*
POP	SRSWL8+4!
>> SR	SRSWL8+2, BEG+6, BEG+10*, PRINT+3
>> SRADT	PRINT+7*, PRINT+15
>> SRDT	PRINT+5*, PRINT+15
>> SRHALT	HDR+1
>> SRHDR	BEG+2, PAGE+1, HDR+2*
>> SRNAME	BEG+6*
>> SROFN	PRINT+3*, PRINT+5
>> SROLD	PRINT+23*
>> SROLD("DATE"	PRINT+23
SROP	PRINT+13!
SROP(	LOOP+1*
SROP(1	PRINT+13*, PRINT+15
SROP(2	PRINT+15
>> SROPDT	PRINT+9, PRINT+17, PRINT+18
>> SROPER	PRINT+5, PRINT+13, LOOP+1*
>> SRRECNO	BEG+6, BEG+8, MORE
>> SRSDPT	BEG+6, PRINT+3, PRINT+11, PRINT+15, MORE
>> SRSNM	BEG+6, PRINT+20, PRINT+21
>> SRSOUT	BEG+2, BEG+10, END, END+2, PRINT+1, PAGE+3, HDR+1
>> SRSS	PRINT+3*, PRINT+5, PRINT+20
>> SRSUB	BEG+6, BEG+8, MORE
>> SRTIME	BEG+2*, HDR+2
SRTN	END+3!
>> SRW	BEG+6, BEG+8, PRINT+5*, PRINT+7, PRINT+9, MORE
>> SS	SRSWL8+2, BEG+6, BEG+10*, PRINT+3
>> ST	SRSWL8+2, BEG+6, BEG+10*, PRINT+3
>> VADM(1	MORE
>> X	END+2, PAGE+3
>> Y	BEG+2, PRINT+5, PRINT+7, PRINT+9
>> ZTDESC	SRSWL8+6*
>> ZTQUEUED	END+1, HDR+1
>> ZTREQ	END+1*
>> ZTRTN	SRSWL8+6*
>> ZTSTOP	END+1