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

Package: VA FileMan

Routine: DDW1


Information

DDW1 ;SFISC/PD KELTZ-LOAD, SAVE ;06:11 PM 25 Aug 2002

Source Information

Source file <DDW1.m>

Entry Points

Name Comments DBIA/ICR reference
LOAD ;Put up "box" and load document
CTRLREM
CTRL ;Strip control characters from DDWX
BOX ;Draw box
AUTOTM ;Prompt for autosave time
AUTOVAL ;Validate autosave time
AUTOSV ;Autosave
SV ;Called from DDWT1 and AUTOSV
SAVE ;Save document
QUIT ;If any edits were made, issue confirmation prompt.
QUITVAL ;Validate responses to the confirmation prompt
POS(R,C,F) ;Pos cursor based on char pos C
CUP(Y,X) ;Cursor positioning
MIN(X,Y) ;Return the minimum of X and Y
NTS(X) ;Change "" to " "
TR(X,F) ;Strip trailing blanks

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $P(DDGLVID,DDGLDEL)_$E(DIWETXT,1,IOM)_$P(DDGLVID,DDGLDEL,10)
  • Line Location: BOX+5
Function Call: WRITE
  • Prompt: $TR($J("",IOM)," ","=")
  • Line Location: BOX+11
Function Call: WRITE
  • Prompt: "[ WRAP ]"
  • Line Location: BOX+12
Function Call: WRITE
  • Prompt: "["_$$UP^DILIBF($P($$EZBLD^DIALOG(7002),U,$S(DDWREP:2,1:1)))_"]"
  • Line Location: BOX+13
Function Call: WRITE
  • Prompt: "< "_$E(DDWX,1,30)_" >"
  • Line Location: BOX+14
Function Call: WRITE
  • Prompt: DDWH
  • Line Location: BOX+15
Function Call: WRITE
  • Prompt: $E(DDWRUL,1,IOM)
  • Line Location: BOX+17
Function Call: WRITE
  • Prompt: "<"
  • Line Location: BOX+19
Function Call: WRITE
  • Prompt: ">"
  • Line Location: BOX+21
Info |  Source |  Entry Points |  Interaction Calls