Select the objects that you wish to see in the downloaded PDF
S DIC("S")="I $P(^(0),U,4)=""BB""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
JUL 23, 1993
Blood component selected for an operation
S DIC("S")="I $P(^(0),U,4)=""BB"""
Selects blood products for transfusion
XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
K:+X'=X!(X>50)!(X<0)!(X?.E1"."1N.N) X
JUL 21, 1993
Type a Number between 0 and 50, 0 Decimal Digits
Maximum number of units for an operation