PACKAGE BODY: APPS.PO_CUSTOMERS_SV

Source

1 PACKAGE BODY PO_CUSTOMERS_SV as
2 /* $Header: POXRQCUB.pls 120.1 2006/02/14 12:25:23 dreddy noship $ */
3 /*==========================  po_customers_sv  ============================*/
4 /*===========================================================================
5 
6   PROCEDURE NAME:	get_cust_details
7 
8 ===========================================================================*/
9 
10 PROCEDURE get_cust_details(x_deliver_to_location_id	IN    	NUMBER,
11 			   x_customer_id		IN OUT	NOCOPY NUMBER,
12 			   x_address_id			IN OUT	NOCOPY NUMBER,
13 			   x_site_use_id		IN OUT NOCOPY  NUMBER,
14                            x_source_org_id              IN NUMBER DEFAULT NULL) IS
15 
16 x_progress VARCHAR2(3) := NULL;
17 
18 BEGIN
19 
20    x_progress := '010';
21 
22    SELECT pola.customer_id,
23 	  pola.address_id,
24 	  pola.site_use_id
25    INTO   x_customer_id,
26 	  x_address_id,
27 	  x_site_use_id
28    FROM   po_location_associations_all pola,
29           org_organization_definitions org
30    WHERE  pola.location_id = x_deliver_to_location_id
31    AND    org.organization_id= x_source_org_id  -- bug 5028505
32    AND    org.operating_unit= pola.org_id;      -- bug 5028505
33 
34    EXCEPTION
35    WHEN NO_DATA_FOUND THEN
36       x_customer_id := null;
37       x_address_id  := null;
38       x_site_use_id := null;
39 
40    WHEN OTHERS THEN
41       po_message_s.sql_error('get_cust_details', x_progress, sqlcode);
42    RAISE;
43 
44 END get_cust_details;
45 
46 END po_customers_sv;