1 PACKAGE BODY FA_JAPAN_DEP_TAX_ADDITION_PKG AS
2 /* $Header: FADTXAB.pls 120.1.12010000.2 2009/07/19 12:47:42 glchen ship $ */
3
4 function BeforeReport return boolean is
5
6 begin
7
8 Select
9 SC.Location_flex_structure,
10 SOB.Currency_code
11 into h_loc_flex_struct,
12 CURRENCY_CODE
13 from FA_SYSTEM_CONTROLS SC,
14 FA_BOOK_CONTROLS BC,
15 GL_SETS_OF_BOOKS SOB
16 where BC.BOOK_TYPE_CODE = P_BOOK
17 and SOB.Set_of_books_id = BC.Set_of_books_ID;
18
19
20 select meaning
21 into h_classification
22 from FA_LOOKUPS
23 where lookup_type ='JP_CLASSIFICATION'
24 and lookup_code = p_classification;
25
26 if p_classification = 'ADDITION' then
27 h_where :='DTI.ADD_DEC_FLAG = ''A'' ';
28 else
29 h_where :='DTI.END_COST >0';
30 end if;
31
32 if p_pagesize =132 then
33 h_currency_width :=10;
34 else
35 h_currency_width :=15;
36 end if;
37
38
39 select meaning
40 into h_imperial_code
41 from FA_LOOKUPS
42 where lookup_type ='JP_IMPERIAL'
43 and lookup_code = to_char(to_date(to_char(p_year),'YYYY'),'E','nls_calendar=''Japanese Imperial''');
44
45 select to_number(to_char(to_date(to_char(p_year),'YYYY'),'YY','nls_calendar=''Japanese Imperial'''))
46 into h_imperial_year
47 from dual;
48
49 return (TRUE);
50
51 EXCEPTION
52 when no_data_found then
53 h_no_data_found :=0;
54
55 return (TRUE);
56
57 end;
58
59 function AfterReport return boolean is
60 begin
61
62 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
63 return (TRUE);
64 end;
65
66 function d_state_descformula0005(sum_state in varchar2) return char is
67 c_state_desc varchar2(400);
68 begin
69 c_state_desc :=
70 fa_rx_flex_pkg.get_description(
71 p_application_id => 140,
72 p_id_flex_code => 'LOC#',
73 p_id_flex_num => h_loc_flex_struct,
74 p_qualifier => 'LOC_STATE',
75 p_data => sum_state);
76
77 c_state_desc := sum_state||' - '||c_state_desc;
78 return(C_STATE_DESC);
79
80 end;
81
82 function d_decisionformula0007(sum_state in varchar2) return char is
83 c_sum_theoretical_nbv number;
84 c_sum_evaluated_nbv number;
85 l_decision varchar2(20);
86 begin
87
88 if p_decision_cost ='THEORETICAL' then
89 l_decision :='THEORETICAL';
90 elsif p_decision_cost ='EVALUATED' then
91 l_decision :='EVALUATED';
92 else
93
94 select sum(theoretical_nbv), sum(evaluated_nbv)
95 into c_sum_theoretical_nbv, c_sum_evaluated_nbv
96 from FA_DEPRN_TAX_REP_ITF DTI
97 where DTI.END_COST >0
98 and DTI.STATE = sum_state
99 and DTI.REQUEST_ID = p_request_id;
100
101 if c_sum_theoretical_nbv > c_sum_evaluated_nbv then
102 l_decision :='THEORETICAL';
103 else
104 l_decision :='EVALUATED';
105 end if;
106 end if;
107
108 /*SRW.MESSAGE(1,'State:'||sum_state||'- DECISION COST:'||l_decision);*/null;
109
110
111 return(l_decision);
112
113 end;
114
115 function d_state_countformula(sum_state in varchar2) return number is
116 c_count number;
117 begin
118
119 if p_classification ='ADDITION' then
120 select count(asset_id)
121 into c_count
122 from FA_DEPRN_TAX_REP_ITF
123 where request_id = p_request_id
124 and year =p_year
125 and state = sum_state
126 and add_dec_flag='A';
127 else select count(asset_id)
128 into c_count
129 from FA_DEPRN_TAX_REP_ITF
130 where request_id = p_request_id
131 and year =p_year
132 and state = sum_state
133 and end_cost >0;
134 end if;
135
136 return(c_count);
137 end;
138
139 --Functions to refer Oracle report placeholders--
140
141 Function H_WHERE_p return varchar2 is
142 Begin
143 return H_WHERE;
144 END;
145 Function H_DECISION_p return varchar2 is
146 Begin
147 return H_DECISION;
148 END;
149 Function H_IMPERIAL_CODE_p return varchar2 is
150 Begin
151 return H_IMPERIAL_CODE;
152 END;
153 Function H_IMPERIAL_YEAR_p return number is
154 Begin
155 return H_IMPERIAL_YEAR;
156 END;
157 Function H_NO_DATA_FOUND_p return number is
158 Begin
159 return H_NO_DATA_FOUND;
160 END;
161 Function H_STATE_DESC_p return varchar2 is
162 Begin
163 return H_STATE_DESC;
164 END;
165 Function CURRENCY_CODE_p return varchar2 is
166 Begin
167 return CURRENCY_CODE;
168 END;
169 Function H_CURRENCY_WIDTH_p return number is
170 Begin
171 return H_CURRENCY_WIDTH;
172 END;
173 Function H_CLASSIFICATION_p return varchar2 is
174 Begin
175 return H_CLASSIFICATION;
176 END;
177 Function h_loc_flex_struct_p return number is
178 Begin
179 return h_loc_flex_struct;
180 END;
181 END FA_JAPAN_DEP_TAX_ADDITION_PKG ;