Routine: SROPRIT

Information

SROPRIT ;B'HAM ISC/MAM - TOTAL OPERATIONS (BY PRIORITY) ; [ 09/22/98 11:36 AM ]

Package	Total	Call Graph
Surgery	4	^SROPRI1 ^SROPRI2 DATE^SROUTL ^SRSKILL
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	2	^DIC HELP^DIE

Package	Total	Caller Graph
Surgery	3	SRO SURGICAL PRIORITY SROPRI1 SROPRI2

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,"Report of Surgical Priorities",! Line Location: BEG+0
Function Call: READ	Timeout: DTIME Variable: SRYN Line Location: CHOICE+0
Function Call: WRITE	Prompt: !!,"Enter RETURN if you want the totals for each Surgical Specialty, or 'NO' to",!,"display the total cases sorted by surgical priority for the entire Medical",!,"Center." Line Location: CHOICE+1
Function Call: WRITE	Prompt: ! Line Location: CHOICE+3
Function Call: WRITE	Prompt: @IOF Line Location: END+0
Function Call: WRITE	Prompt: @IOF Line Location: END+2
Function Call: READ	Timeout: DTIME Variable: SRYN Line Location: SPEC+1
Function Call: WRITE	Prompt: !!,"Enter 'YES' to print this report for all specialties, or 'NO' to select a",!,"specific specialty." Line Location: SPEC+2
Function Call: WRITE	Prompt: ! Line Location: SPEC+4
Routine Call	DIE Line Location: PLIST+1
Routine Call	DIC Line Location: SPEC+4
Routine Call	%ZIS Line Location: CHOICE+3

FileNo	Call Tags
^SRF - [#130]	HELP^DIE

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

Name	Line Occurrences
CHOICE	CHOICE+1
END	DATE, CHOICE, CHOICE+2, CHOICE+3, CHOICE+4, EN+3
SPEC	CHOICE+2, SPEC+2

Name	Field # of Occurrence
%ZIS	CHOICE+3!, CHOICE+4
%ZIS("A"	CHOICE+3*
DIC	SPEC+4!*
DIC("A"	SPEC+4*
DIC("S"	SPEC+4*
DIC(0	SPEC+4*
DT	EN+1
DTIME	CHOICE, SPEC+1
I	PLIST+1~, PLIST+2*
IO("Q"	CHOICE+3!, CHOICE+4!
IOF	BEG, END, END+2
IOP	CHOICE+3!
IOST	END
J	PLIST+1~, PLIST+2*
POP	CHOICE+3!
SRC	PLIST+1~, PLIST+2*
>> SRCODE(	PLIST+2, PLIST+4
>> SRCODE("ZZ"	PLIST+3*
>> SRD	DATE+1, EN+2
>> SRED	DATE, EN+1, EN+2
>> SRED1	EN+2*
SRFRTO	EN+1~*
>> SRINST	EN+2*
SRLIST	PLIST+1~
SRLIST("DIHELP"	PLIST+2
SRP	PLIST+1~, PLIST+2*
>> SRPRINT	EN+1*
>> SRSD	DATE, DATE+1, EN+1, EN+2
>> SRSITE("SITE"	EN+2
>> SRSOUT	DATE, CHOICE, CHOICE+2, EN+2, SPEC+1, SPEC+4
>> SRSS	CHOICE+2, EN+3, SPEC+5
SRTN	END+2!
>> SRYN	CHOICE, CHOICE+1, CHOICE+2, SPEC+1, SPEC+2, SPEC+3
X	PLIST+1~, PLIST+2, PLIST+4
Y	EN+1, PLIST+1~, PLIST+2, PLIST+4*, SPEC+4, SPEC+5
>> ZTDESC	CHOICE+4*
>> ZTQUEUED	END+1
>> ZTREQ	END+1*
>> ZTRTN	CHOICE+4*
>> ZTSAVE("SRD"	CHOICE+4*
>> ZTSAVE("SRED"	CHOICE+4*
>> ZTSAVE("SRSD"	CHOICE+4*
>> ZTSAVE("SRSITE*"	CHOICE+4*
>> ZTSAVE("SRSS"	CHOICE+4*
>> ZTSTOP	END+1