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 ;
  • ICR #7060
    • Status: Active
    • Usage: Private
  • ICR #10014
    • Status: Active
    • Usage: Supported

    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