PACKAGE BODY: APPS.AMW_AUDIT_TASKS_PKG

Source

1 package body AMW_AUDIT_TASKS_PKG as
2 /* $Header: amwtatkb.pls 120.0 2005/10/26 07:07:02 appldev noship $ */
3 
4 
5 procedure ADD_LANGUAGE
6 is
7 begin
8   delete from AMW_AUDIT_TASKS_TL T
9   where not exists
10     (select NULL
11     from AMW_AUDIT_TASKS_B B
12     where B.TASK_ID = T.TASK_ID
13     );
14 
15   update AMW_AUDIT_TASKS_TL T set (
16       TASK_NAME,
17       DESCRIPTION
18     ) = (select
19       B.TASK_NAME,
20       B.DESCRIPTION
21     from AMW_AUDIT_TASKS_TL B
22     where B.TASK_ID = T.TASK_ID
23     and B.LANGUAGE = T.SOURCE_LANG)
24   where (
25       T.TASK_ID,
26       T.LANGUAGE
27   ) in (select
28       SUBT.TASK_ID,
29       SUBT.LANGUAGE
30     from AMW_AUDIT_TASKS_TL SUBB, AMW_AUDIT_TASKS_TL SUBT
31     where SUBB.TASK_ID = SUBT.TASK_ID
32     and SUBB.LANGUAGE = SUBT.SOURCE_LANG
33     and (SUBB.TASK_NAME <> SUBT.TASK_NAME
34       or SUBB.DESCRIPTION <> SUBT.DESCRIPTION
35       or (SUBB.DESCRIPTION is null and SUBT.DESCRIPTION is not null)
36       or (SUBB.DESCRIPTION is not null and SUBT.DESCRIPTION is null)
37   ));
38 
39   insert into AMW_AUDIT_TASKS_TL (
40     OBJECT_VERSION_NUMBER,
41     LAST_UPDATED_BY,
42     LAST_UPDATE_DATE,
43     CREATED_BY,
44     DESCRIPTION,
45     SOURCE_LANG,
46     CREATION_DATE,
47     LAST_UPDATE_LOGIN,
48     TASK_ID,
49     TASK_NAME,
50     LANGUAGE
51  ) select /*+ ORDERED */
52     B.OBJECT_VERSION_NUMBER,
53     B.LAST_UPDATED_BY,
54     B.LAST_UPDATE_DATE,
55     B.CREATED_BY,
56     B.DESCRIPTION,
57     B.SOURCE_LANG,
58     B.CREATION_DATE,
59     B.LAST_UPDATE_LOGIN,
60     B.TASK_ID,
61     B.TASK_NAME,
62     L.LANGUAGE_CODE
63   from AMW_AUDIT_TASKS_TL B, FND_LANGUAGES L
64   where L.INSTALLED_FLAG in ('I', 'B')
65   and B.LANGUAGE = userenv('LANG')
66   and not exists
67     (select NULL
68     from AMW_AUDIT_TASKS_TL T
69     where T.TASK_ID = B.TASK_ID
70     and T.LANGUAGE = L.LANGUAGE_CODE);
71 end ADD_LANGUAGE;
72 
73 
74 end AMW_AUDIT_TASKS_PKG;