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

Package: Dietetics

Routine: FHASM6


Information

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

Source Information

Source file <FHASM6.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Dietetics 3 KIL^FHASM1  GETW^FHASM5  ^FHASM7  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Dietetics 2 FHASM3  FHASM5  

Entry Points

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

External References

Name Field # of Occurrence
KIL^FHASM1 H0, H0+4, H11+1, H6, H8, PRO+18, P6+1, P7
GETW^FHASM5 H0+4, PRO+18
^FHASM7 NEXT

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
  • Timeout: DTIME
  • Variable: H2O
  • Line Location: H0+0
Function Call: WRITE
  • Prompt: !,"Choose 1 - 7 Only"
  • Line Location: H0+2
Function Call: READ
  • Timeout: DTIME
  • Variable: FLD
  • Line Location: H11+1
Function Call: WRITE
  • Prompt: *7,!,"Fluid Level is not within range."
  • Line Location: H11+2
Function Call: READ
  • Timeout: DTIME
  • Variable: FLD
  • Line Location: H6+0
Function Call: WRITE
  • Prompt: *7,!,"Level must be between 0-10000 ml/day"
  • Line Location: H6+1
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • 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
  • Timeout: DTIME
  • Variable: X
  • Line Location: P6+1
Function Call: WRITE
  • Prompt: *7," Level must be 0.4 to 4.0"
  • Line Location: P6+3
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • 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

Label References

Name Line Occurrences
H0 H0+2
H1 H0+5
H11 H1+3, H1+4, H11+2
H12 H1+1, H1+2
H2 H0+5
H3 H0+5
H4 H0+5
H5 H0+5
H6 H0+5, H6+1
H7 H12, H2, H3, H4, H5
H8 H8+1
P6 P6+3
P7 P7+1
PRO H0+5, H6+2
PWR H5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A1 H1+3*, H1+4*, H1+5*, H11, H11+2
>> A2 H1+3*, H1+4*, H1+5*, H11, H11+2
>> AGE H1+1, H1+2, H1+3, H1+4, PRO+3, PRO+4, PRO+5, PRO+6, PRO+41
>> CB H0+4*, PRO+18*
>> CFRB H0, H0+1, H0+3*
DTIME H0, H11+1, H6, H8, P6+1, P7
>> FHCFRBO PRO+17, P6+7
>> FHFFC PRO+17*
>> FHFPC P6+7*, P7+2*
>> FHH2O PRO+1*, PRO+3*, PRO+4*, PRO+5*, PRO+6*, PRO+7*, PRO+9*, PRO+10*, PRO+11*, PRO+12*
, PRO+13*, PRO+14*, PRO+15*, PRO+16*, PRO+17
>> FHPL P6, P6+5*
>> FHPLX P6*, P6+1, P6+2
>> FHQUIT H0*, H11+1*, H6*, P6+1*
>> FLD H0+5*, H1+1*, H1+2*, H11, H11+1*, H11+2, H12*, H2*, H3*, H4*
, H5*, H6*, H6+1, H6+2*, H7*, H8, H8+2*
>> H2O H0*, H0+1*, H0+2, H0+3, H0+4, H0+5, H8+2*, PRO+2, PRO+8, PRO+12
, PRO+13, PRO+14, PRO+15, PRO+16
>> HGT H5
>> KCAL H3, H4, P7+3
>> P1 PRO+41*, P6
>> PRO P6+5*, P6+6*, P7, P7+2*, P7+3
U H0, H11+1, H6
>> W1 H2*, PRO+9, PRO+10
>> W2 H12, H2, H5, P6+6
>> X H5*, H8*, H8+1, H8+2, P6+1*, P6+2*, P6+3, P6+4*, P6+5, P6+7
, P7*, P7+1, P7+2, PWR+1, PWR+2, PWR+3, PWR+4*, PWR+5*, PWR+6*, PWR+7
>> X1 H5*, PWR+6
X2 PWR+2*, PWR+3*, PWR+4, PWR+5*, PWR+8!
X3 PWR+2*, PWR+3*, PWR+6, PWR+8!
X4 PWR+5*, PWR+7*, PWR+8!
X5 PWR+5*, PWR+7*, PWR+8!
>> Y H5, PWR+1*, PWR+5*, PWR+6*, PWR+7*, PWR+8*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All