Sub-Field: 120.8205

Parent File	Name	Number	Package
GMR ALLERGIES(#120.82)	VA DRUG CLASSES	120.8205	Adverse Reaction Tracking

Parent File

Name

Number

Package

VA DRUG CLASSES

120.8205

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	VA DRUG CLASSES	0;1	POINTER TO VA DRUG CLASS FILE (#50.605)	VA DRUG CLASS(#50.605) LAST EDITED: `NOV 17, 1994` DESCRIPTION: One of the VA Drug Classes that make up this reactant. WRITE AUTHORITY: ^ CROSS-REFERENCE: `120.8205^B` 1)= S ^GMRD(120.82,DA(1),"CLASS","B",$E(X,1,30),DA)="" 2)= K ^GMRD(120.82,DA(1),"CLASS","B",$E(X,1,30),DA) FIELD INDEX: `AC (#299) MUMPS R ACTION` Short Descr: Update entries in 120.8 when changes are made to this subfile Set Logic: Q:$D(DIU(0)) S GMRAT="CLASS" D ^GMRAUTL2 Kill Logic: Q:$D(DIU(0)) S GMRAT="CLASS" D ^GMRAUTL2 X(1): VA DRUG CLASSES (120.8205,.01) (forwards)

VA DRUG CLASSES

0;1

POINTER TO VA DRUG CLASS FILE (#50.605)

DESCRIPTION:

One of the VA Drug Classes that make up this reactant.

WRITE AUTHORITY:  ^

CROSS-REFERENCE: 120.8205^B

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

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

FIELD INDEX: AC (#299) MUMPS R ACTION

Short Descr:  Update entries in 120.8 when changes are made to this subfile

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

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

X(1):  VA DRUG CLASSES  (120.8205,.01)  (forwards)