Routine: SRSWL14

Information

SRSWL14 ;BIR/MAM - WAITING LIST, BRIEF-ONE ; [ 12/06/99 11:10 AM ]

Package	Total	Caller Graph
Surgery	1	SRSWLST

Name	Comments	DBIA/ICR reference
END
HDR	; print heading
BEG	; entry when queued
ANOTHER
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: SRSWL14+2
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+8
Function Call: WRITE	Prompt: ?40,SROP(2) Line Location: PRINT+8
Function Call: WRITE	Prompt: !,"Tentative Date of Operation: "_TEMPDT Line Location: PRINT+9
Function Call: WRITE	Prompt: !,"* Procedure performed since entry on list ("_SROLD("DATE")_")" Line Location: PRINT+10
Function Call: WRITE	Prompt: ! Line Location: PRINT+11
Function Call: WRITE	Prompt: "-" Line Location: PRINT+11
Function Call: READ	Timeout: DTIME Variable: X Line Location: PAGE+2
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+2
Function Call: WRITE	Prompt: !,"Surgery Waiting List for ",SRSNM,!,"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: SRSWL14+2

Name	Line Occurrences (* Changed, ! Killed)
^SRO(133.8 - [#133.8]	BEG+11, MORE, PRINT+2
^TMP("SR"	BEG+1!, BEG+17, END+1!, MORE*, ANOTHER

Name	Field # of Occurrence
>> %	BEG+2
%ZIS	SRSWL14+2!*
%ZIS("A"	SRSWL14+2*
>> DFN	PRINT+2*
DTIME	END+2, PAGE+2
IO	BEG+2
IO("Q"	SRSWL14+2!, SRSWL14+3!
IOF	END, END+2, HDR+2
IOP	SRSWL14+2!
IOSL	PRINT+1
IOST	END, PAGE+2
>> LINE	PRINT+11, HDR+2
>> LOOP	LOOP+1*
>> M	PRINT+7*, LOOP+1
MM	PRINT+7!, LOOP+1*
MMM	PRINT+7!, LOOP+1*
POP	SRSWL14+2!
>> SRADT	PRINT+3*, PRINT+8
>> SRDT	PRINT+2*, PRINT+8
>> SRHALT	HDR+1
>> SRHDR	BEG+2, PAGE+1, HDR+2*
>> SROFN	BEG+11, MORE, ANOTHER, PRINT+2
>> SROLD	PRINT+10*
>> SROLD("DATE"	PRINT+10
SROP	PRINT+7!
SROP(	LOOP+1*
SROP(1	PRINT+7*, PRINT+8
SROP(2	PRINT+8
>> SROPDT	BEG+17, MORE, ANOTHER, PRINT+4
>> SROPER	PRINT+2, PRINT+7, LOOP+1*
>> SRPNM	BEG+11*
>> SRSDPT	PRINT+2, PRINT+6, PRINT+8
>> SRSNM	BEG+17, MORE, ANOTHER, HDR+2
>> SRSOUT	BEG+2, BEG+17, END, END+2, ANOTHER, PRINT+1, PAGE+2, HDR+1
>> SRSS	BEG+11, BEG+17*, MORE, ANOTHER, PRINT+2
>> SRTEMP	MORE*
>> SRTIME	BEG+2*, HDR+2
SRTN	END+3!
>> SRW	PRINT+2*, PRINT+3
>> TEMPDT	PRINT+4, PRINT+5, PRINT+9
>> VADM(1	PRINT+2
>> X	END+2, PAGE+2
>> Y	BEG+2, PRINT+2, PRINT+3, PRINT+5
>> ZTDESC	SRSWL14+3*
>> ZTQUEUED	END+1, HDR+1
>> ZTREQ	END+1*
>> ZTRTN	SRSWL14+3*
>> ZTSTOP	END+1