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

Package: Dietetics

Routine: FHASM6


Information

FHASM6 ; HISC/REL - Protein/Fluid Requirements ;10/30/90 13:42

Source Information

Source file <FHASM6.m>

Entry Points

Name Comments DBIA/ICR reference
H2O
H0
H1 ;add elderly calculation here
H11
H12
H2
H3
H4
H5
H6
H7
H8
PRO ;protein calculation. Before setting protein, set the formula used in Fluid calculation.
P6
P7
NEXT
PWR ; Raise X to X1 power - Output in Y

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Calculate Fluid Requirements By:"
  • Line Location: H2O+0
Function Call: WRITE
  • Prompt: !!?5,"1) Adult (35 ml/kg/day)",!?9,"Elderly Calculation (30 ml/kg/day)",!?9,"Adolescent (40-60 ml/kg/day)",!?9,"Children (70-110 ml/kg/day)",!?9,"Infant (100-150 ml/kg/day)"
  • Line Location: H2O+1
Function Call: WRITE
  • Prompt: !?5,"2) 100 ml/kg first 10 kg +",!?9,"50 ml/kg second 10 kg +",!?9,"25 ml/kg remaining kg"
  • Line Location: H2O+2
Function Call: WRITE
  • Prompt: !?5,"3) 1 ml/Kcal",!?5,"4) 0.5 ml/Kcal (Fluid Overload)"
  • Line Location: H2O+3
Function Call: WRITE
  • Prompt: !?5,"5) 1500 ml/sq meter"
  • Line Location: H2O+4
Function Call: WRITE
  • Prompt: !?5,"6) Set Your Own Fluid Level",!?5,"7) Omit Calculation"
  • Line Location: H2O+5
Function Call: READ
  • Variable: H2O
  • Timeout: DTIME
  • Line Location: H0+0
Function Call: WRITE
  • Prompt: !,"Choose 1 - 7 Only"
  • Line Location: H0+2
Function Call: READ
  • Variable: FLD
  • Timeout: DTIME
  • Line Location: H11+1
Function Call: WRITE
  • Prompt: *7,!,"Fluid Level is not within range."
  • Line Location: H11+2
Function Call: READ
  • Variable: FLD
  • Timeout: DTIME
  • Line Location: H6+0
Function Call: WRITE
  • Prompt: *7,!,"Level must be between 0-10000 ml/day"
  • Line Location: H6+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: H8+0
Function Call: WRITE
  • Prompt: *7,!,"Level must be between 0-10000 ml/day"
  • Line Location: H8+1
Function Call: WRITE
  • Prompt: !!?11,"Protein Requirements (g/kg)",!?16,"(Examples)"
  • Line Location: PRO+18
Function Call: WRITE
  • Prompt: !,"Acute Burn, Injury, Trauma",?48,"2-4"
  • Line Location: PRO+19
Function Call: WRITE
  • Prompt: !,"Acute Encephalopathy",?48,"0.6-0.8"
  • Line Location: PRO+20
Function Call: WRITE
  • Prompt: !,"Acute Hepatitis",?48,"1.2-1.5"
  • Line Location: PRO+21
Function Call: WRITE
  • Prompt: !,"Anabolism",?48,"1.2-1.5"
  • Line Location: PRO+22
Function Call: WRITE
  • Prompt: !,"Burn",?48,"1.4"
  • Line Location: PRO+23
Function Call: WRITE
  • Prompt: !,"Chronic Encephalopathy",?48,"1.2"
  • Line Location: PRO+24
Function Call: WRITE
  • Prompt: !,"Chronic Hepatitis (no cirrhosis)",?48,"1.2-1.5"
  • Line Location: PRO+25
Function Call: WRITE
  • Prompt: !,"Chronic Liver Disease",?48,"1-1.5"
  • Line Location: PRO+26
Function Call: WRITE
  • Prompt: !,"Chronic Renal Failure",?48,"0.6"
  • Line Location: PRO+27
Function Call: WRITE
  • Prompt: !,"Conservative Mgt Pre-Dialysis",?48,"0.6-0.75"
  • Line Location: PRO+28
Function Call: WRITE
  • Prompt: !,"Convalescent Burn, Injury Trauma",?48,"2"
  • Line Location: PRO+29
Function Call: WRITE
  • Prompt: !,"ESRD Hemodialysis",?48,"1.2-1.3"
  • Line Location: PRO+30
Function Call: WRITE
  • Prompt: !,"ESRD Peritoneal Dialysis",?48,"1.2-1.3"
  • Line Location: PRO+31
Function Call: WRITE
  • Prompt: !,"Ileocolostomy",?48,"1-1.4"
  • Line Location: PRO+32
Function Call: WRITE
  • Prompt: !,"Liver transplant (pre-transplant/stable)",?48,"1.2-1.5"
  • Line Location: PRO+33
Function Call: WRITE
  • Prompt: !,"Malabsorption Syndrome",?48,"1"
  • Line Location: PRO+34
Function Call: WRITE
  • Prompt: !,"Nephrotic Syndrome",?48,"1-1.4"
  • Line Location: PRO+35
Function Call: WRITE
  • Prompt: !,"Post-liver transplant - short term(1-2 months)",?48,"1.2-2"
  • Line Location: PRO+36
Function Call: WRITE
  • Prompt: !," long term",?48,"0.8-1.0"
  • Line Location: PRO+37
Function Call: WRITE
  • Prompt: !,"Pressure Ulcers",?48,"1.2-1.5"
  • Line Location: PRO+38
Function Call: WRITE
  • Prompt: !,"Protein-Sparing",?48,"1.5"
  • Line Location: PRO+39
Function Call: WRITE
  • Prompt: !,"Ulcerative Colitis",?48,"1-1.4"
  • Line Location: PRO+40
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: P6+1
Function Call: WRITE
  • Prompt: *7," Level must be 0.4 to 4.0"
  • Line Location: P6+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: P7+0
Function Call: WRITE
  • Prompt: *7," Enter a value greater than 0 but not more than 400."
  • Line Location: P7+1
Function Call: WRITE
  • Prompt: " ",$J(PRO*400/KCAL,0,0)," % of KCAL"
  • Line Location: P7+3
Info |  Source |  Entry Points |  Interaction Calls