PACKAGE BODY: APPS.BIS_CUSTOM_RELATED_LINKS_MLS

Source

1 PACKAGE BODY BIS_CUSTOM_RELATED_LINKS_MLS AS
2 /* $Header: BISPCRLB.pls 120.0 2005/10/14 13:19:26 slowe noship $ */
3 /*
4 REM +=======================================================================+
5 REM |    Copyright (c) 2002 Oracle Corporation, Redwood Shores, CA, USA     |
6 REM |                         All rights reserved.                          |
7 REM +=======================================================================+
8 REM | FILENAME                                                              |
9 REM |     BISPCRLB.pls                                                      |
10 REM |                                                                       |
11 REM | DESCRIPTION                                                           |
12 REM |     Module: Private for populating the table BIS_CUSTOM_RELATED_LINKS_TL   |
13 REM |                                                                       |
14 REM | NOTES                                                                 |
15 REM | 14-OCT-2005 Seema Rao  Created.                                      |
16 REM +=======================================================================+
17 */
18 
19 /*
20   Private CRUD APIs
21 */
22 
23 
24 -- procedure to add a language.
25 PROCEDURE Add_Language IS
26 BEGIN
27 
28     DELETE FROM BIS_CUSTOM_RELATED_LINKS_TL T
29     WHERE NOT EXISTS
30     (
31       SELECT NULL
32       FROM   BIS_CUSTOM_RELATED_LINKS B
33       WHERE  B.RELATED_LINK_ID = T.RELATED_LINK_ID
34     );
35 
36     UPDATE BIS_CUSTOM_RELATED_LINKS_TL T SET (
37         USER_LINK_NAME
38     ) = (SELECT
39             B.USER_LINK_NAME
40          FROM  BIS_CUSTOM_RELATED_LINKS_TL B
41          WHERE B.RELATED_LINK_ID = T.RELATED_LINK_ID
42          AND   B.LANGUAGE           = T.SOURCE_LANG)
43          WHERE (
44             T.RELATED_LINK_ID,
45             T.LANGUAGE
46          ) IN (SELECT
47                 SUBT.RELATED_LINK_ID,
48                 SUBT.LANGUAGE
49                 FROM  BIS_CUSTOM_RELATED_LINKS_TL SUBB, BIS_CUSTOM_RELATED_LINKS_TL SUBT
50                 WHERE SUBB.RELATED_LINK_ID = SUBT.RELATED_LINK_ID
51                 AND   SUBB.LANGUAGE           = SUBT.SOURCE_LANG
52                 AND (
53                      SUBB.USER_LINK_NAME              <> SUBT.USER_LINK_NAME
54                     )
55                 );
56 
57     INSERT INTO BIS_CUSTOM_RELATED_LINKS_TL
58     (
59         RELATED_LINK_ID
60       , USER_LINK_NAME
61       , LANGUAGE
62       , SOURCE_LANG
63       , CREATED_BY
64       , CREATION_DATE
65       , LAST_UPDATED_BY
66       , LAST_UPDATE_DATE
67       , LAST_UPDATE_LOGIN
68     )
69     SELECT
70         B.RELATED_LINK_ID
71       , B.USER_LINK_NAME
72       , L.LANGUAGE_CODE
73       , B.SOURCE_LANG
74       , B.CREATED_BY
75       , B.CREATION_DATE
76       , B.LAST_UPDATED_BY
77       , B.LAST_UPDATE_DATE
78       , B.LAST_UPDATE_LOGIN
79    FROM  BIS_CUSTOM_RELATED_LINKS_TL B, FND_LANGUAGES L
80    WHERE L.INSTALLED_FLAG IN ('I', 'B')
81    AND   B.LANGUAGE = USERENV('LANG')
82    AND   NOT EXISTS
83         (
84           SELECT NULL
85           FROM   BIS_CUSTOM_RELATED_LINKS_TL T
86           WHERE  T.RELATED_LINK_ID = B.RELATED_LINK_ID
87           AND    T.LANGUAGE           = L.LANGUAGE_CODE
88         );
89 
90 END Add_Language;
91 
92 END BIS_CUSTOM_RELATED_LINKS_MLS;