Routine: FHASS3

Package	Total	Call Graph
Dietetics	1	DTP^FH
VA Fileman	1	^%DT

Package	Total	Caller Graph
Dietetics	1	FHASS1

Entry Points

External References

Name	Field # of Occurrence
^%DT	FHASS3+2
DTP^FH	FHASS3+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,@FHZRVN,!?14,"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: FHASS3+2
Function Call: WRITE	Prompt: !!,NAM,?32,$S(SEX="F":"Female",1:"Male"),?45,"Age ",AGE,?63,DTP Line Location: FHASS3+3
Function Call: WRITE	Prompt: !!,"Weight: ",$J(WGT,3)," lbs.",?20,"%IBW: ",$J(WGT*100/IBW,3,0),?35,"Ideal Wgt: ",$J(IBW,3)," lbs.",?57,"Frame: ",$S(FRM="S":"Small",FRM="M":"Medium",1:"Large") Line Location: FHASS3+4
Function Call: WRITE	Prompt: !!,"** IBW Adjusted for Amputation (",$J(AMP100,0,1),"% of IBW) *" Line Location: FHASS3+6
Function Call: WRITE	Prompt: !!,"Activity Level: ",$S(ACT="S":"Sedentary",ACT="M":"Moderate",1:"High") Line Location: P1+0
Function Call: WRITE	Prompt: !!,"Estimated Energy Needs: ",$J(KCAL,6,0)," Kcal." Line Location: P1+1
Function Call: WRITE	Prompt: " (For ",RTE," lb/wk ",$S(OPT="G":"gain",1:"loss"),")" Condition for execution: RTE Line Location: P1+1
Function Call: WRITE	Prompt: ! Line Location: P1+4
Function Call: WRITE	Prompt: !,"Albumin",?25,$J(X(1),7,1)," g/dl",?45,Y(1) Line Location: P1+4
Function Call: WRITE	Prompt: !,"Pre-albumin",?25,$J(X(10),7,1)," mg/dl",?45,$S(X(10)<10:"Ina",1:"A"),"dequate Protein Synthesis" Line Location: P1+5
Function Call: WRITE	Prompt: !,"Total Lymphocyte Count",?25,$J(X(2),7,1)," /cmm",?45,Y(2) Line Location: P1+6
Function Call: WRITE	Prompt: !,"Transferrin",?25,$J(X(4),7,1)," mg/dl",?45,Y(4) Line Location: P1+7
Function Call: WRITE	Prompt: ! Line Location: P1+8
Function Call: WRITE	Prompt: !,"Triceps Skin Fold",?25,$J(X(5),7,1)," mm",?45,Y(5) Line Location: P1+8
Function Call: WRITE	Prompt: !,"Arm Circumference",?25,$J(X(6),7,1)," cm",?45,Y(6) Line Location: P1+9
Function Call: WRITE	Prompt: !,"Muscle Circumference",?25,$J(X(9),7,1)," cm",?45,Y(9) Line Location: P1+10
Function Call: WRITE	Prompt: ! Line Location: P1+11
Function Call: WRITE	Prompt: !,"Nitrogen Balance",?25,$J(Y(7),7,1) Line Location: P1+11
Function Call: WRITE	Prompt: !,"Creatinine Clearance",?25,$J(X(11),7,0)," ml/min",?45,$S(X(11)<80:"Abn",1:"N"),"ormal" Line Location: P1+13
Function Call: WRITE	Prompt: !!,?11,"***Confidential Patient Data Covered by Privacy Act*",! Line Location: P2+0

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ACT	P1
>> AGE	FHASS3+3, P1+12
>> AMP	FHASS3+5, FHASS3+6
>> BEE	FHASS3+5
DT	FHASS3+2*
>> DTP	FHASS3+2*, FHASS3+3
>> EXT	P1+2
>> FHZRVF	FHASS3+2
>> FHZRVN	FHASS3+2
>> FRM	FHASS3+4
>> HGT	FHASS3+5
>> IBW	FHASS3+4
IOF	FHASS3+2
>> J	P1+3*
>> KCAL	P1+1
>> NAM	FHASS3+3
>> NIT	P1+2
>> OPT	P1+1
>> PRO	P1+2
>> RTE	P1+1
>> SEX	FHASS3+3, P1+12
>> TYP	P1
>> UWGT	FHASS3+5
>> WGT	FHASS3+4, FHASS3+5, P1+12
>> X	FHASS3+2*
>> X(1	P1+4
>> X(10	P1+5
>> X(11	P1+12*, P1+13
>> X(2	P1+6
>> X(4	P1+7
>> X(5	P1+8
>> X(6	P1+9
>> X(9	P1+10
>> Y	FHASS3+2
>> Y(	P1+3*
>> Y(1	P1+4
>> Y(2	P1+6
>> Y(4	P1+7
>> Y(5	P1+8
>> Y(6	P1+9
>> Y(7	P1+11
>> Y(9	P1+10

Customize PDF page

Package: Dietetics

Routine: FHASS3

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
P2
P1