[Home] [Help]
394: join to ALL_SEQUENCES -- instead we now call this routine at the PRE-INSERT
395: trigger of the define form for each record inserted. Thus we can pass the
396: new db_sequence_name and initial_value and create the DB Seq directly. The
397: only bad effect of calling from PRE-INSERT is that if something wierd happens
398: and the commit fails and AD_DDL does not the DB Seq has still been created,
399: this will not cause any functional problems since the call to create the name
400: is called before this call - FND_DOCUMENT_SEQUENCES_S.nextval has already been
401: fired and a duplicate name will not be generated - we do have an unused DB Seq
402: hanging around, but the odds of this happing are low since this the last thing
417: WHERE fpi.application_id = fa.application_id
418: AND fpi.oracle_id = fou.oracle_id
419: AND fa.application_short_name = 'FND';
420:
421: -- actually create the DB seq using the magic of AD_DDL
422: v_stage := 1;
423: v_ddl_sql := 'CREATE SEQUENCE ' || db_seq_name ||
424: ' MINVALUE 1 NOMAXVALUE START WITH ' || init_value ||
425: ' NOCACHE ORDER NOCYCLE';
422: v_stage := 1;
423: v_ddl_sql := 'CREATE SEQUENCE ' || db_seq_name ||
424: ' MINVALUE 1 NOMAXVALUE START WITH ' || init_value ||
425: ' NOCACHE ORDER NOCYCLE';
426: ad_ddl.do_ddl( v_fnd_schema, 'FND', ad_ddl.create_sequence,
427: v_ddl_sql, db_seq_name );
428:
429: exception
430: when others then
435: fnd_message.set_token('ERRFILE', 'AFSQNUMB.pls', FALSE);
436: IF v_stage = 0 THEN
437: fnd_message.set_token('SQLSTMT', 'SELECT fou.oracle_username into v_fnd_schema ...', FALSE);
438: ELSE
439: fnd_message.set_token('SQLSTMT', ad_ddl.error_buf, FALSE);
440: END IF;
441: app_exception.raise_exception;
442:
443: end create_db_seq;