[Home] [Help]
PACKAGE BODY: APPS.IEX_STRY_TEMP_WORK_ITEMS_PKG
Source
1 package body IEX_STRY_TEMP_WORK_ITEMS_PKG as
2 /* $Header: iextstwb.pls 120.0 2004/01/24 03:23:04 appldev noship $ */
3 PG_DEBUG NUMBER(2) := TO_NUMBER(NVL(FND_PROFILE.value('IEX_DEBUG_LEVEL'), '20'));
4
5 procedure ADD_LANGUAGE
6 is
7 begin
8 delete from IEX_STRY_TEMP_WORK_ITEMS_TL T
9 where not exists
10 (select NULL
11 from IEX_STRY_TEMP_WORK_ITEMS_B B
12 where B.WORK_ITEM_TEMP_ID = T.WORK_ITEM_TEMP_ID
13 );
14
15 update IEX_STRY_TEMP_WORK_ITEMS_TL T
16 set (NAME) =
17 (select B.NAME
18 from IEX_STRY_TEMP_WORK_ITEMS_TL B
19 where B.WORK_ITEM_TEMP_ID = T.WORK_ITEM_TEMP_ID
20 and B.LANGUAGE = T.SOURCE_LANG)
21 where (
22 T.WORK_ITEM_TEMP_ID,T.LANGUAGE
23 ) in (select
24 SUBT.WORK_ITEM_TEMP_ID,
25 SUBT.LANGUAGE
26 from IEX_STRY_TEMP_WORK_ITEMS_TL SUBB,
27 IEX_STRY_TEMP_WORK_ITEMS_TL SUBT
28 where SUBB.WORK_ITEM_TEMP_ID = SUBT.WORK_ITEM_TEMP_ID
29 and SUBB.LANGUAGE = SUBT.SOURCE_LANG
30 and SUBB.NAME<> SUBT.NAME
31 OR (SUBB.NAME IS NULL AND SUBT.NAME IS NOT NULL)
32 OR (SUBB.NAME IS NOT NULL AND SUBT.NAME IS NULL)
33 );
34
35 insert into IEX_STRY_TEMP_WORK_ITEMS_TL (
36 WORK_ITEM_TEMP_ID,
37 NAME,
38 DESCRIPTION,
39 LAST_UPDATE_DATE,
40 LAST_UPDATED_BY,
41 CREATION_DATE,
42 CREATED_BY,
43 LAST_UPDATE_LOGIN,
44 LANGUAGE,
45 SOURCE_LANG
46 ) select
47 B.WORK_ITEM_TEMP_ID,
48 B.NAME,
49 B.DESCRIPTION,
50 B.LAST_UPDATE_DATE,
51 B.LAST_UPDATED_BY,
52 B.CREATION_DATE,
53 B.CREATED_BY,
54 B.LAST_UPDATE_LOGIN,
55 L.LANGUAGE_CODE,
56 B.SOURCE_LANG
57 from IEX_STRY_TEMP_WORK_ITEMS_TL B, FND_LANGUAGES L
58 where L.INSTALLED_FLAG in ('I', 'B')
59 and B.LANGUAGE = userenv('LANG')
60 and not exists
61 (select NULL
62 from IEX_STRY_TEMP_WORK_ITEMS_TL T
63 where T.WORK_ITEM_TEMP_ID = B.WORK_ITEM_TEMP_ID
64 and T.LANGUAGE = L.LANGUAGE_CODE);
65
66 end ADD_LANGUAGE;
67
68
69 procedure TRANSLATE_ROW (
70 X_WORK_ITEM_TEMP_ID in NUMBER,
71 X_NAME in VARCHAR2,
72 X_OBJECT_VERSION_NUMBER in NUMBER,
73 X_OWNER in VARCHAR2
74 ) IS
75
76 begin
77 UPDATE IEX_STRY_TEMP_WORK_ITEMS_TL SET
78 NAME=X_NAME,
79 last_update_date = sysdate,
80 last_updated_by = decode(X_OWNER, 'SEED', 1, 0),
81 last_update_login = 0,
82 source_lang = userenv('LANG')
83 WHERE userenv('LANG') in (LANGUAGE, SOURCE_LANG) AND
84 WORK_ITEM_TEMP_ID = X_WORK_ITEM_TEMP_ID;
85 end TRANSLATE_ROW;
86
87 end IEX_STRY_TEMP_WORK_ITEMS_PKG;