1 PACKAGE BODY user_pkg_lot AS
2 /* $Header: INVUDLGB.pls 120.0.12010000.3 2008/10/15 11:49:33 ptkumar ship $ */
3
4 -- OPM Convergence - added parent lot number
5 -- Bug#4145437 - Increased length of uesr lot number.
6
7 FUNCTION generate_lot_number(p_org_id IN NUMBER,
8 p_inventory_item_id IN NUMBER,
9 p_transaction_date IN DATE,
10 p_revision IN VARCHAR2,
11 p_subinventory_code IN VARCHAR2,
12 p_locator_id IN NUMBER,
13 p_transaction_type_id IN NUMBER,
14 p_transaction_action_id IN NUMBER,
15 p_transaction_source_type_id IN NUMBER,
16 p_lot_number IN VARCHAR2,
17 p_parent_lot_number IN VARCHAR2,
18 x_return_status OUT NOCOPY VARCHAR2)
19 RETURN VARCHAR2
20 IS
21 l_user_lot_number VARCHAR2(300);
22 BEGIN
23 x_return_status := FND_API.G_RET_STS_SUCCESS;
24 RETURN (l_user_lot_number);
25 END;
26
27 -- Bug6836808 to allow New Lots Based on custom code
28
29 FUNCTION Allow_New_Lots( p_transaction_type_id IN NUMBER
30 ) RETURN BOOLEAN IS
31 Begin
32 /* Custom code starts for user */
33
34 /* Custom code Ends */
35 RETURN(TRUE);
36 END Allow_New_Lots;
37
38 End user_pkg_lot;