Routine: FHASS

Package	Total	Call Graph
Dietetics	3	^FHASS1 ^FHASS2 ^FHDPA
VA Fileman	1	^%DT

Package	Total	Caller Graph
Dietetics	2	FHASS FHASS1

Entry Points

External References

Name	Field # of Occurrence
^%DT	FHASS+9
^FHASS1	F11+1
^FHASS2	F11+1
^FHDPA	F1+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,@FHZRVN,!!?18,"N U T R I T I O N A L A S S E S S M E N T",?78,"",@FHZRVF,!! Line Location: FHASS+9
Function Call: WRITE	Prompt: *7,!!?5,"Calories may be inaccurate for ages less than 18!" Line Location: F1+3
Function Call: READ	Prompt: "Height in Inches: " Formatting: !! Timeout: DTIME Variable: HGT Line Location: F4+0
Function Call: WRITE	Prompt: *7," Valid range is 30-90" Line Location: F4+0
Function Call: READ	Prompt: "Weight in Pounds: " Formatting: ! Timeout: DTIME Variable: WGT Line Location: F5+0
Function Call: WRITE	Prompt: *7," Valid range is 60-400" Line Location: F5+0
Function Call: READ	Timeout: DTIME Variable: UWGT Line Location: F50+0
Function Call: WRITE	Prompt: !,"Usual Weight in Pounds: ",WGT," // " Line Location: F50+0
Function Call: WRITE	Prompt: *7," ??" Line Location: F50+0
Function Call: READ	Timeout: DTIME Line Location: F51+0
Function Call: WRITE	Prompt: *7," ??" Line Location: F51+0
Function Call: READ	Prompt: "Is Patient an In-Patient? (Y/N): " Formatting: ! Timeout: DTIME Variable: TYP Line Location: TYP+0
Function Call: WRITE	Prompt: *7," ??" Line Location: TYP+0
Function Call: READ	Prompt: "Does Patient have an Amputation? NO// " Formatting: ! Timeout: DTIME Variable: AMP Line Location: F7+0
Function Call: WRITE	Prompt: !!,"Amputee Types: (may be multiple, e.g: 2,2,5)",!!?2,"1 Upper Leg (11.6%)",?40,"5 Hand (0.8%)",!?2,"2 Below Knee (5.8%)",?40,"6 Forearm (2.3%)" Line Location: F71+0
Function Call: WRITE	Prompt: !?2,"3 Above Knee (8.4%)",?40,"7 Upper Arm (3.6%)",!?2,"4 Foot (1.8%)" Line Location: F71+1
Function Call: READ	Prompt: "Type: " Formatting: !!?2 Timeout: DTIME Variable: X Line Location: F8+0
Function Call: WRITE	Prompt: *7," ?? Enter digits 1-7 separated by commas" Line Location: F81+0
Function Call: WRITE	Prompt: !!,"Comparison with IBW indicates need for ",$S(OPT="M":"MAINTENANCE",OPT="L":"WEIGHT LOSS",1:"WEIGHT GAIN") Line Location: F9+1
Function Call: READ	Timeout: DTIME Variable: XX Line Location: F10+0
Function Call: WRITE	Prompt: *7," Enter G, L, or M" Line Location: F10+1
Function Call: READ	Prompt: "Do you wish Lab/Skinfold Assessment? NO// " Formatting: !! Timeout: DTIME Variable: EXT Line Location: F11+0
Function Call: WRITE	Prompt: *7," ??" Line Location: F11+0
Function Call: READ	Prompt: "Enter Patient's Name: " Formatting: !! Timeout: DTIME Variable: NAM Line Location: PAT+0
Function Call: WRITE	Prompt: *7,!?5,"Enter Patient's Name to be printed on the report." Line Location: PAT+1
Function Call: READ	Prompt: "Sex: " Formatting: ! Timeout: DTIME Variable: SEX Line Location: P1+0
Function Call: WRITE	Prompt: *7," Enter M or F" Line Location: P1+0
Function Call: READ	Prompt: "Age: " Formatting: ! Timeout: DTIME Variable: AGE Line Location: P2+0
Function Call: WRITE	Prompt: !?5,"Enter Age in years between 18 and 124" Line Location: P2+0

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%IS	KIL+1!
A1	F51+1*, F51+2, F51+3, KIL+1!
A2	KIL+1!
A3	KIL+1!
ACT	KIL+1!
AF	KIL+1!
AGC	KIL+1!
AGE	F1+1, F1+2, F1+3, KIL+1!, P2*
ALL	F1+1*, KIL+1!
AMP	F7, F7+1, F8*, F8+1, KIL+1!
>> AUPNLK("ALL"	F1+1*!
BEE	KIL+1!
DFN	F1+1, KIL+1!
DT	FHASS+9*, F1+2
DTIME	F4, F5, F50, F51, TYP, F7, F8, F10, F11, PAT , P1, P2
DTP	KIL+1!
EXT	F11, F11+1, KIL+1!
FF	KIL+1!
>> FHNULL	FHASS+5*
>> FHZRVF	FHASS+5, FHASS+6, FHASS+9
>> FHZRVN	FHASS+4, FHASS+5, FHASS+6, FHASS+9
FRM	F51, F51+1, KIL+1!
HGT	F4*, F51+2, F51+3, KIL+1!
IBW	F51+2, F51+3, F8+1*, F9, KIL+1!
IF	KIL+1!
IOF	FHASS+9
IOST(0	FHASS+6
J	KIL+1!
K	F8*, KIL+1!
KCAL	KIL+1!
NAM	F1+1, KIL+1!, PAT, PAT+1
NIT	KIL+1!
OPT	F9, F9+1, F10, F10+2, KIL+1!
POP	KIL+1!
PRO	KIL+1!
Q	KIL+1!
RTE	KIL+1!
SEX	F1+1, F51+2, F51+3, KIL+1!, P1, P1+1*
SXC	KIL+1!
TAB	KIL+1!
TYP	TYP, TYP+1, KIL+1!
U	FHASS+6, F1+1
UWGT	F50*, KIL+1!
WGT	F5*, F50, F9, KIL+1!
X	FHASS+9, F1+1, F8, KIL+1!
XX	F10, F10+1, F10+2, KIL+1!
Y	FHASS+9, F8*, KIL+1!
Y(0	F1+1

Customize PDF page

Package: Dietetics

Routine: FHASS

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
P2
F1	; Select Patient
P1
F4
F5
F50
F51
F8
F9
F7
F81
KIL	; Final variable kill
PAT
F10
F11
TYP
F71

Name	Line Occurrences
F10	F10+1
F11	F11
F4	F4, P2+1
F5	F5
F50	F50
F51	F51
F7	F7
F71	F81
F81	F8
F9	F7+1, F8+1
KIL	F1+1, F4, F5, F50, F51, TYP, F7, F10, F11, F11+1 , PAT, P1, P2
P1	F1+1, P1
P2	P2
PAT	F1+1, PAT+1
TYP	TYP