[Home] [Help]
207: END IF;
208:
209: l_progress := 'Delete the LPN-EPC cross reference';
210: FORALL i IN p_lpn_id_table.first..p_lpn_id_table.last
211: DELETE FROM WMS_EPC
212: WHERE lpn_id = p_lpn_id_table(i)
213: AND cross_ref_type = 1;
214:
215: IF ( p_purge_count.exists(5) ) THEN
291: l_purge_count(1) := 0; -- WMS_PACKAGING_HIST
292: l_purge_count(2) := 0; -- WMS_LPN_HISTORIES
293: l_purge_count(3) := 0; -- WMS_LPN_CONTENTS
294: l_purge_count(4) := 0; -- WMS_LICENSE_PLATE_NUMBERS
295: l_purge_count(5) := 0; -- WMS_EPC
296:
297: OPEN LPNS_FOR_PURGE;
298:
299: -- Since we limit the number of LPNs to be purged at once, need to loop
420: FND_MSG_PUB.ADD;
421:
422: FND_MESSAGE.SET_NAME('INV','INV_TOTAL_ROWS');
423: FND_MESSAGE.SET_TOKEN('ROWS', l_purge_count(5));
424: FND_MESSAGE.SET_TOKEN('TABLE','WMS_EPC');
425: FND_MSG_PUB.ADD;
426:
427: END IF; --Added bug#4415994
428: IF ( p_purge_type = TASK OR p_purge_type IS NULL ) THEN
453: END IF;
454:
455: IF ( p_purge_type = EPC OR p_purge_type IS NULL ) THEN
456:
457: delete wms_epc we
458: where creation_date < sysdate --No organization is here
459: AND EXISTS ( SELECT 1 FROM wms_license_plate_numbers wlpn
460: WHERE wlpn.lpn_id = we.lpn_id
461: AND we.cross_ref_type = 1 --LPN-EPC
467: AND msn.current_status = 4 ); --Issue out of store
468:
469: FND_MESSAGE.SET_NAME('INV','INV_TOTAL_ROWS');
470: FND_MESSAGE.SET_TOKEN('ROWS',SQL%ROWCOUNT);
471: FND_MESSAGE.SET_TOKEN('TABLE','WMS_EPC');
472: FND_MSG_PUB.ADD;
473:
474: END IF;
475: