1 PACKAGE RCV_LCM_WEB_SERVICE AS
2 /* $Header: RCVLCMWS.pls 120.0.12010000.3 2008/10/15 17:55:15 vthevark noship $ */
3
4 PROCEDURE Get_Landed_Cost (p_group_id IN NUMBER,p_processing_mode IN VARCHAR2);
5
6 cursor rti_cur(l_group_id IN NUMBER,l_processing_mode IN VARCHAR2) is
7 SELECT distinct rti.lcm_shipment_line_id line_id
8 FROM rcv_transactions_interface rti,
9 mtl_parameters mp
10 WHERE rti.processing_status_code = 'RUNNING'
11 AND rti.transaction_status_code = 'PENDING'
12 AND rti.processing_mode_code = l_processing_mode
13 AND rti.group_id = nvl(l_group_id, group_id)
14 AND mo_global.check_access(rti.org_id) = 'Y'
15 AND rti.source_document_code = 'PO'
16 AND rti.transaction_type NOT IN ('SHIP','RECEIVE', 'ACCEPT','REJECT','TRANSFER','UNORDERED')
17 AND rti.lcm_shipment_line_id IS NOT NULL
18 AND rti.to_organization_id = mp.organization_id
19 AND rti.lcm_shipment_line_id is not null
20 AND mp.lcm_enabled_flag = 'Y'
21 AND EXISTS ( SELECT 'pll is lcm enabled'
22 FROM po_line_locations_all pll
23 WHERE pll.po_line_id = rti.po_line_id
24 AND pll.po_header_id = rti.po_header_id
25 AND pll.line_location_id = rti.po_line_location_id
26 AND pll.lcm_flag = 'Y');
27
28 TYPE rti_cur_table IS table of rti_cur%rowtype;
29
30 END RCV_LCM_WEB_SERVICE;