PACKAGE BODY: APPS.IGS_RE_VAL_MTY

Source

1 PACKAGE BODY IGS_RE_VAL_MTY AS
2 /* $Header: IGSRE10B.pls 115.3 2002/11/29 03:28:58 nsidana ship $ */
3 
4   --
5   -- To validate IGS_PR_MILESTONE type notification days
6   FUNCTION RESP_VAL_MTY_DAYS(
7   p_reminder_days IN NUMBER ,
8   p_re_reminder_days IN NUMBER ,
9   p_message_name OUT NOCOPY VARCHAR2 )
10   RETURN BOOLEAN AS
11   BEGIN	-- resp_val_mty_days
12   	-- Validate IGS_PR_MILESTONE_TYPE.{ntfctn_imminent_days,
13   	--			ntfctn_reminder_days,
14   	--			ntfctn_re_reminder_days}, checking,
15   	--  That the re_reminder days cannot be set if the reminder_days aren't set.
16   DECLARE
17   BEGIN
18   	-- Set the default message number
19   	p_message_name := null;
20   	IF p_reminder_days IS NULL AND
21   			p_re_reminder_days IS NOT NULL THEN
22   		p_message_name := 'IGS_RE_CANT_SET_REMINDER_DAYS';
23   		RETURN FALSE;
24   	END IF;
25   	-- Return the default value
26   	RETURN TRUE;
27   EXCEPTION
28   	WHEN OTHERS THEN
29   		RAISE;
30   END;
31   EXCEPTION
32 	WHEN OTHERS THEN
33 		Fnd_Message.Set_Name ('IGS', 'IGS_GE_UNHANDLED_EXCEPTION');
34 		IGS_GE_MSG_STACK.ADD;
35 		App_Exception.Raise_Exception;
36   END resp_val_mty_days;
37 END IGS_RE_VAL_MTY;