Routine: DIAUTL

Package	Total	Call Graph
VA FileMan	14	^%DT NOW^%DTC BLD^DIALOG P^DICATTA DT^DICRW ^DIE EN2^DIKZ $$FNO^DILIBF CLOSE^DIO4 EN1^DIP $$ROOT^DIQGU ^DIR IN^DIU0 ($$DATE,IJ)^DIUTL
Kernel	1	^%ZIS

Package	Total	Caller Graph
Registration	9	DG1071P DG53726A DG712PST DG737PRE DG837PST DG876PST DG902PST DG944PST DGNDSU
Scheduling	6	SDB SDES2REACTTCLIN SDES2REACTTCLIN2 SDESREACTVTCLIN SDNACT SDREACT
Lab Service	4	LR425 LRJSAU LRJSAU60 LRJSMLA1
VA FileMan	4	DIAU DINIT220 DIQG DIQGQ
PCE Patient Care Encounter	3	PXKMAIN PXVRPC4 PXVRPC8
DSS Extracts	2	ECXPHVE ECXPROEE
Kernel	2	XU8P799 XUS8P788
MailMan	1	XM8P52

Entry Points

Name	Comments	DBIA/ICR reference
TURNONDD(DIFILE,DIMODE)	;Turn on DATA DICTIONARY AUDITING --THIS IS NOW A NO-OP, BECAUSE WE AUDIT ALL DD CHANGES IN FILE .6!!!!
DISP(DDB)	;DISPLAY DD CHANGES FROM ^DDA SINCE DATE 'DDB'
DISP1	;CALLED FROM ^UTILITY($J,1) TO HOLD LONG PRINTOUT FROM A SINGLE FILE'S DATA DICTIONARY AUDIT
DDHD
TURNON(DIFILE,FLDS,DIMODE,DICOND)	;Turn on AUDITING
ON
CHANGED(FILE,FLDS,FLAGS,ARRAY,START,END)	;
FIRST(DIQGR,ENTRY,FLDS)	;
LAST(DIQGR,ENTRY,FLDS)	;returns DATE^USER who most recently touched any of the FLDS in ENTRY in File DIQGR
LOF
E
DATE(FILE,FIELD)	;
USER(FILE,FIELD)	;
VALUE(FILE,FIELD,TU)	;FILE' can be SubFile
PRIOR(FILE,ENTRY,FIELD,OUT)	;
FLDSINC(DIQGR,DR,DIAUTLF)	;is DIAUTLF within DR? -- from 'DIQGQ' routine
NOGOT
RANGE
GOT
DD(X)
202
GET(FIL,DA,DATE,TMP,FIELD)	;BUILD 'TMP' ARRAY AS OF DATE
SUBFILES
L
Q
DIA(DAT,FILE,X,DIAUTLEX)	;FROM DIQG AND DIQGQ
D(ON)
DDAUDIT(B0,DA,A0,A1,A2)	;B0=File or SubFile, DA=Field, A0=Attribute #, A1=Old value, A2=New value

External References

Name	Field # of Occurrence
^%DT	D+2
NOW^%DTC	CHANGED+8
^%ZIS	DISP+2
BLD^DIALOG	TURNONDD+2, TURNONDD+4, TURNON+5, 202
P^DICATTA	DDAUDIT+6
DT^DICRW	TURNON+7
^DIE	TURNON+12, ON+7
EN2^DIKZ	ON+9
$$FNO^DILIBF	GET+4
CLOSE^DIO4	DISP+9
EN1^DIP	DISP+7
$$ROOT^DIQGU	FLDSINC+7
^DIR	DISP+8
IN^DIU0	ON+8
$$DATE^DIUTL	DDHD
IJ^DIUTL	DDAUDIT+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: DISP+4
Function Call: WRITE	Prompt: ! Line Location: DISP+8
Function Call: WRITE	Prompt: @IOF Line Location: DISP+9
Function Call: READ	Variable: Y Timeout: DTIME Line Location: DISP1+1
Function Call: WRITE	Prompt: $C(7) Line Location: DISP1+1
Function Call: WRITE	Prompt: # Condition for execution: $Y Line Location: DISP1+1
Function Call: WRITE	Prompt: DDHD,! Line Location: DDHD+1
Function Call: WRITE	Prompt: "FIELD ATTRIBUTE USER NUMBER",! Line Location: DDHD+2
Function Call: WRITE	Prompt: "------------------------------------------------------------------------------",! Line Location: DDHD+3
Routine Call	DIALOG Line Location: TURNONDD+2 TURNONDD+4 TURNON+5 202
Routine Call	DIE Line Location: TURNON+12 ON+7
Routine Call	DIR Line Location: DISP+8
Routine Call	%ZIS Line Location: DISP+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	TURNONDD+5*, TURNON+14, ON+1, ON+9, LOF+3, VALUE+3, RANGE, DD, L+2
^DD(0	DDAUDIT+4
^DDA - [#.6]	DISP+3
^DIA - [#1.1]	CHANGED+9, CHANGED+10, CHANGED+11, CHANGED+15, LOF+6, E, E+1, VALUE+5, PRIOR+2, GET+5 , SUBFILES, SUBFILES+1, L, L+3, D
^DIC - [#1]	TURNONDD+4, DDHD, CHANGED+6

Label References

Name	Line Occurrences
$$D	DIA+4, DIA+5
$$DD	FLDSINC+7
$$FLDSINC	TURNON+14, CHANGED+13, E
202	FLDSINC+5, FLDSINC+7
DDAUDIT	ON+8
DDHD	DISP+4
E	LOF+4, LOF+6
GOT	FLDSINC+8
L	GET+5, SUBFILES+1
LOF	FIRST+1
ON	TURNON+9, TURNON+14
PRIOR	VALUE+4
Q	GET+5, L+2
RANGE	FLDSINC+8
TURNON	ON+3
VALUE	DATE+1, USER+1

Naked Globals

Name	Field # of Occurrence
^(	RANGE+1, D+1
^("DIK"	ON+9
^("UP"	VALUE+3
^(0	ON+2, E+2, L+1, L+2
^(2	PRIOR+2
^(4.1	E+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	CHANGED+8, DDAUDIT+1~
%D	DDAUDIT+1~
%DT	D+2~*
%I	CHANGED+3~
%T	DDAUDIT+1~
A0	DDAUDIT~, DDAUDIT+4*
A1	DDAUDIT~, DDAUDIT+5!
A2	DDAUDIT~, DDAUDIT+5
ARRAY	CHANGED~, CHANGED+4, CHANGED+12, CHANGED+15
B	GET+3~
B0	DDAUDIT~, DDAUDIT+3
B3	DDAUDIT+1~
BY	DISP+1~, DISP+5*
C	GET+3~, L+2*
D	TURNON+3~, ON+2, ON+3, CHANGED+3~, CHANGED+10, CHANGED+11, CHANGED+15, VALUE+5, GET+3~, GET+4 , GET+5, SUBFILES*, SUBFILES+1, L, L+2
D0	TURNON+3~, VALUE+2
DA	TURNON+3~, TURNON+11, ON+4, ON+5, FLDSINC+7, GET~, GET+4, DDAUDIT~
DA(1	TURNON+11, ON+4
DAT	GET+3~, L+1*, L+3, L+5, L+6, L+7, DIA~, DIA+4
DATE	GET~, L+3, L+6
>> DC	DISP1+1, DISP1+2*
DDA	DDAUDIT+1~
DDB	DISP~, DISP+3, DDHD
DDHD	DISP+1~, DDHD*, DDHD+1
DDIO	DISP+1~, DISP+2*
DDIOST	DISP+1~, DISP+2*, DISP+8, DISP1+1
DDTOUT	DISP+1~, DISP+3, DISP+8, DISP1+1
DENTRY	LOF~, LOF+1, LOF+3, LOF+5, LOF+6, E
DHD	DISP+1~
DI	TURNON+3~
DIA	DISP+1~, DISP+3*, DISP+5, DDHD
DIACMP	VALUE+1~, VALUE+4
DIACMP(	VALUE+5
DIAUGOT	FLDSINC+3~, FLDSINC+4, FLDSINC+8, RANGE+2, RANGE+4*
DIAUTLEX	DIA~, D
DIAUTLF	FLDSINC~, FLDSINC+1, RANGE+3
DIC	DISP+1~, DISP+5*, TURNON+3~
>> DICMX	VALUE+5
DICOND	TURNON~, TURNON+8, TURNON+11
DIE	TURNON+3~, TURNON+11, ON+4
DIEZS	TURNON+3~, TURNON+6*
DIFIELD	TURNON+3~, TURNON+9, TURNON+11, TURNON+14, ON+1, ON+4, ON+8
DIFILE	TURNONDD~, TURNONDD+3, TURNONDD+4, TURNONDD+5, TURNON~, TURNON+6, TURNON+11, TURNON+14, ON+1, ON+4 , ON+8, ON+9
DIFIXPT	DISP+1~*
DIFIXPTH	DISP+1~
DILAST	LOF~, LOF+1, LOF+7, E, E+3, E+4*
DIMODE	TURNONDD~, TURNONDD+1!, TURNONDD+2, TURNONDD+5, TURNON~, TURNON+4!, TURNON+5, TURNON+10, ON+1, ON+3 , ON+4, ON+5, ON+6, ON+8
DIOBEG	DISP+1~, DISP+6*
DIOEND	DISP+1~, DISP+6*
DIOLD	ON~, ON+1*, ON+8
DIOSL	DISP+1~, DISP+6*
DIQGCP	FLDSINC+3~, FLDSINC+4*
DIQGDD	FLDSINC+3~, FLDSINC+4*, FLDSINC+7
DIQGR	FIRST~, LAST~, LOF+3, LOF+6, E, E+1, FLDSINC~, FLDSINC+5, FLDSINC+6, FLDSINC+7*
DIQGXDC	FLDSINC+3~, FLDSINC+4*, RANGE
DIQGXDD	FLDSINC+3~, FLDSINC+6*, RANGE+1
DIQGXDF	FLDSINC+3~, FLDSINC+8*, RANGE+3
DIQGXDI	FLDSINC+3~, FLDSINC+8*
DIQGXDN	FLDSINC+3~, FLDSINC+8, RANGE, RANGE+1*, RANGE+2, RANGE+3
DIQUIET	TURNON+3~, TURNON+6*
DIR	DISP+8~
DIR(0	DISP+8*
DIRUT	DISP+8~
>> DN	DISP1+1*
DQ	TURNON+3~
DR	TURNON+3~, TURNON+11, ON+4, ON+6*, FLDSINC~, FLDSINC+1, FLDSINC+2, FLDSINC+8, RANGE
DT	DISP+5, DDAUDIT+2
DTIME	DISP1+1
DUZ	DDAUDIT+2
E	CHANGED+3~, CHANGED+11, CHANGED+12, CHANGED+13, CHANGED+15, LOF~, E, E+1, PRIOR+1~, PRIOR+2* , GET+3~, GET+5, SUBFILES, SUBFILES+1*, L, L+3, L+5, L+7
END	CHANGED~, CHANGED+8*, CHANGED+9
ENTRY	FIRST~, LAST~, LOF+1, LOF+2, LOF+3, LOF+5, LOF+6, E, VALUE+1~, VALUE+2* , VALUE+3*, VALUE+4, PRIOR~, PRIOR+2
F	CHANGED+3~, CHANGED+13, CHANGED+15, LOF~, LOF+3, VALUE+3, GET+3~, GET+4, GET+5, L+1* , L+2*, L+3, L+4, L+5, L+7
FIELD	DATE~, DATE+1, USER~, USER+1, VALUE~, VALUE+3*, VALUE+4, PRIOR~, PRIOR+2, GET~ , L+4
FIL	GET~, GET+4, L+4
FILE	CHANGED~, CHANGED+6, CHANGED+9, CHANGED+10, CHANGED+11, CHANGED+13, CHANGED+15, DATE~, DATE+1, USER~ , USER+1, VALUE~, VALUE+3, VALUE+4, VALUE+5, PRIOR~, PRIOR+2, GET+3~, GET+4, GET+5 , SUBFILES, SUBFILES+1, L, L+1, L+3, DIA~, D
FLAGS	CHANGED~, CHANGED+5*, CHANGED+12, CHANGED+14, CHANGED+15
FLD	GET+3~, L+1, L+2, L+3, L+4, L+5, L+7
FLDS	DISP+5*, TURNON~, TURNON+8, TURNON+9, TURNON+14, CHANGED~, CHANGED+13, FIRST~, LAST~, E
FR	DISP+1~, DISP+3*
GLO	CHANGED+3~, CHANGED+6*, CHANGED+14
I	VALUE+1~, VALUE+3, L+1, L+2*, L+3, L+5, L+7, DDAUDIT+1~
IO	DISP+2, DISP+4, DISP+9
IOF	DISP+4, DISP+9
ION	DISP+2
IOSL	DISP+6
IOST	DISP+2
J	DDAUDIT+1~
L	DISP+1~, DISP+5, LOF~, E+2, E+3, E+4
LOF	FIRST+1~, LAST+1~, E, E+3, E+4
ON	D~, D+1
OUT	PRIOR~
OUT(	PRIOR+2*
POP	DISP+1~, DISP+2
S	D+1~, D+3
START	CHANGED~, CHANGED+7*, CHANGED+9
T	CHANGED+3~, CHANGED+9, CHANGED+10, GET+3~, L+2
TMP	GET~, GET+2, GET+4, GET+5, L+3, L+5, L+7
TO	DISP+1~, DISP+5*
TU	VALUE~, VALUE+5
U	DDHD, ON+2, CHANGED+11, CHANGED+13, E, E+1, E+2, VALUE+5, PRIOR+2, L , L+1, L+2, L+3, L+5, L+7, D, D+3, DDAUDIT+4
X	TURNON+3~, VALUE+5, VALUE+6, FLDSINC+5~, FLDSINC+7~, DD~, 202, DIA~, DIA+4, D* , D+1, D+4
X(1	FLDSINC+5, FLDSINC+7
Y	DISP1+1*, D+1~

Customize PDF page

Package: VA FileMan

Routine: DIAUTL

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 31

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: