PACKAGE BODY: APPS.JTF_SE_AUTHPERMS

Source

1 PACKAGE BODY JTF_SE_AUTHPERMS AS
2 /* $Header: JTFSEAPB.pls 115.0 2000/04/07 19:31:54 pkm ship      $ */
3 
4 procedure ADD_LANGUAGE
5 is
6 begin
7   delete from JTF_AUTH_PERMISSIONS_TL T
8   where not exists
9     (select NULL
10     from JTF_AUTH_PERMISSIONS_B B
11     where B.PERMISSION_DESC_ID = T.PERMISSION_DESC_ID
12     );
13 
14   update JTF_AUTH_PERMISSIONS_TL T set (
15       PERMISSION_DESC,
16       LAST_UPDATED_BY,
17       LAST_UPDATE_DATE,
18       LAST_UPDATE_LOGIN
19     ) = (select
20       B.PERMISSION_DESC,
21      FND_GLOBAL.user_id,
22      sysdate,
23      FND_GLOBAL.user_id
24     from JTF_AUTH_PERMISSIONS_TL B
25     where B.PERMISSION_DESC_ID = T.PERMISSION_DESC_ID
26     and B.LANGUAGE = T.SOURCE_LANG
27      )
28   where (
29       T.PERMISSION_DESC_ID,
30       T.LANGUAGE
31   ) in (select
32       SUBT.PERMISSION_DESC_ID,
33       SUBT.LANGUAGE
34     from JTF_AUTH_PERMISSIONS_TL SUBB, JTF_AUTH_PERMISSIONS_TL SUBT
35     where SUBB.PERMISSION_DESC_ID = SUBT.PERMISSION_DESC_ID
36     and SUBB.LANGUAGE = SUBT.SOURCE_LANG );
37 
38   insert into JTF_AUTH_PERMISSIONS_TL (
39     PERMISSION_DESC_ID,
40     PERMISSION_DESC,
41     LAST_UPDATE_DATE,
42     LAST_UPDATED_BY,
43     LAST_UPDATE_LOGIN,
44     CREATION_DATE,
45     CREATED_BY,
46     LANGUAGE,
47     SOURCE_LANG
48   ) select
49     B.PERMISSION_DESC_ID,
50     B.PERMISSION_DESC,
51     B.LAST_UPDATE_DATE,
52     B.LAST_UPDATED_BY,
53     B.LAST_UPDATE_LOGIN,
54     B.CREATION_DATE,
55     B.CREATED_BY,
56     L.LANGUAGE_CODE,
57     B.SOURCE_LANG
58   from JTF_AUTH_PERMISSIONS_TL B, FND_LANGUAGES L
59   where L.INSTALLED_FLAG in ('I', 'B')
60   and B.LANGUAGE = userenv('LANG')
61   and not exists
62     (select NULL
63     from JTF_AUTH_PERMISSIONS_TL T
64     where T.PERMISSION_DESC_ID = B.PERMISSION_DESC_ID
65     and T.LANGUAGE = L.LANGUAGE_CODE);
66 
67 end ADD_LANGUAGE;
68 
69 END JTF_SE_AUTHPERMS;
70