Routine: DIT

Package	Total	Call Graph
VA Fileman	10	DIE^DIB ^DIC YN^DICN W^DICRW IXALL^DIK EN1^DIP ^DIT0 ^DIT1 TRNMRG^DIT3 ^DITM

Package

Total

Call Graph

DIE^DIB ^DIC YN^DICN W^DICRW IXALL^DIK EN1^DIP ^DIT0 ^DIT1
TRNMRG^DIT3 ^DITM

Package	Total	Caller Graph
VA Fileman	5	DIA3 DIT0 DIT3 DITMGM2C DITRANSFER

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: OPT+0
Function Call: WRITE	Prompt: !! Line Location: TWO+1
Function Call: WRITE	Prompt: "DO YOU WANT TO TRANSFER THE '",$P(Y,U,2),"'",!,"DATA DICTIONARY INTO YOUR NEW FILE" Line Location: TWO+1
Function Call: WRITE	Prompt: $C(7),"FILES DON'T MATCH!" Line Location: TWO+3
Function Call: WRITE	Prompt: !,"WANT TO MERGE TRANSFERRED ENTRIES WITH ONES ALREADY THERE" Line Location: TWO+5
Function Call: WRITE	Prompt: ", " Condition for execution: $X Line Location: T+1
Function Call: WRITE	Prompt: ! Condition for execution: $L(DIC)+$X>66 Line Location: T+1
Function Call: WRITE	Prompt: "'"_DIC_"' FIELDS" Line Location: T+1
Function Call: WRITE	Prompt: !?7,"(TYPE '^' TO FORGET THE WHOLE THING!)",! Line Location: F+0
Routine Call	DIC Line Location: OPT FROM+2

Name	Line Occurrences (* Changed, ! Killed)
^DD(	MAP2+2, PTS+1
^DIC - [#1]	FROM+3
^DIC(3 - [#3]	FROM+2
^DOPT("DIT"	0, 0+1*
^UTILITY("DIT"	Q+1!, PTS+1*
^UTILITY("DITR"	TWO+1!, Q+1!, T*
^VA(200 - [#200]	FROM+2

Name	Line Occurrences
0	OPT
D	D
DTR	FROM+2
F	D
FROM	OPT+1
MAP	TWO+3
MAP2	MAP2+2
OPT	0
PTS	DTR
Q	OPT, OPT+1, FROM+2, FROM+3, TWO+1, TWO+2, TWO+3, TWO+5, D
T	MAP2+2

Name	Field # of Occurrence
>> %	TWO, TWO+1, TWO+5, D, MAP2+2, T, PTS+1*
%ZIS	TWO+6*, Q+1!
A	TWO+1!, TWO+4, KL!, T+1
B	TWO+2!, KL!
DA	Q+1!
DB1	Q+1!
DDF	KL!
DDF(	T
DDF(1	FROM, DTR, TWO
DDT	KL!
DDT(0	FROM*, TWO
DFL	OPT+1, KL!, MAP+1~, T
DFN	KL!
DFR	Q+1!
DFR(1	TWO*
DG	OPT+1!
>> DHD	TWO+6*
DHIT	TWO, D, Q+1!
DIC	0, 0+2, OPT!, OPT+1, OPT+2, FROM, FROM+2!, TWO+6, Q+1!, MAP2+2 , T+1
DIC("A"	FROM*
DIC("B"	OPT+2*
DIC("S"	FROM+1*
DIC(0	OPT, FROM
DIE	OPT+1!
DIFFNO	TRNMRG~
DIFIEN	TRNMRG~
DIFLG	TRNMRG~
DIG	KL!
DIH	KL!
DIK	0+2, TWO+6, Q+1!
DIOEND	D+1*, Q+1!
DISTOP	D+1*, Q+1!
DIT	Q+1!
DITF	TWO+2!, TWO+3, KL!, T*
DITFNO	TRNMRG~
DITIEN	TRNMRG~
DIU	KL!
DIV	KL!
DKP	FROM*, KL!
>> DL	PTS+1*
DLAYGO	OPT+1*, TWO, TWO+1, KL!
DMRG	FROM, TWO+5, KL!
DQ	OPT+1!
DTL	KL!
DTN	KL!
DTO	FROM+2, TWO, TWO+6, KL!, PTS+1
DTO(0	TWO*, TWO+5
>> DTOUT	OPT+1
DUZ	FROM+2
DUZ(0	FROM+2, FROM+3
>> F	TWO*
FLDS	TWO+6*, Q+1!, KL!
L	OPT+1, OPT+2, TWO, TWO+2, TWO+6, Q+1!, MAP2+1*, MAP2+2, T
L(	TWO, MAP2+1!, MAP2+2, T
L(0	MAP2+1
U	0+1, OPT+1, FROM+2, TWO+1, MAP2+2, T, PTS+1
>> V	T*
W	KL!
X	0+1, FROM+3, KL!, MAP2+2, PTS+1
Y	OPT, OPT+1, OPT+2, FROM, FROM+2, FROM+3, DTR, TWO, TWO+1, TWO+2! , KL!, MAP2+2, T, PTS+1
Z	KL!, T, PTS+1

Information

Name	Comments	DBIA/ICR reference
OPT
MAP	;BUILD MAP OF FIELDS FROM 'FROM' TO 'TO' FILE
FROM
D
F
TWO
KL
Q	;
0
MAP2	;ENTRY POINT FROM ^DIT3
TRNMRG(DIFLG,DIFFNO,DITFNO,DIFIEN,DITIEN)	; SILENT TRANSFER/MERGE OF SINGLE RECORDS IN FILE OR SUBFILE
T
DTR
PTS	;