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

Package: Registration

Routine: VAFCPDAT


Information

VAFCPDAT ;BIR/CML/ALS-DISPLAY MPI/PD INFORMATION FOR SELECTED PATIENT ; 7/12/16 11:11am

Source Information

Source file <VAFCPDAT.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
VA FileMan 5 NOW^%DTC  ^DIC  $$GET1^DIQ  EN^DIQ1  ^DIR  
Registration 3 (NOTICE,PTSEC)^DGSEC4  EXT^VAFCPDT2  $$SITE^VASITE  
Kernel 2 $$FMTE^XLFDT  EN^XUTMDEVQ  
Master Patient Index VistA 2 $$GETICN^MPIF001  $$MPINODE^MPIFAPI  

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

Package Total Caller Graph
Registration 3 VAFCEHLM  VAFCMGA1  VAFCPDT2  
Clinical Information Resource Network 2 RGEX01  RGEX03  

Entry Points

Name Comments DBIA/ICR reference
MAIN ; Entry point with device call
  • ICR #3299
    • Status: Active
    • Usage: Private
    START ;Entry point without device call, used for RPC calls
  • ICR #3299
    • Status: Active
    • Usage: Private
    TF ;List Treating Facilities for this patient
    SUB ;removed listing of subscribers for RG*1.0*23
    HIS ;find ICN history
    CONT ;Continue to VAFCPDT2 for extended data
    DONE ;
    QUIT ;
    TFHDR ;
    ICNHDR
    SS

    External References

    Name Field # of Occurrence
    NOW^%DTC START+3
    NOTICE^DGSEC4 START+52, START+53
    PTSEC^DGSEC4 START+46
    ^DIC TF+19
    $$GET1^DIQ START+21
    EN^DIQ1 START+12, TF+6, TF+11, HIS+10
    ^DIR START+93, SS
    $$GETICN^MPIF001 START+28
    $$MPINODE^MPIFAPI START+26
    EXT^VAFCPDT2 CONT+3
    $$SITE^VASITE START+4
    $$FMTE^XLFDT START+3, START+14, TF+16
    EN^XUTMDEVQ MAIN+3

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"MPI not installed."
    • Line Location: START+1
    Function Call: WRITE
    • Prompt: @IOF,!," "
    • Line Location: START+6
    Function Call: WRITE
    • Prompt: @IOF,!
    • Line Location: START+42
    Function Call: WRITE
    • Prompt: !,"MPI/PD Data for: ",NAME," (DFN #",DFN,")"
    • Line Location: START+43
    Function Call: WRITE
    • Prompt: !!,"Access denied: Required parameters not defined"
    • Line Location: START+47
    Function Call: WRITE
    • Prompt: ?50,"***PATIENT MARKED SENSITIVE***"
    • Line Location: START+48
    Function Call: WRITE
    • Prompt: !!,"Access not allowed on your own PATIENT (#2) file entry"
    • Line Location: START+49
    Function Call: WRITE
    • Prompt: !!,"Access denied: Your SSN is not defined"
    • Line Location: START+50
    Function Call: WRITE
    • Prompt: !,"Printed ",HDT," at ",SITENAM,!,LN
    • Line Location: START+54
    Function Call: WRITE
    • Prompt: !,"ICN : ",ICN
    • Line Location: START+57
    Function Call: WRITE
    • Prompt: !,"SSN : ",SSN
    • Line Location: START+58
    Function Call: WRITE
    • Prompt: !?9,"SSN Verification Status: ",SSNVER
    • Line Location: START+59
    Function Call: WRITE
    • Prompt: !?9,"Pseudo SSN Reason: ",PREAS
    • Line Location: START+60
    Function Call: WRITE
    • Prompt: !?9,"Pseudo SSN Reason : ",PREAS
    • Line Location: START+61
    Function Call: WRITE
    • Prompt: !,"Birth Sex : ",SEX
    • Line Location: START+63
    Function Call: WRITE
    • Prompt: !,"Claim # : ",CLAIM
    • Line Location: START+64
    Function Call: WRITE
    • Prompt: !,"Date of Birth: ",DOB
    • Line Location: START+65
    Function Call: WRITE
    • Prompt: !,"Date of Death: ",DOD
    • Line Location: START+68
    Function Call: WRITE
    • Prompt: !,?15,"Entered By: ",?42,DODENTBY
    • Line Location: START+69
    Function Call: WRITE
    • Prompt: !,?15,"Source of Notification: ",?42,DODSRC
    • Line Location: START+70
    Function Call: WRITE
    • Prompt: !,?15,"Last Updated: ",?42,DODLUPD
    • Line Location: START+71
    Function Call: WRITE
    • Prompt: !,?15,"Last Edited By: ",?42,DODLEBY
    • Line Location: START+72
    Function Call: WRITE
    • Prompt: !,?15,"Supporting Document Type: ",?42,DODD
    • Line Location: START+73
    Function Call: WRITE
    • Prompt: !,?15,"Option Used: ",?42,DODOPT
    • Line Location: START+74
    Function Call: WRITE
    • Prompt: !,"Date of Death: ",DOD
    • Line Location: START+75
    Function Call: WRITE
    • Prompt: !,"Multiple Birth Indicator: ",MBI
    • Line Location: START+76
    Function Call: WRITE
    • Prompt: !,"DoD Temporary ID Number : ",TIN
    • Line Location: START+77
    Function Call: WRITE
    • Prompt: !,"DoD Foreign ID Number : ",FIN
    • Line Location: START+78
    Function Call: WRITE
    • Prompt: " (Bad Address Indicator: ",BAI,")"
    • Line Location: START+79
    Function Call: WRITE
    • Prompt: !?9,STR1
    • Line Location: START+80
    Function Call: WRITE
    • Prompt: !?9,STR2
    • Line Location: START+81
    Function Call: WRITE
    • Prompt: !?9,STR3
    • Line Location: START+82
    Function Call: WRITE
    • Prompt: !?9,$E(CTY,1,20)_", "_$G(ST)_" "_$G(ZIP)
    • Line Location: START+84
    Function Call: WRITE
    • Prompt: !?9,CTY_", "_PROVINCE_" ("_CNAME_") "_POSTCODE
    • Line Location: START+87
    Function Call: WRITE
    • Prompt: !?9,CTY_", "_"("_CNAME_") "_POSTCODE
    • Line Location: START+88
    Function Call: WRITE
    • Prompt: !,"Phone #: ",PHN
    • Line Location: START+89
    Function Call: WRITE
    • Prompt: !,"Self-Identified Gender Identity: ",SIGEN
    • Line Location: START+90
    Function Call: WRITE
    • Prompt: !
    • Line Location: START+94
    Function Call: WRITE
    • Prompt: !,"No Treating Facilities found."
    • Line Location: TF+22
    Function Call: WRITE
    • Prompt: " - changed ",HISDT
    • Line Location: HIS+18
    Function Call: WRITE
    • Prompt: !!,"Treating Facilities:",?22,"Station:",?32,"DT Last Treated",?54,"Event Reason"
    • Line Location: TFHDR+1
    Function Call: WRITE
    • Prompt: !,"--------------------",?22,"--------",?32,"---------------",?54,"------------"
    • Line Location: TFHDR+2
    Function Call: WRITE
    • Prompt: !!,"ICN History:",!,"------------"
    • Line Location: ICNHDR+0
    Function Call: WRITE
    • Prompt: !
    • Line Location: SS+1
    Routine Call
    • DIC
    • Line Location:
      • TF+19
    Routine Call
    • DIR
    • Line Location:
      • START+93
      • SS

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^VAT(391.72 - [#391.72] Classic Fileman Calls
    ^DGCN(391.91 - [#391.91] Classic Fileman Calls
    ^HL(779.004 - [#779.004] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZOSF("TEST" START+1
    ^DGCN(391.91 - [#391.91] TF+3, TF+4
    ^DPT - [#2] HIS+1, HIS+7
    ^DPT("AICNL" START+39

    Label References

    Name Line Occurrences
    CONT HIS+1
    ICNHDR HIS+6, HIS+17
    QUIT START+1, START+47, START+49, START+50, START+96, TF+23, HIS+3, HIS+7, DONE+1
    SS TF+29, HIS+4, HIS+16, DONE+2
    SUB TF+22
    TFHDR TF+1, TF+30

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % START+3, QUIT+1!
    BAI START+10~, START+18*, START+79
    CCODE START+10~, START+21*, START+83, START+85
    CHG QUIT+3!
    CHGNODE QUIT+3!
    CLAIM START+10~, START+17*, START+64
    CMOR QUIT+1!
    CNAME START+10~, START+21*, START+87, START+88
    COUNTRY START+10~, START+21*, START+83, START+85
    CTY START+10~, START+20*, START+84, START+86, START+87, START+88
    D QUIT+3!
    DA START+9*, START+12!, START+45~, TF+5*, TF+6!, TF+10*, TF+11!, HIS+8*, HIS+10!
    DA( HIS+8*
    >> DFN START+5, START+9, START+13, START+14, START+15, START+16, START+17, START+18, START+19, START+20
    , START+21, START+22, START+23, START+24, START+25, START+26, START+28, START+31, START+32, START+33
    , START+34, START+35, START+36, START+39, START+43, START+46, START+52, START+53, TF+3, TF+4
    , TF+30, HIS+1, HIS+5, HIS+7, HIS+8, HIS+17
    DIC START+9*, START+12!, START+45~, TF+5*, TF+6!, TF+10*, TF+11!, TF+19*!, HIS+8*, HIS+10!
    , QUIT+1!
    DIC(0 TF+19*
    DIFF START+27*, QUIT+4!
    DIQ START+9*, START+12!, START+45~, TF+5*, TF+6!, TF+10*, TF+11!, HIS+9*, HIS+10!
    DIQ(0 START+9*, TF+5*, TF+10*, HIS+9*
    DIR START+93!, QUIT+1!, SS!
    DIR(0 START+93*, SS*
    DIRUT QUIT+1!
    DNODE QUIT+1!
    DNODE(2 START+13, START+14, START+15, START+16, START+17, START+18, START+19, START+20, START+21, START+22
    , START+23, START+24, START+25, START+31, START+32, START+33, START+34, START+35, START+36
    DOB START+10~, START+14*, START+65
    DOD START+10~, START+16*, START+30, START+67, START+68
    DODD START+11~, START+35*, START+73
    DODENTBY START+11~, START+31*, START+69
    DODLEBY START+11~, START+34*, START+72
    DODLUPD START+11~, START+33*, START+71
    DODOPT START+11~, START+36*, START+74
    DODSRC START+11~, START+32*, START+70
    DR START+9*, START+12!, START+45~, TF+5*, TF+6!, TF+10*, TF+11!, HIS+8*, HIS+10!
    DR( HIS+8*
    FIN START+10~, START+27*, START+40*, START+78
    GOT START+38*, QUIT+1!
    HDT START+3*, START+8, START+54, QUIT+1!
    HFULLICN HIS+13*, HIS+18, QUIT+1!
    HIS HIS+7*, HIS+8, HIS+11, HIS+12, HIS+14, QUIT+1!
    HISCHK HIS+12*, HIS+13, QUIT+1!
    HISDT HIS+14*, HIS+18, QUIT+1!
    HISICN HIS+11*, HIS+13, QUIT+1!
    HISNODE QUIT+4!
    HISNODE( HIS+11, HIS+12, HIS+14
    ICN START+7, START+10~, START+27*, START+28*, START+38, START+39*, START+57
    INST TF+7*, TF+8*, TF+9, TF+10, TF+12, QUIT+4!
    IOF START+6, START+42, TF+30, HIS+5, HIS+17
    IOSL START+91, TF+28, HIS+3, HIS+15
    IOST START+91, TF+28, HIS+3, HIS+15, DONE+2
    JJ START+94*, QUIT+1!, SS+1*
    LIEN QUIT+1!
    LINST QUIT+2!
    LN START+2*, START+8, START+54, QUIT+2!
    LN2 START+2*, TF+30, HIS+5, HIS+17, QUIT+4!
    LNQ TF+29*, HIS+4*, HIS+16*, DONE+2*, QUIT+4!, SS+1
    LSTDT TF+14*, TF+16*, TF+21, TF+27*, TF+31, QUIT+2!
    LSTSORT TF+15*, TF+16*, TF+21, TF+23*, TF+24, TF+25, TF+26, TF+27, QUIT+4!
    MBI START+10~, START+15*, START+76, QUIT+4!
    MNODE START+26*, START+39, START+40, QUIT+2!
    NAME START+10~, START+13*, START+43, TF+30, HIS+5, HIS+17, QUIT+4!
    NOTRPC MAIN+1*, MAIN+4!, START+6, START+42
    PHN START+10~, START+23*, START+89
    POSTCODE START+10~, START+22*, START+86, START+87, START+88
    PREAS START+10~, START+25*, START+60, START+61
    PROVINCE START+10~, START+22*, START+86, START+87, START+88
    QFLG START+2*, START+93*, START+96, TF+23, TF+24, TF+28, TF+29, HIS+3, HIS+4, HIS+7
    , HIS+15, HIS+16, DONE+1, QUIT+4!, SS*
    REACODE TF+17*, TF+18, TF+19, QUIT+2!
    REASON TF+17*, TF+20*, TF+21, TF+25*, TF+31, QUIT+2!
    RESULT START+45~, START+46
    RESULT(1 START+47, START+48, START+49, START+50, START+51, START+52, START+53
    RGDFN QUIT+4!
    RGSENS START+45~
    SCN START+27*, QUIT+2!
    SCORE START+27*, QUIT+2!
    SCRDT START+27*, QUIT+4!
    SENSTV START+45~
    SEX START+10~, START+16*, START+63
    SIGEN START+10~, START+16*, START+90
    SITE START+4*, QUIT+2!
    SITEIEN START+4*, QUIT+2!
    SITENAM START+4*, START+7, START+54, QUIT+2!
    SITENUM START+4*, START+38, QUIT+2!
    SS START+94*, QUIT+3!, SS+1*
    SSN START+10~, START+13*, START+58
    SSNVER START+10~, START+24*, START+59, START+60, START+61
    ST START+10~, START+20*, START+84
    STA QUIT+4!
    STA(4 TF+12
    STATION TF+7*, TF+12*, TF+21, TF+26*, TF+31, QUIT+4!
    STR1 START+10~, START+19*, START+80
    STR2 START+10~, START+19*, START+81
    STR3 START+10~, START+19*, START+82
    SUBARR QUIT+3!
    SUBN QUIT+3!
    TERM QUIT+3!
    TERMDT QUIT+3!
    TF TF+3*, TF+4, QUIT+3!
    TFARR TF+2!, TF+22, QUIT+3!
    TFARR( TF+21*, TF+23, TF+24, TF+25, TF+26, TF+27
    TFDATA QUIT+3!
    TFDATA( TF+8, TF+13, TF+14, TF+17
    TFIEN TF+4*, TF+5, TF+8, TF+13, TF+14, TF+17, TF+21, QUIT+3!
    TFNM TF+13*, TF+21, TF+24*, TF+25, TF+26, TF+27, TF+31, QUIT+3!
    TIN START+10~, START+27*, START+40*, START+77
    VAFCSEN START+45~, START+52, START+53
    X START+1~*, TF+19*!
    Y START+93, QUIT+3!, SS
    Y(0 TF+20
    ZIP START+10~, START+20*, START+84
    ZTSAVE MAIN+2!, MAIN+3
    ZTSAVE("DFN" MAIN+2*
    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