1 PACKAGE BODY INV_MATERIAL_STATUS_HOOK AS
2 /* $Header: INVMSHKB.pls 120.0.12010000.2 2009/04/27 22:51:50 musinha noship $ */
3
4 PROCEDURE validate_rsv_matstatus (p_old_status_id IN mtl_material_statuses.status_id%TYPE,
5 p_new_status_id IN mtl_material_statuses.status_id%TYPE,
6 p_subinventory_code IN mtl_onhand_quantities_detail.subinventory_code%TYPE,
7 p_locator_id IN mtl_onhand_quantities_detail.locator_id%TYPE,
8 p_organization_id IN mtl_secondary_inventories.organization_id%TYPE,
9 p_inventory_item_id IN mtl_onhand_quantities_detail.inventory_item_id%TYPE,
10 p_lot_number IN mtl_onhand_quantities_detail.lot_number%TYPE,
11 x_ret_status IN OUT NOCOPY BOOLEAN) IS
12
13 l_debug NUMBER;
14 BEGIN
15
16 l_debug := NVL (fnd_profile.VALUE ('INV_DEBUG_TRACE'), 0);
17 IF (l_debug = 1) THEN
18 inv_trx_util_pub.TRACE('Entered validate_rsv_matstatus', 'INV_MATERIAL_STATUS_HOOK', 9);
19 IF (x_ret_status) THEN
20 inv_trx_util_pub.TRACE('return status: TRUE', 'INV_MATERIAL_STATUS_HOOK', 9);
21 ELSE
22 inv_trx_util_pub.TRACE('return status: FALSE', 'INV_MATERIAL_STATUS_HOOK', 9);
23 END IF;
24 END IF;
25
26 /* If a custom logic is put then set the x_ret_status accordingly. */
27 ------------------------------------
28
29 ------------------------------------
30
31 IF (l_debug = 1 ) THEN
32 IF (x_ret_status) THEN
33 inv_trx_util_pub.TRACE('return status: TRUE', 'INV_MATERIAL_STATUS_HOOK', 9);
34 ELSE
35 inv_trx_util_pub.TRACE('return status: FALSE', 'INV_MATERIAL_STATUS_HOOK', 9);
36 END IF;
37 inv_trx_util_pub.TRACE('Exiting validate_rsv_matstatus', 'INV_MATERIAL_STATUS_HOOK', 9);
38 END IF;
39
40 EXCEPTION
41 when others then
42 null;
43 END validate_rsv_matstatus;
44
45 END INV_MATERIAL_STATUS_HOOK;