5:
6:
7: PROCEDURE mdebug(msg in varchar2) IS
8:
9: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
10: BEGIN
11: -- dbms_output.put_line(msg);
12: null;
13: END;
55: L_TRANSACTION_TYPE_ID NUMBER := 86;
56: L_TRANSACTION_SOURCE_TYPE_ID NUMBER := 13;
57: L_TRANSACTION_ACTION_ID NUMBER := 55;
58:
59: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
60: BEGIN
61:
62: IF P_IS_SERIAL_CONTROLLED = 'Y' THEN
63: L_ONHAND := 1;
313:
314: L_TRANSACTION_TYPE_ID NUMBER := 86;
315: L_TRANSACTION_SOURCE_TYPE_ID NUMBER := 13;
316:
317: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
318: BEGIN
319:
320: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
321:
687: L_QOH NUMBER;
688: L_ATT NUMBER;
689: L_CONTAINERIZED NUMBER;
690:
691: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
692: BEGIN
693:
694: L_PRIMARY_QUANTITY := INV_CONVERT.INV_UM_CONVERT(
695: ITEM_ID => P_INVENTORY_ITEM_ID,