Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All
Print Page as PDF
Routine: FHASS3

Package: Dietetics

Routine: FHASS3


Information

FHASS3 ; GLRISC/REL - Print Assessment Report ; 8-Feb-86 9:08 pm [ 06/18/90 11:19 AM ]

Source Information

Source file <FHASS3.m>

Call Graph

Call Graph Total: 2

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Dietetics 1 FHASS1  

Entry Points

Name Comments DBIA/ICR reference
P2
P1

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(AMP*100,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

Label References

Name Line Occurrences
P1 FHASS3+5
P2 P1+2, P1+12

Local Variables

Legend:

>> 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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All