Routine: FHASMR

Information

FHASMR ; HISC/REL/NCA - Assessment Report ;4/25/93 18:46

Source file <FHASMR.m>

Package	Total	Call Graph
Dietetics	4	(DTP,EN2)^FH ^FHASMR1 ^FHOMDPA PATNAME^FHOMUTL
Kernel	3	^%ZIS ^%ZISC KILL^XUSCLEAN
VA Fileman	2	(,DD)^%DT ^DIC

Package	Total	Caller Graph
Dietetics	1	FHASMR

Name	Comments	DBIA/ICR reference
Q1	; Process Printing Assessment
A0
P0	; Select Device
KIL	; Final variable kill

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No Nutrition Assessments on file" Line Location: FHASMR+3
Function Call: WRITE	Prompt: !?3,Y Line Location: FHASMR+7
Function Call: WRITE	Prompt: ! Line Location: A0+0
Function Call: WRITE	Prompt: ! Line Location: P0+1
Routine Call	DIC Line Location: A0
Routine Call	%ZIS Line Location: P0+1

Name	Line Occurrences (* Changed, ! Killed)
^FH(119.9 - [#119.9]	Q1+5
^FHPT - [#115]	FHASMR+3, FHASMR+5, FHASMR+6, FHASMR+7, FHASMR+8, Q1+6, Q1+9, Q1+10, Q1+11

Name	Field # of Occurrence
>> %DT	Q1+3*
%ZIS	P0+1*!, P0+3!
%ZIS("B"	P0+1*
>> APP	Q1+10*
>> ASN	A0*, Q1+6, Q1+9, Q1+10, Q1+11
>> DIC	A0*
>> DIC("A"	A0*
>> DIC(0	A0*
DT	Q1+3*
>> DTOUT	A0
>> DTP	Q1+3*
>> EXT	Q1+9*
>> FHALL	FHASMR+2*
>> FHAP	Q1+5*
>> FHASK	KIL+2
>> FHDFN	FHASMR+2, FHASMR+3, FHASMR+5, FHASMR+6, FHASMR+7, FHASMR+8, Q1+6, Q1+9, Q1+10, Q1+11
>> FHLST	P0+2*
>> FHNASS	FHASMR+8*, FHASMR+9
>> FHNIEN	FHASMR+5*, FHASMR+6
>> FHNRV	FHASMR+6*, FHASMR+7, FHASMR+8
>> FHPGM	P0+2*
>> FHPTNM	Q1+2
>> FHU	Q1+5*
IO	P0+3
IO("Q"	P0+2
IOP	P0+1!, P0+3!
>> K	Q1+7, Q1+9, Q1+11*
LRTST	Q1+11!
LRTST(	Q1+11*
>> NAM	Q1+2*
>> NB	Q1+8*
>> NOW	Q1+3*
>> POP	P0+1
>> PRT	Q1+12*
U	FHASMR+7, FHASMR+8
>> X	A0, Q1+3*
>> Y	FHASMR+7, A0, Q1+3, Q1+6, Q1+7, Q1+8, Q1+9*