PACKAGE BODY: APPS.PA_REV_INTERFACE_UTIL

Source

1 PACKAGE BODY PA_REV_INTERFACE_UTIL AS
2 /* $Header: PAXFRVUB.pls 120.3 2006/05/03 06:35:17 rkchoudh noship $ */
3 
4   PROCEDURE set_xfc_unrel_rev_flag
5   IS
6   BEGIN
7     fnd_profile.get('PA_INTERFACE_UNRELEASED_REVENUE',
8                         g_interface_unreleased_revenue);
9   END set_xfc_unrel_rev_flag;
10 
11   FUNCTION allow_unreleased_rev ( released_date date ) return VARCHAR2
12   IS
13   BEGIN
14 
15       IF released_date is null THEN
16         IF NVL(g_interface_unreleased_revenue,'N') = 'Y' THEN  -- Bug 5198467
17          return 'Y';
18         ELSE
19          return  'N' ;
20         END IF;
21       ELSE
22         return  'Y' ;
23       END IF;
24 
25   END allow_unreleased_rev;
26 
27 END PA_REV_INTERFACE_UTIL;