Routine: ONCOUK

Package	Total	Call Graph
VA FileMan	4	^%DTC ^DIE IXALL^DIK ^DIR

Entry Points

Name	Comments	DBIA/ICR reference
RX	;Reindex data files
RX1
RX2
RX3
RX4
XRF1	;REINDEX 160
XRF	;CROSS REF MULTIPLE & UPDATE
MF
XD0	;ENTER WITH D0=XD0
LD
NF
XRF2	;RE-INDEX FILE 165.5
XRF3	;RE-INDEX FILE 165
XRF4	;160.1
KEY55	; Assign new .01 fields to ONCOLOGY PRIMARY File (#165.5) ; (based on topographies not histologies)

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option will reindex the ONCOLOGY PATIENT, ONCOLOGY PRIMARY and ONCOLOGY" Line Location: RX+3
Function Call: WRITE	Prompt: !,"CONTACT files.",! Line Location: RX+4
Function Call: WRITE	Prompt: !!!,?15,"Re-indexing ONCOLOGY PATIENT File (#160)..." Line Location: XRF1+1
Function Call: WRITE	Prompt: !!?10,"Reindexing Follow-up Multiple",! Line Location: XRF+1
Function Call: WRITE	Prompt: !?10,"DONE re-indexing file #160" Line Location: MF+1
Function Call: WRITE	Prompt: !!!?15,"Re-indexing ONCOLOGY PRIMARY File (#165.5)..." Line Location: XRF2+1
Function Call: WRITE	Prompt: !?10,"DONE Re-indexing file #165.5" Line Location: XRF2+3
Function Call: WRITE	Prompt: !!!?15,"Re-indexing ONCOLOGY CONTACT File (#165)..." Line Location: XRF3+1
Function Call: WRITE	Prompt: !?10,"DONE Re-indexing file #165" Line Location: XRF3+2
Function Call: WRITE	Prompt: !!!?15,"Re-indexing ONCOLOGY SITE PARAMETERS File (#160.1)..." Line Location: XRF4+1
Function Call: WRITE	Prompt: !?10,"DONE Re-indexing file #160.1" Line Location: XRF4+3
Routine Call	DIE Line Location: KEY55+11
Routine Call	DIR Line Location: RX+6 XRF+2

Name	Line Occurrences (* Changed, ! Killed)
^ONCO(160 - [#160]	XRF1+2!, XRF1+5!, XRF+2, XRF+3, MF, XD0+1, XD0+3, LD, LD+1, LD+2* , LD+3, LD+4, LD+5, LD+7, NF*
^ONCO(164 - [#164]	KEY55+6
^ONCO(165 - [#165]	XRF1+3!, XRF2+1!, XRF3+1!
^ONCO(165.5 - [#165.5]	XRF2+2!, KEY55+3, KEY55+4, KEY55+7

Name	Field # of Occurrence
^(	XD0+1, LD
^(1	LD+7*

Name	Field # of Occurrence
>> CS	LD+1, LD+2
DA	KEY55+10~*
DIE	KEY55+8~*
>> DIK	MF, XRF2+3, XRF3+1, XRF4+2
>> DIR("A"	RX+5, XRF+2
>> DIR("B"	RX+5, XRF+2
>> DIR(0	RX+5, XRF+2
DR	KEY55+9~*
DT	LD+6
>> EX	RX+8, RX1, XRF+2
>> FLC	XD0+3*, LD+3
>> FM	LD+1*, LD+3
>> FS	LD+6*, LD+7
>> I	XRF1+2, XRF1+3, XRF1+5, LD, LD+1, LD+2, LD+3, LD+4, LD+5, XRF2+1* , XRF2+2, XRF3+1
>> J	XRF+3*
>> LC	XD0+1, LD+1, LD+6, LD+7, NF
>> LD	LD*, LD+1
>> LLC	LD*, LD+3
>> NF	NF*
>> NM	LD+1, LD+5, LD+6
>> NW	XRF1+1, XRF+1
ONCOPI	KEY55+2~, KEY55+3, KEY55+4, KEY55+7, KEY55+10
>> ONCORX	RX2*
ONCOSITE	KEY55+6~*, KEY55+7
ONCOTOP	KEY55+4~*, KEY55+5, KEY55+6
>> QS	LD+1*, LD+4
U	XD0+1, LD+1, LD+2, LD+3, LD+4, LD+5, LD+7, NF, KEY55+4, KEY55+6 , KEY55+7
>> VS	LD+1*, LD+4, LD+5, LD+6, LD+7
>> WRTFLG	KEY55+12
>> X	XD0+1*, LD+6
>> X1	LD+6*
>> X2	LD+6*
>> XD0	XRF1+5, XRF+3, XD0+1, XD0+3, LD, LD+1, LD+2, LD+3, LD+4, LD+5 , LD+7, NF
>> Y	RX+6, XRF+2