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