[Home] [Help]
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;