546: syntax_required NUMBER := 0;
547:
548: CURSOR SO_LOCK_RECORDS IS
549: SELECT hold_source_id -- Lock rows to be purged
550: FROM so_hold_sources
551: WHERE hold_source_id = p_source_id
552: FOR UPDATE NOWAIT;
553: BEGIN
554: OPEN SO_LOCK_RECORDS; -- Lock all rows to be purged
553: BEGIN
554: OPEN SO_LOCK_RECORDS; -- Lock all rows to be purged
555: CLOSE SO_LOCK_RECORDS;
556:
557: DELETE FROM so_hold_sources
558: WHERE hold_source_id = p_source_id;
559:
560: RETURN SQLCODE;
561:
565: ROLLBACK;
566: so_record_errors( return_status,
567: p_request_id,
568: p_source_id,
569: 'OEPUR: SO_HOLD_SOURCES',
570: NULL );
571: CLOSE SO_LOCK_RECORDS;
572: RETURN return_status;
573: