Routine: SRSCDW1

Information

SRSCDW1 ;B'HAM ISC/MAM - SCHEDULED OPERATIONS BY WARD ; [ 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	SRSCDW

Name	Comments	DBIA/ICR reference
END
HDR	; print heading
UTL	; set ^TMP("SR",$J)
PAGE
SRW	; 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: SRSCDW1+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+2
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+2
Function Call: WRITE	Prompt: !,?20,"* Scheduled Operations for "_SRWARD_" *",!,?30,SRDATE,!!,"Start Time",?12,"Patient",?45,"Operating Room",!,?12,"ID #",?45,"Speciality",! Line Location: HDR+2
Function Call: WRITE	Prompt: "=" Line Location: HDR+2
Function Call: WRITE	Prompt: !,$P(SR,"^",4),?12,$P(SR,"^"),?45,SROR,!,?12,$P(SR,"^",5),?45,$P(SR,"^",3),!,?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: SRSCDW1+2

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+2, END+1!, UTL+6*, PRINT+2, OUT+2

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

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