[Home] [Help]
170: PROCEDURE write_conc_log ( p_text IN VARCHAR2)
171: IS
172: BEGIN
173: IF g_debug_flag = 'Y' THEN
174: ozf_utility_pvt.write_conc_log (p_text);
175: --ozf_utility_pvt.debug_message(p_text);
176: END IF;
177: END;
178:
171: IS
172: BEGIN
173: IF g_debug_flag = 'Y' THEN
174: ozf_utility_pvt.write_conc_log (p_text);
175: --ozf_utility_pvt.debug_message(p_text);
176: END IF;
177: END;
178:
179: ---------------------------------------------------------------------
768: l_act_util_rec.fund_request_currency_code := l_offer_info.offer_currency_code;
769: --end,ER 8399134
770: l_act_budgets_rec.request_date := SYSDATE;
771: l_act_budgets_rec.status_code := 'APPROVED';
772: l_act_budgets_rec.user_status_id := ozf_Utility_Pvt.get_default_user_status (
773: 'OZF_BUDGETSOURCE_STATUS', l_act_budgets_rec.status_code);
774:
775: l_act_budgets_rec.approval_date := SYSDATE;
776: l_act_budgets_rec.approver_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
772: l_act_budgets_rec.user_status_id := ozf_Utility_Pvt.get_default_user_status (
773: 'OZF_BUDGETSOURCE_STATUS', l_act_budgets_rec.status_code);
774:
775: l_act_budgets_rec.approval_date := SYSDATE;
776: l_act_budgets_rec.approver_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
777: l_act_budgets_rec.justification := l_justification;
778: l_act_budgets_rec.transfer_type := 'UTILIZED';
779:
780: l_act_util_rec.utilization_type :='ADJUSTMENT';
852: write_conc_log ('p_modified_discount ' || p_modified_discount);
853: write_conc_log ('l_total_price ' || l_total_price);
854: l_util_amount := p_modified_discount * l_total_price / 100;
855:
856: ozf_utility_pvt.write_conc_log('offer curr: '||l_offer_info.transaction_currency_code);
857: ozf_utility_pvt.write_conc_log('order curr: '||l_order_line_tbl(j).transactional_curr_code);
858:
859: --nirprasa,12.1.1 remove conversion. keep the utilization in order currency.
860: --kdass 31-MAR-2006 bug 5101720 convert from order currency to offer currency
853: write_conc_log ('l_total_price ' || l_total_price);
854: l_util_amount := p_modified_discount * l_total_price / 100;
855:
856: ozf_utility_pvt.write_conc_log('offer curr: '||l_offer_info.transaction_currency_code);
857: ozf_utility_pvt.write_conc_log('order curr: '||l_order_line_tbl(j).transactional_curr_code);
858:
859: --nirprasa,12.1.1 remove conversion. keep the utilization in order currency.
860: --kdass 31-MAR-2006 bug 5101720 convert from order currency to offer currency
861: IF l_offer_info.transaction_currency_code IS NOT NULL
860: --kdass 31-MAR-2006 bug 5101720 convert from order currency to offer currency
861: IF l_offer_info.transaction_currency_code IS NOT NULL
862: AND l_offer_info.transaction_currency_code <> l_order_line_tbl(j).transactional_curr_code THEN
863:
864: ozf_utility_pvt.write_conc_log('order curr: ' || l_order_line_tbl(j).transactional_curr_code);
865: ozf_utility_pvt.write_conc_log('offer curr: ' || l_offer_info.transaction_currency_code);
866: ozf_utility_pvt.write_conc_log('l_util_amount: ' || l_util_amount);
867:
868:
861: IF l_offer_info.transaction_currency_code IS NOT NULL
862: AND l_offer_info.transaction_currency_code <> l_order_line_tbl(j).transactional_curr_code THEN
863:
864: ozf_utility_pvt.write_conc_log('order curr: ' || l_order_line_tbl(j).transactional_curr_code);
865: ozf_utility_pvt.write_conc_log('offer curr: ' || l_offer_info.transaction_currency_code);
866: ozf_utility_pvt.write_conc_log('l_util_amount: ' || l_util_amount);
867:
868:
869: OPEN c_get_conversion_type(l_act_util_rec.org_id);
862: AND l_offer_info.transaction_currency_code <> l_order_line_tbl(j).transactional_curr_code THEN
863:
864: ozf_utility_pvt.write_conc_log('order curr: ' || l_order_line_tbl(j).transactional_curr_code);
865: ozf_utility_pvt.write_conc_log('offer curr: ' || l_offer_info.transaction_currency_code);
866: ozf_utility_pvt.write_conc_log('l_util_amount: ' || l_util_amount);
867:
868:
869: OPEN c_get_conversion_type(l_act_util_rec.org_id);
870: FETCH c_get_conversion_type INTO l_exchange_rate_type;
870: FETCH c_get_conversion_type INTO l_exchange_rate_type;
871: CLOSE c_get_conversion_type;
872:
873:
874: ozf_utility_pvt.convert_currency (x_return_status => x_return_status
875: ,p_from_currency => l_order_line_tbl(j).transactional_curr_code
876: ,p_to_currency => l_offer_info.transaction_currency_code
877: ,p_conv_type => l_exchange_rate_type
878: ,p_conv_date => OZF_ACCRUAL_ENGINE.G_FAE_START_DATE
880: ,x_to_amount => l_conv_util_amount
881: ,x_rate => l_rate
882: );
883:
884: ozf_utility_pvt.write_conc_log('x_return_status: ' || x_return_status);
885: IF x_return_status <> fnd_api.g_ret_sts_success THEN
886: RETURN;
887: END IF;
888:
890:
891: write_conc_log ('util amt after currency conversion: ' || l_util_amount);
892:
893: ELSE
894: l_util_amount := ozf_utility_pvt.currround(l_util_amount, l_order_line_tbl(j).transactional_curr_code);
895: ozf_utility_pvt.write_conc_log('l_util_amount: '||l_util_amount);
896: END IF;
897: ELSIF p_arithmetic_operator = 'NEWPRICE' THEN
898: l_util_amount := (l_order_line_tbl(j).unit_list_price - (p_modified_discount * l_order_line_tbl(j).uom_ratio)) * l_order_line_tbl(j).quantity;
891: write_conc_log ('util amt after currency conversion: ' || l_util_amount);
892:
893: ELSE
894: l_util_amount := ozf_utility_pvt.currround(l_util_amount, l_order_line_tbl(j).transactional_curr_code);
895: ozf_utility_pvt.write_conc_log('l_util_amount: '||l_util_amount);
896: END IF;
897: ELSIF p_arithmetic_operator = 'NEWPRICE' THEN
898: l_util_amount := (l_order_line_tbl(j).unit_list_price - (p_modified_discount * l_order_line_tbl(j).uom_ratio)) * l_order_line_tbl(j).quantity;
899: ELSIF p_arithmetic_operator = 'LUMPSUM' THEN
906: IF l_offer_info.transaction_currency_code IS NULL THEN
907: l_act_util_rec.plan_currency_code := l_order_line_tbl(j).transactional_curr_code;
908: l_act_budgets_rec.request_currency := l_order_line_tbl(j).transactional_curr_code;
909: l_act_budgets_rec.approved_in_currency := l_order_line_tbl(j).transactional_curr_code;
910: l_util_amount := ozf_utility_pvt.currround(l_util_amount, l_order_line_tbl(j).transactional_curr_code);
911: ELSE
912: l_act_util_rec.plan_currency_code := l_offer_info.transaction_currency_code;
913: l_act_budgets_rec.request_currency := l_offer_info.transaction_currency_code;
914: l_act_budgets_rec.approved_in_currency := l_offer_info.transaction_currency_code;
911: ELSE
912: l_act_util_rec.plan_currency_code := l_offer_info.transaction_currency_code;
913: l_act_budgets_rec.request_currency := l_offer_info.transaction_currency_code;
914: l_act_budgets_rec.approved_in_currency := l_offer_info.transaction_currency_code;
915: l_util_amount := ozf_utility_pvt.currround(l_util_amount, l_offer_info.transaction_currency_code);
916: END IF;
917: --end ER 8399134
918:
919: write_conc_log ('adjustment amount: ' || l_util_amount);
1603: l_act_util_rec.fund_request_currency_code := l_offer_info.transaction_currency_code;
1604: --nirprasa,12.2
1605: l_act_budgets_rec.request_date := SYSDATE;
1606: l_act_budgets_rec.status_code := 'APPROVED';
1607: l_act_budgets_rec.user_status_id := ozf_Utility_Pvt.get_default_user_status (
1608: 'OZF_BUDGETSOURCE_STATUS', l_act_budgets_rec.status_code);
1609:
1610: l_act_budgets_rec.approval_date := SYSDATE;
1611: l_act_budgets_rec.approver_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
1607: l_act_budgets_rec.user_status_id := ozf_Utility_Pvt.get_default_user_status (
1608: 'OZF_BUDGETSOURCE_STATUS', l_act_budgets_rec.status_code);
1609:
1610: l_act_budgets_rec.approval_date := SYSDATE;
1611: l_act_budgets_rec.approver_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
1612: l_act_budgets_rec.justification := 'Offer adjustment before offer start date';
1613: l_act_budgets_rec.transfer_type := 'UTILIZED';
1614:
1615: l_act_util_rec.utilization_type :='ADJUSTMENT';
1649: FETCH c_get_group INTO l_group_id,l_pbh_line_id,l_included_vol_flag;
1650: CLOSE c_get_group;
1651:
1652: IF G_DEBUG THEN
1653: ozf_utility_pvt.debug_message(' l_group_id: '|| l_group_id );
1654: ozf_utility_pvt.debug_message(' l_pbh_line_id: '|| l_pbh_line_id );
1655: ozf_utility_pvt.debug_message(' l_included_vol_flag: '|| l_included_vol_flag );
1656: END IF;
1657: write_conc_log(' l_group_id: '|| l_group_id );
1650: CLOSE c_get_group;
1651:
1652: IF G_DEBUG THEN
1653: ozf_utility_pvt.debug_message(' l_group_id: '|| l_group_id );
1654: ozf_utility_pvt.debug_message(' l_pbh_line_id: '|| l_pbh_line_id );
1655: ozf_utility_pvt.debug_message(' l_included_vol_flag: '|| l_included_vol_flag );
1656: END IF;
1657: write_conc_log(' l_group_id: '|| l_group_id );
1658: write_conc_log(' l_pbh_line_id: '|| l_pbh_line_id );
1651:
1652: IF G_DEBUG THEN
1653: ozf_utility_pvt.debug_message(' l_group_id: '|| l_group_id );
1654: ozf_utility_pvt.debug_message(' l_pbh_line_id: '|| l_pbh_line_id );
1655: ozf_utility_pvt.debug_message(' l_included_vol_flag: '|| l_included_vol_flag );
1656: END IF;
1657: write_conc_log(' l_group_id: '|| l_group_id );
1658: write_conc_log(' l_pbh_line_id: '|| l_pbh_line_id );
1659: write_conc_log(' l_included_vol_flag: '|| l_included_vol_flag );
1691: OPEN c_exchange_rate_type(l_org_id);
1692: FETCH c_exchange_rate_type INTO l_conv_type;
1693: CLOSE c_exchange_rate_type;
1694:
1695: ozf_utility_pvt.write_conc_log('order curr: ' || l_order_line_tbl(j).transactional_curr_code);
1696: ozf_utility_pvt.write_conc_log('offer curr: ' || l_offer_info.transaction_currency_code);
1697: ozf_utility_pvt.write_conc_log('selling price: ' || l_unit_selling_price);
1698: ozf_utility_pvt.write_conc_log('l_conv_type: ' || l_conv_type);
1699:
1692: FETCH c_exchange_rate_type INTO l_conv_type;
1693: CLOSE c_exchange_rate_type;
1694:
1695: ozf_utility_pvt.write_conc_log('order curr: ' || l_order_line_tbl(j).transactional_curr_code);
1696: ozf_utility_pvt.write_conc_log('offer curr: ' || l_offer_info.transaction_currency_code);
1697: ozf_utility_pvt.write_conc_log('selling price: ' || l_unit_selling_price);
1698: ozf_utility_pvt.write_conc_log('l_conv_type: ' || l_conv_type);
1699:
1700: --Since it is increased earned always so no change for
1693: CLOSE c_exchange_rate_type;
1694:
1695: ozf_utility_pvt.write_conc_log('order curr: ' || l_order_line_tbl(j).transactional_curr_code);
1696: ozf_utility_pvt.write_conc_log('offer curr: ' || l_offer_info.transaction_currency_code);
1697: ozf_utility_pvt.write_conc_log('selling price: ' || l_unit_selling_price);
1698: ozf_utility_pvt.write_conc_log('l_conv_type: ' || l_conv_type);
1699:
1700: --Since it is increased earned always so no change for
1701: ozf_utility_pvt.convert_currency (x_return_status => l_return_status
1694:
1695: ozf_utility_pvt.write_conc_log('order curr: ' || l_order_line_tbl(j).transactional_curr_code);
1696: ozf_utility_pvt.write_conc_log('offer curr: ' || l_offer_info.transaction_currency_code);
1697: ozf_utility_pvt.write_conc_log('selling price: ' || l_unit_selling_price);
1698: ozf_utility_pvt.write_conc_log('l_conv_type: ' || l_conv_type);
1699:
1700: --Since it is increased earned always so no change for
1701: ozf_utility_pvt.convert_currency (x_return_status => l_return_status
1702: ,p_conv_type => l_conv_type --7030415
1697: ozf_utility_pvt.write_conc_log('selling price: ' || l_unit_selling_price);
1698: ozf_utility_pvt.write_conc_log('l_conv_type: ' || l_conv_type);
1699:
1700: --Since it is increased earned always so no change for
1701: ozf_utility_pvt.convert_currency (x_return_status => l_return_status
1702: ,p_conv_type => l_conv_type --7030415
1703: ,p_conv_date => OZF_ACCRUAL_ENGINE.G_FAE_START_DATE
1704: ,p_from_currency => l_order_line_tbl(j).transactional_curr_code
1705: ,p_to_currency => l_offer_info.transaction_currency_code
1737: FETCH c_get_max_tier INTO l_new_discount;
1738: CLOSE c_get_max_tier;
1739: END IF;
1740: IF G_DEBUG THEN
1741: ozf_utility_pvt.debug_message(' l_new_discount: '|| l_new_discount );
1742: END IF;
1743: write_conc_log(' l_new_discount: '|| l_new_discount );
1744: END IF;
1745:
1754:
1755: IF l_preset_tier is NOT NULL AND l_preset_tier > l_new_discount THEN
1756: l_new_discount := l_preset_tier;
1757: IF G_DEBUG THEN
1758: ozf_utility_pvt.debug_message('not reach preset tier: ');
1759: END IF;
1760: write_conc_log(' not reach preset tier:');
1761: END IF;
1762:
1801: l_previous_tier_max := l_volume + l_ordered_qty;
1802: END IF;
1803:
1804: IF G_DEBUG THEN
1805: ozf_utility_pvt.debug_message( ' l_ordered_qty=' || l_ordered_qty);
1806: END IF;
1807: write_conc_log( ' l_value=' || l_ordered_qty);
1808: l_preset_tier := NULL;
1809:
1826:
1827: IF l_preset_tier is NOT NULL AND l_preset_tier > l_current_tier_value THEN
1828: l_current_tier_value := l_preset_tier;
1829: IF G_DEBUG THEN
1830: ozf_utility_pvt.debug_message('not reach preset tier: ');
1831: END IF;
1832: write_conc_log(' not reach preset tier:');
1833: END IF;
1834:
1852: --l_previous_tier_max := l_current_min_tier - 1 ;
1853: l_previous_tier_max := l_current_min_tier;
1854:
1855: IF G_DEBUG THEN
1856: ozf_utility_pvt.debug_message(' retroactive flag is N, computing for prior tier id=' || l_current_offer_tier_id
1857: || ' y1=' || y1 || ' tier_min=' || l_current_min_tier
1858: || ' tier_max=' || l_current_max_tier || ' l_previous_tier_max: ' || l_previous_tier_max
1859: || ' l_new_utilization: ' || l_utilization_amount);
1860: END IF;
2935: );
2936:
2937:
2938: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2939: ozf_utility_pvt.write_conc_log ('/****** '
2940: || 'Offer Adjustment Failed For Offer'
2941: || l_offer_info.description
2942: || ' SOURCE CODE '
2943: || l_offer_info.NAME
2944: || '" Offer Adjustment Id "'
2945: || l_offerAdjustmentIdTbl(i)
2946: || ' with the following Errors *******/'
2947: );
2948: ozf_utility_pvt.write_conc_log;
2949: fnd_msg_pub.initialize;
2950: ROLLBACK TO new_adjustment;
2951: GOTO l_endofloop;
2952: ELSE
2965: ,x_msg_data=> l_msg_data
2966: );
2967:
2968: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2969: ozf_utility_pvt.write_conc_log ('volume adjustment Failed'
2970: || l_offer_info.description
2971: || ' SOURCE CODE '
2972: || l_offer_info.NAME
2973: || '" Offer Adjustment Id "'
2973: || '" Offer Adjustment Id "'
2974: || l_offerAdjustmentIdTbl(i)
2975: || ' with the following Errors /'
2976: );
2977: ozf_utility_pvt.write_conc_log;
2978: fnd_msg_pub.initialize;
2979: ROLLBACK TO new_adjustment;
2980: GOTO l_endofloop;
2981: END IF;
3946: WHEN FND_API.G_EXC_ERROR THEN
3947: ROLLBACK TO adjust_backdated_offer;
3948: x_retcode := 1;
3949: x_errbuf := l_msg_data;
3950: ozf_utility_pvt.write_conc_log;
3951: ozf_utility_pvt.write_conc_log (x_errbuf);
3952: write_conc_log( 'G_EXC_ERROR'||sqlerrm );
3953: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3954: ROLLBACK TO adjust_backdated_offer;
3947: ROLLBACK TO adjust_backdated_offer;
3948: x_retcode := 1;
3949: x_errbuf := l_msg_data;
3950: ozf_utility_pvt.write_conc_log;
3951: ozf_utility_pvt.write_conc_log (x_errbuf);
3952: write_conc_log( 'G_EXC_ERROR'||sqlerrm );
3953: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3954: ROLLBACK TO adjust_backdated_offer;
3955: x_retcode := 1;
3953: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3954: ROLLBACK TO adjust_backdated_offer;
3955: x_retcode := 1;
3956: x_errbuf := l_msg_data;
3957: ozf_utility_pvt.write_conc_log;
3958: ozf_utility_pvt.write_conc_log (x_errbuf);
3959: write_conc_log( 'G_EXC_UNEXPECTED_ERROR'||sqlerrm );
3960: WHEN OTHERS THEN
3961: ROLLBACK TO adjust_backdated_offer;
3954: ROLLBACK TO adjust_backdated_offer;
3955: x_retcode := 1;
3956: x_errbuf := l_msg_data;
3957: ozf_utility_pvt.write_conc_log;
3958: ozf_utility_pvt.write_conc_log (x_errbuf);
3959: write_conc_log( 'G_EXC_UNEXPECTED_ERROR'||sqlerrm );
3960: WHEN OTHERS THEN
3961: ROLLBACK TO adjust_backdated_offer;
3962: x_retcode := 1;
3960: WHEN OTHERS THEN
3961: ROLLBACK TO adjust_backdated_offer;
3962: x_retcode := 1;
3963: x_errbuf := l_msg_data;
3964: ozf_utility_pvt.write_conc_log;
3965: ozf_utility_pvt.write_conc_log (x_errbuf);
3966: write_conc_log( 'OTHERS'||sqlerrm );
3967: END adjust_backdated_offer;
3968:
3961: ROLLBACK TO adjust_backdated_offer;
3962: x_retcode := 1;
3963: x_errbuf := l_msg_data;
3964: ozf_utility_pvt.write_conc_log;
3965: ozf_utility_pvt.write_conc_log (x_errbuf);
3966: write_conc_log( 'OTHERS'||sqlerrm );
3967: END adjust_backdated_offer;
3968:
3969:
4020: BEGIN
4021: -- Initialize API return status to sucess
4022: x_return_status := FND_API.G_RET_STS_SUCCESS;
4023:
4024: ozf_utility_pvt.write_conc_log('p_list_header_id '||p_list_header_id );
4025: ozf_utility_pvt.write_conc_log('p_list_line_id '||p_list_line_id);
4026: ozf_utility_pvt.write_conc_log('p_line_id '||p_line_id);
4027:
4028: -- First it has to be an OMO offer
4021: -- Initialize API return status to sucess
4022: x_return_status := FND_API.G_RET_STS_SUCCESS;
4023:
4024: ozf_utility_pvt.write_conc_log('p_list_header_id '||p_list_header_id );
4025: ozf_utility_pvt.write_conc_log('p_list_line_id '||p_list_line_id);
4026: ozf_utility_pvt.write_conc_log('p_line_id '||p_line_id);
4027:
4028: -- First it has to be an OMO offer
4029: OPEN omo_offer_csr;
4022: x_return_status := FND_API.G_RET_STS_SUCCESS;
4023:
4024: ozf_utility_pvt.write_conc_log('p_list_header_id '||p_list_header_id );
4025: ozf_utility_pvt.write_conc_log('p_list_line_id '||p_list_line_id);
4026: ozf_utility_pvt.write_conc_log('p_line_id '||p_line_id);
4027:
4028: -- First it has to be an OMO offer
4029: OPEN omo_offer_csr;
4030: FETCH omo_offer_csr INTO l_offer_id, l_offer_type;
4034:
4035: x_result:= true;
4036:
4037: IF g_debug_flag = 'Y' THEN
4038: ozf_utility_pvt.write_conc_log('Its a TM offer ');
4039: END IF;
4040: ELSE
4041: x_result:= false;
4042: END IF;
4059: IF l_result is not NULL THEN
4060: x_result:= false;
4061: ELSE
4062: IF g_debug_flag = 'Y' THEN
4063: ozf_utility_pvt.write_conc_log('There are no records in oe_price_adjustment for this offer order combination');
4064: END IF;
4065: END IF;
4066: END IF;
4067: END IF;
4072: x_return_status := FND_API.G_RET_STS_ERROR;
4073: WHEN OTHERS THEN
4074: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4075: IF g_debug_flag = 'Y' THEN
4076: ozf_utility_pvt.write_conc_log('Exception in is_valid_offer ');
4077: END IF;
4078: END is_valid_offer;
4079: ---------------------------------------------------------------------
4080: -- PROCEDURE
4235: -- Catch Weight ER
4236: BEGIN
4237: -- Debug Message
4238: IF g_debug_flag = 'Y' THEN
4239: OZF_UTILITY_PVT.write_conc_log(l_full_name||': start');
4240: END IF;
4241:
4242: x_return_status := FND_API.G_RET_STS_SUCCESS;
4243:
4383:
4384: write_conc_log ('order org: ' || p_line_rec.org_id);
4385:
4386: -- Catch Weight ER
4387: /*OZF_UTILITY_PVT.get_catch_weight_quantity (
4388: p_inventory_item_id => p_line_rec.inventory_item_id,
4389: p_order_line_id => p_line_rec.line_id,
4390: x_return_status => l_return_status,
4391: x_cw_quantity => l_cw_quantity,
4412: --AND p_line_rec.flow_status_code = 'SHIPPED'
4413:
4414: l_gl_date := p_line_rec.actual_shipment_date;
4415: IF G_DEBUG THEN
4416: ozf_utility_pvt.write_conc_log('Catch Weight VO p_line_rec.shipped_quantity = '|| p_line_rec.shipped_quantity);
4417: ozf_utility_pvt.write_conc_log('Catch Weight VO p_line_rec.shipping_quantity = '|| p_line_rec.shipping_quantity);
4418: ozf_utility_pvt.write_conc_log('Catch Weight VO p_line_rec.shipping_quantity_uom = '|| p_line_rec.shipping_quantity_uom);
4419: ozf_utility_pvt.write_conc_log('Catch Weight VO p_line_rec.shipping_quantity2 = '|| p_line_rec.shipping_quantity2);
4420: ozf_utility_pvt.write_conc_log('Catch Weight VO p_line_rec.shipping_quantity_uom2 = '|| p_line_rec.shipping_quantity_uom2);
4413:
4414: l_gl_date := p_line_rec.actual_shipment_date;
4415: IF G_DEBUG THEN
4416: ozf_utility_pvt.write_conc_log('Catch Weight VO p_line_rec.shipped_quantity = '|| p_line_rec.shipped_quantity);
4417: ozf_utility_pvt.write_conc_log('Catch Weight VO p_line_rec.shipping_quantity = '|| p_line_rec.shipping_quantity);
4418: ozf_utility_pvt.write_conc_log('Catch Weight VO p_line_rec.shipping_quantity_uom = '|| p_line_rec.shipping_quantity_uom);
4419: ozf_utility_pvt.write_conc_log('Catch Weight VO p_line_rec.shipping_quantity2 = '|| p_line_rec.shipping_quantity2);
4420: ozf_utility_pvt.write_conc_log('Catch Weight VO p_line_rec.shipping_quantity_uom2 = '|| p_line_rec.shipping_quantity_uom2);
4421: ozf_utility_pvt.write_conc_log('Catch Weight VO p_line_rec.fulfillment_base = '|| p_line_rec.fulfillment_base);
4414: l_gl_date := p_line_rec.actual_shipment_date;
4415: IF G_DEBUG THEN
4416: ozf_utility_pvt.write_conc_log('Catch Weight VO p_line_rec.shipped_quantity = '|| p_line_rec.shipped_quantity);
4417: ozf_utility_pvt.write_conc_log('Catch Weight VO p_line_rec.shipping_quantity = '|| p_line_rec.shipping_quantity);
4418: ozf_utility_pvt.write_conc_log('Catch Weight VO p_line_rec.shipping_quantity_uom = '|| p_line_rec.shipping_quantity_uom);
4419: ozf_utility_pvt.write_conc_log('Catch Weight VO p_line_rec.shipping_quantity2 = '|| p_line_rec.shipping_quantity2);
4420: ozf_utility_pvt.write_conc_log('Catch Weight VO p_line_rec.shipping_quantity_uom2 = '|| p_line_rec.shipping_quantity_uom2);
4421: ozf_utility_pvt.write_conc_log('Catch Weight VO p_line_rec.fulfillment_base = '|| p_line_rec.fulfillment_base);
4422: END IF;
4415: IF G_DEBUG THEN
4416: ozf_utility_pvt.write_conc_log('Catch Weight VO p_line_rec.shipped_quantity = '|| p_line_rec.shipped_quantity);
4417: ozf_utility_pvt.write_conc_log('Catch Weight VO p_line_rec.shipping_quantity = '|| p_line_rec.shipping_quantity);
4418: ozf_utility_pvt.write_conc_log('Catch Weight VO p_line_rec.shipping_quantity_uom = '|| p_line_rec.shipping_quantity_uom);
4419: ozf_utility_pvt.write_conc_log('Catch Weight VO p_line_rec.shipping_quantity2 = '|| p_line_rec.shipping_quantity2);
4420: ozf_utility_pvt.write_conc_log('Catch Weight VO p_line_rec.shipping_quantity_uom2 = '|| p_line_rec.shipping_quantity_uom2);
4421: ozf_utility_pvt.write_conc_log('Catch Weight VO p_line_rec.fulfillment_base = '|| p_line_rec.fulfillment_base);
4422: END IF;
4423:
4416: ozf_utility_pvt.write_conc_log('Catch Weight VO p_line_rec.shipped_quantity = '|| p_line_rec.shipped_quantity);
4417: ozf_utility_pvt.write_conc_log('Catch Weight VO p_line_rec.shipping_quantity = '|| p_line_rec.shipping_quantity);
4418: ozf_utility_pvt.write_conc_log('Catch Weight VO p_line_rec.shipping_quantity_uom = '|| p_line_rec.shipping_quantity_uom);
4419: ozf_utility_pvt.write_conc_log('Catch Weight VO p_line_rec.shipping_quantity2 = '|| p_line_rec.shipping_quantity2);
4420: ozf_utility_pvt.write_conc_log('Catch Weight VO p_line_rec.shipping_quantity_uom2 = '|| p_line_rec.shipping_quantity_uom2);
4421: ozf_utility_pvt.write_conc_log('Catch Weight VO p_line_rec.fulfillment_base = '|| p_line_rec.fulfillment_base);
4422: END IF;
4423:
4424: l_sales_transaction_rec.quantity := NVL(l_cw_quantity, p_line_rec.shipped_quantity); -- catch weight ER
4417: ozf_utility_pvt.write_conc_log('Catch Weight VO p_line_rec.shipping_quantity = '|| p_line_rec.shipping_quantity);
4418: ozf_utility_pvt.write_conc_log('Catch Weight VO p_line_rec.shipping_quantity_uom = '|| p_line_rec.shipping_quantity_uom);
4419: ozf_utility_pvt.write_conc_log('Catch Weight VO p_line_rec.shipping_quantity2 = '|| p_line_rec.shipping_quantity2);
4420: ozf_utility_pvt.write_conc_log('Catch Weight VO p_line_rec.shipping_quantity_uom2 = '|| p_line_rec.shipping_quantity_uom2);
4421: ozf_utility_pvt.write_conc_log('Catch Weight VO p_line_rec.fulfillment_base = '|| p_line_rec.fulfillment_base);
4422: END IF;
4423:
4424: l_sales_transaction_rec.quantity := NVL(l_cw_quantity, p_line_rec.shipped_quantity); -- catch weight ER
4425: l_sales_transaction_rec.uom_code:= NVL(l_cw_quantity_uom, p_line_rec.line_uom_code);
4442: write_conc_log('gl date is sysdate: ' || l_gl_date);
4443: END IF;
4444:
4445: IF G_DEBUG THEN
4446: ozf_utility_pvt.write_conc_log('Catch Weight VO p_line_rec.invoiced_quantity = '|| p_line_rec.invoiced_quantity);
4447: END IF;
4448: l_sales_transaction_rec.quantity := p_line_rec.invoiced_quantity;
4449: l_sales_transaction_rec.uom_code:= NVL(p_line_rec.shipping_quantity_uom, p_line_rec.line_uom_code);
4450:
4553:
4554: l_act_util_rec.list_line_id := p_ldets_rec.list_line_id;
4555: l_act_budgets_rec.request_date := SYSDATE;
4556: l_act_budgets_rec.status_code := 'APPROVED';
4557: l_act_budgets_rec.user_status_id := ozf_Utility_Pvt.get_default_user_status (
4558: 'OZF_BUDGETSOURCE_STATUS', l_act_budgets_rec.status_code);
4559:
4560: l_act_budgets_rec.approval_date := SYSDATE;
4561: l_act_budgets_rec.approver_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
4557: l_act_budgets_rec.user_status_id := ozf_Utility_Pvt.get_default_user_status (
4558: 'OZF_BUDGETSOURCE_STATUS', l_act_budgets_rec.status_code);
4559:
4560: l_act_budgets_rec.approval_date := SYSDATE;
4561: l_act_budgets_rec.approver_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
4562: l_act_budgets_rec.justification := 'Offer adjustment before offer start date';
4563: l_act_budgets_rec.transfer_type := 'UTILIZED';
4564:
4565: l_act_util_rec.utilization_type :='ADJUSTMENT';
4596: FETCH c_get_group INTO l_group_id,l_pbh_line_id,l_included_vol_flag;
4597: CLOSE c_get_group;
4598:
4599: IF G_DEBUG THEN
4600: ozf_utility_pvt.debug_message(' l_group_id: '|| l_group_id );
4601: ozf_utility_pvt.debug_message(' l_pbh_line_id: '|| l_pbh_line_id );
4602: ozf_utility_pvt.debug_message(' l_included_vol_flag: '|| l_included_vol_flag );
4603: END IF;
4604: write_conc_log(' l_group_id: '|| l_group_id );
4597: CLOSE c_get_group;
4598:
4599: IF G_DEBUG THEN
4600: ozf_utility_pvt.debug_message(' l_group_id: '|| l_group_id );
4601: ozf_utility_pvt.debug_message(' l_pbh_line_id: '|| l_pbh_line_id );
4602: ozf_utility_pvt.debug_message(' l_included_vol_flag: '|| l_included_vol_flag );
4603: END IF;
4604: write_conc_log(' l_group_id: '|| l_group_id );
4605: write_conc_log(' l_pbh_line_id: '|| l_pbh_line_id );
4598:
4599: IF G_DEBUG THEN
4600: ozf_utility_pvt.debug_message(' l_group_id: '|| l_group_id );
4601: ozf_utility_pvt.debug_message(' l_pbh_line_id: '|| l_pbh_line_id );
4602: ozf_utility_pvt.debug_message(' l_included_vol_flag: '|| l_included_vol_flag );
4603: END IF;
4604: write_conc_log(' l_group_id: '|| l_group_id );
4605: write_conc_log(' l_pbh_line_id: '|| l_pbh_line_id );
4606: write_conc_log(' l_included_vol_flag: '|| l_included_vol_flag );
4638: OPEN c_exchange_rate_type(p_line_rec.org_id);
4639: FETCH c_exchange_rate_type INTO l_conv_type;
4640: CLOSE c_exchange_rate_type;
4641:
4642: ozf_utility_pvt.write_conc_log('order curr: ' || p_line_rec.transactional_curr_code);
4643: ozf_utility_pvt.write_conc_log('offer curr: ' || l_offer_info.transaction_currency_code);
4644: ozf_utility_pvt.write_conc_log('selling price: ' || p_line_rec.selling_price);
4645: ozf_utility_pvt.write_conc_log('l_conv_type: ' || l_conv_type);
4646:
4639: FETCH c_exchange_rate_type INTO l_conv_type;
4640: CLOSE c_exchange_rate_type;
4641:
4642: ozf_utility_pvt.write_conc_log('order curr: ' || p_line_rec.transactional_curr_code);
4643: ozf_utility_pvt.write_conc_log('offer curr: ' || l_offer_info.transaction_currency_code);
4644: ozf_utility_pvt.write_conc_log('selling price: ' || p_line_rec.selling_price);
4645: ozf_utility_pvt.write_conc_log('l_conv_type: ' || l_conv_type);
4646:
4647: --Since it is increased earned always so no change for
4640: CLOSE c_exchange_rate_type;
4641:
4642: ozf_utility_pvt.write_conc_log('order curr: ' || p_line_rec.transactional_curr_code);
4643: ozf_utility_pvt.write_conc_log('offer curr: ' || l_offer_info.transaction_currency_code);
4644: ozf_utility_pvt.write_conc_log('selling price: ' || p_line_rec.selling_price);
4645: ozf_utility_pvt.write_conc_log('l_conv_type: ' || l_conv_type);
4646:
4647: --Since it is increased earned always so no change for
4648: ozf_utility_pvt.convert_currency (x_return_status => l_return_status
4641:
4642: ozf_utility_pvt.write_conc_log('order curr: ' || p_line_rec.transactional_curr_code);
4643: ozf_utility_pvt.write_conc_log('offer curr: ' || l_offer_info.transaction_currency_code);
4644: ozf_utility_pvt.write_conc_log('selling price: ' || p_line_rec.selling_price);
4645: ozf_utility_pvt.write_conc_log('l_conv_type: ' || l_conv_type);
4646:
4647: --Since it is increased earned always so no change for
4648: ozf_utility_pvt.convert_currency (x_return_status => l_return_status
4649: ,p_conv_type => l_conv_type --7030415
4644: ozf_utility_pvt.write_conc_log('selling price: ' || p_line_rec.selling_price);
4645: ozf_utility_pvt.write_conc_log('l_conv_type: ' || l_conv_type);
4646:
4647: --Since it is increased earned always so no change for
4648: ozf_utility_pvt.convert_currency (x_return_status => l_return_status
4649: ,p_conv_type => l_conv_type --7030415
4650: ,p_conv_date => OZF_ACCRUAL_ENGINE.G_FAE_START_DATE
4651: ,p_from_currency => p_line_rec.transactional_curr_code
4652: ,p_to_currency => l_offer_info.transaction_currency_code
4665: write_conc_log ('selling price after currency conversion: ' || l_unit_selling_price);
4666:
4667: END IF;
4668: --12.2 end*/
4669: ozf_utility_pvt.write_conc_log('CWWWWWWWWWWWWWWWW VOOOOO--> l_utilization_amount = '|| l_utilization_amount);
4670: ozf_utility_pvt.write_conc_log('CWWWWWWWWWWWWWWWW VOOOOO--> p_ldets_rec.order_qty_adj_amt = '|| p_ldets_rec.order_qty_adj_amt);
4671: ozf_utility_pvt.write_conc_log('CWWWWWWWWWWWWWWWW VOOOOO--> p_line_rec.priced_quantity = '|| p_line_rec.priced_quantity);
4672: ozf_utility_pvt.write_conc_log('CWWWWWWWWWWWWWWWW VOOOOO--> p_line_rec.line_quantity = '|| p_line_rec.line_quantity);
4673: ozf_utility_pvt.write_conc_log('CWWWWWWWWWWWWWWWW VOOOOO--> p_line_rec.shipping_quantity_uom = '|| p_line_rec.shipping_quantity_uom);
4666:
4667: END IF;
4668: --12.2 end*/
4669: ozf_utility_pvt.write_conc_log('CWWWWWWWWWWWWWWWW VOOOOO--> l_utilization_amount = '|| l_utilization_amount);
4670: ozf_utility_pvt.write_conc_log('CWWWWWWWWWWWWWWWW VOOOOO--> p_ldets_rec.order_qty_adj_amt = '|| p_ldets_rec.order_qty_adj_amt);
4671: ozf_utility_pvt.write_conc_log('CWWWWWWWWWWWWWWWW VOOOOO--> p_line_rec.priced_quantity = '|| p_line_rec.priced_quantity);
4672: ozf_utility_pvt.write_conc_log('CWWWWWWWWWWWWWWWW VOOOOO--> p_line_rec.line_quantity = '|| p_line_rec.line_quantity);
4673: ozf_utility_pvt.write_conc_log('CWWWWWWWWWWWWWWWW VOOOOO--> p_line_rec.shipping_quantity_uom = '|| p_line_rec.shipping_quantity_uom);
4674:
4667: END IF;
4668: --12.2 end*/
4669: ozf_utility_pvt.write_conc_log('CWWWWWWWWWWWWWWWW VOOOOO--> l_utilization_amount = '|| l_utilization_amount);
4670: ozf_utility_pvt.write_conc_log('CWWWWWWWWWWWWWWWW VOOOOO--> p_ldets_rec.order_qty_adj_amt = '|| p_ldets_rec.order_qty_adj_amt);
4671: ozf_utility_pvt.write_conc_log('CWWWWWWWWWWWWWWWW VOOOOO--> p_line_rec.priced_quantity = '|| p_line_rec.priced_quantity);
4672: ozf_utility_pvt.write_conc_log('CWWWWWWWWWWWWWWWW VOOOOO--> p_line_rec.line_quantity = '|| p_line_rec.line_quantity);
4673: ozf_utility_pvt.write_conc_log('CWWWWWWWWWWWWWWWW VOOOOO--> p_line_rec.shipping_quantity_uom = '|| p_line_rec.shipping_quantity_uom);
4674:
4675: l_utilization_amount := p_ldets_rec.order_qty_adj_amt
4668: --12.2 end*/
4669: ozf_utility_pvt.write_conc_log('CWWWWWWWWWWWWWWWW VOOOOO--> l_utilization_amount = '|| l_utilization_amount);
4670: ozf_utility_pvt.write_conc_log('CWWWWWWWWWWWWWWWW VOOOOO--> p_ldets_rec.order_qty_adj_amt = '|| p_ldets_rec.order_qty_adj_amt);
4671: ozf_utility_pvt.write_conc_log('CWWWWWWWWWWWWWWWW VOOOOO--> p_line_rec.priced_quantity = '|| p_line_rec.priced_quantity);
4672: ozf_utility_pvt.write_conc_log('CWWWWWWWWWWWWWWWW VOOOOO--> p_line_rec.line_quantity = '|| p_line_rec.line_quantity);
4673: ozf_utility_pvt.write_conc_log('CWWWWWWWWWWWWWWWW VOOOOO--> p_line_rec.shipping_quantity_uom = '|| p_line_rec.shipping_quantity_uom);
4674:
4675: l_utilization_amount := p_ldets_rec.order_qty_adj_amt
4676: * NVL(p_line_rec.priced_quantity, ABS(p_line_rec.line_quantity))
4669: ozf_utility_pvt.write_conc_log('CWWWWWWWWWWWWWWWW VOOOOO--> l_utilization_amount = '|| l_utilization_amount);
4670: ozf_utility_pvt.write_conc_log('CWWWWWWWWWWWWWWWW VOOOOO--> p_ldets_rec.order_qty_adj_amt = '|| p_ldets_rec.order_qty_adj_amt);
4671: ozf_utility_pvt.write_conc_log('CWWWWWWWWWWWWWWWW VOOOOO--> p_line_rec.priced_quantity = '|| p_line_rec.priced_quantity);
4672: ozf_utility_pvt.write_conc_log('CWWWWWWWWWWWWWWWW VOOOOO--> p_line_rec.line_quantity = '|| p_line_rec.line_quantity);
4673: ozf_utility_pvt.write_conc_log('CWWWWWWWWWWWWWWWW VOOOOO--> p_line_rec.shipping_quantity_uom = '|| p_line_rec.shipping_quantity_uom);
4674:
4675: l_utilization_amount := p_ldets_rec.order_qty_adj_amt
4676: * NVL(p_line_rec.priced_quantity, ABS(p_line_rec.line_quantity))
4677: * SIGN(p_line_rec.line_quantity);
4731: ,x_msg_data=> l_msg_data
4732: );
4733:
4734: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4735: ozf_utility_pvt.write_conc_log ('volume adjustment Failed'
4736: || p_ldets_rec.list_header_id
4737: || ' SOURCE CODE '
4738: || p_adjIdByListHdrId(p_ldets_rec.list_header_id)
4739: || ' with the following Errors /'
4737: || ' SOURCE CODE '
4738: || p_adjIdByListHdrId(p_ldets_rec.list_header_id)
4739: || ' with the following Errors /'
4740: );
4741: ozf_utility_pvt.write_conc_log;
4742: fnd_msg_pub.initialize;
4743: RETURN;
4744: END IF;
4745: END IF;
4749:
4750: x_return_status := l_return_status;
4751:
4752: IF g_debug_flag = 'Y' THEN
4753: OZF_UTILITY_PVT.write_conc_log(l_full_name||': end');
4754: END IF;
4755:
4756: EXCEPTION
4757: WHEN FND_API.G_EXC_ERROR THEN
4911: -- Catch Weight ER
4912: BEGIN
4913: -- Debug Message
4914: IF g_debug_flag = 'Y' THEN
4915: OZF_UTILITY_PVT.debug_message(l_full_name||': start');
4916: END IF;
4917:
4918: x_return_status := FND_API.G_RET_STS_SUCCESS;
4919:
4929: l_act_budgets_rec.budget_source_id := p_ldets_rec.list_header_id;
4930: l_act_util_rec.fund_request_currency_code := l_offer_info.offer_currency_code;
4931: l_act_budgets_rec.request_date := SYSDATE;
4932: l_act_budgets_rec.status_code := 'APPROVED';
4933: l_act_budgets_rec.user_status_id := ozf_Utility_Pvt.get_default_user_status (
4934: 'OZF_BUDGETSOURCE_STATUS', l_act_budgets_rec.status_code);
4935:
4936: l_act_budgets_rec.approval_date := SYSDATE;
4937: l_act_budgets_rec.approver_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
4933: l_act_budgets_rec.user_status_id := ozf_Utility_Pvt.get_default_user_status (
4934: 'OZF_BUDGETSOURCE_STATUS', l_act_budgets_rec.status_code);
4935:
4936: l_act_budgets_rec.approval_date := SYSDATE;
4937: l_act_budgets_rec.approver_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
4938:
4939: OPEN c_adj_info(p_ldets_rec.list_line_id);
4940: FETCH c_adj_info INTO l_created_from_adjustments;
4941: CLOSE c_adj_info;
5033: IF l_offer_info.transaction_currency_code IS NULL THEN
5034: l_act_util_rec.plan_currency_code := p_line_rec.transactional_curr_code;
5035: l_act_budgets_rec.request_currency := p_line_rec.transactional_curr_code;
5036: l_act_budgets_rec.approved_in_currency := p_line_rec.transactional_curr_code;
5037: l_util_amount := ozf_utility_pvt.currround(l_util_amount, p_line_rec.transactional_curr_code);
5038: ELSE
5039: l_act_util_rec.plan_currency_code := l_offer_info.transaction_currency_code;
5040: l_act_budgets_rec.request_currency := l_offer_info.transaction_currency_code;
5041: l_act_budgets_rec.approved_in_currency := l_offer_info.transaction_currency_code;
5038: ELSE
5039: l_act_util_rec.plan_currency_code := l_offer_info.transaction_currency_code;
5040: l_act_budgets_rec.request_currency := l_offer_info.transaction_currency_code;
5041: l_act_budgets_rec.approved_in_currency := l_offer_info.transaction_currency_code;
5042: l_util_amount := ozf_utility_pvt.currround(l_util_amount, l_offer_info.transaction_currency_code);
5043: END IF;
5044: --end ER 8399134
5045:
5046: l_act_util_rec.list_line_id := p_ldets_rec.list_line_id;
5055: l_act_util_rec.discount_amount := p_ldets_rec.operand_value;
5056: l_act_util_rec.discount_type := p_ldets_rec.operand_calculation_code;
5057:
5058: IF g_debug_flag = 'Y' THEN
5059: ozf_utility_pvt.write_conc_log('l_act_util_rec.discount_amount = ' || l_act_util_rec.discount_amount);
5060: ozf_utility_pvt.write_conc_log('l_act_util_rec.discount_type = ' || l_act_util_rec.discount_type);
5061: ozf_utility_pvt.write_conc_log('l_act_budgets_rec.request_currency = ' || l_act_budgets_rec.request_currency);
5062: END IF;
5063:
5056: l_act_util_rec.discount_type := p_ldets_rec.operand_calculation_code;
5057:
5058: IF g_debug_flag = 'Y' THEN
5059: ozf_utility_pvt.write_conc_log('l_act_util_rec.discount_amount = ' || l_act_util_rec.discount_amount);
5060: ozf_utility_pvt.write_conc_log('l_act_util_rec.discount_type = ' || l_act_util_rec.discount_type);
5061: ozf_utility_pvt.write_conc_log('l_act_budgets_rec.request_currency = ' || l_act_budgets_rec.request_currency);
5062: END IF;
5063:
5064: MO_GLOBAL.set_policy_context('S', l_order_org_id);
5057:
5058: IF g_debug_flag = 'Y' THEN
5059: ozf_utility_pvt.write_conc_log('l_act_util_rec.discount_amount = ' || l_act_util_rec.discount_amount);
5060: ozf_utility_pvt.write_conc_log('l_act_util_rec.discount_type = ' || l_act_util_rec.discount_type);
5061: ozf_utility_pvt.write_conc_log('l_act_budgets_rec.request_currency = ' || l_act_budgets_rec.request_currency);
5062: END IF;
5063:
5064: MO_GLOBAL.set_policy_context('S', l_order_org_id);
5065: l_column_name := FND_PROFILE.VALUE('OZF_ITEM_COST_COLUMN');
5066:
5067: IF l_column_name IS NOT NULL AND l_column_name <> FND_API.G_MISS_CHAR THEN
5068: l_stmt := 'SELECT ' || l_column_name ||' FROM oe_order_lines_all WHERE line_id = :1 AND org_id = :2';
5069: IF g_debug_flag = 'Y' THEN
5070: ozf_utility_pvt.write_conc_log('Query to obtain purchase price '||l_stmt);
5071: END IF;
5072:
5073: OPEN c_purchase_price FOR l_stmt using p_line_rec.line_id, l_order_org_id;
5074: FETCH c_purchase_price INTO l_cost_price;
5088: RETURN;
5089: END IF;
5090:
5091: IF G_DEBUG THEN
5092: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ l_cost_price = ' || l_cost_price);
5093: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_ldets_rec.line_quantity = ' || p_ldets_rec.line_quantity);
5094: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.line_quantity = ' || p_line_rec.line_quantity);
5095: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ l_arithmetic_operator = ' || l_act_util_rec.discount_type);
5096: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ l_operand = ' || p_ldets_rec.operand_value);
5089: END IF;
5090:
5091: IF G_DEBUG THEN
5092: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ l_cost_price = ' || l_cost_price);
5093: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_ldets_rec.line_quantity = ' || p_ldets_rec.line_quantity);
5094: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.line_quantity = ' || p_line_rec.line_quantity);
5095: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ l_arithmetic_operator = ' || l_act_util_rec.discount_type);
5096: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ l_operand = ' || p_ldets_rec.operand_value);
5097: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.priced_quantity = ' || p_line_rec.priced_quantity);
5090:
5091: IF G_DEBUG THEN
5092: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ l_cost_price = ' || l_cost_price);
5093: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_ldets_rec.line_quantity = ' || p_ldets_rec.line_quantity);
5094: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.line_quantity = ' || p_line_rec.line_quantity);
5095: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ l_arithmetic_operator = ' || l_act_util_rec.discount_type);
5096: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ l_operand = ' || p_ldets_rec.operand_value);
5097: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.priced_quantity = ' || p_line_rec.priced_quantity);
5098: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.order_quantity_uom = ' || p_line_rec.line_uom_code);
5091: IF G_DEBUG THEN
5092: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ l_cost_price = ' || l_cost_price);
5093: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_ldets_rec.line_quantity = ' || p_ldets_rec.line_quantity);
5094: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.line_quantity = ' || p_line_rec.line_quantity);
5095: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ l_arithmetic_operator = ' || l_act_util_rec.discount_type);
5096: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ l_operand = ' || p_ldets_rec.operand_value);
5097: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.priced_quantity = ' || p_line_rec.priced_quantity);
5098: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.order_quantity_uom = ' || p_line_rec.line_uom_code);
5099: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.shipping_quantity = ' || p_line_rec.shipping_quantity);
5092: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ l_cost_price = ' || l_cost_price);
5093: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_ldets_rec.line_quantity = ' || p_ldets_rec.line_quantity);
5094: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.line_quantity = ' || p_line_rec.line_quantity);
5095: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ l_arithmetic_operator = ' || l_act_util_rec.discount_type);
5096: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ l_operand = ' || p_ldets_rec.operand_value);
5097: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.priced_quantity = ' || p_line_rec.priced_quantity);
5098: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.order_quantity_uom = ' || p_line_rec.line_uom_code);
5099: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.shipping_quantity = ' || p_line_rec.shipping_quantity);
5100: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.shipping_quantity_uom = ' || p_line_rec.shipping_quantity_uom);
5093: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_ldets_rec.line_quantity = ' || p_ldets_rec.line_quantity);
5094: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.line_quantity = ' || p_line_rec.line_quantity);
5095: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ l_arithmetic_operator = ' || l_act_util_rec.discount_type);
5096: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ l_operand = ' || p_ldets_rec.operand_value);
5097: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.priced_quantity = ' || p_line_rec.priced_quantity);
5098: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.order_quantity_uom = ' || p_line_rec.line_uom_code);
5099: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.shipping_quantity = ' || p_line_rec.shipping_quantity);
5100: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.shipping_quantity_uom = ' || p_line_rec.shipping_quantity_uom);
5101: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.shipping_quantity2 = ' || p_line_rec.shipping_quantity2);
5094: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.line_quantity = ' || p_line_rec.line_quantity);
5095: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ l_arithmetic_operator = ' || l_act_util_rec.discount_type);
5096: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ l_operand = ' || p_ldets_rec.operand_value);
5097: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.priced_quantity = ' || p_line_rec.priced_quantity);
5098: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.order_quantity_uom = ' || p_line_rec.line_uom_code);
5099: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.shipping_quantity = ' || p_line_rec.shipping_quantity);
5100: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.shipping_quantity_uom = ' || p_line_rec.shipping_quantity_uom);
5101: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.shipping_quantity2 = ' || p_line_rec.shipping_quantity2);
5102: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.shipping_quantity_uom2 = ' || p_line_rec.shipping_quantity_uom2);
5095: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ l_arithmetic_operator = ' || l_act_util_rec.discount_type);
5096: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ l_operand = ' || p_ldets_rec.operand_value);
5097: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.priced_quantity = ' || p_line_rec.priced_quantity);
5098: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.order_quantity_uom = ' || p_line_rec.line_uom_code);
5099: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.shipping_quantity = ' || p_line_rec.shipping_quantity);
5100: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.shipping_quantity_uom = ' || p_line_rec.shipping_quantity_uom);
5101: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.shipping_quantity2 = ' || p_line_rec.shipping_quantity2);
5102: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.shipping_quantity_uom2 = ' || p_line_rec.shipping_quantity_uom2);
5103: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.fulfillment_base = ' || p_line_rec.fulfillment_base);
5096: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ l_operand = ' || p_ldets_rec.operand_value);
5097: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.priced_quantity = ' || p_line_rec.priced_quantity);
5098: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.order_quantity_uom = ' || p_line_rec.line_uom_code);
5099: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.shipping_quantity = ' || p_line_rec.shipping_quantity);
5100: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.shipping_quantity_uom = ' || p_line_rec.shipping_quantity_uom);
5101: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.shipping_quantity2 = ' || p_line_rec.shipping_quantity2);
5102: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.shipping_quantity_uom2 = ' || p_line_rec.shipping_quantity_uom2);
5103: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.fulfillment_base = ' || p_line_rec.fulfillment_base);
5104: END IF;
5097: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.priced_quantity = ' || p_line_rec.priced_quantity);
5098: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.order_quantity_uom = ' || p_line_rec.line_uom_code);
5099: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.shipping_quantity = ' || p_line_rec.shipping_quantity);
5100: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.shipping_quantity_uom = ' || p_line_rec.shipping_quantity_uom);
5101: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.shipping_quantity2 = ' || p_line_rec.shipping_quantity2);
5102: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.shipping_quantity_uom2 = ' || p_line_rec.shipping_quantity_uom2);
5103: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.fulfillment_base = ' || p_line_rec.fulfillment_base);
5104: END IF;
5105:
5098: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.order_quantity_uom = ' || p_line_rec.line_uom_code);
5099: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.shipping_quantity = ' || p_line_rec.shipping_quantity);
5100: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.shipping_quantity_uom = ' || p_line_rec.shipping_quantity_uom);
5101: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.shipping_quantity2 = ' || p_line_rec.shipping_quantity2);
5102: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.shipping_quantity_uom2 = ' || p_line_rec.shipping_quantity_uom2);
5103: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.fulfillment_base = ' || p_line_rec.fulfillment_base);
5104: END IF;
5105:
5106: -- Catch Weight ER - start
5099: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.shipping_quantity = ' || p_line_rec.shipping_quantity);
5100: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.shipping_quantity_uom = ' || p_line_rec.shipping_quantity_uom);
5101: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.shipping_quantity2 = ' || p_line_rec.shipping_quantity2);
5102: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.shipping_quantity_uom2 = ' || p_line_rec.shipping_quantity_uom2);
5103: ozf_utility_pvt.write_conc_log(' SSD D: adjust_accrual()_ p_line_rec.fulfillment_base = ' || p_line_rec.fulfillment_base);
5104: END IF;
5105:
5106: -- Catch Weight ER - start
5107: -- Converting shipping quantity from shipping uom to order uom only when arithmatic op is not AMT, as in case of AMT, operand takes care of catch weight
5106: -- Catch Weight ER - start
5107: -- Converting shipping quantity from shipping uom to order uom only when arithmatic op is not AMT, as in case of AMT, operand takes care of catch weight
5108: IF l_act_util_rec.discount_type <> 'AMT' THEN
5109:
5110: /* OZF_UTILITY_PVT.get_catch_weight_quantity (
5111: p_inventory_item_id => p_line_rec.inventory_item_id,
5112: p_order_line_id => p_line_rec.line_id,
5113: x_return_status => l_return_status,
5114: x_cw_quantity => l_cw_quantity,
5136: ,p_line_rec.line_uom_code -- to_unit
5137: ,NULL -- from_name
5138: ,NULL -- to_name
5139: );
5140: ozf_utility_pvt.write_conc_log(' Catch Weight D: adjust_accrual()_ l_line_quantity = ' || l_line_quantity);
5141: END IF;
5142: END IF;
5143: -- Catch Weight ER - end
5144: IF l_act_util_rec.discount_type = 'AMT' THEN
5207: END IF; -- l_order_line_tbl(j).line_category_code ='RETURN'*/
5208:
5209: IF p_line_rec.line_category_code = 'RETURN' THEN
5210: IF g_debug_flag = 'Y' THEN
5211: ozf_utility_pvt.write_conc_log ( ' LINE IS RETURN ');
5212: END IF;
5213: l_util_amount := - l_util_amount;
5214: END IF;
5215:
5271: write_conc_log('Process_SSD_Result returns: ' || x_return_status);
5272: x_return_status := l_return_status;
5273:
5274: IF g_debug_flag = 'Y' THEN
5275: OZF_UTILITY_PVT.write_conc_log(l_full_name||': end');
5276: END IF;
5277:
5278: EXCEPTION
5279: WHEN FND_API.G_EXC_ERROR THEN
5405: l_act_budget_id NUMBER;
5406: BEGIN
5407: -- Debug Message
5408: IF g_debug_flag = 'Y' THEN
5409: OZF_UTILITY_PVT.debug_message(l_full_name||': start');
5410: END IF;
5411:
5412: x_return_status := FND_API.G_RET_STS_SUCCESS;
5413:
5427: l_act_budgets_rec.budget_source_id := p_ldets_rec.list_header_id;
5428: l_act_util_rec.fund_request_currency_code := l_offer_info.offer_currency_code;
5429: l_act_budgets_rec.request_date := SYSDATE;
5430: l_act_budgets_rec.status_code := 'APPROVED';
5431: l_act_budgets_rec.user_status_id := ozf_Utility_Pvt.get_default_user_status (
5432: 'OZF_BUDGETSOURCE_STATUS', l_act_budgets_rec.status_code);
5433:
5434: l_act_budgets_rec.approval_date := SYSDATE;
5435: l_act_budgets_rec.approver_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
5431: l_act_budgets_rec.user_status_id := ozf_Utility_Pvt.get_default_user_status (
5432: 'OZF_BUDGETSOURCE_STATUS', l_act_budgets_rec.status_code);
5433:
5434: l_act_budgets_rec.approval_date := SYSDATE;
5435: l_act_budgets_rec.approver_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
5436:
5437: OPEN c_adj_info(p_ldets_rec.list_line_id);
5438: FETCH c_adj_info INTO l_created_from_adjustments;
5439: CLOSE c_adj_info;
5511: --verify if its assigned? before call to process_pricing_results
5512: --p_ldets_rec.line_quantity := NVL(p_line_rec.priced_quantity, ABS(p_line_rec.quantity));
5513: --p_ldets_rec.line_quantity := p_ldets_rec.line_quantity
5514: -- * SIGN(p_line_rec.quantity);
5515: ozf_utility_pvt.write_conc_log('Catch Weight ADJ AACR --> p_ldets_rec.order_qty_adj_amt = '|| p_ldets_rec.order_qty_adj_amt);
5516: ozf_utility_pvt.write_conc_log('Catch Weight ADJ AACR --> p_line_rec.priced_quantity = '|| p_line_rec.priced_quantity);
5517: ozf_utility_pvt.write_conc_log('Catch Weight ADJ AACR --> p_line_rec.line_quantity = '|| p_line_rec.line_quantity);
5518: ozf_utility_pvt.write_conc_log('Catch Weight ADJ AACR --> p_line_rec.shipping_quantity_uom = '|| p_line_rec.shipping_quantity_uom);
5519: l_util_amount := p_ldets_rec.order_qty_adj_amt
5512: --p_ldets_rec.line_quantity := NVL(p_line_rec.priced_quantity, ABS(p_line_rec.quantity));
5513: --p_ldets_rec.line_quantity := p_ldets_rec.line_quantity
5514: -- * SIGN(p_line_rec.quantity);
5515: ozf_utility_pvt.write_conc_log('Catch Weight ADJ AACR --> p_ldets_rec.order_qty_adj_amt = '|| p_ldets_rec.order_qty_adj_amt);
5516: ozf_utility_pvt.write_conc_log('Catch Weight ADJ AACR --> p_line_rec.priced_quantity = '|| p_line_rec.priced_quantity);
5517: ozf_utility_pvt.write_conc_log('Catch Weight ADJ AACR --> p_line_rec.line_quantity = '|| p_line_rec.line_quantity);
5518: ozf_utility_pvt.write_conc_log('Catch Weight ADJ AACR --> p_line_rec.shipping_quantity_uom = '|| p_line_rec.shipping_quantity_uom);
5519: l_util_amount := p_ldets_rec.order_qty_adj_amt
5520: * NVL(p_line_rec.priced_quantity, ABS(p_line_rec.line_quantity))
5513: --p_ldets_rec.line_quantity := p_ldets_rec.line_quantity
5514: -- * SIGN(p_line_rec.quantity);
5515: ozf_utility_pvt.write_conc_log('Catch Weight ADJ AACR --> p_ldets_rec.order_qty_adj_amt = '|| p_ldets_rec.order_qty_adj_amt);
5516: ozf_utility_pvt.write_conc_log('Catch Weight ADJ AACR --> p_line_rec.priced_quantity = '|| p_line_rec.priced_quantity);
5517: ozf_utility_pvt.write_conc_log('Catch Weight ADJ AACR --> p_line_rec.line_quantity = '|| p_line_rec.line_quantity);
5518: ozf_utility_pvt.write_conc_log('Catch Weight ADJ AACR --> p_line_rec.shipping_quantity_uom = '|| p_line_rec.shipping_quantity_uom);
5519: l_util_amount := p_ldets_rec.order_qty_adj_amt
5520: * NVL(p_line_rec.priced_quantity, ABS(p_line_rec.line_quantity))
5521: * SIGN(p_line_rec.line_quantity);
5514: -- * SIGN(p_line_rec.quantity);
5515: ozf_utility_pvt.write_conc_log('Catch Weight ADJ AACR --> p_ldets_rec.order_qty_adj_amt = '|| p_ldets_rec.order_qty_adj_amt);
5516: ozf_utility_pvt.write_conc_log('Catch Weight ADJ AACR --> p_line_rec.priced_quantity = '|| p_line_rec.priced_quantity);
5517: ozf_utility_pvt.write_conc_log('Catch Weight ADJ AACR --> p_line_rec.line_quantity = '|| p_line_rec.line_quantity);
5518: ozf_utility_pvt.write_conc_log('Catch Weight ADJ AACR --> p_line_rec.shipping_quantity_uom = '|| p_line_rec.shipping_quantity_uom);
5519: l_util_amount := p_ldets_rec.order_qty_adj_amt
5520: * NVL(p_line_rec.priced_quantity, ABS(p_line_rec.line_quantity))
5521: * SIGN(p_line_rec.line_quantity);
5522:
5542: IF l_offer_info.transaction_currency_code IS NULL THEN
5543: l_act_util_rec.plan_currency_code := p_line_rec.transactional_curr_code;
5544: l_act_budgets_rec.request_currency := p_line_rec.transactional_curr_code;
5545: l_act_budgets_rec.approved_in_currency := p_line_rec.transactional_curr_code;
5546: l_util_amount := ozf_utility_pvt.currround(l_util_amount, p_line_rec.transactional_curr_code);
5547: ELSE
5548: l_act_util_rec.plan_currency_code := l_offer_info.transaction_currency_code;
5549: l_act_budgets_rec.request_currency := l_offer_info.transaction_currency_code;
5550: l_act_budgets_rec.approved_in_currency := l_offer_info.transaction_currency_code;
5547: ELSE
5548: l_act_util_rec.plan_currency_code := l_offer_info.transaction_currency_code;
5549: l_act_budgets_rec.request_currency := l_offer_info.transaction_currency_code;
5550: l_act_budgets_rec.approved_in_currency := l_offer_info.transaction_currency_code;
5551: l_util_amount := ozf_utility_pvt.currround(l_util_amount, l_offer_info.transaction_currency_code);
5552: END IF;
5553: --end ER 8399134
5554:
5555: l_act_util_rec.list_line_id := p_ldets_rec.list_line_id;
5565:
5566: IF p_line_rec.line_category_code ='RETURN' THEN
5567:
5568: IF g_debug_flag = 'Y' THEN
5569: ozf_utility_pvt.write_conc_log ( ' LINE IS RETURN ');
5570: END IF;
5571:
5572: IF p_line_rec.reference_line_id is NOT NULL THEN
5573: OPEN c_orig_order_adj_amt (p_line_rec.reference_line_id,p_ldets_rec.list_header_id);
5671:
5672: x_return_status := l_return_status;
5673:
5674: IF g_debug_flag = 'Y' THEN
5675: OZF_UTILITY_PVT.write_conc_log(l_full_name||': end');
5676: END IF;
5677:
5678: EXCEPTION
5679: WHEN FND_API.G_EXC_ERROR THEN
5751:
5752: BEGIN
5753: -- Debug Message
5754: IF g_debug_flag = 'Y' THEN
5755: OZF_UTILITY_PVT.write_conc_log(l_full_name||': start');
5756: END IF;
5757:
5758: x_return_status := FND_API.G_RET_STS_SUCCESS;
5759:
5774: IF l_has_error THEN
5775: -- IF there is an error for a line or lines, we need to UPDATE the whole order as error;
5776: -- nothing to UPDATE if it's FROM line.
5777:
5778: ozf_utility_pvt.write_conc_log('order fails');
5779:
5780: RETURN;
5781:
5782: ELSE
5821: -- END IF;
5822:
5823:
5824: IF g_debug_flag = 'Y' THEN
5825: ozf_utility_pvt.write_conc_log(l_api_name||' >> qp_ldets_v (+)');
5826: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').list_header_id = '|| l_ldets_tbl(k).list_header_id);
5827: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').list_line_type_code = '|| l_ldets_tbl(k).list_line_type_code);
5828: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').applied_flag = '|| l_ldets_tbl(k).applied_flag);
5829: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').accrual_flag = '|| l_ldets_tbl(k).accrual_flag);
5822:
5823:
5824: IF g_debug_flag = 'Y' THEN
5825: ozf_utility_pvt.write_conc_log(l_api_name||' >> qp_ldets_v (+)');
5826: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').list_header_id = '|| l_ldets_tbl(k).list_header_id);
5827: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').list_line_type_code = '|| l_ldets_tbl(k).list_line_type_code);
5828: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').applied_flag = '|| l_ldets_tbl(k).applied_flag);
5829: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').accrual_flag = '|| l_ldets_tbl(k).accrual_flag);
5830: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').automatic_flag = '|| l_ldets_tbl(k).automatic_flag);
5823:
5824: IF g_debug_flag = 'Y' THEN
5825: ozf_utility_pvt.write_conc_log(l_api_name||' >> qp_ldets_v (+)');
5826: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').list_header_id = '|| l_ldets_tbl(k).list_header_id);
5827: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').list_line_type_code = '|| l_ldets_tbl(k).list_line_type_code);
5828: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').applied_flag = '|| l_ldets_tbl(k).applied_flag);
5829: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').accrual_flag = '|| l_ldets_tbl(k).accrual_flag);
5830: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').automatic_flag = '|| l_ldets_tbl(k).automatic_flag);
5831: ozf_utility_pvt.write_conc_log('p_line_tbl('||i||').line_id = '|| p_line_tbl(i).line_id);
5824: IF g_debug_flag = 'Y' THEN
5825: ozf_utility_pvt.write_conc_log(l_api_name||' >> qp_ldets_v (+)');
5826: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').list_header_id = '|| l_ldets_tbl(k).list_header_id);
5827: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').list_line_type_code = '|| l_ldets_tbl(k).list_line_type_code);
5828: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').applied_flag = '|| l_ldets_tbl(k).applied_flag);
5829: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').accrual_flag = '|| l_ldets_tbl(k).accrual_flag);
5830: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').automatic_flag = '|| l_ldets_tbl(k).automatic_flag);
5831: ozf_utility_pvt.write_conc_log('p_line_tbl('||i||').line_id = '|| p_line_tbl(i).line_id);
5832: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').list_line_id = '|| l_ldets_tbl(k).list_line_id);
5825: ozf_utility_pvt.write_conc_log(l_api_name||' >> qp_ldets_v (+)');
5826: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').list_header_id = '|| l_ldets_tbl(k).list_header_id);
5827: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').list_line_type_code = '|| l_ldets_tbl(k).list_line_type_code);
5828: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').applied_flag = '|| l_ldets_tbl(k).applied_flag);
5829: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').accrual_flag = '|| l_ldets_tbl(k).accrual_flag);
5830: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').automatic_flag = '|| l_ldets_tbl(k).automatic_flag);
5831: ozf_utility_pvt.write_conc_log('p_line_tbl('||i||').line_id = '|| p_line_tbl(i).line_id);
5832: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').list_line_id = '|| l_ldets_tbl(k).list_line_id);
5833: ozf_utility_pvt.write_conc_log(l_api_name||' >> qp_ldets_v (-)');
5826: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').list_header_id = '|| l_ldets_tbl(k).list_header_id);
5827: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').list_line_type_code = '|| l_ldets_tbl(k).list_line_type_code);
5828: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').applied_flag = '|| l_ldets_tbl(k).applied_flag);
5829: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').accrual_flag = '|| l_ldets_tbl(k).accrual_flag);
5830: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').automatic_flag = '|| l_ldets_tbl(k).automatic_flag);
5831: ozf_utility_pvt.write_conc_log('p_line_tbl('||i||').line_id = '|| p_line_tbl(i).line_id);
5832: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').list_line_id = '|| l_ldets_tbl(k).list_line_id);
5833: ozf_utility_pvt.write_conc_log(l_api_name||' >> qp_ldets_v (-)');
5834: END IF;
5827: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').list_line_type_code = '|| l_ldets_tbl(k).list_line_type_code);
5828: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').applied_flag = '|| l_ldets_tbl(k).applied_flag);
5829: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').accrual_flag = '|| l_ldets_tbl(k).accrual_flag);
5830: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').automatic_flag = '|| l_ldets_tbl(k).automatic_flag);
5831: ozf_utility_pvt.write_conc_log('p_line_tbl('||i||').line_id = '|| p_line_tbl(i).line_id);
5832: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').list_line_id = '|| l_ldets_tbl(k).list_line_id);
5833: ozf_utility_pvt.write_conc_log(l_api_name||' >> qp_ldets_v (-)');
5834: END IF;
5835:
5828: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').applied_flag = '|| l_ldets_tbl(k).applied_flag);
5829: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').accrual_flag = '|| l_ldets_tbl(k).accrual_flag);
5830: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').automatic_flag = '|| l_ldets_tbl(k).automatic_flag);
5831: ozf_utility_pvt.write_conc_log('p_line_tbl('||i||').line_id = '|| p_line_tbl(i).line_id);
5832: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').list_line_id = '|| l_ldets_tbl(k).list_line_id);
5833: ozf_utility_pvt.write_conc_log(l_api_name||' >> qp_ldets_v (-)');
5834: END IF;
5835:
5836: IF l_ldets_tbl(k).list_line_type_code IN ('CIE', 'DIS', 'IUE', 'OID', 'PLL', 'PMR', 'TSN','PBH') THEN
5829: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').accrual_flag = '|| l_ldets_tbl(k).accrual_flag);
5830: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').automatic_flag = '|| l_ldets_tbl(k).automatic_flag);
5831: ozf_utility_pvt.write_conc_log('p_line_tbl('||i||').line_id = '|| p_line_tbl(i).line_id);
5832: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').list_line_id = '|| l_ldets_tbl(k).list_line_id);
5833: ozf_utility_pvt.write_conc_log(l_api_name||' >> qp_ldets_v (-)');
5834: END IF;
5835:
5836: IF l_ldets_tbl(k).list_line_type_code IN ('CIE', 'DIS', 'IUE', 'OID', 'PLL', 'PMR', 'TSN','PBH') THEN
5837: -- create utilization based on an offer
5864: --l_ldets_tbl(k).line_quantity := NVL(p_line_tbl(i).priced_quantity, ABS(p_line_tbl(i).quantity));
5865:
5866: IF g_debug_flag = 'Y' THEN
5867: IF l_is_valid_offer AND p_adjIdByListHdrId.EXISTS(l_ldets_tbl(k).list_header_id) THEN
5868: ozf_utility_pvt.write_conc_log(l_api_name||' >> Accrual for TM OFFR (+)');
5869: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').list_header_id = '|| l_ldets_tbl(k).list_header_id);
5870: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').order_qty_adj_amt = '|| l_ldets_tbl(k).order_qty_adj_amt);
5871: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').line_quantity = '|| l_ldets_tbl(k).line_quantity);
5872: ozf_utility_pvt.write_conc_log('order line priced_quantity = '|| p_line_tbl(i).priced_quantity);
5865:
5866: IF g_debug_flag = 'Y' THEN
5867: IF l_is_valid_offer AND p_adjIdByListHdrId.EXISTS(l_ldets_tbl(k).list_header_id) THEN
5868: ozf_utility_pvt.write_conc_log(l_api_name||' >> Accrual for TM OFFR (+)');
5869: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').list_header_id = '|| l_ldets_tbl(k).list_header_id);
5870: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').order_qty_adj_amt = '|| l_ldets_tbl(k).order_qty_adj_amt);
5871: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').line_quantity = '|| l_ldets_tbl(k).line_quantity);
5872: ozf_utility_pvt.write_conc_log('order line priced_quantity = '|| p_line_tbl(i).priced_quantity);
5873: IF l_ldets_tbl(k).list_line_type_code = 'PLL' THEN
5866: IF g_debug_flag = 'Y' THEN
5867: IF l_is_valid_offer AND p_adjIdByListHdrId.EXISTS(l_ldets_tbl(k).list_header_id) THEN
5868: ozf_utility_pvt.write_conc_log(l_api_name||' >> Accrual for TM OFFR (+)');
5869: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').list_header_id = '|| l_ldets_tbl(k).list_header_id);
5870: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').order_qty_adj_amt = '|| l_ldets_tbl(k).order_qty_adj_amt);
5871: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').line_quantity = '|| l_ldets_tbl(k).line_quantity);
5872: ozf_utility_pvt.write_conc_log('order line priced_quantity = '|| p_line_tbl(i).priced_quantity);
5873: IF l_ldets_tbl(k).list_line_type_code = 'PLL' THEN
5874: ozf_utility_pvt.debug_message('order line unit_price = '|| p_line_tbl(i).unit_price);
5867: IF l_is_valid_offer AND p_adjIdByListHdrId.EXISTS(l_ldets_tbl(k).list_header_id) THEN
5868: ozf_utility_pvt.write_conc_log(l_api_name||' >> Accrual for TM OFFR (+)');
5869: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').list_header_id = '|| l_ldets_tbl(k).list_header_id);
5870: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').order_qty_adj_amt = '|| l_ldets_tbl(k).order_qty_adj_amt);
5871: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').line_quantity = '|| l_ldets_tbl(k).line_quantity);
5872: ozf_utility_pvt.write_conc_log('order line priced_quantity = '|| p_line_tbl(i).priced_quantity);
5873: IF l_ldets_tbl(k).list_line_type_code = 'PLL' THEN
5874: ozf_utility_pvt.debug_message('order line unit_price = '|| p_line_tbl(i).unit_price);
5875: END IF;
5868: ozf_utility_pvt.write_conc_log(l_api_name||' >> Accrual for TM OFFR (+)');
5869: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').list_header_id = '|| l_ldets_tbl(k).list_header_id);
5870: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').order_qty_adj_amt = '|| l_ldets_tbl(k).order_qty_adj_amt);
5871: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').line_quantity = '|| l_ldets_tbl(k).line_quantity);
5872: ozf_utility_pvt.write_conc_log('order line priced_quantity = '|| p_line_tbl(i).priced_quantity);
5873: IF l_ldets_tbl(k).list_line_type_code = 'PLL' THEN
5874: ozf_utility_pvt.debug_message('order line unit_price = '|| p_line_tbl(i).unit_price);
5875: END IF;
5876: ozf_utility_pvt.write_conc_log(l_api_name||' >> Accrual for TM OFFR or PLL adjustment (-)');
5870: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').order_qty_adj_amt = '|| l_ldets_tbl(k).order_qty_adj_amt);
5871: ozf_utility_pvt.write_conc_log('l_ldets_tbl('||k||').line_quantity = '|| l_ldets_tbl(k).line_quantity);
5872: ozf_utility_pvt.write_conc_log('order line priced_quantity = '|| p_line_tbl(i).priced_quantity);
5873: IF l_ldets_tbl(k).list_line_type_code = 'PLL' THEN
5874: ozf_utility_pvt.debug_message('order line unit_price = '|| p_line_tbl(i).unit_price);
5875: END IF;
5876: ozf_utility_pvt.write_conc_log(l_api_name||' >> Accrual for TM OFFR or PLL adjustment (-)');
5877: ELSE
5878: IF g_debug_flag = 'Y' THEN
5872: ozf_utility_pvt.write_conc_log('order line priced_quantity = '|| p_line_tbl(i).priced_quantity);
5873: IF l_ldets_tbl(k).list_line_type_code = 'PLL' THEN
5874: ozf_utility_pvt.debug_message('order line unit_price = '|| p_line_tbl(i).unit_price);
5875: END IF;
5876: ozf_utility_pvt.write_conc_log(l_api_name||' >> Accrual for TM OFFR or PLL adjustment (-)');
5877: ELSE
5878: IF g_debug_flag = 'Y' THEN
5879: ozf_utility_pvt.write_conc_log('Not a TM offer OR No valid adjustments: offer id: ' || l_ldets_tbl(k).list_header_id);
5880: END IF;
5875: END IF;
5876: ozf_utility_pvt.write_conc_log(l_api_name||' >> Accrual for TM OFFR or PLL adjustment (-)');
5877: ELSE
5878: IF g_debug_flag = 'Y' THEN
5879: ozf_utility_pvt.write_conc_log('Not a TM offer OR No valid adjustments: offer id: ' || l_ldets_tbl(k).list_header_id);
5880: END IF;
5881: GOTO LABEL_FOR_NEXT_ITERATION;
5882: END IF;
5883: END IF;
5930:
5931: x_return_status := l_return_status;
5932:
5933: IF g_debug_flag = 'Y' THEN
5934: OZF_UTILITY_PVT.write_conc_log(l_full_name||': end');
5935: END IF;
5936:
5937: EXCEPTION
5938: WHEN FND_API.G_EXC_ERROR THEN
6520: || l_to_date);
6521: SAVEPOINT perform_adjustment;
6522: x_return_status := fnd_api.g_ret_sts_success;
6523: IF G_DEBUG THEN
6524: ozf_utility_pvt.debug_message (': begin ');
6525: END IF;
6526: IF fnd_api.to_boolean (p_init_msg_list) THEN
6527: fnd_msg_pub.initialize;
6528: END IF;
6599: OPEN c_org_id(backdate_adj_rec(i).utilization_id);
6600: FETCH c_org_id INTO l_org_id;
6601: CLOSE c_org_id;
6602:
6603: l_util_amount := ozf_utility_pvt.currround(backdate_adj_rec(i).plan_curr_amount,backdate_adj_rec(i).plan_currency_code); -- in transactional currency
6604: write_conc_log ( l_full_name
6605: || ' : '
6606: || 'Inside LOOP, Util Amount '
6607: || l_util_amount || 'Adj Amount '||l_adj_amt);
6632: write_conc_log ('backdate_adj_rec(i).plan_currency_code '||backdate_adj_rec(i).plan_currency_code);
6633: END IF;
6634:
6635: IF backdate_adj_rec(i).currency_code = backdate_adj_rec(i).plan_currency_code THEN
6636: l_act_budgets_rec.parent_src_apprvd_amt := ozf_utility_pvt.currround(l_util_amount,backdate_adj_rec(i).currency_code);
6637: ELSE
6638:
6639: ozf_utility_pvt.convert_currency (
6640: x_return_status => l_return_status,
6635: IF backdate_adj_rec(i).currency_code = backdate_adj_rec(i).plan_currency_code THEN
6636: l_act_budgets_rec.parent_src_apprvd_amt := ozf_utility_pvt.currround(l_util_amount,backdate_adj_rec(i).currency_code);
6637: ELSE
6638:
6639: ozf_utility_pvt.convert_currency (
6640: x_return_status => l_return_status,
6641: p_from_currency => backdate_adj_rec(i).plan_currency_code,
6642: p_to_currency => backdate_adj_rec(i).currency_code,
6643: p_conv_type => backdate_adj_rec(i).exchange_rate_type, -- nirprasa added for bug 7030415
6652: END IF;
6653:
6654: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6655: IF g_debug_flag = 'Y' THEN
6656: ozf_utility_pvt.write_conc_log (' D: post_adjust_to_budget() convert currency failed. No posting to budget. Return');
6657: END IF;
6658: RAISE fnd_api.g_exc_unexpected_error;
6659: END IF;
6660: l_act_budgets_rec.parent_src_apprvd_amt := l_converted_util_amount;
6672: l_act_budgets_rec.budget_source_id := p_qp_list_header_id;
6673: l_act_budgets_rec.request_currency := backdate_adj_rec(i).plan_currency_code;
6674: l_act_budgets_rec.request_date := SYSDATE;
6675: l_act_budgets_rec.status_code := 'APPROVED';
6676: l_act_budgets_rec.user_status_id := ozf_Utility_Pvt.get_default_user_status (
6677: 'OZF_BUDGETSOURCE_STATUS', l_act_budgets_rec.status_code);
6678: l_act_budgets_rec.transfer_type := 'UTILIZED';
6679: l_act_budgets_rec.approval_date := SYSDATE;
6680: l_act_budgets_rec.approver_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
6676: l_act_budgets_rec.user_status_id := ozf_Utility_Pvt.get_default_user_status (
6677: 'OZF_BUDGETSOURCE_STATUS', l_act_budgets_rec.status_code);
6678: l_act_budgets_rec.transfer_type := 'UTILIZED';
6679: l_act_budgets_rec.approval_date := SYSDATE;
6680: l_act_budgets_rec.approver_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
6681: write_conc_log (l_full_name || ' : '
6682: || 'resourceid '
6683: || l_act_budgets_rec.approver_id);
6684:
6750: (p_msg_index => FND_MSG_PUB.G_NEXT,
6751: p_encoded => FND_API.G_FALSE,
6752: p_data => x_msg_data,
6753: p_msg_index_out => l_index);
6754: --ozf_utility_pvt.write_conc_log(l_full_name||' : '||i||x_msg_data);
6755: DBMS_OUTPUT.put_line('****(PA):'||x_msg_data);
6756: END LOOP;
6757: fnd_msg_pub.initialize;
6758: END IF;
6837: qppa.product_attr_value
6838: FROM ozf_offer_adjustment_lines adjl, qp_pricing_attributes qppa
6839: WHERE adjl.offer_adjustment_id = p_offer_adjustment_id AND adjl.list_line_id = qppa.list_line_id;
6840: BEGIN
6841: -- ozf_utility_pvt.debug_message('enter validate_product_budget obj_id=' || p_object_id || ' budget_id=' || p_budget_id);
6842:
6843: x_return_status := fnd_api.g_ret_sts_success;
6844: EXECUTE IMMEDIATE 'DELETE FROM ozf_temp_eligibility';
6845: write_conc_log ( l_full_name
6893:
6894: l_denorm_csr := DBMS_SQL.open_cursor;
6895: FND_DSQL.set_cursor(l_denorm_csr);
6896: l_stmt_denorm := FND_DSQL.get_text(FALSE);
6897: --ozf_utility_pvt.debug_message('offer query: '|| l_stmt_denorm);
6898: write_conc_log ( l_full_name
6899: || ' : '
6900: || 'Insert Sql'
6901: || l_stmt_denorm);
7036:
7037: EXCEPTION
7038: WHEN FND_API.G_EXC_ERROR THEN
7039: ROLLBACK TO VOLUME_OFFER;
7040: OZF_UTILITY_PVT.write_conc_log(l_full_name ||' Volume Offer Adjustment Failed EX ==>'||'VOLUME OFFER '|| l_qpListHeaderIdTbl(i));
7041: OZF_UTILITY_PVT.write_conc_log;
7042: OZF_UTILITY_PVT.write_conc_log(' ');
7043:
7044: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7037: EXCEPTION
7038: WHEN FND_API.G_EXC_ERROR THEN
7039: ROLLBACK TO VOLUME_OFFER;
7040: OZF_UTILITY_PVT.write_conc_log(l_full_name ||' Volume Offer Adjustment Failed EX ==>'||'VOLUME OFFER '|| l_qpListHeaderIdTbl(i));
7041: OZF_UTILITY_PVT.write_conc_log;
7042: OZF_UTILITY_PVT.write_conc_log(' ');
7043:
7044: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7045: ROLLBACK TO VOLUME_OFFER;
7038: WHEN FND_API.G_EXC_ERROR THEN
7039: ROLLBACK TO VOLUME_OFFER;
7040: OZF_UTILITY_PVT.write_conc_log(l_full_name ||' Volume Offer Adjustment Failed EX ==>'||'VOLUME OFFER '|| l_qpListHeaderIdTbl(i));
7041: OZF_UTILITY_PVT.write_conc_log;
7042: OZF_UTILITY_PVT.write_conc_log(' ');
7043:
7044: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7045: ROLLBACK TO VOLUME_OFFER;
7046: OZF_UTILITY_PVT.write_conc_log(l_full_name ||' Volume Offer Adjustment Failed UNEX ==>'||'VOLUME OFFER '|| l_qpListHeaderIdTbl(i));
7042: OZF_UTILITY_PVT.write_conc_log(' ');
7043:
7044: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7045: ROLLBACK TO VOLUME_OFFER;
7046: OZF_UTILITY_PVT.write_conc_log(l_full_name ||' Volume Offer Adjustment Failed UNEX ==>'||'VOLUME OFFER '|| l_qpListHeaderIdTbl(i));
7047: OZF_UTILITY_PVT.write_conc_log;
7048: OZF_UTILITY_PVT.write_conc_log(' ');
7049:
7050: WHEN OTHERS THEN
7043:
7044: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7045: ROLLBACK TO VOLUME_OFFER;
7046: OZF_UTILITY_PVT.write_conc_log(l_full_name ||' Volume Offer Adjustment Failed UNEX ==>'||'VOLUME OFFER '|| l_qpListHeaderIdTbl(i));
7047: OZF_UTILITY_PVT.write_conc_log;
7048: OZF_UTILITY_PVT.write_conc_log(' ');
7049:
7050: WHEN OTHERS THEN
7051: ROLLBACK TO VOLUME_OFFER;
7044: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7045: ROLLBACK TO VOLUME_OFFER;
7046: OZF_UTILITY_PVT.write_conc_log(l_full_name ||' Volume Offer Adjustment Failed UNEX ==>'||'VOLUME OFFER '|| l_qpListHeaderIdTbl(i));
7047: OZF_UTILITY_PVT.write_conc_log;
7048: OZF_UTILITY_PVT.write_conc_log(' ');
7049:
7050: WHEN OTHERS THEN
7051: ROLLBACK TO VOLUME_OFFER;
7052: OZF_UTILITY_PVT.write_conc_log(l_full_name ||' Volume Offer Adjustment Failed OT ==>'||'VOLUME OFFER '|| l_qpListHeaderIdTbl(i));
7048: OZF_UTILITY_PVT.write_conc_log(' ');
7049:
7050: WHEN OTHERS THEN
7051: ROLLBACK TO VOLUME_OFFER;
7052: OZF_UTILITY_PVT.write_conc_log(l_full_name ||' Volume Offer Adjustment Failed OT ==>'||'VOLUME OFFER '|| l_qpListHeaderIdTbl(i));
7053: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
7054: OZF_UTILITY_PVT.write_conc_log;
7055: OZF_UTILITY_PVT.write_conc_log(' ');
7056: END;
7050: WHEN OTHERS THEN
7051: ROLLBACK TO VOLUME_OFFER;
7052: OZF_UTILITY_PVT.write_conc_log(l_full_name ||' Volume Offer Adjustment Failed OT ==>'||'VOLUME OFFER '|| l_qpListHeaderIdTbl(i));
7053: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
7054: OZF_UTILITY_PVT.write_conc_log;
7055: OZF_UTILITY_PVT.write_conc_log(' ');
7056: END;
7057:
7058: END LOOP; --FOR i IN NVL(l_qpListHeaderIdTbl.FIRST, 1) .. NVL(l_qpListHeaderIdTbl.LAST, 0) LOOP
7051: ROLLBACK TO VOLUME_OFFER;
7052: OZF_UTILITY_PVT.write_conc_log(l_full_name ||' Volume Offer Adjustment Failed OT ==>'||'VOLUME OFFER '|| l_qpListHeaderIdTbl(i));
7053: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
7054: OZF_UTILITY_PVT.write_conc_log;
7055: OZF_UTILITY_PVT.write_conc_log(' ');
7056: END;
7057:
7058: END LOOP; --FOR i IN NVL(l_qpListHeaderIdTbl.FIRST, 1) .. NVL(l_qpListHeaderIdTbl.LAST, 0) LOOP
7059:
7064: write_conc_log (' /*************************** DEBUG MESSAGE END *************************/' || l_api_name );
7065: EXCEPTION
7066: WHEN fnd_api.g_exc_error THEN
7067: ROLLBACK TO adjust_volume_offer;
7068: OZF_UTILITY_PVT.write_conc_log;
7069: x_ERRBUF := l_msg_data;
7070: x_RETCODE := 1;
7071:
7072: WHEN fnd_api.g_exc_unexpected_error THEN
7070: x_RETCODE := 1;
7071:
7072: WHEN fnd_api.g_exc_unexpected_error THEN
7073: ROLLBACK TO adjust_volume_offer;
7074: OZF_UTILITY_PVT.write_conc_log;
7075: x_ERRBUF := l_msg_data;
7076: x_RETCODE := 1;
7077:
7078: WHEN OTHERS THEN
7076: x_RETCODE := 1;
7077:
7078: WHEN OTHERS THEN
7079: ROLLBACK TO adjust_volume_offer;
7080: OZF_UTILITY_PVT.write_conc_log;
7081: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
7082: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
7083: END IF;
7084: x_ERRBUF := l_msg_data;
7170: BEGIN
7171: x_return_status := fnd_api.g_ret_sts_success;
7172: SAVEPOINT process_accrual;
7173: IF G_DEBUG THEN
7174: ozf_utility_pvt.debug_message (' Start'|| g_pkg_name||'.'||l_api_name);
7175: END IF;
7176:
7177: IF l_act_util_rec.object_type = 'TP_ORDER' THEN
7178: OPEN c_tp_adj_info (l_act_util_rec.price_adjustment_id,l_act_util_rec.object_type);
7198:
7199: --dbms_output.put_line(' cal Status '||x_return_status);
7200: write_conc_log(l_full_name ||'Calculate Accrual Amt Return Status ' ||x_return_status);
7201: IF G_DEBUG THEN
7202: ozf_utility_pvt.debug_message (l_full_name ||'Return Status' ||x_return_status);
7203: END IF;
7204: -- fetch offer info
7205: OPEN c_offer_info ( p_qp_list_header_id);
7206: FETCH c_offer_info INTO l_off_description, l_off_name,l_util_curr ;
7221: END IF;
7222: ELSE
7223: --if some row is returned to adjust then
7224: IF G_DEBUG THEN
7225: ozf_utility_pvt.debug_message ('Begin Processing For Offer Adjustment: '||l_off_name);
7226: END IF;
7227: IF (l_fund_amt_tbl.COUNT > 0) AND x_return_status = fnd_api.g_ret_sts_success THEN
7228: l_adj_amount := 0; -- in offer currency
7229: l_remaining_amt := ozf_utility_pvt.currround (
7225: ozf_utility_pvt.debug_message ('Begin Processing For Offer Adjustment: '||l_off_name);
7226: END IF;
7227: IF (l_fund_amt_tbl.COUNT > 0) AND x_return_status = fnd_api.g_ret_sts_success THEN
7228: l_adj_amount := 0; -- in offer currency
7229: l_remaining_amt := ozf_utility_pvt.currround (
7230: p_earned_amt,
7231: --nirprasa,12.1.1 l_util_curr ); -- in offer currency
7232: l_act_util_rec.plan_currency_code); -- in transaction currency
7233:
7237: LOOP
7238: IF g_recal_flag = 'N' THEN
7239: IF l_fund_amt_tbl (j).earned_amount = 0 THEN
7240: IF G_DEBUG THEN
7241: ozf_utility_pvt.debug_message (' D: 0 earned amount' );
7242: END IF;
7243: GOTO l_endofearadjloop;
7244: END IF;
7245: END IF;
7247: l_adj_amount := l_fund_amt_tbl (j).earned_amount; -- this is in offer and order currency
7248: ELSE
7249: l_adj_amount := l_remaining_amt;
7250: END IF;
7251: l_adj_amount := ozf_utility_pvt.currround (
7252: l_adj_amount,
7253: --nirprasa,12.1.1 l_util_curr ); -- in offer currency
7254: l_act_util_rec.plan_currency_code); -- in transaction currency
7255: --nirprasa,12.1.1
7260:
7261:
7262: --nirprasa,12.1.1 IF l_util_curr <> l_fund_amt_tbl (j).budget_currency THEN
7263: IF l_act_util_rec.plan_currency_code <> l_fund_amt_tbl (j).budget_currency THEN
7264: ozf_utility_pvt.convert_currency (
7265: x_return_status=> x_return_status,
7266: p_from_currency=> l_act_util_rec.plan_currency_code, --nirprasa,12.1.1 l_util_curr,
7267: p_to_currency=> l_fund_amt_tbl (j).budget_currency,
7268: p_conv_date=> l_act_util_rec.exchange_rate_date,
7272: x_rate=> l_rate
7273: );
7274: END IF;
7275: IF G_DEBUG THEN
7276: ozf_utility_pvt.debug_message( ' Adj amount coverted '|| l_converted_adj_amount
7277: || ' l_adj amount' || l_adj_amount);
7278: END IF;
7279:
7280: IF x_return_status <> fnd_api.g_ret_sts_success THEN
7278: END IF;
7279:
7280: IF x_return_status <> fnd_api.g_ret_sts_success THEN
7281: IF G_DEBUG THEN
7282: -- ozf_utility_pvt.error_message( ' Convert Currency '||x_return_status);
7283: ozf_utility_pvt.debug_message( ' Convert Currency '||x_return_status);
7284: END IF;
7285: IF x_return_status = fnd_api.g_ret_sts_error THEN
7286: RAISE fnd_api.g_exc_error;
7279:
7280: IF x_return_status <> fnd_api.g_ret_sts_success THEN
7281: IF G_DEBUG THEN
7282: -- ozf_utility_pvt.error_message( ' Convert Currency '||x_return_status);
7283: ozf_utility_pvt.debug_message( ' Convert Currency '||x_return_status);
7284: END IF;
7285: IF x_return_status = fnd_api.g_ret_sts_error THEN
7286: RAISE fnd_api.g_exc_error;
7287: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
7290: END IF;
7291: IF x_return_status = fnd_api.g_ret_sts_success THEN
7292: IF l_act_util_rec.plan_currency_code = l_fund_amt_tbl (j).budget_currency THEN
7293: l_act_budgets_rec.parent_src_apprvd_amt :=
7294: ozf_utility_pvt.currround (
7295: l_adj_amount,
7296: --nirprasa,12.1.1 l_util_curr );
7297: l_act_util_rec.plan_currency_code);
7298: --nirprasa,12.1.1
7297: l_act_util_rec.plan_currency_code);
7298: --nirprasa,12.1.1
7299: ELSE
7300: IF G_DEBUG THEN
7301: ozf_utility_pvt.debug_message('in not equal currency');
7302: END IF;
7303: l_act_budgets_rec.parent_src_apprvd_amt :=
7304: ozf_utility_pvt.currround (
7305: l_converted_adj_amount,
7300: IF G_DEBUG THEN
7301: ozf_utility_pvt.debug_message('in not equal currency');
7302: END IF;
7303: l_act_budgets_rec.parent_src_apprvd_amt :=
7304: ozf_utility_pvt.currround (
7305: l_converted_adj_amount,
7306: l_fund_amt_tbl (j).budget_currency );
7307: END IF;
7308:
7322: l_act_budgets_rec.transfer_type := 'UTILIZED';
7323: l_act_budgets_rec.request_date := SYSDATE;
7324: l_act_budgets_rec.status_code := 'APPROVED';
7325: l_act_budgets_rec.user_status_id :=
7326: ozf_utility_pvt.get_default_user_status (
7327: 'OZF_BUDGETSOURCE_STATUS',
7328: l_act_budgets_rec.status_code );
7329: l_act_budgets_rec.budget_source_type := 'OFFR';
7330: l_act_budgets_rec.budget_source_id := p_qp_list_header_id;
7332: l_act_budgets_rec.act_budget_used_by_id := p_qp_list_header_id;
7333: l_act_budgets_rec.parent_src_curr := l_fund_amt_tbl (j).budget_currency;
7334: l_act_budgets_rec.parent_source_id := l_fund_amt_tbl (j).ofr_src_id;
7335: l_act_budgets_rec.request_amount :=
7336: ozf_utility_pvt.currround (l_adj_amount, l_act_util_rec.plan_currency_code);
7337: --nirprasa,12.2 ozf_utility_pvt.currround (l_adj_amount, l_util_curr);
7338:
7339: l_act_budgets_rec.request_currency := l_act_util_rec.plan_currency_code; --l_util_curr;
7340: l_act_budgets_rec.approved_amount := l_act_budgets_rec.request_amount;
7333: l_act_budgets_rec.parent_src_curr := l_fund_amt_tbl (j).budget_currency;
7334: l_act_budgets_rec.parent_source_id := l_fund_amt_tbl (j).ofr_src_id;
7335: l_act_budgets_rec.request_amount :=
7336: ozf_utility_pvt.currround (l_adj_amount, l_act_util_rec.plan_currency_code);
7337: --nirprasa,12.2 ozf_utility_pvt.currround (l_adj_amount, l_util_curr);
7338:
7339: l_act_budgets_rec.request_currency := l_act_util_rec.plan_currency_code; --l_util_curr;
7340: l_act_budgets_rec.approved_amount := l_act_budgets_rec.request_amount;
7341: l_act_budgets_rec.approved_in_currency := l_act_util_rec.plan_currency_code; --l_util_curr;
7360: x_act_budget_id=> l_act_budget_id
7361: );
7362: write_conc_log(l_full_name ||'Process Act Budget' ||x_return_status);
7363: IF G_DEBUG THEN
7364: ozf_utility_pvt.debug_message('create utlization '|| x_return_status);
7365: END IF;
7366:
7367: IF x_return_status <> fnd_api.g_ret_sts_success THEN
7368: IF x_return_status = fnd_api.g_ret_sts_error THEN
7375: --- quit when the total earned amount is adjusted
7376: END IF;
7377: <
7378: IF G_DEBUG THEN
7379: ozf_utility_pvt.debug_message ( 'l_remaining_amt ' || l_remaining_amt
7380: || 'l_adj amount' || l_adj_amount || 'fund_id '|| l_fund_amt_tbl (j).ofr_src_id );
7381: END IF;
7382: EXIT WHEN l_remaining_amt = 0;
7383: END LOOP earned_adj_loop;
7639:
7640: --kdass 31-MAR-2006 bug 5101720 convert from order currency to offer currency
7641: IF l_offer_curr <> l_order_curr THEN
7642:
7643: ozf_utility_pvt.write_conc_log('order curr: ' || l_order_curr);
7644: ozf_utility_pvt.write_conc_log('offer curr: ' || l_offer_curr);
7645: ozf_utility_pvt.write_conc_log('order amount: ' || x_order_amount_quantity);
7646:
7647: ozf_utility_pvt.convert_currency (x_return_status => x_return_status
7640: --kdass 31-MAR-2006 bug 5101720 convert from order currency to offer currency
7641: IF l_offer_curr <> l_order_curr THEN
7642:
7643: ozf_utility_pvt.write_conc_log('order curr: ' || l_order_curr);
7644: ozf_utility_pvt.write_conc_log('offer curr: ' || l_offer_curr);
7645: ozf_utility_pvt.write_conc_log('order amount: ' || x_order_amount_quantity);
7646:
7647: ozf_utility_pvt.convert_currency (x_return_status => x_return_status
7648: ,p_from_currency => l_order_curr
7641: IF l_offer_curr <> l_order_curr THEN
7642:
7643: ozf_utility_pvt.write_conc_log('order curr: ' || l_order_curr);
7644: ozf_utility_pvt.write_conc_log('offer curr: ' || l_offer_curr);
7645: ozf_utility_pvt.write_conc_log('order amount: ' || x_order_amount_quantity);
7646:
7647: ozf_utility_pvt.convert_currency (x_return_status => x_return_status
7648: ,p_from_currency => l_order_curr
7649: ,p_to_currency => l_offer_curr
7643: ozf_utility_pvt.write_conc_log('order curr: ' || l_order_curr);
7644: ozf_utility_pvt.write_conc_log('offer curr: ' || l_offer_curr);
7645: ozf_utility_pvt.write_conc_log('order amount: ' || x_order_amount_quantity);
7646:
7647: ozf_utility_pvt.convert_currency (x_return_status => x_return_status
7648: ,p_from_currency => l_order_curr
7649: ,p_to_currency => l_offer_curr
7650: ,p_from_amount => x_order_amount_quantity
7651: ,x_to_amount => l_conv_amount
7652: ,x_rate => l_rate
7653: );
7654:
7655: IF x_return_status <> fnd_api.g_ret_sts_success THEN
7656: ozf_utility_pvt.write_conc_log('x_return_status: ' || x_return_status);
7657: RETURN NULL;
7658: END IF;
7659:
7660: x_order_amount_quantity := l_conv_amount;
8046: -- Catch Weight - end
8047:
8048: BEGIN
8049: IF G_DEBUG THEN
8050: ozf_utility_pvt.debug_message(' /*************************** DEBUG MESSAGE START *************************/' || l_api_name);
8051: END IF;
8052: write_conc_log(' /*************************** DEBUG MESSAGE START *************************/' || l_api_name);
8053:
8054: SAVEPOINT volume_offer_adjustment;
8091: FOR i IN NVL(l_priceAdjustmentIDTbl.FIRST, 1) .. NVL(l_priceAdjustmentIDTbl.LAST, 0) LOOP
8092: write_conc_log(' CWWWwwww l_glDateTbl: '|| l_glDateTbl(i) );
8093: IF l_objectTypeTbl(i) ='ORDER' THEN
8094: IF G_DEBUG THEN
8095: ozf_utility_pvt.debug_message(' order_line_id: '|| l_orderLineIdTbl(i) );
8096: END IF;
8097: write_conc_log(' order_line_id: '|| l_orderLineIdTbl(i) );
8098:
8099: l_source_code := 'OM';
8115: write_conc_log(' l_unit_discount: '|| l_unit_discount);
8116:
8117: ELSE
8118: IF G_DEBUG THEN
8119: ozf_utility_pvt.debug_message(' resale_line_id: '|| l_objectIdTbl(i) );
8120: END IF;
8121: write_conc_log(' resale_line_id: '|| l_objectIdTbl(i));
8122:
8123: l_source_code := 'IS';
8149: write_conc_log('l_apply_discount: ' || l_apply_discount);
8150:
8151: IF l_apply_discount ='N' THEN
8152: IF G_DEBUG THEN
8153: ozf_utility_pvt.debug_message('not apply discount: ' || l_order_line_info.inventory_item_id);
8154: END IF;
8155: write_conc_log(' not apply discount:'|| l_order_line_info.inventory_item_id);
8156: GOTO l_endoffloop;
8157: END IF;
8167: --12.2, multi-currency enhancement.
8168: IF l_transaction_currency_code IS NOT NULL
8169: AND l_transaction_currency_code <> l_order_line_info.transactional_curr_code THEN
8170:
8171: ozf_utility_pvt.write_conc_log('order curr: ' || l_order_line_info.transactional_curr_code);
8172: ozf_utility_pvt.write_conc_log('offer curr: ' || l_transaction_currency_code);
8173: ozf_utility_pvt.write_conc_log('selling price: ' || l_selling_price);
8174:
8175:
8168: IF l_transaction_currency_code IS NOT NULL
8169: AND l_transaction_currency_code <> l_order_line_info.transactional_curr_code THEN
8170:
8171: ozf_utility_pvt.write_conc_log('order curr: ' || l_order_line_info.transactional_curr_code);
8172: ozf_utility_pvt.write_conc_log('offer curr: ' || l_transaction_currency_code);
8173: ozf_utility_pvt.write_conc_log('selling price: ' || l_selling_price);
8174:
8175:
8176:
8169: AND l_transaction_currency_code <> l_order_line_info.transactional_curr_code THEN
8170:
8171: ozf_utility_pvt.write_conc_log('order curr: ' || l_order_line_info.transactional_curr_code);
8172: ozf_utility_pvt.write_conc_log('offer curr: ' || l_transaction_currency_code);
8173: ozf_utility_pvt.write_conc_log('selling price: ' || l_selling_price);
8174:
8175:
8176:
8177: ozf_utility_pvt.write_conc_log('l_conv_type: ' || l_conv_type);
8173: ozf_utility_pvt.write_conc_log('selling price: ' || l_selling_price);
8174:
8175:
8176:
8177: ozf_utility_pvt.write_conc_log('l_conv_type: ' || l_conv_type);
8178:
8179:
8180: ozf_utility_pvt.convert_currency (x_return_status => l_return_status
8181: ,p_conv_type => l_conv_type --7030415
8176:
8177: ozf_utility_pvt.write_conc_log('l_conv_type: ' || l_conv_type);
8178:
8179:
8180: ozf_utility_pvt.convert_currency (x_return_status => l_return_status
8181: ,p_conv_type => l_conv_type --7030415
8182: ,p_conv_date => OZF_ACCRUAL_ENGINE.G_FAE_START_DATE
8183: --l_order_line_info.actual_shipment_date
8184: ,p_from_currency => l_order_line_info.transactional_curr_code
8204: --and when the offer currency and order currency does not match.
8205: IF l_transaction_currency_code IS NULL AND l_offer_curr <> l_order_line_info.transactional_curr_code THEN
8206:
8207: --ninarasi Bug 16029659 - changed conversion date used from gl_date to exchange_rate_date since exchange_rate_date stores the shipped date.
8208: ozf_utility_pvt.convert_currency(x_return_status => l_return_status
8209: ,p_from_currency => l_order_line_info.transactional_curr_code
8210: ,p_to_currency => l_offer_curr
8211: ,p_conv_type => l_conv_type
8212: ,p_conv_date => l_exchangeRateDateTbl(i)
8244: FETCH c_get_group INTO l_group_id,l_pbh_line_id,l_included_vol_flag;
8245: CLOSE c_get_group;
8246:
8247: IF G_DEBUG THEN
8248: ozf_utility_pvt.debug_message(' l_group_id: '|| l_group_id );
8249: ozf_utility_pvt.debug_message(' l_pbh_line_id: '|| l_pbh_line_id );
8250: ozf_utility_pvt.debug_message(' l_included_vol_flag: '|| l_included_vol_flag );
8251: END IF;
8252: write_conc_log(' l_group_id: '|| l_group_id );
8245: CLOSE c_get_group;
8246:
8247: IF G_DEBUG THEN
8248: ozf_utility_pvt.debug_message(' l_group_id: '|| l_group_id );
8249: ozf_utility_pvt.debug_message(' l_pbh_line_id: '|| l_pbh_line_id );
8250: ozf_utility_pvt.debug_message(' l_included_vol_flag: '|| l_included_vol_flag );
8251: END IF;
8252: write_conc_log(' l_group_id: '|| l_group_id );
8253: write_conc_log(' l_pbh_line_id: '|| l_pbh_line_id );
8246:
8247: IF G_DEBUG THEN
8248: ozf_utility_pvt.debug_message(' l_group_id: '|| l_group_id );
8249: ozf_utility_pvt.debug_message(' l_pbh_line_id: '|| l_pbh_line_id );
8250: ozf_utility_pvt.debug_message(' l_included_vol_flag: '|| l_included_vol_flag );
8251: END IF;
8252: write_conc_log(' l_group_id: '|| l_group_id );
8253: write_conc_log(' l_pbh_line_id: '|| l_pbh_line_id );
8254: write_conc_log(' l_included_vol_flag: '|| l_included_vol_flag );
8272: ELSE
8273: */
8274:
8275: IF l_retroactive = 'Y' THEN
8276: ozf_utility_pvt.write_conc_log('Catch Weight --> l_retroactive = Y l_qp_list_header_id = '|| l_qp_list_header_id);
8277: ozf_utility_pvt.write_conc_log('Catch Weight --> l_retroactive = Y l_order_line_id = '|| l_order_line_id);
8278: ozf_utility_pvt.write_conc_log('Catch Weight --> l_retroactive = Y l_source_code = '|| l_source_code);
8279: ozf_utility_pvt.write_conc_log('Catch Weight --> l_retroactive = Y trx_date = '|| sysdate+1);
8280: ozf_volume_calculation_pub.get_volume
8273: */
8274:
8275: IF l_retroactive = 'Y' THEN
8276: ozf_utility_pvt.write_conc_log('Catch Weight --> l_retroactive = Y l_qp_list_header_id = '|| l_qp_list_header_id);
8277: ozf_utility_pvt.write_conc_log('Catch Weight --> l_retroactive = Y l_order_line_id = '|| l_order_line_id);
8278: ozf_utility_pvt.write_conc_log('Catch Weight --> l_retroactive = Y l_source_code = '|| l_source_code);
8279: ozf_utility_pvt.write_conc_log('Catch Weight --> l_retroactive = Y trx_date = '|| sysdate+1);
8280: ozf_volume_calculation_pub.get_volume
8281: (p_init_msg_list =>fnd_api.g_false
8274:
8275: IF l_retroactive = 'Y' THEN
8276: ozf_utility_pvt.write_conc_log('Catch Weight --> l_retroactive = Y l_qp_list_header_id = '|| l_qp_list_header_id);
8277: ozf_utility_pvt.write_conc_log('Catch Weight --> l_retroactive = Y l_order_line_id = '|| l_order_line_id);
8278: ozf_utility_pvt.write_conc_log('Catch Weight --> l_retroactive = Y l_source_code = '|| l_source_code);
8279: ozf_utility_pvt.write_conc_log('Catch Weight --> l_retroactive = Y trx_date = '|| sysdate+1);
8280: ozf_volume_calculation_pub.get_volume
8281: (p_init_msg_list =>fnd_api.g_false
8282: ,p_api_version =>1.0
8275: IF l_retroactive = 'Y' THEN
8276: ozf_utility_pvt.write_conc_log('Catch Weight --> l_retroactive = Y l_qp_list_header_id = '|| l_qp_list_header_id);
8277: ozf_utility_pvt.write_conc_log('Catch Weight --> l_retroactive = Y l_order_line_id = '|| l_order_line_id);
8278: ozf_utility_pvt.write_conc_log('Catch Weight --> l_retroactive = Y l_source_code = '|| l_source_code);
8279: ozf_utility_pvt.write_conc_log('Catch Weight --> l_retroactive = Y trx_date = '|| sysdate+1);
8280: ozf_volume_calculation_pub.get_volume
8281: (p_init_msg_list =>fnd_api.g_false
8282: ,p_api_version =>1.0
8283: ,p_commit =>fnd_api.g_false
8289: ,p_trx_date =>sysdate+1
8290: ,p_source_code => l_source_code
8291: ,x_acc_volume => l_volume
8292: );
8293: ozf_utility_pvt.write_conc_log('Catch Weight --> l_retroactive = Y l_volume = '|| l_volume);
8294: ELSE
8295: -- julou bug 6348078. can't use gl_date for IDSM line. it's different from transaction_date
8296: IF l_source_code = 'IS' THEN
8297: write_conc_log('calculating transaction_date for non-retro offer, IS line_id: ' || l_order_line_id);
8302: --ninarasi Bug 16029659 - passed exchange_rate_date instead of gl_date.
8303: l_trx_date := l_exchangeRateDateTbl(i);
8304: END IF;
8305: write_conc_log('transaction_date after conversion: ' || TO_CHAR(l_trx_date, 'YYYY-MM-DD HH:MI:SS'));
8306: ozf_utility_pvt.write_conc_log('Catch Weight --> l_retroactive = N l_qp_list_header_id = '|| l_qp_list_header_id);
8307: ozf_utility_pvt.write_conc_log('Catch Weight --> l_retroactive = N l_order_line_id = '|| l_order_line_id);
8308: ozf_utility_pvt.write_conc_log('Catch Weight --> l_retroactive = N l_source_code = '|| l_source_code);
8309: ozf_utility_pvt.write_conc_log('Catch Weight --> l_retroactive = Y trx_date = '|| l_trx_date);
8310: ozf_volume_calculation_pub.get_volume
8303: l_trx_date := l_exchangeRateDateTbl(i);
8304: END IF;
8305: write_conc_log('transaction_date after conversion: ' || TO_CHAR(l_trx_date, 'YYYY-MM-DD HH:MI:SS'));
8306: ozf_utility_pvt.write_conc_log('Catch Weight --> l_retroactive = N l_qp_list_header_id = '|| l_qp_list_header_id);
8307: ozf_utility_pvt.write_conc_log('Catch Weight --> l_retroactive = N l_order_line_id = '|| l_order_line_id);
8308: ozf_utility_pvt.write_conc_log('Catch Weight --> l_retroactive = N l_source_code = '|| l_source_code);
8309: ozf_utility_pvt.write_conc_log('Catch Weight --> l_retroactive = Y trx_date = '|| l_trx_date);
8310: ozf_volume_calculation_pub.get_volume
8311: (p_init_msg_list =>fnd_api.g_false
8304: END IF;
8305: write_conc_log('transaction_date after conversion: ' || TO_CHAR(l_trx_date, 'YYYY-MM-DD HH:MI:SS'));
8306: ozf_utility_pvt.write_conc_log('Catch Weight --> l_retroactive = N l_qp_list_header_id = '|| l_qp_list_header_id);
8307: ozf_utility_pvt.write_conc_log('Catch Weight --> l_retroactive = N l_order_line_id = '|| l_order_line_id);
8308: ozf_utility_pvt.write_conc_log('Catch Weight --> l_retroactive = N l_source_code = '|| l_source_code);
8309: ozf_utility_pvt.write_conc_log('Catch Weight --> l_retroactive = Y trx_date = '|| l_trx_date);
8310: ozf_volume_calculation_pub.get_volume
8311: (p_init_msg_list =>fnd_api.g_false
8312: ,p_api_version =>1.0
8305: write_conc_log('transaction_date after conversion: ' || TO_CHAR(l_trx_date, 'YYYY-MM-DD HH:MI:SS'));
8306: ozf_utility_pvt.write_conc_log('Catch Weight --> l_retroactive = N l_qp_list_header_id = '|| l_qp_list_header_id);
8307: ozf_utility_pvt.write_conc_log('Catch Weight --> l_retroactive = N l_order_line_id = '|| l_order_line_id);
8308: ozf_utility_pvt.write_conc_log('Catch Weight --> l_retroactive = N l_source_code = '|| l_source_code);
8309: ozf_utility_pvt.write_conc_log('Catch Weight --> l_retroactive = Y trx_date = '|| l_trx_date);
8310: ozf_volume_calculation_pub.get_volume
8311: (p_init_msg_list =>fnd_api.g_false
8312: ,p_api_version =>1.0
8313: ,p_commit =>fnd_api.g_false
8320: ,p_trx_date => l_trx_date
8321: ,p_source_code => l_source_code
8322: ,x_acc_volume => l_volume
8323: );
8324: ozf_utility_pvt.write_conc_log('Catch Weight --> l_retroactive = N l_volume = '|| l_volume);
8325: END IF;
8326:
8327: IF l_return_status = fnd_api.g_ret_sts_error THEN
8328: RAISE fnd_api.g_exc_error;
8331: END IF;
8332: -- END IF; --l_retroactive = 'Y'
8333:
8334: IF G_DEBUG THEN
8335: ozf_utility_pvt.debug_message(' l_volume: '|| l_volume );
8336: END IF;
8337: write_conc_log(' l_volume: '|| l_volume );
8338:
8339: -- l_new_discount := 0;
8353: FETCH c_get_max_tier INTO l_new_discount;
8354: CLOSE c_get_max_tier;
8355: END IF;
8356: IF G_DEBUG THEN
8357: ozf_utility_pvt.debug_message(' l_new_discount: '|| l_new_discount );
8358: END IF;
8359: write_conc_log(' l_new_discount: '|| l_new_discount );
8360: END IF;
8361:
8370:
8371: IF l_preset_tier is NOT NULL AND l_preset_tier > l_new_discount THEN
8372: l_new_discount := l_preset_tier;
8373: IF G_DEBUG THEN
8374: ozf_utility_pvt.debug_message('not reach preset tier: ');
8375: END IF;
8376: write_conc_log(' not reach preset tier:');
8377: END IF;
8378:
8413: -- Catch Weight - start
8414: OPEN c_offer_uom_code(l_offer_id);
8415: FETCH c_offer_uom_code INTO l_offer_uom_code;
8416: CLOSE c_offer_uom_code;
8417: ozf_utility_pvt.write_conc_log('EXT PVT Catch Weight 1--> offer uom code ='|| l_offer_uom_code);
8418:
8419: /*OZF_UTILITY_PVT.get_catch_weight_quantity (
8420: p_inventory_item_id => l_order_line_info.inventory_item_id,
8421: p_order_line_id => l_order_line_id,
8415: FETCH c_offer_uom_code INTO l_offer_uom_code;
8416: CLOSE c_offer_uom_code;
8417: ozf_utility_pvt.write_conc_log('EXT PVT Catch Weight 1--> offer uom code ='|| l_offer_uom_code);
8418:
8419: /*OZF_UTILITY_PVT.get_catch_weight_quantity (
8420: p_inventory_item_id => l_order_line_info.inventory_item_id,
8421: p_order_line_id => l_order_line_id,
8422: x_return_status => l_return_status,
8423: x_cw_quantity => l_cw_quantity,
8444: ,NULL -- from_name
8445: ,NULL -- to_name
8446: );
8447: IF (l_quantity = -99999) THEN
8448: ozf_utility_pvt.write_conc_log ('Error in UOM conversion');
8449: END IF;
8450: ELSE
8451: l_quantity := l_cw_quantity ;
8452: END IF;
8449: END IF;
8450: ELSE
8451: l_quantity := l_cw_quantity ;
8452: END IF;
8453: ozf_utility_pvt.write_conc_log('Catch Weight --> l_quantity = '|| l_quantity);
8454: -- Catch Weight - end
8455: IF l_order_type = 'SHIPPED' THEN
8456: IF l_discount_type = '%' THEN
8457: l_value := l_order_line_info.shipped_quantity ;
8499: l_new_utilization :=l_value * l_new_discount ;
8500: END IF;
8501: END IF;
8502: --ninarasi fix for bug 16029659. Rounded the utilization amount since l_amountTbl(i) contains a rounded value.
8503: l_new_utilization := ozf_utility_pvt.currround(l_new_utilization, l_offer_curr);
8504:
8505: l_adj_amount := l_new_utilization - l_amountTbl(i);
8506:
8507: IF G_DEBUG THEN
8504:
8505: l_adj_amount := l_new_utilization - l_amountTbl(i);
8506:
8507: IF G_DEBUG THEN
8508: ozf_utility_pvt.debug_message(l_full_name ||' retroactive flag is Y. ' || ' l_volume_type=' || l_volume_type
8509: || ' l_new_discount=' || l_new_discount
8510: || ' l_new_utilization=' || l_new_utilization
8511: || ' l_amountTbl=' || l_amountTbl(i)
8512: || ' l_adj_amount=' || l_adj_amount);
8576: 1st loop: l_previous_tier_max = 4, y1=1 l_value = 3 current_tier_value= 2 l_new_utilization = 1 * 250 * 2 / 100 = 5 l_previous_tier_max = 2
8577: 2st loop: l_previous_tier_max = 2, y1=2 l_value = 1 current_tier_value= 1 l_new_utilization = 2 * 250 * 1 / 100 = 5 l_previous_tier_max = 0
8578: */
8579: IF G_DEBUG THEN
8580: ozf_utility_pvt.debug_message( ' l_value=' || l_value);
8581: END IF;
8582:
8583: --fix for bug 6021538
8584: IF l_max_tier IS NULL THEN
8624:
8625: IF l_preset_tier is NOT NULL AND l_preset_tier > l_current_tier_value THEN
8626: l_current_tier_value := l_preset_tier;
8627: IF G_DEBUG THEN
8628: ozf_utility_pvt.debug_message('not reach preset tier: ');
8629: END IF;
8630: write_conc_log(' not reach preset tier:');
8631: END IF;
8632:
8673: --l_previous_tier_max := l_current_min_tier - 1 ;
8674: l_previous_tier_max := l_current_min_tier;
8675:
8676: IF G_DEBUG THEN
8677: ozf_utility_pvt.debug_message(' retroactive flag is N, computing for prior tier id=' || l_current_offer_tier_id
8678: || ' y1=' || y1 || ' tier_min=' || l_current_min_tier
8679: || ' tier_max=' || l_current_max_tier || ' l_previous_tier_max: ' || l_previous_tier_max
8680: || ' l_new_utilization: ' || l_new_utilization);
8681: END IF;
8691: -- For R12, returned order for different customers. ????????
8692: --For returned order, create positive record for return line, then
8693: -- make adjustment based on the difference of total utilization for previous orders.
8694: --ninarasi fix for bug 16029659. Rounded the utilization amount since l_amountTbl(i) contains a rounded value.
8695: l_new_utilization := ozf_utility_pvt.currround(l_new_utilization, l_offer_curr);
8696:
8697: IF l_returned_flag = true THEN
8698: write_conc_log('ozfvadeb.pls ---> IF l_returned_flag = true THEN');
8699: l_total_amount := l_total_amount + l_amountTbl(i) ;
8740: write_conc_log ('From currency: ' || l_offer_curr);
8741: write_conc_log ('To currency: ' || l_order_line_info.transactional_curr_code);
8742:
8743: --ninarasi Bug 16029659 - changed conversion date used from gl_date to exchange_rate_date.
8744: ozf_utility_pvt.convert_currency(x_return_status => l_return_status
8745: ,p_from_currency => l_offer_curr
8746: ,p_to_currency => l_order_line_info.transactional_curr_code
8747: ,p_conv_type => l_conv_type
8748: ,p_conv_date => l_exchangeRateDateTbl(i)
8770: END IF;
8771: END IF;
8772:
8773: IF G_DEBUG THEN
8774: ozf_utility_pvt.debug_message(
8775: l_full_name ||' Process Accrual Msg count '||l_msg_count||' Msg data'||l_msg_data||' Return status'||l_return_status
8776: );
8777: END IF;
8778: write_conc_log(
8795: <
8796: NULL;
8797:
8798: IF G_DEBUG THEN
8799: ozf_utility_pvt.debug_message(' /*************************** DEBUG MESSAGE END *************************/' || l_api_name );
8800: END IF;
8801: write_conc_log(' /*************************** DEBUG MESSAGE END *************************/' || l_api_name );
8802:
8803: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
9245:
9246:
9247: IF l_objectTypeTbl(i) ='ORDER' THEN
9248: IF G_DEBUG THEN
9249: ozf_utility_pvt.debug_message(' order_line_id: '|| l_orderLineIdTbl(i) );
9250: END IF;
9251: write_conc_log(' order_line_id: '|| l_orderLineIdTbl(i) );
9252:
9253: l_order_line_id:=l_orderLineIdTbl(i);
9257: CLOSE c_order_line_info;
9258:
9259: ELSE
9260: IF G_DEBUG THEN
9261: ozf_utility_pvt.debug_message(' resale_line_id: '|| l_objectIdTbl(i) );
9262: END IF;
9263: write_conc_log(' resale_line_id: '|| l_objectIdTbl(i));
9264:
9265: l_order_line_id:=l_objectIdTbl(i);
9298: END IF;
9299:
9300: IF l_apply_discount ='N' THEN
9301: IF G_DEBUG THEN
9302: ozf_utility_pvt.debug_message('not apply discount: ' || l_order_line_info.inventory_item_id);
9303: END IF;
9304: write_conc_log(' not apply discount:'|| l_order_line_info.inventory_item_id);
9305: GOTO l_endoffloop;
9306: END IF;
9308:
9309: --kdass 31-MAR-2006 bug 5101720 convert from order currency to offer currency
9310: IF l_offer_curr <> l_order_line_info.transactional_curr_code THEN
9311:
9312: ozf_utility_pvt.write_conc_log('order curr: ' || l_order_line_info.transactional_curr_code);
9313: ozf_utility_pvt.write_conc_log('offer curr: ' || l_offer_curr);
9314: ozf_utility_pvt.write_conc_log('selling price: ' || l_selling_price);
9315:
9316: -- Added for bug 7030415
9309: --kdass 31-MAR-2006 bug 5101720 convert from order currency to offer currency
9310: IF l_offer_curr <> l_order_line_info.transactional_curr_code THEN
9311:
9312: ozf_utility_pvt.write_conc_log('order curr: ' || l_order_line_info.transactional_curr_code);
9313: ozf_utility_pvt.write_conc_log('offer curr: ' || l_offer_curr);
9314: ozf_utility_pvt.write_conc_log('selling price: ' || l_selling_price);
9315:
9316: -- Added for bug 7030415
9317: OPEN c_utilization_details(l_utilizationIdTbl(i));
9310: IF l_offer_curr <> l_order_line_info.transactional_curr_code THEN
9311:
9312: ozf_utility_pvt.write_conc_log('order curr: ' || l_order_line_info.transactional_curr_code);
9313: ozf_utility_pvt.write_conc_log('offer curr: ' || l_offer_curr);
9314: ozf_utility_pvt.write_conc_log('selling price: ' || l_selling_price);
9315:
9316: -- Added for bug 7030415
9317: OPEN c_utilization_details(l_utilizationIdTbl(i));
9318: FETCH c_utilization_details INTO l_conv_type, l_org_id;
9318: FETCH c_utilization_details INTO l_conv_type, l_org_id;
9319: CLOSE c_utilization_details;
9320: l_act_util_rec.org_id := l_org_id;
9321:
9322: ozf_utility_pvt.write_conc_log('l_conv_type: ' || l_conv_type);
9323:
9324: ozf_utility_pvt.convert_currency (x_return_status => l_return_status
9325: ,p_conv_type => l_conv_type -- 7030415
9326: ,p_conv_date => l_order_line_info.actual_shipment_date
9320: l_act_util_rec.org_id := l_org_id;
9321:
9322: ozf_utility_pvt.write_conc_log('l_conv_type: ' || l_conv_type);
9323:
9324: ozf_utility_pvt.convert_currency (x_return_status => l_return_status
9325: ,p_conv_type => l_conv_type -- 7030415
9326: ,p_conv_date => l_order_line_info.actual_shipment_date
9327: ,p_from_currency => l_order_line_info.transactional_curr_code
9328: ,p_to_currency => l_offer_curr
9340: l_selling_price := NVL(l_conv_price,0);
9341: write_conc_log ('selling price after currency conversion: ' || l_selling_price);
9342:
9343: END IF;
9344: /*ozf_utility_pvt.write_conc_log('l_orderLineIdTbl(i): ' || l_orderLineIdTbl(i));
9345: OPEN c_order_line_qty(l_orderLineIdTbl(i));
9346: FETCH c_order_line_qty INTO l_line_ordered_qty;
9347: CLOSE c_order_line_qty;*/
9348:
9347: CLOSE c_order_line_qty;*/
9348:
9349: l_line_ordered_qty := l_order_line_info.ordered_quantity;
9350:
9351: ozf_utility_pvt.write_conc_log('l_line_ordered_qty: ' || l_line_ordered_qty);
9352: ozf_utility_pvt.write_conc_log('l_orderLineIdTbl(i): ' || l_orderLineIdTbl(i));
9353: ozf_utility_pvt.write_conc_log('p_qp_list_header_id: ' || p_qp_list_header_id);
9354:
9355:
9348:
9349: l_line_ordered_qty := l_order_line_info.ordered_quantity;
9350:
9351: ozf_utility_pvt.write_conc_log('l_line_ordered_qty: ' || l_line_ordered_qty);
9352: ozf_utility_pvt.write_conc_log('l_orderLineIdTbl(i): ' || l_orderLineIdTbl(i));
9353: ozf_utility_pvt.write_conc_log('p_qp_list_header_id: ' || p_qp_list_header_id);
9354:
9355:
9356:
9349: l_line_ordered_qty := l_order_line_info.ordered_quantity;
9350:
9351: ozf_utility_pvt.write_conc_log('l_line_ordered_qty: ' || l_line_ordered_qty);
9352: ozf_utility_pvt.write_conc_log('l_orderLineIdTbl(i): ' || l_orderLineIdTbl(i));
9353: ozf_utility_pvt.write_conc_log('p_qp_list_header_id: ' || p_qp_list_header_id);
9354:
9355:
9356:
9357:
9359: FETCH c_get_group INTO l_group_id,l_pbh_line_id,l_included_vol_flag;
9360: CLOSE c_get_group;
9361:
9362: IF G_DEBUG THEN
9363: ozf_utility_pvt.debug_message(' l_group_id: '|| l_group_id );
9364: ozf_utility_pvt.debug_message(' l_pbh_line_id: '|| l_pbh_line_id );
9365: ozf_utility_pvt.debug_message(' l_included_vol_flag: '|| l_included_vol_flag );
9366: END IF;
9367:
9360: CLOSE c_get_group;
9361:
9362: IF G_DEBUG THEN
9363: ozf_utility_pvt.debug_message(' l_group_id: '|| l_group_id );
9364: ozf_utility_pvt.debug_message(' l_pbh_line_id: '|| l_pbh_line_id );
9365: ozf_utility_pvt.debug_message(' l_included_vol_flag: '|| l_included_vol_flag );
9366: END IF;
9367:
9368: write_conc_log(' l_group_id: '|| l_group_id );
9361:
9362: IF G_DEBUG THEN
9363: ozf_utility_pvt.debug_message(' l_group_id: '|| l_group_id );
9364: ozf_utility_pvt.debug_message(' l_pbh_line_id: '|| l_pbh_line_id );
9365: ozf_utility_pvt.debug_message(' l_included_vol_flag: '|| l_included_vol_flag );
9366: END IF;
9367:
9368: write_conc_log(' l_group_id: '|| l_group_id );
9369: write_conc_log(' l_pbh_line_id: '|| l_pbh_line_id );
9444: CLOSE c_get_max_tier;
9445:
9446: END IF;
9447: IF G_DEBUG THEN
9448: ozf_utility_pvt.debug_message(' l_new_discount: '|| l_new_discount );
9449: END IF;
9450: write_conc_log(' l_new_discount: '|| l_new_discount );
9451: END IF;
9452:
9476:
9477: IF l_preset_tier is NOT NULL AND l_preset_tier > l_new_discount THEN
9478: l_new_discount := l_preset_tier;
9479: IF G_DEBUG THEN
9480: ozf_utility_pvt.debug_message('not reach preset tier: ');
9481: END IF;
9482: write_conc_log(' not reach preset tier:');
9483: END IF;
9484:
9523: l_previous_tier_max :=l_line_ordered_qty + l_volume ;
9524: END IF;
9525:
9526: IF G_DEBUG THEN
9527: ozf_utility_pvt.debug_message( ' l_line_ordered_qty=' || l_line_ordered_qty);
9528: END IF;
9529: write_conc_log( ' l_line_ordered_qty=' || l_line_ordered_qty);
9530: --fix for bug 6021538
9531:
9571:
9572: IF l_preset_tier is NOT NULL AND l_preset_tier > l_current_tier_value THEN
9573: l_current_tier_value := l_preset_tier;
9574: IF G_DEBUG THEN
9575: ozf_utility_pvt.debug_message('not reach preset tier: ');
9576: END IF;
9577: write_conc_log(' not reach preset tier:');
9578: END IF;
9579:
9598: --l_previous_tier_max := l_current_min_tier - 1 ;
9599: l_previous_tier_max := l_current_min_tier;
9600:
9601: IF G_DEBUG THEN
9602: ozf_utility_pvt.debug_message(' retroactive flag is N, computing for prior tier id=' || l_current_offer_tier_id
9603: || ' y1=' || y1 || ' tier_min=' || l_current_min_tier
9604: || ' tier_max=' || l_current_max_tier || ' l_previous_tier_max: ' || l_previous_tier_max
9605: || ' l_new_utilization: ' || l_utilization_amount);
9606: END IF;
9646: l_act_budgets_rec.budget_source_id := p_qp_list_header_id;
9647: l_act_budgets_rec.request_currency := l_order_line_info.transactional_curr_code; --ninarasi fix for bug 14610746
9648: l_act_budgets_rec.request_date := SYSDATE;
9649: l_act_budgets_rec.status_code := 'APPROVED';
9650: l_act_budgets_rec.user_status_id := ozf_Utility_Pvt.get_default_user_status (
9651: 'OZF_BUDGETSOURCE_STATUS', l_act_budgets_rec.status_code);
9652: l_act_budgets_rec.approved_in_currency := l_offer_info.transaction_currency_code;
9653: l_act_budgets_rec.approval_date := SYSDATE;
9654: l_act_budgets_rec.approver_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
9650: l_act_budgets_rec.user_status_id := ozf_Utility_Pvt.get_default_user_status (
9651: 'OZF_BUDGETSOURCE_STATUS', l_act_budgets_rec.status_code);
9652: l_act_budgets_rec.approved_in_currency := l_offer_info.transaction_currency_code;
9653: l_act_budgets_rec.approval_date := SYSDATE;
9654: l_act_budgets_rec.approver_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
9655: l_act_budgets_rec.justification := 'Offer adjustment before offer start date';
9656: l_act_budgets_rec.transfer_type := 'UTILIZED';
9657:
9658: l_act_util_rec.utilization_type :='ADJUSTMENT';