66: X_PROGRAM_APPLICATION_ID,
67: X_PROGRAM_UPDATE_DATE
68: );
69:
70: insert into AMS_ATTB_LOV_TL (
71: CREATION_DATE,
72: CREATED_BY,
73: LAST_UPDATE_LOGIN,
74: ATTB_LOV_NAME,
92: from FND_LANGUAGES L
93: where L.INSTALLED_FLAG in ('I', 'B')
94: and not exists
95: (select NULL
96: from AMS_ATTB_LOV_TL T
97: where T.ATTB_LOV_ID = X_ATTB_LOV_ID
98: and T.LANGUAGE = L.LANGUAGE_CODE);
99:
100: open c;
142: cursor c1 is select
143: ATTB_LOV_NAME,
144: DESCRIPTION,
145: decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
146: from AMS_ATTB_LOV_TL
147: where ATTB_LOV_ID = X_ATTB_LOV_ID
148: and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
149: for update of ATTB_LOV_ID nowait;
150: begin
236: if (sql%notfound) then
237: raise no_data_found;
238: end if;
239:
240: update AMS_ATTB_LOV_TL set
241: ATTB_LOV_NAME = X_ATTB_LOV_NAME,
242: DESCRIPTION = X_DESCRIPTION,
243: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
244: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
255: procedure DELETE_ROW (
256: X_ATTB_LOV_ID in NUMBER
257: ) is
258: begin
259: delete from AMS_ATTB_LOV_TL
260: where ATTB_LOV_ID = X_ATTB_LOV_ID;
261:
262: if (sql%notfound) then
263: raise no_data_found;
392:
393: procedure ADD_LANGUAGE
394: is
395: begin
396: delete from AMS_ATTB_LOV_TL T
397: where not exists
398: (select NULL
399: from AMS_ATTB_LOV_B B
400: where B.ATTB_LOV_ID = T.ATTB_LOV_ID
399: from AMS_ATTB_LOV_B B
400: where B.ATTB_LOV_ID = T.ATTB_LOV_ID
401: );
402:
403: update AMS_ATTB_LOV_TL T set (
404: ATTB_LOV_NAME,
405: DESCRIPTION
406: ) = (select
407: B.ATTB_LOV_NAME,
405: DESCRIPTION
406: ) = (select
407: B.ATTB_LOV_NAME,
408: B.DESCRIPTION
409: from AMS_ATTB_LOV_TL B
410: where B.ATTB_LOV_ID = T.ATTB_LOV_ID
411: and B.LANGUAGE = T.SOURCE_LANG)
412: where (
413: T.ATTB_LOV_ID,
414: T.LANGUAGE
415: ) in (select
416: SUBT.ATTB_LOV_ID,
417: SUBT.LANGUAGE
418: from AMS_ATTB_LOV_TL SUBB, AMS_ATTB_LOV_TL SUBT
419: where SUBB.ATTB_LOV_ID = SUBT.ATTB_LOV_ID
420: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
421: and (SUBB.ATTB_LOV_NAME <> SUBT.ATTB_LOV_NAME
422: or SUBB.DESCRIPTION <> SUBT.DESCRIPTION
423: or (SUBB.DESCRIPTION is null and SUBT.DESCRIPTION is not null)
424: or (SUBB.DESCRIPTION is not null and SUBT.DESCRIPTION is null)
425: ));
426:
427: insert into AMS_ATTB_LOV_TL (
428: CREATION_DATE,
429: CREATED_BY,
430: LAST_UPDATE_LOGIN,
431: ATTB_LOV_NAME,
445: B.LAST_UPDATE_DATE,
446: B.LAST_UPDATED_BY,
447: L.LANGUAGE_CODE,
448: B.SOURCE_LANG
449: from AMS_ATTB_LOV_TL B, FND_LANGUAGES L
450: where L.INSTALLED_FLAG in ('I', 'B')
451: and B.LANGUAGE = userenv('LANG')
452: and not exists
453: (select NULL
450: where L.INSTALLED_FLAG in ('I', 'B')
451: and B.LANGUAGE = userenv('LANG')
452: and not exists
453: (select NULL
454: from AMS_ATTB_LOV_TL T
455: where T.ATTB_LOV_ID = B.ATTB_LOV_ID
456: and T.LANGUAGE = L.LANGUAGE_CODE);
457: end ADD_LANGUAGE;
458: procedure TRANSLATE_ROW(
465: ) is
466:
467: cursor c_last_updated_by is
468: select last_updated_by
469: from AMS_ATTB_LOV_TL
470: where ATTB_LOV_ID = X_ATTB_LOV_ID
471: and USERENV('LANG') = LANGUAGE;
472:
473: l_luby number; --last updated by
481:
482: if (l_luby IN (0, 1, 2) or NVL(x_custom_mode, 'PRESERVE')='FORCE')
483: then
484:
485: update AMS_ATTB_LOV_TL set
486: ATTB_LOV_NAME= nvl(X_ATTB_LOV_NAME, ATTB_LOV_NAME),
487: description = nvl(x_description, description),
488: source_lang = userenv('LANG'),
489: last_update_date = sysdate,