Routine: DICOMPX

Package	Total	Call Graph
VA Fileman	4	^DIC YN^DICN ST^DICOMP DICS^DICOMPY

Package	Total	Caller Graph
VA Fileman	5	DICOMP DICOMP0 DICOMPV DICOMPW DICOMPY

Entry Points

Name	Comments	DBIA/ICR reference
QQ
Q
FILEQ
P	;
MM
M	;
DRW	;also called from DICOMPV, and DICOMPW to filter FILE names
ST
TRY
OKFILE(Y,DICOMP)	;Called from DIR
R
SN
Y	;
REF
SV(%X)	;also called from DICOMPY

Name	Line Occurrences
Function Call: WRITE	Prompt: !?3,"By '"_DICN_"', do you mean the '"_$P(Y,U,2)_"' Subfield" Line Location: TRY+2
Routine Call	DIC Line Location: TRY FILEQ

Name	Line Occurrences (* Changed, ! Killed)
^DD(	TRY
^DIC - [#1]	Y+1, OKFILE+3

Name	Field # of Occurrence
^(0	FILEQ+1

Name	Field # of Occurrence
%	TRY+2, TRY+4, SV+1, QQ, OKFILE+2~, P+5*
%X	SV~, SV+1
>> %Y	P+1, P+7
D	TRY+1, TRY+3, TRY+4, TRY+5, REF, OKFILE+2~, DRW+1*, DRW+2
>> DG	TRY*, R
>> DG(	SN, SV+1
DIAC	OKFILE+2~
DIC	TRY, FILEQ, OKFILE+2~
DIC("S"	M+2, OKFILE+3, DRW+2
>> DICN	MM, TRY+2, REF, R, FILEQ, P+2, P+7
DICOMP	TRY+2, OKFILE~, DRW+1
>> DICOMPX(0	P+2*
DIFILE	OKFILE+2~
>> DLV	MM, TRY+4, TRY+5, REF, Y+1, SN, SV+1, P+7
>> DLV0	TRY+4, TRY+5, REF, Y+1, SN, SV+1, P+7*
>> DPS	ST
>> DPS(	ST*
>> I	TRY+1, P+5, P+6
>> I(	TRY+4, TRY+5, REF, Y+1, P+7
>> J(	TRY, TRY+4, TRY+5, R+1, Y+1, P+7
>> J(0	M+1
>> K	SV+1, ST*
>> K(	SV+1, ST
>> M	TRY+1, TRY+3, P+5, P+6*
>> M(	SV+1*
>> T	MM, TRY, TRY+4, REF, R+1, SV+1*
U	TRY+2, TRY+3
>> V	REF*
>> W	TRY+1, P+4, P+5, P+6*
X	M+1!, MM, TRY+1, TRY+2!, TRY+3, TRY+5, REF, R, FILEQ!, FILEQ+1* , QQ, P+1, P+2*, ST~
Y	TRY, TRY+2, TRY+3, TRY+5, REF, FILEQ, Y+1, OKFILE~, OKFILE+3
Y(0	TRY+3