44: X_LAST_UPDATED_BY,
45: X_LAST_UPDATE_LOGIN
46: );
47:
48: insert into OKC_BUS_DOC_EVENTS_TL (
49: LAST_UPDATE_LOGIN,
50: BUS_DOC_EVENT_ID,
51: SOURCE_LANG,
52: MEANING,
68: from FND_LANGUAGES L
69: where L.INSTALLED_FLAG in ('I', 'B')
70: and not exists
71: (select NULL
72: from OKC_BUS_DOC_EVENTS_TL T
73: where T.BUS_DOC_EVENT_ID = X_BUS_DOC_EVENT_ID
74: and T.LANGUAGE = L.LANGUAGE_CODE);
75:
76: open c;
105:
106: cursor c1 is select
107: MEANING,
108: decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
109: from OKC_BUS_DOC_EVENTS_TL
110: where BUS_DOC_EVENT_ID = X_BUS_DOC_EVENT_ID
111: and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
112: for update of BUS_DOC_EVENT_ID nowait;
113: begin
171: if (sql%notfound) then
172: raise no_data_found;
173: end if;
174:
175: update OKC_BUS_DOC_EVENTS_TL set
176: MEANING = X_MEANING,
177: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
178: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
179: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
190: X_BUS_DOC_EVENT_ID in NUMBER
191: ) is
192: begin
193:
194: delete from OKC_BUS_DOC_EVENTS_TL
195: where BUS_DOC_EVENT_ID = X_BUS_DOC_EVENT_ID;
196:
197: if (sql%notfound) then
198: raise no_data_found;
208:
209: procedure ADD_LANGUAGE
210: is
211: begin
212: delete from OKC_BUS_DOC_EVENTS_TL T
213: where not exists
214: (select NULL
215: from OKC_BUS_DOC_EVENTS_B B
216: where B.BUS_DOC_EVENT_ID = T.BUS_DOC_EVENT_ID
215: from OKC_BUS_DOC_EVENTS_B B
216: where B.BUS_DOC_EVENT_ID = T.BUS_DOC_EVENT_ID
217: );
218:
219: update OKC_BUS_DOC_EVENTS_TL T set (
220: MEANING
221: ) = (select
222: B.MEANING
223: from OKC_BUS_DOC_EVENTS_TL B
219: update OKC_BUS_DOC_EVENTS_TL T set (
220: MEANING
221: ) = (select
222: B.MEANING
223: from OKC_BUS_DOC_EVENTS_TL B
224: where B.BUS_DOC_EVENT_ID = T.BUS_DOC_EVENT_ID
225: and B.LANGUAGE = T.SOURCE_LANG)
226: where (
227: T.BUS_DOC_EVENT_ID,
228: T.LANGUAGE
229: ) in (select
230: SUBT.BUS_DOC_EVENT_ID,
231: SUBT.LANGUAGE
232: from OKC_BUS_DOC_EVENTS_TL SUBB, OKC_BUS_DOC_EVENTS_TL SUBT
233: where SUBB.BUS_DOC_EVENT_ID = SUBT.BUS_DOC_EVENT_ID
234: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
235: and (SUBB.MEANING <> SUBT.MEANING
236: ));
234: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
235: and (SUBB.MEANING <> SUBT.MEANING
236: ));
237:
238: insert into OKC_BUS_DOC_EVENTS_TL (
239: LAST_UPDATE_LOGIN,
240: BUS_DOC_EVENT_ID,
241: SOURCE_LANG,
242: MEANING,
254: B.CREATION_DATE,
255: B.LAST_UPDATED_BY,
256: B.LAST_UPDATE_DATE,
257: L.LANGUAGE_CODE
258: from OKC_BUS_DOC_EVENTS_TL B, FND_LANGUAGES L
259: where L.INSTALLED_FLAG in ('I', 'B')
260: and B.LANGUAGE = userenv('LANG')
261: and not exists
262: (select NULL
259: where L.INSTALLED_FLAG in ('I', 'B')
260: and B.LANGUAGE = userenv('LANG')
261: and not exists
262: (select NULL
263: from OKC_BUS_DOC_EVENTS_TL T
264: where T.BUS_DOC_EVENT_ID = B.BUS_DOC_EVENT_ID
265: and T.LANGUAGE = L.LANGUAGE_CODE);
266: end ADD_LANGUAGE;
267: