Routine: SRSWL3

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Surgery	3	^SROSTOP ^SRSKILL ^SRSWL5
VA Fileman	3	NOW^%DTC D^DIQ ^DIWP
Registration	1	(ADD,DEM)^VADPT

Package

Total

Call Graph

Kernel

^%ZIS ^%ZISC ^%ZTLOAD

Surgery

^SROSTOP ^SRSKILL ^SRSWL5

VA Fileman

NOW^%DTC D^DIQ ^DIWP

Registration

(ADD,DEM)^VADPT

Package	Total	Caller Graph
Surgery	7	SRSWL11 SRSWL13 SRSWL15 SRSWL4 SRSWL7 SRSWL9 SRSWLST

Package

Total

Caller Graph

Surgery

SRSWL11 SRSWL13 SRSWL15 SRSWL4 SRSWL7 SRSWL9 SRSWLST

Name	Comments	DBIA/ICR reference
END
HDR	; print heading
BEG	; entry when queued
PRINT	; print information
MORE	; continue looping on 'WL' x-ref
PAGE	; end of page
LOOP	; break operation if greater than 59 characters
OUT

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

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: SRSWL3+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: @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,!,"Date Entered: ",?12,SRDT,!,"Procedure: ",?14,SROPS(1) Line Location: OUT+6
Function Call: WRITE	Prompt: !,?14,SROPS(2) Line Location: OUT+6
Function Call: WRITE	Prompt: !!,"Tentative Admission Date: "_$S(SRADT="":"None Specified",1:SRADT) Line Location: OUT+7
Function Call: WRITE	Prompt: !,"Tentative Date of Operation: "_$S(TEMPDT="":"None Specified",1:TEMPDT) Line Location: OUT+8
Function Call: WRITE	Prompt: !,?3,^UTILITY($J,"W",3,X,0) Line Location: OUT+11
Function Call: WRITE	Prompt: !!," Home Phone: "_SRSPH1,?40,"Work Phone: "_SRSPH2 Line Location: OUT+12
Function Call: WRITE	Prompt: !," Address: ",?14,VAPA(1) Line Location: OUT+15
Function Call: WRITE	Prompt: !,?14,VAPA(3) Condition for execution: VAPA(2)'="" !,?14,VAPA(2) W:VAPA(3)'="" Line Location: OUT+15
Function Call: WRITE	Prompt: ", "_$P(VAPA(5),U,2)_" "_VAPA(6) Condition for execution: VAPA(4)'="" !,?14,VAPA(4) W:$P(VAPA(5),U,2)'="" Line Location: OUT+15
Function Call: WRITE	Prompt: !!,"Referring Physician/Institution: " Line Location: OUT+16
Function Call: WRITE	Prompt: ! Line Location: OUT+21
Function Call: WRITE	Prompt: "-" Line Location: OUT+21
Function Call: READ	Timeout: DTIME Variable: X Line Location: PAGE+2
Routine Call	%ZIS Line Location: SRSWL3+2

Name	Line Occurrences (* Changed, ! Killed)
^DIC(5 - [#5]	OUT+19
^DPT - [#2]	OUT+4
^SRO(133.8 - [#133.8]	BEG+2, MORE+1, PRINT+2, OUT+10, OUT+16, OUT+17, OUT+18
^SRO(137.45 - [#137.45]	BEG+2
^TMP("SR"	END+1!
^UTILITY($J	OUT+10!, OUT+11

Name	Line Occurrences
END	SRSWL3+3
HDR	PAGE+1, PAGE+3
LOOP	OUT+5
MORE	BEG+2
PAGE	BEG+2, PRINT+1
PRINT	MORE+1

Name	Field # of Occurrence
^(	OUT+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	BEG+1
%ZIS	SRSWL3+2!*
%ZIS("A"	SRSWL3+2*
>> DFN	PRINT+2*, OUT+4
>> DIWL	OUT+10*
>> DIWR	OUT+10*
DTIME	END+2, PAGE+2
>> I	OUT+10*
IO	BEG+1
IO("Q"	SRSWL3+2!, SRSWL3+3!
IOF	END, END+2, HDR+2
IOP	SRSWL3+2!
IOSL	PRINT+1
IOST	END, PAGE+2
>> LINE	HDR+2, OUT+21
>> LOOP	LOOP+1*
>> M	OUT+5*, LOOP+1
MM	OUT+5!, LOOP+1*
MMM	OUT+5!, LOOP+1*
POP	SRSWL3+2!
>> SRADT	OUT*, OUT+7
>> SRCOM	OUT+10*
>> SRDT	PRINT+2*, OUT+6
>> SREFER	OUT+17*, OUT+18
>> SRHALT	HDR+1
>> SRHDR	BEG+1, HDR+2, PAGE+1*
>> SROFN	MORE+1*, PRINT+2, OUT+10, OUT+16, OUT+17, OUT+18
>> SROPER	PRINT+2, OUT+5, LOOP+1*
SROPS	OUT+5!
SROPS(	LOOP+1*
SROPS(1	OUT+5*, OUT+6
SROPS(2	OUT+6
SRPHY	OUT+17!
SRPHY("ADD"	OUT+18*, OUT+20
SRPHY("CITY"	OUT+18*, OUT+20
SRPHY("NAME"	OUT+18*, OUT+20
SRPHY("PH"	OUT+19*, OUT+20
SRPHY("STATE"	OUT+19*, OUT+20
SRPHY("ZIP"	OUT+19*, OUT+20
>> SRSDPT	PRINT+2*, OUT+6
>> SRSDPT(	OUT+4*
>> SRSDT	BEG+2*, MORE+1, PRINT+2
>> SRSNM	BEG+2*, HDR+2
>> SRSOUT	BEG+1, BEG+2, END, END+2, HDR+1, MORE+1, PRINT+1, PAGE+2
>> SRSPH1	OUT+3, OUT+4, OUT+12
>> SRSPH2	OUT+4*, OUT+12
>> SRSS	BEG+2*, MORE+1, PRINT+2, OUT+10, OUT+16, OUT+17, OUT+18
>> SRTIME	BEG+1*, HDR+2
SRTN	END+3!
>> SRW	PRINT+2*, OUT, OUT+1
>> TEMPDT	OUT+1*, OUT+8
U	OUT+15
>> VA("PID"	PRINT+2
>> VADM(1	PRINT+2
>> VAPA(1	OUT+15
>> VAPA(2	OUT+15
>> VAPA(3	OUT+15
>> VAPA(4	OUT+15
>> VAPA(5	OUT+15
>> VAPA(6	OUT+15
>> VAPA(8	OUT+3
>> X	END+2, OUT+10, OUT+11, OUT+18, OUT+19, PAGE+2*
>> Y	BEG+1, PRINT+2, OUT, OUT+1, OUT+19*
>> ZTDESC	SRSWL3+3*
>> ZTQUEUED	END+1, HDR+1
>> ZTREQ	END+1*
>> ZTRTN	SRSWL3+3*
>> ZTSTOP	END+1

Customize PDF page

Package: Surgery

Routine: SRSWL3

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: