Routine: ACRFAUD

Package	Total	Call Graph
VA Fileman	3	^DIC (EN,Y)^DIQ ^DIR
Commitment Register	2	($$NOW,QUE)^ACRFUTL $$NAME2^ACRFUTL1
Kernel	2	HOME^%ZIS ^%ZISC
IHS VA Utilities	1	^XBKVAR

Entry Points

Name	Comments	DBIA/ICR reference
PRT(ACRD0,ACRDATES,ACRFILE,ACROUT)
ENTNAM(DIA,D0)
EN	;EP -- MAIN ENTRY POINT
DQ1	;EP -- QUEUED REPORT STARTS HERE
OLD(DIA,D0)
DIQ(DIC,DA)
LOOP(ACRDATES,ACRFILE)
TXT	;----- PRINT OPTION DESCRIPTION
ONE	;EP -- DISPLAY AUDIT TRAIL FOR ONE ENTRY
HDR1(ACRFILE,DA,ACROUT)
NEW(DIA,D0)
DLOOP	;----- DATE LOOP
FLDNAM(DIA,D0)
HDR(ACRDATES,ACRFILE,ACROUT)	;
DATES(ACRDATES)
DESC	;----- ROUTINE DESCRIPTION
ENTRY(DIC,Y)
FILE(ACRFILE)
DQ	;EP -- QUEUED JOB ENTRY POINT

External References

Name	Field # of Occurrence
HOME^%ZIS	EN+4
^%ZISC	DQ+5, DQ1+5
$$NOW^ACRFUTL	HDR+10, HDR1+11
QUE^ACRFUTL	EN+16, ONE+15
$$NAME2^ACRFUTL1	PRT+23
^DIC	FILE+7, ENTRY+4
EN^DIQ	DIQ+4
Y^DIQ	ENTNAM+16
^DIR	LOOP+17, HDR+5, DLOOP+8, DLOOP+14, HDR1+6
^XBKVAR	EN+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,ACRMSG Line Location: LOOP+15
Function Call: WRITE	Prompt: ! Line Location: LOOP+16
Function Call: WRITE	Prompt: !! Line Location: PRT+27
Function Call: WRITE	Prompt: "AUDIT #: " Line Location: PRT+28
Function Call: WRITE	Prompt: ACRD0 Line Location: PRT+29
Function Call: WRITE	Prompt: ?40,"DATE/TIME RECORDED: " Line Location: PRT+30
Function Call: WRITE	Prompt: ACRDATE Line Location: PRT+31
Function Call: WRITE	Prompt: ! Line Location: PRT+32
Function Call: WRITE	Prompt: "USER: " Line Location: PRT+33
Function Call: WRITE	Prompt: ACRUSER Line Location: PRT+34
Function Call: WRITE	Prompt: ! Line Location: PRT+35
Function Call: WRITE	Prompt: "FILE ENTRY #: " Line Location: PRT+36
Function Call: WRITE	Prompt: ACRENT Line Location: PRT+37
Function Call: WRITE	Prompt: ?40,"FILE ENTRY NAME: " Line Location: PRT+38
Function Call: WRITE	Prompt: ACRENTN Line Location: PRT+39
Function Call: WRITE	Prompt: ! Line Location: PRT+40
Function Call: WRITE	Prompt: "FIELD #: " Line Location: PRT+41
Function Call: WRITE	Prompt: ACRFLD Line Location: PRT+42
Function Call: WRITE	Prompt: ?40,"FIELD NAME: " Line Location: PRT+43
Function Call: WRITE	Prompt: ACRFLDN Line Location: PRT+44
Function Call: WRITE	Prompt: ! Line Location: PRT+45
Function Call: WRITE	Prompt: "OLD VALUE: " Line Location: PRT+46
Function Call: WRITE	Prompt: ACROLD Line Location: PRT+47
Function Call: WRITE	Prompt: ! Line Location: PRT+48
Function Call: WRITE	Prompt: "NEW VALUE: " Line Location: PRT+49
Function Call: WRITE	Prompt: ACRNEW Line Location: PRT+50
Function Call: WRITE	Prompt: @IOF Line Location: HDR+8
Function Call: WRITE	Prompt: !,"AUDIT LISTING OF "_$P(ACRFILE,U,2)_" FILE" Line Location: HDR+9
Function Call: WRITE	Prompt: ?IOM-20,$$NOW^ACRFUTL Line Location: HDR+10
Function Call: WRITE	Prompt: !,"FROM "_Y Line Location: HDR+13
Function Call: WRITE	Prompt: " TO "_Y Line Location: HDR+16
Function Call: WRITE	Prompt: ?IOM-20,"PAGE: ",ACRPAGE Line Location: HDR+17
Function Call: WRITE	Prompt: ! Line Location: HDR+18
Function Call: WRITE	Prompt: "-" Line Location: HDR+19
Function Call: WRITE	Prompt: ! Line Location: HDR+20
Function Call: WRITE	Prompt: ! Line Location: DLOOP+4
Function Call: WRITE	Prompt: *7,!?5,"ENDING DATE cannot be less than BEGINNING DATE" Line Location: DLOOP+19
Function Call: WRITE	Prompt: !,X Line Location: TXT+3
Function Call: WRITE	Prompt: @IOF Line Location: HDR1+9
Function Call: WRITE	Prompt: !,"AUDIT LISTING OF ",$P(ACRFILE,U,2)," FILE ENTRY " Line Location: HDR1+10
Function Call: WRITE	Prompt: ?IOM-20,$$NOW^ACRFUTL Line Location: HDR1+11
Function Call: WRITE	Prompt: !?IOM-20,"PAGE: ",ACRPAGE Line Location: HDR1+12
Function Call: WRITE	Prompt: ! Line Location: HDR1+13
Function Call: WRITE	Prompt: "-" Line Location: HDR1+14
Function Call: WRITE	Prompt: ! Line Location: HDR1+15
Routine Call	%ZIS Line Location: EN+4
Routine Call	DIC Line Location: FILE+7 ENTRY+4
Routine Call	DIR Line Location: LOOP+17 HDR+5 DLOOP+8 DLOOP+14 HDR1+6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC - [#1]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	ENTNAM+14
^DD("DD"	PRT+17, HDR+12, HDR+15
^DD(1.1	FLDNAM+11
^DIA - [#1.1]	LOOP+9, LOOP+11, PRT+13, ENTNAM+10, ENTNAM+12, FLDNAM+10, OLD+10, NEW+10
^DIC - [#1]	ENTNAM+11, ONE+6

Label References

Name	Line Occurrences
$$ENTNAM	PRT+15
$$FLDNAM	PRT+20
$$NEW	PRT+25
$$OLD	PRT+24
DATES	EN+11
DIQ	DQ1+4
DLOOP	DLOOP+18
ENTRY	ONE+8
FILE	EN+8, ONE+4
HDR	DQ+3, PRT+6, PRT+9
HDR1	DQ1+3
LOOP	DQ+4
PRT	LOOP+12
TXT	EN+6

Naked Globals

Name	Field # of Occurrence
^(0	ENTNAM+13, ENTNAM+14, FLDNAM+10
^(2	OLD+10
^(3	NEW+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ENTNAM+9~, ENTNAM+11*, ENTNAM+13
ACRBEG	LOOP+3~, LOOP+6, LOOP+8, DLOOP+2~, DLOOP+11, DLOOP+18, DLOOP+20
ACRCNT	LOOP+3~, PRT+4, PRT+5, PRT+7, PRT+8, PRT+10*
ACRD0	LOOP+3~, LOOP+10, LOOP+11, LOOP+12, PRT~, PRT+13, PRT+15, PRT+20, PRT+24, PRT+25 , PRT+29
ACRDATA	PRT+3~, PRT+13*, PRT+14, PRT+16, PRT+19, PRT+21
ACRDATE	LOOP+3~, LOOP+8, LOOP+9, LOOP+11, PRT+3~, PRT+18*, PRT+31
ACRDATES	EN+2~, EN+11, EN+12, DQ+3, DQ+4, LOOP~, LOOP+6, LOOP+7, LOOP+12, PRT~ , PRT+6, PRT+9, HDR~, HDR+11, HDR+14, DATES~, DLOOP+3, DLOOP+20
ACREND	LOOP+3~, LOOP+7, LOOP+9, DLOOP+2~, DLOOP+17, DLOOP+18, DLOOP+20
ACRENT	PRT+3~, PRT+14*, PRT+37, HDR1+3~
ACRENTN	PRT+3~, PRT+15*, PRT+39
ACRFILE	EN+2~, EN+8, EN+9, DQ+3, DQ+4, LOOP~, LOOP+4, LOOP+12, PRT~, PRT+6 , PRT+9, PRT+12, HDR~, HDR+9, FILE~, FILE+4, FILE+10, ONE+2~, ONE+4, ONE+5 , ONE+6, DQ1+3, HDR1~, HDR1+10
ACRFLD	PRT+3~, PRT+19*, PRT+42
ACRFLDN	PRT+3~, PRT+20*, PRT+44
ACRMSG	LOOP+3~, LOOP+5, LOOP+13, LOOP+15
ACRNEW	PRT+3~, PRT+25*, PRT+50
ACROLD	PRT+3~, PRT+24*, PRT+47
ACROUT	LOOP+3~, LOOP+9, LOOP+11, LOOP+12, LOOP+14, PRT~, PRT+6, PRT+9, PRT+11, HDR~ , HDR+3, HDR+6, DQ1+3, HDR1~, HDR1+4, HDR1+7
ACRPAGE	DQ+2~, HDR+3, HDR+7, HDR+17, DQ1+2~, HDR1+4, HDR1+8, HDR1+12
ACRUSER	PRT+3~, PRT+21, PRT+23, PRT+34
C	ENTNAM+9~, ENTNAM+14*, ENTNAM+16
D0	ENTNAM~, ENTNAM+10, ENTNAM+12, FLDNAM~, FLDNAM+10, OLD~, OLD+10, NEW~, NEW+10
DA	ONE+2~, ONE+10*, DQ1+3, DQ1+4, DIQ~, HDR1~
DIA	LOOP+3~, LOOP+4, LOOP+9, LOOP+11, PRT+3~, PRT+12, PRT+13, PRT+15, PRT+20, PRT+24 , PRT+25, ENTNAM~, ENTNAM+10, ENTNAM+11, ENTNAM+12, ENTNAM+14, FLDNAM~, FLDNAM+10, OLD~, OLD+10 , NEW~, NEW+10
DIC	FILE+3~, FILE+5, ONE+2~, ONE+6, ONE+8, DQ1+4, ENTRY~, DIQ~
DIC(0	FILE+6, ENTRY+3
>> DIQ(0	DIQ+3*
DIR	LOOP+3~, HDR+2~, DLOOP+2~, HDR1+3~
DIR("?"	DLOOP+7, DLOOP+13
DIR("A"	DLOOP+6, DLOOP+12
DIR(0	LOOP+17, HDR+4, DLOOP+5, HDR1+5
DIRUT	DLOOP+2~, DLOOP+9, DLOOP+15
DTOUT	FILE+3~, FILE+8, DLOOP+2~, DLOOP+9, DLOOP+15
DUOUT	FILE+3~, FILE+8, DLOOP+2~, DLOOP+9, DLOOP+15
I	HDR+2~, HDR+19, TXT+2~, TXT+3, HDR1+3~, HDR1+14*
IOF	HDR+8, HDR1+9
IOM	HDR+10, HDR+17, HDR+19, HDR1+11, HDR1+12, HDR1+14
IOST	LOOP+17, PRT+5, PRT+8, HDR+3, HDR1+4
U	LOOP+4, LOOP+6, LOOP+7, PRT+12, PRT+14, PRT+16, PRT+19, PRT+21, HDR+9, HDR+11 , HDR+14, DLOOP+20, ENTNAM+13, ENTNAM+14, FLDNAM+10, HDR1+10
X	LOOP+3~, PRT+3~, HDR+2~, FILE+3~, DLOOP+2~, ENTNAM+9~, ENTNAM+12, ENTNAM+13, ENTNAM+15, ENTNAM+17* , ENTNAM+18, FLDNAM+9~, FLDNAM+13, FLDNAM+14, OLD+9~, OLD+10, OLD+11, NEW+9~, NEW+10, NEW+11 , TXT+2~, TXT+3, ONE+2~, HDR1+3~
Y	LOOP+3~, PRT+3~, PRT+16, PRT+18, HDR+2~, HDR+6, HDR+11, HDR+13, HDR+14, HDR+16 , FILE+3~, FILE+9, FILE+10, DLOOP+2~, DLOOP+10, DLOOP+11, DLOOP+16, DLOOP+17, ENTNAM+9~, ENTNAM+15 , ENTNAM+16, ENTNAM+17, FLDNAM+9~, ONE+2~, ONE+8, ONE+9, ONE+10, ENTRY~, HDR1+3~, HDR1+7
Y(	FLDNAM+10*, FLDNAM+12!
ZTSAVE	EN+2~, EN+16, ONE+2~, ONE+15
ZTSAVE("ACRDATES"	EN+14*
ZTSAVE("ACRFILE"	EN+15, ONE+14
ZTSAVE("DA"	ONE+13*
ZTSAVE("DIC"	ONE+12*

Marked Items

Name	Field # of Occurrence
$T(DESC+I	TXT+3

Customize PDF page

Package: Commitment Register

Routine: ACRFAUD

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items