Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: RGEVPM

Package: Clinical Information Resource Network

Routine: RGEVPM


Information

RGEVPM ;BIR/CML-VIEW POTENTIAL MATCH PATIENT LIST ;07/20/99

Source Information

Source file <RGEVPM.m>

Call Graph

Call Graph

Call Graph Total: 9

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!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All