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

Package: Kernel

Routine: XQALSURO


Information

XQALSURO ;ISC-SF.SEA/JLI,ISD/HGW - SURROGATES FOR ALERTS ; May 12, 2021@14:27

Source Information

Source file <XQALSURO.m>

Entry Points

Name Comments DBIA/ICR reference
OTHRSURO ; OPT:- XQALERT SURROGATE SET/REMOVE -- OTHERS SPECIFY SURROGATE FOR SELECTED USER
SURROGAT ; USER SPECIFICATION OF SURROGATE
CYCLIC(XQALSURO,XQAUSER,XQASTRT,XQAEND) ; code added to prevent cyclical surrogates
SETSURO(XQAUSER,XQALSURO,XQALSTRT,XQALEND) ; SR. ICR #2790 (Supported)
; Use SETSURO1 instead
  • ICR #2790
    • Status: Active
    • Usage: Supported
    SETSUROX(XQAUSER,XQALSURO,XQALSTRT,XQALEND) ; SETSURO CODE MOVED TO HERE TO PERMIT AN ERROR TO BE GENERATED AT THE OLD ENTRY POINT
    ACTIVATE(XQAUSER,XQALIEN) ; activates a surrogate
    SETSURO1(XQAUSER,XQALSURO,XQALSTRT,XQALEND) ;EXTRINSIC. ICR #3213 (supported)
    ; This should be used instead of SETSURO
  • ICR #3213
    • Status: Active
    • Usage: Supported
    CHKREMV ;
    REMVSURO(XQAUSER,XQALSURO,XQALSTRT) ;SR. ICR #2790 (supported)
    ; Ends the currently active surrogate relationship
  • ICR #2790
    • Status: Active
    • Usage: Supported
    CURRSURO(XQAUSER,XQASTRT,XQAEND) ;SR. ICR #2790 (supported)
    ; Returns current surrogate for user or -1 usage $$CURRSURO^XQALSURO(DUZ)
  • ICR #2790
    • Status: Active
    • Usage: Supported
    ISACTIVE(XQAUSER) ; checks for whether a surrogate relationship is active or not (returns 0 or 1)
    ACTVSURO(XQAUSER) ;SR. ICR #2790 (supported)
    ; Returns the actual surrogate at this time
  • ICR #2790
    • Status: Active
    • Usage: Supported
    GETSURO(XQAUSER) ;EXTRINSIC. ICR #3213 (supported)
    ; Returns data for surrogate for user including times
  • ICR #3213
    • Status: Active
    • Usage: Supported
    GETFOR ;OPT.
    SUROLIST(XQAUSER,XQALIST) ;SR. ICR #3213 (supported)
    ; Returns list of current and scheduled surrogates for XQAUSER
  • ICR #3213
    • Status: Active
    • Usage: Supported
    SUROFOR(LIST,XQAUSER) ;SR. ICR #3213 (supported)
    ; Returns list of users XQAUSER is acting as a surrogate for
  • ICR #3213
    • Status: Active
    • Usage: Supported
    SENDMESG ;

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: " ",$P(Y,U,2)
    • Line Location: OTHRSURO+4
    Function Call: WRITE
    • Prompt: !
    • Line Location: CHKREMV+17
    Function Call: WRITE
    • Prompt: " ",$P(Y,U,2)
    • Line Location: GETFOR+7
    Function Call: WRITE
    • Prompt: !,"No entries found.",!!
    • Line Location: GETFOR+9
    Function Call: WRITE
    • Prompt: !,?5,$P(VALUES(I),U,2)
    • Line Location: GETFOR+10
    Info |  Source |  Entry Points |  Interaction Calls