Routine: DICOMP

Package	Total	Call Graph
VA Fileman	7	(,DATE,S)^DICOMP0 (,0)^DICOMP1 (DPS,M)^DICOMPW M^DICOMPX ^DICOMPY (DIMP,PRIOR)^DICOMPZ IJ^DIUTL

Package	Total	Caller Graph
VA Fileman	23	DIA3 DICATT3 DICATT5 DICATTD6 DICE1 DICE2 DICE4 DICE7 DICOMP0 DICOMP1 DICOMPW DICOMPX DICOMPY DICOMPZ DIETED DIP0 DIP22 DIPTED DIQG DIS DIS2 DIU31 DIWW
IHS Generic Interface System	6	INHDIA3 INHMGD3 INHSGZ21 INHSGZ22 INHSZ21 INHSZ5

Entry Points

External References

Name	Field # of Occurrence
^DICOMP0	E
DATE^DICOMP0	V
S^DICOMP0	V
^DICOMP1	G
0^DICOMP1	0
DPS^DICOMPW	DPS, DUP+7
M^DICOMPW	N+3
M^DICOMPX	N+3
^DICOMPY	FUNC+4
DIMP^DICOMPZ	DUP+6
PRIOR^DICOMPZ	FUNC+1
IJ^DIUTL	EXPR+8

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	V, DUP+2, DUP+3
^DD("FUNC" - [#.5]	FUNC, FUNC+2, FUNC+3
^DD("IX" - [#.11]	DUP+4

Label References

Name	Line Occurrences
$$DGI	DG
$$NEST	G, N+3, C, C+2, C+3
0	TOOEASY, E, N+3, N+5, NOT, C, C+3, DPS, DUP, DUP+7 , FUNC+1, FUNC+4, B
1	FUNC+2, FUNC+3
A	DICOMP+3, EN1+1
B	FUNC+2, FUNC+3
C	N+5
DG	C+1, S+3
DICOMP	EXPR+10
DPS	N+5, DPS, FUNC+4
E	G+1
FUNC	G+1
G	N+2
I	G, N+3, I
K	E
N	G, G+1, V, E, N+3, N+4, N+5, NOT+1, BINOP, C+2 , C+3, DUP+7, FUNC+1, B
S	S+1, S+2
ST	N+5, FUNC+2, 2+1
V	FUNC

Naked Globals

Name	Field # of Occurrence
^(	DUP+3
^(0	DUP+3, DUP+4
^(1	1
^(10	1+1
^(2	1
^(3	1+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	A~, K+4, NOT, 1, 1+2, 1+3, 1+4, 1+5, ST+2, S , S+2*, S+3
%DT	A~
%Y	A~, 1+3*
D	A~, V*
DA	EXPR+2~, EXPR+5*
DATE	A~
DATE(	G, CONCAT!, S+4
DBOOL	A~, G, N+6, BINOP, FUNC+2, ST+2!
DG	A~
DG(	K+4, DGI
DIC	A~
DIC(0	K+4*
DICF	A~, C+1, C+2, FUNC+2, FUNC+4, FUNC+5, 1
DICMX	EXPR+2~, EXPR+4*
DICN	A~, V*
DICO	A~, K+4*, E
DICO("BACK"	E*
DICO(0	K+4*
DICO(1	K+2, K+4, E
DICOMP	DICOMP+3, EN+1, A+1, EXPR~, EXPR+1, EXPR+4, EXPR+6, EXPR+8
DICOMPQI	A~, K+1*
DICOMPW	EXPR+2~, EXPR+5*
DICOMPX	E, EXPR+2~, EXPR+6, EXPR+7*, EXPR+12
DICOMPX(	V
DICV	A~
DIM	A~
DIMW	A~, K+3*
DIQUIET	A+1~*
DLV	DICOMP+3~, EN1+1, EN+1, K, K+2, K+3, K+4, E, DUP+2, DUP+3 , DUP+4
DLV0	A~, K+3*, DGI
DPS	A~, K+4, DPS, DPS+1, DUP, DUP+1, DUP+2, DUP+5, DUP+6, DUP+7 , FUNC+4, FUNC+5, 1, 1+1, 1+4, 1+5, ST+2*, S, S+3, S+4 , NEST+1
DPS(	G, N+3, C, C+2, C+3, DPS, DPS+1, DUP, DUP+6, FUNC+5* , 1, 1+1, 1+4, ST+2, S, S+3, S+4*, NEST+1
DPS(1	FUNC+2*
DPUNC	A~, K+3*, N+2, BINOP, MR
DQI	K+1~*, DGI, EXPR+2~
DS	A~
DUZ	EXPR+1, EXPR+2~*
DUZ(0	EXPR+2*
DUZ(2	EXPR+1, EXPR+2*
DZ	A~
FILE	EXPR~, EXPR+8*, EXPR+9!
I	K, K+2, K+3, K+4, TOOEASY, G, N+2, N+3, N+5, NOT , BINOP, I, MR, MR+1, B, 1+3, NEST~, NEST+1, NEST+2, EXPR~ , EXPR+3
I(	EN1+1, K+2!
I(""	EXPR+8
I(0	DUP+6
J	EXPR+2~
J(	DICOMP+3, EN1+1, K+2!, K+4, DUP+2, DUP+3, DUP+4
J(0	DUP+3, DUP+4
K	DICOMP+3~, EN1+1, K!, G, N+1, BINOP, CONCAT, C+1, DPS, ST+2 , S+2, S+3*, S+4, S+5
K(	K, N+1, BINOP, C+1, DPS, S+1, S+2, S+3, S+5
M	A~, K+4, N+2, N+4, N+5, BINOP, I, MR, MR+1, B , 1+3
SUBS	EXPR~, EXPR+7, EXPR+9!
T	A~, V, DUP+3, DUP+4*, DUP+5
U	V, I, DUP+1, DUP+2, DUP+3, DUP+4, 1, S, S+3
V	A~
W	A~, G, G+1, N+2, N+3, N+4, BINOP, I, MR, C+3* , FUNC+4, FUNC+5, B
W(	C+3!, DUP+7, 1+5
X	K+3!, G, G+1, V, E, N+1, N+3, N+4, N+5, N+6 , NOT, NOT+1, BINOP, CONCAT, I, MR+1, C+1, DPS, DUP+6, FUNC , FUNC+2, S, DG, EXPR+1, EXPR+2, EXPR+3!*, EXPR+11
X("USED"	EXPR+12*
X(2	EXPR+1*, EXPR+2
Y	E!, N+6, NOT+1, BINOP, C+2, C+3, DUP+2, DUP+3, DUP+4, DUP+6 , FUNC, FUNC+1, FUNC+2!, FUNC+3, 1+3, ST+1~, ST+2, S, S+1, S+2* , S+3, DG*
Y(0	V*, DUP+1, DUP+2

Customize PDF page

Package: VA Fileman

Routine: DICOMP

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 29

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
DPS
DG
B
CONCAT
EN1	;
NEST()
1
0
2	;
A
C
EN	;
E
G
I
K
N	;
S
TOOEASY
EXPR(FILE,DICOMP,I,SUBS)	;I=input expression; DICOMP=flags
FUNC
V
DUP
DGI()
BINOP
ST	;
MR
NOT