Routine: ONCOAIC

Package	Total	Call Graph
VA FileMan	5	^DIC FILE^DICN ^DIE ^DIK ^DIR
Oncology	1	SEX^ONCOCKI

Entry Points

Name	Comments	DBIA/ICR reference
EN	;Create first ONCOLOGY PRINMARY (165.5) record
LOOK1	;Select first primary
A2	;Create first ONCOLOGY PRIMARY (165.5) record for this patient
A
NAN	;New ACCESSION NUMBER (165.5,.05)
NA
AC
DIE
LOCK
ASK
FND	;Search for unused accession numbers
NR
PID	;Continue defining Primary Record
KLN	;KILL entry
KILL	;KILL variables
EX	;Exit
CLEANUP	;Cleanup

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EN+2
Function Call: WRITE	Prompt: !!?5,"****** CREATE FIRST PRIMARY RECORD FOR THIS PATIENT*****",!! Line Location: EN+3
Function Call: WRITE	Prompt: ! Line Location: LOOK1+5
Function Call: WRITE	Prompt: ! Line Location: A2+3
Function Call: WRITE	Prompt: !,?5,"Creating a new Primary record for ",ONCONM Line Location: A+1
Function Call: WRITE	Prompt: ! Line Location: NAN+5
Function Call: WRITE	Prompt: !!?5,"ACCESSION YEAR must be 4 digits!" Line Location: NAN+7
Function Call: WRITE	Prompt: ! Line Location: ASK+0
Function Call: WRITE	Prompt: !!?10,"OUT of ACCESSION Numbers for "_YR Line Location: NR+1
Function Call: WRITE	Prompt: ! Line Location: KLN+4
Routine Call	DIC Line Location: LOOK1+5
Routine Call	DIE Line Location: DIE+3
Routine Call	DIR Line Location: A2+5 NAN+5 ASK+6

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

Name	Line Occurrences (* Changed, ! Killed)
^ONCO(165.5 - [#165.5]	A2+1, A+8, A+9, NAN+4, NAN+8*, NA+1, LOCK, NR

Name	Field # of Occurrence
^(7	A+8*

Name	Field # of Occurrence
AC	NAN+8, NAN+9, AC, AC+1, DIE+2, NR*, PID+1, KILL+1!
ACN	DIE+2*, KILL+1!
DA	DIE, KLN+1, KLN+2*, KLN+3, KILL+1!
DIC	LOOK1+1!, LOOK1+2, LOOK1+5!, A+2, A+6!, KILL+1!
DIC("A"	LOOK1+3*
DIC("DR"	A+4*
DIC("S"	LOOK1+4*
DIC(0	LOOK1+2, A+2
DIE	DIE*, KILL+1!
DIK	KLN+1*, KILL+1!
DIR	A2+4!, NAN+1!, KILL+1!
DIR("?"	ASK+3, ASK+4, ASK+5*
DIR("A"	A2+5, NAN+2, ASK+1*
DIR("B"	A2+5, NAN+3, ASK+2*
DIR(0	A2+5, NAN+2, ASK+1*
DO	A!
DR	DIE+1*, KILL+1!
DT	NAN+3
DTIME	KLN+2
IOF	EN+2
MR	NA, NA+3, NA+4, FND+1, NR, KILL+2!
NR	NA+1, NA+2, NA+3, NA+4, AC, FND+1, NR, KILL+2!
ONCOACN	PID+1*, CLEANUP+1!
ONCOD0	LOOK1+6, A+8, A+9, CLEANUP+1!
ONCOD0P	A2+4!, A+7*, A+9, NAN+6, DIE, LOCK
ONCONM	EN+4, A+1, CLEANUP+1!
ONCOPN	LOOK1+1!, LOOK1+6*
ONCOSIT	LOOK1+1!, LOOK1+6*, A+3
SEQ	NAN+9, AC, DIE+2, NR*, PID+1, KILL+2!
U	LOOK1+6, A+8, NAN+6, KLN+3
X	LOOK1+6, LOOK1+7, A+3, A+6!, KILL+2!
XD0	LOOK1+6*, KILL+2!
XR	NA*, NA+1, KILL+2!
XX	LOOK1+6*, KILL+2!
Y	LOOK1+5, LOOK1+6, A2+6, A+6, A+7, A+8, NAN+4, NAN+6, NAN+7, NAN+8 , NAN+9, NA+3, LOCK, ASK+6, NR, NR+1, PID+1, KLN+1, EX+1*, CLEANUP+1!
YR	NAN+8*, NA, AC, FND+1, NR+1, KILL+2!