Sub-Field: 63.016

Parent File	Name	Number	Package
LAB DATA(#63)	RBC ANTIGENS ABSENT(other)	63.016	Lab Service

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	RBC ANTIGENS ABSENT	0;1	POINTER TO FUNCTION FIELD FILE (#61.3)	FUNCTION FIELD(#61.3) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,5)=""AN""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DINUM=X` LAST EDITED: `AUG 11, 1985` DESCRIPTION: This is a red blood cell antigen that is absent for this patient. SCREEN: `S DIC("S")="I $P(^(0),U,5)=""AN"""` EXPLANATION: `SELECTS ONLY ANTIGENS` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.02	RBC ANTIGENS ABSENT COMMENT	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<2) X` LAST EDITED: `JUN 02, 1986` HELP-PROMPT: `ANSWER MUST BE 2-80 CHARACTERS IN LENGTH` DESCRIPTION: This is the comment on the absent antigen.

RBC ANTIGENS ABSENT

0;1

POINTER TO FUNCTION FIELD FILE (#61.3)

INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,5)=""AN""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DINUM=X
LAST EDITED: AUG 11, 1985

DESCRIPTION:

This is a red blood cell antigen that is absent for this patient.

RBC ANTIGENS ABSENT COMMENT

0;2

FREE TEXT

DESCRIPTION:

This is the comment on the absent antigen.