Routine: DIKD1

Package	Total	Call Graph
VA Fileman	6	(CALLOUT,INIZE)^DIEFU $$DEC^DIKC2 (POPDA,PUSHDA,SBINFO)^DIKCU ($$VFLAG,$$VFLD)^DIKCU1 ERR^DIKCU2 $$CREF^DILF

Package

Total

Call Graph

(CALLOUT,INIZE)^DIEFU $$DEC^DIKC2 (POPDA,PUSHDA,SBINFO)^DIKCU ($$VFLAG,$$VFLD)^DIKCU1 ERR^DIKCU2 $$CREF^DILF

Package	Total	Caller Graph
VA Fileman	1	DIKD

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
QUIT	;Set flag to quit
END	;Move error message if necessary and quit
CHK	;Check input parameters
INIT	;Get xref info and subfile info
FIRE(DIFILE,DIROOT)	;Fire the kill logic
KILL(DIFIL,DIFLD,DIXR,DIFLG,DIKDMSG)	;Delete xref data

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Executing kill logic ..." Line Location: KILL+13
Function Call: WRITE	Prompt: !,"Removing index ..." Line Location: KILL+14

Name	Line Occurrences (* Changed, ! Killed)
^DD(	INIT+2, INIT+6, INIT+11
^DIC - [#1]	INIT+13

Name	Line Occurrences
CHK	KILL+7
END	KILL+7, KILL+8
FIRE	KILL+15, FIRE+20
INIT	KILL+8
QUIT	CHK+1, CHK+2, CHK+3, CHK+4, CHK+5, INIT+2, INIT+4, INIT+7, INIT+15

Name	Field # of Occurrence
DA	KILL+1~, FIRE+10, FIRE+16, FIRE+18, FIRE+19, FIRE+21
DICNT	FIRE+1~, FIRE+10, FIRE+12, FIRE+16, FIRE+17, FIRE+23, FIRE+25*, FIRE+26
DIDEC	KILL+1~, FIRE+13, INIT+14*, INIT+15
DIF	KILL+1~, KILL+6*, CHK+1, CHK+2, CHK+3, CHK+4, CHK+5
DIFIL	KILL~, FIRE+10, CHK+1, CHK+3, INIT+2, INIT+6, INIT+9, INIT+10, INIT+14
DIFILE	FIRE~, FIRE+5, FIRE+10, FIRE+16, FIRE+18, FIRE+20
DIFILR	KILL+1~, FIRE+5, INIT+3*
DIFLD	KILL~, CHK+2, CHK+3, INIT+2, INIT+6, INIT+14
DIFLG	KILL~, KILL+5*, KILL+6, KILL+7, KILL+11, CHK+5
DIFM	KILL+4~*
DIKDMSG	KILL~, END+1
DIKILL	KILL+1~, FIRE+13, INIT+6*, INIT+7
DILAST	FIRE+1~, FIRE+24, FIRE+25, FIRE+26
DIMF	KILL+1~, INIT+9, INIT+10
DIMF(	FIRE+16, FIRE+18, FIRE+20, INIT+11
DIMULTF	FIRE+1~, FIRE+16*, FIRE+18, FIRE+20
DINAM	KILL+1~, FIRE+5, FIRE+6, INIT+3*
DIQUIT	KILL+1~, KILL+7, KILL+8, CHK+3, QUIT+1*
DIROOT	KILL+1~, KILL+15, FIRE~, FIRE+6, FIRE+10, FIRE+16, FIRE+18, FIRE+23, FIRE+24, FIRE+26* , INIT+13*, INIT+15
DISBROOT	FIRE+1~, FIRE+18*, FIRE+20
DITOPF	KILL+1~, KILL+15, INIT+10, INIT+11, INIT+13
DITYP	KILL+1~, KILL+12, FIRE+5, INIT+3*, INIT+4
DIXR	KILL~, CHK+4, INIT+2, INIT+6
DIXR0	INIT+1~, INIT+2*, INIT+3
U	FIRE+26, INIT+3
X	FIRE+1~, FIRE+11~, FIRE+13

Information