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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: XQALSUR1

Package: Kernel

Routine: XQALSUR1


Information

XQALSUR1 ;ISC-SF.SEA/JLI - SURROGATES FOR ALERTS ; May 12, 2020@15:45

Source Information

Source file <XQALSUR1.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 5 $$NOW^XLFDT  DELETE^XQALDEL  RESETUP^XQALFWD  (CHEKSUBS,CLEANUP,DISPSUR)^XQALSUR2  ($$CURRSURO,$$CYCLIC,CHKREMV,SENDMESG,SETSURO)^XQALSURO  
VA FileMan 4 $$FIND1^DIC  FILE^DIE  $$GET1^DIQ  ^DIR  

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 XQALDATA  XQALERT  XQALERT1  XQALSUR2  XQALSURO  

Entry Points

Name Comments DBIA/ICR reference
RETURN(XQAUSER) ; P366 - return alerts to the user
PUSHBACK(XQAUSER,XQASTRT,XQAEND) ; P366 - identify alerts in alert tracking file for return and return them
SUROLIST(XQAUSER,XQALIST) ; returns for XQAUSER a list of current and/or future surrogates in XQALIST
; usage D SUROLIST^XQALSUR1(DUZ,.XQALIST)
DCYCLIC(XQALSURO,XQAUSER,XQALSTRT,XQALEND) ; code added to prevent cyclical surrogates - use dates for surrogacy
DATESURO(XQAUSER,XQALSTRT,XQALEND) ; returns surrogate(s) for XQAUSER in date range XQALSTRT to XQALEND, may be multiple values ^-separated
SURRO1(XQAUSER) ;
SURRO11 ;
REMVSURO(XQAUSER,XQALSURO,XQALSTRT) ; SR - ends the currently active surrogate relationship
DELETENT(XQAUSER,XQALXREF,XQALSURO,XQALSTRT,XQALSUR1,XQALSTR1,XQALEND) ;
NEWDLG() ; new surrogate dialog
STRTDLG() ; new surrogate start date/time dialog
ENDDLG() ; new surrogate end date/time dialog
ASKDIR(DIR) ;

External References

Name Field # of Occurrence
$$FIND1^DIC PUSHBACK+2
FILE^DIE RETURN+6, DELETENT+14
$$GET1^DIQ SUROLIST+13, DELETENT+19
^DIR ASKDIR+2
$$NOW^XLFDT PUSHBACK+21, SUROLIST+10, DELETENT+4
DELETE^XQALDEL PUSHBACK+26
RESETUP^XQALFWD PUSHBACK+12
CHEKSUBS^XQALSUR2 SUROLIST+8, REMVSURO+4
CLEANUP^XQALSUR2 REMVSURO+12
DISPSUR^XQALSUR2 SURRO11+8
$$CURRSURO^XQALSURO SUROLIST+9, DCYCLIC+3, REMVSURO+11
$$CYCLIC^XQALSURO SURRO11+2
CHKREMV^XQALSURO SURRO1+2
SENDMESG^XQALSURO DELETENT+21
SETSURO^XQALSURO SURRO11+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!,$$CYCLIC^XQALSURO(XQALSURO,XQAUSER),!
  • Line Location: SURRO11+2
Function Call: WRITE
  • Prompt: $C(7),!,$$DCYCLIC(XQALSURO,XQAUSER,XQALSTRT,XQALEND),!
  • Line Location: SURRO11+6
Function Call: WRITE
  • Prompt: " ",$P(Y,U,2)
  • Line Location: NEWDLG+5
Routine Call
  • DIC
  • Line Location:
    • PUSHBACK+2
Routine Call
  • DIE
  • Line Location:
    • RETURN+6
    • DELETENT+14
Routine Call
  • DIR
  • Line Location:
    • ASKDIR+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^XTV(8992 - [#8992] RETURN+3, PUSHBACK+12, SUROLIST+11, SUROLIST+12, DATESURO+3, DATESURO+4, REMVSURO+5, REMVSURO+6, REMVSURO+7, REMVSURO+8
, REMVSURO+9
^XTV(8992.1 - [#8992.1] PUSHBACK+3, PUSHBACK+4, PUSHBACK+5, PUSHBACK+6, PUSHBACK+7, PUSHBACK+15, PUSHBACK+17, PUSHBACK+20, PUSHBACK+21*

Label References

Name Line Occurrences
$$ASKDIR NEWDLG+2, NEWDLG+4, STRTDLG+9, ENDDLG+9
$$DCYCLIC DCYCLIC+4, SURRO11+6
$$ENDDLG SURRO11+4
$$NEWDLG SURRO11+1
$$STRTDLG SURRO11+3
DELETENT REMVSURO+9
PUSHBACK RETURN+8
SURRO11 SURRO11+2, SURRO11+6, SURRO11+9

Naked Globals

Name Field # of Occurrence
^( PUSHBACK+20

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR NEWDLG+1~, NEWDLG+2, NEWDLG+4, STRTDLG+1~, STRTDLG+9, ENDDLG+1~, ENDDLG+9, ASKDIR~, ASKDIR+2!
DIR("?" NEWDLG+1*
DIR("A" NEWDLG+1*, NEWDLG+4*, STRTDLG+2*, STRTDLG+3*, STRTDLG+4*, STRTDLG+5*, STRTDLG+6*, STRTDLG+7*, STRTDLG+8*, ENDDLG+2*
, ENDDLG+3*, ENDDLG+4*, ENDDLG+5*, ENDDLG+6*, ENDDLG+7*, ENDDLG+8*
DIR("B" NEWDLG+1*
DIR(0 NEWDLG+1*, NEWDLG+4*, STRTDLG+2*, ENDDLG+2*
DTOUT ASKDIR+1~, ASKDIR+2
DUOUT ASKDIR+1~, ASKDIR+2
I DCYCLIC+1~, DCYCLIC+4*
U RETURN+3, RETURN+4, PUSHBACK+5, PUSHBACK+7, PUSHBACK+18, PUSHBACK+21, PUSHBACK+22, SUROLIST+12, SUROLIST+13, SUROLIST+19
, DCYCLIC+4, DATESURO+4, REMVSURO+5, REMVSURO+6, REMVSURO+7, REMVSURO+8, REMVSURO+9, NEWDLG+5
X0 RETURN+1~, RETURN+3*, RETURN+4, PUSHBACK+1~, PUSHBACK+7*, PUSHBACK+17*, PUSHBACK+18
X30 PUSHBACK+1~, PUSHBACK+20*, PUSHBACK+21, PUSHBACK+22
XMSUB DELETENT+17~, DELETENT+20*
XMTEXT DELETENT+17~, DELETENT+20*
XNOSURO PUSHBACK+1~, PUSHBACK+5~*, PUSHBACK+7*, PUSHBACK+9, PUSHBACK+17*, PUSHBACK+18*, PUSHBACK+20, PUSHBACK+22*, PUSHBACK+25
XQA PUSHBACK+10~, PUSHBACK+12
XQA( PUSHBACK+11*
XQA0 SUROLIST+7~, SUROLIST+12*, DATESURO+1~, DATESURO+4*, REMVSURO+3~
XQACMNT PUSHBACK+10~, PUSHBACK+11*, PUSHBACK+12
XQADATE SUROLIST+7~, SUROLIST+11*
XQADT PUSHBACK+1~, PUSHBACK+3*
XQAEND RETURN+1~, RETURN+4*, RETURN+8, PUSHBACK~, PUSHBACK+3
XQAFDA RETURN+6~
XQAFDA( RETURN+6*
XQAI RETURN+1~, RETURN+3*, RETURN+6, PUSHBACK+1~, PUSHBACK+3*, PUSHBACK+4, PUSHBACK+5, PUSHBACK+6, PUSHBACK+7, PUSHBACK+12~
, PUSHBACK+15, PUSHBACK+17, PUSHBACK+20, PUSHBACK+21, PUSHBACK+26~
XQAID PUSHBACK+5~*, PUSHBACK+12
XQAIEN SUROLIST+7~, SUROLIST+11*, SUROLIST+12
XQAINIT PUSHBACK+1~, PUSHBACK+2*
XQAJ PUSHBACK+1~, PUSHBACK+4*, PUSHBACK+6, PUSHBACK+7, PUSHBACK+15*, PUSHBACK+17, PUSHBACK+20, PUSHBACK+21
XQAK PUSHBACK+1~, PUSHBACK+6*, PUSHBACK+17*
XQAKILL PUSHBACK+26~*
XQAL PUSHBACK+1~, PUSHBACK+6*, PUSHBACK+7, PUSHBACK+17*, SUROLIST+7~
XQAL( SUROLIST+13*, SUROLIST+17, SUROLIST+19*, SUROLIST+20
XQALAST DCYCLIC+1~, DCYCLIC+4*
XQALCNT SUROLIST+7~, SUROLIST+9*, SUROLIST+10*, SUROLIST+13*, SUROLIST+17*, SUROLIST+19, SUROLIST+20
XQALEND SUROLIST+7~, SUROLIST+12*, SUROLIST+13, DCYCLIC~, DCYCLIC+3, DCYCLIC+4, DATESURO~, DATESURO+2*, DATESURO+3, SURRO1+1~
SURRO11+4*, SURRO11+6, SURRO11+7, REMVSURO+3~, REMVSURO+7*, REMVSURO+9*, DELETENT~, DELETENT+6
XQALFM REMVSURO+3~, DELETENT+1~, DELETENT+14
XQALFM( DELETENT+5*, DELETENT+6*, DELETENT+7*
XQALFM(8992 DELETENT+10*, DELETENT+11*, DELETENT+12*
XQALIEN DATESURO+1~, DATESURO+4*
XQALIST SUROLIST~, SUROLIST+16!*, SUROLIST+20*, DCYCLIC+1~
XQALIST( SUROLIST+20*
XQALNEXT DCYCLIC+1~, DCYCLIC+3*, DCYCLIC+4
XQALNOW REMVSURO+3~, DELETENT+1~, DELETENT+4*, DELETENT+5, DELETENT+6, DELETENT+7
XQALS DATESURO+1~, DATESURO+3*, DATESURO+4
XQALSTR1 REMVSURO+3~, REMVSURO+6*, REMVSURO+9, DELETENT~, DELETENT+9
XQALSTRT DCYCLIC~, DCYCLIC+3, DCYCLIC+4, DATESURO~, DATESURO+4, SURRO1+1~, SURRO11+3*, SURRO11+6, SURRO11+7, REMVSURO~
, REMVSURO+2*, REMVSURO+6*, REMVSURO+8, REMVSURO+9, DELETENT~, DELETENT+5, DELETENT+7, DELETENT+9
XQALSUR1 REMVSURO+3~, REMVSURO+5*, REMVSURO+9, DELETENT~, DELETENT+9
XQALSURO DCYCLIC~, DCYCLIC+2, DCYCLIC+3, DCYCLIC+4*, DCYCLIC+6, SURRO1+1~, SURRO11+1*, SURRO11+2, SURRO11+6, SURRO11+7
, REMVSURO~, REMVSURO+2*, REMVSURO+5*, REMVSURO+8, REMVSURO+9, REMVSURO+11*, DELETENT~, DELETENT+9, DELETENT+16
XQALTYPE PUSHBACK+10~, PUSHBACK+11*
XQALXREF REMVSURO+3~, REMVSURO+8*, REMVSURO+9, DELETENT~, DELETENT+2*, DELETENT+3, DELETENT+5, DELETENT+6, DELETENT+7
XQALY DATESURO+1~, DATESURO+2*, DATESURO+4*, DATESURO+6
XQAMESG DELETENT+17~
XQAMESG(1 DELETENT+18*
XQAMESG(2 DELETENT+19*
XQANOW SUROLIST+7~, SUROLIST+10*, SUROLIST+12
XQAOTH PUSHBACK+1~, PUSHBACK+20*, PUSHBACK+21
XQASLIST SURRO1+1~, SURRO11+8
XQASTART SUROLIST+7~, SUROLIST+12*, SUROLIST+13
XQASTRT RETURN+1~, RETURN+4*, RETURN+8, PUSHBACK~, PUSHBACK+3
XQASURO RETURN+1~, SUROLIST+7~, SUROLIST+12*, SUROLIST+13
XQASUROP PUSHBACK+1~, PUSHBACK+15*, PUSHBACK+26
XQAUSER RETURN~, RETURN+3, RETURN+6, RETURN+8, PUSHBACK~, PUSHBACK+3, PUSHBACK+4, PUSHBACK+11, PUSHBACK+12~*, PUSHBACK+21
, PUSHBACK+26~*, SUROLIST~, SUROLIST+8, SUROLIST+9, SUROLIST+11, SUROLIST+12, DCYCLIC~, DCYCLIC+2, DCYCLIC+4, DATESURO~
, DATESURO+3, DATESURO+4, SURRO1~, SURRO11+2, SURRO11+6, SURRO11+7, SURRO11+8, REMVSURO~, REMVSURO+1, REMVSURO+4
, REMVSURO+5, REMVSURO+6, REMVSURO+7, REMVSURO+8, REMVSURO+9, REMVSURO+11, REMVSURO+12, DELETENT~, DELETENT+2*, DELETENT+10
, DELETENT+11, DELETENT+12, DELETENT+19
XQAVALU SUROLIST+7~, SUROLIST+13*
XSURO PUSHBACK+5~
XSURO( PUSHBACK+7*, PUSHBACK+15
>> XTMUNIT DELETENT+16
Y NEWDLG+1~, NEWDLG+2*, NEWDLG+4*, NEWDLG+5, NEWDLG+6, ASKDIR+1~, ASKDIR+2*, ASKDIR+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All