9:
10: G_PKG_NAME CONSTANT VARCHAR2(30) := 'OZF_ORDER_PRICE_PVT';
11: G_FILE_NAME CONSTANT VARCHAR2(30) := 'ozfvorpb.pls';
12:
13: OZF_DEBUG_HIGH_ON BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
14: OZF_DEBUG_LOW_ON BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low);
15: ---------------------------------------------------------------------
16: -- PROCEDURE
17: -- build_order_header
10: G_PKG_NAME CONSTANT VARCHAR2(30) := 'OZF_ORDER_PRICE_PVT';
11: G_FILE_NAME CONSTANT VARCHAR2(30) := 'ozfvorpb.pls';
12:
13: OZF_DEBUG_HIGH_ON BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
14: OZF_DEBUG_LOW_ON BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low);
15: ---------------------------------------------------------------------
16: -- PROCEDURE
17: -- build_order_header
18: --
283: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
284: END IF;
285:
286: -- Debug Message
287: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
288: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
289: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
290: FND_MSG_PUB.Add;
291: END IF;
286: -- Debug Message
287: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
288: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
289: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
290: FND_MSG_PUB.Add;
291: END IF;
292:
293: --Initialize message list if p_init_msg_list is TRUE.
294: IF FND_API.To_Boolean (p_init_msg_list) THEN
291: END IF;
292:
293: --Initialize message list if p_init_msg_list is TRUE.
294: IF FND_API.To_Boolean (p_init_msg_list) THEN
295: FND_MSG_PUB.initialize;
296: END IF;
297:
298: -- Initialize API return status to sucess
299: x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
353: END IF;
354: RAISE FND_API.G_EXC_ERROR;
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;
353: END IF;
354: RAISE FND_API.G_EXC_ERROR;
355: ELSE
356: G_LINE_INDEX_TBL(I):=xp_line_tbl(I).line_index;
356: G_LINE_INDEX_TBL(I):=xp_line_tbl(I).line_index;
357: END IF;
358:
359: IF xp_line_tbl(I).line_type_code is NULL THEN
360: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
361: FND_MESSAGE.set_name('OZF', 'OZF_ORD_LN_TYPCODE_MISS');
362: FND_MSG_PUB.add;
363: END IF;
364: RAISE FND_API.G_EXC_ERROR;
358:
359: IF xp_line_tbl(I).line_type_code is NULL THEN
360: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
361: FND_MESSAGE.set_name('OZF', 'OZF_ORD_LN_TYPCODE_MISS');
362: FND_MSG_PUB.add;
363: END IF;
364: RAISE FND_API.G_EXC_ERROR;
365: ELSE
366: G_LINE_TYPE_CODE_TBL(I):= xp_line_tbl(I).line_type_code;
366: G_LINE_TYPE_CODE_TBL(I):= xp_line_tbl(I).line_type_code;
367: END IF;
368:
369: IF xp_line_tbl(I).PRICING_EFFECTIVE_DATE is NULL THEN
370: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
371: FND_MESSAGE.set_name('OZF', 'OZF_ORD_EFF_DATE_MISS');
372: FND_MSG_PUB.add;
373: END IF;
374: RAISE FND_API.G_EXC_ERROR;
368:
369: IF xp_line_tbl(I).PRICING_EFFECTIVE_DATE is NULL THEN
370: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
371: FND_MESSAGE.set_name('OZF', 'OZF_ORD_EFF_DATE_MISS');
372: FND_MSG_PUB.add;
373: END IF;
374: RAISE FND_API.G_EXC_ERROR;
375: ELSE
376: G_PRICING_EFFECTIVE_DATE_TBL(I):=xp_line_tbl(I).PRICING_EFFECTIVE_DATE;
403: G_LINE_QUANTITY_TBL(I):= xp_line_tbl(I).LINE_QUANTITY;
404: G_LINE_UOM_CODE_TBL(I):= xp_line_tbl(I).LINE_UOM_CODE;
405:
406: IF xp_line_tbl(I).REQUEST_TYPE_CODE IS NULL THEN
407: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
408: FND_MESSAGE.set_name('OZF', 'OZF_ORD_REQ_TYPCD_MISS');
409: FND_MSG_PUB.add;
410: END IF;
411: RAISE FND_API.G_EXC_ERROR;
405:
406: IF xp_line_tbl(I).REQUEST_TYPE_CODE IS NULL THEN
407: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
408: FND_MESSAGE.set_name('OZF', 'OZF_ORD_REQ_TYPCD_MISS');
409: FND_MSG_PUB.add;
410: END IF;
411: RAISE FND_API.G_EXC_ERROR;
412: ELSE
413: G_REQUEST_TYPE_CODE_TBL(I):= xp_line_tbl(I).REQUEST_TYPE_CODE;
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
508: FND_MESSAGE.set_name('OZF', 'OZF_ORD_LINE_TYPE_WRG');
509: FND_MSG_PUB.add;
510: END IF;
511: RAISE FND_API.G_EXC_ERROR;
505: END IF;
506: ELSE
507: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
508: FND_MESSAGE.set_name('OZF', 'OZF_ORD_LINE_TYPE_WRG');
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);
556: x_status_code =>l_return_status_code,
557: x_status_text =>l_price_return_msg);
558:
559: IF l_return_status_code <> FND_API.G_RET_STS_SUCCESS THEN
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);
558:
559: IF l_return_status_code <> FND_API.G_RET_STS_SUCCESS THEN
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;
653: I:= I+1;
654: END LOOP;
655:
656: -- Debug Message
657: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
658: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
659: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
660: FND_MSG_PUB.Add;
661: END IF;
656: -- Debug Message
657: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
658: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
659: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
660: FND_MSG_PUB.Add;
661: END IF;
662: --Standard call to get message count and if count=1, get the message
663: FND_MSG_PUB.Count_And_Get (
664: p_encoded => FND_API.G_FALSE,
659: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
660: FND_MSG_PUB.Add;
661: END IF;
662: --Standard call to get message count and if count=1, get the message
663: FND_MSG_PUB.Count_And_Get (
664: p_encoded => FND_API.G_FALSE,
665: p_count => x_msg_count,
666: p_data => x_msg_data
667: );
672: WHEN FND_API.G_EXC_ERROR THEN
673: ROLLBACK TO Get_Order_Price_pvt ;
674: x_return_status := FND_API.G_RET_STS_ERROR;
675: -- Standard call to get message count and if count=1, get the message
676: FND_MSG_PUB.Count_And_Get (
677: p_encoded => FND_API.G_FALSE,
678: p_count => x_msg_count,
679: p_data => x_msg_data
680: );
681: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
682: ROLLBACK TO Get_Order_Price_pvt;
683: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
684: -- Standard call to get message count and if count=1, get the message
685: FND_MSG_PUB.Count_And_Get (
686: p_encoded => FND_API.G_FALSE,
687: p_count => x_msg_count,
688: p_data => x_msg_data
689: );
690: WHEN OTHERS THEN
691: ROLLBACK TO Get_Order_Price_pvt;
692: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
693: -- Standard call to get message count and if count=1, get the message
694: FND_MSG_PUB.Count_And_Get (
695: p_encoded => FND_API.G_FALSE,
696: p_count => x_msg_count,
697: p_data => x_msg_data
698: );
738: -- Debug Message
739: IF OZF_DEBUG_LOW_ON THEN
740: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
741: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
742: FND_MSG_PUB.Add;
743: END IF;
744:
745: --Initialize message list if p_init_msg_list is TRUE.
746: IF FND_API.To_Boolean (p_init_msg_list) THEN
743: END IF;
744:
745: --Initialize message list if p_init_msg_list is TRUE.
746: IF FND_API.To_Boolean (p_init_msg_list) THEN
747: FND_MSG_PUB.initialize;
748: END IF;
749:
750: -- Initialize API return status to sucess
751: x_return_status := FND_API.G_RET_STS_SUCCESS;
753: -- Debug Message
754: IF OZF_DEBUG_LOW_ON THEN
755: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
756: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
757: FND_MSG_PUB.Add;
758: END IF;
759:
760: EXCEPTION
761: WHEN FND_API.G_EXC_ERROR THEN
761: WHEN FND_API.G_EXC_ERROR THEN
762: ROLLBACK TO PURGE_PRICING_TEMP;
763: x_return_status := FND_API.G_RET_STS_ERROR;
764: -- Standard call to get message count and if count=1, get the message
765: FND_MSG_PUB.Count_And_Get (
766: p_encoded => FND_API.G_FALSE,
767: p_count => x_msg_count,
768: p_data => x_msg_data
769: );
770: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
771: ROLLBACK TO PURGE_PRICING_TEMP;
772: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
773: -- Standard call to get message count and if count=1, get the message
774: FND_MSG_PUB.Count_And_Get (
775: p_encoded => FND_API.G_FALSE,
776: p_count => x_msg_count,
777: p_data => x_msg_data
778: );
779: WHEN OTHERS THEN
780: ROLLBACK TO PURGE_PRICING_TEMP;
781: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
782: -- Standard call to get message count and if count=1, get the message
783: FND_MSG_PUB.Count_And_Get (
784: p_encoded => FND_API.G_FALSE,
785: p_count => x_msg_count,
786: p_data => x_msg_data
787: );