Sub-Field: 120.813

Parent File	Name	Number	Package
PATIENT ALLERGIES(#120.8)	CHART MARKED	120.813	Adverse Reaction Tracking

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	DATE/TIME	0;1	DATE	INPUT TRANSFORM: `S %DT="EPSTXR",%DT(0)="-NOW" D ^%DT K %DT(0) S X=Y K:Y<1 X` LAST EDITED: `OCT 14, 1992` DESCRIPTION: `This field contains the date/time the user indicated to ART that the patient's chart was marked for this reactant.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `120.813^B` `1)= S ^GMR(120.8,DA(1),13,"B",$E(X,1,30),DA)=""` `2)= K ^GMR(120.8,DA(1),13,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `120.813^A^MUMPS` `1)= S ^GMR(120.8,DA(1),13,"A",9999999-X,DA)=""` `2)= K ^GMR(120.8,DA(1),13,"A",9999999-X,DA)` `For further information on this xref, see the Cross-reference section of the Adverse Reaction Tracking Technical Manual.` RECORD INDEXES: `AHDR (#487)`
1	USER ENTERING	0;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUN 20, 1991` DESCRIPTION: `This is the user who indicated that the chart was marked.` `UNEDITABLE` RECORD INDEXES: `AHDR (#487)`

DATE/TIME

0;1

DATE

INPUT TRANSFORM: S %DT="EPSTXR",%DT(0)="-NOW" D ^%DT K %DT(0) S X=Y K:Y<1 X
LAST EDITED: OCT 14, 1992
DESCRIPTION:
This field contains the date/time the user indicated to ART that the patient's chart was marked for this reactant.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 120.813^B
1)= S ^GMR(120.8,DA(1),13,"B",$E(X,1,30),DA)=""
2)= K ^GMR(120.8,DA(1),13,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 120.813^A^MUMPS
1)= S ^GMR(120.8,DA(1),13,"A",9999999-X,DA)=""
2)= K ^GMR(120.8,DA(1),13,"A",9999999-X,DA)
For further information on this xref, see the Cross-reference section of the Adverse Reaction Tracking Technical Manual.
RECORD INDEXES: AHDR (#487)

USER ENTERING

0;2

POINTER TO NEW PERSON FILE (#200)

LAST EDITED: JUN 20, 1991
DESCRIPTION:
This is the user who indicated that the chart was marked.
UNEDITABLE
RECORD INDEXES: AHDR (#487)