92: X_LAST_UPDATED_BY,
93: X_LAST_UPDATE_LOGIN
94: );
95:
96: insert into PRP_COMPONENT_STYLES_TL (
97: COMPONENT_STYLE_ID,
98: COMPONENT_STYLE_NAME,
99: CREATED_BY,
100: CREATION_DATE,
116: from FND_LANGUAGES L
117: where L.INSTALLED_FLAG in ('I', 'B')
118: and not exists
119: (select NULL
120: from PRP_COMPONENT_STYLES_TL T
121: where T.COMPONENT_STYLE_ID = X_COMPONENT_STYLE_ID
122: and T.LANGUAGE = L.LANGUAGE_CODE);
123:
124: open c;
185:
186: cursor c1 is select
187: COMPONENT_STYLE_NAME,
188: decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
189: from PRP_COMPONENT_STYLES_TL
190: where COMPONENT_STYLE_ID = X_COMPONENT_STYLE_ID
191: and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
192: for update of COMPONENT_STYLE_ID nowait;
193: begin
320: if (sql%notfound) then
321: raise no_data_found;
322: end if;
323:
324: update PRP_COMPONENT_STYLES_TL set
325: COMPONENT_STYLE_NAME = X_COMPONENT_STYLE_NAME,
326: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
327: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
328: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
338: procedure DELETE_ROW (
339: X_COMPONENT_STYLE_ID in NUMBER
340: ) is
341: begin
342: delete from PRP_COMPONENT_STYLES_TL
343: where COMPONENT_STYLE_ID = X_COMPONENT_STYLE_ID;
344:
345: if (sql%notfound) then
346: raise no_data_found;
356:
357: procedure ADD_LANGUAGE
358: is
359: begin
360: delete from PRP_COMPONENT_STYLES_TL T
361: where not exists
362: (select NULL
363: from PRP_COMPONENT_STYLES_B B
364: where B.COMPONENT_STYLE_ID = T.COMPONENT_STYLE_ID
363: from PRP_COMPONENT_STYLES_B B
364: where B.COMPONENT_STYLE_ID = T.COMPONENT_STYLE_ID
365: );
366:
367: update PRP_COMPONENT_STYLES_TL T set (
368: COMPONENT_STYLE_NAME
369: ) = (select
370: B.COMPONENT_STYLE_NAME
371: from PRP_COMPONENT_STYLES_TL B
367: update PRP_COMPONENT_STYLES_TL T set (
368: COMPONENT_STYLE_NAME
369: ) = (select
370: B.COMPONENT_STYLE_NAME
371: from PRP_COMPONENT_STYLES_TL B
372: where B.COMPONENT_STYLE_ID = T.COMPONENT_STYLE_ID
373: and B.LANGUAGE = T.SOURCE_LANG)
374: where (
375: T.COMPONENT_STYLE_ID,
376: T.LANGUAGE
377: ) in (select
378: SUBT.COMPONENT_STYLE_ID,
379: SUBT.LANGUAGE
380: from PRP_COMPONENT_STYLES_TL SUBB, PRP_COMPONENT_STYLES_TL SUBT
381: where SUBB.COMPONENT_STYLE_ID = SUBT.COMPONENT_STYLE_ID
382: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
383: and (SUBB.COMPONENT_STYLE_NAME <> SUBT.COMPONENT_STYLE_NAME
384: ));
382: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
383: and (SUBB.COMPONENT_STYLE_NAME <> SUBT.COMPONENT_STYLE_NAME
384: ));
385:
386: insert into PRP_COMPONENT_STYLES_TL (
387: COMPONENT_STYLE_ID,
388: COMPONENT_STYLE_NAME,
389: CREATED_BY,
390: CREATION_DATE,
402: B.LAST_UPDATE_DATE,
403: B.LAST_UPDATE_LOGIN,
404: L.LANGUAGE_CODE,
405: B.SOURCE_LANG
406: from PRP_COMPONENT_STYLES_TL B, FND_LANGUAGES L
407: where L.INSTALLED_FLAG in ('I', 'B')
408: and B.LANGUAGE = userenv('LANG')
409: and not exists
410: (select NULL
407: where L.INSTALLED_FLAG in ('I', 'B')
408: and B.LANGUAGE = userenv('LANG')
409: and not exists
410: (select NULL
411: from PRP_COMPONENT_STYLES_TL T
412: where T.COMPONENT_STYLE_ID = B.COMPONENT_STYLE_ID
413: and T.LANGUAGE = L.LANGUAGE_CODE);
414: end ADD_LANGUAGE;
415: