Routine: ONCOFLF

Information

ONCOFLF ;HINES OIFO/GWB - FOLLOWUP LETTER FUNCTIONS ;11/1/93

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
VA FileMan	6	(,IX)^DIC FILE^DICN ^DIE ^DIK EN1^DIP ^DIR
Oncology	2	DAC^ONCOFDP ^ONCOXPC

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 7

Package	Total	Caller Graph
Oncology	7	FOLLOW-UP ATTEMPTS ONCO FOLL-ADD/EDIT LETTER ONCO FOLL-UPDATE CONTACT FILE ONCO UPDATE PHYSICIAN CONTACTS ONCO UTIL-EDIT ACOS FILE ^ONCO(165.5 SUBSEQUENT COURSE OF TREATMENT

Entry Points

Name	Comments	DBIA/ICR reference
AED	;[EL Add/Edit Follow-up Letter]
UP	;[UP Update Contact File]
1	;Edit
2	;Delete
3	;Print
A	;Alphabetic
T	;By Type
4	;Cleanup
UPHYCON	;Add/Edit/Update Physician contact
ADDPC	;
ENTNPI
EDPC	;
DELPC	;
EX	;Exit
HP	;THE CONTACT (160.06,2) EXECUTABLE HELP
EEACOS	;[AC Enter/Edit Facility file]
EDIT	;Edit FACILITY file (160.19)
ADD	;Add new FACILITY file (160.19) entry
HELP	;EXCUTABLE HELP to display next available local FACILITY number

External References

Name	Field # of Occurrence
^DIC	1+5, 2+4, EDPC+3, DELPC+4, EDIT+1
IX^DIC	AED+4
FILE^DICN	ENTNPI+19, ADD+10
^DIE	AED+6, 1+6, EDPC+6, EDIT+4, ADD+11
^DIK	2+6, DELPC+6
EN1^DIP	A+2, T+2
^DIR	UP+5, 3+4, UPHYCON+6, ADDPC+2, ENTNPI+6, ENTNPI+15, EEACOS+7, ADD+8
DAC^ONCOFDP	4+3
^ONCOXPC	HP+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: AED+1
Function Call: WRITE	Prompt: @IOF,!?15,"************* UPDATE CONTACT FILE *************" Line Location: UP+1
Function Call: WRITE	Prompt: ! Line Location: 1+1
Function Call: WRITE	Prompt: ! Line Location: 2+1
Function Call: WRITE	Prompt: !!?10,"You may only delete contacts which are not being used." Line Location: 2+5
Function Call: WRITE	Prompt: !!?10,"Deleting Contact ",Y(0,0) Line Location: 2+6
Function Call: WRITE	Prompt: @IOF,?15,"********** Cleanout Unused Contacts *********",!! Line Location: 4+2
Function Call: WRITE	Prompt: !!!?15,"***** ADD/UPDATE PHYSICIAN CONTACT *************" Line Location: UPHYCON+2
Function Call: WRITE	Prompt: ! Line Location: ADDPC+2
Function Call: WRITE	Prompt: !,"*** NOTE: '",ONCPHYNM,"' ALREADY IN CONTACT FILE - USE EDIT OPTION" Line Location: ADDPC+6
Function Call: WRITE	Prompt: ! Line Location: ENTNPI+0
Function Call: WRITE	Prompt: !,"NPI MUST BE 10 DIGITS" Line Location: ENTNPI+9
Function Call: WRITE	Prompt: !!?6,"Adding to physician contacts:",!,?8,"Name: ",ONCPHYNM," NPI: ",ONCNPIVL Line Location: ENTNPI+14
Function Call: WRITE	Prompt: ! Line Location: ENTNPI+15
Function Call: WRITE	Prompt: ! Line Location: DELPC+1
Function Call: WRITE	Prompt: !!?10,"You may only delete contacts which are not being used." Line Location: DELPC+5
Function Call: WRITE	Prompt: !!?10,"Deleting Contact ",Y(0,0) Line Location: DELPC+6
Function Call: WRITE	Prompt: ! Line Location: HP+3
Function Call: WRITE	Prompt: ! Line Location: EEACOS+1
Function Call: WRITE	Prompt: !,?3,"E Edit an existing entry" Line Location: EEACOS+2
Function Call: WRITE	Prompt: !,?3,"A Add a new entry" Line Location: EEACOS+3
Function Call: WRITE	Prompt: ! Line Location: EEACOS+4
Function Call: WRITE	Prompt: ! Line Location: EDIT+1
Function Call: WRITE	Prompt: ! Line Location: EDIT+4
Function Call: WRITE	Prompt: !!,"NEXT AVAILABLE LOCAL FIN NUMBER IS ",NEWIEN,"." Line Location: ADD+4
Function Call: WRITE	Prompt: ! Line Location: ADD+5
Function Call: WRITE	Prompt: ! Line Location: ADD+11
Function Call: WRITE	Prompt: ! Line Location: HELP+4
Function Call: WRITE	Prompt: !?3,"If you wish to add a new facility, enter either the 7-digit" Line Location: HELP+5
Function Call: WRITE	Prompt: !?3,"(6020009-6953290) or 8-digit (10000000+) assigned COC FIN" Line Location: HELP+6
Function Call: WRITE	Prompt: !?3,"number." Line Location: HELP+7
Function Call: WRITE	Prompt: ! Line Location: HELP+8
Function Call: WRITE	Prompt: !?3,"If the new facility does not have an assigned COC FIN number," Line Location: HELP+9
Function Call: WRITE	Prompt: !?3,"use the next available local FIN number.",! Line Location: HELP+10
Function Call: WRITE	Prompt: !?3,"THE NEXT AVAILABLE LOCAL FIN NUMBER IS ",NEWIEN,".",! Line Location: HELP+11
Routine Call	DIC Line Location: 1+5 2+4 EDPC+3 DELPC+4 EDIT+1
Routine Call	DIC Line Location: AED+4
Routine Call	DIE Line Location: AED+6 1+6 EDPC+6 EDIT+4 ADD+11
Routine Call	DIR Line Location: UP+5 3+4 UPHYCON+6 ADDPC+2 ENTNPI+6 ENTNPI+15 EEACOS+7 ADD+8

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ONCO(160.19 - [#160.19]	Classic Fileman Calls
^ONCO(165 - [#165]	Classic Fileman Calls
^ONCO(165.1 - [#165.1]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ONCO(160 - [#160]	2+5, DELPC+5
^ONCO(160.19 - [#160.19]	ADD+1, ADD+2, HELP+1, HELP+2
^ONCO(165 - [#165]	2+5, ADDPC+6, ENTNPI+10, ENTNPI+12, ENTNPI+13, DELPC+5

Label References

Name	Line Occurrences
1	1+6
2	2+5, 2+6
@(	UP+6, 3+5
ADD	EEACOS+10
ADDPC	UPHYCON+8
AED	AED+7
DELPC	UPHYCON+10, DELPC+5, DELPC+6
EDIT	EEACOS+11, EDIT+5
EDPC	UPHYCON+9
EEACOS	EEACOS+9, EEACOS+10
ENTNPI	ENTNPI+9
EX	AED+4, UP+6, 2+4, 3+5, A+3, T+3, UPHYCON+7, ADDPC+3, ENTNPI+7, EDPC+3 , DELPC+4, EEACOS+8, EEACOS+10, EEACOS+11
UP	1+5, 1+6
UPHYCON	ENTNPI+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADDED	EX+1!, EEACOS+10, ADD+12
BY	A+1, T+1, EX+1!
D	AED+3*, EX+1!
DA	AED+5, 1+5, 2+6, EDPC+4, DELPC+6, EX+1!, EDIT+3, ADD+11*
DC	AED+5!
DD	ADD+9!
DIA	AED+6*, EX+1!
DIA("P"	AED+6*
DIA(1	AED+6*
DIC	AED+2, AED+5, AED+6, 1+2, 2+2, 2+6, A+2, T+2, ENTNPI+17, EDPC+1* , EDPC+3!, DELPC+2, DELPC+6, EX+1!, HP+1!, EDIT+1, ADD+10*!
DIC("A"	AED+3, EDPC+2
DIC("DR"	ENTNPI+18*
DIC("S"	EDPC+2, DELPC+3
DIC(0	AED+3, 1+3, 2+3, ENTNPI+17, EDPC+1, EDPC+5, DELPC+3, EDIT+1, ADD+10*
DIE	AED+5, 1+2, EDPC+5, EX+1!, EDIT+1, ADD+11!*
DIK	2+6, DELPC+6, EX+1!
DIOT	HP+1!
DIR	UP+2!, 3+1!, UPHYCON+3!, ADDPC+2!, ENTNPI!, ENTNPI+15!, EX+1!, EEACOS+4!, ADD+6!
DIR("?"	ENTNPI+1, ENTNPI+2, ENTNPI+3, ENTNPI+4, ENTNPI+5, EEACOS+6
DIR("A"	UP+3, 3+2, UPHYCON+4, ADDPC+2, ENTNPI, ENTNPI+15, EEACOS+5, ADD+7
DIR("B"	ENTNPI+15, ADD+7
DIR(0	UP+4, 3+3, UPHYCON+5, ADDPC+2, ENTNPI, ENTNPI+15, EEACOS+5, ADD+7
DIROUT	UP+6, 3+5, UPHYCON+7, ADDPC+3, ENTNPI+7, EX+1!
DIRUT	UP+6, 3+5, UPHYCON+7, ADDPC+3, ENTNPI+7, EX+1!, EEACOS+8, ADD+8
DLAYGO	AED+2, 1+4, EX+1!, EDIT+1*, ADD+10!
DO	ADD+9!, ADD+10!
DR	AED+5, 1+6, EDPC+6, EX+1!, EDIT+4, ADD+11*
DTOUT	UP+6, 3+5, UPHYCON+7, ADDPC+3, ENTNPI+7, EX+1!
DUOUT	UP+6, 3+5, UPHYCON+7, ADDPC+3, ENTNPI+7, EX+1!
DXS	HP+1!
FIEN	EX+2!, ADD+1, ADD+2, HELP+1, HELP+2
>> IENZZ	ENTNPI+12*, ENTNPI+13
IOF	UP+1, 4+2
L	A+1, A+2, T+1, T+2, EX+2!
LIEN	EX+2!, ADD+2, HELP+2
NEWIEN	EX+2!, ADD+1, ADD+3, ADD+4, ADD+10, HELP+1, HELP+3, HELP+11
ONCNPIVL	ADDPC+1~, ENTNPI+8*, ENTNPI+9, ENTNPI+10, ENTNPI+11, ENTNPI+12, ENTNPI+14
ONCPHYNM	ADDPC+1~, ADDPC+5*, ADDPC+6, ENTNPI+14, ENTNPI+17
OP	EX+2!
TMP	EX+2!, ADD+2, ADD+3, HELP+2, HELP+3
X	ADDPC+4, ADDPC+5, ENTNPI+8, ENTNPI+17, EX+2!, ADD+2, ADD+10, HELP+2*
Y	AED+4, AED+5, AED+6, UP+6, 1+5, 1+6, 2+4, 2+5, 2+6, 3+5 , UPHYCON+8, UPHYCON+9, UPHYCON+10, ENTNPI+16, EDPC+3, EDPC+4, DELPC+4, DELPC+5, DELPC+6, EX+2! , EEACOS+9, EEACOS+10, EEACOS+11, EDIT+2, EDIT+3, ADD+8, ADD+11
Y(0	2+6, DELPC+6

Customize PDF page

Package: Oncology

Routine: ONCOFLF

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: