PACKAGE BODY: APPS.IGS_CO_VAL_SCOTR

Source

1 PACKAGE BODY IGS_CO_VAL_SCOTR AS
2 /* $Header: IGSCO18B.pls 120.1 2006/01/18 23:16:48 skpandey noship $ */
3   -- Validate a IGS_PE_PERSON id.
4   FUNCTION genp_val_prsn_id(
5   p_person_id IN NUMBER ,
6   p_message_name OUT NOCOPY VARCHAR2 )
7   RETURN BOOLEAN AS
8 
9   BEGIN
10   DECLARE
11   	v_person_id	IGS_PE_PERSON.person_id%TYPE;
12 -- skpandey, Bug#4937960: Changed c_person cursor definition to optimize query
13 	CURSOR	c_person(cp_person_id hz_parties.party_id%TYPE) IS
14   		SELECT	person_id
15   		FROM	igs_pe_person_base_v
16   		WHERE	person_id = cp_person_id;
17   BEGIN
18   	-- validate the person_id is valid
19   	OPEN c_person(p_person_id);
20   	FETCH c_person INTO v_person_id;
21   	IF (c_person%NOTFOUND) THEN
22   		CLOSE c_person;
23   		p_message_name   := 'IGS_GE_INVALID_VALUE';
24   		RETURN FALSE;
25   	END IF;
26   	CLOSE c_person;
27   	p_message_name   := Null;
28   	RETURN TRUE;
29   END;
30 
31   END genp_val_prsn_id;
32 END IGS_CO_VAL_SCOTR;