INPUT TRANSFORM: S DIC("W")="W "" "",$P(^(0),U,2),"" "",$P(^(0),U,1)",DIC("S")="I $P(^(0),U,5)=""AB""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
LAST EDITED: MAY 21, 1999
DESCRIPTION:
This is the eluate antibody.
SCREEN: S DIC("S")="I $P(^(0),U,5)=""AB"""
EXPLANATION: Select only Blood group Antibodies
WRITE AUTHORITY: ^
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER