Sub-Field: 120.803

Parent File	Name	Number	Package
PATIENT ALLERGIES(#120.8)	DRUG CLASSES	120.803	Adverse Reaction Tracking

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	VA DRUG CLASS	0;1	POINTER TO VA DRUG CLASS FILE (#50.605)	VA DRUG CLASS(#50.605) OUTPUT TRANSFORM: `S Y=$S($D(^PS(50.605,+Y,0)):$P(^(0),U,2),1:"UNKNOWN")` LAST EDITED: `MAY 14, 1991` DESCRIPTION: `VA drug class to which patient had reaction.` CROSS-REFERENCE: `120.803^B` `1)= S ^GMR(120.8,DA(1),3,"B",$E(X,1,30),DA)=""` `2)= K ^GMR(120.8,DA(1),3,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `120.8^ADRG3^MUMPS` `1)= S GMRA="3^1" D EN2^GMRAUIX0` `2)= S GMRA="3^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 (#484) MUMPS R ACTION` `Short Descr: Send data to HDR upon entry or edit` `Description: Sends data to HDR when drug classes are added or edited.` `Set Logic: Q:$D(DIU(0)) D SETADR^GMRAHDR` `Kill Logic: Q:$D(DIU(0)) D KILLADR^GMRAHDR` `Whole Kill: Q` `X(1): VA DRUG CLASS (120.803,.01) (forwards)`

VA DRUG CLASS

0;1

POINTER TO VA DRUG CLASS FILE (#50.605)

OUTPUT TRANSFORM: S Y=$S($D(^PS(50.605,+Y,0)):$P(^(0),U,2),1:"UNKNOWN")
LAST EDITED: MAY 14, 1991
DESCRIPTION:
VA drug class to which patient had reaction.
CROSS-REFERENCE: 120.803^B
1)= S ^GMR(120.8,DA(1),3,"B",$E(X,1,30),DA)=""
2)= K ^GMR(120.8,DA(1),3,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 120.8^ADRG3^MUMPS
1)= S GMRA="3^1" D EN2^GMRAUIX0
2)= S GMRA="3^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 (#484) MUMPS R ACTION
Short Descr: Send data to HDR upon entry or edit
Description: Sends data to HDR when drug classes are added or edited.
Set Logic: Q:$D(DIU(0)) D SETADR^GMRAHDR
Kill Logic: Q:$D(DIU(0)) D KILLADR^GMRAHDR
Whole Kill: Q
X(1): VA DRUG CLASS (120.803,.01) (forwards)