PACKAGE BODY: APPS.INV_3PL_BILLING_PUB

Source

1 PACKAGE BODY INV_3PL_BILLING_PUB AS
2 /* $Header: INVPBLRB.pls 120.1 2010/05/25 11:01:05 damahaja noship $ */
3 
4     G_PKG_NAME CONSTANT VARCHAR2(30) := 'INV_3PL_BILLING_PUB';
5     g_debug       NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
6 
7     PROCEDURE debug(p_message  IN  VARCHAR2)
8     IS
9     BEGIN
10         inv_log_util.trace(p_message, G_PKG_NAME , 10 );
11     EXCEPTION
12         WHEN OTHERS THEN
13              NULL;
14     END debug;
15 
16     FUNCTION set_billing_source_rec
17           ( p_billing_source_rec source_rec_type
18            ) RETURN BOOLEAN
19     IS
20           l_return_val BOOLEAN := FALSE;
21     BEGIN
22         IF g_debug = 1 THEN
23             debug('In set_billing_source_rec=> Populate global g_billing_source_rec ');
24         END IF;
25         g_billing_source_rec := p_billing_source_rec;
26         l_return_val := TRUE;
27         RETURN l_return_val;
28     EXCEPTION
29        WHEN OTHERS THEN
30             IF g_debug = 1 THEN
31                 debug('Exception raised => '||SQLERRM);
32             END IF;
33           RETURN l_return_val;
34     END set_billing_source_rec;
35 
36 END INV_3PL_BILLING_PUB;