Routine: MCDUPM

Information

MCDUPM ;WASH/DCB-DUPLICATION FINDER ;4/30/96 08:39

Source Information

Source file <MCDUPM.m>

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
Medicine	2	COMPILE^MCDUP1 ^MCDUPR
VA Fileman	2	$$GET1^DID EN^DIQ1

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Medicine	2	MCDUP1 MCDUPE

Entry Points

Name	Comments	DBIA/ICR reference
TABLE(FILE,ID)	; Takes the temp array and builds a table for repointing
MAIN2(IEN)	;The 2nd half of main
MOVE(FILE,FILEN,REC,COUNT)	;Get the Identifiers from the file
BUILD(TEMP,FILEN)	; Move the duplication in a single global
FINDDUPS(FILE,ID)	; Finds Duplications and store them in a temp global
ID(FILE)	;loads the Identifiers from the ID node
START	;
DUP(FILE,ID)	;Main Routine
INIT(FILE,ID)	; Builds a global with all of the indefitiers
FILE	;;File#
LOAD(FILE,NAME,ID)	;Loads the array.
POINTER(FILE,POINT)	;load the pointers from th PT node

External References

Name	Field # of Occurrence
$$GET1^DID	MAIN2+1, MAIN2+2
EN^DIQ1	MOVE+5
COMPILE^MCDUP1	MAIN2+7
^MCDUPR	START+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,"Compiling Data: please wait",!!!! Line Location: START+3
Function Call: WRITE	Prompt: !,IEN,?20,$$GET1^DID(IEN,"","","NAME") Line Location: MAIN2+1
Function Call: WRITE	Prompt: ?60,$S($D(YES):"DUP",1:"NO DUP") Line Location: MAIN2+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	ID+2, POINTER+2, POINTER+3
^MCAR(	LOAD+5!
^TMP($J	START+1!, MAIN2+4!, MAIN2+5, MOVE+8, FINDDUPS+2, BUILD+2, BUILD+3, BUILD+5, BUILD+6, TABLE+2 , TABLE+3, TABLE+4, TABLE+5

Label References

Name	Line Occurrences
$$ID	MAIN2+3
BUILD	FINDDUPS+2
DUP	MAIN2+4
FINDDUPS	DUP+2
INIT	DUP+2
LOAD	INIT+4
MAIN2	START+5, START+7
MOVE	LOAD+6
TABLE	DUP+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ARR	BUILD+1~
ARR(	BUILD+3*, BUILD+4, BUILD+5, BUILD+6
COUNT	DUP+1~, POINTER+1~, POINTER+2, POINTER+3, INIT+3, LOAD+1~, MOVE~
DA	MOVE+4~, MOVE+5*
DIC	MOVE+4~, MOVE+5*
>> DIQ	MOVE+5*
>> DIQ(0	MOVE+5*
DR	MOVE+4~, MOVE+5*
FIELD	ID+1~, ID+2
FIL	START+2~
FILE	START+2~, MAIN2+2*, MAIN2+3, MAIN2+4, MAIN2+7, DUP~, DUP+2, DUP+3, ID~, ID+1 , POINTER~, POINTER+1, INIT~, INIT+2, INIT+3, INIT+4, LOAD~, LOAD+3, LOAD+4, LOAD+5 , LOAD+6, MOVE~, MOVE+5, FINDDUPS~, FINDDUPS+1, TABLE~, TABLE+1
FILEN	INIT+1~, INIT+2, LOAD+1~, LOAD+3, LOAD+5, LOAD+6, MOVE~, MOVE+6, MOVE+7, MOVE+8 , FINDDUPS+1~, FINDDUPS+2, BUILD~, BUILD+2, BUILD+3, BUILD+5, BUILD+6, TABLE+1~, TABLE+2, TABLE+3 , TABLE+4, TABLE+5
FLOC	START+2~
HOLD	MOVE+4~, MOVE+5, MOVE+7, MOVE+8
ID	START+2~, MAIN2+3, MAIN2+4, DUP~, DUP+2, DUP+3, ID+1, ID+2*, ID+3, INIT~ , INIT+4, LOAD~, MOVE+5, MOVE+7, FINDDUPS~, TABLE~
ID3	MOVE+4~
ID3(	MOVE+6, MOVE+7
IEN	START+2~, START+4*, START+5, MAIN2~, MAIN2+1, MAIN2+2, MAIN2+4, MAIN2+5
IOF	START+3
LOOP	MOVE+4~, MOVE+7, BUILD+1~, BUILD+4, BUILD+5, BUILD+6, TABLE+1~, TABLE+5
MFILE	ID+1~, ID+2, POINTER+1~, POINTER+2, POINTER+3
>> MREC	INIT+3*
NAME	LOAD~, LOAD+5
>> OFFSET	START+4*
OLD	TABLE+1~, TABLE+5*
ORD	INIT+1~, INIT+3*, INIT+4
POINT	DUP+1~, POINTER~
POINT(	POINTER+3*
REC	LOAD+1~, LOAD+2, LOAD+4, LOAD+5, LOAD+6, MOVE~, MOVE+5, MOVE+6, MOVE+7, MOVE+8 , BUILD+1~, BUILD+2, BUILD+3, TABLE+1~, TABLE+3*, TABLE+4, TABLE+5
>> RECC	INIT+3*
TEMP	ID+1~, POINTER+1~, POINTER+2, POINTER+3, INIT+1~, INIT+3, INIT+4, LOAD+1~, LOAD+2, MOVE+4~ , FINDDUPS+1~, FINDDUPS+2, BUILD~, BUILD+2, BUILD+3, BUILD+5, BUILD+6, TABLE+1~, TABLE+2*, TABLE+3 , TABLE+4, TABLE+5
TMP	MOVE+4~, MOVE+7*
TMP1	MOVE+4~, MOVE+6*, MOVE+8
U	MOVE+5, MOVE+7, BUILD+5, BUILD+6, TABLE+5
VAL	START+2~
XDUP	DUP+1~
YES	START+2~, MAIN2+2!, MAIN2+4, MAIN2+5, MAIN2+6, MAIN2+7, DUP+3, BUILD+6*

Marked Items

Name	Field # of Occurrence
$T(FILE+OFFSET	START+4

Customize PDF page

Package: Medicine

Routine: MCDUPM

Call Graph Total: 4

Caller Graph Total: 2