Routine: XDRRMRG2

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	3	DOCLIST^DDBR ^DIC ^DIR
Health Summary	1	ENX^GMTSDVR
Toolkit	1	$$GET^XPAR

Package	Total	Caller Graph
Toolkit	2	XDRDPICK XDRRMRG1
IHS Patient Merge	1	BPMVER

Entry Points

External References

Name	Field # of Occurrence
^%ZIS	REC1+2, REC2+2
^%ZISC	REC1+10, REC2+10
^%ZTLOAD	REC1+6, REC2+6
DOCLIST^DDBR	REC2+13
^DIC	ASK+19
^DIR	PRINT2+9
ENX^GMTSDVR	PRINT+1, REC1+9, REC2+9, QUEUE+1
$$GET^XPAR	ASK+15, PRINT2+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PRINT2+2
Function Call: WRITE	Prompt: ! Line Location: REC1+2
Function Call: WRITE	Prompt: ! Line Location: REC2+2
Routine Call	DIC Line Location: ASK+19
Routine Call	DIR Line Location: PRINT2+9
Routine Call	%ZIS Line Location: REC1+2 REC2+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^GMT(142 - [#142]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	COUNT+6
^DIC - [#1]	COUNT+3, LABIEN+2
^TMP("DDB"	REC1+12, REC2+12
^TMP("XDRRMRG"	PRINT2+10!, REC1+11, REC2+11, REC2+13, REC2+14!
^TMP("XDRRMRG1"	PRINT2+10!, REC1+12, REC2+12, REC2+14!

Label References

Name	Line Occurrences
PRINTX	REC2+3
REC2	REC1+3

Naked Globals

Name	Field # of Occurrence
^(	COUNT+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	REC1, REC2
>> %ZIS("A"	REC1+1, REC2+1
ABORT	ASK~, ASK+19*
DFN	GATHER~, REC1+5, REC2+5, QUEUE+1
>> DFNFR(1	REC1+11
>> DFNFR(2	REC1+11
>> DFNFRX	REC1+5, REC1+9, REC1+11
>> DFNTO(1	REC2+11
>> DFNTO(2	REC2+11
>> DFNTOX	REC2+5, REC2+9, REC2+11
DIC	ASK+1~, ASK+10!, ASK+12*
DIC("A"	ASK+17*
DIC("B"	ASK+15*
DIC(0	ASK+13*
>> DIR("?"	PRINT2+4*
>> DIR("A"	PRINT2+2, PRINT2+3
>> DIR("B"	PRINT2+4, PRINT2+7
>> DIR(0	PRINT2+2*
>> DIRUT	PRINT2+9
DTOUT	ASK+1~, ASK+19
DUOUT	ASK+1~, ASK+19
FDATE	GATHER~
FIL1	COUNT+1~, COUNT+4*, COUNT+10
FIL2	COUNT+1~, COUNT+3, COUNT+4, COUNT+5, COUNT+11
>> FILDIC	LABIEN+2*, LABIEN+3
FILE	LABIEN~, LABIEN+2
>> FILREC	LABIEN+3*, LABIEN+4
FROM	COUNT~
HIUSERS	GATHER~
I	COUNT+1~, COUNT+6*
IO	REC1+10
IO("Q"	REC1+3, REC2+3
IO(0	REC1+8, REC2+8, REC2+10
ION	REC1+4, REC2+4
>> IOP	REC1, REC2
N1	COUNT+1~, COUNT+2, COUNT+12, COUNTX
N2	COUNT+1~, COUNT+2, COUNT+13, COUNTX
>> NAMREC	LABIEN+1, LABIEN+2, LABIEN+4, LABIENX
NOD	COUNT+1~, COUNT+7*, COUNT+10, COUNT+11
PIECE	COUNT+1~, COUNT+8*, COUNT+9, COUNT+10, COUNT+11
>> POP	REC1+2, REC2+2
QLIST	ASK~, GATHER~, PRINT~
QLIST("DFN"	PRINT+1
QLIST("TYPE"	ASK+20*, PRINT+1, REC1+5, REC1+9, REC2+5, REC2+9
REC	LABIEN~
TDATE	GATHER~
TO	COUNT~
>> TYPE	REC1+5, REC2+5, QUEUE+1
U	COUNT+7, COUNT+8, COUNT+10, COUNT+11, LABIEN+4
X	COUNT+1~, COUNT+6*, COUNT+7, COUNT+8
X1	COUNT+1~, COUNT+10*, COUNT+12, COUNT+13
X2	COUNT+1~, COUNT+11*, COUNT+12, COUNT+13
XDRFILE	COUNT~, COUNT+3, COUNT+6
XDRIOP	PRINT2+1~, PRINT2+9*, REC1, REC1+8, REC2, REC2+8
Y	ASK+1~, ASK+19, ASK+20, PRINT2+9
>> ZTDESC	REC1+4, REC2+4
>> ZTIO	REC1+4, REC2+4
>> ZTRTN	REC1+4, REC2+4
>> ZTSAVE("DFN"	REC1+5, REC2+5
>> ZTSAVE("TYPE"	REC1+5, REC2+5
>> ZTSK	REC1+6, REC2+6

Name	Comments	DBIA/ICR reference
QUEUE	;Will process the print task for patients' health summaries.
PRINT2	;Prints the record pair using the Browser of to a device.
QUEUEX
PRINTX
LABIEN(FILE,REC)	;REM - Resolve LABs DFNFR and DFNTO.
ASKX
GATHER(DFN,FDATE,TDATE,HIUSERS,QLIST)	; No need to gather
PRINT2X
COUNTX
COUNT(XDRFILE,FROM,TO)
LABIENX
REC2
PRINT(QLIST)	;Call to print health summary
REC1
ASK(QLIST,ABORT)	; Report-specific questions

Customize PDF page

Package: Toolkit

Routine: XDRRMRG2

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: