Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: DITP

Package: VA FileMan

Routine: DITP


Information

DITP ;SFISC/GFT-TRANSFER POINTERS ;17MAY2005

Source Information

Source file <DITP.m>

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

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
Info |  Source |  Entry Points |  Interaction Calls