Routine: %ZTPP

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD ($$OS,MOVE)^ZTMGRSET
VA Fileman	1	NOW^%DTC

Package

Total

Call Graph

Kernel

^%ZIS ^%ZISC ^%ZTLOAD ($$OS,MOVE)^ZTMGRSET

VA Fileman

NOW^%DTC

Package	Total	Caller Graph
Kernel	2	XUPRROU ZTPTCH

Package

Total

Caller Graph

Kernel

XUPRROU ZTPTCH

Name	Field # of Occurrence
NOW^%DTC	DQ+2
^%ZIS	A3+4
^%ZISC	EXIT+1
^%ZTLOAD	A3+6
$$OS^ZTMGRSET	POST+2
MOVE^ZTMGRSET	POST+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Routine Print:" Line Location: A+0
Function Call: READ	Prompt: "Want to start each routine on a new page: Yes// " Formatting: ! Timeout: DTIME,! Variable: FF Line Location: A2+0
Function Call: WRITE	Prompt: !,"Enter Yes to start each routine on a new page.",!?5,"No for the old way." Line Location: A2+0
Function Call: WRITE	Prompt: !,"Enter Yes to have line numbers, O for offset numbers, No for no line numbers." Line Location: A3+1
Function Call: WRITE	Prompt: !!,"NO routines selected." Line Location: A3+3
Function Call: WRITE	Prompt: !,"REQUEST QUEUED" Line Location: A3+6
Function Call: WRITE	Prompt: !! Line Location: DQ+5
Function Call: WRITE	Prompt: $J(RN,10) Line Location: DQ+9
Function Call: WRITE	Prompt: ! Condition for execution: $X>70 Line Location: DQ+9
Function Call: WRITE	Prompt: !,Y,?J>1+6," " Line Location: DQ+13
Function Call: WRITE	Prompt: "--",!,?8 Condition for execution: $X>8 Line Location: DQ+13
Function Call: WRITE	Prompt: $E(X,1,IOM-(J>1+8)) Line Location: DQ+13
Function Call: WRITE	Prompt: !,J1,?4,Y,?J>1+10," " Line Location: DQ+15
Function Call: WRITE	Prompt: "--",!,?12 Condition for execution: $X>12 Line Location: DQ+15
Function Call: WRITE	Prompt: $E(X,1,IOM-(J>1+12)) Line Location: DQ+15
Function Call: WRITE	Prompt: ! Line Location: DQ+19
Function Call: WRITE	Prompt: RN," * * ",$S(PG>1:"(cont.)",1:LC_" LINES, (total "_BYTECNT_", comments "_CCNT_") BYTES"),?60,"Page ",PG Line Location: RSUM+13
Function Call: WRITE	Prompt: !,?8,HDR(1),?49,HDR(2),! Line Location: RSUM+15
Function Call: READ	Prompt: "Press RETURN to continue or '^' to exit: " Formatting: ! Timeout: 600 Variable: ST Line Location: RSUM+17
Routine Call	%ZIS Line Location: A3+4

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("LOAD"	DQ+8
^%ZOSF("RSEL"	A3+3
^%ZOSF("UCI"	DQ+3
^DD("SITE"	DQ+3
^UTILITY($J	A3+3!, DQ+7

Name	Line Occurrences
%Z3	DQ+11, DQ+12
%Z5	DQ+7, %Z3
A2	A2
A3	A3+1
DD	DQ+2
EXIT	A2, A3+1, A3+3, A3+4, A3+6
RSUM	DQ+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	DQ+2, EXIT!
%D	DQ+6!, POST+1~, POST+3*
%S	POST+1~, POST+3*
%T	DQ+6!
%TIM	DQ+6!
%Y	DQ+6*, DQ+12, EXIT!
%Z33	EXIT!
%ZIS	A3+4!*
BYTECNT	DQ+1~, DQ+10, RSUM+1, RSUM+4*, %Z3+2
CCNT	DQ+1~, DQ+10, RSUM+1, RSUM+7*, %Z3+2
DIF	DQ+1~, DQ+8*
DTIME	A+1~*, A2, A3
FF	A+1~, A2, A3+2, %Z3+1
HDR	DQ+1~
HDR(1	DQ+3*, %Z3+4
HDR(2	DQ+2*, %Z3+4
I	A3+5, EXIT!, RSUM+1~, RSUM+4, RSUM+5*, RSUM+6, POST+1~
IO	DQ+4, DQ+5, DQ+10, DQ+19
IO("Q"	A3+5, A3+6!
IO(0	DQ+4, DQ+5, DQ+9
IOC	DQ+1~, DQ+4*, DQ+5, DQ+7, DQ+9, %Z3
IOC2	DQ+1~, DQ+4*, DQ+5, DQ+7, %Z3
IOF	DQ+5, %Z3+1
IOM	DQ+6, DQ+13, DQ+15
IOP	A3+4!
IOSL	DQ+6, DQ+17, %Z3+1
IOST	DQ+4
J	DQ+13, DQ+15, EXIT!
J1	DQ+14, DQ+15, EXIT!
LC	DQ+1~, DQ+8, DQ+12, RSUM+2, %Z3+1, %Z3+2, %Z5
LI	DQ+1~, DQ+12, DQ+14, %Z5
LN	A+1~, A3, A3+1, A3+2, DQ+13, DQ+14, DQ+15
OF	DQ+1~, DQ+10, DQ+14
PG	DQ+1~, DQ+10, %Z3, %Z3+1, %Z3+2, %Z3+3
>> POP	A3+4
R	RSUM+1~, RSUM+2*, RSUM+3
R1	RSUM+1~, RSUM+2*, RSUM+3, RSUM+4
R2	RSUM+1~, RSUM+3*
R3	RSUM+1~, RSUM+3*
R4	RSUM+1~, RSUM+4, RSUM+5, RSUM+6, RSUM+7
RN	DQ+1~, DQ+6, DQ+7, DQ+8, DQ+9, %Z3+2, %Z5*
RSUM	DQ+1~, RSUM+9*, %Z3+3
RSUM2	DQ+1~, RSUM+9*, %Z3+3
RTN	DQ+8!, EXIT!
RTN(	DQ+12, RSUM+2
S	EXIT!
SCR	POST+1~, POST+3*
ST	DQ+1~, DQ+7, DQ+12, EXIT!, %Z3, %Z5
U	DQ+2*
X	DQ+1~, DQ+8, DQ+12, DQ+13, DQ+15, EXIT!, %Z5*
XCNP	DQ+1~, DQ+8*
Y	DQ+2, DQ+3, DQ+12, DQ+13, DQ+14, DQ+15, EXIT!, DD, RSUM+1~, RSUM+3* , RSUM+9
Y2	RSUM+1~, RSUM+3, RSUM+9
>> ZTDESC	A3+5*
>> ZTDTH	A3+5*
ZTIO	A3+4!
ZTMODE	POST+1~, POST+2*
ZTOS	POST+1~, POST+2*
>> ZTQUEUED	EXIT+1
>> ZTREQ	EXIT+1*
>> ZTRTN	A3+5*
>> ZTSAVE(	A3+5*
ZTSK	A+1~

Customize PDF page

Package: Kernel

Routine: %ZTPP

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
A
EXEC	;
DD
RSUM	;Checksum and byte counts ;p122
A3
A2
EXIT
POST	;POST-INIT
DQ	;FF start each routine on a new page, LN line numbers