STANDARD DATA DICTIONARY #116.2 -- PRODUCTION DIET FILE 9/29/25 PAGE 1
STORED IN ^FH(116.2, (1 ENTRY) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.5)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains a list of the production diets which are the basic diets actually prepared and from which the wide variety of
clinical diet modifications are derived.
FILE SCREEN (SCR-node) : I '$D(^FH(116.2,+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: PRODUCTION DIET field (#4) of the DIETS File (#111)
PRODUCTION DIET field (#10) of the DIET PATTERNS File (#111.1)
PRODUCTION DIET field (#3) of the MEAL NUMBER sub-field (#112.62) of the DAY NUMBER sub-field (#112.61) of the USER
MENU File (#112.6)
PRODUCTION DIET field (#12) of the DIET sub-field (#115.02) of the ADMISSION sub-field (#115.01) of the NUTRITION
PERSON File (#115)
SINGULAR PRODUCTION DIETS field (#.01) of the SINGULAR PRODUCTION DIETS sub-field (#116.211) of the PRODUCTION DIET
File (#116.2)
ADD. MEALS PRODUCTION DIET field (#.01) of the ADDITIONAL MEALS sub-field (#119.721) of the SERVICE POINT File
(#119.72)
FORECAST % PRODUCTION DIET field (#.01) of the PRODUCTION DIET PERCENTAGE sub-field (#119.7211) of the SERVICE POINT
File (#119.72)
DIET field (#.01) of the DIET sub-field (#728.451) of the DSS NUTRITION PRODUCT WORKSHEET File (#728.45)
CROSS
REFERENCED BY: INACTIVE?(AC), INACTIVE?(AD), TALLY ORDER(AO), PRINT ORDER(AP), TALLY ORDER(AR), SINGULAR PRODUCTION DIETS(AR1),
NAME(B), CODE(C)
116.2,.01 NAME 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X
LAST EDITED: JUN 29, 1995
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION: This field contains the name of a production diet. This is a diet that is prepared in the kitchen
(as compared to a clinical diet modification which is ordered).
DELETE TEST: 1,0)= I 1 D EN^DDIOL("Cannot delete. Inactivate instead.","","?3")
CROSS-REFERENCE: 116.2^B
1)= S ^FH(116.2,"B",$E(X,1,30),DA)=""
2)= K ^FH(116.2,"B",$E(X,1,30),DA)
This is the normal B cross-reference of the NAME field.
116.2,1 CODE 0;2 FREE TEXT (Required)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>2!($L(X)<2)!'(X?1U1UN) X I $D(X) S Y=$O(^FH(116.2,"C",X,0)) I
Y>0,Y-DA W *7," Code used by ",$P(^FH(116.2,Y,0),"^",1) K X
LAST EDITED: DEC 17, 1985
HELP-PROMPT: ANSWER MUST BE 2 CHARACTERS (2 LETTERS OR LETTER-NUMBER) AND UNIQUE
DESCRIPTION: This is a simple two-character code for the diet and is used extensively in the production summary
listings.
CROSS-REFERENCE: 116.2^C
1)= S ^FH(116.2,"C",$E(X,1,30),DA)=""
2)= K ^FH(116.2,"C",$E(X,1,30),DA)
116.2,3 # DAYS TO REVIEW 0;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>120)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JAN 06, 1992
HELP-PROMPT: Type a Number between 1 and 120, 0 Decimal Digits
DESCRIPTION: This field represents the number of days after which a patient on this Production Diet should be
reviewed.
116.2,7 PRINT ORDER 0;6 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X I $D(X) S Y=$O(^FH(116.2,"AP",X,0)) I Y>0,Y-DA W *7," Order
used by ",$P(^FH(116.2,Y,0),"^",1) K X
LAST EDITED: NOV 15, 1987
HELP-PROMPT: Type a Number between 1 and 99, 0 Decimal Digits
DESCRIPTION: This is the order in which this production diet will appear in lists, from low print orders to
high.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 116.2^AP
1)= S ^FH(116.2,"AP",$E(X,1,30),DA)=""
2)= K ^FH(116.2,"AP",$E(X,1,30),DA)
116.2,7.5 PRINT ON DAILY MENU? 0;7 SET (Required)
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: OCT 06, 1989
DESCRIPTION: This field, when answered YES, will result in the Production Diet being listed on the Daily Menu
sheets.
116.2,8 TALLY ORDER 0;5 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X I $D(X) S Y=$O(^FH(116.2,"AO",X,0)) I Y>0,Y-DA W *7," Order
used by ",$P(^FH(116.2,Y,0),"^",1) K X
LAST EDITED: JUL 14, 1987
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 99
DESCRIPTION: In recoding diets, this is the order in which the clinical 'default production diets' will be
matched against this production diet. Recoding will occur as soon as a match occurs. Therefore,
this field can be conceptualized as representing the relative importance of the production diet.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 116.2^AO
1)= S ^FH(116.2,"AO",$E(X,1,30),DA)=""
2)= K ^FH(116.2,"AO",$E(X,1,30),DA)
CROSS-REFERENCE: 116.2^AR^MUMPS
1)= D SET^FHORDR
2)= D SET^FHORDR
This cross-reference rebuilds the 'AR' decoding string whenever the tally order is changed.
116.2,10 IS THIS A COMBO DIET? 0;4 SET (Required)
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: OCT 06, 1989
DESCRIPTION: This field, when answered YES, indicates that this production diet is a combination of other
production diets (e.g., both low sodium and calorie restricted). Since ALL production diets in a
combo must match the 'default production diets' of a clinical order, such combo production diets
should have a tally order less than any of the individual production diets contained in the combo.
116.2,11 SINGULAR PRODUCTION DIETS R;0 POINTER Multiple #116.211
DESCRIPTION:
This multiple contains a list of the production diets which constitute the combo production diet.
116.211,.01 SINGULAR PRODUCTION DIETS 0;1 POINTER TO PRODUCTION DIET FILE (#116.2) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),""^"",4)'=""Y""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUL 14, 1987
DESCRIPTION: This is a production diet that is to be contained in the combo production diet. It itself must
not also be a combo production diet.
SCREEN: S DIC("S")="I $P(^(0),""^"",4)'=""Y"""
EXPLANATION: Can only select singular production diets.
CROSS-REFERENCE: 116.211^B
1)= S ^FH(116.2,DA(1),"R","B",$E(X,1,30),DA)=""
2)= K ^FH(116.2,DA(1),"R","B",$E(X,1,30),DA)
This is the normal B cross-reference of the SINGULAR PRODUCTION DIETS field.
CROSS-REFERENCE: 116.2^AR1^MUMPS
1)= D SET^FHORDR
2)= D SET^FHORDR
This cross-reference will rebuild the 'AR' decoding string whenever a change is made to a
combination production diet.
116.2,99 INACTIVE? I;1 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: NOV 05, 1993
DESCRIPTION:
This field, when answered YES, will prohibit further selection of this Production Diet.
CROSS-REFERENCE: 116.2^AC^MUMPS
1)= K:X'="Y" ^FH(116.2,DA,"I")
2)= K ^FH(116.2,DA,"I")
This cross-reference is used to create an 'I' node for inactive entries.
CROSS-REFERENCE: 116.2^AD^MUMPS
1)= D SET^FHORDR
2)= D SET^FHORDR
This cross-reference does not alter the global contents but rather invokes a routine which removes
inactive production diets from the recording scheme.
FILES POINTED TO FIELDS
PRODUCTION DIET (#116.2) SINGULAR PRODUCTION DIETS:SINGULAR PRODUCTION DIETS (#.01)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
FHPROD DEC 02, 1988 USER #0 PRODUCTION DIET LIST
This template lists the production diets contained in the
Production Diet file (116.2) along with the associated
data elements.
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):