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 |  Marked Items  | All
Print Page as PDF
Routine: VAFCPTED

Package: Registration

Routine: VAFCPTED


Information

VAFCPTED ;ISA/RJS,Zoltan-EDIT EXISTING PATIENT ;11 Dec 2018 3:59 PM

Source Information

Source file <VAFCPTED.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 3 MSG^DIALOG  (,FILE,UPDATE)^DIE  $$GET1^DIQ  
Kernel 1 ($$CLEANC,$$NAMEFMT)^XLFNAME  
Master Patient Index VistA 1 ($$GETFLAG,GETFLAG)^MPIFNAMC  

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

Package Total Caller Graph
Clinical Information Resource Network 3 RGADTP2  RGMTUT02  RGRSPT  
Emergency Department Integration Software 1 EDPUPD  
Master Patient Index VistA 1 MPIFQED  
Registration 1 VAFCPTAD  

Entry Points

Name Comments DBIA/ICR reference
EDIT(DGDFN,ARRAY,STRNGDR) ;-- Edits existing patient
  • ICR #2784
    • Status: Active
    • Usage: Controlled Subscription
    LOAD ; -- Loads fields to patient file
    UPDNC(DGDFN,NAME) ;
    ALIAS ; update Alias multiple **756
    ALIASNC(ARRAY,DGDFN,RGER) ;Compare incoming Alias Name Components with existing Alias Name Components and add or delete as necessary
    BLDERR(MSGROOT) ;Build an error from the error message array
    FMTNAME(ARRAY,LEN) ;Return a formatted name from cleaned Name Components that doesn't exceed LEN characters in length.
    GETFLAG() ;Get the value of the name components flag

    External References

    Name Field # of Occurrence
    MSG^DIALOG BLDERR+3
    ^DIE LOAD+19
    FILE^DIE ALIAS+24, ALIASNC+25, ALIASNC+47
    UPDATE^DIE UPDNC+10, ALIAS+13, ALIASNC+36
    $$GET1^DIQ EDIT+19
    $$GETFLAG^MPIFNAMC GETFLAG+2
    GETFLAG^MPIFNAMC GETFLAG+2
    $$CLEANC^XLFNAME FMTNAME+13, FMTNAME+14, FMTNAME+15, FMTNAME+16
    $$NAMEFMT^XLFNAME FMTNAME+19

    FileMan Files Accessed Via FileMan Db Call

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

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DPT - [#2] EDIT+14, EDIT+37, ALIAS+4, ALIASNC+9, ALIASNC+41
    ^VA(20 - [#20] ALIASNC+13

    Label References

    Name Line Occurrences
    $$BLDERR ALIASNC+26, ALIASNC+37, ALIASNC+48
    $$FMTNAME ALIASNC+32
    $$GETFLAG LOAD+6
    ALIAS LOAD+6
    ALIASNC LOAD+7
    LOAD EDIT+22, EDIT+29
    UPDNC LOAD+12

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    ADD ALIAS+3~, ALIAS+8*, ALIAS+9*, ALIAS+10
    ALIAS ALIAS+3~, ALIAS+10*
    ARRAY EDIT~, EDIT+16, EDIT+20, EDIT+26, EDIT+27, LOAD+7, LOAD+11, LOAD+14, LOAD+15, LOAD+17
    ALIAS+7, ALIAS+9, ALIAS+10, ALIAS+11, ALIAS+12, ALIAS+21, ALIAS+22, ALIASNC~, ALIASNC+5, ALIASNC+6
    , ALIASNC+32, ALIASNC+33, ALIASNC+42, FMTNAME~, FMTNAME+6, FMTNAME+7, FMTNAME+8, FMTNAME+9, FMTNAME+10
    ARRAY("FIRST" FMTNAME+8*, FMTNAME+14
    ARRAY("MIDDLE" FMTNAME+9*, FMTNAME+15
    ARRAY("SUFFIX" FMTNAME+10*, FMTNAME+16
    ARRAY("SURNAME" FMTNAME+7*, FMTNAME+13
    CNT ALIAS+3~, ALIAS+5*
    DA EDIT+39!, LOAD+13*
    DEL ALIAS+3~, ALIAS+21*, ALIAS+22*, ALIAS+23
    DGALIAS ALIAS+3~
    DGALIAS( ALIAS+19
    DGDFN EDIT~, EDIT+14, EDIT+19, EDIT+37, LOAD+7, LOAD+12, LOAD+13, UPDNC~, UPDNC+5, ALIAS+4
    ALIAS+11, ALIAS+12, ALIAS+23, ALIASNC~, ALIASNC+9, ALIASNC+16, ALIASNC+23, ALIASNC+32, ALIASNC+33, ALIASNC+41
    DIE EDIT+39!, LOAD+1~, LOAD+13*
    DIERR UPDNC+1~, ALIASNC+26, ALIASNC+37, ALIASNC+48
    DIQUIET EDIT+12~, EDIT+13*
    DONE ALIAS+3~, ALIAS+8*, ALIAS+9*, ALIAS+21*, ALIAS+22*
    DR LOAD+1~, LOAD+18*
    ERRARR BLDERR+2~, BLDERR+3
    ERRARR( BLDERR+4
    ERRMSG BLDERR+2~, BLDERR+4*, BLDERR+5
    FDA UPDNC+1~, ALIAS+3~, ALIAS+13, ALIAS+15!, ALIAS+24, ALIASNC+2~, ALIASNC+24, ALIASNC+25!, ALIASNC+34, ALIASNC+36!
    , ALIASNC+47!
    FDA( ALIAS+11*, ALIAS+12*, ALIAS+23*, ALIASNC+16*, ALIASNC+23*, ALIASNC+32*, ALIASNC+33*
    FDA(20 UPDNC+3*, UPDNC+4*, UPDNC+5*, UPDNC+6*, UPDNC+7*, UPDNC+8*, UPDNC+9*, ALIASNC+43*, ALIASNC+44*, ALIASNC+45*
    , ALIASNC+46*
    FLD EDIT+12~, EDIT+22*, EDIT+29*, LOAD+3, LOAD+9, LOAD+14, LOAD+15, LOAD+17, LOAD+18
    FLD("TEMP" EDIT+25*, EDIT+26*, EDIT+27, EDIT+29
    HAVE ALIAS+3~, ALIAS+4*, ALIAS+18*, ALIAS+19, ALIAS+22, ALIASNC+2~, ALIASNC+9*
    HAVE( ALIAS+8, ALIAS+9, ALIAS+16, ALIAS+18, ALIASNC+10, ALIASNC+11, ALIASNC+12, ALIASNC+14
    I ALIAS+3~, ALIAS+7*, ALIAS+9, ALIAS+10, ALIAS+11, ALIAS+12, ALIAS+21*, ALIAS+22, BLDERR+2~, BLDERR+4*
    IEN UPDNC+1~, ALIASNC+2~, ALIASNC+10*, ALIASNC+11, ALIASNC+12, ALIASNC+14, ALIASNC+16, ALIASNC+17, ALIASNC+22*, ALIASNC+23
    , ALIASNC+40*, ALIASNC+41
    IENROOT ALIASNC+2~
    IENROOT( ALIASNC+39, ALIASNC+40
    IN ALIASNC+2~
    IN( ALIASNC+6*, ALIASNC+21, ALIASNC+29, ALIASNC+31
    LEN FMTNAME~, FMTNAME+3*, FMTNAME+19
    LOCKFLE EDIT+12~, EDIT+15*, EDIT+37
    MIEN ALIAS+3~, ALIAS+8*, ALIAS+9, ALIAS+16*, ALIAS+18, ALIAS+23
    MPIFERR ALIAS+3~, ALIAS+15!
    MPIFERR("DIERR" ALIAS+13, ALIAS+24
    MSG UPDNC+1~, ALIASNC+26!, ALIASNC+37!, ALIASNC+48!
    MSGROOT BLDERR~, BLDERR+3
    NAME LOAD+10~, LOAD+11*, LOAD+12, UPDNC~
    NAME("FAMILY" UPDNC+6
    NAME("GIVEN" UPDNC+7
    NAME("MIDDLE" UPDNC+8
    NAME("SUFFIX" UPDNC+9
    NC ALIASNC+2~, ALIASNC+13*, ALIASNC+14, ALIASNC+42*, ALIASNC+43, ALIASNC+44, ALIASNC+45, ALIASNC+46, FMTNAME+2~, FMTNAME+19
    NC("FAMILY" FMTNAME+13*
    NC("GIVEN" FMTNAME+14*
    NC("MIDDLE" FMTNAME+15*
    NC("SUFFIX" FMTNAME+16*
    NCIEN ALIASNC+2~, ALIASNC+11*, ALIASNC+13
    NCIENS ALIASNC+2~, ALIASNC+41*, ALIASNC+43, ALIASNC+44, ALIASNC+45, ALIASNC+46
    OLDZIP EDIT+12~, EDIT+19*, EDIT+20
    ORIG ALIASNC+2~
    ORIG( ALIASNC+16, ALIASNC+17*, ALIASNC+20, ALIASNC+22, ALIASNC+30
    RGER LOAD+7, ALIAS+13*, ALIAS+24*, ALIASNC~, ALIASNC+26*, ALIASNC+37*, ALIASNC+48*
    SEQ ALIASNC+2~, ALIASNC+5*, ALIASNC+6, ALIASNC+31*, ALIASNC+32, ALIASNC+33, ALIASNC+39*, ALIASNC+40, ALIASNC+42
    STRNG EDIT+12~, EDIT+22*
    STRNGDR EDIT~, EDIT+22, EDIT+27
    SUB ALIASNC+2~, ALIASNC+14*, ALIASNC+16, ALIASNC+17, ALIASNC+20*, ALIASNC+21, ALIASNC+22, ALIASNC+29*, ALIASNC+30, ALIASNC+31
    U EDIT+11*, LOAD+17
    VAFCX EDIT+12~, EDIT+22*
    ZTQUEUED EDIT+12~, EDIT+13*

    Marked Items

    Name Field # of Occurrence
    $T(GETFLAG^MPIFNAMC GETFLAG+2
    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 |  Marked Items  | All