Routine: XDRDFPD

Package	Total	Call Graph
Toolkit	4	(CHECK,POSDUPS)^XDRDMAIN FILE^XDRDQUE ^XDRDSCOR ^XDREMSG
VA Fileman	1	^DIC

Entry Points

Name	Comments	DBIA/ICR reference
EN	;Entry Point (caller must pass XDRCD,XDRFL)	ICR #3525 Status: Active Usage: Private
END
INFORM	;
PROCESS	;
EOJ	;clean up
SETUP	;	ICR #3526 Status: Active Usage: Private
CHECK	;check for duplicates and add to Duplicate record file
START	;
INIT	;Initialization
SETUPX	;
LKUPX	;
ENX	;
LKUP	;
PROCESSX

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"This option will collect all Potential Duplicates for an entry in a file.",!,"It will then add any pairs found to the Duplicate Record file.",! Line Location: INIT+1
Function Call: WRITE	Prompt: !!,"NO Potential Duplicates were found for ",$P(^DIC(XDRFL,0),U),": ",$P(@(XDRGL_XDRCD_",0)"),U) Line Location: INFORM+4
Function Call: WRITE	Prompt: !!,"The following ",$P(^DIC(XDRFL,0),U)," entry(ies) are now in the Duplicate ",!,"Record file as Potential Duplicates to ",!,$P(^DIC(XDRFL,0),U),": ",$P(@(XDRGL_XDRCD_",0)"),U) Line Location: INFORM+5
Routine Call	DIC Line Location: LKUP+2

Name	Line Occurrences (* Changed, ! Killed)
^DIC - [#1]	PROCESS+8, LKUP+1, INFORM+4, INFORM+5
^TMP("XDRD"	PROCESS+13, EOJ+2!, CHECK+1
^VA(15 - [#15]	INFORM+1
^VA(15.1 - [#15.1]	EN+3
^XMB(3.8 - [#3.8]	SETUP+2

Name	Field # of Occurrence
>> %	INFORM+1, INFORM+2
DA	LKUP+2!
DIC	LKUP+1*, LKUP+2!
DIC("A"	PROCESS+5, LKUP+1
DIC(0	LKUP+1*
U	LKUP+1, SETUP+1, SETUP+2, INFORM+2, INFORM+4, INFORM+5, INFORM+7
>> X	INFORM+6*, INFORM+7
XDRCD	PROCESS+9, EOJ+1!, EN+1, LKUP+4*, INFORM+2, INFORM+4, INFORM+5, INFORM+7
XDRCD2	EOJ+1!, ENX+1!, CHECK+1*
XDRD	PROCESS+1!, EOJ+1!, ENX+1!
XDRD("COLLECT	ION ROUTINE" , SETUP+1*
XDRD("DMAILGRP"	SETUP+2*
XDRD(0	SETUP+1, SETUP+2
XDRDCNT	EOJ+1!, ENX+1!
XDRDFPD	EOJ+1!, ENX+1!
XDRDFPD("FOUND"	INFORM+2*, INFORM+4, INFORM+6, INFORM+7
XDRDFPD("PAIR"	INFORM+1*, INFORM+2
XDRDMAIN	EOJ+1!, ENX+1!
XDRDSCOR	EOJ+1!, ENX+1!
XDRDTEST	EOJ+1!, ENX+1!
XDRDTYPE	PROCESS+4*, EOJ+1!, ENX+1!
XDRDUP	EOJ+1!, ENX+1!
>> XDRERR	EN+1, EN+2, EN+3*
XDRFL	PROCESS+8, PROCESS+13, EOJ+1!, EN+2, EN+3, LKUP+1, CHECK+1, INFORM+4, INFORM+5
XDRGL	PROCESS+8*, EOJ+1!, ENX+1!, LKUP+1, INFORM+1, INFORM+4, INFORM+5, INFORM+7
XDRI	SETUP+2*, SETUP+3!
XDRNOPT	PROCESS+3~*
XDRQFLG	INIT+3, PROCESS+4, PROCESS+6, PROCESS+9, EOJ+1!, LKUP+3, CHECK+1
>> Y	LKUP+3, LKUP+4
>> ZTQUEUED	PROCESS+10