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(116.2

Package: Dietetics

Global: ^FH(116.2

Information

FileMan FileNo	FileMan Filename	Package
116.2	PRODUCTION DIET	Dietetics

Description

This file contains a list of the production diets which are the basic diets actually prepared and from which the wide variety of clinical diet modifications are derived.

Accessed By FileMan Db Calls, Total: 5

Pointed To By FileMan Files, Total: 7

Pointer To FileMan Files, Total: 1

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: `JUN 29, 1995` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `This field contains the name of a production diet. This is a diet that is prepared in the kitchen (as compared to a clinical diet modification which is ordered).` DELETE TEST: `1,0)= I 1 D EN^DDIOL("Cannot delete. Inactivate instead.","","?3")` CROSS-REFERENCE: `116.2^B` `1)= S ^FH(116.2,"B",$E(X,1,30),DA)=""` `2)= K ^FH(116.2,"B",$E(X,1,30),DA)` `This is the normal B cross-reference of the NAME field.`
1	CODE	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>2!($L(X)<2)!'(X?1U1UN) X I $D(X) S Y=$O(^FH(116.2,"C",X,0)) I Y>0,Y-DA W *7," Code used by ",$P(^FH(116.2,Y,0),"^",1) K X` LAST EDITED: `DEC 17, 1985` HELP-PROMPT: `ANSWER MUST BE 2 CHARACTERS (2 LETTERS OR LETTER-NUMBER) AND UNIQUE` DESCRIPTION: `This is a simple two-character code for the diet and is used extensively in the production summary listings.` CROSS-REFERENCE: `116.2^C` `1)= S ^FH(116.2,"C",$E(X,1,30),DA)=""` `2)= K ^FH(116.2,"C",$E(X,1,30),DA)`
3	# DAYS TO REVIEW	0;8	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>120)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 06, 1992` HELP-PROMPT: `Type a Number between 1 and 120, 0 Decimal Digits` DESCRIPTION: `This field represents the number of days after which a patient on this Production Diet should be reviewed.`
7	PRINT ORDER	0;6	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X I $D(X) S Y=$O(^FH(116.2,"AP",X,0)) I Y>0,Y-DA W *7," Order used by ",$P(^FH(116.2,Y,0),"^",1) K X` LAST EDITED: `NOV 15, 1987` HELP-PROMPT: `Type a Number between 1 and 99, 0 Decimal Digits` DESCRIPTION: `This is the order in which this production diet will appear in lists, from low print orders to high.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `116.2^AP` `1)= S ^FH(116.2,"AP",$E(X,1,30),DA)=""` `2)= K ^FH(116.2,"AP",$E(X,1,30),DA)`
7.5	PRINT ON DAILY MENU?	0;7	SET	**********************REQUIRED FIELD********************** 'Y' FOR YES; 'N' FOR NO; LAST EDITED: `OCT 06, 1989` DESCRIPTION: `This field, when answered YES, will result in the Production Diet being listed on the Daily Menu sheets.`
8	TALLY ORDER	0;5	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X I $D(X) S Y=$O(^FH(116.2,"AO",X,0)) I Y>0,Y-DA W *7," Order used by ",$P(^FH(116.2,Y,0),"^",1) K X` LAST EDITED: `JUL 14, 1987` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 99` DESCRIPTION: `In recoding diets, this is the order in which the clinical 'default production diets' will be matched against this production diet. Recoding will occur as soon as a match occurs. Therefore, this field can be conceptualized` `as representing the relative importance of the production diet.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `116.2^AO` `1)= S ^FH(116.2,"AO",$E(X,1,30),DA)=""` `2)= K ^FH(116.2,"AO",$E(X,1,30),DA)` CROSS-REFERENCE: `116.2^AR^MUMPS` `1)= D SET^FHORDR` `2)= D SET^FHORDR` `This cross-reference rebuilds the 'AR' decoding string whenever the tally order is changed.`
10	IS THIS A COMBO DIET?	0;4	SET	**********************REQUIRED FIELD********************** 'Y' FOR YES; 'N' FOR NO; LAST EDITED: `OCT 06, 1989` DESCRIPTION: `This field, when answered YES, indicates that this production diet is a combination of other production diets (e.g., both low sodium and calorie restricted). Since ALL production diets in a combo must match the 'default` `production diets' of a clinical order, such combo production diets should have a tally order less than any of the individual production diets contained in the combo.`
11	SINGULAR PRODUCTION DIETS	R;0	POINTER Multiple #116.211	116.211 DESCRIPTION: `This multiple contains a list of the production diets which constitute the combo production diet.`
99	INACTIVE?	I;1	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `NOV 05, 1993` DESCRIPTION: `This field, when answered YES, will prohibit further selection of this Production Diet.` CROSS-REFERENCE: `116.2^AC^MUMPS` `1)= K:X'="Y" ^FH(116.2,DA,"I")` `2)= K ^FH(116.2,DA,"I")` `This cross-reference is used to create an 'I' node for inactive entries.` CROSS-REFERENCE: `116.2^AD^MUMPS` `1)= D SET^FHORDR` `2)= D SET^FHORDR` `This cross-reference does not alter the global contents but rather invokes a routine which removes inactive production diets from the recording scheme.`

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