Here are what the formulas look like:
ADM = Date ({BADPLPP.LPADT3},{BADPLPP.LPADT1} ,{BADPLPP.LPADT2} )
DischargeDate=
stringvar MyDate := totext({badplpp.lpldd},0,"");
if len(MyDate) = 5
then
cdate(2000+val(right(MyDate,2)), val(left(MyDate,1)),val(mid(MyDate,2,2)))
else
if len(MyDate) = 6...