Routine: RGEVPM

Package	Total	Call Graph
Kernel	3	^%ZISC $$FMTE^XLFDT EN^XUTMDEVQ
VA FileMan	3	NOW^%DTC ^DIK ^DIR
Registration	2	DEM^VADPT $$SITE^VASITE
Master Patient Index VistA	1	$$GETICN^MPIF001

Entry Points

Name	Comments	DBIA/ICR reference
BEGIN	;
DEV	;
START	;
LOOP	;Search ^RGHL7(991.1,"ADFN" to see how many patients need to be resolved to MPI
PRT	;Print report
QUIT	;
HDR	;HEADER
EXCTMP	;Count number of POTENTIAL MATCH type entries (IEN=218) in CIRN HL7 EXCEPTION LOG
SETTMP	;set TMP global for patient check
DELDUP	;delete patient dups from file
CURPM()	;Call to check if there are any patients in the CIRN HL7 EXCEPTION LOG

External References

Name	Field # of Occurrence
NOW^%DTC	PRT+2
^%ZISC	QUIT+6
^DIK	DELDUP+3
^DIR	QUIT+1, HDR+2
$$GETICN^MPIF001	LOOP+5, CURPM+8
DEM^VADPT	LOOP+8
$$SITE^VASITE	START+1, CURPM+5
$$FMTE^XLFDT	PRT+2
EN^XUTMDEVQ	DEV+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This report prints a list of patients who have been identified as having" Line Location: BEGIN+1
Function Call: WRITE	Prompt: !,"multiple Potential Matches on the Master Patient Index (MPI) and who haven't" Line Location: BEGIN+2
Function Call: WRITE	Prompt: !,"yet been resolved using the option ""Single Patient Initialization to MPI""." Line Location: BEGIN+3
Function Call: WRITE	Prompt: !,"Status is current as of the date/time the report is generated." Line Location: BEGIN+4
Function Call: WRITE	Prompt: !!,"This data is pulled from the CIRN HL7 EXCEPTION LOG file (#991.1)." Line Location: BEGIN+5
Function Call: WRITE	Prompt: !,"Prior to producing the report, duplicate POTENTIAL MATCH patients will be" Line Location: BEGIN+6
Function Call: WRITE	Prompt: !,"purged from the file." Line Location: BEGIN+7
Function Call: WRITE	Prompt: !!,"There are no patients identified as Potential Matches." Line Location: BEGIN+10
Function Call: WRITE	Prompt: !!,"The right margin for this report is 80.",!! Line Location: DEV+1
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!!" Line Location: DEV+3
Function Call: WRITE	Prompt: !!,"No patients found who need to be resolved to the MPI." Line Location: PRT+4
Function Call: WRITE	Prompt: !,PTNM,?36,SSN,?50,DOB,?68,$J(RGDFN,9) Line Location: PRT+18
Function Call: WRITE	Prompt: !!,"TOTAL: ",CNT Line Location: PRT+19
Function Call: WRITE	Prompt: ! Line Location: QUIT+2
Function Call: WRITE	Prompt: ! Line Location: HDR+1
Function Call: WRITE	Prompt: !,"PATIENT LIST of Potential Matches to be Resolved",?72,"Page: ",PG Line Location: HDR+4
Function Call: WRITE	Prompt: !,"Printed at ",LOCSITE," on ",HDT Line Location: HDR+5
Function Call: WRITE	Prompt: !!,"Patient Name",?39,"SSN",?52,"DOB",?70,"DFN",!,LN Line Location: HDR+6
Function Call: WRITE	Prompt: !!,"...one moment please..",! Line Location: EXCTMP+2
Function Call: WRITE	Prompt: !,DUPCNT," duplicate patient entries for POTENTIAL MATCH exceptions were identified" Line Location: EXCTMP+25
Function Call: WRITE	Prompt: !,"and deleted from the CIRN HL7 EXCEPTION LOG file (#991.1)." Line Location: EXCTMP+26
Routine Call	DIR Line Location: QUIT+1 HDR+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RGHL7(991.1 - [#991.1]	LOOP+4, EXCTMP+5, EXCTMP+7, EXCTMP+9, EXCTMP+11, CURPM+7
^TMP("RGEVPM"	LOOP+1!, LOOP+9, PRT+4, PRT+8, PRT+10, PRT+13, PRT+15, PRT+16, PRT+17, QUIT+3! , EXCTMP+3!, EXCTMP+12, EXCTMP+15, EXCTMP+16, SETTMP+1

Label References

Name	Line Occurrences
DELDUP	EXCTMP+20, EXCTMP+24
EXCTMP	BEGIN+9
HDR	PRT+3, PRT+18
QUIT	BEGIN+10, DEV+4, PRT+4
SETTMP	EXCTMP+14, EXCTMP+21

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	PRT+2, QUIT+4!
CNT	PRT+7, PRT+10, PRT+19, QUIT+4!, EXCTMP+4, EXCTMP+10
DA	QUIT+4!, EXCTMP+19, EXCTMP+23, DELDUP+3!
DA(1	EXCTMP+19, EXCTMP+23, DELDUP+2
DFN	LOOP+8*, QUIT+4!
DIK	QUIT+4!, DELDUP+2*, DELDUP+3!
DIR	QUIT+1!, QUIT+4!, HDR+2!
DIR(0	QUIT+1, HDR+2
DOB	PRT+17*, PRT+18, QUIT+4!
DUPCNT	QUIT+4!, EXCTMP+4, EXCTMP+25, DELDUP+1
EXCDT	QUIT+4!, EXCTMP+11*, EXCTMP+18, EXCTMP+22, SETTMP+1
GOT	CURPM+4~, CURPM+6, CURPM+7, CURPM+9, CURPM+10
HDT	PRT+2*, QUIT+4!, HDR+5
HOME	START+1*, LOOP+6, PRT+1, QUIT+4!
ICN	LOOP+5, LOOP+6, QUIT+4!, CURPM+4~, CURPM+8, CURPM+9
IEN	QUIT+4!, EXCTMP+6, EXCTMP+7, EXCTMP+9, EXCTMP+11, EXCTMP+23, SETTMP+1
IEN2	QUIT+4!, EXCTMP+8, EXCTMP+9, EXCTMP+23, SETTMP+1
IOF	HDR+3
IOSL	PRT+18
IOST	QUIT+1, HDR+1, HDR+2, HDR+3
JJ	QUIT+2, QUIT+4!, HDR+1
LCNT	QUIT+4!
LN	PRT+1*, QUIT+4!, HDR+6
LOC	CURPM+4~, CURPM+5*, CURPM+9
LOCSITE	PRT+1*, QUIT+4!, HDR+5
NCNT	QUIT+5!
NODE	QUIT+5!
OLDDT	QUIT+5!, EXCTMP+17*, EXCTMP+18, EXCTMP+22
OLDNODE	QUIT+5!, EXCTMP+16*, EXCTMP+17, EXCTMP+19
PG	PRT+1, QUIT+5!, HDR+2, HDR+3, HDR+4
>> POP	DEV+2
PTNM	PRT+7, PRT+8, PRT+10, PRT+12, PRT+13, PRT+15, PRT+16, PRT+17, PRT+18, QUIT+5!
QFLG	RGEVPM+2, PRT+1, PRT+8, PRT+13, PRT+15, PRT+18, QUIT+1, QUIT+5!, HDR+2*
RCNT	LOOP+3, LOOP+7, QUIT+5!
RDT	QUIT+5!
RGDFN	LOOP+3, LOOP+4, LOOP+5, LOOP+8, LOOP+9, PRT+9, PRT+10, PRT+14, PRT+15, PRT+16 , PRT+17, PRT+18, QUIT+5!, EXCTMP+4, EXCTMP+5, EXCTMP+7, EXCTMP+9, EXCTMP+12, EXCTMP+15, EXCTMP+16 , SETTMP+1, CURPM+4~, CURPM+6, CURPM+7, CURPM+8
SS	QUIT+2, QUIT+5!, HDR+1
SSN	PRT+16*, PRT+18, QUIT+5!
VADM	QUIT+5!
VADM(1	LOOP+9
VADM(2	LOOP+9
VADM(3	LOOP+9
X	QUIT+5!
XCNT	BEGIN+10, QUIT+5!, EXCTMP+4, EXCTMP+13
Y	QUIT+5!, HDR+2
>> ZTQUEUED	QUIT+6
>> ZTREQ	QUIT+6*
ZTSK	QUIT+5!

Customize PDF page

Package: Clinical Information Resource Network

Routine: RGEVPM

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: