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 |  Marked Items  | All
Print Page as PDF
Routine: DIAU

Package: VA FileMan

Routine: DIAU


Information

DIAU ;SFISC/XAK-AUDIT OPTIONS ;19MAY2015

Source Information

Source file <DIAU.m>

Call Graph

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:

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

Package Total Caller Graph
VA FileMan 9 11671  1370  DIAUDIT MONITOR USER  DIAUDIT PURGE DATA  DIAUDIT PURGE DD  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, 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+6
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
    • 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!, 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+6
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
^("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
>> DC WUSRDHD+1
DCC Q2!
DDA 3+3*, 4+2*, 4+7*, 5+1~, 5+2*, 52+3*, 52+5, 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!, ALL+4!, 6+1~
DIR("?" 6+3*
DIR("??" ALL+2*
DIR("A" ALL+1*, ALL+3*, 6+2*
DIR("B" 52+3*, ALL*, 6+2*
DIR(0 52+4*, ALL*, 6+2*
DIRB 6+1~*, 6+2
DIRUT 3+3, 4+3, 5+1~, 52+4, 52+5, 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, 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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All