Routine: XQALSUR2

Information

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

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)

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