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`