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

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

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