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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: DGSEC3

Package: Registration

Routine: DGSEC3


Information

DGSEC3 ;ALB/RMO - Purge Record of User Access from Security Log ; 22 JUN 87 1:00 pm

Source Information

Source file <DGSEC3.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 5 C^%DTC  ^DIC  YN^DICN  ^DIK  DT^DIQ  
Registration 3 DTRNG^DGSEC2  H^DGUTL  (CLOSE,QUE,ZIS)^DGUTQ  
Kernel 1 ^%ZIS  

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

Package Total Caller Graph
Registration 1 DGSEC1  

Entry Points

Name Comments DBIA/ICR reference
ASKPAT
ASKDTE
ASKPRT
PURUSR
Q
PURSEL
PURALL
DELUSR

External References

Name Field # of Occurrence
C^%DTC ASKDTE
^%ZIS ASKPRT+2
DTRNG^DGSEC2 ASKDTE+1
H^DGUTL ASKDTE, PURUSR, PURUSR+1
CLOSE^DGUTQ Q
QUE^DGUTQ ASKPRT+2
ZIS^DGUTQ ASKPRT+1
^DIC ASKPAT+1
YN^DICN ASKPRT
^DIK DELUSR
DT^DIQ ASKDTE+1, PURUSR, PURUSR+1, DELUSR+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?3,*7,"You do not have the appropriate access privileges to purge user access."
  • Line Location: DGSEC3+2
Function Call: WRITE
  • Prompt: !!?3,*7,"Record of user access can not be purged from the security log."
  • Line Location: DGSEC3+3
Function Call: READ
  • Formatting: !!
  • Prompt: "Select PATIENT: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASKPAT+0
Function Call: WRITE
  • Prompt: !!?3,"Enter 'ALL' or a select patient to purge user access from security log."
  • Line Location: ASKPAT+2
Function Call: WRITE
  • Prompt: !!?1,*7,"Record of user access can not be purged prior to ",+DGSDFLG," day(s), please",!?1,"select a day on or before "
  • Line Location: ASKDTE+1
Function Call: WRITE
  • Prompt: "."
  • Line Location: ASKDTE+1
Function Call: WRITE
  • Prompt: !!,"Enter 'YES' to print users being purged, or 'NO' to schedule purge."
  • Line Location: ASKPRT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKPRT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKPRT+2
Function Call: WRITE
  • Prompt: !!,"Purge User Access from Security Log started "
  • Line Location: PURUSR+0
Function Call: WRITE
  • Prompt: ".",!
  • Line Location: PURUSR+0
Function Call: WRITE
  • Prompt: !!,"Purge completed "
  • Line Location: PURUSR+1
Function Call: WRITE
  • Prompt: ". ","Number of records purged: ",DGCNT
  • Line Location: PURUSR+1
Function Call: WRITE
  • Prompt: !," ...",$S($D(^VA(200,+$P(DGSL0,"^",2),0)):$E($P(^(0),"^"),1,15),1:"Unknown")," accessed ",$S($D(^DPT(DFN,0)):$E($P(^(0),"^"),1,20),1:"Unknown")," on "
  • Line Location: DELUSR+1
Routine Call
  • DIC
  • Line Location:
    • ASKPAT+1
Routine Call
  • %ZIS
  • Line Location:
    • ASKPRT+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGSL(38.1 - [#38.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(43 - [#43] DGSEC3+3, ASKDTE
^DGSL(38.1 - [#38.1] PURSEL, PURALL
^DPT - [#2] DELUSR+1
^VA(200 - [#200] DELUSR+1
^XUSEC("DG SECURITY OFFICER" DGSEC3+2

Label References

Name Line Occurrences
ASKDTE ASKPAT, ASKPAT+1
ASKPAT ASKPAT+2
ASKPRT ASKPRT
DELUSR PURSEL, PURALL
PURALL PURUSR+1
PURSEL PURUSR+1
PURUSR ASKPRT+1
Q ASKPAT, ASKDTE+1, ASKPRT, ASKPRT+1, ASKPRT+2

Naked Globals

Name Field # of Occurrence
^( PURSEL
^(0 PURSEL, PURALL, DELUSR+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ASKPRT*
>> DA DELUSR*
>> DA(1 DELUSR*
DFN ASKPAT*, ASKPAT+1*, PURUSR+1, Q!, PURSEL, PURALL*, DELUSR, DELUSR+1
DGBEGDT Q!, PURSEL, PURALL
DGCNT PURUSR*, PURUSR+1, Q!, DELUSR+1*
DGDTE Q!, PURSEL*, PURALL*, DELUSR
DGENDDT Q!, PURSEL, PURALL
DGPGM ASKPRT+1*, Q!
DGPOP ASKDTE+1, Q!
DGPRT ASKPRT*, ASKPRT+1, ASKPRT+2, PURUSR, PURUSR+1, Q!, DELUSR+1
DGSDFLG ASKDTE*, ASKDTE+1, Q!
DGSENFLG ASKPAT+1*!
DGSL0 Q!, PURSEL*, PURALL*, DELUSR+1
>> DGTIME PURUSR, PURUSR+1
DGVAR ASKPRT+1*, Q!
>> DIC ASKPAT+1*
>> DIC(0 ASKPAT+1*
>> DIK DELUSR*
DT ASKDTE
DTIME ASKPAT
DUZ DGSEC3+2
ION ASKPRT+2*
IOP ASKPRT+2*!
POP ASKPRT+1, Q!
>> X ASKPAT*, ASKPAT+2, ASKDTE, ASKPRT+2
>> X1 ASKDTE*
>> X2 ASKDTE*
>> Y ASKPAT+1, ASKDTE+1*, PURUSR*, PURUSR+1*, DELUSR+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All