Routine: SRSRBS

Name	Comments	DBIA/ICR reference
A
END
SER	; entry when queued
SETUTL	; set ^TMP("SR",$J)
BEG
UTL	; loop through ^TMP("SR",$J) and print data
SETUTL1	; set ^TMP("SR",$J) with waiting list info
LOOP	; break procedure if greater than 65 characters
PRINT	; print information
WARD	; check for scheduled admission
PAGE	; end of screen
WLIST	; get waiting list patients
HDR	; print heading

Name	Field # of Occurrence
^%DT	SER+1
^%ZIS	BEG+4
^%ZISC	END+1
^%ZTLOAD	BEG+5
^DIC	BEG+3
D^DIQ	SETUTL+1
^SROSTOP	HDR+1
$$DIV^SROUTL0	SER+2
^SRSKILL	END+1
^SRSRBS1	BEG+2
^SRSRBW	A+2
DEM^VADPT	SETUTL+1, SETUTL1+2

Interaction Calls

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: X Line Location: A+0
Function Call: WRITE	Prompt: !!,"Enter RETURN if you would like to sort requests by SURGICAL SPECIALTY, or ",!,"'WARD' to sort by the WARD location." Line Location: A+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: BEG+0
Function Call: WRITE	Prompt: !!,"Enter RETURN if you would like a list of requests for all surgical specialties,",!,"or 'NO' to list the requests for a specific specialty.",! Line Location: BEG+1
Function Call: WRITE	Prompt: ! Line Location: BEG+3
Function Call: WRITE	Prompt: ! Line Location: BEG+4
Function Call: WRITE	Prompt: !!,"Press RETURN to continue " Line Location: UTL+2
Function Call: WRITE	Prompt: @IOF Line Location: END+1
Function Call: WRITE	Prompt: !,$P(STBY,"^"),?14,$P(STBY,"^",2),?45,$P(STBY,"^",3),!,SRTN,?14,$P(STBY,"^",5),!,?14,SROPS(1) Line Location: PRINT+3
Function Call: WRITE	Prompt: !,?14,SROPS(2) Line Location: PRINT+3
Function Call: WRITE	Prompt: !,?14,SROPS(2) Line Location: PRINT+3
Function Call: WRITE	Prompt: ! Line Location: PRINT+4
Function Call: WRITE	Prompt: "-" Line Location: PRINT+4
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+2
Function Call: WRITE	Prompt: !,?5,"Operative Requests for "_SRS("N"),!!,"Date",?14,"Patient",?45,"Ward Location",!,"Case Number",?14,"ID #",!,?14,"Operative Procedure",! Line Location: HDR+2
Function Call: WRITE	Prompt: "=" Line Location: HDR+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: PAGE+1
Routine Call	DIC Line Location: BEG+3
Routine Call	%ZIS Line Location: BEG+4

Name	Line Occurrences (* Changed, ! Killed)
^DGS(41.1 - [#41.1]	WARD+1
^DPT - [#2]	SETUTL+1, SETUTL1+2
^SRF - [#130]	SER+2, SETUTL+1
^SRF("AR"	SER+2
^SRO(133.8 - [#133.8]	WLIST+2, SETUTL1+1
^TMP("SR"	SER+1!, UTL+1, END!, SETUTL+3, SETUTL1+4, PRINT+2

Name	Line Occurrences
A	A+1
BEG	BEG+1
END	BEG, BEG+3, BEG+4, BEG+5
HDR	UTL+1, PRINT+1
LOOP	PRINT+2
PAGE	PRINT+1
PRINT	UTL+1
SETUTL	SER+2
SETUTL1	WLIST+2
WARD	SETUTL+2, SETUTL1+3

Name	Field # of Occurrence
^(	SETUTL+1, SETUTL1+2
^(0	SETUTL1+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	BEG+4!*
%ZIS("A"	BEG+4*
>> COUNT	WLIST+1, SETUTL1+2, SETUTL1+4
>> DFN	SER+1, SER+2, SETUTL+1, SETUTL1+1*, SETUTL1+2, WARD+1
DIC	BEG+3!*
DIC("A"	BEG+3*
DIC("S"	BEG+3*
DIC(0	BEG+3*
DT	WARD+1
DTIME	A, BEG, UTL+2, PAGE+1
IO	UTL+1
IO("Q"	BEG+4!, BEG+5!
IOF	END, END+1, HDR+2
IOP	BEG+4!
IOSL	PRINT+1
IOST	UTL+2, END, PAGE+1
>> LINE	PRINT+4, HDR+2
>> LOOP	LOOP+1*
>> M	LOOP+1, PRINT+2*
MM	LOOP+1*, PRINT+2!
MMM	LOOP+1*, PRINT+2!
>> PDATE	WARD+1*
>> PEND	WARD+1*
POP	BEG+4!
>> SRDATE	SETUTL+1*, SETUTL+3
>> SRHALT	HDR+1
>> SRNM	SETUTL+1, SETUTL+3, SETUTL1+2, SETUTL1+4
>> SROPER	LOOP+1, PRINT+2
SROPS	PRINT+2!
SROPS(	LOOP+1*
SROPS(1	PRINT+2*, PRINT+3
SROPS(2	PRINT+3
SROPS(3	PRINT+3
>> SRQ	SER+1, UTL+1, UTL+2, PRINT+1, HDR+1, PAGE+1*
>> SRS	BEG+3*, SER+2, WLIST+2
>> SRS("C"	BEG+3*
>> SRS("N"	BEG+3*, HDR+2
>> SRSDATE	SER+1, SER+2, WLIST+1, WLIST+2, UTL+1*, SETUTL+1, SETUTL+3, PRINT+2
>> SRSOP	SETUTL+1, SETUTL+3, SETUTL1+1, SETUTL1+4
>> SRSS	WLIST+2*, SETUTL1+1
>> SRSSN	SETUTL+1, SETUTL+3, SETUTL1+2, SETUTL1+4
SRTN	SER+1, SER+2, UTL+1*, END+1!, SETUTL+1, SETUTL+3, PRINT+2, PRINT+3
>> SRWARD	SETUTL+1, SETUTL+2, SETUTL+3, SETUTL1+2, SETUTL1+3, SETUTL1+4, WARD+1, WARD+2
>> SRWL	WLIST+2*, SETUTL1+1
>> STBY	PRINT+2*, PRINT+3
>> VA("PID"	SETUTL+1, SETUTL1+2
>> VADM(1	SETUTL+1, SETUTL1+2
>> X	A, A+1, A+2, BEG, BEG+1, BEG+2, SER+1, UTL+2, PAGE+1, WARD+1 , WARD+2
>> Y	BEG+3, SER+1, SETUTL+1*
>> Y(0	BEG+3
>> ZTDESC	BEG+5*
>> ZTQUEUED	END, HDR+1
>> ZTREQ	END*
>> ZTRTN	BEG+5*
>> ZTSAVE("DT"	BEG+5*
>> ZTSAVE("SRS"	BEG+5*
>> ZTSAVE("SRS(""N"")"	BEG+5*
>> ZTSAVE("SRSITE*"	BEG+5*
>> ZTSTOP	END

Customize PDF page

Package: Surgery

Routine: SRSRBS

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: