STANDARD DATA DICTIONARY #118.1 -- SUPPLEMENTAL FEEDING MENU FILE 9/29/25 PAGE 1
STORED IN ^FH(118.1, (1 ENTRY) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.5)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains a pattern of supplemental feedings (up to four items for each of three time periods) which are often requested
in common situations (e.g., a diabetic patient) and avoids the necessity of individually selecting the various items when ordering
supplemental feedings.
FILE SCREEN (SCR-node) : I '$D(^FH(118.1,+Y,"I"))!$D(^XUSEC("FHMGR",DUZ))!(DUZ(0)["@")
DD ACCESS: #
RD ACCESS: #F
WR ACCESS: #f
DEL ACCESS: #f
LAYGO ACCESS: #f
IDENTIFIED BY:
"WRITE": I $D(^("I")) D EN^DDIOL("(** Inactive **)","","?3")
POINTED TO BY: ASSOCIATED SF MENU field (#18) of the DIET PATTERNS File (#111.1)
SF MENU field (#3) of the SUPPLEMENTAL FEEDING sub-field (#115.07) of the ADMISSION sub-field (#115.01) of the
NUTRITION PERSON File (#115)
SF MENU field (#3) of the SUPPLEMENTAL FEEDING sub-field (#115.1627) of the RECURRING MEALS sub-field (#115.016) of
the NUTRITION PERSON File (#115)
CROSS
REFERENCED BY: INACTIVE?(AC), NAME(B), SYNONYM(C)
118.1,.01 NAME 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>27!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X
LAST EDITED: FEB 07, 1985
HELP-PROMPT: ANSWER MUST BE 3-27 CHARACTERS IN LENGTH
DESCRIPTION: This is the name of the supplemental feeding menu, a pre-set collection of feeding items for the
three feeding times.
DELETE TEST: 1,0)= I 1 D EN^DDIOL("Cannot delete. Inactivate instead.","","?3")
CROSS-REFERENCE: 118.1^B
1)= S ^FH(118.1,"B",$E(X,1,30),DA)=""
2)= K ^FH(118.1,"B",$E(X,1,30),DA)
This is the normal B cross-reference of the NAME field.
118.1,1 SYNONYM 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<3) X
LAST EDITED: MAR 16, 1985
HELP-PROMPT: ANSWER MUST BE 3-10 CHARACTERS IN LENGTH
DESCRIPTION:
This field may contain a synonym for the feeding menu.
CROSS-REFERENCE: 118.1^C
1)= S ^FH(118.1,"C",$E(X,1,30),DA)=""
2)= K ^FH(118.1,"C",$E(X,1,30),DA)
118.1,3 DIETARY OR THERAPEUTIC 1;25 SET (Required)
'D' FOR DIETARY;
'T' FOR THERAPEUTIC;
LAST EDITED: OCT 03, 1985
DESCRIPTION:
This field indicates whether the menu is generally ordered for dietary or therapeutic reasons.
118.1,10 10AM FEEDING #1 1;1 POINTER TO SUPPLEMENTAL FEEDINGS FILE (#118)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,3)'=""Y""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUN 04, 1985
DESCRIPTION:
This is the first supplemental feeding item for the 10am feeding.
SCREEN: S DIC("S")="I $P(^(0),U,3)'=""Y"""
EXPLANATION: Cannot select bulk nourishments
118.1,10.5 10AM #1 QTY 1;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>20)!(X<1)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 20
DESCRIPTION:
This is the quantity of the first 10am feeding item.
118.1,11 10AM FEEDING #2 1;3 POINTER TO SUPPLEMENTAL FEEDINGS FILE (#118)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,3)'=""Y""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUN 04, 1985
DESCRIPTION:
This is the second supplemental feeding item for the 10am feeding.
SCREEN: S DIC("S")="I $P(^(0),U,3)'=""Y"""
EXPLANATION: Cannot select bulk nourishments
118.1,11.5 10AM #2 QTY 1;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>20)!(X<1)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 20
DESCRIPTION:
This is the quantity of the second 10am feeding item.
118.1,12 10AM FEEDING #3 1;5 POINTER TO SUPPLEMENTAL FEEDINGS FILE (#118)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,3)'=""Y""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
DESCRIPTION:
This is the third supplemental feeding item for the 10am feeding.
SCREEN: S DIC("S")="I $P(^(0),U,3)'=""Y"""
EXPLANATION: Cannot select bulk nourishments
118.1,12.5 10AM #3 QTY 1;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>20)!(X<1)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 20
DESCRIPTION:
This is the quantity of the third 10am feeding item.
118.1,13 10AM FEEDING #4 1;7 POINTER TO SUPPLEMENTAL FEEDINGS FILE (#118)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,3)'=""Y""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
DESCRIPTION:
This is the fourth supplemental feeding item for the 10am feeding.
SCREEN: S DIC("S")="I $P(^(0),U,3)'=""Y"""
EXPLANATION: Cannot select bulk nourishments
118.1,13.5 10AM #4 QTY 1;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>20)!(X<1)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 20
DESCRIPTION:
This is the quantity of the fourth 10am feeding item.
118.1,14 2PM FEEDING #1 1;9 POINTER TO SUPPLEMENTAL FEEDINGS FILE (#118)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,3)'=""Y""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
DESCRIPTION:
This is the first supplemental feeding item for the 2pm feeding.
SCREEN: S DIC("S")="I $P(^(0),U,3)'=""Y"""
EXPLANATION: Cannot select bulk nourishments
118.1,14.5 2PM #1 QTY 1;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>20)!(X<1)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 20
DESCRIPTION:
This is the quantity of the first 2pm feeding item.
118.1,15 2PM FEEDING #2 1;11 POINTER TO SUPPLEMENTAL FEEDINGS FILE (#118)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,3)'=""Y""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
DESCRIPTION:
This is the second supplemental feeding item for the 2pm feeding.
SCREEN: S DIC("S")="I $P(^(0),U,3)'=""Y"""
EXPLANATION: Cannot select bulk nourishments
118.1,15.5 2PM #2 QTY 1;12 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>20)!(X<1)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 20
DESCRIPTION:
This is the quantity of the second 2pm feeding item.
118.1,16 2PM FEEDING #3 1;13 POINTER TO SUPPLEMENTAL FEEDINGS FILE (#118)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,3)'=""Y""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
DESCRIPTION:
This is the third supplemental feeding item for the 2pm feeding.
SCREEN: S DIC("S")="I $P(^(0),U,3)'=""Y"""
EXPLANATION: Cannot select bulk nourishments
118.1,16.5 2PM #3 QTY 1;14 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>20)!(X<1)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 20
DESCRIPTION:
This is the quantity of the third 2pm feeding item.
118.1,17 2PM FEEDING #4 1;15 POINTER TO SUPPLEMENTAL FEEDINGS FILE (#118)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,3)'=""Y""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
DESCRIPTION:
This is the fourth supplemental feeding item for the 2pm feeding.
SCREEN: S DIC("S")="I $P(^(0),U,3)'=""Y"""
EXPLANATION: Cannot select bulk nourishments
118.1,17.5 2PM #4 QTY 1;16 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>20)!(X<1)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 20
DESCRIPTION:
This is the quantity of the fourth 2pm feeding item.
118.1,18 8PM FEEDING #1 1;17 POINTER TO SUPPLEMENTAL FEEDINGS FILE (#118)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,3)'=""Y""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
DESCRIPTION:
This is the first supplemental feeding item for the 8pm feeding.
SCREEN: S DIC("S")="I $P(^(0),U,3)'=""Y"""
EXPLANATION: Cannot select bulk nourishments
118.1,18.5 8PM #1 QTY 1;18 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>20)!(X<1)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 20
DESCRIPTION:
This is the quantity of the first 8pm feeding item.
118.1,19 8PM FEEDING #2 1;19 POINTER TO SUPPLEMENTAL FEEDINGS FILE (#118)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,3)'=""Y""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
DESCRIPTION:
This is the second supplemental feeding item for the 8pm feeding.
SCREEN: S DIC("S")="I $P(^(0),U,3)'=""Y"""
EXPLANATION: Cannot select bulk nourishments
118.1,19.5 8PM #2 QTY 1;20 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>20)!(X<1)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 20
DESCRIPTION:
This is the quantity of the second 8pm feeding item.
118.1,20 8PM FEEDING #3 1;21 POINTER TO SUPPLEMENTAL FEEDINGS FILE (#118)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,3)'=""Y""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
DESCRIPTION:
This is the third supplemental feeding item for the 8pm feeding.
SCREEN: S DIC("S")="I $P(^(0),U,3)'=""Y"""
EXPLANATION: Cannot select bulk nourishments
118.1,20.5 8PM #3 QTY 1;22 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>20)!(X<1)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 20
DESCRIPTION:
This is the quantity of the third 8pm feeding item.
118.1,21 8PM FEEDING #4 1;23 POINTER TO SUPPLEMENTAL FEEDINGS FILE (#118)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,3)'=""Y""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
DESCRIPTION:
This is the fourth supplemental feeding item for the 8pm feeding.
SCREEN: S DIC("S")="I $P(^(0),U,3)'=""Y"""
EXPLANATION: Cannot select bulk nourishments
118.1,21.5 8PM #4 QTY 1;24 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>20)!(X<1)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 20
DESCRIPTION:
This is the quantity of the fourth 8pm feeding item.
118.1,99 INACTIVE? I;1 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: AUG 31, 1988
DESCRIPTION: This field, if answered YES, will prohibit further selection of this Supplemental Feeding Menu by
dietetic personnel.
CROSS-REFERENCE: 118.1^AC^MUMPS
1)= K:X'="Y" ^FH(118.1,DA,"I")
2)= K ^FH(118.1,DA,"I")
This cross-reference is used to create an 'I' node for inactive entries.
FILES POINTED TO FIELDS
SUPPLEMENTAL FEEDINGS (#118) 10AM FEEDING #1 (#10)
10AM FEEDING #2 (#11)
10AM FEEDING #3 (#12)
10AM FEEDING #4 (#13)
2PM FEEDING #1 (#14)
2PM FEEDING #2 (#15)
2PM FEEDING #3 (#16)
2PM FEEDING #4 (#17)
8PM FEEDING #1 (#18)
8PM FEEDING #2 (#19)
8PM FEEDING #3 (#20)
8PM FEEDING #4 (#21)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
FHSFMENU MAR 16, 1985 USER #0 SUPPLEMENTAL FEEDING MENU LIST
This template lists all of the supplemental menus listed in
the Supplemental Feeding Menu file (118.1) along with the
associated data elements.
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):