[Home] [Help]
PACKAGE BODY: APPS.CS_KB_PROFILES_PKG
Source
1 PACKAGE BODY CS_KB_PROFILES_PKG AS
2 /* $Header: cskbprob.pls 115.4 2003/12/18 23:17:31 mkettle noship $ */
3
4 FUNCTION isCategorymember(
5 m_user_id IN NUMBER,
6 m_category_id IN NUMBER
7 ) RETURN NUMBER IS
8
9 x_profile_name VARCHAR2(60);
10 x_temp number;
11 BEGIN
12 x_profile_name := 'CS_KB_PERZ_WF_' || to_char(m_user_id);
13
14 select 1
15 into x_temp
16 from JTF_PERZ_PROFILE profile,
17 JTF_PERZ_DATA data,
18 JTF_PERZ_DATA_ATTRIB attrib
19 where profile.profile_name = x_profile_name
20 and profile.profile_id = data.profile_id
21 and data.application_id = 170
22 and data.perz_data_name = 'CS_KB_WF_CATEGORY'
23 and data.perz_data_id = attrib.perz_data_id
24 and attrib.attribute_name = to_char(m_category_id);
25
26 return x_temp;
27
28 EXCEPTION
29 WHEN NO_DATA_FOUND THEN
30 return 0;
31
32 END isCategorymember;
33
34 FUNCTION isProductmember(
35 m_user_id IN NUMBER,
36 m_product_id IN NUMBER,
37 m_product_org_id IN NUMBER
38 ) RETURN NUMBER IS
39
40 x_profile_name VARCHAR2(60);
41 x_temp number;
42 BEGIN
43 x_profile_name := 'CS_KB_PERZ_WF_' || to_char(m_user_id);
44
45 select 1
46 into x_temp
47 from JTF_PERZ_PROFILE profile,
48 JTF_PERZ_DATA data,
49 JTF_PERZ_DATA_ATTRIB attrib
50 where profile.profile_name = x_profile_name
51 and profile.profile_id = data.profile_id
52 and data.application_id = 170
53 and data.perz_data_name = 'CS_KB_WF_PRODUCT'
54 and data.perz_data_id = attrib.perz_data_id
55 and attrib.attribute_name = to_char(m_product_id)
56 and decode(substr(attrib.attribute_value,1,4),
57 'org_', to_number(replace(attrib.attribute_value, 'org_','')) ,
58 cs_std.get_item_valdn_orgzn_id) = m_product_org_id;
59
60 return x_temp;
61
62 EXCEPTION
63 WHEN NO_DATA_FOUND THEN
64 return 0;
65
66 END isProductmember;
67
68 -- Package Body CS_KB_PROFILES_PKG
69 END;