DBA Data[Home] [Help]

APPS.AMS_DS_TCA_ENTITY_PKG dependencies on AMS_DS_TCA_ENTITY

Line 1: package body AMS_DS_TCA_ENTITY_PKG as

1: package body AMS_DS_TCA_ENTITY_PKG as
2: /* $Header: amsltceb.pls 120.2 2006/06/30 13:18:29 bmuthukr ship $ */
3: procedure INSERT_ROW (
4: X_ROWID in OUT NOCOPY VARCHAR2,
5: X_ENTITY_ID in NUMBER,

Line 15: cursor C is select ROWID from AMS_DS_TCA_ENTITY

11: X_LAST_UPDATE_DATE in DATE,
12: X_LAST_UPDATED_BY in NUMBER,
13: X_LAST_UPDATE_LOGIN in NUMBER
14: ) is
15: cursor C is select ROWID from AMS_DS_TCA_ENTITY
16: where ENTITY_ID = X_ENTITY_ID
17: ;
18: begin
19: insert into AMS_DS_TCA_ENTITY (

Line 19: insert into AMS_DS_TCA_ENTITY (

15: cursor C is select ROWID from AMS_DS_TCA_ENTITY
16: where ENTITY_ID = X_ENTITY_ID
17: ;
18: begin
19: insert into AMS_DS_TCA_ENTITY (
20: ENTITY_ID,
21: ENTITY_NAME,
22: TABLE_NAME,
23: CREATION_DATE,

Line 39: insert into AMS_DS_TCA_ENTITY_TL (

35: X_LAST_UPDATED_BY,
36: X_LAST_UPDATE_LOGIN
37: );
38:
39: insert into AMS_DS_TCA_ENTITY_TL (
40: LAST_UPDATED_BY,
41: ENTITY_ID,
42: LAST_UPDATE_DATE,
43: CREATION_DATE,

Line 63: from AMS_DS_TCA_ENTITY_TL T

59: from FND_LANGUAGES L
60: where L.INSTALLED_FLAG in ('I', 'B')
61: and not exists
62: (select NULL
63: from AMS_DS_TCA_ENTITY_TL T
64: where T.ENTITY_ID = X_ENTITY_ID
65: and T.LANGUAGE = L.LANGUAGE_CODE);
66:
67: open c;

Line 86: from AMS_DS_TCA_ENTITY

82: ) is
83: cursor c is select
84: ENTITY_NAME,
85: TABLE_NAME
86: from AMS_DS_TCA_ENTITY
87: where ENTITY_ID = X_ENTITY_ID
88: for update of ENTITY_ID nowait;
89: recinfo c%rowtype;
90:

Line 94: from AMS_DS_TCA_ENTITY_TL

90:
91: cursor c1 is select
92: DESCRIPTION,
93: decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
94: from AMS_DS_TCA_ENTITY_TL
95: where ENTITY_ID = X_ENTITY_ID
96: and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
97: for update of ENTITY_ID nowait;
98: begin

Line 142: update AMS_DS_TCA_ENTITY set

138: X_LAST_UPDATED_BY in NUMBER,
139: X_LAST_UPDATE_LOGIN in NUMBER
140: ) is
141: begin
142: update AMS_DS_TCA_ENTITY set
143: ENTITY_NAME = X_ENTITY_NAME,
144: TABLE_NAME = X_TABLE_NAME,
145: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
146: LAST_UPDATED_BY = X_LAST_UPDATED_BY,

Line 154: update AMS_DS_TCA_ENTITY_TL set

150: if (sql%notfound) then
151: raise no_data_found;
152: end if;
153:
154: update AMS_DS_TCA_ENTITY_TL set
155: DESCRIPTION = X_DESCRIPTION,
156: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
157: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
158: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,

Line 172: delete from AMS_DS_TCA_ENTITY_TL

168: procedure DELETE_ROW (
169: X_ENTITY_ID in NUMBER
170: ) is
171: begin
172: delete from AMS_DS_TCA_ENTITY_TL
173: where ENTITY_ID = X_ENTITY_ID;
174:
175: if (sql%notfound) then
176: raise no_data_found;

Line 179: delete from AMS_DS_TCA_ENTITY

175: if (sql%notfound) then
176: raise no_data_found;
177: end if;
178:
179: delete from AMS_DS_TCA_ENTITY
180: where ENTITY_ID = X_ENTITY_ID;
181:
182: if (sql%notfound) then
183: raise no_data_found;

Line 211: from AMS_DS_TCA_ENTITY

207: l_db_luby_id number;
208:
209: cursor c_chk_col_exists is
210: select 'x'
211: from AMS_DS_TCA_ENTITY
212: where ENTITY_ID = X_ENTITY_ID;
213:
214: cursor c_get_col_mapping_id is
215: select AMS_DS_TCA_ENTITY_s.nextval

Line 215: select AMS_DS_TCA_ENTITY_s.nextval

211: from AMS_DS_TCA_ENTITY
212: where ENTITY_ID = X_ENTITY_ID;
213:
214: cursor c_get_col_mapping_id is
215: select AMS_DS_TCA_ENTITY_s.nextval
216: from dual;
217:
218: cursor c_get_luby is
219: select last_updated_by

Line 220: from AMS_DS_TCA_ENTITY

216: from dual;
217:
218: cursor c_get_luby is
219: select last_updated_by
220: from AMS_DS_TCA_ENTITY
221: where entity_id = X_ENTITY_ID;
222:
223: BEGIN
224: if X_OWNER = 'SEED' then

Line 244: AMS_DS_TCA_ENTITY_PKG.INSERT_ROW (

240: close c_get_col_mapping_id;
241: else
242: l_colmap_id := X_ENTITY_ID;
243: end if;
244: AMS_DS_TCA_ENTITY_PKG.INSERT_ROW (
245: X_ROWID => l_row_id,
246: X_ENTITY_ID => X_ENTITY_ID,
247: X_ENTITY_NAME => X_ENTITY_NAME,
248: X_TABLE_NAME => X_TABLE_NAME,

Line 268: AMS_DS_TCA_ENTITY_PKG.UPDATE_ROW (

264: then
265:
266: l_colmap_id := X_ENTITY_ID ;
267:
268: AMS_DS_TCA_ENTITY_PKG.UPDATE_ROW (
269: X_ENTITY_ID => X_ENTITY_ID,
270: X_ENTITY_NAME => X_ENTITY_NAME,
271: X_TABLE_NAME => X_TABLE_NAME,
272: X_DESCRIPTION => X_DESCRIPTION,

Line 285: delete from AMS_DS_TCA_ENTITY_TL T

281:
282: procedure ADD_LANGUAGE
283: is
284: begin
285: delete from AMS_DS_TCA_ENTITY_TL T
286: where not exists
287: (select NULL
288: from AMS_DS_TCA_ENTITY B
289: where B.ENTITY_ID= T.ENTITY_ID

Line 288: from AMS_DS_TCA_ENTITY B

284: begin
285: delete from AMS_DS_TCA_ENTITY_TL T
286: where not exists
287: (select NULL
288: from AMS_DS_TCA_ENTITY B
289: where B.ENTITY_ID= T.ENTITY_ID
290: );
291:
292: update AMS_DS_TCA_ENTITY_TL T set (

Line 292: update AMS_DS_TCA_ENTITY_TL T set (

288: from AMS_DS_TCA_ENTITY B
289: where B.ENTITY_ID= T.ENTITY_ID
290: );
291:
292: update AMS_DS_TCA_ENTITY_TL T set (
293: DESCRIPTION
294: ) = (select
295: B.DESCRIPTION
296: from AMS_DS_TCA_ENTITY_TL B

Line 296: from AMS_DS_TCA_ENTITY_TL B

292: update AMS_DS_TCA_ENTITY_TL T set (
293: DESCRIPTION
294: ) = (select
295: B.DESCRIPTION
296: from AMS_DS_TCA_ENTITY_TL B
297: where B.ENTITY_ID= T.ENTITY_ID
298: and B.LANGUAGE = T.SOURCE_LANG)
299: where (
300: T.ENTITY_ID,

Line 305: from AMS_DS_TCA_ENTITY_TL SUBB, AMS_DS_TCA_ENTITY_TL SUBT

301: T.LANGUAGE
302: ) in (select
303: SUBT.ENTITY_ID,
304: SUBT.LANGUAGE
305: from AMS_DS_TCA_ENTITY_TL SUBB, AMS_DS_TCA_ENTITY_TL SUBT
306: where SUBB.ENTITY_ID= SUBT.ENTITY_ID
307: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
308: and (
309: SUBB.DESCRIPTION <> SUBT.DESCRIPTION

Line 314: insert into AMS_DS_TCA_ENTITY_TL (

310: or (SUBB.DESCRIPTION is null and SUBT.DESCRIPTION is not null)
311: or (SUBB.DESCRIPTION is not null and SUBT.DESCRIPTION is null)
312: ));
313:
314: insert into AMS_DS_TCA_ENTITY_TL (
315: LAST_UPDATED_BY,
316: ENTITY_ID,
317: LAST_UPDATE_DATE,
318: CREATION_DATE,

Line 334: from FND_LANGUAGES L, AMS_DS_TCA_ENTITY_TL B

330: B.LAST_UPDATE_LOGIN,
331: B.DESCRIPTION,
332: L.LANGUAGE_CODE,
333: B.SOURCE_LANG
334: from FND_LANGUAGES L, AMS_DS_TCA_ENTITY_TL B
335: where L.INSTALLED_FLAG in ('I', 'B')
336: and B.LANGUAGE = userenv('LANG')
337: and not exists
338: (select NULL

Line 339: from AMS_DS_TCA_ENTITY_TL T

335: where L.INSTALLED_FLAG in ('I', 'B')
336: and B.LANGUAGE = userenv('LANG')
337: and not exists
338: (select NULL
339: from AMS_DS_TCA_ENTITY_TL T
340: where T.ENTITY_ID = B.ENTITY_ID
341: and T.LANGUAGE = L.LANGUAGE_CODE);
342:
343: end ADD_LANGUAGE;

Line 354: FROM AMS_DS_TCA_ENTITY_TL

350: ) IS
351:
352: CURSOR c_last_updated_by IS
353: SELECT last_updated_by
354: FROM AMS_DS_TCA_ENTITY_TL
355: WHERE ENTITY_ID = X_ENTITY_ID
356: AND USERENV('LANG') = LANGUAGE;
357:
358: l_luby number; --last updated by

Line 367: UPDATE AMS_DS_TCA_ENTITY_TL

363: FETCH c_last_updated_by INTO l_luby;
364: CLOSE c_last_updated_by;
365:
366: IF (l_luby IN (0, 1, 2) or NVL(X_CUSTOM_MODE, 'PRESERVE')='FORCE') THEN
367: UPDATE AMS_DS_TCA_ENTITY_TL
368: SET DESCRIPTION = NVL(X_DESCRIPTION, DESCRIPTION),
369: SOURCE_LANG = userenv('LANG'),
370: LAST_UPDATE_DATE = SYSDATE,
371: LAST_UPDATED_BY = decode(x_owner, 'SEED', 1, 'ORACLE', 2, 'SYSADMIN', 0, -1),

Line 378: end AMS_DS_TCA_ENTITY_PKG;

374: AND userenv('LANG') IN (language, source_lang);
375: END IF;
376: END TRANSLATE_ROW;
377:
378: end AMS_DS_TCA_ENTITY_PKG;