29: l_return_status VARCHAR2(1);
30: l_x_header_rec OE_Order_PUB.Header_Rec_Type;
31: l_error NUMBER := 0;
32: --
33: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
34:
35: x_line_tbl OE_Order_PUB.Line_Tbl_Type;
36: x_old_line_tbl OE_ORDER_PUB.Line_Tbl_Type;
37: x_line_val_tbl OE_ORDER_PUB.Line_Val_Tbl_Type;
37: x_line_val_tbl OE_ORDER_PUB.Line_Val_Tbl_Type;
38: l_fname varchar2(1000);
39: BEGIN
40:
41: oe_debug_pub.g_debug_level := FND_PROFILE.VALUE('ONT_DEBUG_LEVEL');
42: l_fname := oe_Debug_pub.set_debug_mode('FILE');
43:
44: oe_debug_pub.debug_on;
45:
38: l_fname varchar2(1000);
39: BEGIN
40:
41: oe_debug_pub.g_debug_level := FND_PROFILE.VALUE('ONT_DEBUG_LEVEL');
42: l_fname := oe_Debug_pub.set_debug_mode('FILE');
43:
44: oe_debug_pub.debug_on;
45:
46: IF l_debug_level > 0 THEN
40:
41: oe_debug_pub.g_debug_level := FND_PROFILE.VALUE('ONT_DEBUG_LEVEL');
42: l_fname := oe_Debug_pub.set_debug_mode('FILE');
43:
44: oe_debug_pub.debug_on;
45:
46: IF l_debug_level > 0 THEN
47: oe_debug_pub.add( 'ENTERING Oe_Oe_Html_Line.DEFAULT_ATTRIBUTES' , 1 ) ;
48: END IF;
43:
44: oe_debug_pub.debug_on;
45:
46: IF l_debug_level > 0 THEN
47: oe_debug_pub.add( 'ENTERING Oe_Oe_Html_Line.DEFAULT_ATTRIBUTES' , 1 ) ;
48: END IF;
49:
50: l_error := 1;
51: -- Set UI flag to TRUE
198: -- Populate line table
199:
200:
201: IF l_debug_level > 0 THEN
202: oe_debug_pub.add( 'LINE CONTROLLER - DEFAULT ATTRIBUTES - CALLING PROCESS' , 2 ) ;
203: END IF;
204:
205: -- Call Oe_Order_Pvt.Process_order
206:
217: );
218:
219: l_error := 3;
220: IF l_debug_level > 0 THEN
221: oe_debug_pub.add( 'LINE CONTROLLER - DEFAULT ATTRIBUTES - AFTER PROCESS' , 2 ) ;
222: END IF;
223:
224: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
225: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
240: );
241: -- Set db_flag to False before writing to cache
242:
243: IF l_debug_level > 0 THEN
244: oe_debug_pub.add( 'LINE CONTROLLER - DEFAULT ATTRIBUTES - CALLING WRITE LINE' , 2 ) ;
245: END IF;
246:
247: x_line_tbl(1).db_flag := FND_API.G_FALSE;
248:
261: , p_data => x_msg_data
262: );
263:
264: IF l_debug_level > 0 THEN
265: oe_debug_pub.add( 'EXITING Oe_Oe_Html_Line.DEFAULT_ATTRIBUTES' , 1 ) ;
266: END IF;
267:
268: EXCEPTION
269:
347: file_name varchar2(100);
348: i pls_Integer;
349: L_PRICE_CONTROL_REC QP_PREQ_GRP.control_record_type;
350: --
351: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
352: --
353:
354: x_line_tbl OE_Order_PUB.Line_Tbl_Type;
355: x_old_line_tbl OE_ORDER_PUB.Line_Tbl_Type;
356: x_line_val_tbl OE_ORDER_PUB.Line_Val_Tbl_Type;
357: BEGIN
358:
359: IF l_debug_level > 0 THEN
360: oe_debug_pub.add( 'ENTERING Oe_Oe_Html_Line.CHANGE_ATTRIBUTES' , 1 ) ;
361: END IF;
362:
363: -- Set UI flag to TRUE
364: OE_GLOBALS.G_UI_FLAG := TRUE;
386:
387:
388:
389: IF l_debug_level > 0 THEN
390: oe_debug_pub.add( 'SETTING OPERATION' , 2 ) ;
391: END IF;
392:
393: x_line_tbl(1):=x_line_Rec;
394: x_old_line_tbl(1):=x_old_line_Rec;
404: -- Validate Scheduling Dates Changes, if any.
405:
406:
407: IF l_debug_level > 0 THEN
408: oe_debug_pub.add( 'CALLING PROCESS ORDER' , 2 ) ;
409: oe_debug_pub.add( 'BEFORE CALLING PROCESS ORDER' , 1 ) ;
410: END IF;
411:
412: -- Call Oe_Order_Pvt.Process_order
405:
406:
407: IF l_debug_level > 0 THEN
408: oe_debug_pub.add( 'CALLING PROCESS ORDER' , 2 ) ;
409: oe_debug_pub.add( 'BEFORE CALLING PROCESS ORDER' , 1 ) ;
410: END IF;
411:
412: -- Call Oe_Order_Pvt.Process_order
413: Oe_Order_Pvt.Lines
422:
423:
424: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
425: IF l_debug_level > 0 THEN
426: oe_debug_pub.add( 'PROCESS ORDER RETURN UNEXP_ERROR' , 2 ) ;
427: END IF;
428: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
429: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
430: IF l_debug_level > 0 THEN
427: END IF;
428: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
429: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
430: IF l_debug_level > 0 THEN
431: oe_debug_pub.add( 'PROCESS ORDER RETURN RET_STS_ERROR' , 2 ) ;
432: END IF;
433: RAISE FND_API.G_EXC_ERROR;
434: END IF;
435:
448:
449:
450: -- Write to cache.
451: IF l_debug_level > 0 THEN
452: oe_debug_pub.add( 'WRITING TO CACHE' , 2 ) ;
453: END IF;
454:
455:
456: -- Re-set the UI flag to FALSE
470: , p_data => x_msg_data
471: );
472:
473: IF l_debug_level > 0 THEN
474: oe_debug_pub.add( 'EXITING Oe_Oe_Html_Line.CHANGE_ATTRIBUTE' , 1 ) ;
475: END IF;
476:
477: EXCEPTION
478:
543: l_x_old_line_tbl OE_Order_PUB.Line_Tbl_Type;
544: l_control_rec OE_GLOBALS.Control_Rec_Type;
545: l_return_status VARCHAR2(1);
546: --
547: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
548: --
549: BEGIN
550: SAVEPOINT LINE_DELETE;
551: IF l_debug_level > 0 THEN
548: --
549: BEGIN
550: SAVEPOINT LINE_DELETE;
551: IF l_debug_level > 0 THEN
552: oe_debug_pub.add( 'ENTERING Oe_Oe_Html_Line.DELETE_ROW' , 1 ) ;
553: END IF;
554:
555: -- Set UI flag to TRUE
556: OE_GLOBALS.G_UI_FLAG := TRUE;
619: , p_data => x_msg_data
620: );
621:
622: IF l_debug_level > 0 THEN
623: oe_debug_pub.add( 'EXITING Oe_Oe_Html_Line.DELETE_ROW' , 1 ) ;
624: END IF;
625:
626: EXCEPTION
627:
691: IS
692: l_return_status VARCHAR2(1);
693: l_x_line_rec OE_Order_PUB.Line_Rec_Type;
694: --
695: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
696: --
697: BEGIN
698:
699: IF l_debug_level > 0 THEN
696: --
697: BEGIN
698:
699: IF l_debug_level > 0 THEN
700: oe_debug_pub.add( 'ENTERING Oe_Oe_Html_Line.LOCK_ROW' , 1 ) ;
701: END IF;
702:
703: -- Load line record
704:
721: -- Set DB flag and write record to cache.
722:
723: l_x_line_rec.db_flag := FND_API.G_TRUE;
724: IF l_debug_level > 0 THEN
725: oe_debug_pub.add( 'EXITING Oe_Oe_Html_Line.LOCK_ROW'||L_X_LINE_REC.LINE_ID , 1 ) ;
726: END IF;
727:
728:
729: END IF;
744: , p_data => x_msg_data
745: );
746:
747: IF l_debug_level > 0 THEN
748: oe_debug_pub.add( 'EXITING Oe_Oe_Html_Line.LOCK_ROW' , 1 ) ;
749: END IF;
750:
751: EXCEPTION
752: WHEN FND_API.G_EXC_ERROR THEN
809: )
810: IS
811: l_return_status Varchar2(30);
812: --
813: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
814: --
815: l_new_line_rec OE_Order_PUB.Line_Rec_Type; --3445778
816: l_old_line_rec OE_Order_PUB.Line_Rec_Type; --3445778
817: l_index NUMBER; --3445778
824: ,p_entity_id => p_line_id
825: ,x_return_status => l_return_status);
826:
827: -- Added for bug 3445778
828: oe_debug_pub.add('Executing code for updating global picture, line_id: ' || p_line_id, 1);
829:
830: -- Set the operation on the record so that globals are updated
831: l_new_line_rec.operation := OE_GLOBALS.G_OPR_DELETE;
832: l_new_line_rec.line_id := p_line_id;