[Home] [Help]
135: l_wms_txn_temp_tbl_size NUMBER;
136: l_temp_id_tbl g_number_tbl_type;
137: BEGIN
138: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
139: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
140: END IF;
141: l_debug := g_debug;
142: IF l_debug = 1 THEN
143: log_procedure(l_api_name, 'start', 'Start Insert_Detail_temp_records');
287: l_api_name CONSTANT VARCHAR2(30) := 'purge_detail_temp_records';
288: l_debug NUMBER;
289: BEGIN
290: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
291: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
292: END IF;
293: l_debug := g_debug;
294: IF l_debug = 1 THEN
295: log_procedure(l_api_name, 'start', 'Start purge_detail_temp_records');
357: l_wms_txn_temp_tbl_size NUMBER;
358: l_debug NUMBER;
359: BEGIN
360: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
361: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
362: END IF;
363: l_debug := g_debug;
364: IF l_debug = 1 THEN
365: log_procedure(l_api_name, 'start', 'Start resolve_serials');
487: l_rsv_ctr NUMBER; -- [ Added to track number of detailed serial numbers ]
488: --
489: BEGIN
490: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
491: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
492: END IF;
493: l_debug := g_debug;
494: IF l_debug = 1 THEN
495: log_procedure(l_api_name, 'start', 'Start Prepare');
792: -- Added for Bug 6063903
793:
794: BEGIN
795: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
796: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
797: END IF;
798: l_debug := g_debug;
799: IF l_debug = 1 THEN
800: log_procedure(l_api_name, 'start', 'Start prepare_transfer_receipt');
977: RETURN;
978: END IF; */
979:
980: IF g_debug IS NULL THEN
981: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
982: END IF;
983: l_debug := g_debug;
984:
985: IF l_debug = 1 THEN
1140: l_debug NUMBER;
1141: --
1142: BEGIN
1143: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
1144: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1145: END IF;
1146: l_debug := g_debug;
1147: IF l_debug = 1 THEN
1148: log_procedure(l_api_name, 'start', 'Start output_issue_or_receipt');
1351: l_grade_code VARCHAR2(150);
1352: l_debug NUMBER;
1353: BEGIN
1354: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
1355: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1356: END IF;
1357: l_debug := g_debug;
1358: IF l_debug = 1 THEN
1359: log_procedure(l_api_name, 'start', 'Start combine_transfer');
1687: l_allow_non_partial_rules BOOLEAN; --- DEFAULT TRUE;
1688: l_return_type VARCHAR2(1);
1689: l_return_type_id NUMBER;
1690: l_sequence_number NUMBER;
1691: l_rules_engine_mode NUMBER := 1; --:= NVL(fnd_profile.VALUE('WMS_RULES_ENGINE_MODE'), 0);
1692: l_wip_rsv_exists PLS_INTEGER; --8809951 changed to Pls_Integer
1693:
1694: --- Rules J Project Variables
1695: ---
1815:
1816: BEGIN
1817:
1818: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
1819: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1820: END IF;
1821: l_debug := g_debug;
1822: l_progress := 10;
1823: --
1847: --10182554 End
1848:
1849: Wms_cache.Cleanup_rules_cache;
1850:
1851: l_allow_nr_sub_xfer := Upper(NVL( SUBSTR(FND_PROFILE.VALUE('INV_ALLOW_NR_SUB_XFER'),1,1), 'N')) ; -- Bug#4006426
1852:
1853: If l_debug = 1 THEN
1854: log_event( l_api_name, 'WMS_ALLOW_NR_SUB_XFER := ', l_allow_nr_sub_xfer );
1855: End if;
3010: l_transaction_type_id NUMBER;
3011:
3012: BEGIN
3013:
3014: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3015:
3016: l_debug := g_debug;
3017: l_allow_expired_lot_txn := 0 ; --By Default we would not allow expired lots to be transacted.
3018: --Only some transactions like move order txfer or sub txfer allow exp or custom API lot txn