205: L_SEEDED_FLAG,
206: 1 -- the first time a record is created, the object_version_number = 1
207: );
208:
209: insert into CSC_PLAN_HEADERS_TL (
210: PLAN_ID,
211: NAME,
212: DESCRIPTION,
213: LANGUAGE,
231: from FND_LANGUAGES L
232: where L.INSTALLED_FLAG in ('I', 'B')
233: and not exists
234: (select NULL
235: from CSC_PLAN_HEADERS_TL T
236: where T.PLAN_ID = PX_PLAN_ID
237: and T.LANGUAGE = L.LANGUAGE_CODE);
238:
239: x_object_version_number := 1;
335: if (sql%notfound) then
336: raise no_data_found;
337: end if;
338:
339: update CSC_PLAN_HEADERS_TL set
340: NAME = P_NAME,
341: DESCRIPTION = P_DESCRIPTION,
342: SOURCE_LANG = userenv('LANG'),
343: LAST_UPDATE_DATE = P_LAST_UPDATE_DATE,
394:
395: cursor c1 is
396: SELECT NAME, DESCRIPTION,
397: DECODE(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
398: FROM CSC_PLAN_HEADERS_TL
399: WHERE PLAN_ID = P_PLAN_ID
400: AND USERENV('LANG') IN (LANGUAGE, SOURCE_LANG)
401: FOR UPDATE OF PLAN_ID NOWAIT;
402: begin
413:
414: PROCEDURE ADD_LANGUAGE
415: is
416: begin
417: delete from CSC_PLAN_HEADERS_TL T
418: where not exists
419: (select NULL
420: from CSC_PLAN_HEADERS_B B
421: where B.PLAN_ID = T.PLAN_ID
420: from CSC_PLAN_HEADERS_B B
421: where B.PLAN_ID = T.PLAN_ID
422: );
423:
424: update CSC_PLAN_HEADERS_TL T set (
425: NAME,
426: DESCRIPTION
427: ) = (select
428: B.NAME,
426: DESCRIPTION
427: ) = (select
428: B.NAME,
429: B.DESCRIPTION
430: from CSC_PLAN_HEADERS_TL B
431: where B.PLAN_ID = T.PLAN_ID
432: and B.LANGUAGE = T.SOURCE_LANG)
433: where (
434: T.PLAN_ID,
435: T.LANGUAGE
436: ) in (select
437: SUBT.PLAN_ID,
438: SUBT.LANGUAGE
439: from CSC_PLAN_HEADERS_TL SUBB, CSC_PLAN_HEADERS_TL SUBT
440: where SUBB.PLAN_ID = SUBT.PLAN_ID
441: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
442: and (SUBB.NAME <> SUBT.NAME
443: or SUBB.DESCRIPTION <> SUBT.DESCRIPTION
444: or (SUBB.DESCRIPTION is null and SUBT.DESCRIPTION is not null)
445: or (SUBB.DESCRIPTION is not null and SUBT.DESCRIPTION is null)
446: ));
447:
448: insert into CSC_PLAN_HEADERS_TL (
449: CREATION_DATE,
450: LAST_UPDATE_DATE,
451: CREATED_BY,
452: LAST_UPDATED_BY,
466: B.NAME,
467: B.DESCRIPTION,
468: L.LANGUAGE_CODE,
469: B.SOURCE_LANG
470: from CSC_PLAN_HEADERS_TL B, FND_LANGUAGES L
471: where L.INSTALLED_FLAG in ('I', 'B')
472: and B.LANGUAGE = userenv('LANG')
473: and not exists
474: (select NULL
471: where L.INSTALLED_FLAG in ('I', 'B')
472: and B.LANGUAGE = userenv('LANG')
473: and not exists
474: (select NULL
475: from CSC_PLAN_HEADERS_TL T
476: where T.PLAN_ID = B.PLAN_ID
477: and T.LANGUAGE = L.LANGUAGE_CODE);
478: end ADD_LANGUAGE;
479:
483: p_description IN VARCHAR2,
484: p_owner IN VARCHAR2)
485: IS
486: BEGIN
487: UPDATE csc_plan_headers_tl
488: SET name = p_name,
489: description = NVL(p_description,description),
490: last_update_date = sysdate,
491: last_updated_by = fnd_load_util.owner_id(p_owner), /* R12 ATG Project: Removed the decode logic and using FND API*/