Sub-Field: 120.802

Parent File	Name	Number	Package
PATIENT ALLERGIES(#120.8)	DRUG INGREDIENTS	120.802	Adverse Reaction Tracking

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	DRUG INGREDIENT	0;1	POINTER TO DRUG INGREDIENTS FILE (#50.416)	DRUG INGREDIENTS(#50.416) INPUT TRANSFORM: `S DIC("S")="N GMRA S GMRA=$P(^(0),U) X ""I $L(GMRA),$D(^PS(50.416,""""P"""",GMRA,Y))"" Q" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `SEP 25, 1991` DESCRIPTION: Drug ingredient to which patient had reaction. SCREEN: `S DIC("S")="N GMRA S GMRA=$P(^(0),U) X ""I $L(GMRA),$D(^PS(50.416,""""P"""",GMRA,Y))"" Q"` EXPLANATION: `Select primary drug ingredient.` CROSS-REFERENCE: `120.802^B` 1)= S ^GMR(120.8,DA(1),2,"B",$E(X,1,30),DA)="" 2)= K ^GMR(120.8,DA(1),2,"B",$E(X,1,30),DA) CROSS-REFERENCE: `120.8^ADRG2^MUMPS` 1)= S GMRA="2^1" D EN2^GMRAUIX0 2)= S GMRA="2^0" D EN2^GMRAUIX0 For further information on this xref, see the Cross-reference section of the Adverse Reaction Tracking Technical Manual. FIELD INDEX: `AHDR (#166) MUMPS R ACTION` Short Descr: Send data to HDR upon entry or update Description: Sends data to HDR upon entry or edit of drug ingredients. Set Logic: Q:$D(DIU(0)) D SETADR^GMRAHDR Kill Logic: Q:$D(DIU(0)) D KILLADR^GMRAHDR Whole Kill: Q X(1): DRUG INGREDIENT (120.802,.01) (forwards)
9999999.01	RXNORM	9999999;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<1) X` LAST EDITED: `APR 19, 2013` HELP-PROMPT: `Answer must be 1-40 characters in length.`
9999999.02	UNII CODE	9999999;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>100!($L(X)<1) X` LAST EDITED: `APR 19, 2013` HELP-PROMPT: `Answer must be 1-100 characters in length.`

DRUG INGREDIENT

0;1

POINTER TO DRUG INGREDIENTS FILE (#50.416)

INPUT TRANSFORM: S DIC("S")="N GMRA S GMRA=$P(^(0),U) X ""I $L(GMRA),$D(^PS(50.416,""""P"""",GMRA,Y))"" Q" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: SEP 25, 1991

DESCRIPTION:

Drug ingredient to which patient had reaction.

SCREEN: S DIC("S")="N GMRA S GMRA=$P(^(0),U) X ""I $L(GMRA),$D(^PS(50.416,""""P"""",GMRA,Y))"" Q"
EXPLANATION: Select primary drug ingredient.

CROSS-REFERENCE: 120.802^B

1)= S ^GMR(120.8,DA(1),2,"B",$E(X,1,30),DA)=""

2)= K ^GMR(120.8,DA(1),2,"B",$E(X,1,30),DA)

CROSS-REFERENCE: 120.8^ADRG2^MUMPS

1)= S GMRA="2^1" D EN2^GMRAUIX0

2)= S GMRA="2^0" D EN2^GMRAUIX0

For further information on this xref, see the Cross-reference section of the Adverse Reaction Tracking Technical Manual.

FIELD INDEX: AHDR (#166) MUMPS R ACTION

Short Descr:  Send data to HDR upon entry or update

Description:  Sends data to HDR upon entry or edit of drug ingredients.

Set Logic:  Q:$D(DIU(0))  D SETADR^GMRAHDR

Kill Logic:  Q:$D(DIU(0))  D KILLADR^GMRAHDR

Whole Kill:  Q

X(1):  DRUG INGREDIENT  (120.802,.01)  (forwards)

RXNORM

9999999;1

FREE TEXT

UNII CODE

9999999;2

FREE TEXT