[Home] [Help]
PACKAGE BODY: APPS.ICX_PAYMENT_PVT
Source
1 PACKAGE BODY ICX_PAYMENT_PVT as
2 /* $Header: ICXPSPVB.pls 115.5 99/07/17 03:20:34 porting ship $ */
3
4 procedure unpack_results(l_string in varchar2,
5 l_names out v240_table,
6 l_values out v240_table) is
7 l_length number(15) := length(l_string) + 1;
8 l_count number(15);
9 l_index number(15) := 1;
10 l_char varchar(1) := '';
11 l_word varchar(240) := '';
12 l_name boolean := TRUE;
13 debug boolean := FALSE;
14 begin
15 l_count := instr(l_string,'</H2>');
16
17 if l_count > 0
18 then
19 l_count := l_count +5;
20 end if;
21 if debug
22 then
23 htp.p('DEBUG string = '||l_string);htp.nl;
24 htp.p('DEBUG l_count = '||l_count||' l_length = '||l_length);htp.nl;
25 end if;
26 while l_count < l_length loop
27 if l_name and substr(l_string,l_count,1) = ':'
28 then
29 l_names(l_index) := ltrim(rtrim(l_word));
30
31 if debug
32 then
33 htp.p('DEBUG name = '||l_word);
34 end if;
35 l_name := FALSE;
36 l_word := '';
37 l_count := l_count + 1;
38 elsif l_name
39 then
40 l_char := substr(l_string,l_count,1);
41 l_word := l_word||l_char;
42 l_count := l_count + 1;
43 elsif upper(substr(l_string,l_count,4)) = '<BR>'
44
45 then
46 l_values(l_index) := ltrim(rtrim(l_word));
47 if debug
48 then
49 htp.p(' value = '||l_word);htp.nl;
50 end if;
51 l_name := TRUE;
52 l_word := '';
53 l_index := l_index + 1;
54 l_count := l_count + 4;
55 else
56 l_char := substr(l_string,l_count,1);
57 l_word := l_word||l_char;
58
59 l_count := l_count + 1;
60 end if;
61 end loop;
62 exception
63 when others then
64 htp.p(SQLERRM);
65 end;
66
67 /*
68 Gets the url for the Payment Server from the profile ICX_PAY_SERVER
69 */
70 function GetServerUrl
71 return varchar2 is
72
73 l_url varchar2(2000) := null;
74
75 begin
76 fnd_profile.get('ICX_PAY_SERVER', l_url);
77
78 return(l_url);
79
80 end GetServerUrl;
81
82
83 procedure orapmtlist(
84 OapfStoreId in varchar2,
85 OapfEmail in varchar2 default null,
86 OapfNumber out varchar2,
87 OapfPmtType out v240_table) is
88 l_url varchar2(2000);
89
90 l_html varchar2(2000);
91 l_names v240_table;
92 l_values v240_table;
93 debug boolean := FALSE;
94 begin
95 /* Open issue; does this come from FND_PROFILE or a input parameter*/
96 --l_url := 'http://ap571sun.us.oracle.com:9999/orapmt/OraPmt?';
97 l_url := icx_payment_pvt.GetServerUrl ||'?';
98 l_url := l_url||'OapfAction=orapmtlist'||'&';
99 l_url := l_url||'OapfStoreId='||OapfStoreId||'&';
100 l_url := l_url||'OapfEmail='||OapfEmail;
101 l_url := replace(l_url,' ','+');
102 if debug
103 then
104
105 htp.p('DEBUG URL = '||l_url);htp.nl;
106 end if;
107 l_html := utl_http.request(l_url);
108 if debug
109 then
110 htp.p('DEBUG HTML = '||l_html);
111 end if;
112 unpack_results(l_html,l_names,l_values);
113 OapfNumber := l_values(1);
114 for i in 2..l_names.COUNT loop
115 OapfPmtType(i-1) := l_values(i);
116 end loop;
117 exception
118
119 when others then
120 OapfNumber := -1;
121 OapfPmtType(-1) := SQLERRM;
122 end;
123
124 procedure orainv(
125 OapfOrderId in out varchar2,
126 OapfCurr in varchar2,
127 OapfPrice in out varchar2,
128 OapfAuthType in varchar2,
129 OapfPmtType in varchar2,
130 OapfStoreId in varchar2,
131 OapfPayURL in varchar2,
132 OapfReturnURL in varchar2,
133
134 OapfFile in varchar2 default null,
135 OapfCustName in varchar2 default null,
136 OapfAddr1 in varchar2 default null,
137 OapfAddr2 in varchar2 default null,
138 OapfAddr3 in varchar2 default null,
139 OapfCity in varchar2 default null,
140 OapfCnty in varchar2 default null,
141 OapfState in varchar2 default null,
142 OapfCntry in varchar2 default null,
143 OapfPostalCode in varchar2 default null,
144 OapfPhone in varchar2 default null,
145 OapfEmail in varchar2 default null,
146 OapfStatus out varchar2,
147
148 OapfErrLocation out varchar2,
149 OapfVendErrCode out varchar2,
150 OapfVendErrmsg out varchar2) is
151 l_url varchar2(2000);
152 l_html varchar2(2000);
153 l_names v240_table;
154 l_values v240_table;
155 debug boolean := FALSE;
156 begin
157 /* Open issue; does this come from FND_PROFILE or a input parameter*/
158 --l_url := 'http://ap571sun.us.oracle.com:9999/orapmt/OraPmt?';
159 l_url := icx_payment_pvt.GetServerUrl ||'?';
160 l_url := l_url||'OapfAction=orainv'||'&';
161 l_url := l_url||'OapfOrderId='||OapfOrderId||'&';
162
163 l_url := l_url||'OapfCurr='||OapfCurr||'&';
164 l_url := l_url||'OapfPrice='||OapfPrice||'&';
165 l_url := l_url||'OapfAuthType='||OapfAuthType||'&';
166 l_url := l_url||'OapfPmtType='||OapfPmtType||'&';
167 l_url := l_url||'OapfStoreId='||OapfStoreId||'&';
168 l_url := l_url||'OapfPayURL='||OapfPayURL||'&';
169 l_url := l_url||'OapfPmtReturnURL='||OapfReturnURL||'&';
170 l_url := l_url||'OapfFile='||OapfFile||'&';
171 l_url := l_url||'OapfCustName='||OapfCustName||'&';
172 l_url := l_url||'OapfAddr1='||OapfAddr1||'&';
173 l_url := l_url||'OapfAddr2='||OapfAddr2||'&';
174 l_url := l_url||'OapfAddr3='||OapfAddr3||'&';
175 l_url := l_url||'OapfCity='||OapfCity||'&';
176
177 l_url := l_url||'OapfCnty='||OapfCnty||'&';
178 l_url := l_url||'OapfState='||OapfState||'&';
179 l_url := l_url||'OapfCntry='||OapfCntry||'&';
180 l_url := l_url||'OapfPostalCode='||OapfPostalCode||'&';
181 l_url := l_url||'OapfPhone='||OapfPhone||'&';
182 l_url := l_url||'OapfEmail='||OapfEmail;
183 l_url := replace(l_url,' ','+');
184 if debug
185 then
186 htp.p('DEBUG URL = '||l_url);htp.nl;
187 end if;
188 l_html := utl_http.request(l_url);
189 if debug
190
191 then
192 htp.p('DEBUG HTML = '||l_html);
193 end if;
194 unpack_results(l_html,l_names,l_values);
195 OapfOrderId := '';
196 OapfPrice := '';
197 for i in 1..l_names.COUNT loop
198 if l_names(i) = 'OapfStatus'
199 then
200 OapfStatus := l_values(i);
201 elsif l_names(i) = 'OapfOrderId'
202 then
203 OapfOrderId := l_values(i);
204
205 elsif l_names(i) = 'OapfPrice'
206 then
207 OapfPrice := l_values(i);
208 elsif l_names(i) = 'OapfErrLocation'
209 then
210 OapfErrLocation := l_values(i);
211 elsif l_names(i) = 'OapfVendErrCode'
212 then
213 OapfVendErrCode := l_values(i);
214 elsif l_names(i) = 'OapfVendErrmsg'
215 then
216 OapfVendErrmsg := l_values(i);
217 end if;
218
219 end loop;
220 exception
221 when others then
222 OapfStatus := SQLERRM;
223 end;
224
225 procedure orapay(
226 OapfPmtSvc in varchar2,
227 OapfStatus out varchar2,
228 OapfOrderId out varchar2,
229 OapfCurr out varchar2,
230 OapfPrice out varchar2,
231 OapfAuthType out varchar2,
232 OapfStoreId out varchar2,
233
234 OapfErrLocation out varchar2,
235 OapfVendErrCode out varchar2,
236 OapfVendErrmsg out varchar2) is
237 l_url varchar2(2000);
238 l_html varchar2(2000);
239 l_names v240_table;
240 l_values v240_table;
241 debug boolean := FALSE;
242 begin
243 /* Open issue; does this come from FND_PROFILE or a input parameter*/
244 --l_url := 'http://ap571sun.us.oracle.com:9999/orapmt/OraPmt?';
245 l_url := icx_payment_pvt.GetServerUrl ||'?';
246 l_url := l_url||'OapfAction=orapay'||'&';
247 l_url := l_url||'OapfPmtSvc='||OapfPmtSvc;
248
249 l_url := replace(l_url,' ','+');
250 if debug
251 then
252 htp.p('DEBUG URL = '||l_url);htp.nl;
253 end if;
254 l_html := utl_http.request(l_url);
255 if debug
256 then
257 htp.p('DEBUG HTML = '||l_html);
258 end if;
259 unpack_results(l_html,l_names,l_values);
260 for i in 1..l_names.COUNT loop
261 if l_names(i) = 'OapfStatus'
262
263 then
264 OapfStatus := l_values(i);
265 elsif l_names(i) = 'OapfOrderId'
266 then
267 OapfOrderId := l_values(i);
268 elsif l_names(i) = 'OapfCurr'
269 then
270 OapfCurr := l_values(i);
271 elsif l_names(i) = 'OapfPrice'
272 then
273 OapfPrice := l_values(i);
274 elsif l_names(i) = 'OapfAuthType'
275 then
276
277 OapfAuthType := l_values(i);
278 elsif l_names(i) = 'OapfStoreId'
279 then
280 OapfStoreId := l_values(i);
281 elsif l_names(i) = 'OapfErrLocation'
282 then
283 OapfErrLocation := l_values(i);
284 elsif l_names(i) = 'OapfVendErrCode'
285 then
286 OapfVendErrCode := l_values(i);
287 elsif l_names(i) = 'OapfVendErrmsg'
288 then
289 OapfVendErrmsg := l_values(i);
290
291 end if;
292 end loop;
293 exception
294 when others then
295 OapfStatus := SQLERRM;
296 end;
297
298 procedure oraauth(
299 OapfOrderId in out varchar2,
300 OapfCurr in varchar2,
301 OapfPrice in varchar2,
302 OapfAuthType in varchar2,
303 OapfPmtType in varchar2,
304 OapfPmtInstrID in varchar2,
305
306 OapfPmtInstrExp in varchar2,
307 OapfStoreId in varchar2,
308 OapfCustName in varchar2 default null,
309 OapfAddr1 in varchar2 default null,
310 OapfAddr2 in varchar2 default null,
311 OapfAddr3 in varchar2 default null,
312 OapfCity in varchar2 default null,
313 OapfCnty in varchar2 default null,
314 OapfState in varchar2 default null,
315 OapfCntry in varchar2 default null,
316 OapfPostalCode in varchar2 default null,
317 OapfPhone in varchar2 default null,
318 OapfEmail in varchar2 default null,
319
320 OapfStatus out varchar2,
321 OapfTrxnType out varchar2,
322 OapfTrxnDate out varchar2,
323 OapfAuthcode out varchar2,
324 OapfRefcode out varchar2,
325 OapfAVScode out varchar2,
326 OapfPmtInstrType out varchar2,
327 OapfErrLocation out varchar2,
328 OapfVendErrCode out varchar2,
329 OapfVendErrmsg out varchar2,
330 OapfAcquirer out varchar2,
331 OapfAuxMsg out varchar2) is
332 l_url varchar2(2000);
333
334 l_html varchar2(2000);
335 l_names v240_table;
336 l_values v240_table;
337 debug boolean := FALSE;
338 begin
339 /* Open issue; does this come from FND_PROFILE or a input parameter*/
340 --l_url := 'http://ap571sun.us.oracle.com:9999/orapmt/OraPmt?';
341 l_url := icx_payment_pvt.GetServerUrl || '?';
342 l_url := l_url||'OapfAction=oraauth'||'&';
343 l_url := l_url||'OapfOrderId='||OapfOrderId||'&';
344 l_url := l_url||'OapfCurr='||OapfCurr||'&';
345 l_url := l_url||'OapfPrice='||OapfPrice||'&';
346 l_url := l_url||'OapfAuthType='||OapfAuthType||'&';
347 l_url := l_url||'OapfPmtType='||OapfPmtType||'&';
348
349 l_url := l_url||'OapfPmtInstrID='||OapfPmtInstrID||'&';
350 l_url := l_url||'OapfPmtInstrExp='||OapfPmtInstrExp||'&';
351 l_url := l_url||'OapfStoreId='||OapfStoreId||'&';
352 l_url := l_url||'OapfCustName='||OapfCustName||'&';
353 l_url := l_url||'OapfAddr1='||OapfAddr1||'&';
354 l_url := l_url||'OapfAddr2='||OapfAddr2||'&';
355 l_url := l_url||'OapfAddr3='||OapfAddr3||'&';
356 l_url := l_url||'OapfCity='||OapfCity||'&';
357 l_url := l_url||'OapfCnty='||OapfCnty||'&';
358 l_url := l_url||'OapfState='||OapfState||'&';
359 l_url := l_url||'OapfCntry='||OapfCntry||'&';
360 l_url := l_url||'OapfPostalCode='||OapfPostalCode||'&';
361 l_url := l_url||'OapfPhone='||OapfPhone||'&';
362
363 l_url := l_url||'OapfEmail='||OapfEmail;
364 l_url := replace(l_url,' ','+');
365 if debug
366 then
367 htp.p('DEBUG URL = '||l_url);htp.nl;
368 end if;
369 l_html := utl_http.request(l_url);
370 if debug
371 then
372 htp.p('DEBUG HTML = '||l_html);
373 end if;
374 unpack_results(l_html,l_names,l_values);
375 OapfOrderId := '';
376
377 for i in 1..l_names.COUNT loop
378 if l_names(i) = 'OapfStatus'
379 then
380 OapfStatus := l_values(i);
381 elsif l_names(i) = 'OapfOrderId'
382 then
383 OapfOrderId := l_values(i);
384 elsif l_names(i) = 'OapfTrxnType'
385 then
386 OapfTrxnType := l_values(i);
387 elsif l_names(i) = 'OapfTrxnDate'
388 then
389 OapfTrxnDate := l_values(i);
390
391 elsif l_names(i) = 'OapfAuthcode'
392 then
393 OapfAuthcode := l_values(i);
394 elsif l_names(i) = 'OapfRefcode'
395 then
396 OapfRefcode := l_values(i);
397 elsif l_names(i) = 'OapfAuthcode'
398 then
399 OapfAuthcode := l_values(i);
400 elsif l_names(i) = 'OapfAVScode'
401 then
402 OapfAVScode := l_values(i);
403 elsif l_names(i) = 'OapfPmtInstrType'
404
405 then
406 OapfPmtInstrType := l_values(i);
407 elsif l_names(i) = 'OapfErrLocation'
408 then
409 OapfErrLocation := l_values(i);
410 elsif l_names(i) = 'OapfVendErrCode'
411 then
412 OapfVendErrCode := l_values(i);
413 elsif l_names(i) = 'OapfVendErrmsg'
414 then
415 OapfVendErrmsg := l_values(i);
416 elsif l_names(i) = 'OapfAcquirer'
417 then
418
419 OapfAcquirer := l_values(i);
420 elsif l_names(i) = 'OapfAuxMsg'
421 then
422 OapfAuxMsg := l_values(i);
423 end if;
424 end loop;
425 exception
426 when others then
427 OapfStatus := SQLERRM;
428 end;
429
430 procedure oracapture(
431 OapfOrderId in varchar2,
432 OapfCurr in varchar2,
433
434 OapfPrice in varchar2,
435 OapfAuthType in varchar2,
436 OapfPmtType in varchar2,
437 OapfStoreId in varchar2,
438 OapfStatus out varchar2,
439 OapfTrxnType out varchar2,
440 OapfTrxnDate out varchar2,
441 OapfPmtInstrType out varchar2,
442 OapfRefcode out varchar2,
443 OapfErrLocation out varchar2,
444 OapfVendErrCode out varchar2,
445 OapfVendErrmsg out varchar2) is
446 l_url varchar2(2000);
447
448 l_html varchar2(2000);
449 l_names v240_table;
450 l_values v240_table;
451 debug boolean := FALSE;
452 begin
453 /* Open issue; does this come from FND_PROFILE or a input parameter*/
454 --l_url := 'http://ap571sun.us.oracle.com:9999/orapmt/OraPmt?';
455 l_url := icx_payment_pvt.GetServerUrl || '?';
456 l_url := l_url||'OapfAction=oracapture'||'&';
457 l_url := l_url||'OapfOrderId='||OapfOrderId||'&';
458 l_url := l_url||'OapfCurr='||OapfCurr||'&';
459 l_url := l_url||'OapfPrice='||OapfPrice||'&';
460 l_url := l_url||'OapfPmtType='||OapfPmtType||'&';
461 l_url := l_url||'OapfStoreId='||OapfStoreId;
462
463 l_url := replace(l_url,' ','+');
464 if debug
465 then
466 htp.p('DEBUG URL = '||l_url);htp.nl;
467 end if;
468 l_html := utl_http.request(l_url);
469 if debug
470 then
471 htp.p('DEBUG HTML = '||l_html);
472 end if;
473 unpack_results(l_html,l_names,l_values);
474 for i in 1..l_names.COUNT loop
475 if l_names(i) = 'OapfStatus'
476
477 then
478 OapfStatus := l_values(i);
479 elsif l_names(i) = 'OapfTrxnType'
480 then
481 OapfTrxnType := l_values(i);
482 elsif l_names(i) = 'OapfTrxnDate'
483 then
484 OapfTrxnDate := l_values(i);
485 elsif l_names(i) = 'OapfPmtInstrType'
486 then
487 OapfPmtInstrType := l_values(i);
488 elsif l_names(i) = 'OapfRefcode'
489 then
490
491 OapfRefcode := l_values(i);
492 elsif l_names(i) = 'OapfErrLocation'
493 then
494 OapfErrLocation := l_values(i);
495 elsif l_names(i) = 'OapfVendErrCode'
496 then
497 OapfVendErrCode := l_values(i);
498 elsif l_names(i) = 'OapfVendErrmsg'
499 then
500 OapfVendErrmsg := l_values(i);
501 end if;
502 end loop;
503 exception
504
505 when others then
506 OapfStatus := SQLERRM;
507 end;
508
509 procedure oravoid(
510 OapfOrderId in varchar2,
511 OapfTrxnType in out varchar2,
512 OapfPmtType in varchar2,
513 OapfStoreId in varchar2,
514 OapfStatus out varchar2,
515 OapfTrxnDate out varchar2,
516 OapfPmtInstrType out varchar2,
517 OapfRefcode out varchar2,
518 OapfErrLocation out varchar2,
519
520 OapfVendErrCode out varchar2,
521 OapfVendErrmsg out varchar2) is
522 l_url varchar2(2000);
523 l_html varchar2(2000);
524 l_names v240_table;
525 l_values v240_table;
526 debug boolean := FALSE;
527 begin
528 /* Open issue; does this come from FND_PROFILE or a input parameter*/
529 --l_url := 'http://ap571sun.us.oracle.com:9999/orapmt/OraPmt?';
530 l_url := icx_payment_pvt.GetServerUrl || '?';
531 l_url := l_url||'OapfAction=oravoid'||'&';
532 l_url := l_url||'OapfOrderId='||OapfOrderId||'&';
533 l_url := l_url||'OapfTrxnType='||OapfTrxnType||'&';
534
535 l_url := l_url||'OapfPmtType='||OapfPmtType||'&';
536 l_url := l_url||'OapfStoreId='||OapfStoreId;
537 l_url := replace(l_url,' ','+');
538 if debug
539 then
540 htp.p('DEBUG URL = '||l_url);htp.nl;
541 end if;
542 l_html := utl_http.request(l_url);
543 if debug
544 then
545 htp.p('DEBUG HTML = '||l_html);
546 end if;
547 unpack_results(l_html,l_names,l_values);
548
549 for i in 1..l_names.COUNT loop
550 if l_names(i) = 'OapfStatus'
551 then
552 OapfStatus := l_values(i);
553 elsif l_names(i) = 'OapfTrxnType'
554 then
555 OapfTrxnType := l_values(i);
556 elsif l_names(i) = 'OapfTrxnDate'
557 then
558 OapfTrxnDate := l_values(i);
559 elsif l_names(i) = 'OapfPmtInstrType'
560 then
561 OapfPmtInstrType := l_values(i);
562
563 elsif l_names(i) = 'OapfRefcode'
564 then
565 OapfRefcode := l_values(i);
566 elsif l_names(i) = 'OapfErrLocation'
567 then
568 OapfErrLocation := l_values(i);
569 elsif l_names(i) = 'OapfVendErrCode'
570 then
571 OapfVendErrCode := l_values(i);
572 elsif l_names(i) = 'OapfVendErrmsg'
573 then
574 OapfVendErrmsg := l_values(i);
575 end if;
576
577 end loop;
578 exception
579 when others then
580 OapfStatus := SQLERRM;
581 end;
582
583 procedure orareturn(
584 OapfOrderId in varchar2,
585 OapfCurr in varchar2,
586 OapfPrice in varchar2,
587 OapfPmtType in varchar2,
588 OapfPmtInstrID in varchar2,
589 OapfPmtInstrExp in varchar2,
590 OapfStoreId in varchar2,
591
592 OapfStatus out varchar2,
593 OapfTrxnType out varchar2,
594 OapfTrxnDate out varchar2,
595 OapfPmtInstrType out varchar2,
596 OapfRefcode out varchar2,
597 OapfErrLocation out varchar2,
598 OapfVendErrCode out varchar2,
599 OapfVendErrmsg out varchar2) is
600 l_url varchar2(2000);
601 l_html varchar2(2000);
602 l_names v240_table;
603 l_values v240_table;
604 debug boolean := FALSE;
605
606 begin
607 /* Open issue; does this come from FND_PROFILE or a input parameter*/
608 --l_url := 'http://ap571sun.us.oracle.com:9999/orapmt/OraPmt?';
609 l_url := icx_payment_pvt.GetServerUrl || '?';
610 l_url := l_url||'OapfAction=orareturn'||'&';
611 l_url := l_url||'OapfOrderId='||OapfOrderId||'&';
612 l_url := l_url||'OapfCurr='||OapfCurr||'&';
613 l_url := l_url||'OapfPrice='||OapfPrice||'&';
614 l_url := l_url||'OapfPmtType='||OapfPmtType||'&';
615 l_url := l_url||'OapfPmtInstrID='||OapfPmtInstrID||'&';
616 l_url := l_url||'OapfPmtInstrExp='||OapfPmtInstrExp||'&';
617 l_url := l_url||'OapfStoreId='||OapfStoreId;
618 l_url := replace(l_url,' ','+');
619 if debug
620
621 then
622 htp.p('DEBUG URL = '||l_url);htp.nl;
623 end if;
624 l_html := utl_http.request(l_url);
625 if debug
626 then
627 htp.p('DEBUG HTML = '||l_html);
628 end if;
629 unpack_results(l_html,l_names,l_values);
630 for i in 1..l_names.COUNT loop
631 if l_names(i) = 'OapfStatus'
632 then
633 OapfStatus := l_values(i);
634
635 elsif l_names(i) = 'OapfTrxnType'
636 then
637 OapfTrxnType := l_values(i);
638 elsif l_names(i) = 'OapfTrxnDate'
639 then
640 OapfTrxnDate := l_values(i);
641 elsif l_names(i) = 'OapfPmtInstrType'
642 then
643 OapfPmtInstrType := l_values(i);
644 elsif l_names(i) = 'OapfRefcode'
645 then
646 OapfRefcode := l_values(i);
647 elsif l_names(i) = 'OapfErrLocation'
648
649 then
650 OapfErrLocation := l_values(i);
651 elsif l_names(i) = 'OapfVendErrCode'
652 then
653 OapfVendErrCode := l_values(i);
654 elsif l_names(i) = 'OapfVendErrmsg'
655 then
656 OapfVendErrmsg := l_values(i);
657 end if;
658 end loop;
659 exception
660 when others then
661 OapfStatus := SQLERRM;
662
663 end;
664
665 procedure oraclosebatch(
666 OapfPmtType in varchar2,
667 OapfMerchBatchID in out varchar2,
668 OapfStoreID in out varchar2,
669 OapfStatus out varchar2,
670 OapfBatchState out varchar2,
671 OapfBatchDate out varchar2,
672 OapfCreditAmount out varchar2,
673 OapfSalesAmount out varchar2,
674 OapfCurr out varchar2,
675 OapfBatchTotal out varchar2,
676 OapfNumTrxns out varchar2,
677
678 OapfVpsbatchID out varchar2,
679 OapfGWsbatchID out varchar2,
680 OapfErrLocation out varchar2,
681 OapfVendErrCode out varchar2,
682 OapfVendErrmsg out varchar2) is
683 l_url varchar2(2000);
684 l_html varchar2(2000);
685 l_names v240_table;
686 l_values v240_table;
687 debug boolean := FALSE;
688 begin
689 /* Open issue; does this come from FND_PROFILE or a input parameter*/
690 --l_url := 'http://ap571sun.us.oracle.com:9999/orapmt/OraPmt?';
691 l_url := icx_payment_pvt.GetServerUrl || '?';
692
693 l_url := l_url||'OapfAction=oraclosebatch'||'&';
694 l_url := l_url||'OapfPmtType='||OapfPmtType||'&';
695 l_url := l_url||'OapfMerchBatchID='||OapfMerchBatchID||'&';
696 l_url := l_url||'OapfStoreId='||OapfStoreId;
697 l_url := replace(l_url,' ','+');
698 if debug
699 then
700 htp.p('DEBUG URL = '||l_url);htp.nl;
701 end if;
702 l_html := utl_http.request(l_url);
703 if debug
704 then
705 htp.p('DEBUG HTML = '||l_html);
706
707 end if;
708 unpack_results(l_html,l_names,l_values);
709 OapfMerchBatchID := '';
710 OapfStoreID := '';
711 for i in 1..l_names.COUNT loop
712 if l_names(i) = 'OapfStatus'
713 then
714 OapfStatus := l_values(i);
715 elsif l_names(i) = 'OapfMerchBatchID'
716 then
717 OapfMerchBatchID := l_values(i);
718 elsif l_names(i) = 'OapfStoreID'
719 then
720
721 OapfStoreID := l_values(i);
722 elsif l_names(i) = 'OapfBatchState'
723 then
724 OapfBatchState := l_values(i);
725 elsif l_names(i) = 'OapfBatchDate'
726 then
727 OapfBatchDate := l_values(i);
728 elsif l_names(i) = 'OapfCreditAmount'
729 then
730 OapfCreditAmount := l_values(i);
731 elsif l_names(i) = 'OapfSalesAmount'
732 then
733 OapfSalesAmount := l_values(i);
734
735 elsif l_names(i) = 'OapfCurr'
736 then
737 OapfCurr := l_values(i);
738 elsif l_names(i) = 'OapfBatchTotal'
739 then
740 OapfBatchTotal := l_values(i);
741 elsif l_names(i) = 'OapfNumTrxns'
742 then
743 OapfNumTrxns := l_values(i);
744 elsif l_names(i) = 'OapfVpsbatchID'
745 then
746 OapfVpsbatchID := l_values(i);
747 elsif l_names(i) = 'OapfGWsbatchID'
748
749 then
750 OapfGWsbatchID := l_values(i);
751 elsif l_names(i) = 'OapfErrLocation'
752 then
753 OapfErrLocation := l_values(i);
754 elsif l_names(i) = 'OapfVendErrCode'
755 then
756 OapfVendErrCode := l_values(i);
757 elsif l_names(i) = 'OapfVendErrmsg'
758 then
759 OapfVendErrmsg := l_values(i);
760 end if;
761 end loop;
762
763 exception
764 when others then
765 OapfStatus := SQLERRM;
766 end;
767
768 procedure oraqrytxstatus(
769 OapfOrderId in varchar2,
770 OapfPmtType in varchar2,
771 OapfStoreID in varchar2) is
772 l_url varchar2(2000);
773 l_html varchar2(2000);
774 l_names v240_table;
775 l_values v240_table;
776 debug boolean := FALSE;
777
778 begin
779 /* Open issue; does this come from FND_PROFILE or a input parameter*/
780 --l_url := 'http://ap571sun.us.oracle.com:9999/orapmt/OraPmt?';
781 l_url := icx_payment_pvt.GetServerUrl || '?';
782 l_url := l_url||'OapfAction=oraqrytxstatus'||'&';
783 l_url := l_url||'OapfOrderId='||OapfOrderId||'&';
784 l_url := l_url||'OapfPmtType='||OapfPmtType||'&';
785 l_url := l_url||'OapfStoreId='||OapfStoreId;
786 l_url := replace(l_url,' ','+');
787 if debug
788 then
789 htp.p('DEBUG URL = '||l_url);htp.nl;
790 end if;
791 l_html := utl_http.request(l_url);
792
793 htp.p('oraqrytxstatus');htp.nl;
794 htp.p(l_html);
795 end;
796
797 END ICX_PAYMENT_PVT;