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

Package: Master Patient Index VistA

Routine: MPIF001


Information

MPIF001 ;ALB/RJS/CMC-UTILITY ROUTINE OF APIS ; 10/28/20 8:35pm

Source Information

Source file <MPIF001.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Master Patient Index VistA 3 TWODFNS^MPIF002  ($$EN2,$$MPINODE)^MPIFAPI  $$CHECKDG^MPIFSPC  
Clinical Information Resource Network 1 (EXC,START,STOP)^RGHLLOG  
Kernel 1 ($$NNT,$$STA)^XUAF4  
Registration 1 $$SITE^VASITE  
VA FileMan 1 ^DIE  

Caller Graph

Caller Graph Total: 281

Package Total Caller Graph
Registration 64 DG53985E  DG53P951  DG712PST  DG876PST  DGAUDIT1  DGAUDIT2  DGCOL  DGEN339  
DGEN408  DGENQRY1  DGPFAPIH  DGPFCNR  DGPFCNV  DGPFHLR  DGPFHLT1  DGPFHLU5  
DGPFHLUQ  DGPFLMQ1  DGPFLMQ2  DGPFLMT3  DGPFLMU  DGPFUT  DGPFUT2  DGPTF1  
DGREG  DGROUT  DGROUT2  DGRP11B  DGRPC  DGRPD  DGRPECE1  DGRPECE2  
DGRRLU0  DGRRLU1  DGRRLU6  DGRRLUA  DGRRPSGT  DGVTS00  DGWPT  DPTLK7  
VAFCA04  VAFCEHU2  VAFCHIS  VAFCMGA1  VAFCMSG3  VAFCOFIN  VAFCOTFU  VAFCPDAT  
VAFCPID  VAFCQRY  VAFCQRY2  VAFCRAUD  VAFCREL  VAFCRPC  VAFCTF  VAFCTFIN  
VAFCTFMF  VAFCTFPR  VAFCTFU  VAFCTFU1  VAFCTFU2  VAFCTFU3  VAFHLPD1  VAFHLPI1  
Master Patient Index VistA 35 MPIF002  MPIFA24  MPIFA31B  MPIFA31I  MPIFA37  MPIFA40  MPIFA43  MPIFAPI  
MPIFAPI1  MPIFBT3  MPIFCMOR  MPIFCMRP  MPIFD1  MPIFDEL  MPIFDNL  MPIFDUP  
MPIFDUPS  MPIFEDIT  MPIFEXT  MPIFEXT2  MPIFFULL  MPIFHL7  MPIFNQ  MPIFPST1  
MPIFQ0  MPIFQ3  MPIFQUE4  MPIFQUE5  MPIFRCMP  MPIFREQ  MPIFRES  MPIFREV  
MPIFRPC  MPIFRPC2  MPIFRPC3  
Clinical Information Resource Network 32 RGACTIV  RGADT  RGADT1  RGADT2  RGADTP2  RGDRM01  RGEVPM  RGEVPRG  
RGEXHND1  RGFIBM  RGFIPM  RGFIPM1  RGFIU  RGHLUT  RGJCREC  RGJCSUB  
RGJCTS01  RGMTHLDB  RGMTHLDP  RGMTHLPD  RGMTUT02  RGP3PST  RGPVMPI  RGRPC  
RGRPDAT  RGRSBUL1  RGRSDYN  RGRSDYN1  RGRSDYN2  RGRSENS  RGRSPT  RGSYSTAT  
Imaging 20 MAGDHLS  MAGDIR81  MAGDQR03  MAGDQR04  MAGDQR21  MAGDRPC1  MAGDRPC9  MAGDRPCA  
MAGDTR05  MAGGTPT1  MAGNPCHE  MAGNUTL2  MAGNVQ01  MAGNVQ04  MAGNWRK1  MAGTLRD  
MAGUE006  MAGVIM06  MAGVRS08  MAGVRS51  
Scheduling 16 SCMCPAT  SDAMA307  SDCCRSEN  SDECPTCX  SDECVVS  SDES2PATSEARCH  SDESGETREGA2  SDESINPUTVALUTL  
SDESPATSEARCH  SDESVVS  SDHL7APT  SDHL7APU  SDPFSS  SDRPA08  SDTMPHLA  SDTMPHLC  
Enterprise Health Management Platform 11 HMPD  HMPDCRC  HMPDJ  HMPDJ00  HMPDJ1  HMPDJFS  HMPDJFSP  HMPDJX  
HMPMETA  HMPPTRPC  HMPTFU2  
Virtual Patient Record 10 VPRD  VPRDCRC  VPRDJ  VPRDJ00  VPRDPT  VPREHL7  VPRHS  VPRHSX  
VPRHSX1  VPRP20  
Consult Request Tracking 9 GMRCART  GMRCCCR1  GMRCCCRI  GMRCHL7I  GMRCIACT  GMRCIBKG  GMRCIEV1  GMRCIEVT  
GMRCITPI  
Integrated Billing 9 IBARXMU  IBATOP  IBCNEHL4  IBCNIUH1  IBCNIUHL  IBECECU1  IBJDI11  IBJDI21  
IBSDU  
Order Entry Results Reporting 8 ORDEA  ORMBLDVB  ORPDMPWS  ORRDI1  ORWCIRN  ORWLRR  ORWPT  ORWRP  
Pharmacy Benefits Management 7 PSUAA1  PSUDEM1  PSUDEM2  PSUDEM7  PSUV1  PSUV2  PSUVIT1  
Outpatient Pharmacy 5 PSO283PI  PSODPT  PSOPRA  PSOVCC0  PSOVCCA  
Automated Lab Instruments 4 LA7QRY2  LA7SMP0  LA7VHLU2  LA7VPID  
Enrollment Application System 4 EASBTBUL  EASEZI  EASPFSS  EASXDRPT  
Income Verification Match 4 IVM2174P  IVMPTRN8  IVMUFNC  IVMZ7CD  
VA Point of Service 4 VPSPRINT  VPSRPC1  VPSRPC16  VPSRPC26  
Automated Medical Information Exchange 3 DVBABFRM  DVBCXFR2  DVBCXFRB  
Clinical Case Registries 3 RORREP01  RORUPD52  RORUTL02  
Fee Basis 3 FBARCH0  FBHLZFE  FBUTL  
My HealtheVet 3 MHV7RU  MHVECFLR  MHVUMRPC  
Clinical Procedures 2 MDCLIO  MDHL7A  
Integrated Patient Fund 2 PRPFDR5  PRPFMR1  
Mental Health 2 YSCLHLGT  YTQAPI15  
National Health Information Network 2 NHINV  NHINVPT  
PCE Patient Care Encounter 2 PXCEVFI2  PXVRPC7A  
Prosthetics 2 RMPREXT  RMPRFC4  
Quasar 2 ACKQAG03  ACKQAG05  
VA FileMan 2 DDEGET  ITEM  
VBECS 2 VBECDCU  VBECLU  
Barcode Medication Administration 1 PSBRPC  
Beneficiary Travel 1 DGBTRDV  
DSS Extracts 1 ECXUTL3  
Lab Service 1 LREPI3  
Oncology 1 ONCACDU2  
Remote Order Entry System 1 RMPFRPC1  
Surgery 1 SRSCOR  
Text Integration Utility 1 TIUCCRHL7P1  
Visual Impairment Service Team 1 ANRVJ1  

Entry Points

Name Comments DBIA/ICR reference
GETICN(DFN) ; This function returns the ICN, including checksum for a given
; DFN or -1^error message
; INPUT: DFN - ien in Patient file
  • ICR #2701
    • Status: Active
    • Usage: Supported
  • ICR #2701
    • Status: Active
    • Usage: Supported
  • ICR #7043
    • Status: Withdrawn
    • Usage: Private
    EXIT1 ;
    GETDFN(ICN) ; Returns DFN (ien Patient file) or -1^error message for a given ICN
    ; ICN - ICN for a given Patient in the Patient file
  • ICR #2701
    • Status: Active
    • Usage: Supported
    EXIT2 ;
    ICNLC(DFN) ;This API will return an ICN if one exists or create and return
    ; a Local ICN and update the appropriate fields if a Local was created
    ; DFN= Patient IEN
    ; Returns ICN (local or National including checksum) or -1^error msg
  • ICR #3072
    • Status: Active
    • Usage: Controlled Subscription
    CMOR2(DFN) ; Returns CMOR Site Name or -1^error message
    ; DFN = Patient IEN
  • ICR #2701
    • Status: Active
    • Usage: Supported
    CMORNAME(CIEN) ; Returns CMOR site name or -1^error message
    ; CIEN - ien from Institution file
  • ICR #2701
    • Status: Active
    • Usage: Supported
    GETVCCI(DFN) ; Returns CMOR or -1^error message for a given patient
    ; DFN - ien of patient in Patient file
  • ICR #2701
    • Status: Active
    • Usage: Supported
    EXIT3 ;
    CHANGE(DFN,VCCI) ;
    ; ** This function is only to be used by approved packages **
  • ICR #2703
    • Status: Active
    • Usage: Controlled Subscription
    REP
    EXIT4 ;
    SETICN(DFN,ICN,CHKSUM) ;
    ; ** this function is to only be used by approved packages **
  • ICR #2704
    • Status: Retired
    • Usage: Private
  • ICR #3553
    • Status: Active
    • Usage: Private
  • ICR #5121
    • Status: Active
    • Usage: Private
    EXIT5 ;
    SETLOC(DFN,DELFLAG) ;
    ; ** This function should be only used by approved packages **
  • ICR #2705
    • Status: Retired
    • Usage: Private
    EXIT6 ;
    IFLOCAL(DFN) ; This function is used to see if a patient has a local ICN
    ; DFN - ien of patient in Patient file
    ; returned: 0 = patient does not exist, dfn is not defined or no MPI node OR Patient does not have a local ICN
    ; 1 = patient has a Local ICN assigned
  • ICR #2701
    • Status: Active
    • Usage: Supported
    IFVCCI(DFN) ; this function returns 1 if your facility is the CMOR for the given pt
    ; DFN - ien of patient in Patient file
    ; returns: 1 = your site in the CMOR for this patient
    ; -1 = your site is not the CMOR for this patient
    ; 0^ERROR MSG
  • ICR #2701
    • Status: Active
    • Usage: Supported
    HL7CMOR(DFN,SEP) ; This function returns the CMOR station number and institution name for
    ; the given patient.
    ; DFN = ien for patient in Patient file
    ; SEP = delimiter to separate station number and name
    ; returned: Station Number <sep> Institution name
    ; -1^error message
  • ICR #2701
    • Status: Active
    • Usage: Supported
    EXIT7 ;
    ICN2DFN(ICN) ; - This function will return a DFN based on the ICN entered
    ; **60 (elz) MVI_793 this is the new function to use the new single
    ; ICN field/cross-reference. The full ICN value must be passed in
    QICN2DFN ;
    DFN2ICN(DFN) ; This function will return an ICN based on the DFN entered
    ; **60 (elz) MVI_793 this is the new function to use the new single
    ; ICN field. The full ICN value will be returned
    QDFN2ICN ;
    SETFICN(DFN,ICN) ; - Set the Full ICN value
    ; ** this function is to only be used by approved packages **
    QSETFICN ;
    LOCK ;
    UNLOCK ;

    External References

    Name Field # of Occurrence
    ^DIE REP+1, SETICN+31, SETLOC+16, SETFICN+29
    TWODFNS^MPIF002 SETICN+24, SETFICN+23
    $$EN2^MPIFAPI ICNLC+10
    $$MPINODE^MPIFAPI CMOR2+4, GETVCCI+6, REP+3, HL7CMOR+10, HL7CMOR+11
    $$CHECKDG^MPIFSPC GETICN+10, SETICN+29
    EXC^RGHLLOG REP+8
    START^RGHLLOG REP+7
    STOP^RGHLLOG REP+9
    $$SITE^VASITE ICNLC+20, CHANGE+17, SETICN+16, SETICN+18, SETICN+36, SETICN+37, IFLOCAL+7, IFVCCI+8, SETFICN+15, SETFICN+17
    , SETFICN+33, SETFICN+34
    $$NNT^XUAF4 CMORNAME+5, GETVCCI+9, HL7CMOR+14
    $$STA^XUAF4 REP+8

    FileMan Files Accessed Via FileMan Db Call

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

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DPT - [#2] GETICN+6, GETICN+7, GETICN+8, GETDFN+8, GETVCCI+4, GETVCCI+5, CHANGE+12, SETICN+13, SETLOC+12, IFLOCAL+5
    , IFLOCAL+6, HL7CMOR+9, ICN2DFN+9, DFN2ICN+5, DFN2ICN+6, DFN2ICN+7, SETFICN+12, LOCK+1, UNLOCK+1
    ^DPT("AFICN" ICN2DFN+6, ICN2DFN+7, ICN2DFN+9!, DFN2ICN+10*, SETFICN+19, SETFICN+20, SETFICN+21, SETFICN+22
    ^DPT("AICN" GETICN+11*, GETDFN+5, GETDFN+6, GETDFN+8!, SETICN+20, SETICN+21, SETICN+22, SETICN+23
    ^DPT("AMPIMIS" SETICN+35!, SETLOC+18!, SETFICN+32!

    Label References

    Name Line Occurrences
    $$CHANGE ICNLC+20
    $$CMORNAME CMOR2+6
    $$DFN2ICN SETFICN+15, SETFICN+17
    $$GETICN ICNLC+7, CHANGE+17, SETICN+16, SETICN+18, IFLOCAL+7
    $$GETVCCI IFVCCI+7
    $$SETFICN SETICN+40
    $$SETICN ICNLC+14
    $$SETLOC ICNLC+19, SETICN+36, SETICN+37, SETFICN+33, SETFICN+34
    EXIT1 GETICN+5, GETICN+6, GETICN+7, GETICN+9
    EXIT2 GETDFN+3, GETDFN+5, GETDFN+7, GETDFN+8
    EXIT3 GETVCCI+3, GETVCCI+4, GETVCCI+5, GETVCCI+8, GETVCCI+10
    EXIT4 CHANGE+11, CHANGE+12, CHANGE+13
    EXIT5 SETICN+12, SETICN+13, SETICN+14, SETICN+15, SETICN+16, SETICN+18, SETICN+26, SETICN+33
    EXIT6 SETLOC+11, SETLOC+12
    EXIT7 HL7CMOR+7, HL7CMOR+8, HL7CMOR+9, HL7CMOR+10, HL7CMOR+13, HL7CMOR+15, HL7CMOR+16
    LOCK ICNLC+6, CHANGE+15, SETICN+27, SETLOC+13, SETFICN+26
    QDFN2ICN DFN2ICN+4, DFN2ICN+5, DFN2ICN+6, DFN2ICN+8
    QICN2DFN ICN2DFN+4, ICN2DFN+5, ICN2DFN+6, ICN2DFN+8, ICN2DFN+9
    QSETFICN SETFICN+11, SETFICN+12, SETFICN+13, SETFICN+14, SETFICN+15, SETFICN+17, SETFICN+25
    REP REP+4
    UNLOCK ICNLC+22, REP+10, SETICN+38, SETLOC+19, SETFICN+35

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    CHKSUM ICNLC+4~, ICNLC+11*, ICNLC+14, SETICN~, SETICN+15, SETICN+29*, SETICN+40
    CIEN CMORNAME~, CMORNAME+3, CMORNAME+5
    CNT CHANGE+14~*, REP+2*, REP+4, REP+5
    DA CHANGE+9~, REP*, SETICN+10~, SETICN+30*, SETLOC+9~, SETLOC+15*, SETFICN+9~, SETFICN+28*
    DELFLAG SETLOC~, SETLOC+14
    DFN GETICN~, GETICN+5, GETICN+6, GETICN+7, GETICN+8, GETICN+11, GETDFN+2~, GETDFN+6*, GETDFN+7, GETDFN+8
    , GETDFN+10, ICNLC~, ICNLC+5, ICNLC+7, ICNLC+14, ICNLC+19, ICNLC+20, CMOR2~, CMOR2+2, CMOR2+4
    , GETVCCI~, GETVCCI+3, GETVCCI+4, GETVCCI+5, GETVCCI+6, CHANGE~, CHANGE+11, CHANGE+12, CHANGE+17, REP
    REP+3, REP+8, SETICN~, SETICN+12, SETICN+13, SETICN+16, SETICN+18, SETICN+21, SETICN+22, SETICN+24
    , SETICN+30, SETICN+35, SETICN+36, SETICN+37, SETICN+40, SETLOC~, SETLOC+11, SETLOC+12, SETLOC+15, SETLOC+18
    , IFLOCAL~, IFLOCAL+4, IFLOCAL+5, IFLOCAL+6, IFLOCAL+7, IFVCCI~, IFVCCI+6, IFVCCI+7, HL7CMOR~, HL7CMOR+7
    , HL7CMOR+9, HL7CMOR+10, HL7CMOR+11, ICN2DFN+3~, ICN2DFN+7*, ICN2DFN+8, ICN2DFN+9, ICN2DFN+10, DFN2ICN~, DFN2ICN+4
    , DFN2ICN+5, DFN2ICN+6, DFN2ICN+7, DFN2ICN+10, SETFICN~, SETFICN+11, SETFICN+12, SETFICN+15, SETFICN+17, SETFICN+20
    , SETFICN+21, SETFICN+23, SETFICN+28, SETFICN+32, SETFICN+33, SETFICN+34, LOCK+1, UNLOCK+1
    DFN2 SETICN+23~*, SETICN+24, SETFICN+22~*, SETFICN+23
    DIC CHANGE+9~
    DIE CHANGE+9~, REP*, SETICN+10~, SETICN+30*, SETLOC+9~, SETLOC+15*, SETFICN+9~, SETFICN+28*
    DIQUIET CHANGE+9~, CHANGE+10*, CHANGE+14*, SETICN+10~, SETICN+11*, SETICN+28*, SETLOC+9~, SETLOC+10*, SETLOC+14*, SETFICN+9~
    , SETFICN+10*, SETFICN+27*
    DR CHANGE+9~, REP*, SETICN+10~, SETICN+30*, SETLOC+9~, SETLOC+15*, SETFICN+9~, SETFICN+28*
    ERR SETICN+10~, SETICN+36*, SETICN+37*, SETFICN+9~, SETFICN+33*, SETFICN+34*
    ICN GETDFN~, GETDFN+3, GETDFN+4*, GETDFN+5, GETDFN+6, GETDFN+8, ICNLC+4~, ICNLC+7*, ICNLC+8, ICNLC+10*
    , ICNLC+11, ICNLC+13*, ICNLC+23, SETICN~, SETICN+14, SETICN+16, SETICN+18, SETICN+20, SETICN+21, SETICN+22
    , SETICN+23, SETICN+24, SETICN+29, SETICN+36, SETICN+37, SETICN+40, ICN2DFN~, ICN2DFN+4, ICN2DFN+5, ICN2DFN+6
    , ICN2DFN+7, ICN2DFN+9, SETFICN~, SETFICN+13, SETFICN+14, SETFICN+15, SETFICN+17, SETFICN+19, SETFICN+20, SETFICN+21
    , SETFICN+22, SETFICN+23, SETFICN+33, SETFICN+34
    ICNX ICNLC+4~, ICNLC+11*, ICNLC+13, ICNLC+14
    INST CMORNAME+4~, CMORNAME+5*, CMORNAME+6, CMORNAME+7, CMORNAME+8
    NODE GETICN+4~, GETICN+8*, GETICN+9, GETICN+10, GETICN+11, CMOR2+3~, CMOR2+4*, CMOR2+5, CMOR2+6, GETVCCI+2~
    , GETVCCI+6*, GETVCCI+7, HL7CMOR+6~, HL7CMOR+11*, HL7CMOR+12, DFN2ICN+3~, DFN2ICN+7*, DFN2ICN+8, DFN2ICN+9
    NOLOCK ICNLC+12*, ICNLC+13!, ICNLC+15!, ICNLC+21!, CHANGE+15, REP+10, SETICN+27, SETICN+38, SETLOC+13, SETLOC+19
    , SETFICN+26, SETFICN+35
    PTR GETVCCI+2~, GETVCCI+7*, GETVCCI+8, GETVCCI+9, HL7CMOR+6~, HL7CMOR+12*, HL7CMOR+13, HL7CMOR+14
    RETURN GETICN+4~, GETICN+5*, GETICN+6*, GETICN+7*, GETICN+9*, GETICN+10*, EXIT1+1, GETDFN+2~, GETDFN+3*, GETDFN+5*
    , GETDFN+7*, GETDFN+8*, GETDFN+10*, EXIT2+1, GETVCCI+2~, GETVCCI+3*, GETVCCI+4*, GETVCCI+5*, GETVCCI+8*, GETVCCI+10*
    , GETVCCI+11*, EXIT3+1, CHANGE+9~, CHANGE+10*, CHANGE+11*, CHANGE+12*, CHANGE+13*, REP+6*, EXIT4+1, SETICN+10~
    , SETICN+11*, SETICN+12*, SETICN+13*, SETICN+14*, SETICN+15*, SETICN+16*, SETICN+18*, SETICN+25*, SETICN+26, SETICN+33*
    , SETICN+34, SETICN+40*, EXIT5+1, SETLOC+9~, SETLOC+10*, SETLOC+11*, SETLOC+12*, SETLOC+17*, SETLOC+18, EXIT6+1
    , HL7CMOR+6~, HL7CMOR+7*, HL7CMOR+8*, HL7CMOR+9*, HL7CMOR+10*, HL7CMOR+13*, HL7CMOR+15*, HL7CMOR+16*, HL7CMOR+17*, EXIT7+1
    , ICN2DFN+3~, ICN2DFN+4*, ICN2DFN+5*, ICN2DFN+6*, ICN2DFN+8*, ICN2DFN+9*, ICN2DFN+10*, QICN2DFN+1, DFN2ICN+3~, DFN2ICN+4*
    , DFN2ICN+5*, DFN2ICN+6*, DFN2ICN+8*, DFN2ICN+9*, DFN2ICN+10, QDFN2ICN+1, SETFICN+9~, SETFICN+10*, SETFICN+11*, SETFICN+12*
    , SETFICN+13*, SETFICN+14*, SETFICN+15*, SETFICN+17*, SETFICN+24*, SETFICN+25, SETFICN+30*, SETFICN+31, QSETFICN+1
    RGRSICN SETICN+10~, SETICN+11*, SETFICN+9~, SETFICN+10*
    SEP HL7CMOR~, HL7CMOR+8, HL7CMOR+17
    SITE IFVCCI+5~, IFVCCI+8*, IFVCCI+10
    STANUM GETVCCI+2~, GETVCCI+9*, GETVCCI+10, GETVCCI+11
    STAT HL7CMOR+6~, HL7CMOR+14*, HL7CMOR+15, HL7CMOR+16, HL7CMOR+17
    TIEN CHANGE+14~, REP+3*, REP+4, REP+5, REP+8
    TMP ICNLC+4~, ICNLC+14*, ICNLC+15, ICNLC+19*, ICNLC+20*
    >> TWODFN SETICN+24, SETFICN+23
    VALUE SETLOC+9~, SETLOC+14*
    VCCI CHANGE~, CHANGE+13, CHANGE+17*, CHANGE+19*, REP+4, REP+5, IFVCCI+5~, IFVCCI+7*, IFVCCI+9, IFVCCI+10
    X CHANGE+9~
    Y CHANGE+9~, SETICN+10~, SETICN+33, SETLOC+9~, SETLOC+17, SETFICN+9~, SETFICN+30
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All