XQALSURO ;ISC-SF.SEA/JLI,ISD/HGW - SURROGATES FOR ALERTS ; May 12, 2021@14:27
Source file <XQALSURO.m>
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 |
|
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 |
|
CHKREMV | ;
|
|
REMVSURO(XQAUSER,XQALSURO,XQALSTRT) | ;SR. ICR #2790 (supported)
; Ends the currently active surrogate relationship |
|
CURRSURO(XQAUSER,XQASTRT,XQAEND) | ;SR. ICR #2790 (supported)
; Returns current surrogate for user or -1 usage $$CURRSURO^XQALSURO(DUZ) |
|
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 |
|
GETSURO(XQAUSER) | ;EXTRINSIC. ICR #3213 (supported)
; Returns data for surrogate for user including times |
|
GETFOR | ;OPT.
|
|
SUROLIST(XQAUSER,XQALIST) | ;SR. ICR #3213 (supported)
; Returns list of current and scheduled surrogates for XQAUSER |
|
SUROFOR(LIST,XQAUSER) | ;SR. ICR #3213 (supported)
; Returns list of users XQAUSER is acting as a surrogate for |
|
SENDMESG | ;
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|