Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

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
  • Variable: CM
  • Timeout: DTIME
  • Line Location: E2+0
Function Call: WRITE
  • Prompt: !,*7,"Choose Either 1, 2, 3 or 4"
  • Line Location: E2+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • 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
  • Variable: EF
  • Timeout: DTIME
  • 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
  • Variable: FHECAL
  • Timeout: DTIME
  • 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
  • Variable: X
  • Timeout: DTIME
  • 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
  • Variable: CB
  • Timeout: DTIME
  • 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
Info |  Source |  Entry Points |  Interaction Calls