Routine: ONCOCRF

Package	Total	Call Graph
VA FileMan	3	DD^%DT ^%DTC ^DIE
Oncology	2	UVS^ONCOCRFA DATEOT^ONCOES

Package	Total	Caller Graph
Oncology	20	FOLLOW-UP ONCO DELINQUENT(LTF) LIST ONCO DELINQUENT(LTF) LIST HDR ONCO DELINQUENT(LTF) LIST2 ONCO DUE FOLLOWUP ONCO DUE FOLLOWUP-HDR ONCO DUE FOLLOWUP2 ONCO FOLLOW-UP STATUS LIST ONCO FOLLOWUP STATUS RPT ONCO XABSTRACT RECORD ONCO XINCIDENCE RPRT ONCOAIF ONCOCOC ONCOFUL ONCOX11 ONCOXNC ONCOXPU ONCOXU ^ONCO(160 ^ONCO(165.5

Entry Points

Name	Comments	DBIA/ICR reference
LD	;DATE OF LAST CONTACT OR DEATH (160.04,.01)
R1	;Kill STATUS (160,15) "AS" and DUE FOLLOW-UP (160,27) "AD"
LDXT	;Return follow-up record for last date of contact excluding this one
SLF	;Set DATE OF LAST CONTACT OR DEATH (160.04,.01) "AA" cross-reference
KLF	;Kill .01 of FOLLOW-UP MULTIPLE-RESETS: #16(1;2), STATUS #15(1;1), FOLLOWUP STATUS #15.2(1;7), DUE FOLLOW-UP #27(2;3), if alive, DATE DEATH #29 (1;8)
SVS	;VITAL STATUS->STATUS (160,15) trigger AND UPDATE DUE FOLLOW-UP IF DEAD
KVS	;Kill: reset STATUS
NF	;Set DUE FOLLOW-UP (160,27)
UPD	;Update the following fields with the most recent FOLLOW-UP (160,400)
SGPRCOC	;CHECK IF PATIENT HAS SINGLE PRIMARY ONLY & CLASS OF CASE 00 OR 30-99
CHKDT04	;
LFU	;LAST FOLLOW-UP SUMMARY-SELECTED DATA from Last Follow-up
DLC	;DATE LAST CONTACT (160,16) from "AF" cross-reference
CAS	;CANCER STATUS Last Date Contact
DOD	;computed Date of Death
GD	;DATE LAST CONTACT (160,16)
PDLC	;DATE LAST CONTACT (165.5,200)
PDLC1	;DATE LAST CONTACT FILMANAGER FORMAT
P0
SDA	;SURVIVAL DAYS
SUR	;SURVIVAL (MONTHS)
SYR	;SURVIVAL YEARS
SWK	;WEEKS FOLLOWUP
SD
DC	;DATE COMPARE
DD	;DATE FORMATING
SDF	;DUE FOLLOW-UP-TIGGERED BY NEXT FOLLOW-UP METHOD of FOLLOW-UP MULTIPLE
KDF	;KILL DUE FOLLOW-UP
EX	;KILL variables

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?20,"Due follow-up: ",Y Line Location: UPD+15
Function Call: WRITE	Prompt: !!," Patient not followed" Line Location: UPD+17
Function Call: WRITE	Prompt: ?48,$E($P($G(^ONCO(164.2,ONCSITGP,0)),"^",1),1,20) Line Location: CHKDT04+2
Function Call: WRITE	Prompt: ?69,X Line Location: CHKDT04+2
Function Call: WRITE	Prompt: !?10,"NO Last Contact Information on Patient",! Line Location: LFU+1
Routine Call	DIE Line Location: UPD+12

FileNo	Call Tags
^ONCO(160 - [#160]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ONCO(160 - [#160]	LD+3, LD+5, LD+6, R1+2, R1+3!, R1+4!, LDXT+1, SLF+3, SLF+6, SLF+7* , KLF+3!, NF+2, NF+3, UPD+14, UPD+16, DOD+1, GD+1
^ONCO(164.2 - [#164.2]	CHKDT04+2
^ONCO(165.5 - [#165.5]	SGPRCOC+4, SGPRCOC+7, SGPRCOC+8, CHKDT04+1, CHKDT04+2, PDLC+1, P0, SD

Name	Line Occurrences
DC	SD
DLC	DOD+1
EX	SLF+8, KLF+3, UPD+8, UPD+15, UPD+18, LFU+1, DLC+1, DOD+2, PDLC+1, PDLC1+1 , SDA+1, SUR+1, SYR+1, SWK+1
GD	LFU+1, DLC+1, PDLC1+1, SD
LD	SVS+2, UPD+8
LDXT	KVS+1
NF	UPD+15
P0	PDLC1+1, SDA+1, SUR+1, SYR+1, SWK+1
R1	UPD+8
SD	SDA+1, SUR+1, SYR+1, SWK+1
SGPRCOC	UPD+10

Name	Field # of Occurrence
^(	LDXT+1
^(1	DOD+1

Name	Field # of Occurrence
>> D0	UPD+7, CHKDT04+1, CHKDT04+2, LFU+1, DLC+1, DOD+1, PDLC+1, P0, SD
>> DA	LDXT+1, SLF+3, SLF+6, SLF+7, KLF+3, UPD+12*
>> DA(1	SLF+3, KLF+3, SVS+2, KVS+1
DIE	UPD+12*, UPD+13!
DNTSKP	UPD+10, SGPRCOC+3, SGPRCOC+9, EX+1!
DR	UPD+12*, UPD+13!
DT	SLF+5, UPD+11
DUZ	SLF+4
DUZ(2	SGPRCOC+4
FS	NF+1, UPD+10, UPD+11, UPD+12, UPD+15, EX+1!
LC	NF+1, UPD+9*, UPD+11, UPD+16, EX+1!
LD	LD+1, LD+6, LD+7, LDXT+1*, UPD+8, UPD+9, EX+1!
NF	NF+1*, NF+2, NF+3, UPD+15, EX+1!
NM	UPD+9*, UPD+10, EX+1!
O1	LD+1~, LD+2, LD+3, LD+5
O2	LD+1~, LD+4, LD+5, LD+6
OD	R1+4*, EX+1!
ONCDT	SLF+2~, SLF+5*, SLF+7, EX+1!
ONCDUZ	SLF+2~, SLF+4*, SLF+6, EX+1!
>> ONCOVS	UPD+9*, UPD+10, UPD+12, UPD+14, UPD+16
>> ONCSITGP	CHKDT04+2*
ONCVS	EX+1!
OS	R1+3*, EX+1!
PRI	SGPRCOC+4*, SGPRCOC+10!
PRICNT	SGPRCOC+4, SGPRCOC+5, SGPRCOC+6, SGPRCOC+10!
STOP	LD+1~, LD+3, LD+5, LD+7
U	LD+7, R1+3, R1+4, SLF+6, SLF+7, NF+2, UPD+9, UPD+14, UPD+16, SGPRCOC+4 , DOD+1, P0, SD
X	SLF+3, KLF+3, UPD+11, CHKDT04+1~, CHKDT04+2, LFU+1, DOD+2, GD+1, PDLC+1, SUR+1* , SYR+1, SWK+1, DC+1*
X1	SLF+3, KLF+3, UPD+11, DC+1, EX+1!
X2	UPD+11, DC+1, EX+1!
XD	R1+2, R1+3, R1+4, DD+1, EX+1!
XD0	LD+3, LD+5, LD+6, R1+2, R1+3, R1+4, LDXT+1, SLF+3, SLF+6, SLF+7 , KLF+3, SVS+2, KVS+1, NF+2, NF+3, UPD+7, UPD+12, UPD+14, UPD+16, SGPRCOC+4 , SGPRCOC+7, LFU+1, DLC+1, GD+1, PDLC1+1, P0, SDA+1, SUR+1, SYR+1, SWK+1 , EX+1!
XDX	SD*, DC+1, EX+1!
Y	UPD+15*, EX+1!
ZZPRCOC	SGPRCOC+8*, SGPRCOC+9, SGPRCOC+10!
ZZPRENT	SGPRCOC+7*, SGPRCOC+8, SGPRCOC+10!