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

Package: Kernel

Routine: XQALFWD


Information

XQALFWD ;ISC/JLI,ISD/HGW - FORWARD ALERTS ;06/20/12 13:09

Source Information

Source file <XQALFWD.m>

Entry Points

Name Comments DBIA/ICR reference
FWRD ; ENTRY POINT FOR SELECTION FROM 'VIEW ALERTS' SCREEN
; USER NEEDS TO SELECT ALERT(S) FOR FORWARDING
; TYPE (ALERT, MAIL MESSAGE, OR PRINT)
; AND RECIPIENT(S) OR DEVICE
; AND COMMENT IF ANY TO BE DISPLAYED WITH ALERT
FWDONE
EXIT
FORWARD1(XQAID,XQARECIP,XQATYPE,XQACOMNT,XQALTYPE) ;
FORWARD(XQALST,XQARECIP,XQATYPE,XQACOMNT) ; SR. ICR #3009 (Supported)
  • ICR #3009
    • Status: Active
    • Usage: Supported
    SETXQA ;
    ; ZEXCEPT: J,XQARECIP,XQAVALS
    SETXMY ;
    ; ZEXCEPT: J,XMY,XQARECIP
    MAIL1 ;
    ; ZEXCEPT: X,XQALST,XQAUSER
    MAIL ;
    ; ZEXCEPT: X,XMSUB,XMTEXT,XQACOMNT,XQAUSER
    PRNT ;
    ; ZEXCEPT: X,XQALST,XQAUSER
    PRNT1 ;
    ; ZEXCEPT: IOF,X,XQACOMNT,XQAUSER
    RESETUP(XQAIDVAL,XQA,XQACOMNT) ;
    ; ZEXCEPT: XQALTYPE,XQAUSER

    Interaction Calls

    Name Line Occurrences
    Function Call: READ
    • Variable: X
    • Timeout: DTIME
    • Line Location: FWRD+7
    Function Call: WRITE
    • Prompt: @IOF,!,"You may now Select the alert or alerts that you want forwarded:",!
    • Line Location: FWRD+7
    Function Call: WRITE
    • Prompt: !!,"You will now return to PROCESSING ALERTS, enter RETURN to continue:"
    • Line Location: EXIT+0
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: PRNT1+2
    Function Call: WRITE
    • Prompt: !!,"ALERT: "_$P(X,U,3),!!," Forwarded by: ",$P(^VA(200,XQAUSER,0),U)," Generated on: ",$$DAT8^XQALERT($P($P(X,U,2),";",3)),!!,$G(XQACOMNT)
    • Line Location: PRNT1+3
    Info |  Source |  Entry Points |  Interaction Calls