[Home] [Help]
457: end InsertForeignKey;
458:
459: --
460: -- InsertSequence (PRIVATE))
461: -- Add a new sequence into FND_SEQUENCES. This is only called after checking
462: -- there is no such sequence exists in UploadSequence().
463: --
464: procedure InsertSequence (
465: x_application_id in number,
478: x_last_updated_by in number,
479: x_last_update_login in number
480: ) is
481: begin
482: insert into FND_SEQUENCES (
483: APPLICATION_ID,
484: SEQUENCE_ID,
485: SEQUENCE_NAME,
486: START_VALUE,
497: CREATION_DATE,
498: CREATED_BY)
499: values (
500: x_application_id,
501: FND_SEQUENCES_S.NEXTVAL,
502: x_sequence_name,
503: x_start_value,
504: x_description,
505: x_increment_by,
1433: end RemoveForeignKey;
1434:
1435: --
1436: -- RemoveSequence (PUBLIC)
1437: -- Remove sequence from FND_SEQUENCES table.
1438: --
1439: procedure RemoveSequence(
1440: x_application_short_name in varchar2,
1441: x_sequence_name in varchar2) is
1453: || x_application_short_name , TRUE);
1454: return;
1455: end;
1456:
1457: delete from fnd_sequences
1458: where application_id = appl_id
1459: and sequence_name = upper(x_sequence_name);
1460: if (SQL%ROWCOUNT = 0) then
1461: RAISE_APPLICATION_ERROR(
1458: where application_id = appl_id
1459: and sequence_name = upper(x_sequence_name);
1460: if (SQL%ROWCOUNT = 0) then
1461: RAISE_APPLICATION_ERROR(
1462: -20001, 'Sql no data found in fnd_sequences for sequence name '
1463: || x_sequence_name , TRUE);
1464: return;
1465: end if;
1466:
3374:
3375: begin
3376: select LAST_UPDATED_BY, LAST_UPDATE_DATE
3377: into db_luby, db_ludate
3378: from FND_SEQUENCES
3379: where APPLICATION_ID = appl_id
3380: and SEQUENCE_NAME = x_sequence_name;
3381:
3382: if (upload_test(f_luby, f_ludate, db_luby,
3383: db_ludate, X_CUSTOM_MODE)) then
3384:
3385:
3386: -- Check if this is a new table or old table
3387: update FND_SEQUENCES set
3388: START_VALUE = x_start_value,
3389: DESCRIPTION = x_description,
3390: INCREMENT_BY = x_increment_by,
3391: MIN_VALUE = x_min_value,