Routine: %ZIS3

Package	Total	Call Graph
Kernel	5	(SBR,YN)^%ZIS1 O^%ZIS4 2^%ZIS5 DEVOK^%ZOSV XPOX^ZISX

Package	Total	Caller Graph
Kernel	12	%ZIS1 %ZIS2 %ZIS6 ZISFGTM ZISFMSM ZISFONT ZISFVXD ZISHGTM ZISHGUX ZISHMSM ZISHONT ZISHVXD

Entry Points

Name	Comments	DBIA/ICR reference
C	;Close open device
W(%)	;Write text
TRM	;Terminal type
SETPAR
AQUE	;Ask about Queueing
ASKMAR
SUBTYPE(%A)	;Called from %ZISH
ST(%ZISTP)	;
Q	;%ZIS6 Returns here
SUBIEN(%1,%)	;Return Subtype ien. %1 is call by Ref.
STP
DEVOK
VTRM	;Virtual terminal type
MARGN	;Get the margin and page length
ALTP

Name	Line Occurrences
Function Call: WRITE	Prompt: " Right Margin: " Line Location: ASKMAR+0
Function Call: WRITE	Prompt: +%Z91,"// " Condition for execution: $P(%Z91,"^")]"" Line Location: ASKMAR+0
Function Call: WRITE	Prompt: !,% Line Location: W+2
Function Call: WRITE	Prompt: ! Line Location: AQUE+1
Function Call: WRITE	Prompt: !,"Previously, you have selected queueing." Line Location: AQUE+2
Function Call: WRITE	Prompt: !,"Do you "_$S($D(IO("Q")):"STILL ",1:"")_"want your output QUEUED" Line Location: AQUE+3

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS("lock"	%ZIS3+9
^%ZIS(1 - [#3.5]	%ZIS3+4, %ZIS3+9, STP+1
^%ZIS(2 - [#3.2]	MARGN+2, ST+1, ST+2, SUBIEN+2

Name	Field # of Occurrence
^("XY"	ST+2

Name	Field # of Occurrence
%	W~, W+2, AQUE+1*, AQUE+4, AQUE+5, AQUE+6, SUBIEN~, SUBIEN+3
%1	SUBIEN~, SUBIEN+2, SUBIEN+4
%A	MARGN+1, MARGN+2, MARGN+3, ALTP, ALTP+1, ALTP+3, ST+1, ST+2, SUBTYPE~, SUBTYPE+2* , SUBTYPE+3
%B	STP~, STP+1*, STP+2
>> %E	%ZIS3+4, %ZIS3+9, ASKMAR, STP+1
>> %H	ASKMAR
>> %X	ALTP+1, ALTP+2, ASKMAR+6*
%XX	SUBIEN+1~, SUBIEN+4*
>> %Y	MARGN+1, MARGN+2*, MARGN+4
%YY	SUBIEN+1~, SUBIEN+4
>> %Z	ASKMAR
%Z91	MARGN+2!, MARGN+3, MARGN+4, ALTP+1, ALTP+2, ASKMAR, ASKMAR+6, ST+2, STP+2*, SUBTYPE+1~ , SUBTYPE+4
>> %ZIS	%ZIS3+4, %ZIS3+9, Q+3, TRM+2, TRM+4, DEVOK+3, DEVOK+4, ASKMAR
>> %ZISB	TRM+2, TRM+4, ASKMAR+8
>> %ZISCHK	%ZIS3+6*
%ZISHP	Q+2!
%ZISHPOP	Q+2!, AQUE+5*
%ZISIOST	ST+1*, SUBTYPE+1~, SUBTYPE+4
%ZISIOST(0	ST+1*, SUBTYPE+4
%ZISLOCK	%ZIS3+8!, %ZIS3+9*
>> %ZISMY	MARGN+2*
>> %ZISOPAR	SETPAR*
%ZISQUIT	%ZIS3+5!
%ZISTP	ST~, ST+3
%ZISUOUT	Q+2!, AQUE+5*
>> %ZTYPE	%ZIS3+11, DEVOK+1, ALTP, ALTP+3, ASKMAR+8
>> DTOUT	ASKMAR+6
>> DUOUT	ASKMAR+6
IO	%ZIS3+9, Q+3, TRM+2, DEVOK+1, DEVOK+4, C+1
IO("P"	ALTP, ALTP+1, ALTP+2
IO("Q"	TRM+2, TRM+4, AQUE+1, AQUE+2, AQUE+3, AQUE+4, AQUE+6*
IO(0	TRM+2, C+1
IO(1	C+1!
>> IOBS	SUBTYPE+4*
IOF	SUBTYPE+4*
IOM	SUBTYPE+4*
>> IOP	TRM+2, ASKMAR, W+1
IOSL	SUBTYPE+4*
IOST	SUBTYPE+4, SUBTYPE+5
IOST(0	SUBTYPE+4, SUBTYPE+5
>> POP	%ZIS3+5, %ZIS3+11, Q+3, TRM+1, TRM+2, TRM+4, DEVOK+3, DEVOK+4, ASKMAR+8, AQUE+5*
U	SUBTYPE+4
X	DEVOK~, DEVOK+1, SUBIEN+3
X1	DEVOK~, DEVOK+1*
Y	DEVOK~, DEVOK+2, DEVOK+3, DEVOK+4