Routine: FHASM2A

Information

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

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:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

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+17
TR^FHASM1	M2+3
WGP^FHASM1	M4+2
WGT^FHASM1	M4+2
DRUG^FHASM4	PHA+3
SETUP^XQALERT	ALRT+17, 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	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+16, PHA+13, PHA+14
^FHPT - [#115]	ALRT+9, ALRT+10, ALRT+18, PHA+18, PHA+19, PHA+20, 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+16, PHA+13, PHA+14
>> A1	M1*, M1+1
>> DA(1	PHA+16*
DD	PHA+17!
>> DFN	ALRT+1, ALRT+3, ALRT+13, PHA+10
DIC	PHA+16*, PHA+21!
DIC(0	PHA+16*
DO	PHA+17!
DT	ALRT+5, PHA+1, PHA+16
>> DTE	ALRT+5, ALRT+6, ALRT+9, 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+7, ALRT+8, ALRT+9, ALRT+10, ALRT+18, PHA+16, PHA+18, PHA+19, PHA+20, AL1+1 , AL1+2
FHDOB	PHA+23!
>> FHDUZ	ALRT+4*
FHFDNM	PHA+23!, AL1+3*, AL1+4
FHGMDT	PHA+23!
FHI9	PHA+4, PHA+5, PHA+12, PHA+20, PHA+23!, AL1+4
FHNAA	ALRT+19!, PHA+24!
FHNAS	ALRT+8*, ALRT+9, ALRT+10, ALRT+18, ALRT+19!, PHA+24!
FHP605	PHA+5*, PHA+23!
FHPAL	PHA+23!
FHPDT	ALRT+7*, ALRT+8, ALRT+15, ALRT+19!, PHA+24!
FHPPA	PHA+23!
FHPPNS	PHA+24!
FHPPOR	PHA+24!
>> FHPTNM	ALRT+14, PHA+11
>> FHQUIT	M2+1, M4
FHSDT	ALRT+6*, ALRT+7, ALRT+18, ALRT+19!, PHA+24!
>> FHSPC	M2+1, M2+2, M2+5*
>> FHSSN	ALRT+14, PHA+11
>> 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+19!, PHA+14, PHA+24!
U	ALRT+9, ALRT+10, ALRT+16, ALRT+18, PHA+14, 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+13, PHA+14, PHA+19, AL1+4
>> X	M2+3, M4, M4+1, PHA+16*
>> X1	M3*, M4
>> X2	M3*, M4
>> X3	M3*, M4
XQA	ALRT+11!, ALRT+19!, PHA+8!, PHA+24!
XQA(	ALRT+16, PHA+14
>> XQAID	ALRT+13, PHA+10
XQAMSG	ALRT+11!, ALRT+14, ALRT+15, ALRT+19!, PHA+8!, PHA+11, PHA+12, PHA+24!
XQAOPT	ALRT+11!, ALRT+19!, PHA+8!, PHA+24!
XQAROU	ALRT+11!, ALRT+19!, 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

Customize PDF page

Package: Dietetics