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

Package: Dietetics

Routine: FHASM2A


Information

FHASM2A ; HISC/REL - Target Weight - Metropolitan 83 ;Jan 04, 2023@08:31:34

Source Information

Source file <FHASM2A.m>

Entry Points

Name Comments DBIA/ICR reference
M ; Metropolitan Height & Weight tables
; 1983 Metropolitan Life Insurance Company Height & Weight Tables
; as measured with 1" heels and clothes weighing 5# for men and 3# for women.
M1
M2
M3
M4
ALRT ;process nutrition assessment alert.
PHA ;process food/drug classification alert
AL1
MM1 ;;62;128-134;131-141;138-150
MW1 ;;58;102-111;109-121;118-131

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Extent of Injury:",!!?7,"P Paraplegic",!?7,"Q Quadriplegic"
  • Line Location: M2+0
Function Call: READ
  • Variable: SP
  • Timeout: DTIME
  • Line Location: M2+1
Function Call: WRITE
  • Prompt: !?3,*7,"Only P or Q are Valid Choices"
  • Line Location: M2+4
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: M4+0
Function Call: WRITE
  • Prompt: !!,"Select Target Weight (",X1,"-",X2,") ",X3,$S(FHU'="M":" lb",1:" kg"),"// " R X:DTIME I '$T!(X["^")
  • Line Location: M4+0
Info |  Source |  Entry Points |  Interaction Calls