Routine: PSIVHIS

Name	Comments	DBIA/ICR reference
DEQ	;Entry from queue.
K	; Kill and exit.
QUE	;Ask device, queue if necessary.
RELATE	; Get related order.
DISPLAY	; Display order.
SPRINT(DFN,PSIVH)	; History log from beginning.

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No History Log to Report." Line Location: SPRINT+2
Function Call: WRITE	Prompt: ! Line Location: QUE+1
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED" Line Location: QUE+1
Routine Call	DIR Line Location: DISPLAY+3
Routine Call	%ZIS Line Location: QUE+1

Name	Line Occurrences (* Changed, ! Killed)
^PS(53.1 - [#53.1]	RELATE+3
^PS(55 - [#55]	RELATE+1, RELATE+2

Name	Field # of Occurrence
^(0	RELATE+1, RELATE+3
^(2	RELATE+2

Name	Field # of Occurrence
%ZIS	QUE+1!*
DFN	SPRINT~, DISPLAY+1, DISPLAY+2, RELATE+1, RELATE+2
DIR	DISPLAY+3!
DIR(0	DISPLAY+3*
>> DIRUT	SPRINT+2*
DONE	SPRINT+1~, DEQ+1~, DEQ+3, DISPLAY+3*
DTOUT	DEQ+1~, DISPLAY+3
DUOUT	DEQ+1~, DISPLAY+3
IO	DEQ+2
IO("Q"	QUE+1!, QUE+2!
IOF	K+1
ION	QUE+2
IOP	QUE+1!
IOST	K+1, DISPLAY+3
ON	SPRINT+1~, SPRINT+2, DEQ+2, DEQ+3*, DISPLAY+1, DISPLAY+2, RELATE+1, RELATE+2, RELATE+3
ON55	SPRINT+1~, SPRINT+2, DEQ+1~, DEQ+3
P	SPRINT+1~
P("PON"	DEQ+3*
>> POP	QUE+1
PSGORD	DEQ+1~, DISPLAY+1*
PSGP	DEQ+1~, DISPLAY+1*
PSIVAC	SPRINT+1~, SPRINT+2*
PSIVH	SPRINT~, SPRINT+2, SPRINT+3
PSIVNEW	SPRINT+1~, SPRINT+2, DEQ+1~, DEQ+3, RELATE+1, RELATE+2, RELATE+3*
PSIVOLD	SPRINT+1~, SPRINT+2, SPRINT+3, DEQ+2, K+1!, RELATE+1, RELATE+2, RELATE+3
PSJSYSU	DEQ+1~, DISPLAY+1*
U	RELATE+1, RELATE+2, RELATE+3
>> ZTDESC	QUE+2*
ZTDTH	QUE+2!
>> ZTIO	QUE+2*
>> ZTQUEUED	DEQ+4
>> ZTREQ	DEQ+4*
>> ZTRTN	QUE+2*
ZTSAVE	QUE+2!
ZTSAVE("DFN"	QUE+2*
ZTSAVE("PSIVOLD"	QUE+2*
ZTSK	QUE+2!

Information