INPUT TRANSFORM: S DIC("W")="W "" "",$P(^(0),U,2),"" "",$P(^(0),U,1)",DIC(0)="EQM",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:
These are the patient's serum antibodies.
SCREEN: S DIC("S")="I $P(^(0),U,5)=""AB"""
EXPLANATION: Limits entry to only blood group antibodies
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER