Sub-Field: 116.211

Parent File	Name	Number	Package
PRODUCTION DIET(#116.2)	SINGULAR PRODUCTION DIETS	116.211	Dietetics

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	SINGULAR PRODUCTION DIETS	0;1	POINTER TO PRODUCTION DIET FILE (#116.2)	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 14, 1987` DESCRIPTION: `This is a production diet that is to be contained in the combo production diet. It itself must not also be a combo production diet.` SCREEN: `S DIC("S")="I $P(^(0),""^"",4)'=""Y"""` EXPLANATION: `Can only select singular production diets.` CROSS-REFERENCE: `116.211^B` `1)= S ^FH(116.2,DA(1),"R","B",$E(X,1,30),DA)=""` `2)= K ^FH(116.2,DA(1),"R","B",$E(X,1,30),DA)` `This is the normal B cross-reference of the SINGULAR PRODUCTION DIETS field.` CROSS-REFERENCE: `116.2^AR1^MUMPS` `1)= D SET^FHORDR` `2)= D SET^FHORDR` `This cross-reference will rebuild the 'AR' decoding string whenever a change is made to a combination production diet.`

SINGULAR PRODUCTION DIETS

0;1

POINTER TO PRODUCTION DIET FILE (#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 14, 1987
DESCRIPTION:
This is a production diet that is to be contained in the combo production diet. It itself must not also be a combo production diet.
SCREEN: S DIC("S")="I $P(^(0),""^"",4)'=""Y"""
EXPLANATION: Can only select singular production diets.
CROSS-REFERENCE: 116.211^B
1)= S ^FH(116.2,DA(1),"R","B",$E(X,1,30),DA)=""
2)= K ^FH(116.2,DA(1),"R","B",$E(X,1,30),DA)
This is the normal B cross-reference of the SINGULAR PRODUCTION DIETS field.
CROSS-REFERENCE: 116.2^AR1^MUMPS
1)= D SET^FHORDR
2)= D SET^FHORDR
This cross-reference will rebuild the 'AR' decoding string whenever a change is made to a combination production diet.