Routine: FHNO5

Package	Total	Call Graph
Dietetics	5	(DTP,TR)^FH (LIS,OIS,SF)^FHNO7 ^FHOMDPA (,OPFILE)^FHORX CHK^FHSPED
VA Fileman	2	NOW^%DTC ^DIC
Kernel	1	KILL^XUSCLEAN

Package	Total	Caller Graph
Dietetics	4	FHNO1E FHNO7 FHORD72 FHORT11

Entry Points

Name	Comments	DBIA/ICR reference
S1
S0
CAN	; Cancel SF
SFOUT	;outpt SF
CAD	;
G6
G5
G4
G3
G2
G1
A0
R1
ASK
EVNT
CANOUT	; Cancel outpt SF
ASK0	;ask Rec Meal
UPD
ADD	; Add SF
PR1
ALL
UPDOUT
MS1
ADDOUT	; Add outpt SF
KIL
SFA

External References

Name	Field # of Occurrence
NOW^%DTC	FHNO5+3
^DIC	A0+4, SFA+7, G2+3
DTP^FH	EVNT+1, EVNT+2, PR1+2
TR^FH	A0, R1+4
LIS^FHNO7	S0, PR1+11
OIS^FHNO7	S1+6
SF^FHNO7	SFOUT+2
^FHOMDPA	ASK
^FHORX	ADD+9, CAN+5
OPFILE^FHORX	EVNT+3, EVNT+4
CHK^FHSPED	MS1+5
KILL^XUSCLEAN	KIL

Interaction Calls

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: X Line Location: A0+0
Function Call: WRITE	Prompt: !!,"Return for OUTPATIENT or 'C' for CURRENT Admission: " Line Location: A0+0
Function Call: WRITE	Prompt: !!,"Supplemental Feeding Menu: " Line Location: SFA+1
Function Call: WRITE	Prompt: OLD," // " Condition for execution: NM Line Location: SFA+1
Function Call: WRITE	Prompt: " .. cancelled" Line Location: SFA+6
Function Call: READ	Timeout: DTIME Variable: X Line Location: G2+0
Function Call: WRITE	Prompt: *7," .. DUPLICATE OF EXISTING ITEM!" Line Location: G2+4
Function Call: READ	Timeout: DTIME Variable: X Line Location: G4+0
Function Call: WRITE	Prompt: *7," ??" Line Location: G4+2
Function Call: WRITE	Prompt: !?5,"Enter a whole number between 1 and 20" Line Location: G4+3
Function Call: READ	Timeout: DTIME Variable: Y Line Location: G6+1
Function Call: WRITE	Prompt: *7,!?5," Answer D for Dietary use or T for Therapeutic use" Line Location: G6+3
Function Call: WRITE	Prompt: !,"NO OUTPATIENT DATA ON FILE for today's date and the future!!" Line Location: SFOUT+3
Function Call: WRITE	Prompt: !!,"There is no outpatient data for this Meal!!" Line Location: R1+14
Function Call: WRITE	Prompt: !!,"There is no outpatient data for this Meal!!" Line Location: R1+15
Function Call: WRITE	Prompt: *7,!,"Select B for Breakfast, N for Noon, E for Evening or ALL for all meals",!,"Answer may be multiple meals, e.g., BN or NE" Line Location: MS1+0
Function Call: WRITE	Prompt: !!,"There is no outpatient data for this Meal!!" Line Location: MS1+3
Function Call: WRITE	Prompt: !," .. cancelled" Line Location: PR1+7
Routine Call	DIC Line Location: A0+4 SFA+7 G2+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^FHPT - [#115]	Classic Fileman Calls
^FH(118 - [#118]	Classic Fileman Calls
^FH(118.1 - [#118.1]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	ASK+2
^DPT("CN"	A0+3
^FH(118 - [#118]	G1+5
^FH(118.1 - [#118.1]	SFA, S1+1, ADDOUT+10
^FH(119.6 - [#119.6]	PR1+6
^FHPT - [#115]	A0+1, ADD+3, ADD+4, ADD+5, ADD+6, ADD+7, ADD+8, UPD+1, CAN+3, CAN+4* , ASK0+4, PR1+1, PR1+2, PR1+3, PR1+6, PR1+12, CAD+2, CAD+3, ADDOUT+1, ADDOUT+2 , ADDOUT+3, ADDOUT+4, ADDOUT+5, ADDOUT+9, UPDOUT, CANOUT+1, CANOUT+2
^FHPT("RM"	ASK0+3

Label References

Name	Line Occurrences
A0	A0+4
ADD	S1+6, S1+7, ADD+6, PR1+4
ADDOUT	ADD+2, ADDOUT+5
ALL	MS1+6
ASK	ASK+3, A0+1, A0+2, A0+5, A0+7
ASK0	SFOUT+4
CAD	PR1+10
CAN	SFA+6, S1+6, S1+7, G5+1, G6+5, PR1+4, PR1+7
CANOUT	CAN+2
EVNT	MS1+4, MS1+7
G1	G2+1, G2+2, G4+1, G4+4, G4+5
G2	G2+3, G2+4
G3	G2+1
G4	G4+3
G5	G1, G1+1, G2, G4
G6	G6+3
KIL	ASK+1, A0, SFA+2
MS1	R1+3, R1+5, R1+13
PR1	MS1+4, MS1+7, ALL+2
R1	R1+14, R1+15, MS1, MS1+3
S0	A0+3, A0+6
S1	SFA+5, PR1+9, PR1+14
SFA	SFA+7, PR1+13
SFOUT	ASK+3, A0+2
UPD	S1+7, G6+5
UPDOUT	UPD

Naked Globals

Name	Field # of Occurrence
^(0	ADD+5, CAN+3, ADDOUT+4*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	FHNO5+3
ADM	ASK, ASK+4!, A0+3, A0+4, A0+5, ADD+3, ADD+4, ADD+5, ADD+6, ADD+7 , ADD+8, UPD+1, CAN+3, CAN+4, PR1, PR1+1, PR1+2, PR1+3, PR1+6, PR1+12 , CAD+2, CAD+3, ADDOUT+1, ADDOUT+2, ADDOUT+3, ADDOUT+4, ADDOUT+5, ADDOUT+9, UPDOUT, CANOUT+1 , CANOUT+2
DFN	ASK!, ASK+2, A0+3
DIC	ASK!, A0+4, SFA!, SFA+7!, S1+8*
DIC("A"	G1+4, G1+5, G2
DIC("S"	S1+8*
DIC(0	A0+4, SFA, S1+8*
DT	ASK0+3, MS1+4, ALL, ALL+1
DTIME	A0, SFA+1, G2, G4, G6+1, R1
>> DTP	EVNT+1, EVNT+2, PR1+2*
DUZ	S1+1, UPD+1, CAN+4, UPDOUT, CANOUT+2
>> EVT	ADD+9, CAN+5
>> FH1	R1, R1+14, R1+15*
>> FHACT	EVNT+3, EVNT+4
>> FHADSFF	R1, EVNT+4, ADDOUT+11
>> FHALL	ASK*
>> FHALML	R1+6, R1+7, EVNT+3, EVNT+4
>> FHCFLG	CAD+1, CAD+3
FHCK	ASK0+1!
FHCK(	R1+8, R1+9, R1+10*
FHCK("B"	R1+11*
FHCK("E"	R1+11*
FHCK("N"	R1+11*
>> FHCNSFF	R1, EVNT+3, CANOUT+3
>> FHCT	ALL, ALL+1
FHDFN	ASK!, ASK+1, A0+1, ADD+3, ADD+4, ADD+5, ADD+6, ADD+7, ADD+8, UPD+1 , CAN+3, CAN+4, ASK0+3, ASK0+4, PR1+1, PR1+2, PR1+3, PR1+6, PR1+12, CAD+2 , CAD+3, ADDOUT+1, ADDOUT+2, ADDOUT+3, ADDOUT+4, ADDOUT+5, ADDOUT+9, UPDOUT, CANOUT+1, CANOUT+2
FHDM14	ASK0+1!, ASK0+17
FHDM14(	ASK0+11*, ASK0+12, ASK0+14, ASK0+15, ASK0+16, MS1+7, ALL+1, ALL+2
>> FHDMDAT	MS1+4, MS1+7, ALL+2*, PR1
FHDMIEN	ASK0+1!
FHDMIEN(	ASK0+14, ASK0+15, ASK0+16*, MS1+4
>> FHDT1	MS1+7, ALL, ALL+1, EVNT+1
>> FHDT2	MS1+7, ALL, ALL+1, EVNT+2
>> FHDTC	R1, PR1+2
>> FHDTE	PR1*
>> FHDTML	R1, R1+1, R1+2, R1+3, R1+4, R1+5, R1+7, R1+8, R1+9, R1+10 , R1+11, R1+12, R1+14, R1+15, MS1+1*, MS1+3, MS1+4, MS1+5, MS1+6, MS1+7
>> FHDTP	EVNT, EVNT+1, EVNT+2, EVNT+3, EVNT+4, PR1+2
>> FHDTSV	ALL, ALL+1
FHFLG	ASK0+1!, MS1+2*, MS1+6, MS1+7
>> FHI	ASK0+3, ASK0+11, ASK0+12, ASK0+14, ASK0+15, ASK0+16, MS1+4, MS1+7, ALL+1*, ALL+2
>> FHIDFLG	ASK*, PR1+4
FHIEN	ASK0+1!
FHIEN(	ASK0+14, ASK0+15, ASK0+16*
>> FHJ	ASK0+3, ASK0+4, ASK0+11, ASK0+13, ASK0+14, ASK0+15, ASK0+16, ALL+2*
>> FHKK9	S1+5, S1+6, PR1+4
>> FHLIS	MS1+2, PR1+12, PR1+13, PR1+14
FHLOC	SFOUT+1!, PR1+6*
FHLOCN	SFOUT+1!, R1, EVNT+3, EVNT+4, PR1+5, PR1+6*
>> FHMEAL	ASK, S1+3, S1+4, S1+5, G1+1, PR1+3, PR1+4, ADDOUT+1*, ADDOUT+6, ADDOUT+7 , ADDOUT+8
>> FHML	ASK0+6*, ASK0+8, ASK0+9, ASK0+10, ASK0+11
>> FHN	ASK0+7, ASK0+8, ASK0+9, ASK0+10, ASK0+11, ASK0+13, ASK0+14, ASK0+15, ASK0+16, MS1+7 , ALL+1*, ALL+2
FHNMSAV	SFA+3, SFA+8, SFOUT+1!, PR1+9, PR1+14, ADDOUT+10
>> FHNNSV	SFA*
>> FHOPDAT	ASK0+4*, ASK0+5, ASK0+6
>> FHPNNSV	ASK*, S1+6, PR1+4
FHPTNM	ASK!
>> FHQ	R1, R1+3, R1+5, R1+8, R1+9, R1+10, R1+12*, R1+13, MS1
FHSFLG	SFOUT+1!, SFOUT+3
>> FHSFMEN	R1, EVNT+4, PR1+5, ADDOUT+1, ADDOUT+10
>> FHSFQT9	S1+6, PR1+4
>> FHTOTML(	R1+14, R1+15, MS1+3, MS1+4, MS1+5
>> FHTOTML("A"	ASK0+2*
>> FHTOTML("B"	ASK0+2, ASK0+14
>> FHTOTML("E"	ASK0+2, ASK0+16
>> FHTOTML("N"	ASK0+2, ASK0+15
>> FHTXT	EVNT+3, EVNT+4
>> FHX	R1, R1+4, R1+6
FHXSAV	SFA+4*, SFOUT+1!, PR1+7
>> K1	G2+3*, G2+4
>> KK	S1+1, S1+4, G1, G1+1, G1+2, G1+3, G2+1, G2+2, G2+3, G2+4 , G4+1, G4+4, G4+5, G5
>> L	G2+4*
>> NM	SFA, SFA+1, SFA+3, SFA+5, SFA+7, SFA+8, S1, S1+1, S1+6, S1+7 , PR1+14
>> NO	ADD+5, ADD+6, ADD+7, ADD+8, ADD+9, UPD+1, CAN+3, CAN+4, CAN+5, PR1+12 , CAD+2, CAD+3, ADDOUT+4, ADDOUT+5, ADDOUT+9, UPDOUT, CANOUT+1*, CANOUT+2
>> NOW	FHNO5+3*, S1+1, UPD+1, CAN+4, UPDOUT, CANOUT+2
OLD	SFA, SFA+1, G1+5, G2+1, G2+2, G2+5, G3*, G4, G4+1, SFOUT+1!
>> P1	G1+3, G1+5, G2+2, G2+5, G3, G4+1, G4+4, G4+5, G5, G6+1*
>> PNN	S1+1, S1+6, S1+7, G1+5, G2+2, G2+4, G2+5, G3, G4+1, G4+4 , G4+5, G5, G6+1, G6+4, ADD+7, PR1+4, ADDOUT+6, ADDOUT+7, ADDOUT+8, ADDOUT+9
>> PNO	S0, S1+1, S1+7, G6+5, PR1+5, PR1+11, PR1+12
>> T1	S1+3, G1+2, G1+4, G4, G5*
>> T2	G1+3, G1+4, G4, G5
U	ASK0+5, ASK0+6, ASK0+11, PR1, PR1+2, PR1+3, PR1+6, ADDOUT+1, ADDOUT+6, ADDOUT+7 , ADDOUT+8, ADDOUT+10
>> WARD	ASK+2, ASK+3, A0+3, S1+2, S1+6, G1+1, G1+2, G6, ADD+1, ADD+2 , UPD, CAN+1, CAN+2, PR1+5
X	ASK!, A0, A0+1, A0+2, A0+3, SFA+1, SFA+2, SFA+4, SFA+5, SFA+6 , G2, G2+1, G2+2, G4, G4+1, G4+2, G4+3, G4+4, G4+5, G5* , G5+1, G6+4, G6+5, ADD+5, SFOUT+1!, R1+4, PR1+8, ADDOUT+4
Y	ASK!, A0+4, S0, SFA+7, G2+3, G2+4, G2+5, G6+1, G6+2*, G6+3 , G6+4, PR1+11

Customize PDF page

Package: Dietetics

Routine: FHNO5

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: