PACKAGE BODY: APPS.AMW_AUDIT_PROJECTS_PKG

Source

1 package body AMW_AUDIT_PROJECTS_PKG as
2 /* $Header: amwtapjb.pls 120.0 2005/10/26 07:06:47 appldev noship $ */
3 
4 
5 procedure ADD_LANGUAGE
6 is
7 begin
8   delete from AMW_AUDIT_PROJECTS_TL T
9   where not exists
10     (select NULL
11     from AMW_AUDIT_PROJECTS B
12     where B.AUDIT_PROJECT_ID = T.AUDIT_PROJECT_ID
13     );
14 
15   update AMW_AUDIT_PROJECTS_TL T set (
16       NAME,
17       DESCRIPTION
18     ) = (select
19       B.NAME,
20       B.DESCRIPTION
21     from AMW_AUDIT_PROJECTS_TL B
22     where B.AUDIT_PROJECT_ID = T.AUDIT_PROJECT_ID
23     and B.LANGUAGE = T.SOURCE_LANG)
24   where (
25       T.AUDIT_PROJECT_ID,
26       T.LANGUAGE
27   ) in (select
28       SUBT.AUDIT_PROJECT_ID,
29       SUBT.LANGUAGE
30     from AMW_AUDIT_PROJECTS_TL SUBB, AMW_AUDIT_PROJECTS_TL SUBT
31     where SUBB.AUDIT_PROJECT_ID = SUBT.AUDIT_PROJECT_ID
32     and SUBB.LANGUAGE = SUBT.SOURCE_LANG
33     and (SUBB.NAME <> SUBT.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_PROJECTS_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     AUDIT_PROJECT_ID,
49     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.AUDIT_PROJECT_ID,
61     B.NAME,
62     L.LANGUAGE_CODE
63   from AMW_AUDIT_PROJECTS_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_PROJECTS_TL T
69     where T.AUDIT_PROJECT_ID = B.AUDIT_PROJECT_ID
70     and T.LANGUAGE = L.LANGUAGE_CODE);
71 end ADD_LANGUAGE;
72 
73 
74 end AMW_AUDIT_PROJECTS_PKG;