1 PACKAGE BODY FA_FASRVRVW_XMLP_PKG AS
2 /* $Header: FASRVRVWB.pls 120.0.12010000.1 2008/07/28 13:17:39 appldev ship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 BEGIN
5 BEGIN
6 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
7
8 SELECT SUBSTR(ARGUMENT1,INSTR(ARGUMENT1,'=',1,1)+1)
9 into P_MASS_REVAL_ID1
10 FROM FND_CONCURRENT_REQUESTS
11 WHERE REQUEST_ID =P_CONC_REQUEST_ID;
12 END;
13 RETURN (TRUE);
14 END BEFOREREPORT;
15
16 FUNCTION AFTERREPORT RETURN BOOLEAN IS
17 BEGIN
18 BEGIN
19 NULL;
20 END;
21 RETURN (TRUE);
22 END AFTERREPORT;
23
24 FUNCTION G_CATEGORYGROUPFILTER RETURN BOOLEAN IS
25 BEGIN
26 RETURN (TRUE);
27 END G_CATEGORYGROUPFILTER;
28
29 FUNCTION MASS_REVAL_IDFORMULA RETURN NUMBER IS
30 BEGIN
31 DECLARE
32 L_MASS_REVAL_ID NUMBER(15);
33 L_DESCRIPTION VARCHAR2(80);
34 L_BOOK VARCHAR2(15);
35 L_REVAL_DATE DATE;
36 L_CURRENCY_CODE VARCHAR2(15);
37 L_PRECISION NUMBER(15);
38 BEGIN
39 SELECT
40 RV.MASS_REVAL_ID,
41 RV.DESCRIPTION,
42 RV.BOOK_TYPE_CODE,
43 RV.REVAL_DATE,
44 SOB.CURRENCY_CODE,
45 CUR.PRECISION
46 INTO L_MASS_REVAL_ID,L_DESCRIPTION,L_BOOK,L_REVAL_DATE,L_CURRENCY_CODE,L_PRECISION
47 FROM
48 FA_MASS_REVALUATIONS RV,
49 FA_BOOK_CONTROLS BC,
50 GL_SETS_OF_BOOKS SOB,
51 FND_CURRENCIES CUR
52 WHERE RV.MASS_REVAL_ID = P_MASS_REVAL_ID1
53 AND BC.BOOK_TYPE_CODE = RV.BOOK_TYPE_CODE
54 AND BC.DATE_INEFFECTIVE is null
55 AND BC.SET_OF_BOOKS_ID = SOB.SET_OF_BOOKS_ID
56 AND SOB.CURRENCY_CODE = CUR.CURRENCY_CODE;
57 DESCRIPTION := L_DESCRIPTION;
58 BOOK := L_BOOK;
59 REVAL_DATE := L_REVAL_DATE;
60 CURRENCY_CODE := L_CURRENCY_CODE;
61 P_MIN_PRECISION := L_PRECISION;
62 RETURN (L_MASS_REVAL_ID);
63 END;
64 RETURN NULL;
65 END MASS_REVAL_IDFORMULA;
66
67 FUNCTION REPORT_NAMEFORMULA(COMPANY_NAME IN VARCHAR2) RETURN VARCHAR2 IS
68 BEGIN
69 DECLARE
70 L_REPORT_NAME VARCHAR2(240);
71 BEGIN
72 RP_COMPANY_NAME := COMPANY_NAME;
73 SELECT
74 CP.USER_CONCURRENT_PROGRAM_NAME
75 INTO L_REPORT_NAME
76 FROM
77 FND_CONCURRENT_PROGRAMS_VL CP,
78 FND_CONCURRENT_REQUESTS CR
79 WHERE CR.REQUEST_ID = P_CONC_REQUEST_ID
80 AND CP.APPLICATION_ID = CR.PROGRAM_APPLICATION_ID
81 AND CP.CONCURRENT_PROGRAM_ID = CR.CONCURRENT_PROGRAM_ID;
82 RP_REPORT_NAME := L_REPORT_NAME;
83 RETURN (L_REPORT_NAME);
84 EXCEPTION
85 WHEN NO_DATA_FOUND THEN
86 RP_REPORT_NAME := 'Revaluation Review Report';
87 RETURN ('Revaluation Review Report');
88 END;
89 RETURN NULL;
90 END REPORT_NAMEFORMULA;
91
92 FUNCTION REVAL_PCFORMULA RETURN NUMBER IS
93 BEGIN
94 DECLARE
95 L_REVAL_PC NUMBER(15);
96 BEGIN
97 SELECT
98 PERIOD_COUNTER
99 INTO L_REVAL_PC
100 FROM
101 FA_DEPRN_PERIODS
102 WHERE BOOK_TYPE_CODE = BOOK
103 AND REVAL_DATE between CALENDAR_PERIOD_OPEN_DATE
104 AND CALENDAR_PERIOD_CLOSE_DATE;
105 RETURN (L_REVAL_PC);
106 END;
107 RETURN NULL;
108 END REVAL_PCFORMULA;
109
110 FUNCTION REVAL_PCTFORMULA(REVAL_PCT IN VARCHAR2) RETURN VARCHAR2 IS
111 BEGIN
112 BEGIN
113 RETURN (REVAL_PCT);
114 END;
115 RETURN NULL;
116 END REVAL_PCTFORMULA;
117
118 FUNCTION ASS_FOUNDFORMULA(ASS_FOUND IN VARCHAR2) RETURN VARCHAR2 IS
119 BEGIN
120 RETURN (ASS_FOUND);
121 END ASS_FOUNDFORMULA;
122
123 FUNCTION ASS_REVAL_PCTFORMULA(ASS_REVAL_PCT IN VARCHAR2) RETURN VARCHAR2 IS
124 BEGIN
125 BEGIN
126 RETURN (ASS_REVAL_PCT);
127 END;
128 RETURN NULL;
129 END ASS_REVAL_PCTFORMULA;
130
131 FUNCTION D_OLD_LIFEFORMULA(OLD_LIFE IN NUMBER) RETURN VARCHAR2 IS
132 BEGIN
133 IF OLD_LIFE IS NOT NULL THEN
134 RETURN ((LPAD(TO_CHAR(TRUNC(OLD_LIFE / 12
135 ,0)
136 ,'90')
137 ,3
138 ,' ') || '.' || SUBSTR(TO_CHAR(MOD(OLD_LIFE
139 ,12)
140 ,'00')
141 ,2
142 ,2)));
143 ELSE
144 RETURN (NULL);
145 END IF;
146 RETURN NULL;
147 END D_OLD_LIFEFORMULA;
148
149 FUNCTION D_NEW_LIFEFORMULA(NEW_LIFE IN NUMBER) RETURN VARCHAR2 IS
150 BEGIN
151 IF NEW_LIFE IS NOT NULL THEN
152 RETURN ((LPAD(TO_CHAR(TRUNC(NEW_LIFE / 12
153 ,0)
154 ,'90')
155 ,3
156 ,' ') || '.' || SUBSTR(TO_CHAR(MOD(NEW_LIFE
157 ,12)
158 ,'00')
159 ,2
160 ,2)));
161 ELSE
162 RETURN (NULL);
163 END IF;
164 RETURN NULL;
165 END D_NEW_LIFEFORMULA;
166
167 FUNCTION ASS_FRRFFORMULA(ASS_FRRF IN VARCHAR2) RETURN VARCHAR2 IS
168 BEGIN
169 RETURN (ASS_FRRF);
170 END ASS_FRRFFORMULA;
171
172 FUNCTION ASS_LEFFORMULA(ASS_LEF IN VARCHAR2) RETURN VARCHAR2 IS
173 BEGIN
174 RETURN (ASS_LEF);
175 END ASS_LEFFORMULA;
176
177 FUNCTION ASS_LECFORMULA(ASS_LEC IN VARCHAR2) RETURN VARCHAR2 IS
178 BEGIN
179 RETURN (ASS_LEC);
180 END ASS_LECFORMULA;
181
182 FUNCTION ASS_MFRRFORMULA(ASS_MFRR IN VARCHAR2) RETURN VARCHAR2 IS
183 BEGIN
184 IF (ASS_MFRR = '0') THEN
185 RETURN (NULL);
186 ELSE
187 RETURN (ASS_MFRR);
188 END IF;
189 RETURN NULL;
190 END ASS_MFRRFORMULA;
191
192 FUNCTION NEW_DEP_RSVFORMULA RETURN NUMBER IS
193 BEGIN
194 RETURN 0;
195 END NEW_DEP_RSVFORMULA;
196
197 FUNCTION NEW_REVAL_RSVFORMULA(NEW_REVAL_RSV IN NUMBER) RETURN NUMBER IS
198 BEGIN
199 RETURN (NEW_REVAL_RSV);
200 END NEW_REVAL_RSVFORMULA;
201
202 FUNCTION ADJ_DEP_RSVFORMULA(TH_ID IN NUMBER
203 ,ASSET_ID IN NUMBER
204 ,NEW_DEP_RSV IN NUMBER) RETURN NUMBER IS
205 BEGIN
206 DECLARE
207 L_ADJ_AMOUNT NUMBER;
208 BEGIN
209 SELECT
210 SUM(DECODE(AD.DEBIT_CREDIT_FLAG
211 ,'CR'
212 ,AD.ADJUSTMENT_AMOUNT
213 ,'DR'
214 ,-1 * AD.ADJUSTMENT_AMOUNT))
215 INTO L_ADJ_AMOUNT
216 FROM
217 FA_ADJUSTMENTS AD
218 WHERE AD.TRANSACTION_HEADER_ID = TH_ID
219 AND AD.BOOK_TYPE_CODE = BOOK
220 AND AD.ASSET_ID = ASSET_ID
221 AND AD.SOURCE_TYPE_CODE = 'REVALUATION'
222 AND AD.ADJUSTMENT_TYPE = 'RESERVE';
223 OLD_DEP_RSV := NEW_DEP_RSV - L_ADJ_AMOUNT;
224 RETURN (L_ADJ_AMOUNT);
225 END;
226 RETURN NULL;
227 END ADJ_DEP_RSVFORMULA;
228
229 FUNCTION ADJ_REVAL_RSVFORMULA(TH_ID IN NUMBER
230 ,ASSET_ID IN NUMBER
231 ,NEW_REVAL_RSV IN NUMBER) RETURN NUMBER IS
232 BEGIN
233 DECLARE
234 L_ADJ_AMOUNT NUMBER;
235 BEGIN
236 SELECT
237 SUM(DECODE(AD.DEBIT_CREDIT_FLAG
238 ,'CR'
239 ,AD.ADJUSTMENT_AMOUNT
240 ,'DR'
241 ,-1 * AD.ADJUSTMENT_AMOUNT))
242 INTO L_ADJ_AMOUNT
243 FROM
244 FA_ADJUSTMENTS AD
245 WHERE AD.TRANSACTION_HEADER_ID = TH_ID
246 AND AD.BOOK_TYPE_CODE = BOOK
247 AND AD.ASSET_ID = ASSET_ID
248 AND AD.SOURCE_TYPE_CODE = 'REVALUATION'
249 AND AD.ADJUSTMENT_TYPE = 'REVAL RESERVE';
250 OLD_REVAL_RSV := NEW_REVAL_RSV - L_ADJ_AMOUNT;
251 RETURN (L_ADJ_AMOUNT);
252 EXCEPTION
253 WHEN NO_DATA_FOUND THEN
254 L_ADJ_AMOUNT := 0;
255 OLD_REVAL_RSV := NEW_REVAL_RSV - L_ADJ_AMOUNT;
256 RETURN (L_ADJ_AMOUNT);
257 END;
258 RETURN NULL;
259 END ADJ_REVAL_RSVFORMULA;
260
261 FUNCTION FRRFFORMULA(FRRF IN VARCHAR2) RETURN VARCHAR2 IS
262 BEGIN
263 RETURN (FRRF);
264 END FRRFFORMULA;
265
266 FUNCTION MFRRFORMULA(MFRR IN VARCHAR2) RETURN VARCHAR2 IS
267 BEGIN
268 IF (MFRR = '0') THEN
269 RETURN (NULL);
270 ELSE
271 RETURN (MFRR);
272 END IF;
273 RETURN NULL;
274 END MFRRFORMULA;
275
276 FUNCTION LEFFORMULA(LEF IN VARCHAR2) RETURN VARCHAR2 IS
277 BEGIN
278 RETURN (LEF);
279 END LEFFORMULA;
280
281 FUNCTION LECFORMULA(LEC IN VARCHAR2) RETURN VARCHAR2 IS
282 BEGIN
283 RETURN (LEC);
284 END LECFORMULA;
285
286 FUNCTION D_FOUNDFORMULA(D_FOUND IN VARCHAR2) RETURN VARCHAR2 IS
287 BEGIN
288 RETURN (D_FOUND);
289 END D_FOUNDFORMULA;
290
291 FUNCTION OLD_DEP_RSV_P RETURN NUMBER IS
292 BEGIN
293 RETURN OLD_DEP_RSV;
294 END OLD_DEP_RSV_P;
295
296 FUNCTION OLD_REVAL_RSV_P RETURN NUMBER IS
297 BEGIN
298 RETURN OLD_REVAL_RSV;
299 END OLD_REVAL_RSV_P;
300
301 FUNCTION DESCRIPTION_P RETURN VARCHAR2 IS
302 BEGIN
303 RETURN DESCRIPTION;
304 END DESCRIPTION_P;
305
306 FUNCTION REVAL_DATE_P RETURN DATE IS
307 BEGIN
308 RETURN REVAL_DATE;
309 END REVAL_DATE_P;
310
311 FUNCTION BOOK_P RETURN VARCHAR2 IS
312 BEGIN
313 RETURN BOOK;
314 END BOOK_P;
315
316 FUNCTION CURRENCY_CODE_P RETURN VARCHAR2 IS
317 BEGIN
318 RETURN CURRENCY_CODE;
319 END CURRENCY_CODE_P;
320
321 FUNCTION RP_COMPANY_NAME_P RETURN VARCHAR2 IS
322 BEGIN
323 RETURN RP_COMPANY_NAME;
324 END RP_COMPANY_NAME_P;
325
326 FUNCTION RP_REPORT_NAME_P RETURN VARCHAR2 IS
327 BEGIN
328 RETURN RP_REPORT_NAME;
329 END RP_REPORT_NAME_P;
330
331 END FA_FASRVRVW_XMLP_PKG;
332
[Home] [Help]