1 PACKAGE BODY OKC_XQUESTIONS_PVT AS
2 /* $Header: OKCVXQUESTIONSB.pls 120.0 2005/05/25 19:22:41 appldev noship $ */
3
4
5 procedure ADD_LANGUAGE
6 is
7 begin
8 delete from OKC_XPRT_QUESTIONS_TL T
9 where not exists
10 (select NULL
11 from OKC_XPRT_QUESTIONS_B B
12 where B.QUESTION_ID = T.QUESTION_ID
13 );
14
15 update OKC_XPRT_QUESTIONS_TL T set (
16 QUESTION_NAME,
17 DESCRIPTION,
18 PROMPT
19 ) = (select
20 B.QUESTION_NAME,
21 B.DESCRIPTION,
22 B.PROMPT
23 from OKC_XPRT_QUESTIONS_TL B
24 where B.QUESTION_ID = T.QUESTION_ID
25 and B.LANGUAGE = T.SOURCE_LANG)
26 where (
27 T.QUESTION_ID,
28 T.LANGUAGE
29 ) in (select
30 SUBT.QUESTION_ID,
31 SUBT.LANGUAGE
32 from OKC_XPRT_QUESTIONS_TL SUBB, OKC_XPRT_QUESTIONS_TL SUBT
33 where SUBB.QUESTION_ID = SUBT.QUESTION_ID
34 and SUBB.LANGUAGE = SUBT.SOURCE_LANG
35 and (SUBB.QUESTION_NAME <> SUBT.QUESTION_NAME
36 or SUBB.DESCRIPTION <> SUBT.DESCRIPTION
37 or (SUBB.DESCRIPTION is null and SUBT.DESCRIPTION is not null)
38 or (SUBB.DESCRIPTION is not null and SUBT.DESCRIPTION is null)
39 or SUBB.PROMPT <> SUBT.PROMPT
40 or (SUBB.PROMPT is null and SUBT.PROMPT is not null)
41 or (SUBB.PROMPT is not null and SUBT.PROMPT is null)
42 ));
43
44 insert into OKC_XPRT_QUESTIONS_TL (
45 QUESTION_ID,
46 QUESTION_NAME,
47 QUESTION_TYPE,
48 DESCRIPTION,
49 PROMPT,
50 CREATED_BY,
51 CREATION_DATE,
52 LAST_UPDATED_BY,
53 LAST_UPDATE_DATE,
54 LAST_UPDATE_LOGIN,
55 LANGUAGE,
56 SOURCE_LANG
57 ) select /*+ ORDERED */
58 B.QUESTION_ID,
59 B.QUESTION_NAME,
60 B.QUESTION_TYPE,
61 B.DESCRIPTION,
62 B.PROMPT,
63 B.CREATED_BY,
64 B.CREATION_DATE,
65 B.LAST_UPDATED_BY,
66 B.LAST_UPDATE_DATE,
67 B.LAST_UPDATE_LOGIN,
68 L.LANGUAGE_CODE,
69 B.SOURCE_LANG
70 from OKC_XPRT_QUESTIONS_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 OKC_XPRT_QUESTIONS_TL T
76 where T.QUESTION_ID = B.QUESTION_ID
77 and T.LANGUAGE = L.LANGUAGE_CODE);
78 end ADD_LANGUAGE;
79
80 END OKC_XQUESTIONS_PVT;
[Home] [Help]