Sub-Field: 120.8563

Parent File	Name	Number	Package
ADVERSE REACTION REPORTING(#120.85)	REPORT SOURCE	120.8563	Adverse Reaction Tracking

Parent File

Name

Number

Package

REPORT SOURCE

120.8563

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	SOURCE	0;1	SET	'f' FOR FOREIGN; 'h' FOR HEALTH PROFESSIONAL; 's' FOR STUDY; 'l' FOR LITERATURE; 'c' FOR CONSUMER; LAST EDITED: `JUN 17, 1992` DESCRIPTION: `This is the actual source of the report.` CROSS-REFERENCE: `120.8563^B` `1)= S ^GMR(120.85,DA(1),63,"B",$E(X,1,30),DA)=""` `2)= K ^GMR(120.85,DA(1),63,"B",$E(X,1,30),DA)` FIELD INDEX: `AHDR (#495) MUMPS R ACTION` `Short Descr: Send data to HDR` `Description: Send data to HDR when entries are added or edited in this multiple.` `Set Logic: Q:$D(DIU(0)) D SETOB^GMRAHDR` `Kill Logic: Q:$D(DIU(0)) D KILLOB^GMRAHDR` `Whole Kill: Q` `X(1): SOURCE (120.8563,.01) (forwards)`

SOURCE

0;1

SET

LAST EDITED: JUN 17, 1992
DESCRIPTION:
This is the actual source of the report.
CROSS-REFERENCE: 120.8563^B
1)= S ^GMR(120.85,DA(1),63,"B",$E(X,1,30),DA)=""
2)= K ^GMR(120.85,DA(1),63,"B",$E(X,1,30),DA)
FIELD INDEX: AHDR (#495) MUMPS R ACTION
Short Descr: Send data to HDR
Description: Send data to HDR when entries are added or edited in this multiple.
Set Logic: Q:$D(DIU(0)) D SETOB^GMRAHDR
Kill Logic: Q:$D(DIU(0)) D KILLOB^GMRAHDR
Whole Kill: Q
X(1): SOURCE (120.8563,.01) (forwards)