[Home] [Help]
14: l_tmp number;
15: begin
16: select count(*)
17: into l_tmp
18: from FND_PRIMARY_KEYS
19: where APPLICATION_ID = x_application_id
20: and TABLE_ID = x_table_id
21: and PRIMARY_KEY_NAME <> upper(x_primary_key_name)
22: and PRIMARY_KEY_TYPE = 'D';
43: begin
44: begin
45: select P.APPLICATION_ID, P.TABLE_ID, P.PRIMARY_KEY_ID
46: into x_pk_application_id, x_pk_table_id, x_pk_id
47: from FND_PRIMARY_KEYS P,
48: FND_TABLES T,
49: FND_APPLICATION A
50: where A.APPLICATION_SHORT_NAME = x_application_short_name
51: and A.APPLICATION_ID = T.APPLICATION_ID
339: end InsertIndex;
340:
341: --
342: -- InsertPrimaryKey (PRIVATE))
343: -- Add a new primary key into FND_PRIMARY_KEYS.
344: -- This is only called after checking
345: -- there is no such primary key exists in UploadPrimaryKey().
346: --
347: procedure InsertPrimaryKey(
360: ) is
361:
362: begin
363:
364: insert into FND_PRIMARY_KEYS(
365: APPLICATION_ID,
366: TABLE_ID,
367: PRIMARY_KEY_NAME,
368: PRIMARY_KEY_ID,
378: values (
379: x_application_id,
380: x_table_id,
381: x_primary_key_name,
382: FND_PRIMARY_KEYS_S.NEXTVAL,
383: x_primary_key_type,
384: x_audit_key_flag,
385: x_enabled_flag,
386: x_description,
1277: end RemoveIndex;
1278:
1279: --
1280: -- RemovePrimaryKey (PUBLIC)
1281: -- Remove primary key from FND_PRIMARY_KEYS and FND_PRIMARY_KEY_COLUMNS table.
1282: -- Before deleting primary key, make sure that there is no foreign key
1283: -- pointing to this primary key
1284: --
1285: procedure RemovePrimaryKey(
1320:
1321: begin
1322: select primary_key_id
1323: into pk_id
1324: from fnd_primary_keys
1325: where application_id = appl_id
1326: and table_id = tab_id
1327: and primary_key_name = upper(x_primary_key_name);
1328: exception
1327: and primary_key_name = upper(x_primary_key_name);
1328: exception
1329: when no_data_found then
1330: RAISE_APPLICATION_ERROR(
1331: -20001, 'No data found in fnd_primary_keys for primary key name '
1332: || x_primary_key_name , TRUE);
1333: return;
1334: end;
1335:
1348: where application_id = appl_id
1349: and table_id = tab_id
1350: and primary_key_id = pk_id;
1351:
1352: delete from fnd_primary_keys
1353: where application_id = appl_id
1354: and table_id = tab_id
1355: and primary_key_id = pk_id;
1356:
1537: and table_id = tab_id;
1538:
1539: cursor pk is
1540: select primary_key_name
1541: from fnd_primary_keys
1542: where application_id = appl_id
1543: and table_id = tab_id;
1544:
1545: begin
2538: if(x_overwrite_PK = 'Y') then
2539: delete from FND_PRIMARY_KEY_COLUMNS
2540: where APPLICATION_ID = appl_id
2541: and TABLE_ID = tab_id
2542: and PRIMARY_KEY_ID IN (select PRIMARY_KEY_ID from FND_PRIMARY_KEYS
2543: where APPLICATION_ID = appl_id
2544: and TABLE_ID = tab_id
2545: and PRIMARY_KEY_NAME <> upper(x_primary_key_name)
2546: and PRIMARY_KEY_TYPE = 'D'
2544: and TABLE_ID = tab_id
2545: and PRIMARY_KEY_NAME <> upper(x_primary_key_name)
2546: and PRIMARY_KEY_TYPE = 'D'
2547: );
2548: delete from FND_PRIMARY_KEYS
2549: where APPLICATION_ID = appl_id
2550: and TABLE_ID = tab_id
2551: and PRIMARY_KEY_NAME <> upper(x_primary_key_name)
2552: and PRIMARY_KEY_TYPE = 'D';
2571:
2572: begin
2573: select LAST_UPDATED_BY, LAST_UPDATE_DATE
2574: into db_luby, db_ludate
2575: from FND_PRIMARY_KEYS
2576: where APPLICATION_ID = appl_id
2577: and TABLE_ID = tab_id
2578: and PRIMARY_KEY_NAME = x_primary_key_name;
2579:
2580: if (pkmode = 'UPDATE') then
2581:
2582: if (upload_test(f_luby, f_ludate, db_luby,
2583: db_ludate, X_CUSTOM_MODE)) then
2584: update FND_PRIMARY_KEYS set
2585: PRIMARY_KEY_TYPE = x_primary_key_type,
2586: AUDIT_KEY_FLAG = x_audit_key_flag,
2587: ENABLED_FLAG = x_enabled_flag,
2588: DESCRIPTION = x_description,
2843: select T.TABLE_ID into tab_id from FND_TABLES T
2844: where T.APPLICATION_ID = appl_id
2845: and T.TABLE_NAME = x_table_name;
2846:
2847: select P.PRIMARY_KEY_ID into pk_id from FND_PRIMARY_KEYS P
2848: where P.APPLICATION_ID = appl_id
2849: and P.TABLE_ID = tab_id
2850: and P.PRIMARY_KEY_NAME = x_primary_key_name;
2851: