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 |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 18

Package Total Call Graph
Master Patient Index VistA 7 $$GETICN^MPIF001  (COMPARE,MIMDQ,TWODFNS)^MPIF002  $$A24^MPIFA24B  RESEX^MPIFDUP  GETDATA^MPIFQ0  ($$PROMPT1,MSG,MSG1,MSG2,MSG3,MSG4,MSG5,PROMPT)^MPIFQ3  EDIT^MPIFQED  
List Manager 3 EN^VALM  CLEAR^VALM1  EN^VALM2  
Registration 3 NAME^VAFCPID2  BLDPID^VAFCQRY  $$SITE^VASITE  
Kernel 2 ($$FMADD,$$FMTE,$$NOW)^XLFDT  ($$LKUP,$$NS)^XUAF4  
RPC Broker 2 EN1^XWB2HL7  RTNDATA^XWBDRPC  
Health Level Seven 1 INIT^HLFNC2  

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

Package Total Caller Graph
Master Patient Index VistA 6 MPIF POTENTIAL DUP  MPIF POTENTIAL DUP (CMOR PDAT)  MPIF POTENTIAL DUP (HELP)  MPIF POTENTIAL DUP (MPI PDAT)  MPIF POTENTIAL DUP (SELECT PATIENT)  MPIFDUP  
Kernel 1 ^ORD(101  

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

External References

Name Field # of Occurrence
INIT^HLFNC2 SELECT+44, SELECT+57
$$GETICN^MPIF001 SELECT+19, SELECT+20, SELECT+21
COMPARE^MPIF002 SELECT+18
MIMDQ^MPIF002 SELECT+21
TWODFNS^MPIF002 SELECT+13
$$A24^MPIFA24B SELECT+49, SELECT+65
RESEX^MPIFDUP SELECT+47, SELECT+60
GETDATA^MPIFQ0 HDR+2, SELECT+24
$$PROMPT1^MPIFQ3 SELECT+53
MSG^MPIFQ3 SELECT+52
MSG1^MPIFQ3 SELECT+11
MSG2^MPIFQ3 SELECT+52
MSG3^MPIFQ3 SELECT+48
MSG4^MPIFQ3 HELP+2
MSG5^MPIFQ3 SELECT+66
PROMPT^MPIFQ3 SELECT+28, SELECT+30, SELECT+48, SELECT+62, SELECT+66, MPIPD+26, AGAIN1+11, END, HELP+2
EDIT^MPIFQED SELECT+48, SELECT+61
NAME^VAFCPID2 SELECT+31, SELECT+32
BLDPID^VAFCQRY SELECT+45, SELECT+58
EN^VALM START+2
CLEAR^VALM1 SELECT+11, SELECT+52, MPIPD+5, AGAIN1+8, AGAIN1+11, HELP+1
EN^VALM2 SELECT+1, MPIPD+2, CMOR+2
$$SITE^VASITE CMOR+6
$$FMADD^XLFDT CMOR+9
$$FMTE^XLFDT HDR+5, SELECT+26
$$NOW^XLFDT CMOR+9
$$LKUP^XUAF4 SELECT+8, MPIPD+7, MPIPD+25
$$NS^XUAF4 MPIPD+7, MPIPD+25
EN1^XWB2HL7 CMOR+8
RTNDATA^XWBDRPC AGAIN1

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
Routine Call
  • VALM
  • Line Location:
    • START+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT("AICN" SELECT+10, SELECT+12
^TMP("MPIFVQQ" SELECT+4, SELECT+5, MPIPD+6, MPIPD+21, MPIPD+22, MPIPD+23, MPIPD+25, CMOR+4
^XTMP("MPIFPDAT" CMOR+9*

Label References

Name Line Occurrences
AGAIN1 AGAIN1+1, AGAIN1+3, AGAIN1+6
END CMOR+6, AGAIN1+2, AGAIN1+4, AGAIN1+5

Naked Globals

Name Field # of Occurrence
^( MPIPD+22, MPIPD+25

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ALIAS MPIPD+4~
ANS SELECT+53~*, SELECT+54
BIR SELECT+23~, SELECT+26*, SELECT+40, SELECT+41, SELECT+52
CASE MPIPD+4~, MPIPD+19*, MPIPD+20
CHKSUM SELECT+3~, SELECT+8*, MPIPD+4~, CMOR+1~, CMOR+5*
CMOR MPIPD+4~, MPIPD+7*, CMOR+1~, CMOR+5*, CMOR+6, CMOR+8
CMOR3 MPIPD+4~, MPIPD+7*, MPIPD+25
CNT MPIPD+1~, CMOR+10*, AGAIN1*, AGAIN1+1, AGAIN1+2, AGAIN1+3, AGAIN1+4, AGAIN1+6, AGAIN1+7, AGAIN1+9*
, AGAIN1+11*, AGAIN1+12*, AGAIN1+13*, END!
COMMON SELECT+17*, SELECT+18, SELECT+19, SELECT+21!, SELECT+23!
DATA SELECT+3~, SELECT+4*, SELECT+6, SELECT+7, SELECT+8, MPIPD+4~, MPIPD+6*, MPIPD+7, MPIPD+8, MPIPD+9
, MPIPD+10, MPIPD+11, MPIPD+12, MPIPD+13, MPIPD+14, MPIPD+15, MPIPD+16, MPIPD+17, MPIPD+18, MPIPD+19
, CMOR+1~, CMOR+4*, CMOR+5
DATA( SELECT+6*, SELECT+7*, SELECT+8*, SELECT+28, SELECT+30, SELECT+32*, SELECT+35, SELECT+36, SELECT+40, SELECT+41
, SELECT+43!, SELECT+52, SELECT+54!
>> DFN HDR+2, HDR+3, HDR+4, SELECT+10, SELECT+13, SELECT+18, SELECT+19, SELECT+20, SELECT+21, SELECT+24
, SELECT+25, SELECT+26, SELECT+45, SELECT+47, SELECT+48, SELECT+49, SELECT+58, SELECT+60, SELECT+61, SELECT+65
DFN2 SELECT+12~*, SELECT+13
DOB HDR+1~, HDR+4*, HDR+5*, HDR+8
DT CMOR+9
ERR SELECT+42~, SELECT+45, SELECT+56~, SELECT+58
EXACT SELECT+33~, SELECT+38*, SELECT+39*, SELECT+40!, SELECT+41
>> HL SELECT+44, SELECT+45, SELECT+57, SELECT+58
ICN SELECT+3~, SELECT+8*, SELECT+10, SELECT+12, SELECT+13, SELECT+19, SELECT+20, SELECT+21, MPIPD+4~, CMOR+1~
, CMOR+5*, CMOR+8, CMOR+9
INDEX START~, START+1, SELECT+3~, SELECT+4*, SELECT+5, SELECT+18, MPIPD+4~, MPIPD+5*, MPIPD+6, MPIPD+21
, MPIPD+22, MPIPD+23, MPIPD+25, CMOR+1~, CMOR+4*
>> IOINHI HDR+6, HDR+7, HDR+8, HDR+9
>> IOINORM HDR+6, HDR+7, HDR+8, HDR+9
MORE SELECT+17*, SELECT+18, SELECT+20, SELECT+21!
>> MPICOMP MPIPD+25
MPIFDUP HELP+2!*
MPIFQ1 HDR+1~
MPIFQ1(2 HDR+3, HDR+4, SELECT+25, SELECT+26
>> MPIFRTN SELECT+14*, SELECT+21*, SELECT+61*
MPIMID SELECT+36~*, SELECT+38, SELECT+39
>> MSG SELECT+19*, SELECT+20*, SELECT+21
NAME SELECT+23~, SELECT+25*, SELECT+31, SELECT+35, SELECT+37, SELECT+41, SELECT+52
NAME1 HDR+1~, HDR+3*, HDR+6
NAME3 SELECT+32~*
NMMN SELECT+36~, SELECT+37*, SELECT+38, SELECT+39
NODE2 SELECT+3~, SELECT+5*, SELECT+10
NUM AGAIN1+9~*, AGAIN1+10*, AGAIN1+12, AGAIN1+13
PID2 SELECT+42~, SELECT+45, SELECT+49, SELECT+56~, SELECT+58, SELECT+65
POW MPIPD+4~, MPIPD+18*
>> PROCESS SELECT+21*, SELECT+50*, SELECT+63*
RES1 AGAIN1!, AGAIN1+6, AGAIN1+7, END!
RES1( AGAIN1+10, AGAIN1+12, AGAIN1+13
RES1(0 AGAIN1+1, AGAIN1+2, AGAIN1+3, AGAIN1+4, AGAIN1+5
RESLT SELECT+49*, SELECT+63~, SELECT+65*
RETURN CMOR+8, END!
RETURN(0 CMOR+9, AGAIN1
SEX HDR+1~, HDR+4*, HDR+9, SELECT+23~, SELECT+25*, SELECT+28
SSN HDR+1~, HDR+3*, HDR+7, SELECT+23~, SELECT+25*, SELECT+29*, SELECT+30, SELECT+52
TAL MPIPD+4~
TMP MPIPD+4~, MPIPD+25*
TTF MPIPD+4~
VALMBCK SELECT+28*, SELECT+30*, SELECT+66*, MPIPD+27*, END*, HELP+2*, EXIT+1!
VALMCNT START+1*, EXIT+1!
VALMHDR EXIT+1!
VALMHDR(1 HDR+6*
VALMHDR(2 HDR+7*
VALMHDR(3 HDR+8*
VALMHDR(4 HDR+9*
VALMHDR(5 HDR+9*
VALMY SELECT~, SELECT+2, MPIPD+1~, MPIPD+3, CMOR+1~, CMOR+3
VALMY(0 SELECT+4, MPIPD+5, CMOR+4
>> XQORNOD(0 SELECT+1, MPIPD+2, CMOR+2
XX MPIPD+22~*, MPIPD+25~*
Y MPIPD+1~, MPIPD+5*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All