eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
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,
327     LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
324     ATTRIBUTE15 = X_ATTRIBUTE15,
325     LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
326     LAST_UPDATED_BY = X_LAST_UPDATED_BY,
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,
409     CREATED_BY,
410     LAST_UPDATED_BY,
411     LAST_UPDATE_LOGIN,
412     AGING_BUCKET_LINE_ID,
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,
491       X_ATTRIBUTE12 => X_ATTRIBUTE12,
488       X_ATTRIBUTE9 => X_ATTRIBUTE9,
489       X_ATTRIBUTE10 => X_ATTRIBUTE10,
490       X_ATTRIBUTE11 => X_ATTRIBUTE11,
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),
553       last_update_login = 0
554     where aging_bucket_line_id = X_BUCKET_LINE_ID
555     and   userenv('LANG') in (language, source_lang);
556 end TRANSLATE_ROW;
557 
558 end AR_AGING_BUCKET_LINES_PKG;