1 PACKAGE BODY JG_JGZZFAAD_XMLP_PKG AS
2 /* $Header: JGZZFAADB.pls 120.0 2008/01/08 07:53:54 vjaganat noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4
5 GL_BALANCING_SEG NUMBER;
6 GL_ACCOUNT_SEG NUMBER;
7 FA_COST_CTR_SEG NUMBER;
8
9 ACCT_FLEX_STRUCTURE NUMBER;
10
11 APPCOL_NAME VARCHAR2(240);
12 SEG_NAME VARCHAR2(240);
13 PROMPT VARCHAR2(240);
14 VALUE_SET_NAME VARCHAR2(240);
15
16 ERROR_MSG VARCHAR2(240);
17 STEP VARCHAR2(100);
18 ERRBUF VARCHAR2(200);
19 RETCODE NUMBER;
20
21 SUBMIT_ERROR EXCEPTION;
22 C_HEADER BOOLEAN;
23
24 BEGIN
25
26 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
27 -- SRW.DO_SQL ('ALTER SESSION SET SQL_TRACE TRUE');
28
29 --SRW.USER_EXIT('FND SRWINIT');
30
31 /*--------------------------------------------------*/
32 /* SUBMIT RX REPORT */
33 /*--------------------------------------------------*/
34
35 IF (P_REPORT_TYPE = 'COST')
36 THEN
37 STEP := 'SUBMITTING ASSET COST BALANCES REPORT';
38
39 FARX_BL.ASSET_COST_BALANCES_RPT(
40 BOOK => P_BOOK_TYPE_CODE,
41 START_PERIOD_NAME => P_FROM_PERIOD,
42 END_PERIOD_NAME => P_TO_PERIOD,
43 REQUEST_ID => P_CONC_REQUEST_ID,
44 USER_ID => 0,
45 -- ERRBUF => ERRBUF, -- BUG 1003349: THE FOLLOWING 4 LINES.
46 -- RETCODE => RETCODE);
50 STEP := 'SUBMITTING ACCUMULATED DEPRN BALANCES REPORT';
47 RETCODE => RETCODE,
48 ERRBUF => ERRBUF);
49 ELSE
51
52 FARX_BL.ACCUM_DEPRN_BALANCES_RPT(
53 BOOK => P_BOOK_TYPE_CODE,
54 START_PERIOD_NAME => P_FROM_PERIOD,
55 END_PERIOD_NAME => P_TO_PERIOD,
56 REQUEST_ID => P_CONC_REQUEST_ID,
57 USER_ID => 0,
58 -- ERRBUF => ERRBUF, -- BUG 1003349: THE FOLLOWING 4 LINES.
59 -- RETCODE => RETCODE);
60 RETCODE => RETCODE,
61 ERRBUF => ERRBUF);
62 END IF;
63
64 IF (RETCODE <> 0)
65 THEN
66 RAISE SUBMIT_ERROR;
67 END IF;
68
69
70 /*--------------------------------------------------*/
71 /* GET SET OF BOOKS AND CURRENCY INFORMATION */
72 /*--------------------------------------------------*/
73
74 STEP := 'GET SOB AND CURRENCY INFO';
75
76 SELECT
77 SC.COMPANY_NAME,
78 BC.SET_OF_BOOKS_ID,
79 SOB.NAME SOB_NAME,
80 SOB.CURRENCY_CODE,
81 CUR.PRECISION
82 INTO
83 RP_COMPANY_NAME,
84 RP_SOB_ID,
85 RP_SOB_NAME,
86 RP_CURRENCY_CODE,
87 RP_PRECISION
88 FROM
89 FA_SYSTEM_CONTROLS SC,
90 FA_BOOK_CONTROLS BC,
91 GL_LEDGERS_PUBLIC_V SOB, --GL_SETS_OF_BOOKS SOB,
92 FND_CURRENCIES CUR
93 WHERE
94 BC.BOOK_TYPE_CODE = NVL(P_BOOK_TYPE_CODE, BC.BOOK_TYPE_CODE)
95 AND SOB.LEDGER_ID = BC.SET_OF_BOOKS_ID
96 AND CUR.CURRENCY_CODE = SOB.CURRENCY_CODE
97 AND ROWNUM = 1;
98
99 /*--------------------------------------------------*/
100 /* POPULATE RP_DYNAMIC_COL ACCORDING TO REPORT TYPE */
101 /*--------------------------------------------------*/
102
103 STEP := 'POPULATE RP_DYNAMIC_COL ACCORDING TO REPORT TYPE';
104
105 IF (P_REPORT_TYPE = 'COST')
106 THEN
107 LP_DYNAMIC_COL := 'I.ADDITIONS';
108 ELSE
109 LP_DYNAMIC_COL := 'I.DEPRECIATION';
110 END IF;
111
112 /*--------------------------------------------------*/
113 /* GET ACCOUNT SEGEMENT'S VALUESET */
114 /*--------------------------------------------------*/
115
116
117 STEP := 'GET ACCOUNT SEGMENT VALUESET';
118
119 -- GET ACCOUNTING FLEX STRUCTURE
120
121 SELECT
122 BC.ACCOUNTING_FLEX_STRUCTURE
123 INTO
124 ACCT_FLEX_STRUCTURE
125 FROM
126 FA_BOOK_CONTROLS BC
127 WHERE
128 BC.BOOK_TYPE_CODE = P_BOOK_TYPE_CODE;
129
130 -- GET ACCOUNT SEGMENT NUMBERS
131
132 FA_RX_SHARED_PKG.GET_ACCT_SEGMENT_NUMBERS (
133 BOOK => P_BOOK_TYPE_CODE,
134 BALANCING_SEGNUM => GL_BALANCING_SEG,
135 ACCOUNT_SEGNUM => GL_ACCOUNT_SEG,
136 CC_SEGNUM => FA_COST_CTR_SEG,
137 CALLING_FN => 'FA_BALANCES_REPORT');
138
139 -- GET VALUESETNAME
140
141 IF (FND_FLEX_APIS.GET_SEGMENT_INFO
142 (101, 'GL#', ACCT_FLEX_STRUCTURE, GL_ACCOUNT_SEG,
143 APPCOL_NAME, SEG_NAME, PROMPT, VALUE_SET_NAME))
144 THEN
145 RP_ACCT_VALUESET_NAME := VALUE_SET_NAME;
146 ELSE
147 RETURN(FALSE);
148 END IF;
149
150 --
151 -- BUG 876171: GET THE DATE
152 --
153 --SRW.USER_EXIT('FND DATE4FORMAT RESULT = "CP_DATE_FORMAT"');
154
155 RETURN (TRUE);
156
157 RETURN NULL; EXCEPTION
158 WHEN SUBMIT_ERROR THEN
159 -- SRW.MESSAGE(123, 'ERROR OCCURRED IN BEFORE REPORT TRIGGER, STEP: ' || STEP || '==> ' || SQLERRM);
160 RETURN(FALSE);
161 WHEN NO_DATA_FOUND THEN NULL;
162 RETURN NULL; WHEN OTHERS THEN
163 -- SRW.MESSAGE(123, 'ERROR OCCURRED IN BEFORE REPORT TRIGGER, STEP: ' || STEP || '==> ' || SQLERRM);
164 RETURN(FALSE);
165
166 END BEFOREREPORT;
167
168 FUNCTION AFTERREPORT RETURN BOOLEAN IS
169 BEGIN
170 RETURN (TRUE);
171 END AFTERREPORT;
172
173 FUNCTION DISP_OBJECT RETURN BOOLEAN IS
174 BEGIN
175 IF (P_STATUTORY_REPORT = 'Y') THEN
176 RETURN (FALSE);
177 ELSE
178 RETURN (TRUE);
179 END IF;
180 RETURN NULL;
181 END DISP_OBJECT;
182
183 FUNCTION CF_ADDITIONS_CFFORMULA(CS_ADDITIONS_RTOT IN NUMBER
184 ,ADDITIONS IN NUMBER) RETURN NUMBER IS
185 BEGIN
186 RETURN (CS_ADDITIONS_RTOT - ADDITIONS);
187 END CF_ADDITIONS_CFFORMULA;
188
189 FUNCTION CF_BEGIN_BALANCEFORMULA(CS_BEGIN_BALANCE_RTOT IN NUMBER
190 ,BEGIN_BALANCE IN NUMBER) RETURN NUMBER IS
191 BEGIN
192 RETURN (CS_BEGIN_BALANCE_RTOT - BEGIN_BALANCE);
193 END CF_BEGIN_BALANCEFORMULA;
194
195 FUNCTION CF_END_BALANCE_CFFORMULA(CS_END_BALANCE_RTOT IN NUMBER
196 ,END_BALANCE IN NUMBER) RETURN NUMBER IS
197 BEGIN
198 RETURN (CS_END_BALANCE_RTOT - END_BALANCE);
199 END CF_END_BALANCE_CFFORMULA;
200
201 FUNCTION CF_RETIREMENTS_CFFORMULA(CS_RETIREMENTS_RTOT IN NUMBER
202 ,RETIREMENTS IN NUMBER) RETURN NUMBER IS
203 BEGIN
204 RETURN (CS_RETIREMENTS_RTOT - RETIREMENTS);
205 END CF_RETIREMENTS_CFFORMULA;
206
207 FUNCTION CF_REVALUATIONS_CFFORMULA(CS_REVALUATIONS_RTOT IN NUMBER
208 ,REVALUATIONS IN NUMBER) RETURN NUMBER IS
209 BEGIN
210 RETURN (CS_REVALUATIONS_RTOT - REVALUATIONS);
211 END CF_REVALUATIONS_CFFORMULA;
212
213 FUNCTION CF_RECLASSES_CFFORMULA(CS_RECLASSES_RTOT IN NUMBER
214 ,RECLASSES IN NUMBER) RETURN NUMBER IS
215 BEGIN
216 RETURN (CS_RECLASSES_RTOT - RECLASSES);
220 ,ADJUSTMENTS IN NUMBER) RETURN NUMBER IS
217 END CF_RECLASSES_CFFORMULA;
218
219 FUNCTION CF_ADJUSTMENTS_CFFORMULA(CS_ADJUSTMENTS_RTOT IN NUMBER
221 BEGIN
222 RETURN (CS_ADJUSTMENTS_RTOT - ADJUSTMENTS);
223 END CF_ADJUSTMENTS_CFFORMULA;
224
225 FUNCTION CF_COST_BEGIN_BALANCE_CFFORMUL(CS_COST_BEGIN_BALANCE_RTOT IN NUMBER
226 ,COST_BEGIN_BALANCE IN NUMBER) RETURN NUMBER IS
227 BEGIN
228 RETURN (CS_COST_BEGIN_BALANCE_RTOT - COST_BEGIN_BALANCE);
229 END CF_COST_BEGIN_BALANCE_CFFORMUL;
230
231 FUNCTION CF_PAREANT_ACCT_DESCRFORMULA(PARENT_ACCOUNT IN VARCHAR2) RETURN VARCHAR2 IS
232 BEGIN
233 /*SRW.REFERENCE(PARENT_ACCOUNT)*/NULL;
234 RETURN (SUBSTR(FA_RX_SHARED_PKG.GET_FLEX_VAL_MEANING(NULL
235 ,RP_ACCT_VALUESET_NAME
236 ,PARENT_ACCOUNT)
237 ,1
238 ,80));
239 RETURN NULL;
240 EXCEPTION
241 WHEN OTHERS THEN
242 /*SRW.MESSAGE(123
243 ,'Error retrieving parent account description.')*/NULL;
244 /*SRW.MESSAGE(123
245 ,'Valueset Name: ' || RP_ACCT_VALUESET_NAME || ' Parent Account: ' || PARENT_ACCOUNT)*/NULL;
246 RETURN NULL;
247 END CF_PAREANT_ACCT_DESCRFORMULA;
248
249 FUNCTION CF_PAGE_PARENT_ACCT_DESCRFORMU(PARENT_ACCT IN VARCHAR2
250 ,PARENT_ACCOUNT IN VARCHAR2) RETURN VARCHAR2 IS
251 BEGIN
252 /*SRW.REFERENCE(PARENT_ACCT)*/NULL;
253 RETURN (SUBSTR(FA_RX_SHARED_PKG.GET_FLEX_VAL_MEANING(NULL
254 ,RP_ACCT_VALUESET_NAME
255 ,PARENT_ACCT)
256 ,1
257 ,80));
258 RETURN NULL;
259 EXCEPTION
260 WHEN OTHERS THEN
261 /*SRW.MESSAGE(123
262 ,'Error retrieving parent account description.')*/NULL;
263 /*SRW.MESSAGE(123
264 ,'Valueset Name: ' || RP_ACCT_VALUESET_NAME || ' Parent Account: ' || PARENT_ACCOUNT)*/NULL;
265 RETURN NULL;
266 END CF_PAGE_PARENT_ACCT_DESCRFORMU;
267
268 FUNCTION CF_COST_BEGIN_BALANCE_REPTOTFO(CS_COST_BEGIN_BALANCE_REPTOT IN NUMBER
269 ,COST_BEGIN_BALANCE IN NUMBER) RETURN NUMBER IS
270 BEGIN
271 RETURN (CS_COST_BEGIN_BALANCE_REPTOT - COST_BEGIN_BALANCE);
272 END CF_COST_BEGIN_BALANCE_REPTOTFO;
273
274 FUNCTION CF_BEGIN_BALANCE_REPTOTFORMULA(CS_BEGIN_BAL_REPTOT IN NUMBER
275 ,BEGIN_BALANCE IN NUMBER) RETURN NUMBER IS
276 BEGIN
277 RETURN (CS_BEGIN_BAL_REPTOT - BEGIN_BALANCE);
278 END CF_BEGIN_BALANCE_REPTOTFORMULA;
279
280 FUNCTION CF_ADDITIONS_REPTOTFORMULA(CS_ADDITIONS_REPTOT IN NUMBER
281 ,ADDITIONS IN NUMBER) RETURN NUMBER IS
282 BEGIN
283 RETURN (CS_ADDITIONS_REPTOT - ADDITIONS);
284 END CF_ADDITIONS_REPTOTFORMULA;
285
286 FUNCTION CF_ADJUSTMENTS_REPTOTFORMULA(CS_ADJUSTMENTS_REPTOT IN NUMBER
287 ,ADJUSTMENTS IN NUMBER) RETURN NUMBER IS
288 BEGIN
289 RETURN (CS_ADJUSTMENTS_REPTOT - ADJUSTMENTS);
290 END CF_ADJUSTMENTS_REPTOTFORMULA;
291
292 FUNCTION CF_RECLASES_REPTOTFORMULA(CS_RECLASSES_REPTOT IN NUMBER
293 ,RECLASSES IN NUMBER) RETURN NUMBER IS
294 BEGIN
295 RETURN (CS_RECLASSES_REPTOT - RECLASSES);
296 END CF_RECLASES_REPTOTFORMULA;
297
298 FUNCTION CF_RETIREMENTS_REPTOTFORMULA(CS_RETIREMENTS_REPTOT IN NUMBER
299 ,RETIREMENTS IN NUMBER) RETURN NUMBER IS
300 BEGIN
301 RETURN (CS_RETIREMENTS_REPTOT - RETIREMENTS);
302 END CF_RETIREMENTS_REPTOTFORMULA;
303
304 FUNCTION CF_REVALUATIONS_REPTOTFORMULA(CS_REVALUATIONS_REPTOT IN NUMBER
305 ,REVALUATIONS IN NUMBER) RETURN NUMBER IS
306 BEGIN
307 RETURN (CS_REVALUATIONS_REPTOT - REVALUATIONS);
308 END CF_REVALUATIONS_REPTOTFORMULA;
309
310 FUNCTION CF_END_BALANCE_REPTOTFORMULA(CS_END_BALANCE_REPTOT IN NUMBER
311 ,END_BALANCE IN NUMBER) RETURN NUMBER IS
312 BEGIN
313 RETURN (CS_END_BALANCE_REPTOT - END_BALANCE);
314 END CF_END_BALANCE_REPTOTFORMULA;
315
316 FUNCTION RP_COMPANY_NAME_P RETURN VARCHAR2 IS
317 BEGIN
318 RETURN RP_COMPANY_NAME;
319 END RP_COMPANY_NAME_P;
320
321 FUNCTION RP_REPORT_NAME_P RETURN VARCHAR2 IS
322 BEGIN
323 RETURN RP_REPORT_NAME;
324 END RP_REPORT_NAME_P;
325
326 FUNCTION RP_SOB_NAME_P RETURN VARCHAR2 IS
327 BEGIN
328 RETURN RP_SOB_NAME;
329 END RP_SOB_NAME_P;
330
331 FUNCTION RP_PRECISION_P RETURN NUMBER IS
332 BEGIN
333 RETURN RP_PRECISION;
334 END RP_PRECISION_P;
335
336 FUNCTION RP_SOB_ID_P RETURN NUMBER IS
337 BEGIN
338 RETURN RP_SOB_ID;
339 END RP_SOB_ID_P;
340
341 FUNCTION RP_CURRENCY_CODE_P RETURN VARCHAR2 IS
342 BEGIN
343 RETURN RP_CURRENCY_CODE;
344 END RP_CURRENCY_CODE_P;
345
346 FUNCTION RP_ACCT_VALUESET_NAME_P RETURN VARCHAR2 IS
347 BEGIN
348 RETURN RP_ACCT_VALUESET_NAME;
349 END RP_ACCT_VALUESET_NAME_P;
350
351 FUNCTION CP_DATE_FORMAT_P RETURN VARCHAR2 IS
352 BEGIN
353 RETURN CP_DATE_FORMAT;
354 END CP_DATE_FORMAT_P;
355
359 THEN
356 FUNCTION M_CARRY_FORWARDFORMATTRIGGER RETURN NUMBER IS
357 BEGIN
358 IF (JG_ZZ_REPORT_PKG.FIRST_PAGE)
360 RETURN(0);
361 ELSIF (P_SUMMARY = 'Y')
362 THEN
363 RETURN(1);
364 ELSE
365 RETURN(0);
366 END IF;
367 RETURN NULL;
368 END;
369 END JG_JGZZFAAD_XMLP_PKG;
370
371