89: LOOP
90: l_progress := '010';
91:
92: IF (g_fnd_debug = 'Y') THEN
93: asn_debug.put_line('Before insert into phr. low = ' || l_range_low || ' high = ' || l_range_high);
94: END IF;
95:
96: --bug3256316
97: --Added NVL() around effective date check.
243:
244: l_progress := '020';
245:
246: IF (g_fnd_debug = 'Y') THEN
247: asn_debug.put_line('Begin deleting rcv. low = ' || l_range_low ||' high = ' || l_range_high);
248: END IF;
249:
250: --SQL What: Delete records from rcv_shipment_lines if the pos
251: -- they associate with are in the purge list
282: RETURNING RSH.shipment_header_id
283: BULK COLLECT INTO l_rsh_ids_tbl;
284:
285: IF (g_fnd_debug = 'Y') THEN
286: asn_debug.put_line('Deleted ' || l_rsh_ids_tbl.COUNT || ' rsh records');
287: END IF;
288:
289: l_progress := '040';
290:
301: RETURNING RT.transaction_id, RT.interface_transaction_id
302: BULK COLLECT INTO l_rt_ids_tbl, l_rti_ids_tbl;
303:
304: IF (g_fnd_debug = 'Y') THEN
305: asn_debug.put_line('Deleted ' || l_rt_ids_tbl.COUNT || ' rt records');
306: END IF;
307:
308: l_progress := '050';
309:
539:
540: l_progress := '000';
541:
542: IF (g_fnd_debug = 'Y') THEN
543: asn_debug.put_line('deleting rcv attachments');
544: END IF;
545:
546: x_return_status := FND_API.G_RET_STS_SUCCESS;
547: