Routine: SRSRBW1

Name	Comments	DBIA/ICR reference
END
HDR	; print heading
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
WLIST	; get waiting list patients
MOREWL	; continue getting patients on waiting list
NOWARD	; check for scheduled admission
WARD	; entry when queued
PAGE	; end of screen
LOOP	; break procedure if greater than 65 characters

Name	Field # of Occurrence
^%DT	WARD+1
^%ZIS	SRSRBW1+2
^%ZISC	END+1
^%ZTLOAD	SRSRBW1+2
D^DIQ	SETUTL+2
^SROSTOP	HDR+1
$$DIV^SROUTL0	WARD+2
^SRSKILL	END+1
DEM^VADPT	SETUTL+1, SETUTL1+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: SRSRBW1+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($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 "_SRW,!!,"Date",?14,"Patient",?45,"Surgical Specialty",!,"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: SRSRBW1+2

Global Variables Directly Accessed

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

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

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Surgery

Routine: SRSRBW1

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: