Sub-Field: 65.57

Parent File	Name	Number	Package
BLOOD DONOR(#65.5)	RBC ANTIGEN ABSENT	65.57	Lab Service

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	RBC ANTIGEN ABSENT	0;1	POINTER TO FUNCTION FIELD FILE (#61.3)	FUNCTION FIELD(#61.3) INPUT TRANSFORM: `S DIC("W")="W "" "",$P(^(0),U,2),"" "",$P(^(0),U,1)",DIC("S")="I $P(^(0),U,5)=""AN""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X` LAST EDITED: `MAY 21, 1999` DESCRIPTION: `Antigens identified as being absent on the red blood cells` `of the donor. SNOMED codes as well as the name of the` `antigen can be entered. Synonyms can also be entered if` `they have been entered in the function field file (#61.3).` SCREEN: `S DIC("S")="I $P(^(0),U,5)=""AN"""` EXPLANATION: `Limits selection to only RBC Antigens` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1	COMMENT	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<1) X` LAST EDITED: `JAN 07, 1986` HELP-PROMPT: `ANSWER MUST BE 1-80 CHARACTERS IN LENGTH`

RBC ANTIGEN ABSENT

0;1

POINTER TO FUNCTION FIELD FILE (#61.3)

INPUT TRANSFORM: S DIC("W")="W "" "",$P(^(0),U,2),"" "",$P(^(0),U,1)",DIC("S")="I $P(^(0),U,5)=""AN""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
LAST EDITED: MAY 21, 1999
DESCRIPTION: Antigens identified as being absent on the red blood cells
of the donor. SNOMED codes as well as the name of the
antigen can be entered. Synonyms can also be entered if
they have been entered in the function field file (#61.3).
SCREEN: S DIC("S")="I $P(^(0),U,5)=""AN"""
EXPLANATION: Limits selection to only RBC Antigens
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

COMMENT

0;2

FREE TEXT