1: PACKAGE BODY OE_DEFAULT_HEADER_PAYMENT AS
2: /* $Header: OEXDHPMB.pls 120.3.12010000.2 2009/12/08 11:48:09 msundara ship $ */
3:
4: -- Global constant holding the package name
5: G_PKG_NAME CONSTANT VARCHAR2(30) := 'OE_Default_Header_Payment';
1: PACKAGE BODY OE_DEFAULT_HEADER_PAYMENT AS
2: /* $Header: OEXDHPMB.pls 120.3.12010000.2 2009/12/08 11:48:09 msundara ship $ */
3:
4: -- Global constant holding the package name
5: G_PKG_NAME CONSTANT VARCHAR2(30) := 'OE_Default_Header_Payment';
6:
7: g_header_payment_rec OE_AK_HEADER_PAYMENTS_V%ROWTYPE;
8:
9: PROCEDURE Attributes
24: l_defer varchar2(1) := NULL;
25:
26: BEGIN
27: IF l_debug_level > 0 THEN
28: oe_debug_pub.add( 'ENTER OE_DEFAULT_HEADER_PAYMENT.ATTRIBUTES' ) ;
29: END IF;
30:
31: l_operation := p_x_header_payment_rec.operation;
32:
177: p_x_Header_Payment_rec.lock_control := NULL;
178: END IF;
179:
180: IF l_debug_level > 0 THEN
181: oe_debug_pub.add( 'EXIT OE_DEFAULT_HEADER_PAYMENT.ATTRIBUTES' ) ;
182: END IF;
183:
184: EXCEPTION
185:
215: --
216: BEGIN
217:
218: IF l_debug_level > 0 THEN
219: oe_debug_pub.add( 'In OE_Default_Header_Payment: FUNCTION Get_Payment_Number' ) ;
220: oe_debug_pub.add( 'header_id is: '||p_header_id ) ;
221: END IF;
222:
223: IF p_header_id IS NOT NULL
267: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
268:
269: END Get_Payment_Number;
270:
271: END OE_Default_Header_Payment ;