1 PACKAGE BODY FA_FASINSVR_XMLP_PKG AS
2 /* $Header: FASINSVRB.pls 120.1 2009/07/19 08:59:35 glchen ship $ */
3
4 function AfterReport return boolean is
5 begin
6 /*srw.break;*/null;
7
8 /*srw.user_exit('FND SRWEXIT');*/null;
9 return (TRUE);
10 end;
11
12 function BeforeReport return boolean is
13 begin
14
15 /*srw.user_exit('FND SRWINIT');*/null;
16
17
18 DECLARE
19
20 coaid NUMBER;
21 sobname VARCHAR2(30);
22 functcurr VARCHAR2(15);
23 errbuf VARCHAR2(132);
24
25 BEGIN
26
27
28 SELECT SOB.Set_Of_Books_ID,
29 SOB.name,
30 SC.Category_Flex_Structure,
31 SC.location_flex_structure,
32 BC.Book_Type_Code,
33 BC.book_class,
34 BC.Accounting_Flex_Structure,
35 BC.Distribution_Source_Book,
36 SOB.Currency_Code,
37 CR.Precision,
38 BC.current_fiscal_year,
39 to_char(sysdate,'DD-MON-YYYY,:HH:MI')
40 INTO C_SET_OF_BOOKS_ID,
41 C_SOB_NAME,
42 C_Cat_Flex_Struct,
43 C_locn_flex_struct,
44 C_Book_Type_Code,
45 C_book_class,
46 C_Acct_Flex_Struct,
47 C_Distribution_Source_Book,
48 C_Currency_Code,
49 C_Precision,
50 C_current_fiscal_year,
51 C_TODAYS_DATE
52 FROM FND_CURRENCIES CR,
53 FA_SYSTEM_CONTROLS SC,
54 GL_SETS_OF_BOOKS SOB,
55 FA_BOOK_CONTROLS BC
56
57 WHERE
58 BC.Book_Type_Code = P_ASSET_BOOK
59 AND SOB.Set_Of_Books_ID = BC.Set_Of_Books_ID
60 AND CR.CURRENCY_CODE= SOB.CURRENCY_CODE;
61
62 l_count := SQL%rowcount;
63
64
65
66
67
68 IF P_COMPANY_FROM is not null and
69 P_COMPANY_TO is not null then
70
71 /*SRW.REFERENCE(c_acct_flex_struct);*/null;
72
73
74 null;
75 C_ACCT_FLEX_BAL_WHERE := 'AND'||C_ACCT_FLEX_BAL_WHERE;
76 end if;
77
78
79 /*srw.reference(c_acct_flex_bal_seg);*/null;
80
81 /*SRW.REFERENCE(c_acct_flex_struct);*/null;
82
83
84 null;
85
86
87 IF P_CATEGORY_FLEX_FROM is not null and
88 P_CATEGORY_FLEX_TO is not null then
89
90 /*SRW.REFERENCE(c_cat_flex_struct);*/null;
91
92
93 null;
94 C_WHERE_CAT_FLEX := 'AND'||C_WHERE_CAT_FLEX;
95 end if;
96
97 IF P_LOCATION_FLEX_FROM is not null and
98 P_LOCATION_FLEX_TO is not null then
99
100 /*SRW.REFERENCE(c_locn_flex_struct);*/null;
101
102
103 null;
104 C_WHERE_LOCN_FLEX := 'AND '||C_WHERE_LOCN_FLEX;
105 end if;
106
107 IF P_CAL_METHOD_FROM is not null and
108 P_CAL_METHOD_TO is not null then
109 c_where_cal_method := 'and fmp.calculation_method between '''||P_CAL_METHOD_FROM||
110 ''' and '''||P_CAL_METHOD_TO || '''';
111
112 END IF;
113
114 IF P_INSURANCE_COMPANY_FROM is not null and
115 P_INSURANCE_COMPANY_TO is not null then
116
117 SELECT vendor_name
118 INTO cp_insurance_from
119 FROM po_vendors
120 where vendor_id = P_INSURANCE_COMPANY_FROM;
121
122 SELECT vendor_name
123 INTO cp_insurance_to
124 FROM po_vendors
125 where vendor_id = P_INSURANCE_COMPANY_TO;
126
127 c_where_ins_company := 'and pvo.vendor_name between '''||CP_INSURANCE_FROM
128 || ''' and ''' ||CP_INSURANCE_TO || '''';
129 END IF;
130
131 IF P_ASSET_NUMBER_FROM is not null and
132 P_ASSET_NUMBER_TO is not null then
133 c_where_asset_number := 'and fad.asset_number between '''|| P_ASSET_NUMBER_FROM
134 ||''' and ''' || P_ASSET_NUMBER_TO || '''';
135 END IF;
136
137 IF C_CURRENT_FISCAL_YEAR <> P_YEAR THEN
138 c_where_old_ins_data := ' and fiv.indexation_year = ' || P_YEAR;
139 END IF;
140
141 END;
142 /*srw.break;*/null;
143
144 return (TRUE);
145 end;
146
147 function CF_NO_DATA_FOUNDFormula return Number is
148 begin
149 c_no_data_found := 'N';
150 return(1);
151 end;
152
153 --Functions to refer Oracle report placeholders--
154
155 Function c_acct_flex_struct_p return number is
156 Begin
157 return c_acct_flex_struct;
158 END;
159 Function c_acct_flex_bal_seg_p return varchar2 is
160 Begin
161 return c_acct_flex_bal_seg;
162 END;
163 Function c_cat_flex_struct_p return number is
164 Begin
165 return c_cat_flex_struct;
166 END;
167 Function c_where_cat_flex_p return varchar2 is
168 Begin
169 return c_where_cat_flex ;
170 END;
171 Function c_cat_flex_seg_p return varchar2 is
172 Begin
173 return c_cat_flex_seg;
174 END;
175 Function C_SOB_NAME_p return varchar2 is
176 Begin
177 return C_SOB_NAME;
178 END;
179 Function c_book_class_p return varchar2 is
180 Begin
181 return c_book_class;
182 END;
183 Function c_book_type_code_p return varchar2 is
184 Begin
185 return c_book_type_code;
186 END;
187 Function c_distribution_source_book_p return varchar2 is
188 Begin
189 return c_distribution_source_book;
190 END;
191 Function C_currency_code_p return varchar2 is
192 Begin
193 return C_currency_code;
194 END;
195 Function c_precision_p return number is
196 Begin
197 return c_precision;
198 END;
199 Function c_locn_flex_struct_p return number is
200 Begin
201 return c_locn_flex_struct;
202 END;
203 Function c_loc_flex_seg_p return varchar2 is
204 Begin
205 return c_loc_flex_seg;
206 END;
207 Function c_where_locn_flex_p return varchar2 is
208 Begin
209 return c_where_locn_flex;
210 END;
211 Function c_acct_flex_bal_where_p return varchar2 is
212 Begin
213 return c_acct_flex_bal_where;
214 END;
215 Function C_NO_DATA_FOUND_p return varchar2 is
216 Begin
217 return C_NO_DATA_FOUND;
218 END;
219 Function C_TODAYS_DATE_p return varchar2 is
220 Begin
221 return C_TODAYS_DATE;
222 END;
223 Function c_where_cal_method_p return varchar2 is
224 Begin
225 return c_where_cal_method;
226 END;
227 Function c_where_ins_company_p return varchar2 is
228 Begin
229 return c_where_ins_company;
230 END;
231 Function c_where_asset_number_p return varchar2 is
232 Begin
233 return c_where_asset_number;
234 END;
235 Function C_WHERE_OLD_INS_DATA_p return varchar2 is
236 Begin
237 return C_WHERE_OLD_INS_DATA;
238 END;
239 Function C_CURRENT_FISCAL_YEAR_p return varchar2 is
240 Begin
241 return C_CURRENT_FISCAL_YEAR;
242 END;
243 Function L_count_p return number is
244 Begin
245 return L_count;
246 END;
247 Function CP_insurance_from_p return varchar2 is
248 Begin
249 return CP_insurance_from;
250 END;
251 Function CP_insurance_to_p return varchar2 is
252 Begin
253 return CP_insurance_to;
254 END;
255 END FA_FASINSVR_XMLP_PKG ;
256