PACKAGE BODY: APPS.IGS_PS_VAL_RCT

Source

1 PACKAGE BODY IGS_PS_VAL_RCT AS
2 /* $Header: IGSPS53B.pls 115.3 2002/11/29 03:06:54 nsidana ship $ */
3   --
4   -- Validate the system reference code type for reference code type.
5   FUNCTION crsp_val_rct_srct(
6   p_s_reference_cd_type IN VARCHAR2 ,
7   p_message_name OUT NOCOPY VARCHAR2 )
8   RETURN BOOLEAN AS
9   	v_closed_ind	IGS_LOOKUPS_VIEW.closed_ind%TYPE;
10   	CURSOR	c_ref_cd_type_closed_ind IS
11   	SELECT	closed_ind
12   	FROM	IGS_LOOKUPS_VIEW
13   	WHERE	Lookup_code = p_s_reference_cd_type
14 	AND Lookup_type = 'REFERENCE_CD_TYPE'
15   	AND	closed_ind = 'Y';
16   BEGIN
17   	OPEN c_ref_cd_type_closed_ind;
18   	FETCH c_ref_cd_type_closed_ind INTO v_closed_ind;
19   --- If a record was not found, then return TRUE, else return FALSE
20   	IF c_ref_cd_type_closed_ind%NOTFOUND THEN
21   		p_message_name := NULL;
22   		CLOSE c_ref_cd_type_closed_ind;
23   		RETURN TRUE;
24   	ELSE
25   		p_message_name := 'IGS_PS_SYSREFCD_TYPE_CLOSED';
26   		CLOSE c_ref_cd_type_closed_ind;
27   		RETURN FALSE;
28   	END IF;
29   EXCEPTION
30   	WHEN OTHERS THEN
31 		Fnd_Message.Set_Name('IGS', 'IGS_GE_UNHANDLED_EXCEPTION');
32 		Fnd_Message.Set_Token('NAME','IGS_PS_VAL_RCT.crsp_val_rct_srct');
33 		IGS_GE_MSG_STACK.ADD;
34 		App_Exception.Raise_Exception;
35   END crsp_val_rct_srct;
36 END IGS_PS_VAL_RCT;