Routine: DIAU

Information

DIAU ;SFISC/XAK-AUDIT OPTIONS ; Apr 13, 2023@09:19:21

Source Information

Source file <DIAU.m>

Call Graph

Call Graph Total: 15

Package	Total	Call Graph
VA FileMan	15	^%DT %XY^%RCR $$EZBLD^DIALOG (DISP,TURNON)^DIAUTL ^DIC (A,AU,R1)^DICRW L^DICRW1 IXALL^DIK ^DIO N^DIO2 STOP^DIO4 EN1^DIP $$GET1^DIQ ^DIR $$DATE^DIUTL

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 9

Package	Total	Caller Graph
VA FileMan	9	DIAUDIT MONITOR USER DIAUDIT PURGE DATA DIAUDIT PURGE DD DIAUDIT SHOW PAST CHG TO DDs DIAUDIT TURN ON/OFF DIAUDITED FIELDS DII1 DIO4 DIPR129

Entry Points

Name	Comments	DBIA/ICR reference
0
OPT	;
EN	;
Q
1	;;FIELDS BEING AUDITED
2	;;MONITOR A USER
WRITE
Q2
WUSRDHD	;CALLED BY DHD
WUSR(Y)	;CALLED BY DHIT
3	;;PURGE DATA AUDITS
KILLDIA	;CALLED FROM DHIT
ENDKILL	;CHECK DANGLERS
DANGLE(DIA)	;CLEAN DANGLERS
4	;;PURGE DD AUDITS
5	;;TURN DATA AUDIT ON/OFF
51
52
ALL
PR	;
M
UP
P
QM	;RETURN TO ^DIO4 FROM LINE TAG M+1
6	;;SHOW PAST CHANGES TO DD'S

External References

Name	Field # of Occurrence
^%DT	2+9
%XY^%RCR	P
$$EZBLD^DIALOG	6+1
DISP^DIAUTL	6+4
TURNON^DIAUTL	52+5
^DIC	OPT+1, 2+2, 2+6, 52+1
A^DICRW	4+2
AU^DICRW	3+2, 5+2
R1^DICRW	2+3
L^DICRW1	1+1
IXALL^DIK	0+4
^DIO	P+1
N^DIO2	WUSR+7, WUSR+11
STOP^DIO4	QM+1
EN1^DIP	1+7, WRITE+4, 3+8, 4+7
$$GET1^DIQ	2+13, WUSR+2
^DIR	52+4, 52+9, ALL+3, 6+4
$$DATE^DIUTL	2+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: EN+1
Function Call: WRITE	Prompt: $P(^DIC(DIA,0),U)," RECORDS ACCESSED BY ",$P(^VA(200,DIAUSR,0),U)," (DUZ=",DIAUSR,") ",DWHEN,?IOM-8,"Page ",DC,! Line Location: WUSRDHD+1
Function Call: WRITE	Prompt: ?IOM-50,"EARLIEST ACCESS",?IOM-25,"LATEST ACCESS",! Line Location: WUSRDHD+2
Function Call: WRITE	Prompt: $TR($J("",IOM)," ","-"),! Line Location: WUSRDHD+3
Function Call: WRITE	Prompt: $$GET1^DIQ(DIA,Y,.01) Line Location: WUSR+2
Function Call: WRITE	Prompt: ?80 Line Location: WUSR+4
Function Call: WRITE	Prompt: ?19 Line Location: WUSR+5
Function Call: WRITE	Prompt: ?DITAB Line Location: WUSR+9
Function Call: WRITE	Prompt: ?DITAB+25 Line Location: WUSR+9
Function Call: WRITE	Prompt: Y Line Location: WUSR+10
Function Call: WRITE	Prompt: !!,"..." Line Location: 3+4
Function Call: WRITE	Prompt: "DELETED" Line Location: 3+4
Function Call: WRITE	Prompt: ! Line Location: 3+5
Function Call: WRITE	Prompt: !!,"...",! Line Location: ENDKILL+2
Function Call: WRITE	Prompt: $$DANGLE(DIA)," POINTERS FIXED." Line Location: ENDKILL+2
Function Call: WRITE	Prompt: !!,DIACNT," RECORDS PURGED." Line Location: ENDKILL+3
Function Call: WRITE	Prompt: ! Line Location: 4+4
Function Call: WRITE	Prompt: !! Line Location: 52+11
Function Call: WRITE	Prompt: !!,DIACNT," RECORDS PURGED." Line Location: M+1
Routine Call	DIALOG Line Location: 6+1
Routine Call	DIC Line Location: OPT+1 2+2 2+6 52+1
Routine Call	DIR Line Location: 52+4 52+9 ALL+3 6+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	1+2, 1+3, 2+7, 3+6, 4+5, 52+5!, 52+6, 52+7!, 52+8, 52+9! , 52+10*, PR+2, UP
^DD("DD"	WUSR+10
^DDA - [#.6]	PR+1!, M
^DIA - [#1.1]	2+10, 2+11, WUSR+10, 3+4!, KILLDIA+1!, KILLDIA+2!, KILLDIA+3!, KILLDIA+4!, ENDKILL+1, DANGLE+4 , DANGLE+5!
^DIC - [#1]	1+2, WRITE+2, WUSRDHD+1, WUSR+6
^DISV(	2+5
^DOPT("DIAU"	0+1, 0+2, 0+3
^UTILITY("DIAU"	2+8!, 2+12, 2+13*, WUSR+8
^UTILITY($J	P!
^VA(200 - [#200]	WUSRDHD+1

Label References

Name	Line Occurrences
$$DANGLE	ENDKILL+2
0	OPT+1
51	52+11
52	52+2
@(	EN+1
ALL	3+3, 4+3
EN	OPT+1
M	M+2
P	M+2
PR	4+3, PR+2
Q	OPT+1, 4+2, 4+3, 52+1
Q2	1+4, 1+8, 3+2, 3+3, 3+4, 3+8, 4+7
QM	M+1
UP	M+2, UP+1

Naked Globals

Name	Field # of Occurrence
^(	2+10, 2+12*
^("AUDIT"	52+3, 52+6
^("AX"	52+5!, 52+8
^("B"	0+2!
^("UP"	UP
^(0	ENDKILL+1*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	Q!, 5+1~, M+2, UP
%DT	2+1~, 2+9*, 6+1~
%DT("A"	2+9*
>> %X	P*
>> %Y	P*
A	2+10, 2+11, 2+12, 2+13, Q2!, DANGLE+1~, DANGLE+3*, DANGLE+4, DANGLE+5
AA	DANGLE+1~, DANGLE+3*, DANGLE+5
B	2+9, 2+10, 2+11, Q2!, DANGLE+1~, DANGLE+3, DANGLE+4, DANGLE+5
BY	Q2!
BY(0	1+1, WRITE
C	DANGLE+1~, DANGLE+2, DANGLE+5, DANGLE+6, 5+1~, P+1*
D	5+1~
D0	WUSR+8, KILLDIA+1, KILLDIA+2, KILLDIA+3, KILLDIA+4, DANGLE+1~, DANGLE+5*
DA	Q!, 3+8!, 4+7!, 5+1~
DA(1	51, 52+2, 52+5, 52+6, 52+7, 52+8, 52+9, 52+10
>> DC	WUSRDHD+1
DCC	Q2!
DDA	3+3, 4+2, 4+7, 5+1~, 5+2, 52+3, 52+5, 52+6, 52+7, 52+8 , 52+9, 52+10, ALL+1, ALL+2, M, M+1, M+2
DFF	1+1, 1+3, Q2!
DHD	1+6, WRITE+1, Q2!, 3+6, 4+5
DHIT	2+1~, WRITE+3, 3+7, 3+8!, 4+6*, 4+7!
DI	OPT+1*, EN+1, Q!
DIA	1+7, 2+7, 2+10, 2+11, 2+13, WRITE+2, Q2!, WUSRDHD+1, WUSR+2, WUSR+6 , WUSR+10, 3+2, 3+4, 3+6, KILLDIA+1, KILLDIA+2, KILLDIA+3, KILLDIA+4, ENDKILL+1, ENDKILL+2 , DANGLE~, DANGLE+4, DANGLE+5, 4+2, 4+3, 4+5, 4+7, 5+1~, 5+2, 51 , 52+1!, PR+1~, PR+2, M+1, UP
DIACNT	3+7, 3+8!, KILLDIA+5, ENDKILL+1, ENDKILL+3, 4+6*, 4+7!, M+1
DIAU	WUSR+1~, WUSR+8*, WUSR+9, 5+1~
DIAUIDEN	2+1~, 2+7*, WUSR+3, WUSR+6
DIAUSR	2+1~, 2+2*, 2+11, WUSRDHD+1
DIB	1+1, 1+2, 1+3, 1+4, Q2!
DIB(1	1+2*, 1+3, 1+4
DIC	0, 0+4, Q!, 1+1, 1+7, 2+1~, 2+2!, 2+4, 2+6!, WRITE+2* , WUSR+1~, WUSR+6, 3+2, 4+2, 4+6, 5+1~, 51, 52+2, 52+3!
DIC("A"	2+2, 2+4
DIC("B"	2+5*
DIC("S"	2+2, 2+4, 2+5, 3+1, 3+2!, 4+1, 51+1*
DIC("W"	52*
DIC(0	OPT+1, 2+2, 2+4, 51
DIJ	Q2!
DIJS	Q2!, P+1
DIK	0+4*, Q!, 3+8!, 4+7!
DIMS	Q2!, P+1
DIOEND	1+7, WRITE+3, Q2!, 3+5, 4+4
>> DIOSL	P+1*
DIPP	Q2!, P+1
DIPQ	Q2!, P+1
DIR	5+1~, 52+3!, 52+8!, ALL+4!, 6+1~
DIR("?"	6+3*
DIR("??"	ALL+2*
DIR("A"	ALL+1, ALL+3, 6+2*
DIR("B"	52+3, 52+8, ALL, 6+2
DIR(0	52+4, 52+9, ALL, 6+2
DIRB	6+1~*, 6+2
DIRUT	3+3, 4+3, 5+1~, 52+4, 52+5, 52+9, ALL+3
DIS	Q2!
DIS(0	1+6*
DISTOP	3+5, 3+8!, 4+4, 4+7!
>> DISUPNO	1+5, 3+6, 4+4*
DITAB	WUSR+1~, WUSR+3*, WUSR+9
>> DJ	P+1*
DNP	Q2!
DP	2+13*, Q2!
>> DPP	P+1*
>> DPQ	P+1*
>> DTOUT	3+2, 4+2
DUB	1+1, 1+3, Q2!
DUOUT	5+1~
DUZ	2+5
DWHEN	2+1~, 2+9*, WUSRDHD+1
FLDS	1+5, WRITE, Q2!, 3+6, 4+5
I	Q!
IOM	WUSRDHD+1, WUSRDHD+2, WUSRDHD+3, WUSR+3, WUSR+7
IOSL	P+1
J	Q!, 5+1~
L	1+6, Q2!, 3+5, 4+4, P+1
L(0	1+1, WRITE
>> M	P+1*
P	2+11*, 2+12, 2+13, Q2!
U	2+12, WUSRDHD+1, WUSR+9, WUSR+10, KILLDIA+2, KILLDIA+3, KILLDIA+4, ENDKILL+1, DANGLE+5, 52+2
X	0+3, Q!, 2+9, WUSR+1~, WUSR+8, WUSR+9, WUSR+10, KILLDIA+1, KILLDIA+2, KILLDIA+3 , KILLDIA+4, 4+3, 5+1~, 52+4, 52+6, 52+7, 52+9, 52+10, PR+1~, PR+2* , M+2, UP
Y	OPT+1, Q!, 1+1, 1+2, 2+2, 2+5, 2+7, 2+9, 2+10, WUSR~ , WUSR+2, WUSR+10~, 3+2, 3+4, KILLDIA+2, KILLDIA+3, KILLDIA+4, 4+2, 4+3, 5+1~ , 52+1, 52+3, 52+4, 52+5, ALL+3, 6+4
Y(0	52+2

Marked Items

Name	Field # of Occurrence
$T(@X	0+3

Customize PDF page

Package: VA FileMan