Select the objects that you wish to see in the downloaded PDF
K:+X'=X!(X>9999)!(X<1980)!(X?.E1"."1N.N) X S:$D(X) DINUM=X
JAN 04, 1995
Type a Number between 1980 and 9999, 0 Decimal Digits
XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
9002066.05^B
1)= S ^ACHSDEF(DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^ACHSDEF(DA(1),1,"B",$E(X,1,30),DA)
K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
JAN 31, 1994
Type a Number between 0 and 99999, 0 Decimal Digits