Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^FH(118.1

Package: Dietetics

Global: ^FH(118.1


Information

FileMan FileNo FileMan Filename Package
118.1 SUPPLEMENTAL FEEDING MENU Dietetics

Description

Directly Accessed By Routines, Total: 23

Package Total Routines
Dietetics 23 FHASP2    FHNO7    FHNO8    ^FH(118.1    DRUG CLASSIFICATIONS    FHCTF4    FHDMP3    FHMTK21
FHMTK7    FHMTK8    FHNO1    FHNO31    FHNO5    FHOMRMD    FHOMRO2    FHOMRR1
FHORD6    FHORD72    FHORX1C    FHORX3    FHWOR71    FHXDB    FHXDB2    

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
Dietetics 2 FHNO1    FHNO5    

Pointed To By FileMan Files, Total: 2

Package Total FileMan Files
Dietetics 2 DIET PATTERNS(#111.1)[18]    NUTRITION PERSON(#115)[#115.07(3), #115.1627(3)]    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
Dietetics 1 SUPPLEMENTAL FEEDINGS(#118)[10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21]    

Fields, Total: 28

Field # Name Loc Type Details
.01 NAME 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • 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.
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)
3 DIETARY OR THERAPEUTIC 1;25 SET
************************REQUIRED FIELD************************
  • '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.
10 10AM FEEDING #1 1;1 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:  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
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.
11 10AM FEEDING #2 1;3 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:  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
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.
12 10AM FEEDING #3 1;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
  • 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
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.
13 10AM FEEDING #4 1;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 fourth supplemental feeding item for the 10am feeding.
  • SCREEN:  S DIC("S")="I $P(^(0),U,3)'=""Y"""
  • EXPLANATION:  Cannot select bulk nourishments
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.
14 2PM FEEDING #1 1;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 first supplemental feeding item for the 2pm feeding.
  • SCREEN:  S DIC("S")="I $P(^(0),U,3)'=""Y"""
  • EXPLANATION:  Cannot select bulk nourishments
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.
15 2PM FEEDING #2 1;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 second supplemental feeding item for the 2pm feeding.
  • SCREEN:  S DIC("S")="I $P(^(0),U,3)'=""Y"""
  • EXPLANATION:  Cannot select bulk nourishments
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.
16 2PM FEEDING #3 1;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 third supplemental feeding item for the 2pm feeding.
  • SCREEN:  S DIC("S")="I $P(^(0),U,3)'=""Y"""
  • EXPLANATION:  Cannot select bulk nourishments
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.
17 2PM FEEDING #4 1;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 fourth supplemental feeding item for the 2pm feeding.
  • SCREEN:  S DIC("S")="I $P(^(0),U,3)'=""Y"""
  • EXPLANATION:  Cannot select bulk nourishments
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.
18 8PM FEEDING #1 1;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 first supplemental feeding item for the 8pm feeding.
  • SCREEN:  S DIC("S")="I $P(^(0),U,3)'=""Y"""
  • EXPLANATION:  Cannot select bulk nourishments
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.
19 8PM FEEDING #2 1;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 second supplemental feeding item for the 8pm feeding.
  • SCREEN:  S DIC("S")="I $P(^(0),U,3)'=""Y"""
  • EXPLANATION:  Cannot select bulk nourishments
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.
20 8PM FEEDING #3 1;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 third supplemental feeding item for the 8pm feeding.
  • SCREEN:  S DIC("S")="I $P(^(0),U,3)'=""Y"""
  • EXPLANATION:  Cannot select bulk nourishments
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.
21 8PM FEEDING #4 1;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 fourth supplemental feeding item for the 8pm feeding.
  • SCREEN:  S DIC("S")="I $P(^(0),U,3)'=""Y"""
  • EXPLANATION:  Cannot select bulk nourishments
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.
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.

Found Entries, Total: 1

NAME: INDIVIDUALIZED    

External References

Name Field # of Occurrence
EN^DDIOL IDWRITE+1, .01DEL1+1
^DIC 10+1, 11+1, 12+1, 13+1, 14+1, 15+1, 16+1, 17+1, 18+1, 19+1
, 20+1, 21+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FH(118.1 - [#118.1] .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 99(XREF 1S), 99(XREF 1K)

Naked Globals

Name Field # of Occurrence
^("I" IDWRITE+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 99(XREF 1S), 99(XREF 1K)
DIC 10+1!*, 11+1!*, 12+1!*, 13+1!*, 14+1!*, 15+1!*, 16+1!*, 17+1!*, 18+1!*, 19+1!*
, 20+1!*, 21+1!*
DIC("S" 10+1*, 10SCR+1*, 11+1*, 11SCR+1*, 12+1*, 12SCR+1*, 13+1*, 13SCR+1*, 14+1*, 14SCR+1*
, 15+1*, 15SCR+1*, 16+1*, 16SCR+1*, 17+1*, 17SCR+1*, 18+1*, 18SCR+1*, 19+1*, 19SCR+1*
, 20+1*, 20SCR+1*, 21+1*, 21SCR+1*
>> DIE 10+1, 11+1, 12+1, 13+1, 14+1, 15+1, 16+1, 17+1, 18+1, 19+1
, 20+1, 21+1
X .01+1!, .01(XREF 1S), .01(XREF 1K), 1+1!, 1(XREF 1S), 1(XREF 1K), 10+1*!, 10.5+1!, 11+1*!, 11.5+1!
, 12+1*!, 12.5+1!, 13+1*!, 13.5+1!, 14+1*!, 14.5+1!, 15+1*!, 15.5+1!, 16+1*!, 16.5+1!
, 17+1*!, 17.5+1!, 18+1*!, 18.5+1!, 19+1*!, 19.5+1!, 20+1*!, 20.5+1!, 21+1*!, 21.5+1!
, 99(XREF 1S)
>> Y 10+1, 11+1, 12+1, 13+1, 14+1, 15+1, 16+1, 17+1, 18+1, 19+1
, 20+1, 21+1
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All