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

Package: VA FileMan

Routine: DIU2


Information

DIU2 ;SFISC/XAK/GFT-EDIT FILE ;18SEP2010

Source Information

Source file <DIU2.m>

Entry Points

Name Comments DBIA/ICR reference
N
DDA
OK
Q
CHECKPT ;CALLED BY ^DD(1,.01,"DEL",.5,0)
CM
K ; CALLED BY ^DD(1,.01,"DEL",1,0)
H
G
SURE
RW
R
V
EN ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"ASK 'OK' WHEN LOOKING UP AN ENTRY"
  • Line Location: OK+2
Function Call: WRITE
  • Prompt: !?5,"Answer YES to cause a lookup into this file to verify the",!?5,"selection by prompting with '...OK? YES//'."
  • Line Location: OK+4
Function Call: WRITE
  • Prompt: $C(7)," CANNOT DELETE A RESTRICTED"_$S($P($G(^("DI")),U)["Y":" (ARCHIVE)",1:"")_" FILE!"
  • Line Location: K+3
Function Call: WRITE
  • Prompt: $C(7),!,"DO YOU WANT JUST TO DELETE THE "
  • Line Location: H+0
Function Call: WRITE
  • Prompt: $P(DG,U,4)," FILE ENTRIES,"
  • Line Location: H+1
Function Call: WRITE
  • Prompt: "FILE CONTENTS,"
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !?9,"& KEEP THE FILE DEFINITION"
  • Line Location: H+3
Function Call: WRITE
  • Prompt: !,"Answer YES if you are just looking for a fast way to get rid of Entries",!!
  • Line Location: H+4
Function Call: WRITE
  • Prompt: !?3,"IS IT OK TO DELETE THE '"_DIKREF_"' GLOBAL"
  • Line Location: G+1
Function Call: WRITE
  • Prompt: !,"You can abort the deletion process at this point by typing '^'",!,"Answer NO if you want to save ",DIKREF," for redefinition at a later time.",!!
  • Line Location: G+2
Function Call: WRITE
  • Prompt: !,"SURE YOU WANT TO DELETE THE ENTIRE FILE"
  • Line Location: SURE+2
Function Call: WRITE
  • Prompt: !,"We are going to ",$S($D(DIKLGLBL):"Delete data associated with File #"_DA,1:"Leave the data associated with File #"_DA)
  • Line Location: SURE+4
Function Call: WRITE
  • Prompt: !,"Answer YES if want to continue with the DELETION of the DD, Templates, Forms,"
  • Line Location: SURE+5
Function Call: WRITE
  • Prompt: !,"etc. for File #"_DA
  • Line Location: SURE+6
Function Call: WRITE
  • Prompt: "// "
  • Line Location: RW+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: R+0
Function Call: WRITE
  • Prompt: $C(7)," PROTECTION ERASED!"
  • Line Location: R+1
Function Call: WRITE
  • Prompt: !,"ENTER CODE(S) TO RESTRICT USER'S ACCESS TO THIS FILE"
  • Line Location: R+3
Function Call: WRITE
  • Prompt: $C(7),"??"
  • Line Location: V+0
Info |  Source |  Entry Points |  Interaction Calls