The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE insertLCM( x_errbuf OUT NOCOPY VARCHAR2
,x_retcode OUT NOCOPY NUMBER) IS
cursor c_rsh_rti is
select *
from rcv_transactions_interface rti
where transaction_status_code = 'PENDING'
and processing_status_code = 'LC_PENDING'
and (transaction_type in ('RECEIVE', 'MATCH') or -- Bug 9109629
(transaction_type ='SHIP' and auto_transact_code in ('RECEIVE','DELIVER'))
)
and source_document_code = 'PO'
and exists ( select 'lcm shipment'
from po_line_locations_all pll
where pll.line_location_id = rti.po_line_location_id
and pll.lcm_flag = 'Y'
)
and shipment_header_id IS NOT NULL
order by shipment_header_id,
ship_to_location_id, -- Bug #9211099
interface_transaction_id;
select *
from rcv_transactions_interface rti
where transaction_status_code = 'PENDING'
and processing_status_code = 'LC_PENDING'
and (transaction_type in ('RECEIVE', 'MATCH') or -- Bug 9109629
(transaction_type ='SHIP' and auto_transact_code in ('RECEIVE','DELIVER'))
)
and source_document_code = 'PO'
and exists ( select 'lcm shipment'
from po_line_locations_all pll
where pll.line_location_id = rti.po_line_location_id
and pll.lcm_flag = 'Y'
)
and shipment_header_id IS NULL
and header_interface_id IS NOT NULL
order by header_interface_id,
ship_to_location_id, -- Bug #9211099
interface_transaction_id;
asn_debug.put_line('Entering RCV_CALL_LCM_WS.insertLCM' || to_char(sysdate,'DD-MON-YYYY HH:MI:SS'));
asn_debug.put_line('No of rows from RSH to be inserted: ' || p_rti_rec.COUNT);
p_rti_rec.delete;
asn_debug.put_line('No of rows from RHI to be inserted: ' || p_rti_rec.COUNT);
END insertLCM;