DBA Data[Home] [Help]

PACKAGE BODY: APPS.JTF_RS_GROUPS_AUD_PKG

Source


1 package body JTF_RS_GROUPS_AUD_PKG as
2 /* $Header: jtfrstkb.pls 120.0.12010000.2 2009/05/11 07:38:07 rgokavar ship $ */
3 procedure INSERT_ROW (
4   X_ROWID in out NOCOPY VARCHAR2,
5   X_GROUP_AUDIT_ID in NUMBER,
6   X_GROUP_ID in NUMBER,
7   X_NEW_GROUP_NUMBER in VARCHAR2,
8   X_OLD_GROUP_NUMBER in VARCHAR2,
9   X_NEW_EMAIL_ADDRESS in VARCHAR2,
10   X_OLD_EMAIL_ADDRESS in VARCHAR2,
11   X_NEW_EXCLUSIVE_FLAG in VARCHAR2,
12   X_OLD_EXCLUSIVE_FLAG in VARCHAR2,
13   X_NEW_START_DATE_ACTIVE in DATE,
14   X_OLD_START_DATE_ACTIVE in DATE,
15   X_NEW_END_DATE_ACTIVE in DATE,
16   X_OLD_END_DATE_ACTIVE in DATE,
17   X_NEW_ACCOUNTING_CODE in VARCHAR2,
18   X_OLD_ACCOUNTING_CODE in VARCHAR2,
19   X_NEW_OBJECT_VERSION_NUMBER in NUMBER,
20   X_OLD_OBJECT_VERSION_NUMBER in NUMBER,
21   X_NEW_GROUP_NAME in VARCHAR2,
22   X_OLD_GROUP_NAME in VARCHAR2,
23   X_NEW_GROUP_DESC in VARCHAR2,
24   X_OLD_GROUP_DESC in VARCHAR2,
25   X_CREATION_DATE in DATE,
26   X_CREATED_BY in NUMBER,
27   X_LAST_UPDATE_DATE in DATE,
28   X_LAST_UPDATED_BY in NUMBER,
29   X_LAST_UPDATE_LOGIN in NUMBER,
30   X_NEW_TIME_ZONE in NUMBER,
31   X_OLD_TIME_ZONE in NUMBER
32 ) is
33   cursor C is select ROWID from JTF_RS_GROUPS_AUD_B
34     where GROUP_AUDIT_ID = X_GROUP_AUDIT_ID
35     ;
36 begin
37   insert into JTF_RS_GROUPS_AUD_B (
38     GROUP_AUDIT_ID,
39     GROUP_ID,
40     NEW_GROUP_NUMBER,
41     OLD_GROUP_NUMBER,
42     NEW_EMAIL_ADDRESS,
43     OLD_EMAIL_ADDRESS,
44     NEW_EXCLUSIVE_FLAG,
45     OLD_EXCLUSIVE_FLAG,
46     NEW_START_DATE_ACTIVE,
47     OLD_START_DATE_ACTIVE,
48     NEW_END_DATE_ACTIVE,
49     OLD_END_DATE_ACTIVE,
50     NEW_ACCOUNTING_CODE,
51     OLD_ACCOUNTING_CODE,
52     NEW_OBJECT_VERSION_NUMBER,
53     OLD_OBJECT_VERSION_NUMBER,
54     CREATION_DATE,
55     CREATED_BY,
56     LAST_UPDATE_DATE,
57     LAST_UPDATED_BY,
58     LAST_UPDATE_LOGIN,
59     NEW_TIME_ZONE,
60     OLD_TIME_ZONE
61   ) values (
62     X_GROUP_AUDIT_ID,
63     X_GROUP_ID,
64     X_NEW_GROUP_NUMBER,
65     X_OLD_GROUP_NUMBER,
66     X_NEW_EMAIL_ADDRESS,
67     X_OLD_EMAIL_ADDRESS,
68     X_NEW_EXCLUSIVE_FLAG,
69     X_OLD_EXCLUSIVE_FLAG,
70     X_NEW_START_DATE_ACTIVE,
71     X_OLD_START_DATE_ACTIVE,
72     X_NEW_END_DATE_ACTIVE,
73     X_OLD_END_DATE_ACTIVE,
74     X_NEW_ACCOUNTING_CODE,
75     X_OLD_ACCOUNTING_CODE,
76     X_NEW_OBJECT_VERSION_NUMBER,
77     X_OLD_OBJECT_VERSION_NUMBER,
78     X_CREATION_DATE,
79     X_CREATED_BY,
80     X_LAST_UPDATE_DATE,
81     X_LAST_UPDATED_BY,
82     X_LAST_UPDATE_LOGIN,
83     X_NEW_TIME_ZONE,
84     X_OLD_TIME_ZONE
85   );
86 
87   insert into JTF_RS_GROUPS_AUD_TL (
88     GROUP_AUDIT_ID,
89     NEW_GROUP_NAME,
90     OLD_GROUP_NAME,
91     NEW_GROUP_DESC,
92     OLD_GROUP_DESC,
93     CREATED_BY,
94     CREATION_DATE,
95     LAST_UPDATED_BY,
96     LAST_UPDATE_DATE,
97     LAST_UPDATE_LOGIN,
98     LANGUAGE,
99     SOURCE_LANG
100   ) select
101     X_GROUP_AUDIT_ID,
102     X_NEW_GROUP_NAME,
103     X_OLD_GROUP_NAME,
104     X_NEW_GROUP_DESC,
105     X_OLD_GROUP_DESC,
106     X_CREATED_BY,
107     X_CREATION_DATE,
108     X_LAST_UPDATED_BY,
109     X_LAST_UPDATE_DATE,
110     X_LAST_UPDATE_LOGIN,
111     L.LANGUAGE_CODE,
112     userenv('LANG')
113   from FND_LANGUAGES L
114   where L.INSTALLED_FLAG in ('I', 'B')
115   and not exists
116     (select NULL
117     from JTF_RS_GROUPS_AUD_TL T
118     where T.GROUP_AUDIT_ID = X_GROUP_AUDIT_ID
119     and T.LANGUAGE = L.LANGUAGE_CODE);
120 
121   open c;
122   fetch c into X_ROWID;
123   if (c%notfound) then
124     close c;
125     raise no_data_found;
126   end if;
127   close c;
128 
129 end INSERT_ROW;
130 
131 procedure LOCK_ROW (
132   X_GROUP_AUDIT_ID in NUMBER,
133   X_GROUP_ID in NUMBER,
134   X_NEW_GROUP_NUMBER in VARCHAR2,
135   X_OLD_GROUP_NUMBER in VARCHAR2,
136   X_NEW_EMAIL_ADDRESS in VARCHAR2,
137   X_OLD_EMAIL_ADDRESS in VARCHAR2,
138   X_NEW_EXCLUSIVE_FLAG in VARCHAR2,
139   X_OLD_EXCLUSIVE_FLAG in VARCHAR2,
140   X_NEW_START_DATE_ACTIVE in DATE,
141   X_OLD_START_DATE_ACTIVE in DATE,
142   X_NEW_END_DATE_ACTIVE in DATE,
143   X_OLD_END_DATE_ACTIVE in DATE,
144   X_NEW_ACCOUNTING_CODE in VARCHAR2,
145   X_OLD_ACCOUNTING_CODE in VARCHAR2,
146   X_NEW_OBJECT_VERSION_NUMBER in NUMBER,
147   X_OLD_OBJECT_VERSION_NUMBER in NUMBER,
148   X_NEW_GROUP_NAME in VARCHAR2,
149   X_OLD_GROUP_NAME in VARCHAR2,
150   X_NEW_GROUP_DESC in VARCHAR2,
151   X_OLD_GROUP_DESC in VARCHAR2,
152   X_NEW_TIME_ZONE in NUMBER,
153   X_OLD_TIME_ZONE in NUMBER
154 ) is
155   cursor c is select
156       GROUP_ID,
157       NEW_GROUP_NUMBER,
158       OLD_GROUP_NUMBER,
159       NEW_EMAIL_ADDRESS,
160       OLD_EMAIL_ADDRESS,
161       NEW_EXCLUSIVE_FLAG,
162       OLD_EXCLUSIVE_FLAG,
163       NEW_START_DATE_ACTIVE,
164       OLD_START_DATE_ACTIVE,
165       NEW_END_DATE_ACTIVE,
166       OLD_END_DATE_ACTIVE,
167       NEW_ACCOUNTING_CODE,
168       OLD_ACCOUNTING_CODE,
169       NEW_OBJECT_VERSION_NUMBER,
170       OLD_OBJECT_VERSION_NUMBER,
171       NEW_TIME_ZONE,
172       OLD_TIME_ZONE
173     from JTF_RS_GROUPS_AUD_B
174     where GROUP_AUDIT_ID = X_GROUP_AUDIT_ID
175     for update of GROUP_AUDIT_ID nowait;
176   recinfo c%rowtype;
177 
178   cursor c1 is select
179       NEW_GROUP_NAME,
180       OLD_GROUP_NAME,
181       NEW_GROUP_DESC,
182       OLD_GROUP_DESC,
183       decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
184     from JTF_RS_GROUPS_AUD_TL
185     where GROUP_AUDIT_ID = X_GROUP_AUDIT_ID
186     and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
187     for update of GROUP_AUDIT_ID nowait;
188 begin
189   open c;
190   fetch c into recinfo;
191   if (c%notfound) then
192     close c;
193     fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
194     app_exception.raise_exception;
195   end if;
196   close c;
197   if (    (recinfo.GROUP_ID = X_GROUP_ID)
198       AND ((recinfo.NEW_GROUP_NUMBER = X_NEW_GROUP_NUMBER)
199            OR ((recinfo.NEW_GROUP_NUMBER is null) AND (X_NEW_GROUP_NUMBER is null)))
200       AND ((recinfo.OLD_GROUP_NUMBER = X_OLD_GROUP_NUMBER)
201            OR ((recinfo.OLD_GROUP_NUMBER is null) AND (X_OLD_GROUP_NUMBER is null)))
202       AND ((recinfo.NEW_EMAIL_ADDRESS = X_NEW_EMAIL_ADDRESS)
203            OR ((recinfo.NEW_EMAIL_ADDRESS is null) AND (X_NEW_EMAIL_ADDRESS is null)))
204       AND ((recinfo.OLD_EMAIL_ADDRESS = X_OLD_EMAIL_ADDRESS)
205            OR ((recinfo.OLD_EMAIL_ADDRESS is null) AND (X_OLD_EMAIL_ADDRESS is null)))
206       AND ((recinfo.NEW_EXCLUSIVE_FLAG = X_NEW_EXCLUSIVE_FLAG)
207            OR ((recinfo.NEW_EXCLUSIVE_FLAG is null) AND (X_NEW_EXCLUSIVE_FLAG is null)))
208       AND ((recinfo.OLD_EXCLUSIVE_FLAG = X_OLD_EXCLUSIVE_FLAG)
209            OR ((recinfo.OLD_EXCLUSIVE_FLAG is null) AND (X_OLD_EXCLUSIVE_FLAG is null)))
210       AND ((recinfo.NEW_START_DATE_ACTIVE = X_NEW_START_DATE_ACTIVE)
211            OR ((recinfo.NEW_START_DATE_ACTIVE is null) AND (X_NEW_START_DATE_ACTIVE is null)))
212       AND ((recinfo.OLD_START_DATE_ACTIVE = X_OLD_START_DATE_ACTIVE)
213            OR ((recinfo.OLD_START_DATE_ACTIVE is null) AND (X_OLD_START_DATE_ACTIVE is null)))
214       AND ((recinfo.NEW_END_DATE_ACTIVE = X_NEW_END_DATE_ACTIVE)
215            OR ((recinfo.NEW_END_DATE_ACTIVE is null) AND (X_NEW_END_DATE_ACTIVE is null)))
216       AND ((recinfo.OLD_END_DATE_ACTIVE = X_OLD_END_DATE_ACTIVE)
217            OR ((recinfo.OLD_END_DATE_ACTIVE is null) AND (X_OLD_END_DATE_ACTIVE is null)))
218       AND ((recinfo.NEW_ACCOUNTING_CODE = X_NEW_ACCOUNTING_CODE)
219            OR ((recinfo.NEW_ACCOUNTING_CODE is null) AND (X_NEW_ACCOUNTING_CODE is null)))
220       AND ((recinfo.OLD_ACCOUNTING_CODE = X_OLD_ACCOUNTING_CODE)
221            OR ((recinfo.OLD_ACCOUNTING_CODE is null) AND (X_OLD_ACCOUNTING_CODE is null)))
222       AND ((recinfo.NEW_OBJECT_VERSION_NUMBER = X_NEW_OBJECT_VERSION_NUMBER)
223            OR ((recinfo.NEW_OBJECT_VERSION_NUMBER is null) AND (X_NEW_OBJECT_VERSION_NUMBER is null)))
224       AND ((recinfo.OLD_OBJECT_VERSION_NUMBER = X_OLD_OBJECT_VERSION_NUMBER)
225            OR ((recinfo.OLD_OBJECT_VERSION_NUMBER is null) AND (X_OLD_OBJECT_VERSION_NUMBER is null)))
226       AND ((recinfo.NEW_TIME_ZONE = X_NEW_TIME_ZONE)
227            OR ((recinfo.NEW_TIME_ZONE is null) AND (X_NEW_TIME_ZONE is null)))
228       AND ((recinfo.OLD_TIME_ZONE = X_OLD_TIME_ZONE)
229            OR ((recinfo.OLD_TIME_ZONE is null) AND (X_OLD_TIME_ZONE is null)))
230   ) then
231     null;
232   else
233     fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
234     app_exception.raise_exception;
235   end if;
236 
237   for tlinfo in c1 loop
238     if (tlinfo.BASELANG = 'Y') then
239       if (    ((tlinfo.NEW_GROUP_NAME = X_NEW_GROUP_NAME)
240                OR ((tlinfo.NEW_GROUP_NAME is null) AND (X_NEW_GROUP_NAME is null)))
241           AND ((tlinfo.OLD_GROUP_NAME = X_OLD_GROUP_NAME)
242                OR ((tlinfo.OLD_GROUP_NAME is null) AND (X_OLD_GROUP_NAME is null)))
243           AND ((tlinfo.NEW_GROUP_DESC = X_NEW_GROUP_DESC)
244                OR ((tlinfo.NEW_GROUP_DESC is null) AND (X_NEW_GROUP_DESC is null)))
245           AND ((tlinfo.OLD_GROUP_DESC = X_OLD_GROUP_DESC)
246                OR ((tlinfo.OLD_GROUP_DESC is null) AND (X_OLD_GROUP_DESC is null)))
247       ) then
248         null;
249       else
250         fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
251         app_exception.raise_exception;
252       end if;
253     end if;
254   end loop;
255   return;
256 end LOCK_ROW;
257 
258 procedure UPDATE_ROW (
259   X_GROUP_AUDIT_ID in NUMBER,
260   X_GROUP_ID in NUMBER,
261   X_NEW_GROUP_NUMBER in VARCHAR2,
262   X_OLD_GROUP_NUMBER in VARCHAR2,
263   X_NEW_EMAIL_ADDRESS in VARCHAR2,
264   X_OLD_EMAIL_ADDRESS in VARCHAR2,
265   X_NEW_EXCLUSIVE_FLAG in VARCHAR2,
266   X_OLD_EXCLUSIVE_FLAG in VARCHAR2,
267   X_NEW_START_DATE_ACTIVE in DATE,
268   X_OLD_START_DATE_ACTIVE in DATE,
269   X_NEW_END_DATE_ACTIVE in DATE,
270   X_OLD_END_DATE_ACTIVE in DATE,
271   X_NEW_ACCOUNTING_CODE in VARCHAR2,
272   X_OLD_ACCOUNTING_CODE in VARCHAR2,
273   X_NEW_OBJECT_VERSION_NUMBER in NUMBER,
274   X_OLD_OBJECT_VERSION_NUMBER in NUMBER,
275   X_NEW_GROUP_NAME in VARCHAR2,
276   X_OLD_GROUP_NAME in VARCHAR2,
277   X_NEW_GROUP_DESC in VARCHAR2,
278   X_OLD_GROUP_DESC in VARCHAR2,
279   X_LAST_UPDATE_DATE in DATE,
280   X_LAST_UPDATED_BY in NUMBER,
281   X_LAST_UPDATE_LOGIN in NUMBER,
282   X_NEW_TIME_ZONE in NUMBER,
283   X_OLD_TIME_ZONE in NUMBER
284 ) is
285 begin
286   update JTF_RS_GROUPS_AUD_B set
287     GROUP_ID = X_GROUP_ID,
288     NEW_GROUP_NUMBER = X_NEW_GROUP_NUMBER,
289     OLD_GROUP_NUMBER = X_OLD_GROUP_NUMBER,
290     NEW_EMAIL_ADDRESS = X_NEW_EMAIL_ADDRESS,
291     OLD_EMAIL_ADDRESS = X_OLD_EMAIL_ADDRESS,
292     NEW_EXCLUSIVE_FLAG = X_NEW_EXCLUSIVE_FLAG,
293     OLD_EXCLUSIVE_FLAG = X_OLD_EXCLUSIVE_FLAG,
294     NEW_START_DATE_ACTIVE = X_NEW_START_DATE_ACTIVE,
295     OLD_START_DATE_ACTIVE = X_OLD_START_DATE_ACTIVE,
296     NEW_END_DATE_ACTIVE = X_NEW_END_DATE_ACTIVE,
297     OLD_END_DATE_ACTIVE = X_OLD_END_DATE_ACTIVE,
298     NEW_ACCOUNTING_CODE = X_NEW_ACCOUNTING_CODE,
299     OLD_ACCOUNTING_CODE = X_OLD_ACCOUNTING_CODE,
300     NEW_OBJECT_VERSION_NUMBER = X_NEW_OBJECT_VERSION_NUMBER,
301     OLD_OBJECT_VERSION_NUMBER = X_OLD_OBJECT_VERSION_NUMBER,
302     LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
303     LAST_UPDATED_BY = X_LAST_UPDATED_BY,
304     LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
305     NEW_TIME_ZONE = X_NEW_TIME_ZONE,
306     OLD_TIME_ZONE = X_OLD_TIME_ZONE
307   where GROUP_AUDIT_ID = X_GROUP_AUDIT_ID;
308 
309   if (sql%notfound) then
310     raise no_data_found;
311   end if;
312 
313   update JTF_RS_GROUPS_AUD_TL set
314     NEW_GROUP_NAME = X_NEW_GROUP_NAME,
315     OLD_GROUP_NAME = X_OLD_GROUP_NAME,
316     NEW_GROUP_DESC = X_NEW_GROUP_DESC,
317     OLD_GROUP_DESC = X_OLD_GROUP_DESC,
318     LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
319     LAST_UPDATED_BY = X_LAST_UPDATED_BY,
320     LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
321     SOURCE_LANG = userenv('LANG')
322   where GROUP_AUDIT_ID = X_GROUP_AUDIT_ID
323   and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
324 
325   if (sql%notfound) then
326     raise no_data_found;
327   end if;
328 end UPDATE_ROW;
329 
330 procedure DELETE_ROW (
331   X_GROUP_AUDIT_ID in NUMBER
332 ) is
333 begin
334   delete from JTF_RS_GROUPS_AUD_TL
335   where GROUP_AUDIT_ID = X_GROUP_AUDIT_ID;
336 
337   if (sql%notfound) then
338     raise no_data_found;
339   end if;
340 
341   delete from JTF_RS_GROUPS_AUD_B
342   where GROUP_AUDIT_ID = X_GROUP_AUDIT_ID;
343 
344   if (sql%notfound) then
345     raise no_data_found;
346   end if;
347 end DELETE_ROW;
348 
349 procedure ADD_LANGUAGE
350 is
351 begin
352   delete from JTF_RS_GROUPS_AUD_TL T
353   where not exists
354     (select NULL
355     from JTF_RS_GROUPS_AUD_B B
356     where B.GROUP_AUDIT_ID = T.GROUP_AUDIT_ID
357     );
358 
359   update JTF_RS_GROUPS_AUD_TL T set (
360       NEW_GROUP_NAME,
361       OLD_GROUP_NAME,
362       NEW_GROUP_DESC,
363       OLD_GROUP_DESC
364     ) = (select
365       B.NEW_GROUP_NAME,
366       B.OLD_GROUP_NAME,
367       B.NEW_GROUP_DESC,
368       B.OLD_GROUP_DESC
369     from JTF_RS_GROUPS_AUD_TL B
370     where B.GROUP_AUDIT_ID = T.GROUP_AUDIT_ID
371     and B.LANGUAGE = T.SOURCE_LANG)
372   where (
373       T.GROUP_AUDIT_ID,
374       T.LANGUAGE
375   ) in (select
376       SUBT.GROUP_AUDIT_ID,
377       SUBT.LANGUAGE
378     from JTF_RS_GROUPS_AUD_TL SUBB, JTF_RS_GROUPS_AUD_TL SUBT
379     where SUBB.GROUP_AUDIT_ID = SUBT.GROUP_AUDIT_ID
380     and SUBB.LANGUAGE = SUBT.SOURCE_LANG
381     and (SUBB.NEW_GROUP_NAME <> SUBT.NEW_GROUP_NAME
382       or (SUBB.NEW_GROUP_NAME is null and SUBT.NEW_GROUP_NAME is not null)
383       or (SUBB.NEW_GROUP_NAME is not null and SUBT.NEW_GROUP_NAME is null)
384       or SUBB.OLD_GROUP_NAME <> SUBT.OLD_GROUP_NAME
385       or (SUBB.OLD_GROUP_NAME is null and SUBT.OLD_GROUP_NAME is not null)
386       or (SUBB.OLD_GROUP_NAME is not null and SUBT.OLD_GROUP_NAME is null)
387       or SUBB.NEW_GROUP_DESC <> SUBT.NEW_GROUP_DESC
388       or (SUBB.NEW_GROUP_DESC is null and SUBT.NEW_GROUP_DESC is not null)
389       or (SUBB.NEW_GROUP_DESC is not null and SUBT.NEW_GROUP_DESC is null)
390       or SUBB.OLD_GROUP_DESC <> SUBT.OLD_GROUP_DESC
391       or (SUBB.OLD_GROUP_DESC is null and SUBT.OLD_GROUP_DESC is not null)
392       or (SUBB.OLD_GROUP_DESC is not null and SUBT.OLD_GROUP_DESC is null)
393   ));
394 
395   insert into JTF_RS_GROUPS_AUD_TL (
396     GROUP_AUDIT_ID,
397     NEW_GROUP_NAME,
398     OLD_GROUP_NAME,
399     NEW_GROUP_DESC,
400     OLD_GROUP_DESC,
401     CREATED_BY,
402     CREATION_DATE,
403     LAST_UPDATED_BY,
404     LAST_UPDATE_DATE,
405     LAST_UPDATE_LOGIN,
406     LANGUAGE,
407     SOURCE_LANG
408   ) select
409     B.GROUP_AUDIT_ID,
410     B.NEW_GROUP_NAME,
411     B.OLD_GROUP_NAME,
412     B.NEW_GROUP_DESC,
413     B.OLD_GROUP_DESC,
414     B.CREATED_BY,
415     B.CREATION_DATE,
416     B.LAST_UPDATED_BY,
417     B.LAST_UPDATE_DATE,
418     B.LAST_UPDATE_LOGIN,
419     L.LANGUAGE_CODE,
420     B.SOURCE_LANG
421   from JTF_RS_GROUPS_AUD_TL B, FND_LANGUAGES L
422   where L.INSTALLED_FLAG in ('I', 'B')
423   and B.LANGUAGE = userenv('LANG')
424   and not exists
425     (select NULL
426     from JTF_RS_GROUPS_AUD_TL T
427     where T.GROUP_AUDIT_ID = B.GROUP_AUDIT_ID
428     and T.LANGUAGE = L.LANGUAGE_CODE);
429 end ADD_LANGUAGE;
430 
431 
432 Procedure TRANSLATE_ROW
433 (x_group_audit_id  in number,
434  x_new_group_name in varchar2,
435  x_new_group_desc in varchar2,
436  x_old_group_name in varchar2,
437  x_old_group_desc in varchar2,
438  x_Last_update_date in date,
439  x_last_updated_by in number,
440  x_last_update_login in number)
441 is
442 begin
443 
444 Update jtf_rs_groups_aud_tl set
445 new_group_name		= nvl(x_new_group_name,new_group_name),
446 new_group_desc		= nvl(x_new_group_desc,new_group_desc),
447 old_group_name		= nvl(x_old_group_name,old_group_name),
448 old_group_desc		= nvl(x_old_group_desc,old_group_desc),
449 last_update_date	= nvl(x_last_update_date,sysdate),
450 last_updated_by		= x_last_updated_by,
451 last_update_login	= 0,
452 source_lang		= userenv('LANG')
453 where group_audit_id		= x_group_audit_id
454 and userenv('LANG') in (LANGUAGE,SOURCE_LANG);
455 
456   if (sql%notfound) then
457     raise no_data_found;
458   end if;
459 end TRANSLATE_ROW;
460 
461 end JTF_RS_GROUPS_AUD_PKG;