Print Page as PDF
DBIA2291 ICR (2291)

DBIA2291    ICR (2291)

Name Value
NUMBER 2291
IA # 2291
DATE CREATED 1998/02/06
CUSTODIAL PACKAGE DIETETICS
CUSTODIAL ISC Chicago
USAGE Private
TYPE Routine
DBIC APPROVAL STATUS APPROVED
ROUTINE FHWOR7
NAME DBIA2291
GENERAL DESCRIPTION 
Routine FHWOR7 will return the information on the
Dietetics Profile.  DFN have to be defined before using the routine.
STATUS Active
DURATION Till Otherwise Agreed
ID FHWOR7
COMPONENT/ENTRY POINT
COMPONENT/ENTRY POINT COMPONENT DESCRIPTION VARIABLES
FHWOR7 
This routine will return Supplemental Feeding,
Tubefeeding, and Food Preference of a particular inpatient in the ^TMP global.
VARIABLES TYPE VARIABLES DESCRIPTION
DFN Input 
The Internal Entry Number of the inpatient.
TMP($J) Output 
Dietetics will return the following arrays:

Supplemental Feeding:

^TMP($J,"FHSF",1)=Date/Time (Internal FM form 2970422.103109)_"^"_
10am feeding Quantity # 1_" "_10am Feeding name # 1_";"_
10am feeding Quantity # 2_" "_10am Feeding name # 2_";"_
10am feeding Quantity # 3_" "_10am Feeding name # 3_";"_
10am feeding Quantity # 4_" "_10am Feeding name # 4_"^"_
2pm feeding Quantity # 1_" "_2pm Feeding name # 1_";"_
2pm feeding Quantity # 2_" "_2pm Feeding name # 2_";"_
2pm feeding Quantity # 3_" "_2pm Feeding name # 3_";"_
2pm feeding Quantity # 4_" "_2pm Feeding name # 4_"^"_
8pm feeding Quantity # 1_" "_8pm Feeding name # 1_";"_
8pm feeding Quantity # 2_" "_8pm Feeding name # 2_";"_
8pm feeding Quantity # 3_" "_8pm Feeding name # 3_";"_
8pm feeding Quantity # 4_" "_8pm Feeding name # 4


Tubefeeding:

^TMP($J,"FHTF",1)=Kcal/Day

Food Preference:

Likes:

^TMP($J,"FHFP","L",n)=Quantity_" "_Food Preference name_"^"_Meal (example BNE)

n=Sequential number

Dislikes:

^TMP($J,"FHFP","D",n)=Food Preference name_"^"_Meal

n=Sequential number
SUBSCRIBING PACKAGE
SUBSCRIBING PACKAGE ISC
ORDER ENTRY/RESULTS REPORTING Salt Lake City