[Home] [Help]
614: FND_MSG_PUB.add;
615: RAISE FND_API.G_EXC_ERROR;
616: ELSE
617: BEGIN
618: UPDATE DPP_TRANSACTION_LINES_ALL
619: SET covered_inventory = NVL(l_covered_inv_tbl(i).Covered_quantity,0),
620: approved_inventory = NVL(l_covered_inv_tbl(i).Covered_quantity,0),
621: onhand_inventory = NVL(l_covered_inv_tbl(i).Onhand_Quantity,0),
622: UOM = l_covered_inv_tbl(i).UOM_Code,
633: RAISE FND_API.G_EXC_ERROR;
634: END IF;
635: EXCEPTION
636: WHEN OTHERS THEN
637: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_EXCEPTION, 'dpp.plsql.' || L_FULL_NAME, substr(('Error in Updating DPP_TRANSACTION_LINES_ALL: ' || SQLERRM || ' from Update Covered Inventory API'),1,4000));
638: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
639: END ;
640:
641: --Get the supplier trade profile value to include price increase value for claim or not
673: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
674: END;
675:
676: IF (l_price_change_flag = 'N') THEN -- Only Price Decrease
677: UPDATE dpp_transaction_lines_all dtla
678: SET dtla.claim_amount = dtla.approved_inventory * price_change,
679: dtla.object_version_number = dtla.object_version_number +1,
680: dtla.last_updated_by = nvl(l_user_id,0),
681: dtla.last_update_login = nvl(l_user_id,0),
683: WHERE dtla.transaction_header_id = l_inv_hdr_rec.transaction_header_id
684: AND dtla.transaction_line_id = l_covered_inv_tbl(i).transaction_line_id
685: AND dtla.price_change > 0;
686: ELSE -- Both Price Increase and Price Decrease
687: UPDATE dpp_transaction_lines_all dtla
688: SET dtla.claim_amount = dtla.approved_inventory * price_change,
689: dtla.object_version_number = dtla.object_version_number +1,
690: dtla.last_updated_by = nvl(l_user_id,0),
691: dtla.last_update_login = nvl(l_user_id,0),