Routine: DDW1

Information

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

Source Information

Source file <DDW1.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
VA FileMan	5	MSG^DDW (BOT,SHIFT)^DDW3 (ASK,LINE)^DDWG $$EZBLD^DIALOG $$UP^DILIBF

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 3

Package	Total	Caller Graph
VA FileMan	3	DDW DDWH DDWT1

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

External References

Name	Field # of Occurrence
MSG^DDW	LOAD+9, LOAD+24, CTRLREM, SAVE+2, SAVE+30
BOT^DDW3	CTRLREM+3
SHIFT^DDW3	POS+7
ASK^DDWG	AUTOTM+5, QUIT+9
LINE^DDWG	CTRLREM+4
$$EZBLD^DIALOG	CTRLREM, BOX+13, BOX+15, SAVE+2, QUIT+9, QUITVAL+3, QUITVAL+8
$$UP^DILIBF	BOX+13, QUITVAL+5

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
Routine Call	DIALOG Line Location: CTRLREM BOX+13 BOX+15 SAVE+2 QUIT+9 QUITVAL+3 QUITVAL+8

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP("DDW"	SAVE+7
^TMP("DDW1"	LOAD+14*, SAVE+12, SAVE+24

Label References

Name	Line Occurrences
$$MIN	SAVE+18
$$NTS	SAVE+7, SAVE+19, SAVE+24
BOX	LOAD+2
CTRL	LOAD+13, LOAD+18
CUP	LOAD+21, BOX+4, BOX+11, BOX+17
POS	SV+4, SV+5
SAVE	SV+1, QUIT+12
SV	AUTOSV+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
C	POS~, POS+2*, POS+4, POS+6, POS+7, POS+8
>> DDGLDEL	CTRLREM, BOX+5
>> DDGLVID	CTRLREM, BOX+5
>> DDWA	SV+3, SV+4, SAVE+6
DDWANS	AUTOTM+1~, AUTOTM+5, AUTOTM+7, AUTOTM+8, AUTOTM+9, QUIT+4~, QUIT+9, QUIT+11, QUIT+12
DDWAUTO	AUTOTM+5, AUTOTM+9*, AUTOTM+11, AUTOTM+12!
DDWAUTO("H"	AUTOTM+10, AUTOSV+2
DDWAUTO("S"	AUTOTM+11*
>> DDWBF	LOAD+6*, LOAD+12, LOAD+17, SAVE+8, SAVE+20, SAVE+25, SAVE+29
>> DDWC	LOAD+20, CTRLREM+4, SV+5, POS+4*
>> DDWCNT	LOAD+7, LOAD+9, LOAD+10, LOAD+17, LOAD+20, LOAD+23, LOAD+24, SV+2, SV+3, SV+4 , SAVE+3, SAVE+7, SAVE+8, SAVE+9, SAVE+19, SAVE+20, SAVE+21, SAVE+24, SAVE+25, SAVE+26 , SAVE+28, SAVE+29
DDWCOD	AUTOTM+1~, AUTOTM+5, AUTOTM+7, AUTOVAL+2, QUIT+4~, QUIT+9, QUIT+11, QUITVAL+2
>> DDWDIC	LOAD+5, LOAD+6, LOAD+12, LOAD+17, SAVE+4, SAVE+8, SAVE+9, SAVE+20, SAVE+21, SAVE+25 , SAVE+26, SAVE+29
DDWED	CTRLREM, CTRL+2*, AUTOSV+1!, QUIT+2
DDWERR	AUTOVAL+1!, AUTOVAL+4, AUTOVAL+6, AUTOVAL+8, QUITVAL+1!, QUITVAL+3, QUITVAL+8*
DDWFIN	QUIT+1*, QUIT+11!
>> DDWFLAGS	QUIT+2
DDWH	BOX+15~*
DDWHLP	AUTOTM+1~, AUTOTM+5, QUIT+4~, QUIT+9
DDWHLP(1	AUTOTM+2, QUIT+5
DDWHLP(2	AUTOTM+3, QUIT+6
DDWHLP(3	AUTOTM+4, QUIT+7
DDWI	LOAD+1~, LOAD+10, LOAD+12, LOAD+16, LOAD+17, LOAD+19, LOAD+20, LOAD+21, SAVE+1~, SAVE+6* , SAVE+7, SAVE+12, SAVE+13, SAVE+15, SAVE+16, SAVE+18, SAVE+19, SAVE+23, SAVE+24
>> DDWL(	LOAD+19*, SAVE+15, SAVE+19, POS+2, POS+3
>> DDWL(1	LOAD+23*
>> DDWLMAR	BOX+18, BOX+19
DDWLMEM	SAVE+1~, SAVE+11, SAVE+16, SAVE+18
DDWLSTB	SAVE+1~, SAVE+13*, SAVE+23
>> DDWMR	LOAD+10, LOAD+16, LOAD+20, BOX+17, SAVE+15, SAVE+18
>> DDWN	POS+3*
>> DDWOFS	BOX+18, BOX+19, BOX+20, BOX+21, POS+6, POS+7, POS+8
>> DDWRAP	BOX+12
>> DDWREP	BOX+13
>> DDWRMAR	BOX+20, BOX+21
>> DDWRUL	BOX+17
>> DDWRW	LOAD+20, CTRLREM+2, CTRLREM+4, SV+3, SV+5, POS+4*
>> DDWSTB	LOAD+11*, LOAD+14, SAVE+12, SAVE+13, SAVE+23
DDWX	LOAD+1~, LOAD+12, LOAD+13, LOAD+14, LOAD+17, LOAD+18, LOAD+19, LOAD+20, LOAD+21, CTRL+3* , BOX+1~, BOX+7, BOX+8, BOX+9, BOX+14, AUTOVAL+2, AUTOVAL+3, AUTOVAL+5, AUTOVAL+7, SAVE+1~ , SAVE+7, SAVE+8, SAVE+9, SAVE+19, SAVE+20, SAVE+21, SAVE+24, SAVE+25, SAVE+26, QUITVAL+2 , QUITVAL+3, QUITVAL+5, QUITVAL+7, QUITVAL+10, POS+1~, POS+6*, POS+7
>> DH	BOX+8
>> DIE	BOX+8
>> DIWESUB	BOX+7
>> DIWETXT	BOX+3, BOX+5
DT	SAVE+29
DUOUT	QUIT+12!
>> DWHD	SAVE+28*
>> DWLC	LOAD+4, LOAD+5, LOAD+7, SAVE+28, SAVE+29
>> DX	BOX+12, BOX+13, BOX+14, BOX+15, BOX+19, BOX+21, POS+8, CUP+1
>> DY	POS+8, CUP+1
F	POS~, POS+3, POS+4, TR~, TR+6
I	CTRL+1~, CTRL+3, TR+3~, TR+4, TR+5
IOM	LOAD+20, LOAD+21, BOX+5, BOX+11, BOX+17, BOX+18, BOX+20, POS+7
>> IOTM	POS+8, CUP+1
>> IOXY	BOX+12, BOX+13, BOX+14, BOX+15, BOX+19, BOX+21, POS+8, CUP+1
R	POS~, POS+2, POS+3, POS+4, POS+8
U	LOAD+5, BOX+13, AUTOTM+7, AUTOVAL+2, SAVE+28, SAVE+29, QUIT+11, QUITVAL+2
X	CUP~, CUP+1, MIN~, MIN+1, NTS~, NTS+1, TR~, TR+2, TR+4, TR+5* , TR+6*, TR+7
Y	CUP~, CUP+1, MIN~, MIN+1

Customize PDF page

Package: VA FileMan