Routine: FHASM2A

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

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

Customize PDF page

Package: Dietetics

Routine: FHASM2A

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items