INPUT TRANSFORM: K:X>60!(X<1)!(X?.E1"."1N.N) X I $D(X),+X'=X K:X'?.N2A X Q:'$D(X) S Z0=$E(X,$L(X)-1,$L(X)),X=$E(X,1,$L(X)-2)_$S("STst"[Z0:"st","NDnd"[Z0:"nd","RDrd"[Z0:"rd","THth"[Z0:"th",1:"ZZZZZ") K:$L(X)>4 X
LAST EDITED: NOV 24, 1995
HELP-PROMPT: Enter a whole number between 1 and 60. You may append the number with "st", "nd", "rd", or "th" to indicate a date.
DESCRIPTION:
This is the term in days for prompt payment.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER