PACKAGE BODY: APPS.FA_JAPAN_DEP_TAX_DECREASE_PKG

Source

1 PACKAGE BODY FA_JAPAN_DEP_TAX_DECREASE_PKG AS
2 /* $Header: FADTXDB.pls 120.1.12010000.1 2008/07/28 13:11:47 appldev ship $ */
3 
4 function BeforeReport return boolean is
5 
6 	c_state_desc		varchar(240);
7 	loc_flex_struct		number;
8 
9 
10 begin
11 
12 /*SRW.USER_EXIT('FND SRWINIT');*/null;
13 
14 
15 Select
16 	SC.Location_flex_structure,
17 	SOB.Currency_code
18 into	h_loc_flex_struct,
19 	CURRENCY_CODE
20 from	FA_SYSTEM_CONTROLS	SC,
21 	FA_BOOK_CONTROLS	BC,
22 	GL_SETS_OF_BOOKS	SOB
23 where	BC.BOOK_TYPE_CODE = P_BOOK
24 and	SOB.Set_of_books_id = BC.Set_of_books_ID;
25 
26 
27 select 	meaning
28 into 	h_imperial_code
29 from 	FA_LOOKUPS
30 where 	lookup_type ='JP_IMPERIAL'
31 and	lookup_code = to_char(to_date(to_char(p_year),'YYYY'),'E','nls_calendar=''Japanese Imperial''');
32 
33 select to_number(to_char(to_date(to_char(p_year),'YYYY'),'YY','nls_calendar=''Japanese Imperial'''))
34 into   h_imperial_year
35 from dual;
36 
37 
38 
39   return (TRUE);
40 end;
41 
42 function AfterReport return boolean is
43 begin
44 
45 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
46   return (TRUE);
47 end;
48 
49 function BetweenPage return boolean is
50 begin
51   return (TRUE);
52 end;
53 
54 function state_descformula(sum_state in varchar2) return char is
55  c_state_desc varchar2(400);
56 begin
57  c_state_desc :=
58 	fa_rx_flex_pkg.get_description(
59 		p_application_id 	=> 140,
60 		p_id_flex_code		=> 'LOC#',
61 		p_id_flex_num		=> h_loc_flex_struct,
62 		p_qualifier		=> 'LOC_STATE',
63 		p_data			=> sum_state);
64 
65  c_state_desc := sum_state||' - '||c_state_desc;
66 return(C_STATE_DESC);
67 end;
68 
69 function state_countformula(sum_state in varchar2) return number is
70  c_count number;
71 begin
72  select count(asset_id)
73  into c_count
74  from FA_DEPRN_TAX_REP_ITF
75  where request_id = p_request_id
76  and year =p_year
77  and state = sum_state
78  and add_dec_flag ='D';
79 
80  return(c_count);
81 
82 end;
83 
84 --Functions to refer Oracle report placeholders--
85 
86  Function H_IMPERIAL_CODE_p return varchar2 is
87 	Begin
88 	 return H_IMPERIAL_CODE;
89 	 END;
90  Function H_IMPERIAL_YEAR_p return number is
91 	Begin
92 	 return H_IMPERIAL_YEAR;
93 	 END;
94  Function H_STATE_DESC_p return varchar2 is
95 	Begin
96 	 return H_STATE_DESC;
97 	 END;
98  Function CURRENCY_CODE_p return varchar2 is
99 	Begin
100 	 return CURRENCY_CODE;
101 	 END;
102  Function h_loc_flex_struct_p return number is
103 	Begin
104 	 return h_loc_flex_struct;
105 	 END;
106 END FA_JAPAN_DEP_TAX_DECREASE_PKG ;