1 PACKAGE BODY AR_RAXINPS_XMLP_PKG AS
2 /* $Header: RAXINPSB.pls 120.0 2007/12/27 14:25:05 abraghun noship $ */
3
4 function BeforeReport return boolean is
5 begin
6
7 /*SRW.USER_EXIT('FND SRWINIT');*/null;
8 --ADDED AS FIX
9 P_GL_START_DATE_T:= to_char(P_GL_START_DATE,'DD-MON-YY');
10 P_GL_END_DATE_T :=to_char(P_GL_END_DATE,'DD-MON-YY');
11 P_TRX_END_DATE_T := to_char(P_TRX_END_DATE,'DD-MON-YY');
12 P_TRX_START_DATE_T := to_char(P_TRX_START_DATE,'DD-MON-YY');
13 --FIX ENDS
14 return (TRUE);
15 end;
16
17 function AfterReport return boolean is
18 begin
19
20 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
21 return (TRUE);
22 end;
23
24 function report_nameformula(Company_Name in varchar2) return varchar2 is
25 begin
26
27 DECLARE
28 l_report_name VARCHAR2(80);
29 l_gl_start_date VARCHAR2 (11);
30 l_gl_end_date VARCHAR2 (11);
31 l_trx_start_date VARCHAR2 (11);
32 l_trx_end_date VARCHAR2 (11);
33
34 BEGIN
35
36 if p_gl_start_date is NULL then
37 l_gl_start_date := ' ';
38 else
39 l_gl_start_date := TO_CHAR(p_gl_start_date, 'DD-MON-YYYY') ;
40 end if ;
41 if p_gl_end_date is NULL then
42 l_gl_end_date := ' ';
43 else
44 l_gl_end_date := TO_CHAR(p_gl_end_date, 'DD-MON-YYYY');
45 end if ;
46
47 rp_gl_date_range := 'GL Date From '||l_gl_start_date||' To '||l_gl_end_date ;
48
49
50 if p_trx_start_date is NULL then
51 l_trx_start_date := ' ';
52 else
53 l_trx_start_date := TO_CHAR(p_trx_start_date, 'DD-MON-YYYY') ;
54 end if ;
55 if p_trx_end_date is NULL then
56 l_trx_end_date := ' ';
57 else
58 l_trx_end_date := TO_CHAR(p_trx_end_date, 'DD-MON-YYYY');
59 end if ;
60
61 rp_trx_date_range := 'Invoice Date From '||l_trx_start_date||' To '||l_trx_end_date ;
62
63 RP_Company_Name := Company_Name;
64 SELECT substr(cp.user_concurrent_program_name,1,80)
65 INTO l_report_name
66 FROM FND_CONCURRENT_PROGRAMS_VL cp,
67 FND_CONCURRENT_REQUESTS cr
68 WHERE cr.request_id = P_CONC_REQUEST_ID
69 AND cp.application_id = cr.program_application_id
70 AND cp.concurrent_program_id = cr.concurrent_program_id;
71
72 RP_Report_Name := l_report_name;
73 RETURN(l_report_name);
74 EXCEPTION
75 WHEN NO_DATA_FOUND
76 THEN RP_REPORT_NAME := 'Invoice Posted to Suspense';
77 RETURN('REPORT TITLE');
78 END;
79
80 RETURN NULL; end;
81
82 function AfterPForm return boolean is
83 begin
84
85 BEGIN
86
87 if p_gl_start_date is NOT NULL then
88 lp_gl_start_date := 'and suspdist.gl_date >=:p_gl_start_date' ;
89 end if ;
90
91 if p_gl_end_date is NOT NULL then
92 lp_gl_end_date := 'and suspdist.gl_date <= :p_gl_end_date' ;
93 end if ;
94
95 if p_trx_start_date is NOT NULL then
96 lp_trx_start_date := 'and trx.trx_date >= :p_trx_start_date' ;
97 end if ;
98
99 if p_trx_end_date is NOT NULL then
100 lp_trx_end_date := 'and trx.trx_date <= :p_trx_end_date' ;
101 end if ;
102
103 if p_type_low is NOT NULL then
104 lp_type_low := 'and type.name >= :p_type_low' ;
105 end if ;
106
107 if p_type_high is NOT NULL then
108 lp_type_high := 'and type.name <= :p_type_high' ;
109 end if ;
110
111 if p_start_currency_code is NOT NULL then
112 lp_start_currency_code := 'and trx.invoice_currency_code >= :p_start_currency_code ';
113 end if ;
114
115 if p_end_currency_code is NOT NULL then
116 lp_end_currency_code := 'and trx.invoice_currency_code <= :p_end_currency_code ';
117 end if ;
118 DECLARE
119 l_yes VARCHAR2 (80);
120
121 BEGIN
122 select meaning
123 into l_yes
124 from ar_lookups
125 where lookup_code = 'Y'
126 and lookup_type = 'YES/NO'
127 ;
128 --p_yes := l_yes ;
129 p_yes := ''''||l_yes||'''' ;
130 EXCEPTION WHEN NO_DATA_FOUND THEN
131 l_yes := '' ;
132 END ;
133
134 DECLARE
135 l_no VARCHAR2 (80);
136
137 BEGIN
138 select meaning
139 into l_no
140 from ar_lookups
141 where lookup_code = 'N'
142 and lookup_type = 'YES/NO'
143 ;
144 --p_no := l_no ;
145 p_no := ''''||l_no||'''' ;
146 EXCEPTION WHEN NO_DATA_FOUND THEN
147 l_no := '' ;
148 END ;
149
150 END ;
151 return (TRUE);
152 end;
153
154 function c_class_labelformula(class in varchar2) return varchar2 is
155 begin
156
157 return ('Sum for '||class||' Class');
158 end;
159
160 function c_company_labelformula(D_company in varchar2) return varchar2 is
161 begin
162
163 return ('Sum for '||D_company||' Company');
164 end;
165
166 function c_post_labelformula(postable in varchar2) return varchar2 is
167 begin
168
169 return ('Sum for '||postable||' Postable');
170 end;
171
172 function c_currency_labelformula(currency_A in varchar2) return varchar2 is
173 begin
174
175 return ('Sum for '||currency_A||' Currency');
176 end;
177
178 function c_data_not_foundformula(company in varchar2) return number is
179 begin
180
181 rp_data_found := company ;
182 return (0);
183 end;
184
185 function cf_acc_messageformula(org_id in number) return number is
186 begin
187 IF arp_util.open_period_exists('3000',org_id,p_gl_start_date,p_gl_end_date) THEN
188
189 FND_MESSAGE.SET_NAME('AR','AR_REPORT_ACC_NOT_GEN');
190 cp_acc_message := FND_MESSAGE.get;
191
192 ELSE
193 cp_acc_message := NULL;
194 END IF;
195 return 0;
196 end;
197
198 --Functions to refer Oracle report placeholders--
199
200 Function ACCT_BAL_APROMPT_p return varchar2 is
201 Begin
202 return ACCT_BAL_APROMPT;
203 END;
204 Function RP_COMPANY_NAME_p return varchar2 is
205 Begin
206 return RP_COMPANY_NAME;
207 END;
208 Function RP_REPORT_NAME_p return varchar2 is
209 Begin
210 return RP_REPORT_NAME;
211 END;
212 Function RP_DATA_FOUND_p return varchar2 is
213 Begin
214 return RP_DATA_FOUND;
215 END;
216 Function RP_GL_DATE_RANGE_p return varchar2 is
217 Begin
218 return RP_GL_DATE_RANGE;
219 END;
220 Function RP_TRX_DATE_RANGE_p return varchar2 is
221 Begin
222 return RP_TRX_DATE_RANGE;
223 END;
224 Function RPD_REPORT_SUMMARY_p return varchar2 is
225 Begin
226 return RPD_REPORT_SUMMARY;
227 END;
228 Function RP_BAL_LPROMPT_p return varchar2 is
229 Begin
230 return RP_BAL_LPROMPT;
231 END;
232 Function CP_ACC_MESSAGE_p return varchar2 is
233 Begin
234 return CP_ACC_MESSAGE;
235 END;
236 Function p_yes_p return varchar2 is
237 Begin
238 return p_yes;
239 END;
240 Function p_no_p return varchar2 is
241 Begin
242 return p_no;
243 END;
244 END AR_RAXINPS_XMLP_PKG ;
245