Select the objects that you wish to see in the downloaded PDF
S:$D(X) DINUM=X
ENTER A VALID NAME
FIELD WILL CONTAIN VALID NAME
XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
9002010.2^B
1)= S ^ADEPAT("B",$E(X,1,30),DA)=""
2)= K ^ADEPAT("B",$E(X,1,30),DA)
K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
MAR 01, 1989
Type a Number between 0 and 999, 0 Decimal Digits
FIELD WILL CONTAIN VALID TFA