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  | All
Print Page as PDF
Routine: MPIFVER

Package: Master Patient Index VistA

Routine: MPIFVER


Information

MPIFVER ;ALB/CKN,VISTA ENTERPRISE REGISTRATION ; 7/26/17 2:18pm

Source Information

Source file <MPIFVER.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 1 $$FMTE^XLFDT  
Master Patient Index VistA 1 GETIDS^MPIFXMLG  
Registration 1 $$SITE^VASITE  
VA FileMan 1 ^DIR  

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

Package Total Caller Graph
Registration 1 DPTLK7  

Entry Points

Name Comments DBIA/ICR reference
ENP(RESULTS,ALTRSHLD,TKTRSHLD) ;
BR(XCNTR) ;Business rules
DISPLAY ;
DISP2 ;
EXIT
HDR(HDL) ;Header
HDR1 ;Repeating header
; Story 503957 (elz) Added 'Birth' above 'Sex'
ASK ;
CNTR(Y) ;
ASK2 ;
EXDISP(XCNT) ;Extended display for selected patient **79 (cmc) VAMPI-16603 INCLUDE CORRESPONDENCE AND WORK ADDRESS, CELL AND WORK PHONE

External References

Name Field # of Occurrence
^DIR DISP2+22, ASK+3, ASK2+8, ASK2+11
GETIDS^MPIFXMLG BR+25
$$SITE^VASITE BR+27
$$FMTE^XLFDT DISP2+13, EXDISP+24, EXDISP+27

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"SSN in selected record already exist in PATIENT file..."
  • Line Location: BR+19
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISP2+3
Function Call: WRITE
  • Prompt: !,COUNT_") ",?3,$P(DATA,"^",5),?22,$P(DATA,"^"),?53,$P(DATA,"^",2),?64,$$FMTE^XLFDT($P(DATA,"^",3),2),?76,$P(DATA,"^",4)
  • Line Location: DISP2+13
Function Call: WRITE
  • Prompt: !!,"*Candidate list includes a deceased patient"
  • Line Location: DISP2+15
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP2+18
Function Call: WRITE
  • Prompt: !,"Please wait..."
  • Line Location: DISP2+20
Function Call: WRITE
  • Prompt: !!
  • Line Location: DISP2+21
Function Call: WRITE
  • Prompt: !!
  • Line Location: EXIT+0
Function Call: WRITE
  • Prompt: !,"--- Records meet the"_HDL_" MATCH criteria ---"
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>50
  • Line Location: HDR1+2
Function Call: WRITE
  • Prompt: ?74,"BIRTH"
  • Line Location: HDR1+2
Function Call: WRITE
  • Prompt: !,?3,$S(EFLG=1:"EDIPI",1:"ICN"),?22,"NAME",?53,"SSN",?64,"DOB",?75,"SEX"
  • Line Location: HDR1+4
Function Call: WRITE
  • Prompt: !
  • Line Location: EXDISP+20
Function Call: WRITE
  • Prompt: !,?5,"ICN",?17,": "_ICN
  • Line Location: EXDISP+21
Function Call: WRITE
  • Prompt: !,?5,"Name",?17,": "_LNAME_","_FNAME_" "_MNAME
  • Line Location: EXDISP+22
Function Call: WRITE
  • Prompt: !,?5,"SSN",?17,": "_SSN
  • Line Location: EXDISP+23
Function Call: WRITE
  • Prompt: !,?5,"DOB",?17,": "_$$FMTE^XLFDT(DOB)
  • Line Location: EXDISP+24
Function Call: WRITE
  • Prompt: !,?5,"MBI",?17,": "_$G(RESULTS(XCNT,"MBI"))
  • Line Location: EXDISP+25
Function Call: WRITE
  • Prompt: !,?5,"*DOD",?17,": "_$$FMTE^XLFDT(DOD)
  • Line Location: EXDISP+27
Function Call: WRITE
  • Prompt: !,?5,"Birth Sex",?17,": "_GENDER
  • Line Location: EXDISP+29
Function Call: WRITE
  • Prompt: !,?5,"MMN",?17,": "_MMN
  • Line Location: EXDISP+30
Function Call: WRITE
  • Prompt: !,?5,"POB City",?17,": "_POBCTY
  • Line Location: EXDISP+31
Function Call: WRITE
  • Prompt: !,?5,"POB State",?17,": "_POBST
  • Line Location: EXDISP+32
Function Call: WRITE
  • Prompt: !,?5,"POB Country",?17,": "_POBCNTRY
  • Line Location: EXDISP+33
Function Call: WRITE
  • Prompt: !!,"Residential Address:"
  • Line Location: EXDISP+35
Function Call: WRITE
  • Prompt: !,?5,RESADD1
  • Line Location: EXDISP+36
Function Call: WRITE
  • Prompt: !,?5,RESADD2
  • Line Location: EXDISP+37
Function Call: WRITE
  • Prompt: !,?5,RESADD3
  • Line Location: EXDISP+38
Function Call: WRITE
  • Prompt: !,?5,RESCITY_", "_RESST_" "_RESZIP
  • Line Location: EXDISP+40
Function Call: WRITE
  • Prompt: !,?5,RESCITY_","_RESPROV_" "_RESPCODE
  • Line Location: EXDISP+42
Function Call: WRITE
  • Prompt: !,?5,RESCNTRY
  • Line Location: EXDISP+43
Function Call: WRITE
  • Prompt: !,?5,$G(RESULTS(XCNT,"CorAddCity"))_", "_$G(RESULTS(XCNT,"CorAddState"))_" "_$G(RESULTS(XCNT,"CorAddZip4")),!,?5,"USA"
  • Line Location: EXDISP+50
Function Call: WRITE
  • Prompt: !,?5,$G(RESULTS(XCNT,"WrkAddCity"))_", "_$G(RESULTS(XCNT,"WrkAddState"))_" "_$G(RESULTS(XCNT,"WrkAddZip4")),!,?5,"USA"
  • Line Location: EXDISP+59
Function Call: WRITE
  • Prompt: !,?5,"Phone: "_RESPHN
  • Line Location: EXDISP+63
Function Call: WRITE
  • Prompt: !,?5,"Cell Phone: ",RESULTS(XCNT,"CellPhone")
  • Line Location: EXDISP+65
Function Call: WRITE
  • Prompt: !,?5,"Work Phone: ",RESULTS(XCNT,"WrkPhone")
  • Line Location: EXDISP+66
Function Call: WRITE
  • Prompt: !!,"ALIAS Information"
  • Line Location: EXDISP+69
Function Call: WRITE
  • Prompt: !,?5,"NAME",?45,"SSN"
  • Line Location: EXDISP+70
Function Call: WRITE
  • Prompt: !,?5,ALLNM_","_ALFNM_" "_ALMNM_" "_ALSFX,?45,ALSSN
  • Line Location: EXDISP+77
Routine Call
  • DIR
  • Line Location:
    • DISP2+22
    • ASK+3
    • ASK2+8
    • ASK2+11

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] BR+18
^DPT("AICN" BR+13, BR+14
^DPT("SSN" BR+16, BR+18

Label References

Name Line Occurrences
$$BR ENP+7
$$CNTR ASK+5, ASK2+13
ASK DISP2+19
ASK2 DISP2+19, DISP2+23
DISP2 DISP2+24
DISPLAY ENP+3
EXDISP DISP2+20
EXIT ASK2+9
HDR DISP2+5
HDR1 DISP2+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ALCNT EXDISP+5~, EXDISP+71*, EXDISP+72, EXDISP+73, EXDISP+74, EXDISP+75, EXDISP+76
ALFNM EXDISP+5~, EXDISP+72*, EXDISP+77
ALLNM EXDISP+5~, EXDISP+73*, EXDISP+77
ALMNM EXDISP+5~, EXDISP+76*, EXDISP+77
ALSFX EXDISP+5~, EXDISP+75*, EXDISP+77
ALSSN EXDISP+5~, EXDISP+74*, EXDISP+77
ALTRSHLD ENP~, DISPLAY+15
BC ASK+1~, ASK+2*, ASK+3, ASK2+1~, ASK2+2*, ASK2+11
CITY EXDISP+2~
CN BR+26~, BR+28*, BR+29, BR+30, BR+33
CNT1 DISPLAY+1~, DISPLAY+2*, DISPLAY+3*, DISPLAY+5, DISPLAY+6, DISPLAY+8, DISPLAY+9, DISPLAY+10, DISPLAY+11, DISPLAY+12
, DISPLAY+13, DISPLAY+14, DISPLAY+18
CNTR DISP2+1~, DISP2+7*, DISP2+9, DISP2+10, ASK+1~, CNTR+1~, CNTR+5*, CNTR+6, CNTR+7
COUNT DISP2+1~, DISP2+2*, DISP2+8*, DISP2+9, DISP2+13, DISP2+16, ASK+1~, ASK+2*, ASK+3, ASK2+1~
, ASK2+3*, ASK2+11
COUNTRY EXDISP+2~
DA DISP2+1~, DISP2+22!, EXIT!, ASK+1~, ASK2+1~
DATA DISP2+1~, DISP2+10*, DISP2+13
DFN ENP+1~, ENP+2*, ENP+7*, ENP+8, BR+8, BR+13, BR+14*, BR+16, BR+18*, BR+30*
, BR+34
DIR DISP2+1~, DISP2+22!, ASK+1~, ASK+3!, ASK2+1~, ASK2+8!, ASK2+11!
DIR("?" ASK+3*, ASK2+11*
DIR("A" DISP2+22*, ASK+3*, ASK2+8*, ASK2+11*
DIR("B" DISP2+22*, ASK2+8*
DIR(0 DISP2+22*, ASK+3*, ASK2+8*, ASK2+11*
DOB DISPLAY+1~, DISPLAY+6*, DISPLAY+18, EXDISP+2~, EXDISP+7*, EXDISP+24
DOD DISPLAY+1~, DISPLAY+4~, DISPLAY+8*, DISPLAY+18, EXDISP+2~, EXDISP+9*, EXDISP+27
DODFLG DISPLAY+1~, DISPLAY+2*, DISPLAY+8*, DISP2+15
DR DISP2+1~, ASK+1~, ASK2+1~
>> DTOUT DISP2+23, ASK+4, ASK2+9, ASK2+12
>> DUOUT DISP2+23, ASK+4, ASK2+9, ASK2+12
ECNT DISPLAY+1~, DISPLAY+13*, DISPLAY+14
EFLG DISPLAY+1~, DISPLAY+2*, DISPLAY+13*, HDR1+4
ENOUGH DISP2+1~, DISP2+17*, DISP2+19, DISP2+23*, ASK+4*, ASK2+9*
FNAME DISPLAY+1~, DISPLAY+5*, DISPLAY+11, EXDISP+2~, EXDISP+6*, EXDISP+22
GENDER EXDISP+2~, EXDISP+10*, EXDISP+29
HDL HDR~, HDR+1
I DISP2+1~, DISP2+4*, DISP2+5, DISP2+6, DISP2+7, DISP2+9, DISP2+10, CNTR+3*, CNTR+4, CNTR+5
, CNTR+6
ICN BR+1~, BR+5*, BR+8, BR+13, BR+14, DISPLAY+1~, DISPLAY+6*, DISPLAY+12, DISPLAY+14*, DISPLAY+18
, EXDISP+2~, EXDISP+10*, EXDISP+21
ID BR+26~
IEN BR+17~, BR+18*
IOF DISP2+3
L1 EXDISP+2~
L2 EXDISP+2~
L3 EXDISP+2~
LNAME DISPLAY+1~, DISPLAY+9*, DISPLAY+11, EXDISP+2~, EXDISP+6*, EXDISP+22
M DISPLAY+1~, DISPLAY+15*, DISPLAY+18
MMN EXDISP+2~, EXDISP+11*, EXDISP+30
MNAME DISPLAY+1~, DISPLAY+10*, DISPLAY+11, EXDISP+2~, EXDISP+7*, EXDISP+22
MPIIDS BR+1~, BR+25
MPIIDS( BR+28, BR+29, BR+30, BR+33
NAME BR+17~, BR+18*, DISPLAY+1~, DISPLAY+11*, DISPLAY+18
ND ASK+1~, CNTR+1~, CNTR+6*, CNTR+7
PCODE EXDISP+2~
POBCNTRY EXDISP+3~, EXDISP+12*, EXDISP+33
POBCTY EXDISP+3~, EXDISP+11*, EXDISP+31
POBST EXDISP+3~, EXDISP+12*, EXDISP+32
PREF EXDISP+3~, EXDISP+13*
PROVINCE EXDISP+3~
QFLG BR+26~, BR+27*, BR+28, BR+30*, ASK+1~, CNTR+1~, CNTR+2*, CNTR+4, CNTR+5, CNTR+7*
RESADD1 EXDISP+4~, EXDISP+15*, EXDISP+34, EXDISP+36
RESADD2 EXDISP+4~, EXDISP+15*, EXDISP+34, EXDISP+37
RESADD3 EXDISP+4~, EXDISP+16*, EXDISP+34, EXDISP+38
RESCITY EXDISP+3~, EXDISP+14*, EXDISP+34, EXDISP+40, EXDISP+42
RESCNTRY EXDISP+3~, EXDISP+14*, EXDISP+34, EXDISP+39, EXDISP+41, EXDISP+43
RESPCODE EXDISP+4~, EXDISP+16*, EXDISP+34, EXDISP+42
RESPHN EXDISP+4~, EXDISP+19*, EXDISP+63
RESPROV EXDISP+4~, EXDISP+17*, EXDISP+34, EXDISP+42
RESST EXDISP+4~, EXDISP+18*, EXDISP+34, EXDISP+40
RESULTS ENP~, ENP+6!*, BR+3!, BR+15!, BR+20!, BR+31!
RESULTS( ENP+5, DISPLAY+3, DISPLAY+5, DISPLAY+6, DISPLAY+8, DISPLAY+9, DISPLAY+10, DISPLAY+11, DISPLAY+12, DISPLAY+13
, DISPLAY+14, EXDISP+6, EXDISP+7, EXDISP+9, EXDISP+10, EXDISP+11, EXDISP+12, EXDISP+13, EXDISP+14, EXDISP+15
, EXDISP+16, EXDISP+17, EXDISP+18, EXDISP+19, EXDISP+25, EXDISP+45, EXDISP+47, EXDISP+48, EXDISP+49, EXDISP+50
, EXDISP+51, EXDISP+52, EXDISP+54, EXDISP+56, EXDISP+57, EXDISP+58, EXDISP+59, EXDISP+60, EXDISP+61, EXDISP+65
, EXDISP+66, EXDISP+68, EXDISP+71, EXDISP+72, EXDISP+73, EXDISP+74, EXDISP+75, EXDISP+76
RESULTS(1 BR+5, BR+25, BR+33*
RESZIP EXDISP+4~, EXDISP+18*, EXDISP+34, EXDISP+40
SC ASK+1~, CNTR+1~, CNTR+4*, CNTR+5, CNTR+6
SCORE DISPLAY+1~, DISPLAY+11*, DISPLAY+15, DISPLAY+18, DISP2+1~, DISP2+6*, DISP2+7, DISP2+9, DISP2+10
SEX DISPLAY+1~, DISPLAY+9*, DISPLAY+18
SSN BR+1~, BR+5*, BR+16, BR+18, DISPLAY+1~, DISPLAY+5*, DISPLAY+18, EXDISP+5~, EXDISP+17*, EXDISP+23
STNUM BR+26~, BR+27*, BR+29
SUFFIX EXDISP+3~, EXDISP+13*
TKTRSHLD ENP~
TMPRESLT ENP+1~, ENP+6
TMPRESLT(1 ENP+5*
X DISP2+1~, EXIT!, ASK+3!, ASK2+1~, ASK2+8!, ASK2+11!
XCNT ENP+1~, ENP+2*, DISP2+20, ASK+5*, CNTR+2*, CNTR+7*, CNTR+8, EXDISP~, EXDISP+6, EXDISP+7
, EXDISP+9, EXDISP+10, EXDISP+11, EXDISP+12, EXDISP+13, EXDISP+14, EXDISP+15, EXDISP+16, EXDISP+17, EXDISP+18
, EXDISP+19, EXDISP+25, EXDISP+45, EXDISP+47, EXDISP+48, EXDISP+49, EXDISP+50, EXDISP+51, EXDISP+52, EXDISP+54
, EXDISP+56, EXDISP+57, EXDISP+58, EXDISP+59, EXDISP+60, EXDISP+61, EXDISP+65, EXDISP+66, EXDISP+68, EXDISP+71
, EXDISP+72, EXDISP+73, EXDISP+74, EXDISP+75, EXDISP+76
XCNTR ENP+1~, ENP+2*, ENP+4, ENP+5, ENP+7, BR~, BR+3, ASK2+13*
XMPIVER DISPLAY+1~
XMPIVER("COUNT" DISP2+16*, ASK+2, ASK2+3
XMPIVER("MPIVER" DISPLAY+18*, DISP2+5, DISP2+6, DISP2+7, DISP2+9*, DISP2+10, EXIT!, CNTR+4, CNTR+5, CNTR+6
, ASK2+8
Y DISP2+1~, DISP2+23, DISP2+24, EXIT!, ASK+3!, ASK+5, CNTR~, CNTR+7, ASK2+1~, ASK2+8!
, ASK2+10, ASK2+11!, ASK2+13
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All