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: FHASM5

Package: Dietetics

Routine: FHASM5


Information

FHASM5 ; HISC/REL - Energy/Calorie Factors ;3/20/95 08:18

Source Information

Source file <FHASM5.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Dietetics 2 (KIL,TR)^FHASM1  ^FHASM6  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Dietetics 2 FHASM4  FHASM6  

Entry Points

Name Comments DBIA/ICR reference
P1
P4
P5 ;
H2
NEXT
H1
GETW
MIF ;Mifflin - St. Jeor entry; adding this new calculation for cal needs.
HARRIS ; Harris Method
M1
SUR ;add for s/p bariatic surgery
PED ; Pediatric
E2
E1
KCAL ; KCAL Method
MAN ; Manual Entry

External References

Name Field # of Occurrence
KIL^FHASM1 FHASM5+3, E2, M1, H1+1, H2, P4, P5+6
TR^FHASM1 H1+4
^FHASM6 NEXT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Calculate Energy Needs by: "
  • Line Location: FHASM5+3
Function Call: WRITE
  • Prompt: !!?6,"1 Harris-Benedict",!?6,"2 Kcal/Kg",!?6,"3 Mifflin-St Jeor"
  • Line Location: FHASM5+4
Function Call: WRITE
  • Prompt: !,?6,"4 Enter Manually"
  • Line Location: FHASM5+5
Function Call: READ
  • Timeout: DTIME
  • Variable: CM
  • Line Location: E2+0
Function Call: WRITE
  • Prompt: !,*7,"Choose Either 1, 2, 3 or 4"
  • Line Location: E2+2
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: M1+0
Function Call: WRITE
  • Prompt: !!,"Enter Energy Requirements (Kcal/day): "
  • Line Location: M1+0
Function Call: WRITE
  • Prompt: KIL^FHASM1
  • Condition for execution: KCAL'="" KCAL_"// " R X:DTIME G:'$T!(X["^")
  • Line Location: M1+0
Function Call: WRITE
  • Prompt: *7,!,"KCAL must be greater than 0"
  • Line Location: M1+2
Function Call: WRITE
  • Prompt: "N //"
  • Condition for execution: FHYN=""
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: *7,!," Answer YES or NO"
  • Line Location: H1+5
Function Call: WRITE
  • Prompt: " (Activity Factor = ",AF,")"
  • Line Location: H1+7
Function Call: WRITE
  • Prompt: !!?27,"Injury/Stress Factors",!
  • Line Location: H1+8
Function Call: WRITE
  • Prompt: !,"Surgery",?25,"1.1 - 1.3",?40,"Skeletal Trauma",?65,"1.35",!,"Major Sepsis",?25,"1.6",?40,"Severe Burn",?65,"2.1"
  • Line Location: H1+9
Function Call: WRITE
  • Prompt: !,"Blunt Trauma",?25,"1.35",?40,"Trauma w/ Steroid",?65,"1.68",!,"Starvation",?25,".7",?40,"Trauma on Ventilator",?65,"1.6"
  • Line Location: H1+10
Function Call: WRITE
  • Prompt: !,"Mild Infection",?25,"1.2",?40,"0-20% BSA Burn",?65,"1.25",!,"Moderate Infection",?25,"1.4",?40,"20-40% BSA Burn",?65,"1.5"
  • Line Location: H1+11
Function Call: WRITE
  • Prompt: !,"Long Bone Fracture",?25,"1.6",?40,">40% BSA Burn",?65,"1.85",!,"Peritonitis",?25,"1.15"
  • Line Location: H1+12
Function Call: WRITE
  • Prompt: !,"Stress - Low",?25,"1.3",?40,"Anabolism",?65,"1.5-1.75"
  • Line Location: H1+13
Function Call: WRITE
  • Prompt: !," - Moderate",?25,"1.5",?40,"Cancer",?65,"1.6"
  • Line Location: H1+14
Function Call: WRITE
  • Prompt: !," - Severe",?25,"2.0"
  • Line Location: H1+15
Function Call: WRITE
  • Prompt: !!,"BEE = ",KCAL," Kcal/day"
  • Line Location: H1+16
Function Call: READ
  • Timeout: DTIME
  • Variable: EF
  • Line Location: H2+0
Function Call: WRITE
  • Prompt: !,*7,"Energy Factor must be Between .7 and 2.5"
  • Line Location: H2+2
Function Call: WRITE
  • Prompt: !!?35,"Caloric Factors"
  • Line Location: KCAL+1
Function Call: WRITE
  • Prompt: !!,"Basal Energy",?30,"25",!,"Ambulatory w/ Weight Maint.",?30,"30"
  • Line Location: KCAL+2
Function Call: WRITE
  • Prompt: !,"Malnutrition w/ Mild Sepsis",?30,"40",!,"Injuries/ Sepsis - Severe",?30,"50"
  • Line Location: KCAL+3
Function Call: WRITE
  • Prompt: !,"Burn - Extensive",?30,"80",!,"Non-Dialysis Renal Failure",?30,"35"
  • Line Location: KCAL+4
Function Call: WRITE
  • Prompt: !,"Dialysis",?30,"40",!,"Dialysis w/ Diabetes",?30,"30",!,"Anabolism",?30,"35-45"
  • Line Location: KCAL+5
Function Call: WRITE
  • Prompt: !,"Conservative Mgnt Pre-Dialysis:"
  • Line Location: KCAL+6
Function Call: WRITE
  • Prompt: !," (<60 years old)",?30,"35"
  • Line Location: KCAL+7
Function Call: WRITE
  • Prompt: !," (>60 years old)",?30,"30-35"
  • Line Location: KCAL+8
Function Call: READ
  • Timeout: DTIME
  • Variable: FHECAL
  • Line Location: P4+0
Function Call: WRITE
  • Prompt: !!,"Enter Kcal/Kg (10-100): "
  • Line Location: P4+0
Function Call: WRITE
  • Prompt: S
  • Condition for execution: EKKG'="" EKKG_"// " R FHECAL:DTIME I '$T!(FHECAL["^")
  • Line Location: P4+0
Function Call: WRITE
  • Prompt: !,*7,"Kcal/Kg Must be Between 10 and 100"
  • Line Location: P4+2
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: P5+6
Function Call: WRITE
  • Prompt: *7,!?5,"Enter a value between 1-10000"
  • Line Location: P5+8
Function Call: WRITE
  • Prompt: !!,"Calculate ",CB," Requirements Based On:"
  • Line Location: GETW+0
Function Call: WRITE
  • Prompt: !!?2,"1 Actual Body Weight",!?2,"2 Target Body Weight"
  • Line Location: GETW+1
Function Call: WRITE
  • Prompt: !?2,"3 Obese Calculation"
  • Line Location: GETW+2
Function Call: READ
  • Timeout: DTIME
  • Variable: CB
  • Line Location: E1+0
Function Call: WRITE
  • Prompt: !,*7,"Choose either 1 or 2"
  • Line Location: E1+2
Function Call: WRITE
  • Prompt: " or 3"
  • Condition for execution: CM["3"
  • Line Location: E1+2

Label References

Name Line Occurrences
E1 E1+2
E2 E2+2
GETW FHASM5+3
H1 H1+5
H2 H2+2
HARRIS FHASM5+3, E2+8
KCAL E2+8
M1 M1+2
MAN E2+8
MIF E2+8
P1 PED+2, PED+3
P4 P4+2
P5 M1+3, MIF+4, P1, H2+6, P5+8
PED FHASM5+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AF H1*, H1+1, H1+2*, H1+3*, H1+4*, H1+5, H1+6, H1+7*, H2+6
>> AGE FHASM5+2, MIF+1, MIF+2, PED+2, PED+3, PED+4, HARRIS+1, HARRIS+2
>> CB FHASM5+3*, GETW, E1*, E1+1*, E1+2, E1+3, E1+4, E1+5
>> CENB E2, E2+1, E2+3*
>> CFRBO E1, E1+1, E1+3*
>> CM E2*, E2+1*, E2+2, E2+3, E2+4, E2+5, E2+6, E2+7, E2+8, GETW*
, GETW+2*, E1+2, E1+4*
DTIME E2, M1, H1, H2, P4, P5+6, E1
>> EF H2*, H2+1*, H2+2, H2+3*, H2+4, H2+5, H2+6
>> EKKG P4, P4+1, P4+3*
>> FHCFRBO P5+5, E1+5*
>> FHCM E2+4*, E2+5*, E2+6*, E2+7*, PED+1*, P5+3
>> FHECAL KCAL+9*, P4*, P4+1*, P4+2, P4+3
>> FHEF H2+5*, P5+2
>> FHFEC P5+1*, P5+2*, P5+3*, P5+4*, P5+5*, P5+9*
>> FHKCAL P4+4*, P5+4
>> FHQUIT E2*, H1+1*, H2*, P4*, E1*
>> FHYN H1, H1+2, H1+3, H1+6*
>> HGT MIF+1, MIF+2, HARRIS+1, HARRIS+2
>> IBW GETW+2, E1+4
>> KCAL M1, M1+1*, M1+2*, MIF+1*, MIF+2*, MIF+3*, PED+2*, PED+3*, PED+4*, P1*
, HARRIS+1*, HARRIS+2*, HARRIS+3*, H1+16, H2+6*, P4+3*, P4+4, P4+5*, P5+6, P5+7
, P5+9*
>> SEF H2, H2+1, H2+4*
>> SEX MIF+1, MIF+2, PED+3, HARRIS+1, HARRIS+2
U E2, H2
>> W2 MIF+1, MIF+2, HARRIS+1, HARRIS+2, P4+5, E1+4*
>> WGT P1, GETW+2, E1+4
>> X M1*, M1+1, H1+4*, P5+6*, P5+7*, P5+8, P5+9
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All