1 PACKAGE BODY INV_DETAIL_SERIAL_PUB AS
2 /* $Header: INVSRSTB.pls 115.0 2003/11/25 20:47:36 jsheu noship $ */
3
4 -- Global constant holding the package name
5 g_pkg_name CONSTANT VARCHAR2(30) := 'INV_DETAIL_SERIAL_PUB';
6 g_pkg_version CONSTANT VARCHAR2(100) := '$Header: INVSRSTB.pls 115.0 2003/11/25 20:47:36 jsheu noship $';
7
8 PROCEDURE Get_User_Serial_Numbers (
9 x_return_status OUT NOCOPY VARCHAR2
10 , x_msg_count OUT NOCOPY NUMBER
11 , x_msg_data OUT NOCOPY VARCHAR2
12 , p_organization_id IN NUMBER
13 , p_inventory_item_id IN NUMBER
14 , p_revision IN VARCHAR2
15 , p_lot_number IN VARCHAR2
16 , p_subinventory_code IN VARCHAR2
17 , p_locator_id IN NUMBER
18 , p_required_sl_qty IN NUMBER
19 , p_from_range IN VARCHAR2
20 , p_to_range IN VARCHAR2
21 , p_unit_number IN VARCHAR2
22 , p_cost_group_id IN NUMBER
23 , p_transaction_type_id IN NUMBER
24 , p_demand_source_type_id IN NUMBER
25 , p_demand_source_header_id IN NUMBER
26 , p_demand_source_line_id IN NUMBER
27 , x_serial_numbers OUT NOCOPY INV_DETAIL_UTIL_PVT.G_SERIAL_ROW_TABLE_REC
28 ) IS
29 BEGIN
30 -- Initialize API return status to success
31 x_return_status := fnd_api.g_ret_sts_success;
32
33 EXCEPTION
34 WHEN OTHERS THEN
35 -- For stub purposes, return success. Should be replaced
36 -- with appropriate error handling when implemented upon
37 x_return_status := fnd_api.g_ret_sts_success;
38 END Get_User_Serial_Numbers;
39
40 END INV_DETAIL_SERIAL_PUB;