PACKAGE BODY: APPS.OE_SHIPPING_CURRENT_LOC

Source

1 PACKAGE BODY OE_SHIPPING_CURRENT_LOC AS
2 /* $Header: OEXOMWSB.pls 120.0 2005/05/31 23:04:12 appldev noship $ */
3 
4 
5 FUNCTION get_current_location(
6  p_delivery_name	IN	VARCHAR2 DEFAULT NULL,
7  p_tracking_number_dd	IN	VARCHAR2 DEFAULT NULL,
8  p_mode			IN	VARCHAR2 DEFAULT NULL
9 ) RETURN VARCHAR2 IS
10 
11 my_tab WSH_SHIPPING_INFO.Tracking_Info_tab_typ;
12 x_location_name VARCHAR2(50);
13 l_return VARCHAR2(50);
14 begin
15 
16 --WSH_shipping_info.Track_shipment('16103',null,'CURRENT',my_tab,l_return);
17 WSH_shipping_info.Track_shipment(p_delivery_name,p_tracking_number_dd,p_mode,my_tab,l_return);
18 
19 for i in 1..my_tab.COUNT loop
20 
21 x_location_name 	:= my_tab(i).location_name;
22 
23 end loop;
24 
25 return x_location_name;
26 
27 end;
28 
29 END OE_SHIPPING_CURRENT_LOC;