Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

Name Comments DBIA/ICR reference
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
AGAIN
SUBLOOP
RESTORE ; SR. ICR #4100 (controlled subscription)
; Restore a deleted message for use
; ZEXCEPT: XQAID
  • ICR #4100
    • Status: Active
    • Usage: Controlled Subscription
    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
    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
    DOIT1 ;
    ; ZEXCEPT: IOF,IOSL,XQ1OFF,XQ1ON,XQALFWD,XQALINFO,XQI,XQII,XQK,XQOFF,XQON,XQX,XQZ,XQZ1,XQZ4
    ASK0(XQI) ;Stack XQI
    ; ZEXCEPT: DIR,X,XQ1,XQACNT,XQALAST,XQALDELE,XQALFWD,XQAUSER,XQII,XQK,XQX1,XQX2,XQXOUT,Y
    ASK ;
    WAIT(IFN) ;Wait for user input if last alert is INFO and next isn't.
    ; ZEXCEPT: IOF,IOSL,XQALAST
    WAIT2 ;Wait for user input before continuing
    ; ZEXCEPT: XQXOUT
    HELP ;
    ; ZEXCEPT: XQALDELE,XQALFWD,XQI,XQK
    SORT ;Sort and remove display only
    ; ZEXCEPT: XQAUSER,XQACNT,XQAREV - global variable
    ; Unit test: P602T3^ZZUTXQA6
    ASKDEL ;
    ; ZEXCEPT: XQAUSER,XQX1 - global variables
    FRWRDONE ;
    ; ZEXCEPT: XQAID - global variable

    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: ": "
    • Variable: XQII
    • Timeout: DTIME
    • 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
    Info |  Source |  Entry Points |  Interaction Calls