[Home] [Help]
644:
645: BEGIN
646: SELECT 'Batch name is not unique'
647: INTO l_dummy
648: FROM ap_batches
649: WHERE batch_name = l_batch_name;
650: EXCEPTION
651: WHEN NO_DATA_FOUND THEN
652: l_dummy := 'Unique_Batch';
655: END;
656:
657: IF l_dummy <> 'Unique_Batch' THEN
658:
659: SELECT AP_BATCHES_S2.nextval INTO l_batch_id FROM dual;
660:
661: l_batch_name := l_batch_name || to_char(l_batch_id);
662:
663: END IF;