Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details
Print Page as PDF
Sub-Field: 115.07

Package: Dietetics

NUTRITION PERSON(#115)-->115.01-->115.07

Sub-Field: 115.07


Information

Parent File Name Number Package
115.01 SUPPLEMENTAL FEEDING 115.07 Dietetics

Details

Field # Name Loc Type Details
.01 SUPPLEMENTAL FEEDING 0;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  OCT 18, 1987
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    This field is merely the sequence in which the various orders were entered and has no meaning beyond that.
1 DATE/TIME ORDERED 0;2 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 18, 1987
  • DESCRIPTION:  
    This is the date/time at which the order was entered and is captured automatically.
2 ENTERING CLERK 0;3 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • LAST EDITED:  OCT 18, 1987
  • DESCRIPTION:  
    This is the person actually entering the order and is captured automatically at time of entry.
3 SF MENU 0;4 POINTER TO SUPPLEMENTAL FEEDING MENU FILE (#118.1)
************************REQUIRED FIELD************************
SUPPLEMENTAL FEEDING MENU(#118.1)

  • LAST EDITED:  OCT 18, 1987
  • DESCRIPTION:  
    This is the supplemental feeding menu of the Supplemental Feeding Menu file (118.1) that was selected. If other than 'Individualized', the items from the selected menu were moved into this order.
10 10AM FEEDING #1 0;5 POINTER TO SUPPLEMENTAL FEEDINGS FILE (#118) SUPPLEMENTAL FEEDINGS(#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:  OCT 18, 1987
  • DESCRIPTION:  
    This is the first supplemental feeding ordered for the 10am feeding.
  • SCREEN:  S DIC("S")="I $P(^(0),U,3)'=""Y"""
  • EXPLANATION:  Cannot select bulk nourishments
11 10AM #1 QTY 0;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>20)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  OCT 18, 1987
  • HELP-PROMPT:  Type a Number between 1 and 20, 0 Decimal Digits
  • DESCRIPTION:  
    This is the ordered quantity of the first 10am feeding.
12 10AM FEEDING #2 0;7 POINTER TO SUPPLEMENTAL FEEDINGS FILE (#118) SUPPLEMENTAL FEEDINGS(#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 ordered for the 10am feeding.
  • SCREEN:  S DIC("S")="I $P(^(0),U,3)'=""Y"""
  • EXPLANATION:  Cannot select bulk nourishments
13 10AM #2 QTY 0;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 ordered quantity for the second 10am feeding.
14 10AM FEEDING #3 0;9 POINTER TO SUPPLEMENTAL FEEDINGS FILE (#118) SUPPLEMENTAL FEEDINGS(#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 ordered for the 10am feeding.
  • SCREEN:  S DIC("S")="I $P(^(0),U,3)'=""Y"""
  • EXPLANATION:  Cannot select bulk nourishments
15 10AM #3 QTY 0;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 ordered quantity for the third 10am feeding.
16 10AM FEEDING #4 0;11 POINTER TO SUPPLEMENTAL FEEDINGS FILE (#118) SUPPLEMENTAL FEEDINGS(#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 ordered for the 10am feeding.
  • SCREEN:  S DIC("S")="I $P(^(0),U,3)'=""Y"""
  • EXPLANATION:  Cannot select bulk nourishments
17 10AM #4 QTY 0;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 ordered quantity of the fourth 10am feeding.
18 2PM FEEDING #1 0;13 POINTER TO SUPPLEMENTAL FEEDINGS FILE (#118) SUPPLEMENTAL FEEDINGS(#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 ordered for the 2pm feeding.
  • SCREEN:  S DIC("S")="I $P(^(0),U,3)'=""Y"""
  • EXPLANATION:  Cannot select bulk nourishments
19 2PM #1 QTY 0;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 ordered quantity of the first 2pm feeding.
20 2PM FEEDING #2 0;15 POINTER TO SUPPLEMENTAL FEEDINGS FILE (#118) SUPPLEMENTAL FEEDINGS(#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 ordered for the 2pm feeding.
  • SCREEN:  S DIC("S")="I $P(^(0),U,3)'=""Y"""
  • EXPLANATION:  Cannot select bulk nourishments
21 2PM #2 QTY 0;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 ordered quantity of the second 2pm feeding.
22 2PM FEEDING #3 0;17 POINTER TO SUPPLEMENTAL FEEDINGS FILE (#118) SUPPLEMENTAL FEEDINGS(#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 ordered for the 2pm feeding.
  • SCREEN:  S DIC("S")="I $P(^(0),U,3)'=""Y"""
  • EXPLANATION:  Cannot select bulk nourishments
23 2PM #3 QTY 0;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 ordered quantity of the third 2pm feeding.
24 2PM FEEDING #4 0;19 POINTER TO SUPPLEMENTAL FEEDINGS FILE (#118) SUPPLEMENTAL FEEDINGS(#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 ordered for the 2pm feeding.
  • SCREEN:  S DIC("S")="I $P(^(0),U,3)'=""Y"""
  • EXPLANATION:  Cannot select bulk nourishments
25 2PM #4 QTY 0;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 ordered quantity of the fourth 2pm feeding.
26 8PM FEEDING #1 0;21 POINTER TO SUPPLEMENTAL FEEDINGS FILE (#118) SUPPLEMENTAL FEEDINGS(#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 ordered for the 8pm feeding.
  • SCREEN:  S DIC("S")="I $P(^(0),U,3)'=""Y"""
  • EXPLANATION:  Cannot select bulk nourishments
27 8PM #1 QTY 0;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 ordered quantity of the first 8pm feeding.
28 8PM FEEDING #2 0;23 POINTER TO SUPPLEMENTAL FEEDINGS FILE (#118) SUPPLEMENTAL FEEDINGS(#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 ordered for the 8pm feeding.
  • SCREEN:  S DIC("S")="I $P(^(0),U,3)'=""Y"""
  • EXPLANATION:  Cannot select bulk nourishments
29 8PM #2 QTY 0;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 ordered quantity of the second 8pm feeding.
30 8PM FEEDING #3 0;25 POINTER TO SUPPLEMENTAL FEEDINGS FILE (#118) SUPPLEMENTAL FEEDINGS(#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 ordered for the 8pm feeding.
  • SCREEN:  S DIC("S")="I $P(^(0),U,3)'=""Y"""
  • EXPLANATION:  Cannot select bulk nourishments
31 8PM #3 QTY 0;26 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 ordered quantity of the third 8pm feeding.
32 8PM FEEDING #4 0;27 POINTER TO SUPPLEMENTAL FEEDINGS FILE (#118) SUPPLEMENTAL FEEDINGS(#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 ordered for the 8pm feeding.
  • SCREEN:  S DIC("S")="I $P(^(0),U,3)'=""Y"""
  • EXPLANATION:  Cannot select bulk nourishments
33 8PM #4 QTY 0;28 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 ordered quantity of the fourth 8pm feeding.
34 DIETARY OR THERAPEUTIC 0;29 SET
************************REQUIRED FIELD************************

  • LAST EDITED:  SEP 28, 1985
  • DESCRIPTION:  
    This field indicates whether the supplemental feeding was ordered for dietary or therapeutic reasons.
40 DATE/TIME LAST REVIEW 0;30 DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 18, 1987
  • DESCRIPTION:  
    This is the date/time this supplemental feeding order was last reviewed for appropriateness.
41 REVIEW CLERK 0;31 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  OCT 18, 1987
  • DESCRIPTION:  
    This is the person conducting the last review and is captured automatically at time of review.
42 DATE/TIME CANCELLED 0;32 DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 18, 1987
  • DESCRIPTION:  
    This is the date/time this order was cancelled.
43 CANCELLING CLERK 0;33 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  OCT 18, 1987
  • DESCRIPTION:  
    This is the person cancelling the order and is captured automatically at time of cancellation.
44 DIET ASSOCIATED? 0;34 SET

  • LAST EDITED:  JUL 22, 1994
  • DESCRIPTION:  
    This field, if answered Yes, means this Supplemental Feeding Menu is associated with a diet order else if answered No, means it is not.
Info |  Details