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;
343: xp_line_tbl(I).line_type_code = G_LINE_TYPE THEN
344:
345: -- Assign request infromation to the insert structure.
346: IF xp_line_tbl(I).line_index is NULL THEN
347: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
348: FND_MESSAGE.set_name('OZF', 'OZF_ORD_LN_INDX_MISS');
349: FND_MSG_PUB.add;
350: END IF;
351: RAISE FND_API.G_EXC_ERROR;
345: -- Assign request infromation to the insert structure.
346: IF xp_line_tbl(I).line_index is NULL THEN
347: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
348: FND_MESSAGE.set_name('OZF', 'OZF_ORD_LN_INDX_MISS');
349: FND_MSG_PUB.add;
350: END IF;
351: RAISE FND_API.G_EXC_ERROR;
352: ELSE
353: G_LINE_INDEX_TBL(I):=xp_line_tbl(I).line_index;
353: G_LINE_INDEX_TBL(I):=xp_line_tbl(I).line_index;
354: END IF;
355:
356: IF xp_line_tbl(I).line_type_code is NULL THEN
357: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
358: FND_MESSAGE.set_name('OZF', 'OZF_ORD_LN_TYPCODE_MISS');
359: FND_MSG_PUB.add;
360: END IF;
361: RAISE FND_API.G_EXC_ERROR;
355:
356: IF xp_line_tbl(I).line_type_code is NULL THEN
357: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
358: FND_MESSAGE.set_name('OZF', 'OZF_ORD_LN_TYPCODE_MISS');
359: FND_MSG_PUB.add;
360: END IF;
361: RAISE FND_API.G_EXC_ERROR;
362: ELSE
363: G_LINE_TYPE_CODE_TBL(I):= xp_line_tbl(I).line_type_code;
363: G_LINE_TYPE_CODE_TBL(I):= xp_line_tbl(I).line_type_code;
364: END IF;
365:
366: IF xp_line_tbl(I).PRICING_EFFECTIVE_DATE is NULL THEN
367: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
368: FND_MESSAGE.set_name('OZF', 'OZF_ORD_EFF_DATE_MISS');
369: FND_MSG_PUB.add;
370: END IF;
371: RAISE FND_API.G_EXC_ERROR;
365:
366: IF xp_line_tbl(I).PRICING_EFFECTIVE_DATE is NULL THEN
367: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
368: FND_MESSAGE.set_name('OZF', 'OZF_ORD_EFF_DATE_MISS');
369: FND_MSG_PUB.add;
370: END IF;
371: RAISE FND_API.G_EXC_ERROR;
372: ELSE
373: G_PRICING_EFFECTIVE_DATE_TBL(I):=xp_line_tbl(I).PRICING_EFFECTIVE_DATE;
400: G_LINE_QUANTITY_TBL(I):= xp_line_tbl(I).LINE_QUANTITY;
401: G_LINE_UOM_CODE_TBL(I):= xp_line_tbl(I).LINE_UOM_CODE;
402:
403: IF xp_line_tbl(I).REQUEST_TYPE_CODE IS NULL THEN
404: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
405: FND_MESSAGE.set_name('OZF', 'OZF_ORD_REQ_TYPCD_MISS');
406: FND_MSG_PUB.add;
407: END IF;
408: RAISE FND_API.G_EXC_ERROR;
402:
403: IF xp_line_tbl(I).REQUEST_TYPE_CODE IS NULL THEN
404: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
405: FND_MESSAGE.set_name('OZF', 'OZF_ORD_REQ_TYPCD_MISS');
406: FND_MSG_PUB.add;
407: END IF;
408: RAISE FND_API.G_EXC_ERROR;
409: ELSE
410: G_REQUEST_TYPE_CODE_TBL(I):= xp_line_tbl(I).REQUEST_TYPE_CODE;
499: ozf_utility_PVT.debug_message('after build line' );
500: END IF;
501: END IF;
502: ELSE
503: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
504: FND_MESSAGE.set_name('OZF', 'OZF_ORD_LINE_TYPE_WRG');
505: FND_MSG_PUB.add;
506: END IF;
507: RAISE FND_API.G_EXC_ERROR;
501: END IF;
502: ELSE
503: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
504: FND_MESSAGE.set_name('OZF', 'OZF_ORD_LINE_TYPE_WRG');
505: FND_MSG_PUB.add;
506: END IF;
507: RAISE FND_API.G_EXC_ERROR;
508: END IF;
509: End LOOP;
551: x_status_code =>l_return_status_code,
552: x_status_text =>l_price_return_msg);
553:
554: IF l_return_status_code <> FND_API.G_RET_STS_SUCCESS THEN
555: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
556: FND_MESSAGE.set_name('OZF', 'OZF_ORDER_INSERT_ERR');
557: FND_MSG_PUB.add;
558: IF OZF_DEBUG_LOW_ON THEN
559: ozf_utility_PVT.debug_message(l_price_return_msg);
553:
554: IF l_return_status_code <> FND_API.G_RET_STS_SUCCESS THEN
555: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
556: FND_MESSAGE.set_name('OZF', 'OZF_ORDER_INSERT_ERR');
557: FND_MSG_PUB.add;
558: IF OZF_DEBUG_LOW_ON THEN
559: ozf_utility_PVT.debug_message(l_price_return_msg);
560: END IF;
561: END IF;
648: I:= I+1;
649: END LOOP;
650:
651: -- Debug Message
652: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
653: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
654: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
655: FND_MSG_PUB.Add;
656: END IF;
651: -- Debug Message
652: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
653: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
654: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
655: FND_MSG_PUB.Add;
656: END IF;
657: --Standard call to get message count and if count=1, get the message
658: FND_MSG_PUB.Count_And_Get (
659: p_encoded => FND_API.G_FALSE,
654: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
655: FND_MSG_PUB.Add;
656: END IF;
657: --Standard call to get message count and if count=1, get the message
658: FND_MSG_PUB.Count_And_Get (
659: p_encoded => FND_API.G_FALSE,
660: p_count => x_msg_count,
661: p_data => x_msg_data
662: );
667: WHEN FND_API.G_EXC_ERROR THEN
668: ROLLBACK TO Get_Order_Price_pvt ;
669: x_return_status := FND_API.G_RET_STS_ERROR;
670: -- Standard call to get message count and if count=1, get the message
671: FND_MSG_PUB.Count_And_Get (
672: p_encoded => FND_API.G_FALSE,
673: p_count => x_msg_count,
674: p_data => x_msg_data
675: );
676: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
677: ROLLBACK TO Get_Order_Price_pvt;
678: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
679: -- Standard call to get message count and if count=1, get the message
680: FND_MSG_PUB.Count_And_Get (
681: p_encoded => FND_API.G_FALSE,
682: p_count => x_msg_count,
683: p_data => x_msg_data
684: );
685: WHEN OTHERS THEN
686: ROLLBACK TO Get_Order_Price_pvt;
687: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
688: -- Standard call to get message count and if count=1, get the message
689: FND_MSG_PUB.Count_And_Get (
690: p_encoded => FND_API.G_FALSE,
691: p_count => x_msg_count,
692: p_data => x_msg_data
693: );
733: -- Debug Message
734: IF OZF_DEBUG_LOW_ON THEN
735: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
736: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
737: FND_MSG_PUB.Add;
738: END IF;
739:
740: --Initialize message list if p_init_msg_list is TRUE.
741: IF FND_API.To_Boolean (p_init_msg_list) THEN
738: END IF;
739:
740: --Initialize message list if p_init_msg_list is TRUE.
741: IF FND_API.To_Boolean (p_init_msg_list) THEN
742: FND_MSG_PUB.initialize;
743: END IF;
744:
745: -- Initialize API return status to sucess
746: x_return_status := FND_API.G_RET_STS_SUCCESS;
748: -- Debug Message
749: IF OZF_DEBUG_LOW_ON THEN
750: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
751: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
752: FND_MSG_PUB.Add;
753: END IF;
754:
755: EXCEPTION
756: WHEN FND_API.G_EXC_ERROR THEN
756: WHEN FND_API.G_EXC_ERROR THEN
757: ROLLBACK TO PURGE_PRICING_TEMP;
758: x_return_status := FND_API.G_RET_STS_ERROR;
759: -- Standard call to get message count and if count=1, get the message
760: FND_MSG_PUB.Count_And_Get (
761: p_encoded => FND_API.G_FALSE,
762: p_count => x_msg_count,
763: p_data => x_msg_data
764: );
765: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
766: ROLLBACK TO PURGE_PRICING_TEMP;
767: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
768: -- Standard call to get message count and if count=1, get the message
769: FND_MSG_PUB.Count_And_Get (
770: p_encoded => FND_API.G_FALSE,
771: p_count => x_msg_count,
772: p_data => x_msg_data
773: );
774: WHEN OTHERS THEN
775: ROLLBACK TO PURGE_PRICING_TEMP;
776: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
777: -- Standard call to get message count and if count=1, get the message
778: FND_MSG_PUB.Count_And_Get (
779: p_encoded => FND_API.G_FALSE,
780: p_count => x_msg_count,
781: p_data => x_msg_data
782: );