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: XUSPURGE

Package: Kernel

Routine: XUSPURGE


Information

XUSPURGE ;SFISC/STAFF - PURGE ROUTINE FOR XUSEC ; Oct 23, 2023@14:28:20

Source Information

Source file <XUSPURGE.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 3 ^DIE  ^DIK  ^DIR  
Kernel 1 ($$FMADD,$$NOW)^XLFDT  

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: 3

Package Total Caller Graph
Kernel 2 XUSCZONK  XUSERAOLD  
Electronic Health Modernization 1 EHM-01813  

Entry Points

Name Comments DBIA/ICR reference
SCPURG ;Purge sign-on log to 365 days
AOLD ;
DAYS
A02(XUDAYS) ;Purge old Access codes in the AOLD x-ref.
V02(XUDAYS) ;Purge old Verify code from each users VOLD x-ref
ENDA
RETENTION() ; returns number of days to retain SIGN-ON LOG file entries
EXPIRED(XUDA,XUDT) ;Is XUDA older (smaller) than XUDT
DELETE(XUDA,XUNOW) ; delete entry XUDA from SIGN-ON LOG file

External References

Name Field # of Occurrence
^DIE DELETE+4
^DIK DELETE+6
^DIR AOLD+6, DAYS+2
$$FMADD^XLFDT SCPURG+4
$$NOW^XLFDT SCPURG+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option will purge the log of inactive access and verify codes ",!,"older than the date specified to allow for their re-use."
  • Line Location: AOLD+5
Routine Call
  • DIE
  • Line Location:
    • DELETE+4
Routine Call
  • DIR
  • Line Location:
    • AOLD+6
    • DAYS+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^VA(200 - [#200] A02+3!, V02+3, V02+4!
^XTV(8989.3 - [#8989.3] RETENTION+2
^XUSEC(0 - [#3.081] SCPURG+2, SCPURG+5, DELETE+2, DELETE+8!

Label References

Name Line Occurrences
$$EXPIRED SCPURG+5
$$RETENTION SCPURG+3
A02 AOLD+3, DAYS+3
DELETE SCPURG+5
ENDA AOLD+6
V02 AOLD+3, DAYS+3

Naked Globals

Name Field # of Occurrence
^( A02+3, V02+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA SCPURG+1~, SCPURG+5*
DIE DELETE+1~, DELETE+4*
DIK DELETE+1~, DELETE+6*
DIR AOLD+1~, DAYS!, ENDA!
DIR("?" DAYS+1*
DIR("A" AOLD+6*, DAYS*
DIR("B" AOLD+6*, DAYS*
DIR(0 AOLD+6*, DAYS+1*
DIRUT AOLD+1~, AOLD+6, DAYS+2, ENDA!
DR DELETE+1~, DELETE+4*
DT SCPURG+4
U DELETE+4
X AOLD+1~, AOLD+3*, DAYS+3
XU1 DELETE+1~, DELETE+2*, DELETE+4, DELETE+8
XU2 DELETE+1~, DELETE+2*, DELETE+8
XUDA EXPIRED~, EXPIRED+1, DELETE~, DELETE+2, DELETE+8
XUDAYS AOLD+1~, A02~, A02+2, V02~, V02+2, ENDA!
XUDT SCPURG+1~, SCPURG+4*, SCPURG+5, AOLD+1~, A02+1~, A02+2*, A02+3, V02+1~, V02+2*, V02+4
, ENDA!, EXPIRED~, EXPIRED+1
XUI AOLD+1~, A02+1~, A02+2*, A02+3*, V02+1~, V02+2*, V02+3*, V02+4, ENDA!
XUJ AOLD+1~, A02+1~, A02+3*, V02+1~, ENDA!
XUK AOLD+1~, A02+1~, A02+3*, V02+1~, V02+3*, V02+4*, ENDA!
XUNOW SCPURG+1~, SCPURG+4*, SCPURG+5, DELETE~, DELETE+4
XURETENT SCPURG+1~, SCPURG+3*, SCPURG+4, RETENTION+1~, RETENTION+2*, RETENTION+3*, RETENTION+4*, RETENTION+5
XUT AOLD+1~, A02+1~, A02+2*, A02+3*, A02+4, V02+1~, V02+2*, V02+4*, V02+5, ENDA!
>> Y AOLD+6
>> ZTQPARAM AOLD+3
>> ZTQUEUED AOLD+2, A02+3, A02+4, V02+4, V02+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All