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 | ICR | Found Entries | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | 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.

Directly Accessed By Routines, Total: 40

Package	Total	Routines
Dietetics	40	DRUG CLASSIFICATIONS FHCTF4 FHDCR11 FHDCR1B FHDCR1D FHDMP2 FHMTK FHMTK11 FHMTK21 FHMTK3 FHOMTK2 FHORD91 FHORD93 FHORDR FHPRC1 FHPRC10 FHPRC11 FHPRC13 FHPRC14 FHPRC2 FHPRC3 FHPRC6 FHPRC8 FHPRC9 FHPRF1A FHPRF2 FHPRF4 FHPRO FHPRO2 FHPRO3 FHPRO4 FHPRW2 FHXDB1 ^FH(116.2 FHPRR1 FHSEL2 FHSEL3 FHXDB FHXDB2 SINGULAR PRODUCTION DIETS

Accessed By FileMan Db Calls, Total: 5

Package	Total	Routines
Dietetics	5	FHPRC10 FHPRC13 FHPRC2 FHPRC9 FHPRO

Pointed To By FileMan Files, Total: 7

Package	Total	FileMan Files
Dietetics	6	DIETS(#111)[4] DIET PATTERNS(#111.1)[10] PRODUCTION DIET(#116.2)[#116.211(.01)] SERVICE POINT(#119.72)[#119.721(.01), #119.7211(.01)] NUTRITION PERSON(#115)[#115.02(12)] USER MENU(#112.6)[#112.62(3)]
DSS Extracts	1	DSS NUTRITION PRODUCT WORKSHEET(#728.45)[#728.451(.01)]

Pointer To FileMan Files, Total: 1

Package	Total	FileMan Files
Dietetics	1	PRODUCTION DIET(#116.2)[#116.211(.01)]

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

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #4876	DSS - DECISION SUPPORT SYSTEM EXTRACTS	NAME (.01). Access: Pointed to

External References

Name	Field # of Occurrence
EN^DDIOL	IDWRITE+1, .01DEL1+1
SET^FHORDR	8(XREF 2S), 8(XREF 2K), 99(XREF 2S), 99(XREF 2K)

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^FH(116.2 - [#116.2]	.01(XREF 1S), .01(XREF 1K), 1+1, 1(XREF 1S), 1(XREF 1K), 7+1, 7(XREF 1S), 7(XREF 1K), 8+1, 8(XREF 1S) , 8(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+1, 1(XREF 1S), 1(XREF 1K), 7+1, 7(XREF 1S), 7(XREF 1K), 8+1, 8(XREF 1S) , 8(XREF 1K), 99(XREF 1S), 99(XREF 1K)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), 1+1!, 1(XREF 1S), 1(XREF 1K), 3+1!, 7+1!, 7(XREF 1S), 7(XREF 1K) , 8+1!, 8(XREF 1S), 8(XREF 1K), 99(XREF 1S)
>> Y	1+1, 7+1, 8+1*

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | ICR | Found Entries | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | All