Routine: DIK1

Package	Total	Call Graph
VA Fileman	4	STORLIST^%RCR ADD^DIET INDEX^DIKC S^DIQ

Package	Total	Caller Graph
Contract Health Management Information System	4	ACHSCR1 ACHSCR11 ACHSCR14 ACHSCR4
Patient Care Component	3	APCDKUL APCDKULD APCDVM2
VA Fileman	3	DICD DIK DIU1
Registration	2	DGPMXX1 DGPMXX2
IHS Generic Interface System	1	INHPCO2
IHS Patient	1	AUPNVSIT
IHS VA Utilities	1	XBRXREF
Utilities	1	AURXREF

Entry Points

External References

Name	Field # of Occurrence
STORLIST^%RCR	RCR+1
ADD^DIET	AUDIT+4
INDEX^DIKC	EN+3
S^DIQ	SET

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "." Line Location: C+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	IDENTF!, AUDIT+1, AUDIT+3, SET
^DIA - [#1.1]	AUDIT+4*
^UTILITY("DIK"	Q!, DIN, DVA, DA+1, R, XEC, RCR+1, C, KW+2

Label References

Name	Line Occurrences
3	EN+5
C	C+2
DI	EN, 1+2, C+2
DIN	DA
DVA	DVA+1, DA+2
K	EN+4
KW	DA+1, C
NXEC	XEC, AUDIT+3
Q	EN+4, 1+2, C
R	DIN, DVA
XEC	XEC

Naked Globals

Name	Field # of Occurrence
^(	3+1, 3+2, R, XEC, SET+1*, C+2
^(" "	C+1
^("%"	K+2!
^("AX"	AUDIT+3
^("GL"	K
^("UP"	AUDIT+1
^("W"	IDENTF!
^(0	EN+5, EN+6, K+2!, C, C+1
^(3	SET*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	R, R+1, RCR, AUDIT~, AUDIT+1, AUDIT+2*
%D	AUDIT~, AUDIT+1*, AUDIT+4
%F	AUDIT~, AUDIT+1, AUDIT+4, SET, SET+1
%RCR	RCR!, RCR+1*
%RCR(	RCR*
%T	AUDIT~, AUDIT+4
C	SET~*
>> DA	EN+3, EN+5, IDENTF, K, DVA+1, DVA+3, DA, DA+2, R, AUDIT+4 , SET, 1+2, CNT+1, C+2*
>> DA(	DI, DVA+2, DA+2!, AUDIT+2
>> DA(1	IDENTF, DVA+3*, DA+2!
>> DB(0	Q+1!, C+2!
DCNT	C!, C+1, C+2
DH	EN+5, EN+6, Q+1!, K+2, K+3, DI, DIN, DVA, DVA+1, DVA+2 , DA+1, DA+2*, R, XEC, NXEC+3~, RCR+1, AUDIT+1, AUDIT+3, AUDIT+4, SET
DH(	DI, DVA+2*, DA, DA+2
DH(1	C
DIAU	SET+1!
DIAU(	AUDIT+4*, SET
DIC	EN~, DI*
DICODE	NXEC~, NXEC+1, NXEC+2, NXEC+4
DIFKEP	EN+2~, NXEC+3~
DIFKEP(	K
>> DIIX	AUDIT, SET, SET+1
DIK	EN+2~, EN+4, IDENTF, K, K+1, K+2, DI, NXEC+3~, 1+2, CNT+2 , C*
DIKDA	AUDIT~, AUDIT+2*, AUDIT+4, SET
DIKF	AUDIT~, AUDIT+2*, AUDIT+4
DIKGP	Q+1!
DIKJ	EN+2~, Q, Q+1!, DIN, DVA, DA+1, R, XEC, NXEC+3~, RCR+1 , C, KW+2
>> DIKKS	AUDIT, SET
DIKLAST	CNT+1~, C+2
DIKLK	1+1~, 1+2!, CNT+1~, CNT+2!, C
>> DIKNM	AUDIT, SET
DIKS	Q+1!, R+1*, XEC, NXEC+3~
DIKSET	DIN, DVA, NXEC+3~
DIKSV	EN+2~*, EN+3
DIN	Q+1!, DI, DVA+1, DVA+2, DA, DA+1, DA+2*, R, NXEC+3~, KW~ , KW+2
DU	Q+1!, DI, DVA+2, DA, DA+2, NXEC+3~, CNT+2, C+2*
DU(	DVA+2*, DA+2
DUZ	AUDIT+4
DV	Q+1!, DI, DIN, DVA, DVA+1, DVA+2, DA, DA+2, R, XEC , NXEC+3~, RCR+1, AUDIT~*, AUDIT+3, AUDIT+4, SET
DV(	DVA, DVA+1, DVA+2, DA, DA+2, AUDIT+1, AUDIT+2
DW	Q+1!, R+1, XEC, NXEC+2, NXEC+3~, RCR+1
FIL	KW~, KW+2
IO	C+3
IO(0	C+3
KW	NXEC+3~
NAM	KW+1~, KW+2*
U	EN+5, EN+6, AUDIT+4, SET, SET+1, C, C+1, C+2
X	EN+5, EN+6, K, K+1!, K+2, K+3!, 3+1, 3+2, DVA+1, DVA+2* , DA+2, R, R+1, XEC*, SET, SET+1
X1	3~, 3+1*, 3+2
Y	EN+5, EN+6, K, K+1!, K+2, K+3!, RCR!, RCR+1, RR, AUDIT+4 , SET*
>> ZTQUEUED	C+4

Customize PDF page

Package: VA Fileman

Routine: DIK1

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 16

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
AUDIT
1	;
DIN
EN
RR
DI
C
KW(FIL,DIN)	;Kill entire regular indexes
K
XEC
DVA
3
RCR
DA
Q
IDENTF
R
NXEC(DICODE)	;New variables and execute programming hook
SET
CNT	;