1 PACKAGE BODY AR_XLA_REPORTS_PKG as
2 /* $Header: ARXLARB.pls 120.1.12010000.2 2009/08/31 10:22:23 vsanka noship $ */
3
4 /*========================================================================+
5 Custom query procedure for concurrent 'Sales Journal by GL Account (XML)'
6 ========================================================================*/
7 PROCEDURE JE_REPORT_HOOK ( p_application_id IN NUMBER
8 , p_component_name IN VARCHAR2
9 , p_custom_query_flag IN VARCHAR2
10 , p_custom_header_query OUT NOCOPY VARCHAR2
11 , p_custom_line_query OUT NOCOPY VARCHAR2) AS
12 BEGIN
13
14 IF p_component_name = 'ARSJGLARPT' THEN -- check the concurrent name
15 IF p_custom_query_flag = 'L' THEN -- Match with GL == No => Show Lines
16 p_custom_line_query := 'select /*+ index(xdl, XLA_DISTRIBUTION_LINKS_N3) */
17 sum(xdl.unrounded_entered_dr) L1, sum(xdl.unrounded_entered_cr) L2,
18 sum(xdl.unrounded_accounted_dr) L3, sum(xdl.unrounded_accounted_cr) L4,
19 xdl.application_id L5, xdl.ae_header_id L6, xdl.ae_line_num L7
20 from xla_distribution_links xdl
21 where xdl.event_class_code = ''CREDIT_MEMO''
22 and xdl.source_distribution_type = ''RA_CUST_TRX_LINE_GL_DIST_ALL''
23 and xdl.application_id = to_number(:APPLICATION_ID)
24 and xdl.ae_header_id = to_number(:HEADER_ID)
25 and xdl.ae_line_num = to_number(:ORIG_LINE_NUMBER)
26 group by xdl.application_id, xdl.ae_header_id, xdl.ae_line_num ';
27 END IF;
28 END IF;
29
30 END JE_REPORT_HOOK;
31
32 END AR_XLA_REPORTS_PKG;