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

Package: VA FileMan

Routine: DIEKMSG


Information

DIEKMSG ;SFISC/MKO-PRINT MESSAGE ABOUT BAD KEYS ;12:47 PM 18 Feb 1998

Source Information

Source file <DIEKMSG.m>

Entry Points

Name Comments DBIA/ICR reference
MSG(DIEBADK,DIEREST) ;Print message
FILELN(TXT,LEV) ;
RECLN(TXT,LEV) ;
L(X,A,LM) ;Add X to the DIEMSG array
PRINT ;Print lines stored in ^TMP("DIEMSG",$J)
PROMPT(DIEREST,ANS) ;Ask user whether to print report

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: MSG+8
Function Call: WRITE
  • Prompt: ^TMP("DIEMSG",$J,I),!
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !!,$C(7)_"***** NOTE *****"
  • Line Location: PROMPT+2
Function Call: WRITE
  • Prompt: !!,"Some of the previous edits are not valid because they create one or more"
  • Line Location: PROMPT+3
Function Call: WRITE
  • Prompt: !,"duplicate keys."
  • Line Location: PROMPT+4
Function Call: WRITE
  • Prompt: " Some fields have been restored to their pre-edited"
  • Line Location: PROMPT+6
Function Call: WRITE
  • Prompt: !,"values."
  • Line Location: PROMPT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: PROMPT+8
Function Call: WRITE
  • Prompt: !
  • Line Location: PROMPT+12
Info |  Source |  Entry Points |  Interaction Calls