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 | Found Entries | All

Print Page as PDF

Global: ^FH(111

Package: Dietetics

Global: ^FH(111

Information

FileMan FileNo	FileMan Filename	Package
111	DIETS	Dietetics

Description

This file contains a list of all of the diet modifications allowed by the using facility. Associated with each diet are characteristics such as alternate names, an abbreviated name, whether a clinician is to be bulletined when ordered, and a diet precedence which is used to prevent diet conflicts and as a printing sequence order.

Accessed By FileMan Db Calls, Total: 10

Package	Total	Routines
Dietetics	9	FHIP1 FHMTK FHMTK2 FHNO21 FHOMRO1 FHOMRO3 FHOMSR1 FHORD FHORD1
DSS Extracts	1	ECXNUT1

Pointed To By FileMan Files, Total: 4

Package	Total	FileMan Files
Dietetics	4	DIET PATTERNS(#111.1)[1, 2, 3, 4, 5] NUTRITION LOCATION(#119.6)[15] FH SITE PARAMETERS(#119.9)[4, 5, 6, 7, 8, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49] NUTRITION PERSON(#115)[#115.016(1), #115.016(6), #115.016(7), #115.016(8), #115.016(9), #115.016(10), #115.017(3), #115.018(5), #115.02(1), #115.02(2), #115.02(3), #115.02(4), #115.02(5)]

Pointer To FileMan Files, Total: 1

Package	Total	FileMan Files
Dietetics	1	PRODUCTION DIET(#116.2)[4]

Fields, Total: 9

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X` LAST EDITED: `JAN 08, 1988` HELP-PROMPT: `ANSWER MUST BE 3-30 CHARACTERS IN LENGTH` DESCRIPTION: `This field contains the name of a diet or diet modification as it would normally be known to ward/medical personnel.` AUDIT: `YES, ALWAYS` DELETE TEST: `1,0)= I 1 D EN^DDIOL("Cannot delete. Inactivate instead.","","?3")` CROSS-REFERENCE: `111^B` `1)= S ^FH(111,"B",$E(X,1,30),DA)=""` `2)= K ^FH(111,"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)>12!($L(X)<1) X` LAST EDITED: `FEB 02, 1985` HELP-PROMPT: `ANSWER MUST BE 1-12 CHARACTERS IN LENGTH` DESCRIPTION: `This field may contain a synonym for the diet name; the synonym is generally terminology known and used by ward/medical personnel.` CROSS-REFERENCE: `111^C` `1)= S ^FH(111,"C",$E(X,1,30),DA)=""` `2)= K ^FH(111,"C",$E(X,1,30),DA)`
2	ASK EXPIRATION DATE?	0;3	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `JUN 08, 1985` DESCRIPTION: `This field, when answered YES, will result in the user being prompted for a diet expiration date (as well as the start date) whenever this diet is contained in a total diet order.`
3	DIET PRECEDENCE	0;4	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 29, 1985` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 99` DESCRIPTION: `This is a numerical value which performs two functions: no two diet modifications with the same precedence may be selected. The same number can therefore be assigned to mutually-exclusive diet modifications. Secondly, the` `diet modifications will be listed in precedence order, from low to high.`
4	PRODUCTION DIET	0;5	POINTER TO PRODUCTION DIET FILE (#116.2)	**********************REQUIRED FIELD********************** PRODUCTION DIET(#116.2) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),""^"",4)'=""Y""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUL 13, 1987` DESCRIPTION: `This field contains the Production Diet entry (file 116.2) which would be prepared for this diet modification were it to stand alone from other diet modifications.` SCREEN: `S DIC("S")="I $P(^(0),""^"",4)'=""Y"""` EXPLANATION: `Include only non-combo production diets.`
5	BULLETIN CLINICIAN?	0;6	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `JUN 08, 1985` DESCRIPTION: `This field, if answered YES, will result in a bulletin being sent to the clinician(s) responsible for the ward on which the patient resides any time this diet modification is ordered.`
6	ABBREVIATED LABEL	0;7	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>12!($L(X)<1) X` LAST EDITED: `FEB 02, 1985` HELP-PROMPT: `ANSWER MUST BE 1-12 CHARACTERS IN LENGTH` DESCRIPTION: `This is an abbreviated label title used on diet cards; the terminology and abbreviations will normally be those used by dietetic personnel.`
10	ALTERNATE NAME	AN;0	Multiple #111.01	111.01 DESCRIPTION: `This field may be used for any number of alternate names for the diet modification. These alternative names will normally be those used by ward/medical personnel.`
99	INACTIVE?	I;1	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `AUG 13, 1986` DESCRIPTION: `This field, if answered YES, will prohibit further selection of this diet modification by ward personnel.` CROSS-REFERENCE: `111^AC^MUMPS` `1)= K:X'="Y" ^FH(111,DA,"I")` `2)= K ^FH(111,DA,"I")` `This cross-reference is used to create an 'I' node for inactive entries.`

Found Entries, Total: 1

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