Routine: FHNUT

Package	Total	Caller Graph
Dietetics	1	FHNU12

Entry Points

Name	Comments	DBIA/ICR reference
A
R2
STOR
EN1	; Enter Data
ADD	; Add the new entry
KIL
CALC	; Read in Food Nutrient and Calculate 100 gms

Name	Line Occurrences
Function Call: READ	Prompt: "Food Nutrient Name: " Formatting: !! Timeout: DTIME Variable: TIT Line Location: EN1+2
Function Call: WRITE	Prompt: *7," ??" Line Location: EN1+2
Function Call: WRITE	Prompt: !!," USDA Handbook Values Not Editable" Line Location: EN1+5
Function Call: READ	Timeout: DTIME Variable: X Line Location: R2+0
Function Call: WRITE	Prompt: *7,!,"Enter the gram Portion Size.",!,"Enter a number From 1-9999." Line Location: R2+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: ADD+1
Function Call: WRITE	Prompt: *7," Answer YES or NO" Line Location: ADD+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: CALC+1
Function Call: WRITE	Prompt: *7," Required Field." Line Location: CALC+2
Function Call: WRITE	Prompt: *7," Enter a number from 0-99999" Line Location: CALC+3
Function Call: WRITE	Prompt: "... ",A(Z1) Line Location: CALC+4
Routine Call	DIE Line Location: A+2
Routine Call	DIC Line Location: EN1+4

FileNo	Call Tags
^FHNU - [#112]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^FHNU - [#112]	EN1+5, STOR+3, STOR+7, A
^FHNU(0	A*, A+1
^XUSEC("FHMGR"	A+2

Name	Field # of Occurrence
^(2	STOR+7*

Name	Field # of Occurrence
A	STOR!
A(	STOR, STOR+3, STOR+4, STOR+5, STOR+6, CALC+4
>> ANS	STOR, STOR+1, STOR+2, CALC+1
DA	A, A+2!
DD	ADD+3!
>> DEC	CALC+4*
DIC	EN1+1!, EN1+4!, ADD+3!, A+1!
DIC("S"	EN1+3*
DIC(0	EN1+1, ADD+3
>> DIDEL	A+2*
DIE	ADD+3*, A+2!
DLAYGO	ADD+3*, A+1!
DO	ADD+3!
DR	A+2*!
DTIME	EN1+2, R2, ADD+1, CALC+1
>> DTOUT	EN1+4, A+2
DUZ	A+2
>> FHX1	EN1+1, EN1+4, EN1+5, STOR+3, STOR+7, A+1, A+2
>> K	STOR+1, STOR+2, STOR+3, STOR+4, STOR+5, STOR+6
>> L	STOR*
>> POR	R2+2*, STOR+3, CALC+4
>> TIT	EN1+2*, EN1+4, ADD+1, A+1
U	EN1+4
X	EN1+4, R2, R2+1, R2+2, ADD+1, ADD+2, ADD+3!, A+1, CALC+1, CALC+2 , CALC+3, CALC+4
Y	EN1+4, EN1+5, STOR+1, STOR+2, A+1, A+2!, CALC+1
>> Z1	STOR+1, STOR+2, STOR+3*, STOR+7, CALC+4
>> Z2	STOR+3, STOR+4, STOR+7
>> Z3	STOR+3, STOR+5, STOR+7
>> Z4	STOR+3, STOR+6, STOR+7

Name	Field # of Occurrence
$T(COM+K^FHNU6	STOR+1, STOR+2