[Home] [Help]
1170:
1171: -- Check primary key column
1172: cnt := 0;
1173: select count(*) into cnt
1174: from fnd_primary_key_columns
1175: where application_id = appl_id
1176: and table_id = tab_id
1177: and column_id = col_id;
1178: if (cnt > 0) then
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(
1343: and primary_key_table_id = tab_id
1344: and primary_key_id = pk_id;
1345:
1346: if (cnt = 0) then
1347: delete from fnd_primary_key_columns
1348: where application_id = appl_id
1349: and table_id = tab_id
1350: and primary_key_id = pk_id;
1351:
2515: if (P_NZDT_MODE ='Y')
2516: then
2517: begin
2518: AD_ZD_SEED.PREPARE ('FND_PRIMARY_KEYS');
2519: AD_ZD_SEED.PREPARE ('FND_PRIMARY_KEY_COLUMNS');
2520: end;
2521: end if;
2522:
2523: -- Because Primary Key is in the same entity as Table, no need to validate
2568:
2569: if (x_primary_key_type = 'D' and
2570: MultipleDeveloperKeys(appl_id, tab_id, x_primary_key_name)) then
2571: if(x_overwrite_PK = 'Y') then
2572: delete from FND_PRIMARY_KEY_COLUMNS
2573: where APPLICATION_ID = appl_id
2574: and TABLE_ID = tab_id
2575: and PRIMARY_KEY_ID IN (select PRIMARY_KEY_ID from FND_PRIMARY_KEYS
2576: where APPLICATION_ID = appl_id
2629:
2630: -- Bug3230044 Delete any child records with a negative
2631: -- value for COLUMN_ID.
2632:
2633: delete from FND_PRIMARY_KEY_COLUMNS
2634: where APPLICATION_ID = appl_id
2635: and TABLE_ID = tab_id
2636: and PRIMARY_KEY_ID = pk_id
2637: and COLUMN_ID < 0;
2641: -- and COLUMN_ID values to a negative value in order to
2642: -- prevent unique constraints while processing the
2643: -- PARENT/CHILD entity.
2644:
2645: update FND_PRIMARY_KEY_COLUMNS
2646: set PRIMARY_KEY_SEQUENCE = -1 * PRIMARY_KEY_SEQUENCE,
2647: COLUMN_ID = -1 * COLUMN_ID
2648: where APPLICATION_ID = appl_id
2649: and TABLE_ID = tab_id
2650: and PRIMARY_KEY_ID = pk_id;
2651:
2652: /*Bug3139883 - Handle special case where PRIMARY_KEY_SEQUENCE = 0 */
2653:
2654: update FND_PRIMARY_KEY_COLUMNS
2655: set PRIMARY_KEY_SEQUENCE = -1000
2656: where APPLICATION_ID = appl_id
2657: and TABLE_ID = tab_id
2658: and PRIMARY_KEY_ID = pk_id
2698: -- and the file entity.
2699:
2700: select max(last_update_date)
2701: into child_db_ludate
2702: from fnd_primary_key_columns
2703: where application_id = appl_id
2704: and table_id = tab_id
2705: and primary_key_id = pk_id
2706: and primary_key_sequence < 0
2709: -- Bug3139883 changed select to also include value if primary_key_sequence =0
2710:
2711: select max(last_update_date)
2712: into child_file_ludate
2713: from fnd_primary_key_columns
2714: where application_id = appl_id
2715: and table_id = tab_id
2716: and primary_key_id = pk_id
2717: and PRIMARY_KEY_SEQUENCE >= 0
2732:
2733: -- If any non-seed owners, set owner to user
2734: select max(-1)
2735: into child_db_luby
2736: from fnd_primary_key_columns
2737: where application_id = appl_id
2738: and table_id = tab_id
2739: and primary_key_id = pk_id
2740: and PRIMARY_KEY_SEQUENCE < 0
2747:
2748: -- If any non-seed owners, set owner to user
2749: select max(-1)
2750: into child_file_luby
2751: from fnd_primary_key_columns
2752: where application_id = appl_id
2753: and table_id = tab_id
2754: and primary_key_id = pk_id
2755: and PRIMARY_KEY_SEQUENCE > 0
2766:
2767: -- The new child entity rows from the data file are kept so
2768: -- delete the existing db child entity rows.
2769:
2770: delete from fnd_primary_key_columns
2771: where application_id = appl_id
2772: and table_id = tab_id
2773: and primary_key_id = pk_id
2774: and PRIMARY_KEY_SEQUENCE < 0
2779: -- The existing db child entity rows are kept so delete the new child
2780: -- entity rows from the data file
2781: -- Bug3139883 - Modified delete to include the value column_sequence = 0
2782:
2783: delete from fnd_primary_key_columns
2784: where application_id = appl_id
2785: and table_id = tab_id
2786: and primary_key_id = pk_id
2787: and PRIMARY_KEY_SEQUENCE >= 0
2790: -- Rename the existing db entity rows back to normal since
2791: -- it was not replaced by the new child entity rows
2792: -- from the data file.
2793:
2794: update FND_PRIMARY_KEY_COLUMNS
2795: set PRIMARY_KEY_SEQUENCE = -1 * PRIMARY_KEY_SEQUENCE,
2796: COLUMN_ID = -1 * COLUMN_ID
2797: where APPLICATION_ID = appl_id
2798: and TABLE_ID = tab_id
2799: and PRIMARY_KEY_ID = pk_id;
2800:
2801: /*Bug3139883 - Handle special case where PRIMARY_KEY_SEQUENCE = 0 */
2802:
2803: update FND_PRIMARY_KEY_COLUMNS
2804: set PRIMARY_KEY_SEQUENCE = 0
2805: where APPLICATION_ID = appl_id
2806: and TABLE_ID = tab_id
2807: and PRIMARY_KEY_ID = pk_id
2819: -- Rename the existing db entity rows back to normal since
2820: -- it was not replaced by the new child entity rows
2821: -- from the data file.
2822:
2823: update FND_PRIMARY_KEY_COLUMNS
2824: set PRIMARY_KEY_SEQUENCE = -1 * PRIMARY_KEY_SEQUENCE,
2825: COLUMN_ID = -1 * COLUMN_ID
2826: where APPLICATION_ID = appl_id
2827: and TABLE_ID = tab_id
2828: and PRIMARY_KEY_ID = pk_id;
2829:
2830: /*Bug3139883 - Handle special case where PRIMARY_KEY_SEQUENCE = 0 */
2831:
2832: update FND_PRIMARY_KEY_COLUMNS
2833: set PRIMARY_KEY_SEQUENCE = 0
2834: where APPLICATION_ID = appl_id
2835: and TABLE_ID = tab_id
2836: and PRIMARY_KEY_ID = pk_id
2868: begin
2869: if (P_NZDT_MODE ='Y')
2870: then
2871: begin
2872: AD_ZD_SEED.PREPARE ('FND_PRIMARY_KEY_COLUMNS');
2873: end;
2874: end if;
2875: -- No need to validate/check Application, Table or Primary Key.
2876: -- Within the same entity.
2912: -- primary key columns from the data file to determine which will be
2913: -- updated into the database based on the date and custom factirs.
2914:
2915: begin
2916: insert into FND_PRIMARY_KEY_COLUMNS(
2917: APPLICATION_ID,
2918: TABLE_ID,
2919: PRIMARY_KEY_ID,
2920: COLUMN_ID,