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: MPIFQ1

Package: Master Patient Index VistA

Routine: MPIFQ1


Information

MPIFQ1 ;ALB/RJS-CIRN QUERY HANDLER ;JUN 30, 1997

Source Information

Source file <MPIFQ1.m>

Entry Points

Name Comments DBIA/ICR reference
INIT ;Entry point for List Manager Template - MPIF REAL-TIME QUERY
HDR ;Header code for List Manager Template - MPIF REAL-TIME QUERY
START(INDEX) ;Starting entry point for envoking the List Manager Template MPIF Real-time query
SELECT
ADD ;Add (MPIF REAL-TIME QUERY (ADD PATIENT)) add pt to MPI Austin.
MPIPD ; MPI PDAT CALL
CMOR ; CMOR PDAT CALL
AGAIN1
END
HELP ; Help List Manager Action (MPIF REAL-TIME QUERY (HELP))
EXIT ;Exit for List Manager Template MPIF REAL-TIME QUERY

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Sex for these two patients doesn't match -- Can't select this patient until",!,"Sex matches between the MPI and your site. No action will be taken."
  • Line Location: SELECT+20
Function Call: WRITE
  • Prompt: !!,"SSN for these two patients doesn't match -- Can't select this patient until",!,"SSN matches between the MPI and your site. No action will be taken."
  • Line Location: SELECT+22
Function Call: WRITE
  • Prompt: !!,"ICN and CMOR Updated"
  • Line Location: SELECT+36
Function Call: WRITE
  • Prompt: !,"MPI Data:",!!!,?3,"ICN: ",+$P(DATA,"^",6),?30,"CMOR: ",CMOR," (",CMOR3,")"
  • Line Location: MPIPD+8
Function Call: WRITE
  • Prompt: !,?2,"NAME: ",$P(DATA,"^")
  • Line Location: MPIPD+9
Function Call: WRITE
  • Prompt: !,?3,"SSN: ",$P(DATA,"^",3),?30,"SEX: ",$P(DATA,"^",11)
  • Line Location: MPIPD+10
Function Call: WRITE
  • Prompt: !,?3,"DOB: ",$P(DATA,"^",4)
  • Line Location: MPIPD+11
Function Call: WRITE
  • Prompt: ?30,"DOD: ",$P(DATA,"^",9)
  • Line Location: MPIPD+12
Function Call: WRITE
  • Prompt: !?3,"Multiple Birth Indicator: Yes"
  • Line Location: MPIPD+13
Function Call: WRITE
  • Prompt: !,?2,"PLACE OF BIRTH: ",$P(DATA,"^",12),", ",$P(DATA,"^",13)
  • Line Location: MPIPD+14
Function Call: WRITE
  • Prompt: !,?2,"PLACE OF BIRTH: ",$P(DATA,"^",12)," ",$P(DATA,"^",13)
  • Line Location: MPIPD+15
Function Call: WRITE
  • Prompt: !,?2,"MOTHER'S MAIDEN NAME: ",$P(DATA,"^",16)
  • Line Location: MPIPD+16
Function Call: WRITE
  • Prompt: !,?2,"CLAIM NUMBER: ",$P(DATA,"^",17)
  • Line Location: MPIPD+17
Function Call: WRITE
  • Prompt: !,?2,"POW STATUS: ",POW
  • Line Location: MPIPD+18
Function Call: WRITE
  • Prompt: !,?2,"Open Data Management Case",!,?5,"CASE#: ",$P(CASE,"/")_" NOIS#: ",$P(CASE,"/",2),!,?5,"CASE WORKER: ",$P(CASE,"/",3)
  • Line Location: MPIPD+20
Function Call: WRITE
  • Prompt: !,?2,"Alias(es): "
  • Line Location: MPIPD+21
Function Call: WRITE
  • Prompt: !?10,^(XX)
  • Line Location: MPIPD+22
Function Call: WRITE
  • Prompt: !?10,"Treating Facility: ",$P($$NS^XUAF4($$LKUP^XUAF4(TMP)),"^")," (",TMP,")"
  • Line Location: MPIPD+25
Function Call: WRITE
  • Prompt: !!,"CMOR is your site"
  • Line Location: CMOR+6
Function Call: WRITE
  • Prompt: !,"Please be patient while the data is being retrieved from the CMOR."
  • Line Location: CMOR+7
Function Call: WRITE
  • Prompt: !,"Unable to get data"
  • Line Location: AGAIN1+2
Function Call: WRITE
  • Prompt: !,"Unable to get data"
  • Line Location: AGAIN1+4
Function Call: WRITE
  • Prompt: !!,$P(RES1(0),"^",2)
  • Line Location: AGAIN1+5
Function Call: WRITE
  • Prompt: !,"Unable to get data"
  • Line Location: AGAIN1+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: AGAIN1+12
Function Call: WRITE
  • Prompt: !,RES1(NUM)
  • Line Location: AGAIN1+13
Info |  Source |  Entry Points |  Interaction Calls