Routine: SRSCDS1

Information

SRSCDS1 ;B'HAM ISC/MAM - SCHEDULED OPERATIONS BY SERVICE ; [ 07/27/98 2:33 PM ]

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

Package	Total	Caller Graph
Surgery	1	SRSCDS

Name	Comments	DBIA/ICR reference
END
HDR	; print heading
UTL	; set ^TMP("SR",$J)
PAGE
SRS	; entry when queued
PRINT	; loop through ^TMP and print cases
WARD	; check for scheduled admission
OUT	; output data
OR
LOOP	; break procedure if greater than 65 characters
ZTSAVE

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: SRSCDS1+2
Function Call: WRITE	Prompt: $$NODATA^SROUTL0() Line Location: OR+2
Function Call: WRITE	Prompt: !!,"Press RETURN to continue " Line Location: END+0
Function Call: WRITE	Prompt: @IOF Line Location: END+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+2
Function Call: WRITE	Prompt: !,?20,"* Scheduled Operations for "_SRSS_" *",!,?30,SRDATE,!!,"Start Time",?13,"Patient",?43,"Operating Room",?67,"Ward Location",!,?13,"ID #",! Line Location: HDR+2
Function Call: WRITE	Prompt: "=" Line Location: HDR+2
Function Call: WRITE	Prompt: !,$P(SR,"^",4),?12,$P(SR,"^"),?45,SROR,?67,$P(SR,"^",3),!,?12,$P(SR,"^",5),!,?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	%ZIS Line Location: SRSCDS1+3

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

Name	Field # of Occurrence
^(	UTL+1
^(31	OR

Name	Field # of Occurrence
%ZIS	SRSCDS1+2!, SRSCDS1+3*
%ZIS("A"	SRSCDS1+3*
>> DFN	UTL+1*, WARD+1
DT	ZTSAVE, WARD+1
DTIME	END, PAGE
IO	SRS+1
IO("Q"	SRSCDS1+2!, SRSCDS1+3!
IOF	OR+1, END+1, HDR+2
IOP	SRSCDS1+2!
IOSL	OUT+1
IOST	OR+1, END, 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	SRSCDS1+2!, SRSCDS1+3
>> SR	OUT+2*, OUT+3
>> SRDATE	SRS+1*, HDR+2
>> SRFIND	UTL+4*
>> SRHALT	HDR+1
>> SRNM	UTL+1*, 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	SRS+1, OR, UTL+2, PRINT+1, PRINT+2, OUT+2, OUT+3
>> SROR("N"	UTL+2*, UTL+6
>> SRQ	SRS+1, OR, END, HDR+1, PRINT+2, OUT+1, PAGE*
>> SRS	ZTSAVE
>> SRS("C"	ZTSAVE
>> SRS("N"	ZTSAVE
>> SRSDATE	SRS+1, OR
>> SRSITE("DIV"	OR
>> SRSOP	UTL+1*, UTL+6
>> SRSS	SRS+1, HDR+2, UTL+1, UTL+3, UTL+5, UTL+6, PRINT+1, PRINT+2, OUT+2
>> SRSSN	UTL+1*, UTL+6
>> SRST	OR, UTL+4, UTL+6, PRINT+1, PRINT+2*, OUT+2
>> SRTIME	UTL+4*, UTL+6
SRTN	SRS+1, OR, END+1!, UTL+1
>> SRWARD	UTL+1, UTL+6, WARD+1, WARD+2*
>> SRZ	HDR+2, PRINT+1, PRINT+2
>> VA("PID"	UTL+1
>> VADM(1	UTL+1
>> X	END, PAGE, WARD+1*, WARD+2
>> Y	SRS+1, UTL+4
>> ZTDESC	SRSCDS1+3*
>> ZTQUEUED	OR+1, HDR+1
>> ZTREQ	OR+1*
>> ZTRTN	SRSCDS1+3*
>> ZTSAVE("DT"	ZTSAVE*
>> ZTSAVE("SRS"	ZTSAVE*
>> ZTSAVE("SRS(""C"")"	ZTSAVE*
>> ZTSAVE("SRS(""N"")"	ZTSAVE*
>> ZTSAVE("SRSDATE"	SRSCDS1+3*
>> ZTSAVE("SRSITE*"	SRSCDS1+3, ZTSAVE
>> ZTSTOP	OR+1