74: --
75:
76: BEGIN
77: PER_RIC_PKG.chk_integrity (
78: p_entity_name => 'PER_CAGR_APIS_TL',
79: p_ref_entity => 'PER_CAGR_APIS',
80: p_ref_column_name => 'CAGR_API_ID',
81: p_ref_col_value_number => X_CAGR_API_ID,
82: p_ref_col_value_varchar => NULL,
87: --
88: -- Code Ends Here.
89: --
90:
91: insert into PER_CAGR_APIS_TL (
92: LAST_UPDATE_DATE,
93: LAST_UPDATED_BY,
94: CAGR_API_ID,
95: API_NAME,
111: from FND_LANGUAGES L
112: where L.INSTALLED_FLAG in ('I', 'B')
113: and not exists
114: (select NULL
115: from PER_CAGR_APIS_TL T
116: where T.CAGR_API_ID = X_CAGR_API_ID
117: and T.LANGUAGE = L.LANGUAGE_CODE);
118:
119: open c;
140: X_CAGR_API_ID
141: );
142:
143:
144: update per_cagr_apis_tl set
145: api_name = X_API_NAME,
146: last_update_date = sysdate,
147: last_updated_by = decode(X_OWNER, 'SEED', 1, 0),
148: last_update_login = 0,
220:
221: cursor c1 is select
222: API_NAME,
223: decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
224: from PER_CAGR_APIS_TL
225: where CAGR_API_ID = X_CAGR_API_ID
226: and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
227: for update of CAGR_API_ID nowait;
228: begin
278: if (sql%notfound) then
279: raise no_data_found;
280: end if;
281:
282: update PER_CAGR_APIS_TL set
283: API_NAME = X_API_NAME,
284: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
285: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
286: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
296: procedure DELETE_ROW (
297: X_CAGR_API_ID in NUMBER
298: ) is
299: begin
300: delete from PER_CAGR_APIS_TL
301: where CAGR_API_ID = X_CAGR_API_ID;
302:
303: if (sql%notfound) then
304: raise no_data_found;
310:
311: BEGIN
312: PER_RIC_PKG.chk_integrity (
313: p_entity_name => 'PER_CAGR_APIS',
314: p_ref_entity => 'PER_CAGR_APIS_TL',
315: p_ref_column_name => 'CAGR_API_ID',
316: p_ref_col_value_number => X_CAGR_API_ID,
317: p_ref_col_value_varchar => NULL,
318: p_ref_col_value_date => NULL,
332:
333: procedure ADD_LANGUAGE
334: is
335: begin
336: delete from PER_CAGR_APIS_TL T
337: where not exists
338: (select NULL
339: from PER_CAGR_APIS B
340: where B.CAGR_API_ID = T.CAGR_API_ID
339: from PER_CAGR_APIS B
340: where B.CAGR_API_ID = T.CAGR_API_ID
341: );
342:
343: update PER_CAGR_APIS_TL T set (
344: API_NAME
345: ) = (select
346: B.API_NAME
347: from PER_CAGR_APIS_TL B
343: update PER_CAGR_APIS_TL T set (
344: API_NAME
345: ) = (select
346: B.API_NAME
347: from PER_CAGR_APIS_TL B
348: where B.CAGR_API_ID = T.CAGR_API_ID
349: and B.LANGUAGE = T.SOURCE_LANG)
350: where (
351: T.CAGR_API_ID,
352: T.LANGUAGE
353: ) in (select
354: SUBT.CAGR_API_ID,
355: SUBT.LANGUAGE
356: from PER_CAGR_APIS_TL SUBB, PER_CAGR_APIS_TL SUBT
357: where SUBB.CAGR_API_ID = SUBT.CAGR_API_ID
358: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
359: and (SUBB.API_NAME <> SUBT.API_NAME
360: ));
358: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
359: and (SUBB.API_NAME <> SUBT.API_NAME
360: ));
361:
362: insert into PER_CAGR_APIS_TL (
363: LAST_UPDATE_DATE,
364: LAST_UPDATED_BY,
365: CAGR_API_ID,
366: API_NAME,
378: B.CREATED_BY,
379: B.CREATION_DATE,
380: L.LANGUAGE_CODE,
381: B.SOURCE_LANG
382: from PER_CAGR_APIS_TL B, FND_LANGUAGES L
383: where L.INSTALLED_FLAG in ('I', 'B')
384: and B.LANGUAGE = userenv('LANG')
385: and not exists
386: (select NULL
383: where L.INSTALLED_FLAG in ('I', 'B')
384: and B.LANGUAGE = userenv('LANG')
385: and not exists
386: (select NULL
387: from PER_CAGR_APIS_TL T
388: where T.CAGR_API_ID = B.CAGR_API_ID
389: and T.LANGUAGE = L.LANGUAGE_CODE);
390: end ADD_LANGUAGE;
391: