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

Package: VA FileMan

Routine: DICD


Information

DICD ;SFISC/XAK-DISP,SELECT,DELETE,EDIT XREF ;11:26 AM 18 Aug 2000

Source Information

Source file <DICD.m>

Entry Points

Name Comments DBIA/ICR reference
DEL
ASK
DDD
D
CHIX ;
R
M
L
N
E
DD ;
KOLD
WAIT ;
  • ICR #10024
    • Status: Active
    • Usage: Supported
    RD ;
    Q

    Interaction Calls

    Name Line Occurrences
    Function Call: READ
    • Variable: Q
    • Timeout: '$D(DICD)
    • Line Location: DEL+0
    Function Call: WRITE
    • Prompt: !?5,$C(7),"This cross-reference cannot be deleted.",!
    • Line Location: DEL+1
    Function Call: WRITE
    • Prompt: !,"Are you sure that you want to delete the CROSS-REFERENCE "
    • Line Location: ASK+0
    Function Call: WRITE
    • Prompt: !?7,"Answer YES if you want to delete the Cross-Reference."
    • Line Location: ASK+1
    Function Call: WRITE
    • Prompt: !," ...OK",!
    • Line Location: ASK+2
    Function Call: WRITE
    • Prompt: "DO YOU WANT THE INDIVIDUAL CROSS-REFERENCE VALUES DELETED"
    • Line Location: ASK+5
    Function Call: WRITE
    • Prompt: "NO ",X
    • Line Location: CHIX+3
    Function Call: WRITE
    • Prompt: !,"WANT TO "_DICD_" IT"
    • Line Location: CHIX+4
    Function Call: WRITE
    • Prompt: !,"WANT TO "_DICD_" ONE OF THEM"
    • Line Location: CHIX+5
    Function Call: READ
    • Formatting: !
    • Prompt: "WHICH NUMBER: "
    • Variable: X
    • Timeout: DTIME
    • Line Location: R+0
    Function Call: WRITE
    • Prompt: !?8,J,?14
    • Line Location: M+0
    Function Call: WRITE
    • Prompt: X
    • Line Location: L+0
    Function Call: WRITE
    • Prompt: " OF "
    • Line Location: L+1
    Function Call: WRITE
    • Prompt: " '",$P(I,U,2),"' INDEX OF "
    • Line Location: L+2
    Function Call: WRITE
    • Prompt: "FILE"
    • Line Location: L+2
    Function Call: WRITE
    • Prompt: " ("_^(%)_")"
    • Line Location: E+0
    Function Call: WRITE
    • Prompt: !!,"Executing old kill logic...",!
    • Line Location: KOLD+2
    Function Call: WRITE
    • Prompt: !,"..."
    • Line Location: WAIT+1
    Function Call: WRITE
    • Prompt: $P("HMMM^EXCUSE ME^SORRY","^",$R(3)+1),", ",$P("THIS MAY TAKE A FEW MOMENTS^LET ME PUT YOU ON 'HOLD' FOR A SECOND^HOLD ON^JUST A MOMENT PLEASE^I'M WORKING AS FAST AS I CAN^LET ME THINK ABOUT THAT A MOMENT","^",$R(6)+1)_"..."
    • Line Location: WAIT+2
    Function Call: WRITE
    • Prompt: !
    • Line Location: RD+1
    Info |  Source |  Entry Points |  Interaction Calls