Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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) ;

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
Info |  Source |  Entry Points |  Interaction Calls