Sub-Field: 63.0171

Parent File	Name	Number	Package
LAB DATA(#63)	TRANSFUSION REACTION DATE	63.0171	Lab Service

Details

Field #	Name	Loc	Type	Details
.01	TRANSFUSION REACTION DATE	0;1	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X S:$D(X) DINUM=9999999-X` LAST EDITED: `JUN 28, 1993` DESCRIPTION: Transfusion reactions that cannot be assigned to a specific unit are entered here. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.02	TRANSFUSION REACTION TYPE	0;2	POINTER TO BLOOD BANK UTILITY FILE (#65.4)	**********************REQUIRED FIELD********************** BLOOD BANK UTILITY(#65.4) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,2)=""T""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `DEC 30, 1992` DESCRIPTION: Stores the type of transfusion reaction SCREEN: `S DIC("S")="I $P(^(0),U,2)=""T"""` EXPLANATION: `Selects only transfusion reaction entries` CROSS-REFERENCE: `63^AR^MUMPS` 1)= S ^LR("AR",DA(1),X,DA)="" 2)= K ^LR("AR",DA(1),X,DA) Cross reference for identifying transfusion reactions not able to be identified with a specific unit.
.03	PERSON ENTERING REACTION	0;3	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) LAST EDITED: `DEC 13, 1992` DESCRIPTION: Person entering reaction information
1	TRANSFUSION REACTION COMMENT	1;0	Multiple #63.172	63.172 DESCRIPTION: Multiple for transfusion reaction comment