Print Page as PDF
DBIA2293 ICR (2293)

DBIA2293    ICR (2293)

Name Value
NUMBER 2293
IA # 2293
DATE CREATED 1998/02/06
CUSTODIAL PACKAGE DIETETICS
CUSTODIAL ISC Chicago
USAGE Private
TYPE Routine
DBIC APPROVAL STATUS APPROVED
ROUTINE FHWORA
NAME DBIA2293
GENERAL DESCRIPTION
Routine FHWORA contains two extrinsic functions which
will return the Nutrient Assessment dates for a particular patient and the
printable Nutrient Assessment for an Assessment date of that patient.
STATUS Active
DURATION Till Otherwise Agreed
ID FHWORA
COMPONENT/ENTRY POINT
COMPONENT/ENTRY POINT COMPONENT DESCRIPTION VARIABLES
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".
SUBSCRIBING PACKAGE
SUBSCRIBING PACKAGE ISC
ORDER ENTRY/RESULTS REPORTING Salt Lake City