[Home] [Help]
PACKAGE BODY: APPS.XLA_CONTEXT_PKG
Source
1 PACKAGE BODY XLA_CONTEXT_PKG AS
2 -- $Header: xlacmctx.pkb 120.3 2006/06/27 20:32:59 masada ship $
3 /*===========================================================================+
4 | Copyright (c) 2001-2002 Oracle Corporation |
5 | Redwood Shores, CA, USA |
6 | All rights reserved. |
7 +============================================================================+
8 | FILENAME |
9 | xlacmctx.pkb |
10 | |
11 | PACKAGE NAME |
12 | xla_context_pkg |
13 | |
14 | DESCRIPTION |
15 | This context package is used to set the attribute values for the |
16 | application context namespace "XLA" |
17 | |
18 | HISTORY |
19 | 23-Jan-03 S. Singhania Created |
20 | 17-Apr-03 S. Singhania Added body for the following: |
21 | - set_acct_err_context |
22 | - get_acct_err_context |
23 | - clear_acct_err_context |
24 | 12-Oct-05 A.Wan 4645092 - MPA report changes |
25 | |
26 +===========================================================================*/
27
28 --=============================================================================
29 -- *********** public procedures and functions **********
30 --=============================================================================
31 --=============================================================================
32 --
33 --
34 --
35 --
36 --
37 --
38 --
39 --
40 --
41 --
42 -- Following are the public routines that can be called to set attributes
43 -- for a naempsace (application context)
44 --
45 -- 1. set_security_context
46 -- 2. set_acct_err_contex
47 -- 3. get_acct_err_contex
48 -- 4. clear_acct_err_contex
49 --
50 --
51 --
52 --
53 --
54 --
55 --
56 --
57 --
58 --
59 --
60 --
61 --=============================================================================
62 --=============================================================================
63 --
64 --
65 --
66 --=============================================================================
67 PROCEDURE set_security_context
68 (p_security_group IN VARCHAR2) IS
69 BEGIN
70 ----------------------------------------------------------------------------
71 -- Following sets the value for the attribute 'SECURITY_GROUP' for the
72 -- application context namespace 'XLA'
73 ----------------------------------------------------------------------------
74 dbms_session.set_context
75 ('XLA','SECURITY_GROUP',p_security_group);
76 EXCEPTION
77 WHEN xla_exceptions_pkg.application_exception THEN
78 RAISE;
79 WHEN OTHERS THEN
80 xla_exceptions_pkg.raise_message
81 (p_location => 'xla_context_pkgset_security_context');
82 END set_security_context;
83
84 --=============================================================================
85 --
86 --
87 --
88 --=============================================================================
89 PROCEDURE set_acct_err_context
90 (p_error_count IN NUMBER
91 ,p_client_id IN VARCHAR2) IS
92 BEGIN
93 ----------------------------------------------------------------------------
94 -- Following sets the value for the attribute 'SECURITY_GROUP' for the
95 -- application context namespace 'XLA'
96 ----------------------------------------------------------------------------
97 dbms_session.set_context
98 (namespace => 'XLA_GLOBAL'
99 ,attribute => 'ACCOUNTING_ERRORS_COUNT'
100 ,value => TO_CHAR(p_error_count)
101 ,username => NULL
102 ,client_id => p_client_id);
103
104 EXCEPTION
105 WHEN xla_exceptions_pkg.application_exception THEN
106 RAISE;
107 WHEN OTHERS THEN
108 xla_exceptions_pkg.raise_message
109 (p_location => 'xla_context_pkgset_security_context');
110 END set_acct_err_context;
111
112 --=============================================================================
113 --
114 --
115 --
116 --=============================================================================
117 FUNCTION get_acct_err_context
118 RETURN NUMBER IS
119 BEGIN
120 RETURN NVL(sys_context('XLA_GLOBAL','ACCOUNTING_ERRORS_COUNT'),0);
121 EXCEPTION
122 WHEN xla_exceptions_pkg.application_exception THEN
123 RAISE;
124 WHEN OTHERS THEN
125 xla_exceptions_pkg.raise_message
126 (p_location => 'xla_context_pkgget_security_context');
127 END get_acct_err_context;
128
129
130 --=============================================================================
131 --
132 --
133 --
134 --=============================================================================
135 PROCEDURE clear_acct_err_context
136 (p_client_id IN VARCHAR2) IS
137 BEGIN
138 ----------------------------------------------------------------------------
139 -- Following sets the value for the attribute 'SECURITY_GROUP' for the
140 -- application context namespace 'XLA'
141 ----------------------------------------------------------------------------
142 dbms_session.clear_context
143 (namespace => 'XLA_GLOBAL'
144 ,attribute => 'ACCOUNTING_ERRORS_COUNT'
145 ,client_id => p_client_id);
146
147 EXCEPTION
148 WHEN xla_exceptions_pkg.application_exception THEN
149 RAISE;
150 WHEN OTHERS THEN
151 xla_exceptions_pkg.raise_message
152 (p_location => 'xla_context_pkgset_security_context');
153 END clear_acct_err_context;
154
155
156 ------------------------------------------------------------------------------
157 -- 4645092 To set MPA-Accrual context
161 ,p_client_id IN VARCHAR2 DEFAULT NULL) IS
158 ------------------------------------------------------------------------------
159 PROCEDURE set_mpa_accrual_context
160 (p_mpa_accrual_exists IN VARCHAR2
162 BEGIN
163 ----------------------------------------------------------------------------
164 -- Following sets the value for the attribute 'MPA_ACCRUAL_EXISTS' for the
165 -- application context namespace 'XLA_GLOBAL'
166 ----------------------------------------------------------------------------
167 dbms_session.set_context
168 (namespace => 'XLA_GLOBAL'
169 ,attribute => 'MPA_ACCRUAL_EXISTS'
170 ,value => p_mpa_accrual_exists
171 ,username => NULL
172 ,client_id => p_client_id);
173 EXCEPTION
174 WHEN xla_exceptions_pkg.application_exception THEN
175 RAISE;
176 WHEN OTHERS THEN
177 xla_exceptions_pkg.raise_message
178 (p_location => 'xla_context_pkg.set_mpa_accrual_context');
179 END set_mpa_accrual_context;
180
181 ------------------------------------------------------------------------------
182 -- 4645092 To get MPA-accrual context
183 ------------------------------------------------------------------------------
184 FUNCTION get_mpa_accrual_context
185 RETURN VARCHAR2 IS
186 BEGIN
187 RETURN NVL(sys_context('XLA_GLOBAL','MPA_ACCRUAL_EXISTS'),'N');
188 EXCEPTION
189 WHEN xla_exceptions_pkg.application_exception THEN
190 RAISE;
191 WHEN OTHERS THEN
192 xla_exceptions_pkg.raise_message
193 (p_location => 'xla_context_pkgget_mpa_accrual_context');
194 END get_mpa_accrual_context;
195
196
197 ------------------------------------------------------------------------------
198 -- 4645092 To clear MPA-accrual context
199 ------------------------------------------------------------------------------
200 PROCEDURE clear_mpa_accrual_context
201 (p_client_id IN VARCHAR2) IS
202 BEGIN
203 ----------------------------------------------------------------------------
204 -- Following sets the value for the attribute 'MPA_ACCRUAL_EXISTS' for the
205 -- application context namespace 'XLA_GLOBAL'
206 ----------------------------------------------------------------------------
207 dbms_session.clear_context
208 (namespace => 'XLA_GLOBAL'
209 ,attribute => 'MPA_ACCRUAL_EXISTS'
210 ,client_id => p_client_id);
211 EXCEPTION
215 xla_exceptions_pkg.raise_message
212 WHEN xla_exceptions_pkg.application_exception THEN
213 RAISE;
214 WHEN OTHERS THEN
216 (p_location => 'xla_context_pkgclear_mpa_accrual_context');
217 END clear_mpa_accrual_context;
218
219 ---------------------------------------------------------------------
220 -- 4865292 Event context
221 ---------------------------------------------------------------------
222 PROCEDURE set_event_count_context
223 (p_event_count IN NUMBER
224 ,p_client_id IN VARCHAR2 DEFAULT NULL) IS
225
226 BEGIN
227 ----------------------------------------------------------------------------
228 -- Following sets the value for the attribute 'EVENT_COUNT' for the
229 -- application context namespace 'XLA'
230 ----------------------------------------------------------------------------
231 dbms_session.set_context
232 (namespace => 'XLA_GLOBAL'
233 ,attribute => 'EVENT_COUNT'
234 ,value => TO_CHAR(p_event_count)
235 ,username => NULL
236 ,client_id => p_client_id);
237
238 EXCEPTION
239 WHEN xla_exceptions_pkg.application_exception THEN
240 RAISE;
241 WHEN OTHERS THEN
242 xla_exceptions_pkg.raise_message
243 (p_location => 'xla_context_pkg.set_event_count_context');
244 END set_event_count_context;
245
246 FUNCTION get_event_count_context
247 RETURN NUMBER IS
248 BEGIN
249
250 RETURN NVL(sys_context('XLA_GLOBAL','EVENT_COUNT'),0);
251
252 END get_event_count_context;
253
254 PROCEDURE set_event_nohdr_context
255 (p_nohdr_extract_flag IN VARCHAR2
256 ,p_client_id IN VARCHAR2 DEFAULT NULL) IS
257 BEGIN
258 ----------------------------------------------------------------------------
259 -- Following sets the value for the attribute 'NO_HDR_EXTRACT_FLAG' for
260 -- the application context namespace 'XLA'
261 ----------------------------------------------------------------------------
262 dbms_session.set_context
263 (namespace => 'XLA_GLOBAL'
264 ,attribute => 'NO_HDR_EXTRACT_FLAG'
265 ,value => p_nohdr_extract_flag
266 ,username => NULL
267 ,client_id => p_client_id);
268
269 EXCEPTION
270 WHEN xla_exceptions_pkg.application_exception THEN
271 RAISE;
272 WHEN OTHERS THEN
273 xla_exceptions_pkg.raise_message
274 (p_location => 'xla_context_pkg.set_event_nohdr_context');
275 END set_event_nohdr_context;
276
277 FUNCTION get_event_nohdr_context
278 RETURN VARCHAR2 IS
279 BEGIN
280
281 RETURN NVL(SYS_CONTEXT('XLA_GLOBAL','NO_HDR_EXTRACT_FLAG'),'N');
282
283 EXCEPTION
284 WHEN xla_exceptions_pkg.application_exception THEN
285 RAISE;
286 WHEN OTHERS THEN
287 xla_exceptions_pkg.raise_message
288 (p_location => 'xla_context_pkg.get_event_nohdr_context');
289 END get_event_nohdr_context;
290
291 PROCEDURE clear_event_context
292 (p_client_id IN VARCHAR2) IS
293 BEGIN
294 ---------------------------------------------------------------------------
295 -- Following sets the value for the attribute 'EVENT_COUNT' and
296 -- 'NO_HDR_EXTRACT_FLAG' for the application context namespace
297 -- 'XLA_GLOBAL'
298 ---------------------------------------------------------------------------
299 dbms_session.clear_context
300 (namespace => 'XLA_GLOBAL'
301 ,attribute => 'EVENT_COUNT'
302 ,client_id => p_client_id);
303
304 dbms_session.clear_context
305 (namespace => 'XLA_GLOBAL'
306 ,attribute => 'NO_HDR_EXTRACT_FLAG'
307 ,client_id => p_client_id);
308
309 EXCEPTION
310 WHEN xla_exceptions_pkg.application_exception THEN
311 RAISE;
312 WHEN OTHERS THEN
313 xla_exceptions_pkg.raise_message
314 (p_location => 'xla_context_pkg.clear_event_context');
315 END clear_event_context;
316
317 END xla_context_pkg;