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

Package: Kernel

Routine: XQALSUR2


Information

XQALSUR2 ;FO-OAK.SEA/JLI-Continuation of alert surrogate processing ; September 6, 2023@14:28

Source Information

Source file <XQALSUR2.m>

Entry Points

Name Comments DBIA/ICR reference
CHEKSUBS(XQAUSER) ;
CHKCRIT(ZERONODE) ;EXTRINSIC - check for critical indication for alert
; ZERONODE - input - Value for zero node for alert data
; RETURN VALUE - 1 if the alert is indicated as critical
; 0 otherwise
CLEANUP(XQAUSER) ;SR. - clean up expired surrogate info
DISPSUR(XQAUSER,XQASLIST)
DELSUR(XQAI,XQAUSER) ;Purge surrogate
EXPIRED(XQASUR,RETDATE) ; called by CLEANUP. SURROGATE return 1 if expired or 0 if not
; RETDATE, retention date, is greater than start (P1) and end (P3) dates
; end date (P3) is not empty (otherwise still active)
; alerts don't need to be returned (P4=0) (alerts already returned)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!," No current surrogates",!
  • Line Location: DISPSUR+4
Function Call: WRITE
  • Prompt: !!,"Current Surrogate(s):",?33,"START DATE",?58,"END DATE"
  • Line Location: DISPSUR+5
Function Call: WRITE
  • Prompt: !,XQAI," ",$P(XQASLIST(XQAI),U,2),?33,$$FMTE^XLFDT($P(XQASLIST(XQAI),U,3)),?58,$$FMTE^XLFDT($P(XQASLIST(XQAI),U,4))
  • Line Location: DISPSUR+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPSUR+8
Info |  Source |  Entry Points |  Interaction Calls