54: X_LAST_UPDATED_BY,
55: X_LAST_UPDATE_LOGIN
56: );
57:
58: insert into IEC_G_CAL_DAYS_TL (
59: DAY_ID,
60: DAY_NAME,
61: CREATED_BY,
62: CREATION_DATE,
78: from FND_LANGUAGES L
79: where L.INSTALLED_FLAG in ('I', 'B')
80: and not exists
81: (select NULL
82: from IEC_G_CAL_DAYS_TL T
83: where T.DAY_ID = X_DAY_ID
84: and T.LANGUAGE = L.LANGUAGE_CODE);
85:
86: open c;
121:
122: cursor c1 is select
123: DAY_NAME,
124: decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
125: from IEC_G_CAL_DAYS_TL
126: where DAY_ID = X_DAY_ID
127: and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
128: for update of DAY_ID nowait;
129: begin
202: if (sql%notfound) then
203: raise no_data_found;
204: end if;
205:
206: update IEC_G_CAL_DAYS_TL set
207: DAY_NAME = X_DAY_NAME,
208: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
209: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
210: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
220: procedure DELETE_ROW (
221: X_DAY_ID in NUMBER
222: ) is
223: begin
224: delete from IEC_G_CAL_DAYS_TL
225: where DAY_ID = X_DAY_ID;
226:
227: if (sql%notfound) then
228: raise no_data_found;
238:
239: procedure ADD_LANGUAGE
240: is
241: begin
242: delete from IEC_G_CAL_DAYS_TL T
243: where not exists
244: (select NULL
245: from IEC_G_CAL_DAYS_B B
246: where B.DAY_ID = T.DAY_ID
245: from IEC_G_CAL_DAYS_B B
246: where B.DAY_ID = T.DAY_ID
247: );
248:
249: update IEC_G_CAL_DAYS_TL T set (
250: DAY_NAME
251: ) = (select
252: B.DAY_NAME
253: from IEC_G_CAL_DAYS_TL B
249: update IEC_G_CAL_DAYS_TL T set (
250: DAY_NAME
251: ) = (select
252: B.DAY_NAME
253: from IEC_G_CAL_DAYS_TL B
254: where B.DAY_ID = T.DAY_ID
255: and B.LANGUAGE = T.SOURCE_LANG)
256: where (
257: T.DAY_ID,
258: T.LANGUAGE
259: ) in (select
260: SUBT.DAY_ID,
261: SUBT.LANGUAGE
262: from IEC_G_CAL_DAYS_TL SUBB, IEC_G_CAL_DAYS_TL SUBT
263: where SUBB.DAY_ID = SUBT.DAY_ID
264: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
265: and (SUBB.DAY_NAME <> SUBT.DAY_NAME
266: or (SUBB.DAY_NAME is null and SUBT.DAY_NAME is not null)
266: or (SUBB.DAY_NAME is null and SUBT.DAY_NAME is not null)
267: or (SUBB.DAY_NAME is not null and SUBT.DAY_NAME is null)
268: ));
269:
270: insert into IEC_G_CAL_DAYS_TL (
271: DAY_ID,
272: DAY_NAME,
273: CREATED_BY,
274: CREATION_DATE,
286: B.LAST_UPDATE_DATE,
287: B.LAST_UPDATE_LOGIN,
288: L.LANGUAGE_CODE,
289: B.SOURCE_LANG
290: from IEC_G_CAL_DAYS_TL B, FND_LANGUAGES L
291: where L.INSTALLED_FLAG in ('I', 'B')
292: and B.LANGUAGE = userenv('LANG')
293: and not exists
294: (select NULL
291: where L.INSTALLED_FLAG in ('I', 'B')
292: and B.LANGUAGE = userenv('LANG')
293: and not exists
294: (select NULL
295: from IEC_G_CAL_DAYS_TL T
296: where T.DAY_ID = B.DAY_ID
297: and T.LANGUAGE = L.LANGUAGE_CODE);
298: end ADD_LANGUAGE;
299:
362: begin
363:
364: -- only UPDATE rows that have not been altered by user
365:
366: update IEC_G_CAL_DAYS_TL set
367: SOURCE_LANG = userenv('LANG'),
368: DAY_NAME = X_DAY_NAME,
369: LAST_UPDATE_DATE = SYSDATE,
370: LAST_UPDATED_BY = DECODE(X_OWNER, 'SEED', 1, 0),