| FHWORADT | 
This extrinsic function returns a flag of either a -1
or 1.  If flag is a -1, no Assessment found.  If flag is a 1, Assessment found
and the Assessment dates for a paticular patient is stored in the global
^TMP($J,"FHADT",DFN,Inverse internal date/time).
 
 | 
| VARIABLES | 
TYPE | 
VARIABLES DESCRIPTION | 
 
DFN | 
Input | 
The Internal Entry Number of the patient.
 
 | 
Y | 
Output | 
A flag of either -1^error text for no assessment
dates passed back with reason being error text or 1 for assessments dates for
the patient have been found.
 
 | 
TMP($J,FHADT,DFN) | 
Output | 
All the Nutrient Assessment dates for a particular
patient are stored in the global ^TMP($J,"FHADT",DFN,inverse internal
date/time)=external
date/time.
 
 | 
 
 | 
FHWORASM | 
This extrinsic function returns a flag of either a -1
or 1.  If flag is a -1, no Assessment found.  If flag is a 1, the Assessment
is found and the printable Nutrient Assessment for an Assessment date of a
particular patient is stored in the global ^TMP($J,"FHASM",DFN,Sequential
number).
 
 | 
| VARIABLES | 
TYPE | 
VARIABLES DESCRIPTION | 
 
DFN | 
Input | 
The Internal Entry Number of the patient.
 
 | 
FHADTX | 
Input | 
The external format of the Assessment date.
 
 | 
Y | 
Output | 
A flag of -1^error text for no assessment passed back
with reason being in the error text or 1 for assessment for the patient have
been found.
 
 | 
TMP($J,FHASM,DFN) | 
Output | 
The printable Nutrient Assessment is stored in the
global ^TMP($J,"FHASM",DFN, Sequence number)="Lines of text".
 
 | 
 
 |