Routine: SRSCDS

Information

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

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

Package	Total	Caller Graph
Surgery	1	SRSCD

Name	Comments	DBIA/ICR reference
END
SER
UTL	; set ^TMP("SR",$J)
PAGE
HDR	; print heading
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: READ	Timeout: DTIME Variable: Z Line Location: SER+0
Function Call: WRITE	Prompt: !!,"Enter RETURN to list the scheduled operations for a specific service,",!,"or 'NO' to list the scheduled cases for all services." Line Location: SER+1
Function Call: WRITE	Prompt: ! Line Location: SER+3
Function Call: WRITE	Prompt: ! Line Location: SER+5
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 "_SRS("N")_" *",!,?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	DIC Line Location: SER+3
Routine Call	%ZIS Line Location: SER+5

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]	SER+4, UTL+3
^SRS - [#131.7]	UTL+2
^TMP("SR"	SER!, OR+1!, OR+2, UTL+6*, PRINT+2, OUT+2

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

Name	Field # of Occurrence
%ZIS	SER+5!*
%ZIS("A"	SER+5*
>> DFN	UTL+1*, WARD+1
DIC	SER+3!*
DIC("A"	SER+3*
DIC("S"	SER+3*
DIC(0	SER+3*
DT	WARD+1
DTIME	SER, END, PAGE
IO	SRS+1
IO("Q"	SER+5!
IOF	OR+1, END+1, HDR+2
IOP	SER+5!
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	SER+5!
>> 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	SER, SRS+1, OR, END, HDR+1, PRINT+2, OUT+1, PAGE
>> SRS	SER+4*
>> SRS("C"	SER+4*
>> SRS("N"	SER+4*, HDR+2, UTL+6, PRINT+2, OUT+2
>> SRSDATE	SRS+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	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	SER+3, SER+4, SRS+1, UTL+4
>> Z	SER, SER+1, SER+2
>> ZTDESC	SER+5*
>> ZTQUEUED	OR+1, HDR+1
>> ZTREQ	OR+1*
>> ZTRTN	SER+5*
>> ZTSAVE("SRQ"	ZTSAVE*
>> ZTSAVE("SRS"	ZTSAVE*
>> ZTSAVE("SRS(""C"")"	ZTSAVE*
>> ZTSAVE("SRS(""N"")"	ZTSAVE*
>> ZTSAVE("SRSDATE"	ZTSAVE*
>> ZTSAVE("SRSITE*"	ZTSAVE*
>> ZTSTOP	OR+1