Routine: ONCOCOM

Package	Total	Call Graph
Oncology	4	DTDIFF^ONCDTUTL $$DIV^ONCFUNC ^ONCOCOML (DATEOT,DOB1)^ONCOES
VA FileMan	2	^%DTC $$GET1^DIQ

Package	Total	Caller Graph
Oncology	41	ONCACDU1 ONCBPC4 ONCBPC8A ONCBRP9A ONCCPC4 ONCCPC9A ONCHPC8A ONCIPC8B ONCMPC9A ONCNPC4 ONCNPC8B ONCO ANN/ANAL/STA/SITE/DX AGE ONCO DELINQUENT(LTF) LIST ONCO DUE FOLLOWUP ONCO UTL CORRECT DATA ONCOAI ONCOAIM ONCOANC4 ONCOAS ONCOCKI ONCOCOC ONCOPMB ONCOUTC ONCOW1 ONCOW11 ONCOX2 ONCOX21 ONCOX5 ONCOX51 ONCOXA2 ONCOY54 ONCP2P8A ONCSCHM1 ONCSG0A ONCSGA8C ONCSPC4 ONCSPC8A ONCTPC4 ONCTPC8A ^ONCO(160 ^ONCO(165.5

Entry Points

Name	Comments	DBIA/ICR reference
CC	;'COMPUTED-FIELD' EXPRESSION for CLASS CATEGORY (160,69)
ARF	;'COMPUTED-FIELD' EXPRESSION for ANALYTIC REQUIRING FOLLOWUP (160,69.1)
ARFPRI	;'COMPUTED-FIELD' EXPRESSION for ANALYTIC PRMRY REQ FOLLOWUP (165.5,.043)
SDA	;List all primaries for a patient
SDP	;List all primaries except current primary
SDD	;List all primaries for a patient
CX	;Entry point with XD0 defined, not D0
CLS	;Class of Case (ANALYTIC/NON-ANALYTIC)
CLS2	;Class of Case (CLASS OF CASE 10 THRU 22) Navigate from 160 to 165.5
DFC	;'COMPUTED-FIELD' EXPRESSION for FIRST COURSE OF TREATMENT DATE (165.5,49)
DRXS	;'COMPUTED-FIELD' EXPRESSION for DATE INITIAL RX SEER (165.5,49.9)
DDX	;COMPUTED-FIELD FOR DATE-DATE DX (165.5,49.1)
DSTS	;DATE SYSTEMIC TREATMENT STARTED (165.5,152)
DD	;Y=date in FM format (2yrmoda); convert to da/mo/yr
AGE	;AGE AT DIAGNOSIS
AGEOUT
DEC	;AGE DX DECADE
XD0
PID	;PATIENT NAME,SSN,DOB
SID	;PID# (A1234)
PID5
PID0
MS	;Derive MARITAL STATUS AT DX (165.5,11) from MARITAL STATUS (2,.05)
ADX	;Derive PATIENT ADDRESS AT DX (165.5,8) from STREET ADDRESS 1 (2,.111)
PAT	;Patient pointer
ONCPRI	;ICD0-TOPOGRAPHY LIST (160,49)
ACOS	;'COMPUTED-FIELD' EXPRESSION for ACOS # (165.5,67)
HM	;'COMPUTED-FIELD' EXPRESSION for HISTO-MORPHOLOGY (165.5,27)
ET	;'COMPUTED-FIELD' EXPRESSION for ELAPSED DAYS TO COMPLETION (165.5,157)
EM	;'COMPUTED-FIELD' EXPRESSION for ELAPSED MONTHS TO COMPLETION (165.5,157.1)
DCD	;INPUT TRANSFORM for DATE OF CONCLUSIVE DX (165.5,193)
DCDEX
TNMCA	; ; code for Computed Field TNM COMPLETED PERCENTAGE (#165.5,#158)
EX	;Exit
CLEANUP	;Cleanup

External References

Name	Field # of Occurrence
^%DTC	DDX+10, ET+11, DCD+7
$$GET1^DIQ	CC+4, DDX+9, DSTS+3, DSTS+4, DSTS+5, DSTS+6, ACOS+4, HM+3, HM+5
DTDIFF^ONCDTUTL	EM+12
$$DIV^ONCFUNC	SDP+3, CX+2, ONCPRI+2
^ONCOCOML	SDP+3, CX+2
DATEOT^ONCOES	DFC+7, DRXS+7, DSTS+11
DOB1^ONCOES	AGE+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ?24,"None" Line Location: SDP+4
Function Call: WRITE	Prompt: ! Line Location: CX+1
Function Call: WRITE	Prompt: ! Line Location: ONCPRI+9
Function Call: WRITE	Prompt: ?5,TOP(TOPCODE),! Line Location: ONCPRI+9
Function Call: WRITE	Prompt: !!,"DATE DX after DATE OF CONCLUSIVE DX",! Line Location: DCD+6
Function Call: WRITE	Prompt: !!," DATE OF CONCLUSIVE DX must be greater than 60 days after DATE DX",! Line Location: DCD+9

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ONCO(160.19 - [#160.19]	GET1^DIQ
^ONCO(165.5 - [#165.5]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(5 - [#5]	ADX+20
^ONCO(160 - [#160]	SDD+1, PAT+1
^ONCO(160.1 - [#160.1]	ACOS+1, ACOS+2, ACOS+3
^ONCO(164 - [#164]	ONCPRI+6, ONCPRI+7
^ONCO(165.5 - [#165.5]	CC+3, ARF+3, ARF+4, ARFPRI+3, SDA+1, SDP+1, SDP+3, CX+2, CLS+2, CLS2+2 , CLS2+3, DFC+1, DFC+2, DFC+3, DFC+4, DRXS+1, DRXS+2, DRXS+3, DRXS+4, DDX+3 , DDX+5, DDX+6, DDX+7, AGE+1, AGE+4, XD0, PID5, MS+1, MS+6, ADX+13 , ADX+14, ADX+21, ADX+22, ADX+23, ADX+24*, ONCPRI+2, ONCPRI+3, ONCPRI+4, ET+2, ET+4 , ET+5, EM+2, EM+4, EM+6, DCD+3

Label References

Name	Line Occurrences
ADX	MS+3
AGE	DEC+1
AGEOUT	AGE+2, AGE+3, AGE+5
CX	SDA+1
DCDEX	DCD+8
EX	SDP+1, SDP+4, PID+1, PID5, PID0, MS+1, MS+2
PAT	PID+1, PID5, PID0, MS+2
PID	PID5, PID0

Naked Globals

Name	Field # of Occurrence
^(0	CLS+2, CLS2+3, XD0, PAT+1, PAT+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%Y	ET+12, DCD+1~, DCD+8
ACOS	ACOS+3, ACOS+4, ACOS+5!
ADX	ADX+10, ADX+11, ADX+13, ADX+25!
ADXSUPP	ADX+12*, ADX+14, ADX+25!
AG	DEC+1*, DEC+2!
AGE	AGE+2, AGE+3, AGE+5, AGE+6, AGEOUT!
AS	ET+1~, ET+2, ET+3, EM+1~, EM+2, EM+3
CC	CC+1~, CC+2, CC+3, CC+4, CC+5, ARF+1~, ARF+2, ARF+3, ARF+5, ARF+6 , ARFPRI+1~, ARFPRI+2, ARFPRI+3, ARFPRI+4
CCPTR	ARF+1~, ARF+4, ARF+5, ARFPRI+1~, ARFPRI+3
CITY	ADX+15*, ADX+21, ADX+25!
COUNTY	ADX+19, ADX+20, ADX+24, ADX+25!
COUNTYPNT	ADX+18*, ADX+20, ADX+25!
D0	CC+3, ARF+3, ARFPRI+3, SDA+1, SDP+1, SDP+3, SDD+1, CLS+2, CLS2+2, DFC+1 , DFC+2, DFC+3, DFC+4, DRXS+1, DRXS+2, DRXS+3, DRXS+4, DDX+3, DDX+5, DDX+6 , DDX+7, DDX+9, DSTS+3, DSTS+4, DSTS+5, DSTS+6, AGE+1, AGE+4*, XD0, PID5 , PID0, MS+1, MS+6, ADX+13, ADX+14, ADX+21, ADX+22, ADX+23, ADX+24, ONCPRI+2 , HM+3, HM+5, ET+2, ET+4, ET+5, EM+2, EM+4, EM+6, DCD+3, CLEANUP+1!
DATE1	ET+1~, ET+4, ET+7, ET+8, ET+9, EM+1~, EM+4, EM+5*, EM+10, EM+11 , EM+12
DATE2	ET+1~, ET+5, ET+6, ET+8, ET+10, EM+1~, EM+6, EM+7*, EM+8, EM+9 , EM+11, EM+12
DAYS	EM+1~, EM+12, EM+15
DCDX	DCD+1~, DCD+2*, DCDEX
DOB	AGE+4*, AGE+5, AGE+6, AGEOUT!
DOD	AGE+1*, AGE+2, AGE+3, AGE+6, AGEOUT!
DSTS	DSTS+1, DSTS+7, DSTS+8, DSTS+9, DSTS+10, DSTS+12!
DSTSDT	DSTS+2!, DSTS+12!
DSTSDT(	DSTS+3, DSTS+4, DSTS+5, DSTS+6, DSTS+7, DSTS+8, DSTS+9
DUZ(2	SDP+3, CX+2, ONCPRI+2, ACOS+1
GLR	ADX+9, ADX+25!, PAT+4*
GRADE	HM+1~, HM+5*, HM+6
J	SDP+2~, SDP+3, SDP+4, CX+1~, CX+2*
MC	MS+4*, MS+5, CLEANUP+1!
MO	HM+1~, HM+3*, HM+4, HM+6
MONTHS	EM+1~, EM+12, EM+14, EM+15
MONTHYEAR	EM+1~, EM+13*, EM+14
MS	MS+3*, MS+4, ADX+25!
OD0	PID+1, MS+2, ADX+25!, PAT+1, PAT+2, PAT+3, PAT+4, PAT+5, EX+1!
OF	ADX+25!, PAT+2*, PAT+4, PAT+5
ONCDTDX	DDX+1~, DDX+2, DDX+9, DDX+10
ONCONM	PID+1*, PID5, PID0, CLEANUP+1!
ONCOPID	PID+1*, CLEANUP+1!
ONCTDT	DDX+1~, DDX+4, DDX+5, DDX+6, DDX+7, DDX+8*, DDX+10
OSP	ACOS+1, ACOS+2, ACOS+3, ACOS+5!
PRI	CC+1~, CC+3, CC+4, ARF+1~, ARF+3, ARF+4, ARFPRI+1~
SN	PID+1*, PID5, PID0, CLEANUP+1!
STATE	ADX+16*, ADX+20, ADX+22, ADX+24, ADX+25!
TDT	DFC+2, DFC+3, DFC+4, DFC+5, DFC+6, DFC+8!, DRXS+2, DRXS+3, DRXS+4, DRXS+5 , DRXS+6, DRXS+8!
TOP	ONCPRI+9, ONCPRI+10!
TOP(	ONCPRI+8*, ONCPRI+9
TOPCODE	ONCPRI+7, ONCPRI+8, ONCPRI+9, ONCPRI+10!
TOPIEN	ONCPRI+4*, ONCPRI+5, ONCPRI+6, ONCPRI+7, ONCPRI+10!
TOPNAME	ONCPRI+6*, ONCPRI+8, CLEANUP+1!
U	ARFPRI+3, SDA+1, SDP+1, CLS+2, CLS2+3, AGE+1, AGE+4, XD0, PID+1, PID5 , MS+1, MS+3, MS+6, ADX+10, ADX+11, ADX+12, ADX+13, ADX+14, ADX+15, ADX+16 , ADX+17, ADX+18, ADX+20, ADX+21, ADX+22, ADX+23, ADX+24, PAT+1, PAT+4, PAT+5 , ONCPRI+4, ONCPRI+6, ONCPRI+7, ACOS+3, ET+2, ET+4, ET+5, EM+2, EM+4, EM+6 , DCD+3
VP0	PID+1, MS+3, ADX+25!, PAT+6*, EX+1!
VPR	ADX+25!, PAT+5*, PAT+6
X	CC+5, ARF+6, ARFPRI+4, CLS+2, CLS2+3, DFC+1, DFC+6, DRXS+1, DRXS+6, DDX+2 , DSTS+3, DSTS+4, DSTS+5, DSTS+6, DSTS+10, AGE+4, AGEOUT, DEC+1, PID+1, PID5* , PID0, ONCPRI+10, ACOS+5, HM+2, HM+6, ET+3, ET+6, ET+7, ET+8, ET+12 , EM+3, EM+8, EM+9, EM+10, EM+11, EM+14, DCD+2, DCD+4, DCD+6!, DCD+9! , DCDEX*
X1	DDX+1~, DDX+10, MS+5, MS+6, ADX+25!, ET+9, DCD+1~, DCD+4, DCD+6, EX+1!
X11	ADX+9*, ADX+10, ADX+11, ADX+12, ADX+15, ADX+16, ADX+17, ADX+18, ADX+25!
X2	DDX+1~, DDX+10, ET+10, DCD+1~, DCD+3*, DCD+5, DCD+6, EX+1!
XD	PID+1*, CLEANUP+1!
XD0	SDA+1, SDP+1, SDP+3, SDD+1, CX+2, CLS+2, CLS+3!, CLS2+2, CLS2+3, CLS2+4! , AGE+4, AGEOUT!, XD0, PID5, PID0, MS+1, ADX+26!, PAT+1, ONCPRI+1, ONCPRI+2 , ONCPRI+3, ONCPRI+4, ONCPRI+10!, EX+1!
XD1	SDP+3, CX+1~, CX+2, EX+1!
XX	EM+15*, CLEANUP+1!
Y	DD+1*, EX+1!
YEARS	EM+1~, EM+12, EM+13, EM+15
ZIP	ADX+17*, ADX+23, ADX+26!

Customize PDF page

Package: Oncology

Routine: ONCOCOM

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 41

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: