Routine: LRCAPW

Package	Total	Call Graph
Lab Service	3	(DATE,MAJOR)^LRCAPS ^LRCAPW1 ^LRCAPW2
Kernel	2	^%ZIS ^%ZTLOAD

Package

Total

Call Graph

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: X Line Location: TIME+1
Function Call: WRITE	Prompt: !!,"Select starting and ending times for shift #"_C1_": " Line Location: TIME+1
Function Call: WRITE	Prompt: DEF(C1)_" // " Condition for execution: C1<4 Line Location: TIME+1
Function Call: WRITE	Prompt: !!,"Enter times in military format separated by a '-' to define" Line Location: HELP+0
Function Call: WRITE	Prompt: !,"the work shifts that are to be totaled and reported." Line Location: HELP+1
Function Call: WRITE	Prompt: !,"EXAMPLE: 0800-1630" Line Location: HELP+2
Function Call: WRITE	Prompt: *7," INVALID TIME!" Line Location: CHECK+0
Function Call: WRITE	Prompt: *7," INVALID TIME!" Line Location: CHECK+1
Function Call: WRITE	Prompt: *7," INVALID TIME RANGE!" Line Location: CHECK+2
Routine Call	%ZIS Line Location: ZIS

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS("C"	END
^%ZTSK - [#14.4]	DQ!
^UTILITY($J	END!

Name	Field # of Occurrence
>> %ZIS	ZIS*
>> C1	TIME, TIME+1, TIME1
>> DEF(	TIME+1, TIME1
>> DEF(1	TIME*
>> DEF(2	TIME*
>> DEF(3	TIME*
DTIME	TIME+1
>> I	TIME+1*
IO	LRCAPW+2, DQ
IO("Q"	ZIS+1!
LRA	END!
LRALL	END!
LREND	LRCAPW+2, END!, ZIS, ZIS+1, TIME, TIME+1, TIME+2, TIME1
LRFDT	END!
LRH1	END!
LRH2	END!
LRLDT	END!
LRM	END!
LRMAJ	END!
LRS	END!
LRSEC	END!
LRSHIFT	END!, TIME+2
LRSHIFT(	TIME1*
LRSTOP	END!, TIME+1, TIME1, CHECK, CHECK+1, CHECK+2
>> POP	ZIS
>> X	TIME+1, TIME1, CHECK, CHECK+1, CHECK+2
ZTDESC	END!, ZIS+1*
ZTIO	END!
ZTRTN	END!, ZIS+1*
ZTSAVE	END!
ZTSAVE("LR*"	ZIS+1*
ZTSK	END!, DQ!

Information