Routine: DICOMPZ

Package	Total	Call Graph
VA Fileman	6	^DIC ($$DGI,$$NEST,EN1)^DICOMP DATE^DICOMP0 X^DICOMPV DICS^DICOMPY $$CONVQQ^DILIBF

Package	Total	Caller Graph
VA Fileman	6	DICOMP DICOMP0 DICOMP1 DICOMPV DICOMPW DICOMPY

Entry Points

Name	Comments	DBIA/ICR reference
DIMP(D)	;
INSERT
FOR
RCR(W)	;Tricky and important! What we get from this recursion will be inserted into the larger expression.
I(LEV)
CONTAINS
M
DA()
DIMC()
PRIOR	;from DICOMP -- PRIOR.. Functions get archived values
COLON
REF(T)	;
X	;
WP
MUL(DICOMPSP)	;DICOMPSP is the SPECIFIER of the Field we have encountered
R(DICORM)
DQI
BACKPNT	;from DICOMPV -- Backwards Pointer
DICOXR

External References

Name	Field # of Occurrence
^DIC	PRIOR+4
$$DGI^DICOMP	CONTAINS+3
$$NEST^DICOMP	X+1
EN1^DICOMP	DQI+1
DATE^DICOMP0	DQI+6
X^DICOMPV	MUL+5
DICS^DICOMPY	PRIOR+4
$$CONVQQ^DILIBF	I+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: I Line Location: COLON+2
Function Call: WRITE	Prompt: S Line Location: COLON+2
Function Call: WRITE	Prompt: M Line Location: DQI+3
Routine Call	DIC Line Location: PRIOR+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	MUL+2, FOR+7, FOR+8
^DIC - [#1]	MUL+5
^VA(200 - [#200]	PRIOR+2

Label References

Name	Line Occurrences
$$DA	INSERT+7, DIMP+3
$$DIMC	INSERT+7, RCR+2, DQI, DIMP+2
$$I	FOR+12
$$REF	FOR+4
COLON	BACKPNT+3
CONTAINS	INSERT, FOR+1
DICOXR	INSERT+8
DIMP	INSERT+7, INSERT+8, INSERT+9, FOR+11, FOR+12, CONTAINS+4, DQI+6
FOR	MUL+2
INSERT	PRIOR+7
R	CONTAINS+2, COLON+1
RCR	R+1
WP	MUL+2
X	MUL+2

Naked Globals

Name	Field # of Occurrence
^(0	FOR+9, X+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	MUL+3, MUL+5, FOR+6, FOR+7, FOR+8, CONTAINS+1, CONTAINS+2, R, DQI
>> A	DA
D	BACKPNT+1~, INSERT, INSERT+8, FOR+2, FOR+4, FOR+5, FOR+10, FOR+11, FOR+12, RCR+1~ , RCR+2, RCR+4, DIMP~, DIMP+3, X+1, REF+1~, REF+2
>> DA	DA
>> DBOOL	CONTAINS+6*
>> DG(	MUL+3, FOR+13
DIC	PRIOR+1~, PRIOR+4*!
DIC("S"	PRIOR+4*
DIC(0	PRIOR+4*
>> DICMX	PRIOR+2, INSERT, INSERT+1, INSERT+2, INSERT+4, INSERT+6, INSERT+7, FOR+3, CONTAINS+4, COLON+3* , RCR+4, DQI+5*
DICMXSV	RCR+3~, RCR+4*, DQI+4!, DQI+5
>> DICO("PT"	PRIOR+2, COLON+2
>> DICO("RCR"	COLON+1*
DICOLEFT	R~*, R+2
DICOMP	RCR+2, RCR+3~, RCR+4*, DIMC+1, I+1
DICOMPSP	PRIOR+1~, PRIOR+2*, MUL~, MUL+2, MUL+4, INSERT+1, INSERT+2
>> DICOMPX("X"	COLON*
DICOMPXE	PRIOR+1~, PRIOR+2, PRIOR+5, MUL+1~, MUL+4, INSERT, FOR+1, FOR+3*, FOR+10, FOR+11
DICOMX	INSERT~*
DICON	CONTAINS~, CONTAINS+1*, CONTAINS+2, CONTAINS+4, CONTAINS+5
DICOPS	PRIOR+1~, PRIOR+6, BACKPNT+1~, BACKPNT+2, MUL+1~, WP, CONTAINS+2*, CONTAINS+4, COLON
DICOR	FOR~, FOR+4*, FOR+11
DICORM	R~*, R+1, R+2
DICOT	FOR~, FOR+1*, FOR+2, FOR+6
DICOX	R~, R+1, R+2
DICOXR	MUL+1~, DICOXR, CONTAINS+3*, CONTAINS+4, CONTAINS+5
DIM	DIMP+1~, DIMP+2, DIMP+3, DIMC~, DIMC+1, DIMC+2
>> DIMW	PRIOR+6, MUL+4, WP, DICOXR, CONTAINS+6, X+1*
DLV	PRIOR+4, PRIOR+5, MUL+2, MUL+3, MUL+5*, RCR+3~
>> DLV0	MUL+3, MUL+5, FOR+13, I+1, REF+2
>> DPS	FOR+5
>> DPS(	FOR+5, X+1
DQI	COLON+1~, DQI~*
F	INSERT+3~, INSERT+4*, INSERT+6
I	PRIOR+2, PRIOR+3, INSERT+3~, CONTAINS+1, CONTAINS+2, COLON, COLON+1, R+2
I(	MUL+2, MUL+3, MUL+5*, I+1, I+2, REF+2
>> J(	PRIOR+4, PRIOR+5, MUL+2, MUL+3, MUL+5*, COLON+2, I+2
>> J(0	PRIOR+2
K	MUL+3, FOR+13, CONTAINS+5*, RCR+3~
K(	MUL+3, FOR+13, CONTAINS+5*
L	REF+1~, REF+2*
LEV	I~, I+1
>> M	PRIOR+2, PRIOR+3, CONTAINS+1, CONTAINS+2, COLON, COLON+1, R+2*
>> M(	FOR+13*
S	I~, I+1*, I+2
T	MUL+3, FOR+2, FOR+4, FOR+13, REF~, REF+2
U	MUL+2, MUL+4, FOR+2, FOR+6, FOR+7, FOR+9, X+1
V	REF+1~
W	PRIOR+2, PRIOR+3, FOR+5, CONTAINS+1, COLON, COLON+2, R, R+2, RCR~, RCR+2 , RCR+4, DQI+3!*, DQI+6
X	PRIOR+2, PRIOR+3, MUL+2, INSERT+8, INSERT+9, WP, M, FOR+1, FOR+11, FOR+14 , DICOXR, CONTAINS+4, COLON+3, R+1, R+2, RCR+3~, RCR+4, DQI+2, DQI+3, DQI+6 , DIMP+3, X+1, REF+1~, REF+2*, REF+3
X(	DIMP+3*
X(99	DIMC+1
Y	PRIOR+2!, PRIOR+4!, PRIOR+5, MUL+4, MUL+5, INSERT, FOR+1, FOR+2, FOR+3, FOR+4 , FOR+12, FOR+13, FOR+14, CONTAINS+1*, CONTAINS+2, COLON!, COLON+1, COLON+2, R+2, DQI+2! , DQI+4, DQI+6
Y(0	MUL+2, MUL+4, FOR+1
Z	INSERT+3~, INSERT+5, INSERT+7, INSERT+8, INSERT+9

Customize PDF page

Package: VA Fileman

Routine: DICOMPZ

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: