Routine: XDRMADD

Package	Total	Call Graph
VA Fileman	7	^DIC FILE^DICN ^DIE $$GET1^DIQ ^DIR ^DIWP ^DIWW
Toolkit	6	SHOW^XDRDPICK FILE^XDRDQUE ^XDRDSCOR ^XDRDUP EN^XDRMAIN ^XDRMAINI
Uncategorized	1	($$DNLCHK,DNLCHK)^MPIFDNL

Entry Points

Name	Comments	DBIA/ICR reference
DNLCHECK()	; If patients are being selected for merge, check the MPI to ; determine whether the records are marked as DO NOT LINK and ; therefore should not be added to the DUPLICATE RECORD file. ; Returns 1 if OK. ; Created in XT7.3125
MERGEX
END
MERGE
EOJ	;
ADDX
START	;
ADD	;
SCORE	;
LKUPX
BYPASS	;REM -8/20/96 Add record directly into file 15, bypass threshold.
LKUP	;Looks up the records to add.
CHECK	;
LKUP2

External References

Name	Field # of Occurrence
^DIC	LKUP+5, LKUP2+3
FILE^DICN	ADD+14
^DIE	ADD+18
$$GET1^DIQ	BYPASS+3
^DIR	START+22, LKUP2+13, BYPASS+7, BYPASS+12
^DIWP	DNLCHECK+23
^DIWW	DNLCHECK+23
$$DNLCHK^MPIFDNL	DNLCHECK+14
DNLCHK^MPIFDNL	DNLCHECK+10
SHOW^XDRDPICK	START+49
FILE^XDRDQUE	START+9
^XDRDSCOR	START+38
^XDRDUP	START+39
EN^XDRMAIN	MERGE+2
^XDRMAINI	ADD+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "* No potential duplicate threshold % check will be calculated for PATIENTS" Line Location: START+10
Function Call: WRITE	Prompt: ! Line Location: START+21
Function Call: WRITE	Prompt: !!,$C(7),"This pair of patients has a duplicate percentage of only ",XDRMADD("DUPSCORE%"),"% which" Line Location: START+44
Function Call: WRITE	Prompt: !,"is less than the minimal percentage for potential duplicates (",XDRDSCOR("PDT%"),"%)." Line Location: START+45
Function Call: WRITE	Prompt: !!?30,"Patients not added!!!",!! Line Location: START+46
Function Call: WRITE	Prompt: !!,"Please do not try and merge the same patients together.",!! Line Location: LKUP2+6
Function Call: WRITE	Prompt: !!,"You will be adding the following pair of records to the duplicate record file:",! Line Location: LKUP2+10
Function Call: WRITE	Prompt: !?5,"RECORD1: ",$P(@(XDRGL_XDRCD_",0)"),U) Line Location: LKUP2+11
Function Call: WRITE	Prompt: !?5,"RECORD2: ",$P(@(XDRGL_XDRCD2_",0)"),U) Line Location: LKUP2+12
Function Call: WRITE	Prompt: !! Line Location: LKUP2+13
Function Call: WRITE	Prompt: " Ok, continuing, hold on ...",! Line Location: LKUP2+14
Function Call: READ	Timeout: DTIME Variable: XDRMADD("ANS") Line Location: LKUP2+15
Function Call: WRITE	Prompt: " Okay, continuing, hold on ...",! Line Location: LKUP2+15
Function Call: WRITE	Prompt: !!,"They are already entered in Duplicate Record file.",!! Line Location: CHECK+4
Function Call: WRITE	Prompt: !,$C(7) Line Location: DNLCHECK+22
Function Call: WRITE	Prompt: !!,*7,"Potential duplicate threshold % will NOT be bypassed!",! Line Location: BYPASS+8
Function Call: WRITE	Prompt: ! Line Location: BYPASS+12
Function Call: WRITE	Prompt: *7,!!,"Potential duplicate threshold % will NOT be bypassed!",! Line Location: BYPASS+13
Routine Call	DIE Line Location: ADD+18
Routine Call	DIC Line Location: LKUP+5 LKUP2+3
Routine Call	DIR Line Location: START+22 LKUP2+13 BYPASS+7 BYPASS+12

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	DNLCHECK+9
^DIC - [#1]	START+19, LKUP+4, LKUP2+2
^UTILITY($J	DNLCHECK+20!
^VA(15 - [#15]	CHECK+1, CHECK+2, CHECK+3, ADD+13
^VA(15.1 - [#15.1]	START+17*
^VA(200 - [#200]	BYPASS+2

Label References

Name	Line Occurrences
$$DNLCHECK	START+35
ADD	START+47
ADDX	ADD+16
BYPASS	START+29
CHECK	START+31
END	START+12, START+20, START+29, START+30
EOJ	END
LKUP	START+30, LKUP2+4
LKUP2	LKUP2+6
LKUPX	LKUP+6
SCORE	START+42
START	START+31, START+35, START+43, START+48, START+50

Naked Globals

Name	Field # of Occurrence
^(	CHECK+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	LKUP+5!, LKUP2+3!, ADD+17*, ADDX!
DIC	START+2!, LKUP+2, LKUP+5!, LKUP2, LKUP2+3!, ADD+3*, ADD+15!
DIC("A"	START+9, LKUP+4, LKUP2+2*
DIC("DR"	ADD+5, ADD+7, ADD+8, ADD+9
DIC("S"	LKUP+3, LKUP2+1
DIC(0	LKUP+2, LKUP2, ADD+3*
DIE	ADD+17*, ADDX!
DIR	START+21!, START+22!, LKUP2+13!, BYPASS+7!, BYPASS+12!
DIR("??"	BYPASS+6*
DIR("A"	START+21, BYPASS+5, BYPASS+11*
DIR("B"	BYPASS+11*
DIR(0	START+21, LKUP2+13, BYPASS+5, BYPASS+11
>> DIRUT	START+22, LKUP+6, LKUP2+4, LKUP2+13, BYPASS+12
DIWF	DNLCHECK+19~, DNLCHECK+21*
DIWL	DNLCHECK+19~, DNLCHECK+21*
DIWR	DNLCHECK+19~, DNLCHECK+21*
DLAYGO	ADD+3*, ADD+15!
DR	ADD+15!, ADD+18*!, ADDX!
DR(2	ADD+18*
DT	ADD+7
>> DTOUT	BYPASS+7
>> DUOUT	BYPASS+7
DUZ	ADD+7, BYPASS+2
I	ADD+11~, ADD+13*
IOM	DNLCHECK+21
U	START+14, START+17, LKUP+4, LKUP2+2, LKUP2+11, LKUP2+12, CHECK+1, CHECK+2, CHECK+3, DNLCHECK+18 , DNLCHECK+21, ADD+3, ADD+4, ADD+12, ADD+13, ADD+18
X	DNLCHECK+6~, DNLCHECK+9, DNLCHECK+19~, DNLCHECK+21, ADD+3, ADD+12, ADD+13!, ADD+14, ADD+15!, BYPASS+1~ , BYPASS+2, BYPASS+3, EOJ+1!
X1	ADD+11~, ADD+12*, ADD+13
X2	ADD+11~, ADD+12*, ADD+13
X3	ADD+11~, ADD+13*
XDRADFLG	START+1~, START+7, START+28, START+38, BYPASS+7, BYPASS+8, BYPASS+9, BYPASS+12, BYPASS+13
XDRCD	LKUP+1!, LKUP+7, LKUP2+6, LKUP2+7, LKUP2+8, LKUP2+9, LKUP2+11, CHECK+1, CHECK+2, CHECK+3 , DNLCHECK+14, SCORE+6, SCORE+7, ADD+16!, EOJ+1!
XDRCD2	LKUP+1!, LKUP2+5, LKUP2+6!, LKUP2+7, LKUP2+8, LKUP2+9, LKUP2+12, CHECK+1, CHECK+2, CHECK+3 , DNLCHECK+14, SCORE+6, SCORE+7, ADD+16!, EOJ+1!
XDRCNTR	XDRMADD+4~, XDRMADD+5, START+20, START+24
XDRD	EOJ+1!
XDRD("DUPSCORE"	START+27*, SCORE+2, ADD+8
XDRD("NOADD"	START+39*
XDRD(0	START+14
>> XDRDA	START+47, ADD+17
>> XDRDFLG	START+35, START+47, CHECK+1, CHECK+2, CHECK+3*, CHECK+4
XDRDFR	SCORE+6*, SCORE+7, ADD+3, MERGE+1, EOJ+1!
XDRDI	CHECK+1*, CHECK+2, CHECK+3, CHECK+5!
XDRDSCOR	EOJ+2!
XDRDSCOR("MAX"	START+27*, SCORE+2, ADD+8
XDRDSCOR("PDT%"	START+27, START+38, START+43, START+45, ADD+8
XDRDSCOR("VDT%"	ADD+9
XDRDTEST	EOJ+2!
XDRDTEST(	ADD+18
XDRDTO	SCORE+7*, ADD+4, MERGE+1, EOJ+1!
XDRDTYPE	START+14, START+15, START+17, START+41!
>> XDRDUP("TEST	SCORE" , ADD+18, ADDX!
XDRFL	XDRMADD+4~, START+8, START+10, START+13, START+17, START+19, START+26, START+29, START+35, START+37 , START+43, LKUP+4, LKUP2+2, DNLCHECK+5, SCORE+1, EOJ+1!, EOJ+2!
XDRGL	START+19*, LKUP+2, LKUP2, LKUP2+11, LKUP2+12, CHECK+1, CHECK+2, CHECK+3, ADD+3, ADD+4 , EOJ+1!
XDRKEY	BYPASS+1~, BYPASS+2, BYPASS+3, BYPASS+4
XDRM	MERGEX!
XDRM("NOVERIFY"	MERGE+1*
XDRMADD	EOJ+1!
XDRMADD("DUPSCORE%"	START+27, START+43, START+44, SCORE+2, SCORE+3, SCORE+4, ADD+8
XDRMADD("REC1"	LKUP2+7*, LKUP2+8, LKUP2+9
XDRMADD("REC2"	LKUP2+8*, LKUP2+9
XDRMADD("STATUS"	SCORE+8*, ADD+5
XDRMADDX	ADD+4*, ADD+12, ADDX!
>> XDRMAINI	ADD+2*
XDRMORD	ADD+18*, ADDX!, EOJ+1!
XDRMPAIR	MERGE+1*, EOJ+2!
XDRMPDA	ADD+17*, EOJ+2!
XDRNOPT	START+1~, START+7*
XDRQFLG	START+7, START+9, START+12, START+20, START+22, START+29, START+30, START+31, START+48, LKUP+6* , LKUP2+13, ADD+16, BYPASS+7, BYPASS+12, EOJ+2!
XDRRES	DNLCHECK+6~, DNLCHECK+14*, DNLCHECK+18, DNLCHECK+21
Y	START+22, LKUP+6, LKUP+7, LKUP2+4, LKUP2+5, ADD+14*, ADD+16, ADD+17, BYPASS+7, BYPASS+12 , EOJ+1!

Customize PDF page

Package: Toolkit

Routine: XDRMADD

Information

Source Information

Call Graph

Call Graph Total: 14

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items