[Home] [Help]
PACKAGE BODY: APPS.AMW_AUDIT_OBJECTIVES_PKG
Source
1 package body AMW_AUDIT_OBJECTIVES_PKG as
2 /* $Header: amwtaobb.pls 120.0 2005/10/26 07:06:48 appldev noship $ */
3
4
5 procedure ADD_LANGUAGE
6 is
7 begin
8 delete from AMW_AUDIT_OBJECTIVES_TL T
9 where not exists
10 (select NULL
11 from AMW_AUDIT_OBJECTIVES_B B
12 where B.OBJECTIVE_ID = T.OBJECTIVE_ID
13 );
14
15 update AMW_AUDIT_OBJECTIVES_TL T set (
16 NAME,
17 DESCRIPTION
18 ) = (select
19 B.NAME,
20 B.DESCRIPTION
21 from AMW_AUDIT_OBJECTIVES_TL B
22 where B.OBJECTIVE_ID = T.OBJECTIVE_ID
23 and B.LANGUAGE = T.SOURCE_LANG)
24 where (
25 T.OBJECTIVE_ID,
26 T.LANGUAGE
27 ) in (select
28 SUBT.OBJECTIVE_ID,
29 SUBT.LANGUAGE
30 from AMW_AUDIT_OBJECTIVES_TL SUBB, AMW_AUDIT_OBJECTIVES_TL SUBT
31 where SUBB.OBJECTIVE_ID = SUBT.OBJECTIVE_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_OBJECTIVES_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 OBJECTIVE_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.OBJECTIVE_ID,
61 B.NAME,
62 L.LANGUAGE_CODE
63 from AMW_AUDIT_OBJECTIVES_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_OBJECTIVES_TL T
69 where T.OBJECTIVE_ID = B.OBJECTIVE_ID
70 and T.LANGUAGE = L.LANGUAGE_CODE);
71 end ADD_LANGUAGE;
72
73
74 end AMW_AUDIT_OBJECTIVES_PKG;