[Home] [Help]
16: ) is
17: cursor c is select ROWID from AMS_TCOP_FR_PERIODS_B
18: where PERIOD_ID = X_PERIOD_ID
19: ;
20: cursor ctl is select ROWID from AMS_TCOP_FR_PERIODS_TL
21: where PERIOD_ID = X_PERIOD_ID
22: ;
23: begin
24: insert into AMS_TCOP_FR_PERIODS_B (
50: raise no_data_found;
51: end if;
52: close c;
53:
54: insert into AMS_TCOP_FR_PERIODS_TL (
55: PERIOD_ID,
56: PERIOD_NAME,
57: DESCRIPTION,
58: LANGUAGE,
77: FROM fnd_languages l
78: WHERE l.installed_flag IN ('I', 'B')
79: AND NOT EXISTS
80: (SELECT NULL
81: FROM AMS_TCOP_FR_PERIODS_TL T
82: WHERE T.PERIOD_ID = X_PERIOD_ID
83: AND T.LANGUAGE = l.language_code);
84:
85: open ctl;
122: CURSOR ctl IS SELECT
123: PERIOD_NAME,
124: DESCRIPTION,
125: DECODE(LANGUAGE, USERENV('lang'), 'Y', 'N') baselang
126: FROM AMS_TCOP_FR_PERIODS_TL
127: WHERE PERIOD_ID = X_PERIOD_ID
128: AND USERENV('lang') IN (LANGUAGE, source_lang)
129: FOR UPDATE OF PERIOD_ID NOWAIT;
130:
194: if (sql%notfound) then
195: raise no_data_found;
196: end if;
197:
198: update AMS_TCOP_FR_PERIODS_TL set
199: PERIOD_NAME = X_PERIOD_NAME,
200: DESCRIPTION = X_DESCRIPTION,
201: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
202: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
215: procedure DELETE_ROW (
216: X_PERIOD_ID IN NUMBER
217: ) is
218: begin
219: delete from AMS_TCOP_FR_PERIODS_TL
220: where PERIOD_ID = X_PERIOD_ID;
221:
222: if (sql%notfound) then
223: raise no_data_found;
262: where PERIOD_ID = X_PERIOD_ID;
263:
264: cursor ctl_chk_prd_exists is
265: select 'x'
266: from AMS_TCOP_FR_PERIODS_TL
267: where PERIOD_ID = X_PERIOD_ID;
268:
269: BEGIN
270:
332: X_CUSTOM_MODE IN VARCHAR2
333: ) IS
334: cursor c_last_updated_by is
335: select last_updated_by
336: from AMS_TCOP_FR_PERIODS_TL
337: where PERIOD_ID = X_PERIOD_ID
338: and USERENV('LANG') = LANGUAGE;
339:
340: l_last_updated_by number;
349: if (l_last_updated_by in (1,2,0) OR
350: NVL(x_custom_mode,'PRESERVE')='FORCE') THEN
351: -- Only update rows which have not been altered by user
352:
353: UPDATE AMS_TCOP_FR_PERIODS_TL
354: SET description = X_DESCRIPTION,
355: period_name = X_PERIOD_NAME,
356: source_lang = USERENV('LANG'),
357: last_update_date = SYSDATE,
369:
370: PROCEDURE add_language
371: IS
372: BEGIN
373: DELETE FROM AMS_TCOP_FR_PERIODS_TL T
374: WHERE NOT EXISTS
375: (SELECT NULL
376: FROM AMS_TCOP_FR_PERIODS_B B
377: WHERE B.PERIOD_ID = T.PERIOD_ID
376: FROM AMS_TCOP_FR_PERIODS_B B
377: WHERE B.PERIOD_ID = T.PERIOD_ID
378: );
379:
380: UPDATE AMS_TCOP_FR_PERIODS_TL T SET (
381: PERIOD_NAME,
382: DESCRIPTION
383: ) =
384: (SELECT
383: ) =
384: (SELECT
385: T1.PERIOD_NAME,
386: T1.DESCRIPTION
387: FROM AMS_TCOP_FR_PERIODS_TL T1
388: WHERE T1.PERIOD_ID = T.PERIOD_ID
389: AND T1.LANGUAGE = T.SOURCE_LANG)
390: WHERE (
391: T.PERIOD_ID,
393: ) IN
394: (SELECT
395: subt.PERIOD_ID,
396: subt.LANGUAGE
397: FROM AMS_TCOP_FR_PERIODS_TL subb, AMS_TCOP_FR_PERIODS_TL subt
398: WHERE subb.PERIOD_ID = subt.PERIOD_ID
399: AND subb.LANGUAGE = subt.SOURCE_LANG
400: AND (subb.PERIOD_NAME <> subt.PERIOD_NAME
401: OR subb.DESCRIPTION <> subt.DESCRIPTION
402: OR (subb.DESCRIPTION IS NULL AND subt.DESCRIPTION IS NOT NULL)
403: OR (subb.DESCRIPTION IS NOT NULL AND subt.DESCRIPTION IS NULL)
404: ));
405:
406: INSERT INTO AMS_TCOP_FR_PERIODS_TL (
407: PERIOD_ID,
408: PERIOD_NAME,
409: DESCRIPTION,
410: CREATED_BY,
425: b.LAST_UPDATE_DATE,
426: b.LAST_UPDATE_LOGIN,
427: l.language_code,
428: b.SOURCE_LANG
429: FROM AMS_TCOP_FR_PERIODS_TL b, fnd_languages l
430: WHERE l.installed_flag IN ('I', 'B')
431: AND b.LANGUAGE = USERENV('lang')
432: AND NOT EXISTS
433: (SELECT NULL
430: WHERE l.installed_flag IN ('I', 'B')
431: AND b.LANGUAGE = USERENV('lang')
432: AND NOT EXISTS
433: (SELECT NULL
434: FROM AMS_TCOP_FR_PERIODS_TL T
435: WHERE T.PERIOD_ID = b.PERIOD_ID
436: AND T.LANGUAGE = l.language_code);
437: END add_language;
438: