[Home] [Help]
PACKAGE BODY: APPS.AR_AGING_BUCKET_LINES_PKG
Source
1 package body AR_AGING_BUCKET_LINES_PKG as
2 /* $Header: ARPABLSB.pls 120.2.12000000.2 2007/05/16 11:35:42 tthangav ship $ */
3
4 procedure INSERT_ROW (
5 X_ROWID in out NOCOPY VARCHAR2,
6 X_AGING_BUCKET_LINE_ID in NUMBER,
7 X_AGING_BUCKET_ID in NUMBER,
8 X_BUCKET_SEQUENCE_NUM in NUMBER,
9 X_DAYS_START in NUMBER,
10 X_DAYS_TO in NUMBER,
11 X_TYPE in VARCHAR2,
12 X_ATTRIBUTE_CATEGORY in VARCHAR2,
13 X_ATTRIBUTE1 in VARCHAR2,
14 X_ATTRIBUTE2 in VARCHAR2,
15 X_ATTRIBUTE3 in VARCHAR2,
16 X_ATTRIBUTE4 in VARCHAR2,
17 X_ATTRIBUTE5 in VARCHAR2,
18 X_ATTRIBUTE6 in VARCHAR2,
19 X_ATTRIBUTE7 in VARCHAR2,
20 X_ATTRIBUTE8 in VARCHAR2,
21 X_ATTRIBUTE9 in VARCHAR2,
22 X_ATTRIBUTE10 in VARCHAR2,
23 X_ATTRIBUTE11 in VARCHAR2,
24 X_ATTRIBUTE12 in VARCHAR2,
25 X_ATTRIBUTE13 in VARCHAR2,
26 X_ATTRIBUTE14 in VARCHAR2,
27 X_ATTRIBUTE15 in VARCHAR2,
28 X_REPORT_HEADING1 in VARCHAR2,
29 X_REPORT_HEADING2 in VARCHAR2,
30 X_CREATION_DATE in DATE,
31 X_CREATED_BY in NUMBER,
32 X_LAST_UPDATE_DATE in DATE,
33 X_LAST_UPDATED_BY in NUMBER,
34 X_LAST_UPDATE_LOGIN in NUMBER
35 ) is
36 cursor C is select ROWID from AR_AGING_BUCKET_LINES_B
37 where AGING_BUCKET_LINE_ID = X_AGING_BUCKET_LINE_ID
38 ;
39 begin
40 insert into AR_AGING_BUCKET_LINES_B (
41 AGING_BUCKET_LINE_ID,
42 AGING_BUCKET_ID,
43 BUCKET_SEQUENCE_NUM,
44 DAYS_START,
45 DAYS_TO,
46 TYPE,
47 ATTRIBUTE_CATEGORY,
48 ATTRIBUTE1,
49 ATTRIBUTE2,
50 ATTRIBUTE3,
51 ATTRIBUTE4,
52 ATTRIBUTE5,
53 ATTRIBUTE6,
54 ATTRIBUTE7,
55 ATTRIBUTE8,
56 ATTRIBUTE9,
57 ATTRIBUTE10,
58 ATTRIBUTE11,
59 ATTRIBUTE12,
60 ATTRIBUTE13,
61 ATTRIBUTE14,
62 ATTRIBUTE15,
63 CREATION_DATE,
64 CREATED_BY,
65 LAST_UPDATE_DATE,
66 LAST_UPDATED_BY,
67 LAST_UPDATE_LOGIN
68 ) values (
69 X_AGING_BUCKET_LINE_ID,
70 X_AGING_BUCKET_ID,
71 X_BUCKET_SEQUENCE_NUM,
72 X_DAYS_START,
73 X_DAYS_TO,
74 X_TYPE,
75 X_ATTRIBUTE_CATEGORY,
76 X_ATTRIBUTE1,
77 X_ATTRIBUTE2,
78 X_ATTRIBUTE3,
79 X_ATTRIBUTE4,
80 X_ATTRIBUTE5,
81 X_ATTRIBUTE6,
82 X_ATTRIBUTE7,
83 X_ATTRIBUTE8,
84 X_ATTRIBUTE9,
85 X_ATTRIBUTE10,
86 X_ATTRIBUTE11,
87 X_ATTRIBUTE12,
88 X_ATTRIBUTE13,
89 X_ATTRIBUTE14,
90 X_ATTRIBUTE15,
91 X_CREATION_DATE,
92 X_CREATED_BY,
93 X_LAST_UPDATE_DATE,
94 X_LAST_UPDATED_BY,
95 X_LAST_UPDATE_LOGIN
96 );
97
98 insert into AR_AGING_BUCKET_LINES_TL (
99 REPORT_HEADING1,
100 REPORT_HEADING2,
101 LAST_UPDATE_DATE,
102 CREATION_DATE,
103 CREATED_BY,
104 LAST_UPDATED_BY,
105 LAST_UPDATE_LOGIN,
106 AGING_BUCKET_LINE_ID,
107 LANGUAGE,
108 SOURCE_LANG
109 ) select
110 X_REPORT_HEADING1,
111 X_REPORT_HEADING2,
112 X_LAST_UPDATE_DATE,
113 X_CREATION_DATE,
114 X_CREATED_BY,
115 X_LAST_UPDATED_BY,
116 X_LAST_UPDATE_LOGIN,
117 X_AGING_BUCKET_LINE_ID,
118 L.LANGUAGE_CODE,
119 userenv('LANG')
120 from FND_LANGUAGES L
121 where L.INSTALLED_FLAG in ('I', 'B')
122 and not exists
123 (select NULL
124 from AR_AGING_BUCKET_LINES_TL T
125 where T.AGING_BUCKET_LINE_ID = X_AGING_BUCKET_LINE_ID
126 and T.LANGUAGE = L.LANGUAGE_CODE);
127
128 open c;
129 fetch c into X_ROWID;
130 if (c%notfound) then
131 close c;
132 raise no_data_found;
133 end if;
134 close c;
135
136 end INSERT_ROW;
137
138 procedure LOCK_ROW (
139 X_AGING_BUCKET_LINE_ID in NUMBER,
140 X_AGING_BUCKET_ID in NUMBER,
141 X_BUCKET_SEQUENCE_NUM in NUMBER,
142 X_DAYS_START in NUMBER,
143 X_DAYS_TO in NUMBER,
144 X_TYPE in VARCHAR2,
145 X_ATTRIBUTE_CATEGORY in VARCHAR2,
146 X_ATTRIBUTE1 in VARCHAR2,
147 X_ATTRIBUTE2 in VARCHAR2,
148 X_ATTRIBUTE3 in VARCHAR2,
149 X_ATTRIBUTE4 in VARCHAR2,
150 X_ATTRIBUTE5 in VARCHAR2,
151 X_ATTRIBUTE6 in VARCHAR2,
152 X_ATTRIBUTE7 in VARCHAR2,
153 X_ATTRIBUTE8 in VARCHAR2,
154 X_ATTRIBUTE9 in VARCHAR2,
155 X_ATTRIBUTE10 in VARCHAR2,
156 X_ATTRIBUTE11 in VARCHAR2,
157 X_ATTRIBUTE12 in VARCHAR2,
158 X_ATTRIBUTE13 in VARCHAR2,
159 X_ATTRIBUTE14 in VARCHAR2,
160 X_ATTRIBUTE15 in VARCHAR2,
161 X_REPORT_HEADING1 in VARCHAR2,
162 X_REPORT_HEADING2 in VARCHAR2
163 ) is
164 cursor c is select
165 AGING_BUCKET_ID,
166 BUCKET_SEQUENCE_NUM,
167 DAYS_START,
168 DAYS_TO,
169 TYPE,
170 ATTRIBUTE_CATEGORY,
171 ATTRIBUTE1,
172 ATTRIBUTE2,
173 ATTRIBUTE3,
174 ATTRIBUTE4,
175 ATTRIBUTE5,
176 ATTRIBUTE6,
177 ATTRIBUTE7,
178 ATTRIBUTE8,
179 ATTRIBUTE9,
180 ATTRIBUTE10,
181 ATTRIBUTE11,
182 ATTRIBUTE12,
183 ATTRIBUTE13,
184 ATTRIBUTE14,
185 ATTRIBUTE15
186 from AR_AGING_BUCKET_LINES_B
187 where AGING_BUCKET_LINE_ID = X_AGING_BUCKET_LINE_ID
188 for update of AGING_BUCKET_LINE_ID nowait;
189 recinfo c%rowtype;
190
191 cursor c1 is select
192 REPORT_HEADING1,
193 REPORT_HEADING2,
194 decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
195 from AR_AGING_BUCKET_LINES_TL
196 where AGING_BUCKET_LINE_ID = X_AGING_BUCKET_LINE_ID
197 and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
198 for update of AGING_BUCKET_LINE_ID nowait;
199 begin
200 open c;
201 fetch c into recinfo;
202 if (c%notfound) then
203 close c;
204 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
205 app_exception.raise_exception;
206 end if;
207 close c;
208 if ( ((recinfo.AGING_BUCKET_ID = X_AGING_BUCKET_ID)
209 OR ((recinfo.AGING_BUCKET_ID is null) AND (X_AGING_BUCKET_ID is null)))
210 AND ((recinfo.BUCKET_SEQUENCE_NUM = X_BUCKET_SEQUENCE_NUM)
211 OR ((recinfo.BUCKET_SEQUENCE_NUM is null) AND (X_BUCKET_SEQUENCE_NUM is null)))
212 AND ((recinfo.DAYS_START = X_DAYS_START)
213 OR ((recinfo.DAYS_START is null) AND (X_DAYS_START is null)))
214 AND ((recinfo.DAYS_TO = X_DAYS_TO)
215 OR ((recinfo.DAYS_TO is null) AND (X_DAYS_TO is null)))
216 AND (recinfo.TYPE = X_TYPE)
217 AND ((recinfo.ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY)
218 OR ((recinfo.ATTRIBUTE_CATEGORY is null) AND (X_ATTRIBUTE_CATEGORY is null)))
219 AND ((recinfo.ATTRIBUTE1 = X_ATTRIBUTE1)
220 OR ((recinfo.ATTRIBUTE1 is null) AND (X_ATTRIBUTE1 is null)))
221 AND ((recinfo.ATTRIBUTE2 = X_ATTRIBUTE2)
222 OR ((recinfo.ATTRIBUTE2 is null) AND (X_ATTRIBUTE2 is null)))
223 AND ((recinfo.ATTRIBUTE3 = X_ATTRIBUTE3)
224 OR ((recinfo.ATTRIBUTE3 is null) AND (X_ATTRIBUTE3 is null)))
225 AND ((recinfo.ATTRIBUTE4 = X_ATTRIBUTE4)
226 OR ((recinfo.ATTRIBUTE4 is null) AND (X_ATTRIBUTE4 is null)))
227 AND ((recinfo.ATTRIBUTE5 = X_ATTRIBUTE5)
228 OR ((recinfo.ATTRIBUTE5 is null) AND (X_ATTRIBUTE5 is null)))
229 AND ((recinfo.ATTRIBUTE6 = X_ATTRIBUTE6)
230 OR ((recinfo.ATTRIBUTE6 is null) AND (X_ATTRIBUTE6 is null)))
231 AND ((recinfo.ATTRIBUTE7 = X_ATTRIBUTE7)
232 OR ((recinfo.ATTRIBUTE7 is null) AND (X_ATTRIBUTE7 is null)))
233 AND ((recinfo.ATTRIBUTE8 = X_ATTRIBUTE8)
234 OR ((recinfo.ATTRIBUTE8 is null) AND (X_ATTRIBUTE8 is null)))
235 AND ((recinfo.ATTRIBUTE9 = X_ATTRIBUTE9)
236 OR ((recinfo.ATTRIBUTE9 is null) AND (X_ATTRIBUTE9 is null)))
237 AND ((recinfo.ATTRIBUTE10 = X_ATTRIBUTE10)
238 OR ((recinfo.ATTRIBUTE10 is null) AND (X_ATTRIBUTE10 is null)))
239 AND ((recinfo.ATTRIBUTE11 = X_ATTRIBUTE11)
240 OR ((recinfo.ATTRIBUTE11 is null) AND (X_ATTRIBUTE11 is null)))
241 AND ((recinfo.ATTRIBUTE12 = X_ATTRIBUTE12)
242 OR ((recinfo.ATTRIBUTE12 is null) AND (X_ATTRIBUTE12 is null)))
243 AND ((recinfo.ATTRIBUTE13 = X_ATTRIBUTE13)
244 OR ((recinfo.ATTRIBUTE13 is null) AND (X_ATTRIBUTE13 is null)))
245 AND ((recinfo.ATTRIBUTE14 = X_ATTRIBUTE14)
246 OR ((recinfo.ATTRIBUTE14 is null) AND (X_ATTRIBUTE14 is null)))
247 AND ((recinfo.ATTRIBUTE15 = X_ATTRIBUTE15)
248 OR ((recinfo.ATTRIBUTE15 is null) AND (X_ATTRIBUTE15 is null)))
249 ) then
250 null;
251 else
252 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
253 app_exception.raise_exception;
254 end if;
255
256 for tlinfo in c1 loop
257 if (tlinfo.BASELANG = 'Y') then
258 if ( ((tlinfo.REPORT_HEADING1 = X_REPORT_HEADING1)
259 OR ((tlinfo.REPORT_HEADING1 is null) AND (X_REPORT_HEADING1 is null)))
260 AND ((tlinfo.REPORT_HEADING2 = X_REPORT_HEADING2)
261 OR ((tlinfo.REPORT_HEADING2 is null) AND (X_REPORT_HEADING2 is null)))
262 ) then
263 null;
264 else
265 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
266 app_exception.raise_exception;
267 end if;
268 end if;
269 end loop;
270 return;
271 end LOCK_ROW;
272
273 procedure UPDATE_ROW (
274 X_AGING_BUCKET_LINE_ID in NUMBER,
275 X_AGING_BUCKET_ID in NUMBER,
276 X_BUCKET_SEQUENCE_NUM in NUMBER,
277 X_DAYS_START in NUMBER,
278 X_DAYS_TO in NUMBER,
279 X_TYPE in VARCHAR2,
280 X_ATTRIBUTE_CATEGORY in VARCHAR2,
281 X_ATTRIBUTE1 in VARCHAR2,
282 X_ATTRIBUTE2 in VARCHAR2,
283 X_ATTRIBUTE3 in VARCHAR2,
284 X_ATTRIBUTE4 in VARCHAR2,
285 X_ATTRIBUTE5 in VARCHAR2,
286 X_ATTRIBUTE6 in VARCHAR2,
287 X_ATTRIBUTE7 in VARCHAR2,
288 X_ATTRIBUTE8 in VARCHAR2,
289 X_ATTRIBUTE9 in VARCHAR2,
290 X_ATTRIBUTE10 in VARCHAR2,
291 X_ATTRIBUTE11 in VARCHAR2,
292 X_ATTRIBUTE12 in VARCHAR2,
293 X_ATTRIBUTE13 in VARCHAR2,
294 X_ATTRIBUTE14 in VARCHAR2,
295 X_ATTRIBUTE15 in VARCHAR2,
296 X_REPORT_HEADING1 in VARCHAR2,
297 X_REPORT_HEADING2 in VARCHAR2,
298 X_LAST_UPDATE_DATE in DATE,
299 X_LAST_UPDATED_BY in NUMBER,
300 X_LAST_UPDATE_LOGIN in NUMBER
301 ) is
302 begin
303 update AR_AGING_BUCKET_LINES_B set
304 AGING_BUCKET_ID = X_AGING_BUCKET_ID,
305 BUCKET_SEQUENCE_NUM = X_BUCKET_SEQUENCE_NUM,
306 DAYS_START = X_DAYS_START,
307 DAYS_TO = X_DAYS_TO,
308 TYPE = X_TYPE,
309 ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
310 ATTRIBUTE1 = X_ATTRIBUTE1,
311 ATTRIBUTE2 = X_ATTRIBUTE2,
312 ATTRIBUTE3 = X_ATTRIBUTE3,
313 ATTRIBUTE4 = X_ATTRIBUTE4,
314 ATTRIBUTE5 = X_ATTRIBUTE5,
315 ATTRIBUTE6 = X_ATTRIBUTE6,
316 ATTRIBUTE7 = X_ATTRIBUTE7,
317 ATTRIBUTE8 = X_ATTRIBUTE8,
318 ATTRIBUTE9 = X_ATTRIBUTE9,
319 ATTRIBUTE10 = X_ATTRIBUTE10,
320 ATTRIBUTE11 = X_ATTRIBUTE11,
321 ATTRIBUTE12 = X_ATTRIBUTE12,
322 ATTRIBUTE13 = X_ATTRIBUTE13,
323 ATTRIBUTE14 = X_ATTRIBUTE14,
324 ATTRIBUTE15 = X_ATTRIBUTE15,
325 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
326 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
327 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
328 where AGING_BUCKET_LINE_ID = X_AGING_BUCKET_LINE_ID;
329
330 if (sql%notfound) then
331 raise no_data_found;
332 end if;
333
334 update AR_AGING_BUCKET_LINES_TL set
335 REPORT_HEADING1 = X_REPORT_HEADING1,
336 REPORT_HEADING2 = X_REPORT_HEADING2,
337 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
338 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
339 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
340 SOURCE_LANG = userenv('LANG')
341 where AGING_BUCKET_LINE_ID = X_AGING_BUCKET_LINE_ID
342 and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
343
344 if (sql%notfound) then
345 raise no_data_found;
346 end if;
347 end UPDATE_ROW;
348
349 procedure DELETE_ROW (
350 X_AGING_BUCKET_LINE_ID in NUMBER
351 ) is
352 begin
353 delete from AR_AGING_BUCKET_LINES_TL
354 where AGING_BUCKET_LINE_ID = X_AGING_BUCKET_LINE_ID;
355
356 if (sql%notfound) then
357 raise no_data_found;
358 end if;
359
360 delete from AR_AGING_BUCKET_LINES_B
361 where AGING_BUCKET_LINE_ID = X_AGING_BUCKET_LINE_ID;
362
363 if (sql%notfound) then
364 raise no_data_found;
365 end if;
366 end DELETE_ROW;
367
368 procedure ADD_LANGUAGE
369 is
370 begin
371 delete from AR_AGING_BUCKET_LINES_TL T
372 where not exists
373 (select NULL
374 from AR_AGING_BUCKET_LINES_B B
375 where B.AGING_BUCKET_LINE_ID = T.AGING_BUCKET_LINE_ID
376 );
377
378 update AR_AGING_BUCKET_LINES_TL T set (
379 REPORT_HEADING1,
380 REPORT_HEADING2
381 ) = (select
382 B.REPORT_HEADING1,
383 B.REPORT_HEADING2
384 from AR_AGING_BUCKET_LINES_TL B
385 where B.AGING_BUCKET_LINE_ID = T.AGING_BUCKET_LINE_ID
386 and B.LANGUAGE = T.SOURCE_LANG)
387 where (
388 T.AGING_BUCKET_LINE_ID,
389 T.LANGUAGE
390 ) in (select
391 SUBT.AGING_BUCKET_LINE_ID,
392 SUBT.LANGUAGE
393 from AR_AGING_BUCKET_LINES_TL SUBB, AR_AGING_BUCKET_LINES_TL SUBT
394 where SUBB.AGING_BUCKET_LINE_ID = SUBT.AGING_BUCKET_LINE_ID
395 and SUBB.LANGUAGE = SUBT.SOURCE_LANG
396 and (SUBB.REPORT_HEADING1 <> SUBT.REPORT_HEADING1
397 or (SUBB.REPORT_HEADING1 is null and SUBT.REPORT_HEADING1 is not null)
398 or (SUBB.REPORT_HEADING1 is not null and SUBT.REPORT_HEADING1 is null)
399 or SUBB.REPORT_HEADING2 <> SUBT.REPORT_HEADING2
400 or (SUBB.REPORT_HEADING2 is null and SUBT.REPORT_HEADING2 is not null)
401 or (SUBB.REPORT_HEADING2 is not null and SUBT.REPORT_HEADING2 is null)
402 ));
403
404 insert into AR_AGING_BUCKET_LINES_TL (
405 REPORT_HEADING1,
406 REPORT_HEADING2,
407 LAST_UPDATE_DATE,
408 CREATION_DATE,
412 AGING_BUCKET_LINE_ID,
409 CREATED_BY,
410 LAST_UPDATED_BY,
411 LAST_UPDATE_LOGIN,
413 LANGUAGE,
414 SOURCE_LANG
415 ) select
416 B.REPORT_HEADING1,
417 B.REPORT_HEADING2,
418 B.LAST_UPDATE_DATE,
419 B.CREATION_DATE,
420 B.CREATED_BY,
421 B.LAST_UPDATED_BY,
422 B.LAST_UPDATE_LOGIN,
423 B.AGING_BUCKET_LINE_ID,
424 L.LANGUAGE_CODE,
425 B.SOURCE_LANG
426 from AR_AGING_BUCKET_LINES_TL B, FND_LANGUAGES L
427 where L.INSTALLED_FLAG in ('I', 'B')
428 and B.LANGUAGE = userenv('LANG')
429 and not exists
430 (select NULL
431 from AR_AGING_BUCKET_LINES_TL T
432 where T.AGING_BUCKET_LINE_ID = B.AGING_BUCKET_LINE_ID
433 and T.LANGUAGE = L.LANGUAGE_CODE);
434 end ADD_LANGUAGE;
435
436 procedure LOAD_ROW (
437 X_AGING_BUCKET_LINE_ID in NUMBER,
438 X_BUCKET_SEQUENCE_NUM in NUMBER,
439 X_AGING_BUCKET_ID in NUMBER,
440 X_DAYS_START in NUMBER,
441 X_DAYS_TO in NUMBER,
442 X_TYPE in VARCHAR2,
443 X_ATTRIBUTE_CATEGORY in VARCHAR2,
444 X_ATTRIBUTE1 in VARCHAR2,
445 X_ATTRIBUTE2 in VARCHAR2,
446 X_ATTRIBUTE3 in VARCHAR2,
447 X_ATTRIBUTE4 in VARCHAR2,
448 X_ATTRIBUTE5 in VARCHAR2,
449 X_ATTRIBUTE6 in VARCHAR2,
450 X_ATTRIBUTE7 in VARCHAR2,
451 X_ATTRIBUTE8 in VARCHAR2,
452 X_ATTRIBUTE9 in VARCHAR2,
453 X_ATTRIBUTE10 in VARCHAR2,
454 X_ATTRIBUTE11 in VARCHAR2,
455 X_ATTRIBUTE12 in VARCHAR2,
456 X_ATTRIBUTE13 in VARCHAR2,
457 X_ATTRIBUTE14 in VARCHAR2,
458 X_ATTRIBUTE15 in VARCHAR2,
459 X_REPORT_HEADING1 in VARCHAR2,
460 X_REPORT_HEADING2 in VARCHAR2,
461 X_OWNER in VARCHAR2) IS
462 begin
463
464 declare
465 user_id number := 0;
466 row_id varchar2(64);
467
468 begin
469
470 user_id := fnd_load_util.owner_id(X_OWNER);
471
472 AR_AGING_BUCKET_LINES_PKG.UPDATE_ROW (
473 X_AGING_BUCKET_LINE_ID => X_AGING_BUCKET_LINE_ID,
474 X_AGING_BUCKET_ID => X_AGING_BUCKET_ID,
475 X_BUCKET_SEQUENCE_NUM => X_BUCKET_SEQUENCE_NUM,
476 X_DAYS_START => X_DAYS_START,
477 X_DAYS_TO => X_DAYS_TO,
478 X_TYPE => X_TYPE,
479 X_ATTRIBUTE_CATEGORY => X_ATTRIBUTE_CATEGORY,
480 X_ATTRIBUTE1 => X_ATTRIBUTE1,
481 X_ATTRIBUTE2 => X_ATTRIBUTE2,
482 X_ATTRIBUTE3 => X_ATTRIBUTE3,
483 X_ATTRIBUTE4 => X_ATTRIBUTE4,
484 X_ATTRIBUTE5 => X_ATTRIBUTE5,
485 X_ATTRIBUTE6 => X_ATTRIBUTE6,
486 X_ATTRIBUTE7 => X_ATTRIBUTE7,
487 X_ATTRIBUTE8 => X_ATTRIBUTE8,
488 X_ATTRIBUTE9 => X_ATTRIBUTE9,
489 X_ATTRIBUTE10 => X_ATTRIBUTE10,
490 X_ATTRIBUTE11 => X_ATTRIBUTE11,
491 X_ATTRIBUTE12 => X_ATTRIBUTE12,
492 X_ATTRIBUTE13 => X_ATTRIBUTE13,
493 X_ATTRIBUTE14 => X_ATTRIBUTE14,
494 X_ATTRIBUTE15 => X_ATTRIBUTE15,
495 X_REPORT_HEADING1 => X_REPORT_HEADING1,
496 X_REPORT_HEADING2 => X_REPORT_HEADING2,
497 X_LAST_UPDATE_DATE => sysdate,
498 X_LAST_UPDATED_BY => user_id,
499 X_LAST_UPDATE_LOGIN => 0);
500
501 exception
502 when NO_DATA_FOUND then
503
504 AR_AGING_BUCKET_LINES_PKG.INSERT_ROW (
505 X_ROWID => row_id,
506 X_AGING_BUCKET_LINE_ID => X_AGING_BUCKET_LINE_ID,
507 X_AGING_BUCKET_ID => X_AGING_BUCKET_ID,
508 X_BUCKET_SEQUENCE_NUM => X_BUCKET_SEQUENCE_NUM,
509 X_DAYS_START => X_DAYS_START,
510 X_DAYS_TO => X_DAYS_TO,
511 X_TYPE => X_TYPE,
512 X_ATTRIBUTE_CATEGORY => X_ATTRIBUTE_CATEGORY,
513 X_ATTRIBUTE1 => X_ATTRIBUTE1,
514 X_ATTRIBUTE2 => X_ATTRIBUTE2,
515 X_ATTRIBUTE3 => X_ATTRIBUTE3,
516 X_ATTRIBUTE4 => X_ATTRIBUTE4,
517 X_ATTRIBUTE5 => X_ATTRIBUTE5,
518 X_ATTRIBUTE6 => X_ATTRIBUTE6,
519 X_ATTRIBUTE7 => X_ATTRIBUTE7,
520 X_ATTRIBUTE8 => X_ATTRIBUTE8,
521 X_ATTRIBUTE9 => X_ATTRIBUTE9,
522 X_ATTRIBUTE10 => X_ATTRIBUTE10,
523 X_ATTRIBUTE11 => X_ATTRIBUTE11,
524 X_ATTRIBUTE12 => X_ATTRIBUTE12,
525 X_ATTRIBUTE13 => X_ATTRIBUTE13,
526 X_ATTRIBUTE14 => X_ATTRIBUTE14,
527 X_ATTRIBUTE15 => X_ATTRIBUTE15,
528 X_REPORT_HEADING1 => X_REPORT_HEADING1,
529 X_REPORT_HEADING2 => X_REPORT_HEADING2,
530 X_CREATION_DATE => sysdate,
531 X_CREATED_BY => user_id,
532 X_LAST_UPDATE_DATE => sysdate,
533 X_LAST_UPDATED_BY => user_id,
534 X_LAST_UPDATE_LOGIN => 0 );
535 end;
536 end LOAD_ROW;
537
538 procedure TRANSLATE_ROW (
539 X_BUCKET_LINE_ID in NUMBER,
540 X_REPORT_HEADING1 in VARCHAR2,
541 X_REPORT_HEADING2 in VARCHAR2,
542 X_OWNER in VARCHAR2) IS
543 begin
544
545 -- only update rows that have not been altered by user
546
547 update AR_AGING_BUCKET_LINES_TL set
548 report_heading1 = X_REPORT_HEADING1,
549 report_heading2 = X_REPORT_HEADING2,
550 source_lang = userenv('LANG'),
551 last_update_date = sysdate,
552 last_updated_by = fnd_load_util.owner_id(X_OWNER),
556 end TRANSLATE_ROW;
553 last_update_login = 0
554 where aging_bucket_line_id = X_BUCKET_LINE_ID
555 and userenv('LANG') in (language, source_lang);
557
558 end AR_AGING_BUCKET_LINES_PKG;