Routine: MPIFQ0

Package	Total	Call Graph
Master Patient Index VistA	7	($$CHANGE,$$GETDFN,$$GETICN,$$IFLOCAL,$$SETICN,$$SETLOC)^MPIF001 TWODFNS^MPIF002 $$A24^MPIFA24B $$MPINODE^MPIFAPI ($$HEREICN,A28,LOCAL)^MPIFQ3 RDT^MPIFSA3 VTQ1^MPIFVTQ
VA FileMan	3	NOW^%DTC ^DIC EN^DIQ1
Kernel	2	$$HL7TFM^XLFDT ($$IEN,$$LKUP,$$NS)^XUAF4
Registration	2	FILE^VAFCTFU $$SITE^VASITE
Clinical Information Resource Network	1	(EXC,START,STOP)^RGHLLOG
Health Level Seven	1	$$EN^HLCSAC
List Manager	1	$$SETSTR^VALM1
Toolkit	1	ADD^XDRDADDS

Package	Total	Caller Graph
Master Patient Index VistA	7	MPIF002 MPIFAPI MPIFD1 MPIFDUP MPIFQ1 MPIFQ3 MPIFRPC2
Clinical Information Resource Network	1	RGRSENS

Name	Comments	DBIA/ICR reference
INTACTV	;Interactive standalone query
CIRNEXC	; Exception Entry Point	ICR #2942 Status: Active Usage: Private
VTQ
JUMP
INIPARS	;
LOOP1	;
DECIDE	;If no data in ^TMP that means the patient was not found in the MPI w/VTQ Query. So we go to A28 to add the patient to the MPI.
EXIT
END
UPDATE(DFN,ICN,CMOR)	;
GETDATA(DIC,DA,MPIFAR,DR,EI)	;
LOOP2	;
MSH	;
MSA	;
RDF	;
QAK	;**43 added check for potential matches
RDT	;

Name	Field # of Occurrence
NOW^%DTC	JUMP
^DIC	INTACTV+3
EN^DIQ1	GETDATA+5
$$EN^HLCSAC	JUMP+14
$$CHANGE^MPIF001	UPDATE+15, UPDATE+17
$$GETDFN^MPIF001	DECIDE+13, UPDATE+2
$$GETICN^MPIF001	CIRNEXC+1
$$IFLOCAL^MPIF001	CIRNEXC+1, CIRNEXC+5
$$SETICN^MPIF001	UPDATE+4
$$SETLOC^MPIF001	UPDATE+8, UPDATE+9
TWODFNS^MPIF002	UPDATE+3
$$A24^MPIFA24B	UPDATE+21
$$MPINODE^MPIFAPI	CIRNEXC+4, VTQ+3
$$HEREICN^MPIFQ3	RDT+14
A28^MPIFQ3	DECIDE+4, DECIDE+21
LOCAL^MPIFQ3	JUMP+19
RDT^MPIFSA3	RDT+3
VTQ1^MPIFVTQ	JUMP+6
EXC^RGHLLOG	UPDATE+22
START^RGHLLOG	DECIDE+12
STOP^RGHLLOG	DECIDE+21, DECIDE+39
FILE^VAFCTFU	UPDATE+32
$$SETSTR^VALM1	RDT+15, RDT+16, RDT+17, RDT+18
$$SITE^VASITE	JUMP+10, UPDATE+7, UPDATE+17
ADD^XDRDADDS	DECIDE+18
$$HL7TFM^XLFDT	UPDATE+30
$$IEN^XUAF4	DECIDE+11, UPDATE+29, RDT+12
$$LKUP^XUAF4	UPDATE+14
$$NS^XUAF4	RDT+13

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^TMP("MPIFQ0"	JUMP+20!, END!
^TMP("MPIFVQQ"	JUMP+20!, DECIDE+2, DECIDE+11, END!, UPDATE+24, UPDATE+27, UPDATE+28, RDT+4, RDT+15, RDT+19
^TMP($J	JUMP+8, JUMP+17, UPDATE+5, UPDATE+10, UPDATE+19*

Name	Line Occurrences
@(	LOOP1+7
END	INTACTV+4, CIRNEXC+1, CIRNEXC+6, VTQ, VTQ+6
EXIT	JUMP+7, JUMP+16, DECIDE+2, DECIDE+8
GETDATA	CIRNEXC+3, VTQ+2
JUMP	CIRNEXC+9
UPDATE	DECIDE+39

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	JUMP~
AL	INIPARS+1~
BIRTHDAY	RDT+1~, RDT+11*, RDT+17
CCMOR	DECIDE+10~, EXIT+1!
CHANGE	UPDATE+1~, UPDATE+15, UPDATE+16, UPDATE+17*, UPDATE+19
CHECK	INIPARS+1~, INIPARS+2!
CHKSUM	UPDATE+1~, UPDATE+2*, UPDATE+4
CMOR	DECIDE+11, DECIDE+39, UPDATE~, UPDATE+14, RDT+1~, RDT+12, RDT+13*, RDT+18
CMOR1	UPDATE+14~*, UPDATE+15, UPDATE+16
DA	GETDATA~
DATA	DECIDE+10~, DECIDE+11*
DFN	INTACTV+1~, INTACTV+5*, CIRNEXC+1, CIRNEXC+3, CIRNEXC+4, CIRNEXC+5, CIRNEXC+6, VTQ, VTQ+2, VTQ+3 , VTQ+6, JUMP+5, JUMP+6, JUMP+8, JUMP+17, JUMP+19, DECIDE+4, DECIDE+14, DECIDE+17, DECIDE+21 , DECIDE+38, DECIDE+39, UPDATE~, UPDATE+3, UPDATE+4, UPDATE+5, UPDATE+8, UPDATE+9, UPDATE+10, UPDATE+15 , UPDATE+17, UPDATE+19, UPDATE+21, UPDATE+22, UPDATE+32
DIC	INTACTV+2!, INTACTV+3*, GETDATA~
DIC(0	INTACTV+3*
DIQ	GETDATA+3~*
DIQ(0	GETDATA+4*
DR	GETDATA~
DTOUT	INTACTV+2!, INTACTV+4
DUOUT	INTACTV+2!, INTACTV+4
EI	GETDATA~, GETDATA+4
EXACT	DECIDE+1~
EXACT2	DECIDE+1~
EXC	DECIDE+1~
FICN	EXIT+1!
FRSTNAME	RDT+1~, RDT+5*, RDT+6
HEADER	JUMP+1~, JUMP+10, JUMP+11, JUMP+12
HEREICN	RDT+1~, RDT+14*, RDT+15
HL	JUMP+1~, JUMP+6, RDT+3
HL("ECH"	JUMP+3*, JUMP+5, JUMP+10, MSH+1
HL("FS"	JUMP+3*, JUMP+10, JUMP+11
>> HLP("ACKTIME"	INTACTV+5, CIRNEXC+7, JUMP+2*, JUMP+15!
ICN	DECIDE+10~, DECIDE+11, DECIDE+13, DECIDE+38, DECIDE+39, UPDATE~, UPDATE+2, UPDATE+3, UPDATE+4, UPDATE+7 , RDT+1~, RDT+10*, RDT+14
IEN	DECIDE+10~, DECIDE+11, RDT+1~, RDT+12, RDT+13
INDEX	INIPARS+1~, INIPARS+2, DECIDE+8, DECIDE+11, UPDATE+24, UPDATE+27, UPDATE+28, RDT+2, RDT+3, RDT+4 , RDT+15, RDT+16, RDT+19
LASTNAME	RDT+1~, RDT+5*, RDT+6
LOCAL	UPDATE+1~, UPDATE+6, UPDATE+7, UPDATE+8, UPDATE+9, UPDATE+17, UPDATE+20
LOCDATA	CIRNEXC+2~, VTQ+1~
LOCDATA(2	CIRNEXC+4, CIRNEXC+6, VTQ+3, VTQ+6, DECIDE+38
MIDDLE	RDT+1~, RDT+5*, RDT+7
MPICNT	JUMP+1~, JUMP+5*, JUMP+11
MPICOMP	INIPARS+1~, MSH+1*
MPICS	JUMP+1~, JUMP+5*, JUMP+11
MPIDC	JUMP+1~
MPIDC(	LOOP2+3, LOOP2+4, LOOP2+5
MPIDONE	LOOP2+1~, LOOP2+2, LOOP2+3, LOOP2+4
MPIFAR	GETDATA~, GETDATA+3
MPIFINT	INTACTV+3*, EXIT!
MPIFLL	INTACTV+1~, CIRNEXC+5*, CIRNEXC+6
MPIFMDT	UPDATE+25~, UPDATE+30*, UPDATE+31
MPIFRES	INTACTV+3*, EXIT!
>> MPIFRPC	INTACTV+4, INTACTV+6, CIRNEXC+1, CIRNEXC+6, JUMP+13, JUMP+18, DECIDE+3, DECIDE+38, EXIT+1
>> MPIFRTN	VTQ+6, JUMP+8, JUMP+19, DECIDE+4, DECIDE+21, DECIDE+39
>> MPIFS	JUMP+13, JUMP+18, DECIDE+3, DECIDE+38
MPII	LOOP2+1~, LOOP2+2, LOOP2+5
MPIIN	JUMP+1~, JUMP+5*
MPIINM	JUMP+1~
MPIJ	LOOP1+6*, LOOP2+1~
MPIMCNT	JUMP+1~, JUMP+5*, JUMP+11
MPINODE	LOOP1+2~, LOOP1+4!
MPINODE(	LOOP1+6, LOOP2+5*
MPINODE(1	LOOP1+5
MPINTF	UPDATE+25~, UPDATE+28*, UPDATE+29, UPDATE+30, UPDATE+31
MPINTFI	UPDATE+25~, UPDATE+26, UPDATE+27, UPDATE+28
MPIOUT	JUMP+1~, JUMP+6
MPIOUT(0	JUMP+7, JUMP+8, JUMP+12!
MPIOUT(1	JUMP+12*
MPIPOT	QAK+1!, QAK+2
MPIQRYNM	CIRNEXC+7, VTQ+5, JUMP+4*, JUMP+6, EXIT!
MPIQUIT	LOOP1+2~, LOOP1+3, LOOP1+4, LOOP2+3, LOOP2+4, LOOP2+5
MPIREP	INIPARS+1~, MSH+1*
MPIX	LOOP1+2~, LOOP1+4
MSG	LOOP1+2~, LOOP1+4!, RDT+3
MSG(	LOOP1+6*
MSG(1	LOOP1+5*, QAK+2
NAME	RDT+1~, RDT+6, RDT+7, RDT+8*, RDT+16
NAME1	INTACTV+1~
REP	LOOP1+2~
RESLT	UPDATE+21~*, UPDATE+22
RGLOG	UPDATE+1~
SEG	INIPARS+1~, RDT+1~, RDT+4*, RDT+5, RDT+6, RDT+9, RDT+10, RDT+11, RDT+12
SETICN	UPDATE+1~, UPDATE+4*, UPDATE+5
SETLOC	UPDATE+1~, UPDATE+6, UPDATE+8, UPDATE+9*, UPDATE+10
SEX	RDT+1~, RDT+9*
SG	LOOP1+2~, LOOP1+5*, LOOP1+7
SITE	JUMP+1~, JUMP+10*
SKIP	INIPARS+1~
SNM	DECIDE+10~
SNM2	DECIDE+10~
SSN	JUMP+1~, RDT+6*, RDT+17
STRING	RDT+1~, RDT+2, RDT+15, RDT+16, RDT+17, RDT+18*, RDT+19
SUFF	RDT+1~, RDT+5*, RDT+8
TEST	JUMP+1~, JUMP+14*, JUMP+16, JUMP+17
TEXT	DECIDE+1~
TF	INIPARS+1~
TF2	INIPARS+1~
TFIEN	UPDATE+25~, UPDATE+29*, UPDATE+31
TFLL	INIPARS+1~
TFSTRG	UPDATE+25~, UPDATE+31*, UPDATE+32
TICN	DECIDE+10~, DECIDE+13, DECIDE+14, DECIDE+17, UPDATE+1~, UPDATE+2, UPDATE+3
TIME	JUMP~*, JUMP+8, JUMP+17, UPDATE+5, UPDATE+10, UPDATE+19
TMP	UPDATE+1~
TSSN	CIRNEXC+4, VTQ+3, EXIT!
TTF2	INIPARS+1~
TWODFN	LOOP1+3!, DECIDE+18*, DECIDE+38, EXIT!, UPDATE+3
VALMCNT	EXIT+1!
VALMLST	EXIT+1!
X	INTACTV+2!
XDRFL	DECIDE+16~, DECIDE+17*, DECIDE+18
XDRLST	DECIDE+16~, DECIDE+18
XDRLST(1	DECIDE+17*
XDRSLT	DECIDE+16~, DECIDE+18
Y	INTACTV+2!, INTACTV+4, INTACTV+5

Customize PDF page

Package: Master Patient Index VistA

Routine: MPIFQ0

Information

Source Information

Call Graph

Call Graph Total: 18

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 8

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: