PACKAGE BODY: APPS.AMW_FIN_STMNT_PKG

Source

1 package body AMW_FIN_STMNT_PKG as
2 /* $Header: amwtfstb.pls 120.0 2005/10/26 07:06:46 appldev noship $ */
3 
4 
5 procedure ADD_LANGUAGE
6 is
7 begin
8   delete from AMW_FIN_STMNT_TL T
9   where not exists
10     (select NULL
11     from AMW_FIN_STMNT_B B
12     where B.STATEMENT_GROUP_ID = T.STATEMENT_GROUP_ID
13     and   B.FINANCIAL_STATEMENT_ID = T.FINANCIAL_STATEMENT_ID
14     );
15 
16   update AMW_FIN_STMNT_TL T set (
17       NAME
18     ) = (select
19       B.NAME
20     from AMW_FIN_STMNT_TL B
21     where B.STATEMENT_GROUP_ID = T.STATEMENT_GROUP_ID
22     and   B.FINANCIAL_STATEMENT_ID = T.FINANCIAL_STATEMENT_ID
23     and B.LANGUAGE = T.SOURCE_LANG)
24   where (
25       T.STATEMENT_GROUP_ID,
26       T.FINANCIAL_STATEMENT_ID,
27       T.LANGUAGE
28   ) in (select
29       SUBT.STATEMENT_GROUP_ID,
30       SUBT.FINANCIAL_STATEMENT_ID,
31       SUBT.LANGUAGE
32     from AMW_FIN_STMNT_TL SUBB, AMW_FIN_STMNT_TL SUBT
33     where SUBB.STATEMENT_GROUP_ID = SUBT.STATEMENT_GROUP_ID
34     and   SUBB.FINANCIAL_STATEMENT_ID = SUBT.FINANCIAL_STATEMENT_ID
35     and SUBB.LANGUAGE = SUBT.SOURCE_LANG
36     and (SUBB.NAME <> SUBT.NAME
37   ));
38 
39   insert into AMW_FIN_STMNT_TL (
40     OBJECT_VERSION_NUMBER,
41     LAST_UPDATED_BY,
42     LAST_UPDATE_DATE,
43     CREATED_BY,
44     SOURCE_LANG,
45     CREATION_DATE,
46     LAST_UPDATE_LOGIN,
47     STATEMENT_GROUP_ID,
48     FINANCIAL_STATEMENT_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.SOURCE_LANG,
57     B.CREATION_DATE,
58     B.LAST_UPDATE_LOGIN,
59     B.STATEMENT_GROUP_ID,
60     B.FINANCIAL_STATEMENT_ID,
61     B.NAME,
62     L.LANGUAGE_CODE
63   from AMW_FIN_STMNT_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_FIN_STMNT_TL T
69     where T.STATEMENT_GROUP_ID = B.STATEMENT_GROUP_ID
70     and   T.FINANCIAL_STATEMENT_ID = B.FINANCIAL_STATEMENT_ID
71     and T.LANGUAGE = L.LANGUAGE_CODE);
72 end ADD_LANGUAGE;
73 
74 
75 end AMW_FIN_STMNT_PKG;