[Home] [Help]
535: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
536: END IF;
537:
538: WHEN e_return THEN
539: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
540: WSH_UTIL_CORE.default_handler('WSH_USA_INV_PVT.unassign_backordered_details');
541: -- OTM R12 : unassign delivery detail
542: IF (c_detail_cont_planning_cur%ISOPEN) THEN
543: CLOSE c_detail_cont_planning_cur;
548: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:UNASSIGN_BACKORDERED_DETAILS');
549: END IF;
550:
551: WHEN OTHERS THEN
552: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
553: WSH_UTIL_CORE.default_handler('WSH_USA_INV_PVT.unassign_backordered_details');
554: -- OTM R12 : unassign delivery detail
555: IF (c_detail_cont_planning_cur%ISOPEN) THEN
556: CLOSE c_detail_cont_planning_cur;
859:
860: EXCEPTION
861:
862: WHEN OTHERS THEN
863: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
864: WSH_UTIL_CORE.default_handler('WSH_USA_INV_PVT.backorder_delivery_detail');
865: IF l_debug_on THEN
866: WSH_DEBUG_SV.logmsg(l_module_name,'BACKORDER_DELIVERY_DETAIL_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
867: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:BACKORDER_DELIVERY_DETAIL');
921: p_source_code => p_source_code,
922: p_source_header_id => p_source_header_id,
923: p_source_line_id => p_source_line_id,
924: p_organization_id => p_organization_id,
925: p_lock_records => fnd_api.g_true,
926: p_delivery_detail_id => null, --X-dock
927: x_mtl_reservation_tbl => l_rsv_array,
928: x_mtl_reservation_tbl_count => l_size,
929: x_return_status => l_return_status);
927: x_mtl_reservation_tbl => l_rsv_array,
928: x_mtl_reservation_tbl_count => l_size,
929: x_return_status => l_return_status);
930:
931: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
932: raise totals_failed;
933: END IF;
934:
935: IF l_size = 0 THEN -- This case is specific for non staged reservations as
969: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:GET_TOTAL_RESERVED_QUANTITY');
970: END IF;
971:
972: WHEN OTHERS THEN
973: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
974: WSH_UTIL_CORE.default_handler('WSH_USA_INV_PVT.Get_total_Reserved_quantity');
975: IF l_debug_on THEN
976: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
977: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1080: --
1081: INV_RESERVATION_PUB.query_reservation_om_hdr_line
1082: (
1083: p_api_version_number => 1.0
1084: , p_init_msg_lst => fnd_api.g_true
1085: , x_return_status => x_return_status
1086: , x_msg_count => l_msg_count
1087: , x_msg_data => l_msg_data
1088: , p_query_input => l_rsv
1096: WSH_DEBUG_SV.log(l_module_name,'query_reservation_om_hdr_line x_return_status',x_return_status);
1097: END IF;
1098:
1099:
1100: IF x_return_status = fnd_api.g_ret_sts_success THEN
1101: --
1102: -- Debug Statements
1103: --
1104: IF l_debug_on THEN
1186:
1187: INV_RESERVATION_PUB.delete_reservation
1188: (
1189: p_api_version_number => 1.0
1190: , p_init_msg_lst => fnd_api.g_true
1191: , x_return_status => x_return_status
1192: , x_msg_count => l_msg_count
1193: , x_msg_data => l_msg_data
1194: , p_rsv_rec => p_query_input
1197: IF l_debug_on THEN
1198: WSH_DEBUG_SV.log(l_module_name,'delete_reservation x_return_status',x_return_status);
1199: END IF;
1200:
1201: IF x_return_status = fnd_api.g_ret_sts_success THEN
1202: --
1203: -- Debug Statements
1204: --
1205: IF l_debug_on THEN
1329: --
1330:
1331:
1332: -- HW OPMCONV check if qty2 exists to call the correct API
1333: IF ( p_qty2 is NULL OR p_qty2 = FND_API.G_MISS_NUM ) THEN
1334: INV_RESERVATION_PUB.create_reservation
1335: (
1336: p_api_version_number => 1.0
1337: , p_init_msg_lst => fnd_api.g_true
1333: IF ( p_qty2 is NULL OR p_qty2 = FND_API.G_MISS_NUM ) THEN
1334: INV_RESERVATION_PUB.create_reservation
1335: (
1336: p_api_version_number => 1.0
1337: , p_init_msg_lst => fnd_api.g_true
1338: , x_return_status => x_return_status
1339: , x_msg_count => l_msg_count
1340: , x_msg_data => l_msg_data
1341: , p_rsv_rec => p_query_input
1340: , x_msg_data => l_msg_data
1341: , p_rsv_rec => p_query_input
1342: , p_serial_number => l_dummy_sn
1343: , x_serial_number => l_dummy_sn
1344: , p_partial_reservation_flag => fnd_api.g_true
1345: , p_force_reservation_flag => fnd_api.g_false
1346: , p_validation_flag => fnd_api.g_true
1347: -- bug 5333667: remove p_over_reservation_flag added by bug 5099694
1348: -- because it is necessary to validate the new reservation.
1341: , p_rsv_rec => p_query_input
1342: , p_serial_number => l_dummy_sn
1343: , x_serial_number => l_dummy_sn
1344: , p_partial_reservation_flag => fnd_api.g_true
1345: , p_force_reservation_flag => fnd_api.g_false
1346: , p_validation_flag => fnd_api.g_true
1347: -- bug 5333667: remove p_over_reservation_flag added by bug 5099694
1348: -- because it is necessary to validate the new reservation.
1349: , x_quantity_reserved => x_qty_reserved
1342: , p_serial_number => l_dummy_sn
1343: , x_serial_number => l_dummy_sn
1344: , p_partial_reservation_flag => fnd_api.g_true
1345: , p_force_reservation_flag => fnd_api.g_false
1346: , p_validation_flag => fnd_api.g_true
1347: -- bug 5333667: remove p_over_reservation_flag added by bug 5099694
1348: -- because it is necessary to validate the new reservation.
1349: , x_quantity_reserved => x_qty_reserved
1350: , x_reservation_id => x_reservation_id
1352: ELSE
1353: INV_RESERVATION_PUB.create_reservation
1354: (
1355: p_api_version_number => 1.0
1356: , p_init_msg_lst => fnd_api.g_true
1357: , x_return_status => x_return_status
1358: , x_msg_count => l_msg_count
1359: , x_msg_data => l_msg_data
1360: , p_rsv_rec => p_query_input
1359: , x_msg_data => l_msg_data
1360: , p_rsv_rec => p_query_input
1361: , p_serial_number => l_dummy_sn
1362: , x_serial_number => l_dummy_sn
1363: , p_partial_reservation_flag => fnd_api.g_true
1364: , p_force_reservation_flag => fnd_api.g_false
1365: -- Bug 5099694
1366: , p_over_reservation_flag =>3
1367: , p_validation_flag => fnd_api.g_true
1360: , p_rsv_rec => p_query_input
1361: , p_serial_number => l_dummy_sn
1362: , x_serial_number => l_dummy_sn
1363: , p_partial_reservation_flag => fnd_api.g_true
1364: , p_force_reservation_flag => fnd_api.g_false
1365: -- Bug 5099694
1366: , p_over_reservation_flag =>3
1367: , p_validation_flag => fnd_api.g_true
1368: , x_quantity_reserved => x_qty_reserved
1363: , p_partial_reservation_flag => fnd_api.g_true
1364: , p_force_reservation_flag => fnd_api.g_false
1365: -- Bug 5099694
1366: , p_over_reservation_flag =>3
1367: , p_validation_flag => fnd_api.g_true
1368: , x_quantity_reserved => x_qty_reserved
1369: , x_secondary_quantity_reserved => x_secondary_qty_reserved
1370: , x_reservation_id => x_reservation_id
1371: );
1373: IF l_debug_on THEN
1374: WSH_DEBUG_SV.log(l_module_name,'INV_RESERVATION_PUB.CREATE_RESERVATION',x_return_status);
1375: END IF;
1376:
1377: IF x_return_status = fnd_api.g_ret_sts_success THEN
1378: --
1379: -- Debug Statements
1380: --
1381: IF l_debug_on THEN
1493:
1494: INV_RESERVATION_PUB.update_reservation
1495: (
1496: p_api_version_number => 1.0
1497: , p_init_msg_lst => fnd_api.g_true
1498: , x_return_status => x_return_status
1499: , x_msg_count => l_msg_count
1500: , x_msg_data => l_msg_data
1501: , p_original_rsv_rec => p_query_input
1501: , p_original_rsv_rec => p_query_input
1502: , p_to_rsv_rec => p_new_resv_rec
1503: , p_original_serial_number => l_dummy_sn -- no serial contorl
1504: , p_to_serial_number => l_dummy_sn -- no serial control
1505: , p_validation_flag => fnd_api.g_true
1506: -- Bug 5099694
1507: , p_over_reservation_flag =>3
1508: );
1509: IF l_debug_on THEN
1509: IF l_debug_on THEN
1510: WSH_DEBUG_SV.log(l_module_name,'INV_RESERVATION_PUB.update_reservation',x_return_status);
1511: END IF;
1512:
1513: IF x_return_status = fnd_api.g_ret_sts_success THEN
1514: --
1515: -- Debug Statements
1516: --
1517: IF l_debug_on THEN
1867: p_move_order_line_id => p_delivery_detail_split_rec.move_order_line_id,
1868: x_detail_id => l_delivery_detail_id,
1869: x_return_status => x_return_status);
1870:
1871: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1872: raise cancel_failed;
1873: END IF;
1874: --end of X-dock
1875:
1879: p_source_code => p_source_code,
1880: p_source_header_id => p_source_header_id,
1881: p_source_line_id => p_source_line_id,
1882: p_organization_id => p_delivery_detail_split_rec.organization_id,
1883: p_lock_records => fnd_api.g_true,
1884: p_delivery_detail_id => l_delivery_detail_id, --X-dock changes
1885: x_mtl_reservation_tbl => l_rsv_array,
1886: x_mtl_reservation_tbl_count => l_size,
1887: x_return_status => x_return_status);
1894: WSH_DEBUG_SV.log(l_module_name, 'query_reservations x_return_status',x_return_status);
1895: WSH_DEBUG_SV.logmsg(l_module_name, 'L_SIZE: '||L_SIZE );
1896: END IF;
1897:
1898: IF (x_return_status <> fnd_api.g_ret_sts_success) OR (l_size = 0) THEN
1899: IF x_return_status = fnd_api.g_ret_sts_success THEN
1900: OPEN pickable_flag(p_delivery_detail_split_rec.delivery_detail_id);
1901: FETCH pickable_flag INTO l_pickable_flag;
1902: CLOSE pickable_flag;
1895: WSH_DEBUG_SV.logmsg(l_module_name, 'L_SIZE: '||L_SIZE );
1896: END IF;
1897:
1898: IF (x_return_status <> fnd_api.g_ret_sts_success) OR (l_size = 0) THEN
1899: IF x_return_status = fnd_api.g_ret_sts_success THEN
1900: OPEN pickable_flag(p_delivery_detail_split_rec.delivery_detail_id);
1901: FETCH pickable_flag INTO l_pickable_flag;
1902: CLOSE pickable_flag;
1903: --
1972: END IF;
1973: --
1974:
1975: -- HW OPMCONV - Update qty2 using new reservation flds
1976: IF l_rsv_array(l_counter).secondary_reservation_quantity = FND_API.G_MISS_NUM THEN
1977: l_rsv_array(l_counter).secondary_reservation_quantity := null;
1978: END IF;
1979:
1980: -- Bug3012297 (Included reference to parameters)
1999: IF l_debug_on THEN
2000: WSH_DEBUG_SV.log(l_module_name, 'delete_reservation x_return_status',x_return_status);
2001: END IF;
2002:
2003: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2004: raise cancel_failed;
2005: END IF;
2006:
2007: l_cancelled_reservation_qty := l_rsv_array(l_counter).primary_reservation_quantity;
2023: END IF;
2024: --
2025: -- HW OPMCONV - Ensure Qty2 are NULL before updating
2026: IF ( l_rsv_new.secondary_reservation_quantity = 0 OR
2027: l_rsv_new.secondary_reservation_quantity = FND_API.G_MISS_NUM ) THEN
2028: l_rsv_new.secondary_reservation_quantity := NULL;
2029: END IF;
2030:
2031: update_reservation (p_query_input => l_rsv_array(l_counter),
2034: IF l_debug_on THEN
2035: WSH_DEBUG_SV.log(l_module_name, 'update_reservation x_return_status',x_return_status);
2036: END IF;
2037:
2038: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2039: raise cancel_failed;
2040: END IF;
2041:
2042: EXIT;
2181: p_move_order_line_id => null,
2182: x_detail_id => l_delivery_detail_id,
2183: x_return_status => x_return_status);
2184:
2185: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2186: raise cancel_failed;
2187: END IF;
2188: --end of X-dock
2189:
2195: p_source_header_id => p_source_header_id,
2196: p_source_line_id => p_source_line_id,
2197: p_organization_id => p_organization_id,
2198: p_delivery_detail_id => l_delivery_detail_id, -- X-dock changes
2199: p_lock_records => fnd_api.g_true,
2200: x_mtl_reservation_tbl => l_rsv_array,
2201: x_mtl_reservation_tbl_count => l_size,
2202: x_return_status => x_return_status);
2203:
2205: IF l_debug_on THEN
2206: WSH_DEBUG_SV.log(l_module_name,'query_reservations x_return_status',x_return_status);
2207: END IF;
2208:
2209: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
2210: raise cancel_failed;
2211: END IF;
2212:
2213: IF l_size = 0 THEN -- This case is specific for non staged reservations as
2306: --End Bug3012297
2307:
2308: -- HW OPMCONV - Update correct Qty2 using new reservation flds.
2309:
2310: IF l_rsv_array(l_counter).secondary_reservation_quantity = FND_API.G_MISS_NUM
2311: OR l_rsv_array(l_counter).secondary_reservation_quantity = 0 THEN
2312: l_rsv_array(l_counter).secondary_reservation_quantity := null;
2313: END IF;
2314:
2387: --
2388:
2389: -- HW OPMCONV -Update Qty2 using new reservation flds.
2390:
2391: IF l_rsv_array(l_counter).secondary_reservation_quantity = FND_API.G_MISS_NUM THEN
2392: l_rsv_array(l_counter).secondary_reservation_quantity := null;
2393: END IF;
2394:
2395: -- Bug3012297
2426:
2427: -- HW OPMCONV - Ensure Qty2 are NULL before updating
2428:
2429: IF ( l_rsv_new.secondary_reservation_quantity = 0 OR
2430: l_rsv_new.secondary_reservation_quantity = FND_API.G_MISS_NUM ) THEN
2431: l_rsv_new.secondary_reservation_quantity := NULL;
2432: END IF;
2433:
2434: IF l_debug_on THEN
2445:
2446: IF l_debug_on THEN
2447: WSH_DEBUG_SV.log(l_module_name,'update_reservation x_return_status',x_return_status);
2448: END IF;
2449: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2450: raise cancel_failed;
2451: END IF;
2452:
2453: ELSE
2464: IF l_debug_on THEN
2465: WSH_DEBUG_SV.log(l_module_name,'delete_reservation x_return_status',x_return_status);
2466: END IF;
2467:
2468: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2469: raise cancel_failed;
2470: END IF;
2471:
2472: END IF;
2488: -- =====================
2489: -- Ensure cancellation_quantity2 is computed in accordance with any
2490: -- lot specific calculation in play for the reservation line
2491: -- otherwise we may be mixing item level and lot specific level calculations
2492: IF l_rsv_array(l_counter).secondary_uom_code <> FND_API.G_MISS_CHAR THEN
2493: -- For dual tracked items compute the secondary cancellation qty in
2494: -- accordance with any lot specific calculation in play
2495: l_cancellation_quantity2 := WSH_WV_UTILS.convert_uom(
2496: item_id => l_rsv_array(l_counter).inventory_item_id
2525:
2526:
2527: -- HW OPMCONV - Ensure Qty2 are NULL before updating
2528: IF ( l_rsv_new.secondary_reservation_quantity = 0 OR
2529: l_rsv_new.secondary_reservation_quantity = FND_API.G_MISS_NUM ) THEN
2530: l_rsv_new.secondary_reservation_quantity := NULL;
2531: END IF;
2532:
2533: update_reservation (
2537: IF l_debug_on THEN
2538: WSH_DEBUG_SV.log(l_module_name,'update_reservation x_return_status',x_return_status);
2539: END IF;
2540:
2541: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2542: raise cancel_failed;
2543: END IF;
2544:
2545: EXIT;
2601: IF l_debug_on THEN
2602: WSH_DEBUG_SV.log(l_module_name,'update_reservation x_return_status',x_return_status);
2603: END IF;
2604: --
2605: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2606: raise cancel_failed;
2607: END IF;
2608: ELSE
2609: --
2618: IF l_debug_on THEN
2619: WSH_DEBUG_SV.log(l_module_name,'delete_reservation x_return_status',x_return_status);
2620: END IF;
2621: --
2622: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2623: raise cancel_failed;
2624: END IF;
2625: END IF;
2626:
2672: IF l_debug_on THEN
2673: WSH_DEBUG_SV.log(l_module_name,'update_reservation x_return_status',x_return_status);
2674: END IF;
2675: --
2676: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2677: raise cancel_failed;
2678: END IF;
2679: EXIT;
2680: END IF;
2763: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PACKAGE_NAME || '.' || 'RESERVATION_SPLIT_ACTION';
2764: --
2765: BEGIN
2766: --
2767: l_status := FND_API.G_RET_STS_SUCCESS;
2768: --
2769: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2770: --
2771: IF l_debug_on IS NULL THEN
2853: -- The wisest course of action is to compute the secondary based on the
2854: -- lot information available to us from the originating lot.
2855: -- muom
2856: IF p_fulfillment_base = 'P' THEN
2857: IF p_rsv.secondary_uom_code <> FND_API.G_MISS_CHAR THEN
2858: IF p_source_code = 'OE' THEN --Added for bug 16833534
2859:
2860: IF l_debug_on THEN
2861: WSH_DEBUG_SV.log(l_module_name,'DUAL tracked item so convert for lot ',p_rsv.lot_number);
3028: END IF;
3029:
3030: INV_RESERVATION_PUB.transfer_reservation
3031: (p_api_version_number => 1.0,
3032: p_init_msg_lst => fnd_api.g_true,
3033: x_return_status => l_status,
3034: x_msg_count => l_msg_count,
3035: x_msg_data => l_msg_data,
3036: p_original_rsv_rec => p_rsv,
3045: IF l_debug_on THEN
3046: WSH_DEBUG_SV.log(l_module_name,'transfer_reservation l_status',l_status);
3047: END IF;
3048:
3049: IF l_status = fnd_api.g_ret_sts_success THEN
3050: IF l_debug_on THEN
3051: -- HW OPMCONV - Print Qty2
3052: WSH_DEBUG_SV.logmsg(l_module_name, 'Rsvn. Transferred FOR Rsvn.ID :'
3053: ||P_RSV.RESERVATION_ID || ' : TO Rsvn.ID : '||L_NEW_RSV_ID||
3096: IF l_debug_on THEN
3097: WSH_DEBUG_SV.log(l_module_name,'update_staged_flag l_status',l_status);
3098: END IF;
3099:
3100: IF l_status = fnd_api.g_ret_sts_success THEN
3101: IF l_debug_on THEN
3102: WSH_DEBUG_SV.logmsg(l_module_name, 'STAGED FLAG UPDATED FOR RESERVATION ID : '||L_NEW_RSV_ID );
3103: END IF;
3104: ELSE
3124:
3125: p_split_quantity := p_split_quantity - l_quantity_to_split;
3126: -- HW OPMCONV -Added Qty2
3127: IF ( p_split_quantity2 IS NULL
3128: OR p_split_quantity2 = FND_API.G_MISS_NUM) THEN
3129: p_split_quantity2 :=0;
3130: ELSE
3131: p_split_quantity2 := p_split_quantity2 - l_quantity2_to_split;
3132: END IF;
3265: x_detail_id => l_delivery_detail_id,
3266: x_return_status => x_return_status);
3267:
3268: -- Above call populates l_delivery_detail_id and is used at multiple places in this API
3269: IF x_return_status IN (FND_API.G_RET_STS_UNEXP_ERROR,FND_API.G_RET_STS_ERROR) THEN
3270: IF l_debug_on THEN
3271: WSH_DEBUG_SV.log(l_module_name,'Exception has occured after WSHUSAIB.get_putaway_detail_id');
3272: WSH_DEBUG_SV.pop(l_module_name);
3273: END IF;
3320: IF l_debug_on THEN
3321: WSH_DEBUG_SV.log(l_module_name,'Cancel_Move_Order_Line returned unexpected error');
3322: END IF;
3323:
3324: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3325: --
3326: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
3327: --
3328: IF l_debug_on THEN
3433: --}
3434:
3435: l_split_quantity := p_split_quantity;
3436: -- HW OPMCONV. Added split_quantity2
3437: IF ( p_split_quantity2 = 0 OR p_split_quantity2 = FND_API.G_MISS_NUM) THEN
3438: l_split_quantity2 := NULL;
3439: ELSE
3440: l_split_quantity2 := p_split_quantity2;
3441: END IF;
3453: p_source_code => p_source_code,
3454: p_source_header_id => p_source_header_id,
3455: p_source_line_id => p_original_source_line_id,
3456: p_organization_id => p_delivery_detail_split_rec.organization_id,
3457: p_lock_records => fnd_api.g_true,
3458: p_direction_flag => p_direction_flag ,
3459: p_delivery_detail_id => l_delivery_detail_id, -- X-dock
3460: x_mtl_reservation_tbl => l_rsv_array,
3461: x_mtl_reservation_tbl_count => l_size,
3507: x_return_status => x_return_status);
3508: IF l_debug_on THEN
3509: WSH_DEBUG_SV.log(l_module_name, 'reservation_split_action',x_return_status);
3510: END IF;
3511: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3512: raise split_failed;
3513: END IF;
3514: IF l_new_rsv_id <> l_rsv_array(l_counter).reservation_id THEN
3515: --{
3525: x_return_status => x_return_status);
3526: IF l_debug_on THEN
3527: WSH_DEBUG_SV.log(l_module_name, 'return_status',x_return_status);
3528: END IF;
3529: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3530: raise split_failed;
3531: END IF;
3532: --}
3533: END IF;
3634: x_return_status => x_return_status);
3635: IF l_debug_on THEN
3636: WSH_DEBUG_SV.log(l_module_name, 'reservation_split_action',x_return_status);
3637: END IF;
3638: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3639: raise split_failed;
3640: END IF;
3641: END IF; -- <> 'Y','C'
3642: END IF;
3674: END IF;
3675: --
3676: -- bug 5226867
3677: -- Added the new excpetion for unexpected error
3678: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3679: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
3680: --
3681: -- Debug Statements
3682: --
3680: --
3681: -- Debug Statements
3682: --
3683: IF l_debug_on THEN
3684: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3685: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3686: END IF;
3687: --
3688: -- bug 5226867
3681: -- Debug Statements
3682: --
3683: IF l_debug_on THEN
3684: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3685: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3686: END IF;
3687: --
3688: -- bug 5226867
3689: WHEN others THEN
3750: WSH_DEBUG_SV.logmsg(l_module_name, 'IN WSH_USA_INV_PVT.UPDATE_SERIAL_NUMBERS' );
3751: END IF;
3752: --
3753: IF (p_serial_number IS NULL) AND (p_transaction_temp_id IS NULL) THEN
3754: x_return_status := FND_API.G_RET_STS_SUCCESS;
3755: --
3756: -- Debug Statements
3757: --
3758: IF l_debug_on THEN
3763: ELSE
3764: OPEN Get_Sl_Num_Ctrl_Cd;
3765: FETCH Get_Sl_Num_Ctrl_Cd INTO l_serial_number_control_code;
3766: IF Get_Sl_Num_Ctrl_Cd%NOTFOUND THEN
3767: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3768: CLOSE Get_Sl_Num_Ctrl_Cd;
3769: --
3770: -- Debug Statements
3771: --
3785: x_return_status => x_return_status);
3786: IF l_debug_on THEN
3787: WSH_DEBUG_SV.log(l_module_name,'Unmark_Serial_Number x_return_status',x_return_status);
3788: END IF;
3789: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3790: x_return_status := FND_API.G_RET_STS_ERROR;
3791: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
3792: --
3793: -- Debug Statements
3786: IF l_debug_on THEN
3787: WSH_DEBUG_SV.log(l_module_name,'Unmark_Serial_Number x_return_status',x_return_status);
3788: END IF;
3789: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3790: x_return_status := FND_API.G_RET_STS_ERROR;
3791: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
3792: --
3793: -- Debug Statements
3794: --
3803: to_serial_number = NULL,
3804: transaction_temp_id = NULL,
3805: shipped_quantity = 0
3806: WHERE delivery_detail_id = p_delivery_detail_id;
3807: x_return_status := FND_API.G_RET_STS_SUCCESS;
3808: END IF;
3809:
3810: --
3811: -- Debug Statements
3816: --
3817: EXCEPTION
3818:
3819: WHEN OTHERS THEN
3820: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3821: WSH_UTIL_CORE.default_handler('WSH_USA_INV_PVT.update_serial_numbers',l_module_name);
3822:
3823: --
3824: -- Debug Statements
4049: l_txn_return_status VARCHAR2(1); -- DBI Project
4050:
4051: l_wf_rs VARCHAR2(1); --Pick to POD WF Project
4052:
4053: -- Bug 3390514 : Treating FND_API.G_MISS_NUM in pending_quantity as Zero
4054: l_pending_quantity NUMBER;
4055: l_backordered_item_id NUMBER;
4056: l_top_model_item_id NUMBER;
4057:
4059: l_original_caller VARCHAR2(100) := WSH_WMS_LPN_GRP.g_caller;
4060: l_orig_callback_reqd VARCHAR2(100) := WSH_WMS_LPN_GRP.g_callback_required;
4061: -- LPN CONV rv
4062:
4063: --Bug 3878429: treat fnd_api.g_miss_num in pending_quantity2 as zero
4064: l_pending_quantity2 NUMBER;
4065: -- /==Workflow Change
4066: Cursor c_get_picked_lines_count (c_delivery_detail_id NUMBER)
4067: IS
4158: -- action_flag is M, recursive call to update_inventory_info is done with action_flag as U.
4159: -- So values will be lost during the 2nd call. That is why it is not reset for action_flag as M.
4160: IF p_changed_attributes(p_changed_attributes.FIRST).action_flag <> 'M' THEN
4161: --{
4162: --Bug#5104847:Assigning default value FND_API.G_MISS_NUM to trx_id and trx_temp_id as
4163: --
4164: IF ( l_transaction_id <> FND_API.G_MISS_NUM OR l_transaction_id IS NULL
4165: OR l_transaction_temp_id <> FND_API.G_MISS_NUM OR l_transaction_temp_id IS NULL) THEN
4166: --{
4160: IF p_changed_attributes(p_changed_attributes.FIRST).action_flag <> 'M' THEN
4161: --{
4162: --Bug#5104847:Assigning default value FND_API.G_MISS_NUM to trx_id and trx_temp_id as
4163: --
4164: IF ( l_transaction_id <> FND_API.G_MISS_NUM OR l_transaction_id IS NULL
4165: OR l_transaction_temp_id <> FND_API.G_MISS_NUM OR l_transaction_temp_id IS NULL) THEN
4166: --{
4167: l_InvPCInRecType.transaction_id := FND_API.G_MISS_NUM;
4168: l_InvPCInRecType.transaction_temp_id := FND_API.G_MISS_NUM;
4161: --{
4162: --Bug#5104847:Assigning default value FND_API.G_MISS_NUM to trx_id and trx_temp_id as
4163: --
4164: IF ( l_transaction_id <> FND_API.G_MISS_NUM OR l_transaction_id IS NULL
4165: OR l_transaction_temp_id <> FND_API.G_MISS_NUM OR l_transaction_temp_id IS NULL) THEN
4166: --{
4167: l_InvPCInRecType.transaction_id := FND_API.G_MISS_NUM;
4168: l_InvPCInRecType.transaction_temp_id := FND_API.G_MISS_NUM;
4169: l_InvPCInRecType.source_code := 'INV';
4163: --
4164: IF ( l_transaction_id <> FND_API.G_MISS_NUM OR l_transaction_id IS NULL
4165: OR l_transaction_temp_id <> FND_API.G_MISS_NUM OR l_transaction_temp_id IS NULL) THEN
4166: --{
4167: l_InvPCInRecType.transaction_id := FND_API.G_MISS_NUM;
4168: l_InvPCInRecType.transaction_temp_id := FND_API.G_MISS_NUM;
4169: l_InvPCInRecType.source_code := 'INV';
4170: l_InvPCInRecType.api_version_number := 1.0;
4171: --
4164: IF ( l_transaction_id <> FND_API.G_MISS_NUM OR l_transaction_id IS NULL
4165: OR l_transaction_temp_id <> FND_API.G_MISS_NUM OR l_transaction_temp_id IS NULL) THEN
4166: --{
4167: l_InvPCInRecType.transaction_id := FND_API.G_MISS_NUM;
4168: l_InvPCInRecType.transaction_temp_id := FND_API.G_MISS_NUM;
4169: l_InvPCInRecType.source_code := 'INV';
4170: l_InvPCInRecType.api_version_number := 1.0;
4171: --
4172: IF l_debug_on THEN
4192: END IF;
4193:
4194: -- Assumption : Whenever Inventory calls with transaction_temp_id, they will pass only 1 record in
4195: -- p_changed_attributes. If not, return error for the transaction
4196: --Bug#5104847:transaction_temp_id default value is FND_API.G_MISS_NUM
4197: IF ( l_transaction_temp_id IS NOT NULL AND l_transaction_temp_id <> FND_API.G_MISS_NUM ) AND p_changed_attributes.COUNT > 1 THEN
4198:
4199: IF l_debug_on THEN
4200: WSH_DEBUG_SV.logmsg(l_module_name, 'Number of records passed by inventory ' || p_changed_attributes.COUNT );
4193:
4194: -- Assumption : Whenever Inventory calls with transaction_temp_id, they will pass only 1 record in
4195: -- p_changed_attributes. If not, return error for the transaction
4196: --Bug#5104847:transaction_temp_id default value is FND_API.G_MISS_NUM
4197: IF ( l_transaction_temp_id IS NOT NULL AND l_transaction_temp_id <> FND_API.G_MISS_NUM ) AND p_changed_attributes.COUNT > 1 THEN
4198:
4199: IF l_debug_on THEN
4200: WSH_DEBUG_SV.logmsg(l_module_name, 'Number of records passed by inventory ' || p_changed_attributes.COUNT );
4201: WSH_DEBUG_SV.logmsg(l_module_name, 'Reject request as transaction_temp_id is passed for more than 1 record by inventory ');
4237: WSH_DEBUG_SV.logmsg(l_module_name, 'DELDET ID IS ' || P_CHANGED_ATTRIBUTES ( L_COUNTER ) .DELIVERY_DETAIL_ID );
4238: WSH_DEBUG_SV.logmsg(l_module_name, 'ORDERED QTY IS ' || P_CHANGED_ATTRIBUTES ( L_COUNTER ) .ORDERED_QUANTITY );
4239: END IF;
4240:
4241: -- Bug 3390514 : Treating FND_API.G_MISS_NUM in pending_quantity as Zero
4242: IF p_changed_attributes(l_counter).pending_quantity = FND_API.G_MISS_NUM THEN
4243: --{
4244: l_pending_quantity := 0;
4245: --}
4238: WSH_DEBUG_SV.logmsg(l_module_name, 'ORDERED QTY IS ' || P_CHANGED_ATTRIBUTES ( L_COUNTER ) .ORDERED_QUANTITY );
4239: END IF;
4240:
4241: -- Bug 3390514 : Treating FND_API.G_MISS_NUM in pending_quantity as Zero
4242: IF p_changed_attributes(l_counter).pending_quantity = FND_API.G_MISS_NUM THEN
4243: --{
4244: l_pending_quantity := 0;
4245: --}
4246: ELSE
4249: --}
4250: END IF;
4251:
4252: --Bug 3878429.
4253: IF p_changed_attributes(l_counter).pending_quantity2 = FND_API.G_MISS_NUM THEN
4254: --{
4255: l_pending_quantity2 := 0;
4256: --}
4257: ELSE
4397: -- { fb= P
4398: IF l_debug_on THEN
4399: WSH_DEBUG_SV.logmsg(l_module_name, 'FB = P Case' );
4400: END IF;
4401: IF (p_changed_attributes(l_counter).picked_quantity = FND_API.G_MISS_NUM) THEN
4402: -- { pq = g_miss_num Start
4403: -- { pq = g_miss_num
4404:
4405: -- Can l_split_quantity is null ? If yes , then we need to handle that condition here.
4405: -- Can l_split_quantity is null ? If yes , then we need to handle that condition here.
4406: l_split_quantity := p_changed_attributes(l_counter).ordered_quantity ;
4407:
4408: -- odaboval : Begin of OPM Changes (Pick_Confirm)
4409: if ( p_changed_attributes(l_Counter).ordered_quantity2 = FND_API.G_MISS_NUM ) then
4410: l_split_quantity2 := null ;
4411: else
4412: l_split_quantity2 := p_changed_attributes(l_Counter).ordered_quantity2 ;
4413: end if ;
4456: l_dummy_detail_id := p_changed_attributes(l_counter).delivery_detail_id;
4457: l_split_quantity := p_changed_attributes(l_counter).picked_quantity ;
4458:
4459: -- begin of OPM
4460: if ( p_changed_attributes(l_Counter).picked_quantity2 = FND_API.G_MISS_NUM ) then
4461: l_split_quantity2 := null ;
4462: else
4463: l_split_quantity2 := p_changed_attributes(l_Counter).picked_quantity2 ;
4464: end if ;
4469: old_delivery_detail_rec.picked_quantity := p_changed_attributes(l_counter).picked_quantity + l_pending_quantity; -- Bug#: 3390514
4470:
4471: --Fix for bug 3878429
4472: --Use l_pending_quantity2 instead of p_changed_attributes(l_counter).pending_quantity2
4473: --because p_changed_attributes(l_counter).pending_quantity2 could be fnd_api.g_miss_num
4474:
4475: old_delivery_detail_rec.picked_quantity2 := l_split_quantity2 + l_pending_quantity2;
4476:
4477: /*
4483: picked_quantity2 = old_delivery_detail_rec.picked_quantity2,
4484: requested_quantity_uom2 = DECODE(l_wms_enabled_flag,
4485: 'Y',
4486: DECODE(p_changed_attributes(l_counter).ordered_quantity_uom2,
4487: FND_API.G_MISS_CHAR, requested_quantity_uom2,
4488: p_changed_attributes(l_counter).ordered_quantity_uom2),
4489: requested_quantity_uom2)
4490: WHERE delivery_detail_id = old_delivery_detail_rec.delivery_detail_id;
4491:
4520: WHERE delivery_detail_id = old_delivery_detail_rec.delivery_detail_id;
4521:
4522: l_changed_attributes(l_counter).delivery_detail_id := l_dummy_detail_id;
4523: -- } pq > 0
4524: END IF; -- (p_changed_attributes(l_counter).picked_quantity = FND_API.G_MISS_NUM) for 'M'
4525: -- } pq = g_miss_num End
4526:
4527: /* NC - Added - OPM Changes BUG# 1675561 */
4528: ELSE
4529: -- { fb = 'S'
4530: IF l_debug_on THEN
4531: WSH_DEBUG_SV.logmsg(l_module_name, 'FB = S Case' );
4532: END IF;
4533: IF (p_changed_attributes(l_counter).picked_quantity2 = FND_API.G_MISS_NUM) THEN
4534: -- { if pq2 = g_miss_num start
4535: --
4536: -- { if pq2 = g_miss_num
4537: l_split_quantity := p_changed_attributes(l_counter).ordered_quantity ;
4535: --
4536: -- { if pq2 = g_miss_num
4537: l_split_quantity := p_changed_attributes(l_counter).ordered_quantity ;
4538:
4539: if ( p_changed_attributes(l_Counter).ordered_quantity = FND_API.G_MISS_NUM ) then
4540: l_split_quantity := null ;
4541: else
4542: l_split_quantity := p_changed_attributes(l_Counter).ordered_quantity ;
4543: end if ;
4587:
4588: l_dummy_detail_id := p_changed_attributes(l_counter).delivery_detail_id;
4589: l_split_quantity2 := p_changed_attributes(l_counter).picked_quantity2 ;
4590:
4591: if ( p_changed_attributes(l_Counter).picked_quantity = FND_API.G_MISS_NUM ) then
4592: l_split_quantity := null ;
4593: else
4594: l_split_quantity := p_changed_attributes(l_Counter).picked_quantity ;
4595: end if ;
4601: + l_pending_quantity2; -- Bug#: 3390514
4602:
4603: --Fix for bug 3878429
4604: --Use l_pending_quantity instead of p_changed_attributes(l_counter).pending_quantity
4605: --because p_changed_attributes(l_counter).pending_quantity could be fnd_api.g_miss_num
4606: old_delivery_detail_rec.picked_quantity := l_split_quantity + l_pending_quantity;
4607:
4608: UPDATE WSH_DELIVERY_DETAILS
4609: SET picked_quantity = old_delivery_detail_rec.picked_quantity,
4610: picked_quantity2 = old_delivery_detail_rec.picked_quantity2,
4611: requested_quantity_uom2 = DECODE(l_wms_enabled_flag,
4612: 'Y',
4613: DECODE(p_changed_attributes(l_counter).ordered_quantity_uom2,
4614: FND_API.G_MISS_CHAR, requested_quantity_uom2,
4615: p_changed_attributes(l_counter).ordered_quantity_uom2),
4616: requested_quantity_uom2)
4617: WHERE delivery_detail_id = old_delivery_detail_rec.delivery_detail_id;
4618:
4647: WHERE delivery_detail_id = old_delivery_detail_rec.delivery_detail_id;
4648:
4649: l_changed_attributes(l_counter).delivery_detail_id := l_dummy_detail_id;
4650:
4651: END IF; -- (p_changed_attributes(l_counter).picked_quantity = FND_API.G_MISS_NUM) for 'M'
4652:
4653: END IF;
4654:
4655: ELSE
4666: WSH_DEBUG_SV.log(l_module_name, 'l_pending_quantity2', l_pending_quantity2);
4667: END IF;
4668: --
4669:
4670: IF p_changed_attributes(l_counter).picked_quantity <> FND_API.G_MISS_NUM THEN
4671:
4672: -- begin of OPM
4673: if ( p_changed_attributes(l_Counter).picked_quantity2 = FND_API.G_MISS_NUM ) then
4674: l_split_quantity2 := null ;
4669:
4670: IF p_changed_attributes(l_counter).picked_quantity <> FND_API.G_MISS_NUM THEN
4671:
4672: -- begin of OPM
4673: if ( p_changed_attributes(l_Counter).picked_quantity2 = FND_API.G_MISS_NUM ) then
4674: l_split_quantity2 := null ;
4675: else
4676: l_split_quantity2 := p_changed_attributes(l_Counter).picked_quantity2 ;
4677: end if ;
4682: + l_pending_quantity; -- Bug#: 3390514
4683:
4684: --Fix for bug 3878429
4685: --Use l_pending_quantity2 instead of p_changed_attributes(l_counter).pending_quantity2
4686: --because p_changed_attributes(l_counter).pending_quantity2 could be fnd_api.g_miss_num
4687:
4688: old_delivery_detail_rec.picked_quantity2 := l_split_quantity2 + l_pending_quantity2;
4689:
4690: /* old_delivery_detail_rec.picked_quantity2 := l_split_quantity2
4701: WHERE delivery_detail_id = old_delivery_detail_rec.delivery_detail_id;
4702:
4703: l_split_quantity := l_pending_quantity; -- Bug#: 3390514
4704:
4705: IF (p_changed_attributes(l_counter).pending_quantity2 = FND_API.G_MISS_NUM) THEN
4706: l_split_quantity2 := old_delivery_detail_rec.requested_quantity2;
4707: ELSE
4708: l_split_quantity2 := p_changed_attributes(l_counter).pending_quantity2;
4709: END IF;
4713: -- this split quantity to have the newly create delivery detail
4714: -- to be backorder detail
4715: l_split_quantity := old_delivery_detail_rec.requested_quantity - p_Changed_attributes(l_Counter).ordered_quantity;
4716: -- odaboval : Begin of OPM Changes (Pick_Confirm)
4717: if ( p_changed_attributes(l_Counter).ordered_quantity2 = FND_API.G_MISS_NUM ) then
4718: l_split_quantity2 := old_delivery_detail_rec.requested_quantity2 ;
4719: else
4720: l_split_quantity2 := old_delivery_detail_rec.requested_quantity2 - p_changed_attributes(l_Counter).ordered_quantity2 ;
4721: end if ;
4749: END IF;
4750:
4751: /* LG BUG#:2005977 */
4752:
4753: IF p_changed_attributes(l_counter).picked_quantity <> FND_API.G_MISS_NUM THEN
4754: -- correct the requested quantities of the split lines.
4755: -- be sure to clear the picked quantities if line has requested_quantity > 0.
4756:
4757: UPDATE wsh_delivery_details
4921: END IF;
4922:
4923: l_split_quantity := p_Changed_attributes(l_Counter).cycle_count_quantity;
4924: l_split_quantity2 := p_Changed_attributes(l_Counter).cycle_count_quantity2;
4925: IF l_split_quantity2 = FND_API.G_MISS_NUM THEN
4926: l_split_quantity2 := NULL;
4927: END IF;
4928:
4929: IF (l_split_quantity < old_Delivery_detail_rec.requested_quantity) THEN
4989: -- and action is backorder
4990: l_request_id := fnd_global.conc_request_id;
4991: -- 1729516
4992: IF ( l_request_id <> -1 OR
4993: p_changed_attributes(l_Counter).cycle_count_quantity = FND_API.G_MISS_NUM OR
4994: WSH_PICK_LIST.G_BATCH_ID IS NOT NULL ) THEN
4995: --
4996: -- Debug Statements
4997: --
5467: -- BUG#:1549665 hwahdani end of changes
5468:
5469: l_split_quantity := p_Changed_attributes(l_Counter).cycle_count_quantity;
5470: l_split_quantity2 := p_Changed_attributes(l_Counter).cycle_count_quantity2;
5471: IF l_split_quantity2 = FND_API.G_MISS_NUM THEN
5472: l_split_quantity2 := NULL;
5473: END IF;
5474:
5475: -- Start of Consolidation Of BO DD's.
5714: END IF;
5715: -- LSP PROJECT : end
5716: --
5717:
5718: IF (p_changed_attributes(l_Counter).transfer_lpn_id <> FND_API.G_MISS_NUM ) THEN
5719:
5720: --
5721: -- Debug Statements
5722: --
6054: END IF; -- End of if reject_update
6055: END IF; -- End of if transfer_lpn_id
6056:
6057: -- HW OPMCONV. Removed OPM specific logic
6058: IF (p_changed_attributes(l_counter).subinventory <> FND_API.G_MISS_CHAR AND
6059: (NVL(old_delivery_detail_rec.subinventory,'-99') <> NVL(p_changed_attributes(l_Counter).subinventory,'-99'))) THEN
6060: --
6061: -- Debug Statements
6062: --
6080: END IF; -- End of if shipped_details >= 1
6081: END IF; -- End of if subinventory
6082:
6083: -- HW OPMCONV. Removed OPM specific logic
6084: IF (p_changed_attributes(l_counter).locator_id <> FND_API.G_MISS_NUM AND
6085: (NVL(old_delivery_detail_rec.locator_id,-99) <> NVL(p_changed_attributes(l_Counter).locator_id,-99))) THEN
6086: --
6087: -- Debug Statements
6088: --
6106: l_update_loc := 'Y';
6107: END IF; -- End of if shipped_details >= 1
6108: END IF; -- End of if locator_id
6109:
6110: IF (p_changed_attributes(l_counter).revision <> FND_API.G_MISS_CHAR AND
6111: (NVL(old_delivery_detail_rec.revision,'-99') <> NVL(p_changed_attributes(l_Counter).revision,'-99'))) THEN
6112: --
6113: -- Debug Statements
6114: --
6132: l_update_rev := 'Y';
6133: END IF; -- End of if shipped_details >= 1
6134: END IF; -- End of if revision
6135:
6136: -- IF (p_changed_attributes(l_counter).lot_number <> FND_API.G_MISS_CHAR AND
6137: -- ((NVL(old_delivery_detail_rec.lot_number,'-99') <> NVL(p_changed_attributes(l_Counter).lot_number,'-99')))) THEN
6138: --bug 6675904 changed if condition as Inv allows any value for lot number so -99 was
6139: --not getting updated in WDD
6140: IF ( ( ( old_delivery_detail_rec.lot_number IS NULL AND p_changed_attributes(l_Counter).lot_number IS NOT NULL ) OR
6140: IF ( ( ( old_delivery_detail_rec.lot_number IS NULL AND p_changed_attributes(l_Counter).lot_number IS NOT NULL ) OR
6141: ( old_delivery_detail_rec.lot_number IS NOT NULL AND p_changed_attributes(l_Counter).lot_number IS NULL ) OR
6142: ( old_delivery_detail_rec.lot_number IS NOT NULL AND p_changed_attributes(l_Counter).lot_number IS NOT NULL AND
6143: old_delivery_detail_rec.lot_number <> p_changed_attributes(l_Counter).lot_number )) and
6144: p_changed_attributes(l_counter).lot_number <> FND_API.G_MISS_CHAR) THEN
6145: --
6146: -- Debug Statements
6147: --
6148: IF l_debug_on THEN
6168:
6169:
6170: -- Hverddin 12-SEP-200 Start of OPM changes For Grade
6171: -- NOTE LOG EXCEPTIONS PUT VALUE INTO LOT_NUMBER UNTIL RESOLVED
6172: IF (p_changed_attributes(l_counter).preferred_grade <> FND_API.G_MISS_CHAR AND
6173: (NVL(old_delivery_detail_rec.preferred_grade,'-99') <> NVL(p_changed_attributes(l_Counter).preferred_grade,'-99'))) THEN
6174: --
6175: -- Debug Statements
6176: --
6196: END IF; -- End of if preferred_grade
6197: -- Hverddin 12-SEP-200 End of OPM changes For Grade
6198:
6199: -- Bug 2657652 : Added transaction_temp_id
6200: IF (l_transaction_temp_id <> FND_API.G_MISS_NUM AND
6201: (NVL(old_delivery_detail_rec.transaction_temp_id,-99) <> NVL(l_transaction_temp_id,-99))) THEN
6202: --
6203: -- Debug Statements
6204: --
6221: l_update_transaction_temp_id := 'Y';
6222: END IF; -- End of if l_reject_update = 'Y'
6223: END IF; -- End of if transaction_temp_id
6224:
6225: IF (p_changed_attributes(l_counter).serial_number <> FND_API.G_MISS_CHAR AND
6226: (NVL(old_delivery_detail_rec.serial_number,'-99') <> NVL(p_changed_attributes(l_Counter).serial_number,'-99'))) THEN
6227: --
6228: -- Debug Statements
6229: --
6247: l_update_serial_number := 'Y';
6248: END IF; -- End of if shipped_details >= 1
6249: END IF; -- End of if serial_number
6250:
6251: IF (p_changed_attributes(l_counter).released_status <> FND_API.G_MISS_CHAR AND
6252: NVL(old_delivery_detail_rec.released_status, 'N') <> NVL(p_changed_attributes(l_Counter).released_status, 'N')) THEN
6253: --
6254: -- Debug Statements
6255: --
6274: --
6275: -- When that happens, we call update_ordered_quantity in order to update
6276: -- other unstaged delivery lines so that the total requested quantity will
6277: -- still match the order line's ordered quantity.
6278: IF p_changed_attributes(l_counter).picked_quantity <> FND_API.G_MISS_NUM THEN
6279:
6280: DECLARE -- BLOCK for managing requested quantity changes
6281: CURSOR c_detail_info(x_delivery_detail_id IN NUMBER) IS
6282: SELECT source_line_id,
6300: l_source_info c_source_info%ROWTYPE;
6301: l_max_quantity NUMBER;
6302: l_avail_quantity NUMBER;
6303:
6304: l_process_flag VARCHAR2(1) :=FND_API.G_FALSE;
6305: l_max_quantity2 NUMBER;
6306: l_avail_quantity2 NUMBER;
6307: l_allowed_flag VARCHAR2(1);
6308: l_rs VARCHAR2(1);
6364: END IF;
6365:
6366: -- bug 7131800
6367: IF NOT INV_GMI_RSV_BRANCH.Process_Branch(p_organization_id => l_detail_info.organization_id) THEN
6368: l_process_flag := FND_API.G_FALSE;
6369: ELSE
6370: l_process_flag := FND_API.G_TRUE;
6371: END IF;
6372:
6366: -- bug 7131800
6367: IF NOT INV_GMI_RSV_BRANCH.Process_Branch(p_organization_id => l_detail_info.organization_id) THEN
6368: l_process_flag := FND_API.G_FALSE;
6369: ELSE
6370: l_process_flag := FND_API.G_TRUE;
6371: END IF;
6372:
6373: IF l_debug_on THEN
6374: WSH_DEBUG_SV.log(l_module_name,'l_process_flag',l_process_flag);
6376:
6377:
6378: IF l_ret_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
6379: l_retain_nonstaged_dd_param := nvl(l_ship_params.retain_nonstaged_det_flag,'N');
6380: IF ( l_process_flag = FND_API.G_FALSE AND l_retain_nonstaged_dd_param = 'Y') THEN
6381: -- muom
6382: IF l_fulfillment_base = 'P' THEN
6383: l_new_req_quantity := l_detail_info.requested_quantity +
6384: (l_avail_quantity - LEAST(l_max_quantity -(p_changed_attributes(l_counter).picked_quantity - l_detail_info.requested_quantity), l_avail_quantity));
6442: END IF; -- l_new_req_quantity > l_detail_info.requested_quantity
6443: END IF; -- l_found AND requested_quantity <> picked_quantity
6444:
6445: END; -- BLOCK for managing requested quantity changes
6446: END IF; -- p_changed_attributes(l_counter).picked_quantity <> FND_API.G_MISS_NUM
6447: -- end overpicking logic
6448:
6449: END IF; -- End of if shipped_details >= 1
6450: END IF; -- End of if released_status
6471: -- WMS has UI where user can enter serial number and attributes, hence this
6472: -- requirement.This API is also called during Pick Confirm, test cases for Inv.
6473: IF ((l_update_transaction_temp_id = 'Y' AND l_update_serial_number = 'Y') OR
6474: (l_update_serial_number = 'Y' AND
6475: ((p_changed_attributes(l_counter).picked_quantity = FND_API.G_MISS_NUM AND
6476: NVL(l_new_req_quantity, old_delivery_detail_rec.requested_quantity) > 1) OR
6477: (p_changed_attributes(l_counter).picked_quantity <> FND_API.G_MISS_NUM AND
6478: p_changed_attributes(l_counter).picked_quantity > 1))
6479: )
6473: IF ((l_update_transaction_temp_id = 'Y' AND l_update_serial_number = 'Y') OR
6474: (l_update_serial_number = 'Y' AND
6475: ((p_changed_attributes(l_counter).picked_quantity = FND_API.G_MISS_NUM AND
6476: NVL(l_new_req_quantity, old_delivery_detail_rec.requested_quantity) > 1) OR
6477: (p_changed_attributes(l_counter).picked_quantity <> FND_API.G_MISS_NUM AND
6478: p_changed_attributes(l_counter).picked_quantity > 1))
6479: )
6480: ) THEN
6481:
6545: -- muom
6546: -- {
6547: if ( nvl(l_fulfillment_base, 'P') = 'P') then
6548: l_split_quantity2 := nvl(p_Changed_attributes(l_Counter).picked_quantity2, 0);
6549: IF l_split_quantity2 = FND_API.G_MISS_NUM THEN
6550: l_split_quantity2 := NULL;
6551: END IF;
6552: l_split_quantity := p_Changed_Attributes(l_counter).picked_quantity;
6553: elsif (l_fulfillment_base = 'S' ) then
6810: transaction_temp_id = decode(l_update_transaction_temp_id, 'Y',l_transaction_temp_id,transaction_temp_id),
6811: serial_number = decode(l_update_serial_number,'Y',p_Changed_Attributes(l_Counter).serial_number,serial_number),
6812: shipped_quantity = decode(l_update_shipped_quantity,
6813: 'Y',decode(p_changed_attributes(l_counter).picked_quantity,
6814: FND_API.G_MISS_NUM, NVL(l_new_req_quantity, requested_quantity),
6815: p_changed_attributes(l_counter).picked_quantity),
6816: shipped_quantity),
6817: shipped_quantity2 = decode(l_update_shipped_quantity,
6818: 'Y',decode(p_changed_attributes(l_counter).picked_quantity2,
6815: p_changed_attributes(l_counter).picked_quantity),
6816: shipped_quantity),
6817: shipped_quantity2 = decode(l_update_shipped_quantity,
6818: 'Y',decode(p_changed_attributes(l_counter).picked_quantity2,
6819: FND_API.G_MISS_NUM, NVL(l_new_req_quantity2, requested_quantity2),
6820: p_changed_attributes(l_counter).picked_quantity2),
6821: shipped_quantity2),
6822:
6823: -- Bug 1851473 : Set backordered qty = 0 in STF
6825: cycle_count_quantity2 = decode(l_update_shipped_quantity,'Y',0,cycle_count_quantity2),
6826: released_status = decode(l_update_rel_status,'Y',decode(pickable_flag,'Y',p_Changed_Attributes(l_Counter).released_status,'X'), released_status),
6827: requested_quantity = NVL(l_new_req_quantity, requested_quantity),
6828: requested_quantity2 = NVL(l_new_req_quantity2, requested_quantity2),
6829: picked_quantity = DECODE(p_changed_attributes(l_counter).picked_quantity, FND_API.G_MISS_NUM, NULL,
6830: p_changed_attributes(l_counter).picked_quantity),
6831: picked_quantity2 = DECODE(p_changed_attributes(l_counter).picked_quantity2, FND_API.G_MISS_NUM, NULL,
6832: p_changed_attributes(l_counter).picked_quantity2),
6833: requested_quantity_uom2 = DECODE(l_wms_enabled_flag,
6827: requested_quantity = NVL(l_new_req_quantity, requested_quantity),
6828: requested_quantity2 = NVL(l_new_req_quantity2, requested_quantity2),
6829: picked_quantity = DECODE(p_changed_attributes(l_counter).picked_quantity, FND_API.G_MISS_NUM, NULL,
6830: p_changed_attributes(l_counter).picked_quantity),
6831: picked_quantity2 = DECODE(p_changed_attributes(l_counter).picked_quantity2, FND_API.G_MISS_NUM, NULL,
6832: p_changed_attributes(l_counter).picked_quantity2),
6833: requested_quantity_uom2 = DECODE(l_wms_enabled_flag,
6834: 'Y',
6835: DECODE(p_changed_attributes(l_counter).ordered_quantity_uom2,
6832: p_changed_attributes(l_counter).picked_quantity2),
6833: requested_quantity_uom2 = DECODE(l_wms_enabled_flag,
6834: 'Y',
6835: DECODE(p_changed_attributes(l_counter).ordered_quantity_uom2,
6836: FND_API.G_MISS_CHAR, requested_quantity_uom2,
6837: p_changed_attributes(l_counter).ordered_quantity_uom2),
6838: requested_quantity_uom2),
6839: batch_id = DECODE(batch_id, NULL, WSH_PICK_LIST.G_BATCH_ID, batch_id),
6840: last_update_date = SYSDATE,
6839: batch_id = DECODE(batch_id, NULL, WSH_PICK_LIST.G_BATCH_ID, batch_id),
6840: last_update_date = SYSDATE,
6841: last_updated_by = l_user_id,
6842: last_update_login = l_login_id,
6843: ----Bug#5104847:transaction_id updated only when l_transaction_id is not FND_API.G_MISS_NUM (default value).
6844: transaction_id = DECODE(l_transaction_id,FND_API.G_MISS_NUM,transaction_id,l_transaction_id)
6845: ,tracking_number = old_Delivery_detail_rec.tracking_number --Bug# 3632485
6846: WHERE delivery_detail_id = l_dummy_detail_id
6847: RETURNING organization_id -- Done for Workflow Project
6840: last_update_date = SYSDATE,
6841: last_updated_by = l_user_id,
6842: last_update_login = l_login_id,
6843: ----Bug#5104847:transaction_id updated only when l_transaction_id is not FND_API.G_MISS_NUM (default value).
6844: transaction_id = DECODE(l_transaction_id,FND_API.G_MISS_NUM,transaction_id,l_transaction_id)
6845: ,tracking_number = old_Delivery_detail_rec.tracking_number --Bug# 3632485
6846: WHERE delivery_detail_id = l_dummy_detail_id
6847: RETURNING organization_id -- Done for Workflow Project
6848: INTO l_organization_id;
6942: --Bug 7307755 : No need to post weight changes to LPN records as
6943: -- WMS is taking care of populating w/v values including
6944: -- overpicked qty on LPN records.
6945: l_post_process_flag := 'Y';
6946: IF (p_changed_attributes(l_Counter).transfer_lpn_id <> FND_API.G_MISS_NUM ) THEN
6947: l_post_process_flag := 'N';
6948: END IF;
6949: --
6950: IF l_debug_on THEN
7231:
7232:
7233: WHEN OTHERS THEN
7234:
7235: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7236: IF c_detailed_qty%ISOPEN THEN
7237: CLOSE c_detailed_qty;
7238: END IF;
7239: IF l_debug_on THEN
7387: WHEN OTHERS THEN
7388: IF c_get_line_details%ISOPEN THEN
7389: CLOSE c_get_line_details;
7390: END IF;
7391: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7392: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_USA_INV_PVT.get_putaway_detail_id',l_module_name);
7393: IF l_debug_on THEN
7394: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
7395: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');