Sub-Field: 120.8504

Parent File	Name	Number	Package
ADVERSE REACTION REPORTING(#120.85)	RELEVANT TEST/LAB DATA	120.8504	Adverse Reaction Tracking

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	TEST	0;1	FREE TEXT	INPUT TRANSFORM: `X ^DD(120.8504,.01,9.2) K:X?1P.E!(X'?.ANP)!($L(X)>30)!($L(X)<3) X` `9.2 = N DIC,DO,DIX,DICR S DIC=60,DIC(0)="E" D ^DIC S:$D(DTOUT) X="^",Y=-1 Q:X="^" S:+Y>0 X=$P(Y,U,2) X:Y'>0 ^DD(120.8504,.01,9.3) Q` `9.3 = F S GMRAHLPX="IS "_X_" THE LAB TEST/TX YOU WANT TO USE" D EN^DDIOL(GMRAHLPX,"","!?2") K GMRAHLPX S %=1 D YN^DICN S:%=1 Y=1 S:%=2 X="" Q:% D EN^DDIOL("ANSWER YES OR NO","","!?5")` LAST EDITED: `OCT 28, 1992` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `This field contains a particular test/lab data for this observed reaction.` EXECUTABLE HELP: `N DIC,D,DO S DIC="^LAB(60,",DIC(0)="E",D="B" D DQ^DICQ` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `120.8504^B` `1)= S ^GMR(120.85,DA(1),4,"B",$E(X,1,30),DA)=""` `2)= K ^GMR(120.85,DA(1),4,"B",$E(X,1,30),DA)` RECORD INDEXES: `AHDR (#493)`
1	RESULTS	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `OCT 28, 1992` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `This field will contain the results for the particular test.` RECORD INDEXES: `AHDR (#493)`
2	COLLECTION D/T	0;3	DATE	INPUT TRANSFORM: `S %DT="EST" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 28, 1992` DESCRIPTION: `This field is the date the sample was collected from the patient.` RECORD INDEXES: `AHDR (#493)`

TEST

0;1

FREE TEXT

INPUT TRANSFORM: X ^DD(120.8504,.01,9.2) K:X?1P.E!(X'?.ANP)!($L(X)>30)!($L(X)<3) X
9.2 = N DIC,DO,DIX,DICR S DIC=60,DIC(0)="E" D ^DIC S:$D(DTOUT) X="^",Y=-1 Q:X="^" S:+Y>0 X=$P(Y,U,2) X:Y'>0 ^DD(120.8504,.01,9.3) Q
9.3 = F S GMRAHLPX="IS "_X_" THE LAB TEST/TX YOU WANT TO USE" D EN^DDIOL(GMRAHLPX,"","!?2") K GMRAHLPX S %=1 D YN^DICN S:%=1 Y=1 S:%=2 X="" Q:% D EN^DDIOL("ANSWER YES OR NO","","!?5")
LAST EDITED: OCT 28, 1992
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION:
This field contains a particular test/lab data for this observed reaction.
EXECUTABLE HELP: N DIC,D,DO S DIC="^LAB(60,",DIC(0)="E",D="B" D DQ^DICQ
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 120.8504^B
1)= S ^GMR(120.85,DA(1),4,"B",$E(X,1,30),DA)=""
2)= K ^GMR(120.85,DA(1),4,"B",$E(X,1,30),DA)
RECORD INDEXES: AHDR (#493)

RESULTS

0;2

FREE TEXT

COLLECTION D/T

0;3

DATE

INPUT TRANSFORM: S %DT="EST" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 28, 1992
DESCRIPTION:
This field is the date the sample was collected from the patient.
RECORD INDEXES: AHDR (#493)