Routine: ONCOAIS

Package	Total	Call Graph
Oncology	1	$$SETTS^ONCOU55
VA FileMan	1	^DIE

Entry Points

Name	Comments	DBIA/ICR reference
PRI	;TUMOR STATUS - from template [ONCO FOLLOWUP]
FINDEM	;Setup/fetch the tumor status subentries from the primary file
FINDSET	;Find/setup tumor status corresponding to this follow-up
EDITEM	;Edit Tumor Status for each primary during a follow-up
EDITONE	;CANCER STATUS (165.573,.02)
TEMP451	;Point of entry from input template [ONCO FOLLOWUP]

Name	Field # of Occurrence
^DIE	EDITONE+9
$$SETTS^ONCOU55	FINDSET+3

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Patient has no primary registered",!! Line Location: PRI+5
Function Call: WRITE	Prompt: !!,"Updating CANCER STATUS for "_$P($G(^ONCO(164,+$P($G(^ONCO(165.5,DA(1),2)),U),0)),U)_"..." Line Location: EDITONE+7
Function Call: WRITE	Prompt: ! Line Location: EDITONE+15
Function Call: WRITE	Prompt: ! Line Location: EDITONE+18
Function Call: WRITE	Prompt: ! Line Location: EDITONE+21
Function Call: WRITE	Prompt: !,"This primary is being edited by another user." Line Location: EDITONE+24
Routine Call	DIE Line Location: EDITONE+9

Name	Line Occurrences (* Changed, ! Killed)
^ONCO(160 - [#160]	FINDEM+2
^ONCO(164 - [#164]	EDITONE+7
^ONCO(165.5 - [#165.5]	PRI+1, FINDEM+3, FINDEM+5, FINDEM+6, FINDSET+1, FINDSET+2, EDITONE+4, EDITONE+5, EDITONE+7, EDITONE+9

Name	Field # of Occurrence
%	EDITONE+8~
DA	FINDEM+2, EDITONE+2~, EDITONE+3*
DA(1	PRI+1, PRI+2, PRI+4, FINDEM+2, FINDEM+3, EDITEM+2, EDITONE+3, EDITONE+4, EDITONE+5, EDITONE+6 , EDITONE+7, EDITONE+9
DATEDX	FINDEM+4~, FINDEM+6*, FINDEM+7
DC	EDITONE+8~
DG	EDITONE+8~
DH	EDITONE+8~
DI	EDITONE+8~
DIC	EDITONE+8~
DIE	EDITEM+1~, EDITONE+6*
DIE("NO^"	EDITEM+3*
DIEL	EDITONE+8~
DK	EDITONE+8~
DL	EDITONE+8~
DM	EDITONE+8~
DP	EDITONE+8~
DQ	EDITONE+8~
DR	EDITEM+1~, EDITEM+4, EDITONE+1, EDITONE+4*
DUZ(2	EDITONE+5
FOLDAT	FINDEM+1~, FINDEM+2*, FINDEM+7, FINDSET+1, FINDSET+3
K	PRI+2~, FINDEM+2, FINDSET+4, EDITEM+5
KK	EDITEM+1~, EDITEM+5*, EDITONE+3
>> ONCOVS	TEMP451+1*
PRIMIEN	FINDEM+1~, FINDEM+2, FINDEM+3, FINDEM+5, FINDEM+6, FINDSET+1, FINDSET+2, FINDSET+3, FINDSET+4
Q	EDITEM+1~, EDITEM+2*
TOPOG	FINDEM+4~, FINDEM+5*, FINDEM+7
TSIEN	FINDEM+4~, FINDSET+1~, FINDSET+2, FINDSET+3, FINDSET+4
U	FINDEM+2, FINDEM+5, FINDEM+6, FINDSET+4, EDITONE+3, EDITONE+5, EDITONE+7
>> VS	TEMP451+1*
X	EDITONE+8~, TEMP451+1
XD0	EDITEM+1~, EDITEM+2*
XDA1	PRI+2~*, PRI+4
XY	PRI+2~
XY(	FINDSET+4*, EDITONE+3
Y	EDITONE+8~, TEMP451+3*