[Home] [Help]
22: , p_level IN NUMBER := 9)
23: IS
24: BEGIN
25: IF g_debug IS NULL THEN
26: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
27: END IF;
28:
29: IF (g_debug = 1) THEN
30: inv_log_util.trace(p_message, p_title, p_level);
60: -- l_total_qty NUMBER := 0; -- not used !!!
61: l_level NUMBER := 1;
62: l_qoh NUMBER := 0;
63: l_sqoh NUMBER := 0; -- invConv change
64: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
65:
66: -- invConv changes begin
67: l_uom_ind VARCHAR2(3);
68: l_lot_ctl NUMBER;
388: l_mmtt_qty_part VARCHAR2(3000);
389: l_mtlt_qty_part VARCHAR2(3000);
390: p_n NUMBER;
391: p_v VARCHAR2(1);
392: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
393:
394: -- invConv changes begin
395: l_onhand_sqty_part VARCHAR2(1000);
396: l_mmtt_sqty_part VARCHAR2(1000);
871: l_last_error_pos NUMBER;
872: l_temp_str VARCHAR2(30);
873: l_err VARCHAR2(240);
874: l_pos NUMBER;
875: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
876: BEGIN
877: l_cursor := dbms_sql.open_cursor;
878: IF (l_debug = 1) THEN
879: inv_log_util.trace('Inside Build Cursor','CONSIGNED_VALIDATIONS',9);
1030: ll_owning_organization_id NUMBER;
1031: --------------------------------------
1032: l_count NUMBER := 0;
1033: l_temp NUMBER := 0;
1034: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1035: BEGIN
1036:
1037: build_cursor
1038: ( x_return_status => l_return_status
1172: , x_is_reservable_sub OUT NOCOPY BOOLEAN
1173: ) IS
1174: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
1175: l_reservable_type NUMBER;
1176: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1177: BEGIN
1178: SELECT reservable_type INTO l_reservable_type
1179: FROM mtl_secondary_inventories
1180: WHERE organization_id = p_organization_id
1252: AND mln.inventory_item_id = item_id
1253: AND mln.organization_id = org_id
1254: AND mln.lot_number = lot;
1255:
1256: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1257:
1258: BEGIN
1259: IF (l_debug = 1) THEN
1260: inv_log_util.trace('in check_is_reservable. node_level='||p_node_level||', subinv='||p_subinventory_code||', loct='||p_locator_id||', lot='||p_lot_number, 'CONSIGNED_VALIDATIONS',9);
1346: -- cache of the global temporary table.
1347: -- This will also delete the cache of the quantity tree
1348: PROCEDURE clear_vmi_cache
1349: IS
1350: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1351: BEGIN
1352: inv_quantity_tree_pub.clear_quantity_cache;
1353: DELETE FROM mtl_consigned_qty_temp;
1354: END clear_vmi_cache;
1481: l_sqs NUMBER; -- invConv change
1482: l_satr NUMBER; -- invConv change
1483: l_satt NUMBER; -- invConv change
1484: l_svcoh NUMBER; -- invConv change
1485: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1486: BEGIN
1487:
1488: IF (l_debug = 1) THEN
1489: debug_print('****** GET_CONSIGNED_QUANTITIES *******','CONSIGNED_VALIDATIONS',9);
1817: -- l_containerized NUMBER; -- not used
1818: -- l_table_count NUMBER := 0; -- not used
1819: -- l_att_vmi NUMBER; -- not used
1820: -- l_new_att_vmi NUMBER; -- not used
1821: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1822: BEGIN
1823:
1824: x_return_status := fnd_api.g_ret_sts_success;
1825:
1980: X_MSG_COUNT OUT NOCOPY NUMBER,
1981: X_MSG_DATA OUT NOCOPY VARCHAR2,
1982: X_CONSUME_CONSIGNED OUT NOCOPY NUMBER,
1983: X_CONSUME_VMI OUT NOCOPY NUMBER) IS
1984: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1985: l_weight NUMBER;
1986: BEGIN
1987:
1988: x_return_status := fnd_api.g_ret_sts_success;
2029: p_item_id IN NUMBER,
2030: p_lpn_id IN NUMBER) RETURN VARCHAR2 IS
2031:
2032: l_pending_txn_cnt NUMBER:=0;
2033: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2034: BEGIN
2035:
2036: IF p_locator_id IS NOT NULL THEN
2037:
2127: ) RETURN NUMBER IS
2128:
2129: l_qoh NUMBER := 0;
2130: l_sqoh NUMBER := NULL;
2131: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2132:
2133: BEGIN
2134: IF (l_debug=1) THEN
2135: inv_log_util.trace('p_include_nonnet: ' || to_char(p_include_nonnet) ||
2191: l_moq_sqty NUMBER := 0; -- invConv change
2192: l_mmtt_sqty_src NUMBER := 0; -- invConv change
2193: l_mmtt_sqty_dest NUMBER := 0; -- invConv change
2194: l_lot_control NUMBER := 1;
2195: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2196: l_lpn_qty NUMBER := 0; -- Bug 4209192
2197: l_default_status_id number:= -1; -- Added for 6633612
2198:
2199: -- invConv changes begin
2922: l_qoh NUMBER := 0;
2923: l_lot_control NUMBER := 1;
2924: l_lpn_qty NUMBER := 0; -- bug 4189319
2925: l_default_status_id NUMBER := -1; /* Added for bug 7193862 */
2926: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2927:
2928: BEGIN
2929: IF (l_debug=1) THEN
2930: inv_log_util.trace
3653: l_mmtt_qty_part VARCHAR2(3000);
3654: l_mtlt_qty_part VARCHAR2(3000);
3655: p_n NUMBER;
3656: p_v VARCHAR2(1);
3657: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3658: BEGIN
3659:
3660:
3661: l_onhand_qty_part := ' moq.primary_transaction_quantity ';
3836: l_last_error_pos NUMBER;
3837: l_temp_str VARCHAR2(30);
3838: l_err VARCHAR2(240);
3839: l_pos NUMBER;
3840: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3841: BEGIN
3842: l_cursor := dbms_sql.open_cursor;
3843: IF (l_debug = 1) THEN
3844: inv_log_util.trace('Inside build_lpn_cursor','CONSIGNED_VALIDATIONS',9);
3952: ll_owning_organization_id NUMBER;
3953: --------------------------------------
3954: l_count NUMBER := 0;
3955: l_temp NUMBER := 0;
3956: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3957: BEGIN
3958:
3959: build_lpn_cursor
3960: (
4117: l_qs NUMBER;
4118: l_atr NUMBER;
4119: l_att NUMBER;
4120: l_vcoh NUMBER;
4121: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
4122: BEGIN
4123:
4124: IF (l_debug = 1) THEN
4125: inv_log_util.trace('****** GET_CONSIGNED_LPN_QUANTITIES *******','CONSIGNED_VALIDATIONS',9);