Routine: DICOMP1

Package	Total	Call Graph
VA Fileman	4	$$DGI^DICOMP DPS^DICOMPW DIMP^DICOMPZ ^DIM

Package	Total	Caller Graph
VA Fileman	1	DICOMP

Entry Points

Name	Comments	DBIA/ICR reference
DTC
K1
DATE
NN
0	;NO GOT! Come here when parsing fails
INIT
2
A
C
M
VP
P
AS
EX
Y
X
EXTRASB
Q
SX
SS
S
ST
OV

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, 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, 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+3, DICOMP1+4
>> DPS(	DICOMP1+3
>> 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+3, 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, DATE+1, 2, 2+1, 2+2 , 2+3, 2+4, DTC, A, K1, S, Q, Y+4!
K(	DICOMP1+3, NN!, NN+1, NN+2, NN+3, NN+5, AS, AS+1, AS+2, AS+3 , AS+4, P, P+1, DATE, DATE+1, 2, 2+2, 2+3, DTC*, 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+3, INIT, NN+4, AS, AS+1, AS+2, AS+3, P+1, DATE, DATE+1* , 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, DATE+1, 2+3, DTC, 0+3, 0+4, Y!, Y+1, Y+2, Y+3 , ST, ST+1