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

Package: Registration

Routine: VAFCPTED


Information

VAFCPTED ;ISA/RJS,Zoltan-EDIT EXISTING PATIENT ;4/15/22 16:30

Source Information

Source file <VAFCPTED.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 2 MSG^DIALOG  (,FILE,UPDATE)^DIE  
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
    UPDSEXOR(ARRAY,DGDFN,RGER) ;**1059, VAMPI-11114 (dri) compare incoming sexual orientation multiple with existing and add/update
    UPDPRON(ARRAY,DGDFN,RGER) ;**1059, VAMPI-11118 (dri) compare incoming pronoun multiple with existing and add/update
    ; Input:
    ; ARRAY = ARAY(2)
    ; ARAY(2,.2406,n) = pronoun code
    ; DGDFN = patient's dfn

    External References

    Name Field # of Occurrence
    MSG^DIALOG BLDERR+3
    ^DIE LOAD+20
    FILE^DIE ALIAS+24, ALIASNC+25, ALIASNC+47
    UPDATE^DIE UPDNC+10, ALIAS+13, ALIASNC+36, UPDSEXOR+32, UPDPRON+21
    $$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

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DG(47.77 - [#47.77] UPDSEXOR+15
    ^DG(47.78 - [#47.78] UPDPRON+13
    ^DPT - [#2] EDIT+14, EDIT+24, ALIAS+4, ALIASNC+9, ALIASNC+41, UPDSEXOR+15, UPDSEXOR+24, UPDPRON+13
    ^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+17
    UPDNC LOAD+12
    UPDPRON LOAD+14
    UPDSEXOR LOAD+13

    Naked Globals

    Name Field # of Occurrence
    ^( UPDSEXOR+15, UPDPRON+13

    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~, LOAD+7, LOAD+11, LOAD+13, LOAD+14, LOAD+16, LOAD+17, LOAD+18, 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, UPDSEXOR~, UPDSEXOR+13, UPDSEXOR+14
    , UPDSEXOR+20, UPDSEXOR+24, UPDSEXOR+25, UPDPRON~, UPDPRON+11, UPDPRON+12
    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*
    CUR UPDSEXOR+12~, UPDPRON+10~
    CUR( UPDSEXOR+15*, UPDSEXOR+19, UPDSEXOR+23, UPDSEXOR+24, UPDSEXOR+25, UPDSEXOR+27, UPDSEXOR+30, UPDPRON+13*, UPDPRON+16, UPDPRON+19
    DA EDIT+26!, LOAD+15*
    DEL ALIAS+3~, ALIAS+21*, ALIAS+22*, ALIAS+23
    DGALIAS ALIAS+3~
    DGALIAS( ALIAS+19
    DGDFN EDIT~, EDIT+14, EDIT+24, LOAD+7, LOAD+12, LOAD+13, LOAD+14, LOAD+15, UPDNC~, UPDNC+5
    , ALIAS+4, ALIAS+11, ALIAS+12, ALIAS+23, ALIASNC~, ALIASNC+9, ALIASNC+16, ALIASNC+23, ALIASNC+32, ALIASNC+33
    , ALIASNC+41, UPDSEXOR~, UPDSEXOR+15, UPDSEXOR+20, UPDSEXOR+21, UPDSEXOR+24, UPDSEXOR+25, UPDSEXOR+27, UPDSEXOR+30, UPDPRON~
    , UPDPRON+13, UPDPRON+16, UPDPRON+19
    DIE EDIT+26!, LOAD+1~, LOAD+15*
    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+19*
    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!, UPDSEXOR+12~, UPDSEXOR+32, UPDPRON+10~, UPDPRON+21
    FDA( ALIAS+11*, ALIAS+12*, ALIAS+23*, ALIASNC+16*, ALIASNC+23*, ALIASNC+32*, ALIASNC+33*, UPDSEXOR+20*, UPDSEXOR+21*, UPDSEXOR+25*
    , UPDSEXOR+27*, UPDSEXOR+30*, UPDPRON+16*, UPDPRON+19*
    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+17*, LOAD+3, LOAD+9, LOAD+13, LOAD+14, LOAD+16, LOAD+17, LOAD+18, LOAD+19
    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*
    , UPDSEXOR+12~, UPDSEXOR+14*, UPDSEXOR+15*, UPDSEXOR+20*, UPDSEXOR+24*, UPDSEXOR+25, UPDPRON+10~, UPDPRON+12*, UPDPRON+13*
    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
    INC UPDSEXOR+12~, UPDPRON+10~
    INC( UPDSEXOR+14*, UPDSEXOR+18, UPDSEXOR+20, UPDSEXOR+21, UPDSEXOR+24, UPDSEXOR+25, UPDSEXOR+30, UPDPRON+12*, UPDPRON+16, UPDPRON+19
    LEN FMTNAME~, FMTNAME+3*, FMTNAME+19
    LOCKFLE EDIT+12~, EDIT+15*, EDIT+24
    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
    ORIG ALIASNC+2~
    ORIG( ALIASNC+16, ALIASNC+17*, ALIASNC+20, ALIASNC+22, ALIASNC+30
    PRCODE UPDPRON+10~, UPDPRON+12*, UPDPRON+13*, UPDPRON+16*, UPDPRON+19*
    PRIEN UPDPRON+10~, UPDPRON+13*
    RGER LOAD+7, LOAD+13, LOAD+14, ALIAS+13*, ALIAS+24*, ALIASNC~, ALIASNC+26*, ALIASNC+37*, ALIASNC+48*, UPDSEXOR~
    , UPDSEXOR+32*, UPDPRON~, UPDPRON+21*
    SEQ ALIASNC+2~, ALIASNC+5*, ALIASNC+6, ALIASNC+31*, ALIASNC+32, ALIASNC+33, ALIASNC+39*, ALIASNC+40, ALIASNC+42
    SOCODE UPDSEXOR+12~, UPDSEXOR+14*, UPDSEXOR+15*, UPDSEXOR+18*, UPDSEXOR+19, UPDSEXOR+20, UPDSEXOR+21, UPDSEXOR+23, UPDSEXOR+24, UPDSEXOR+25
    , UPDSEXOR+27, UPDSEXOR+30*
    SOIEN UPDSEXOR+12~, UPDSEXOR+15*
    STRNG EDIT+12~, EDIT+17*
    STRNGDR EDIT~, EDIT+17
    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+18
    VAFCERR UPDSEXOR+12~, UPDPRON+10~
    VAFCERR("DIERR" UPDSEXOR+32, UPDPRON+21
    VAFCX EDIT+12~, EDIT+17*
    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 |  Naked Globals |  Local Variables |  Marked Items  | All