Routine: DICOMP0

Package	Total	Call Graph
VA Fileman	10	^%DT ^DIC YN^DICN ($$NEST,2,MR)^DICOMP ^DICOMPV DPS^DICOMPW ($$OKFILE,P)^DICOMPX (DICS,G)^DICOMPY MUL^DICOMPZ $$CONVQQ^DILIBF

Package	Total	Caller Graph
VA Fileman	2	DICOMP DICOMPZ

Entry Points

Name	Comments	DBIA/ICR reference
NUMBER
LIT
BAD
DATE	;
BACKPNT
SCREEN()	;Screen out certain fields as we process an atom
LITDATE
SET
GET
OUT
A
D
M
L
O
N
TRY
P
S	;
R
X
POINT
UP
SETFUNC
MR

Name	Line Occurrences (* Changed, ! Killed)
^DD(	TRY, POINT+1
^DD("FUNC" - [#.5]	M+1, M+2
^DIC - [#1]	D+3
^DIC("B"	BACKPNT
^VA(200 - [#200]	M+4

Name	Field # of Occurrence
>> %	LIT, A+1, A+2, D, D+3, S+1, SET
>> %DT	LITDATE*
>> %Y	X, D+3, SET+1, POINT+1, M+4
>> D	SETFUNC, A, A+4, D, D+1, D+3, OUT, SET, SET+1, POINT+1 , BACKPNT
>> DA	SCREEN+2
>> DATE(	DATE+1*
>> DBOOL	SCREEN+3
>> DG	TRY, N, A+1, A+2, S+1, OUT
>> DG(	D+3, SET
>> DIC	TRY*
>> DIC("S"	TRY+1*
>> DICF	M+1*
>> DICMX	TRY+1
>> DICN	L, N, UP, A+1, A+2, D, D+3, OUT+1, SET, SET+1 , POINT, POINT+1, M+4*
>> DICO("BACK"	A+3*, SCREEN+1
>> DICO("DIERR"	OUT+1*
>> DICO(1	SCREEN+2
>> DICOMP	A+1, GET, POINT
DICOMPI	DICOMP0+3~, D*, D+3, GET, O
>> DICOMPX	X*
>> DICOMPX(	SETFUNC*
>> DICOMPX(1	D+2
>> DLV	L, R
>> DLV0	S+1, M+4, BACKPNT
>> DPS	SETFUNC, S+1, OUT
>> DPS(	SETFUNC, D, S+1, OUT
>> DPUNC	M
>> DQI	D+3, SET
DUZ(0	SETFUNC, TRY+2
>> I	TRY+1, A, M*, MR
>> I(	TRY
>> J(	TRY, UP, X, D+2, GET, O+1, M+4
>> J(0	BACKPNT
>> K	M+3*, DATE+1
>> K(	M+3*
>> M	TRY+1, A, A+4, M, MR
P	SCREEN+5~*
>> T	SETFUNC, L, TRY, UP, A+3, X, D, D+2, D+3, GET , O+1, OUT+1, SET, M, M+1, M+2, BACKPNT*, SCREEN+1, SCREEN+2
U	TRY, A+1, A+2, X, SET+1, POINT+1, SCREEN+3, SCREEN+4, SCREEN+5
>> W	TRY+1, A, D, S+1, POINT, POINT+1, M
>> W(	SETFUNC
>> X	SETFUNC, LIT, L, R, N, NUMBER, UP, A, D+2, D+3* , GET, OUT+1, SET, POINT+1, M, M+1, M+3, M+4, LITDATE*, BACKPNT , MR
Y	SETFUNC, LIT!, R, R+1, NUMBER, A+1, A+2, A+3, X, D , D+2, D+3, GET, M+4, LITDATE, BAD!, SCREEN+1, SCREEN+2
Y(0	NUMBER, D, SET+1, M+3, LITDATE*