Routine: SRTPLS

Package	Total	Call Graph
Surgery	5	DATE^SROUTL $$INST^SROUTL0 $$SITE^SROVAR ^SRSKILL ^SRTPLST
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	2	$$GET1^DIQ ^DIR

Package	Total	Caller Graph
Surgery	1	SRTP ASSESSMENT LIST

Entry Points

Name	Comments	DBIA/ICR reference
DATE
STATUS	; select type of Assessment Status
EN	; entry when queued
END
TYPE

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,"This report is designed to print to your terminal screen or a printer. When",!,"using a printer, a 132 column format is used.",! Line Location: DATE+3
Function Call: WRITE	Prompt: !!,"Press ENTER to continue " Line Location: END+0
Function Call: WRITE	Prompt: @IOF Line Location: END+2
Function Call: WRITE	Prompt: ! Line Location: STATUS+1
Function Call: WRITE	Prompt: ! Line Location: TYPE+0
Routine Call	DIR Line Location: STATUS+3 TYPE+2
Routine Call	%ZIS Line Location: DATE+4

FileNo	Call Tags
^DIC(4 - [#4]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	EN+1, EN+2
^TMP("SRA"	END+1!

Name	Field # of Occurrence
%ZIS	DATE+4!*
%ZIS("A"	DATE+4*
DIR	STATUS+1!, STATUS+3!, TYPE!, TYPE+2!
DIR("A"	STATUS+1, STATUS+2, STATUS+3, TYPE, TYPE+1, TYPE+2
DIR("B"	STATUS+3, TYPE+2
DIR(0	STATUS+3, TYPE+2
DT	EN+2
DTIME	END
>> DTOUT	STATUS+3, TYPE+2
>> DUOUT	STATUS+3, TYPE+2
IO	EN+2
IO("Q"	DATE+4!, DATE+5!
IOF	DATE+3, END+1, END+2
IOP	DATE+4!
IOST	END, END+1
POP	DATE+4!
SRAST	SRTPLS+2, END+2!, STATUS+4
>> SRED	DATE, EN+1, EN+2*
>> SRFLG	SRTPLS+2*
SRFRTO	EN+1~*
>> SRINST	DATE+2, EN+3
SRINSTP	DATE+2~*, EN+3
>> SRPRINT	EN+2*
>> SRSD	DATE, EN+1, EN+2*
>> SRSOUT	SRTPLS+2, DATE, DATE+1, DATE+4, END, STATUS+3, TYPE+2
>> SRSP	SRTPLS+2*
>> SRSRT	SRTPLS+2*
SRTPP	END+2!
>> SRTYPE	TYPE+3*
>> X	END*
>> Y	EN+1, EN+2, STATUS+4, TYPE+3
>> ZTDESC	DATE+6*
>> ZTQUEUED	END+1
>> ZTREQ	DATE+5, END+1
>> ZTRTN	DATE+6*
>> ZTSAVE("SRAST"	DATE+7*
>> ZTSAVE("SRED"	DATE+7*
>> ZTSAVE("SRINSTP"	DATE+7*
>> ZTSAVE("SRSD"	DATE+7*
>> ZTSAVE("SRSRT"	DATE+7*
>> ZTSAVE("SRTYPE"	DATE+7*
>> ZTSTOP	END+1