Routine: DIT1

Package	Total	Call Graph
VA Fileman	7	%XY^%RCR (BLD,MSG)^DIALOG WAIT^DICD $$NXTNO^DICLIB YN^DICN (IX1,IXALL)^DIK ^DIT2

Package	Total	Caller Graph
VA Fileman	2	DIT DIT2

Entry Points

External References

Name	Field # of Occurrence
%XY^%RCR	CHK+2
BLD^DIALOG	ERR+4
MSG^DIALOG	ERR+4
WAIT^DICD	CHK+3
$$NXTNO^DICLIB	IXKEY+10, IXKEY+21
YN^DICN	CHK+5
IX1^DIK	IXKEY+14, IXKEY+25
IXALL^DIK	CHK+7, ID+3
^DIT2	CHK+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: DIT1+3
Function Call: WRITE	Prompt: $P(^DD(A,0),U)_" WOULD COLLIDE WITH "_X,$C(7),! Line Location: CHK+1
Function Call: WRITE	Prompt: !,"DO YOU WANT TO COPY '",$P(Y,U,2),"'S TEMPLATES INTO YOUR NEW FILE" Line Location: CHK+5
Function Call: WRITE	Prompt: ! Line Location: CHK+5
Function Call: WRITE	Prompt: ! Line Location: DD+0
Function Call: WRITE	Prompt: "." Line Location: ID+1
Function Call: WRITE	Prompt: $C(7),"FILE #"_+Y_" SHOULD ONLY BE TRANSFERRED TO A FILE WHOSE NUMBER",!?8,"ALSO "_$S(Y#1:"ENDS WITH '"_(Y#1)_"'",1:"IS INTEGER") Line Location: P+0
Routine Call	DIALOG Line Location: ERR+4
Routine Call	DIALOG Line Location: ERR+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	CHK, CHK+1, GO!, DD, DD+1, ID, ID+1, MOVEFLD, MOVEFLD+3, MOVEFLD+4* , MOVEFLD+5, MOVEFLD+6, MULFLD+2*
^DD("IX" - [#.11]	IXKEY+7, IXKEY+8, IXKEY+9, IXKEY+11*, IXKEY+12!
^DD("KEY" - [#.31]	IXKEY+18, IXKEY+19, IXKEY+20, IXKEY+22*, IXKEY+23!
^DIC - [#1]	CHK+1
^UTILITY("DITR"	CHK+3*, CHK+5, GO!

Label References

Name	Line Occurrences
$$DITRPL	MOVEFLD+3, MOVEFLD+6
$$REPLACE	DITRPL, Y+2
ADJ	IXKEY+13, IXKEY+24
CHK	CHK+1
D	N+1, DITRPL
DD	ID+4
ERR	IXKEY+9, IXKEY+20
ID	ID
IXKEY	ID+2
MOVEFLD	ID+1
N	N, N+2, N+3
P	CHK+1
Y	MOVEFLD+5

Naked Globals

Name	Field # of Occurrence
^(	CHK+1, CHK+3, GO!, DD*, ID, MOVEFLD+6, N+1
^("B"	IXKEY+12!
^("BB"	IXKEY+12!, IXKEY+23!
^("IX"	GO!
^("RQ"	GO!
^("S"	IXKEY+23!
^("UP"	DD+1
^(0	CHK+1, CHK+3, GO!, DD

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	CHK+5, REPLACE+1~, REPLACE+3*
%A	ID+3!, MOVEFLD, N, N+1, N+2, N+3*
%B	ID+3!, MULFLD+2, N, N+1, N+3*
%C	ID+3!
>> %X	CHK+2, CHK+7
>> %Y	CHK+2, CHK+7
%Z	ID+3!, MOVEFLD, N, N+3*
A	DIT1+3!, CHK, CHK+1!, CHK+2, CHK+3, CHK+4*, ID, MULFLD+1, D, IXKEY+2~ , P!
A(	CHK*, CHK+1!
A(0	CHK+1
B	CHK+1, DD, IXKEY+2~
C	REPLACE+1~, REPLACE+2*, REPLACE+3
>> D	MOVEFLD, MOVEFLD+1, MOVEFLD+3, MULFLD
>> DA	IXKEY+14, IXKEY+25
>> DA(1	ID+3*
>> DHIT	CHK, CHK+1, DD+1, MULFLD
DIER	ERR+2~
DIF	ADJ+5~, ADJ+6*, ADJ+7
DIFRD0	IXKEY+3~, IXKEY+8, IXKEY+11, IXKEY+19, IXKEY+22
DIFRGBL	IXKEY~, IXKEY+4, IXKEY+5, IXKEY+13, IXKEY+24, ADJ+3
DIFRN	IXKEY~, IXKEY+7, IXKEY+8, IXKEY+13, IXKEY+18, IXKEY+19, IXKEY+24, ADJ+5
DIFRN(	ADJ+6
DIFRN(""	IXKEY+5
DIFRNAME	IXKEY+3~, IXKEY+7, IXKEY+8, IXKEY+9, IXKEY+17, IXKEY+18, IXKEY+19, IXKEY+20, ERR~, ERR+3
DIFRPRT	IXKEY+3~, IXKEY+5*, ADJ+8
DIG	IXKEY+3~, IXKEY+13, IXKEY+24, ADJ+1*, ADJ+2, ADJ+10
>> DIK	CHK+7, ID+3, IXKEY+14, IXKEY+25
DIL1	IXKEY+3~, IXKEY+4*, ADJ+4, ADJ+8
DIL2	IXKEY+3~, ADJ+6*, ADJ+9
DIL3	IXKEY+3~, IXKEY+5*, ADJ+8
DIPAR	ERR+2~, ERR+4
DIPAR(1	ERR+2*
DIPAR(2	ERR+3*
DIPAR(3	ERR+3*
DIT	ADJ+5~, ADJ+6*, ADJ+9
DITN	MOVEFLD+2~, MOVEFLD+5, MOVEFLD+6
DITOD0	IXKEY+3~, IXKEY+9, IXKEY+10, IXKEY+11, IXKEY+12, IXKEY+13, IXKEY+14, IXKEY+20, IXKEY+21, IXKEY+22 , IXKEY+23, IXKEY+24, IXKEY+25, ADJ+1
DITOGBL	IXKEY~, IXKEY+13, IXKEY+24, ADJ+3, ADJ+4
DITON	IXKEY~, IXKEY+9, IXKEY+13, IXKEY+20, IXKEY+24, ADJ+5, ERR~, ERR+3
DITYPE	ERR~, ERR+2
>> DLAYGO	GO
>> DTO	GO+1, ID+2
>> DTO(0	GO+1
E	DIT1+3, CHK+6, GO!, IXKEY+2~
F	ID+2, IXKEY+2~
I	IXKEY+3~, ADJ+2, ADJ+3, ADJ+4, ADJ+6, ADJ+7, ADJ+8, ADJ+9
L	CHK+1!, DD*, DD+1, ID, ID+1, ID+2, MOVEFLD, MOVEFLD+4, MOVEFLD+5, MOVEFLD+6 , DITRPL, P!
L(	CHK, CHK+2, DD, MULFLD, Y+2
L(0	CHK+2
NEW	REPLACE~, REPLACE+2, REPLACE+3
O	Y+1~, Y+2*
OLD	REPLACE~, REPLACE+2, REPLACE+3
U	CHK+1, CHK+3, CHK+5, CHK+7, MOVEFLD, MOVEFLD+3, MULFLD
V	CHK, CHK+3, CHK+7, DD, DD+1, ID, ID+1*, MOVEFLD, MOVEFLD+3, MOVEFLD+4 , MOVEFLD+5, MOVEFLD+6, MULFLD+2, DITRPL, IXKEY+2~
W	ID, MOVEFLD, MOVEFLD+3, MOVEFLD+5, MULFLD, MULFLD+2, N+1, DITRPL~, Y+2*
X	CHK+1, REPLACE~, REPLACE+3, REPLACE+4, IXKEY+3~, ADJ+1, ADJ+2, ADJ+3, ADJ+4, ADJ+7 , ADJ+8, ADJ+9, ADJ+10
Y	DIT1+3, CHK+3, CHK+5, GO, DD, DD+1, ID, ID+2, ID+3, MOVEFLD+3 , MOVEFLD+4, MOVEFLD+5, MOVEFLD+6, MULFLD+2, IXKEY+2~, P

Name	Comments	DBIA/ICR reference
DITRPL(W)
MOVEFLD
D
P
ERR(DITYPE,DITON,DIFRNAME)	;
DD
CHK
REPLACE(X,OLD,NEW)	;
N
Y	;REPLACE THE NUMBERS; CALLED FROM DIT2
IXKEY(DIFRN,DIFRGBL,DITON,DITOGBL)	; transfer KEY and INDEX file entries ; DIFRN=from file#, DIFRN(DIFRN)=from file list, DIFRGBL=from file global, DITON=to file#, DITOGBL=to file global
GO
ADJ	; Change data to contain new file number and global reference.
ID
MULFLD

Customize PDF page

Package: VA Fileman

Routine: DIT1

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: