Routine: PSXLBL

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC PSET^%ZISP ^%ZTLOAD
VA Fileman	2	^DIC ^DIR
CMOP	1	PTEST^PSXLBLPT

Package	Total	Caller Graph
CMOP	1	PSXLBLU

Entry Points

External References

Name	Field # of Occurrence
^%ZIS	DEVICE+1, P2
^%ZISC	DEVICE+3, P2+3
PSET^%ZISP	DEVICE+2
^%ZTLOAD	QUE+4
^DIC	ENTER
^DIR	TOF+2, P2+6
PTEST^PSXLBLPT	P2+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,! Line Location: SS1+0
Function Call: WRITE	Prompt: !!,"BATCH "_BATREF_" is currently being printed.",!,"Please select another batch or ""^"" to exit.",!! Line Location: ENTER+2
Function Call: WRITE	Prompt: !!,"No data to "_$S($G(REPRINT):"reprint",1:"print")_" for CMOP Msg # ",BATREF,". Select another batch.",! Line Location: CHECK+0
Function Call: WRITE	Prompt: !! Line Location: DEVICE+0
Function Call: WRITE	Prompt: !,"You must choose a printer or ""^"" to exit" Line Location: DEVICE+1
Function Call: WRITE	Prompt: !?5,"PRINTER IS BUSY. " Line Location: P2+0
Function Call: WRITE	Prompt: !,"ALIGN LABELS SO THAT A PERFORATION IS AT THE TOP OF THE" Line Location: P2+1
Function Call: WRITE	Prompt: !,"PRINT HEAD AND THE LEFT SIDE IS AT COLUMN ZERO." Line Location: P2+2
Function Call: READ	Prompt: ! Timeout: ",X:DTIME Variable: "PRESS RETURN WHEN READY Line Location: P2+3
Function Call: WRITE	Prompt: !!,"Labels may NOT be printed while the CMOP "_$S($G(ZH)="F":"Background Filer ",1:"Interface ")_"is running.",!!,"Please try again later...",!! Line Location: MSG+0
Routine Call	DIC Line Location: ENTER
Routine Call	DIR Line Location: TOF+2 P2+6
Routine Call	%ZIS Line Location: DEVICE+1 P2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSX(552.1	ENTER+2
^PSX(552.2	ENTER+5, ENTER+6, ENTER+8
^PSX(553	START+1, START+2, SS, SS+1, CHECK, END*, MSG
^PSX(554	START+3, START+4, START+5

Label References

Name	Line Occurrences
CHECK	ENTER+3
DEVICE	CHECK+1, DEVICE+1
END	ENTER, DEVICE+1, TOF+2, P2+6
ENTER	SS2+1, SS2+2
MSG	START+1, START+2, START+5
P2	P2+8
QUE	TOF+3, P2+7
SS	START+3
SS2	ENTER+2
START	CHECK, REPRINT, REJECT
TOF	P2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEVICE*, DEVICE+1!
%ZIS("A"	DEVICE*
%ZIS("B"	DEVICE*
A	END+1!
BATREF	ENTER+1*, ENTER+2, ENTER+5, ENTER+8, CHECK, END+1!
C	END+1!, DEVICE+3!
CH1	END+1!
CNT	END+2!
CT	END+1!
DIC	SS2*, ENTER!, ENTER+1!, ENTER+2!
DIC("A"	SS2*
DIC("S"	SS2+1, SS2+2, SS2+3*
DIC(0	SS2*
DIR	TOF+2!, P2+6!, P2+7!
DIR("?"	TOF+1, P2+5
DIR("A"	TOF, P2+4
DIR("B"	TOF+1, P2+4
DIR(0	TOF+1, P2+5
DIROUT	END+2!
DIRUT	END+2!, TOF+2, P2+6
DTIME	P2+3
DTOUT	ENTER, END+2!
DUOUT	ENTER, END+2!
ER	END+1!
G	END+1!
IEN14	END+2!
IO("Q"	DEVICE+1!
IO(0	P2+1
>> IOBARON	DEVICE+2
IOF	SS1
ION	DEVICE+2
IOP	DEVICE+1!, P2*!
>> IOS	DEVICE+2
IOST	DEVICE+1
J	ENTER+3!, ENTER+4, ENTER+6, ENTER+7, DEVICE+3!
L	END+1!
N	ENTER+3!, ENTER+4, ENTER+5, ENTER+6
N514	ENTER+1*, ENTER+2!, END+2!
NTE	END+1!
POP	END+3!, DEVICE+1, P2
PSXBAR	END+3!, DEVICE+2*
PSXBEG	ENTER+4, ENTER+7, ENTER+8*, CHECK, END+1!
PSXBLR	END+3!
PSXEND	ENTER+4, ENTER+7, ENTER+8*, CHECK, END+1!
PSXIOS	END+3!, DEVICE+2*
PSXLAP	END+3!, DEVICE+2*, P2, QUE+2
PSXREF	SS2+1, SS2+2, SS2+3*, ENTER+8, END+3!
PSXST	END+1!
Q	END+1!
R554	START+4*, START+5, END+2!
REJECT	SS2+2, END+3!, REJECT*
REPRINT	SS2+1, ENTER+3, CHECK, END+3!, REPRINT*
U	ENTER+1
V	END+1!
X	ENTER, ENTER+1!, ENTER+2!, ENTER+8, CHECK+1!, END+1!, P2+3
Y	ENTER+1!, ENTER+2!, END+1!, TOF+3, P2+7
Z	END+1!
ZH	START+5*, MSG, MSG+1!
>> ZTDESC	QUE+4*
>> ZTIO	QUE+2*
>> ZTRTN	QUE+4*
>> ZTSAVE("BATREF"	QUE*
>> ZTSAVE("IOBAROFF"	QUE+3*
>> ZTSAVE("IOBARON"	QUE+3*
>> ZTSAVE("N514"	QUE+2*
>> ZTSAVE("PSXBAR"	QUE+1*
>> ZTSAVE("PSXBEG"	QUE*
>> ZTSAVE("PSXBLR"	QUE+3*
>> ZTSAVE("PSXEND"	QUE*
>> ZTSAVE("PSXREF"	QUE+2*
>> ZTSAVE("REPRINT"	QUE+1*
>> ZTSAVE("RESET"	QUE+2*
>> ZTSK	Q1
ZY	END+2!
ZZ	END+1!

Customize PDF page

Package: CMOP

Routine: PSXLBL

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: