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+39
$$HLDATE^HLFNC VTQ+19
RDT^MPIFSA3 RDT+2
$$SITE^VASITE VTQ+35
$$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+41
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+11
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+42!, DISPLAY+21*, DISPLAY+22*, DISP2+4, DISP2+5, DISP2+6, DISP2+8, DISP2+12, EXIT!, ASK+8
, ASK+9
^TMP("MPIFVQQ" VTQ+42!, LOOP1+8, DISPLAY+6, DISPLAY+7, DISPLAY+22
^XTMP( ENRPC+21, ENRPC+23, ENRPC+24, ENRPC+25!

Label References

Name Line Occurrences
@( LOOP1+7
ASK DISP2+17
BLDRDF VTQ+11
DISP2 DISP2+23
ENRPC DISP2+19
EXIT VTQ+41, 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+10*, DISPLAY+15
AMID DISPLAY+3~
ANAME DISPLAY+3~
APRE DISPLAY+3~
ASUF DISPLAY+3~
BC ASK+1~, ASK+2*, ASK+4
BIRTHDAY DISPLAY+3~, DISPLAY+9*, DISPLAY+21
CASE DISPLAY+4~
CHECK INIPARS+1~, INIPARS+2!, DISPLAY+9!
CLAIM DISPLAY+4~
CMOR DISPLAY+3~
CMOR2 DISPLAY+4~
CMOR3 DISPLAY+4~
CNT1 DISPLAY+3~, DISPLAY+5*, DISPLAY+6*, DISPLAY+7, DISPLAY+22
CNT2 DISPLAY+3~
CNT3 DISPLAY+3~
CNTR ASK+1~, ASK+6*, ASK+10*
CNTR2 DISPLAY+3~
>> COUNT DISP2+1*, DISP2+7*, DISP2+11
CUSER DISPLAY+4~
DA DISP2+21!, EXIT!, ASK+1~
DATA DISPLAY+3~, DISPLAY+7*, DISPLAY+8, DISPLAY+9, DISPLAY+10, 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 DISP2+22, ASK+5
>> DUOUT DISP2+22, ASK+5
EC ASK+1~, ASK+2*, ASK+3*, ASK+4
>> ENOUGH DISP2+15*, DISP2+17, DISP2+22*, ASK+5*
HDL HDR~, HDR+1
HEADER VTQ+3~, VTQ+36*, VTQ+37
HL VTQ+3~, RDT+2
HL("ECH" VTQ+4*, VTQ+10, VTQ+36, MSH+1
HL("FS" VTQ+4*, VTQ+13, VTQ+36, BLDRDF+1
>> HLP("ACKTIME" VTQ+4*, VTQ+40!
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+9*, DISPLAY+21, DISPLAY+22, DISP2+6*, DISP2+7, DISP2+8, DISP2+11, DISP2+12, ASK+1~
, ASK+9*, ASK+10, ENRPC~, ENRPC+3
>> 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+15*, DISPLAY+21, DISPLAY+22
MBIRTH DISPLAY+4~
MIDDLE DISPLAY+4~
MNAME DISPLAY+4~
MPI1NM VTQ+3~, VTQ+16*, VTQ+21*, VTQ+22, VTQ+23
MPI2NM VTQ+3~, VTQ+14*
MPICNT VTQ+3~, VTQ+4*, VTQ+36, BLDRDF~, BLDRDF+1, BLDRDF+5, BLDRDF+6, BLDRDF+8, BLDRDF+9*, BLDRDF+10
MPICOMP INIPARS+1~, MSH+1*
MPICS VTQ+3~, VTQ+4*, VTQ+10*, VTQ+11, VTQ+14, VTQ+15, VTQ+16, VTQ+20, VTQ+21, VTQ+22
, VTQ+23, VTQ+24, VTQ+25, VTQ+26, VTQ+27, VTQ+28, VTQ+29, VTQ+36, 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+10*
MPIFLDV VTQ+3~, BLDRDF+2*, BLDRDF+3*, BLDRDF+5, BLDRDF+6, BLDRDF+9, BLDRDF+10
MPIHDOB VTQ+3~, VTQ+19*, VTQ+20
MPII LOOP2+1~, LOOP2+2*, LOOP2+5*
MPIIN VTQ+3~, VTQ+4*
MPIINM VTQ+3~
MPIJ LOOP1+6*, LOOP2+1~
MPIMCNT VTQ+3~, VTQ+8*, VTQ+36
>> MPIMID VTQ+21*
MPINM VTQ+3~
MPINODE LOOP1+2~, LOOP1+4!
MPINODE( LOOP1+6, LOOP2+5*
MPINODE(1 LOOP1+5
MPIOUT VTQ+3~, VTQ+11, BLDRDF~
MPIOUT( BLDRDF+1*, BLDRDF+5, BLDRDF+6*, BLDRDF+8, BLDRDF+9*, BLDRDF+10*
MPIOUT(0 VTQ+37!
MPIOUT(1 VTQ+37*
MPIOUT(2 VTQ+37*
>> MPIPRE VTQ+23*
MPIQRYNM VTQ+3~, VTQ+6*, VTQ+13
MPIQUIT LOOP1+2~, LOOP1+3*, LOOP1+4, LOOP2+3*, LOOP2+4, LOOP2+5
MPIREP INIPARS+1~, MSH+1*
MPIRS VTQ+3~, VTQ+10*, VTQ+11, VTQ+15, VTQ+16, VTQ+20, VTQ+21, VTQ+22, VTQ+23, VTQ+24
, VTQ+25, VTQ+26, VTQ+27, VTQ+28, VTQ+29, BLDRDF~, BLDRDF+3
MPISCS VTQ+3~, VTQ+10*
>> MPISUF VTQ+22*
MPIVAR VTQ~
MPIVAR("ADDR1" VTQ+25
MPIVAR("ADDR2" VTQ+26
MPIVAR("ADDR3" VTQ+28
MPIVAR("CITY" VTQ+27
MPIVAR("DFN" VTQ+7*, VTQ+8, VTQ+13
MPIVAR("DOB" VTQ+18, VTQ+19
MPIVAR("NM" VTQ+14, VTQ+16, VTQ+21
MPIVAR("PHONE" VTQ+29
MPIVAR("SEX" VTQ+24
MPIVAR("SSN" VTQ+15
MPIX LOOP1+2~*, LOOP1+4*
MSG LOOP1+2~, LOOP1+4!, RDT+2
MSG( LOOP1+6*
MSG(1 LOOP1+5*
NAME DISPLAY+3~, DISPLAY+9*, DISPLAY+21
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+6*, ASK+8, ASK+9, ASK+10*
QUEDDOB VTQ+3~, VTQ+20*
QUERY VTQ+3~, VTQ+13*, VTQ+14*, VTQ+15*, VTQ+16*, VTQ+20*, VTQ+21*, VTQ+22*, VTQ+23*, VTQ+24*
, VTQ+25*, VTQ+26*, VTQ+27*, VTQ+28*, VTQ+29*, VTQ+37
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+10*, DISPLAY+11, DISPLAY+15, DISPLAY+21, DISPLAY+22, DISP2+5*, DISP2+6, DISP2+8, DISP2+12
SEG INIPARS+1~
SEX DISPLAY+4~, DISPLAY+10*, DISPLAY+21
SG LOOP1+2~, LOOP1+5*, LOOP1+7
SITE VTQ+3~, VTQ+35*, VTQ+36
SKIP INIPARS+1~
SSN DISPLAY+3~, DISPLAY+9*, DISPLAY+21
STOP DISPLAY+3~, DISPLAY+6, DISPLAY+11*, DISPLAY+23
SUFFIX DISPLAY+4~
T BLDRDF+1~*, BLDRDF+2, BLDRDF+3
TEST VTQ+3~, VTQ+39*, VTQ+41
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+10*
TMP DISP2+12~*, DISP2+13*, ASK+3*
>> TMPICN 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