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.AMW_RISKS_PKG

Source


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