Routine: SRSWL13

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Surgery	3	^SROSTOP ^SRSKILL OUT^SRSWL3
VA FileMan	2	NOW^%DTC D^DIQ
Registration	1	DEM^VADPT

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Surgery	1	SRSWLST

Entry Points

Name	Comments	DBIA/ICR reference
BEG	; entry when queued
END
MORE
ANOTHER
PRINT	; print information
PAGE	; end of page
HDR	; print heading
LOOP	; break operation if greater than 59 characters
AGAIN	; reprint patient name, date entered, and procedure when referring ; physician will not fit on first page

External References

Name	Field # of Occurrence
NOW^%DTC	BEG+2
^%ZIS	SRSWL13+2
^%ZISC	END+3
^%ZTLOAD	SRSWL13+3
D^DIQ	BEG+2, PRINT+2
^SROSTOP	HDR+1
^SRSKILL	END+3
OUT^SRSWL3	PRINT+3
DEM^VADPT	PRINT+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: SRSWL13+2
Function Call: WRITE	Prompt: ! Line Location: END+0
Function Call: WRITE	Prompt: @IOF Line Location: END+0
Function Call: READ	Variable: X Timeout: DTIME 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: READ	Variable: X Timeout: DTIME 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,! Line Location: HDR+2
Function Call: WRITE	Prompt: "=" Line Location: HDR+2
Function Call: WRITE	Prompt: !,"Patient:",?14,SRSDPT,?65,"(continued)",!,"Date Entered:",?14,SRDT,!,"Procedure:",?14,SROPS(1) Line Location: AGAIN+4
Function Call: WRITE	Prompt: !,?14,SROPS(2) Line Location: AGAIN+4
Routine Call	%ZIS Line Location: SRSWL13+2

Global Variables Directly Accessed

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

Label References

Name	Line Occurrences
ANOTHER	BEG+5
END	SRSWL13+3
HDR	PAGE+1, PAGE+3
MORE	BEG+3
PAGE	BEG+5, PRINT+1, AGAIN+3
PRINT	ANOTHER

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	BEG+2
%ZIS	SRSWL13+2!*
%ZIS("A"	SRSWL13+2*
>> DFN	PRINT+2*
DTIME	END+2, PAGE+2
IO	BEG+2
IO("Q"	SRSWL13+2!, SRSWL13+3!
IOF	END, END+2, HDR+2
IOP	SRSWL13+2!
IOSL	PRINT+1, AGAIN+2
IOST	END, PAGE+2
>> LINE	HDR+2*
>> LOOP	LOOP+1*
>> M	LOOP+1
>> MM	LOOP+1*
>> MMM	LOOP+1*
POP	SRSWL13+2!
>> SRDT	PRINT+2*, AGAIN+4
>> SRHALT	HDR+1
>> SRHDR	BEG+2, PAGE+1, HDR+2*
>> SROFN	BEG+3, MORE, ANOTHER, PRINT+2
>> SROPDT	BEG+5, MORE, ANOTHER
>> SROPER	PRINT+2, LOOP+1
>> SROPS(	LOOP+1*
>> SROPS(1	AGAIN+4
>> SROPS(2	AGAIN+4
>> SRPNM	BEG+3*
>> SRSDPT	PRINT+2*, AGAIN+4
>> SRSNM	BEG+5, MORE, ANOTHER, HDR+2
>> SRSOUT	BEG+2, BEG+5, END, END+2, ANOTHER, PRINT+1, PAGE+2, HDR+1, AGAIN+3
>> SRSS	BEG+3, MORE, ANOTHER, PRINT+2
>> SRTEMP	MORE*
>> SRTIME	BEG+2*, HDR+2
SRTN	END+3!
>> SRW	PRINT+2*
>> VA("PID"	PRINT+2
>> VADM(1	PRINT+2
>> X	END+2, PAGE+2
>> Y	BEG+2, PRINT+2
>> ZTDESC	SRSWL13+3*
>> ZTQUEUED	END+1, HDR+1
>> ZTREQ	END+1*
>> ZTRTN	SRSWL13+3*
>> ZTSTOP	END+1

Customize PDF page

Package: Surgery

Routine: SRSWL13

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: