35: X_LAST_UPDATED_BY,
36: X_LAST_UPDATE_LOGIN
37: );
38:
39: insert into AMS_DS_TCA_ENTITY_TL (
40: LAST_UPDATED_BY,
41: ENTITY_ID,
42: LAST_UPDATE_DATE,
43: CREATION_DATE,
59: from FND_LANGUAGES L
60: where L.INSTALLED_FLAG in ('I', 'B')
61: and not exists
62: (select NULL
63: from AMS_DS_TCA_ENTITY_TL T
64: where T.ENTITY_ID = X_ENTITY_ID
65: and T.LANGUAGE = L.LANGUAGE_CODE);
66:
67: open c;
90:
91: cursor c1 is select
92: DESCRIPTION,
93: decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
94: from AMS_DS_TCA_ENTITY_TL
95: where ENTITY_ID = X_ENTITY_ID
96: and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
97: for update of ENTITY_ID nowait;
98: begin
150: if (sql%notfound) then
151: raise no_data_found;
152: end if;
153:
154: update AMS_DS_TCA_ENTITY_TL set
155: DESCRIPTION = X_DESCRIPTION,
156: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
157: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
158: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
168: procedure DELETE_ROW (
169: X_ENTITY_ID in NUMBER
170: ) is
171: begin
172: delete from AMS_DS_TCA_ENTITY_TL
173: where ENTITY_ID = X_ENTITY_ID;
174:
175: if (sql%notfound) then
176: raise no_data_found;
281:
282: procedure ADD_LANGUAGE
283: is
284: begin
285: delete from AMS_DS_TCA_ENTITY_TL T
286: where not exists
287: (select NULL
288: from AMS_DS_TCA_ENTITY B
289: where B.ENTITY_ID= T.ENTITY_ID
288: from AMS_DS_TCA_ENTITY B
289: where B.ENTITY_ID= T.ENTITY_ID
290: );
291:
292: update AMS_DS_TCA_ENTITY_TL T set (
293: DESCRIPTION
294: ) = (select
295: B.DESCRIPTION
296: from AMS_DS_TCA_ENTITY_TL B
292: update AMS_DS_TCA_ENTITY_TL T set (
293: DESCRIPTION
294: ) = (select
295: B.DESCRIPTION
296: from AMS_DS_TCA_ENTITY_TL B
297: where B.ENTITY_ID= T.ENTITY_ID
298: and B.LANGUAGE = T.SOURCE_LANG)
299: where (
300: T.ENTITY_ID,
301: T.LANGUAGE
302: ) in (select
303: SUBT.ENTITY_ID,
304: SUBT.LANGUAGE
305: from AMS_DS_TCA_ENTITY_TL SUBB, AMS_DS_TCA_ENTITY_TL SUBT
306: where SUBB.ENTITY_ID= SUBT.ENTITY_ID
307: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
308: and (
309: SUBB.DESCRIPTION <> SUBT.DESCRIPTION
310: or (SUBB.DESCRIPTION is null and SUBT.DESCRIPTION is not null)
311: or (SUBB.DESCRIPTION is not null and SUBT.DESCRIPTION is null)
312: ));
313:
314: insert into AMS_DS_TCA_ENTITY_TL (
315: LAST_UPDATED_BY,
316: ENTITY_ID,
317: LAST_UPDATE_DATE,
318: CREATION_DATE,
330: B.LAST_UPDATE_LOGIN,
331: B.DESCRIPTION,
332: L.LANGUAGE_CODE,
333: B.SOURCE_LANG
334: from FND_LANGUAGES L, AMS_DS_TCA_ENTITY_TL B
335: where L.INSTALLED_FLAG in ('I', 'B')
336: and B.LANGUAGE = userenv('LANG')
337: and not exists
338: (select NULL
335: where L.INSTALLED_FLAG in ('I', 'B')
336: and B.LANGUAGE = userenv('LANG')
337: and not exists
338: (select NULL
339: from AMS_DS_TCA_ENTITY_TL T
340: where T.ENTITY_ID = B.ENTITY_ID
341: and T.LANGUAGE = L.LANGUAGE_CODE);
342:
343: end ADD_LANGUAGE;
350: ) IS
351:
352: CURSOR c_last_updated_by IS
353: SELECT last_updated_by
354: FROM AMS_DS_TCA_ENTITY_TL
355: WHERE ENTITY_ID = X_ENTITY_ID
356: AND USERENV('LANG') = LANGUAGE;
357:
358: l_luby number; --last updated by
363: FETCH c_last_updated_by INTO l_luby;
364: CLOSE c_last_updated_by;
365:
366: IF (l_luby IN (0, 1, 2) or NVL(X_CUSTOM_MODE, 'PRESERVE')='FORCE') THEN
367: UPDATE AMS_DS_TCA_ENTITY_TL
368: SET DESCRIPTION = NVL(X_DESCRIPTION, DESCRIPTION),
369: SOURCE_LANG = userenv('LANG'),
370: LAST_UPDATE_DATE = SYSDATE,
371: LAST_UPDATED_BY = decode(x_owner, 'SEED', 1, 'ORACLE', 2, 'SYSADMIN', 0, -1),