Routine: SRORET

Information

SRORET ;B'HAM ISC/MAM - RETURN TO SURGERY REPORT ; [ 09/22/98 11:36 AM ]

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Surgery	4	^SROSTOP DATE^SROUTL ($$INST,$$MANDIV)^SROUTL0 ^SRSKILL
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Registration	1	DEM^VADPT
VA FileMan	1	D^DIQ

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Surgery	1	SRORET

Entry Points

Name	Comments	DBIA/ICR reference
DATE
BEG	; entry when queued
END
HDR	; print heading
PRET	; print procedures
PRINT	; print returns
PAGE
LOOP	; break procedure if greater than 65 characters
CHECK	; check for related returns

Name	Field # of Occurrence
^%ZIS	DATE+3
^%ZISC	END+1
^%ZTLOAD	DATE+4
D^DIQ	PRINT+2, PRINT+6
^SROSTOP	HDR+1
DATE^SROUTL	DATE
$$INST^SROUTL0	DATE+1
$$MANDIV^SROUTL0	BEG+3
^SRSKILL	END+1
DEM^VADPT	PRINT+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,"Report of Returns to Surgery",! Line Location: SRORET+2
Function Call: WRITE	Prompt: !!,"This report will list cases completed during the date range entered that",!,"have had return cases associated with them. It is designed to use a 132",!,"column format.",!! Line Location: DATE+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: !,?(132-$L(SRINST)\2),SRINST,!,?57,"SURGICAL SERVICE",?100,"REVIEWED BY: ",!,?52,"REPORT OF RETURNS TO SURGERY",?100,"DATE REVIEWED: " Line Location: HDR+2
Function Call: WRITE	Prompt: !,?(132-$L(SRFRTO)\2),SRFRTO,?100,SRPRINT Line Location: HDR+3
Function Call: WRITE	Prompt: !!!,"OPERATION DATE",?17,"PATIENT (ID#)",?65,"PRINCIPAL OPERATIVE PROCEDURE",! Line Location: HDR+4
Function Call: WRITE	Prompt: "=" Line Location: HDR+4
Function Call: WRITE	Prompt: !,?20,SRETDT,?35,SROPS(1) Line Location: PRET+2
Function Call: WRITE	Prompt: !,?35,SROPS(2) Line Location: PRET+2
Function Call: WRITE	Prompt: !,?35,SROPS(2) Line Location: PRET+2
Function Call: WRITE	Prompt: !,?35,SROPS(2) Line Location: PRET+2
Function Call: WRITE	Prompt: !!!,SRSDT,?17,SRNAME_" ("_VA("PID")_")",?65,SROPS(1) Line Location: PRINT+4
Function Call: WRITE	Prompt: !,?65,SROPS(2) Line Location: PRINT+4
Function Call: WRITE	Prompt: !,?65,SROPS(2) Line Location: PRINT+4
Function Call: WRITE	Prompt: !,?65,SROPS(2) Line Location: PRINT+4
Function Call: WRITE	Prompt: !!," RETURNS TO SURGERY: " Line Location: PRINT+5
Function Call: READ	Variable: X Timeout: DTIME Line Location: PAGE+0
Routine Call	%ZIS Line Location: DATE+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	BEG+1
^SRF - [#130]	BEG+3, PRINT+2, PRINT+3, PRINT+6, CHECK+1
^SRF("AC"	BEG+3

Label References

Name	Line Occurrences
CHECK	BEG+3
END	DATE, DATE+1, DATE+3, DATE+4
HDR	BEG+2, PAGE+1
LOOP	PRET+1, PRINT+3
PAGE	PRINT+1
PRET	PRINT+6
PRINT	BEG+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DATE+2!, DATE+3*
%ZIS("A"	DATE+3*
>> CNT	PRINT+6, CHECK+1
>> DFN	PRINT+2*
DT	BEG+1
DTIME	END, PAGE
IO	BEG+2
IO("Q"	DATE+2!, DATE+4!
IOF	SRORET+2, BEG+4, END+1, HDR+2
IOM	HDR+4
IOP	DATE+2!
IOSL	PRINT+1
IOST	BEG+4, END, PAGE
>> LINE	HDR+4*
>> LOOP	LOOP+1*
M	PRET+1!, PRINT+3, LOOP+1
MM	PRET+1, PRINT+3!, LOOP+1*
MMM	PRINT+3!, LOOP+1*
POP	DATE+2!, DATE+3
>> RET	PRINT+6, CHECK+1
RETURN	BEG+3!
RETURN(	PRINT+6, CHECK+1*
>> SRED	DATE, BEG+1
>> SRED1	BEG+1*, BEG+3
>> SRETDT	PRET+2, PRINT+6*
SRFRTO	BEG+1~*, HDR+3
>> SRHALT	HDR+1
>> SRINST	DATE+1*, HDR+2
SRINSTP	DATE+1~*, BEG+3
>> SRNAME	PRINT+2*, PRINT+4
>> SROPER	PRET+1, PRINT+3, PRINT+6, LOOP+1
SROPS	PRET+1!, PRINT+3!
SROPS(	LOOP+1*
SROPS(1	PRET+1, PRET+2, PRINT+3, PRINT+4
SROPS(2	PRET+2, PRINT+4
SROPS(3	PRET+2, PRINT+4
SROPS(4	PRET+2, PRINT+4
>> SRPRINT	BEG+1*, HDR+3
>> SRSD	DATE, BEG+1
>> SRSD1	BEG+1, BEG+3, PRINT+2
>> SRSDT	PRINT+2*, PRINT+4
>> SRSOUT	SRORET+2, DATE, DATE+3, DATE+4, BEG+1, BEG+2, BEG+3, END, HDR+1, PRINT+1 , PAGE*
SRTN	BEG+3*, END+1!, PRINT+2, PRINT+3, CHECK+1
>> SSN	PRINT+2*
U	DATE+1
>> VA("PID"	PRINT+2, PRINT+4
>> VADM(1	PRINT+2
>> X	END, PAGE
>> Y	BEG+1, PRINT+2, PRINT+6*
>> ZTDESC	DATE+4*
>> ZTQUEUED	BEG+4, HDR+1
>> ZTREQ	BEG+4*
>> ZTRTN	DATE+4*
>> ZTSAVE("SRED"	DATE+4*
>> ZTSAVE("SRINST"	DATE+4*
>> ZTSAVE("SRINSTP"	DATE+4*
>> ZTSAVE("SRSD"	DATE+4*
>> ZTSTOP	BEG+4

Customize PDF page

Package: Surgery