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,GETS)^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+53, START+54
    PTSEC^DGSEC4 START+47
    ^DIC TF+19
    $$GET1^DIQ START+22, START+40
    GETS^DIQ START+70
    EN^DIQ1 START+11, TF+6, TF+11, HIS+10
    ^DIR START+122, SS
    $$GETICN^MPIF001 START+28
    $$MPINODE^MPIFAPI START+26
    EXT^VAFCPDT2 CONT+2
    $$SITE^VASITE START+4
    $$FMTE^XLFDT START+3, START+15, 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+43
    Function Call: WRITE
    • Prompt: !,"MPI/PD Data for: ",NAME," (DFN #",DFN,")"
    • Line Location: START+44
    Function Call: WRITE
    • Prompt: !!,"Access denied: Required parameters not defined"
    • Line Location: START+48
    Function Call: WRITE
    • Prompt: ?50,"***PATIENT MARKED SENSITIVE***"
    • Line Location: START+49
    Function Call: WRITE
    • Prompt: !!,"Access not allowed on your own PATIENT (#2) file entry"
    • Line Location: START+50
    Function Call: WRITE
    • Prompt: !!,"Access denied: Your SSN is not defined"
    • Line Location: START+51
    Function Call: WRITE
    • Prompt: !,"Printed ",HDT," at ",SITENAM,!,LN
    • Line Location: START+55
    Function Call: WRITE
    • Prompt: !,"ICN : ",ICN
    • Line Location: START+58
    Function Call: WRITE
    • Prompt: !,"SSN : ",SSN
    • Line Location: START+59
    Function Call: WRITE
    • Prompt: !?9,"SSN Verification Status: ",SSNVER
    • Line Location: START+60
    Function Call: WRITE
    • Prompt: !?9,"Pseudo SSN Reason: ",PREAS
    • Line Location: START+61
    Function Call: WRITE
    • Prompt: !?9,"Individual Tax ID: ",ITIN
    • Line Location: START+62
    Function Call: WRITE
    • Prompt: !,"Birth Sex : ",SEX
    • Line Location: START+64
    Function Call: WRITE
    • Prompt: !,"Sexual Orientation: "
    • Line Location: START+68
    Function Call: WRITE
    • Prompt: !,"Sexual Orientation Description: ",SXOD
    • Line Location: START+75
    Function Call: WRITE
    • Prompt: !,"Pronoun: "
    • Line Location: START+77
    Function Call: WRITE
    • Prompt: !,"Pronoun Description: ",PRND
    • Line Location: START+81
    Function Call: WRITE
    • Prompt: !,"Self-Identified Gender Identity: ",SIGEN
    • Line Location: START+82
    Function Call: WRITE
    • Prompt: !,"Claim # : ",CLAIM
    • Line Location: START+83
    Function Call: WRITE
    • Prompt: !,"Date of Birth: ",DOB
    • Line Location: START+84
    Function Call: WRITE
    • Prompt: !,"Date of Death: ",DOD
    • Line Location: START+87
    Function Call: WRITE
    • Prompt: !,?15,"Entered By: ",?42,DODENTBY
    • Line Location: START+88
    Function Call: WRITE
    • Prompt: !,?15,"Source of Notification: ",?42,DODSRC
    • Line Location: START+89
    Function Call: WRITE
    • Prompt: !,?15,"Last Updated: ",?42,DODLUPD
    • Line Location: START+90
    Function Call: WRITE
    • Prompt: !,?15,"Last Edited By: ",?42,DODLEBY
    • Line Location: START+91
    Function Call: WRITE
    • Prompt: !,?15,"Supporting Document Type: ",?42,DODD
    • Line Location: START+92
    Function Call: WRITE
    • Prompt: !,?15,"Option Used: ",?42,DODOPT
    • Line Location: START+93
    Function Call: WRITE
    • Prompt: !,"Multiple Birth Indicator: ",MBI
    • Line Location: START+94
    Function Call: WRITE
    • Prompt: !,"DoD Temporary ID Number : ",TIN
    • Line Location: START+95
    Function Call: WRITE
    • Prompt: !,"DoD Foreign ID Number : ",FIN
    • Line Location: START+96
    Function Call: WRITE
    • Prompt: " (Bad Address Indicator: ",BAI,")"
    • Line Location: START+97
    Function Call: WRITE
    • Prompt: !?9,STR1
    • Line Location: START+98
    Function Call: WRITE
    • Prompt: !?9,STR2
    • Line Location: START+99
    Function Call: WRITE
    • Prompt: !?9,STR3
    • Line Location: START+100
    Function Call: WRITE
    • Prompt: !?9,$E(CTY,1,20)_", "_$G(ST)_" "_$G(ZIP)
    • Line Location: START+102
    Function Call: WRITE
    • Prompt: !?9,CTY_", "_PROVINCE_" ("_CNAME_") "_POSTCODE
    • Line Location: START+105
    Function Call: WRITE
    • Prompt: !?9,CTY_", "_"("_CNAME_") "_POSTCODE
    • Line Location: START+106
    Function Call: WRITE
    • Prompt: !,"Residential Address: "
    • Line Location: START+107
    Function Call: WRITE
    • Prompt: !?9,REST1
    • Line Location: START+108
    Function Call: WRITE
    • Prompt: !?9,REST2
    • Line Location: START+109
    Function Call: WRITE
    • Prompt: !?9,REST3
    • Line Location: START+110
    Function Call: WRITE
    • Prompt: !?9,$E(RESCTY,1,20)_", "_$G(RESST)_" "_$G(RESZP)
    • Line Location: START+111
    Function Call: WRITE
    • Prompt: !?9,RESCTY_", "_RESP_" ("_RCNAME_") "_RESPC
    • Line Location: START+114
    Function Call: WRITE
    • Prompt: !?9,RESCTY_", "_"("_RCNAME_") "_RESPC
    • Line Location: START+115
    Function Call: WRITE
    • Prompt: !,"Phone #: ",PHN
    • Line Location: START+116
    Function Call: WRITE
    • Prompt: !,"Work #: ",WPHN
    • Line Location: START+118
    Function Call: WRITE
    • Prompt: !,"Cell #: ",CPHN
    • Line Location: START+119
    Function Call: WRITE
    • Prompt: !
    • Line Location: START+123
    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+122
      • SS

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    2.025 GETS^DIQ
    ^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
    ^DG(47.78 - [#47.78] START+80
    ^DGCN(391.91 - [#391.91] TF+3, TF+4
    ^DPT - [#2] START+68, START+69, START+74, START+77, START+78, START+79, START+80, HIS+1, HIS+7
    ^DPT("AICNL" START+35

    Label References

    Name Line Occurrences
    CONT HIS+1
    ICNHDR HIS+6, HIS+17
    QUIT START+1, START+48, START+50, START+51, START+125, 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+12~, START+19*, START+97
    CCODE START+12~, START+22*, START+101, START+103
    CHG QUIT+3!
    CHGNODE QUIT+3!
    CLAIM START+12~, START+18*, START+83
    CMOR QUIT+1!
    CNAME START+12~, START+22*, START+105, START+106
    COUNTRY START+12~, START+22*, START+101, START+103
    CPHN START+12~, START+25*, START+119
    CTY START+12~, START+21*, START+102, START+104, START+105, START+106
    D QUIT+3!
    DA START+11*!, START+46~, TF+5*, TF+6!, TF+10*, TF+11!, HIS+8*, HIS+10!
    DA( HIS+8*
    >> DFN START+5, START+11, START+14, START+15, START+16, START+17, START+18, START+19, START+20, START+21
    START+22, START+23, START+25, START+26, START+28, START+32, START+33, START+35, START+38, START+39
    START+40, START+41, START+44, START+47, START+53, START+54, START+68, START+69, START+70, START+71
    START+72, START+73, START+74, START+77, START+78, START+79, START+80, TF+3, TF+4, TF+30
    HIS+1, HIS+5, HIS+7, HIS+8, HIS+17
    DIC START+9*, START+11!, START+46~, 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+11*!, START+46~, TF+5*, TF+6!, TF+10*, TF+11!, HIS+9*, HIS+10!
    DIQ(0 START+11*, TF+5*, TF+10*, HIS+9*
    DIR START+122!, QUIT+1!, SS!
    DIR(0 START+122*, SS*
    DIRUT QUIT+1!
    DNODE QUIT+1!
    DNODE(2 START+14, START+15, START+16, START+17, START+18, START+19, START+20, START+21, START+22, START+23
    START+25, START+32, START+33, START+38, START+39, START+40, START+41
    DOB START+12~, START+15*, START+84
    DOD START+12~, START+17*, START+30, START+86, START+87
    DODD START+13~, START+33*, START+92
    DODENTBY START+13~, START+32*, START+88
    DODLEBY START+13~, START+32*, START+91
    DODLUPD START+13~, START+32*, START+90
    DODOPT START+13~, START+33*, START+93
    DODSRC START+13~, START+32*, START+89
    DR START+9*, START+10*, START+11!, START+46~, TF+5*, TF+6!, TF+10*, TF+11!, HIS+8*, HIS+10!
    DR( HIS+8*
    EN START+13~, START+69*, START+70, START+71, START+72, START+73, START+74, START+78*, START+79, START+80
    FIN START+12~, START+27*, START+36*, START+96
    GOT START+35*, QUIT+1!
    HDT START+3*, START+8, START+55, 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+12~, START+27*, START+28*, START+35*, START+58
    INST TF+7*, TF+8*, TF+9, TF+10, TF+12, QUIT+4!
    IOF START+6, START+43, TF+30, HIS+5, HIS+17
    IOSL START+120, TF+28, HIS+3, HIS+15
    IOST START+120, TF+28, HIS+3, HIS+15, DONE+2
    ITIN START+13~, START+41*, START+62
    JJ START+123*, QUIT+1!, SS+1*
    LIEN QUIT+1!
    LINST QUIT+2!
    LN START+2*, START+8, START+55, 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+12~, START+16*, START+94, QUIT+4!
    MNODE START+26*, START+35, START+36, QUIT+2!
    NAME START+12~, START+14*, START+44, TF+30, HIS+5, HIS+17, QUIT+4!
    NOTRPC MAIN+1*, MAIN+4!, START+6, START+43
    PHN START+12~, START+25*, START+116
    POSTCODE START+12~, START+23*, START+104, START+105, START+106
    PREAS START+12~, START+25*, START+61
    PRN START+13~, START+79*, START+80
    PRND START+13~, START+41*, START+81
    PROVINCE START+12~, START+23*, START+104, START+105, START+106
    QFLG START+2*, START+122*, START+125, TF+23, TF+24, TF+28, TF+29, HIS+3, HIS+4, HIS+7
    HIS+15, HIS+16, DONE+1, QUIT+4!, SS*
    RCCODE START+13~, START+40*, START+111, START+112
    RCNAME START+13~, START+40*, START+114, START+115
    REACODE TF+17*, TF+18, TF+19, QUIT+2!
    REASON TF+17*, TF+20*, TF+21, TF+25*, TF+31, QUIT+2!
    RESCN START+13~, START+40*, START+111, START+112
    RESCTY START+13~, START+38*, START+111, START+113, START+114, START+115
    RESP START+13~, START+39*, START+113, START+114, START+115
    RESPC START+13~, START+39*, START+113, START+114, START+115
    RESST START+13~, START+38*, START+111
    REST1 START+13~, START+38*, START+108
    REST2 START+13~, START+38*, START+109
    REST3 START+13~, START+38*, START+110
    RESULT START+46~, START+47
    RESULT(1 START+48, START+49, START+50, START+51, START+52, START+53, START+54
    RESZP START+13~, START+39*, START+111
    RGDFN QUIT+4!
    RGSENS START+46~
    SCN START+27*, QUIT+2!
    SCORE START+27*, QUIT+2!
    SCRDT START+27*, QUIT+4!
    SENSTV START+46~
    SEX START+12~, START+17*, START+64
    SIGEN START+12~, START+17*, START+82
    SITE START+4*, QUIT+2!
    SITEIEN START+4*, QUIT+2!
    SITENAM START+4*, START+7, START+55, QUIT+2!
    SITENUM START+4*, START+35, QUIT+2!
    SS START+123*, QUIT+3!, SS+1*
    SSN START+12~, START+14*, START+59
    SSNVER START+12~, START+14*, START+60
    ST START+12~, START+21*, START+102
    STA QUIT+4!
    STA(4 TF+12
    STATION TF+7*, TF+12*, TF+21, TF+26*, TF+31, QUIT+4!
    STR1 START+12~, START+20*, START+98
    STR2 START+12~, START+20*, START+99
    STR3 START+12~, START+20*, START+100
    SUBARR QUIT+3!
    SUBN QUIT+3!
    SXO START+13~
    SXOD START+13~, START+41*, START+75
    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+12~, START+27*, START+36*, START+95
    VAFCSEN START+46~, START+53, START+54
    VAFCSOI START+70~
    VAFCSOI( START+71, START+72, START+73
    WPHN START+12~, START+25*, START+118
    X START+1~*, TF+19*!
    Y START+122, QUIT+3!, SS
    Y(0 TF+20
    ZIP START+12~, START+21*, START+102
    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