Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: ZISPL

Package: Kernel

Routine: ZISPL


Information

ZISPL ;SF/RWF - UTILITIES FOR SPOOLING ;03/31/2003 08:53

Source Information

Source file <ZISPL.m>

Call Graph

Call Graph

Call Graph Total: 18

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:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 9

Package Total Caller Graph
Kernel 5 XU-SPL-BROWSE  XU-SPL-DELETE  XU-SPL-MAIL  XU-SPL-PRINT  ZISPL2  
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
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All