1: PACKAGE BODY oe_commitment_pvt AS
2: /* $Header: OEXVCMTB.pls 115.34 2004/07/22 00:03:27 lkxu ship $ */
3:
4: -- Global constant holding the package name
5:
2: /* $Header: OEXVCMTB.pls 115.34 2004/07/22 00:03:27 lkxu ship $ */
3:
4: -- Global constant holding the package name
5:
6: G_PKG_NAME CONSTANT VARCHAR2(30) := 'oe_commitment_pvt';
7: g_fmt_mask VARCHAR2(500);
8:
9: -- ar_balance :=
10: -- oe_balance := balance that has not been invoiced yet
51: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
52: --
53: BEGIN
54: IF l_debug_level > 0 THEN
55: oe_debug_pub.add( 'ENTERING OE_COMMITMENT_PVT' ) ;
56: END IF;
57: x_return_status := FND_API.G_RET_STS_SUCCESS;
58:
59:
249: --
250: BEGIN
251:
252: IF l_debug_level > 0 THEN
253: oe_debug_pub.add( 'ENTERING OE_COMMITMENT_PVT.GET_LINE_TOTAL.' , 1 ) ;
254: END IF;
255:
256: l_allocate_tax_freight := Get_Allocate_Tax_Freight(p_line_rec => p_line_rec);
257:
255:
256: l_allocate_tax_freight := Get_Allocate_Tax_Freight(p_line_rec => p_line_rec);
257:
258: IF l_debug_level > 0 THEN
259: oe_debug_pub.add( 'IN OE_COMMITMENT_PVT , ALLOCATE_TAX_FREIGHT IS: '||L_ALLOCATE_TAX_FREIGHT , 3 ) ;
260: END IF;
261:
262: -- get line level charges
263: IF nvl(p_line_rec.ordered_quantity, 0) > 0 THEN
341: --
342: BEGIN
343:
344: IF l_debug_level > 0 THEN
345: oe_debug_pub.add( 'ENTERING OE_COMMITMENT_PVT.CALCULATE_COMMITMENT FOR LINE: '||l_LINE_ID , 1 ) ;
346: END IF;
347:
348: BEGIN
349: SELECT l.header_id
727:
728: END IF;
729:
730: IF l_debug_level > 0 THEN
731: oe_debug_pub.add( 'EXITING OE_COMMITMENT_PVT.CALCULATE_COMMITMENT.' , 1 ) ;
732: END IF;
733:
734: END calculate_commitment;
735:
767: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
768: THEN
769: FND_MSG_PUB.Add_Exc_Msg
770: ( G_PKG_NAME
771: ,'OE_COMMITMENT_PVT.GET_COMMITMENT_APPLIED_AMOUNT'
772: );
773: END IF;
774:
775: END get_commitment_applied_amount;
1004: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1005: THEN
1006: FND_MSG_PUB.Add_Exc_Msg
1007: ( G_PKG_NAME
1008: ,'OE_COMMITMENT_PVT.DO_COMMITMENT_SEQUENCING'
1009: );
1010: END IF;
1011:
1012: END Do_Commitment_Sequencing;
1144: END IF;
1145:
1146: END update_commitment_applied;
1147:
1148: END oe_commitment_pvt;
1149: