Routine: SRSRBS1

Name	Comments	DBIA/ICR reference
END
SER	; entry when queued
PRINT	; print information
SETUTL	; set ^TMP("SR",$J)
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
MOREWL	; continue getting patients on waiting list
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	SRSRBS1+2
^%ZISC	END+1
^%ZTLOAD	SRSRBS1+2
D^DIQ	SETUTL+2
^SROSTOP	HDR+1
$$DIV^SROUTL0	SER+2
^SRSKILL	END+1
DEM^VADPT	SETUTL+2, SETUTL1+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: SRSRBS1+2
Function Call: WRITE	Prompt: !!,"Press RETURN to continue " Line Location: UTL+3
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,!!,"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	%ZIS Line Location: SRSRBS1+2

Global Variables Directly Accessed

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

Name	Line Occurrences
END	SRSRBS1+2
HDR	UTL+2, PRINT+1
LOOP	PRINT+2
MOREWL	WLIST+2
PAGE	UTL+2, PRINT+1
PRINT	UTL+2
SETUTL	SER+2
SETUTL1	MOREWL+1
WARD	SETUTL+3, SETUTL1+2

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	SRSRBS1+2!*
%ZIS("A"	SRSRBS1+2*
>> COUNT	WLIST+1, SETUTL1+1, SETUTL1+3
>> DFN	SER+1, SER+2, MOREWL+1*, SETUTL+2, SETUTL1+1, WARD+1
DT	WARD+1
DTIME	UTL+3, PAGE+1
IO	UTL+1
IO("Q"	SRSRBS1+2!
IOF	END, END+1, HDR+2
IOP	SRSRBS1+2!
IOSL	PRINT+1
IOST	UTL+3, 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	SRSRBS1+2!
>> SRDATE	SETUTL+2*, SETUTL+4
>> SRHALT	HDR+1
>> SRNM	SETUTL+2, SETUTL+4, SETUTL1+1, SETUTL1+3
>> 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+2, UTL+3, PRINT+1, HDR+1, PAGE+1*
>> SRS	SER+2, WLIST+2, UTL+1, UTL+2, SETUTL+1, SETUTL1+1, PRINT+2, HDR+2
>> SRS("N"	SETUTL+1, SETUTL+4, SETUTL1+1, SETUTL1+3
>> SRSDATE	SER+1, SER+2, WLIST+2, UTL+1, UTL+2*, MOREWL+1, SETUTL+2, SETUTL+4, PRINT+2
>> SRSOP	MOREWL+1, SETUTL+2, SETUTL+4, SETUTL1+3
>> SRSS	WLIST+1, WLIST+2, MOREWL+1
>> SRSSN	SETUTL+2, SETUTL+4, SETUTL1+1, SETUTL1+3
SRTN	SER+1, SER+2, UTL+1, UTL+2, END+1!, SETUTL+2, SETUTL+4, PRINT+2, PRINT+3
>> SRWARD	SETUTL+2, SETUTL+3, SETUTL+4, SETUTL1+1, SETUTL1+2, SETUTL1+3, WARD+1, WARD+2
>> SRWL	MOREWL+1*
>> SRZ	UTL+1, PRINT+2, PAGE+1
>> STBY	PRINT+2*, PRINT+3
>> VA("PID"	SETUTL+2, SETUTL1+1
>> VADM(1	SETUTL+2, SETUTL1+1
>> X	SER+1, UTL+3, PAGE+1, WARD+1, WARD+2
>> Y	SER+1, SETUTL+2*
>> ZTDESC	SRSRBS1+2*
>> ZTQUEUED	END, HDR+1
>> ZTREQ	END*
>> ZTRTN	SRSRBS1+2*
>> ZTSAVE("DT"	SRSRBS1+2*
>> ZTSAVE("SRSITE*"	SRSRBS1+2*
>> ZTSTOP	END

Customize PDF page

Package: Surgery

Routine: SRSRBS1

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: