[Home] [Help]
PACKAGE BODY: APPS.JG_ZZ_FA_DRILL_DOWN_PKG
Source
1 PACKAGE BODY jg_zz_fa_drill_down_pkg AS
2 /* $Header: jgzzfddb.pls 120.2 2005/08/25 23:24:36 cleyvaol ship $ */
3
4 ----------------------------------------------------------------------------
5 -- FUNCTION --
6 -- is_JG_FA_drilldown --
7 -- --
8 -- DESCRIPTION --
9 -- Use this function to branch program flow to region specific --
10 -- functions which will further set the drill down option in the GL --
11 -- inquiry menu for inflation adjustment categories. --
12 -- --
13 -- PURPOSE: --
14 -- Oracle Applications Rel 11.5 --
15 -- --
16 -- PARAMETERS: --
17 -- p_je_head_id --
18 -- p_je_source --
19 -- p_je_category --
20 -- --
21 -- HISTORY: --
22 -- 01/21/00 Santosh Vaze Created --
23 ----------------------------------------------------------------------------
24 FUNCTION is_JG_FA_drilldown (
25 p_je_header_id NUMBER
26 ,p_je_source VARCHAR2
27 ,p_je_category VARCHAR2 ) RETURN BOOLEAN IS
28
29 l_FA_drilldown_flag BOOLEAN;
30 l_product_code VARCHAR2(2);
31
32 ------------------------------------------------------------
33 -- Main function body. --
34 ------------------------------------------------------------
35 BEGIN
36
37 l_FA_drilldown_flag := FALSE;
38 l_product_code := FND_PROFILE.VALUE('JGZZ_PRODUCT_CODE');
39 IF l_product_code IS NOT NULL THEN
40 IF l_product_code = 'JL' THEN
41 l_FA_drilldown_flag := jl_zz_fa_drill_down_pkg.is_JL_FA_drilldown(
42 p_je_header_id,
43 p_je_source,
44 p_je_category);
45 END IF;
46 END IF;
47
48 RETURN l_FA_drilldown_flag;
49
50 EXCEPTION
51 WHEN OTHERS THEN
52
53 RETURN FALSE;
54
55 END is_JG_FA_drilldown;
56
57 END jg_zz_fa_drill_down_pkg;