Routine: DIBTED

Package	Total	Call Graph
VA Fileman	11	NOW^%DTC EDIT^DDW $$EZBLD^DIALOG SNEW^DIBT ^DIC YN^DICN $$UP^DILIBF DJ^DIP (E1,E2)^DIP0 DPQ^DIP1 ENDIPT^DIP11

Package	Total	Caller Graph
Kernel	1	XPDCOMF

Entry Points

External References

Name	Field # of Occurrence
NOW^%DTC	NOW
EDIT^DDW	DDW
$$EZBLD^DIALOG	DDW+2
SNEW^DIBT	NOW+3
^DIC	DIBTED+4, SAVEAS+1
YN^DICN	SAVEAS+2
$$UP^DILIBF	PROCESS+11
DJ^DIP	PROCESS+12
E1^DIP0	GET+6
E2^DIP0	GET+6
DPQ^DIP1	Q+1
ENDIPT^DIP11	GET+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"NO TEMPLATE SELECTED",! Line Location: E+2
Function Call: WRITE	Prompt: !,"CANNOT EDIT A ""BY(0)"" TEMPLATE WITH SCREEN EDITOR",! Line Location: E+3
Function Call: WRITE	Prompt: "..." Line Location: E+5
Function Call: WRITE	Prompt: !,"NO EDITABLE FIELDS EXIST IN THIS TEMPLATE.",! Line Location: E+7
Function Call: WRITE	Prompt: !,"A SEARCH TEMPLATE HAS NO EDITABLE SORT FIELDS.",! Line Location: E+8
Function Call: WRITE	Prompt: $C(7),$$EZBLD^DIALOG(8077) Line Location: DDW+2
Function Call: WRITE	Prompt: " ",DIBTEDER(DIBTROW) Line Location: DDW+7
Function Call: WRITE	Prompt: !,$C(7),"Are you sure you want to overwrite this '",$P(Y,U,2)," 'Template" Line Location: SAVEAS+2
Routine Call	DIALOG Line Location: DDW+2
Routine Call	DIC Line Location: DIBTED+4 SAVEAS+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("EON"	E+1, DDW+6
^DD(	GET+14, GET+15
^DD("DD"	FROMDATE, TODATE
^DIBT(	E+2, E+7, GET+18, TODATE+1, SAVEAS+2, SAVEAS+3, SAVEAS+4, SAVEAS+5, NOW, NOW+1*
^DIC - [#1]	E+4, PROCESS+3
^TMP("DIBTED"	E+6, DDW+2!, DDW+8!
^UTILITY("DIBTED"	K!, DDW+1!, Q+2*, PUT+1, SAVEFLDS+2, NOW+2
^UTILITY($J	DDW+1!

Label References

Name	Line Occurrences
$$LINE	PROCESS+5, PROCESS+7, PROCESS+8, PROCESS+9, PROCESS+11
$$STRIP	GET+12, PROCESS+5, PROCESS+7, PROCESS+8, PROCESS+9, G+3
B	B+1
DDW	DDW+7
E	DIBTED+5
GET	E+6
K	E+2, E+3, E+6
NL	GET+9, GET+14, GET+15, GET+17, FROMDATE+2, TODATE+1
PROCESS	DDW+5
PUT	DIBTED+6
Q	PROCESS+5
SAVEAS	SAVEAS+2
SAVEFLDS	SAVEAS+6
W	GET+11, GET+14, GET+15, FROMDATE+1, FROMDATE+2, TODATE+1

Naked Globals

Name	Field # of Occurrence
^(	G+1
^("ASK"	TODATE+1
^("BY0"	E+3
^("NM"	GET+15
^("T"	GET+18
^(0	E+4, GET+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	GET+6, GET+8~, GET+15, FROMDATE+1, SAVEAS+2, NOW
%X	GET+1~, GET+6*
%Y	GET+1~, GET+8~, GET+18, GET+19, FROMDATE+1
A	PROCESS+1~, Q+1!
A(1	Q+1
B	E~
BY	E~, PROCESS+1~, PROCESS+5, PROCESS+7
C	E~, DDW+3, GET+1~, GET+3
D	GET+1~, GET+3*
D0	E~, E+7, GET+3*, GET+18, TODATE+1
DA	E~
DC	PROCESS+1~, PROCESS+3*
DCC	E~, E+4*
DCL	E~
DDH	E~
DDSCHG	DIBTED+3~, DDW+9*
DE	E~, DDW+4*
DHD	E~
DI	E~, DDW+4, PROCESS+3
DIBT0	DIBTED+3~, DIBTED+5*, EDIT~, E+2, GET+3, PUT+3
DIBT1	SAVEFLDS~, SAVEFLDS+2, NOW, NOW+1
DIBTA	GET~, GET+2, NL, W, PROCESS~, G
DIBTAB	PROCESS+1~, PROCESS+3, PROCESS+7, PROCESS+8, PROCESS+9, PROCESS+11, GOODQ+1
DIBTAD	GET+1~, GET+5, NL, W
DIBTASK	PROCESS+1~, PROCESS+11!*, GOODQ+2
DIBTED	DIBTED+3~, EDIT+1~, E+4*, E+9, DDW+7, SAVEAS
DIBTEDER	E~, DDW+7!, PROCESS+6*, PROCESS+10, GOODQ+3
DIBTEDER(	DDW+7, PROCESS+10, GOODQ+3
DIBTEDER(0	DDW+7
DIBTEDER(1	Q+1*
DIBTH	E~, E+9, DDW, DDW+7
DIBTITLE	GET+1~, GET+11, GET+12!*
DIBTLINE	PROCESS+1~, PROCESS+3, PROCESS+6, PROCESS+8, G, G+1*
DIBTMORE	PROCESS+1~, PROCESS+4, PROCESS+5, PROCESS+7, PROCESS+8, PROCESS+9, PROCESS+10, PROCESS+11, GOODQ+1, GOODQ+3 , G, G+2
DIBTOLD	GET+1~, SAVEFLDS+1~, NOW+3*
DIBTROW	E~, E+9, DDW, DDW+7
DIBTRPT	GET+1~, GET+3*
DIBTX	E~
DIC	DIBTED+3~, DIBTED+4, PUT+2~, SAVEAS
DIC("A"	SAVEAS*
DIC("B"	PUT+3*, SAVEAS+2!
DIC("S"	SAVEAS*
DIC(0	DIBTED+4, SAVEAS
DIJ	GET+1~, GET+6, GET+7, GET+10, GET+11, GET+13, GET+14, GET+15, GET+16, GET+18 , FROMDATE, FROMDATE+2, TODATE+1, NL, PROCESS+1~, PROCESS+3*
DIJJ	E~, GET+7!
DIL	E~, DDW+4*
DIPA	E~
DIPP	E~, GET+1~, PROCESS+1~
DIPP(	GET+6*, GET+7, GET+10, GET+11, GET+13, GET+14!, GET+15, GET+16, FROMDATE, FROMDATE+2
DIPP(1	PROCESS+2*
DIPR	GET+1~, PROCESS+1~
DJ	E~, DDW+4, GET+1~, GET+3, GET+6, PROCESS+1~, PROCESS+4, PROCESS+6, PROCESS+8, PROCESS+9 , PROCESS+10, GOODQ, GOODQ+2
DK	E~, PROCESS+1~, PROCESS+3*
DL	E~, DDW+4*
DM	E~
DNP	E~, DDW+4, PROCESS+3
DP	E~
DPP	E~, DDW+1!, GET+1~, GET+7!, PROCESS+2!, Q+2, SAVEFLDS+1~, NOW+2*
DPP(	GET+6, GET+11, GET+13, GET+15, GOODQ, GOODQ+2*
DPQ	E~
DRK	DIBTED+3~, EDIT+1~, E+4*, DDW, DDW+4, PROCESS+3
>> DTOUT	DDW+2
DU	E~
>> DUOUT	DDW+2
DUZ	NOW+1
DV	E~, DDW+4*
DXS	E~
ERR	PROCESS+1~
FR	PROCESS+1~
FR(	PROCESS+6, PROCESS+8, PROCESS+10
G	E~
I	DIBTED+3~, EDIT+1~, DDW+1!
J	DIBTED+3~, EDIT+1~, DDW+1!
J(0	SAVEAS+4
L	E~, DDW+4*
N	E~
P	E~, LINE~, G+1, G+2, STRIP~
Q	E~, DDW+3*
R	PROCESS+1~
S	E~, E+4, DDW+4
TO	PROCESS+1~
TO(	PROCESS+6, PROCESS+9, PROCESS+10
U	E+4, GET+10, GET+11, GET+13, GET+14, GET+15, GET+16, GET+18, FROMDATE, FROMDATE+2 , TODATE+1, SAVEAS+2, SAVEAS+4, NOW, NOW+1
X	GET+1~, GET+3, GET+5, GET+14, FROMDATE+1, TODATE, W~, PROCESS+1~, PROCESS+7, LINE~ , G, G+3, STRIP~, B, B+1
Y	DIBTED+4, DIBTED+5, E~, GET+8~, GET+10, GET+11, GET+12, GET+18, FROMDATE, FROMDATE+1 , FROMDATE+2, TODATE, TODATE+1*, SAVEAS+2, SAVEAS+3, SAVEAS+4, SAVEAS+5, SAVEAS+6

Name	Comments	DBIA/ICR reference
TODATE
B
E
EDIT(DIBT0)	; EDIT VIA VA FILEMAN SCREEN EDITOR
G
GOODQ
SAVEFLDS(DIBT1)	;
K
Q
DDW
W(X)
STRIP(X)
FROMDATE
LINE()
PUT	;save template from ^UTILITY
NL
NOW
SAVEAS
PROCESS(DIBTA)	;puts nodes into ^UTILITY("DIBTED")
GET(DIBTA)	;put displayable template into @DIBTA

Customize PDF page

Package: VA Fileman

Routine: DIBTED

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: