46: X_LAST_UPDATED_BY,
47: X_LAST_UPDATE_LOGIN
48: );
49:
50: insert into QP_PARAMETERS_TL (
51: PARAMETER_ID,
52: PARAMETER_NAME,
53: DESCRIPTION,
54: CREATION_DATE,
72: from FND_LANGUAGES L
73: where L.INSTALLED_FLAG in ('I', 'B')
74: and not exists
75: (select NULL
76: from QP_PARAMETERS_TL T
77: where T.PARAMETER_ID = X_PARAMETER_ID
78: and T.LANGUAGE = L.LANGUAGE_CODE);
79:
80: open c;
115: cursor c1 is select
116: PARAMETER_NAME,
117: DESCRIPTION,
118: decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
119: from QP_PARAMETERS_TL
120: where PARAMETER_ID = X_PARAMETER_ID
121: and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
122: for update of PARAMETER_ID nowait;
123: begin
188: if (sql%notfound) then
189: raise no_data_found;
190: end if;
191:
192: update QP_PARAMETERS_TL set
193: PARAMETER_NAME = X_PARAMETER_NAME,
194: DESCRIPTION = X_DESCRIPTION,
195: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
196: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
208: X_PARAMETER_ID in NUMBER
209: ) is
210: begin
211:
212: delete from QP_PARAMETERS_TL
213: where PARAMETER_ID = X_PARAMETER_ID;
214:
215: if (sql%notfound) then
216: raise no_data_found;
234:
235: procedure ADD_LANGUAGE
236: is
237: begin
238: delete from QP_PARAMETERS_TL T
239: where not exists
240: (select NULL
241: from QP_PARAMETERS_B B
242: where B.PARAMETER_ID = T.PARAMETER_ID
241: from QP_PARAMETERS_B B
242: where B.PARAMETER_ID = T.PARAMETER_ID
243: );
244:
245: update QP_PARAMETERS_TL T set (
246: PARAMETER_NAME,
247: DESCRIPTION
248: ) = (select
249: B.PARAMETER_NAME,
247: DESCRIPTION
248: ) = (select
249: B.PARAMETER_NAME,
250: B.DESCRIPTION
251: from QP_PARAMETERS_TL B
252: where B.PARAMETER_ID = T.PARAMETER_ID
253: and B.LANGUAGE = T.SOURCE_LANG)
254: where (
255: T.PARAMETER_ID,
256: T.LANGUAGE
257: ) in (select
258: SUBT.PARAMETER_ID,
259: SUBT.LANGUAGE
260: from QP_PARAMETERS_TL SUBB, QP_PARAMETERS_TL SUBT
261: where SUBB.PARAMETER_ID = SUBT.PARAMETER_ID
262: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
263: and (SUBB.PARAMETER_NAME <> SUBT.PARAMETER_NAME
264: or SUBB.DESCRIPTION <> SUBT.DESCRIPTION
265: or (SUBB.DESCRIPTION is null and SUBT.DESCRIPTION is not null)
266: or (SUBB.DESCRIPTION is not null and SUBT.DESCRIPTION is null)
267: ));
268:
269: insert into QP_PARAMETERS_TL (
270: PARAMETER_ID,
271: PARAMETER_NAME,
272: DESCRIPTION,
273: CREATION_DATE,
287: B.LAST_UPDATED_BY,
288: B.LAST_UPDATE_LOGIN,
289: L.LANGUAGE_CODE,
290: B.SOURCE_LANG
291: from QP_PARAMETERS_TL B, FND_LANGUAGES L
292: where L.INSTALLED_FLAG in ('I', 'B')
293: and B.LANGUAGE = userenv('LANG')
294: and not exists
295: (select NULL
292: where L.INSTALLED_FLAG in ('I', 'B')
293: and B.LANGUAGE = userenv('LANG')
294: and not exists
295: (select NULL
296: from QP_PARAMETERS_TL T
297: where T.PARAMETER_ID = B.PARAMETER_ID
298: and T.LANGUAGE = L.LANGUAGE_CODE);
299: end ADD_LANGUAGE;
300: