Routine: XDRDEDT

Package	Total	Call Graph
VA Fileman	5	(,FIND)^DIC ^DIE ^DIK $$GET1^DIQ ^DIR
Toolkit	1	$$FILE^XDRDPICK
Uncategorized	1	CALLRPC^MPIFDNL

Package	Total	Caller Graph
Toolkit	1	XDRDPICK

Entry Points

Name	Comments	DBIA/ICR reference
NONAME	;
EN	;;
ASKEM(NCUR,NMAX)	;
PEELNAM(NAME)	;
NAME(DA)	;
SCRN(DA,GLOBAL)	;Screen for verified dup. or verified not dup.
NOFILE	;
EN2
ASK(ARRAY)	;
LOOK1
LOOKUP(FILE)	; FIND PAIRS IN DUPLICATE RECORD FILE
PAIR(IENDIC,IDARR)	;
DELETE	;

External References

Name	Field # of Occurrence
^DIC	EN2+5
FIND^DIC	LOOK1+8
^DIE	EN2+21
^DIK	EN2+19
$$GET1^DIQ	EN2+12, PAIR+9, PAIR+10
^DIR	EN2+15, LOOK1, ASKEM+4
CALLRPC^MPIFDNL	EN2+33
$$FILE^XDRDPICK	EN2+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!," Duplicate Record File Entry ",DA," for the ",$P(^DIC(XDRFIL,0),U)," FILE" Line Location: EN2+10
Function Call: WRITE	Prompt: !?10,X1,?20,N1,!?10,X2,?20,N2,!!?10,"Currently listed as ",XDROSTAT,!! Line Location: EN2+13
Function Call: WRITE	Prompt: !!," ",$S($D(XDRDELET):"Entry DELETED!",1:"Status RESET to POTENTIAL DUPLICATE RECORD."),!!,*7 Line Location: EN2+25
Function Call: WRITE	Prompt: @NAME2@(X) Line Location: LOOK1+30
Function Call: WRITE	Prompt: !!,"This entry is paired with more than one other record.",!,"Select which pair from the following list:",! Line Location: PAIR+12
Function Call: WRITE	Prompt: ! Line Location: ASK+2
Function Call: WRITE	Prompt: "There are "_N_" choices.",!! Line Location: ASK+5
Function Call: WRITE	Prompt: !! Line Location: ASKEM+2
Function Call: WRITE	Prompt: !,"Choose from 1 to "_NCUR Line Location: ASKEM+2
Function Call: WRITE	Prompt: ! Line Location: ASKEM+4
Function Call: WRITE	Prompt: !,"FILE ",FILE," NOT FOUND",$C(7),!! Line Location: NOFILE+1
Function Call: WRITE	Prompt: $C(7),"??" Line Location: NONAME+1
Routine Call	DIE Line Location: EN2+21
Routine Call	DIC Line Location: LOOK1+8
Routine Call	DIC Line Location: EN2+5
Routine Call	DIR Line Location: EN2+15 LOOK1 ASKEM+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(15 - [#15]	Classic Fileman Calls, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	EN2+31
^DIC - [#1]	EN2+1, EN2+10, LOOKUP+2, LOOKUP+3
^TMP($J	LOOK1+7, LOOK1+24, PAIR+2
^VA(15 - [#15]	EN2+6, EN2+7, EN2+22*, EN2+23!, EN2+24!, EN2+32, NAME+2, LOOK1+17, PAIR+4, PAIR+6

Label References

Name	Line Occurrences
$$ASK	LOOK1+29, PAIR+13
$$ASKEM	ASK+7, ASK+8
$$PAIR	LOOK1+32
$$PEELNAM	EN2+9, NAME+5, NAME+7
EN2	DELETE+3
LOOK1	NONAME+2
NAME	EN2+16
NOFILE	LOOKUP+2, LOOKUP+3
NONAME	LOOK1+22, LOOK1+29, LOOK1+32

Naked Globals

Name	Field # of Occurrence
^(	LOOK1+15
^(0	EN2+6, EN2+7, SCRN+1, SCRN+2, SCRN+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ARRAY	ASK~, ASK+3, ASK+4, ASK+7
DA	EN2+2, EN2+5*, EN2+6, EN2+7, EN2+10, EN2+12, EN2+16, EN2+22, EN2+23, EN2+24 , EN2+32, EN2+35!, SCRN~, NAME~, NAME+2
DIC	EN2!, EN2+3*, EN2+35!
DIC("A"	EN2+4*
DIC("S"	EN2+3*
DIC(0	EN2+3*
DIE	EN2!, EN2+21!*, EN2+35!
DIK	EN2+18~, EN2+19*
DIR	LOOKUP+1~, LOOK1!, ASKEM+1~
DIR("A"	EN2+14, LOOK1, ASKEM+2, ASKEM+3
DIR("B"	EN2+14*
DIR(0	EN2+14, LOOK1, ASKEM+2, ASKEM+3
DIRUT	LOOK1+2, ASK+7, ASK+8, ASKEM+4!
DR	EN2+21*, EN2+35!
>> DTOUT	ASKEM+4
>> DUOUT	ASKEM+4
DUZ	EN2+22, EN2+33
DUZ(2	EN2+33
FILE	LOOKUP~, LOOKUP+2, LOOKUP+3, LOOK1+8, PAIR+1~, PAIR+3*, PAIR+9, PAIR+10, NOFILE+1
FILENAM	LOOKUP+1~, LOOKUP+2*, LOOK1
FILID	LOOKUP+1~
FILID(	LOOK1+27*
GLOBAL	SCRN~, SCRN+3
I	LOOKUP+1~, LOOK1+15, LOOK1+19, LOOK1+25, LOOK1+27, LOOK1+28, ASK+1~, ASK+3, ASK+4, ASK+7*
IDARR	PAIR~, PAIR+10
IEN	LOOKUP+1~, LOOK1+15, LOOK1+16, PAIR+1~, PAIR+4, PAIR+6, PAIR+11
IEN1	LOOKUP+1~, LOOK1+31*, LOOK1+32
IEN2	PAIR+1~, PAIR+7, PAIR+8, PAIR+9
IENDIC	PAIR~, PAIR+3, PAIR+4, PAIR+7
>> IENS	PAIR+8*, PAIR+9, PAIR+10
J	LOOKUP+1~, LOOK1+17, LOOK1+19, LOOK1+22, LOOK1+27
N	NAME+1~, NAME+5, NAME+6, NAME+7, NAME+8, LOOKUP+1~, LOOK1+25, LOOK1+26, LOOK1+28, LOOK1+30 , ASK+1~, ASK+3*, ASK+4, ASK+5, ASK+7
N1	EN+1~, EN2+8, EN2+9, EN2+13, NAME+1~, NAME+3, NAME+5, NAME+6, DELETE+1~, ASK+1~ , ASK+6, ASK+7*, ASK+8
N2	EN+1~, EN2+8, EN2+9, EN2+13, NAME+1~, NAME+4*, NAME+7, NAME+8, DELETE+1~
NAME	PEELNAM~, PEELNAM+1, PEELNAM+2, LOOKUP+1~, LOOK1+7, LOOK1+8, LOOK1+10, LOOK1+31, PAIR+1~, PAIR+2* , PAIR+11, PAIR+13, PAIR+14
NAME1	LOOKUP+1~, LOOK1+10*, LOOK1+15, LOOK1+19, LOOK1+22, LOOK1+25, LOOK1+27, LOOK1+28
NAME2	LOOKUP+1~, LOOK1+24*, LOOK1+28, LOOK1+29, LOOK1+30, LOOK1+31
NAMEA	LOOKUP+1~
NCHOICE	ASK+1~, ASK+6, ASK+7, ASK+8*, ASK+9
NCUR	ASKEM~, ASKEM+2, ASKEM+3
NMAX	ASKEM~, ASKEM+2
U	EN2+6, EN2+7, EN2+8, EN2+10, EN2+22, EN2+33, SCRN+1, SCRN+2, SCRN+3, NAME+2 , NAME+3, NAME+4, NAME+6, NAME+8, LOOKUP+2, LOOK1+17, PAIR+3, PAIR+4, PAIR+7
X	EN+1~, EN2+31, EN2+32, EN2+33, NAME+1~, NAME+2, NAME+3, NAME+4, NAME+6, NAME+8 , DELETE+1~, LOOKUP+1~, LOOK1+1, LOOK1+8, LOOK1+27, LOOK1+28, LOOK1+29, LOOK1+30, LOOK1+31, LOOK1+32 , LOOK1+33
X1	EN+1~, EN2+6, EN2+7, EN2+8, EN2+13, NAME+1~, NAME+2*, NAME+3, NAME+6, DELETE+1~
X2	EN+1~, EN2+6, EN2+7, EN2+8, EN2+13, NAME+1~, NAME+2*, NAME+4, NAME+8, DELETE+1~
XDR1	LOOKUP+1~, LOOK1+16*, LOOK1+17
XDRDELET	EN+1~, EN2+4, EN2+14, EN2+17, EN2+20, EN2+25, SCRN+2, DELETE+1~, DELETE+2*
XDRDIC	LOOKUP+1~, LOOKUP+3, LOOKUP+4, LOOK1+16, LOOK1+31
XDRFIL	EN+1~, EN2+1*, EN2+10, EN2+29, DELETE+1~
>> XDRGLB	EN2+1*, EN2+8
XDRJ	PAIR+1~, PAIR+10*
XDRN	PAIR+1~, PAIR+3, PAIR+5, PAIR+11, PAIR+12
XDROSTAT	EN+1~, EN2+12*, EN2+13, EN2+28
XDRX	PAIR+1~, PAIR+6, PAIR+7, PAIR+13, PAIR+15
XDRX1	PAIR+1~, PAIR+9, PAIR+10, PAIR+11
Y	EN2+5, EN2+15, LOOKUP+1~, LOOK1+2, ASKEM+1~, ASKEM+5

Customize PDF page

Package: Toolkit

Routine: XDRDEDT

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: