STANDARD DATA DICTIONARY #111.1 -- DIET PATTERNS FILE                                                             3/24/25    PAGE 1
STORED IN ^FH(111.1,  *** NO DATA STORED YET ***   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                        (VERSION 5.5)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains diet patterns.  The entries for a specific pattern represent changes from the production diet for this
particular pattern.  


FILE SCREEN (SCR-node) : I '$D(^FH(111.1,+Y,"I"))!$D(^XUSEC("FHMGR",DUZ))!(DUZ(0)["@")
              DD ACCESS: @
              RD ACCESS: @
              WR ACCESS: @
             DEL ACCESS: @
           LAYGO ACCESS: @
           AUDIT ACCESS: @
IDENTIFIED BY: 
      "WRITE": I $D(^("I")) D EN^DDIOL("(** Inactive **)","","?3")

CROSS
REFERENCED BY: INACTIVE?(AC), NAME(B)



111.1,.01     NAME                   0;1 FREE TEXT (Required)

              INPUT TRANSFORM:  K:$L(X)>70!($L(X)<3)!'(X'?1P.E) X
              LAST EDITED:      JAN 03, 1994 
              HELP-PROMPT:      Answer must be 3-70 characters in length. 
              DESCRIPTION:
                                This field contains the names of the diet or the diet modification ordered.  

              DELETE TEST:      1,0)= I 1 D EN^DDIOL("Cannot delete. Inactivate instead.","","?3")

              CROSS-REFERENCE:  111.1^B 
                                1)= S ^FH(111.1,"B",$E(X,1,30),DA)=""
                                2)= K ^FH(111.1,"B",$E(X,1,30),DA)


111.1,1       DIET1                  0;2 POINTER TO DIETS FILE (#111)

              LAST EDITED:      NOV 30, 1993 
              DESCRIPTION:
                                This is the first diet modification selected from the Diets (111) file.  


111.1,2       DIET2                  0;3 POINTER TO DIETS FILE (#111)

              LAST EDITED:      NOV 30, 1993 
              DESCRIPTION:
                                This is the second diet modification selected from the Diets (111) file.  


111.1,3       DIET3                  0;4 POINTER TO DIETS FILE (#111)

              LAST EDITED:      NOV 30, 1993 
              DESCRIPTION:
                                This is the third diet modification selected from the Diets (111) file.  


111.1,4       DIET4                  0;5 POINTER TO DIETS FILE (#111)

              LAST EDITED:      NOV 30, 1993 
              DESCRIPTION:
                                This is the fourth diet modification selected from the Diets (111) file.  


111.1,5       DIET5                  0;6 POINTER TO DIETS FILE (#111)

              LAST EDITED:      NOV 30, 1993 
              DESCRIPTION:
                                This is the fifth diet modification selected from the Diets (111) file.  


111.1,10      PRODUCTION DIET        0;7 POINTER TO PRODUCTION DIET FILE (#116.2)

              LAST EDITED:      NOV 30, 1993 
              DESCRIPTION:      This is a pointer to the Production Diet (116.2) file and is the outcome of the 'diet recoding'
                                algorithm which is based upon the diet modifications selected.  It is not present for NPO types of 
                                orders.  


111.1,15      BREAKFAST MODIFICATIONS B;0 POINTER Multiple #111.115

              DESCRIPTION:
                                This multiple contains all the breakfast Recipe Categories selected and their quantities.  


111.115,.01     BREAKFAST MODIFICATIONS 0;1 POINTER TO RECIPE CATEGORY FILE (#114.1) (Multiply asked)

                LAST EDITED:      JAN 03, 1994 
                DESCRIPTION:      This is the Recipe Category selected from file (114.1) for the breakfast meal for the selected
                                  diet modifications.  It determines which recipes each patient under the diet modifications will 
                                  receive on the Tray Ticket.  This Recipe Category is also used in producing the Diet Cards.  

                CROSS-REFERENCE:  111.115^B 
                                  1)= S ^FH(111.1,DA(1),"B","B",$E(X,1,30),DA)=""
                                  2)= K ^FH(111.1,DA(1),"B","B",$E(X,1,30),DA)


111.115,1       QUANTITY               0;2 NUMBER (Required)

                INPUT TRANSFORM:  K:+X'=X!(X>9.99)!(X<0)!(X?.E1"."3N.N) X
                LAST EDITED:      JUL 06, 1994 
                HELP-PROMPT:      Type a Number between 0 and 9.99, 2 Decimal Digits 
                DESCRIPTION:      This is the selected quantity for the Recipe Category.  This quantity determines the amount of
                                  the recipe on the Tray Ticket.  If a zero is entered, the recipe is omitted.  




111.1,15.5    ASSOCIATED STANDING ORDERS (B) BS;0 POINTER Multiple #111.11

              LAST EDITED:      JUL 21, 1994 
              DESCRIPTION:
                                This multiple contains all the Standing Orders selected from file 118.3 for breakfast.  


111.11,.01      ASSOCIATED STANDING ORDERS (B) 0;1 POINTER TO STANDING ORDERS FILE (#118.3) (Multiply asked)

                LAST EDITED:      JUL 21, 1994 
                DESCRIPTION:      The Standing Orders on this multiple will all be added to the patient's Standing Order entries
                                  for the meal breakfast when this diet or diet modification is ordered for the patient.  

                CROSS-REFERENCE:  111.11^B 
                                  1)= S ^FH(111.1,DA(1),"BS","B",$E(X,1,30),DA)=""
                                  2)= K ^FH(111.1,DA(1),"BS","B",$E(X,1,30),DA)


111.11,1        QUANTITY               0;2 NUMBER

                INPUT TRANSFORM:  K:+X'=X!(X>9)!(X<1)!(X?.E1"."1N.N) X
                LAST EDITED:      JUL 22, 1994 
                HELP-PROMPT:      Type a Number between 1 and 9, 0 Decimal Digits 
                DESCRIPTION:
                                  This is the quantity of the Standing Order.  




111.1,16      NOON MODIFICATIONS     N;0 POINTER Multiple #111.116

              DESCRIPTION:
                                This multiple contains all the noon Recipe Categories selected and their quantities.  


111.116,.01     NOON MODIFICATIONS     0;1 POINTER TO RECIPE CATEGORY FILE (#114.1) (Multiply asked)

                LAST EDITED:      JAN 03, 1994 
                DESCRIPTION:      This is the Recipe Category selected from the file (114.1) for the noon meal for the selected
                                  diet modifications.  It determines which recipes each patient under the diet modifications will 
                                  receive on the Tray Ticket.  This Recipe Category is also used in producing the Diet Cards.  

                CROSS-REFERENCE:  111.116^B 
                                  1)= S ^FH(111.1,DA(1),"N","B",$E(X,1,30),DA)=""
                                  2)= K ^FH(111.1,DA(1),"N","B",$E(X,1,30),DA)


111.116,1       QUANTITY               0;2 NUMBER (Required)

                INPUT TRANSFORM:  K:+X'=X!(X>9.99)!(X<0)!(X?.E1"."3N.N) X
                LAST EDITED:      JUL 06, 1994 
                HELP-PROMPT:      Type a Number between 0 and 9.99, 2 Decimal Digits 
                DESCRIPTION:      This is the selected quantity for the Recipe Category.  This quantity determines the amount of
                                  the recipe on the Tray Ticket.  If a zero is entered, the recipe is omitted.  




111.1,16.5    ASSOCIATED STANDING ORDERS (N) NS;0 POINTER Multiple #111.12

              LAST EDITED:      JUL 21, 1994 
              DESCRIPTION:
                                This multiple contains all the Standing Orders selected from file 118.3 for noon.  


111.12,.01      ASSOCIATED STANDING ORDERS (N) 0;1 POINTER TO STANDING ORDERS FILE (#118.3) (Multiply asked)

                LAST EDITED:      JUL 21, 1994 
                DESCRIPTION:      The Standing Orders on this multiple will all be added to the patient's Standing Order entries
                                  for the meal noon when this diet or diet modification is ordered for the patient.  

                CROSS-REFERENCE:  111.12^B 
                                  1)= S ^FH(111.1,DA(1),"NS","B",$E(X,1,30),DA)=""
                                  2)= K ^FH(111.1,DA(1),"NS","B",$E(X,1,30),DA)


111.12,1        QUANTITY               0;2 NUMBER

                INPUT TRANSFORM:  K:+X'=X!(X>9)!(X<1)!(X?.E1"."1N.N) X
                LAST EDITED:      JUL 22, 1994 
                HELP-PROMPT:      Type a Number between 1 and 9, 0 Decimal Digits 
                DESCRIPTION:
                                  This is the quantity of the Standing Order.  




111.1,17      EVENING MODIFICATIONS  E;0 POINTER Multiple #111.117

              DESCRIPTION:
                                This multiple contains all the evening Recipe Categories selected and their quantities.  


111.117,.01     EVENING MODIFICATIONS  0;1 POINTER TO RECIPE CATEGORY FILE (#114.1) (Multiply asked)

                LAST EDITED:      JAN 03, 1994 
                DESCRIPTION:      This is the Recipe Category selected from the file (114.1) for the evening meal for the selected
                                  diet modifications.  It determines which recipes each patient under the diet modifications will 
                                  receive on the Tray Ticket.  This Recipe Category is also used in producing the Diet Cards.  

                CROSS-REFERENCE:  111.117^B 
                                  1)= S ^FH(111.1,DA(1),"E","B",$E(X,1,30),DA)=""
                                  2)= K ^FH(111.1,DA(1),"E","B",$E(X,1,30),DA)


111.117,1       QUANTITY               0;2 NUMBER (Required)

                INPUT TRANSFORM:  K:+X'=X!(X>9.99)!(X<0)!(X?.E1"."3N.N) X
                LAST EDITED:      JUL 06, 1994 
                HELP-PROMPT:      Type a Number between 0 and 9.99, 2 Decimal Digits 
                DESCRIPTION:      This is the selected quantity for the Recipe Category.  This quantity determines the amount of
                                  the recipe on the Tray Ticket.  If a zero is entered, the recipe is omitted.  




111.1,17.5    ASSOCIATED STANDING ORDERS (E) ES;0 POINTER Multiple #111.13

              LAST EDITED:      JUL 21, 1994 
              DESCRIPTION:
                                This multiple contains all the Standing Orders selected from file 118.3 for evening.  


111.13,.01      ASSOCIATED STANDING ORDERS (E) 0;1 POINTER TO STANDING ORDERS FILE (#118.3) (Multiply asked)

                LAST EDITED:      JUL 21, 1994 
                DESCRIPTION:      The Standing Orders on this multiple will all be added to the patient's Standing Order entries
                                  for the evening meal when this diet or diet modification is ordered for the patient.  

                CROSS-REFERENCE:  111.13^B 
                                  1)= S ^FH(111.1,DA(1),"ES","B",$E(X,1,30),DA)=""
                                  2)= K ^FH(111.1,DA(1),"ES","B",$E(X,1,30),DA)


111.13,1        QUANTITY               0;2 NUMBER

                INPUT TRANSFORM:  K:+X'=X!(X>9)!(X<1)!(X?.E1"."1N.N) X
                LAST EDITED:      JUL 22, 1994 
                HELP-PROMPT:      Type a Number between 1 and 9, 0 Decimal Digits 
                DESCRIPTION:
                                  This is the quantity of the Standing Order.  




111.1,18      ASSOCIATED SF MENU     0;8 POINTER TO SUPPLEMENTAL FEEDING MENU FILE (#118.1)

              INPUT TRANSFORM:  S DIC("S")="I Y'=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
              LAST EDITED:      JUL 27, 1994 
              DESCRIPTION:      This field will contain the Supplemental Feeding Menu, from file 118.1, that will be added to the
                                patient's supplemental feeding entry when this diet or diet modification is ordered for the
                                patient.  

              SCREEN:           S DIC("S")="I Y'=1"
              EXPLANATION:      Cannot enter INDIVIDUALIZED Supplemental Menu

111.1,19      DIET RESTRICTION       RES;0 POINTER Multiple #111.119

              DESCRIPTION:
                                This multiple contains all the Diet restrictions associated to the Diet modification.  

              SCREEN:           S DIC("S")="I $P(^(0),U,2)=""D"""
              EXPLANATION:      This screen allows the user to only select the dislikes from the Food Preference file.

111.119,.01     DIET RESTRICTION       0;1 POINTER TO FOOD PREFERENCES FILE (#115.2) (Multiply asked)

                INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,2)=""D""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
                LAST EDITED:      APR 03, 1995 
                DESCRIPTION:
                                  This is the dislike food preference from the file (115.2).  

                SCREEN:           S DIC("S")="I $P(^(0),U,2)=""D"""
                EXPLANATION:      This screen allows the user to only select the dislikes from the Food Preference file.
                CROSS-REFERENCE:  111.119^B 
                                  1)= S ^FH(111.1,DA(1),"RES","B",$E(X,1,30),DA)=""
                                  2)= K ^FH(111.1,DA(1),"RES","B",$E(X,1,30),DA)


111.119,1       MEALS                  0;2 FREE TEXT (Required)

                INPUT TRANSFORM:S:$P("ALL",X,1)="" X="BNE" S %=X,X="" S:%["B" X="B" S:%["N" X=X_"N" S:%["E" X=X_"E" K:$L(%)'=$L(X) 
                                X K %
                LAST EDITED:    APR 18, 1995 
                HELP-PROMPT:    Answer should be a string of meals (e.g., B or BN or BNE) or A for all meals. 
                DESCRIPTION:
                                This field contains the meals (B N and E) for which this diet restriction is applicable.  

                NOTES:          XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER




111.1,99      INACTIVE?              I;1 SET

                                'Y' FOR YES; 
                                'N' FOR NO; 
              LAST EDITED:      FEB 23, 2000 
              DESCRIPTION:
                                This field, if answered YES, will prohibit further selection of this entry.  

              CROSS-REFERENCE:  111.1^AC^MUMPS 
                                1)= K:X'="Y" ^FH(111.1,DA,"I")
                                2)= K ^FH(111.1,DA,"I")
                                This cross-reference is used to create an 'I' node for inactive entries.  




      FILES POINTED TO                      FIELDS

DIETS (#111)                      DIET1 (#1)
                                  DIET2 (#2)
                                  DIET3 (#3)
                                  DIET4 (#4)
                                  DIET5 (#5)

FOOD PREFERENCES (#115.2)         DIET RESTRICTION:DIET RESTRICTION (#.01)

PRODUCTION DIET (#116.2)          PRODUCTION DIET (#10)

RECIPE CATEGORY (#114.1)          BREAKFAST MODIFICATIONS:BREAKFAST MODIFICATIONS (#.01)
                                  NOON MODIFICATIONS:NOON MODIFICATIONS (#.01)
                                  EVENING MODIFICATIONS:EVENING MODIFICATIONS (#.01)

STANDING ORDERS (#118.3)          ASSOCIATED STANDING ORDERS (B):ASSOCIATED STANDING ORDERS (B) (#.01)
                                  ASSOCIATED STANDING ORDERS (N):ASSOCIATED STANDING ORDERS (N) (#.01)
                                  ASSOCIATED STANDING ORDERS (E):ASSOCIATED STANDING ORDERS (E) (#.01)

SUPPLEMENTAL FEEDING MENU 
                   (#118.1)       ASSOCIATED SF MENU (#18)



INPUT TEMPLATE(S):

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):