43: X_LAST_UPDATED_BY,
44: X_LAST_UPDATE_LOGIN
45: );
46:
47: insert into FND_SVC_COMP_TYPES_TL (
48: COMPONENT_TYPE,
49: DISPLAY_NAME,
50: DESCRIPTION,
51: CREATION_DATE,
69: from WF_LANGUAGES L
70: where L.INSTALLED_FLAG = 'Y'
71: and not exists
72: (select NULL
73: from FND_SVC_COMP_TYPES_TL T
74: where T.COMPONENT_TYPE = X_COMPONENT_TYPE
75: and T.LANGUAGE = L.CODE);
76:
77: open c;
110: cursor c1 is select
111: DISPLAY_NAME,
112: DESCRIPTION,
113: decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
114: from FND_SVC_COMP_TYPES_TL
115: where COMPONENT_TYPE = X_COMPONENT_TYPE
116: and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
117: for update of COMPONENT_TYPE nowait;
118: begin
225: if (sql%notfound) then
226: raise no_data_found;
227: end if;
228:
229: update FND_SVC_COMP_TYPES_TL set
230: DISPLAY_NAME = X_DISPLAY_NAME,
231: DESCRIPTION = X_DESCRIPTION,
232: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
233: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
249: procedure DELETE_ROW (
250: X_COMPONENT_TYPE in VARCHAR2
251: ) is
252: begin
253: delete from FND_SVC_COMP_TYPES_TL
254: where COMPONENT_TYPE = X_COMPONENT_TYPE;
255:
256: if (sql%notfound) then
257: raise no_data_found;
272:
273: procedure ADD_LANGUAGE
274: is
275: begin
276: delete from FND_SVC_COMP_TYPES_TL T
277: where not exists
278: (select NULL
279: from FND_SVC_COMP_TYPES_B B
280: where B.COMPONENT_TYPE = T.COMPONENT_TYPE
279: from FND_SVC_COMP_TYPES_B B
280: where B.COMPONENT_TYPE = T.COMPONENT_TYPE
281: );
282:
283: update FND_SVC_COMP_TYPES_TL T set (
284: DISPLAY_NAME,
285: DESCRIPTION
286: ) = (select
287: B.DISPLAY_NAME,
285: DESCRIPTION
286: ) = (select
287: B.DISPLAY_NAME,
288: B.DESCRIPTION
289: from FND_SVC_COMP_TYPES_TL B
290: where B.COMPONENT_TYPE = T.COMPONENT_TYPE
291: and B.LANGUAGE = T.SOURCE_LANG)
292: where (
293: T.COMPONENT_TYPE,
294: T.LANGUAGE
295: ) in (select
296: SUBT.COMPONENT_TYPE,
297: SUBT.LANGUAGE
298: from FND_SVC_COMP_TYPES_TL SUBB, FND_SVC_COMP_TYPES_TL SUBT
299: where SUBB.COMPONENT_TYPE = SUBT.COMPONENT_TYPE
300: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
301: and (SUBB.DISPLAY_NAME <> SUBT.DISPLAY_NAME
302: or SUBB.DESCRIPTION <> SUBT.DESCRIPTION
303: or (SUBB.DESCRIPTION is null and SUBT.DESCRIPTION is not null)
304: or (SUBB.DESCRIPTION is not null and SUBT.DESCRIPTION is null)
305: ));
306:
307: insert into FND_SVC_COMP_TYPES_TL (
308: COMPONENT_TYPE,
309: DISPLAY_NAME,
310: DESCRIPTION,
311: CREATION_DATE,
325: B.LAST_UPDATED_BY,
326: B.LAST_UPDATE_LOGIN,
327: L.CODE,
328: B.SOURCE_LANG
329: from FND_SVC_COMP_TYPES_TL B, WF_LANGUAGES L
330: where L.INSTALLED_FLAG = 'Y'
331: and B.LANGUAGE = userenv('LANG')
332: and not exists
333: (select NULL
330: where L.INSTALLED_FLAG = 'Y'
331: and B.LANGUAGE = userenv('LANG')
332: and not exists
333: (select NULL
334: from FND_SVC_COMP_TYPES_TL T
335: where T.COMPONENT_TYPE = B.COMPONENT_TYPE
336: and T.LANGUAGE = L.CODE);
337: end ADD_LANGUAGE;
338:
401:
402: --
403: -- Only update rows that have not been altered by user
404: --
405: UPDATE FND_SVC_COMP_TYPES_TL
406: SET display_name = X_DISPLAY_NAME,
407: description = X_DESCRIPTION,
408: source_lang = userenv('LANG'),
409: last_update_date = sysdate,