Routine: DIKD

Information

DIKD ;SFISC/MKO-DELETE A CROSS REFERENCE ;11JUN2010

Source Information

Source file <DIKD.m>

Package	Total	Call Graph
VA FileMan	9	XA^DICATTA (CALLOUT,INIZE)^DIEFU EN2^DIEZ ^DIK ($$VFLAG,$$VFLD,$$VFNUM,FINFO)^DIKCU1 ERR^DIKCU2 KILL^DIKD1 EN2^DIKZ $$ROUSIZE^DILF

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

Package	Total	Caller Graph
VA FileMan	3	DDMOD DIKCR DIKD2

Entry Points

Name	Comments	DBIA/ICR reference
DELIX(DIFIL,DIFLD,DIXR,DIFLG,DIKDOUT,DIKDMSG)	;Delete traditional xref
DELIXX	;Come here from DELIX^DDMOD
END	;Move error message if necessary and quit
DELDEF(DIFIL,DIFLD,DIXR,DIFLG)	;Delete index definition
DIEZ(DIFIL,DIFLD,DIFLG,DIKDOUT,DIKTEML)	;Recompile input templates containing field
DIKZ(Y,DIFLG,DIKDOUT)	;Recompile xrefs
AUDIT	;Audit DD change
CHK	;Check input parameters
QUIT	;Set flag to quit

External References

Name	Field # of Occurrence
XA^DICATTA	AUDIT+3
CALLOUT^DIEFU	END+1
INIZE^DIEFU	DELIXX+4
EN2^DIEZ	DIEZ+8
^DIK	DELDEF+9
$$VFLAG^DIKCU1	CHK+17
$$VFLD^DIKCU1	CHK+4
$$VFNUM^DIKCU1	CHK+3
FINFO^DIKCU1	DELIXX+8
ERR^DIKCU2	CHK+1, CHK+2, CHK+7, CHK+10, CHK+15
KILL^DIKD1	DELIXX+11
EN2^DIKZ	DIKZ+5
$$ROUSIZE^DILF	DIEZ+2, DIKZ+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	DELDEF+2, DELDEF+3!, DELDEF+6*, DIKZ+3, CHK+10, CHK+13
^DIE - [#.402]	DIEZ+6!, DIEZ+7, DIEZ+10
^DIE("AF"	DIEZ+3, DIEZ+6!

Label References

Name	Line Occurrences
AUDIT	DELIXX+14
CHK	DELIXX+7
DELDEF	DELIXX+15
DIEZ	DELIXX+16
DIKZ	DELIXX+17
END	DELIXX+7
QUIT	CHK+1, CHK+2, CHK+3, CHK+4, CHK+7, CHK+10, CHK+15, CHK+17

Naked Globals

Name	Field # of Occurrence
^(	CHK+13
^("QUES"	DELDEF+3!
^(0	DIEZ+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	DELIXX+1~, AUDIT+1~
%D	AUDIT+1~
%T	AUDIT+1~
A0	AUDIT+1~
A1	AUDIT+1~
A2	AUDIT+1~
B0	AUDIT+1~
B1	AUDIT+1~
B2	AUDIT+1~
B3	AUDIT+1~
DA	DELDEF+1~, DELDEF+8*, AUDIT+1~
DA(1	DELDEF+8*
DA(2	DELDEF+8*
DDA	AUDIT+1~, AUDIT+2*
DIC	DELIXX+1~
DIERR	DIEZ+1~, DIEZ+4~, DIEZ+9, DIKZ+2~, DIKZ+6
DIEZMSG	DIEZ+4~
DIF	DELIXX+1~, DELIXX+6*, DELIXX+11, CHK+1, CHK+2, CHK+3, CHK+4, CHK+7, CHK+10, CHK+15 , CHK+17
DIFIL	DELIX~, DELIXX+8, DELIXX+11, DELIXX+15, DELIXX+16, DELDEF~, DELDEF+2, DELDEF+3, DELDEF+6, DELDEF+7 , DELDEF+8, DIEZ~, DIEZ+3, DIEZ+6, AUDIT+2, CHK+1, CHK+3, CHK+4, CHK+10, CHK+13
DIFINFO	DELIXX+1~, DELIXX+8, AUDIT+2
DIFINFO(0	DELIXX+17, AUDIT+2
DIFLD	DELIX~, DELIXX+11, DELIXX+15, DELIXX+16, DELDEF~, DELDEF+2, DELDEF+6, DELDEF+7, DELDEF+8, DIEZ~ , DIEZ+3, DIEZ+6, AUDIT+2, CHK+2, CHK+4, CHK+10, CHK+13
DIFLG	DELIX~, DELIXX+5*, DELIXX+6, DELIXX+7, DELIXX+11, DELIXX+15, DELIXX+16, DELIXX+17, DELDEF~, DELDEF+5 , DIEZ~, DIEZ+8, DIKZ~, DIKZ+5, CHK+17
DIFM	DELIXX+4~*
DIK	DELDEF+1~, DELDEF+7*
DIKDMSG	DELIX~, END+1
DIKDOUT	DELIX~, DELIXX+16, DELIXX+17, DIEZ~, DIEZ+9, DIEZ+10, DIKZ~, DIKZ+6, AUDIT+4
DIKTEML	DIEZ~
DIKTEML(	DIEZ+5*
DIKZMSG	DIKZ+2~
DIMAX	DIEZ+1~, DIEZ+2*
DIQUIT	DELIXX+1~, DELIXX+7, CHK+3, CHK+4, CHK+8, QUIT+1*
DIRNM	DIEZ+1~, DIEZ+7, DIEZ+8, DIEZ+10, DIKZ+2~, DIKZ+3, DIKZ+5, DIKZ+6
DITEM	DIEZ+1~, DIEZ+3*, DIEZ+5, DIEZ+6, DIEZ+7, DIEZ+8, DIEZ+10
DITYP	DELDEF+1~, DELDEF+2*, DELDEF+3
DIXR	DELIX~, DELIXX+11, DELIXX+15, DELDEF~, DELDEF+2, DELDEF+8, AUDIT+2, CHK+6, CHK+9, CHK+10 , CHK+13, CHK+14*
DL	AUDIT+1~, AUDIT+2*
DMAX	DIKZ+2~, DIKZ+4*
DQ	AUDIT+1~, AUDIT+2*
I	CHK+12~, CHK+13*
J	AUDIT+1~
J(	AUDIT+2*
J(0	AUDIT+2*
N	AUDIT+1~, AUDIT+2*
U	DELDEF+2, DIEZ+10, CHK+13
X	DELIXX+1~
XR	CHK+12~, CHK+13*, CHK+14
XR(	CHK+13*, CHK+14
Y	DELIXX+1~, DIKZ~, DIKZ+1, DIKZ+3, DIKZ+5

Customize PDF page

Package: VA FileMan