PACKAGE BODY: APPS.IGS_RE_VAL_SCHT

Source

1 PACKAGE BODY IGS_RE_VAL_SCHT AS
2 /* $Header: IGSRE13B.pls 115.4 2002/11/29 03:29:45 nsidana ship $ */
3   --
4   -- To validate IGS_RE_SCHL_TYPE person_id/org_unit_cd/start_dt
5   FUNCTION RESP_VAL_SCHT_PID_OU(
6   p_person_id_from IN NUMBER ,
7   p_org_unit_cd_from IN VARCHAR2 ,
8   p_message_name OUT NOCOPY VARCHAR2 )
9   RETURN BOOLEAN AS
10   BEGIN	-- resp_val_scht_pid_ou
11   	-- This module validates that only one of the person_id_from and
12   	-- the org_unit_cd_from fields of a scholarship record has been set.
13   BEGIN
14   	p_message_name := NULL;
15   	IF p_person_id_from IS NOT NULL AND
16   			p_org_unit_cd_from IS NOT NULL THEN
17   		p_message_name := 'IGS_RE_SPECIFY_PERSID_ORG_CD';
18   		RETURN FALSE;
19   	END IF;
20   	RETURN TRUE;
21   END;
22   EXCEPTION
23 	WHEN OTHERS THEN
24 		Fnd_Message.Set_Name ('IGS', 'IGS_GE_UNHANDLED_EXCEPTION');
25 		IGS_GE_MSG_STACK.ADD;
26 		App_Exception.Raise_Exception;
27   END resp_val_scht_pid_ou;
28 
29 END IGS_RE_VAL_SCHT;