Routine: SROICU

Information

SROICU ;B'HAM ISC/MAM - UNSCHEDULED ADMISSIONS TO ICU ; [ 01/08/98 9:54 AM ]

Source file <SROICU.m>

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

Package	Total	Caller Graph
Surgery	1	SROICU

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,"Report of Unscheduled Admissions to the ICU",! Line Location: SROICU+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: SPEC+4
Function Call: WRITE	Prompt: ! Line Location: SPEC+6
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
Routine Call	%ZIS Line Location: SPEC+6

Name	Line Occurrences
END	DATE, SPEC, SPEC+3, SPEC+5, SPEC+6, SPEC+7, EN+1
SP	SPEC+3
SPEC	SPEC+2

Name	Field # of Occurrence
%ZIS	SPEC+6!*
%ZIS("A"	SPEC+6*
DIC	SP+1!*
DIC("A"	SP+1*
DIC("S"	SP+1*
DIC(0	SP+1*
DTIME	SPEC, SPEC+2, END
IO	EN+1
IO("Q"	SPEC+6!, SPEC+7!
IOF	SROICU+2, SPEC, END+1, END+2
IOP	SPEC+6!
IOST	END, END+1
POP	SPEC+6!
>> SRED	DATE
>> SRINST	SROICU+2, SPEC+5
SRINSTP	SPEC+5~*
>> SRSD	DATE
>> SRSITE("SITE"	SROICU+2
>> SRSOUT	SROICU+2, DATE, SPEC, SPEC+3, SPEC+6, END, SP+1
>> SRSS	SPEC+1, EN+1, SP+2
SRTN	END+2!
>> SRYN	SPEC, SPEC+1, SPEC+2, SPEC+3
U	SPEC+5
>> X	SPEC+2, END
>> Y	SP+1, SP+2
>> ZTDESC	SPEC+7*
>> ZTQUEUED	END+1
>> ZTREQ	END+1*
>> ZTRTN	SPEC+7*
>> ZTSAVE("SRED"	SPEC+7*
>> ZTSAVE("SRINST"	SPEC+7*
>> ZTSAVE("SRINSTP"	SPEC+7*
>> ZTSAVE("SRSD"	SPEC+7*
>> ZTSAVE("SRSS"	SPEC+7*
>> ZTSTOP	END+1