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 |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables  | All
Print Page as PDF
Routine: MPIFSAQ

Package: Master Patient Index VistA

Routine: MPIFSAQ


Information

MPIFSAQ ;SF/CMC-STAND ALONE QUERY ; 10/7/08 12:41pm

Source Information

Source file <MPIFSAQ.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 3 ^DIC  EN^DIQ1  ^DIR  
Master Patient Index VistA 1 VTQ^MPIFSA2  

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

Package Total Caller Graph
Clinical Information Resource Network 1 RGEX03  
Master Patient Index VistA 1 MPIF DISPLAY ONLY QUERY TO MPI  
Registration 1 VAFCEHLM  

Entry Points

Name Comments DBIA/ICR reference
VTQ(MPIVAR) ;
  • ICR #2941
    • Status: Active
    • Usage: Controlled Subscription
    INTACTV ;Interactive standalone query - Display Only patient doesn't have to be in Patient file
    END
    CLEAN(NAM) ;NAM is the name to be cleaned up, Returned from this function is a clean name
    PAT(MPIVAR) ;patient is in local Patient file
    PATA
    NOPAT(MPIVAR) ; patient is not in the local Patient file
    ; Story 603957 (elz) change Gender to Birth Sex
    NAME
    DOB
    SSN ; ssn is optional
    GENDER ; Gender is optional
    ; Story 603957 (elz) Change Gender to Birth Sex
    PHONE ; Phone is optional
    ADDR1 ;Address line 1 is optional
    ADDR2 ;Address line 2 is optional
    ADDR3 ;Address line 3 is optional
    CITY ;City is optional
    SEG(SEGMENT,PIECE,CODE) ;Return segment from MPIDC array and kill node

    External References

    Name Field # of Occurrence
    ^DIC PATA+1
    EN^DIQ1 PATA+4
    ^DIR INTACTV+1, NAME+2, DOB, SSN+1, GENDER+2, PHONE+1, ADDR1+1, ADDR2+1, ADDR3+1, CITY+1
    VTQ^MPIFSA2 VTQ+1, INTACTV+7

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"DOB is missing - Required field"
    • Line Location: INTACTV+6
    Function Call: WRITE
    • Prompt: !,"Patient not found. Try Again"
    • Line Location: PATA+3
    Function Call: WRITE
    • Prompt: !!,"When the patient is NOT in the local PATIENT file, you will be asked",!,"to provide as much information as possible to facilitate the query."
    • Line Location: NOPAT+2
    Function Call: WRITE
    • Prompt: !,"You will be asked for patient name, date of birth, Social Security Number,",!,"birth sex, phone number, and address. Minimally, you must enter patient name",!,"and date of birth.",!!
    • Line Location: NOPAT+3
    Function Call: WRITE
    • Prompt: !,"Name must be 3 to 30 characters, entered as: last<comma>first<space>middle"
    • Line Location: NAME+4
    Function Call: WRITE
    • Prompt: !,"Name must be 3 to 30 characters, entered as: last<comma>first<space>middle"
    • Line Location: NAME+5
    Function Call: WRITE
    • Prompt: !,"SSN should be 9 numbers"
    • Line Location: SSN+3
    Routine Call
    • DIC
    • Line Location:
      • PATA+1
    Routine Call
    • DIR
    • Line Location:
      • INTACTV+1
      • NAME+2
      • DOB
      • SSN+1
      • GENDER+2
      • PHONE+1
      • ADDR1+1
      • ADDR2+1
      • ADDR3+1
      • CITY+1

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DPT - [#2] Classic Fileman Calls

    Label References

    Name Line Occurrences
    $$CLEAN NAME+7
    END INTACTV+2, INTACTV+5, INTACTV+6, PATA+2, NAME+3, DOB+1, SSN+2, GENDER+3, PHONE+2, ADDR1+2
    , ADDR2+2, ADDR3+2, CITY+2
    NAME NAME+4, NAME+5
    NOPAT INTACTV+4
    PAT INTACTV+3
    PATA PATA+3
    SSN SSN+3

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % NAME~, NAME+6*
    CODE SEG~, SEG+6
    DA PATA~, PATA+4*!
    DFN PATA~, PATA+4*, PATA+5, PATA+6, PATA+7, PATA+8
    DIC PATA~, PATA+1*, PATA+4*
    DIC("A" PATA+1*
    DIC(0 PATA+1*
    DIQ PATA~, PATA+4*
    DIQ(0 PATA+4*
    DIR INTACTV+1!, INTACTV+7!, END!, NAME~, DOB!, SSN+1!, GENDER+2!, PHONE+1!, ADDR1+1!, ADDR2+1!
    , ADDR3+1!, CITY+1!
    DIR("?" NAME+2*
    DIR("A" INTACTV+1*, NAME+1*, DOB*, SSN+1*, GENDER+2*, PHONE+1*, ADDR1+1*, ADDR2+1*, ADDR3+1*, CITY+1*
    DIR("B" INTACTV+1*
    DIR(0 INTACTV+1*, NAME+1*, DOB*, SSN+1*, GENDER+2*, PHONE+1*, ADDR1+1*, ADDR2+1*, ADDR3+1*, CITY+1*
    DIRUT END!
    DR PATA~, PATA+4*
    DTOUT END!, PATA~, PATA+2, NAME~, NAME+3, DOB+1, SSN+2, GENDER+3, PHONE+2, ADDR1+2
    , ADDR2+2, ADDR3+2, CITY+2
    DUOUT END!, PATA~, PATA+2, NAME~, NAME+3, DOB+1, SSN+2, GENDER+3, PHONE+2, ADDR1+2
    , ADDR2+2, ADDR3+2, CITY+2
    FLG INTACTV+1*, INTACTV+3*, INTACTV+5, INTACTV+7!
    >> HL("ECH" SEG+2
    >> HL("FS" SEG+6
    HOLD SEG+1~
    HOLD( SEG+6*, SEG+7*, SEG+8
    I CLEAN+1~, CLEAN+2*
    MPIC SEG+1~, SEG+2*, SEG+6
    MPIDATA SEG+1~, SEG+5*, SEG+6, SEG+7*, SEG+9
    >> MPIDC( SEG+4, SEG+5, SEG+7, SEG+8!
    MPIDONE SEG+1~!, SEG+4, SEG+6*, SEG+8, SEG+9
    MPIFAR PATA~
    MPIFAR(2 PATA+5, PATA+6, PATA+7, PATA+8
    MPINODE SEG+1~, SEG+3*, SEG+4*, SEG+5, SEG+6, SEG+7*, SEG+8*
    MPIVAR VTQ~, VTQ+1, INTACTV+3, INTACTV+4, INTACTV+7!, END!, PAT~, NOPAT~
    MPIVAR("ADDR1" PATA+7*, ADDR1+3*
    MPIVAR("ADDR2" PATA+7*, ADDR2+3*
    MPIVAR("ADDR3" PATA+8*, ADDR3+3*
    MPIVAR("CITY" PATA+8*, CITY+3*
    MPIVAR("DFN" INTACTV+5, PATA+4*
    MPIVAR("DOB" INTACTV+6, PATA+5*, DOB+2*
    MPIVAR("NM" PATA+4*, NAME+7*
    MPIVAR("PHONE" PATA+6*, PHONE+3*
    MPIVAR("SEX" PATA+6*, GENDER+4*
    MPIVAR("SSN" PATA+5*, SSN+4*
    NAM CLEAN~, CLEAN+2*, CLEAN+3*, CLEAN+4*, CLEAN+5
    PIECE SEG~, SEG+6
    SEGMENT SEG~, SEG+6, SEG+7
    X INTACTV+1!, INTACTV+7!, END!, PATA~, PATA+2, NAME~, DOB!, SSN+1!, GENDER+2!, PHONE+1!
    , ADDR1+1!, ADDR2+1!, ADDR3+1!, CITY+1!
    Y INTACTV+1!, INTACTV+2, INTACTV+3, INTACTV+4, INTACTV+7!, END!, PATA~, PATA+2, PATA+3, PATA+4
    , NAME~, NAME+3, NAME+4, NAME+5, NAME+6*, NAME+7, DOB!, DOB+2, SSN+1!, SSN+3
    , SSN+4, GENDER+2!, GENDER+4, PHONE+1!, PHONE+3, ADDR1+1!, ADDR1+3, ADDR2+1!, ADDR2+3, ADDR3+1!
    , ADDR3+3, CITY+1!, CITY+3
    Y(0 PATA+4
    YY CLEAN+1~, CLEAN+3*
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables  | All