168:
169: -- Call OE_Order_PVT.Process_order
170:
171: OE_Order_PVT.Header_Scredits
172: ( p_validation_level => FND_API.G_VALID_LEVEL_NONE
173: , p_init_msg_list => FND_API.G_TRUE
174: , p_control_rec => l_control_rec
175: , p_x_Header_Scredit_tbl => l_x_Header_Scredit_tbl
176: , p_x_old_Header_Scredit_tbl => l_x_old_Header_Scredit_tbl
169: -- Call OE_Order_PVT.Process_order
170:
171: OE_Order_PVT.Header_Scredits
172: ( p_validation_level => FND_API.G_VALID_LEVEL_NONE
173: , p_init_msg_list => FND_API.G_TRUE
174: , p_control_rec => l_control_rec
175: , p_x_Header_Scredit_tbl => l_x_Header_Scredit_tbl
176: , p_x_old_Header_Scredit_tbl => l_x_old_Header_Scredit_tbl
177: , x_return_Status => l_return_status
176: , p_x_old_Header_Scredit_tbl => l_x_old_Header_Scredit_tbl
177: , x_return_Status => l_return_status
178: );
179:
180: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
181: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
182: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
183: RAISE FND_API.G_EXC_ERROR;
184: END IF;
177: , x_return_Status => l_return_status
178: );
179:
180: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
181: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
182: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
183: RAISE FND_API.G_EXC_ERROR;
184: END IF;
185:
178: );
179:
180: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
181: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
182: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
183: RAISE FND_API.G_EXC_ERROR;
184: END IF;
185:
186:
179:
180: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
181: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
182: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
183: RAISE FND_API.G_EXC_ERROR;
184: END IF;
185:
186:
187:
223:
224: -- Write to cache.
225: -- Set db_flag to False before writing to cache
226:
227: l_x_Header_Scredit_tbl(1).db_flag := FND_API.G_FALSE;
228:
229: Write_Header_Scredit
230: ( p_Header_Scredit_rec => l_x_Header_Scredit_tbl(1)
231: );
234: OE_GLOBALS.G_UI_FLAG := FALSE;
235:
236: -- Set return status.
237:
238: x_return_status := FND_API.G_RET_STS_SUCCESS;
239:
240: -- Get message count and data
241:
242: oe_msg_pub.Count_And_Get
249: END IF;
250:
251: EXCEPTION
252:
253: WHEN FND_API.G_EXC_ERROR THEN
254:
255: OE_GLOBALS.G_UI_FLAG := FALSE;
256:
257: x_return_status := FND_API.G_RET_STS_ERROR;
253: WHEN FND_API.G_EXC_ERROR THEN
254:
255: OE_GLOBALS.G_UI_FLAG := FALSE;
256:
257: x_return_status := FND_API.G_RET_STS_ERROR;
258:
259: -- Get message count and data
260:
261: oe_msg_pub.Count_And_Get
262: ( p_count => x_msg_count
263: , p_data => x_msg_data
264: );
265:
266: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
267:
268: OE_GLOBALS.G_UI_FLAG := FALSE;
269:
270: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
266: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
267:
268: OE_GLOBALS.G_UI_FLAG := FALSE;
269:
270: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
271:
272: -- Get message count and data
273:
274: oe_msg_pub.Count_And_Get
279: WHEN OTHERS THEN
280:
281: OE_GLOBALS.G_UI_FLAG := FALSE;
282:
283: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
284:
285: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
286: THEN
287: oe_msg_pub.Add_Exc_Msg
511: , 'Unrecognized attribute'
512: );
513: END IF;
514:
515: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
516:
517: END IF;
518:
519: -- Set Operation.
517: END IF;
518:
519: -- Set Operation.
520:
521: IF FND_API.To_Boolean(l_x_Header_Scredit_tbl(1).db_flag) THEN
522: l_x_Header_Scredit_tbl(1).operation := OE_GLOBALS.G_OPR_UPDATE;
523: ELSE
524: l_x_Header_Scredit_tbl(1).operation := OE_GLOBALS.G_OPR_CREATE;
525: END IF;
529: -- Call OE_Order_PVT.Process_order
530:
531: OE_Order_PVT.Header_Scredits
532: (
533: p_validation_level => FND_API.G_VALID_LEVEL_NONE
534: , p_init_msg_list => FND_API.G_TRUE
535: , p_control_rec => l_control_rec
536: , p_x_Header_Scredit_tbl => l_x_Header_Scredit_tbl
537: , p_x_old_Header_Scredit_tbl => l_x_old_Header_Scredit_tbl
530:
531: OE_Order_PVT.Header_Scredits
532: (
533: p_validation_level => FND_API.G_VALID_LEVEL_NONE
534: , p_init_msg_list => FND_API.G_TRUE
535: , p_control_rec => l_control_rec
536: , p_x_Header_Scredit_tbl => l_x_Header_Scredit_tbl
537: , p_x_old_Header_Scredit_tbl => l_x_old_Header_Scredit_tbl
538: , x_return_status => l_return_status
537: , p_x_old_Header_Scredit_tbl => l_x_old_Header_Scredit_tbl
538: , x_return_status => l_return_status
539: );
540:
541: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
542: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
543: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
544: RAISE FND_API.G_EXC_ERROR;
545: END IF;
538: , x_return_status => l_return_status
539: );
540:
541: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
542: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
543: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
544: RAISE FND_API.G_EXC_ERROR;
545: END IF;
546:
539: );
540:
541: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
542: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
543: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
544: RAISE FND_API.G_EXC_ERROR;
545: END IF;
546:
547:
540:
541: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
542: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
543: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
544: RAISE FND_API.G_EXC_ERROR;
545: END IF;
546:
547:
548: -- Init OUT NOCOPY parameters to missing.
546:
547:
548: -- Init OUT NOCOPY parameters to missing.
549:
550: x_attribute1 := FND_API.G_MISS_CHAR;
551: x_attribute10 := FND_API.G_MISS_CHAR;
552: x_attribute11 := FND_API.G_MISS_CHAR;
553: x_attribute12 := FND_API.G_MISS_CHAR;
554: x_attribute13 := FND_API.G_MISS_CHAR;
547:
548: -- Init OUT NOCOPY parameters to missing.
549:
550: x_attribute1 := FND_API.G_MISS_CHAR;
551: x_attribute10 := FND_API.G_MISS_CHAR;
552: x_attribute11 := FND_API.G_MISS_CHAR;
553: x_attribute12 := FND_API.G_MISS_CHAR;
554: x_attribute13 := FND_API.G_MISS_CHAR;
555: x_attribute14 := FND_API.G_MISS_CHAR;
548: -- Init OUT NOCOPY parameters to missing.
549:
550: x_attribute1 := FND_API.G_MISS_CHAR;
551: x_attribute10 := FND_API.G_MISS_CHAR;
552: x_attribute11 := FND_API.G_MISS_CHAR;
553: x_attribute12 := FND_API.G_MISS_CHAR;
554: x_attribute13 := FND_API.G_MISS_CHAR;
555: x_attribute14 := FND_API.G_MISS_CHAR;
556: x_attribute15 := FND_API.G_MISS_CHAR;
549:
550: x_attribute1 := FND_API.G_MISS_CHAR;
551: x_attribute10 := FND_API.G_MISS_CHAR;
552: x_attribute11 := FND_API.G_MISS_CHAR;
553: x_attribute12 := FND_API.G_MISS_CHAR;
554: x_attribute13 := FND_API.G_MISS_CHAR;
555: x_attribute14 := FND_API.G_MISS_CHAR;
556: x_attribute15 := FND_API.G_MISS_CHAR;
557: x_attribute2 := FND_API.G_MISS_CHAR;
550: x_attribute1 := FND_API.G_MISS_CHAR;
551: x_attribute10 := FND_API.G_MISS_CHAR;
552: x_attribute11 := FND_API.G_MISS_CHAR;
553: x_attribute12 := FND_API.G_MISS_CHAR;
554: x_attribute13 := FND_API.G_MISS_CHAR;
555: x_attribute14 := FND_API.G_MISS_CHAR;
556: x_attribute15 := FND_API.G_MISS_CHAR;
557: x_attribute2 := FND_API.G_MISS_CHAR;
558: x_attribute3 := FND_API.G_MISS_CHAR;
551: x_attribute10 := FND_API.G_MISS_CHAR;
552: x_attribute11 := FND_API.G_MISS_CHAR;
553: x_attribute12 := FND_API.G_MISS_CHAR;
554: x_attribute13 := FND_API.G_MISS_CHAR;
555: x_attribute14 := FND_API.G_MISS_CHAR;
556: x_attribute15 := FND_API.G_MISS_CHAR;
557: x_attribute2 := FND_API.G_MISS_CHAR;
558: x_attribute3 := FND_API.G_MISS_CHAR;
559: x_attribute4 := FND_API.G_MISS_CHAR;
552: x_attribute11 := FND_API.G_MISS_CHAR;
553: x_attribute12 := FND_API.G_MISS_CHAR;
554: x_attribute13 := FND_API.G_MISS_CHAR;
555: x_attribute14 := FND_API.G_MISS_CHAR;
556: x_attribute15 := FND_API.G_MISS_CHAR;
557: x_attribute2 := FND_API.G_MISS_CHAR;
558: x_attribute3 := FND_API.G_MISS_CHAR;
559: x_attribute4 := FND_API.G_MISS_CHAR;
560: x_attribute5 := FND_API.G_MISS_CHAR;
553: x_attribute12 := FND_API.G_MISS_CHAR;
554: x_attribute13 := FND_API.G_MISS_CHAR;
555: x_attribute14 := FND_API.G_MISS_CHAR;
556: x_attribute15 := FND_API.G_MISS_CHAR;
557: x_attribute2 := FND_API.G_MISS_CHAR;
558: x_attribute3 := FND_API.G_MISS_CHAR;
559: x_attribute4 := FND_API.G_MISS_CHAR;
560: x_attribute5 := FND_API.G_MISS_CHAR;
561: x_attribute6 := FND_API.G_MISS_CHAR;
554: x_attribute13 := FND_API.G_MISS_CHAR;
555: x_attribute14 := FND_API.G_MISS_CHAR;
556: x_attribute15 := FND_API.G_MISS_CHAR;
557: x_attribute2 := FND_API.G_MISS_CHAR;
558: x_attribute3 := FND_API.G_MISS_CHAR;
559: x_attribute4 := FND_API.G_MISS_CHAR;
560: x_attribute5 := FND_API.G_MISS_CHAR;
561: x_attribute6 := FND_API.G_MISS_CHAR;
562: x_attribute7 := FND_API.G_MISS_CHAR;
555: x_attribute14 := FND_API.G_MISS_CHAR;
556: x_attribute15 := FND_API.G_MISS_CHAR;
557: x_attribute2 := FND_API.G_MISS_CHAR;
558: x_attribute3 := FND_API.G_MISS_CHAR;
559: x_attribute4 := FND_API.G_MISS_CHAR;
560: x_attribute5 := FND_API.G_MISS_CHAR;
561: x_attribute6 := FND_API.G_MISS_CHAR;
562: x_attribute7 := FND_API.G_MISS_CHAR;
563: x_attribute8 := FND_API.G_MISS_CHAR;
556: x_attribute15 := FND_API.G_MISS_CHAR;
557: x_attribute2 := FND_API.G_MISS_CHAR;
558: x_attribute3 := FND_API.G_MISS_CHAR;
559: x_attribute4 := FND_API.G_MISS_CHAR;
560: x_attribute5 := FND_API.G_MISS_CHAR;
561: x_attribute6 := FND_API.G_MISS_CHAR;
562: x_attribute7 := FND_API.G_MISS_CHAR;
563: x_attribute8 := FND_API.G_MISS_CHAR;
564: x_attribute9 := FND_API.G_MISS_CHAR;
557: x_attribute2 := FND_API.G_MISS_CHAR;
558: x_attribute3 := FND_API.G_MISS_CHAR;
559: x_attribute4 := FND_API.G_MISS_CHAR;
560: x_attribute5 := FND_API.G_MISS_CHAR;
561: x_attribute6 := FND_API.G_MISS_CHAR;
562: x_attribute7 := FND_API.G_MISS_CHAR;
563: x_attribute8 := FND_API.G_MISS_CHAR;
564: x_attribute9 := FND_API.G_MISS_CHAR;
565: x_context := FND_API.G_MISS_CHAR;
558: x_attribute3 := FND_API.G_MISS_CHAR;
559: x_attribute4 := FND_API.G_MISS_CHAR;
560: x_attribute5 := FND_API.G_MISS_CHAR;
561: x_attribute6 := FND_API.G_MISS_CHAR;
562: x_attribute7 := FND_API.G_MISS_CHAR;
563: x_attribute8 := FND_API.G_MISS_CHAR;
564: x_attribute9 := FND_API.G_MISS_CHAR;
565: x_context := FND_API.G_MISS_CHAR;
566: x_dw_update_advice_flag := FND_API.G_MISS_CHAR;
559: x_attribute4 := FND_API.G_MISS_CHAR;
560: x_attribute5 := FND_API.G_MISS_CHAR;
561: x_attribute6 := FND_API.G_MISS_CHAR;
562: x_attribute7 := FND_API.G_MISS_CHAR;
563: x_attribute8 := FND_API.G_MISS_CHAR;
564: x_attribute9 := FND_API.G_MISS_CHAR;
565: x_context := FND_API.G_MISS_CHAR;
566: x_dw_update_advice_flag := FND_API.G_MISS_CHAR;
567: x_header_id := FND_API.G_MISS_NUM;
560: x_attribute5 := FND_API.G_MISS_CHAR;
561: x_attribute6 := FND_API.G_MISS_CHAR;
562: x_attribute7 := FND_API.G_MISS_CHAR;
563: x_attribute8 := FND_API.G_MISS_CHAR;
564: x_attribute9 := FND_API.G_MISS_CHAR;
565: x_context := FND_API.G_MISS_CHAR;
566: x_dw_update_advice_flag := FND_API.G_MISS_CHAR;
567: x_header_id := FND_API.G_MISS_NUM;
568: x_line_id := FND_API.G_MISS_NUM;
561: x_attribute6 := FND_API.G_MISS_CHAR;
562: x_attribute7 := FND_API.G_MISS_CHAR;
563: x_attribute8 := FND_API.G_MISS_CHAR;
564: x_attribute9 := FND_API.G_MISS_CHAR;
565: x_context := FND_API.G_MISS_CHAR;
566: x_dw_update_advice_flag := FND_API.G_MISS_CHAR;
567: x_header_id := FND_API.G_MISS_NUM;
568: x_line_id := FND_API.G_MISS_NUM;
569: x_percent := FND_API.G_MISS_NUM;
562: x_attribute7 := FND_API.G_MISS_CHAR;
563: x_attribute8 := FND_API.G_MISS_CHAR;
564: x_attribute9 := FND_API.G_MISS_CHAR;
565: x_context := FND_API.G_MISS_CHAR;
566: x_dw_update_advice_flag := FND_API.G_MISS_CHAR;
567: x_header_id := FND_API.G_MISS_NUM;
568: x_line_id := FND_API.G_MISS_NUM;
569: x_percent := FND_API.G_MISS_NUM;
570: x_salesrep_id := FND_API.G_MISS_NUM;
563: x_attribute8 := FND_API.G_MISS_CHAR;
564: x_attribute9 := FND_API.G_MISS_CHAR;
565: x_context := FND_API.G_MISS_CHAR;
566: x_dw_update_advice_flag := FND_API.G_MISS_CHAR;
567: x_header_id := FND_API.G_MISS_NUM;
568: x_line_id := FND_API.G_MISS_NUM;
569: x_percent := FND_API.G_MISS_NUM;
570: x_salesrep_id := FND_API.G_MISS_NUM;
571: x_sales_credit_type_id := FND_API.G_MISS_NUM;
564: x_attribute9 := FND_API.G_MISS_CHAR;
565: x_context := FND_API.G_MISS_CHAR;
566: x_dw_update_advice_flag := FND_API.G_MISS_CHAR;
567: x_header_id := FND_API.G_MISS_NUM;
568: x_line_id := FND_API.G_MISS_NUM;
569: x_percent := FND_API.G_MISS_NUM;
570: x_salesrep_id := FND_API.G_MISS_NUM;
571: x_sales_credit_type_id := FND_API.G_MISS_NUM;
572: x_sales_credit_id := FND_API.G_MISS_NUM;
565: x_context := FND_API.G_MISS_CHAR;
566: x_dw_update_advice_flag := FND_API.G_MISS_CHAR;
567: x_header_id := FND_API.G_MISS_NUM;
568: x_line_id := FND_API.G_MISS_NUM;
569: x_percent := FND_API.G_MISS_NUM;
570: x_salesrep_id := FND_API.G_MISS_NUM;
571: x_sales_credit_type_id := FND_API.G_MISS_NUM;
572: x_sales_credit_id := FND_API.G_MISS_NUM;
573: x_wh_update_date := FND_API.G_MISS_DATE;
566: x_dw_update_advice_flag := FND_API.G_MISS_CHAR;
567: x_header_id := FND_API.G_MISS_NUM;
568: x_line_id := FND_API.G_MISS_NUM;
569: x_percent := FND_API.G_MISS_NUM;
570: x_salesrep_id := FND_API.G_MISS_NUM;
571: x_sales_credit_type_id := FND_API.G_MISS_NUM;
572: x_sales_credit_id := FND_API.G_MISS_NUM;
573: x_wh_update_date := FND_API.G_MISS_DATE;
574: x_salesrep := FND_API.G_MISS_CHAR;
567: x_header_id := FND_API.G_MISS_NUM;
568: x_line_id := FND_API.G_MISS_NUM;
569: x_percent := FND_API.G_MISS_NUM;
570: x_salesrep_id := FND_API.G_MISS_NUM;
571: x_sales_credit_type_id := FND_API.G_MISS_NUM;
572: x_sales_credit_id := FND_API.G_MISS_NUM;
573: x_wh_update_date := FND_API.G_MISS_DATE;
574: x_salesrep := FND_API.G_MISS_CHAR;
575: x_sales_credit_type := FND_API.G_MISS_CHAR;
568: x_line_id := FND_API.G_MISS_NUM;
569: x_percent := FND_API.G_MISS_NUM;
570: x_salesrep_id := FND_API.G_MISS_NUM;
571: x_sales_credit_type_id := FND_API.G_MISS_NUM;
572: x_sales_credit_id := FND_API.G_MISS_NUM;
573: x_wh_update_date := FND_API.G_MISS_DATE;
574: x_salesrep := FND_API.G_MISS_CHAR;
575: x_sales_credit_type := FND_API.G_MISS_CHAR;
576: --SG{
569: x_percent := FND_API.G_MISS_NUM;
570: x_salesrep_id := FND_API.G_MISS_NUM;
571: x_sales_credit_type_id := FND_API.G_MISS_NUM;
572: x_sales_credit_id := FND_API.G_MISS_NUM;
573: x_wh_update_date := FND_API.G_MISS_DATE;
574: x_salesrep := FND_API.G_MISS_CHAR;
575: x_sales_credit_type := FND_API.G_MISS_CHAR;
576: --SG{
577: x_sales_group := FND_API.G_MISS_CHAR;
570: x_salesrep_id := FND_API.G_MISS_NUM;
571: x_sales_credit_type_id := FND_API.G_MISS_NUM;
572: x_sales_credit_id := FND_API.G_MISS_NUM;
573: x_wh_update_date := FND_API.G_MISS_DATE;
574: x_salesrep := FND_API.G_MISS_CHAR;
575: x_sales_credit_type := FND_API.G_MISS_CHAR;
576: --SG{
577: x_sales_group := FND_API.G_MISS_CHAR;
578: x_sales_group_id := FND_API.G_MISS_NUM;
571: x_sales_credit_type_id := FND_API.G_MISS_NUM;
572: x_sales_credit_id := FND_API.G_MISS_NUM;
573: x_wh_update_date := FND_API.G_MISS_DATE;
574: x_salesrep := FND_API.G_MISS_CHAR;
575: x_sales_credit_type := FND_API.G_MISS_CHAR;
576: --SG{
577: x_sales_group := FND_API.G_MISS_CHAR;
578: x_sales_group_id := FND_API.G_MISS_NUM;
579: x_sales_group_updated_flag := FND_API.G_MISS_CHAR;
573: x_wh_update_date := FND_API.G_MISS_DATE;
574: x_salesrep := FND_API.G_MISS_CHAR;
575: x_sales_credit_type := FND_API.G_MISS_CHAR;
576: --SG{
577: x_sales_group := FND_API.G_MISS_CHAR;
578: x_sales_group_id := FND_API.G_MISS_NUM;
579: x_sales_group_updated_flag := FND_API.G_MISS_CHAR;
580: --SG}
581:
574: x_salesrep := FND_API.G_MISS_CHAR;
575: x_sales_credit_type := FND_API.G_MISS_CHAR;
576: --SG{
577: x_sales_group := FND_API.G_MISS_CHAR;
578: x_sales_group_id := FND_API.G_MISS_NUM;
579: x_sales_group_updated_flag := FND_API.G_MISS_CHAR;
580: --SG}
581:
582: -- Load display out NOCOPY parameters if any
575: x_sales_credit_type := FND_API.G_MISS_CHAR;
576: --SG{
577: x_sales_group := FND_API.G_MISS_CHAR;
578: x_sales_group_id := FND_API.G_MISS_NUM;
579: x_sales_group_updated_flag := FND_API.G_MISS_CHAR;
580: --SG}
581:
582: -- Load display out NOCOPY parameters if any
583:
761: OE_GLOBALS.G_UI_FLAG := FALSE;
762:
763: -- Set return status.
764:
765: x_return_status := FND_API.G_RET_STS_SUCCESS;
766:
767: -- Get message count and data
768:
769: oe_msg_pub.Count_And_Get
776: END IF;
777:
778: EXCEPTION
779:
780: WHEN FND_API.G_EXC_ERROR THEN
781:
782: OE_GLOBALS.G_UI_FLAG := FALSE;
783:
784: x_return_status := FND_API.G_RET_STS_ERROR;
780: WHEN FND_API.G_EXC_ERROR THEN
781:
782: OE_GLOBALS.G_UI_FLAG := FALSE;
783:
784: x_return_status := FND_API.G_RET_STS_ERROR;
785:
786: -- Get message count and data
787:
788: oe_msg_pub.Count_And_Get
789: ( p_count => x_msg_count
790: , p_data => x_msg_data
791: );
792:
793: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
794:
795: OE_GLOBALS.G_UI_FLAG := FALSE;
796:
797: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
793: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
794:
795: OE_GLOBALS.G_UI_FLAG := FALSE;
796:
797: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
798:
799: -- Get message count and data
800:
801: oe_msg_pub.Count_And_Get
806: WHEN OTHERS THEN
807:
808: OE_GLOBALS.G_UI_FLAG := FALSE;
809:
810: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
811:
812: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
813: THEN
814: oe_msg_pub.Add_Exc_Msg
901: );
902:
903: -- Set Operation.
904:
905: IF FND_API.To_Boolean(l_x_Header_Scredit_tbl(1).db_flag) THEN
906: l_x_Header_Scredit_tbl(1).operation := OE_GLOBALS.G_OPR_UPDATE;
907: ELSE
908: l_x_Header_Scredit_tbl(1).operation := OE_GLOBALS.G_OPR_CREATE;
909: END IF;
917:
918: -- Call OE_Order_PVT.Process_order
919:
920: OE_Order_PVT.Header_Scredits
921: ( p_validation_level => FND_API.G_VALID_LEVEL_NONE
922: , p_init_msg_list => FND_API.G_TRUE
923: , p_control_rec => l_control_rec
924: , p_x_Header_Scredit_tbl => l_x_Header_Scredit_tbl
925: , p_x_old_Header_Scredit_tbl => l_x_old_Header_Scredit_tbl
918: -- Call OE_Order_PVT.Process_order
919:
920: OE_Order_PVT.Header_Scredits
921: ( p_validation_level => FND_API.G_VALID_LEVEL_NONE
922: , p_init_msg_list => FND_API.G_TRUE
923: , p_control_rec => l_control_rec
924: , p_x_Header_Scredit_tbl => l_x_Header_Scredit_tbl
925: , p_x_old_Header_Scredit_tbl => l_x_old_Header_Scredit_tbl
926: , x_return_status => l_return_status
925: , p_x_old_Header_Scredit_tbl => l_x_old_Header_Scredit_tbl
926: , x_return_status => l_return_status
927: );
928:
929: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
930: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
931: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
932: RAISE FND_API.G_EXC_ERROR;
933: END IF;
926: , x_return_status => l_return_status
927: );
928:
929: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
930: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
931: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
932: RAISE FND_API.G_EXC_ERROR;
933: END IF;
934:
927: );
928:
929: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
930: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
931: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
932: RAISE FND_API.G_EXC_ERROR;
933: END IF;
934:
935: -- Load OUT NOCOPY parameters.
928:
929: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
930: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
931: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
932: RAISE FND_API.G_EXC_ERROR;
933: END IF;
934:
935: -- Load OUT NOCOPY parameters.
936: /* Enable the call for Pre-Pack H Code level */
938: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL < '110508' THEN
939:
940: Oe_Order_Pvt.Process_Requests_And_Notify
941: ( p_process_requests => FALSE
942: , p_init_msg_list => FND_API.G_FALSE
943: , p_notify => TRUE
944: , x_return_status => l_return_status
945: , p_header_scredit_tbl => l_x_Header_Scredit_tbl
946: , p_old_header_scredit_tbl => l_x_old_Header_Scredit_tbl
945: , p_header_scredit_tbl => l_x_Header_Scredit_tbl
946: , p_old_header_scredit_tbl => l_x_old_Header_Scredit_tbl
947: );
948:
949: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
950: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
951: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
952: RAISE FND_API.G_EXC_ERROR;
953: END IF;
946: , p_old_header_scredit_tbl => l_x_old_Header_Scredit_tbl
947: );
948:
949: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
950: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
951: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
952: RAISE FND_API.G_EXC_ERROR;
953: END IF;
954:
947: );
948:
949: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
950: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
951: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
952: RAISE FND_API.G_EXC_ERROR;
953: END IF;
954:
955: END IF;
948:
949: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
950: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
951: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
952: RAISE FND_API.G_EXC_ERROR;
953: END IF;
954:
955: END IF;
956:
974: OE_GLOBALS.G_UI_FLAG := FALSE;
975:
976: -- Set return status.
977:
978: x_return_status := FND_API.G_RET_STS_SUCCESS;
979:
980: -- Get message count and data
981:
982: oe_msg_pub.Count_And_Get
989: END IF;
990:
991: EXCEPTION
992:
993: WHEN FND_API.G_EXC_ERROR THEN
994:
995: OE_GLOBALS.G_UI_FLAG := FALSE;
996:
997: x_return_status := FND_API.G_RET_STS_ERROR;
993: WHEN FND_API.G_EXC_ERROR THEN
994:
995: OE_GLOBALS.G_UI_FLAG := FALSE;
996:
997: x_return_status := FND_API.G_RET_STS_ERROR;
998:
999: -- Get message count and data
1000:
1001: oe_msg_pub.Count_And_Get
1002: ( p_count => x_msg_count
1003: , p_data => x_msg_data
1004: );
1005:
1006: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1007:
1008: OE_GLOBALS.G_UI_FLAG := FALSE;
1009:
1010: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1006: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1007:
1008: OE_GLOBALS.G_UI_FLAG := FALSE;
1009:
1010: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1011:
1012: -- Get message count and data
1013:
1014: oe_msg_pub.Count_And_Get
1019: WHEN OTHERS THEN
1020:
1021: OE_GLOBALS.G_UI_FLAG := FALSE;
1022:
1023: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1024:
1025: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1026: THEN
1027: oe_msg_pub.Add_Exc_Msg
1107:
1108: -- Call OE_Order_PVT.Process_order
1109:
1110: OE_Order_PVT.Header_Scredits
1111: ( p_validation_level => FND_API.G_VALID_LEVEL_NONE
1112: , p_init_msg_list => FND_API.G_TRUE
1113: , p_control_rec => l_control_rec
1114: , p_x_Header_Scredit_tbl => l_x_Header_Scredit_tbl
1115: , p_x_old_Header_Scredit_tbl => l_x_old_Header_Scredit_tbl
1108: -- Call OE_Order_PVT.Process_order
1109:
1110: OE_Order_PVT.Header_Scredits
1111: ( p_validation_level => FND_API.G_VALID_LEVEL_NONE
1112: , p_init_msg_list => FND_API.G_TRUE
1113: , p_control_rec => l_control_rec
1114: , p_x_Header_Scredit_tbl => l_x_Header_Scredit_tbl
1115: , p_x_old_Header_Scredit_tbl => l_x_old_Header_Scredit_tbl
1116: , x_return_status => l_return_status
1115: , p_x_old_Header_Scredit_tbl => l_x_old_Header_Scredit_tbl
1116: , x_return_status => l_return_status
1117: );
1118:
1119: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1120: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1121: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1122: RAISE FND_API.G_EXC_ERROR;
1123: END IF;
1116: , x_return_status => l_return_status
1117: );
1118:
1119: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1120: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1121: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1122: RAISE FND_API.G_EXC_ERROR;
1123: END IF;
1124:
1117: );
1118:
1119: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1120: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1121: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1122: RAISE FND_API.G_EXC_ERROR;
1123: END IF;
1124:
1125:
1118:
1119: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1120: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1121: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1122: RAISE FND_API.G_EXC_ERROR;
1123: END IF;
1124:
1125:
1126: -- Clear Header_Scredit record cache
1131: OE_GLOBALS.G_UI_FLAG := FALSE;
1132:
1133: -- Set return status.
1134:
1135: x_return_status := FND_API.G_RET_STS_SUCCESS;
1136:
1137: -- Get message count and data
1138:
1139: oe_msg_pub.Count_And_Get
1146: END IF;
1147:
1148: EXCEPTION
1149:
1150: WHEN FND_API.G_EXC_ERROR THEN
1151:
1152: OE_GLOBALS.G_UI_FLAG := FALSE;
1153:
1154: x_return_status := FND_API.G_RET_STS_ERROR;
1150: WHEN FND_API.G_EXC_ERROR THEN
1151:
1152: OE_GLOBALS.G_UI_FLAG := FALSE;
1153:
1154: x_return_status := FND_API.G_RET_STS_ERROR;
1155:
1156: -- Get message count and data
1157:
1158: oe_msg_pub.Count_And_Get
1159: ( p_count => x_msg_count
1160: , p_data => x_msg_data
1161: );
1162:
1163: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1164:
1165: OE_GLOBALS.G_UI_FLAG := FALSE;
1166:
1167: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1163: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1164:
1165: OE_GLOBALS.G_UI_FLAG := FALSE;
1166:
1167: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1168:
1169: -- Get message count and data
1170:
1171: oe_msg_pub.Count_And_Get
1176: WHEN OTHERS THEN
1177:
1178: OE_GLOBALS.G_UI_FLAG := FALSE;
1179:
1180: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1181:
1182: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1183: THEN
1184: oe_msg_pub.Add_Exc_Msg
1264: -- Call OE_Order_PVT.Process_order
1265:
1266: OE_Order_PVT.Process_order
1267: ( p_api_version_number => 1.0
1268: , p_init_msg_list => FND_API.G_TRUE
1269: , x_return_status => l_return_status
1270: , x_msg_count => x_msg_count
1271: , x_msg_data => x_msg_data
1272: , p_control_rec => l_control_rec
1288: );
1289: */
1290: Oe_Order_Pvt.Process_Requests_And_Notify
1291: ( p_process_requests => TRUE
1292: , p_init_msg_list => FND_API.G_TRUE
1293: , p_notify => FALSE --jolin
1294: , x_return_status => l_return_status
1295: );
1296:
1293: , p_notify => FALSE --jolin
1294: , x_return_status => l_return_status
1295: );
1296:
1297: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1298: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1299: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1300: RAISE FND_API.G_EXC_ERROR;
1301: END IF;
1294: , x_return_status => l_return_status
1295: );
1296:
1297: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1298: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1299: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1300: RAISE FND_API.G_EXC_ERROR;
1301: END IF;
1302:
1295: );
1296:
1297: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1298: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1299: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1300: RAISE FND_API.G_EXC_ERROR;
1301: END IF;
1302:
1303:
1296:
1297: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1298: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1299: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1300: RAISE FND_API.G_EXC_ERROR;
1301: END IF;
1302:
1303:
1304: -- Re-set the UI flag to FALSE
1305: OE_GLOBALS.G_UI_FLAG := FALSE;
1306:
1307: -- Set return status.
1308:
1309: x_return_status := FND_API.G_RET_STS_SUCCESS;
1310:
1311: -- Get message count and data
1312:
1313: oe_msg_pub.Count_And_Get
1320: END IF;
1321:
1322: EXCEPTION
1323:
1324: WHEN FND_API.G_EXC_ERROR THEN
1325:
1326: OE_GLOBALS.G_UI_FLAG := FALSE;
1327:
1328: x_return_status := FND_API.G_RET_STS_ERROR;
1324: WHEN FND_API.G_EXC_ERROR THEN
1325:
1326: OE_GLOBALS.G_UI_FLAG := FALSE;
1327:
1328: x_return_status := FND_API.G_RET_STS_ERROR;
1329:
1330: -- Get message count and data
1331:
1332: oe_msg_pub.Count_And_Get
1333: ( p_count => x_msg_count
1334: , p_data => x_msg_data
1335: );
1336:
1337: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1338:
1339: OE_GLOBALS.G_UI_FLAG := FALSE;
1340:
1341: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1337: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1338:
1339: OE_GLOBALS.G_UI_FLAG := FALSE;
1340:
1341: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1342:
1343: -- Get message count and data
1344:
1345: oe_msg_pub.Count_And_Get
1350: WHEN OTHERS THEN
1351:
1352: OE_GLOBALS.G_UI_FLAG := FALSE;
1353:
1354: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1355:
1356: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1357: THEN
1358: oe_msg_pub.Add_Exc_Msg
1406:
1407: OE_Header_Scredit_Util.Lock_Row
1408: ( x_return_status => l_return_status
1409: , p_x_header_Scredit_rec => l_x_header_Scredit_rec );
1410: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1411:
1412: -- Set DB flag and write record to cache.
1413:
1414: l_x_Header_Scredit_rec.db_flag := FND_API.G_TRUE;
1410: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1411:
1412: -- Set DB flag and write record to cache.
1413:
1414: l_x_Header_Scredit_rec.db_flag := FND_API.G_TRUE;
1415:
1416: Write_Header_Scredit
1417: ( p_Header_Scredit_rec => l_x_Header_Scredit_rec
1418: , p_db_record => TRUE
1446: , 'Lock_Row'
1447: );
1448: END IF;
1449:
1450: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1451:
1452: -- Get message count and data
1453:
1454: oe_msg_pub.Count_And_Get
1514: ( p_sales_credit_id => p_sales_credit_id
1515: , x_header_scredit_rec => g_Header_Scredit_rec
1516: );
1517:
1518: g_Header_Scredit_rec.db_flag := FND_API.G_TRUE;
1519:
1520: -- Load DB record
1521:
1522: g_db_Header_Scredit_rec := g_Header_Scredit_rec;