1023: l_lpn_used NUMBER;
1024: l_debug NUMBER;
1025: l_api_name VARCHAR2(20) := 'IS_LPN_CYC_RESERVED';
1026: BEGIN
1027: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'), 0);
1028: l_debug := g_debug;
1029: IF l_debug = 1 THEN
1030: log_statement(l_api_name, 'IS_LPN_CYC_RESERVED', 'Inside function IS_LPN_CYC_RESERVED');
1031: END IF;
3270: ) IS
3271: -- variables needed for dynamic SQL
3272: l_identifier VARCHAR2(10);
3273: l_api_name VARCHAR2(30) := 'BuildIputSQL';
3274: l_is_mat_status_used NUMBER := NVL(FND_PROFILE.VALUE('INV_MATERIAL_STATUS'), 2);
3275: BEGIN
3276: -- Initialize API return status to success
3277: x_return_status := fnd_api.g_ret_sts_success;
3278:
3526: l_return_value BOOLEAN;
3527: l_debug NUMBER;
3528: BEGIN
3529: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
3530: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3531: END IF;
3532: l_debug := g_debug;
3533: IF p_simulation_mode <> wms_engine_pvt.g_no_simulation THEN
3534: l_return_value := TRUE;
3616: l_ctr := wms_rule_pvt.g_rule_list_pick_ctr;
3617: l_list_pkg := 'wms_rule_pick_pkg' || l_ctr ;
3618:
3619: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
3620: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3621: END IF;
3622: l_debug := g_debug;
3623:
3624: IF l_debug = 1 THEN
3789: -- Initialize API return status to success
3790: x_return_status := fnd_api.g_ret_sts_success;
3791:
3792: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
3793: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3794: END IF;
3795: l_debug := g_debug;
3796:
3797: IF l_debug = 1 THEN
3957:
3958: BEGIN
3959:
3960: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
3961: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3962: END IF;
3963: l_debug := g_debug;
3964:
3965: IF wms_rule_pvt.g_rule_list_pick_ctr IS NULL THEN
4111:
4112: BEGIN
4113:
4114: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
4115: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
4116: END IF;
4117: l_debug := g_debug;
4118:
4119: if wms_rule_pvt.g_rule_list_put_ctr is null then
4464: AND line_type_code = 2
4465: GROUP BY to_locator_id;
4466: BEGIN
4467: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
4468: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
4469: END IF;
4470: l_debug := g_debug;
4471:
4472: If l_debug = 1 THEN
4719: WHERE uom_code = p_uom;
4720:
4721: BEGIN
4722: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
4723: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
4724: END IF;
4725: l_debug := g_debug;
4726:
4727: x_return_status := fnd_api.g_ret_sts_success;
6806: l_debug NUMBER;
6807:
6808: BEGIN
6809: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
6810: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
6811: END IF;
6812: l_debug := g_debug;
6813:
6814: x_return_status := fnd_api.g_ret_sts_success;
7153:
7154: l_debug NUMBER;
7155: BEGIN
7156: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
7157: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
7158: END IF;
7159: l_debug := g_debug;
7160:
7161: IF l_debug = 1 THEN
7331: l_insert NUMBER := 0; --bug# 8270806
7332: l_debug NUMBER;
7333: BEGIN
7334: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
7335: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
7336: END IF;
7337: l_debug := g_debug;
7338:
7339: IF l_debug = 1 THEN
7924: l_debug NUMBER;
7925:
7926: BEGIN
7927: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
7928: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
7929: END IF;
7930: l_debug := g_debug;
7931: IF l_debug = 1 THEN
7932: log_procedure(l_api_name, 'start', 'Start Insert Consist Record');
8280: l_next_group NUMBER;
8281: l_debug NUMBER;
8282: BEGIN
8283: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
8284: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
8285: END IF;
8286: l_debug := g_debug;
8287: IF l_debug = 1 THEN
8288: log_procedure(l_api_name, 'start', 'Start Invalidate_Lpn_Group');
8712:
8713:
8714: BEGIN
8715: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
8716: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
8717: END IF;
8718: l_debug := g_debug;
8719: l_progress := 10;
8720:
13745: l_organization_id := p_organization_id;
13746: l_inventory_item_id := p_inventory_item_id;
13747:
13748: IF g_debug IS NOT NULL THEN
13749: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
13750: END IF;
13751: l_debug := g_debug;
13752:
13753: IF l_debug = 1 THEN
14044:
14045: BEGIN
14046:
14047: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
14048: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
14049: END IF;
14050: l_debug := g_debug;
14051:
14052: If (l_debug = 1) then
16983: BEGIN
16984: SAVEPOINT assignttsp;
16985:
16986: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
16987: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
16988: END IF;
16989: l_debug := g_debug;
16990:
16991: -- Standard call to check for call compatibility
17332: OR rules.organization_id = -1
17333: ) ;
17334: ----
17335: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
17336: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
17337: END IF;
17338: l_debug := g_debug;
17339: IF l_debug = 1 THEN
17340: TRACE('Executing ApplyLabel()...Label_request_ID : '|| p_label_request_id);
17761:
17762: BEGIN
17763:
17764: IF NOT(inv_cache.is_pickrelease AND g_debug IS NOT NULL) THEN
17765: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
17766: END IF;
17767: l_debug := g_debug;
17768: l_progress := 10;
17769:
18547:
18548:
18549: BEGIN
18550: --
18551: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
18552: l_progress := 10;
18553: -- debugging portion
18554: -- can be commented ut for final code
18555: if nvl(inv_cache.is_pickrelease, FALSE) THEN
19270: l_mo_task_id := p_mo_task_id;
19271: END IF;
19272:
19273: -- Added for Bug 12571993
19274: fnd_profile.get('MFG_ORGANIZATION_ID',l_organization_id );
19275: IF(Nvl(l_organization_id,-9999) <> p_organization_id) THEN
19276: fnd_profile.put('MFG_ORGANIZATION_ID',p_organization_id);
19277: l_update := TRUE;
19278: END IF;
19272:
19273: -- Added for Bug 12571993
19274: fnd_profile.get('MFG_ORGANIZATION_ID',l_organization_id );
19275: IF(Nvl(l_organization_id,-9999) <> p_organization_id) THEN
19276: fnd_profile.put('MFG_ORGANIZATION_ID',p_organization_id);
19277: l_update := TRUE;
19278: END IF;
19279:
19280: -- Added for Bug 10379126
19310: END IF;
19311:
19312: -- Added for Bug 12571993
19313: IF(l_update) THEN
19314: fnd_profile.put('MFG_ORGANIZATION_ID',l_organization_id);
19315: END IF;
19316:
19317: IF l_result THEN
19318: RETURN 1;
19339: , p_lpn_id IN NUMBER DEFAULT NULL
19340: ) RETURN VARCHAR2 IS
19341: l_allocate_lot_flag VARCHAR2(1) := 'Y';
19342: l_api_name VARCHAR2(30) := 'get_allocate_lot_flag';
19343: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
19344: BEGIN
19345: IF l_debug = 1 THEN
19346: log_statement(l_api_name, 'get_allocate_lot_flag', 'p_organization_id: '|| p_organization_id);
19347: log_statement(l_api_name, 'get_allocate_lot_flag', 'p_move_order_line_id: '|| p_move_order_line_id);