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 (#617) 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)

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 (#617) 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)