52: X_LAST_UPDATED_BY,
53: X_LAST_UPDATE_LOGIN
54: );
55:
56: insert into FEM_PROJECTS_TL (
57: PROJECT_ID,
58: VALUE_SET_ID,
59: PROJECT_NAME,
60: DESCRIPTION,
80: from FND_LANGUAGES L
81: where L.INSTALLED_FLAG in ('I', 'B')
82: and not exists
83: (select NULL
84: from FEM_PROJECTS_TL T
85: where T.PROJECT_ID = X_PROJECT_ID
86: and T.VALUE_SET_ID = X_VALUE_SET_ID
87: and T.LANGUAGE = L.LANGUAGE_CODE);
88:
124: cursor c1 is select
125: PROJECT_NAME,
126: DESCRIPTION,
127: decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
128: from FEM_PROJECTS_TL
129: where PROJECT_ID = X_PROJECT_ID
130: and VALUE_SET_ID = X_VALUE_SET_ID
131: and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
132: for update of PROJECT_ID nowait;
201: if (sql%notfound) then
202: raise no_data_found;
203: end if;
204:
205: update FEM_PROJECTS_TL set
206: PROJECT_NAME = X_PROJECT_NAME,
207: DESCRIPTION = X_DESCRIPTION,
208: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
209: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
222: X_PROJECT_ID in NUMBER,
223: X_VALUE_SET_ID in NUMBER
224: ) is
225: begin
226: delete from FEM_PROJECTS_TL
227: where PROJECT_ID = X_PROJECT_ID
228: and VALUE_SET_ID = X_VALUE_SET_ID;
229:
230: if (sql%notfound) then
242:
243: procedure ADD_LANGUAGE
244: is
245: begin
246: delete from FEM_PROJECTS_TL T
247: where not exists
248: (select NULL
249: from FEM_PROJECTS_B B
250: where B.PROJECT_ID = T.PROJECT_ID
250: where B.PROJECT_ID = T.PROJECT_ID
251: and B.VALUE_SET_ID = T.VALUE_SET_ID
252: );
253:
254: update FEM_PROJECTS_TL T set (
255: PROJECT_NAME,
256: DESCRIPTION
257: ) = (select
258: B.PROJECT_NAME,
256: DESCRIPTION
257: ) = (select
258: B.PROJECT_NAME,
259: B.DESCRIPTION
260: from FEM_PROJECTS_TL B
261: where B.PROJECT_ID = T.PROJECT_ID
262: and B.VALUE_SET_ID = T.VALUE_SET_ID
263: and B.LANGUAGE = T.SOURCE_LANG)
264: where (
268: ) in (select
269: SUBT.PROJECT_ID,
270: SUBT.VALUE_SET_ID,
271: SUBT.LANGUAGE
272: from FEM_PROJECTS_TL SUBB, FEM_PROJECTS_TL SUBT
273: where SUBB.PROJECT_ID = SUBT.PROJECT_ID
274: and SUBB.VALUE_SET_ID = SUBT.VALUE_SET_ID
275: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
276: and (SUBB.PROJECT_NAME <> SUBT.PROJECT_NAME
278: or (SUBB.DESCRIPTION is null and SUBT.DESCRIPTION is not null)
279: or (SUBB.DESCRIPTION is not null and SUBT.DESCRIPTION is null)
280: ));
281:
282: insert into FEM_PROJECTS_TL (
283: PROJECT_ID,
284: VALUE_SET_ID,
285: PROJECT_NAME,
286: DESCRIPTION,
302: B.LAST_UPDATE_DATE,
303: B.LAST_UPDATE_LOGIN,
304: L.LANGUAGE_CODE,
305: B.SOURCE_LANG
306: from FEM_PROJECTS_TL B, FND_LANGUAGES L
307: where L.INSTALLED_FLAG in ('I', 'B')
308: and B.LANGUAGE = userenv('LANG')
309: and not exists
310: (select NULL
307: where L.INSTALLED_FLAG in ('I', 'B')
308: and B.LANGUAGE = userenv('LANG')
309: and not exists
310: (select NULL
311: from FEM_PROJECTS_TL T
312: where T.PROJECT_ID = B.PROJECT_ID
313: and T.VALUE_SET_ID = B.VALUE_SET_ID
314: and T.LANGUAGE = L.LANGUAGE_CODE);
315: end ADD_LANGUAGE;
339: f_ludate := nvl(to_date(x_last_update_date, 'YYYY/MM/DD'), sysdate);
340: begin
341: select LAST_UPDATED_BY, LAST_UPDATE_DATE
342: into db_luby, db_ludate
343: from FEM_PROJECTS_TL
344: where PROJECT_ID = x_PROJECT_ID
345: and LANGUAGE = userenv('LANG');
346:
347: -- Test for customization and version
347: -- Test for customization and version
348: if (fnd_load_util.upload_test(f_luby, f_ludate, db_luby,
349: db_ludate, x_custom_mode)) then
350: -- Update translations for this language
351: update FEM_PROJECTS_TL set
352: PROJECT_NAME = decode(x_PROJECT_NAME,
353: fnd_load_util.null_value, null, -- Real null
354: null, x_PROJECT_NAME, -- No change
355: x_PROJECT_NAME),