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 ;04/07/98 16:16 [ 04/02/2003 8:29 AM ]

Source Information

Source file <ZISPL.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
VA Fileman 6 BROWSE^DDBR  (,$$FIND1)^DIC  YN^DICN  UPDATE^DIE  ^DIK  ^DIR  
Kernel 5 ^%ZIS  ^%ZISC  ^%ZTLOAD  KILL^XUSCLEAN  DQP^ZISPL2  
MailMan 1 ^XMD  
Toolkit 1 (MODE,SEND)^XTKERMIT  

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Kernel 5 XU-SPL-BROWSE  XU-SPL-DELETE  XU-SPL-MAIL  XU-SPL-PRINT  ZISPL2  
Health Summary 1 GMTSPDX  
Lab Service 1 LRRMM  

Entry Points

Name Comments DBIA/ICR reference
A
GETDOC ;Get a spool document to work on.
MSG1
KERMIT ;Use Kermit to send a spooler file
CEXIT ;Close device and Exit
MSG2
BROWSE ;Use FM Browser to look at document
CIO ;Close device and go to IO
P
DEL ;Called from mailman to delete the document.
DQMAIL
IO ;
MAIL ;Make into a mail message
PRINT ;
EXIT
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
    DELETE ;delete a document from the file.

    External References

    Name Field # of Occurrence
    ^%ZIS IO+2, IO+9
    ^%ZISC IO+11, CIO+1, CEXIT+1
    ^%ZTLOAD IO+11, MAIL+8
    BROWSE^DDBR BROWSE+2
    ^DIC GETDOC+2
    $$FIND1^DIC IO+3
    YN^DICN P+3, MAIL+6
    UPDATE^DIE IO+7
    ^DIK DSD+1, DSDOC+1
    ^DIR A+2, IO+1, MAIL+3
    ^XMD DQMAIL+2
    MODE^XTKERMIT KERMIT+2
    SEND^XTKERMIT KERMIT+2
    KILL^XUSCLEAN EXIT
    DQP^ZISPL2 IO+9

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,*7,"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!!",*7,!
    • Line Location: A+7
    Function Call: WRITE
    • Prompt: !,?5,*7,"You must be authorized by IRM to use spooling"
    • Line Location: GETDOC+1
    Function Call: WRITE
    • Prompt: !,?5,*7,"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 Mail Messages."
    • Line Location: MAIL+1
    Function Call: WRITE
    • Prompt: !,"You have "_%_" lines of text to convert into a mail message.",!,"Do you wish to queue this conversion process"
    • Line Location: MAIL+6
    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
    • DIE
    • Line Location:
      • IO+7
    Routine Call
    • DIC
    • Line Location:
      • IO+3
    Routine Call
    • DIC
    • Line Location:
      • GETDOC+2
    Routine Call
    • DIR
    • Line Location:
      • A+2
      • IO+1
      • MAIL+3
    Routine Call
    • %ZIS
    • Line Location:
      • IO+2
      • IO+9

    Global Variables Directly Accessed

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

    Label References

    Name Line Occurrences
    CIO IO+4, IO+5
    DQMAIL MAIL+6
    DSD A+3, DQMAIL+3
    DSDOC A+6, DQMAIL+3
    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+1, MAIL+2, MAIL+3, MAIL+5, MAIL+6, MAIL+8
    , DQMAIL+4
    GETDOC A, GETDOC+2, P, KERMIT+1, BROWSE+1, MAIL+2
    IO IO+11, CIO+1
    MSG1 MAIL+2, MAIL+5
    MSG2 P+3

    Naked Globals

    Name Field # of Occurrence
    ^("SPL" GETDOC+1, MAIL+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, MAIL+5*, MAIL+6*
    %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!
    DIR("A" A+2*, IO+1*, MAIL+3*
    DIR("B" A+2*, MAIL+3*
    DIR(0 A+2*, IO+1*, MAIL+3*
    >> DIRUT A+2, IO+1, KERMIT+2, MAIL+3, MAIL+6
    DR PRINT+1~
    DUZ A+4, GETDOC+1, MAIL+1, DQMAIL+1
    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+1
    , MAIL+3, MAIL+5
    X A+4*, PRINT+1~
    >> XMSUB DQMAIL+1*
    >> XMTEXT DQMAIL+1*
    >> XMY( DQMAIL+1*
    >> XS MAIL+2*, DQMAIL+1*, DQMAIL+2, DQMAIL+3
    >> 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+2*, MAIL+3
    Y(0 GETDOC+2, GETDOC+3
    ZISDA A+4, A+6, GETDOC+3*, PRINT+1~, IO+3, IO+4, IO+6, KERMIT+1*, BROWSE+1*, BROWSE+2
    , DQMAIL+1, DQMAIL+3
    ZISDA2 PRINT+1~, IO+3*, IO+4, IO+6, IO+8*
    ZISFDA PRINT+1~
    ZISFDA( IO+7*
    ZISIEN PRINT+1~
    ZISIEN(1 IO+8
    ZISIOP PRINT+1~, IO+2*, IO+9, IO+10
    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+2, MAIL+3, MAIL+5, DQMAIL+1*
    ZISPLC PRINT+1~, IO+1*, IO+7
    >> ZISPLU GETDOC+1*, IO+11, MAIL+1*
    >> ZISY A+3*, A+4
    >> ZTDESC IO+10*, MAIL+8*
    >> ZTIO IO+10*, MAIL+8*
    >> ZTQUEUED DQMAIL, DQMAIL+3
    >> ZTREQ EXIT*
    >> ZTRTN IO+10*, MAIL+8*
    >> ZTSAVE("ZISDA" IO+10*, MAIL+8*
    >> ZTSAVE("ZISDA2" IO+10*
    >> ZTSAVE("ZISPLC" IO+10*
    ZTSK IO+11!
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All