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 ;10/24/02 13:13

Source Information

Source file <VAFCPDAT.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA Fileman 5 NOW^%DTC  ^DIC  $$GET1^DIQ  EN^DIQ1  ^DIR  
Registration 3 (NOTICE,PTSEC)^DGSEC4  CMORHIS^VAFCPDT2  $$SITE^VASITE  
Kernel 2 $$FMTE^XLFDT  EN^XUTMDEVQ  
Uncategorized 1 $$MPINODE^MPIFAPI  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Registration 3 VAFCEHLM  VAFCMGA1  VAFCPDT2  

Entry Points

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

    External References

    Name Field # of Occurrence
    NOW^%DTC START+2
    NOTICE^DGSEC4 START+39, START+40
    PTSEC^DGSEC4 START+33
    ^DIC TF+19
    $$GET1^DIQ START+25
    EN^DIQ1 START+10, TF+6, TF+11, HIS+10
    ^DIR START+62, SS
    $$MPINODE^MPIFAPI START+22
    CMORHIS^VAFCPDT2 CONT+1
    $$SITE^VASITE START+3
    $$FMTE^XLFDT START+2, START+12, TF+16
    EN^XUTMDEVQ MAIN+3

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: @IOF,!," "
    • Line Location: START+5
    Function Call: WRITE
    • Prompt: @IOF,!
    • Line Location: START+29
    Function Call: WRITE
    • Prompt: !,"MPI/PD Data for: ",NAME," (DFN #",DFN,")"
    • Line Location: START+30
    Function Call: WRITE
    • Prompt: !!,"Access denied: Required parameters not defined"
    • Line Location: START+34
    Function Call: WRITE
    • Prompt: ?50,"***PATIENT MARKED SENSITIVE***"
    • Line Location: START+35
    Function Call: WRITE
    • Prompt: !!,"Access not allowed on your own PATIENT (#2) file entry"
    • Line Location: START+36
    Function Call: WRITE
    • Prompt: !!,"Access denied: Your SSN is not defined"
    • Line Location: START+37
    Function Call: WRITE
    • Prompt: !,"Printed ",HDT," at ",SITENAM,!,LN
    • Line Location: START+41
    Function Call: WRITE
    • Prompt: !,"ICN : ",ICN,?40,"CMOR: ",CMOR
    • Line Location: START+44
    Function Call: WRITE
    • Prompt: !,"SSN : ",SSN
    • Line Location: START+45
    Function Call: WRITE
    • Prompt: !?9,"SSN Verification Status: ",SSNVER
    • Line Location: START+46
    Function Call: WRITE
    • Prompt: !?9,"Pseudo SSN Reason: ",PREAS
    • Line Location: START+47
    Function Call: WRITE
    • Prompt: !?9,"Pseudo SSN Reason : ",PREAS
    • Line Location: START+48
    Function Call: WRITE
    • Prompt: !,"Sex : ",SEX
    • Line Location: START+49
    Function Call: WRITE
    • Prompt: !,"Claim #: ",CLAIM
    • Line Location: START+50
    Function Call: WRITE
    • Prompt: !,"Date of Birth: ",DOB
    • Line Location: START+51
    Function Call: WRITE
    • Prompt: !,"Date of Death: ",DOD
    • Line Location: START+52
    Function Call: WRITE
    • Prompt: !,"Multiple Birth Indicator: ",MBI
    • Line Location: START+53
    Function Call: WRITE
    • Prompt: " (Bad Address Indicator: ",BAI,")"
    • Line Location: START+54
    Function Call: WRITE
    • Prompt: !?9,STR1
    • Line Location: START+55
    Function Call: WRITE
    • Prompt: !?9,STR2
    • Line Location: START+56
    Function Call: WRITE
    • Prompt: !?9,STR3
    • Line Location: START+57
    Function Call: WRITE
    • Prompt: !?9,$E(CTY,1,20)_", "_$G(ST)_" "_$G(ZIP)
    • Line Location: START+58
    Function Call: WRITE
    • Prompt: !,"Phone #: ",PHN
    • Line Location: START+59
    Function Call: WRITE
    • Prompt: !
    • Line Location: START+63
    Function Call: WRITE
    • Prompt: !,"No Treating Facilities found."
    • Line Location: TF+22
    Function Call: WRITE
    • Prompt: " - changed ",HISDT
    • Line Location: HIS+16
    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+62
      • 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
    ^DIC(4 - [#4] GET1^DIQ

    Global Variables Directly Accessed

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

    Label References

    Name Line Occurrences
    CONT HIS+1
    ICNHDR HIS+6, HIS+15
    QUIT START+34, START+36, START+37, START+65, TF+23, HIS+3, HIS+7, DONE+1
    SS TF+29, HIS+4, HIS+14, DONE+2
    SUB TF+22
    TFHDR TF+1, TF+30

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % START+2, QUIT+1!
    BAI START+9~, START+16*, START+54
    CHG QUIT+3!
    CHGNODE QUIT+3!
    CLAIM START+9~, START+15*, START+50
    CMOR START+23*, START+25*, START+44, QUIT+1!
    CTY START+9~, START+18*, START+58
    D QUIT+3!
    DA START+8*, START+10!, START+32~, TF+5*, TF+6!, TF+10*, TF+11!, HIS+8*, HIS+10!
    DA( HIS+8*
    >> DFN START+4, START+8, START+11, START+12, START+13, START+14, START+15, START+16, START+17, START+18
    , START+19, START+20, START+21, START+22, START+27, START+30, START+33, START+39, START+40, TF+3
    , TF+4, TF+30, HIS+1, HIS+5, HIS+7, HIS+8, HIS+15
    DIC START+8*, START+10!, START+32~, TF+5*, TF+6!, TF+10*, TF+11!, TF+19*!, HIS+8*, HIS+10!
    , QUIT+1!
    DIC(0 TF+19*
    DIFF START+23*, QUIT+4!
    DIQ START+8*, START+10!, START+32~, TF+5*, TF+6!, TF+10*, TF+11!, HIS+9*, HIS+10!
    DIQ(0 START+8*, TF+5*, TF+10*, HIS+9*
    DIR START+62!, QUIT+1!, SS!
    DIR(0 START+62*, SS*
    DIRUT QUIT+1!
    DNODE QUIT+1!
    DNODE(2 START+11, START+12, START+13, START+14, START+15, START+16, START+17, START+18, START+19, START+20
    , START+21
    DOB START+9~, START+12*, START+51
    DOD START+9~, START+14*, START+52
    DR START+8*, START+10!, START+32~, TF+5*, TF+6!, TF+10*, TF+11!, HIS+8*, HIS+10!
    DR( HIS+8*
    GOT START+26*, QUIT+1!
    HDT START+2*, START+7, START+41, QUIT+1!
    HIS HIS+7*, HIS+8, HIS+11, HIS+12, QUIT+1!
    HISDT HIS+12*, HIS+16, QUIT+1!
    HISICN HIS+11*, HIS+16, QUIT+1!
    HISNODE QUIT+4!
    HISNODE( HIS+11, HIS+12
    ICN START+6, START+9~, START+23*, START+24*, START+26, START+27*, START+44
    INST TF+7*, TF+8*, TF+9, TF+10, TF+12, QUIT+4!
    IOF START+5, START+29, TF+30, HIS+5, HIS+15
    IOSL START+60, TF+28, HIS+3, HIS+13
    IOST START+60, TF+28, HIS+3, HIS+13, DONE+2
    JJ START+63*, QUIT+1!, SS+1*
    LIEN QUIT+1!
    LINST QUIT+1!
    LN START+1*, START+7, START+41, QUIT+2!
    LN2 START+1*, TF+30, HIS+5, HIS+15, QUIT+4!
    LNQ TF+29*, HIS+4*, HIS+14*, 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+9~, START+13*, START+53, QUIT+4!
    MNODE START+22*, START+24, START+25, START+27, QUIT+2!
    NAME START+9~, START+11*, START+30, TF+30, HIS+5, HIS+15, QUIT+4!
    NOTRPC MAIN+1*, MAIN+4!, START+5, START+29
    PHN START+9~, START+19*, START+59
    PREAS START+9~, START+21*, START+47, START+48
    QFLG START+1*, START+62*, START+65, TF+23, TF+24, TF+28, TF+29, HIS+3, HIS+4, HIS+7
    , HIS+13, HIS+14, 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+32~, START+33
    RESULT(1 START+34, START+35, START+36, START+37, START+38, START+39, START+40
    RGDFN QUIT+4!
    RGSENS START+32~
    SCN START+23*, QUIT+2!
    SCORE START+23*, QUIT+2!
    SCRDT START+23*, QUIT+4!
    SENSTV START+32~
    SEX START+9~, START+14*, START+49
    SITE START+3*, QUIT+2!
    SITEIEN START+3*, QUIT+2!
    SITENAM START+3*, START+6, START+41, QUIT+2!
    SITENUM START+3*, START+26, QUIT+2!
    SS START+63*, QUIT+3!, SS+1*
    SSN START+9~, START+11*, START+45
    SSNVER START+9~, START+20*, START+46, START+47, START+48
    ST START+9~, START+18*, START+58
    STA QUIT+4!
    STA(4 TF+12
    STATION TF+7*, TF+12*, TF+21, TF+26*, TF+31, QUIT+4!
    STR1 START+9~, START+17*, START+55
    STR2 START+9~, START+17*, START+56
    STR3 START+9~, START+17*, START+57
    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!
    VAFCSEN START+32~, START+39, START+40
    X TF+19*!
    Y START+62, QUIT+3!, SS
    Y(0 TF+20
    ZIP START+9~, START+18*, START+58
    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