[Home] [Help]
PACKAGE BODY: APPS.ARRX_SALES_TAX_REP_COVER
Source
1 package body ARRX_SALES_TAX_REP_COVER as
2 /* $Header: ARRXCSTB.pls 115.4 2003/10/10 14:27:23 mraymond ship $ */
3 PG_DEBUG varchar2(1) := NVL(FND_PROFILE.value('AFLOG_ENABLED'), 'N');
4
5 PROCEDURE AR_SALES_TAX (
6 errbuf out NOCOPY varchar2,
7 retcode out NOCOPY number,
8 argument1 in number, -- chart_of_accounts
9 argument2 in varchar2, -- trx_date_low
10 argument3 in varchar2, -- trx_date_high
11 argument4 in varchar2, -- gl_date_low
12 argument5 in varchar2, -- gl_date_high
13 argument6 in varchar2, -- state_low
14 argument7 in varchar2, -- state_high
15 argument8 in varchar2, -- currency_low
16 argument9 in varchar2, -- currency_high
17 argument10 in varchar2, -- exemption_status
18 argument11 in varchar2, -- where_gl_flex1
19 argument12 in varchar2, -- where_gl_flex2
20 argument13 in varchar2, -- where_gl_flex3
21 argument14 in varchar2, -- where_gl_flex4
22 argument15 in varchar2, -- where_gl_flex5
23 argument16 in varchar2, -- where_gl_flex6
24 argument17 in varchar2, -- where_gl_flex7
25 argument18 in varchar2, -- where_gl_flex8
26 argument19 in varchar2, -- where_gl_flex9
27 argument20 in varchar2, -- show_deposit_children
28 argument21 in varchar2, -- detail_level L/H
29 argument22 in varchar2, -- posted_status
30 argument23 in varchar2, -- show_cms_adjs_outside_date
31 argument24 in varchar2 default null, -- request_id
32 argument25 in varchar2 default null, -- user_id
33 argument26 in varchar2 default null,
34 argument27 in varchar2 default null,
35 argument28 in varchar2 default null,
36 argument29 in varchar2 default null,
37 argument30 in varchar2 default null,
38 argument31 in varchar2 default null,
39 argument32 in varchar2 default null,
40 argument33 in varchar2 default null,
41 argument34 in varchar2 default null,
42 argument35 in varchar2 default null,
43 argument36 in varchar2 default null,
44 argument37 in varchar2 default null,
45 argument38 in varchar2 default null,
46 argument39 in varchar2 default null,
47 argument40 in varchar2 default null,
48 argument41 in varchar2 default null,
49 argument42 in varchar2 default null,
50 argument43 in varchar2 default null,
51 argument44 in varchar2 default null,
52 argument45 in varchar2 default null,
53 argument46 in varchar2 default null,
54 argument47 in varchar2 default null,
55 argument48 in varchar2 default null,
56 argument49 in varchar2 default null,
57 argument50 in varchar2 default null,
58 argument51 in varchar2 default null,
59 argument52 in varchar2 default null,
60 argument53 in varchar2 default null,
61 argument54 in varchar2 default null,
62 argument55 in varchar2 default null,
63 argument56 in varchar2 default null,
64 argument57 in varchar2 default null,
65 argument58 in varchar2 default null,
66 argument59 in varchar2 default null,
67 argument60 in varchar2 default null,
68 argument61 in varchar2 default null,
69 argument62 in varchar2 default null,
70 argument63 in varchar2 default null,
71 argument64 in varchar2 default null,
72 argument65 in varchar2 default null,
73 argument66 in varchar2 default null,
74 argument67 in varchar2 default null,
75 argument68 in varchar2 default null,
76 argument69 in varchar2 default null,
77 argument70 in varchar2 default null,
78 argument71 in varchar2 default null,
79 argument72 in varchar2 default null,
80 argument73 in varchar2 default null,
81 argument74 in varchar2 default null,
82 argument75 in varchar2 default null,
83 argument76 in varchar2 default null,
84 argument77 in varchar2 default null,
85 argument78 in varchar2 default null,
86 argument79 in varchar2 default null,
87 argument80 in varchar2 default null,
88 argument81 in varchar2 default null,
89 argument82 in varchar2 default null,
90 argument83 in varchar2 default null,
91 argument84 in varchar2 default null,
92 argument85 in varchar2 default null,
93 argument86 in varchar2 default null,
94 argument87 in varchar2 default null,
95 argument88 in varchar2 default null,
96 argument89 in varchar2 default null,
97 argument90 in varchar2 default null,
98 argument91 in varchar2 default null,
99 argument92 in varchar2 default null,
100 argument93 in varchar2 default null,
101 argument94 in varchar2 default null,
102 argument95 in varchar2 default null,
103 argument96 in varchar2 default null,
104 argument97 in varchar2 default null,
105 argument98 in varchar2 default null,
106 argument99 in varchar2 default null,
107 argument100 in varchar2 default null) is
108
109 h_request_id number;
110 h_user_id number;
111 h_trx_low date;
112 h_dateformat_2 varchar2(25);
113 h_dateformat_3 varchar2(25);
114 h_dateformat_4 varchar2(25);
115 h_dateformat_5 varchar2(25);
116 h_trx_low_datestr varchar2(25);
117 h_trx_high date;
118 h_trx_high_datestr varchar2(25);
119 h_gl_low date;
120 h_gl_low_datestr varchar2(25);
121 h_gl_high date;
122 h_gl_high_datestr varchar2(25);
123 h_where_gl_flex varchar2(2000);
124 h_lp_gltax_where varchar2(2000);
125 h_dummy varchar2(2000);
126
127 begin
128 -- get the request id
129 h_request_id := fnd_global.conc_request_id;
130
131 -- data conversions
132 h_user_id := to_number(argument18);
133
134 if substr(argument2,1,instr(argument2,'_')-1) is null then
135 h_trx_low_datestr := argument2;
136 else
137 h_trx_low_datestr := substr(argument2,1,instr(argument2,'_')-1);
138 end if;
139
140
141 if substr(argument3,1,instr(argument3,'_')-1) is null then
142 h_trx_high_datestr := argument3;
143 else
144 h_trx_high_datestr := substr(argument3,1,instr(argument3,'_')-1);
145 end if;
146
147
148 if substr(argument4,1,instr(argument4,'_')-1) is null then
149 h_gl_low_datestr := argument4;
150 else
151 h_gl_low_datestr := substr(argument4,1,instr(argument4,'_')-1);
152 end if;
153
154 if substr(argument5,1,instr(argument5,'_')-1) is null then
155 h_gl_high_datestr := argument5;
156 else
157 h_gl_high_datestr := substr(argument5,1,instr(argument5,'_')-1);
158 end if;
159
160 if substr(argument2,instr(argument2,'_')+1) = argument2 then
161 h_dateformat_2 := 'DD-MON-YYYY';
162 else
163 h_dateformat_2 := substr(argument2,instr(argument2,'_')+1);
164 end if;
165
166 if substr(argument3,instr(argument3,'_')+1) = argument3 then
167 h_dateformat_3 := 'DD-MON-YYYY';
168 else
169 h_dateformat_3 := substr(argument3,instr(argument3,'_')+1);
170 end if;
171
172 if substr(argument4,instr(argument4,'_')+1) = argument4 then
173 h_dateformat_4:= 'DD-MON-YYYY';
174 else
175 h_dateformat_4 := substr(argument4,instr(argument4,'_')+1);
176 end if;
177
178 if substr(argument5,instr(argument5,'_')+1) = argument5 then
179 h_dateformat_5 := 'DD-MON-YYYY';
180 else
181 h_dateformat_5 := substr(argument5,instr(argument5,'_')+1);
182 end if;
183
184 h_trx_low := to_date(h_trx_low_datestr,h_dateformat_2);
185 h_trx_high := to_date(h_trx_high_datestr,h_dateformat_3);
186 h_gl_low := to_date(h_gl_low_datestr,h_dateformat_4);
187 h_gl_high := to_date(h_gl_high_datestr,h_dateformat_5);
188
189 -- build accounting flexfield where clauses
190 h_where_gl_flex := argument11||argument12||argument13||
191 argument14||argument15||argument16||
192 argument17||argument18||argument19;
193
194 h_dummy := replace(h_where_gl_flex,'BETWEEN','(+) BETWEEN');
195 h_lp_gltax_where := replace(h_dummy,'CC.','GLTAX.');
196
197 -- call inner procedure
198
199 arrx_sales_tax_rep.sales_tax_rpt (
200 chart_of_accounts_id => argument1,
201 trx_date_low => h_trx_low,
202 trx_date_high => h_trx_high,
203 gl_date_low => h_gl_low,
204 gl_date_high => h_gl_high,
205 state_low => argument6,
206 state_high => argument7,
207 currency_low => argument8,
208 currency_high => argument9,
209 exemption_status => argument10,
210 lp_gltax_where => h_lp_gltax_where,
211 where_gl_flex => h_where_gl_flex,
212 show_deposit_children => argument20,
213 detail_level => argument21,
214 posted_status => argument22,
215 show_cms_adjs_outside_date => argument23,
216 request_id => h_request_id,
217 user_id => h_user_id,
218 retcode => retcode,
219 errbuf => errbuf
220 );
221 commit;
222
223 end AR_SALES_TAX;
224
225 FUNCTION CALL_SUBMIT_REQUEST(application IN varchar2 default NULL,
226 program IN varchar2 default NULL,
227 description IN varchar2 default NULL,
228 start_time IN varchar2 default NULL,
229 sub_request IN boolean default FALSE,
230 argument1 IN varchar2 default NULL,
231 argument2 IN varchar2 default NULL,
232 argument3 IN varchar2 default NULL,
233 argument4 IN varchar2 default NULL,
234 argument5 IN varchar2 default NULL,
235 argument6 IN varchar2 default NULL,
236 argument7 IN varchar2 default NULL,
237 argument8 IN varchar2 default NULL,
238 argument9 IN varchar2 default NULL,
239 argument10 IN varchar2 default NULL,
240 argument11 IN varchar2 default NULL,
241 argument12 IN varchar2 default NULL,
242 argument13 IN varchar2 default NULL,
243 argument14 IN varchar2 default NULL,
244 argument15 IN varchar2 default NULL,
245 argument16 IN varchar2 default NULL,
246 argument17 IN varchar2 default NULL,
247 argument18 IN varchar2 default NULL,
248 argument19 IN varchar2 default NULL,
249 argument20 IN varchar2 default NULL,
250 argument21 IN varchar2 default NULL,
251 argument22 IN varchar2 default NULL,
252 argument23 IN varchar2 default NULL)
253 RETURN NUMBER IS
254 l_request_id NUMBER :=0;
255 BEGIN
256 IF PG_DEBUG in ('Y', 'C') THEN
257 arp_util.debug('ARRX_SALES_TAX_REP_COVER.CALL_SUBMIT_REQUEST()+');
258 END IF;
259 l_request_id := FND_REQUEST.SUBMIT_REQUEST(
260 application, program, description, start_time,
261 sub_request, argument1, argument2, argument3,
262 argument4, argument5, argument6, argument7,
263 argument8, argument9, argument10, argument11,
264 argument12, argument13, argument14, argument15,
265 argument16, argument17, argument18, argument19,
266 argument20, argument21, argument22, argument23);
267 IF PG_DEBUG in ('Y', 'C') THEN
268 arp_util.debug('ARRX_SALES_TAX_REP_COVER.CALL_SUBMIT_REQUEST('||to_char(l_request_id)||')-');
269 END IF;
270 return l_request_id;
271 EXCEPTION
272 WHEN OTHERS THEN
273 IF PG_DEBUG in ('Y', 'C') THEN
274 arp_util.debug('CALL_SUBMIT_REQUEST: ' || 'Error calling FND_REQUEST.SUBMIT_REQUEST.');
275 arp_util.debug('CALL_SUBMIT_REQUEST: ' || SQLERRM);
276 END IF;
277 RAISE;
278 END CALL_SUBMIT_REQUEST;
279
280 end ARRX_SALES_TAX_REP_COVER;