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;