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

Package: VA FileMan

Routine: DIU21


Information

DIU21 ;SFISC/XAK-EDIT FILE (PGMR PART) ;06:21 PM 2 Apr 2001

Source Information

Source file <DIU21.m>

Entry Points

Name Comments DBIA/ICR reference
SCR
ACT
DIC
DIK
A
QA
Q
H ; Build help for entering routine name.
H1
DIE ;not in 20
DIE1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " "_$$EZBLD^DIALOG(8015)
  • Line Location: SCR+4
Function Call: WRITE
  • Prompt: $C(7)," ",$$EZBLD^DIALOG(9025)
  • Line Location: SCR+5
Function Call: WRITE
  • Prompt: " "_$$EZBLD^DIALOG(8015)
  • Line Location: ACT+4
Function Call: WRITE
  • Prompt: $C(7)," ",$$EZBLD^DIALOG(9025)
  • Line Location: ACT+5
Function Call: WRITE
  • Prompt: " "_$$EZBLD^DIALOG(8015)
  • Line Location: DIC+4
Function Call: WRITE
  • Prompt: $C(7)," ",$$EZBLD^DIALOG(8017)
  • Line Location: DIC+5
Function Call: WRITE
  • Prompt: !," "
  • Line Location: DIK+0
Function Call: WRITE
  • Prompt: DIR
  • Line Location: DIK+0
Function Call: WRITE
  • Prompt: $C(7),!
  • Line Location: DIK+5
Function Call: WRITE
  • Prompt: DIR
  • Line Location: DIK+5
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: DIK+12
Function Call: WRITE
  • Prompt: " "_$$EZBLD^DIALOG(8015),!," ",$$EZBLD^DIALOG(8021)
  • Line Location: QA+0
Function Call: WRITE
  • Prompt: !,$C(7),"RESTRICT EDITING OF FILE? YES// (UNEDITABLE) THIS IS AN ARCHIVE FILE."
  • Line Location: DIE+1
Function Call: WRITE
  • Prompt: !,$C(7),"WARNING- DATA IN THIS FILE IS NOW UNEDITABLE"
  • Line Location: DIE1+1
Function Call: WRITE
  • Prompt: !,$C(7),"WARNING- DATA IN THIS FILE IS NOW EDITABLE"
  • Line Location: DIE1+2
Info |  Source |  Entry Points |  Interaction Calls