[Home] [Help]
392: end InsertPrimaryKey;
393:
394: --
395: -- InsertForeignKey (PRIVATE))
396: -- Add a new foreign key into FND_FOREIGN_KEYS.
397: -- This is only called after checking
398: -- there is no such foreign key exists in UploadForeignKey().
399: --
400: procedure InsertForeignKey(
417: ) is
418:
419: begin
420:
421: insert into FND_FOREIGN_KEYS(
422: APPLICATION_ID,
423: TABLE_ID,
424: FOREIGN_KEY_ID,
425: FOREIGN_KEY_NAME,
438: CREATED_BY)
439: values (
440: x_application_id,
441: x_table_id,
442: FND_FOREIGN_KEYS_S.NEXTVAL,
443: x_foreign_key_name,
444: x_primary_key_application_id,
445: x_primary_key_table_id,
446: x_primary_key_id,
1337: -- pointing to this primary key
1338:
1339: cnt := 0;
1340: select count(*) into cnt
1341: from fnd_foreign_keys
1342: where primary_key_application_id = appl_id
1343: and primary_key_table_id = tab_id
1344: and primary_key_id = pk_id;
1345:
1366: end RemovePrimaryKey;
1367:
1368: --
1369: -- RemoveForeignKey (PUBLIC)
1370: -- Remove foreign key from FND_FOREIGN_KEYS and FND_FOREIGN_KEY_COLUMNS table.
1371: --
1372: procedure RemoveForeignKey(
1373: x_application_short_name in varchar2,
1374: x_table_name in varchar2,
1406:
1407: begin
1408: select foreign_key_id
1409: into fk_id
1410: from fnd_foreign_keys
1411: where application_id = appl_id
1412: and table_id = tab_id
1413: and foreign_key_name = upper(x_foreign_key_name);
1414: exception
1413: and foreign_key_name = upper(x_foreign_key_name);
1414: exception
1415: when no_data_found then
1416: RAISE_APPLICATION_ERROR(
1417: -20001, 'Sql no data found in fnd_foreign_keys for for foreign key name '
1418: || x_foreign_key_name , TRUE);
1419: return;
1420: end;
1421:
1424: where application_id = appl_id
1425: and table_id = tab_id
1426: and foreign_key_id = fk_id;
1427:
1428: delete from fnd_foreign_keys
1429: where application_id = appl_id
1430: and table_id = tab_id
1431: and foreign_key_id = fk_id;
1432:
1531: and table_id = tab_id;
1532:
1533: cursor fk is
1534: select foreign_key_name
1535: from fnd_foreign_keys
1536: where application_id = appl_id
1537: and table_id = tab_id;
1538:
1539: cursor pk is
2988: begin
2989: if (P_NZDT_MODE ='Y')
2990: then
2991: begin
2992: AD_ZD_SEED.PREPARE ('FND_FOREIGN_KEYS');
2993: AD_ZD_SEED.PREPARE ('FND_FOREIGN_KEY_COLUMNS');
2994: end;
2995: end if;
2996: select A.APPLICATION_ID
3028: begin
3029:
3030: select FOREIGN_KEY_ID
3031: into fk_id
3032: from FND_FOREIGN_KEYS
3033: where APPLICATION_ID = appl_id
3034: and TABLE_ID = tab_id
3035: and FOREIGN_KEY_NAME = x_foreign_key_name;
3036:
3035: and FOREIGN_KEY_NAME = x_foreign_key_name;
3036:
3037: select LAST_UPDATED_BY, LAST_UPDATE_DATE
3038: into db_luby, db_ludate
3039: from FND_FOREIGN_KEYS
3040: where APPLICATION_ID = appl_id
3041: and TABLE_ID = tab_id
3042: and FOREIGN_KEY_NAME = x_foreign_key_name;
3043:
3043:
3044: if (upload_test(f_luby, f_ludate, db_luby,
3045: db_ludate, X_CUSTOM_MODE)) then
3046:
3047: update FND_FOREIGN_KEYS set
3048: PRIMARY_KEY_APPLICATION_ID = pk_appl_id,
3049: PRIMARY_KEY_TABLE_ID = pk_tab_id,
3050: PRIMARY_KEY_ID = pk_id,
3051: CASCADE_BEHAVIOR = x_cascade_behavior,
3117: else -- phase_mode = 'END'
3118:
3119: select FOREIGN_KEY_ID
3120: into fk_id
3121: from FND_FOREIGN_KEYS
3122: where APPLICATION_ID = appl_id
3123: and TABLE_ID = tab_id
3124: and FOREIGN_KEY_NAME = x_foreign_key_name;
3125:
3312: select T.TABLE_ID into tab_id from FND_TABLES T
3313: where T.APPLICATION_ID = appl_id
3314: and T.TABLE_NAME = x_table_name;
3315:
3316: select F.FOREIGN_KEY_ID into fk_id from FND_FOREIGN_KEYS F
3317: where F.APPLICATION_ID = appl_id
3318: and F.TABLE_ID = tab_id
3319: and F.FOREIGN_KEY_NAME = x_foreign_key_name;
3320: