[Home] [Help]
PACKAGE BODY: APPS.JL_JLZZFIJR_XMLP_PKG
Source
1 PACKAGE BODY JL_JLZZFIJR_XMLP_PKG AS
2 /* $Header: JLZZFIJRB.pls 120.1 2007/12/25 16:54:03 dwkrishn noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 BEGIN
5 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
6 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
7 IF P_CA_SET_OF_BOOKS_ID <> -1999 THEN
8 /*SRW.MESSAGE(1
9 ,'SOB' || TO_CHAR(P_CA_SET_OF_BOOKS_ID))*/NULL;
10 /*SRW.MESSAGE(1
11 ,'Curr' || CP_PARAM_CURRENCY || 'END')*/NULL;
12 BEGIN
13 SELECT
14 GSOB.MRC_SOB_TYPE_CODE,
15 GSOB.CURRENCY_CODE
16 INTO P_MRCSOBTYPE,CP_PARAM_CURRENCY
17 FROM
18 GL_SETS_OF_BOOKS GSOB
19 WHERE GSOB.SET_OF_BOOKS_ID = P_CA_SET_OF_BOOKS_ID;
20 EXCEPTION
21 WHEN OTHERS THEN
22 P_MRCSOBTYPE := 'P';
23 /*SRW.MESSAGE(2
24 ,'Curr' || CP_PARAM_CURRENCY || 'END')*/NULL;
25 END;
26 ELSE
27 P_MRCSOBTYPE := 'P';
28 END IF;
29 /*SRW.MESSAGE(3
30 ,'Curr' || CP_PARAM_CURRENCY || 'END')*/NULL;
31 IF UPPER(P_MRCSOBTYPE) = 'R' THEN
32 LP_FA_BOOK_CONTROLS := 'FA_BOOK_CONTROLS_MRC_V';
33 LP_FA_BOOKS := 'FA_BOOKS_MRC_V';
34 LP_FA_ADJUSTMENTS := 'FA_ADJUSTMENTS_MRC_V';
35 LP_FA_DEPRN_PERIODS := 'FA_DEPRN_PERIODS_MRC_V';
36 LP_FA_DEPRN_SUMMARY := 'FA_DEPRN_SUMMARY_MRC_V';
37 LP_FA_DEPRN_DETAIL := 'FA_DEPRN_DETAIL_MRC_V';
38 ELSE
39 LP_FA_BOOK_CONTROLS := 'FA_BOOK_CONTROLS';
40 LP_FA_BOOKS := 'FA_BOOKS';
41 LP_FA_ADJUSTMENTS := 'FA_ADJUSTMENTS';
42 LP_FA_DEPRN_PERIODS := 'FA_DEPRN_PERIODS';
43 LP_FA_DEPRN_SUMMARY := 'FA_DEPRN_SUMMARY';
44 LP_FA_DEPRN_DETAIL := 'FA_DEPRN_DETAIL';
45 END IF;
46 RETURN (TRUE);
47 END BEFOREREPORT;
48
49 FUNCTION REPORT_NAMEFORMULA(COMPANY_NAME IN VARCHAR2) RETURN VARCHAR2 IS
50 BEGIN
51 DECLARE
52 L_REPORT_NAME VARCHAR2(2000);
53 L_CONC_PROGRAM_ID NUMBER;
54 BEGIN
55 CP_COMPANY_NAME := COMPANY_NAME;
56 SELECT
57 CR.CONCURRENT_PROGRAM_ID
58 INTO L_CONC_PROGRAM_ID
59 FROM
60 FND_CONCURRENT_REQUESTS CR
61 WHERE CR.PROGRAM_APPLICATION_ID = 7004
62 AND CR.REQUEST_ID = P_CONC_REQUEST_ID;
63 SELECT
64 CP.USER_CONCURRENT_PROGRAM_NAME
65 INTO L_REPORT_NAME
66 FROM
67 FND_CONCURRENT_PROGRAMS_VL CP
68 WHERE CP.CONCURRENT_PROGRAM_ID = L_CONC_PROGRAM_ID
69 AND CP.APPLICATION_ID = 7004;
70 l_report_name := substr(l_report_name,1,instr(l_report_name,' (XML)'));
71 CP_REPORT_NAME := L_REPORT_NAME;
72 RETURN (CP_REPORT_NAME);
73 EXCEPTION
74 WHEN OTHERS THEN
75 CP_REPORT_NAME := 'Inflation Adjusted Asset Summary Report';
76 RETURN (CP_REPORT_NAME);
77 END;
78 RETURN NULL;
79 END REPORT_NAMEFORMULA;
80
81 FUNCTION BOOKFORMULA RETURN VARCHAR2 IS
82 BEGIN
83 DECLARE
84 L_BOOK VARCHAR2(15);
85 L_BOOK_CLASS VARCHAR2(15);
86 L_CURRENCY_CODE VARCHAR2(15);
87 L_DISTRIBUTION_SOURCE_BOOK VARCHAR2(15);
88 L_PRECISION NUMBER(15);
89 BEGIN
90 IF UPPER(P_MRCSOBTYPE) = 'R' THEN
91 BEGIN
92 SELECT
93 BC.BOOK_TYPE_CODE,
94 BC.BOOK_CLASS,
95 BC.DISTRIBUTION_SOURCE_BOOK,
96 SOB.CURRENCY_CODE,
97 CUR.PRECISION
98 INTO L_BOOK,L_BOOK_CLASS,L_DISTRIBUTION_SOURCE_BOOK,L_CURRENCY_CODE,L_PRECISION
99 FROM
100 FA_BOOK_CONTROLS_MRC_V BC,
101 GL_SETS_OF_BOOKS SOB,
102 FND_CURRENCIES CUR
103 WHERE BC.BOOK_TYPE_CODE = P_BOOK
104 AND SOB.SET_OF_BOOKS_ID = BC.SET_OF_BOOKS_ID
105 AND SOB.CURRENCY_CODE = CUR.CURRENCY_CODE;
106 END;
107 ELSE
108 BEGIN
109 SELECT
110 BC.BOOK_TYPE_CODE,
111 BC.BOOK_CLASS,
112 BC.DISTRIBUTION_SOURCE_BOOK,
113 SOB.CURRENCY_CODE,
114 CUR.PRECISION
115 INTO L_BOOK,L_BOOK_CLASS,L_DISTRIBUTION_SOURCE_BOOK,L_CURRENCY_CODE,L_PRECISION
116 FROM
117 FA_BOOK_CONTROLS BC,
118 GL_SETS_OF_BOOKS SOB,
119 FND_CURRENCIES CUR
120 WHERE BC.BOOK_TYPE_CODE = P_BOOK
121 AND SOB.SET_OF_BOOKS_ID = BC.SET_OF_BOOKS_ID
122 AND SOB.CURRENCY_CODE = CUR.CURRENCY_CODE;
123 END;
124 END IF;
125 BOOK_CLASS := L_BOOK_CLASS;
126 DISTRIBUTION_SOURCE_BOOK := L_DISTRIBUTION_SOURCE_BOOK;
127 P_MIN_PRECISION := L_PRECISION;
128 CURRENCY_CODE := L_CURRENCY_CODE;
129 RETURN (L_BOOK);
130 END;
131 RETURN NULL;
132 END BOOKFORMULA;
133
134 FUNCTION AFTERREPORT RETURN BOOLEAN IS
135 BEGIN
136 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
137 RETURN (TRUE);
138 END AFTERREPORT;
139
140 FUNCTION PERIOD_PCFORMULA RETURN NUMBER IS
141 L_PERIOD_CTR NUMBER(10);
142 BEGIN
143 IF UPPER(P_MRCSOBTYPE) = 'R' THEN
144 SELECT
145 PERIOD_COUNTER
146 INTO L_PERIOD_CTR
147 FROM
148 FA_DEPRN_PERIODS_MRC_V
149 WHERE BOOK_TYPE_CODE = P_BOOK
150 AND PERIOD_NAME = P_PERIOD;
151 ELSE
152 SELECT
153 PERIOD_COUNTER
154 INTO L_PERIOD_CTR
155 FROM
156 FA_DEPRN_PERIODS
157 WHERE BOOK_TYPE_CODE = P_BOOK
158 AND PERIOD_NAME = P_PERIOD;
159 END IF;
160 RETURN (L_PERIOD_CTR);
161 END PERIOD_PCFORMULA;
162
163 FUNCTION DEPR_RESERVE_ADJ_PERFORMULA(ASSET_ID IN NUMBER
164 ,PERIOD_PC IN NUMBER) RETURN NUMBER IS
165 L_AMT NUMBER(33,4);
166 BEGIN
167 IF UPPER(P_MRCSOBTYPE) = 'R' THEN
168 SELECT
169 NVL(ABS(SUM(DECODE(DEBIT_CREDIT_FLAG
170 ,'DR'
171 ,ADJUSTMENT_AMOUNT
172 ,'CR'
173 ,-ADJUSTMENT_AMOUNT)))
174 ,0)
175 INTO L_AMT
176 FROM
177 FA_ADJUSTMENTS_MRC_V
178 WHERE BOOK_TYPE_CODE = P_BOOK
179 AND SOURCE_TYPE_CODE = 'REVALUATION'
180 AND ADJUSTMENT_TYPE = 'RESERVE'
181 AND ASSET_ID = ASSET_ID
182 AND PERIOD_COUNTER_CREATED = PERIOD_PC;
183 ELSE
184 SELECT
185 NVL(ABS(SUM(DECODE(DEBIT_CREDIT_FLAG
186 ,'DR'
187 ,ADJUSTMENT_AMOUNT
188 ,'CR'
189 ,-ADJUSTMENT_AMOUNT)))
190 ,0)
191 INTO L_AMT
192 FROM
193 FA_ADJUSTMENTS
194 WHERE BOOK_TYPE_CODE = P_BOOK
195 AND SOURCE_TYPE_CODE = 'REVALUATION'
196 AND ADJUSTMENT_TYPE = 'RESERVE'
197 AND ASSET_ID = ASSET_ID
198 AND PERIOD_COUNTER_CREATED = PERIOD_PC;
199 END IF;
200 RETURN (L_AMT);
201 END DEPR_RESERVE_ADJ_PERFORMULA;
202
203 FUNCTION DEPR_EXPENSE_ADJ_PERFORMULA(ASSET_ID IN NUMBER
204 ,PERIOD_PC IN NUMBER) RETURN NUMBER IS
205 L_AMT NUMBER(33,4);
206 BEGIN
207 IF UPPER(P_MRCSOBTYPE) = 'R' THEN
208 SELECT
209 NVL(ABS(SUM(DECODE(DEBIT_CREDIT_FLAG
210 ,'DR'
211 ,ADJUSTMENT_AMOUNT
212 ,'CR'
213 ,-ADJUSTMENT_AMOUNT)))
214 ,0)
215 INTO L_AMT
216 FROM
217 FA_ADJUSTMENTS_MRC_V
218 WHERE BOOK_TYPE_CODE = P_BOOK
219 AND SOURCE_TYPE_CODE = 'REVALUATION'
220 AND ADJUSTMENT_TYPE = 'EXPENSE'
221 AND ASSET_ID = ASSET_ID
222 AND PERIOD_COUNTER_CREATED = PERIOD_PC;
223 ELSE
224 SELECT
225 NVL(ABS(SUM(DECODE(DEBIT_CREDIT_FLAG
226 ,'DR'
227 ,ADJUSTMENT_AMOUNT
228 ,'CR'
229 ,-ADJUSTMENT_AMOUNT)))
230 ,0)
231 INTO L_AMT
232 FROM
233 FA_ADJUSTMENTS
234 WHERE BOOK_TYPE_CODE = P_BOOK
235 AND SOURCE_TYPE_CODE = 'REVALUATION'
236 AND ADJUSTMENT_TYPE = 'EXPENSE'
237 AND ASSET_ID = ASSET_ID
238 AND PERIOD_COUNTER_CREATED = PERIOD_PC;
239 END IF;
240 RETURN (L_AMT);
241 END DEPR_EXPENSE_ADJ_PERFORMULA;
242
243 FUNCTION CP_CAT_CORP_COST_P RETURN VARCHAR2 IS
244 BEGIN
245 RETURN CP_CAT_CORP_COST;
246 END CP_CAT_CORP_COST_P;
247
248 FUNCTION CP_CAT_ADJ_COST_PER_P RETURN VARCHAR2 IS
249 BEGIN
250 RETURN CP_CAT_ADJ_COST_PER;
251 END CP_CAT_ADJ_COST_PER_P;
252
253 FUNCTION CP_CAT_ADJ_COST_P RETURN VARCHAR2 IS
254 BEGIN
255 RETURN CP_CAT_ADJ_COST;
256 END CP_CAT_ADJ_COST_P;
257
258 FUNCTION CP_CAT_CORP_DEPR_RESERVE_P RETURN VARCHAR2 IS
259 BEGIN
260 RETURN CP_CAT_CORP_DEPR_RESERVE;
261 END CP_CAT_CORP_DEPR_RESERVE_P;
262
263 FUNCTION CP_CAT_DEPR_RESERVE_ADJ_PER_P RETURN VARCHAR2 IS
264 BEGIN
265 RETURN CP_CAT_DEPR_RESERVE_ADJ_PER;
266 END CP_CAT_DEPR_RESERVE_ADJ_PER_P;
267
268 FUNCTION CP_CAT_ADJ_DEPRN_RESERVE_P RETURN VARCHAR2 IS
269 BEGIN
270 RETURN CP_CAT_ADJ_DEPRN_RESERVE;
271 END CP_CAT_ADJ_DEPRN_RESERVE_P;
272
273 FUNCTION CP_CAT_CORP_YTD_DEPRN_EXPE_p RETURN VARCHAR2 IS
274 BEGIN
275 RETURN CP_CAT_CORP_YTD_DEPRN_EXPENSE;
276 END CP_CAT_CORP_YTD_DEPRN_EXPE_p;
277
278 FUNCTION CP_CAT_YTD_DEPRN_EXPENSE_ADJ_ RETURN VARCHAR2 IS
279 BEGIN
280 RETURN CP_CAT_YTD_DEPRN_EXPENSE_ADJ_P;
281 END CP_CAT_YTD_DEPRN_EXPENSE_ADJ_;
282
283 FUNCTION CP_CAT_ADJ_YTD_DEPRN_EXPENSE_P RETURN VARCHAR2 IS
284 BEGIN
285 RETURN CP_CAT_ADJ_YTD_DEPRN_EXPENSE;
286 END CP_CAT_ADJ_YTD_DEPRN_EXPENSE_P;
287
288 FUNCTION CP_ASSET_CORP_COST_P RETURN VARCHAR2 IS
289 BEGIN
290 RETURN CP_ASSET_CORP_COST;
291 END CP_ASSET_CORP_COST_P;
292
293 FUNCTION CP_ASSET_ADJ_COST_PER_P RETURN VARCHAR2 IS
294 BEGIN
295 RETURN CP_ASSET_ADJ_COST_PER;
296 END CP_ASSET_ADJ_COST_PER_P;
297
298 FUNCTION CP_ASSET_ADJ_COST_P RETURN VARCHAR2 IS
299 BEGIN
300 RETURN CP_ASSET_ADJ_COST;
301 END CP_ASSET_ADJ_COST_P;
302
303 FUNCTION CP_ASSET_CORP_DEPR_RESERVE_P RETURN VARCHAR2 IS
304 BEGIN
305 RETURN CP_ASSET_CORP_DEPR_RESERVE;
306 END CP_ASSET_CORP_DEPR_RESERVE_P;
307
308 FUNCTION CP_ASSET_DEPR_RESERVE_ADJ_P RETURN VARCHAR2 IS
309 BEGIN
310 RETURN CP_ASSET_DEPR_RESERVE_ADJ_PER;
311 END CP_ASSET_DEPR_RESERVE_ADJ_P;
312
313 FUNCTION CP_ASSET_ADJ_DEPRN_RESERVE_P RETURN VARCHAR2 IS
314 BEGIN
315 RETURN CP_ASSET_ADJ_DEPRN_RESERVE;
316 END CP_ASSET_ADJ_DEPRN_RESERVE_P;
317
318 FUNCTION CP_ASSET_CORP_YTD_DEPRN_EXPEN RETURN VARCHAR2 IS
319 BEGIN
320 RETURN CP_ASSET_CORP_YTD_DEPRN_EXPENS;
321 END CP_ASSET_CORP_YTD_DEPRN_EXPEN;
322
323 FUNCTION CP_ASSET_YTD_DEPR_EXPN_ADJ_PE RETURN VARCHAR2 IS
324 BEGIN
325 RETURN CP_ASSET_YTD_DEPR_EXPN_ADJ_PER;
326 END CP_ASSET_YTD_DEPR_EXPN_ADJ_PE;
327
328 FUNCTION CP_ASSET_YTD_DEPRN_EXPENSE_P RETURN VARCHAR2 IS
329 BEGIN
330 RETURN CP_ASSET_YTD_DEPRN_EXPENSE;
331 END CP_ASSET_YTD_DEPRN_EXPENSE_P;
332
333 FUNCTION BOOK_CLASS_P RETURN VARCHAR2 IS
334 BEGIN
335 RETURN BOOK_CLASS;
336 END BOOK_CLASS_P;
337
338 FUNCTION DISTRIBUTION_SOURCE_BOOK_P RETURN VARCHAR2 IS
339 BEGIN
340 RETURN DISTRIBUTION_SOURCE_BOOK;
341 END DISTRIBUTION_SOURCE_BOOK_P;
342
343 FUNCTION CP_REPORT_NAME_P RETURN VARCHAR2 IS
344 BEGIN
345 RETURN CP_REPORT_NAME;
346 END CP_REPORT_NAME_P;
347
348 FUNCTION CP_COMPANY_NAME_P RETURN VARCHAR2 IS
349 BEGIN
350 RETURN CP_COMPANY_NAME;
351 END CP_COMPANY_NAME_P;
352
353 FUNCTION CURRENCY_CODE_P RETURN VARCHAR2 IS
354 BEGIN
355 RETURN CURRENCY_CODE;
356 END CURRENCY_CODE_P;
357
358 FUNCTION CP_PARAM_CURRENCY_P RETURN VARCHAR2 IS
359 BEGIN
360 RETURN CP_PARAM_CURRENCY;
361 END CP_PARAM_CURRENCY_P;
362
363 END JL_JLZZFIJR_XMLP_PKG;
364
365
366