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 |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: FHASM2A

Package: Dietetics

Routine: FHASM2A


Information

FHASM2A ; HISC/REL - Target Weight - Metropolitan 83 ;5/14/93 08:59

Source Information

Source file <FHASM2A.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Dietetics 2 (TR,WGP,WGT)^FHASM1  DRUG^FHASM4  
Kernel 1 SETUP^XQALERT  
VA FileMan 1 FILE^DICN  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Dietetics 2 FHASM2  FHCTF5  

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

External References

Name Field # of Occurrence
FILE^DICN PHA+16
TR^FHASM1 M2+3
WGP^FHASM1 M4+2
WGT^FHASM1 M4+2
DRUG^FHASM4 PHA+3
SETUP^XQALERT ALRT+16, PHA+14

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] ALRT+3
^FH(119.6 - [#119.6] ALRT+15, PHA+12, PHA+13
^FHPT - [#115] ALRT+9, ALRT+10, ALRT+17*, PHA+17*, PHA+18*, PHA+19*, AL1+1, AL1+2
^FHPT("E" ALRT+7, ALRT+8

Label References

Name Line Occurrences
AL1 PHA+6
M2 M2+4
M3 M1+1
M4 M4+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A ALRT+15*, PHA+12*, PHA+13
>> A1 M1*, M1+1
>> DA(1 PHA+15*
DD PHA+16!
>> DFN ALRT+1, ALRT+3
DIC PHA+15*, PHA+20!
DIC(0 PHA+15*
DO PHA+16!
DT ALRT+5, PHA+1, PHA+15
>> DTE ALRT+5*, ALRT+6, ALRT+9, PHA+1*
DTIME M2+1, M4
FHAL PHA+22!, AL1+1*, AL1+2
FHALDAT PHA+22!, AL1+2*, AL1+3
FHALFLG PHA+7, PHA+22!, AL1*, AL1+4*
FHALWRD PHA+22!, AL1+3*, AL1+4
>> FHDFN ALRT+7, ALRT+8, ALRT+9, ALRT+10, ALRT+17, PHA+15, PHA+17, PHA+18, PHA+19, AL1+1
AL1+2
FHDOB PHA+22!
>> FHDUZ ALRT+4*
FHFDNM PHA+22!, AL1+3*, AL1+4
FHGMDT PHA+22!
FHI9 PHA+4*, PHA+5*, PHA+11, PHA+19, PHA+22!, AL1+4
FHNAA ALRT+18!, PHA+23!
FHNAS ALRT+8*, ALRT+9, ALRT+10, ALRT+17, ALRT+18!, PHA+23!
FHP605 PHA+5*, PHA+22!
FHPAL PHA+22!
FHPDT ALRT+7*, ALRT+8, ALRT+14, ALRT+18!, PHA+23!
FHPPA PHA+22!
FHPPNS PHA+23!
FHPPOR PHA+23!
>> FHPTNM ALRT+13, PHA+10
>> FHQUIT M2+1*, M4*
FHSDT ALRT+6*, ALRT+7, ALRT+17, ALRT+18!, PHA+23!
>> FHSPC M2+1, M2+2, M2+5*
>> FHSSN ALRT+13, PHA+10
>> FHU M3M4
>> FRM M1
>> H1 M1
>> IBW M4+1*, M4+3*
>> METH M1+1, M4+3*
>> OFF M1*
PCA PHA+21!
PCAL PHA+21!
>> PCLS( PHA+5
PCNS PHA+21!
PCORD PHA+21!
POP PHA+21!
PORD PHA+21!
PSCL605 PHA+21!
PSNIEN PHA+21!
PSSTMP2 PHA+21!
>> PX PHA+3*
RMSDF PHA+21!
SCR PHA+21!
>> SEX M1
>> SP M2+1*, M2+2*, M2+3*, M2+4, M2+5, M2+6
TK ALRT+15*, ALRT+18!, PHA+13*, PHA+23!
U ALRT+9, ALRT+10, ALRT+15, ALRT+17, PHA+13, PHA+17, PHA+18, PHA+19, AL1+3
>> W1 M1+1*, M2+6*, M3M4+3
>> W2 M1+1*, M2+6*, M3M4+3
>> W3 M3*, M4+1
>> WARD ALRT+3*
>> WRD ALRT+2, ALRT+15, PHA+12, PHA+13, PHA+18, AL1+4
>> X M2+3*, M4*, M4+1, PHA+15*
>> X1 M3*, M4
>> X2 M3*, M4
>> X3 M3*, M4
XQA ALRT+11!, ALRT+18!, PHA+8!, PHA+23!
XQA( ALRT+15*, PHA+13*
>> XQAID ALRT+12*, PHA+9*
XQAMSG ALRT+11!, ALRT+13*, ALRT+14*, ALRT+18!, PHA+8!, PHA+10*, PHA+11*, PHA+23!
XQAOPT ALRT+11!, ALRT+18!, PHA+8!, PHA+23!
XQAROU ALRT+11!, ALRT+18!, PHA+8!, PHA+23!
>> Y M4+2, M4+3, PHA+16, PHA+17, PHA+18, PHA+19

Marked Items

Name Field # of Occurrence
$T(MM1+OFF M1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All