[Home] [Help]
1: package body PER_CAGR_APIS_PKG as
2: /* $Header: peapilct.pkb 120.1 2006/06/20 09:24:40 bshukla noship $ */
3:
4: procedure KEY_TO_IDS (
5: X_API_NAME in VARCHAR2,
10: cursor CSR_CAGR_API_NAME (
11: X_API_NAME VARCHAR2
12: ) is
13: select API.CAGR_API_ID
14: from PER_CAGR_APIS API
15: where API.API_NAME = X_API_NAME;
16:
17: cursor CSR_SEQUENCE is
18: select PER_CAGR_APIS_S.nextval
14: from PER_CAGR_APIS API
15: where API.API_NAME = X_API_NAME;
16:
17: cursor CSR_SEQUENCE is
18: select PER_CAGR_APIS_S.nextval
19: from dual;
20:
21: begin
22:
41: X_LAST_UPDATE_DATE in DATE,
42: X_LAST_UPDATED_BY in NUMBER,
43: X_LAST_UPDATE_LOGIN in NUMBER
44: ) is
45: cursor C is select ROWID from PER_CAGR_APIS
46: where CAGR_API_ID = X_CAGR_API_ID
47: ;
48: begin
49: insert into PER_CAGR_APIS (
45: cursor C is select ROWID from PER_CAGR_APIS
46: where CAGR_API_ID = X_CAGR_API_ID
47: ;
48: begin
49: insert into PER_CAGR_APIS (
50: OBJECT_VERSION_NUMBER,
51: CATEGORY_NAME,
52: API_NAME,
53: CAGR_API_ID,
67: X_LAST_UPDATED_BY,
68: X_LAST_UPDATE_LOGIN
69: );
70:
71: insert into PER_CAGR_APIS_TL (
72: LAST_UPDATE_DATE,
73: LAST_UPDATED_BY,
74: CAGR_API_ID,
75: API_NAME,
91: from FND_LANGUAGES L
92: where L.INSTALLED_FLAG in ('I', 'B')
93: and not exists
94: (select NULL
95: from PER_CAGR_APIS_TL T
96: where T.CAGR_API_ID = X_CAGR_API_ID
97: and T.LANGUAGE = L.LANGUAGE_CODE);
98:
99: open c;
120: X_CAGR_API_ID
121: );
122:
123:
124: update per_cagr_apis_tl set
125: api_name = X_API_NAME,
126: last_update_date = sysdate,
127: last_updated_by = decode(X_OWNER, 'SEED', 1, 0),
128: last_update_login = 0,
155: else
156: user_id := 0;
157: end if;
158:
159: PER_CAGR_APIS_PKG.UPDATE_ROW (
160: X_CAGR_API_ID => X_CAGR_API_ID,
161: X_OBJECT_VERSION_NUMBER => X_OBJECT_VERSION_NUMBER,
162: X_CATEGORY_NAME => X_CATEGORY_NAME,
163: X_API_NAME => X_API_NAME,
168: exception
169: when NO_DATA_FOUND then
170:
171:
172: PER_CAGR_APIS_PKG.INSERT_ROW(
173: X_ROWID => X_ROW_ID,
174: X_CAGR_API_ID => X_CAGR_API_ID,
175: X_OBJECT_VERSION_NUMBER => X_OBJECT_VERSION_NUMBER,
176: X_CATEGORY_NAME => X_CATEGORY_NAME,
192: ) is
193: cursor c is select
194: OBJECT_VERSION_NUMBER,
195: CATEGORY_NAME
196: from PER_CAGR_APIS
197: where CAGR_API_ID = X_CAGR_API_ID
198: for update of CAGR_API_ID nowait;
199: recinfo c%rowtype;
200:
200:
201: cursor c1 is select
202: API_NAME,
203: decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
204: from PER_CAGR_APIS_TL
205: where CAGR_API_ID = X_CAGR_API_ID
206: and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
207: for update of CAGR_API_ID nowait;
208: begin
246: X_LAST_UPDATED_BY in NUMBER,
247: X_LAST_UPDATE_LOGIN in NUMBER
248: ) is
249: begin
250: update PER_CAGR_APIS set
251: OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
252: CATEGORY_NAME = X_CATEGORY_NAME,
253: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
254: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
258: if (sql%notfound) then
259: raise no_data_found;
260: end if;
261:
262: update PER_CAGR_APIS_TL set
263: API_NAME = X_API_NAME,
264: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
265: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
266: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
276: procedure DELETE_ROW (
277: X_CAGR_API_ID in NUMBER
278: ) is
279: begin
280: delete from PER_CAGR_APIS_TL
281: where CAGR_API_ID = X_CAGR_API_ID;
282:
283: if (sql%notfound) then
284: raise no_data_found;
283: if (sql%notfound) then
284: raise no_data_found;
285: end if;
286:
287: delete from PER_CAGR_APIS
288: where CAGR_API_ID = X_CAGR_API_ID;
289:
290: if (sql%notfound) then
291: raise no_data_found;
294:
295: procedure ADD_LANGUAGE
296: is
297: begin
298: delete from PER_CAGR_APIS_TL T
299: where not exists
300: (select NULL
301: from PER_CAGR_APIS B
302: where B.CAGR_API_ID = T.CAGR_API_ID
297: begin
298: delete from PER_CAGR_APIS_TL T
299: where not exists
300: (select NULL
301: from PER_CAGR_APIS B
302: where B.CAGR_API_ID = T.CAGR_API_ID
303: );
304:
305: update PER_CAGR_APIS_TL T set (
301: from PER_CAGR_APIS B
302: where B.CAGR_API_ID = T.CAGR_API_ID
303: );
304:
305: update PER_CAGR_APIS_TL T set (
306: API_NAME
307: ) = (select
308: B.API_NAME
309: from PER_CAGR_APIS_TL B
305: update PER_CAGR_APIS_TL T set (
306: API_NAME
307: ) = (select
308: B.API_NAME
309: from PER_CAGR_APIS_TL B
310: where B.CAGR_API_ID = T.CAGR_API_ID
311: and B.LANGUAGE = T.SOURCE_LANG)
312: where (
313: T.CAGR_API_ID,
314: T.LANGUAGE
315: ) in (select
316: SUBT.CAGR_API_ID,
317: SUBT.LANGUAGE
318: from PER_CAGR_APIS_TL SUBB, PER_CAGR_APIS_TL SUBT
319: where SUBB.CAGR_API_ID = SUBT.CAGR_API_ID
320: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
321: and (SUBB.API_NAME <> SUBT.API_NAME
322: ));
320: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
321: and (SUBB.API_NAME <> SUBT.API_NAME
322: ));
323:
324: insert into PER_CAGR_APIS_TL (
325: LAST_UPDATE_DATE,
326: LAST_UPDATED_BY,
327: CAGR_API_ID,
328: API_NAME,
340: B.CREATED_BY,
341: B.CREATION_DATE,
342: L.LANGUAGE_CODE,
343: B.SOURCE_LANG
344: from PER_CAGR_APIS_TL B, FND_LANGUAGES L
345: where L.INSTALLED_FLAG in ('I', 'B')
346: and B.LANGUAGE = userenv('LANG')
347: and not exists
348: (select NULL
345: where L.INSTALLED_FLAG in ('I', 'B')
346: and B.LANGUAGE = userenv('LANG')
347: and not exists
348: (select NULL
349: from PER_CAGR_APIS_TL T
350: where T.CAGR_API_ID = B.CAGR_API_ID
351: and T.LANGUAGE = L.LANGUAGE_CODE);
352: end ADD_LANGUAGE;
353:
351: and T.LANGUAGE = L.LANGUAGE_CODE);
352: end ADD_LANGUAGE;
353:
354:
355: end PER_CAGR_APIS_PKG;