[Home] [Help]
120: WHEN FND_API.G_EXC_ERROR THEN
121: x_return_status := FND_API.G_RET_STS_ERROR;
122: WHEN OTHERS THEN
123: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
124: ozf_utility_pvt.error_message('OZF_RESALE_IS_TM_OFFER');
125: END is_valid_offer;
126:
127: ---------------------------------------------------------------------
128: -- PROCEDURE
181: END IF;
182:
183: -- Debug Message
184: IF OZF_DEBUG_HIGH_ON THEN
185: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': Start');
186: END IF;
187:
188: -- First, do some basic check
189:
194: -- Check status
195: IF l_status_code <> 'CLOSED' THEN
196:
197: x_return_status := FND_API.G_RET_STS_ERROR;
198: ozf_utility_pvt.error_message('OZF_BATCH_STATUS_WNG');
199: BEGIN
200: INSERT INTO ozf_resale_logs_all(
201: resale_log_id,
202: resale_id,
235: END IF;
236:
237: -- Debug Message
238: IF OZF_DEBUG_HIGH_ON THEN
239: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': End');
240: END IF;
241:
242: --Standard call to get message count and if count=1, get the message
243: FND_MSG_PUB.Count_And_Get (
320: END IF;
321:
322: -- Debug Message
323: IF OZF_DEBUG_HIGH_ON THEN
324: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': Start');
325: END IF;
326:
327: -- Initialize API return status to sucess
328: x_return_status := FND_API.G_RET_STS_SUCCESS;
361: AND a.error_code ='OZF_RESALE_SELL_PRICE_NULL'
362: );
363: EXCEPTION
364: WHEN OTHERS THEN
365: ozf_utility_pvt.error_message('OZF_INS_RESALE_LOG_WRG');
366: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
367: END;
368:
369: BEGIN
375: AND selling_price IS NULL
376: AND resale_batch_id = p_resale_batch_id;
377: EXCEPTION
378: WHEN OTHERS THEN
379: ozf_utility_pvt.error_message('OZF_UPD_RESALE_INT_WRG');
380: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
381: END;
382:
383: ELSE
413: AND a.error_code ='OZF_RESALE_SELL_PRICE_NULL'
414: );
415: EXCEPTION
416: WHEN OTHERS THEN
417: ozf_utility_pvt.error_message('OZF_INS_RESALE_LOG_WRG');
418: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
419: END;
420:
421: END IF;
421: END IF;
422:
423: -- Debug Message
424: IF OZF_DEBUG_HIGH_ON THEN
425: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': End');
426: END IF;
427: --Standard call to get message count and if count=1, get the message
428: FND_MSG_PUB.Count_And_Get (
429: p_encoded => FND_API.G_FALSE,
500: p_approver_id IN NUMBER,
501: p_run_mode IN VARCHAR2,
502: p_draft_run_id IN NUMBER,
503: x_return_status OUT NOCOPY VARCHAR2,
504: x_ozf_act_budgets_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_act_budgets_table,
505: x_ozf_funds_new_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_funds_table,
506: x_draft_accrual_tbl IN OUT NOCOPY ozf_draft_accrual_tbl_type
507: )
508: IS
501: p_run_mode IN VARCHAR2,
502: p_draft_run_id IN NUMBER,
503: x_return_status OUT NOCOPY VARCHAR2,
504: x_ozf_act_budgets_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_act_budgets_table,
505: x_ozf_funds_new_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_funds_table,
506: x_draft_accrual_tbl IN OUT NOCOPY ozf_draft_accrual_tbl_type
507: )
508: IS
509: l_api_name CONSTANT VARCHAR2(30) := 'Process_One_Line';
517: l_resale_line_int_rec OZF_RESALE_COMMON_PVT.g_interface_rec_csr%rowtype := p_resale_line_int_rec;
518:
519: l_use_fund_staging_tables VARCHAR2(1):= 'T';
520: l_budget_count NUMBER := 0;
521: ozf_funds_old_rectype OZF_UTILITY_PVT.ozf_funds_all_b_rectype;
522:
523:
524: --
525: -- NOTES: PPL has pricing_group_sequence as 0
636: l_draft_utilization_id NUMBER; -- Bug 14194884 - TPA In Draft Mode ER
637:
638: BEGIN
639: IF OZF_DEBUG_HIGH_ON THEN
640: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': Start');
641: END IF;
642:
643: SAVEPOINT PROC_ONE_LINE;
644:
646:
647: -- Make sure that records are passed in due to different caller type
648: IF p_caller_type = 'IFACE' AND
649: p_resale_line_int_rec.resale_line_int_id IS NULL THEN
650: ozf_utility_pvt.error_message('OZF_RESALE_INT_RECD_NULL');
651: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
652: END IF;
653:
654: IF p_caller_type = 'RESALE' AND
652: END IF;
653:
654: IF p_caller_type = 'RESALE' AND
655: p_resale_line_rec.resale_line_id IS NULL THEN
656: ozf_utility_pvt.error_message('OZF_RESALE_RECD_NULL');
657: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
658: END IF;
659:
660:
674: ,x_msg_data => l_msg_data
675: ,x_msg_count => l_msg_count
676: );
677: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
678: ozf_utility_pvt.error_message('OZF_INS_RESALE_LINE_WRG');
679: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
680: END IF;
681:
682: OZF_RESALE_COMMON_PVT.Insert_Resale_Line_Mapping(
769: ( p_caller_type = 'RESALE' AND
770: p_line_result_rec.unit_price < p_resale_line_rec.selling_price
771: );
772: IF OZF_DEBUG_LOW_ON THEN
773: ozf_utility_PVT.debug_message(l_full_name||':unit_price:'||p_line_result_rec.unit_price);
774: ozf_utility_PVT.debug_message(l_full_name||':selling_price'||p_resale_line_rec.selling_price);
775: END IF;
776:
777: IF OZF_DEBUG_LOW_ON THEN
770: p_line_result_rec.unit_price < p_resale_line_rec.selling_price
771: );
772: IF OZF_DEBUG_LOW_ON THEN
773: ozf_utility_PVT.debug_message(l_full_name||':unit_price:'||p_line_result_rec.unit_price);
774: ozf_utility_PVT.debug_message(l_full_name||':selling_price'||p_resale_line_rec.selling_price);
775: END IF;
776:
777: IF OZF_DEBUG_LOW_ON THEN
778: IF l_price_diff_util THEN
775: END IF;
776:
777: IF OZF_DEBUG_LOW_ON THEN
778: IF l_price_diff_util THEN
779: ozf_utility_PVT.debug_message(l_api_name||' >> do price adjustment');
780: ELSE
781: ozf_utility_pvt.debug_message(l_api_name||' >> no price adjustment');
782: END IF;
783: END IF;
777: IF OZF_DEBUG_LOW_ON THEN
778: IF l_price_diff_util THEN
779: ozf_utility_PVT.debug_message(l_api_name||' >> do price adjustment');
780: ELSE
781: ozf_utility_pvt.debug_message(l_api_name||' >> no price adjustment');
782: END IF;
783: END IF;
784:
785: IF OZF_DEBUG_LOW_ON THEN
782: END IF;
783: END IF;
784:
785: IF OZF_DEBUG_LOW_ON THEN
786: ozf_utility_PVT.debug_message(l_full_name||':l_ldets_tbl.count:'||l_ldets_tbl.count);
787: END IF;
788:
789: IF l_ldets_tbl.EXISTS(1) THEN
790: FOR k IN 1..l_ldets_tbl.LAST LOOP
807: -- END IF;
808: -- list_line_type_code 'PLL' is added.
809:
810: IF OZF_DEBUG_LOW_ON THEN
811: ozf_utility_pvt.debug_message(l_api_name||' >> qp_ldets_v (+)');
812: ozf_utility_pvt.debug_message('l_ldets_tbl('||k||').list_header_id = '||l_ldets_tbl(k).list_header_id);
813: ozf_utility_pvt.debug_message('l_ldets_tbl('||k||').list_line_type_code = '||l_ldets_tbl(k).list_line_type_code);
814: ozf_utility_pvt.debug_message('l_ldets_tbl('||k||').applied_flag = '||l_ldets_tbl(k).applied_flag);
815: ozf_utility_pvt.debug_message('l_ldets_tbl('||k||').accrual_flag = '||l_ldets_tbl(k).accrual_flag);
808: -- list_line_type_code 'PLL' is added.
809:
810: IF OZF_DEBUG_LOW_ON THEN
811: ozf_utility_pvt.debug_message(l_api_name||' >> qp_ldets_v (+)');
812: ozf_utility_pvt.debug_message('l_ldets_tbl('||k||').list_header_id = '||l_ldets_tbl(k).list_header_id);
813: ozf_utility_pvt.debug_message('l_ldets_tbl('||k||').list_line_type_code = '||l_ldets_tbl(k).list_line_type_code);
814: ozf_utility_pvt.debug_message('l_ldets_tbl('||k||').applied_flag = '||l_ldets_tbl(k).applied_flag);
815: ozf_utility_pvt.debug_message('l_ldets_tbl('||k||').accrual_flag = '||l_ldets_tbl(k).accrual_flag);
816: ozf_utility_pvt.debug_message('l_ldets_tbl('||k||').automatic_flag = '||l_ldets_tbl(k).automatic_flag);
809:
810: IF OZF_DEBUG_LOW_ON THEN
811: ozf_utility_pvt.debug_message(l_api_name||' >> qp_ldets_v (+)');
812: ozf_utility_pvt.debug_message('l_ldets_tbl('||k||').list_header_id = '||l_ldets_tbl(k).list_header_id);
813: ozf_utility_pvt.debug_message('l_ldets_tbl('||k||').list_line_type_code = '||l_ldets_tbl(k).list_line_type_code);
814: ozf_utility_pvt.debug_message('l_ldets_tbl('||k||').applied_flag = '||l_ldets_tbl(k).applied_flag);
815: ozf_utility_pvt.debug_message('l_ldets_tbl('||k||').accrual_flag = '||l_ldets_tbl(k).accrual_flag);
816: ozf_utility_pvt.debug_message('l_ldets_tbl('||k||').automatic_flag = '||l_ldets_tbl(k).automatic_flag);
817: ozf_utility_pvt.debug_message(l_api_name||' >> qp_ldets_v (-)');
810: IF OZF_DEBUG_LOW_ON THEN
811: ozf_utility_pvt.debug_message(l_api_name||' >> qp_ldets_v (+)');
812: ozf_utility_pvt.debug_message('l_ldets_tbl('||k||').list_header_id = '||l_ldets_tbl(k).list_header_id);
813: ozf_utility_pvt.debug_message('l_ldets_tbl('||k||').list_line_type_code = '||l_ldets_tbl(k).list_line_type_code);
814: ozf_utility_pvt.debug_message('l_ldets_tbl('||k||').applied_flag = '||l_ldets_tbl(k).applied_flag);
815: ozf_utility_pvt.debug_message('l_ldets_tbl('||k||').accrual_flag = '||l_ldets_tbl(k).accrual_flag);
816: ozf_utility_pvt.debug_message('l_ldets_tbl('||k||').automatic_flag = '||l_ldets_tbl(k).automatic_flag);
817: ozf_utility_pvt.debug_message(l_api_name||' >> qp_ldets_v (-)');
818: END IF;
811: ozf_utility_pvt.debug_message(l_api_name||' >> qp_ldets_v (+)');
812: ozf_utility_pvt.debug_message('l_ldets_tbl('||k||').list_header_id = '||l_ldets_tbl(k).list_header_id);
813: ozf_utility_pvt.debug_message('l_ldets_tbl('||k||').list_line_type_code = '||l_ldets_tbl(k).list_line_type_code);
814: ozf_utility_pvt.debug_message('l_ldets_tbl('||k||').applied_flag = '||l_ldets_tbl(k).applied_flag);
815: ozf_utility_pvt.debug_message('l_ldets_tbl('||k||').accrual_flag = '||l_ldets_tbl(k).accrual_flag);
816: ozf_utility_pvt.debug_message('l_ldets_tbl('||k||').automatic_flag = '||l_ldets_tbl(k).automatic_flag);
817: ozf_utility_pvt.debug_message(l_api_name||' >> qp_ldets_v (-)');
818: END IF;
819:
812: ozf_utility_pvt.debug_message('l_ldets_tbl('||k||').list_header_id = '||l_ldets_tbl(k).list_header_id);
813: ozf_utility_pvt.debug_message('l_ldets_tbl('||k||').list_line_type_code = '||l_ldets_tbl(k).list_line_type_code);
814: ozf_utility_pvt.debug_message('l_ldets_tbl('||k||').applied_flag = '||l_ldets_tbl(k).applied_flag);
815: ozf_utility_pvt.debug_message('l_ldets_tbl('||k||').accrual_flag = '||l_ldets_tbl(k).accrual_flag);
816: ozf_utility_pvt.debug_message('l_ldets_tbl('||k||').automatic_flag = '||l_ldets_tbl(k).automatic_flag);
817: ozf_utility_pvt.debug_message(l_api_name||' >> qp_ldets_v (-)');
818: END IF;
819:
820: IF l_ldets_tbl(k).list_line_type_code IN ('DIS','PBH', 'PLL') THEN
813: ozf_utility_pvt.debug_message('l_ldets_tbl('||k||').list_line_type_code = '||l_ldets_tbl(k).list_line_type_code);
814: ozf_utility_pvt.debug_message('l_ldets_tbl('||k||').applied_flag = '||l_ldets_tbl(k).applied_flag);
815: ozf_utility_pvt.debug_message('l_ldets_tbl('||k||').accrual_flag = '||l_ldets_tbl(k).accrual_flag);
816: ozf_utility_pvt.debug_message('l_ldets_tbl('||k||').automatic_flag = '||l_ldets_tbl(k).automatic_flag);
817: ozf_utility_pvt.debug_message(l_api_name||' >> qp_ldets_v (-)');
818: END IF;
819:
820: IF l_ldets_tbl(k).list_line_type_code IN ('DIS','PBH', 'PLL') THEN
821: -- create utilization based on an offer
850: END IF;
851:
852: IF OZF_DEBUG_LOW_ON THEN
853: IF l_is_valid_offer OR l_ldets_tbl(k).list_line_type_code = 'PLL' THEN
854: ozf_utility_pvt.debug_message(l_api_name||' >> Accrual for TM OFFR or PLL adjustment (+)');
855: ozf_utility_pvt.debug_message('l_ldets_tbl('||k||').list_header_id = '||l_ldets_tbl(k).list_header_id);
856: ozf_utility_pvt.debug_message('l_ldets_tbl('||k||').order_qty_adj_amt = '||l_ldets_tbl(k).order_qty_adj_amt);
857: ozf_utility_pvt.debug_message('l_ldets_tbl('||k||').line_quantity = '||l_ldets_tbl(k).line_quantity);
858: ozf_utility_pvt.debug_message('order line priced_quantity = '||p_line_result_rec.priced_quantity);
851:
852: IF OZF_DEBUG_LOW_ON THEN
853: IF l_is_valid_offer OR l_ldets_tbl(k).list_line_type_code = 'PLL' THEN
854: ozf_utility_pvt.debug_message(l_api_name||' >> Accrual for TM OFFR or PLL adjustment (+)');
855: ozf_utility_pvt.debug_message('l_ldets_tbl('||k||').list_header_id = '||l_ldets_tbl(k).list_header_id);
856: ozf_utility_pvt.debug_message('l_ldets_tbl('||k||').order_qty_adj_amt = '||l_ldets_tbl(k).order_qty_adj_amt);
857: ozf_utility_pvt.debug_message('l_ldets_tbl('||k||').line_quantity = '||l_ldets_tbl(k).line_quantity);
858: ozf_utility_pvt.debug_message('order line priced_quantity = '||p_line_result_rec.priced_quantity);
859: IF l_ldets_tbl(k).list_line_type_code = 'PLL' THEN
852: IF OZF_DEBUG_LOW_ON THEN
853: IF l_is_valid_offer OR l_ldets_tbl(k).list_line_type_code = 'PLL' THEN
854: ozf_utility_pvt.debug_message(l_api_name||' >> Accrual for TM OFFR or PLL adjustment (+)');
855: ozf_utility_pvt.debug_message('l_ldets_tbl('||k||').list_header_id = '||l_ldets_tbl(k).list_header_id);
856: ozf_utility_pvt.debug_message('l_ldets_tbl('||k||').order_qty_adj_amt = '||l_ldets_tbl(k).order_qty_adj_amt);
857: ozf_utility_pvt.debug_message('l_ldets_tbl('||k||').line_quantity = '||l_ldets_tbl(k).line_quantity);
858: ozf_utility_pvt.debug_message('order line priced_quantity = '||p_line_result_rec.priced_quantity);
859: IF l_ldets_tbl(k).list_line_type_code = 'PLL' THEN
860: ozf_utility_pvt.debug_message('order line unit_price = '||p_line_result_rec.unit_price);
853: IF l_is_valid_offer OR l_ldets_tbl(k).list_line_type_code = 'PLL' THEN
854: ozf_utility_pvt.debug_message(l_api_name||' >> Accrual for TM OFFR or PLL adjustment (+)');
855: ozf_utility_pvt.debug_message('l_ldets_tbl('||k||').list_header_id = '||l_ldets_tbl(k).list_header_id);
856: ozf_utility_pvt.debug_message('l_ldets_tbl('||k||').order_qty_adj_amt = '||l_ldets_tbl(k).order_qty_adj_amt);
857: ozf_utility_pvt.debug_message('l_ldets_tbl('||k||').line_quantity = '||l_ldets_tbl(k).line_quantity);
858: ozf_utility_pvt.debug_message('order line priced_quantity = '||p_line_result_rec.priced_quantity);
859: IF l_ldets_tbl(k).list_line_type_code = 'PLL' THEN
860: ozf_utility_pvt.debug_message('order line unit_price = '||p_line_result_rec.unit_price);
861: END IF;
854: ozf_utility_pvt.debug_message(l_api_name||' >> Accrual for TM OFFR or PLL adjustment (+)');
855: ozf_utility_pvt.debug_message('l_ldets_tbl('||k||').list_header_id = '||l_ldets_tbl(k).list_header_id);
856: ozf_utility_pvt.debug_message('l_ldets_tbl('||k||').order_qty_adj_amt = '||l_ldets_tbl(k).order_qty_adj_amt);
857: ozf_utility_pvt.debug_message('l_ldets_tbl('||k||').line_quantity = '||l_ldets_tbl(k).line_quantity);
858: ozf_utility_pvt.debug_message('order line priced_quantity = '||p_line_result_rec.priced_quantity);
859: IF l_ldets_tbl(k).list_line_type_code = 'PLL' THEN
860: ozf_utility_pvt.debug_message('order line unit_price = '||p_line_result_rec.unit_price);
861: END IF;
862: ozf_utility_pvt.debug_message(l_api_name||' >> Accrual for TM OFFR or PLL adjustment (-)');
856: ozf_utility_pvt.debug_message('l_ldets_tbl('||k||').order_qty_adj_amt = '||l_ldets_tbl(k).order_qty_adj_amt);
857: ozf_utility_pvt.debug_message('l_ldets_tbl('||k||').line_quantity = '||l_ldets_tbl(k).line_quantity);
858: ozf_utility_pvt.debug_message('order line priced_quantity = '||p_line_result_rec.priced_quantity);
859: IF l_ldets_tbl(k).list_line_type_code = 'PLL' THEN
860: ozf_utility_pvt.debug_message('order line unit_price = '||p_line_result_rec.unit_price);
861: END IF;
862: ozf_utility_pvt.debug_message(l_api_name||' >> Accrual for TM OFFR or PLL adjustment (-)');
863: END IF;
864: END IF;
858: ozf_utility_pvt.debug_message('order line priced_quantity = '||p_line_result_rec.priced_quantity);
859: IF l_ldets_tbl(k).list_line_type_code = 'PLL' THEN
860: ozf_utility_pvt.debug_message('order line unit_price = '||p_line_result_rec.unit_price);
861: END IF;
862: ozf_utility_pvt.debug_message(l_api_name||' >> Accrual for TM OFFR or PLL adjustment (-)');
863: END IF;
864: END IF;
865:
866: IF l_is_valid_offer THEN
934: l_adjustment_rec.total_accepted_amount :=
935: l_adjustment_rec.accepted_amount * l_ldets_tbl(k).line_quantity;
936:
937: -- nepanda : fix for bug # 13506138 : start
938: ozf_utility_pvt.write_conc_log('accrual amount from pricing = '|| l_adjustment_rec.total_accepted_amount);
939:
940: l_adjustment_rec.total_accepted_amount := ozf_utility_pvt.currround(l_adjustment_rec.total_accepted_amount , p_line_result_rec.currency_code);
941:
942: ozf_utility_pvt.write_conc_log('accrual amount from pricing(after rounding) = '|| l_adjustment_rec.total_accepted_amount);
936:
937: -- nepanda : fix for bug # 13506138 : start
938: ozf_utility_pvt.write_conc_log('accrual amount from pricing = '|| l_adjustment_rec.total_accepted_amount);
939:
940: l_adjustment_rec.total_accepted_amount := ozf_utility_pvt.currround(l_adjustment_rec.total_accepted_amount , p_line_result_rec.currency_code);
941:
942: ozf_utility_pvt.write_conc_log('accrual amount from pricing(after rounding) = '|| l_adjustment_rec.total_accepted_amount);
943: -- nepanda : fix for bug # 13506138 : end
944:
938: ozf_utility_pvt.write_conc_log('accrual amount from pricing = '|| l_adjustment_rec.total_accepted_amount);
939:
940: l_adjustment_rec.total_accepted_amount := ozf_utility_pvt.currround(l_adjustment_rec.total_accepted_amount , p_line_result_rec.currency_code);
941:
942: ozf_utility_pvt.write_conc_log('accrual amount from pricing(after rounding) = '|| l_adjustment_rec.total_accepted_amount);
943: -- nepanda : fix for bug # 13506138 : end
944:
945: l_adjustment_rec.priced_quantity := l_ldets_tbl(k).line_quantity;
946: -- BUG 4558568 (-)
1010: l_act_util_rec.product_level_type :='PRODUCT';
1011:
1012: l_act_util_rec.bill_to_site_use_id := p_resale_line_rec.bill_to_site_use_id;
1013: l_act_util_rec.ship_to_site_use_id := p_resale_line_rec.ship_to_site_use_id;
1014: ozf_utility_pvt.write_conc_log('JL: bill_to_site_use_id = ' || p_resale_line_rec.bill_to_site_use_id);
1015: ozf_utility_pvt.write_conc_log('JL: ship_to_site_use_id = ' || p_resale_line_rec.ship_to_site_use_id);
1016: IF p_caller_type = 'IFACE' THEN
1017: l_act_util_rec.product_id := p_resale_line_int_rec.inventory_item_Id;
1018: -- Here, there is a need to look INTO trading group issue
1011:
1012: l_act_util_rec.bill_to_site_use_id := p_resale_line_rec.bill_to_site_use_id;
1013: l_act_util_rec.ship_to_site_use_id := p_resale_line_rec.ship_to_site_use_id;
1014: ozf_utility_pvt.write_conc_log('JL: bill_to_site_use_id = ' || p_resale_line_rec.bill_to_site_use_id);
1015: ozf_utility_pvt.write_conc_log('JL: ship_to_site_use_id = ' || p_resale_line_rec.ship_to_site_use_id);
1016: IF p_caller_type = 'IFACE' THEN
1017: l_act_util_rec.product_id := p_resale_line_int_rec.inventory_item_Id;
1018: -- Here, there is a need to look INTO trading group issue
1019: -- Handled by budget
1066:
1067: IF l_ldets_tbl(k).list_line_type_code = 'PLL' THEN
1068: l_act_budgets_rec.arc_act_budget_used_by := 'PRIC';
1069: l_act_budgets_rec.budget_source_type := 'PRIC';
1070: l_act_budgets_rec.approver_id := ozf_utility_pvt.get_resource_id(p_approver_id);
1071: l_act_budgets_rec.requester_id := ozf_utility_pvt.get_resource_id(p_approver_id);
1072: l_act_budgets_rec.request_currency := p_line_result_rec.currency_code;
1073:
1074: -- Get fund info for price difference
1067: IF l_ldets_tbl(k).list_line_type_code = 'PLL' THEN
1068: l_act_budgets_rec.arc_act_budget_used_by := 'PRIC';
1069: l_act_budgets_rec.budget_source_type := 'PRIC';
1070: l_act_budgets_rec.approver_id := ozf_utility_pvt.get_resource_id(p_approver_id);
1071: l_act_budgets_rec.requester_id := ozf_utility_pvt.get_resource_id(p_approver_id);
1072: l_act_budgets_rec.request_currency := p_line_result_rec.currency_code;
1073:
1074: -- Get fund info for price difference
1075: -- get chargeback budget id FROM profile
1073:
1074: -- Get fund info for price difference
1075: -- get chargeback budget id FROM profile
1076: IF p_price_diff_fund_id IS NULL THEN
1077: ozf_utility_pvt.error_message('OZF_THRDPTY_BUDGET_ERR');
1078: RAISE FND_API.g_exc_error;
1079: ELSE
1080: l_act_budgets_rec.parent_source_id := p_price_diff_fund_id;
1081: END IF;
1122: -- get adjusted amount in budget currency
1123: -- Problem in 115.9 is fixed. no need here.
1124:
1125: IF OZF_DEBUG_LOW_ON THEN
1126: ozf_utility_pvt.debug_message('l_adjustment_rec.total_accepted_amount = ' || l_adjustment_rec.total_accepted_amount);
1127: END IF;
1128: --ER9447673
1129:
1130: -- julou 5723309: create util for VO PBH line only
1132: FETCH c_offer_type INTO l_offer_type, l_custom_setup_id,l_offer_name, l_offer_id;
1133: CLOSE c_offer_type;
1134:
1135: IF OZF_DEBUG_LOW_ON THEN
1136: ozf_utility_pvt.debug_message('l_ldets_tbl(k).list_header_id = ' || l_ldets_tbl(k).list_header_id);
1137: ozf_utility_pvt.debug_message('l_custom_setup_id = ' || l_custom_setup_id);
1138: ozf_utility_pvt.debug_message('l_offer_type = ' || l_offer_type);
1139: ozf_utility_pvt.debug_message('l_adjustment_rec.org_id = ' || l_adjustment_rec.org_id);
1140: ozf_utility_pvt.debug_message('l_line_id = ' || l_line_id);
1133: CLOSE c_offer_type;
1134:
1135: IF OZF_DEBUG_LOW_ON THEN
1136: ozf_utility_pvt.debug_message('l_ldets_tbl(k).list_header_id = ' || l_ldets_tbl(k).list_header_id);
1137: ozf_utility_pvt.debug_message('l_custom_setup_id = ' || l_custom_setup_id);
1138: ozf_utility_pvt.debug_message('l_offer_type = ' || l_offer_type);
1139: ozf_utility_pvt.debug_message('l_adjustment_rec.org_id = ' || l_adjustment_rec.org_id);
1140: ozf_utility_pvt.debug_message('l_line_id = ' || l_line_id);
1141: END IF;
1134:
1135: IF OZF_DEBUG_LOW_ON THEN
1136: ozf_utility_pvt.debug_message('l_ldets_tbl(k).list_header_id = ' || l_ldets_tbl(k).list_header_id);
1137: ozf_utility_pvt.debug_message('l_custom_setup_id = ' || l_custom_setup_id);
1138: ozf_utility_pvt.debug_message('l_offer_type = ' || l_offer_type);
1139: ozf_utility_pvt.debug_message('l_adjustment_rec.org_id = ' || l_adjustment_rec.org_id);
1140: ozf_utility_pvt.debug_message('l_line_id = ' || l_line_id);
1141: END IF;
1142:
1135: IF OZF_DEBUG_LOW_ON THEN
1136: ozf_utility_pvt.debug_message('l_ldets_tbl(k).list_header_id = ' || l_ldets_tbl(k).list_header_id);
1137: ozf_utility_pvt.debug_message('l_custom_setup_id = ' || l_custom_setup_id);
1138: ozf_utility_pvt.debug_message('l_offer_type = ' || l_offer_type);
1139: ozf_utility_pvt.debug_message('l_adjustment_rec.org_id = ' || l_adjustment_rec.org_id);
1140: ozf_utility_pvt.debug_message('l_line_id = ' || l_line_id);
1141: END IF;
1142:
1143: --nirprasa, ER9447673 populate new columns
1136: ozf_utility_pvt.debug_message('l_ldets_tbl(k).list_header_id = ' || l_ldets_tbl(k).list_header_id);
1137: ozf_utility_pvt.debug_message('l_custom_setup_id = ' || l_custom_setup_id);
1138: ozf_utility_pvt.debug_message('l_offer_type = ' || l_offer_type);
1139: ozf_utility_pvt.debug_message('l_adjustment_rec.org_id = ' || l_adjustment_rec.org_id);
1140: ozf_utility_pvt.debug_message('l_line_id = ' || l_line_id);
1141: END IF;
1142:
1143: --nirprasa, ER9447673 populate new columns
1144:
1155: FETCH c_sd_offer_discount INTO l_act_util_rec.discount_amount, l_act_util_rec.discount_type;
1156: CLOSE c_sd_offer_discount;
1157:
1158: IF OZF_DEBUG_LOW_ON THEN
1159: ozf_utility_pvt.debug_message('l_act_util_rec.discount_amount = ' || l_act_util_rec.discount_amount);
1160: ozf_utility_pvt.debug_message('l_act_util_rec.discount_type = ' || l_act_util_rec.discount_type);
1161: ozf_utility_pvt.debug_message('l_act_budgets_rec.request_currency = ' || l_act_budgets_rec.request_currency);
1162: END IF;
1163:
1156: CLOSE c_sd_offer_discount;
1157:
1158: IF OZF_DEBUG_LOW_ON THEN
1159: ozf_utility_pvt.debug_message('l_act_util_rec.discount_amount = ' || l_act_util_rec.discount_amount);
1160: ozf_utility_pvt.debug_message('l_act_util_rec.discount_type = ' || l_act_util_rec.discount_type);
1161: ozf_utility_pvt.debug_message('l_act_budgets_rec.request_currency = ' || l_act_budgets_rec.request_currency);
1162: END IF;
1163:
1164: IF l_act_util_rec.discount_type in ('AMT', 'NEWPRICE') THEN
1157:
1158: IF OZF_DEBUG_LOW_ON THEN
1159: ozf_utility_pvt.debug_message('l_act_util_rec.discount_amount = ' || l_act_util_rec.discount_amount);
1160: ozf_utility_pvt.debug_message('l_act_util_rec.discount_type = ' || l_act_util_rec.discount_type);
1161: ozf_utility_pvt.debug_message('l_act_budgets_rec.request_currency = ' || l_act_budgets_rec.request_currency);
1162: END IF;
1163:
1164: IF l_act_util_rec.discount_type in ('AMT', 'NEWPRICE') THEN
1165: l_act_util_rec.discount_amount_currency_code := l_act_budgets_rec.request_currency;
1167:
1168: MO_GLOBAL.set_policy_context('S', l_adjustment_rec.org_id);
1169: l_ssd_on_idsm := fnd_profile.value('OZF_SSD_ON_IDSM');
1170: IF OZF_DEBUG_LOW_ON THEN
1171: ozf_utility_pvt.debug_message('l_ssd_on_idsm = ' || l_ssd_on_idsm);
1172: END IF;
1173:
1174: IF l_ssd_on_idsm = 'Y' THEN
1175: OPEN c_purchase_price(l_line_id);
1188: RAISE fnd_api.g_exc_error;
1189: END IF;
1190:
1191: IF OZF_DEBUG_LOW_ON THEN
1192: ozf_utility_pvt.debug_message('l_ldets_tbl(k).operand_calculation_code = ' || l_ldets_tbl(k).operand_calculation_code);
1193: ozf_utility_pvt.debug_message('l_ldets_tbl(k).operand_value = ' || l_ldets_tbl(k).operand_value);
1194: ozf_utility_pvt.debug_message('p_resale_line_rec.selling_price = ' || p_resale_line_rec.selling_price);
1195: ozf_utility_pvt.debug_message('l_cost_price = ' || l_cost_price);
1196: END IF;
1189: END IF;
1190:
1191: IF OZF_DEBUG_LOW_ON THEN
1192: ozf_utility_pvt.debug_message('l_ldets_tbl(k).operand_calculation_code = ' || l_ldets_tbl(k).operand_calculation_code);
1193: ozf_utility_pvt.debug_message('l_ldets_tbl(k).operand_value = ' || l_ldets_tbl(k).operand_value);
1194: ozf_utility_pvt.debug_message('p_resale_line_rec.selling_price = ' || p_resale_line_rec.selling_price);
1195: ozf_utility_pvt.debug_message('l_cost_price = ' || l_cost_price);
1196: END IF;
1197:
1190:
1191: IF OZF_DEBUG_LOW_ON THEN
1192: ozf_utility_pvt.debug_message('l_ldets_tbl(k).operand_calculation_code = ' || l_ldets_tbl(k).operand_calculation_code);
1193: ozf_utility_pvt.debug_message('l_ldets_tbl(k).operand_value = ' || l_ldets_tbl(k).operand_value);
1194: ozf_utility_pvt.debug_message('p_resale_line_rec.selling_price = ' || p_resale_line_rec.selling_price);
1195: ozf_utility_pvt.debug_message('l_cost_price = ' || l_cost_price);
1196: END IF;
1197:
1198: IF l_ldets_tbl(k).operand_calculation_code = '%' THEN
1191: IF OZF_DEBUG_LOW_ON THEN
1192: ozf_utility_pvt.debug_message('l_ldets_tbl(k).operand_calculation_code = ' || l_ldets_tbl(k).operand_calculation_code);
1193: ozf_utility_pvt.debug_message('l_ldets_tbl(k).operand_value = ' || l_ldets_tbl(k).operand_value);
1194: ozf_utility_pvt.debug_message('p_resale_line_rec.selling_price = ' || p_resale_line_rec.selling_price);
1195: ozf_utility_pvt.debug_message('l_cost_price = ' || l_cost_price);
1196: END IF;
1197:
1198: IF l_ldets_tbl(k).operand_calculation_code = '%' THEN
1199: l_adjustment_rec.total_accepted_amount := l_cost_price * l_ldets_tbl(k).operand_value/100 * l_ldets_tbl(k).line_quantity * -1;
1205:
1206: l_act_util_rec.cost_price := l_cost_price;
1207: l_act_util_rec.cost_price_currency_code := l_act_budgets_rec.request_currency;
1208: ELSE -- l_ssd_on_idsm = 'N'/NULL
1209: ozf_utility_pvt.write_conc_log('Profile OZF: Supplier Ship and Debit on Indirect Sales is set to No or is NULL.');
1210: GOTO LABEL_FOR_NEXT_ITERATION;
1211: END IF;
1212: ELSE
1213: l_act_util_rec.reference_type := 'BATCH';
1216:
1217:
1218:
1219: IF OZF_DEBUG_LOW_ON THEN
1220: ozf_utility_pvt.debug_message('l_adjustment_rec.total_accepted_amount = ' || l_adjustment_rec.total_accepted_amount);
1221: END IF;
1222: --ER9447673
1223:
1224: l_act_budgets_rec.request_amount := l_adjustment_rec.total_accepted_amount;
1240: OPEN OZF_RESALE_COMMON_PVT.g_exchange_rate_type_csr;
1241: FETCH OZF_RESALE_COMMON_PVT.g_exchange_rate_type_csr INTO l_exchange_type;
1242: CLOSE OZF_RESALE_COMMON_PVT.g_exchange_rate_type_csr;
1243:
1244: OZF_UTILITY_PVT.convert_currency(
1245: p_from_currency => p_line_result_rec.currency_code
1246: ,p_to_currency => l_act_budgets_rec.request_currency
1247: ,p_conv_type => l_exchange_type
1248: ,p_conv_rate => FND_API.G_MISS_NUM
1258: l_act_budgets_rec.request_amount := l_new_request_amount;
1259: END IF;
1260: --nirprasa,12.2
1261: IF OZF_DEBUG_LOW_ON THEN
1262: ozf_utility_PVT.debug_message('act budget: '||l_act_budgets_rec.request_amount);
1263: END IF;
1264:
1265: -- Utilization always have different sign than the price adjustment
1266:
1273: OPEN OZF_RESALE_COMMON_PVT.g_exchange_rate_type_csr;
1274: FETCH OZF_RESALE_COMMON_PVT.g_exchange_rate_type_csr INTO l_exchange_type;
1275: CLOSE OZF_RESALE_COMMON_PVT.g_exchange_rate_type_csr;
1276:
1277: OZF_UTILITY_PVT.convert_currency(
1278: p_FROM_currency => p_line_result_rec.currency_code
1279: ,p_to_currency => l_act_budgets_rec.parent_src_curr
1280: ,p_conv_type => l_exchange_type
1281: ,p_conv_rate => FND_API.G_MISS_NUM
1296:
1297:
1298:
1299: IF OZF_DEBUG_LOW_ON THEN
1300: ozf_utility_pvt.debug_message(' JL offer_type: ' || l_offer_type);
1301: ozf_utility_pvt.debug_message(' JL list_line_type_code: ' || l_ldets_tbl(k).list_line_type_code);
1302: ozf_utility_pvt.debug_message(' JL calculated_amount: ' || l_adjustment_rec.calculated_amount);
1303: END IF;
1304:
1297:
1298:
1299: IF OZF_DEBUG_LOW_ON THEN
1300: ozf_utility_pvt.debug_message(' JL offer_type: ' || l_offer_type);
1301: ozf_utility_pvt.debug_message(' JL list_line_type_code: ' || l_ldets_tbl(k).list_line_type_code);
1302: ozf_utility_pvt.debug_message(' JL calculated_amount: ' || l_adjustment_rec.calculated_amount);
1303: END IF;
1304:
1305: l_to_create_utilization := (l_ldets_tbl(k).list_line_type_code = 'PLL' AND
1298:
1299: IF OZF_DEBUG_LOW_ON THEN
1300: ozf_utility_pvt.debug_message(' JL offer_type: ' || l_offer_type);
1301: ozf_utility_pvt.debug_message(' JL list_line_type_code: ' || l_ldets_tbl(k).list_line_type_code);
1302: ozf_utility_pvt.debug_message(' JL calculated_amount: ' || l_adjustment_rec.calculated_amount);
1303: END IF;
1304:
1305: l_to_create_utilization := (l_ldets_tbl(k).list_line_type_code = 'PLL' AND
1306: l_adjustment_rec.calculated_amount IS NOT NULL)
1326: AND l_act_budgets_rec.arc_act_budget_used_by = 'OFFR' THEN
1327: l_beneficiary_account_id := ozf_volume_calculation_pub.get_beneficiary(l_offer_id
1328: ,l_act_util_rec.object_id);
1329: IF OZF_DEBUG_LOW_ON THEN
1330: ozf_utility_pvt.write_conc_log ('l_offer_id: ' || l_offer_id);
1331: ozf_utility_pvt.write_conc_log ('l_beneficiary_account_id: ' || l_beneficiary_account_id);
1332: END IF;
1333:
1334: IF l_beneficiary_account_id = 0 THEN
1327: l_beneficiary_account_id := ozf_volume_calculation_pub.get_beneficiary(l_offer_id
1328: ,l_act_util_rec.object_id);
1329: IF OZF_DEBUG_LOW_ON THEN
1330: ozf_utility_pvt.write_conc_log ('l_offer_id: ' || l_offer_id);
1331: ozf_utility_pvt.write_conc_log ('l_beneficiary_account_id: ' || l_beneficiary_account_id);
1332: END IF;
1333:
1334: IF l_beneficiary_account_id = 0 THEN
1335: l_act_util_rec.cust_account_id := l_act_util_rec.billto_cust_account_id;
1490:
1491: x_return_status := l_return_status;
1492:
1493: IF OZF_DEBUG_HIGH_ON THEN
1494: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': start');
1495: END IF;
1496:
1497: EXCEPTION
1498: WHEN FND_API.G_EXC_ERROR THEN
1495: END IF;
1496:
1497: EXCEPTION
1498: WHEN FND_API.G_EXC_ERROR THEN
1499: ozf_utility_pvt.write_conc_log('ERROR in process_one_line');
1500: --ROLLBACK TO PROC_ONE_LINE;
1501: x_return_status := FND_API.G_RET_STS_ERROR;
1502: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1503: ozf_utility_pvt.write_conc_log('UNEXP ERROR in process_one_line');
1499: ozf_utility_pvt.write_conc_log('ERROR in process_one_line');
1500: --ROLLBACK TO PROC_ONE_LINE;
1501: x_return_status := FND_API.G_RET_STS_ERROR;
1502: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1503: ozf_utility_pvt.write_conc_log('UNEXP ERROR in process_one_line');
1504: --ROLLBACK TO PROC_ONE_LINE;
1505: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1506: WHEN OTHERS THEN
1507: ozf_utility_pvt.write_conc_log('OTHER ERROR in process_one_line');
1503: ozf_utility_pvt.write_conc_log('UNEXP ERROR in process_one_line');
1504: --ROLLBACK TO PROC_ONE_LINE;
1505: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1506: WHEN OTHERS THEN
1507: ozf_utility_pvt.write_conc_log('OTHER ERROR in process_one_line');
1508: --ROLLBACK TO PROC_ONE_LINE;
1509: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1510: END process_one_line;
1511:
1519: p_price_diff_fund_id IN NUMBER,
1520: p_caller_type IN VARCHAR2,
1521: p_approver_id IN NUMBER,
1522: x_return_status OUT NOCOPY VARCHAR2,
1523: x_ozf_act_budgets_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_act_budgets_table,
1524: x_ozf_funds_new_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_funds_table
1525: )
1526: IS
1527: l_run_mode VARCHAR2(10);
1520: p_caller_type IN VARCHAR2,
1521: p_approver_id IN NUMBER,
1522: x_return_status OUT NOCOPY VARCHAR2,
1523: x_ozf_act_budgets_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_act_budgets_table,
1524: x_ozf_funds_new_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_funds_table
1525: )
1526: IS
1527: l_run_mode VARCHAR2(10);
1528: l_draft_run_id NUMBER;
1560: p_approver_id IN NUMBER,
1561: x_return_status OUT NOCOPY VARCHAR2
1562: )
1563: IS
1564: l_ozf_act_budgets_tbl OZF_UTILITY_PVT.ozf_act_budgets_table;
1565: l_ozf_funds_new_tbl OZF_UTILITY_PVT.ozf_funds_table;
1566:
1567: BEGIN
1568:
1561: x_return_status OUT NOCOPY VARCHAR2
1562: )
1563: IS
1564: l_ozf_act_budgets_tbl OZF_UTILITY_PVT.ozf_act_budgets_table;
1565: l_ozf_funds_new_tbl OZF_UTILITY_PVT.ozf_funds_table;
1566:
1567: BEGIN
1568:
1569: Process_One_Line(
1611: p_caller_type IN VARCHAR2,
1612: p_run_mode IN VARCHAR2,
1613: p_draft_run_id IN NUMBER,
1614: x_return_status OUT NOCOPY VARCHAR2,
1615: x_ozf_act_budgets_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_act_budgets_table,
1616: x_ozf_funds_new_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_funds_table,
1617: x_draft_accrual_tbl IN OUT NOCOPY ozf_draft_accrual_tbl_type
1618: )
1619: IS
1612: p_run_mode IN VARCHAR2,
1613: p_draft_run_id IN NUMBER,
1614: x_return_status OUT NOCOPY VARCHAR2,
1615: x_ozf_act_budgets_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_act_budgets_table,
1616: x_ozf_funds_new_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_funds_table,
1617: x_draft_accrual_tbl IN OUT NOCOPY ozf_draft_accrual_tbl_type
1618: )
1619: IS
1620: l_api_name CONSTANT VARCHAR2(30) := 'Process_Pricing_Result';
1745: l_dispute_code VARCHAR2(300);
1746: BEGIN
1747: -- Debug Message
1748: IF OZF_DEBUG_HIGH_ON THEN
1749: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': start');
1750: END IF;
1751:
1752: x_return_status := FND_API.G_RET_STS_SUCCESS;
1753:
1762: l_direct_order_flag;
1763: CLOSE batch_info_csr;
1764:
1765: IF l_fund_id is null THEN
1766: ozf_utility_pvt.error_message('OZF_THRDPTY_BUDGET_ERR');
1767: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Please setup Profile OZF : Price Difference Budget before running Third Party Accrual.');
1768: RAISE FND_API.g_exc_error;
1769: END IF;
1770:
1806: AND date_ordered = l_date_ordered
1807: AND resale_batch_id = p_resale_batch_id;
1808: EXCEPTION
1809: WHEN OTHERS THEN
1810: ozf_utility_pvt.error_message('OZF_UPD_RESALE_INT_WRG');
1811: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1812: END;
1813: l_id_type := 'IFACE';
1814: ELSE
1844: px_org_id => l_org_id
1845: );
1846: EXCEPTION
1847: WHEN OTHERS THEN
1848: ozf_utility_pvt.error_message('OZF_INS_RESALE_LOG_WRG');
1849: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1850: END;
1851: END LOOP;
1852: ELSE
1897: ,x_msg_count => l_msg_count
1898: ,x_msg_data => l_msg_data
1899: );
1900: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1901: OZF_UTILITY_PVT.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
1902: RAISE FND_API.G_EXC_ERROR;
1903: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1904: OZF_UTILITY_PVT.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
1905: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1900: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1901: OZF_UTILITY_PVT.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
1902: RAISE FND_API.G_EXC_ERROR;
1903: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1904: OZF_UTILITY_PVT.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
1905: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1906: END IF;
1907: /*
1908: OZF_SALES_TRANSACTIONS_PVT.Initiate_Inventory_tmp (
1915: ,x_msg_count => l_msg_count
1916: ,x_msg_data => l_msg_data
1917: );
1918: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1919: ozf_utility_pvt.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
1920: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1921: END IF;
1922: */
1923: -- Bug
1959: */
1960: IF l_inventory_tracking = 'T'
1961: AND (l_direct_order_flag <> 'Y') THEN
1962: IF OZF_DEBUG_LOW_ON THEN
1963: OZF_UTILITY_PVT.debug_message(l_api_name||' >> Need inventory tracking' );
1964: END IF;
1965:
1966: -- Check inventory level first
1967: OZF_SALES_TRANSACTIONS_PVT.Validate_Inventory_level (
1976: );
1977:
1978: IF NOT l_inventory_level_valid THEN
1979: IF OZF_DEBUG_LOW_ON THEN
1980: OZF_UTILITY_PVT.debug_message(l_api_name||' >> Did not pass inventory checking');
1981: END IF;
1982: --
1983: -- Fux for bug Bug 14584673 : Added exception block at the end of the loop to log all type of errors at one place.
1984: /* OZF_RESALE_COMMON_PVT.Insert_Resale_Log (
2003: dispute_code = 'OZF_LT_INVT'
2004: WHERE resale_line_int_id = l_resale_int_rec.resale_line_int_id;*/
2005:
2006: l_resale_int_rec.dispute_code := 'OZF_LT_INVT';
2007: OZF_UTILITY_PVT.error_message('OZF_LT_INVT');
2008: RAISE FND_API.g_exc_error;
2009:
2010: -- Batch status won't be set to DISPUTED.
2011: -- TP Accrual Process will still continue.
2010: -- Batch status won't be set to DISPUTED.
2011: -- TP Accrual Process will still continue.
2012: ELSE
2013: IF OZF_DEBUG_LOW_ON THEN
2014: OZF_UTILITY_PVT.debug_message(l_api_name||' >> Pass inventory validation');
2015: END IF;
2016: END IF;
2017: --
2018: END IF;
2068: l_exchange_type := l_default_exchange_type;
2069: END IF;
2070:
2071: IF l_exchange_type IS NULL THEN
2072: ozf_utility_pvt.error_message('OZF_CLAIM_CONTYPE_MISSING');
2073: l_resale_int_rec.dispute_code := 'OZF_CLAIM_CONTYPE_MISSING';
2074: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2075: END IF;
2076:
2078: l_exchange_date := sysdate;
2079: END IF;
2080:
2081: IF OZF_DEBUG_LOW_ON THEN
2082: OZF_UTILITY_PVT.debug_message(l_api_name||' >> Convert Currency <<');
2083: OZF_UTILITY_PVT.debug_message(l_api_name||' >> from currency :' || l_resale_int_rec.currency_code);
2084: OZF_UTILITY_PVT.debug_message(l_api_name||' >> to currency :' || l_func_currency_code);
2085: OZF_UTILITY_PVT.debug_message(l_api_name||' >> rate :' || l_rate);
2086: OZF_UTILITY_PVT.debug_message(l_api_name||' >> exchange date :' || l_exchange_date);
2079: END IF;
2080:
2081: IF OZF_DEBUG_LOW_ON THEN
2082: OZF_UTILITY_PVT.debug_message(l_api_name||' >> Convert Currency <<');
2083: OZF_UTILITY_PVT.debug_message(l_api_name||' >> from currency :' || l_resale_int_rec.currency_code);
2084: OZF_UTILITY_PVT.debug_message(l_api_name||' >> to currency :' || l_func_currency_code);
2085: OZF_UTILITY_PVT.debug_message(l_api_name||' >> rate :' || l_rate);
2086: OZF_UTILITY_PVT.debug_message(l_api_name||' >> exchange date :' || l_exchange_date);
2087: OZF_UTILITY_PVT.debug_message(l_api_name||' >> exchange type :' || l_exchange_type);
2080:
2081: IF OZF_DEBUG_LOW_ON THEN
2082: OZF_UTILITY_PVT.debug_message(l_api_name||' >> Convert Currency <<');
2083: OZF_UTILITY_PVT.debug_message(l_api_name||' >> from currency :' || l_resale_int_rec.currency_code);
2084: OZF_UTILITY_PVT.debug_message(l_api_name||' >> to currency :' || l_func_currency_code);
2085: OZF_UTILITY_PVT.debug_message(l_api_name||' >> rate :' || l_rate);
2086: OZF_UTILITY_PVT.debug_message(l_api_name||' >> exchange date :' || l_exchange_date);
2087: OZF_UTILITY_PVT.debug_message(l_api_name||' >> exchange type :' || l_exchange_type);
2088: END IF;
2081: IF OZF_DEBUG_LOW_ON THEN
2082: OZF_UTILITY_PVT.debug_message(l_api_name||' >> Convert Currency <<');
2083: OZF_UTILITY_PVT.debug_message(l_api_name||' >> from currency :' || l_resale_int_rec.currency_code);
2084: OZF_UTILITY_PVT.debug_message(l_api_name||' >> to currency :' || l_func_currency_code);
2085: OZF_UTILITY_PVT.debug_message(l_api_name||' >> rate :' || l_rate);
2086: OZF_UTILITY_PVT.debug_message(l_api_name||' >> exchange date :' || l_exchange_date);
2087: OZF_UTILITY_PVT.debug_message(l_api_name||' >> exchange type :' || l_exchange_type);
2088: END IF;
2089:
2082: OZF_UTILITY_PVT.debug_message(l_api_name||' >> Convert Currency <<');
2083: OZF_UTILITY_PVT.debug_message(l_api_name||' >> from currency :' || l_resale_int_rec.currency_code);
2084: OZF_UTILITY_PVT.debug_message(l_api_name||' >> to currency :' || l_func_currency_code);
2085: OZF_UTILITY_PVT.debug_message(l_api_name||' >> rate :' || l_rate);
2086: OZF_UTILITY_PVT.debug_message(l_api_name||' >> exchange date :' || l_exchange_date);
2087: OZF_UTILITY_PVT.debug_message(l_api_name||' >> exchange type :' || l_exchange_type);
2088: END IF;
2089:
2090: OZF_UTILITY_PVT.Convert_Currency(
2083: OZF_UTILITY_PVT.debug_message(l_api_name||' >> from currency :' || l_resale_int_rec.currency_code);
2084: OZF_UTILITY_PVT.debug_message(l_api_name||' >> to currency :' || l_func_currency_code);
2085: OZF_UTILITY_PVT.debug_message(l_api_name||' >> rate :' || l_rate);
2086: OZF_UTILITY_PVT.debug_message(l_api_name||' >> exchange date :' || l_exchange_date);
2087: OZF_UTILITY_PVT.debug_message(l_api_name||' >> exchange type :' || l_exchange_type);
2088: END IF;
2089:
2090: OZF_UTILITY_PVT.Convert_Currency(
2091: p_from_currency => l_resale_int_rec.currency_code
2086: OZF_UTILITY_PVT.debug_message(l_api_name||' >> exchange date :' || l_exchange_date);
2087: OZF_UTILITY_PVT.debug_message(l_api_name||' >> exchange type :' || l_exchange_type);
2088: END IF;
2089:
2090: OZF_UTILITY_PVT.Convert_Currency(
2091: p_from_currency => l_resale_int_rec.currency_code
2092: ,p_to_currency => l_func_currency_code
2093: ,p_conv_type => l_exchange_type
2094: ,p_conv_rate => l_rate
2103: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2104: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2105: END IF;
2106:
2107: OZF_UTILITY_PVT.Convert_Currency(
2108: p_from_currency => l_resale_int_rec.currency_code
2109: ,p_to_currency => l_func_currency_code
2110: ,p_conv_type => l_exchange_type
2111: ,p_conv_rate => l_rate
2119: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2120: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2121: END IF;
2122: ELSE
2123: l_acctd_adj_unit_price := OZF_UTILITY_PVT.CurrRound(p_line_tbl(i).adjusted_unit_price*l_rate, l_func_currency_code);
2124: l_acctd_selling_price := OZF_UTILITY_PVT.CurrRound(l_resale_int_rec.selling_price*l_rate, l_func_currency_code);
2125: END IF;
2126: ELSE
2127: l_rate := 1;
2120: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2121: END IF;
2122: ELSE
2123: l_acctd_adj_unit_price := OZF_UTILITY_PVT.CurrRound(p_line_tbl(i).adjusted_unit_price*l_rate, l_func_currency_code);
2124: l_acctd_selling_price := OZF_UTILITY_PVT.CurrRound(l_resale_int_rec.selling_price*l_rate, l_func_currency_code);
2125: END IF;
2126: ELSE
2127: l_rate := 1;
2128: l_acctd_adj_unit_price := p_line_tbl(i).adjusted_unit_price;
2157: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2158: IF l_resale_int_rec.dispute_code IS NULL THEN
2159: l_resale_int_rec.dispute_code := 'OZF_PRIC_RESULT_ERR';
2160: END IF;
2161: OZF_UTILITY_PVT.error_message('OZF_PRIC_RESULT_ERR');
2162: RAISE FND_API.G_EXC_ERROR;
2163: -- drop this line from batch if it is from interface
2164: -- Fux for bug Bug 14584673 : Added exception block at the end of the loop to log all type of errors at one place.
2165: /* IF p_caller_type = 'IFACE' THEN
2171: dispute_code = 'OZF_PRIC_RESULT_ERR'
2172: WHERE resale_line_int_id = p_line_tbl(i).chargeback_int_id;
2173: EXCEPTION
2174: WHEN OTHERS THEN
2175: ozf_utility_pvt.error_message('OZF_UPD_RESALE_INT_WRG');
2176: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2177: END;
2178: END IF;*/
2179: ELSE
2184: SET status_code= 'CLOSED'
2185: WHERE resale_line_int_id = p_line_tbl(i).chargeback_int_id;
2186: EXCEPTION
2187: WHEN OTHERS THEN
2188: ozf_utility_pvt.error_message('OZF_UPD_RESALE_INT_WRG');
2189: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2190: END;
2191: END IF;
2192:
2236:
2237: x_return_status := l_return_status;
2238:
2239: IF OZF_DEBUG_HIGH_ON THEN
2240: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': end');
2241: END IF;
2242:
2243: EXCEPTION
2244: WHEN FND_API.G_EXC_ERROR THEN
2241: END IF;
2242:
2243: EXCEPTION
2244: WHEN FND_API.G_EXC_ERROR THEN
2245: ozf_utility_pvt.write_conc_log('ERROR in process_pricing_result');
2246: --ROLLBACK TO PROC_PRIC_RESULT;
2247: x_return_status := FND_API.G_RET_STS_ERROR;
2248: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2249: ozf_utility_pvt.write_conc_log('UNEXP ERROR in process_pricing_result');
2245: ozf_utility_pvt.write_conc_log('ERROR in process_pricing_result');
2246: --ROLLBACK TO PROC_PRIC_RESULT;
2247: x_return_status := FND_API.G_RET_STS_ERROR;
2248: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2249: ozf_utility_pvt.write_conc_log('UNEXP ERROR in process_pricing_result');
2250: --ROLLBACK TO PROC_PRIC_RESULT;
2251: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2252: WHEN OTHERS THEN
2253: ozf_utility_pvt.write_conc_log('OTHER ERROR in process_pricing_result');
2249: ozf_utility_pvt.write_conc_log('UNEXP ERROR in process_pricing_result');
2250: --ROLLBACK TO PROC_PRIC_RESULT;
2251: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2252: WHEN OTHERS THEN
2253: ozf_utility_pvt.write_conc_log('OTHER ERROR in process_pricing_result');
2254: --ROLLBACK TO PROC_PRIC_RESULT;
2255: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2256: END process_pricing_result;
2257:
2260: p_resale_batch_id IN NUMBER,
2261: p_line_tbl IN OZF_ORDER_PRICE_PVT.LINE_REC_TBL_TYPE,
2262: p_caller_type IN VARCHAR2,
2263: x_return_status OUT NOCOPY VARCHAR2,
2264: x_ozf_act_budgets_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_act_budgets_table,
2265: x_ozf_funds_new_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_funds_table
2266: )IS
2267: l_run_mode VARCHAR2(10) ;
2268: l_draft_run_id NUMBER;
2261: p_line_tbl IN OZF_ORDER_PRICE_PVT.LINE_REC_TBL_TYPE,
2262: p_caller_type IN VARCHAR2,
2263: x_return_status OUT NOCOPY VARCHAR2,
2264: x_ozf_act_budgets_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_act_budgets_table,
2265: x_ozf_funds_new_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_funds_table
2266: )IS
2267: l_run_mode VARCHAR2(10) ;
2268: l_draft_run_id NUMBER;
2269: l_draft_accrual_tbl ozf_draft_accrual_tbl_type;
2288: p_caller_type IN VARCHAR2,
2289: x_return_status OUT NOCOPY VARCHAR2
2290: )
2291: IS
2292: l_ozf_act_budgets_tbl OZF_UTILITY_PVT.ozf_act_budgets_table;
2293: l_ozf_funds_new_tbl OZF_UTILITY_PVT.ozf_funds_table;
2294: BEGIN
2295: Process_Pricing_Result(
2296: p_resale_batch_id => p_resale_batch_id,
2289: x_return_status OUT NOCOPY VARCHAR2
2290: )
2291: IS
2292: l_ozf_act_budgets_tbl OZF_UTILITY_PVT.ozf_act_budgets_table;
2293: l_ozf_funds_new_tbl OZF_UTILITY_PVT.ozf_funds_table;
2294: BEGIN
2295: Process_Pricing_Result(
2296: p_resale_batch_id => p_resale_batch_id,
2297: p_line_tbl => p_line_tbl,
2398: l_default_price_list_id NUMBER;
2399: -- bug 6317120
2400: l_org_id NUMBER;
2401: -- end bug 6317120
2402: l_ozf_act_budgets_tbl OZF_UTILITY_PVT.ozf_act_budgets_table;
2403: l_ozf_funds_new_tbl OZF_UTILITY_PVT.ozf_funds_table;
2404: x_fund_update_status VARCHAR2(30) := OZF_RESALE_COMMON_PVT.G_BATCH_CLOSED;
2405: x_budget_update_status VARCHAR2(30) := OZF_RESALE_COMMON_PVT.G_BATCH_CLOSED;
2406: BEGIN
2399: -- bug 6317120
2400: l_org_id NUMBER;
2401: -- end bug 6317120
2402: l_ozf_act_budgets_tbl OZF_UTILITY_PVT.ozf_act_budgets_table;
2403: l_ozf_funds_new_tbl OZF_UTILITY_PVT.ozf_funds_table;
2404: x_fund_update_status VARCHAR2(30) := OZF_RESALE_COMMON_PVT.G_BATCH_CLOSED;
2405: x_budget_update_status VARCHAR2(30) := OZF_RESALE_COMMON_PVT.G_BATCH_CLOSED;
2406: BEGIN
2407: -- Standard BEGIN of API savepoint
2422: END IF;
2423:
2424: -- Debug Message
2425: IF OZF_DEBUG_HIGH_ON THEN
2426: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': Start');
2427: END IF;
2428:
2429: -- Initialize API return status to sucess
2430: x_return_status := FND_API.G_RET_STS_SUCCESS;
2442: l_control_rec.pricing_event := fnd_profile.value('OZF_PRICING_SIMULATION_EVENT');
2443:
2444: IF l_control_rec.pricing_event is NULL THEN
2445: IF OZF_DEBUG_LOW_ON THEN
2446: ozf_utility_PVT.debug_message('pricing event default');
2447: END IF;
2448: l_control_rec.pricing_event := 'BATCH,BOOK,SHIP';
2449: ELSE
2450: IF l_control_rec.pricing_event = 'BATCH' THEN
2456: END IF;
2457: END IF;
2458:
2459: IF OZF_DEBUG_LOW_ON THEN
2460: ozf_utility_PVT.debug_message('Event:' ||l_control_rec.pricing_event );
2461: END IF;
2462:
2463: l_control_rec.calculate_flag := 'Y';
2464: l_control_rec.simulation_flag := 'Y';
2501: ELSE
2502: l_price_flag := 'Y';
2503: END IF;
2504: IF OZF_DEBUG_LOW_ON THEN
2505: ozf_utility_PVT.debug_message('Price flag:' ||l_price_flag );
2506: ozf_utility_PVT.debug_message('List Price Override Flag:' ||l_list_price_override_flag);
2507: END IF;
2508:
2509: For i in 1..l_header_id_tbl.LAST
2502: l_price_flag := 'Y';
2503: END IF;
2504: IF OZF_DEBUG_LOW_ON THEN
2505: ozf_utility_PVT.debug_message('Price flag:' ||l_price_flag );
2506: ozf_utility_PVT.debug_message('List Price Override Flag:' ||l_list_price_override_flag);
2507: END IF;
2508:
2509: For i in 1..l_header_id_tbl.LAST
2510: LOOP
2513:
2514: QP_Price_Request_Context.Set_Request_Id;
2515:
2516: IF OZF_DEBUG_LOW_ON THEN
2517: ozf_utility_PVT.debug_message('/*--- Processing order for order NUMBER:'||l_header_id_tbl(i).resale_header_id||'---*/');
2518: END IF;
2519:
2520: -- Before start process, clean up the data structures if necessary.
2521: IF l_order_set_tbl.EXISTS(1) THEN l_order_set_tbl.DELETE; END IF;
2540: --END LOOP;
2541: CLOSE order_set_csr;
2542:
2543: IF OZF_DEBUG_LOW_ON THEN
2544: ozf_utility_PVT.debug_message('after order set'||l_order_set_tbl.LAST);
2545: END IF;
2546: IF l_order_set_tbl.exists(1) THEN
2547: For J in 1..l_order_set_tbl.LAST
2548: LOOP
2554: WHERE resale_id = l_order_set_tbl(J).resale_line_id
2555: AND resale_id_type = OZF_RESALE_COMMON_PVT.G_ID_TYPE_LINE;
2556: EXCEPTION
2557: WHEN OTHERS THEN
2558: ozf_utility_pvt.error_message('OZF_DEL_RESALE_LOG_WRG');
2559: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2560: END;
2561:
2562: IF OZF_DEBUG_LOW_ON THEN
2559: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2560: END;
2561:
2562: IF OZF_DEBUG_LOW_ON THEN
2563: ozf_utility_PVT.debug_message(l_api_name||'>> building order line for resale line id: '||l_order_set_tbl(j).resale_line_id);
2564: END IF;
2565: -- INSERT INTO l_line_tbl
2566: l_line_tbl(j).line_index := j;
2567: l_line_tbl(j).line_id := l_order_set_tbl(j).resale_line_id;
2731:
2732: END LOOP;
2733:
2734: IF OZF_DEBUG_LOW_ON THEN
2735: ozf_utility_PVT.debug_message(l_api_name||'>> building order header');
2736: END IF;
2737:
2738: -- build summary line
2739: k := l_order_set_tbl.LAST + 1;
2813:
2814:
2815:
2816: IF OZF_DEBUG_LOW_ON THEN
2817: ozf_utility_PVT.debug_message(l_api_name||'>> Calling Get_Order_');
2818: END IF;
2819:
2820: OZF_ORDER_PRICE_PVT.Get_Order_Price (
2821: p_api_version => 1.0
2830: ,x_ldets_tbl => l_ldets_tbl
2831: ,x_related_lines_tbl => l_related_lines_tbl
2832: );
2833: IF l_return_status<> FND_API.G_RET_STS_SUCCESS THEN
2834: ozf_utility_pvt.error_message('OZF_GET_ORDER_PRIC_ERR');
2835:
2836: FOR p in 1..l_order_set_tbl.LAST
2837: LOOP
2838: BEGIN
2857: px_org_id => l_org_id
2858: );
2859: EXCEPTION
2860: WHEN OTHERS THEN
2861: ozf_utility_pvt.error_message('OZF_INS_RESALE_LOG_WRG');
2862: RAISE FND_API.g_exc_unexpected_error;
2863: END;
2864: END LOOP;
2865: IF OZF_DEBUG_LOW_ON THEN
2862: RAISE FND_API.g_exc_unexpected_error;
2863: END;
2864: END LOOP;
2865: IF OZF_DEBUG_LOW_ON THEN
2866: ozf_utility_PVT.debug_message('/*--- Get order price failed ---*/');
2867: END IF;
2868: GOTO END_LOOP;
2869: END IF;
2870: IF OZF_DEBUG_LOW_ON THEN
2867: END IF;
2868: GOTO END_LOOP;
2869: END IF;
2870: IF OZF_DEBUG_LOW_ON THEN
2871: ozf_utility_PVT.debug_message('/*--- Get order price succeeded ---*/');
2872: ozf_utility_PVT.debug_message('calling process price result');
2873: ozf_utility_PVT.debug_message('/*--- Calling process_price_result: ---*/');
2874: END IF;
2875:
2868: GOTO END_LOOP;
2869: END IF;
2870: IF OZF_DEBUG_LOW_ON THEN
2871: ozf_utility_PVT.debug_message('/*--- Get order price succeeded ---*/');
2872: ozf_utility_PVT.debug_message('calling process price result');
2873: ozf_utility_PVT.debug_message('/*--- Calling process_price_result: ---*/');
2874: END IF;
2875:
2876: -- Here, reasle_batch_id is passed for some process convenience, it's not necessary.
2869: END IF;
2870: IF OZF_DEBUG_LOW_ON THEN
2871: ozf_utility_PVT.debug_message('/*--- Get order price succeeded ---*/');
2872: ozf_utility_PVT.debug_message('calling process price result');
2873: ozf_utility_PVT.debug_message('/*--- Calling process_price_result: ---*/');
2874: END IF;
2875:
2876: -- Here, reasle_batch_id is passed for some process convenience, it's not necessary.
2877:
2896: p_data => l_temp_data,
2897: p_msg_index_out => l_temp_count
2898: );
2899: IF OZF_DEBUG_LOW_ON THEN
2900: ozf_utility_PVT.debug_message('After process_price:'||l_temp_count||' ,'||l_temp_data);
2901: ozf_utility_PVT.debug_message('l_return_status:'||l_return_status);
2902: END IF;
2903: FOR i in 1..l_order_set_tbl.LAST
2904: LOOP
2897: p_msg_index_out => l_temp_count
2898: );
2899: IF OZF_DEBUG_LOW_ON THEN
2900: ozf_utility_PVT.debug_message('After process_price:'||l_temp_count||' ,'||l_temp_data);
2901: ozf_utility_PVT.debug_message('l_return_status:'||l_return_status);
2902: END IF;
2903: FOR i in 1..l_order_set_tbl.LAST
2904: LOOP
2905: BEGIN
2924: px_org_id => l_org_id
2925: );
2926: EXCEPTION
2927: WHEN OTHERS THEN
2928: ozf_utility_pvt.error_message('OZF_INS_RESALE_LOG_WRG');
2929: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2930: END;
2931: END LOOP;
2932: IF OZF_DEBUG_LOW_ON THEN
2929: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2930: END;
2931: END LOOP;
2932: IF OZF_DEBUG_LOW_ON THEN
2933: ozf_utility_PVT.debug_message('/*--- process_price_result Failed ---*/');
2934: END IF;
2935: goto END_LOOP;
2936: END IF;
2937: ELSE
2935: goto END_LOOP;
2936: END IF;
2937: ELSE
2938: IF OZF_DEBUG_LOW_ON THEN
2939: ozf_utility_PVT.debug_message('No order line to be processed');
2940: END IF;
2941: END IF;
2942: END IF; -- END if for order_NUMBER, bill_to cust not NULL
2943: << END_LOOP >>
2944: NULL;
2945: END LOOP;
2946:
2947: --13-DEC-2010 muthsubr - TPA Parallel Execution ER - 9614703
2948: ozf_utility_pvt.write_conc_log('p_resale_batch_id: ' || p_resale_batch_id);
2949: ozf_utility_pvt.write_conc_log('l_ozf_funds_new_tbl.COUNT: ' || l_ozf_funds_new_tbl.COUNT);
2950: ozf_utility_pvt.write_conc_log('l_ozf_act_budgets_tbl.COUNT: ' || l_ozf_act_budgets_tbl.COUNT);
2951: IF l_ozf_funds_new_tbl.COUNT > 0 THEN
2952: OZF_UTILITY_PVT.UPDATE_OZF_FUNDS_ALL_B(p_resale_batch_id, x_return_status, x_fund_update_status, l_ozf_funds_new_tbl, 'TP_ACCRUAL');
2945: END LOOP;
2946:
2947: --13-DEC-2010 muthsubr - TPA Parallel Execution ER - 9614703
2948: ozf_utility_pvt.write_conc_log('p_resale_batch_id: ' || p_resale_batch_id);
2949: ozf_utility_pvt.write_conc_log('l_ozf_funds_new_tbl.COUNT: ' || l_ozf_funds_new_tbl.COUNT);
2950: ozf_utility_pvt.write_conc_log('l_ozf_act_budgets_tbl.COUNT: ' || l_ozf_act_budgets_tbl.COUNT);
2951: IF l_ozf_funds_new_tbl.COUNT > 0 THEN
2952: OZF_UTILITY_PVT.UPDATE_OZF_FUNDS_ALL_B(p_resale_batch_id, x_return_status, x_fund_update_status, l_ozf_funds_new_tbl, 'TP_ACCRUAL');
2953: IF x_return_status = FND_API.g_ret_sts_error THEN
2946:
2947: --13-DEC-2010 muthsubr - TPA Parallel Execution ER - 9614703
2948: ozf_utility_pvt.write_conc_log('p_resale_batch_id: ' || p_resale_batch_id);
2949: ozf_utility_pvt.write_conc_log('l_ozf_funds_new_tbl.COUNT: ' || l_ozf_funds_new_tbl.COUNT);
2950: ozf_utility_pvt.write_conc_log('l_ozf_act_budgets_tbl.COUNT: ' || l_ozf_act_budgets_tbl.COUNT);
2951: IF l_ozf_funds_new_tbl.COUNT > 0 THEN
2952: OZF_UTILITY_PVT.UPDATE_OZF_FUNDS_ALL_B(p_resale_batch_id, x_return_status, x_fund_update_status, l_ozf_funds_new_tbl, 'TP_ACCRUAL');
2953: IF x_return_status = FND_API.g_ret_sts_error THEN
2954: RAISE FND_API.g_exc_error;
2948: ozf_utility_pvt.write_conc_log('p_resale_batch_id: ' || p_resale_batch_id);
2949: ozf_utility_pvt.write_conc_log('l_ozf_funds_new_tbl.COUNT: ' || l_ozf_funds_new_tbl.COUNT);
2950: ozf_utility_pvt.write_conc_log('l_ozf_act_budgets_tbl.COUNT: ' || l_ozf_act_budgets_tbl.COUNT);
2951: IF l_ozf_funds_new_tbl.COUNT > 0 THEN
2952: OZF_UTILITY_PVT.UPDATE_OZF_FUNDS_ALL_B(p_resale_batch_id, x_return_status, x_fund_update_status, l_ozf_funds_new_tbl, 'TP_ACCRUAL');
2953: IF x_return_status = FND_API.g_ret_sts_error THEN
2954: RAISE FND_API.g_exc_error;
2955: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2956: RAISE FND_API.g_exc_unexpected_error;
2957: END IF;
2958: END IF;
2959:
2960: IF l_ozf_act_budgets_tbl.COUNT > 0 THEN
2961: OZF_UTILITY_PVT.UPDATE_OZF_ACT_BUDGETS(p_resale_batch_id, x_return_status, x_budget_update_status, l_ozf_act_budgets_tbl, 'TP_ACCRUAL');
2962: IF x_return_status = FND_API.g_ret_sts_error THEN
2963: RAISE FND_API.g_exc_error;
2964: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2965: RAISE FND_API.g_exc_unexpected_error;
2971: UPDATE ozf_resale_batches_all
2972: SET status_code = 'PENDING_ACCRUALS'
2973: WHERE resale_batch_id = p_resale_batch_id;
2974:
2975: ozf_utility_pvt.write_conc_log('Updated batch status to Pending Accruals - p_resale_batch_id: ' || p_resale_batch_id);
2976:
2977: IF OZF_DEBUG_LOW_ON THEN
2978: OZF_UTILITY_PVT.debug_message('x_fund_update_status: ' || x_fund_update_status);
2979: OZF_UTILITY_PVT.debug_message('x_budget_update_status: ' || x_budget_update_status);
2974:
2975: ozf_utility_pvt.write_conc_log('Updated batch status to Pending Accruals - p_resale_batch_id: ' || p_resale_batch_id);
2976:
2977: IF OZF_DEBUG_LOW_ON THEN
2978: OZF_UTILITY_PVT.debug_message('x_fund_update_status: ' || x_fund_update_status);
2979: OZF_UTILITY_PVT.debug_message('x_budget_update_status: ' || x_budget_update_status);
2980: OZF_UTILITY_PVT.debug_message('Updated batch status to Pending Accruals');
2981: END IF;
2982: END IF;
2975: ozf_utility_pvt.write_conc_log('Updated batch status to Pending Accruals - p_resale_batch_id: ' || p_resale_batch_id);
2976:
2977: IF OZF_DEBUG_LOW_ON THEN
2978: OZF_UTILITY_PVT.debug_message('x_fund_update_status: ' || x_fund_update_status);
2979: OZF_UTILITY_PVT.debug_message('x_budget_update_status: ' || x_budget_update_status);
2980: OZF_UTILITY_PVT.debug_message('Updated batch status to Pending Accruals');
2981: END IF;
2982: END IF;
2983:
2976:
2977: IF OZF_DEBUG_LOW_ON THEN
2978: OZF_UTILITY_PVT.debug_message('x_fund_update_status: ' || x_fund_update_status);
2979: OZF_UTILITY_PVT.debug_message('x_budget_update_status: ' || x_budget_update_status);
2980: OZF_UTILITY_PVT.debug_message('Updated batch status to Pending Accruals');
2981: END IF;
2982: END IF;
2983:
2984: ELSE
2982: END IF;
2983:
2984: ELSE
2985: IF OZF_DEBUG_LOW_ON THEN
2986: ozf_utility_PVT.debug_message('/*--- No order to process ---*/');
2987: END IF;
2988: END IF;
2989: -- Debug Message
2990:
2991: x_return_status := l_return_status;
2992:
2993:
2994: IF OZF_DEBUG_HIGH_ON THEN
2995: OZF_UTILITY_PVT.debug_message(l_full_name||': End'|| x_return_status);
2996: END IF;
2997: --Standard call to get message count and if count=1, get the message
2998: FND_MSG_PUB.Count_And_Get (
2999: p_encoded => FND_API.G_FALSE,
3081: END IF;
3082:
3083: -- Debug Message
3084: IF OZF_DEBUG_LOW_ON THEN
3085: OZF_UTILITY_PVT.debug_message(l_full_name||': Start');
3086: END IF;
3087:
3088: -- Initialize API return status to sucess
3089: x_return_status := FND_API.G_RET_STS_SUCCESS;
3143: END IF;
3144:
3145: -- Debug Message
3146: IF OZF_DEBUG_HIGH_ON THEN
3147: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': End');
3148: END IF;
3149: --Standard call to get message count and if count=1, get the message
3150: FND_MSG_PUB.Count_And_Get (
3151: p_encoded => FND_API.G_FALSE,
3288: END IF;
3289:
3290: -- Debug Message
3291: IF OZF_DEBUG_HIGH_ON THEN
3292: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': Start');
3293: END IF;
3294:
3295: -- Initialize API return status to sucess
3296: x_return_status := FND_API.G_RET_STS_SUCCESS;
3295: -- Initialize API return status to sucess
3296: x_return_status := FND_API.G_RET_STS_SUCCESS;
3297:
3298: IF OZF_DEBUG_LOW_ON THEN
3299: ozf_utility_PVT.debug_message('in mv id cust' );
3300: END IF;
3301: -- get org_id
3302: -- Start: bug # 5997978 fixed
3303: --OPEN org_id_csr;
3307: l_org_id := MO_GLOBAL.get_valid_org(l_batch_org_id);
3308: CLOSE org_id_csr;
3309:
3310: IF l_org_id is NULL THEN
3311: ozf_utility_pvt.error_message('OZF_CLAIM_ORG_ID_MISSING');
3312: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3313: END IF;
3314:
3315: --j:=1;
3329: IF l_order_num_tbl.EXISTS(1) THEN
3330: FOR i in 1..l_order_num_tbl.LAST
3331: LOOP
3332: IF OZF_DEBUG_LOW_ON THEN
3333: ozf_utility_PVT.debug_message('mv indirect customer with order NUMBER, cust name:' || l_order_num_tbl(i).order_NUMBER|| ','||l_order_num_tbl(i).bill_to_cust_account_id);
3334: END IF;
3335:
3336: j:=1;
3337: OPEN interface_rec_csr( l_order_num_tbl(i).order_NUMBER,
3408: AND status_code = OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_OPEN
3409: AND resale_batch_id = p_resale_batch_id;
3410: EXCEPTION
3411: WHEN OTHERS THEN
3412: ozf_utility_pvt.error_message('OZF_UPD_RESALE_INT_WRG');
3413: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3414: END;
3415: END IF;
3416: -- Debug Message
3414: END;
3415: END IF;
3416: -- Debug Message
3417: IF OZF_DEBUG_HIGH_ON THEN
3418: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': End');
3419: END IF;
3420:
3421: --Standard call to get message count and if count=1, get the message
3422: FND_MSG_PUB.Count_And_Get (
3639: l_default_price_list_id NUMBER;
3640: -- bug 6317120
3641: l_org_id NUMBER;
3642: -- end bug 6317120
3643: l_ozf_act_budgets_tbl OZF_UTILITY_PVT.ozf_act_budgets_table;
3644: l_ozf_funds_new_tbl OZF_UTILITY_PVT.ozf_funds_table;
3645: l_ozf_draft_accrual_tbl ozf_draft_accrual_tbl_type;
3646: x_fund_update_status VARCHAR2(30) := OZF_RESALE_COMMON_PVT.G_BATCH_CLOSED;
3647: x_budget_update_status VARCHAR2(30) := OZF_RESALE_COMMON_PVT.G_BATCH_CLOSED;
3640: -- bug 6317120
3641: l_org_id NUMBER;
3642: -- end bug 6317120
3643: l_ozf_act_budgets_tbl OZF_UTILITY_PVT.ozf_act_budgets_table;
3644: l_ozf_funds_new_tbl OZF_UTILITY_PVT.ozf_funds_table;
3645: l_ozf_draft_accrual_tbl ozf_draft_accrual_tbl_type;
3646: x_fund_update_status VARCHAR2(30) := OZF_RESALE_COMMON_PVT.G_BATCH_CLOSED;
3647: x_budget_update_status VARCHAR2(30) := OZF_RESALE_COMMON_PVT.G_BATCH_CLOSED;
3648: l_ozf_draft_accrual_rec ozf_draft_accrual_rec_type;
3665: END IF;
3666:
3667: -- Debug Message
3668: IF OZF_DEBUG_HIGH_ON THEN
3669: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': start');
3670: END IF;
3671:
3672: -- Initialize API return status to sucess
3673: x_return_status := FND_API.G_RET_STS_SUCCESS;
3687: ,x_msg_data => l_msg_data
3688: ,x_msg_count => l_msg_count
3689: );
3690: IF l_return_status <> FND_API.g_ret_sts_SUCCESS THEN
3691: ozf_utility_pvt.error_message('OZF_PRE_PROCESS_ERR');
3692: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3693: END IF;
3694:
3695: -- [BUG 4233341 FIXING]: add output file
3786: ,x_msg_data => l_msg_data
3787: ,x_msg_count => l_msg_count
3788: );
3789: IF l_return_status <> FND_API.g_ret_sts_SUCCESS THEN
3790: ozf_utility_pvt.error_message('OZF_MV_ID_CUST_ORDER_ERR');
3791: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3792: END IF;
3793: END IF;
3794: -- Get profile value for price list
3813: END IF;
3814: END IF;
3815:
3816: IF OZF_DEBUG_LOW_ON THEN
3817: ozf_utility_PVT.debug_message('Event:' ||l_control_rec.pricing_event );
3818: END IF;
3819:
3820: l_control_rec.calculate_flag := 'Y';
3821: l_control_rec.simulation_flag := 'Y';
3859: l_price_flag := 'Y';
3860: END IF;
3861:
3862: IF OZF_DEBUG_LOW_ON THEN
3863: ozf_utility_PVT.debug_message('Price flag:' ||l_price_flag );
3864: ozf_utility_PVT.debug_message('List Price Override Flag:' ||l_list_price_override_flag);
3865: END IF;
3866:
3867: FOR i IN 1..l_order_num_tbl.LAST LOOP
3860: END IF;
3861:
3862: IF OZF_DEBUG_LOW_ON THEN
3863: ozf_utility_PVT.debug_message('Price flag:' ||l_price_flag );
3864: ozf_utility_PVT.debug_message('List Price Override Flag:' ||l_list_price_override_flag);
3865: END IF;
3866:
3867: FOR i IN 1..l_order_num_tbl.LAST LOOP
3868: IF l_order_num_tbl(i).order_number IS NOT NULL AND
3881:
3882: QP_Price_Request_Context.Set_Request_Id;
3883:
3884: IF OZF_DEBUG_LOW_ON THEN
3885: ozf_utility_PVT.debug_message(l_api_name||'>> order_number = '||l_order_num_tbl(i).order_number||' (+)');
3886: ozf_utility_PVT.debug_message(l_api_name||'>> bill_to_cust_account_id = '||l_order_num_tbl(i).bill_to_cust_account_id);
3887: END IF;
3888:
3889: --k:=1;
3882: QP_Price_Request_Context.Set_Request_Id;
3883:
3884: IF OZF_DEBUG_LOW_ON THEN
3885: ozf_utility_PVT.debug_message(l_api_name||'>> order_number = '||l_order_num_tbl(i).order_number||' (+)');
3886: ozf_utility_PVT.debug_message(l_api_name||'>> bill_to_cust_account_id = '||l_order_num_tbl(i).bill_to_cust_account_id);
3887: END IF;
3888:
3889: --k:=1;
3890: OPEN order_set_csr( l_order_num_tbl(i).order_number
3917: CLOSE order_set_csr;
3918: */
3919:
3920: IF OZF_DEBUG_LOW_ON THEN
3921: ozf_utility_PVT.debug_message(l_api_name||'>> order count = '||l_order_set_tbl.COUNT);
3922: END IF;
3923:
3924: FOR j IN l_order_set_tbl.FIRST .. l_order_set_tbl.LAST
3925: LOOP
3929: WHERE resale_id = l_order_set_tbl(j).resale_line_int_id
3930: AND resale_id_type = 'IFACE';
3931: EXCEPTION
3932: WHEN OTHERS THEN
3933: ozf_utility_pvt.error_message('OZF_DEL_RESALE_LOG_WRG');
3934: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3935: END;
3936:
3937: IF OZF_DEBUG_LOW_ON THEN
3934: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3935: END;
3936:
3937: IF OZF_DEBUG_LOW_ON THEN
3938: ozf_utility_PVT.debug_message(l_api_name||'>> building order line for inteface id: '||l_order_set_tbl(j).resale_line_int_id);
3939: END IF;
3940:
3941: -- INSERT INTO l_line_tbl
3942: l_line_tbl(j).line_index := j;
4076: END LOOP; ---FOR i IN l_order_set_tbl.FIRST .. l_order_set_tbl.LAST
4077:
4078:
4079: IF OZF_DEBUG_LOW_ON THEN
4080: ozf_utility_PVT.debug_message(l_api_name||'>> building order header');
4081: END IF;
4082:
4083: -- build summary line
4084: k := l_order_set_tbl.LAST + 1;
4142: OZF_ORDER_PRICE_PVT.G_HEADER_REC.request_date := l_order_set_tbl(1).date_ordered;
4143: OZF_ORDER_PRICE_PVT.G_HEADER_REC.pricing_date := l_order_set_tbl(1).date_ordered;
4144:
4145: IF OZF_DEBUG_LOW_ON THEN
4146: ozf_utility_PVT.debug_message(l_api_name||'>> Calling Get_Order_');
4147: END IF;
4148:
4149: OZF_ORDER_PRICE_PVT.Get_Order_Price (
4150: p_api_version => 1.0
4159: ,x_ldets_tbl => l_ldets_tbl
4160: ,x_related_lines_tbl => l_related_lines_tbl
4161: );
4162: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4163: ozf_utility_pvt.error_message('OZF_GET_ORDER_PRIC_ERR');
4164:
4165: BEGIN
4166: UPDATE ozf_resale_lines_int
4167: SET status_code = 'DISPUTED'
4171: AND date_ordered = l_order_num_tbl(i).date_ordered
4172: AND resale_batch_id = p_resale_batch_id;
4173: EXCEPTION
4174: WHEN OTHERS THEN
4175: ozf_utility_pvt.error_message('OZF_UPD_RESALE_INT_WRG');
4176: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4177: END;
4178:
4179: FOR p in 1..l_order_set_tbl.LAST
4200: px_org_id => l_org_id
4201: );
4202: EXCEPTION
4203: WHEN OTHERS THEN
4204: ozf_utility_pvt.error_message('OZF_INS_RESALE_LOG_WRG');
4205: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4206: END;
4207: END LOOP;
4208:
4206: END;
4207: END LOOP;
4208:
4209: IF OZF_DEBUG_LOW_ON THEN
4210: ozf_utility_PVT.debug_message(l_api_name||'>> Get_Order_Price Failed!');
4211: END IF;
4212:
4213: GOTO END_LOOP;
4214: END IF;
4261: px_org_id => l_org_id
4262: );
4263: EXCEPTION
4264: WHEN OTHERS THEN
4265: ozf_utility_pvt.error_message('OZF_INS_RESALE_LOG_WRG');
4266: END;
4267: END LOOP;
4268:
4269: BEGIN
4275: AND date_ordered = l_order_num_tbl(i).date_ordered
4276: AND resale_batch_id = p_resale_batch_id;
4277: EXCEPTION
4278: WHEN OTHERS THEN
4279: ozf_utility_pvt.error_message('OZF_UPD_RESALE_INT_WRG');
4280: END;
4281:
4282: GOTO END_LOOP;
4283: END IF;
4302:
4303:
4304:
4305: IF OZF_DEBUG_LOW_ON THEN
4306: ozf_utility_PVT.debug_message(l_api_name||'>>- Success and Committed: Processing order for order number:'||l_order_num_tbl(i).order_number||'(-)');
4307: ozf_utility_PVT.debug_message(l_api_name||'>>- and customer:'||l_order_num_tbl(i).bill_to_cust_account_id||'(-)');
4308: END IF;
4309:
4310: -- commit the data created by processing these G_BULK_LIMIT (default 500) lines
4303:
4304:
4305: IF OZF_DEBUG_LOW_ON THEN
4306: ozf_utility_PVT.debug_message(l_api_name||'>>- Success and Committed: Processing order for order number:'||l_order_num_tbl(i).order_number||'(-)');
4307: ozf_utility_PVT.debug_message(l_api_name||'>>- and customer:'||l_order_num_tbl(i).bill_to_cust_account_id||'(-)');
4308: END IF;
4309:
4310: -- commit the data created by processing these G_BULK_LIMIT (default 500) lines
4311: IF G_ALLOW_INTER_COMMIT = 'Y' THEN -- Fix for Bug 14579860
4453: -- Bug 14194884 - TPA In Draft Mode ER : TPA Parallel execution only to be executed for FINAL mode
4454: IF l_run_mode = 'FINAL' THEN
4455: --13-DEC-2010 muthsubr - TPA Parallel Execution ER - 9614703
4456: IF l_ozf_funds_new_tbl.COUNT > 0 THEN
4457: OZF_UTILITY_PVT.UPDATE_OZF_FUNDS_ALL_B(p_resale_batch_id, x_return_status, x_fund_update_status, l_ozf_funds_new_tbl, 'TP_ACCRUAL');
4458: IF x_return_status = FND_API.g_ret_sts_error THEN
4459: RAISE FND_API.g_exc_error;
4460: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4461: RAISE FND_API.g_exc_unexpected_error;
4462: END IF;
4463: END IF;
4464:
4465: IF l_ozf_act_budgets_tbl.COUNT > 0 THEN
4466: OZF_UTILITY_PVT.UPDATE_OZF_ACT_BUDGETS(p_resale_batch_id, x_return_status, x_budget_update_status, l_ozf_act_budgets_tbl, 'TP_ACCRUAL');
4467: IF x_return_status = FND_API.g_ret_sts_error THEN
4468: RAISE FND_API.g_exc_error;
4469: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4470: RAISE FND_API.g_exc_unexpected_error;
4476:
4477: l_batch_status := 'PENDING_ACCRUALS';
4478:
4479: IF OZF_DEBUG_LOW_ON THEN
4480: OZF_UTILITY_PVT.debug_message('x_fund_update_status: ' || x_fund_update_status);
4481: OZF_UTILITY_PVT.debug_message('x_budget_update_status: ' || x_budget_update_status);
4482: OZF_UTILITY_PVT.debug_message('Updated batch status to Pending Accruals');
4483: END IF;
4484: ELSE
4477: l_batch_status := 'PENDING_ACCRUALS';
4478:
4479: IF OZF_DEBUG_LOW_ON THEN
4480: OZF_UTILITY_PVT.debug_message('x_fund_update_status: ' || x_fund_update_status);
4481: OZF_UTILITY_PVT.debug_message('x_budget_update_status: ' || x_budget_update_status);
4482: OZF_UTILITY_PVT.debug_message('Updated batch status to Pending Accruals');
4483: END IF;
4484: ELSE
4485: l_batch_status := OZF_RESALE_COMMON_PVT.G_BATCH_CLOSED;
4478:
4479: IF OZF_DEBUG_LOW_ON THEN
4480: OZF_UTILITY_PVT.debug_message('x_fund_update_status: ' || x_fund_update_status);
4481: OZF_UTILITY_PVT.debug_message('x_budget_update_status: ' || x_budget_update_status);
4482: OZF_UTILITY_PVT.debug_message('Updated batch status to Pending Accruals');
4483: END IF;
4484: ELSE
4485: l_batch_status := OZF_RESALE_COMMON_PVT.G_BATCH_CLOSED;
4486: END IF;
4487: END IF; -- IF l_run_mode = 'FINAL' THEN
4488: ELSE -- IF l_order_num_tbl.EXISTS(1) THEN
4489:
4490: IF OZF_DEBUG_LOW_ON THEN
4491: ozf_utility_PVT.debug_message(l_api_name||'>> No Order to process <<');
4492: END IF;
4493: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' There is no valid order to process.');
4494:
4495: END IF; -- IF l_order_num_tbl.EXISTS(1) THEN
4575: END IF; -- Bug 14194884 - TPA In Draft Mode ER
4576:
4577: -- Debug Message
4578: IF OZF_DEBUG_HIGH_ON THEN
4579: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': end');
4580: END IF;
4581: --Standard call to get message count and if count=1, get the message
4582: FND_MSG_PUB.Count_And_Get (
4583: p_encoded => FND_API.G_FALSE,
4586: );
4587:
4588: EXCEPTION
4589: WHEN FND_API.G_EXC_ERROR THEN
4590: ozf_utility_pvt.write_conc_log('ERROR in Process_Order');
4591: x_return_status := FND_API.G_RET_STS_ERROR;
4592: -- Standard call to get message count and if count=1, get the message
4593: FND_MSG_PUB.Count_And_Get (
4594: p_encoded => FND_API.G_FALSE,
4595: p_count => x_msg_count,
4596: p_data => x_msg_data
4597: );
4598: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4599: ozf_utility_pvt.write_conc_log('UNEXP ERROR in Process_Order');
4600: --ROLLBACK TO Process_Order;
4601: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4602:
4603: -- Standard call to get message count and if count=1, get the message
4606: p_count => x_msg_count,
4607: p_data => x_msg_data
4608: );
4609: WHEN OTHERS THEN
4610: ozf_utility_pvt.write_conc_log('OTHER ERROR in Process_Order ' || SQLERRM);
4611: --ROLLBACK TO Process_Order;
4612: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4613:
4614: -- Standard call to get message count and if count=1, get the message
4838: END IF;
4839:
4840: -- Debug Message
4841: IF OZF_DEBUG_HIGH_ON THEN
4842: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': Start');
4843: END IF;
4844:
4845: -- Initialize API return status to sucess
4846: x_return_status := FND_API.G_RET_STS_SUCCESS;
4847:
4848:
4849: /*
4850: IF p_data_source_code is NULL THEN
4851: ozf_utility_pvt.error_message('OZF_RESALE_TP_SOURCE_NULL');
4852: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4853: END IF;
4854: */
4855:
4858: p_data_source_code = 'ALL' THEN
4859:
4860: IF p_data_source_code is null THEN
4861: IF OZF_DEBUG_LOW_ON THEN
4862: ozf_utility_PVT.debug_message('source code is null, id:' || FND_GLOBAL.CONC_REQUEST_ID );
4863: END IF;
4864: ELSE
4865: IF OZF_DEBUG_LOW_ON THEN
4866: ozf_utility_PVT.debug_message('source code is '|| p_data_source_code||', id:' || FND_GLOBAL.CONC_REQUEST_ID );
4862: ozf_utility_PVT.debug_message('source code is null, id:' || FND_GLOBAL.CONC_REQUEST_ID );
4863: END IF;
4864: ELSE
4865: IF OZF_DEBUG_LOW_ON THEN
4866: ozf_utility_PVT.debug_message('source code is '|| p_data_source_code||', id:' || FND_GLOBAL.CONC_REQUEST_ID );
4867: END IF;
4868: END IF;
4869:
4870: UPDATE ozf_resale_lines_int_all
4878: AND org_id = l_org_id; -- nepanda : Fix for bug # 15900683
4879:
4880: ELSE
4881: IF OZF_DEBUG_LOW_ON THEN
4882: ozf_utility_PVT.debug_message('source code is '|| p_data_source_code||', id:' || FND_GLOBAL.CONC_REQUEST_ID );
4883: END IF;
4884:
4885: UPDATE ozf_resale_lines_int_all
4886: SET request_id = G_CONC_REQUEST_ID
5661: -- TPA In Draft Mode ER : end
5662:
5663: -- Debug Message
5664: IF OZF_DEBUG_HIGH_ON THEN
5665: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': End');
5666: END IF;
5667: --Standard call to get message count and if count=1, get the message
5668: FND_MSG_PUB.Count_And_Get (
5669: p_encoded => FND_API.G_FALSE,
5672: );
5673: x_return_status := l_return_status;
5674: EXCEPTION
5675: WHEN FND_API.G_EXC_ERROR THEN
5676: ozf_utility_pvt.write_conc_log('ERROR in Process_TP_ACCRUAL: '|| SQLERRM);
5677: x_return_status := FND_API.G_RET_STS_ERROR;
5678: -- Standard call to get message count and if count=1, get the message
5679: FND_MSG_PUB.Count_And_Get (
5680: p_encoded => FND_API.G_FALSE,
5681: p_count => x_msg_count,
5682: p_data => x_msg_data
5683: );
5684: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5685: ozf_utility_pvt.write_conc_log('UNEXPECTED ERROR in Process_TP_ACCRUAL: '|| SQLERRM);
5686: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5687:
5688: -- Standard call to get message count and if count=1, get the message
5689: FND_MSG_PUB.Count_And_Get (
5691: p_count => x_msg_count,
5692: p_data => x_msg_data
5693: );
5694: WHEN OTHERS THEN
5695: ozf_utility_pvt.write_conc_log('OTHER ERROR in Process_TP_ACCRUAL: '|| SQLERRM);
5696: --ROLLBACK TO Process_TP_ACCRUAL;
5697: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5698:
5699: -- Standard call to get message count and if count=1, get the message
5748: FROM hr_operating_units ou
5749: WHERE mo_global.check_access(ou.organization_id) = 'Y';
5750:
5751: m NUMBER := 0;
5752: l_org_id OZF_UTILITY_PVT.operating_units_tbl;
5753: BEGIN
5754:
5755: SAVEPOINT START_TP_ACCRUAL;
5756: RETCODE := 0;
5754:
5755: SAVEPOINT START_TP_ACCRUAL;
5756: RETCODE := 0;
5757: IF OZF_DEBUG_HIGH_ON THEN
5758: OZF_UTILITY_PVT.write_conc_log('p_run_mode => '|| p_run_mode);
5759: END IF;
5760:
5761: l_run_mode := NVL(p_run_mode, 'FINAL'); -- Bug 14194884 - TPA In Draft Mode ER : Defaulting Draft Run Mode to FINAL
5762:
5768:
5769:
5770: -- Debug Message
5771: IF OZF_DEBUG_HIGH_ON THEN
5772: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': Start');
5773: END IF;
5774:
5775: -- nepanda : Fix for bug # 15900683 : start
5776: IF p_org_id IS NULL THEN
5806: ,x_msg_data => l_msg_data
5807: ,x_msg_count => l_msg_count
5808: );
5809: IF l_return_status = FND_API.g_ret_sts_error THEN
5810: ozf_utility_pvt.error_message('OZF_PROC_RESALE_ERR');
5811: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Error occurred for Organization id ---' || to_char(l_org_id(m)));
5812: --RAISE FND_API.G_EXC_ERROR;
5813: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5814: ozf_utility_pvt.error_message('OZF_PROC_RESALE_ERR');
5810: ozf_utility_pvt.error_message('OZF_PROC_RESALE_ERR');
5811: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Error occurred for Organization id ---' || to_char(l_org_id(m)));
5812: --RAISE FND_API.G_EXC_ERROR;
5813: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5814: ozf_utility_pvt.error_message('OZF_PROC_RESALE_ERR');
5815: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Unexpected Error occurred for Organization id ---' || to_char(l_org_id(m)));
5816: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5817: END IF;
5818: END;
5888: END IF;
5889:
5890: -- Debug Message
5891: IF OZF_DEBUG_HIGH_ON THEN
5892: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': End');
5893: END IF;
5894:
5895: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*------------------------------------------------------------------------------------------------------*');
5896: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Ends On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
5896: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Ends On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
5897: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*======================================================================================================*');
5898:
5899: -- Write all messages to a log
5900: OZF_UTILITY_PVT.Write_Conc_Log;
5901: EXCEPTION
5902: WHEN FND_API.g_exc_error THEN
5903: ozf_utility_pvt.write_conc_log('ERROR in Start_TP_ACCRUAL: '|| SQLERRM);
5904: OZF_UTILITY_PVT.Write_Conc_Log;
5899: -- Write all messages to a log
5900: OZF_UTILITY_PVT.Write_Conc_Log;
5901: EXCEPTION
5902: WHEN FND_API.g_exc_error THEN
5903: ozf_utility_pvt.write_conc_log('ERROR in Start_TP_ACCRUAL: '|| SQLERRM);
5904: OZF_UTILITY_PVT.Write_Conc_Log;
5905: ERRBUF := l_msg_data;
5906:
5907: WHEN FND_API.g_exc_unexpected_error THEN
5900: OZF_UTILITY_PVT.Write_Conc_Log;
5901: EXCEPTION
5902: WHEN FND_API.g_exc_error THEN
5903: ozf_utility_pvt.write_conc_log('ERROR in Start_TP_ACCRUAL: '|| SQLERRM);
5904: OZF_UTILITY_PVT.Write_Conc_Log;
5905: ERRBUF := l_msg_data;
5906:
5907: WHEN FND_API.g_exc_unexpected_error THEN
5908: ozf_utility_pvt.write_conc_log('UNEXP ERROR in Start_TP_ACCRUAL: '|| SQLERRM);
5904: OZF_UTILITY_PVT.Write_Conc_Log;
5905: ERRBUF := l_msg_data;
5906:
5907: WHEN FND_API.g_exc_unexpected_error THEN
5908: ozf_utility_pvt.write_conc_log('UNEXP ERROR in Start_TP_ACCRUAL: '|| SQLERRM);
5909: OZF_UTILITY_PVT.Write_Conc_Log;
5910: ERRBUF := l_msg_data;
5911: RETCODE := 2;
5912:
5905: ERRBUF := l_msg_data;
5906:
5907: WHEN FND_API.g_exc_unexpected_error THEN
5908: ozf_utility_pvt.write_conc_log('UNEXP ERROR in Start_TP_ACCRUAL: '|| SQLERRM);
5909: OZF_UTILITY_PVT.Write_Conc_Log;
5910: ERRBUF := l_msg_data;
5911: RETCODE := 2;
5912:
5913: WHEN OTHERS THEN
5910: ERRBUF := l_msg_data;
5911: RETCODE := 2;
5912:
5913: WHEN OTHERS THEN
5914: ozf_utility_pvt.write_conc_log('OTHERS ERROR in Start_TP_ACCRUAL: '|| SQLERRM);
5915: --ROLLBACK TO START_TP_ACCRUAL;
5916: OZF_UTILITY_PVT.Write_Conc_Log;
5917: ERRBUF := l_msg_data;
5918: RETCODE := 2;
5912:
5913: WHEN OTHERS THEN
5914: ozf_utility_pvt.write_conc_log('OTHERS ERROR in Start_TP_ACCRUAL: '|| SQLERRM);
5915: --ROLLBACK TO START_TP_ACCRUAL;
5916: OZF_UTILITY_PVT.Write_Conc_Log;
5917: ERRBUF := l_msg_data;
5918: RETCODE := 2;
5919: END Start_TP_ACCRUAL;
5920: