55:
56: IS
57:
58: BEGIN
59: xla_utility_pkg.trace('> Package xla_environment_pkg .get_login_info' , 20);
60:
61: g_Login_Id := fnd_global.login_id;
62: g_Prog_Appl_Id := fnd_global.prog_appl_id;
63: g_Prog_Id := fnd_global.conc_program_id;
63: g_Prog_Id := fnd_global.conc_program_id;
64: g_Req_Id := fnd_global.conc_request_id;
65: g_Usr_Id := fnd_global.user_id;
66:
67: xla_utility_pkg.trace('Login id = '||TO_CHAR(g_Login_Id) , 30);
68: xla_utility_pkg.trace('Prog Appl id = '||TO_CHAR(g_Prog_Appl_Id), 30);
69: xla_utility_pkg.trace('Prog id = '||TO_CHAR(g_Prog_Id) , 30);
70: xla_utility_pkg.trace('Request id = '||TO_CHAR(g_Req_Id) , 30);
71: xla_utility_pkg.trace('User id = '||TO_CHAR(g_Usr_Id) , 30);
64: g_Req_Id := fnd_global.conc_request_id;
65: g_Usr_Id := fnd_global.user_id;
66:
67: xla_utility_pkg.trace('Login id = '||TO_CHAR(g_Login_Id) , 30);
68: xla_utility_pkg.trace('Prog Appl id = '||TO_CHAR(g_Prog_Appl_Id), 30);
69: xla_utility_pkg.trace('Prog id = '||TO_CHAR(g_Prog_Id) , 30);
70: xla_utility_pkg.trace('Request id = '||TO_CHAR(g_Req_Id) , 30);
71: xla_utility_pkg.trace('User id = '||TO_CHAR(g_Usr_Id) , 30);
72:
65: g_Usr_Id := fnd_global.user_id;
66:
67: xla_utility_pkg.trace('Login id = '||TO_CHAR(g_Login_Id) , 30);
68: xla_utility_pkg.trace('Prog Appl id = '||TO_CHAR(g_Prog_Appl_Id), 30);
69: xla_utility_pkg.trace('Prog id = '||TO_CHAR(g_Prog_Id) , 30);
70: xla_utility_pkg.trace('Request id = '||TO_CHAR(g_Req_Id) , 30);
71: xla_utility_pkg.trace('User id = '||TO_CHAR(g_Usr_Id) , 30);
72:
73: xla_utility_pkg.trace('< Package xla_environment_pkg .login_info' , 20);
66:
67: xla_utility_pkg.trace('Login id = '||TO_CHAR(g_Login_Id) , 30);
68: xla_utility_pkg.trace('Prog Appl id = '||TO_CHAR(g_Prog_Appl_Id), 30);
69: xla_utility_pkg.trace('Prog id = '||TO_CHAR(g_Prog_Id) , 30);
70: xla_utility_pkg.trace('Request id = '||TO_CHAR(g_Req_Id) , 30);
71: xla_utility_pkg.trace('User id = '||TO_CHAR(g_Usr_Id) , 30);
72:
73: xla_utility_pkg.trace('< Package xla_environment_pkg .login_info' , 20);
74:
67: xla_utility_pkg.trace('Login id = '||TO_CHAR(g_Login_Id) , 30);
68: xla_utility_pkg.trace('Prog Appl id = '||TO_CHAR(g_Prog_Appl_Id), 30);
69: xla_utility_pkg.trace('Prog id = '||TO_CHAR(g_Prog_Id) , 30);
70: xla_utility_pkg.trace('Request id = '||TO_CHAR(g_Req_Id) , 30);
71: xla_utility_pkg.trace('User id = '||TO_CHAR(g_Usr_Id) , 30);
72:
73: xla_utility_pkg.trace('< Package xla_environment_pkg .login_info' , 20);
74:
75: EXCEPTION
69: xla_utility_pkg.trace('Prog id = '||TO_CHAR(g_Prog_Id) , 30);
70: xla_utility_pkg.trace('Request id = '||TO_CHAR(g_Req_Id) , 30);
71: xla_utility_pkg.trace('User id = '||TO_CHAR(g_Usr_Id) , 30);
72:
73: xla_utility_pkg.trace('< Package xla_environment_pkg .login_info' , 20);
74:
75: EXCEPTION
76: WHEN xla_exceptions_pkg.application_exception THEN
77: RAISE;
94:
95: IS
96:
97: BEGIN
98: xla_utility_pkg.trace('> Package xla_environment_pkg .set_release_info' , 20);
99:
100: SELECT SUBSTR(release_name,1,4)
101: INTO g_release_name
102: FROM fnd_product_groups
101: INTO g_release_name
102: FROM fnd_product_groups
103: ;
104:
105: xla_utility_pkg.trace('Release = '||g_release_name , 30);
106:
107: xla_utility_pkg.trace('> Package xla_environment_pkg .set_release_info' , 20);
108:
109: EXCEPTION
103: ;
104:
105: xla_utility_pkg.trace('Release = '||g_release_name , 30);
106:
107: xla_utility_pkg.trace('> Package xla_environment_pkg .set_release_info' , 20);
108:
109: EXCEPTION
110: WHEN xla_exceptions_pkg.application_exception THEN
111: RAISE;
130:
131: l_count INTEGER;
132:
133: BEGIN
134: xla_utility_pkg.trace('> Package xla_environment_pkg .get_mapps_info' , 10);
135:
136: SELECT COUNT(*)
137: INTO l_count
138: FROM fnd_data_groups
138: FROM fnd_data_groups
139: WHERE data_group_name NOT LIKE 'Multiple Reporting Currencies%'
140: ;
141:
142: xla_utility_pkg.trace('Data groups = '||TO_CHAR(l_count) , 20);
143:
144: IF l_count >1 THEN
145: g_mapps_flag := TRUE;
146: ELSE
146: ELSE
147: g_mapps_flag := FALSE;
148: END IF;
149:
150: xla_utility_pkg.trace('< Package xla_environment_pkg .get_mapps_info' , 10);
151:
152: EXCEPTION
153: WHEN xla_exceptions_pkg.application_exception THEN
154: RAISE;
171:
172: IS
173:
174: BEGIN
175: xla_utility_pkg.trace('> Package xla_environment_pkg .set_session_info' , 10);
176:
177: SELECT pr.spid
178: ,se.sid
179: ,se.program
188: AND se.paddr = pr.addr;
189:
190: g_session_name := dbms_pipe.unique_session_name;
191:
192: xla_utility_pkg.trace('< Package xla_environment_pkg .set_session_info' , 10);
193:
194: EXCEPTION
195:
196: WHEN xla_exceptions_pkg.application_exception THEN
241:
242: IS
243:
244: BEGIN
245: xla_utility_pkg.trace('> Package xla_environment_pkg .Refresh' , 20);
246:
247: IF NOT g_Init_flag THEN
248: set_login_info;
249: set_release_info;
254: END IF;
255:
256: g_Init_flag := TRUE;
257:
258: xla_utility_pkg.trace('< Package xla_environment_pkg .Refresh' , 20);
259:
260: EXCEPTION
261: WHEN xla_exceptions_pkg.application_exception THEN
262: RAISE;