[Home] [Help]
39: BEGIN
40: x_return_status := FND_API.G_RET_STS_SUCCESS;
41:
42: IF OZF_DEBUG_HIGH_ON THEN
43: ozf_utility_PVT.debug_message('in build order header');
44: END IF;
45: -- Mapping, default and validation rules here
46: -- Since we can not use the OM defaulting rule. We just default order type based on the cust account id
47: /*
120: BEGIN
121: x_return_status := FND_API.G_RET_STS_SUCCESS;
122:
123: IF OZF_DEBUG_HIGH_ON THEN
124: ozf_utility_PVT.debug_message('in build order line');
125: END IF;
126: -- Mapping, default and validation rules here
127: /*
128: OZF_CHARGEBACK_ATTRMAP_PUB.Create_Global_line(
298: -- Initialize API return status to sucess
299: x_return_status := FND_API.G_RET_STS_SUCCESS;
300:
301: IF OZF_DEBUG_HIGH_ON THEN
302: ozf_utility_PVT.debug_message('in get_order_price' );
303: END IF;
304:
305: -- Default control record if necessary
306: IF l_control_rec.pricing_event is null THEN
338: -- Bug 4665626 (-)
339:
340: -- Construct the order
341: For I in xp_line_tbl.FIRST..xp_line_tbl.count LOOP
342: ozf_utility_pvt.write_conc_log('np I = '|| I );
343: ozf_utility_pvt.write_conc_log('np xp_line_tbl(I).line_type_code = '|| xp_line_tbl(I).line_type_code );
344: IF xp_line_tbl(I).line_type_code = G_HDR_TYPE OR
345: xp_line_tbl(I).line_type_code = G_LINE_TYPE THEN
346:
339:
340: -- Construct the order
341: For I in xp_line_tbl.FIRST..xp_line_tbl.count LOOP
342: ozf_utility_pvt.write_conc_log('np I = '|| I );
343: ozf_utility_pvt.write_conc_log('np xp_line_tbl(I).line_type_code = '|| xp_line_tbl(I).line_type_code );
344: IF xp_line_tbl(I).line_type_code = G_HDR_TYPE OR
345: xp_line_tbl(I).line_type_code = G_LINE_TYPE THEN
346:
347: -- Assign request infromation to the insert structure.
344: IF xp_line_tbl(I).line_type_code = G_HDR_TYPE OR
345: xp_line_tbl(I).line_type_code = G_LINE_TYPE THEN
346:
347: -- Assign request infromation to the insert structure.
348: ozf_utility_pvt.write_conc_log('np xp_line_tbl(I).line_index = '|| xp_line_tbl(I).line_index );
349: IF xp_line_tbl(I).line_index is NULL THEN
350: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
351: FND_MESSAGE.set_name('OZF', 'OZF_ORD_LN_INDX_MISS');
352: FND_MSG_PUB.add;
460: */
461:
462: IF xp_line_tbl(I).line_type_code = G_HDR_TYPE THEN
463: IF OZF_DEBUG_LOW_ON THEN
464: ozf_utility_PVT.debug_message('before build header' );
465: END IF;
466: oe_order_pub.g_hdr := g_header_rec;
467: build_order_header( p_hdr => xp_line_tbl(I),
468: x_return_status => l_return_status);
477: p_line_index => xp_line_tbl(I).line_index,
478: p_pricing_type_code =>'H'
479: );
480: IF OZF_DEBUG_LOW_ON THEN
481: ozf_utility_PVT.debug_message('after build header' );
482: END IF;
483: ELSE
484: -- It has to be line
485: IF OZF_DEBUG_LOW_ON THEN
482: END IF;
483: ELSE
484: -- It has to be line
485: IF OZF_DEBUG_LOW_ON THEN
486: ozf_utility_PVT.debug_message('before build line' );
487: END IF;
488: oe_order_pub.g_hdr := g_header_rec; -- Fix for Bug 12760472
489: oe_order_pub.g_line := g_line_rec_tbl(I);
490: build_order_line( p_line => xp_line_tbl(I),
499: p_line_index => xp_line_tbl(I).line_index,
500: p_pricing_type_code =>'L'
501: );
502: IF OZF_DEBUG_LOW_ON THEN
503: ozf_utility_PVT.debug_message('after build line' );
504: END IF;
505: END IF;
506: ELSE
507: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
509: FND_MSG_PUB.add;
510: END IF;
511: RAISE FND_API.G_EXC_ERROR;
512: END IF;
513: ozf_utility_pvt.write_conc_log('kd: xp_line_tbl(I).chargeback_int_id- ' || xp_line_tbl(I).chargeback_int_id);
514: End LOOP;
515:
516: IF OZF_DEBUG_LOW_ON THEN
517: ozf_utility_PVT.debug_message('Before insert_lines2' );
513: ozf_utility_pvt.write_conc_log('kd: xp_line_tbl(I).chargeback_int_id- ' || xp_line_tbl(I).chargeback_int_id);
514: End LOOP;
515:
516: IF OZF_DEBUG_LOW_ON THEN
517: ozf_utility_PVT.debug_message('Before insert_lines2' );
518: END IF;
519:
520: QP_PREQ_GRP.INSERT_LINES2
521: (p_LINE_INDEX => G_LINE_INDEX_TBL,
560: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
561: FND_MESSAGE.set_name('OZF', 'OZF_ORDER_INSERT_ERR');
562: FND_MSG_PUB.add;
563: IF OZF_DEBUG_LOW_ON THEN
564: ozf_utility_PVT.debug_message(l_price_return_msg);
565: END IF;
566: END IF;
567: RAISE FND_API.G_EXC_ERROR;
568: END IF;
566: END IF;
567: RAISE FND_API.G_EXC_ERROR;
568: END IF;
569: IF OZF_DEBUG_LOW_ON THEN
570: ozf_utility_PVT.debug_message('After insert lines2' );
571: END IF;
572:
573: ozf_utility_pvt.write_conc_log('kd: ordered_date- ' || OE_ORDER_PUB.G_HDR.ordered_date);
574:
569: IF OZF_DEBUG_LOW_ON THEN
570: ozf_utility_PVT.debug_message('After insert lines2' );
571: END IF;
572:
573: ozf_utility_pvt.write_conc_log('kd: ordered_date- ' || OE_ORDER_PUB.G_HDR.ordered_date);
574:
575: -- Call qp price engine
576: QP_PREQ_PUB.PRICE_REQUEST
577: (p_control_rec => l_control_rec,
579: x_return_status_text => l_msg_data);
580:
581: IF l_return_status = FND_API.g_ret_sts_error THEN
582: IF OZF_DEBUG_LOW_ON THEN
583: ozf_utility_PVT.debug_message('in error'||l_msg_data);
584: END IF;
585: RAISE FND_API.g_exc_error;
586: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
587: IF OZF_DEBUG_LOW_ON THEN
584: END IF;
585: RAISE FND_API.g_exc_error;
586: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
587: IF OZF_DEBUG_LOW_ON THEN
588: ozf_utility_PVT.debug_message('in un'||l_msg_data);
589: END IF;
590: RAISE FND_API.g_exc_unexpected_error;
591: END IF;
592: IF OZF_DEBUG_LOW_ON THEN
589: END IF;
590: RAISE FND_API.g_exc_unexpected_error;
591: END IF;
592: IF OZF_DEBUG_LOW_ON THEN
593: ozf_utility_PVT.debug_message('After price_request' );
594: END IF;
595: -- Populate the result from the temp tables.
596: -- We will be looking for adjusted_price and price adjustments
597: -- with automatic_flag := 'Y' and accrual_flag := 'Y' */
665: p_count => x_msg_count,
666: p_data => x_msg_data
667: );
668: IF OZF_DEBUG_HIGH_ON THEN
669: ozf_utility_PVT.debug_message('end of order price');
670: END IF;
671: EXCEPTION
672: WHEN FND_API.G_EXC_ERROR THEN
673: ROLLBACK TO Get_Order_Price_pvt ;