Routine: ZISPL

Package	Total	Call Graph
VA FileMan	7	BROWSE^DDBR $$EZBLD^DIALOG (,$$FIND1)^DIC YN^DICN UPDATE^DIE ^DIK ^DIR
Kernel	5	^%ZIS ^%ZISC ^%ZTLOAD KILL^XUSCLEAN DQP^ZISPL2
MailMan	5	(FROMWHOM,SENDMSG)^XMAPHOST INITAPI^XMVVITAE CLEANUP^XMXADDR (CRE8XMZ,MOVEBODY)^XMXAPI (SHOWERR,SUBJ,TOWHOM)^XMXAPIU
Toolkit	1	(MODE,SEND)^XTKERMIT

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 14

Package	Total	Caller Graph
Kernel	5	XU-SPL-BROWSE XU-SPL-DELETE XU-SPL-MAIL XU-SPL-PRINT ZISPL2
Electronic Health Modernization	4	EHM-01834 EHM-01835 EHM-01837 EHM-01839
Health Summary	1	GMTSPDX
Lab Service	1	LRRMM
Network Health Exchange	1	AFJXALRT
Patient Data Exchange	1	VAQPSE01
Toolkit	1	XT-KERMIT SPOOL DL

Entry Points

Name	Comments	DBIA/ICR reference
DELETE	;delete a document from the file.
A
DEL	;Called from mailman to delete the document.
GETDOC	;Get a spool document to work on.
PRINT	;
P
IO	;
CIO	;Close device and go to IO
CEXIT	;Close device and Exit
EXIT
KERMIT	;Use Kermit to send a spooler file
BROWSE	;Use FM Browser to look at document
MAIL	;Make into a mail message (move text from file #3.519 to file #3.9)
MAILTASK	;
MAILIT	;
CLEAN	;
ASK(ZISSUBJ,ZISINSTR,ZISABORT)	;
DSD(DA)	; Delete an entry in the spool data file.	ICR #1092 Status: Active Usage: Controlled Subscription
DSDOC(DA)	; Delete an entry in the spool doc file.	ICR #1092 Status: Active Usage: Controlled Subscription
MSG1
MSG2

External References

Name	Field # of Occurrence
^%ZIS	IO+2, IO+9
^%ZISC	IO+11, CIO+1, CEXIT+1
^%ZTLOAD	IO+11, MAIL+27
BROWSE^DDBR	BROWSE+2
$$EZBLD^DIALOG	MAIL+9, MAIL+21, MAIL+29, MAILIT+1, MAILIT+5
^DIC	GETDOC+2
$$FIND1^DIC	IO+3
YN^DICN	P+3
UPDATE^DIE	IO+7
^DIK	DSD+1, DSDOC+1
^DIR	A+2, IO+1, MAIL+10, MAIL+22
FROMWHOM^XMAPHOST	ASK+3
SENDMSG^XMAPHOST	MAILIT+6
INITAPI^XMVVITAE	MAIL+13
CLEANUP^XMXADDR	CLEAN+4
CRE8XMZ^XMXAPI	MAILIT+3
MOVEBODY^XMXAPI	MAILIT+4
SHOWERR^XMXAPIU	CLEAN+2
SUBJ^XMXAPIU	ASK+2
TOWHOM^XMXAPIU	ASK+5
MODE^XTKERMIT	KERMIT+2
SEND^XTKERMIT	KERMIT+2
KILL^XUSCLEAN	EXIT
DQP^ZISPL2	IO+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(13),"This Document hasn't been printed. Are you sure??" Line Location: A+1
Function Call: WRITE	Prompt: " ... DOCUMENT CLEARED!!" Line Location: A+4
Function Call: WRITE	Prompt: " ...DOCUMENT DELETED!!",$C(13),! Line Location: A+7
Function Call: WRITE	Prompt: !,?5,$C(13),"You must be authorized by IRM to use spooling" Line Location: GETDOC+1
Function Call: WRITE	Prompt: !,?5,$C(13),"This spool is still active and can't be worked on." Line Location: GETDOC+2
Function Call: WRITE	Prompt: !,"Sorry, this spool document has been converted into a mail message",!,"and you are unable to print it" Line Location: P+1
Function Call: WRITE	Prompt: !,"Sorry there isn't anything to print." Line Location: P+2
Function Call: WRITE	Prompt: ! Line Location: IO+9
Function Call: WRITE	Prompt: !!,"Also send to" Line Location: IO+11
Function Call: WRITE	Prompt: !,ZISMSG Line Location: CIO+2
Function Call: WRITE	Prompt: !,"You are not authorized to convert Spool Documents into MailMan Messages." Line Location: MAIL+2
Function Call: WRITE	Prompt: ! Line Location: MAIL+16
Function Call: WRITE	Prompt: !,"Queueing failed." Line Location: MAIL+28
Function Call: WRITE	Prompt: !,$$EZBLD^DIALOG(34501.1,ZTSK) Line Location: MAIL+29
Function Call: WRITE	Prompt: !,"This spool document doesn't have any text." Line Location: MSG1+0
Function Call: WRITE	Prompt: !,"You have exceeded the total spool document line limit allowed." Line Location: MSG2+0
Function Call: WRITE	Prompt: !,"Therefore, this spool document is incomplete." Line Location: MSG2+1
Function Call: WRITE	Prompt: !!,"Do you still wish to print this document" Line Location: MSG2+2
Routine Call	%ZIS Line Location: IO+2 IO+9
Routine Call	DIALOG Line Location: MAIL+9 MAIL+21 MAIL+29 MAILIT+1 MAILIT+5
Routine Call	DIC Line Location: GETDOC+2
Routine Call	DIC Line Location: IO+3
Routine Call	DIE Line Location: IO+7
Routine Call	DIR Line Location: A+2 IO+1 MAIL+10 MAIL+22

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP("XMERR"	CLEAN+3!
^VA(200 - [#200]	GETDOC+1, MAIL+2
^XMB(3.51 - [#3.51]	A+4!, IO+4, MAILTASK+2, DSD+1!
^XMBS(3.519 - [#3.519]	BROWSE+2

Label References

Name	Line Occurrences
ASK	MAIL+14
CIO	IO+4, IO+5
CLEAN	MAIL+14, MAIL+22, MAIL+30, MAILIT+3, MAILIT+4
DSD	A+3, MAILIT+7
DSDOC	A+6, MAILTASK+3, MAILIT+7
EXIT	A, A+2, A+4, A+8, P+1, P+2, P+3, IO+1, IO+2, IO+11 , KERMIT+1, KERMIT+2, BROWSE+1, BROWSE+2, MAIL+2, MAIL+3, MAIL+4, MAIL+5, MAIL+10, CLEAN+5
GETDOC	A, GETDOC+2, P, KERMIT+1, BROWSE+1, MAIL+3
IO	IO+11, CIO+1
MAILIT	MAIL+15, MAIL+23
MSG1	MAIL+4, MAIL+5
MSG2	P+3

Naked Globals

Name	Field # of Occurrence
^("SPL"	GETDOC+1
^(0	A+4*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	PRINT+1~, P+3, IO+6, IO+7
%IS	P!, IO+2*
%ZIS	P!, IO+9*
DA	PRINT+1~, DSD~, DSD+1, DSDOC~, DSDOC+1
DIC	GETDOC+2*, GETDOC+3!, PRINT+1~
DIC("A"	A, P
DIC(0	GETDOC+2*
DIE	PRINT+1~
DIK	DSD+1~, DSDOC+1~
DIR	A+2!, MAIL+1~, MAIL+6!, MAIL+17!
DIR("A"	A+2, IO+1, MAIL+8, MAIL+19, MAIL+20*
DIR("B"	A+2, MAIL+9, MAIL+21*
DIR(0	A+2, IO+1, MAIL+7, MAIL+18
>> DIRUT	A+2, IO+1, KERMIT+2, MAIL+22
DR	PRINT+1~
DUZ	A+4, GETDOC+1, MAIL+2, MAILIT+6, ASK+3, ASK+5
I	MAIL+24~, MAIL+26*
IO	CIO+1
IO("Q"	IO+9, IO+11!
IO(0	IO+2, IO+3
IOM	IO+2, IO+5
ION	IO+2, IO+3, IO+7
IOP	P!, IO+9*
IOSL	IO+2, IO+5
IOST	IO+2
>> POP	IO+2, IO+9
U	A+1, A+3, GETDOC+2, P+1, P+2, P+3, KERMIT+1, BROWSE+1, BROWSE+2, MAIL+2 , MAIL+5, MAIL+8
X	A+4*, PRINT+1~, MAIL+1~, MAIL+6!, MAIL+17!
XMDUZ	MAIL+11~
XMERR	MAILIT+3, MAILIT+4, CLEAN+1, CLEAN+3!, ASK+2, ASK+6
XMV	MAIL+11~
XMZ	MAILIT+2~, MAILIT+3, MAILIT+4, MAILIT+6
XS	MAIL+1~, MAIL+4, MAILTASK+1~, MAILTASK+2, MAILTASK+3, MAILIT+4, MAILIT+7
>> XTKDIC	KERMIT+1*
>> XTKFILE	KERMIT+1*
Y	A, A+2, A+3, GETDOC+1*, GETDOC+2, GETDOC+3, PRINT+1~, P, IO+1, KERMIT+1 , BROWSE+1, MAIL+1~, MAIL+6!, MAIL+10, MAIL+17!, MAIL+23
Y(0	GETDOC+2, GETDOC+3
ZISABORT	MAIL+11~, MAIL+12, MAIL+14, ASK~, ASK+2, ASK+3, ASK+6*
ZISDA	A+4, A+6, GETDOC+3, PRINT+1~, IO+3, IO+4, IO+6, KERMIT+1, BROWSE+1*, BROWSE+2 , MAIL+1~, MAILTASK+2, MAILTASK+3, MAILIT+7
ZISDA2	PRINT+1~, IO+3, IO+4, IO+6, IO+8
ZISFDA	PRINT+1~
ZISFDA(	IO+7*
ZISIEN	PRINT+1~
ZISIEN(1	IO+8
ZISINSTR	MAIL+11~, MAIL+14, MAILIT+6, ASK~, ASK+3, ASK+5
ZISINSTR("ADD	R FLAGS" , ASK+4*
ZISIOP	PRINT+1~, IO+2*, IO+9, IO+10
ZISLINES	MAIL+1~, MAIL+5*, MAIL+15, MAIL+19
ZISMSG	PRINT+1~, IO+4, IO+5, CIO+1, CIO+2!
ZISPG	PRINT+1~, P+1*, IO+5
ZISPL0	A+1, A+3, GETDOC+3*, PRINT+1~, P+1, P+2, P+3, KERMIT+1, BROWSE+1, BROWSE+2 , MAIL+1~, MAIL+3, MAIL+4, MAIL+5, MAIL+8, ASK+1
ZISPLC	PRINT+1~, IO+1*, IO+7
ZISPLU	GETDOC+1, IO+11, MAIL+1~, MAIL+2
ZISSUBJ	MAIL+11~, MAIL+14, MAILIT+3, ASK~, ASK+1*, ASK+2
>> ZISY	A+3*, A+4
ZTDESC	IO+10, MAIL+24~, MAIL+25
ZTDTH	MAIL+24~
ZTIO	IO+10, MAIL+24~, MAIL+25
>> ZTQUEUED	MAILIT+1, MAILIT+5, CLEAN+2
>> ZTREQ	EXIT*
ZTRTN	IO+10, MAIL+24~, MAIL+25
ZTSAVE	MAIL+24~
ZTSAVE(	MAIL+26*
ZTSAVE("ZISDA"	IO+10*
ZTSAVE("ZISDA2"	IO+10*
ZTSAVE("ZISPLC"	IO+10*
ZTSK	IO+11!, MAIL+28, MAIL+29

Customize PDF page

Package: Kernel

Routine: ZISPL

Information

Source Information

Call Graph

Call Graph Total: 18

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 14

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: