Global: ^FH(118.1

FileMan FileNo	FileMan Filename	Package
118.1	SUPPLEMENTAL FEEDING MENU	Dietetics

Package	Total	Routines
Dietetics	2	FHNO1 FHNO5

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

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.`

Customize PDF page

Package: Dietetics

Global: ^FH(118.1

Information

Description

Accessed By FileMan Db Calls, Total: 2

Pointed To By FileMan Files, Total: 2

Pointer To FileMan Files, Total: 1

Fields, Total: 28

Found Entries, Total: 1