[Home] [Help]
93: P_Created_By,
94: P_Last_Update_Login,
95: X_Record_Version_Number );
96:
97: Insert Into Pa_Rbs_Versions_TL (
98: Rbs_Version_Id,
99: Name,
100: Description,
101: Creation_Date,
123: And Not Exists
124: (select
125: Null
126: From
127: Pa_Rbs_Versions_TL T
128: Where
129: T.Rbs_Version_Id = X_Rbs_Version_Id
130: and T.Language = L.Language_Code);
131:
195: If Sql%NotFound Then
196: Raise REC_VER_NUM_MISMATCH;
197: End If;
198:
199: Update Pa_Rbs_Versions_TL
200: Set Name = P_Name,
201: Description = P_Description,
202: Last_Update_Date = P_Last_Update_Date,
203: Last_Updated_By = P_Last_Updated_By,
254:
255:
256: Delete
257: From
258: Pa_Rbs_Versions_TL
259: Where
260: Rbs_Version_Id = P_Rbs_Version_Id;
261:
262: Exception
271:
272: procedure ADD_LANGUAGE
273: is
274: begin
275: delete from pa_rbs_versions_tl T
276: where not exists
277: (select NULL
278: from pa_rbs_versions_b B
279: where B.RBS_VERSION_ID = T.RBS_VERSION_ID
278: from pa_rbs_versions_b B
279: where B.RBS_VERSION_ID = T.RBS_VERSION_ID
280: );
281:
282: update pa_rbs_versions_tl T set (
283: NAME,
284: DESCRIPTION
285: ) = (select
286: B.NAME,
284: DESCRIPTION
285: ) = (select
286: B.NAME,
287: B.DESCRIPTION
288: from pa_rbs_versions_tl b
289: where B.RBS_VERSION_ID = T.RBS_VERSION_ID
290: and B.LANGUAGE = T.SOURCE_LANG)
291: where (
292: T.RBS_VERSION_ID,
293: T.LANGUAGE
294: ) in (select
295: SUBT.RBS_VERSION_ID,
296: SUBT.LANGUAGE
297: from pa_rbs_versions_tl SUBB, pa_rbs_versions_tl SUBT
298: where SUBB.RBS_VERSION_ID = SUBT.RBS_VERSION_ID
299: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
300: and (SUBB.NAME <> SUBT.NAME
301: or SUBB.DESCRIPTION <> SUBT.DESCRIPTION
302: or (SUBB.DESCRIPTION is null and SUBT.DESCRIPTION is not null)
303: or (SUBB.DESCRIPTION is not null and SUBT.DESCRIPTION is null)
304: ));
305:
306: insert into pa_rbs_versions_tl (
307: LAST_UPDATE_LOGIN,
308: CREATION_DATE,
309: CREATED_BY,
310: LAST_UPDATE_DATE,
324: B.NAME,
325: B.DESCRIPTION,
326: L.LANGUAGE_CODE,
327: B.SOURCE_LANG
328: from pa_rbs_versions_tl B, FND_LANGUAGES L
329: where L.INSTALLED_FLAG in ('I', 'B')
330: and B.LANGUAGE = userenv('LANG')
331: and not exists
332: (select NULL
329: where L.INSTALLED_FLAG in ('I', 'B')
330: and B.LANGUAGE = userenv('LANG')
331: and not exists
332: (select NULL
333: from pa_rbs_versions_tl T
334: where T.RBS_VERSION_ID = B.RBS_VERSION_ID
335: and T.LANGUAGE = L.LANGUAGE_CODE);
336: end ADD_LANGUAGE;
337: