Sub-Field: 120.824

Parent File	Name	Number	Package
GMR ALLERGIES(#120.82)	DRUG INGREDIENTS	120.824	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: `JUL 17, 2006` DESCRIPTION: This is one of the drug ingredients that make up this causative agent. Must be a primary ingredient. SCREEN: `S DIC("S")="N GMRA S GMRA=$P(^(0),U) X ""I $L(GMRA),$D(^PS(50.416,""""P"""",GMRA,Y))"" Q"` EXPLANATION: `Allow primary ingredients only.` EXECUTABLE HELP: `D:DZ="?" EN^DDIOL("Enter one of the drug ingredients that make up this allergy.","","!?5")` WRITE AUTHORITY: ^ CROSS-REFERENCE: `120.824^B` 1)= S ^GMRD(120.82,DA(1),"ING","B",$E(X,1,30),DA)="" 2)= K ^GMRD(120.82,DA(1),"ING","B",$E(X,1,30),DA) FIELD INDEX: `AC (#298) MUMPS R ACTION` Short Descr: Identifies changes to existing ingredients Set Logic: Q:$D(DIU(0)) S GMRAT="ING" D ^GMRAUTL2 Kill Logic: Q:$D(DIU(0)) S GMRAT="ING" D ^GMRAUTL2 X(1): DRUG INGREDIENT (120.824,.01) (forwards)

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: JUL 17, 2006

DESCRIPTION:

This is one of the drug ingredients that make up this causative agent.  Must be a primary ingredient.

SCREEN: S DIC("S")="N GMRA S GMRA=$P(^(0),U) X ""I $L(GMRA),$D(^PS(50.416,""""P"""",GMRA,Y))"" Q"
EXPLANATION: Allow primary ingredients only.
EXECUTABLE HELP: D:DZ="?" EN^DDIOL("Enter one of the drug ingredients that make up this allergy.","","!?5")
```
WRITE AUTHORITY:  ^
```

CROSS-REFERENCE: 120.824^B

1)= S ^GMRD(120.82,DA(1),"ING","B",$E(X,1,30),DA)=""

2)= K ^GMRD(120.82,DA(1),"ING","B",$E(X,1,30),DA)

FIELD INDEX: AC (#298) MUMPS R ACTION

Short Descr:  Identifies changes to existing ingredients

Set Logic:  Q:$D(DIU(0))  S GMRAT="ING" D ^GMRAUTL2

Kill Logic:  Q:$D(DIU(0))  S GMRAT="ING" D ^GMRAUTL2

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