[Home] [Help]
PACKAGE BODY: APPS.AR_RAXGLR_XMLP_PKG
Source
1 PACKAGE BODY AR_RAXGLR_XMLP_PKG AS
2 /* $Header: RAXGLRB.pls 120.1 2008/01/07 14:52:50 abraghun noship $ */
3 function BeforeReport return boolean is
4 /*Added for value retriving for bug 4327441*/
5 l_ld_sp varchar2(1);
6 begin
7
8 --SRW.USER_EXIT('FND SRWINIT');
9
10 /*Following section is added to print message for user for bug 4327441*/
11 rp_message:=null;
12 IF to_number(p_reporting_level) = 1000 THEN
13 l_ld_sp:= mo_utils.check_ledger_in_sp(TO_NUMBER(p_reporting_entity_id));
14
15 IF l_ld_sp = 'N' THEN
16 FND_MESSAGE.SET_NAME('FND','FND_MO_RPT_PARTIAL_LEDGER');
17 rp_message := FND_MESSAGE.get;
18 END IF;
19 END IF;
20 /*End bug 4327441*/
21 /* For Bug:4942083 - To display a notification that the report will not
22 include transaction for which accounting has not been run */
23 FND_MESSAGE.SET_NAME('AR','AR_REPORT_ACC_NOT_GEN');
24 cp_acc_message := FND_MESSAGE.get;
25 /* Changes for Bug:4942083 ends */
26
27
28 DECLARE
29
30
31 BEGIN
32
33
34
35 IF (p_currency_code IS NOT NULL ) THEN
36 p_where_1 := ' AND trx.invoice_currency_code = ''' || p_currency_code || '''';
37 p_select_1 := ' sum(decode(sign(gl_dist.amount),
38 1, round(gl_dist.amount, 2), NULL)) curr_credit_amount,
39 sum(decode(sign(gl_dist.amount),
40 -1, -round(gl_dist.amount, 2), NULL)) curr_debit_amount ' ;
41
42 END IF;
43
44 IF (p_gl_account_type = 'TAX' ) THEN
45 p_where_gl_type := 'AND LOOKUP_CODE = ''TAX'' ';
46
47 ELSIF (p_gl_account_type = 'UNBILL' ) THEN
48 p_where_gl_type := 'AND LOOKUP_CODE = ''UNBILL'' ';
49
50 ELSIF (p_gl_account_type = 'UNEARN' ) THEN
51 p_where_gl_type := 'AND LOOKUP_CODE = ''UNEARN'' ';
52
53 ELSIF (p_gl_account_type = 'SUSPENSE' ) THEN
54 p_where_gl_type := 'AND LOOKUP_CODE = ''SUSPENSE'' ';
55
56 ELSIF (p_gl_account_type = 'FREIGHT' ) THEN
57 p_where_gl_type := 'AND LOOKUP_CODE = ''FREIGHT'' ';
58
59 ELSIF (p_gl_account_type = 'REV' ) THEN
60 p_where_gl_type := 'AND LOOKUP_CODE = ''REV'' ';
61
62 ELSIF (p_gl_account_type = 'REC' ) THEN
63 p_where_gl_type := 'AND LOOKUP_CODE = ''REC'' ';
64
65 ELSIF (p_gl_account_type = 'CHARGES' ) THEN
66 p_where_gl_type := 'AND LOOKUP_CODE = ''CHARGES'' ';
67 /* Bug No 1890366 */
68 ELSIF (p_gl_account_type = 'ROUND' ) THEN
69 p_where_gl_type := 'AND LOOKUP_CODE = ''ROUND'' ';
70
71 ELSIF (p_gl_account_type is NULL) THEN
72 p_where_gl_type := 'AND LOOKUP_CODE in (''REV'',''UNEARN'',''UNBILL'',''SUSPENSE'',''TAX'',''REC'', ''FREIGHT'', ''CHARGES'', ''ROUND'')';
73 END IF;
74
75
76
77 --SRW.REFERENCE(:p_coaid);
78 if p_coaid is null
79 then
80
81 select chart_of_accounts_id
82 into p_coaid
83 from ar_system_parameters,
84 gl_sets_of_books
85 where ar_system_parameters.set_of_books_id =
86 gl_sets_of_books.set_of_books_id;
87
88 end if;
89
90 /*SRW.USER_EXIT('FND FLEXSQL
91 CODE="GL#"
92 NUM=":p_coaid"
93 APPL_SHORT_NAME="SQLGL"
94 TABLEALIAS="gl"
95 OUTPUT=":WHERE_GL_FLEX_CLAUSE"
96 MODE="WHERE"
97 DISPLAY="ALL"
98 OPERATOR="BETWEEN"
99 OPERAND1=":p_min_gl_flex"
100 OPERAND2=":p_max_gl_flex"');*/null;
101
102
103
104 /* Modification made for to report on consolidated billing # rreichen Nov 96 */
105
106 begin
107
108 --SRW.message ('101', 'Consolidated Billing Profile');
109 null;
110
111 P_CONS_PROFILE_VALUE := AR_SETUP.value('AR_SHOW_BILLING_NUMBER',null);
112 -- null will be replaced by org_id, for x-ross org context
113
114 --SRW.message ('101', 'Consolidated Billing Profile: ' || :P_CONS_PROFILE_VALUE);
115
116 exception
117 when others then
118 --SRW.message ('101', 'BeforeReport: Consolidated Billing Profile: Failed.');
119 null;
120 end;
121
122
123 If ( P_CONS_PROFILE_VALUE = 'N' ) then
124 lp_query_show_bill := 'to_char(NULL)';
125 lp_table_show_bill := ' ';
126 lp_where_show_bill := ' ';
127 P_ORG_WHERE_CI := ' ';
128 P_ORG_WHERE_PS := ' ';
129 Else
130
131 lp_query_show_bill := 'ci.cons_billing_number';
132 P_ORG_WHERE_CI := XLA_MO_REPORTING_API.Get_Predicate('CI', null);
133 P_ORG_WHERE_PS := XLA_MO_REPORTING_API.Get_Predicate('PS', null);
134
135 IF (upper(p_mrcsobtype) = 'R') THEN
136 lp_table_show_bill := 'ar_payment_schedules_all_mrc_v ps,ar_cons_inv_all ci,';
137 lp_where_show_bill := 'and trx.customer_trx_id = ps.customer_trx_id(+)
138 and nvl(ps.due_date,TO_DATE(''01/01/0001'',''MM/DD/YYYY'')) = (
139 select nvl(min(x.due_date), TO_DATE(''01/01/0001'',''MM/DD/YYYY''))
140 from ar_payment_schedules_all_mrc_v x
141 where x.customer_trx_id = ps.customer_trx_id)
142 and ps.cons_inv_id = ci.cons_inv_id(+)';
143 ELSE
144 lp_table_show_bill := 'ar_payment_schedules_all ps,ar_cons_inv_all ci,';
145 lp_where_show_bill := 'and trx.customer_trx_id = ps.customer_trx_id(+)
146 and nvl(ps.due_date,TO_DATE(''01/01/0001'',''MM/DD/YYYY'')) = (
147 select nvl(min(x.due_date), TO_DATE(''01/01/0001'',''MM/DD/YYYY''))
148 from ar_payment_schedules_all x
149 where x.customer_trx_id = ps.customer_trx_id)
150 and ps.cons_inv_id = ci.cons_inv_id(+)';
151 END IF;
152
153 End if;
154 /* End of Modification */
155
156 END;
157 return (TRUE);
158 end;
159 FUNCTION AFTERREPORT RETURN BOOLEAN IS
160 BEGIN
161 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
162 RETURN (TRUE);
163 END AFTERREPORT;
164
165 FUNCTION REPORT_NAMEFORMULA(COMPANY_NAME IN VARCHAR2) RETURN VARCHAR2 IS
166 BEGIN
167 DECLARE
168 L_REPORT_NAME VARCHAR2(240);
169 BEGIN
170 RP_COMPANY_NAME := COMPANY_NAME;
171 SELECT
172 CP.USER_CONCURRENT_PROGRAM_NAME
173 INTO L_REPORT_NAME
174 FROM
175 FND_CONCURRENT_PROGRAMS_VL CP,
176 FND_CONCURRENT_REQUESTS CR
177 WHERE CR.REQUEST_ID = P_CONC_REQUEST_ID
178 AND CP.APPLICATION_ID = CR.PROGRAM_APPLICATION_ID
179 AND CP.CONCURRENT_PROGRAM_ID = CR.CONCURRENT_PROGRAM_ID;
180 RP_REPORT_NAME := L_REPORT_NAME;
181 RETURN (L_REPORT_NAME);
182 EXCEPTION
183 WHEN NO_DATA_FOUND THEN
184 RP_REPORT_NAME := 'Sales Journal By GL Account';
185 RETURN ('Sales Journal By GL Account');
186 END;
187 RETURN NULL;
188 END REPORT_NAMEFORMULA;
189
190 FUNCTION REPORT_SUBTITLEFORMULA RETURN VARCHAR2 IS
191 BEGIN
192 RP_REPORT_SUBTITLE := NVL(TO_CHAR(P_START_GL_DATE
193 ,'DD-MON-YYYY')
194 ,' ') || ' - ' || NVL(TO_CHAR(P_END_GL_DATE
195 ,'DD-MON-YYYY')
196 ,' ');
197 RETURN NULL;
198 END REPORT_SUBTITLEFORMULA;
199
200 FUNCTION C_SUM_TEXTFORMULA RETURN VARCHAR2 IS
201 BEGIN
202 IF P_GL_ACCOUNT_TYPE IS NULL THEN
203 RETURN ('Subtotal by Invoice Currency : ');
204 ELSE
205 RETURN ('Totals : ');
206 END IF;
207 RETURN NULL;
208 END C_SUM_TEXTFORMULA;
209
210 FUNCTION SET_CURR_CODE_REVFORMULA(CURRENCY_CODE_REV IN VARCHAR2) RETURN VARCHAR2 IS
211 BEGIN
212 BEGIN
213 /*SRW.REFERENCE(CURRENCY_CODE_REV)*/NULL;
214 C_CURR_CODE_REV := CURRENCY_CODE_REV;
215 RETURN (CURRENCY_CODE_REV);
216 END;
217 RETURN NULL;
218 END SET_CURR_CODE_REVFORMULA;
219
220 FUNCTION SET_CURR_CODE_TAXFORMULA(CURRENCY_CODE_TAX IN VARCHAR2) RETURN VARCHAR2 IS
221 BEGIN
222 BEGIN
223 /*SRW.REFERENCE(CURRENCY_CODE_TAX)*/NULL;
224 C_CURR_CODE_TAX := CURRENCY_CODE_TAX;
225 RETURN (CURRENCY_CODE_TAX);
226 END;
227 RETURN NULL;
228 END SET_CURR_CODE_TAXFORMULA;
229
230 FUNCTION SET_CURR_CODE_RECFORMULA(CURRENCY_CODE_REC IN VARCHAR2) RETURN VARCHAR2 IS
231 BEGIN
232 BEGIN
233 /*SRW.REFERENCE(CURRENCY_CODE_REC)*/NULL;
234 C_CURR_CODE_REC := CURRENCY_CODE_REC;
235 RETURN (CURRENCY_CODE_REC);
236 END;
237 RETURN NULL;
238 END SET_CURR_CODE_RECFORMULA;
239
240 FUNCTION TRX_NUMBER_CONSFORMULA(TRX_NUMBER IN VARCHAR2
241 ,CONS_BILLING_NUMBER IN VARCHAR2) RETURN VARCHAR2 IS
242 BEGIN
243 /*SRW.REFERENCE(TRX_NUMBER)*/NULL;
244 /*SRW.REFERENCE(CONS_BILLING_NUMBER)*/NULL;
245 IF (P_CONS_PROFILE_VALUE = 'N') THEN
246 RETURN (SUBSTR(TRX_NUMBER
247 ,1
248 ,40));
249 ELSIF (P_CONS_PROFILE_VALUE = 'Y') AND (CONS_BILLING_NUMBER IS NULL) THEN
250 RETURN (SUBSTR(TRX_NUMBER
251 ,1
252 ,40));
253 ELSE
254 RETURN (SUBSTR(SUBSTR(TRX_NUMBER
255 ,1
256 ,NVL(LENGTH(TRX_NUMBER)
257 ,0)) || '/' || CONS_BILLING_NUMBER
258 ,1
259 ,40));
260 END IF;
261 RETURN NULL;
262 END TRX_NUMBER_CONSFORMULA;
263
264 FUNCTION TRX_NUMBER_TAX_CONSFORMULA(TRX_NUMBER_TAX IN VARCHAR2
265 ,CONS_BILLING_NUMBER_TAX IN VARCHAR2) RETURN VARCHAR2 IS
266 BEGIN
267 /*SRW.REFERENCE(TRX_NUMBER_TAX)*/NULL;
268 /*SRW.REFERENCE(CONS_BILLING_NUMBER_TAX)*/NULL;
269 IF (P_CONS_PROFILE_VALUE = 'N') THEN
270 RETURN (SUBSTR(TRX_NUMBER_TAX
271 ,1
272 ,40));
273 ELSIF (P_CONS_PROFILE_VALUE = 'Y') AND (CONS_BILLING_NUMBER_TAX IS NULL) THEN
274 RETURN (SUBSTR(TRX_NUMBER_TAX
275 ,1
276 ,40));
277 ELSE
278 RETURN (SUBSTR(SUBSTR(TRX_NUMBER_TAX
279 ,1
280 ,NVL(LENGTH(TRX_NUMBER_TAX)
281 ,0)) || '/' || CONS_BILLING_NUMBER_TAX
282 ,1
283 ,40));
284 END IF;
285 RETURN NULL;
286 END TRX_NUMBER_TAX_CONSFORMULA;
287
288 FUNCTION TRX_NUMBER_REC_CONSFORMULA(TRX_NUMBER_REC IN VARCHAR2
289 ,CONS_BILLING_NUMBER_REC IN VARCHAR2) RETURN VARCHAR2 IS
290 BEGIN
291 /*SRW.REFERENCE(TRX_NUMBER_REC)*/NULL;
292 /*SRW.REFERENCE(CONS_BILLING_NUMBER_REC)*/NULL;
293 IF (P_CONS_PROFILE_VALUE = 'N') THEN
294 RETURN (SUBSTR(TRX_NUMBER_REC
295 ,1
296 ,40));
297 ELSIF (P_CONS_PROFILE_VALUE = 'Y') AND (CONS_BILLING_NUMBER_REC IS NULL) THEN
298 RETURN (SUBSTR(TRX_NUMBER_REC
299 ,1
300 ,40));
301 ELSE
302 RETURN (SUBSTR(SUBSTR(TRX_NUMBER_REC
303 ,1
304 ,NVL(LENGTH(TRX_NUMBER_REC)
305 ,0)) || '/' || CONS_BILLING_NUMBER_REC
306 ,1
307 ,40));
308 END IF;
309 RETURN NULL;
310 END TRX_NUMBER_REC_CONSFORMULA;
311
312 FUNCTION AFTERPFORM RETURN BOOLEAN IS
313 BEGIN
314 P_MRCSOBTYPE := 'P';
315 LP_AR_SYSTEM_PARAMETERS := 'AR_SYSTEM_PARAMETERS';
316 LP_AR_SYSTEM_PARAMETERS_ALL := 'AR_SYSTEM_PARAMETERS_ALL';
317 LP_AR_PAYMENT_SCHEDULES := 'AR_PAYMENT_SCHEDULES';
318 LP_AR_PAYMENT_SCHEDULES_ALL := 'AR_PAYMENT_SCHEDULES_ALL';
319 LP_AR_ADJUSTMENTS := 'AR_ADJUSTMENTS';
320 LP_AR_ADJUSTMENTS_ALL := 'AR_ADJUSTMENTS_ALL';
321 LP_AR_CASH_RECEIPT_HISTORY := 'AR_CASH_RECEIPT_HISTORY';
322 LP_AR_CASH_RECEIPT_HISTORY_ALL := 'AR_CASH_RECEIPT_HISTORY_ALL';
323 LP_AR_BATCHES := 'AR_BATCHES';
324 LP_AR_BATCHES_ALL := 'AR_BATCHES_ALL';
325 LP_AR_CASH_RECEIPTS := 'AR_CASH_RECEIPTS';
326 LP_AR_CASH_RECEIPTS_ALL := 'AR_CASH_RECEIPTS_ALL';
327 LP_AR_DISTRIBUTIONS := 'AR_XLA_ARD_LINES_V';
328 LP_AR_DISTRIBUTIONS_ALL := 'AR_XLA_ARD_LINES_V';
329 LP_RA_CUSTOMER_TRX := 'RA_CUSTOMER_TRX';
330 LP_RA_CUSTOMER_TRX_ALL := 'RA_CUSTOMER_TRX_ALL';
331 LP_RA_BATCHES := 'RA_BATCHES';
332 LP_RA_BATCHES_ALL := 'RA_BATCHES_ALL';
333 LP_RA_CUST_TRX_GL_DIST := 'AR_XLA_CTLGD_LINES_V';
334 LP_RA_CUST_TRX_GL_DIST_ALL := 'AR_XLA_CTLGD_LINES_V';
335 LP_AR_MISC_CASH_DISTS := 'AR_MISC_CASH_DISTRIBUTIONS';
336 LP_AR_MISC_CASH_DISTS_ALL := 'AR_MISC_CASH_DISTRIBUTIONS_ALL';
337 LP_AR_RATE_ADJUSTMENTS := 'AR_RATE_ADJUSTMENTS';
338 LP_AR_RATE_ADJUSTMENTS_ALL := 'AR_RATE_ADJUSTMENTS_ALL';
339 LP_AR_RECEIVABLE_APPS := 'AR_RECEIVABLE_APPLICATIONS';
340 LP_AR_RECEIVABLE_APPS_ALL := 'AR_RECEIVABLE_APPLICATIONS_ALL';
341 XLA_MO_REPORTING_API.INITIALIZE(P_REPORTING_LEVEL
342 ,P_REPORTING_ENTITY_ID
343 ,'AUTO');
344 P_REPORTING_ENTITY_NAME := SUBSTRB(XLA_MO_REPORTING_API.GET_REPORTING_ENTITY_NAME
345 ,1
346 ,200);
347 P_REPORTING_LEVEL_NAME := SUBSTRB(XLA_MO_REPORTING_API.GET_REPORTING_LEVEL_NAME
348 ,1
349 ,30);
350 P_ORG_WHERE_CUST_ACCT := XLA_MO_REPORTING_API.GET_PREDICATE('CUST_ACCT'
351 ,NULL);
352 P_ORG_WHERE_TRX := XLA_MO_REPORTING_API.GET_PREDICATE('TRX'
353 ,NULL);
354 P_ORG_WHERE_GL_DIST := XLA_MO_REPORTING_API.GET_PREDICATE('GL_DIST'
355 ,NULL);
356 IF P_START_GL_DATE IS NOT NULL THEN
357 LP_START_GL_DATE := 'and gl_dist.gl_date >= :p_start_gl_date ';
358 END IF;
359 IF P_END_GL_DATE IS NOT NULL THEN
360 LP_END_GL_DATE := 'and gl_dist.gl_date <= :p_end_gl_date ';
361 END IF;
362 IF P_TRX_DATE_LOW IS NOT NULL THEN
363 LP_TRX_DATE_LOW := ' and trx.trx_date >= :p_trx_date_low ';
364 END IF;
365 IF P_TRX_DATE_HIGH IS NOT NULL THEN
366 LP_TRX_DATE_HIGH := ' and trx.trx_date <= :p_trx_date_high ';
367 END IF;
368 IF (P_TRX_TYPE_LOW IS NOT NULL) THEN
369 LP_TRX_TYPE_LOW := 'and arpt_sql_func_util.get_trx_type_details(trx.cust_trx_type_id,''NAME'') >= :p_trx_type_low ';
370 END IF;
371 IF (P_TRX_TYPE_HIGH IS NOT NULL) THEN
372 LP_TRX_TYPE_HIGH := 'and arpt_sql_func_util.get_trx_type_details(trx.cust_trx_type_id,''NAME'') <= :p_trx_type_high ';
373 END IF;
374 IF (P_TRX_NUMBER_LOW IS NOT NULL) THEN
375 LP_TRX_NUMBER_LOW := 'and trx.trx_number >= :p_trx_number_low ';
376 END IF;
377 IF (P_TRX_NUMBER_HIGH IS NOT NULL) THEN
378 LP_TRX_NUMBER_HIGH := 'and trx.trx_number <= :p_trx_number_high ';
379 END IF;
380 IF (P_CUSTOMER_LOW IS NOT NULL) THEN
381 LP_CUSTOMER_LOW := 'and party.party_name >= :p_customer_low ';
382 END IF;
383 IF (P_CUSTOMER_HIGH IS NOT NULL) THEN
384 LP_CUSTOMER_HIGH := 'and party.party_name <= :p_customer_high ';
385 END IF;
386 IF (P_CUSTOMER_NUMBER_LOW IS NOT NULL) THEN
387 LP_CUSTOMER_NUMBER_LOW := 'and cust_acct.account_number >= :p_customer_number_low ';
388 END IF;
389 IF (P_CUSTOMER_NUMBER_HIGH IS NOT NULL) THEN
390 LP_CUSTOMER_NUMBER_HIGH := 'and cust_acct.account_number <= :p_customer_number_high ';
391 END IF;
392 IF (P_ZERO_ROUND = 'Y') THEN
393 LP_ZERO_ROUND := ' and (gl_dist.account_class <> ''ROUND'' OR ' || ' (gl_dist.account_class = ''ROUND'' and gl_dist.acctd_amount <> 0)) ';
394 ELSE
395 LP_ZERO_ROUND := NULL;
396 END IF;
397 RETURN (TRUE);
398 END AFTERPFORM;
399
400 FUNCTION C_GL_ACCOUNT_TYPE_MEANINGFORMU RETURN VARCHAR2 IS
401 BEGIN
402 DECLARE
403 ACCT_MEANING VARCHAR2(200);
404 BEGIN
405 ACCT_MEANING := '';
406 IF (P_GL_ACCOUNT_TYPE IS NOT NULL) THEN
407 SELECT
408 MEANING
409 INTO ACCT_MEANING
410 FROM
411 AR_LOOKUPS
412 WHERE LOOKUP_TYPE = 'AUTOGL_TYPE'
413 AND LOOKUP_CODE = P_GL_ACCOUNT_TYPE;
414 END IF;
415 RETURN (ACCT_MEANING);
416 END;
417 RETURN NULL;
418 END C_GL_ACCOUNT_TYPE_MEANINGFORMU;
419
420 FUNCTION C_ORDER_BY_MEANINGFORMULA RETURN VARCHAR2 IS
421 BEGIN
422 DECLARE
423 ORDER_MEANING VARCHAR2(200);
424 BEGIN
425 ORDER_MEANING := '';
426 IF (P_SORT_BY IS NOT NULL) THEN
427 SELECT
428 MEANING
429 INTO ORDER_MEANING
430 FROM
431 AR_LOOKUPS
432 WHERE LOOKUP_TYPE = 'SORT_BY_RAXGLR'
433 AND LOOKUP_CODE = P_SORT_BY;
434 END IF;
435 RETURN (ORDER_MEANING);
436 END;
437 RETURN NULL;
438 END C_ORDER_BY_MEANINGFORMULA;
439
440 FUNCTION C_POSTING_STATUS_MEANINGFORMUL RETURN VARCHAR2 IS
441 BEGIN
442 DECLARE
443 STATUS_MEANING VARCHAR2(200);
444 BEGIN
445 STATUS_MEANING := '';
446 SELECT
447 MEANING
448 INTO STATUS_MEANING
449 FROM
450 AR_LOOKUPS
451 WHERE LOOKUP_TYPE = 'POSTING_STATUS'
452 AND LOOKUP_CODE = NVL(P_POSTING_STATUS
453 ,'ALL');
454 RETURN (STATUS_MEANING);
455 END;
456 RETURN NULL;
457 END C_POSTING_STATUS_MEANINGFORMUL;
458
459 FUNCTION ACCT_BAL_APROMPT_P RETURN VARCHAR2 IS
460 BEGIN
461 RETURN ACCT_BAL_APROMPT;
462 END ACCT_BAL_APROMPT_P;
463
464 FUNCTION RP_COMPANY_NAME_P RETURN VARCHAR2 IS
465 BEGIN
466 RETURN RP_COMPANY_NAME;
467 END RP_COMPANY_NAME_P;
468
469 FUNCTION F_REPORTING_ENTITY_p RETURN VARCHAR2 IS
470 l_code varchar2(30);
471 BEGIN
472 select lookup_code
473 into l_code
474 from fnd_lookups
475 where meaning = p_reporting_level_name
476 and lookup_type = 'XLA_MO_REPORTING_LEVEL' ;
477
478 if l_code = '3000' then
479 return (P_REPORTING_ENTITY_NAME);
480 else
481 return (' ');
482 end if;
483 END F_REPORTING_ENTITY_p;
484
485
486 FUNCTION RP_REPORT_NAME_P RETURN VARCHAR2 IS
487 BEGIN
488 RETURN RP_REPORT_NAME;
489 END RP_REPORT_NAME_P;
490
491 FUNCTION RP_DATA_FOUND_P RETURN VARCHAR2 IS
492 BEGIN
493 RETURN RP_DATA_FOUND;
494 END RP_DATA_FOUND_P;
495
496 FUNCTION RP_REPORT_SUBTITLE_P RETURN VARCHAR2 IS
497 BEGIN
498 RETURN RP_REPORT_SUBTITLE;
499 END RP_REPORT_SUBTITLE_P;
500
501 FUNCTION GSUM_FUNC_CR_AMT_P RETURN VARCHAR2 IS
502 BEGIN
503 RETURN GSUM_FUNC_CR_AMT;
504 END GSUM_FUNC_CR_AMT_P;
505
506 FUNCTION GSUM_FUNC_DR_AMT_P RETURN VARCHAR2 IS
507 BEGIN
508 RETURN GSUM_FUNC_DR_AMT;
509 END GSUM_FUNC_DR_AMT_P;
510
511 FUNCTION GSUM_CURR_CR_AMT_P RETURN VARCHAR2 IS
512 BEGIN
513 RETURN GSUM_CURR_CR_AMT;
514 END GSUM_CURR_CR_AMT_P;
515
516 FUNCTION GSUM_CURR_DR_AMT_P RETURN VARCHAR2 IS
517 BEGIN
518 RETURN GSUM_CURR_DR_AMT;
519 END GSUM_CURR_DR_AMT_P;
520
521 FUNCTION C_CURR_CODE_REV_P RETURN VARCHAR2 IS
522 BEGIN
523 RETURN C_CURR_CODE_REV;
524 END C_CURR_CODE_REV_P;
525
526 FUNCTION C_CURR_CODE_TAX_P RETURN VARCHAR2 IS
527 BEGIN
528 RETURN C_CURR_CODE_TAX;
529 END C_CURR_CODE_TAX_P;
530
531 FUNCTION C_CURR_CODE_REC_P RETURN VARCHAR2 IS
532 BEGIN
533 RETURN C_CURR_CODE_REC;
534 END C_CURR_CODE_REC_P;
535
536 FUNCTION GSUM_FUNC_CREDIT_AMT_P RETURN NUMBER IS
537 BEGIN
538 RETURN GSUM_FUNC_CREDIT_AMT;
539 END GSUM_FUNC_CREDIT_AMT_P;
540
541 FUNCTION GSUM_FUNC_DEBIT_AMT_P RETURN NUMBER IS
542 BEGIN
543 RETURN GSUM_FUNC_DEBIT_AMT;
544 END GSUM_FUNC_DEBIT_AMT_P;
545
546 FUNCTION GSUM_CURR_CREDIT_AMT_P RETURN NUMBER IS
547 BEGIN
548 RETURN GSUM_CURR_CREDIT_AMT;
549 END GSUM_CURR_CREDIT_AMT_P;
550
551 FUNCTION GSUM_CURR_DEBIT_AMT_P RETURN NUMBER IS
552 BEGIN
553 RETURN GSUM_CURR_DEBIT_AMT;
554 END GSUM_CURR_DEBIT_AMT_P;
555
556 FUNCTION RP_MESSAGE_P RETURN VARCHAR2 IS
557 BEGIN
558 if arp_util.open_period_exists(p_reporting_level,p_reporting_entity_id,p_start_gl_date,p_end_gl_date) then
559 RETURN RP_MESSAGE;
560 else
561 return ' ';
562 end if;
563 END RP_MESSAGE_P;
564
565 FUNCTION CP_ACC_MESSAGE_P RETURN VARCHAR2 IS
566 BEGIN
567 RETURN CP_ACC_MESSAGE;
568 END CP_ACC_MESSAGE_P;
569
570 END AR_RAXGLR_XMLP_PKG;
571