Routine: SRSRBW

Package	Total	Call Graph
Surgery	4	^SROSTOP $$DIV^SROUTL0 ^SRSKILL ^SRSRBW1
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	3	^%DT ^DIC D^DIQ
Registration	1	DEM^VADPT

Package	Total	Caller Graph
Surgery	1	SRSRBS

Entry Points

Name	Comments	DBIA/ICR reference
END
SER	; entry when queued
PRINT	; print information
SETUTL	; set ^TMP("SR",$J)
BEG
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
PAGE	; end of screen
LOOP	; break procedure if greater than 65 characters
HDR	; print heading

Name	Line Occurrences
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 wards, or 'NO' to",!,"list the requests for a specific ward.",! 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($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("N"),!!,"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	DIC Line Location: BEG+3
Routine Call	%ZIS Line Location: BEG+4

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

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

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
DIC	BEG+3!*
DIC("A"	BEG+3*
DIC("S"	BEG+3*
DIC(0	BEG+3*
DTIME	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!
POP	BEG+4!
>> SRDATE	SETUTL+2*, SETUTL+3
>> SRHALT	HDR+1
>> SRNM	SETUTL+2, 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	WLIST+2, SETUTL+2, SETUTL+3, SETUTL1+2*, SETUTL1+4
>> SRSDATE	SER+1, SER+2, WLIST+2, UTL+1, MOREWL+1, SETUTL+2, SETUTL+3, PRINT+2
>> SRSOP	SETUTL+2, SETUTL+3, SETUTL1+3, SETUTL1+4
>> SRSS	WLIST+1, WLIST+2, MOREWL+1, SETUTL1+1, SETUTL1+2, SETUTL1+3
>> SRSSN	SETUTL+2, SETUTL+3, SETUTL1+2, SETUTL1+4
SRTN	SER+1, SER+2, UTL+1*, END+1!, SETUTL+2, SETUTL+3, PRINT+2, PRINT+3
>> SRW	BEG+3*
>> SRW("N"	BEG+3*, SETUTL+1, SETUTL1+1, HDR+2
>> SRWARD	SETUTL+1, SETUTL1+2
>> SRWL	MOREWL+1*, SETUTL1+1, SETUTL1+3
>> STBY	PRINT+2*, PRINT+3
>> VA("PID"	SETUTL+2, SETUTL1+2
>> VADM(1	SETUTL+2, SETUTL1+2
>> X	BEG, BEG+1, BEG+2, SER+1, UTL+2, PAGE+1
>> Y	BEG+3, SER+1, SETUTL+2*
>> Y(0	BEG+3
>> ZTDESC	BEG+5*
>> ZTQUEUED	END, HDR+1
>> ZTREQ	END*
>> ZTRTN	BEG+5*
>> ZTSAVE("DT"	BEG+5*
>> ZTSAVE("SRSITE*"	BEG+5*
>> ZTSAVE("SRW"	BEG+5*
>> ZTSAVE("SRW(""N"")"	BEG+5*
>> ZTSTOP	END