Routine: XDRMERGB

Package	Total	Call Graph
VA Fileman	5	$$FIND1^DIC (,FILE,UPDATE)^DIE ^DIK $$GET1^DIQ ^DIR
Kernel	2	^%ZTLOAD $$NOW^XLFDT
Toolkit	2	$$FILE^XDRDPICK (DODIS,DOSUBS)^XDRMERGA
MailMan	1	^XMD

Package	Total	Caller Graph
Toolkit	3	XDRMERG0 XDRMERG1 XDRMERG2
Barcode Medication Administration	1	PSBXMRG
IHS Patient Merge	1	BPMXDRV
Lab Service	1	LRXDRPT

Entry Points

Name	Comments	DBIA/ICR reference
SNDMSG(XDRFDA)	;Sends msg when merge process has completed.
NAME
MERGEIT	; MERGE TWO ENTRIES IN FILE
SAVEPNTR(IENFROM,IENTO,FILE,IENS,FIELD,VALUE)	;
QUE	; (Moved from XDRMERG0)
SAVEMERG(FILE,IENFROM,IENTO)	;	ICR #2338 Status: Active Usage: Controlled Subscription ICR #2917 Status: Retired Usage: Private
STORMERG	;

External References

Name	Field # of Occurrence
^%ZTLOAD	NAME+42
$$FIND1^DIC	SAVEMERG+4, SAVEMERG+14, SAVEMERG+25, SAVEPNTR+3, NAME+6
^DIE	NAME+37, NAME+44
FILE^DIE	MERGEIT+26, MERGEIT+45, NAME+30
UPDATE^DIE	SAVEMERG+11, SAVEMERG+20, SAVEMERG+31, STORMERG+8, SAVEPNTR+7, NAME+13, NAME+25, NAME+55
^DIK	MERGEIT+57, NAME+58
$$GET1^DIQ	SNDMSG+2, SNDMSG+4, SNDMSG+5, QUE+10
^DIR	QUE+36, NAME+4
$$FILE^XDRDPICK	QUE+6
DODIS^XDRMERGA	MERGEIT+53
DOSUBS^XDRMERGA	MERGEIT+55
$$NOW^XLFDT	MERGEIT+27, MERGEIT+46
^XMD	SNDMSG+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"You should hold the 'DG ELIGIBILITY' key to run a patient file merge." Line Location: QUE+12
Function Call: WRITE	Prompt: !!,XNCNT," Entries Ready to be included in merge" Line Location: QUE+28
Function Call: WRITE	Prompt: !!?15,$C(7),"No Verified Duplicates included in merge",$C(7),!! Line Location: QUE+30
Function Call: WRITE	Prompt: !! Line Location: NAME+0
Function Call: WRITE	Prompt: !!,$C(7),"The name entered has already been used. The name must be unique.",!! Line Location: NAME+7
Function Call: WRITE	Prompt: !!,"Merge process '",$P(^VA(15.2,XDRFDA,0),U),"' for Verified Duplicates in File ",XDRFIL," scheduled",!,"as task ",ZTSK,".",! Line Location: NAME+45
Function Call: WRITE	Prompt: !!,$C(7),"The Merge Process has been aborted, no changes made." Line Location: NAME+59
Routine Call	DIE Line Location: SAVEMERG+11 SAVEMERG+20 SAVEMERG+31 STORMERG+8 SAVEPNTR+7 NAME+13 NAME+25 NAME+55
Routine Call	DIE Line Location: NAME+37 NAME+44
Routine Call	DIC Line Location: SAVEMERG+4 SAVEMERG+14 SAVEMERG+25 SAVEPNTR+3 NAME+6
Routine Call	DIE Line Location: MERGEIT+26 MERGEIT+45 NAME+30
Routine Call	DIR Line Location: QUE+36 NAME+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(15.1 - [#15.1]	GET1^DIQ
^VA(15.2 - [#15.2]	Classic Fileman Calls, FIND1^DIC, GET1^DIQ
^XDRM - [#15.4]	FIND1^DIC
15.41	FIND1^DIC
15.42	FIND1^DIC
^DIC(19.1 - [#19.1]	GET1^DIQ
^XMB(3.8 - [#3.8]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	MERGEIT+20, MERGEIT+21, MERGEIT+37, MERGEIT+40
^DIC - [#1]	SAVEMERG+13, STORMERG+3, QUE+14
^VA(15 - [#15]	QUE+18, QUE+19, NAME+32
^VA(15.2 - [#15.2]	NAME+38, NAME+45
^VA(15.4	STORMERG+1!
^VA(200 - [#200]	QUE+9
^XDRM - [#15.4]	SAVEMERG+5
^XTMP("XDRTESTK"	MERGEIT+27, MERGEIT+46

Label References

Name	Line Occurrences
NAME	NAME+6
STORMERG	SAVEMERG+23, SAVEMERG+34

Naked Globals

Name	Field # of Occurrence
^(	MERGEIT+20, MERGEIT+21, QUE+18
^("ZZ"	MERGEIT+27, MERGEIT+46
^(0	NAME+32*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	MERGEIT+1~, MERGEIT+57!, QUE+4~, NAME+36, NAME+44, NAME+56
DFN	MERGEIT+1~, MERGEIT+6, MERGEIT+57
DIC	QUE+2~
DIE	QUE+2~, NAME+35, NAME+44
DIK	MERGEIT+1~, MERGEIT+57, QUE+4~, NAME+57
DIR	QUE+2~, QUE+32!, QUE+36!, NAME+5!
DIR("?"	NAME+2, NAME+3
DIR("A"	QUE+33, QUE+34, QUE+35, NAME+1
DIR(0	QUE+32, NAME
DIU	MERGEIT+57~
DIU(0	MERGEIT+57*
DR	QUE+2~, NAME+34!, NAME+44!
DT	SAVEMERG+10
DUZ	QUE+9
FIELD	SAVEPNTR~, SAVEPNTR+4
FILE	SAVEMERG~, SAVEMERG+13, STORMERG+3, SAVEPNTR~, SAVEPNTR+4
FLD	MERGEIT+19~, MERGEIT+20, MERGEIT+21, MERGEIT+23, MERGEIT+30~, MERGEIT+37, MERGEIT+38, MERGEIT+39, MERGEIT+40
>> FROM	SAVEMERG+2, SAVEMERG+3, SAVEPNTR+2
FROMARG	SAVEMERG+1~, SAVEMERG+2, SAVEMERG+3, SAVEMERG+4, SAVEMERG+5, SAVEMERG+8, SAVEPNTR+1~, SAVEPNTR+2, SAVEPNTR+3
I	MERGEIT+1~, MERGEIT+33*, MERGEIT+34, MERGEIT+37, MERGEIT+38
IENFROM	MERGEIT+12, MERGEIT+17, MERGEIT+23, MERGEIT+28, MERGEIT+31, MERGEIT+51, MERGEIT+56, MERGEIT+57, MERGEIT+58, SAVEMERG~ , SAVEMERG+2, SAVEMERG+3, SAVEMERG+18, SAVEMERG+21, SAVEMERG+22, SAVEPNTR~, SAVEPNTR+2
IENS	SAVEMERG+1~, SAVEMERG+11, SAVEMERG+14, SAVEMERG+15, SAVEMERG+16, SAVEMERG+17, SAVEMERG+18, SAVEMERG+20, SAVEMERG+25, SAVEMERG+26 , SAVEMERG+27, SAVEMERG+28, SAVEMERG+29, SAVEMERG+31, STORMERG+1, STORMERG+2, STORMERG+6, STORMERG+7, SAVEPNTR~, SAVEPNTR+4
IENTO	MERGEIT+5, MERGEIT+6, MERGEIT+14, MERGEIT+28, MERGEIT+29, MERGEIT+32, MERGEIT+47, MERGEIT+52, MERGEIT+54, MERGEIT+55 , SAVEMERG~, SAVEMERG+2, SAVEMERG+3, SAVEMERG+29, SAVEMERG+32, SAVEMERG+33, SAVEPNTR~, SAVEPNTR+2
IENTOSTR	MERGEIT+1~, MERGEIT+5, MERGEIT+23, MERGEIT+40, MERGEIT+54, MERGEIT+55
IENVAL	SAVEMERG+1~, SAVEMERG+22, SAVEMERG+33, STORMERG+3
J	MERGEIT+19~, MERGEIT+21*
>> JXFLD	MERGEIT+37*
N	MERGEIT+19~, MERGEIT+20*, MERGEIT+23
NODE	MERGEIT+1~, MERGEIT+10, MERGEIT+11, MERGEIT+12, MERGEIT+13, MERGEIT+14, MERGEIT+15, MERGEIT+16, MERGEIT+17, MERGEIT+20 , MERGEIT+23, MERGEIT+28, MERGEIT+29, MERGEIT+31, MERGEIT+32, MERGEIT+37, MERGEIT+47, MERGEIT+51, MERGEIT+52, MERGEIT+53
NODE1	MERGEIT+1~, MERGEIT+12*, MERGEIT+13, MERGEIT+15, MERGEIT+16, MERGEIT+18
NODE2	MERGEIT+1~, MERGEIT+14*, MERGEIT+15, MERGEIT+18
NODEA	MERGEIT+1~
NODEB	MERGEIT+1~
Q	SAVEMERG+1~, STORMERG+3, STORMERG+4, STORMERG+6, STORMERG+7
Q1	SAVEMERG+1~, STORMERG+3*, STORMERG+4
>> R(1	SNDMSG+3*
SFILE	MERGEIT+1~
TOARG	SAVEMERG+1~, SAVEMERG+3*, SAVEMERG+9
U	MERGEIT+4, MERGEIT+23, MERGEIT+33, MERGEIT+34, MERGEIT+38, MERGEIT+56, SAVEMERG+5, SAVEMERG+13, QUE+20, QUE+21 , QUE+22, QUE+23, QUE+24, QUE+25, QUE+26, NAME+5, NAME+32, NAME+38, NAME+45
VALUE	MERGEIT+1~, SAVEPNTR~, SAVEPNTR+6
VREF	MERGEIT+1~
X	MERGEIT+21, MERGEIT+22, MERGEIT+33, MERGEIT+38, MERGEIT+40, SAVEPNTR+4, SAVEPNTR+5, QUE+3~, QUE+8~, QUE+9 , QUE+10, QUE+16, QUE+18
>> X1	MERGEIT+31, MERGEIT+33
X2	MERGEIT+32, MERGEIT+34, MERGEIT+38, MERGEIT+41, MERGEIT+45~, MERGEIT+47
>> X3	MERGEIT+32*, MERGEIT+41
XDRAA	MERGEIT+2~, MERGEIT+24!, MERGEIT+27, MERGEIT+43!, MERGEIT+46
XDRDA	SAVEMERG+1~, SAVEMERG+4, SAVEMERG+5, SAVEMERG+6, SAVEMERG+12, SAVEMERG+14, SAVEMERG+16, SAVEMERG+25, SAVEMERG+27, STORMERG+1 , STORMERG+2, SAVEPNTR+1~, SAVEPNTR+3, SAVEPNTR+5, SAVEPNTR+6
>> XDRDIC	MERGEIT+4, MERGEIT+12, MERGEIT+14, MERGEIT+17, MERGEIT+23, MERGEIT+28, MERGEIT+29, MERGEIT+31, MERGEIT+32, MERGEIT+47 , MERGEIT+51, MERGEIT+52, MERGEIT+56, MERGEIT+57, MERGEIT+58, QUE+14*, QUE+15, QUE+24
XDRFDA	SAVEMERG+1~, SAVEMERG+7~, SAVEMERG+24!, STORMERG+5!, SAVEPNTR+1~, SNDMSG~, SNDMSG+2, QUE+4~, NAME+14*, NAME+17 , NAME+29, NAME+36, NAME+38, NAME+44, NAME+45, NAME+56
XDRFDA(	SAVEMERG+8, SAVEMERG+9, SAVEMERG+10, SAVEMERG+17, SAVEMERG+18, SAVEMERG+28, SAVEMERG+29, STORMERG+6, STORMERG+7, SAVEPNTR+5 , SAVEPNTR+6*
XDRFIL	QUE+3~, QUE+6*, QUE+7, QUE+14, NAME+12, NAME+45
XDRFILE	SAVEMERG+1~, SAVEMERG+13*, SAVEMERG+14, SAVEMERG+17, SAVEMERG+25, SAVEMERG+28
XDRFROM	MERGEIT+1~, MERGEIT+51*, MERGEIT+55
XDRGLOB	QUE+3~, QUE+15*, QUE+18
XDRGRP	SNDMSG+1~, SNDMSG+4, SNDMSG+5, SNDMSG+6, SNDMSG+7, SNDMSG+8
>> XDRGRPN	SNDMSG+5*, SNDMSG+6
XDRI	QUE+4~, NAME+18, NAME+19, NAME+20, NAME+22, NAME+49, NAME+50, NAME+51
XDRIENS	MERGEIT+5, MERGEIT+54, QUE+4~, NAME+17*, NAME+22, NAME+23, NAME+24
XDRJ	QUE+4~, NAME+19, NAME+20, NAME+23, NAME+50, NAME+51
XDRK	QUE+4~, NAME+20, NAME+24, NAME+28, NAME+29, NAME+32, NAME+51, NAME+53, NAME+54
XDRKEY	QUE+8~, QUE+9, QUE+10, QUE+12
XDRMA	QUE+2~, NAME+26!
XDRNAME	SNDMSG+1~, SNDMSG+2, SNDMSG+3, SNDMSG+9, QUE+3~, NAME+5, NAME+6, NAME+11, NAME+40
XDRSUB	SAVEMERG+1~, SAVEMERG+22, SAVEMERG+33, STORMERG+1, STORMERG+6, STORMERG+7
>> XDRTESTK	MERGEIT+24, MERGEIT+27, MERGEIT+43, MERGEIT+46
XDRTO	MERGEIT+1~, MERGEIT+52*, MERGEIT+55
XDRX	QUE+3~
XDRX(	QUE+25, QUE+26, NAME+18, NAME+19, NAME+20, NAME+49, NAME+50, NAME+51
XDRX(0	QUE+29
XDRXX	MERGEIT+1~, MERGEIT+19~, MERGEIT+24, MERGEIT+26, MERGEIT+30~, MERGEIT+42, MERGEIT+43, MERGEIT+56*, MERGEIT+58, QUE+2~ , NAME+21!, NAME+26!, NAME+52!
XDRXX(	MERGEIT+23, MERGEIT+40, NAME+11, NAME+12, NAME+22, NAME+23, NAME+24*
XDRXX(15	NAME+28, NAME+29, NAME+53, NAME+54
XDRY	QUE+3~
XDRYY	QUE+2~, NAME+21!, NAME+26!, NAME+52!
XDRYY(1	NAME+14
XDRZZ	MERGEIT+1~, MERGEIT+25!, MERGEIT+27, MERGEIT+44!, MERGEIT+46
XFILNO	MERGEIT+1~, MERGEIT+4*, MERGEIT+20, MERGEIT+21, MERGEIT+23, MERGEIT+37, MERGEIT+38, MERGEIT+39, MERGEIT+40, MERGEIT+53
>> XMCHAN	SNDMSG+9*
XMDUZ	SNDMSG+1~, SNDMSG+9*
XMSUB	SNDMSG+1~, SNDMSG+9*
XMTEXT	SNDMSG+1~, SNDMSG+9*
>> XMY(	SNDMSG+7, SNDMSG+8
>> XNCNT	QUE+17, QUE+27, QUE+28
>> XNCNT0	QUE+17*
XNN	MERGEIT+1~
XVALUE	MERGEIT+1~
Y	MERGEIT+1~, MERGEIT+34, MERGEIT+35, QUE+3~, QUE+7, QUE+12, QUE+18*, QUE+19, QUE+25, QUE+26 , QUE+36, NAME+5
YVAL	QUE+19~*, QUE+20, QUE+21, QUE+22, QUE+23, QUE+24, QUE+25, QUE+26
YYY	SAVEMERG+1~, SAVEMERG+19!, SAVEMERG+30!
YYY(1	SAVEMERG+11, SAVEMERG+12, SAVEMERG+20, SAVEMERG+31
>> ZTDESC	NAME+40*
ZTDTH	QUE+2~, NAME+38*, NAME+39
>> ZTIO	NAME+41*
>> ZTRTN	NAME+40*
>> ZTSAVE("XDRFDA"	NAME+41*
ZTSK	QUE+2~, NAME+39, NAME+43, NAME+44, NAME+45
ZZZ	SAVEMERG+1~, SAVEMERG+30!

Customize PDF page

Package: Toolkit

Routine: XDRMERGB

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: