Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 ($$FMADD,$$FMTE,$$NOW)^XLFDT  $$UP^XLFSTR  SUROLIST^XQALSUR1  
VA FileMan 2 (FILE,UPDATE)^DIE  GETS^DIQ  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Kernel 5 XQALERT  XQALERT1  XQALSUR1  XQALSURO  XQARPRT1  

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)

External References

Name Field # of Occurrence
FILE^DIE CHEKSUBS+11, DELSUR+3
UPDATE^DIE CHEKSUBS+10
GETS^DIQ CHKCRIT+9
$$FMADD^XLFDT CLEANUP+3
$$FMTE^XLFDT DISPSUR+7
$$NOW^XLFDT CHEKSUBS+2, CLEANUP+3
$$UP^XLFSTR CHKCRIT+10, CHKCRIT+11, CHKCRIT+12
SUROLIST^XQALSUR1 DISPSUR+3

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
Routine Call
  • DIE
  • Line Location:
    • CHEKSUBS+11
    • DELSUR+3
Routine Call
  • DIE
  • Line Location:
    • CHEKSUBS+10

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^XTV(8992 - [#8992] CHEKSUBS+3, CHEKSUBS+6, CHEKSUBS+7!, CLEANUP+2, CLEANUP+4, CLEANUP+5
^XTV(8992.3 - [#8992.3] CHKCRIT+6

Label References

Name Line Occurrences
$$EXPIRED CLEANUP+6
DELSUR CLEANUP+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ALERTTXT CHKCRIT+7~, CHKCRIT+12*, CHKCRIT+13
CRITTEXT CHKCRIT+7~, CHKCRIT+10*, CHKCRIT+13
IEN CHKCRIT+4~, CHKCRIT+6*, CHKCRIT+8
IENS CHKCRIT+7~, CHKCRIT+8*, CHKCRIT+9, CHKCRIT+10
MSG CHKCRIT+7~
PKGID CHKCRIT+7~, CHKCRIT+10*, CHKCRIT+11
RES CHKCRIT+7~
RES( CHKCRIT+10
RESULT CHKCRIT+4~, CHKCRIT+5*, CHKCRIT+6, CHKCRIT+13*, CHKCRIT+14
RETDATE EXPIRED~, EXPIRED+4
U CHEKSUBS+3, CHEKSUBS+5, CHEKSUBS+6, CHEKSUBS+9, CHKCRIT+11, CHKCRIT+12, CLEANUP+2, DISPSUR+7, EXPIRED+4
XQA0 CHEKSUBS+1~, CHEKSUBS+3*, CHEKSUBS+5, CHEKSUBS+6, CHEKSUBS+9
XQADA CHEKSUBS+4~, CHEKSUBS+6*, CHEKSUBS+7, CHEKSUBS+8, CHEKSUBS+10, CHEKSUBS+11
XQAFDA CHEKSUBS+4~, DELSUR+1~
XQAFDA( CHEKSUBS+8*, CHEKSUBS+9*, DELSUR+3*
XQAFDA(8992 CHEKSUBS+5*
XQAI CLEANUP+1~, CLEANUP+4*, CLEANUP+5, CLEANUP+6, DISPSUR+2~, DISPSUR+6*, DISPSUR+7, DELSUR~, DELSUR+2
XQAIEN CHEKSUBS+4~, CHEKSUBS+8*, CHEKSUBS+9, DELSUR+1~, DELSUR+2*, DELSUR+3
XQANOW CHEKSUBS+1~, CHEKSUBS+2*, CHEKSUBS+5
XQARETD CLEANUP+1~, CLEANUP+3*, CLEANUP+6
XQASLIST DISPSUR~, DISPSUR+3, DISPSUR+4
XQASLIST( DISPSUR+6, DISPSUR+7
XQASTR1 CHEKSUBS+1~, CHEKSUBS+5*, CHEKSUBS+6, CHEKSUBS+7, CHEKSUBS+8
XQASUR CLEANUP+1~, CLEANUP+5*, CLEANUP+6, EXPIRED~, EXPIRED+4
XQAUSER CHEKSUBS~, CHEKSUBS+3, CHEKSUBS+5, CHEKSUBS+6, CHEKSUBS+7, CHEKSUBS+8, CLEANUP~, CLEANUP+2, CLEANUP+4, CLEANUP+5
, CLEANUP+6, DISPSUR~, DISPSUR+3, DELSUR~, DELSUR+2
XQB0 CHEKSUBS+1~
XQB1 CHEKSUBS+1~
ZERONODE CHKCRIT~, CHKCRIT+11, CHKCRIT+12
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All