[Home] [Help]
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;