[Home] [Help]
PACKAGE BODY: APPS.XLA_LINE_DEFN_JLT_ASSGNS_F_PVT
Source
1 PACKAGE BODY xla_line_defn_jlt_assgns_f_pvt AS
2 /* $Header: xlathljl.pkb 120.5 2005/07/06 20:48:25 eklau ship $ */
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_line_defn_jlt_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_line_defn_jlt_assgns_f_pvt.trace');
41 END trace;
42
43
44 /*======================================================================+
45 | |
46 | Procedure insert_row |
47 | |
48 +======================================================================*/
49 PROCEDURE insert_row
50 (x_rowid IN OUT NOCOPY VARCHAR2
51 ,x_application_id IN NUMBER
52 ,x_amb_context_code IN VARCHAR2
53 ,x_event_class_code IN VARCHAR2
54 ,x_event_type_code IN VARCHAR2
55 ,x_line_definition_owner_code IN VARCHAR2
56 ,x_line_definition_code IN VARCHAR2
57 ,x_accounting_line_type_code IN VARCHAR2
58 ,x_accounting_line_code IN VARCHAR2
59 ,x_inherit_desc_flag IN VARCHAR2
60 ,x_description_type_code IN VARCHAR2
61 ,x_description_code IN VARCHAR2
62 ,x_active_flag IN VARCHAR2
63 ,x_mpa_header_desc_code IN VARCHAR2
64 ,x_mpa_header_desc_type_code IN VARCHAR2
65 ,x_mpa_num_je_code IN VARCHAR2
66 ,x_mpa_gl_dates_code IN VARCHAR2
67 ,x_mpa_proration_code IN VARCHAR2
68 ,x_creation_date IN DATE
69 ,x_created_by IN NUMBER
70 ,x_last_update_date IN DATE
71 ,x_last_updated_by IN NUMBER
72 ,x_last_update_login IN NUMBER)
73
74 IS
75
76 CURSOR c IS
77 SELECT rowid
78 FROM xla_line_defn_jlt_assgns
79 WHERE application_id = x_application_id
80 AND amb_context_code = x_amb_context_code
81 AND event_class_code = x_event_class_code
82 AND event_type_code = x_event_type_code
83 AND line_definition_owner_code = x_line_definition_owner_code
84 AND line_definition_code = x_line_definition_code
85 AND accounting_line_type_code = x_accounting_line_type_code
86 AND accounting_line_code = x_accounting_line_code
87 ;
88
89 l_log_module VARCHAR2(240);
90 BEGIN
91
92 IF g_log_enabled THEN
93 l_log_module := C_DEFAULT_MODULE||'.insert_row';
94 END IF;
95
96 IF (C_LEVEL_PROCEDURE >= g_log_level) THEN
97 trace(p_msg => 'BEGIN of procedure insert_row',
98 p_module => l_log_module,
99 p_level => C_LEVEL_PROCEDURE);
100 END IF;
101
102 INSERT INTO xla_line_defn_jlt_assgns
103 (creation_date
104 ,created_by
105 ,application_id
106 ,amb_context_code
107 ,event_class_code
108 ,event_type_code
109 ,line_definition_owner_code
110 ,line_definition_code
111 ,accounting_line_type_code
112 ,accounting_line_code
113 ,active_flag
114 ,inherit_desc_flag
115 ,description_type_code
116 ,description_code
117 ,object_version_number
118 ,mpa_header_desc_code
119 ,mpa_header_desc_type_code
120 ,mpa_num_je_code
121 ,mpa_gl_dates_code
122 ,mpa_proration_code
123 ,last_update_date
124 ,last_updated_by
125 ,last_update_login)
126 VALUES
127 (x_creation_date
128 ,x_created_by
129 ,x_application_id
130 ,x_amb_context_code
131 ,x_event_class_code
132 ,x_event_type_code
133 ,x_line_definition_owner_code
134 ,x_line_definition_code
135 ,x_accounting_line_type_code
136 ,x_accounting_line_code
137 ,x_active_flag
138 ,x_inherit_desc_flag
139 ,x_description_type_code
140 ,x_description_code
141 ,1
142 ,x_mpa_header_desc_code
143 ,x_mpa_header_desc_type_code
144 ,x_mpa_num_je_code
145 ,x_mpa_gl_dates_code
146 ,x_mpa_proration_code
147 ,x_last_update_date
148 ,x_last_updated_by
149 ,x_last_update_login)
150 ;
151
152 OPEN c;
153 FETCH c INTO x_rowid;
154
155 IF (c%NOTFOUND) THEN
156 CLOSE c;
157 RAISE NO_DATA_FOUND;
158 END IF;
159 CLOSE c;
160
161 IF (C_LEVEL_PROCEDURE >= g_log_level) THEN
162 trace(p_msg => 'END of procedure insert_row',
163 p_module => l_log_module,
164 p_level => C_LEVEL_PROCEDURE);
165 END IF;
166
167 END insert_row;
168
169 /*======================================================================+
170 | |
171 | Procedure lock_row |
172 | |
173 +======================================================================*/
174 PROCEDURE lock_row
175 (x_application_id IN NUMBER
176 ,x_amb_context_code IN VARCHAR2
177 ,x_event_class_code IN VARCHAR2
178 ,x_event_type_code IN VARCHAR2
179 ,x_line_definition_owner_code IN VARCHAR2
180 ,x_line_definition_code IN VARCHAR2
181 ,x_accounting_line_type_code IN VARCHAR2
182 ,x_accounting_line_code IN VARCHAR2
183 ,x_inherit_desc_flag IN VARCHAR2
184 ,x_description_type_code IN VARCHAR2
185 ,x_description_code IN VARCHAR2
186 ,x_active_flag IN VARCHAR2
187 ,x_mpa_header_desc_code IN VARCHAR2
188 ,x_mpa_header_desc_type_code IN VARCHAR2
189 ,x_mpa_num_je_code IN VARCHAR2
190 ,x_mpa_gl_dates_code IN VARCHAR2
191 ,x_mpa_proration_code IN VARCHAR2)
192
193 IS
194
195 CURSOR c IS
196 SELECT active_flag
197 ,inherit_desc_flag
198 ,description_type_code
199 ,description_code
200 ,mpa_header_desc_code
201 ,mpa_header_desc_type_code
202 ,mpa_num_je_code
203 ,mpa_gl_dates_code
204 ,mpa_proration_code
205 FROM xla_line_defn_jlt_assgns
206 WHERE application_id = x_application_id
207 AND amb_context_code = x_amb_context_code
208 AND event_class_code = x_event_class_code
209 AND event_type_code = x_event_type_code
210 AND line_definition_owner_code = x_line_definition_owner_code
211 AND line_definition_code = x_line_definition_code
212 AND accounting_line_type_code = x_accounting_line_type_code
213 AND accounting_line_code = x_accounting_line_code
214 FOR UPDATE OF application_id NOWAIT;
215
216 recinfo c%ROWTYPE;
217
218 l_log_module VARCHAR2(240);
219 BEGIN
220
221 IF g_log_enabled THEN
222 l_log_module := C_DEFAULT_MODULE||'.lock_row';
223 END IF;
224
225 IF (C_LEVEL_PROCEDURE >= g_log_level) THEN
226 trace(p_msg => 'BEGIN of procedure lock_row',
227 p_module => l_log_module,
228 p_level => C_LEVEL_PROCEDURE);
229 END IF;
230
231 OPEN c;
232 FETCH c INTO recinfo;
233
234 IF (c%NOTFOUND) THEN
235 CLOSE c;
236 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
237 app_exception.raise_exception;
238 END IF;
239 CLOSE c;
240
241 IF ( (recinfo.active_flag = x_active_flag)
242 AND (recinfo.inherit_desc_flag = x_inherit_desc_flag)
243 AND ((recinfo.description_type_code = x_description_type_code)
244 OR ((recinfo.description_type_code IS NULL)
245 AND (x_description_type_code IS NULL)))
246 AND ((recinfo.description_code = x_description_code)
247 OR ((recinfo.description_code IS NULL)
248 AND (x_description_code IS NULL)))
249 AND ((recinfo.mpa_header_desc_code = x_mpa_header_desc_code)
250 OR ((recinfo.mpa_header_desc_code IS NULL)
251 AND (x_mpa_header_desc_code IS NULL)))
252 AND ((recinfo.mpa_header_desc_type_code = x_mpa_header_desc_type_code)
253 OR ((recinfo.mpa_header_desc_type_code IS NULL)
254 AND (x_mpa_header_desc_type_code IS NULL)))
255 AND ((recinfo.mpa_num_je_code = x_mpa_num_je_code)
256 OR ((recinfo.mpa_num_je_code IS NULL)
257 AND (x_mpa_num_je_code IS NULL)))
258 AND ((recinfo.mpa_gl_dates_code = x_mpa_gl_dates_code)
259 OR ((recinfo.mpa_gl_dates_code IS NULL)
260 AND (x_mpa_gl_dates_code IS NULL)))
261 AND ((recinfo.mpa_proration_code = x_mpa_proration_code)
262 OR ((recinfo.mpa_proration_code IS NULL)
263 AND (x_mpa_proration_code IS NULL)))
264 ) THEN
265 NULL;
266 ELSE
267 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
268 app_exception.raise_exception;
269 END IF;
270
271 IF (C_LEVEL_PROCEDURE >= g_log_level) THEN
272 trace(p_msg => 'END of procedure lock_row',
273 p_module => l_log_module,
274 p_level => C_LEVEL_PROCEDURE);
275 END IF;
276
277 END lock_row;
278
279 /*======================================================================+
280 | |
281 | Procedure update_row |
282 | |
283 +======================================================================*/
284 PROCEDURE update_row
285 (x_application_id IN NUMBER
286 ,x_amb_context_code IN VARCHAR2
287 ,x_event_class_code IN VARCHAR2
288 ,x_event_type_code IN VARCHAR2
289 ,x_line_definition_owner_code IN VARCHAR2
290 ,x_line_definition_code IN VARCHAR2
291 ,x_accounting_line_type_code IN VARCHAR2
292 ,x_accounting_line_code IN VARCHAR2
293 ,x_inherit_desc_flag IN VARCHAR2
294 ,x_description_type_code IN VARCHAR2
295 ,x_description_code IN VARCHAR2
296 ,x_active_flag IN VARCHAR2
297 ,x_mpa_header_desc_code IN VARCHAR2
298 ,x_mpa_header_desc_type_code IN VARCHAR2
299 ,x_mpa_num_je_code IN VARCHAR2
300 ,x_mpa_gl_dates_code IN VARCHAR2
301 ,x_mpa_proration_code IN VARCHAR2
302 ,x_last_update_date IN DATE
303 ,x_last_updated_by IN NUMBER
304 ,x_last_update_login IN NUMBER)
305 IS
306
307 l_log_module VARCHAR2(240);
308 BEGIN
309
310 IF g_log_enabled THEN
311 l_log_module := C_DEFAULT_MODULE||'.update_row';
312 END IF;
313
314 IF (C_LEVEL_PROCEDURE >= g_log_level) THEN
315 trace(p_msg => 'BEGIN of procedure update_row',
316 p_module => l_log_module,
317 p_level => C_LEVEL_PROCEDURE);
318 END IF;
319
320 UPDATE xla_line_defn_jlt_assgns
321 SET
322 last_update_date = x_last_update_date
323 ,description_type_code = x_description_type_code
324 ,description_code = x_description_code
325 ,active_flag = x_active_flag
326 ,inherit_desc_flag = x_inherit_desc_flag
327 ,object_version_number = object_version_number+1
328 ,mpa_header_desc_code = x_mpa_header_desc_code
329 ,mpa_header_desc_type_code = x_mpa_header_desc_type_code
330 ,mpa_num_je_code = x_mpa_num_je_code
331 ,mpa_gl_dates_code = x_mpa_gl_dates_code
332 ,mpa_proration_code = x_mpa_proration_code
333 ,last_updated_by = x_last_updated_by
334 ,last_update_login = x_last_update_login
335 WHERE application_id = x_application_id
336 AND amb_context_code = x_amb_context_code
337 AND event_class_code = x_event_class_code
338 AND event_type_code = x_event_type_code
339 AND line_definition_owner_code = x_line_definition_owner_code
340 AND line_definition_code = x_line_definition_code
341 AND accounting_line_type_code = x_accounting_line_type_code
342 AND accounting_line_code = x_accounting_line_code;
343
344 IF (SQL%NOTFOUND) THEN
345 RAISE NO_DATA_FOUND;
346 END IF;
347
348 IF (C_LEVEL_PROCEDURE >= g_log_level) THEN
349 trace(p_msg => 'END of procedure update_row',
350 p_module => l_log_module,
351 p_level => C_LEVEL_PROCEDURE);
352 END IF;
353
354 END update_row;
355
356 /*======================================================================+
357 | |
358 | Procedure delete_row |
359 | |
360 +======================================================================*/
361 PROCEDURE delete_row
362 (x_application_id IN NUMBER
363 ,x_amb_context_code IN VARCHAR2
364 ,x_event_class_code IN VARCHAR2
365 ,x_event_type_code IN VARCHAR2
366 ,x_line_definition_owner_code IN VARCHAR2
367 ,x_line_definition_code IN VARCHAR2
368 ,x_accounting_line_type_code IN VARCHAR2
369 ,x_accounting_line_code IN VARCHAR2)
370
371 IS
372
373 l_log_module VARCHAR2(240);
374 BEGIN
375
376 IF g_log_enabled THEN
377 l_log_module := C_DEFAULT_MODULE||'.delete_row';
378 END IF;
379
380 IF (C_LEVEL_PROCEDURE >= g_log_level) THEN
381 trace(p_msg => 'BEGIN of procedure delete_row',
382 p_module => l_log_module,
383 p_level => C_LEVEL_PROCEDURE);
384 END IF;
385
386 DELETE FROM xla_line_defn_jlt_assgns
387 WHERE application_id = x_application_id
388 AND amb_context_code = x_amb_context_code
389 AND event_class_code = x_event_class_code
390 AND event_type_code = x_event_type_code
391 AND line_definition_owner_code = x_line_definition_owner_code
392 AND line_definition_code = x_line_definition_code
393 AND accounting_line_type_code = x_accounting_line_type_code
394 AND accounting_line_code = x_accounting_line_code;
395
396 IF (SQL%NOTFOUND) THEN
397 RAISE NO_DATA_FOUND;
398 END IF;
399
400 IF (C_LEVEL_PROCEDURE >= g_log_level) THEN
401 trace(p_msg => 'END of procedure delete_row',
402 p_module => l_log_module,
403 p_level => C_LEVEL_PROCEDURE);
404 END IF;
405
406 END delete_row;
407
408 --=============================================================================
409 --
410 -- Following code is executed when the package body is referenced for the first
411 -- time
412 --
413 --=============================================================================
414 BEGIN
415 g_log_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
416 g_log_enabled := fnd_log.test
417 (log_level => g_log_level
418 ,module => C_DEFAULT_MODULE);
419
420 IF NOT g_log_enabled THEN
421 g_log_level := C_LEVEL_LOG_DISABLED;
422 END IF;
423
424 END xla_line_defn_jlt_assgns_f_pvt;