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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: FHASS

Package: Dietetics

Routine: FHASS


Information

FHASS ; GLRISC/REL - Nutritional Assessment ; 22-May-88 11:45 am ; [ 10/18/94 12:17 PM ]

Source Information

Source file <FHASS.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Dietetics 3 ^FHASS1  ^FHASS2  ^FHDPA  
VA Fileman 1 ^%DT  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Dietetics 2 FHASS  FHASS1  

Entry Points

Name Comments DBIA/ICR reference
P2
F1 ; Select Patient
P1
F4
F5
F50
F51
F8
F9
F7
F81
KIL ; Final variable kill
PAT
F10
F11
TYP
F71

External References

Name Field # of Occurrence
^%DT FHASS+9
^FHASS1 F11+1
^FHASS2 F11+1
^FHDPA F1+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,@FHZRVN,!!?18,"N U T R I T I O N A L A S S E S S M E N T",?78,"",@FHZRVF,!!
  • Line Location: FHASS+9
Function Call: WRITE
  • Prompt: *7,!!?5,"Calories may be inaccurate for ages less than 18!"
  • Line Location: F1+3
Function Call: READ
  • Prompt: "Height in Inches: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: HGT
  • Line Location: F4+0
Function Call: WRITE
  • Prompt: *7," Valid range is 30-90"
  • Line Location: F4+0
Function Call: READ
  • Prompt: "Weight in Pounds: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: WGT
  • Line Location: F5+0
Function Call: WRITE
  • Prompt: *7," Valid range is 60-400"
  • Line Location: F5+0
Function Call: READ
  • Timeout: DTIME
  • Variable: UWGT
  • Line Location: F50+0
Function Call: WRITE
  • Prompt: !,"Usual Weight in Pounds: ",WGT," // "
  • Line Location: F50+0
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: F50+0
Function Call: READ
  • Timeout: DTIME
  • Line Location: F51+0
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: F51+0
Function Call: READ
  • Prompt: "Is Patient an In-Patient? (Y/N): "
  • Formatting: !
  • Timeout: DTIME
  • Variable: TYP
  • Line Location: TYP+0
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: TYP+0
Function Call: READ
  • Prompt: "Does Patient have an Amputation? NO// "
  • Formatting: !
  • Timeout: DTIME
  • Variable: AMP
  • Line Location: F7+0
Function Call: WRITE
  • Prompt: !!,"Amputee Types: (may be multiple, e.g: 2,2,5)",!!?2,"1 Upper Leg (11.6%)",?40,"5 Hand (0.8%)",!?2,"2 Below Knee (5.8%)",?40,"6 Forearm (2.3%)"
  • Line Location: F71+0
Function Call: WRITE
  • Prompt: !?2,"3 Above Knee (8.4%)",?40,"7 Upper Arm (3.6%)",!?2,"4 Foot (1.8%)"
  • Line Location: F71+1
Function Call: READ
  • Prompt: "Type: "
  • Formatting: !!?2
  • Timeout: DTIME
  • Variable: X
  • Line Location: F8+0
Function Call: WRITE
  • Prompt: *7," ?? Enter digits 1-7 separated by commas"
  • Line Location: F81+0
Function Call: WRITE
  • Prompt: !!,"Comparison with IBW indicates need for ",$S(OPT="M":"MAINTENANCE",OPT="L":"WEIGHT LOSS",1:"WEIGHT GAIN")
  • Line Location: F9+1
Function Call: READ
  • Timeout: DTIME
  • Variable: XX
  • Line Location: F10+0
Function Call: WRITE
  • Prompt: *7," Enter G, L, or M"
  • Line Location: F10+1
Function Call: READ
  • Prompt: "Do you wish Lab/Skinfold Assessment? NO// "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: EXT
  • Line Location: F11+0
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: F11+0
Function Call: READ
  • Prompt: "Enter Patient's Name: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: NAM
  • Line Location: PAT+0
Function Call: WRITE
  • Prompt: *7,!?5,"Enter Patient's Name to be printed on the report."
  • Line Location: PAT+1
Function Call: READ
  • Prompt: "Sex: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: SEX
  • Line Location: P1+0
Function Call: WRITE
  • Prompt: *7," Enter M or F"
  • Line Location: P1+0
Function Call: READ
  • Prompt: "Age: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: AGE
  • Line Location: P2+0
Function Call: WRITE
  • Prompt: !?5,"Enter Age in years between 18 and 124"
  • Line Location: P2+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS(2 - [#3.2] FHASS+6

Label References

Name Line Occurrences
F10 F10+1
F11 F11
F4 F4, P2+1
F5 F5
F50 F50
F51 F51
F7 F7
F71 F81
F81 F8
F9 F7+1, F8+1
KIL F1+1, F4, F5, F50, F51, TYP, F7, F10, F11, F11+1
, PAT, P1, P2
P1 F1+1, P1
P2 P2
PAT F1+1, PAT+1
TYP TYP

Naked Globals

Name Field # of Occurrence
^(5 FHASS+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%IS KIL+1!
A1 F51+1*, F51+2, F51+3, KIL+1!
A2 KIL+1!
A3 KIL+1!
ACT KIL+1!
AF KIL+1!
AGC KIL+1!
AGE F1+1*, F1+2*, F1+3, KIL+1!, P2*
ALL F1+1*, KIL+1!
AMP F7*, F7+1*, F8*, F8+1, KIL+1!
>> AUPNLK("ALL" F1+1*!
BEE KIL+1!
DFN F1+1, KIL+1!
DT FHASS+9*, F1+2
DTIME F4, F5, F50, F51, TYP, F7, F8, F10, F11, PAT
, P1, P2
DTP KIL+1!
EXT F11*, F11+1*, KIL+1!
FF KIL+1!
>> FHNULL FHASS+5*
>> FHZRVF FHASS+5*, FHASS+6*, FHASS+9
>> FHZRVN FHASS+4, FHASS+5*, FHASS+6*, FHASS+9
FRM F51*, F51+1*, KIL+1!
HGT F4*, F51+2, F51+3, KIL+1!
IBW F51+2*, F51+3*, F8+1*, F9, KIL+1!
IF KIL+1!
IOF FHASS+9
IOST(0 FHASS+6
J KIL+1!
K F8*, KIL+1!
KCAL KIL+1!
NAM F1+1*, KIL+1!, PAT*, PAT+1
NIT KIL+1!
OPT F9*, F9+1, F10, F10+2*, KIL+1!
POP KIL+1!
PRO KIL+1!
Q KIL+1!
RTE KIL+1!
SEX F1+1*, F51+2, F51+3, KIL+1!, P1*, P1+1*
SXC KIL+1!
TAB KIL+1!
TYP TYP*, TYP+1*, KIL+1!
U FHASS+6, F1+1
UWGT F50*, KIL+1!
WGT F5*, F50, F9, KIL+1!
X FHASS+9*, F1+1, F8*, KIL+1!
XX F10*, F10+1, F10+2*, KIL+1!
Y FHASS+9, F8*, KIL+1!
Y(0 F1+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All