Routine: SRORUT

Information

SRORUT ;B'HAM ISC/MAM - OPERATING ROOM UTILIZATION ; [ 09/22/98 11:36 AM ]

Package	Total	Call Graph
Surgery	4	^SRORIN EN^SRORUT0 $$INST^SROUTL0 ^SRSKILL
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	2	^%DT ^DIC

Package	Total	Caller Graph
Surgery	1	SR OR UTL1

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,"Operating Room Utilization Report",! Line Location: SRORUT+3
Function Call: WRITE	Prompt: ! Line Location: DATE+0
Function Call: WRITE	Prompt: ! Line Location: DATE+2
Function Call: WRITE	Prompt: !!,"The ending date must be more recent than the starting date." Line Location: DATE+3
Function Call: READ	Timeout: DTIME Variable: SRYN Line Location: ROOMS+1
Function Call: WRITE	Prompt: @IOF,!,"Do you want to print the Operating Room Utilization Report for all",!,"operating rooms ? YES// " Line Location: ROOMS+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: ROOMS+3
Function Call: WRITE	Prompt: !!,"Enter RETURN if you want to print utilization information for every operating",!,"room, or 'NO' to print the report for one particular room.",!!,"Press RETURN to continue " Line Location: ROOMS+3
Function Call: WRITE	Prompt: ! Line Location: ROOMS+5
Function Call: WRITE	Prompt: !!,"This report is designed to use a 132 column format, and must be run",!,"on a printer.",! Line Location: ROOMS+7
Function Call: WRITE	Prompt: !!,"This report must be run on a printer. Please select another device.",! Line Location: ZIS+1
Function Call: WRITE	Prompt: @IOF Line Location: END+0
Routine Call	DIC Line Location: ROOMS+5
Routine Call	%ZIS Line Location: ZIS

FileNo	Call Tags
^SRS - [#131.7]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^XUSEC("SROCHIEF"	DATE+5, DATE+6

Name	Line Occurrences
DATE	DATE+3
END	DATE, DATE+2, DATE+6, DATE+7, ROOMS+1, ROOMS+5, ZIS, ZIS+2
ROOMS	ROOMS+3
ZIS	ROOMS+4, ZIS+1

Name	Field # of Occurrence
%DT	DATE!, DATE+2!
%DT("A"	DATE, DATE+2
%ZIS	ZIS!*
%ZIS("A"	ZIS*
DIC	ROOMS+5!*
DIC("A"	ROOMS+5*
DIC("S"	ROOMS+5*
DIC(0	ROOMS+5*
DTIME	ROOMS+1, ROOMS+3
DUZ	DATE+5, DATE+6
IO("Q"	ZIS!, ZIS+2!
IOF	SRORUT+3, ROOMS+1, END
IOP	ZIS!
IOST	ZIS+1
POP	ZIS!
SRDIV	DATE+5~, DATE+6
>> SRED	DATE+4*
>> SRED1	DATE+4*
>> SRINST	DATE+5, DATE+6
SRINSTP	DATE+5~, DATE+6
>> SROR	ROOMS+1, ROOMS+6
>> SRSD	DATE+1*, DATE+3
>> SRSD1	DATE+1*
>> SRSITE("DIV"	DATE+5
>> SRSITE("SITE"	DATE+5
>> SRSOUT	SRORUT+2, DATE, DATE+2, DATE+7, ROOMS+1, ROOMS+5, ZIS*
>> SRYN	DATE+7, ROOMS+1, ROOMS+2, ROOMS+3, ROOMS+4
U	DATE+6
>> X	ROOMS+3*
>> Y	DATE, DATE+1, DATE+2, DATE+3, DATE+4, ROOMS+5, ROOMS+6
>> ZTDESC	ZIS+2*
>> ZTRTN	ZIS+2*
>> ZTSAVE("SRDIV"	ZIS+2*
>> ZTSAVE("SRED*"	ZIS+2*
>> ZTSAVE("SRINST"	ZIS+2*
>> ZTSAVE("SRINSTP"	ZIS+2*
>> ZTSAVE("SROR"	ZIS+2*
>> ZTSAVE("SRSD*"	ZIS+2*