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.

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.