Sub-Field: 115.225

Parent File	Name	Number	Package
FOOD PREFERENCES(#115.2)	GMR ALLERGIES	115.225	Dietetics

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	GMR ALLERGIES	0;1	POINTER TO GMR ALLERGIES FILE (#120.82)	GMR ALLERGIES(#120.82) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,2)[""F""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `FEB 21, 2007` DESCRIPTION: `This field stores the pointer to the applicable GMRA ALLERGIES entry for Food Preferences that are based on actual ALLERGIES.` SCREEN: `S DIC("S")="I $P(^(0),U,2)[""F"""` EXPLANATION: `FOOD TYPE ALLERGIES ONLY` CROSS-REFERENCE: `115.225^B` `1)= S ^FH(115.2,DA(1),"ALG","B",$E(X,1,30),DA)=""` `2)= K ^FH(115.2,DA(1),"ALG","B",$E(X,1,30),DA)` CROSS-REFERENCE: `115.2^C` `1)= S ^FH(115.2,"C",$E(X,1,30),DA(1),DA)=""` `2)= K ^FH(115.2,"C",$E(X,1,30),DA(1),DA)` `Cross reference the entire file by the GMR Allergies multiple.`

GMR ALLERGIES

0;1

POINTER TO GMR ALLERGIES FILE (#120.82)

INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,2)[""F""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: FEB 21, 2007
DESCRIPTION:
This field stores the pointer to the applicable GMRA ALLERGIES entry for Food Preferences that are based on actual ALLERGIES.
SCREEN: S DIC("S")="I $P(^(0),U,2)[""F"""
EXPLANATION: FOOD TYPE ALLERGIES ONLY
CROSS-REFERENCE: 115.225^B
1)= S ^FH(115.2,DA(1),"ALG","B",$E(X,1,30),DA)=""
2)= K ^FH(115.2,DA(1),"ALG","B",$E(X,1,30),DA)
CROSS-REFERENCE: 115.2^C
1)= S ^FH(115.2,"C",$E(X,1,30),DA(1),DA)=""
2)= K ^FH(115.2,"C",$E(X,1,30),DA(1),DA)
Cross reference the entire file by the GMR Allergies multiple.