PACKAGE BODY: APPS.AMW_FIN_STMNT_ITEMS_PKG

Source

1 package body AMW_FIN_STMNT_ITEMS_PKG as
2 /* $Header: amwtfsib.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_FIN_STMNT_ITEMS_TL T
9   where not exists
10     (select NULL
11     from AMW_FIN_STMNT_ITEMS_B B
12     where B.STATEMENT_GROUP_ID = T.STATEMENT_GROUP_ID
13     and   B.FINANCIAL_STATEMENT_ID = T.FINANCIAL_STATEMENT_ID
14     and   B.FINANCIAL_ITEM_ID = T.FINANCIAL_ITEM_ID
15     );
16 
17   update AMW_FIN_STMNT_ITEMS_TL T set (
18       NAME
19     ) = (select
20       B.NAME
21     from AMW_FIN_STMNT_ITEMS_TL B
22     where B.STATEMENT_GROUP_ID = T.STATEMENT_GROUP_ID
23     and   B.FINANCIAL_STATEMENT_ID = T.FINANCIAL_STATEMENT_ID
24     and   B.FINANCIAL_ITEM_ID = T.FINANCIAL_ITEM_ID
25     and B.LANGUAGE = T.SOURCE_LANG)
26   where (
27       T.STATEMENT_GROUP_ID,
28       T.FINANCIAL_STATEMENT_ID,
29       T.FINANCIAL_ITEM_ID,
30       T.LANGUAGE
31   ) in (select
32       SUBT.STATEMENT_GROUP_ID,
33       SUBT.FINANCIAL_STATEMENT_ID,
34       SUBT.FINANCIAL_ITEM_ID,
35       SUBT.LANGUAGE
36     from AMW_FIN_STMNT_ITEMS_TL SUBB, AMW_FIN_STMNT_ITEMS_TL SUBT
37     where SUBB.STATEMENT_GROUP_ID = SUBT.STATEMENT_GROUP_ID
38     and   SUBB.FINANCIAL_STATEMENT_ID = SUBT.FINANCIAL_STATEMENT_ID
39     and   SUBB.FINANCIAL_ITEM_ID = SUBT.FINANCIAL_ITEM_ID
40     and SUBB.LANGUAGE = SUBT.SOURCE_LANG
41     and (SUBB.NAME <> SUBT.NAME
42   ));
43 
44   insert into AMW_FIN_STMNT_ITEMS_TL (
45     OBJECT_VERSION_NUMBER,
46     LAST_UPDATED_BY,
47     LAST_UPDATE_DATE,
48     CREATED_BY,
49     SOURCE_LANG,
50     CREATION_DATE,
51     LAST_UPDATE_LOGIN,
52     STATEMENT_GROUP_ID,
53     FINANCIAL_STATEMENT_ID,
54     FINANCIAL_ITEM_ID,
55     NAME,
56     LANGUAGE
57  ) select /*+ ORDERED */
58     B.OBJECT_VERSION_NUMBER,
59     B.LAST_UPDATED_BY,
60     B.LAST_UPDATE_DATE,
61     B.CREATED_BY,
62     B.SOURCE_LANG,
63     B.CREATION_DATE,
64     B.LAST_UPDATE_LOGIN,
65     B.STATEMENT_GROUP_ID,
66     B.FINANCIAL_STATEMENT_ID,
67     B.FINANCIAL_ITEM_ID,
68     B.NAME,
69     L.LANGUAGE_CODE
70   from AMW_FIN_STMNT_ITEMS_TL B, FND_LANGUAGES L
71   where L.INSTALLED_FLAG in ('I', 'B')
72   and B.LANGUAGE = userenv('LANG')
73   and not exists
74     (select NULL
75     from AMW_FIN_STMNT_ITEMS_TL T
76     where T.STATEMENT_GROUP_ID = B.STATEMENT_GROUP_ID
77     and   T.FINANCIAL_STATEMENT_ID = B.FINANCIAL_STATEMENT_ID
78     and   T.FINANCIAL_ITEM_ID = B.FINANCIAL_ITEM_ID
79     and T.LANGUAGE = L.LANGUAGE_CODE);
80 end ADD_LANGUAGE;
81 
82 
83 end AMW_FIN_STMNT_ITEMS_PKG;