Well I'm guessing that syntax must not have worked or you wouldn't have asked the question.
This would be a two step process, but you could
FIND Appointment WHERE (Appointment IN Program.Appointments) ORDER BY Appointment.Date Asc Take Best 2
INSERT Appointment IN LoggedInRegularUser.ApptHolder
then use MAX function to find the max in ApptHolder reference BO.