[Home] [Help]
PACKAGE BODY: APPS.XLA_MPA_JLT_AC_ASSGNS_F_PVT
Source
1 PACKAGE BODY XLA_MPA_JLT_AC_ASSGNS_F_PVT AS
2 /* $Header: xlathmac.pkb 120.0 2005/06/24 01:29:05 eklau noship $ */
3
4 --=============================================================================
5 -- *********** Local Trace Routine **********
6 --=============================================================================
7 C_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
8 C_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
9 C_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
10 C_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
11 C_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
12 C_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
13
14 C_LEVEL_LOG_DISABLED CONSTANT NUMBER := 99;
15 C_DEFAULT_MODULE CONSTANT VARCHAR2(240) := 'xla.plsql.XLA_MPA_JLT_AC_ASSGNS_F_PVT';
16
17 g_log_level NUMBER;
18 g_log_enabled BOOLEAN;
19
20 PROCEDURE trace
21 (p_msg IN VARCHAR2
22 ,p_module IN VARCHAR2
23 ,p_level IN NUMBER) IS
24 BEGIN
25 ----------------------------------------------------------------------------
26 -- Following is for FND log.
27 ----------------------------------------------------------------------------
28 IF (p_msg IS NULL AND p_level >= g_log_level) THEN
29 fnd_log.message(p_level, p_module);
30 ELSIF p_level >= g_log_level THEN
31 fnd_log.string(p_level, p_module, p_msg);
32 END IF;
33
34 EXCEPTION
35 WHEN xla_exceptions_pkg.application_exception THEN
36 RAISE;
37
38 WHEN OTHERS THEN
39 xla_exceptions_pkg.raise_message
40 (p_location => 'XLA_MPA_JLT_AC_ASSGNS_F_PVT.trace');
41 END trace;
42
43
44 PROCEDURE Insert_Row (
45 x_rowid IN OUT NOCOPY VARCHAR2,
46 x_amb_context_code IN VARCHAR2,
47 x_application_id IN NUMBER,
48 x_event_class_code IN VARCHAR2,
49 x_event_type_code IN VARCHAR2,
50 x_line_definition_owner_code IN VARCHAR2,
51 x_line_definition_code IN VARCHAR2,
52 x_accounting_line_type_code IN VARCHAR2,
53 x_accounting_line_code IN VARCHAR2,
54 x_mpa_accounting_line_type_co IN VARCHAR2,
55 x_mpa_accounting_line_code IN VARCHAR2,
56 x_analytical_criterion_type_co IN VARCHAR2,
57 x_analytical_criterion_code IN VARCHAR2,
58 x_mpa_inherit_ac_flag IN VARCHAR2,
59 x_creation_date IN DATE,
60 x_created_by IN NUMBER,
61 x_last_update_date IN DATE,
62 x_last_updated_by IN NUMBER,
63 x_last_update_login IN NUMBER
64 ) IS
65
66 Cursor C is
67 Select rowid
68 from xla_mpa_jlt_ac_assgns
69 where amb_context_code = x_amb_context_code
70 and application_id = x_application_id
71 and event_type_code = x_event_type_code
72 and line_definition_owner_code = x_line_definition_owner_code
73 and line_definition_code = x_line_definition_code
74 and accounting_line_type_code = x_accounting_line_type_code
75 and accounting_line_code = x_accounting_line_code
76 and mpa_accounting_line_type_code = x_mpa_accounting_line_type_co
77 and mpa_accounting_line_code = x_mpa_accounting_line_code
78 and analytical_criterion_type_code = x_analytical_criterion_type_co
79 and analytical_criterion_code = x_analytical_criterion_code;
80
81 l_log_module VARCHAR2(240);
82
83 BEGIN
84
85 If (g_log_enabled) then
86 l_log_module := C_DEFAULT_MODULE||'.insert_row';
87 End If;
88
89 If (C_LEVEL_PROCEDURE >= g_log_level) then
90 trace(p_msg => 'BEGIN of procedure insert_row',
91 p_module => l_log_module,
92 p_level => C_LEVEL_PROCEDURE);
93 End If;
94
95 INSERT INTO XLA_MPA_JLT_AC_ASSGNS (
96 AMB_CONTEXT_CODE,
97 APPLICATION_ID,
98 EVENT_CLASS_CODE,
99 EVENT_TYPE_CODE,
100 LINE_DEFINITION_OWNER_CODE,
101 LINE_DEFINITION_CODE,
102 ACCOUNTING_LINE_TYPE_CODE,
103 ACCOUNTING_LINE_CODE,
104 MPA_ACCOUNTING_LINE_TYPE_CODE,
105 MPA_ACCOUNTING_LINE_CODE,
106 ANALYTICAL_CRITERION_TYPE_CODE,
107 ANALYTICAL_CRITERION_CODE,
108 MPA_INHERIT_AC_FLAG,
109 OBJECT_VERSION_NUMBER,
110 CREATION_DATE,
111 CREATED_BY,
112 LAST_UPDATE_DATE,
113 LAST_UPDATED_BY,
114 LAST_UPDATE_LOGIN
115 )
116 VALUES (
117 X_AMB_CONTEXT_CODE,
118 X_APPLICATION_ID,
119 X_EVENT_CLASS_CODE,
120 X_EVENT_TYPE_CODE,
121 X_LINE_DEFINITION_OWNER_CODE,
122 X_LINE_DEFINITION_CODE,
123 X_ACCOUNTING_LINE_TYPE_CODE,
124 X_ACCOUNTING_LINE_CODE,
125 X_MPA_ACCOUNTING_LINE_TYPE_CO,
126 X_MPA_ACCOUNTING_LINE_CODE,
127 X_ANALYTICAL_CRITERION_TYPE_CO,
128 X_ANALYTICAL_CRITERION_CODE,
129 X_MPA_INHERIT_AC_FLAG,
130 1,
131 X_CREATION_DATE,
132 X_CREATED_BY,
133 X_LAST_UPDATE_DATE,
134 X_LAST_UPDATED_BY,
135 X_LAST_UPDATE_LOGIN);
136
137 Open C;
138 Fetch C into x_rowid;
139
140 If (C%NOTFOUND) then
141 Close C;
142 Raise NO_DATA_FOUND;
143 End If;
144 Close C;
145
146 If (C_LEVEL_PROCEDURE >= g_log_level) then
147 trace(p_msg => 'END of procedure insert_row',
148 p_module => l_log_module,
149 p_level => C_LEVEL_PROCEDURE);
150 End If;
151
152 END Insert_Row;
153
154
155
156 PROCEDURE Lock_Row (
157 x_amb_context_code IN VARCHAR2,
158 x_application_id IN NUMBER,
159 x_event_type_code IN VARCHAR2,
160 x_line_definition_owner_code IN VARCHAR2,
161 x_line_definition_code IN VARCHAR2,
162 x_accounting_line_type_code IN VARCHAR2,
163 x_accounting_line_code IN VARCHAR2,
164 x_mpa_accounting_line_type_co IN VARCHAR2,
165 x_mpa_accounting_line_code IN VARCHAR2,
166 x_analytical_criterion_type_co IN VARCHAR2,
167 x_analytical_criterion_code IN VARCHAR2
168 ) IS
169
170 Cursor C is
171 Select *
172 from xla_mpa_jlt_assgns
173 where amb_context_code = x_amb_context_code
174 and application_id = x_application_id
175 and event_type_code = x_event_type_code
176 and line_definition_owner_code = x_line_definition_owner_code
177 and line_definition_code = x_line_definition_code
178 and accounting_line_type_code = x_accounting_line_type_code
179 and accounting_line_code = x_accounting_line_code
180 and mpa_accounting_line_type_code = x_mpa_accounting_line_type_co
181 and mpa_accounting_line_code = x_mpa_accounting_line_code
182 for update of event_class_code nowait;
183
184 l_rec C%ROWTYPE;
185 l_log_module varchar2(240);
186
187 BEGIN
188
189 If g_log_enabled then
190 l_log_module := C_DEFAULT_MODULE||'.lock_row';
191 End If;
192
193 If (C_LEVEL_PROCEDURE >= g_log_level) then
194 trace(p_msg => 'BEGIN of procedure lock_row',
195 p_module => l_log_module,
196 p_level => C_LEVEL_PROCEDURE);
197 End If;
198
199 Open C;
200 Fetch C into l_rec;
201 If (C%NOTFOUND) then
202 Close C;
203 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
204 app_exception.raise_exception;
205 End If;
206 Close C;
207
208 IF (C_LEVEL_PROCEDURE >= g_log_level) THEN
209 trace(p_msg => 'END of procedure lock_row',
210 p_module => l_log_module,
211 p_level => C_LEVEL_PROCEDURE);
212 END IF;
213
214 END Lock_Row;
215
216
217 PROCEDURE Update_Row (
218 x_amb_context_code IN VARCHAR2,
219 x_application_id IN NUMBER,
220 x_event_class_code IN VARCHAR2,
221 x_event_type_code IN VARCHAR2,
222 x_line_definition_owner_code IN VARCHAR2,
223 x_line_definition_code IN VARCHAR2,
224 x_accounting_line_type_code IN VARCHAR2,
225 x_accounting_line_code IN VARCHAR2,
226 x_mpa_accounting_line_type_co IN VARCHAR2,
227 x_mpa_accounting_line_code IN VARCHAR2,
228 x_analytical_criterion_type_co IN VARCHAR2,
229 x_analytical_criterion_code IN VARCHAR2,
230 x_mpa_inherit_ac_flag IN VARCHAR2,
231 x_last_update_date IN DATE,
232 x_last_updated_by IN NUMBER,
233 x_last_update_login IN NUMBER
234 ) IS
235
236 l_log_module varchar2(240);
237
238 BEGIN
239
240 IF g_log_enabled THEN
241 l_log_module := C_DEFAULT_MODULE||'.update_row';
242 END IF;
243
244 IF (C_LEVEL_PROCEDURE >= g_log_level) THEN
245 trace(p_msg => 'BEGIN of procedure update_row',
246 p_module => l_log_module,
247 p_level => C_LEVEL_PROCEDURE);
248 END IF;
249
250 UPDATE XLA_MPA_JLT_AC_ASSGNS
251 SET mpa_inherit_ac_flag = x_mpa_inherit_ac_flag,
252 last_update_date = x_last_update_date,
253 object_version_number = object_version_number + 1,
254 last_updated_by = x_last_updated_by,
255 last_update_login = x_last_update_login
256 WHERE amb_context_code = x_amb_context_code
257 and application_id = x_application_id
258 and event_type_code = x_event_type_code
259 and line_definition_owner_code = x_line_definition_owner_code
260 and line_definition_code = x_line_definition_code
261 and accounting_line_type_code = x_accounting_line_type_code
262 and accounting_line_code = x_accounting_line_code
263 and mpa_accounting_line_type_code = x_mpa_accounting_line_type_co
264 and mpa_accounting_line_code = x_mpa_accounting_line_code
265 and analytical_criterion_type_code = x_analytical_criterion_type_co
266 and analytical_criterion_code = x_analytical_criterion_code;
267
268 IF ( SQL%NOTFOUND ) THEN
269 RAISE NO_DATA_FOUND;
270 END IF;
271
272 IF (C_LEVEL_PROCEDURE >= g_log_level) THEN
273 trace(p_msg => 'END of procedure update_row',
274 p_module => l_log_module,
275 p_level => C_LEVEL_PROCEDURE);
276 END IF;
277
278 END Update_Row;
279
280
281
282 PROCEDURE Delete_Row (
283 x_amb_context_code IN VARCHAR2,
284 x_application_id IN NUMBER,
285 x_event_type_code IN VARCHAR2,
286 x_line_definition_owner_code IN VARCHAR2,
287 x_line_definition_code IN VARCHAR2,
288 x_accounting_line_type_code IN VARCHAR2,
289 x_accounting_line_code IN VARCHAR2,
290 x_mpa_accounting_line_type_co IN VARCHAR2,
291 x_mpa_accounting_line_code IN VARCHAR2,
292 x_analytical_criterion_type_co IN VARCHAR2,
293 x_analytical_criterion_code IN VARCHAR2
294 ) IS
295
296 l_log_module VARCHAR2(240);
297
298 BEGIN
299
300 If g_log_enabled then
301 l_log_module := C_DEFAULT_MODULE||'.delete_row';
302 End If;
303
304 If (C_LEVEL_PROCEDURE >= g_log_level) then
305 trace(p_msg => 'BEGIN of procedure delete_row',
306 p_module => l_log_module,
307 p_level => C_LEVEL_PROCEDURE);
308 End If;
309
310 DELETE XLA_MPA_JLT_AC_ASSGNS
311 where amb_context_code = x_amb_context_code
312 and application_id = x_application_id
313 and event_type_code = x_event_type_code
314 and line_definition_owner_code = x_line_definition_owner_code
315 and line_definition_code = x_line_definition_code
316 and accounting_line_type_code = x_accounting_line_type_code
317 and accounting_line_code = x_accounting_line_code
318 and mpa_accounting_line_type_code = x_mpa_accounting_line_type_co
319 and mpa_accounting_line_code = x_mpa_accounting_line_code
320 and analytical_criterion_type_code = x_analytical_criterion_type_co
321 and analytical_criterion_code = x_analytical_criterion_code;
322
323 IF ( SQL%NOTFOUND ) THEN
324 RAISE NO_DATA_FOUND;
325 END IF;
326
327 If (C_LEVEL_PROCEDURE >= g_log_level) then
328 trace(p_msg => 'END of procedure delete_row',
329 p_module => l_log_module,
330 p_level => C_LEVEL_PROCEDURE);
331 End If;
332
333 END Delete_Row;
334
335 --=============================================================================
336 --
337 -- Following code is executed when the package body is referenced for the first
338 -- time
339 --
340 --=============================================================================
341
342 BEGIN
343 g_log_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
344 g_log_enabled := fnd_log.test
345 (log_level => g_log_level
346 ,module => C_DEFAULT_MODULE);
347
348 IF NOT g_log_enabled THEN
349 g_log_level := C_LEVEL_LOG_DISABLED;
350 END IF;
351
352
353 END XLA_MPA_JLT_AC_ASSGNS_F_PVT;