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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: DITP

Package: VA FileMan

Routine: DITP


Information

DITP ;SFISC/GFT-TRANSFER POINTERS ;17MAY2005

Source Information

Source file <DITP.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 4 WAIT^DICD  YN^DICN  EN1^DIP  PTS^DIT  

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 Reminders 3 PXRMDLGBREPAIR  PXRMP42I  PXRMP71I  
VA FileMan 3 DIA2  DIA3  DIT0  

Entry Points

Name Comments DBIA/ICR reference
ASK ;
U
Q
EN(DIFILE,DILIST) ;IF THERE ARE POINTERS TO FILE 'DIFILE', GO THRU THE DILIST AND CHANGE THE POINTERS
  • ICR #6875
    • Status: Active
    • Usage: Supported
    END
    PTS ;
    P
    1(DIPFILE,DIPFIELD,DTO) ;CALL DIP PRINT MODULE ONCE TO GO THRU CHANGING ONE FIELD'S VALUE. 'DTO' IS ROOT OF FILE BEING POINTED TO.
    UP
    IOP
    STUFF(VP) ;VP=BOOLEAN
    PTRPT

    External References

    Name Field # of Occurrence
    WAIT^DICD PTS+1
    YN^DICN Q+1
    EN1^DIP UP+9
    PTS^DIT EN+4

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"SINCE THE "_$P("TRANSFERRED^DELETED",U,DH+1)_" ENTRY MAY HAVE BEEN 'POINTED TO'"
    • Line Location: U+1
    Function Call: WRITE
    • Prompt: !,"BY ENTRIES IN THE '"_$P(^DIC(+%Y,0),U,1)_"' FILE,"
    • Line Location: U+2
    Function Call: WRITE
    • Prompt: " ETC.,"
    • Condition for execution: %>1
    • Line Location: U+2
    Function Call: WRITE
    • Prompt: !,"DO YOU WANT THOSE POINTERS UPDATED (WHICH COULD TAKE QUITE A WHILE)"
    • Line Location: Q+0
    Function Call: WRITE
    • Prompt: !?4,"ANSWER 'YES' IF YOU THINK THAT THE ENTRY WHICH YOU HAVE JUST "_$P("MOVED^DELETED",U,DH+1),!?4,"MAY BE 'POINTED TO' BY SOME POINTER-TYPE FIELD VALUE SOMEWHERE",!
    • Line Location: Q+2
    Function Call: WRITE
    • Prompt: "ERROR in specification"
    • Line Location: EN+3
    Function Call: WRITE
    • Prompt: "ERROR in specification"
    • Line Location: EN+5

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD( U, 1+2, 1+5, UP
    ^DIC - [#1] U+2, EN+3, UP+2
    ^TMP("DIFIXPT" PTRPT+2*
    ^UTILITY("DIT" ASK+1, EN+1!, EN+8*, END!, P, P+1!, STUFF+2

    Label References

    Name Line Occurrences
    1 P
    ASK DITP+7
    END EN+5
    P EN+9
    PTS DITP+7
    Q Q+3
    U U
    UP UP

    Naked Globals

    Name Field # of Occurrence
    ^( P!, STUFF+3
    ^("GL" UP+2
    ^("NM" UP+1
    ^("UP" U, UP
    ^(0 1+2, 1+5
    ^(1 ASK+2

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % DITP+7, ASK+1*, ASK+2*, U+2, Q+1*, EN+5*, EN+6, EN+7, EN+8, 1+5*
    , 1+6*, 1+7, 1+8, 1+9, UP*, UP+2, UP+4*, STUFF+2~*, STUFF+3, STUFF+4
    >> %Y ASK+2*, U*, U+2
    >> %ZIS UP+7*
    BY 1+1~, 1+2*, UP*, UP+4*, UP+5*
    D 1+1~
    D( UP*, UP+3
    >> DA PTRPT+2
    >> DA( PTRPT+2
    >> DE( STUFF+1, STUFF+2
    >> DH U+1, Q+2
    DHD 1+1~, 1+5*, UP+1*
    >> DHIT UP+7*
    DIA EN+2~, EN+3*, 1+1~
    DIA("P" EN+3*, UP+4*
    >> DIC UP+2*
    DIFILE EN~, EN+3
    >> DIFIXPT UP+8*
    >> DIFIXPTC PTRPT, PTRPT+2
    DILIST EN~
    DILIST( EN+5, EN+8
    DIOBEG 1+1~, UP+7*, UP+8!
    DIPFIELD 1~, 1+2, 1+3, 1+5
    DIPFILE 1~, 1+2, 1+5
    DIPVP 1+1~, 1+2*, 1+3, 1+8
    >> DIQUIET UP+8
    DISTOP 1+1~, UP+7*
    DITPY 1+1~, UP+2*, UP+3*, UP+5*
    DL EN+2~, 1+1~, 1+3*, UP*, UP+3, PTRPT+1, PTRPT+2
    DL( UP*, UP+3
    DL(1 1+3*
    >> DQ STUFF+1, STUFF+2
    DR 1+1~
    DR( UP+3*, PTRPT+1
    DTO EN+2~, EN+3*, EN+7, EN+8, P, 1~, 1+8
    FLDS 1+1~, UP+7*
    FR 1+1~, 1+2*
    I PTRPT~, PTRPT+1*, PTRPT+2
    IO IOP
    IOP PTS+1!, IOP*
    >> IOS IOP
    J PTRPT~, PTRPT+1*
    L P*, 1+1~, 1+5*, 1+6, 1+7*, 1+8*, 1+9*, UP+5, UP+7*
    TO 1+1~, 1+2*
    U U+1, U+2, Q+2, EN+5, P, 1+2, 1+5, UP
    VP STUFF~, STUFF+3
    X EN+5*, EN+6!, EN+7!, EN+8*, EN+9, P*, 1+1~, UP+3*, UP+5, STUFF+1*
    , STUFF+3*, STUFF+4*, STUFF+5*, PTRPT~, PTRPT+1*, PTRPT+2
    X( UP*, UP+3
    Y EN+2~, EN+3*, EN+5*, EN+8, P*, UP*
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All