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: XQALERT1

Package: Kernel

Routine: XQALERT1


Information

XQALERT1 ;ISC-SF.SEA/JLI - ALERT HANDLER ;07/05/12 11:27

Source Information

Source file <XQALERT1.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 8 DELETE^XQALDEL  (EN,MAIL,MORP,PRINT)^XQALDOIT  ($$DAT8,DELETEA,SETREV)^XQALERT  DOIT^XQALERT1  (FWDONE,FWRD)^XQALFWD  RETURN^XQALSUR1  $$CHKCRIT^XQALSUR2  ($$ACTVSURO,SURROGAT)^XQALSURO  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Kernel 4 XQALDEL  XQALERT  XQALERT1  XQALFWD  
Order Entry Results Reporting 1 ORB31  

Entry Points

Name Comments DBIA/ICR reference
SORT ;Sort and remove display only
; ZEXCEPT: XQAUSER,XQACNT,XQAREV - global variable
; Unit test: P602T3^ZZUTXQA6
AGAIN
CHKSURO ; If user selects process alerts with no alerts present, give him/her the opportunity to add or delete a surrogate
; P366 - list currently established surrogates if any
ASKDEL ;
; ZEXCEPT: XQAUSER,XQX1 - global variables
HELP ;
; ZEXCEPT: XQALDELE,XQALFWD,XQI,XQK
WAIT2 ;Wait for user input before continuing
; ZEXCEPT: XQXOUT
RESTORE ; SR. ICR #4100 (controlled subscription)
; Restore a deleted message for use
; ZEXCEPT: XQAID
  • ICR #4100
    • Status: Active
    • Usage: Controlled Subscription
    DOIT1 ;
    ; ZEXCEPT: IOF,IOSL,XQ1OFF,XQ1ON,XQALFWD,XQALINFO,XQI,XQII,XQK,XQOFF,XQON,XQX,XQZ,XQZ1,XQZ4
    WAIT(IFN) ;Wait for user input if last alert is INFO and next isn't.
    ; ZEXCEPT: IOF,IOSL,XQALAST
    SUBLOOP
    DOIT ;SR.
    ; ZEXCEPT: IOF,XQAID,XQAUSER,XQX1 - global variables
    ; ZEXCEPT: XQACNT,XQADATA,XQAKILL,XQALDELE,XQALFWD,XQAQ,XQAREV,XQAROU,XQAROUX,XQI,XQII,XQK,XQX,XQXOUT,XQZ4
    FRWRDONE ;
    ; ZEXCEPT: XQAID - global variable
    EXIT ;
    ; ZEXCEPT: %ZIS,XQ1,XQ1OFF,XQ1ON,XQA1,XQACNT,XQALAST,XQALDELE,XQALFWD,XQAQ,XQAREV,XQAROU,XQAROUX,XQI,XQII,XQJ,XQK,XQOFF,XQON,XQOUT,XQX,XQX1,XQX2,XQXOUT
    ASK0(XQI) ;Stack XQI
    ; ZEXCEPT: DIR,X,XQ1,XQACNT,XQALAST,XQALDELE,XQALFWD,XQAUSER,XQII,XQK,XQX1,XQX2,XQXOUT,Y
    ASK ;

    External References

    Name Field # of Occurrence
    ^DIR AGAIN+3, ASK+14, ASK+17, WAIT2+3, ASKDEL+18
    DELETE^XQALDEL ASKDEL+13
    EN^XQALDOIT SUBLOOP+9
    MAIL^XQALDOIT ASK+5
    MORP^XQALDOIT ASK+5
    PRINT^XQALDOIT ASK+5
    $$DAT8^XQALERT DOIT1+5
    DELETEA^XQALERT AGAIN+5, AGAIN+10
    SETREV^XQALERT DOIT1+3
    DOIT^XQALERT1 ASKDEL+5
    FWDONE^XQALFWD FRWRDONE+4
    FWRD^XQALFWD ASK+10
    RETURN^XQALSUR1 AGAIN+13
    $$CHKCRIT^XQALSUR2 DOIT1+3, SORT+13
    $$ACTVSURO^XQALSURO AGAIN+13
    SURROGAT^XQALSURO CHKSURO+3

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!
    • Line Location: AGAIN+3
    Function Call: WRITE
    • Prompt: !!!
    • Line Location: AGAIN+16
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: SUBLOOP+0
    Function Call: WRITE
    • Prompt: !!,"You have no alerts for processing.",!
    • Line Location: CHKSURO+2
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: DOIT1+2
    Function Call: WRITE
    • Prompt: !?8,"Forwarded by: ",$P(^VA(200,+XQZ1,0),U)," Generated: ",$$DAT8^XQALERT(+$P($P(XQX,U,2),";",3),1)
    • Line Location: DOIT1+5
    Function Call: WRITE
    • Prompt: !?8,$P(XQZ1,U,3)
    • Line Location: DOIT1+6
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: DOIT1+8
    Function Call: WRITE
    • Prompt: !?10,"Select from 1 to ",XQK
    • Line Location: ASK+2
    Function Call: WRITE
    • Prompt: " to DELETE"
    • Condition for execution: $D(XQALDELE)
    • Line Location: ASK+2
    Function Call: WRITE
    • Prompt: " to FORWARD"
    • Condition for execution: $D(XQALFWD)
    • Line Location: ASK+2
    Function Call: WRITE
    • Prompt: !?10,"or enter ?, A, "
    • Line Location: ASK+3
    Function Call: WRITE
    • Prompt: "I, D, "
    • Condition for execution: '$D(XQALDELE)&'$D(XQALFWD)&(XQALINFO>0)
    • Line Location: ASK+3
    Function Call: WRITE
    • Prompt: "F, S, P, M, R, "
    • Condition for execution: '$D(XQALDELE)&'$D(XQALFWD)
    • Line Location: ASK+3
    Function Call: WRITE
    • Prompt: "or ^ to exit"
    • Line Location: ASK+3
    Function Call: WRITE
    • Prompt: "or ^ to exit"
    • Line Location: ASK+3
    Function Call: READ
    • Prompt: ": "
    • Timeout: DTIME
    • Variable: XQII
    • Line Location: ASK+4
    Function Call: WRITE
    • Prompt: !,$C(7)," ?? Invalid number entered",!
    • Line Location: ASK+8
    Function Call: WRITE
    • Prompt: $C(7)," ??",!
    • Line Location: ASK+9
    Function Call: WRITE
    • Prompt: $C(7)," ??"
    • Line Location: ASK+17
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: WAIT+5
    Function Call: WRITE
    • Prompt: !!,"YOU MAY ENTER:",!?3,$S(XQK>1:"One or more numbers",1:"A number")," in the range 1 to ",XQK," to select specific alert(s)"
    • Line Location: HELP+2
    Function Call: WRITE
    • Prompt: !?6,"for "_$S($D(XQALDELE):"DELETION.",$D(XQALFWD):"FORWARDING",1:"processing.")
    • Line Location: HELP+3
    Function Call: WRITE
    • Prompt: " This may be a series of numbers, e.g., 2,3,6-9"
    • Condition for execution: XQK>1
    • Line Location: HELP+3
    Function Call: WRITE
    • Prompt: !?3,"A to "_$S($D(XQALDELE):"DELETE",$D(XQALFWD):"FORWARD",1:"process")," all of the pending alerts in the order shown."
    • Line Location: HELP+4
    Function Call: WRITE
    • Prompt: !?3,"^ to exit"
    • Line Location: HELP+12
    Function Call: WRITE
    • Prompt: !?5,"or RETURN to see additional pending ALERTS"
    • Line Location: HELP+13
    Function Call: WRITE
    • Prompt: !!
    • Line Location: HELP+14
    Routine Call
    • DIR
    • Line Location:
      • AGAIN+3
      • ASK+14
      • ASK+17
      • WAIT2+3
      • ASKDEL+18

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^TMP("XQ" AGAIN+12!, SUBLOOP+2, SUBLOOP+3!, EXIT+4!, DOIT1+7*, ASK+5!, ASK+15, WAIT+3, SORT+4!, SORT+5!
    , SORT+17*, SORT+18*, SORT+19*, SORT+20*, SORT+21*, SORT+22*, SORT+23!, SORT+24*, ASKDEL+10, ASKDEL+12
    , ASKDEL+14!, ASKDEL+17
    ^TMP("XQALERT1" AGAIN+12, AGAIN+14*, EXIT+5!, CHKSURO+2
    ^VA(200 - [#200] DOIT1+5
    ^XTV(8992 - [#8992] DOIT+7, AGAIN+6, AGAIN+7, AGAIN+12, SUBLOOP+3, RESTORE+4, RESTORE+5, RESTORE+6, RESTORE+12*, ASK+3
    , SORT+6, SORT+7, SORT+8, SORT+9, SORT+10, SORT+11!, ASKDEL+12!
    ^XTV(8992.1 - [#8992.1] RESTORE+7, RESTORE+8

    Label References

    Name Line Occurrences
    AGAIN AGAIN+2
    ASK SUBLOOP+5, ASK+5, ASK+6, ASK+8, ASK+9, ASK+17
    ASK0 DOIT1+8
    ASKDEL ASK+12
    CHKSURO AGAIN+12, ASK+11
    DOIT SUBLOOP+6
    DOIT1 SUBLOOP+2
    EXIT DOIT+5, AGAIN+12, SUBLOOP+5, SUBLOOP+6, SUBLOOP+8
    FRWRDONE AGAIN+7
    HELP ASK+6, ASK+17
    RESTORE AGAIN+6, AGAIN+7
    SORT AGAIN+17
    WAIT2 EXIT+2, WAIT+4, WAIT+5

    Naked Globals

    Name Field # of Occurrence
    ^( SUBLOOP+2, RESTORE+5, DOIT1+7*, ASK+15, ASKDEL+10
    ^("XQA1" AGAIN+12!, EXIT+4!
    ^("XQA2" AGAIN+12!, EXIT+4!
    ^(1 RESTORE+8, RESTORE+11*
    ^(2 SUBLOOP+2, RESTORE+8, DOIT1+7*
    ^(3 SUBLOOP+2, DOIT1+7*
    ^(4 SUBLOOP+2, RESTORE+8

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    %ZIS EXIT+4!
    ADUZ RESTORE+3~, RESTORE+5*, RESTORE+6
    ALERTREF RESTORE+3~, RESTORE+7*, RESTORE+8
    DA ASKDEL+2~, ASKDEL+9*, ASKDEL+10, ASKDEL+12, ASKDEL+14, ASKDEL+16*, ASKDEL+17
    DIR DOIT+3~, AGAIN+3!, ASK+14!, WAIT2+2~, ASKDEL+2~, ASKDEL+18!
    DIR("?" AGAIN+3*, WAIT2+2*
    DIR("A" AGAIN+3*
    DIR("B" AGAIN+3*
    DIR(0 AGAIN+3*, ASK+14*, ASK+17*, WAIT2+2*, ASKDEL+18*
    DIROUT WAIT2+2~
    DIRUT DOIT+3~, AGAIN+4!, WAIT2+2~, WAIT2+3
    DTIME ASK+4
    DUOUT DOIT+3~, AGAIN+4!
    DUZ AGAIN+6, AGAIN+7, RESTORE+4, RESTORE+12
    DUZ("AUTO" EXIT+2
    IFN WAIT~, WAIT+3
    IOF SUBLOOP, DOIT1+2, DOIT1+8, WAIT+5
    IOSL DOIT1+8, WAIT+5
    LONG RESTORE+3~, RESTORE+9*, RESTORE+10
    MESG RESTORE+3~, RESTORE+9*, RESTORE+10
    OPT RESTORE+3~, RESTORE+9*, RESTORE+10
    REASK DOIT+6~*, AGAIN+2, AGAIN+3*, AGAIN+6*, AGAIN+7*
    ROU RESTORE+3~, RESTORE+9*, RESTORE+10
    TAG RESTORE+3~, RESTORE+9*, RESTORE+10
    TIME RESTORE+3~, RESTORE+5*, RESTORE+6, RESTORE+9*, RESTORE+10, RESTORE+11, RESTORE+12
    U RESTORE+9, RESTORE+10, DOIT1+4, DOIT1+5, DOIT1+6, ASK+4, ASK+15, WAIT+3, SORT+11, ASKDEL+10
    , ASKDEL+11
    X RESTORE+3~, RESTORE+10*, RESTORE+11, ASK+14*, ASK+17*, WAIT+2~, WAIT+3*
    X0 RESTORE+3~, RESTORE+8*, RESTORE+9
    X1 RESTORE+3~, RESTORE+8*, RESTORE+9
    X2 RESTORE+3~, RESTORE+8*, RESTORE+11
    X4 RESTORE+3~, RESTORE+8*, RESTORE+9
    XQ1 EXIT+4!, ASK+2*, ASK+3*, ASK+4, ASK+7
    XQ1OFF EXIT+4!, DOIT1+3
    XQ1ON EXIT+4!, DOIT1+3
    XQA1 EXIT+4!
    XQACHOIC DOIT+6~, AGAIN*, AGAIN+1*, AGAIN+3
    XQACNT AGAIN+11*, EXIT+4!, ASK+14, SORT+6, SORT+12*, SORT+14, SORT+16
    XQADATA AGAIN+11!
    XQAID DOIT+5, AGAIN+5!, AGAIN+6, AGAIN+7, AGAIN+11!, RESTORE+5, RESTORE+7, RESTORE+10, RESTORE+12, ASKDEL+2~
    , ASKDEL+10*, ASKDEL+12, ASKDEL+13, ASKDEL+15*, ASKDEL+17*, ASKDEL+18, FRWRDONE+2, FRWRDONE+3~
    XQAKILL AGAIN+5, AGAIN+6!, AGAIN+10, AGAIN+11!, ASKDEL+2~, ASKDEL+10*, ASKDEL+19!
    XQALAST EXIT+2, EXIT+4!, ASK+1!, WAIT+4, WAIT+6*
    XQALDELE SUBLOOP+7, EXIT+3, ASK+2, ASK+3, ASK+5, ASK+10, ASK+11, ASK+12, ASK+13, HELP+3
    , HELP+4, HELP+5, HELP+6, HELP+7, HELP+8, HELP+9, HELP+10, HELP+11, ASKDEL+2~, ASKDEL+3*
    , ASKDEL+6!
    >> XQALFWD SUBLOOP+7, EXIT+3, DOIT1+2, ASK+2, ASK+3, ASK+5, ASK+10, ASK+11, ASK+12, HELP+3
    , HELP+4, HELP+5, HELP+6, HELP+7, HELP+8, HELP+9, HELP+10
    XQALFWDL FRWRDONE+2~
    XQALFWDL(1 FRWRDONE+2*
    >> XQALINFO DOIT1+2*, DOIT1+4*, ASK+3
    XQALNEWF ASK+1~
    XQALVALU ASKDEL+2~, ASKDEL+10*, ASKDEL+11
    XQAQ EXIT+4!
    XQAQ("?" AGAIN*, AGAIN+1*, AGAIN+3
    XQAREV AGAIN+11*, EXIT+4!, SORT+14, SORT+16
    XQAROU DOIT+7*, AGAIN+11!, EXIT+4!
    XQAROUX DOIT+7, AGAIN+11!, EXIT+4!
    >> XQAUSER DOIT+7, AGAIN+12, AGAIN+13, SUBLOOP+3, ASK+3, SORT+6, SORT+7, SORT+8, SORT+9, SORT+10
    , SORT+11, ASKDEL+12
    XQAUSERD ASKDEL+2~, ASKDEL+6*
    XQI SUBLOOP+2*, SUBLOOP+3, EXIT+4!, DOIT1+8, ASK0~, ASK+3, HELP+13, SORT+3~, SORT+6*, SORT+7
    , SORT+8, SORT+9, SORT+10, SORT+11, SORT+18, SORT+22*, SORT+24*
    XQII SUBLOOP+2*, SUBLOOP+3, EXIT+4!, DOIT1+7, ASK+4*, ASK+5, ASK+6, ASK+7, ASK+8, ASK+9
    , ASK+10, ASK+11, ASK+12, ASK+13, ASK+14*, ASK+15*, ASK+16, ASK+17
    XQJ EXIT+4!, SORT+3~, SORT+11*, SORT+14*, SORT+16*, SORT+17, SORT+18, SORT+19, SORT+20, SORT+21
    XQK AGAIN+11*, SUBLOOP+2*, SUBLOOP+5, EXIT+4!, DOIT1+2, DOIT1+4*, DOIT1+7, DOIT1+8*, ASK+2, ASK+9
    , ASK+15*, ASK+17, HELP+2, HELP+3, SORT+3~, SORT+22*, SORT+24*
    XQKVALUE DOIT1+8~*
    XQOFF EXIT+4!, DOIT1+3*, DOIT1+4
    XQON EXIT+4!, DOIT1+3*, DOIT1+4
    XQOUT EXIT+4!
    XQX SUBLOOP+2*, SUBLOOP+3*, EXIT+4!, DOIT1+3, DOIT1+4, DOIT1+5, DOIT1+7, SORT+3~, SORT+7*, SORT+11
    , SORT+13, SORT+17
    XQX1 DOIT+4!, DOIT+7, AGAIN+12*!, AGAIN+16, SUBLOOP+2, SUBLOOP+5, SUBLOOP+6*, EXIT+4!, DOIT1+8, ASK+10*
    , ASK+11*, ASK+12*, ASK+13*, ASK+14!*, ASK+15*, ASK+18!*, ASKDEL+4!, ASKDEL+7, ASKDEL+8, ASKDEL+9*
    , ASKDEL+15!*, ASKDEL+16*, ASKDEL+19!, FRWRDONE+2~
    XQX1( ASK+15*, ASKDEL+9!, ASKDEL+16!
    XQX1(0 ASK+15*, ASKDEL+9, ASKDEL+16
    XQX1COPY ASKDEL+2~, ASKDEL+8*, ASKDEL+15
    XQX2 EXIT+4!, ASK+15*
    XQXOUT AGAIN+11*, SUBLOOP+2, SUBLOOP+5*, SUBLOOP+8, EXIT+4!, DOIT1+8, ASK+2*, ASK+4*, WAIT+2, WAIT2+3*
    , ASKDEL+2~
    XQZ SUBLOOP+1~, SUBLOOP+2*, DOIT1+7, SORT+3~, SORT+8*, SORT+19
    XQZ1 SUBLOOP+1~, SUBLOOP+2*, DOIT1+4, DOIT1+5, DOIT1+6, DOIT1+7, SORT+3~, SORT+9*, SORT+20
    XQZ4 SUBLOOP+2*, DOIT1+4, SORT+3~, SORT+10*, SORT+21
    XTVGLOB RESTORE+3~, RESTORE+4*, RESTORE+6, RESTORE+11
    Y DOIT+3~, AGAIN+4*, AGAIN+5, AGAIN+6, AGAIN+7, ASK+14!, ASK+17, ASK+18!*, WAIT2+2~, ASKDEL+2~
    , ASKDEL+9*, ASKDEL+16*
    YY WAIT+2~, WAIT+3*, WAIT+4, WAIT+5, WAIT+6
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All