Routine: XQALSUR1

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

Package	Total	Caller Graph
Kernel	4	XQALDATA XQALERT XQALERT1 XQALSURO

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

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
$$CURRSURO^XQALSURO	SUROLIST+9, DCYCLIC+3, REMVSURO+11
$$CYCLIC^XQALSURO	SURRO11+2
CHKREMV^XQALSURO	SURRO1+2
SENDMESG^XQALSURO	DELETENT+21
SETSURO^XQALSURO	SURRO11+7

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

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*

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+8

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
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, 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

Customize PDF page

Package: Kernel

Routine: XQALSUR1

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: