Routine: INHZISPL

Information

%ZISPL ; cmi/flag/maw - MVB,GFT,RMG 30 Dec 94 12:51 UTILITIES FOR SPOOLING IN VAX DSM ; [ 05/22/2002 2:53 PM ]

Source file <INHZISPL.m>

Package	Total	Call Graph
Kernel	5	^%ZIS ^%ZISC $$YN^%ZTF $$NOW^%ZTFDT ^%ZTLOAD
VA Fileman	4	^DIC DQ^DICQ 1^DICRW ^DIE

Name	Comments	DBIA/ICR reference
PROERR
ENTSK	;Entry point from taskman or application print
KILL
NODOC	;Error message if VMS file has been deleted
PERR	;Print selection error - file has been deleted or not created yet (queued)
ZSPLDEL	;
CLOSE
OUT
A
ZSPLPRIN	;
XM	;
L	;
ERRXM	;EOF CHECK
P
ZTSKDEL	;Entry point for auto delete of documents - works off expiration date
T
ZSPLIST	;
OUTERR
TCONT
DELFFN	; external extry point for cross-ref on .01 field of spool document file ; to delete VMS spool file upon deletion of an entry in spool doc file.
EDIT	;Edit check of file 3.51 name field
DICS	;Build screen for filemanager access - also called from %ZIS2
DEL

Name	Line Occurrences
Function Call: WRITE	Prompt: !," ...VMS Spool File Deleted!!",*7,! Line Location: DELFFN+4
Function Call: WRITE	Prompt: !,"A file does not yet exist or has been deleted for this document" Line Location: PERR+1
Function Call: WRITE	Prompt: !,"The file containing document ",$P($G(^XUSPLDSM(ZISDA,0)),U,1)," does not exist",*7 Line Location: P+3
Function Call: READ	Prompt: "Number of Copies: 1// " Formatting: ! Timeout: $S($G(DTIME):DTIME,1:300) Variable: ZISCOPY Line Location: T+0
Function Call: WRITE	Prompt: *7," ??" Line Location: T+0
Function Call: WRITE	Prompt: !,"The file containing document ",$P($G(^XUSPLDSM(ZISDA,0)),U,1)," does not exist",*7 Line Location: NODOC+1
Function Call: WRITE	Prompt: @IOF Line Location: OUT+0
Function Call: WRITE	Prompt: X,! Line Location: OUT+0
Function Call: WRITE	Prompt: !,"Name too ",$S($L(X<3):"short",1:"long") Line Location: EDIT+1
Function Call: WRITE	Prompt: !,"Sorry, '",$E(X,%),"' is not allowed in spool document name" Line Location: EDIT+2
Function Call: WRITE	Prompt: "." Line Location: XM+7
Function Call: WRITE	Prompt: !!,"..DONE!",!! Line Location: ERRXM+1
Routine Call	DIE Line Location: DEL
Routine Call	DIC Line Location: A+1 P+1 XM+3 XM+5
Routine Call	%ZIS Line Location: T+1

Name	Line Occurrences (* Changed, ! Killed)
^%ZTSK - [#14.4]	ENTSK+5!
^XMB9(	XM+5, XM+7, ERRXM+1
^XUSPLDSM(	ZTSKDEL+1, DELFFN+2, P+3, ENTSK+4, TCONT+1*, NODOC+1

Name	Field # of Occurrence
^(	ZTSKDEL+1
^(1	DEL, P+2, XM+5

Name	Field # of Occurrence
%	T+4, KILL!, EDIT+2~, ERRXM+1!
%IS	P+1!
%ZIS	P+1!, T+1*
%ZIS("A"	T+1*
>> D	L+1*
>> DA	DEL*, DELFFN+2
DIC	A!, A+1!, DEL!, P!, P+1!, KILL!, L+1!, L+2!, XM+1, XM+3! , XM+4*, XM+5!
DIC("A"	A, XM+1
DIC("S"	DICS+1, XM+1, XM+4*
DIC("W"	XM+2*
DIC(0	A, P, L+1, XM+1, XM+4*
>> DIE	DEL*
DO	L+2!
>> DOC	DEL, DELFFN+2
>> DR	DEL*
DT	ZTSKDEL+1, ERRXM+1
DTIME	P+7, T
DUZ(0	XM+4
I	XM+5, XM+6, XM+7, ERRXM+1*!
IO	NODOC+1, OUT
IO("Q"	T+2
IOF	OUT
IOM	T+3
ION	T+3
IOP	P+1!
IOSL	T+3
IOST	T+3
>> POP	T+1
U	DEL, ZTSKDEL+1, DELFFN+2, P+3, T, TCONT+1, NODOC+1, ERRXM+1
X	ZTSKDEL+1, P+4, P+7, OUT, EDIT+1!, EDIT+2!, XM+7*, ERRXM+1!
Y	A+1, DEL, ZTSKDEL+1*, P+1, P+2, XM+3, XM+5, ERRXM+1!
Z	XM+5*, XM+7, ERRXM+1!
ZISCOPY	T, ENTSK+4, ENTSK+5!, TCONT*, KILL!
ZISDA	ZTSKDEL+1, P+2, P+3!, ENTSK+4, ENTSK+5!, TCONT+1, KILL!, NODOC+1
ZISDOC	P+2, P+3!, P+4, ENTSK+4, ENTSK+5!, TCONT, TCONT+1, KILL!, OUT, OUTERR
>> ZTDTH	T+5*
>> ZTIO	T+3*
>> ZTRTN	T+3*
>> ZTSAVE(	T+4*
>> ZTSAVE("DESC"	T+3*
ZTSK	PROERR, T+5!, ENTSK+5!
ZXM	XM+3*, XM+5, XM+7, ERRXM+1!