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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: MPIFAPI

Package: Master Patient Index VistA

Routine: MPIFAPI


Information

MPIFAPI ;CMC/BP-APIS FOR MPI ;DEC 21, 1998

Source Information

Source file <MPIFAPI.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Kernel 4 HOME^%ZIS  ^%ZTLOAD  ($$FMADD,$$NOW)^XLFDT  $$UP^XLFSTR  
Master Patient Index VistA 4 $$SETICN^MPIF001  $$UPDATE^MPIFAPI1  (UPDATE,VTQ)^MPIFQ0  $$CHECKDG^MPIFSPC  
VA FileMan 4 ^DIC  FILE^DICN  ^DIE  EN^DIQ1  
Health Level Seven 1 LINK^HLUTIL3  
Registration 1 $$SITE^VASITE  

Caller Graph

Caller Graph Total: 66

Package Total Caller Graph
Master Patient Index VistA 27 MPIF001  MPIF002  MPIFA24  MPIFA24B  MPIFA28  MPIFA31B  MPIFA37  MPIFA40  
MPIFA43  MPIFAPI1  MPIFCMOR  MPIFDEL  MPIFDUP  MPIFDUPS  MPIFEDIT  MPIFEXT2  
MPIFEXT3  MPIFQ0  MPIFQED  MPIFQUE3  MPIFQUE4  MPIFREQ  MPIFRES  MPIFRESS  
MPIFRPC  MPIFRPC2  MPIFVTQ  
Registration 16 DG10  DGREG  DGRTAUPD  DPTLK  DPTLK4  DPTLK7  VAFCHIS  VAFCOFIN  
VAFCOTFU  VAFCPDAT  VAFCQRY1  VAFCQRY2  VAFCTFIN  VAFCTFMF  VAFCTFPR  VAFCTFU  
Clinical Information Resource Network 15 RGADT  RGADTP  RGADTP2  RGADTUT  RGDRM02  RGFIRM  RGFIU  RGJCREC  
RGMTDPSC  RGMTUT01  RGRSDYN  RGRSDYN1  RGRSDYN2  RGRSPT  RGVCCMR1  
Outpatient Pharmacy 3 PSODPT  PSOTPHL2  PSOVCC0  
Automated Medical Information Exchange 1 DVBCPATA  
Beneficiary Travel 1 DGBTRDV  
CMOP 1 PSXRXQU  
Enrollment Application System 1 EASEZI  
Integrated Billing 1 IBARXMU  

Entry Points

Name Comments DBIA/ICR reference
EN2() ;NEW ENTRY POINT FOR LOCALS
  • ICR #2702
    • Status: Active
    • Usage: Supported
    AGN2
    SETUP ;
    MPILINK() ;returns MPI logical Link
  • ICR #2702
    • Status: Active
    • Usage: Supported
    SUBNUM(DFN) ; returns SCN from MPI node for given DFN
    ; DFN - ien of patient file
    ; returns: -1^error message << always returns.
  • ICR #2702
    • Status: Active
    • Usage: Supported
    MPINODE(DFN) ; returns MPI node for given DFN
    ; DFN - patient file ien
    ; returns: -1^error message or MPI node from patient file
  • ICR #2702
    • Status: Active
    • Usage: Supported
    GETADFN(ICN) ; return DFN ONLY if ICN is the active ICN
    ; ICN - Integration Control Number for patient to be returned
    ; returns: -1^error message
    ; DFN - IEN for the patient entry in the Patient file (#2)
  • ICR #2702
    • Status: Active
    • Usage: Supported
    AICN2DFN(ICN) ; return DFN ONLY if Full ICN is the active ICN
    UPDATE(DFN,ARR,MPISILNT,REMOVE) ;api to edit 'mpi','mpifhis' and 'mpicmor' nodes
  • ICR #2706
    • Status: Active
    • Usage: Controlled Subscription
    MPIQ(DFN) ;MPI QUERY
    MPIQQ(PDFN) ; Entry point for queuing d/c
    ; Returned is -1^error message OR Task #
    WRTLN ;**37 Write intro text ONLY if there are fields to ask
    VALDT(VAL) ;**37 Validate value passed in.
    VIC40(DFN,ICN) ; -- only allowed for approved package use
    ; this will file the FULL icn for a patient and update correlations
    ; so the local site is now a subscribing package. This is used with the
    ; VIC 4.0 card registration where PV data was obtained from MVI.
    CARDLOG(MPIFID,MPIFTYPE,MPIFEVNT) ; - Function to log cards swiped or scanned
    ; input: MPIFID = ID from card swiped or scanned
    ; MPIFTYPE = type of card, either VHIC or CAC
    ; MPIFEVNT = type of event, either SWIPE or SCAN

    External References

    Name Field # of Occurrence
    HOME^%ZIS MPIQQ+9
    ^%ZTLOAD MPIQQ+8
    ^DIC AGN2+2
    FILE^DICN SETUP+8
    ^DIE AGN2+6, MPIQ+12, MPIQ+35, MPIQ+54
    EN^DIQ1 MPIQ+8, MPIQ+18, MPIQ+37
    LINK^HLUTIL3 MPILINK+2
    $$SETICN^MPIF001 MPINODE+14
    $$UPDATE^MPIFAPI1 UPDATE+3
    UPDATE^MPIFQ0 VIC40+8
    VTQ^MPIFQ0 MPIQ+57
    $$CHECKDG^MPIFSPC AGN2+4, SETUP+4, SETUP+5, MPINODE+13
    $$SITE^VASITE AGN2+1, SETUP+2
    $$FMADD^XLFDT MPIQQ+7, CARDLOG+10
    $$NOW^XLFDT MPIQQ+7, VIC40+6, CARDLOG+12
    $$UP^XLFSTR VALDT+5, VALDT+6, VALDT+7, VALDT+8, VALDT+9, VALDT+10

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: $C(7),!!,"Patient is being edited. No attempt will be made to connect to the MPI."
    • Line Location: MPIQ+2
    Function Call: WRITE
    • Prompt: !!,"Please verify or update the following information:",!
    • Line Location: WRTLN+1
    Routine Call
    • %ZIS
    • Line Location:
      • MPIQQ+9
    Routine Call
    • DIC
    • Line Location:
      • AGN2+2
    Routine Call
    • DIE
    • Line Location:
      • AGN2+6
      • MPIQ+12
      • MPIQ+35
      • MPIQ+54

    FileMan Files Accessed Via FileMan Db Call

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

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DPT - [#2] MPINODE+5, MPINODE+6, MPINODE+8, GETADFN+9, AICN2DFN+11, MPIQ+2, MPIQ+55
    ^DPT("AFICN" AICN2DFN+8, AICN2DFN+9
    ^DPT("AICN" GETADFN+6, GETADFN+7
    ^DPT("MPI" MPINODE+7, MPINODE+15
    ^MPIF(984.1 - [#984.1] EN2+2, AGN2, AGN2+8
    ^XTMP("MPIFCARD" CARDLOG+8, CARDLOG+10*, CARDLOG+11, CARDLOG+12*, CARDLOG+13

    Label References

    Name Line Occurrences
    $$VALDT MPIQ+46, MPIQ+49
    AGN2 AGN2
    SETUP EN2+2
    WRTLN MPIQ+6, MPIQ+33, MPIQ+52

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    ARR UPDATE~, UPDATE+3
    CHK SETUP+1~, SETUP+4*, MPINODE+13~*, MPINODE+14
    D0 SETUP+7!
    DA EN2+1~, AGN2+5*, SETUP+1~, SETUP+3*, MPIQ+8*!, MPIQ+11*, MPIQ+12!, MPIQ+17*, MPIQ+18!, MPIQ+34*
    , MPIQ+35!, MPIQ+37*!, MPIQ+53*, MPIQ+54!
    DA( MPIQ+17*, MPIQ+37*
    DD SETUP+7!
    DFN SUBNUM~, SUBNUM+4, MPINODE~, MPINODE+4, MPINODE+5, MPINODE+6, MPINODE+7, MPINODE+8, MPINODE+9, MPINODE+14
    , MPINODE+15, GETADFN+4~, GETADFN+7*, GETADFN+8, GETADFN+9, GETADFN+10, AICN2DFN+5~, AICN2DFN+9*, AICN2DFN+10, AICN2DFN+11
    , AICN2DFN+12, UPDATE~, UPDATE+3, MPIQ~, MPIQ+2, MPIQ+8, MPIQ+9, MPIQ+10, MPIQ+11, MPIQ+17
    , MPIQ+21, MPIQ+28, MPIQ+31, MPIQ+34, MPIQ+37, MPIQ+40, MPIQ+42, MPIQ+43, MPIQ+44, MPIQ+45
    , MPIQ+47, MPIQ+48, MPIQ+53, MPIQ+55, VIC40~, VIC40+8
    >> DGNEW MPIQ+5, MPIQ+13
    DIC EN2+1~, AGN2+2*, SETUP+3*, SETUP+9!, MPIQ+8*!, MPIQ+15*, MPIQ+18!, MPIQ+35!, MPIQ+37*!, MPIQ+54!
    DIC("DR" SETUP+6*
    DIC(0 AGN2+2*, SETUP+3*
    DIE AGN2+5*, AGN2+7!, MPIQ+11*, MPIQ+12!, MPIQ+34*, MPIQ+35!, MPIQ+53*, MPIQ+54!
    DIE("NO^" MPIQ+11*, MPIQ+34*, MPIQ+53*
    DIQ MPIQ+8*, MPIQ+17*, MPIQ+18!, MPIQ+35!, MPIQ+37*!, MPIQ+54!
    DIQ(0 MPIQ+8*, MPIQ+17*, MPIQ+37*
    DQ MPIQ+8!
    DR AGN2+5*, AGN2+7!, MPIQ+8*!, MPIQ+12*!, MPIQ+15*, MPIQ+18!, MPIQ+20*, MPIQ+22*, MPIQ+27*, MPIQ+28*
    , MPIQ+31*, MPIQ+32, MPIQ+35!, MPIQ+37*!, MPIQ+39*, MPIQ+42*, MPIQ+43*, MPIQ+44*, MPIQ+46*, MPIQ+49*
    , MPIQ+50*, MPIQ+51, MPIQ+54!
    DR( MPIQ+15*
    DR(2 MPIQ+12*, MPIQ+50*
    DT CARDLOG+10, CARDLOG+11, CARDLOG+12
    DUZ MPIQQ+4
    ICN GETADFN~, GETADFN+5, GETADFN+6, GETADFN+7, GETADFN+9, AICN2DFN~, AICN2DFN+6, AICN2DFN+7, AICN2DFN+8, AICN2DFN+9
    , AICN2DFN+11, VIC40~, VIC40+8
    IMPRS MPIQ+14~, MPIQ+24*, MPIQ+25*, MPIQ+26*, MPIQ+27
    >> INDEX VIC40+7*
    IO("Q" MPIQQ+9!
    LIST VIC40+5~
    MPICHK EN2+1~, AGN2+3*, AGN2+4
    MPICTY MPIQ+14~, MPIQ+47*, MPIQ+49
    MPIDOB MPIQ+14~, MPIQ+21*, MPIQ+22, MPIQ+24, MPIQ+25, MPIQ+26
    MPIFARR MPIQ+1~
    MPIFARR( MPIQ+50
    MPIFARR(2 MPIQ+9, MPIQ+10, MPIQ+21, MPIQ+28, MPIQ+31, MPIQ+37*, MPIQ+40, MPIQ+42, MPIQ+43, MPIQ+44
    , MPIQ+45, MPIQ+47, MPIQ+48
    MPIFEVNT CARDLOG~, CARDLOG+7, CARDLOG+12
    MPIFID CARDLOG~, CARDLOG+5, CARDLOG+9*, CARDLOG+12
    MPIFNEXT CARDLOG+4~, CARDLOG+11*, CARDLOG+12
    MPIFP MPIQ+8~*, MPIQ+10*, MPIQ+12
    MPIFRTN MPIQ+57!, MPIQ+69!
    >> MPIFS MPIQ+2, MPIQ+3
    MPIFTYPE CARDLOG~, CARDLOG+6, CARDLOG+9, CARDLOG+12
    MPIL MPILINK+1~, MPILINK+2, MPILINK+3
    MPIL( MPILINK+6
    MPIL(0 MPILINK+4
    MPILINK MPILINK+1~, MPILINK+4*, MPILINK+5, MPILINK+6*, MPILINK+7
    MPIMMN MPIQ+14~, MPIQ+45*, MPIQ+46
    MPINCK EN2+1~, AGN2+4*, AGN2+5
    MPINNM EN2+1~, AGN2+3*, AGN2+4
    MPINUM EN2+1~, AGN2+1*, AGN2+4*, AGN2+9, SETUP+4*, SETUP+10
    MPINUM1 EN2+1~, AGN2+3*, AGN2+4
    MPIOUT EN2+1~
    MPISILNT UPDATE~, UPDATE+3
    MPIST MPIQ+14~, MPIQ+48*, MPIQ+49
    MPIX VIC40+5~
    NODE MPINODE+8~*, MPINODE+9*, MPINODE+10, MPINODE+13, MPINODE+14*, MPINODE+16
    NUM SETUP+1~, SETUP+4*, SETUP+5
    NXTCHK SETUP+1~, SETUP+5*, SETUP+6
    NXTNUM SETUP+1~, SETUP+5*
    PDFN MPIQQ~, MPIQQ+2, MPIQQ+5
    REMOVE UPDATE~, UPDATE+3
    RETURN GETADFN+4~, AICN2DFN+5~
    SITE SETUP+1~, SETUP+2*, SETUP+3, SETUP+4
    SSNP MPIQ+30~*, MPIQ+31*, MPIQ+37
    TIME VIC40+5~, VIC40+6*
    TMP MPINODE+3~, MPINODE+14*
    TSK MPIQQ+10~*, MPIQQ+12
    VAL VALDT~, VALDT+4, VALDT+5, VALDT+6, VALDT+7, VALDT+8, VALDT+9, VALDT+10
    X AGN2+1*, AGN2+7!, SETUP+3*, SETUP+9!
    >> XQY0 CARDLOG+12
    Y AGN2+7!, SETUP+9!
    Y(0 AGN2+3
    ZTDTH MPIQQ+7*, MPIQQ+11!
    ZTIO MPIQQ+7*, MPIQQ+11!
    >> ZTQUEUED MPIQ+56
    ZTREQ MPIQ+56*, MPIQ+69!
    ZTRTN MPIQQ+3*, MPIQQ+11!
    ZTSAVE MPIQQ+11!
    ZTSAVE("DUZ" MPIQQ+4*
    ZTSAVE("MPIFS" MPIQQ+5*
    ZTSAVE("PDFN" MPIQQ+5*
    ZTSK MPIQQ+10, MPIQQ+11!
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All