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

Package: VA FileMan

Routine: DIA3


Information

DIA3 ;SFISC/GFT-UPDATE POINTERS, CHECK CODE IN INPUT STRING, CHECK FILE ACCESS ;19SEP2004

Source Information

Source file <DIA3.m>

Entry Points

Name Comments DBIA/ICR reference
C
D
W
F
DITP
FIXPT(DIFLG,DIFILE,DIDELIEN,DIPTIEN) ;DELETE OR REPOINT POINTERS ---never done??
QFIXPT
X ;
E
L
DEF
BAD
ACC
XEC

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: %
  • Timeout: DTIME
  • Line Location: C+0
Function Call: WRITE
  • Prompt: !,"DELETE ALL POINTERS"
  • Line Location: D+0
Function Call: WRITE
  • Prompt: W
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !,"THEN PLEASE INDICATE WHICH ENTRY SHOULD BE POINTED TO"
  • Line Location: W+0
Function Call: WRITE
  • Prompt: $C(7),!,"OK... FORGET IT... LET'S GO ON TO EDIT ANOTHER ENTRY"
  • Line Location: F+0
Function Call: WRITE
  • Prompt: !?4,"("_$P("DELETION^RE-POINTING",U,''Y+1)_" WILL OCCUR WHEN YOU LEAVE 'ENTER/EDIT' OPTION)"
  • Line Location: DITP+1
Function Call: WRITE
  • Prompt: !?9,"YOU HAVE NO WRITE ACCESS TO FILE "_+DP
  • Line Location: ACC+0
Function Call: WRITE
  • Prompt: !?63-$L(Y),Y
  • Line Location: XEC+2
Function Call: WRITE
  • Prompt: !,$C(7)," WARNING: THIS MEANS AUTOMATIC DELETION!!"
  • Line Location: XEC+4
Info |  Source |  Entry Points |  Interaction Calls