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 ;
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