Select the objects that you wish to see in the downloaded PDF
S:$D(X) DINUM=X
DEC 04, 1998
XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
9001001.9^B
1)= S ^APCD3MV("B",$E(X,1,30),DA)=""
2)= K ^APCD3MV("B",$E(X,1,30),DA)
K:$L(X)>80!($L(X)<2) X
DEC 18, 1998
Answer must be 2-80 characters in length.
K:+X'=X!(X>99.9999)!(X<0)!(X?.E1"."5N.N) X
Type a Number between 0 and 99.9999, 4 Decimal Digits