Routine: A4A7B1

Information

A4A7B1 ;CFB/SF/TUSC;NEW PERSON 3/6/16/20 LOCATOR PRINT ;4/11/96 11:46

Source file <A4A7B1.m>

Package	Total	Call Graph
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This report could take some time, remember to QUEUE the report.",! Line Location: DEVICE+0
Function Call: WRITE	Prompt: !,"Print terminated. No device specified." Line Location: DEVICE+0
Function Call: WRITE	Prompt: @IOF Line Location: BODY+1
Function Call: WRITE	Prompt: A4A7B("HDR",A4A7B),! Line Location: BODY+2
Function Call: WRITE	Prompt: $E(A4A7B("DATA"),1+(A4A7B(IOM-5)),(IOM-5)+(A4A7B(IOM-5))),! Line Location: BODY+3
Routine Call	%ZIS Line Location: DEVICE+2
Routine Call	%ZIS Line Location: DEVICE

Name	Line Occurrences (* Changed, ! Killed)
^DD(	UP
^UTILITY("A4A7B"	START+6, START+8, START+9, START+10

Name	Field # of Occurrence
^(	START+10
^("UP"	UP

Name	Field # of Occurrence
%ZIS	DEVICE!*
A4A7B	BODY+2, BODY+3, END!
A4A7B("DATA"	START+10*, BODY+3
A4A7B("HDR"	BODY+2, 1, 2, HDRID+1, HDRID+2, HDRID+3, HDRID+4, HDRID+5, HDRID+6, HDRID+7* , UPPTR+1, UP
A4A7B("ID"	START+6*, START+8, START+9, START+10, HDRID+2, HDRID+3, HDRID+4, HDRID+5, HDRID+6, HDRID+7 , UPPTR+1
A4A7B("ITEM"	START+7, START+8, START+9, START+10, HDRID+3, HDRID+4, HDRID+5, HDRID+6, HDRID+7, UPPTR+1
A4A7B("LOST"	START+9*, START+10, 1
A4A7B("TYPE"	START+1, START+2, START+3, START+4, START+5, START+10, 2, HDRID+2, HDRID+3, HDRID+4 , HDRID+5, HDRID+6, HDRID+7
A4A7B("X"	UPPTR+1, UP
A4A7B("Y"	UP*
A4A7B("Z"	UP*
IO	DEVICE+1
IO("Q"	DEVICE+1, DEVICE+2!
IOF	BODY+1
IOM	BODY+3
IOP	DEVICE!
IOSL	BODY+1
>> POP	DEVICE
>> ZTDESC	DEVICE+2*
>> ZTPRI	DEVICE+2*
>> ZTRTN	DEVICE+2*
>> ZTSAVE("*"	DEVICE+2*