Routine: SRSCD

Package	Total	Call Graph
Surgery	5	^SROSTOP ($$DIV,$$NODATA,$$ORDIV)^SROUTL0 ^SRSCDS ^SRSCDW ^SRSKILL
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	3	^%DT ^DIC D^DIQ
Registration	1	DEM^VADPT

Package

Total

Call Graph

Surgery

^SROSTOP ($$DIV,$$NODATA,$$ORDIV)^SROUTL0 ^SRSCDS ^SRSCDW ^SRSKILL

Kernel

^%ZIS ^%ZISC ^%ZTLOAD

VA Fileman

^%DT ^DIC D^DIQ

Registration

DEM^VADPT

Package	Total	Caller Graph
Surgery	1	SRSCD

Package

Total

Caller Graph

Surgery

SRSCD

Entry Points

Name	Comments	DBIA/ICR reference
ALL	; entry when queued
END
ROOM	; sort by operating room
BEG
UTL	; set ^TMP("SR",$J)
ONE	; list scheduled cases for a specific room
WARD	; check for scheduled admission
ZTSAVE
PAGE
PRINT	; loop through ^TMP and print cases
DT
OUT	; output data
OR
LOOP	; break procedure if greater than 65 characters
HDR	; print heading

Name	Field # of Occurrence
^%DT	DT
^%ZIS	ROOM+4
^%ZISC	END+2
^%ZTLOAD	ROOM+4
^DIC	ROOM+3
D^DIQ	BEG+2, UTL+4
^SROSTOP	HDR+1
$$DIV^SROUTL0	OR
$$NODATA^SROUTL0	ALL+2, ONE+1
$$ORDIV^SROUTL0	ALL+1
^SRSCDS	BEG+2
^SRSCDW	BEG+2
^SRSKILL	END+2
DEM^VADPT	UTL+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,"List of Scheduled Operations:",! Line Location: SRSCD+2
Function Call: READ	Timeout: DTIME Variable: Z Line Location: BEG+0
Function Call: WRITE	Prompt: !!,"Enter 'O' to sort the schedule by operating room, 'S' to sort by specialty",!,"or 'W' to sort by ward." Line Location: BEG+1
Function Call: READ	Timeout: DTIME Variable: Z Line Location: ROOM+1
Function Call: WRITE	Prompt: !!,"Enter 'NO' to list the scheduled operations for a specific operating room,",!,"or RETURN to list the scheduled cases for all rooms." Line Location: ROOM+2
Function Call: WRITE	Prompt: !! Line Location: ROOM+3
Function Call: WRITE	Prompt: ! Line Location: ROOM+4
Function Call: WRITE	Prompt: $$NODATA^SROUTL0() Line Location: ALL+2
Function Call: WRITE	Prompt: $$NODATA^SROUTL0() Line Location: ONE+1
Function Call: WRITE	Prompt: !!,"Press RETURN to continue " Line Location: END+1
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: !,?20,"* Scheduled Operations for "_SROR_" *",!,?30,SRDATE,!!,"Start Time",?13,"Patient",?43,"Surgical Specialty",?67,"Ward Location",!,?13,"ID #",! Line Location: HDR+2
Function Call: WRITE	Prompt: "=" Line Location: HDR+2
Function Call: WRITE	Prompt: !,$P(SR,"^",5),?12,$P(SR,"^"),?43,$P(SR,"^",4),?67,$P(SR,"^",3),!,?12,$P(SR,"^",6),!,?12,SROPS(1) Line Location: OUT+3
Function Call: WRITE	Prompt: !,?12,SROPS(2) Line Location: OUT+3
Function Call: WRITE	Prompt: !,?12,SROPS(2) Line Location: OUT+3
Function Call: WRITE	Prompt: ! Line Location: OUT+4
Function Call: WRITE	Prompt: "-" Line Location: OUT+4
Function Call: READ	Timeout: DTIME Variable: X Line Location: PAGE+0
Routine Call	DIC Line Location: ROOM+3
Routine Call	%ZIS Line Location: ROOM+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGS(41.1 - [#41.1]	WARD+1
^DPT - [#2]	UTL+2
^SC - [#44]	ROOM+3, ALL+1
^SRF - [#130]	OR, UTL+2
^SRF("AOR"	ALL+1, OR
^SRO(137.45 - [#137.45]	UTL+3
^SRS - [#131.7]	ALL+1
^TMP("SR"	ROOM+1!, ALL+2, ONE+1, END!, UTL+6*, PRINT+1, OUT+2

Name	Line Occurrences
BEG	BEG+1
END	DT, BEG, ROOM+1, ROOM+3, ROOM+4, ALL+3
HDR	ALL+2, ONE+1, UTL+1, PRINT+1, OUT+1
LOOP	OUT+2
ONE	ALL+1
OR	ALL+1, ONE+1
OUT	PRINT+1
PAGE	UTL+1, PRINT+1, OUT+1
PRINT	ALL+2, ONE+1
ROOM	ROOM+2
UTL	OR
WARD	UTL+2
ZTSAVE	ROOM+4

Name	Field # of Occurrence
^(	UTL+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	DT*
>> %DT("A"	DT*
%ZIS	ROOM+4!*
%ZIS("A"	ROOM+4*
>> DFN	UTL+2*, WARD+1
>> DIC	ROOM+3*
>> DIC("S"	ROOM+3*
>> DIC(0	ROOM+3*
DT	WARD+1
DTIME	BEG, ROOM+1, END+1, PAGE
IO	ALL+1
IO("Q"	ROOM+4!
IOF	SRSCD+2, END, END+2, HDR+2
IOP	ROOM+4!
IOSL	UTL+1, OUT+1
IOST	END, END+1, PAGE
>> LINE	HDR+2, OUT+4
>> LOOP	LOOP+1*
>> M	LOOP+1, OUT+2*
MM	LOOP+1*, OUT+2!
MMM	LOOP+1*, OUT+2!
>> PDATE	WARD+1*
>> PEND	WARD+1*
POP	ROOM+4!
>> SR	OUT+2*, OUT+3
>> SRDATE	BEG+2*, HDR+2
>> SRFIND	UTL+4*
>> SRHALT	HDR+1
>> SRNM	UTL+2*, UTL+6
>> SROPER	LOOP+1, OUT+2
SROPS	OUT+2!
SROPS(	LOOP+1*
SROPS(1	OUT+2*, OUT+3
SROPS(2	OUT+3
SROPS(3	OUT+3
>> SROR	ROOM+1, ROOM+3, ALL+1, HDR+2, OR, PRINT+1, OUT+2
>> SROR("N"	ROOM+1, ROOM+3, ALL+1*, UTL+6
>> SRQ	DT, ALL+1, END+1, HDR+1, OR, UTL+1, PRINT+1, OUT+1, PAGE
>> SRSDATE	DT*, BEG+2, OR
>> SRSITE("DIV"	ALL+1
>> SRSOP	UTL+2*, UTL+6
>> SRSS	UTL+2, UTL+3, UTL+5*, UTL+6
>> SRSSN	UTL+2*, UTL+6
>> SRST	OR, UTL+4, UTL+6, PRINT+1, OUT+2
>> SRTIME	UTL+4*, UTL+6
SRTN	END+2!, OR*, UTL+2
>> SRWARD	UTL+2, UTL+6, WARD+1, WARD+2*
>> SRZ	ALL+1, HDR+2, UTL+1, PRINT+1*
>> VA("PID"	UTL+2
>> VADM(1	UTL+2
>> X	END+1, PAGE, WARD+1*, WARD+2
>> Y	DT, BEG+2, ROOM+3, UTL+4
>> Z	BEG, BEG+1, BEG+2, ROOM+1, ROOM+2*, ROOM+3, ALL+1
>> ZTDESC	ROOM+4*
>> ZTQUEUED	END, HDR+1
>> ZTREQ	END*
>> ZTRTN	ROOM+4*
>> ZTSAVE("SRDATE"	ZTSAVE*
>> ZTSAVE("SROR"	ZTSAVE*
>> ZTSAVE("SROR(""N"")"	ZTSAVE*
>> ZTSAVE("SRQ"	ZTSAVE*
>> ZTSAVE("SRSDATE"	ZTSAVE*
>> ZTSAVE("SRSITE*"	ZTSAVE*
>> ZTSAVE("Z"	ZTSAVE*
>> ZTSTOP	END

Customize PDF page

Package: Surgery

Routine: SRSCD

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: