Sub-Field: 120.814

Parent File	Name	Number	Package
PATIENT ALLERGIES(#120.8)	ID BAND MARKED	120.814	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 is the date/time the user indicated to the ATS that the patient's ID Band was marked for this reactant.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `120.814^B` `1)= S ^GMR(120.8,DA(1),14,"B",$E(X,1,30),DA)=""` `2)= K ^GMR(120.8,DA(1),14,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `120.814^A^MUMPS` `1)= S ^GMR(120.8,DA(1),14,"A",9999999-X,DA)=""` `2)= K ^GMR(120.8,DA(1),14,"A",9999999-X,DA)` RECORD INDEXES: `AHDR (#488)`
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 the ID band was marked.` `UNEDITABLE` RECORD INDEXES: `AHDR (#488)`

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 is the date/time the user indicated to the ATS that the patient's ID Band was marked for this reactant.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 120.814^B
1)= S ^GMR(120.8,DA(1),14,"B",$E(X,1,30),DA)=""
2)= K ^GMR(120.8,DA(1),14,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 120.814^A^MUMPS
1)= S ^GMR(120.8,DA(1),14,"A",9999999-X,DA)=""
2)= K ^GMR(120.8,DA(1),14,"A",9999999-X,DA)
RECORD INDEXES: AHDR (#488)

USER ENTERING

0;2

POINTER TO NEW PERSON FILE (#200)

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