Routine: AMEROUT5

Package	Total	Caller Graph
Emergency Room	1	AMEROUT4

Entry Points

Name	Comments	DBIA/ICR reference
FILTER	;ENTRY POINT FROM AMEROUT4 ; FILTER OUT INVALID TIME VALUES
OUTPUT	; PRINT INSTRUCTIONS
READ(X)	; END OF PAGE
ZIS	;ENTRY POINT FROM AMEROUT4 ; ASK USER FOR DEVICE
CRT	; DISPLAY THE REPORT ON A CRT

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!?20,"*** HOURLY WORKLOAD REPORT ***",!! Line Location: CRT+2
Function Call: WRITE	Prompt: ! Line Location: CRT+4
Function Call: WRITE	Prompt: X,! Line Location: CRT+5
Function Call: WRITE	Prompt: 13,?79,13 Line Location: READ+4
Function Call: WRITE	Prompt: !!,$S($D(ZTSK):"Request queued!",1:"Unable to queue job. Request cancelled!") Line Location: ZIS+7
Function Call: WRITE	Prompt: !?20,"*** HOURLY WORKLOAD REPORT ***",!! Line Location: OUTPUT+2
Function Call: WRITE	Prompt: X,! Line Location: OUTPUT+5
Function Call: WRITE	Prompt: @IOF Line Location: OUTPUT+7
Function Call: WRITE	Prompt: !!!,"Some of the times recorded in the database may be invalid; i.e., negative or",!,"excessively long intervals.",!,"Want to FILTER out data which is likely to be invalid" Line Location: FILTER+3
Function Call: WRITE	Prompt: !! Line Location: FILTER+7
Routine Call	DIR Line Location: READ+3
Routine Call	%ZIS Line Location: ZIS+4

Name	Line Occurrences (* Changed, ! Killed)
^TMP("AMER PRINT"	CRT+3, OUTPUT+3

Name	Field # of Occurrence
^(	CRT+3, OUTPUT+3

Name	Field # of Occurrence
%	READ+1~, FILTER+2~, FILTER+4*, FILTER+5, FILTER+6
%ZIS	ZIS+2~, ZIS+3*
%ZIS("A"	ZIS+3*
>> AMERFLTR	FILTER+6*
>> AMERQUIT	ZIS+4*
DIR	READ+3!
DIR("A"	READ+2*
DIR(0	READ+2*
>> DTOUT	READ+3
DUOUT	READ+3!
IO	ZIS+8
IO("Q"	ZIS+5, ZIS+6
IOF	CRT+2, OUTPUT+4, OUTPUT+7
ION	ZIS+6
IOST	ZIS+5
OCXI	CRT+1~, CRT+3, OUTPUT+1~, OUTPUT+3
POP	ZIS+2~, ZIS+4
T	CRT+1~, CRT+3, CRT+4, CRT+7, OUTPUT+1~, OUTPUT+3, OUTPUT+4*, OUTPUT+7
X	CRT+1~, CRT+3, CRT+4, CRT+5, READ~, READ+2, OUTPUT+1~, OUTPUT+3, OUTPUT+4, OUTPUT+5
Y	READ+3!
ZTDESC	ZIS+2~, ZIS+6*
ZTIO	ZIS+2~, ZIS+6*
>> ZTQUEUED	OUTPUT+9
>> ZTREQ	OUTPUT+9*
ZTRTN	ZIS+2~, ZIS+6*
ZTSAVE	ZIS+2~
ZTSAVE("^TMP(	""AMER PRINT"", $J, " , ZIS+6*
ZTSK	ZIS+2~, ZIS+7