20: extendRows INTEGER:=1;
21: BEGIN
22:
23: IF PG_DEBUG in ('Y', 'C') THEN
24: fnd_file.put_line(FND_FILE.LOG,'AR_ECAPP_PKG.UPDATE_STATUS()+');
25: fnd_file.put_line(FND_FILE.LOG, totalRows);
26: arp_standard.debug ('Inserting record into ar_settlement_errors_gt table');
27: END IF;
28:
21: BEGIN
22:
23: IF PG_DEBUG in ('Y', 'C') THEN
24: fnd_file.put_line(FND_FILE.LOG,'AR_ECAPP_PKG.UPDATE_STATUS()+');
25: fnd_file.put_line(FND_FILE.LOG, totalRows);
26: arp_standard.debug ('Inserting record into ar_settlement_errors_gt table');
27: END IF;
28:
29: FORALL i in 1 .. totalRows
69: o_statusindiv_Tab(i) := 'TRUE';
70: END LOOP;
71:
72: IF PG_DEBUG in ('Y', 'C') THEN
73: fnd_file.put_line(FND_FILE.LOG,'AR_ECAPP_PKG.UPDATE_STATUS()-');
74: END IF;
75:
76: EXCEPTION
77: WHEN OTHERS THEN
74: END IF;
75:
76: EXCEPTION
77: WHEN OTHERS THEN
78: fnd_file.put_line(FND_FILE.LOG,'AR_ECAPP_PKG.UPDATE_STATUS() - Exception');
79: fnd_file.put_line(FND_FILE.LOG, sqlerrm);
80: END;
81:
82:
75:
76: EXCEPTION
77: WHEN OTHERS THEN
78: fnd_file.put_line(FND_FILE.LOG,'AR_ECAPP_PKG.UPDATE_STATUS() - Exception');
79: fnd_file.put_line(FND_FILE.LOG, sqlerrm);
80: END;
81:
82:
83:
142:
143: BEGIN
144:
145: IF PG_DEBUG in ('Y', 'C') THEN
146: fnd_file.put_line(FND_FILE.LOG,'AR_ECAPP_PKG.correct_settlement_error()+');
147: END IF;
148:
149: l_called_from := 'SUBMIT_OFFLINE';
150:
165: IF PG_DEBUG in ('Y', 'C') THEN
166: arp_standard.debug('Close Cursor C1');
167: END IF;
168:
169: fnd_file.put_line(FND_FILE.LOG,'Receipts being processed' || ' ' || 'Operating Unit');
170: fnd_file.put_line(FND_FILE.LOG, '------------------------'|| ' ' || '--------------');
171:
172: k := l_org_id.count;
173: j := 0;
166: arp_standard.debug('Close Cursor C1');
167: END IF;
168:
169: fnd_file.put_line(FND_FILE.LOG,'Receipts being processed' || ' ' || 'Operating Unit');
170: fnd_file.put_line(FND_FILE.LOG, '------------------------'|| ' ' || '--------------');
171:
172: k := l_org_id.count;
173: j := 0;
174: l_call_api := 'N';
187: l_call_api := 'Y';
188: END IF;
189: END IF;
190:
191: fnd_file.put_line(FND_FILE.LOG,rpad(substr(l_receipt_number(i),1,24),24, ' ' ) || ' ' || l_org_id(i));
192: j := j+1;
193: l_receipt_info.cash_receipt_id(j) := l_cash_receipt_id(i);
194: l_receipt_info.cc_error_code(j) := l_bepcode(i);
195: l_receipt_info.cc_error_text(j) := l_bepmessage(i);
206: /*mo_global.set_policy_context('S', l_org_id(i));*/
207: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id(i),
208: p_return_status =>l_org_return_status);
209: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
210: fnd_file.put_line(FND_FILE.LOG,'l_org_return_status '|| l_org_return_status);
211: fnd_file.put_line(FND_FILE.LOG,'Org not getting processed '|| l_org_id(i));
212: ELSE
213:
214: BEGIN
207: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id(i),
208: p_return_status =>l_org_return_status);
209: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
210: fnd_file.put_line(FND_FILE.LOG,'l_org_return_status '|| l_org_return_status);
211: fnd_file.put_line(FND_FILE.LOG,'Org not getting processed '|| l_org_id(i));
212: ELSE
213:
214: BEGIN
215: IF PG_DEBUG in ('Y', 'C')
213:
214: BEGIN
215: IF PG_DEBUG in ('Y', 'C')
216: THEN
217: fnd_file.put_line(FND_FILE.LOG,'Calling API Reverse_Remittances_in_err');
218: END IF;
219:
220: AR_RECEIPT_API_PUB.Reverse_Remittances_in_err (
221: p_api_version => 1.0,
229:
230: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
231: THEN
232: -- Dump the error message in log for only those errored receipts.
233: fnd_file.put_line(FND_FILE.LOG,'l_return_status '|| l_return_status);
234: fnd_file.put_line(FND_FILE.LOG,'l_msg_count '|| l_msg_count);
235: fnd_file.put_line(FND_FILE.LOG,'l_msg_data '|| l_msg_data);
236: APP_EXCEPTION.RAISE_EXCEPTION;
237: END IF;
230: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
231: THEN
232: -- Dump the error message in log for only those errored receipts.
233: fnd_file.put_line(FND_FILE.LOG,'l_return_status '|| l_return_status);
234: fnd_file.put_line(FND_FILE.LOG,'l_msg_count '|| l_msg_count);
235: fnd_file.put_line(FND_FILE.LOG,'l_msg_data '|| l_msg_data);
236: APP_EXCEPTION.RAISE_EXCEPTION;
237: END IF;
238:
231: THEN
232: -- Dump the error message in log for only those errored receipts.
233: fnd_file.put_line(FND_FILE.LOG,'l_return_status '|| l_return_status);
234: fnd_file.put_line(FND_FILE.LOG,'l_msg_count '|| l_msg_count);
235: fnd_file.put_line(FND_FILE.LOG,'l_msg_data '|| l_msg_data);
236: APP_EXCEPTION.RAISE_EXCEPTION;
237: END IF;
238:
239: EXCEPTION
238:
239: EXCEPTION
240: WHEN OTHERS THEN
241: -- Dump the error message in log for only those errored receipts.
242: fnd_file.put_line(FND_FILE.LOG,'l_return_status '|| l_return_status);
243: fnd_file.put_line(FND_FILE.LOG,'l_msg_count '|| l_msg_count);
244: fnd_file.put_line(FND_FILE.LOG,'l_msg_data '|| l_msg_data);
245: fnd_file.put_line(FND_FILE.LOG,'Sqlerrm '|| sqlerrm);
246: RAISE;
239: EXCEPTION
240: WHEN OTHERS THEN
241: -- Dump the error message in log for only those errored receipts.
242: fnd_file.put_line(FND_FILE.LOG,'l_return_status '|| l_return_status);
243: fnd_file.put_line(FND_FILE.LOG,'l_msg_count '|| l_msg_count);
244: fnd_file.put_line(FND_FILE.LOG,'l_msg_data '|| l_msg_data);
245: fnd_file.put_line(FND_FILE.LOG,'Sqlerrm '|| sqlerrm);
246: RAISE;
247: END;
240: WHEN OTHERS THEN
241: -- Dump the error message in log for only those errored receipts.
242: fnd_file.put_line(FND_FILE.LOG,'l_return_status '|| l_return_status);
243: fnd_file.put_line(FND_FILE.LOG,'l_msg_count '|| l_msg_count);
244: fnd_file.put_line(FND_FILE.LOG,'l_msg_data '|| l_msg_data);
245: fnd_file.put_line(FND_FILE.LOG,'Sqlerrm '|| sqlerrm);
246: RAISE;
247: END;
248:
241: -- Dump the error message in log for only those errored receipts.
242: fnd_file.put_line(FND_FILE.LOG,'l_return_status '|| l_return_status);
243: fnd_file.put_line(FND_FILE.LOG,'l_msg_count '|| l_msg_count);
244: fnd_file.put_line(FND_FILE.LOG,'l_msg_data '|| l_msg_data);
245: fnd_file.put_line(FND_FILE.LOG,'Sqlerrm '|| sqlerrm);
246: RAISE;
247: END;
248:
249: END IF;
255: l_receipt_info.cc_instrtype := l_empty_receipt_info.cc_instrtype;
256: END IF;
257: END LOOP;
258: ELSE
259: fnd_file.put_line(FND_FILE.LOG,'No receipts in Error for reverting remittance');
260: RETURN;
261: END IF;
262:
263: /* Now call ARP_CORRECT_CC_ERRORS code to correct predefined errors */
265:
266: BEGIN
267:
268: IF PG_DEBUG in ('Y', 'C') THEN
269: fnd_file.put_line(FND_FILE.LOG,'Call ARP_CORRECT_CC_ERRORS.cc_auto_correct_cover()+');
270: END IF;
271:
272:
273: SELECT DISTINCT cr.request_id , cr.org_id
298: retcode => l_ret_code,
299: p_request_id => l_request_id(i),
300: p_mode => 'REMITTANCE' );
301: IF l_ret_code <> 0 THEN
302: fnd_file.put_line(FND_FILE.LOG,l_error_buf);
303: APP_EXCEPTION.RAISE_EXCEPTION;
304: END IF;
305:
306: EXCEPTION
304: END IF;
305:
306: EXCEPTION
307: WHEN OTHERS THEN
308: fnd_file.put_line(FND_FILE.LOG,'Exception inner ARP_CORRECT_CC_ERRORS.cc_auto_correct ' || sqlerrm);
309: RAISE;
310: END;
311: END LOOP;
312: END IF;
311: END LOOP;
312: END IF;
313:
314: IF PG_DEBUG in ('Y', 'C') THEN
315: fnd_file.put_line(FND_FILE.LOG,'Call ARP_CORRECT_CC_ERRORS.cc_auto_correct_cover()-');
316: END IF;
317:
318: EXCEPTION
319: WHEN NO_DATA_FOUND THEN
316: END IF;
317:
318: EXCEPTION
319: WHEN NO_DATA_FOUND THEN
320: fnd_file.put_line(FND_FILE.LOG,'No receipt fetched for Credit Card Error Correction');
321:
322: WHEN OTHERS THEN
323: fnd_file.put_line(FND_FILE.LOG,'Exception outer ARP_CORRECT_CC_ERRORS.cc_auto_correct ' || sqlerrm);
324: RAISE;
319: WHEN NO_DATA_FOUND THEN
320: fnd_file.put_line(FND_FILE.LOG,'No receipt fetched for Credit Card Error Correction');
321:
322: WHEN OTHERS THEN
323: fnd_file.put_line(FND_FILE.LOG,'Exception outer ARP_CORRECT_CC_ERRORS.cc_auto_correct ' || sqlerrm);
324: RAISE;
325: END;
326: /* ARP_CORRECT_CC_ERRORS code ends here */
327:
326: /* ARP_CORRECT_CC_ERRORS code ends here */
327:
328:
329: IF PG_DEBUG in ('Y', 'C') THEN
330: fnd_file.put_line(FND_FILE.LOG,'AR_ECAPP_PKG.correct_settlement_error()-');
331: END IF;
332:
333:
334: EXCEPTION
332:
333:
334: EXCEPTION
335: WHEN OTHERS THEN
336: fnd_file.put_line(FND_FILE.LOG,'Exception AR_ECAPP_PKG.correct_settlement_error ' || sqlerrm);
337: RAISE;
338: END;
339:
340: