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_DUNNING_LETTERS_PKG

Source


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