Oracle Forms Developer – Form Builder Reference, Volume 1

534
END;
/* Method 2: Call a generic procedure to check the date
** range. This way our date check can be used in
** any validation trigger where we want to check
** that a starting date in a range comes before
** the ending date. Another bonus is that with the
** error message in one standard place, i.e. the
** procedure, the user will always get a
** consistent failure message, regardless of the
** form they’re currently in.
*/
BEGIN
Check_Date_Range(:Experiment.Start_Date,:Experiment.End_Date);
END;
/*
** The procedure looks like this
*/
PROCEDURE Check_Date_Range( d1 DATE, d2 DATE ) IS
BEGIN
IF d1 > d2 THEN
Message(’Your date range ends before it starts!’);
RAISE Form_trigger_Failure;
END IF;
END;