426: retcode,
427: errbuf);
428:
429: if (retcode = G_ERROR) then
430: APP_EXCEPTION.RAISE_EXCEPTION;
431: end if;
432:
433: l_stmt_num := 300;
434: Check_Restrictions(purge_rec.pull_sequence_id,
440: retcode,
441: errbuf);
442:
443: if (retcode = G_ERROR) then
444: APP_EXCEPTION.RAISE_EXCEPTION;
445: else
446: l_records_processed := l_records_processed + 1;
447: if (l_records_processed = G_BATCH) then
448: COMMIT;