1: PACKAGE BODY INV_SERIAL_PICK_PKG AS
2: /* $Header: INVSNPIB.pls 120.3 2008/06/26 08:34:09 ksivasa ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'INV_SERIAL_PICK_PKG';
5:
1: PACKAGE BODY INV_SERIAL_PICK_PKG AS
2: /* $Header: INVSNPIB.pls 120.3 2008/06/26 08:34:09 ksivasa ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'INV_SERIAL_PICK_PKG';
5:
6: PROCEDURE DEBUG(p_message IN VARCHAR2) IS
7: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
8: BEGIN
1242: WHEN others THEN
1243: x_return_status := fnd_api.g_ret_sts_unexp_error;
1244: END backorder_nonpick_quantity;
1245:
1246: END INV_SERIAL_PICK_PKG;