Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Desc | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | ICR | Found Entries | All

Print Page as PDF

Global: ^FH(118

Package: Dietetics

Global: ^FH(118

Information

FileMan FileNo	FileMan Filename	Package
118	SUPPLEMENTAL FEEDINGS	Dietetics

Description

This file contains all items served as supplemental feedings. When appropriate, it may include combinations such as ice cream with spoon. Items designed for bulk delivery to the wards are also contained in this file.

Accessed By FileMan Db Calls, Total: 3

Pointed To By FileMan Files, Total: 4

Pointer To FileMan Files, Total: 1

Fields, Total: 8

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>20!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X` LAST EDITED: `AUG 12, 1984` HELP-PROMPT: `ANSWER MUST BE 3-20 CHARACTERS IN LENGTH` DESCRIPTION: `This field contains the name of the Supplemental Feeding.` DELETE TEST: `1,0)= I 1 D EN^DDIOL("Cannot delete. Inactivate instead.","","?3")` CROSS-REFERENCE: `118^B` `1)= S ^FH(118,"B",$E(X,1,30),DA)=""` `2)= K ^FH(118,"B",$E(X,1,30),DA)` `This is the normal B cross-reference of the NAME field.`
1	SYNONYM	S;0	Multiple #118.01	118.01 DESCRIPTION: `This field allows for a number of synonyms for the supplemental feeding to be entered.`
5	LABEL?	0;2	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `MAR 20, 1985` HELP-PROMPT: `Enter N if you do not want a separate label for this item` DESCRIPTION: `This field, when answered NO, means that a label will not be produced for this item when separate supplemental feeding labels for each item have been specified in the site parameters.`
7	VEHICLE FOR MEDS?	0;4	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `JUN 06, 1985` DESCRIPTION: `This field, when answered YES, means that the supplemental feeding is typically used as a vehicle for meds.`
10	BULK ONLY?	0;3	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `JUN 04, 1985` DESCRIPTION: `This field, when answered YES, means that this supplemental feeding item can ONLY be selected as a bulk feeding for ward delivery and may not be selected as an individual feeding item.`
11	CORRESPONDING RECIPE	0;7	POINTER TO RECIPE FILE (#114)	RECIPE(#114) LAST EDITED: `SEP 29, 1990` DESCRIPTION: `This field is a pointer to the recipe in file 114 (the Recipe file) which contains the ingredients for this feeding. Cost and other data for this feeding will be retrieved from the recipe file.`
20	COST		COMPUTED	MUMPS CODE: `X ^DD(118,20,9.2) S X=$P(Y(118,20,101),U,13) S D0=Y(118,20,80) S X=$J(X,0,2)` `9.2 = S Y(118,20,80)=$S($D(D0):D0,1:""),Y(118,20,1)=$S($D(^FH(118,D0,0)):^(0),1:""),D0=$P(Y(118,20,1),U,7) S:'$D(^FH(114,+D0,0)) D0=-1 S Y(118,20,101)=$S($D(^FH(114,D0,0)):^(0),1:"")` ALGORITHM: `CORRESPONDING RECIPE:COST/PORTION (ALWAYS 2 DECIMAL DIGITS)` LAST EDITED: `JUN 28, 1986` HELP-PROMPT: `TYPE A NUMBER BETWEEN 0 AND 20` DESCRIPTION: `This is the portion cost of the supplemental feeding and is a computed field which obtains the value from the recipe file based upon the 'Corresponding Recipe' pointer.` CROSS-REFERENCE: `118^AC^MUMPS` `1)= S $P(^FH(118,DA,0),"^",6)=DT` `2)= S $P(^FH(118,DA,0),"^",6)=""`
99	INACTIVE?	I;1	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `AUG 13, 1986` DESCRIPTION: `This field, when answered YES, means that further selection of this item by dietetic personnel is prohibited.` CROSS-REFERENCE: `118^AD^MUMPS` `1)= K:X'="Y" ^FH(118,DA,"I")` `2)= K ^FH(118,DA,"I")` `This cross-reference is used to create an 'I' node for inactive entries.`

Found Entries, Total: 1

ICR, Total: 1

Info | Desc | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | ICR | Found Entries | All