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

Caller Graph Total: 2

Package Total Caller Graph
Dietetics 2 FHASM2  FHCTF5  

Entry Points

Name Comments DBIA/ICR reference
MW1 ;;58;102-111;109-121;118-131
MM1 ;;62;128-134;131-141;138-150
PHA ;process food/drug classification alert
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.
ALRT ;process nutrition assessment alert.
M4
M1
M3
M2
AL1

External References

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

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
  • Timeout: DTIME
  • Variable: SP
  • Line Location: M2+1
Function Call: WRITE
  • Prompt: !?3,*7,"Only P or Q are Valid Choices"
  • Line Location: M2+4
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • 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+16, PHA+12, PHA+13
^FHPT - [#115] ALRT+4, ALRT+10, ALRT+11, ALRT+19*, PHA+18*, PHA+19*, PHA+20*, AL1+1, AL1+2
^FHPT("E" ALRT+8, ALRT+9

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

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