[Home] [Help]
PACKAGE BODY: APPS.JTF_EBI_UTIL
Source
1 PACKAGE BODY JTF_EBI_UTIL AS
2 /* $Header: JTFEIUTB.pls 120.1 2011/03/23 16:48:53 agunnam noship $ */
3
4 /************************************************************************************
5 -- API name : set_apps_context
6 -- Type : Public
7 ************************************************************************************/
8
9 PROCEDURE set_apps_context(
10 p_user_name IN VARCHAR2
11 ,p_responsibility IN VARCHAR2
12 )
13 IS
14 l_user_id NUMBER(15);
15 l_resp_id NUMBER(15);
16 l_resp_appl_id NUMBER(15);
17 l_sec_grp_id NUMBER(15);
18 l_language FND_PROFILE_OPTION_VALUES.PROFILE_OPTION_VALUE%TYPE;
19 l_language_code FND_PROFILE_OPTION_VALUES.PROFILE_OPTION_VALUE%TYPE;
20 l_date_format FND_PROFILE_OPTION_VALUES.PROFILE_OPTION_VALUE%TYPE;
21 l_date_language FND_PROFILE_OPTION_VALUES.PROFILE_OPTION_VALUE%TYPE;
22 l_numeric_characters FND_PROFILE_OPTION_VALUES.PROFILE_OPTION_VALUE%TYPE;
23 l_nls_sort FND_PROFILE_OPTION_VALUES.PROFILE_OPTION_VALUE%TYPE;
24 l_nls_territory FND_PROFILE_OPTION_VALUES.PROFILE_OPTION_VALUE%TYPE;
25 l_limit_time NUMBER;
26 l_limit_connects NUMBER;
27 l_org_id FND_PROFILE_OPTION_VALUES.PROFILE_OPTION_VALUE%TYPE;
28 l_timeout NUMBER;
29 BEGIN
30
31 BEGIN
32 SELECT usr.user_id,
33 furg.responsibility_id,
34 furg.responsibility_application_id,
35 furg.security_group_id
36 INTO l_user_id,
37 l_resp_id,
38 l_resp_appl_id,
39 l_sec_grp_id
40 FROM FND_USER_RESP_GROUPS FURG, FND_RESPONSIBILITY_TL FR , FND_USER USR
41 WHERE furg.user_id = usr.user_id
42 AND furg.responsibility_id = fr.responsibility_id
43 AND furg.responsibility_application_id = fr.application_id
44 AND UPPER(usr.user_name) = UPPER(p_user_name)
45 AND UPPER(fr.responsibility_name) = UPPER(p_responsibility);
46 EXCEPTION
47 WHEN OTHERS THEN
48 NULL;
49 END;
50
51 IF l_user_id IS NOT NULL AND l_resp_id IS NOT NULL AND l_resp_appl_id IS NOT NULL
52 THEN
53 FND_GLOBAL.apps_initialize(l_user_id, l_resp_id, l_resp_appl_id,l_sec_grp_id);
54 END IF;
55
56 FND_SESSION_MANAGEMENT.SETUSERNLS(l_user_id
57 ,NULL
58 ,l_language
59 ,l_language_code
60 ,l_date_format
61 ,l_date_language
62 ,l_numeric_characters
63 ,l_nls_sort
64 ,l_nls_territory
65 ,l_limit_time
66 ,l_limit_connects
67 ,l_org_id
68 ,l_timeout );
69
70 FND_GLOBAL.SET_NLS_CONTEXT(l_language,
71 l_date_format,
72 l_date_language,
73 l_numeric_characters,
74 l_nls_sort,
75 l_nls_territory);
76
77 EXCEPTION
78 WHEN OTHERS THEN
79 FND_MSG_PUB.Add_Exc_Msg(p_pkg_name=>'JTF_EBI_UTIL',p_procedure_name=>'set_apps_context');
80 RAISE FND_API.g_exc_unexpected_error;
81 END set_apps_context;
82
83 FUNCTION is_resource_error_exists(
84 p_batch_id IN NUMBER
85 ) RETURN VARCHAR IS
86 l_count NUMBER :=0;
87 BEGIN
88 SELECT count(*) INTO l_count
89 FROM JTF_RS_RESOURCE_EXTNS_INT
90 WHERE OPERATION_STATUS = 'E'
91 AND BATCH_ID =p_batch_id;
92
93 IF(l_count > 0) THEN
94 RETURN FND_API.g_true;
95 ELSE
96 RETURN FND_API.g_false;
97 END IF;
98 END is_resource_error_exists;
99
100 FUNCTION is_salesrep_error_exists(
101 p_batch_id IN NUMBER
102 ) RETURN VARCHAR IS
103 l_count NUMBER :=0;
104 BEGIN
105 SELECT count(*) INTO l_count
106 FROM JTF_RS_SALESREPS_INT
107 WHERE OPERATION_STATUS = 'E'
108 AND BATCH_ID =p_batch_id;
109
110 IF(l_count > 0) THEN
111 RETURN FND_API.g_true;
112 ELSE
113 RETURN FND_API.g_false;
114 END IF;
115 END is_salesrep_error_exists;
116
117
118 END JTF_EBI_UTIL;