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 ; Jul 13, 2021@11:01

Source Information

Source file <XQALSUR1.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 5 ($$FMTE,$$NOW)^XLFDT  DELETE^XQALDEL  RESETUP^XQALFWD  (CHEKSUBS,CLEANUP,DISPSUR)^XQALSUR2  ($$CURRSURO,$$CYCLIC,CHKREMV,SENDMESG,SETSURO,SUROLIST)^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
DCYCLIC2(XQALSURO,XQAUSER,XQALSTRT,XQALEND) ; p754 uses overlapped dates for surrogacy
; XQALSURO is intended surrogate for XQAUSER but cannot be the same
; returns last actual surrogate (good) or the error string (cyclic)
OVERLAP(STR1,END1,STR2,END2) ; returns time intersection (overlap) p754
; STR1---------END1
; STR2----------END2
; STR END
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+8, DELETENT+14
$$GET1^DIQ SUROLIST+13, DCYCLIC2+17, DELETENT+19
^DIR ASKDIR+2
$$FMTE^XLFDT DCYCLIC2+18
$$NOW^XLFDT PUSHBACK+21, SUROLIST+10, OVERLAP+6, SURRO11+6, DELETENT+4
DELETE^XQALDEL PUSHBACK+26
RESETUP^XQALFWD PUSHBACK+12
CHEKSUBS^XQALSUR2 SUROLIST+8, REMVSURO+4
CLEANUP^XQALSUR2 REMVSURO+12
DISPSUR^XQALSUR2 SURRO11+9
$$CURRSURO^XQALSURO SUROLIST+9, REMVSURO+11
$$CYCLIC^XQALSURO SURRO11+2
CHKREMV^XQALSURO SURRO1+2
SENDMESG^XQALSURO DELETENT+21
SETSURO^XQALSURO SURRO11+8
SUROLIST^XQALSURO DCYCLIC2+8

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+7
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+8
    • DELETENT+14
Routine Call
  • DIR
  • Line Location:
    • ASKDIR+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^XTV(8992 - [#8992] RETURN+3, RETURN+4!, RETURN+5, 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 SURRO11+7
$$DCYCLIC2 DCYCLIC+1, DCYCLIC2+13
$$ENDDLG SURRO11+4
$$NEWDLG SURRO11+1
$$OVERLAP DCYCLIC2+11
$$STRTDLG SURRO11+3
DELETENT REMVSURO+9
PUSHBACK RETURN+10
SURRO11 SURRO11+2, SURRO11+7, SURRO11+10

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
END DCYCLIC2+3~, DCYCLIC2+10*, DCYCLIC2+11, DCYCLIC2+12*, DCYCLIC2+13, OVERLAP+4~, OVERLAP+11*, OVERLAP+12
END1 OVERLAP~, OVERLAP+5*, OVERLAP+9, OVERLAP+11
END2 OVERLAP~, OVERLAP+5*, OVERLAP+10, OVERLAP+11
GOODSURO DCYCLIC2+3~, DCYCLIC2+5*, DCYCLIC2+9, DCYCLIC2+13*, DCYCLIC2+14, DCYCLIC2+16*, DCYCLIC2+17*, DCYCLIC2+18*, DCYCLIC2+19
I DCYCLIC2+3~, DCYCLIC2+9*, DCYCLIC2+10, DCYCLIC2+15
NOVERLAP OVERLAP+4~, OVERLAP+5*, OVERLAP+9, OVERLAP+10
NOW OVERLAP+4~, OVERLAP+6*, OVERLAP+7, OVERLAP+8
OVERLAP DCYCLIC2+3~, DCYCLIC2+11*, DCYCLIC2+12
START DCYCLIC2+3~, DCYCLIC2+10*, DCYCLIC2+11, DCYCLIC2+12*, DCYCLIC2+13
STR OVERLAP+4~, OVERLAP+11*, OVERLAP+12
STR1 OVERLAP~, OVERLAP+5*, OVERLAP+7*, OVERLAP+10, OVERLAP+11
STR2 OVERLAP~, OVERLAP+5*, OVERLAP+8*, OVERLAP+9, OVERLAP+11
SURO DCYCLIC2+3~, DCYCLIC2+10*, DCYCLIC2+13, DCYCLIC2+15*, DCYCLIC2+17, DCYCLIC2+18
SUROLIST DCYCLIC2+3~, DCYCLIC2+8, DCYCLIC2+9
SUROLIST( DCYCLIC2+10, DCYCLIC2+15
U RETURN+5, RETURN+6, PUSHBACK+5, PUSHBACK+7, PUSHBACK+18, PUSHBACK+21, PUSHBACK+22, SUROLIST+12, SUROLIST+13, SUROLIST+19
, DCYCLIC2+10, DCYCLIC2+12, DCYCLIC2+17, DCYCLIC2+18, DATESURO+4, REMVSURO+5, REMVSURO+6, REMVSURO+7, REMVSURO+8, REMVSURO+9
, NEWDLG+5
X0 RETURN+1~, RETURN+5*, RETURN+6, 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+6*, RETURN+10, PUSHBACK~, PUSHBACK+3
XQAFDA RETURN+8~
XQAFDA( RETURN+8*
XQAI RETURN+1~, RETURN+3*, RETURN+4, RETURN+5, RETURN+8, 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
XQALCNT SUROLIST+7~, SUROLIST+9*, SUROLIST+10*, SUROLIST+13*, SUROLIST+17*, SUROLIST+19, SUROLIST+20
XQALEND SUROLIST+7~, SUROLIST+12*, SUROLIST+13, DCYCLIC~, DCYCLIC+1, DCYCLIC2~, DCYCLIC2+11, DATESURO~, DATESURO+2*, DATESURO+3
, SURRO1+1~, SURRO11+4*, SURRO11+7, SURRO11+8, 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*
XQALIST( SUROLIST+20*
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+1, DCYCLIC2~, DCYCLIC2+11, DATESURO~, DATESURO+4, SURRO1+1~, SURRO11+3*, SURRO11+6*, SURRO11+7
, SURRO11+8, 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+1, DCYCLIC2~, DCYCLIC2+4, DCYCLIC2+5, DCYCLIC2+8, DCYCLIC2+17, SURRO1+1~, SURRO11+1*, SURRO11+2
, SURRO11+7, SURRO11+8, 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+9
XQASTART SUROLIST+7~, SUROLIST+12*, SUROLIST+13
XQASTRT RETURN+1~, RETURN+6*, RETURN+10, PUSHBACK~, PUSHBACK+3
XQASURO RETURN+1~, SUROLIST+7~, SUROLIST+12*, SUROLIST+13
XQASUROP PUSHBACK+1~, PUSHBACK+15*, PUSHBACK+26
XQAUSER RETURN~, RETURN+3, RETURN+4, RETURN+5, RETURN+8, RETURN+10, PUSHBACK~, PUSHBACK+3, PUSHBACK+4, PUSHBACK+11
, PUSHBACK+12~*, PUSHBACK+21, PUSHBACK+26~*, SUROLIST~, SUROLIST+8, SUROLIST+9, SUROLIST+11, SUROLIST+12, DCYCLIC~, DCYCLIC+1
, DCYCLIC2~, DCYCLIC2+4, DCYCLIC2+13, DATESURO~, DATESURO+3, DATESURO+4, SURRO1~, SURRO11+2, SURRO11+7, SURRO11+8
, SURRO11+9, 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