Routine: SROSPEC

Information

SROSPEC ;B'HAM ISC/MAM - CASES WITHOUT SPECIMENS ; [ 09/22/98 11:36 AM ]

Package	Total	Call Graph
Surgery	5	^SROSPC1 ^SROSPSS DATE^SROUTL $$INST^SROUTL0 ^SRSKILL
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	1	^DIC

Package	Total	Caller Graph
Surgery	1	SROSPEC

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,"Report of Cases Without Specimens",! Line Location: SROSPEC+2
Function Call: READ	Timeout: DTIME Variable: SRYN Line Location: SORT+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: SORT+2
Function Call: READ	Timeout: DTIME Variable: SRYN Line Location: SPEC+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: SPEC+2
Function Call: WRITE	Prompt: !!,"Enter 'YES' to print this report for a specific surgical specialty, or RETURN",!,"to print the report, sorted by the date of operation, for all specialties.",!!,"Press RETURN to continue " Line Location: SPEC+2
Function Call: WRITE	Prompt: !!,"This report is designed to use a 132 column format." Line Location: DEV+0
Function Call: WRITE	Prompt: ! Line Location: DEV+1
Function Call: WRITE	Prompt: !!,"Press RETURN to continue " Line Location: END+0
Function Call: WRITE	Prompt: @IOF Line Location: END+2
Function Call: WRITE	Prompt: ! Line Location: SP+1
Routine Call	DIC Line Location: SP+1 MORE+1
Routine Call	%ZIS Line Location: DEV+1

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

Name	Line Occurrences
DEV	SORT+3
END	DATE, DATE+1, SORT, SPEC, SPEC+3, DEV+1, DEV+2, EN+2
MORE	MORE+1
SORT	SORT+2
SP	SPEC+3
SPEC	SPEC+2

Name	Field # of Occurrence
%ZIS	DEV+1!*
%ZIS("A"	DEV+1*
DIC	SP+1!, MORE+1!
DIC("A"	SP+1, MORE+1
DIC("S"	SP+1, MORE+1
DIC(0	SP+1, MORE+1
DT	EN+1
DTIME	SORT, SORT+2, SPEC, SPEC+2, END
IO	EN+1
IO("Q"	DEV+1!, DEV+2!
IOF	SROSPEC+2, SORT, END+1, END+2
IOP	DEV+1!
IOST	END, END+1
POP	DEV+1!
>> SRED	DATE, EN+1
SRFRTO	EN+1~*
>> SRINST	DATE+1*
SRINSTP	DATE+1~*
>> SRORD	SROSPEC+2, SORT+3, EN+2
>> SRPRINT	EN+1*
>> SRSD	DATE, EN+1
>> SRSOUT	SROSPEC+2, DATE, SORT, SORT+2, SPEC, SPEC+3, DEV+1, END, SP+1
>> SRSP	SROSPEC+2, SP+1
>> SRSP(	SP+2, MORE+1
SRTN	END+2!
>> SRYN	SORT, SORT+1, SORT+2, SORT+3, SPEC, SPEC+1, SPEC+2, SPEC+3
U	DATE+1
>> X	SORT+2, SPEC+2, END*
>> Y	EN+1*, SP+1, SP+2, MORE+1
>> ZTDESC	DEV+2*
>> ZTQUEUED	END+1
>> ZTREQ	END+1*
>> ZTRTN	DEV+2*
>> ZTSAVE("SRED"	DEV+2*
>> ZTSAVE("SRINST"	DEV+2*
>> ZTSAVE("SRINSTP"	DEV+2*
>> ZTSAVE("SRORD"	DEV+2*
>> ZTSAVE("SRSD"	DEV+2*
>> ZTSAVE("SRSP*"	DEV+2*
>> ZTSTOP	END+1