[Home] [Help]
1: PACKAGE BODY OE_Order_PVT AS
2: /* $Header: OEXVORDB.pls 120.14 2007/12/24 05:07:59 snimmaga ship $ */
3:
4: -- Global constant holding the package name
5:
2: /* $Header: OEXVORDB.pls 120.14 2007/12/24 05:07:59 snimmaga ship $ */
3:
4: -- Global constant holding the package name
5:
6: G_PKG_NAME CONSTANT VARCHAR2(30) := 'OE_Order_PVT';
7: g_header_id NUMBER;
8: g_upgraded_flag VARCHAR2(1);
9: g_booked_flag VARCHAR2(1);
10:
410:
411: x_return_status := FND_API.G_RET_STS_SUCCESS;
412:
413: IF l_debug_level > 0 THEN
414: oe_debug_pub.add( 'ENTERING OE_ORDER_PVT.HEADER' , 1 ) ;
415: END IF;
416:
417: -- This is to check if the order is an upgraded order and is upgraded
418: -- correctly
469: , p_control_rec => p_control_rec
470: );
471:
472: IF l_debug_level > 0 THEN
473: oe_debug_pub.add( 'OE_ORDER_PVT.HEADER AFTER INIT CONTROL REC' , 2 ) ;
474: END IF;
475:
476: -- Set record return status.
477:
807:
808: OE_Header_Security.g_check_all_cols_constraint := 'Y';
809:
810: IF l_debug_level > 0 THEN
811: oe_debug_pub.add( 'EXITING OE_ORDER_PVT.HEADER' , 1 ) ;
812: END IF;
813: OE_MSG_PUB.reset_msg_context('HEADER');
814:
815: set_recursion_mode(p_Entity_Code => 2,
940:
941: -- Init local table variables.
942:
943: IF l_debug_level > 0 THEN
944: oe_debug_pub.add( 'ENTERING OE_ORDER_PVT.HEADER_SCREDITS' , 1 ) ;
945: END IF;
946:
947: -- FOR I IN 1..p_x_Header_Scredit_tbl.COUNT LOOP
948:
1404: I := p_x_Header_Scredit_tbl.NEXT(I);
1405: END LOOP;
1406:
1407: IF l_debug_level > 0 THEN
1408: oe_debug_pub.add( 'EXITING OE_ORDER_PVT.HEADER_SCREDITS' , 1 ) ;
1409: END IF;
1410: OE_MSG_PUB.reset_msg_context('HEADER_SCREDIT');
1411:
1412: set_recursion_mode(p_Entity_Code => 4,
1523:
1524: -- Init local table variables.
1525:
1526: IF l_debug_level > 0 THEN
1527: oe_debug_pub.add( 'ENTERING OE_ORDER_PVT.HEADER_PAYMENTS' , 1 ) ;
1528: END IF;
1529:
1530: -- FOR I IN 1..p_x_Header_Payment_tbl.COUNT LOOP
1531:
2060: I := p_x_Header_Payment_tbl.NEXT(I);
2061: END LOOP;
2062:
2063: IF l_debug_level > 0 THEN
2064: oe_debug_pub.add( 'EXITING OE_ORDER_PVT.HEADER_PAYMENTS' , 1 ) ;
2065: END IF;
2066: OE_MSG_PUB.reset_msg_context('HEADER_PAYMENT');
2067:
2068: EXCEPTION
2420: p_In_out => 1);
2421:
2422: l_num_lines := p_x_line_tbl.COUNT;
2423:
2424: Print_Time('Entering OE_ORDER_PVT.LINES ' || l_num_lines);
2425:
2426: x_return_status := FND_API.G_RET_STS_SUCCESS;
2427:
2428: IF OE_GLOBALS.G_RECURSION_MODE <> 'Y' THEN
3612: (p_control_rec => l_control_rec,
3613: p_x_line_tbl => p_x_line_tbl);
3614:
3615:
3616: Print_Time('Exiting OE_ORDER_PVT.LINES');
3617:
3618: OE_MSG_PUB.reset_msg_context('LINE');
3619:
3620: set_recursion_mode(p_Entity_Code => 5,
3773: SAVEPOINT Line_Scredits;
3774: END IF;
3775:
3776: IF l_debug_level > 0 THEN
3777: oe_debug_pub.add( 'ENTERING OE_ORDER_PVT.LINE_SCREDITS' , 1 ) ;
3778: END IF;
3779:
3780: -- FOR I IN 1..p_x_Line_Scredit_tbl.COUNT LOOP
3781:
4241: END LOOP;
4242:
4243:
4244: IF l_debug_level > 0 THEN
4245: oe_debug_pub.add( 'EXITING OE_ORDER_PVT.LINE_SCREDITS' , 1 ) ;
4246: END IF;
4247: OE_MSG_PUB.reset_msg_context('LINE_SCREDIT');
4248: set_recursion_mode(p_Entity_Code => 7,
4249: p_In_out => 0);
4355: SAVEPOINT Line_Payments;
4356: END IF;
4357:
4358: IF l_debug_level > 0 THEN
4359: oe_debug_pub.add( 'ENTERING OE_ORDER_PVT.LINE_PAYMENTS' , 1 ) ;
4360: END IF;
4361:
4362: -- FOR I IN 1..p_x_Line_Payment_tbl.COUNT LOOP
4363:
4909: END LOOP;
4910:
4911:
4912: IF l_debug_level > 0 THEN
4913: oe_debug_pub.add( 'EXITING OE_ORDER_PVT.LINE_PAYMENTS' , 1 ) ;
4914: END IF;
4915: OE_MSG_PUB.reset_msg_context('LINE_PAYMENT');
4916: EXCEPTION
4917:
5367:
5368: set_recursion_mode(p_Entity_Code => 8,
5369: p_In_out => 1);
5370: IF l_debug_level > 0 THEN
5371: oe_debug_pub.add( 'ENTER OE_ORDER_PVT.PROCESS_REQUESTS_AND_NOTIFY' , 1 ) ;
5372: END IF;
5373:
5374: x_return_status := FND_API.G_RET_STS_SUCCESS;
5375: fnd_profile.get('ONT_NEW_EDI_ACK_FWK', l_edi_ack_pfile);
6024: OE_GLOBALS.G_HEADER_CREATED := FALSE;
6025: END IF;
6026:
6027: IF l_debug_level > 0 THEN
6028: oe_debug_pub.add( 'EXIT OE_ORDER_PVT.PROCESS_REQUESTS_AND_NOTIFY' , 1 ) ;
6029: END IF;
6030: set_recursion_mode(p_Entity_Code => 8,
6031: p_In_out => 0);
6032: IF l_debug_level > 0 THEN
10482: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
10483: BEGIN
10484:
10485: IF l_debug_level > 0 THEN
10486: oe_debug_pub.add( 'ENTERING OE_ORDER_PVT.LOCK_ORDER' , 1 ) ;
10487: END IF;
10488: -- Standard call to check for call compatibility
10489:
10490: IF NOT FND_API.Compatible_API_Call
12144: RAISE;
12145: END Get_Missing_Class_Lines;
12146:
12147:
12148: END OE_Order_PVT;