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

Package: Master Patient Index VistA

Routine: MPIFD1


Information

MPIFD1 ;BIRM/CMC-POTENTIAL DUP ON MPI ;DEC 2, 2005

Source Information

Source file <MPIFD1.m>

Entry Points

Name Comments DBIA/ICR reference
INIT ;Entry point for List Manager Template - MPIF POTENTIAL DUP
HDR ;Header code for List Manager Template - MPIF POTENTIAL DUP (CLONED FROM HDR^MPIFQ1)
START(INDEX) ;Starting entry point for envoking the List Manager Template MPIF MPIF POTENTIAL DUP
SELECT
MPIPD ; MPI PDAT CALL (CLONED FROM MPIPD^MPIFQ1)
CMOR ; CMOR PDAT CALL (CLONED FROM CMOR^MPIFQ1)
AGAIN1
END
HELP ; Help List Manager Action (MPIF POTENTIAL DUP (HELP))
EXIT ;Exit for List Manager Template MPIF MPIF POTENTIAL DUP

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+28
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+30
Function Call: WRITE
  • Prompt: !,"MPI Data:",!!!,?3,"ICN: ",+$P(DATA,"^",6)
  • 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,"/")_" REMEDY/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