249: END IF;
250: EXIT;
251: END IF;
252:
253: -- *************** Purge from WIP_SCRAP_VALUES ************************
254: l_count := 0;
255:
256: FORALL i IN tranid_list.first .. tranid_list.last
257: DELETE FROM WIP_SCRAP_VALUES
253: -- *************** Purge from WIP_SCRAP_VALUES ************************
254: l_count := 0;
255:
256: FORALL i IN tranid_list.first .. tranid_list.last
257: DELETE FROM WIP_SCRAP_VALUES
258: WHERE TRANSACTION_ID = tranid_list(i);
259:
260: l_count := SQL%ROWCOUNT;
261: COMMIT;