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

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