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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: MPIFSA2

Package: Master Patient Index VistA

Routine: MPIFSA2


Information

MPIFSA2 ;SF/CMC,CKN-STAND ALONE QUERY PART 2 ; 4/29/14 1:34pm

Source Information

Source file <MPIFSA2.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Health Level Seven 2 $$EN^HLCSAC  $$HLDATE^HLFNC  
VA FileMan 2 NOW^%DTC  ^DIR  
Kernel 1 ($$LKUP,$$NS)^XUAF4  
Master Patient Index VistA 1 RDT^MPIFSA3  
RPC Broker 1 (EN1,RPCCHK)^XWB2HL7  
Registration 1 $$SITE^VASITE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Master Patient Index VistA 2 MPIFSAQ  MPIFVTQ  

Entry Points

Name Comments DBIA/ICR reference
FIELD ;
VTQ(MPIVAR) ;
INIPARS ;
LOOP1 ;
DISPLAY ; display data found
DISP2 ;
EXIT
HDR(HDL) ;Header
HDR1 ;Repeating header
; Story 603957 (elz) change Sex to Birth Sex
ASK ;
ENRPC(ICN) ;RPC Call
LOOP2 ;
MSH ;
MSA ;
RDF ;
QAK ;
RDT ;
BLDRDF(MPIOUT,MPICNT,MPIRS,MPICS) ;

External References

Name Field # of Occurrence
NOW^%DTC VTQ+1
^DIR DISP2+21, ASK+4
$$EN^HLCSAC VTQ+40
$$HLDATE^HLFNC VTQ+20
RDT^MPIFSA3 RDT+2
$$SITE^VASITE VTQ+36
$$LKUP^XUAF4 DISP2+13
$$NS^XUAF4 DISP2+13
EN1^XWB2HL7 ENRPC+3
RPCCHK^XWB2HL7 ENRPC+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Attempting to connect to the Master Patient Index in Austin...",!,"If DOB is inexact or if SSN is not passed or if common name,",!,"this could take some time - please be patient...."
  • Line Location: VTQ+2
Function Call: WRITE
  • Prompt: !!,"Could not connect to MPI or Time-out occured, try again later."
  • Line Location: VTQ+42
Function Call: WRITE
  • Prompt: !!,"Patient was not found in the MPI."
  • Line Location: LOOP1+8
Function Call: WRITE
  • Prompt: !!,"More Identity Traits Required to Make a Match."
  • Line Location: LOOP1+9
Function Call: WRITE
  • Prompt: !!,"Found potential matches"
  • Line Location: DISPLAY+1
Function Call: WRITE
  • Prompt: !!,"Found One Match"
  • Line Location: DISPLAY+2
Function Call: WRITE
  • Prompt: !!,"IdM System uavailable, try again later!"
  • Line Location: DISPLAY+12
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISP2+2
Function Call: WRITE
  • Prompt: !,COUNT_") ",?4,ICN,?22,$P(DATA,"^"),?54,$P(DATA,"^",2),?65,$P(DATA,"^",3),?76,$P(DATA,"^",4)
  • Line Location: DISP2+11
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP2+12
Function Call: WRITE
  • Prompt: !,?10,"Treating Facility: ",$P($$NS^XUAF4($$LKUP^XUAF4(TMP)),"^")," (",TMP,")"
  • Line Location: DISP2+13
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP2+14
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP2+16
Function Call: WRITE
  • Prompt: !,"Please wait..."
  • Line Location: DISP2+19
Function Call: WRITE
  • Prompt: !!
  • Line Location: DISP2+20
Function Call: WRITE
  • Prompt: !!
  • Line Location: EXIT+0
Function Call: WRITE
  • Prompt: !,"--- All ICNs Below meet the"_HDL_" Match criteria ---"
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,?74,"BIRTH"
  • Line Location: HDR1+2
Function Call: WRITE
  • Prompt: !,?4,"ICN",?22,"NAME",?54,"SSN",?65,"DOB",?75,"SEX"
  • Line Location: HDR1+3
Function Call: WRITE
  • Prompt: !,$P(HNDL,"^",2)
  • Line Location: ENRPC+7
Function Call: WRITE
  • Prompt: "."
  • Line Location: ENRPC+8
Function Call: WRITE
  • Prompt: !,$P(RETURN(0),"^",2)
  • Line Location: ENRPC+9
Function Call: WRITE
  • Prompt: !,"MPI system is unavailable to display the record, Try again later."
  • Line Location: ENRPC+10
Function Call: WRITE
  • Prompt: "."
  • Line Location: ENRPC+13
Function Call: WRITE
  • Prompt: !,"MPI system is unavailable to display the record, Try again later."
  • Line Location: ENRPC+19
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ENRPC+22
Routine Call
  • DIR
  • Line Location:
    • DISP2+21
    • ASK+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("MPIDOQ" VTQ+43!, DISPLAY+22*, DISPLAY+23*, DISP2+4, DISP2+5, DISP2+6, DISP2+8, DISP2+12, EXIT!, ASK+8
, ASK+9
^TMP("MPIFVQQ" VTQ+43!, LOOP1+8, DISPLAY+7, DISPLAY+8, DISPLAY+23
^XTMP( ENRPC+21, ENRPC+23, ENRPC+24, ENRPC+25!

Label References

Name Line Occurrences
@( LOOP1+7
ASK DISP2+17
BLDRDF VTQ+12
DISP2 DISP2+23
ENRPC DISP2+19
EXIT VTQ+42, LOOP1+8, LOOP1+9, DISP2+17, DISP2+22
HDR DISP2+4
HDR1 DISP2+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% VTQ+1~
AFN DISPLAY+3~
AL INIPARS+1~
ALN DISPLAY+3~
ALTRSHLD DISPLAY+4~, DISPLAY+11*, DISPLAY+16
AMID DISPLAY+3~
ANAME DISPLAY+3~
APRE DISPLAY+3~
ASUF DISPLAY+3~
BC ASK+1~, ASK+2*, ASK+4
BIRTHDAY DISPLAY+3~, DISPLAY+10*, DISPLAY+22
CASE DISPLAY+4~
CHECK INIPARS+1~, INIPARS+2!, DISPLAY+10!
CLAIM DISPLAY+4~
CMOR DISPLAY+3~
CMOR2 DISPLAY+4~
CMOR3 DISPLAY+4~
CNT1 DISPLAY+3~, DISPLAY+6*, DISPLAY+7*, DISPLAY+8, DISPLAY+23
CNT2 DISPLAY+3~
CNT3 DISPLAY+3~
CNTR ASK+1~, ASK+6*, ASK+10*
CNTR2 DISPLAY+3~
COUNT DISPLAY+5~, DISP2+1*, DISP2+7*, DISP2+11
CUSER DISPLAY+4~
DA DISP2+21!, EXIT!, ASK+1~
DATA DISPLAY+3~, DISPLAY+8*, DISPLAY+9, DISPLAY+10, DISPLAY+11, DISP2+8*, DISP2+11
DIR DISPLAY+3~, DISP2+21!, ASK+1~, ASK+4!
DIR("?" ASK+4*
DIR("A" DISP2+21*, ASK+4*
DIR("B" DISP2+21*
DIR(0 DISP2+21*, ASK+4*
DR ASK+1~
DTOUT DISPLAY+5~, DISP2+22, ASK+5
DUOUT DISPLAY+5~, DISP2+22, ASK+5
EC ASK+1~, ASK+2*, ASK+3*, ASK+4
ENOUGH DISPLAY+5~, DISP2+15*, DISP2+17, DISP2+22*, ASK+5*
HDL HDR~, HDR+1
HEADER VTQ+3~, VTQ+37*, VTQ+38
HL VTQ+3~, RDT+2
HL("ECH" VTQ+5*, VTQ+11, VTQ+37, MSH+1
HL("FS" VTQ+5*, VTQ+14, VTQ+37, BLDRDF+1
>> HLP("ACKTIME" VTQ+5*, VTQ+41!
HNDL ENRPC+1~, ENRPC+4*, ENRPC+6, ENRPC+7, ENRPC+8, ENRPC+21, ENRPC+23, ENRPC+24, ENRPC+25
I DISPLAY+4~, DISP2+3*, DISP2+4, DISP2+5, DISP2+6, DISP2+8, DISP2+12, ASK+7*, ASK+8, ASK+9
, ENRPC+1~, ENRPC+8*, BLDRDF+1~*, BLDRDF+2, BLDRDF+3
ICN DISPLAY+3~, DISPLAY+10*, DISPLAY+22, DISPLAY+23, DISP2+6*, DISP2+7, DISP2+8, DISP2+11, DISP2+12, ASK+1~
, ASK+9*, ASK+10, ENRPC~, ENRPC+3
ICNARR DISPLAY+5~
ICNARR( DISP2+7*, ASK+3
IEN DISPLAY+4~
INDEX INIPARS+1~, INIPARS+2*, LOOP1+9, DISPLAY+1, DISPLAY+2, RDT+1*, RDT+2
IOF DISP2+2, ENRPC+22
LOC ENRPC+1~, ENRPC+2*, ENRPC+3
M DISPLAY+5~, DISPLAY+16*, DISPLAY+22, DISPLAY+23
MBIRTH DISPLAY+4~
MIDDLE DISPLAY+4~
MNAME DISPLAY+4~
MPI1NM VTQ+3~, VTQ+17*, VTQ+22*, VTQ+23, VTQ+24
MPI2NM VTQ+3~, VTQ+15*
MPICNT VTQ+3~, VTQ+5*, VTQ+37, BLDRDF~, BLDRDF+1, BLDRDF+5, BLDRDF+6, BLDRDF+8, BLDRDF+9*, BLDRDF+10
MPICOMP INIPARS+1~, MSH+1*
MPICS VTQ+3~, VTQ+5*, VTQ+11*, VTQ+12, VTQ+15, VTQ+16, VTQ+17, VTQ+21, VTQ+22, VTQ+23
, VTQ+24, VTQ+25, VTQ+26, VTQ+27, VTQ+28, VTQ+29, VTQ+30, VTQ+37, BLDRDF~, BLDRDF+2
, BLDRDF+3
MPIDC VTQ+3~
MPIDC( LOOP2+3, LOOP2+4, LOOP2+5
MPIDONE LOOP2+1~, LOOP2+2*, LOOP2+3, LOOP2+4*
MPIESC VTQ+3~, VTQ+11*
MPIFLDV VTQ+3~, BLDRDF+2*, BLDRDF+3*, BLDRDF+5, BLDRDF+6, BLDRDF+9, BLDRDF+10
MPIHDOB VTQ+3~, VTQ+20*, VTQ+21
MPII LOOP2+1~, LOOP2+2*, LOOP2+5*
MPIIN VTQ+3~, VTQ+5*
MPIINM VTQ+3~
MPIJ LOOP1+6*, LOOP2+1~
MPIMCNT VTQ+3~, VTQ+9*, VTQ+37
MPIMID VTQ+4~, VTQ+22*
MPINM VTQ+3~
MPINODE LOOP1+2~, LOOP1+4!
MPINODE( LOOP1+6, LOOP2+5*
MPINODE(1 LOOP1+5
MPIOUT VTQ+3~, VTQ+12, BLDRDF~
MPIOUT( BLDRDF+1*, BLDRDF+5, BLDRDF+6*, BLDRDF+8, BLDRDF+9*, BLDRDF+10*
MPIOUT(0 VTQ+38!
MPIOUT(1 VTQ+38*
MPIOUT(2 VTQ+38*
MPIPRE VTQ+4~, VTQ+24*
MPIQRYNM VTQ+3~, VTQ+7*, VTQ+14
MPIQUIT LOOP1+2~, LOOP1+3*, LOOP1+4, LOOP2+3*, LOOP2+4, LOOP2+5
MPIREP INIPARS+1~, MSH+1*
MPIRS VTQ+3~, VTQ+11*, VTQ+12, VTQ+16, VTQ+17, VTQ+21, VTQ+22, VTQ+23, VTQ+24, VTQ+25
, VTQ+26, VTQ+27, VTQ+28, VTQ+29, VTQ+30, BLDRDF~, BLDRDF+3
MPISCS VTQ+3~, VTQ+11*
MPISUF VTQ+4~, VTQ+23*
MPIVAR VTQ~
MPIVAR("ADDR1" VTQ+26
MPIVAR("ADDR2" VTQ+27
MPIVAR("ADDR3" VTQ+29
MPIVAR("CITY" VTQ+28
MPIVAR("DFN" VTQ+8*, VTQ+9, VTQ+14
MPIVAR("DOB" VTQ+19, VTQ+20
MPIVAR("NM" VTQ+15, VTQ+17, VTQ+22
MPIVAR("PHONE" VTQ+30
MPIVAR("SEX" VTQ+25
MPIVAR("SSN" VTQ+16
MPIX LOOP1+2~*, LOOP1+4*
MSG LOOP1+2~, LOOP1+4!, RDT+2
MSG( LOOP1+6*
MSG(1 LOOP1+5*
NAME DISPLAY+3~, DISPLAY+10*, DISPLAY+22
ND ASK+1~, ENRPC+1~, ENRPC+23*, ENRPC+24
NOIS DISPLAY+4~
PAST DISPLAY+3~
POBC DISPLAY+3~
POBS DISPLAY+3~
POW DISPLAY+4~
PREFIX DISPLAY+3~
QFLG ASK+1~, ASK+6*, ASK+8, ASK+9, ASK+10*
QUEDDOB VTQ+3~, VTQ+21*
QUERY VTQ+3~, VTQ+14*, VTQ+15*, VTQ+16*, VTQ+17*, VTQ+21*, VTQ+22*, VTQ+23*, VTQ+24*, VTQ+25*
, VTQ+26*, VTQ+27*, VTQ+28*, VTQ+29*, VTQ+30*, VTQ+38
RDF VTQ+3~
REP LOOP1+2~
RETURN ENRPC+1~, ENRPC+3, ENRPC+8!, ENRPC+25!
RETURN(0 ENRPC+4, ENRPC+8, ENRPC+9, ENRPC+10
RETURN(1 ENRPC+6
SC ASK+1~, ASK+8*, ASK+9
SCORE DISPLAY+4~, DISPLAY+11*, DISPLAY+12, DISPLAY+16, DISPLAY+22, DISPLAY+23, DISP2+5*, DISP2+6, DISP2+8, DISP2+12
SEG INIPARS+1~
SEX DISPLAY+4~, DISPLAY+11*, DISPLAY+22
SG LOOP1+2~, LOOP1+5*, LOOP1+7
SITE VTQ+3~, VTQ+36*, VTQ+37
SKIP INIPARS+1~
SSN DISPLAY+3~, DISPLAY+10*, DISPLAY+22
STOP DISPLAY+3~, DISPLAY+7, DISPLAY+12*, DISPLAY+24
SUFFIX DISPLAY+4~
T BLDRDF+1~*, BLDRDF+2, BLDRDF+3
TEST VTQ+3~, VTQ+40*, VTQ+42
TF INIPARS+1~, DISPLAY+3~
TF2 INIPARS+1~, DISPLAY+4~
TFLL INIPARS+1~
TFN DISPLAY+4~
TIEN DISPLAY+4~
TIME VTQ+1~*
TKTRSHLD DISPLAY+4~, DISPLAY+11*
TMP DISP2+12~*, DISP2+13*, ASK+3*
TMPICN DISPLAY+5~, DISP2+19, ASK+10*
TOTLEN BLDRDF+4~, BLDRDF+5*, BLDRDF+6, BLDRDF+7
TTF DISPLAY+3~
TTF2 INIPARS+1~
X DISPLAY+3~, EXIT!, ASK+4!
XLEN BLDRDF+4~, BLDRDF+8*, BLDRDF+9, BLDRDF+10
XXX DISPLAY+3~, DISP2+12*
Y DISPLAY+3~, DISP2+23, EXIT!, ASK+4!, ASK+10

Marked Items

Name Field # of Occurrence
$T(FIELD+I BLDRDF+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All