Routine: DICATT3

Package	Total	Call Graph
VA Fileman	6	(CHECK,N)^DICATT SDIK^DICATT22 YN^DICN ^DICOMP ^DIR PZ^DIU0

Package	Total	Caller Graph
VA Fileman	4	DICATT DICATTD6 DICATTDE DIQQ

Entry Points

Name	Comments	DBIA/ICR reference
FRAC
POINT
COMP
TYPE(S)	;
GETTYPE
P(C)
LEN
S
ACOMP	;SET/KILL ACOMP NODES
6
END
DEC

External References

Name	Field # of Occurrence
CHECK^DICATT	DICATT3+4
N^DICATT	DICATT3+3
SDIK^DICATT22	END+1
YN^DICN	FRAC+6, S+4
^DICOMP	COMP+9, S+3
^DIR	COMP+5, GETTYPE+3, FRAC+3, LEN+3, POINT+5
PZ^DIU0	END

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7)," ...??" Line Location: COMP+9
Function Call: WRITE	Prompt: !,"TRANSLATES TO THE FOLLOWING CODE:",!,X,! Line Location: COMP+10
Function Call: WRITE	Prompt: !,"FIELD IS 'MULTIPLE-VALUED'!",! Line Location: COMP+11
Function Call: WRITE	Prompt: !,"WHEN TOTALLING THIS FIELD, SHOULD THE SUM BE COMPUTED FROM",!?7,"THE SUMS OF THE COMPONENT FIELDS" Line Location: S+4
Routine Call	DIR Line Location: COMP+5 GETTYPE+3 FRAC+3 LEN+3 POINT+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	DICATT3+3, COMP+1, COMP+3, COMP+12, COMP+14, FRAC+4, FRAC+6, S+5, POINT+3, P , ACOMP+1
^DD(0	ACOMP+1, ACOMP+2
^DIC - [#1]	POINT+4

Label References

Name	Line Occurrences
$$TYPE	GETTYPE+2
6	COMP+9
ACOMP	COMP+12
COMP	DICATT3+3
DEC	GETTYPE+8
END	GETTYPE+3, GETTYPE+4, GETTYPE+5
FRAC	FRAC+6
GETTYPE	COMP+6
LEN	GETTYPE+8
P	GETTYPE+4, LEN+4, POINT+5
POINT	GETTYPE+5

Naked Globals

Name	Field # of Occurrence
^(	COMP+15*
^(0	FRAC+4, POINT+4
^(9	COMP+14*
^(9.01	COMP+14*, S, S+1, ACOMP+1
^(9.02	S!
^(9.1	COMP+3, COMP+14*, S

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	FRAC+4, FRAC+6, S+4, S+5, S+6
>> A	DICATT3+3, COMP+1, COMP+3, COMP+8, COMP+12, COMP+14, END, FRAC+4, FRAC+6, S+5 , POINT+3, P, ACOMP+1
C	P~
>> DA	DICATT3+3, COMP+1, COMP+3, COMP+8, COMP+12, COMP+14, FRAC+4, FRAC+6, S+5, POINT+3 , P, ACOMP+1
DG	DEC~, FRAC+4*, FRAC+6
>> DI	END*
DICMIN	COMP~, COMP+8*, COMP+14
>> DICMX	COMP+8*
>> DICOMP	COMP+8*
DICOMPX	COMP~, COMP+7!, COMP+12, COMP+14, COMP+16!, S!, S+1, ACOMP+2
DICOMPX(1	S+1*
DIDEC	COMP~, GETTYPE+7, FRAC+1, FRAC+3, FRAC+4, FRAC+5, FRAC+6, LEN+4
DIE	COMP~, GETTYPE+6*, LEN+4
DIJ	COMP~, GETTYPE+6*, GETTYPE+7
DIL	COMP~, GETTYPE+7*, LEN+1
DIR	COMP~, GETTYPE!, FRAC!, LEN!, POINT!
DIR("?"	COMP+4, FRAC+2, LEN+2*
DIR("A"	COMP+2, GETTYPE+1, FRAC, LEN+1, POINT+1*
DIR("B"	COMP+3, COMP+6, GETTYPE+2, FRAC+1, LEN+1, POINT+4*
DIR("S"	POINT+2*
DIR(0	COMP+2, GETTYPE, GETTYPE+2, FRAC+3, LEN+1, POINT+1*
DIRUT	DICATT3+3!, COMP+5, GETTYPE+3, GETTYPE+8, FRAC+3, S+6*, LEN+3, POINT+5
DISPEC	COMP~, COMP+1, COMP+13, COMP+14, GETTYPE+2, GETTYPE+4, GETTYPE+8, LEN+4, POINT+5
>> DQI	COMP+8, S
DTOUT	DICATT3+3!, DICATT3+4*
DUZ(0	COMP+10
>> F	COMP+14
I	ACOMP+1~
>> J	GETTYPE+6*
M	DEC~, FRAC+4, FRAC+6, S+1
>> N	GETTYPE+6*
O	COMP+3, COMP+12, GETTYPE+6, END, DEC~, S*, S+4, POINT+3
S	TYPE~, TYPE+1
U	DICATT3+3, COMP+1, COMP+14, GETTYPE+6, FRAC+6, S+1, POINT+3, POINT+4, P
X	COMP+9, COMP+10, COMP+14, COMP+16!, S, S+2, S+3, S+5, POINT+3, POINT+4 , ACOMP+1~, ACOMP+2
X(	COMP+15
>> Y	COMP+6, COMP+8, COMP+11, COMP+13, COMP+15, GETTYPE+4, GETTYPE+5, GETTYPE+8, FRAC+3, S+1 , S+2, LEN+4, POINT+5

Customize PDF page

Package: VA Fileman

Routine: DICATT3

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: