[Home] [Help]
PACKAGE BODY: APPS.AR_RAXINX_XMLP_PKG
Source
1 PACKAGE BODY AR_RAXINX_XMLP_PKG AS
2 /* $Header: RAXINXB.pls 120.0 2007/12/27 14:28:34 abraghun noship $ */
3
4 function AfterReport return boolean is
5 begin
6
7 /*srw.user_exit('FND SRWEXIT');*/null;
8 return (TRUE);
9 end;
10
11 function AfterPForm return boolean is
12 begin
13 if sortname is not null then
14 lp_sortname:=sortname;
15 end if;
16 /*srw.user_exit('FND SRWINIT');*/null;
17
18
19
20 BEGIN
21
22 XLA_MO_REPORTING_API.Initialize(p_reporting_level, p_reporting_entity_id, 'AUTO');
23 p_reporting_entity_name := substrb(XLA_MO_REPORTING_API.get_reporting_entity_name,1,200) ;
24 p_reporting_level_name := substrb(XLA_MO_REPORTING_API.get_reporting_level_name,1,30);
25 P_ORG_WHERE_CUST := XLA_MO_REPORTING_API.Get_Predicate('CUST', null);
26 P_ORG_WHERE_DIST := XLA_MO_REPORTING_API.Get_Predicate('DIST', null);
27 P_ORG_WHERE_TRX := XLA_MO_REPORTING_API.Get_Predicate('TRX', null);
28 P_ORG_WHERE_TYPE := XLA_MO_REPORTING_API.Get_Predicate('TYPE',null);
29
30
31 if p_start_gl_date is NOT NULL then
32 lp_start_gl_date := ' AND dist.gl_date >= :p_start_gl_date ';
33 lp_start_trx_date2 := ' AND trx.trx_date >= :p_start_gl_date ';
34 end if ;
35 if p_end_gl_date is NOT NULL then
36 lp_end_gl_date := ' and dist.gl_date <= :p_end_gl_date ';
37 lp_end_trx_date2 := ' and trx.trx_date <= :p_end_gl_date ';
38 end if ;
39
40 if p_start_trx_date is NOT NULL then
41 lp_start_trx_date := ' AND trx.trx_date >= :p_start_trx_date ';
42 end if ;
43 if p_end_trx_date is NOT NULL then
44 lp_end_trx_date := ' AND trx.trx_date <= :p_end_trx_date ';
45 end if ;
46
47 if start_currency_code is NOT NULL then
48 lp_start_currency := ' AND money.currency_code >= :start_currency_code ';
49 end if;
50 if end_currency_code is NOT NULL then
51 lp_end_currency := ' AND money.currency_code <= :end_currency_code ';
52 end if;
53
54 if invoice_type_low is NOT NULL then
55 lp_start_trx := ' AND type.name >= :invoice_type_low ';
56 end if;
57 if invoice_type_high is NOT NULL then
58 lp_end_trx := 'AND type.name <= :invoice_type_high ';
59 end if;
60 END; return (TRUE);
61 end;
62
63 function c_populateformula(COMPANY_NAME in varchar2, c_functional_currency in varchar2) return varchar2 is
64 begin
65
66 BEGIN
67 D_COMPANY_NAME := COMPANY_NAME;
68 RP_FUNC_CURR := c_functional_currency;
69 RETURN('1');
70 END;
71 RETURN NULL; end;
72
73 function REPORT_NAMEFormula return varChar is
74
75
76 l_report_name VARCHAR2(240);
77
78 BEGIN
79 SELECT cp.user_concurrent_program_name
80 INTO l_report_name
81 FROM FND_CONCURRENT_PROGRAMS_VL cp,
82 FND_CONCURRENT_REQUESTS cr
83 WHERE cr.request_id = P_CONC_REQUEST_ID
84 AND cp.application_id = cr.program_application_id
85 AND cp.concurrent_program_id = cr.concurrent_program_id;
86
87 RP_Report_Name := l_report_name;
88
89 RETURN(l_report_name);
90 EXCEPTION
91 WHEN NO_DATA_FOUND
92 THEN
93 RP_REPORT_NAME := 'Invoice Exception Report';
94 RETURN('Invoice Exception Report');
95
96 END;
97
98 function BeforeReport return boolean is
99 L_LD_SP VARCHAR2(1);
100 begin
101
102 P_CONC_REQUEST_ID:=FND_GLOBAL.conc_request_id;
103 CP_START_GL_DATE := to_char(P_START_GL_DATE,'DD-MON-YY');
104 CP_END_GL_DATE := to_char(P_END_GL_DATE,'DD-MON-YY');
105 CP_START_TRX_DATE := TO_CHAR(P_START_TRX_DATE,'DD-MON-YY');
106 CP_END_TRX_DATE := TO_CHAR(P_END_TRX_DATE,'DD-MON-YY');
107 FND_MESSAGE.SET_NAME('AR','AR_REPORT_ACC_NOT_GEN');
108 cp_acc_message := FND_MESSAGE.get;
109
110
111 /*SRW.REFERENCE(p_coaid);*/null;
112 RP_MESSAGE := NULL;
113 IF TO_NUMBER(P_REPORTING_LEVEL) = 1000 THEN
114 L_LD_SP := MO_UTILS.CHECK_LEDGER_IN_SP(TO_NUMBER(P_REPORTING_ENTITY_ID));
115 IF L_LD_SP = 'N' THEN
116 FND_MESSAGE.SET_NAME('FND'
117 ,'FND_MO_RPT_PARTIAL_LEDGER');
118 RP_MESSAGE := FND_MESSAGE.GET;
119 END IF;
120 END IF;
121
122
123
124 if p_in_bal_segment_low is NOT NULL then
125
126 null;
127 lp_bal_seg_low := 'and '|| lp_bal_seg_low || '||'''' >= ''' || p_in_bal_segment_low || ''' ';
128 end if ;
129 if p_in_bal_segment_high is NOT NULL then
130
131 null;
132 lp_bal_seg_high := 'and '|| lp_bal_seg_high || '||'''' <= ''' || p_in_bal_segment_high || ''' ';
133 end if ;
134
135 return (TRUE);
136 end;
137
138 --Functions to refer Oracle report placeholders--
139
140 Function RP_REPORT_NAME_p return varchar2 is
141 Begin
142 return substr(RP_REPORT_NAME,1,instr(RP_REPORT_NAME,' (XML)'));
143 END;
144 Function CP_ACC_MESSAGE_p return varchar2 is
145 Begin
146 return CP_ACC_MESSAGE;
147 END;
148 FUNCTION RP_MESSAGE_P RETURN VARCHAR2 IS
149 BEGIN
150 RETURN RP_MESSAGE;
151 END RP_MESSAGE_P;
152
153 END AR_RAXINX_XMLP_PKG ;
154