PACKAGE BODY: APPS.PER_CONTACT_EXTRA_INFO_PKG

Source

1 PACKAGE BODY per_contact_extra_info_pkg AS
2 /* $Header: pecei01t.pkb 115.3 2002/03/19 18:05:16 pkm ship        $ */
3 -- ---------------------------------------------------------------------------
4 -- |-------------------------< populate_info_exists >------------------------|
5 -- ---------------------------------------------------------------------------
6 -- {Start Of Comments}
7 --
8 -- Description:
9 --   Accepts contact_relationship_id and information_type, and returns 'Y' if
10 --   if a per_contact_extra_info record exists.
11 --
12 -- Prerequisites:
13 --   None.
14 --
15 -- In Parameters:
16 --   Name                      	Reqd    Type	        Description
17 --   x_contact_relationship_id	Yes     VARCHAR2        Contact Relationship ID.
18 --   x_information_type        	Yes     VARCHAR2        Contact Information
19 -- 							Type.
20 --
21 -- Out Parameters:
22 --   None.
23 --
24 -- Post Success:
25 --   The function returns 'Y' or 'N'.
26 --
27 -- Post Failure:
28 --   None.
29 --
30 -- Developer Implementation Notes:
31 --   None.
32 --
33 -- Access Status:
34 --   Public.
35 --
36 -- {End Of Comments}
37 -- ---------------------------------------------------------------------------
38  FUNCTION populate_info_exists(
39   x_contact_relationship_id	IN 	per_contact_extra_info_f.contact_relationship_id%TYPE,
40   x_information_type 		IN 	per_contact_extra_info_f.information_type%TYPE)
41   RETURN VARCHAR2 IS
42   --
43   CURSOR c_cei IS
44    SELECT 'Y'
45    FROM per_contact_extra_info cei
46    WHERE cei.contact_relationship_id = x_contact_relationship_id
47    AND cei.information_type = x_information_type;
48   --
49   l_return	VARCHAR2(1) := 'N';
50  BEGIN
51    OPEN c_cei;
52    FETCH c_cei INTO l_return;
53    CLOSE c_cei;
54    RETURN l_return;
55  END populate_info_exists;
56 --
57 END per_contact_extra_info_pkg;