Routine: DICOMP1

Name

Line Occurrences

P+2, DATE+1, 2, 2+3

AS, AS+2, C+5, OV+2, M

DATE+1, C+3

AS, AS+2, AS+3, P+1, S, C+5, OV

C+9

S+1

NN+2, DTC+1

S+1, M, SS

P+1, DTC+1

Local Variables

Name	Field # of Occurrence
%	NN+1, ST+2~, X, X+1, C, C+1, C+4
>> DA	S, C+7
DATE	0+1!, Y+1
DATE(	NN+1!, P+2, DATE+1!, 2+1!, 2+2*, 2+3!
>> DBOOL	Y+1
>> DG	ST*, ST+1, X, X+1, X+2, C, C+1, C+2, C+3, C+4 , C+6, C+7, C+8, C+9
>> DG(	ST, ST+1, X+2!, C!, C+4, C+6, C+7, C+9!
DICMX	Y+4!
>> DICO	0+2, 0+3, 0+4, 0+5
>> DICO("DIERR"	Q+1
>> DICO("PT"	Y+3
>> DICO("RCR"	Y
>> DICO(0	X+1, C+2
>> DICO(1	0+6, Q
>> DICO(2	Y+1
DICOMP	S+1, 0+1, 0+6*, Q, Q+1, Y+4!, X+1, C+2
>> DICOMPQI	Q+1
>> DICV	VP
DIM	0+1!, 0+3*, 0+4!, 0+5, Y+1
>> DIMW	Y+2
DLV	0+6*, Y+1, Y+4!
>> DLV0	INIT, NN, ST, ST+1, X+2, C, C+4, C+6, C+7, C+9
>> DPS	DICOMP1+7, DICOMP1+8
>> DPS(	DICOMP1+7
>> DPS("W"	Y+1
>> DPUNC	P+1
>> DQI	S, ST+1, C+4, C+7, C+8
DUZ(0	0+1
>> I	S, S+1, ST+1, X, X+1, C+1, C+3, C+4, C+5, C+7* , C+8, VP, OV, OV+1
>> I(	Q!, X+1
>> I(0	VP
>> J(	Q!, C+1
K	DICOMP1+7, INIT, NN, NN+1, NN+2, NN+3, NN+5, AS, AS+1, AS+2 , AS+3, AS+4, P, P+1, P+2, DATE+1, DATE+2, 2, 2+1, 2+2 , 2+3, 2+4, DTC, DTC+1, A, K1, S, Q*, Y+4!
K(	DICOMP1+7, NN!, NN+1, NN+2, NN+3, NN+5, AS, AS+1, AS+2, AS+3 , AS+4, P, P+1, DATE+1, DATE+2, 2, 2+2, 2+3, DTC+1*, A , K1
>> M(	S
QI	ST+2~, X+1*
SV	C+3~*
T	INIT, ST+1, ST+2~, X+1
U	DTC, ST, X
W	AS+2, AS+3, A, S, ST, C+3~, C+5, OV+1, OV+2, EXTRASB* , EX, SX*
X	DICOMP1+7, INIT, NN+4, AS, AS+1, AS+2, AS+3, P+1, DATE+1, DATE+2* , 2+2, 2+3, DTC, A, S, S+1, 0+1!, 0+5, Q+1, C+3* , C+5, OV, OV+1, EXTRASB, SS, EX, SX*
Y	DATE+1, DATE+2, 2+3, DTC, DTC+1, 0+3, 0+4, Y!, Y+1, Y+2* , Y+3, ST, ST+1*