1 PACKAGE BODY jl_zz_fa_drill_down_pkg AS
2 /* $Header: jlzzfddb.pls 120.5 2006/04/04 20:32:45 svaze ship $ */
3
4 ----------------------------------------------------------------------------
5 -- FUNCTION --
6 -- is_JL_FA_drilldown --
7 -- --
8 -- DESCRIPTION --
9 -- Use this function to set the drill down option in the GL inquiry --
10 -- menu for inlfation adjustment categories. --
11 -- --
12 -- PURPOSE: --
13 -- Oracle Applications Rel 11.5 --
14 -- --
15 -- PARAMETERS: --
16 -- p_je_head_id - --
17 -- p_je_source - --
18 -- p_je_category - --
19 -- --
20 -- HISTORY: --
21 -- 01/21/00 Santosh Vaze Created --
22 -- 03-Oct-2005 Cuau Leyva BUG 4650081.Profile for country is replaced --
23 -- by call to JG Shared pkg. --
24 -- --
25 -- --
26 ----------------------------------------------------------------------------
27 FUNCTION is_JL_FA_drilldown (
28 p_je_header_id NUMBER
29 ,p_je_source VARCHAR2
30 ,p_je_category VARCHAR2 ) RETURN BOOLEAN IS
31
32 /* Bug 5136047:
33 In R12 due to SLA uptake, core FA no longer allows "GL journal entry source"
34 to be entered using Book Controls window.
35 "GL journal entry source" is set at the application level in SLA.
36 Though, gl_je_source value is available in fa_book_controls
37 for books upgraded from R11i, the source of truth is always as follows.
38 The "GL journal entry source" will be derived from JE_SOURCE_NAME from
39 XLA_SUBLEDGERS for application_id = 140.
40 Hence, there is no need to look at fa_book_controls for books upgraded
41 from R1i.
42 */
43
44 CURSOR fab_c ( c_jeh_id NUMBER,
45 c_je_source VARCHAR2,
46 c_je_category VARCHAR2) IS
47 SELECT 140
48 FROM DUAL
49 WHERE EXISTS ( SELECT 1
50 FROM fa_book_controls bc,
51 gl_je_headers jeh,
52 xla_subledgers xs
53 WHERE jeh.je_header_id = c_jeh_id
54 AND bc.set_of_books_id = jeh.ledger_id
55 AND xs.je_source_name = c_je_source
56 AND xs.application_id = 140
57 AND bc.book_class = 'TAX'
58 AND bc.global_attribute1 = 'Y'
59 AND c_je_category IN (
60 bc.GLOBAL_ATTRIBUTE6
61 ,bc.GLOBAL_ATTRIBUTE7
62 ,bc.GLOBAL_ATTRIBUTE8
63 ,bc.GLOBAL_ATTRIBUTE9
64 ,bc.GLOBAL_ATTRIBUTE10
65 ,bc.GLOBAL_ATTRIBUTE11
66 ,bc.GLOBAL_ATTRIBUTE12
67 ,bc.GLOBAL_ATTRIBUTE14
68 ,bc.GLOBAL_ATTRIBUTE15
69 ,bc.GLOBAL_ATTRIBUTE16
70 ,bc.GLOBAL_ATTRIBUTE17
71 ,bc.GLOBAL_ATTRIBUTE18 )
72 );
73
74 l_FA_drilldown_flag BOOLEAN;
75 l_dummy NUMBER;
76 l_country_code VARCHAR2(2);
77
78 BEGIN
79
80 l_FA_drilldown_flag := FALSE;
81 -------------------------------------------------------------------------
82 -- BUG 4650081. Profile for country is replaced by call to JG Shared pkg.
83 -------------------------------------------------------------------------
84 l_country_code := JG_ZZ_SHARED_PKG.GET_COUNTRY;
85
86 IF l_country_code IN ('CO') THEN
87 OPEN fab_c ( p_je_header_id, p_je_source, p_je_category);
88 FETCH fab_c INTO l_dummy;
89
90 IF fab_c%FOUND THEN
91 l_FA_drilldown_flag := TRUE;
92 ELSE
93 l_FA_drilldown_flag := FALSE;
94 END IF;
95
96 CLOSE fab_c;
97
98 END IF;
99 RETURN ( l_FA_drilldown_flag );
100
101 EXCEPTION
102 WHEN OTHERS THEN
103
104 RETURN FALSE;
105
106 END is_JL_FA_drilldown;
107
108 END jl_zz_fa_drill_down_pkg;