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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: MPIF002

Package: Master Patient Index VistA

Routine: MPIF002


Information

MPIF002 ;CIOFOSF/CMC-UTILITY ROUTINE OF APIS ;JUL 12, 1996

Source Information

Source file <MPIF002.m>

Entry Points

Name Comments DBIA/ICR reference
GETICNH(DFN,ICNHA) ;Return all ICNs (including checksum) in ICN History for patient DFN
; DFN = IEN of patient in the Patient (#2) file
; ICNHA - array where ICN History will be returned.
GETCMORH(DFN,CMORHA) ;Return all CMORs in CMOR History for patient DFN
; DFN = IEN of patient in the Patient (#2) file
; CMORHA - array where CMOR history will be returned
GETDFNS(SSN) ; Find DFN for a given SSN - all if there are more than one
; SSN - SSN for patient attempted to be found in the Patient file (#2)
; Return - list of DFNs or -1^error msg
  • ICR #3634
    • Status: Active
    • Usage: Private
    GETICNS(SSN) ; Find all ICNs for a given SSN -- all if there are more than one
    ; patient with that SSN
    ; SSN - SSN for patient attempted to be found in the Patient file (#2)
    ; Returned is a list of ICNs for this SSN
    TWODFNS(DFN1,DFN2,ICN) ;Logging Exceptions when there are two DFNs trying to have the same ICN, which isn't allowed.
    CLEAN(DFN,ARR,MPIRETN) ; clean up MPI data from DPT for "stub" records
    ; called from UPDATE^MPIFAPI
    COMPARE(DFN,INDEX,COMMON,MORE) ; Checking if TFs in common between CURRENT PT (DFN)
    ; and ^TMP("MPIFVQQ",$J,INDEX,"TF",ien) OR if patient is shared to exclude those with TYPE of OTHER
    ; INDEX is the selection entry
    ; COMMON is the value returned indicating if there are TFs in common
    MIMDQ(ICN,ICN2,DFN,MSG) ; while reviewing potential duplicates, site picked to link 2 patients together with TFs in common
    ; send exception to IMDQ team

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"Unable to match these ICNs together as"_$P(MSG,"-",2)
    • Line Location: MIMDQ+5
    Function Call: WRITE
    • Prompt: !,"Exception has been sent to IMDQ team for assistance in resolving this",!,"MPI Duplicate. Local Exception has been automatically marked as processed."
    • Line Location: MIMDQ+6

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DIC(4 - [#4] GET1^DIQ
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call