Routine: DITR1

Package	Total	Call Graph
VA Fileman	4	$$FIND1^DIC OS^DII ^DIK $$IENS^DILF

Package	Total	Caller Graph
VA Fileman	2	DIT3 DITR

Entry Points

External References

Name	Field # of Occurrence
$$FIND1^DIC	MATCHKEY+14
OS^DII	DITR1+19
^DIK	REPLACE+6
$$IENS^DILF	MATCHKEY+13

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	DITR1+6, DITR1+9, DITR1+10, DITR1+12, DITR1+15, MATCH, I+1, I2, I3+4, P , MATCHKEY+5, MATCHKEY+6, SUBLN+3, SUBLN+9, SUBLN+10
^DD("IX" - [#.11]	MATCHKEY+12, SUBLN+2, SUBLN+6, SUBLN+7
^DD("KEY" - [#.31]	DITR1+7, MATCHKEY+4, MATCHKEY+12
^DD("OS" - [#.7]	DITR1+22
^UTILITY("DITR"	I3+2

Label References

Name	Line Occurrences
$$SUBLN	DITR1+21
ADD	DINUM+1, HAS001+2
B	B+3
DA	DITR1+11, DA, MATCHKEY+13
DINUM	DITR1+10, DITR1+14
HAS001	DITR1+15
I2	I+1
I3	MATCHKEY+8
MATCH	B, B+2, DINUM+3, HAS001+5
MATCHKEY	DITR1+8
NEW	DITR1+18, B, B+1
OLD	DITR1+17, B, B+2, DINUM+2, DINUM+4, HAS001+3, HAS001+6, ON
ON	DITR1+6, ON
P	I2+1, I3+5
Q	DITR1+6, ADD
REPLACE	OLD
WORD	DITR1+6

Naked Globals

Name	Field # of Occurrence
^(	B, B+1, ADD*, I3+2, P+3, P+4, SUBLN+9
^(0	B, B+2, ADD*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	DITR1+4, DA, I3+1, I3+2, I3+3, I3+4, P+1, P+3, P+6, MATCHKEY+2~ , MATCHKEY+6, MATCHKEY+8, MATCHKEY+13, REPLACE+5~
A	DITR1+4, DITR1+8, DITR1+13, B, B+2, DINUM, DINUM+2, DINUM+3, HAS001+1, HAS001+3* , HAS001+4, HAS001+5, OLD+1, MATCH, I+3!, I3+1, I3+2, P, P+1, MATCHKEY~ , MATCHKEY+8~, MATCHKEY+10, MATCHKEY+12, MATCHKEY+15, MATCHKEY+17*, REPLACE+5~
B	I2+1!, I2+2, I3+6, P+2, MATCHKEY+2~, MATCHKEY+6, REPLACE+5~
D0	DITR1+11, MATCHKEY+13, REPLACE+5~
>> D1	MATCHKEY+13
DA	DITR1+11, DITR1+13, MATCHKEY+11~, MATCHKEY+13, REPLACE+1~, REPLACE+4
DA(	DA*
DDF	REPLACE+5~
DDF(	I3+2, I3+4
DDT	REPLACE+5~
DDT(	DITR1+4, DITR1+6, DITR1+7, DITR1+9, DITR1+10, DITR1+12, DITR1+15, DITR1+21, WORD, MATCH , I+1, I2, MATCHKEY+5, MATCHKEY+14
DFL	DITR1+4, WORD+1*, I3+2, I3+4, I3+7, P+2, MATCHKEY+13, REPLACE+5~
DFR	DITR1+11, MATCHKEY+13, REPLACE+5~
DFR(	WORD+1, P+2
DFR(1	P+2
DIENS	MATCHKEY+2~, MATCHKEY+11~, MATCHKEY+13*, MATCHKEY+14
DIERR	MATCHKEY+2~, MATCHKEY+11~, MATCHKEY+15
DIFILE	SUBLN~, SUBLN+2, SUBLN+3, SUBLN+6, SUBLN+9, SUBLN+10
DIFL	MATCH+1~, I2, I3+4, P, MATCHKEY+2~, MATCHKEY+4*, MATCHKEY+5, MATCHKEY+6, MATCHKEY+8~
>> DIFRDKP	DITR1+4, ADD, WORD
>> DIFRDKPD	OLD, REPLACE+7*
>> DIFRDKPR	OLD
>> DIFRDKPS	REPLACE+3
>> DIFRFILE	DITR1+4, WORD, REPLACE+3
>> DIFRNOAD	DITR1+4*, ADD
>> DIFROOT	REPLACE+1, REPLACE+4, REPLACE+7*
>> DIFRSA	DITR1+4, WORD, REPLACE+2, REPLACE+3
DIK	REPLACE+1~, REPLACE+4*
DIKEY	DITR1+7~*, DITR1+8, DITR1+16, DINUM, DINUM+2, HAS001+1, HAS001+3, I2, I3+4, I3+5 , I3+6, P+5, MATCHKEY~, MATCHKEY+4, MATCHKEY+12
DIMATCH	DITR1+5~, DITR1+8, OLD, I+3, MATCHKEY~, MATCHKEY+16*
DINUM	DITR1+9!, DITR1+13, DITR1+14!, REPLACE+5~
DIOUT	MATCH+1~, I, I+1, I+2, I2, I3+4, I3+5, I3+7, MATCHKEY+2~, MATCHKEY+3 , MATCHKEY+4, MATCHKEY+5, MATCHKEY+7, MATCHKEY+10
DIREC	MATCH+1~, I2, I3+4, P, MATCHKEY+2~, MATCHKEY+4*, MATCHKEY+5, MATCHKEY+6, MATCHKEY+8~
DISAV0	REPLACE+1~*, REPLACE+7
DISUBLN	DITR1+20~, DITR1+21, B, SUBLN+1~, SUBLN+7, SUBLN+8, SUBLN+10, SUBLN+11
DISUBMX	DITR1+20~, DITR1+22*
>> DISYS	DITR1+19, DITR1+22
>> DITRCNT	ON*
DIVAL	MATCHKEY+2~, MATCHKEY+14
DIVAL(	MATCHKEY+9*
DIWHEREB	SUBLN+1~, SUBLN+2, SUBLN+3*, SUBLN+4, SUBLN+5, SUBLN+6, SUBLN+7, SUBLN+9
DIZERO	HAS001+4~*
>> DKP	WORD+1
>> DMRG	DITR1+4
DTL	DITR1+4, DITR1+6, DITR1+7, DITR1+9, DITR1+10, DITR1+12, DITR1+15, DITR1+21, B, B+1 , B+2, DINUM+1, HAS001+2, HAS001+4, ON, ADD, OLD, OLD+1, WORD, WORD+1* , MATCH, I+1, I2, P+2, MATCHKEY+5, MATCHKEY+14, REPLACE+3, REPLACE+5~
DTN	REPLACE+5~
DTN(	OLD+1*
DTO	I3+1, REPLACE+5~
DTO(	B, B+1, B+2, DINUM+1, HAS001+2, HAS001+4, ON, ADD, OLD+1*, WORD+1 , P+2, REPLACE+3
I	MATCH+1, I+1, I2, I3+3, MATCHKEY+6, REPLACE+5~, SUBLN+1~, SUBLN+6, SUBLN+7, SUBLN+9* , SUBLN+10*
KEYN	MATCHKEY+11~, MATCHKEY+12*
S	MATCHKEY+2~, MATCHKEY+3, MATCHKEY+4, MATCHKEY+9
U	DITR1+4, DITR1+6, DITR1+10, DITR1+12, DITR1+22, B, HAS001+4, ADD, I3+1, P , P+3, MATCHKEY+6, MATCHKEY+12, REPLACE+1, REPLACE+7, SUBLN+7, SUBLN+9
V	DITR1+7, DITR1+8, DITR1+11, DITR1+13, DITR1+17, DITR1+19, B, B+1, B+2, DINUM , DINUM+2, DINUM+3, HAS001+1, HAS001+3, HAS001+4, ADD, WORD+1, MATCH, MATCH+1, MATCHKEY~ , MATCHKEY+14, MATCHKEY+16
W	DITR1+4, DITR1+6, NEW, ON, I2+1, I2+2, I3+5, I3+6, P+1, P+2 , P+3, P+4, P+6, MATCHKEY+2~, MATCHKEY+6, MATCHKEY+7, MATCHKEY+9, REPLACE+5~
X	DITR1+4, DITR1+6, DITR1+11, DITR1+13, B, B+2, HAS001+4, ADD, REPLACE+5~
Y	DITR1+4, DITR1+11, DITR1+13, DITR1+14, DITR1+17, DA, DINUM, DINUM+2, DINUM+3, HAS001+1 , HAS001+3, HAS001+4, ON, ADD, OLD+1, MATCH, MATCH+1, I3+7, MATCHKEY+2~, MATCHKEY+13 , REPLACE+3, REPLACE+4, REPLACE+5~
Z	DITR1+4, REPLACE+5~

Customize PDF page

Package: VA Fileman

Routine: DITR1

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
ON
B
OLD
MATCHKEY(DIKEY,V,A,DIMATCH)	; Match Primary Key fields ; DIKEY=IEN of Primary Key, V=IEN of matching record on target file, A set to 1 if errors are encountered.
I
DINUM
I2
DA
Q
P
ADD
WORD
SUBLN(DIFILE)	; Return maximum subscript length for "B" index.
NEW
REPLACE	;
I3	; Entry point for initial matching on KEY values
MATCH
HAS001	; If file has .001 field, .01 and Identifiers/Keys must match