Sub-Field: 120.85315

Parent File	Name	Number	Package
ADVERSE REACTION REPORTING(#120.85)	P&T ADDENDUM	120.85315	Adverse Reaction Tracking

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	DATE/TIME ENTERED	0;1	DATE	INPUT TRANSFORM: `S %DT="EPSTX",%DT(0)="-NOW" D ^%DT K %DT(0) S X=Y K:Y<1 X` LAST EDITED: `JUN 29, 1992` DESCRIPTION: `This is the date/time the comment was entered.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `120.85315^B` `1)= S ^GMR(120.85,DA(1),"PTC2","B",$E(X,1,30),DA)=""` `2)= K ^GMR(120.85,DA(1),"PTC2","B",$E(X,1,30),DA)` FIELD INDEX: `AHDR (#496) MUMPS R ACTION` `Short Descr: Send data to HDR on entry/edit` `Description: Send data to HDR when the P&T addendum is added.` `Set Logic: Q:$D(DIU(0)) D SETOB^GMRAHDR` `Kill Logic: Q:$D(DIU(0)) D KILLOB^GMRAHDR` `Whole Kill: Q` `X(1): DATE/TIME ENTERED (120.85315,.01) (forwards)`
1	ADDENDUM	1;0	WORD-PROCESSING #120.853151	DESCRIPTION: `This is the actual comment that is being added.` LAST EDITED: `JUN 29, 1992` DESCRIPTION: `This field contains the comments that the P&T committee add to this reaction.`

DATE/TIME ENTERED

0;1

DATE

INPUT TRANSFORM: S %DT="EPSTX",%DT(0)="-NOW" D ^%DT K %DT(0) S X=Y K:Y<1 X
LAST EDITED: JUN 29, 1992
DESCRIPTION:
This is the date/time the comment was entered.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 120.85315^B
1)= S ^GMR(120.85,DA(1),"PTC2","B",$E(X,1,30),DA)=""
2)= K ^GMR(120.85,DA(1),"PTC2","B",$E(X,1,30),DA)
FIELD INDEX: AHDR (#496) MUMPS R ACTION
Short Descr: Send data to HDR on entry/edit
Description: Send data to HDR when the P&T addendum is added.
Set Logic: Q:$D(DIU(0)) D SETOB^GMRAHDR
Kill Logic: Q:$D(DIU(0)) D KILLOB^GMRAHDR
Whole Kill: Q
X(1): DATE/TIME ENTERED (120.85315,.01) (forwards)

ADDENDUM

1;0

WORD-PROCESSING #120.853151

DESCRIPTION:
This is the actual comment that is being added.
LAST EDITED: JUN 29, 1992
DESCRIPTION:
This field contains the comments that the P&T committee add to this reaction.