Routine: ONCOAI

Package	Total	Call Graph
Oncology	9	$$DIV^ONCFUNC ^ONCOAID EN^ONCOAIF EN^ONCOAIP (MS,SDD)^ONCOCOM (ENVIRON,RACE)^ONCOES ^ONCPAT (PH,PRT)^ONCPDI ^ONCPTHST
VA FileMan	6	(,IX)^DIC ^DIE ^DIK $$GET1^DIQ EN^DIQ1 ^DIR

Package	Total	Caller Graph
Oncology	2	ONCO ABSTRACT-ENTER/EDIT ONCOAIP

Entry Points

Name	Comments	DBIA/ICR reference
BEG
DEM	;Display demographic data
PD
A1
PAT	;Edit ONCOLOGY PATIENT (160) data
HIS	;Patient History
CK	;Check for existing primaries
PRIM1	;Register a primary for this patient
REG
PRIM2	;patient in PRIMARY FILE
ASK
EDT	;Select primary to edit
AIP	;Abstract all Primary Data;Return with (D0,ONCOD0P)=Primary Record Number
SET
SET1
CONT	;Continue another patient
FOL	;Follow-Up
KILL	;Kill variables
KIL
ER	;Error
EX
WRTSDC	;CALLED BY [ONCO XDEATH INFO] PRINT TEMPLATE
CON	;ADD CONTACTS
NEWCHECK	;CODE FOR MULTIDIVISION CHECK - PATCH 17

External References

Name	Field # of Occurrence
^DIC	BEG+3
IX^DIC	EDT+1
^DIE	SET+13
^DIK	SET+7
$$GET1^DIQ	PRIM2+2, PRIM2+3, PRIM2+4
EN^DIQ1	WRTSDC+2
^DIR	A1+1, HIS+3, REG, ASK, SET+15, CONT+1
$$DIV^ONCFUNC	NEWCHECK+3
^ONCOAID	DEM+1
EN^ONCOAIF	FOL+1
EN^ONCOAIP	EDT+2, SET1
MS^ONCOCOM	SET1
SDD^ONCOCOM	PRIM2+1
ENVIRON^ONCOES	PAT+5
RACE^ONCOES	PAT+1
^ONCPAT	PAT+7
PH^ONCPDI	HIS+4
PRT^ONCPDI	PD
^ONCPTHST	HIS+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!!! Line Location: BEG+1
Function Call: WRITE	Prompt: ! Line Location: A1+0
Function Call: WRITE	Prompt: !,"Another user is editing this patient." Line Location: PAT+8
Function Call: WRITE	Prompt: ! Line Location: HIS+1
Function Call: WRITE	Prompt: !,"Another user is editing this patient" Line Location: HIS+7
Function Call: WRITE	Prompt: !! Line Location: REG+0
Function Call: WRITE	Prompt: !," Date Last Contact: ",$$GET1^DIQ(160,ONCOD0,16,"E") Line Location: PRIM2+2
Function Call: WRITE	Prompt: !," Status: ",$$GET1^DIQ(160,ONCOD0,15,"E") Line Location: PRIM2+3
Function Call: WRITE	Prompt: !," Follow-up Status: ",$$GET1^DIQ(160,ONCOD0,15.2,"E") Line Location: PRIM2+4
Function Call: WRITE	Prompt: ! Line Location: EDT+1
Function Call: WRITE	Prompt: ?40,"Space bar not allowed!" Line Location: EDT+1
Function Call: WRITE	Prompt: ! Line Location: SET+15
Function Call: WRITE	Prompt: !,"Another user is editing this patient data." Line Location: SET1+1
Function Call: WRITE	Prompt: !! Line Location: CONT+1
Function Call: WRITE	Prompt: !!?5,"Something is wrong with database!! - See Site Manager" Line Location: ER+1
Function Call: WRITE	Prompt: !?4,"State Death Cert: ",ONCSDC(160,D0,19.1) Line Location: WRTSDC+3
Routine Call	DIC Line Location: BEG+3
Routine Call	DIC Line Location: EDT+1
Routine Call	DIE Line Location: SET+13
Routine Call	DIR Line Location: A1+1 HIS+3 REG ASK SET+15 CONT+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ONCO(160 - [#160]	Classic Fileman Calls, GET1^DIQ
^ONCO(165.5 - [#165.5]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ONCO(160 - [#160]	PAT+7, HIS+6, SET+2, SET+3, SET+4, SET+6
^ONCO(164.1 - [#164.1]	SET+15
^ONCO(165.5 - [#165.5]	CK+3, SET+13, SET+19, SET+20, NEWCHECK+2
^ONCO(169.3 - [#169.3]	SET+15
^TMP($J	CK+3, NEWCHECK+1!, NEWCHECK+3*

Label References

Name	Line Occurrences
@(	AIP+1
AIP	REG, ASK
BEG	EDT+1, CONT+1
CK	HIS+3
CONT	A1+1, HIS+3, REG, ASK, AIP+1
EDT	ASK, EDT+1
EX	BEG, BEG+3, A1+1, HIS+3, REG, ASK, EDT+2, AIP+1, SET+15, CONT+1
FOL	ASK
HIS	A1+1
KIL	REG
KILL	EX
NEWCHECK	CK+2
PD	BEG+6
PRIM2	CK+3
SET	AIP+1
SET1	SET+14, SET+15

Naked Globals

Name	Field # of Occurrence
^(0	CK+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%W	EX+3!
%X	EX+3!
%Y	EX+3!
%ZISOS	KIL+4!, EX+3!
A	KIL+1!, EX+2!
ABS	KIL+1!
AG	KIL+1!, EX+2!
AN	KIL+1!
ANS	KIL+1!
C	KIL+1!, EX+2!
CC	KIL+1!
COB	KIL!
COC	KIL!
CS	SET, SET+5, SET1+2!, EX+1!
CT	KIL+1!
CTY	KIL+1!
D	EDT+1*!, KIL!
D0	BEG+4, PD, HIS+4, SET+10, SET+19, SET+20, KIL!, EX+1!, EX+2!, WRTSDC+2 , WRTSDC+3
D0P	KIL+2!
D1	KIL!, EX+2!
DA	PAT+6, PAT+7, HIS+5, HIS+6, SET+7, SET+10, SET+13, KIL!, EX+1!, EX+2! , WRTSDC+1~, WRTSDC+2*
DA(1	SET+7*
DEF	KIL+1!
DI	KIL!, WRTSDC+1~
DIC	BEG+2, BEG+3!, EDT+1!, KIL!, EX+1!, WRTSDC+1~, WRTSDC+2*
DIC("A"	BEG+2*
DIC(0	BEG+3, EDT+1
DIE	SET+9*, KIL!, EX+1!
DIK	SET+7*, KIL+1!
DIOT	PD!
DIQ	WRTSDC+2!*
DIR	A1!, HIS+1!, ASK!, SET+15!, CONT+1!, KIL!, EX+1!
DIR("A"	A1, HIS+2, REG, ASK, CONT+1*
DIR("B"	A1, HIS+2, REG, ASK, CONT+1*
DIR(0	A1, HIS+2, REG, ASK, SET+15, CONT+1
DLAYGO	BEG+2*, BEG+3!, KIL+1!
DN	KIL!
DOP	EX+2!
DQ	EX+1!
DR	SET+12, KIL!, EX+1!, WRTSDC+2
DUZ(2	CK+3, SET+2, NEWCHECK+4
DXS	PD!, KIL+2!, EX+2!
ER	EX+1!
FG	KIL+3!
FIL	KIL+2!, EX+2!
G	KIL+2!, EX+2!
I	KIL+2!, EX+2!
I2	KIL+1!
I9	KIL+1!
ICD	KIL+2!, EX+2!
IIN	KILL+3!
IOF	BEG+1
J	KIL+2!, EX+2!
K	KIL+2!, EX+2!
KK	KIL+3!
L	KIL+2!, EX+2!
M	KIL+2!, EX+2!
MC	KIL+3!
MO	SET, SET+6, SET+14, SET+15, SET+17, SET+19, SET+20, SET1+2!, KIL+3!
MS	EX+1!
N	KIL+2!, EX+2!
N2	KIL+2!
NM	KIL!, KIL+2!, EX+2!
O2	KIL+2!, EX+2!
OD	KIL+3!
ONCO	KILL+1!, EX+3!
ONCOACN	KILL+1!
ONCOAD	KIL+3!, EX+3!
ONCOAI	FOL+1*, KILL+3!
ONCOANS	KILL+3!, EX+1!
ONCOD0	BEG+4*, PD, PAT+6, HIS+4, HIS+5, PRIM2+2, PRIM2+3, PRIM2+4, SET+2, SET+3 , SET+4, SET+6, SET+7, KILL+1!, EX+3!, NEWCHECK+2
ONCOD0P	EDT+2*, SET+10, KILL+1!, EX+3!
ONCODD	KIL+3!, EX+3!
ONCOEDIT	KILL+2!
ONCOICD	KIL+3!
ONCOL	PAT+6, PAT+7, PAT+8, PAT+9!, HIS+5, HIS+6, HIS+7, HIS+8!, SET+8, SET+13 , SET1+1, SET1+2!
ONCOMR	KILL+1!
ONCONAM	BEG+5*, KILL+2!
ONCONM	BEG+5*, EDT+1, KILL+1!, EX+3!
ONCOOUT	KILL+1!
ONCOP	CK+3*, AIP+1, KILL+1!
ONCOP0	CK+3*, AIP+1, KILL+1!
ONCOPB	KILL+2!
ONCOPN	KILL+2!
ONCOSIT	KILL+2!
ONCOSN	KILL+1!
ONCOSX	PD+2*, KILL+2!
ONCOT	KILL+3!
ONCOVP	BEG+4*, KILL+2!
ONCOVS	KILL+2!
ONCOX	KILL+2!
ONCOYR	KILL+3!, EX+2!
ONCSDC	WRTSDC+4!
ONCSDC(160	WRTSDC+3
OP	EX+3!
OS	KIL+3!
OT	KIL+2!, EX+2!
P	KIL+3!
POB	KIL!
PR	KIL+3!, EX+1!
PRI	NEWCHECK+2*, NEWCHECK+3, NEWCHECK+4, NEWCHECK+6!
PRIDIV	NEWCHECK+3*, NEWCHECK+4, NEWCHECK+6!
PT0	BEG+6*, KIL+1!
PTR	KIL+1!
Q	KIL+3!
R	KIL!
R1	PAT+1~, PAT+3*, PAT+4, KIL+2!, EX+1!
R2	KIL+2!, EX+1!
RACE	PAT+1~, PAT+4
RC	KIL!
RCC	KIL!
RIP	EX+1!
RIPD0	KIL+2!
RS	EX+1!
RTKARY	NEWCHECK+2!
RTKARY(	NEWCHECK+4*
RY	KIL+3!
S	KIL+3!, EX+1!
SC	KIL+4!
SDD	KIL+1!
SEX	BEG+6*, PD+1, KIL!
SITEGP	KILL+3!
SITTAB	KILL+3!
SN	KIL!
SR	SET, SET+4, SET+5, SET1+2!, KIL+4!, EX+1!
SSN	KILL+3!
SSPIEN	SET+1~, SET+2*, SET+3, SET+4, SET+6, SET+7
ST	KIL+1!, EX+1!
STAT	EX+4!
SX	PD+1*, PD+2, KIL!
SY	EX+1!
T	KIL+4!, EX+1!
TAB	KILL+3!
TD	EX+2!
TL	KIL!
TM	EX+1!
TOPCOD	KILL+3!
TOPNAM	KILL+4!
TOPTAB	KILL+4!
TS	KIL+4!
TX	EX+2!
U	BEG+4, BEG+6, A1+1, HIS+3, ASK, SET+3, SET+4, SET+6, SET+19, SET+20
UF	KIL+4!
VAERR	KIL+2!, EX+3!
VP0	KIL+1!
VPR	KIL+2!
X	PAT+2, PAT+3, EDT+1*!, KIL!
XD	SET, SET+3, SET+15, SET+19, SET+20, SET1+2!
XD0	EX+1!
XD1	EX+1!
XDA	KIL+4!
XDT	KIL+3!
XLC	KIL+4!
XN	KIL+2!
XS	KIL+3!
XTS	KIL+3!
XX	EX+2!
XY	KIL+4!
Y	BEG+3, BEG+4, A1+1, HIS+3, REG, ASK!, EDT+1, EDT+2, AIP+1, SET+15 , CONT+1, ER+1*
Y(0	BEG+5, BEG+6
Z	EX+1!
ZIP	KIL+3!
ZP	KIL+3!

Customize PDF page

Package: Oncology

Routine: ONCOAI

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: