Routine: DGSEC3

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

Package

Total

Call Graph

VA Fileman

C^%DTC ^DIC YN^DICN ^DIK DT^DIQ

Registration

DTRNG^DGSEC2 H^DGUTL (CLOSE,QUE,ZIS)^DGUTQ

Kernel

^%ZIS

Package	Total	Caller Graph
Registration	1	DGSEC1

Package

Total

Caller Graph

Registration

DGSEC1

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+4
Function Call: WRITE	Prompt: !!?3,*7,"Record of user access can not be purged from the security log." Line Location: DGSEC3+5
Function Call: WRITE	Prompt: !!?3,7,"Record of user access can not be purged from the security log!!",!?3,"Please use the Update Security Parameters option to enter # of days",!?3,"to maintain sensitivity.*" Line Location: DGSEC3+6
Function Call: READ	Prompt: "Select PATIENT: " Formatting: !! Timeout: DTIME Variable: X 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

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

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

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

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

Local Variables

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

Customize PDF page

Package: Registration

Routine: DGSEC3

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: