[Home] [Help]
874: THEN
875: arp_debug.debug('Unable to set WARNING return status');
876: END IF;
877:
878: fnd_file.put_line( FND_FILE.LOG,
879: 'Not able to lock the batch record, '||
880: 'Please try submitting the request again..');
881:
882: arp_debug.debug('Exception : Not able to lock the batch record,seems record is '||
1091:
1092: END submit_subrequest;
1093:
1094: BEGIN
1095: fnd_file.put_line( FND_FILE.LOG, 'submit_autorec_parallel()+');
1096: IF PG_DEBUG in ('Y', 'C') THEN
1097: arp_debug.debug('ar_autorec_api.submit_autorec_parallel()+');
1098: END IF;
1099:
1243:
1244: IF p_approve_flag = 'Y' THEN
1245: --Invoke the child programs
1246: FOR l_worker_number IN 1..p_total_workers LOOP
1247: fnd_file.put_line(FND_FILE.LOG,'worker # : ' || l_worker_number );
1248: submit_subrequest (l_worker_number,l_org_id);
1249: END LOOP;
1250:
1251: arp_debug.debug ( 'The Master program waits for child processes');
1321: where batch_id = o_batch_id;
1322:
1323: l_batch_lock_flag := ARP_RW_BATCHES_PKG.release_lock( o_batch_id, l_batch_lock_msg);
1324:
1325: fnd_file.put_line( FND_FILE.LOG, 'submit_autorec_parallel()-');
1326:
1327: EXCEPTION
1328: WHEN OTHERS THEN
1329: --incase of any exception thrown,cleanup the interim table as the next run will
2359: )
2360: AND cc_error_flag = 'Y';
2361:
2362: IF PG_DEBUG in ('Y', 'C') THEN
2363: fnd_file.put_line(FND_FILE.LOG,'receipt rows updated to reset cc_error_flag : '||sql%rowcount);
2364: END IF;
2365:
2366: delete from ar_autorec_exceptions
2367: where cash_receipt_id in
2391: )
2392: and request_id = pg_request_id;
2393:
2394: IF PG_DEBUG in ('Y', 'C') THEN
2395: fnd_file.put_line(FND_FILE.LOG,'rows deleted from ar_autorec_exceptions: '||sql%rowcount);
2396: END IF;
2397:
2398: /* Note here - the apply process was succesful but auth failed so here we have to unapply the
2399: payment_schedule_id before going in for the delete */
2722:
2723: BEGIN
2724:
2725: IF PG_DEBUG in ('Y', 'C') THEN
2726: arp_debug.debug(FND_FILE.LOG,'Submitting the report..');
2727: END IF;
2728:
2729: --setting the Org context before calling the conc prg Bug 5519913
2730: l_org_id := mo_global.get_current_org_id;
5173: p_gt_id NUMBER ) IS
5174:
5175: BEGIN
5176: IF PG_DEBUG in ('Y', 'C') THEN
5177: fnd_file.put_line(FND_FILE.LOG,'control_check()+');
5178: fnd_file.put_line(FND_FILE.LOG,'Detect receipts with Auth failure');
5179: END IF;
5180:
5181: UPDATE /*+ index(ct ra_customer_trx_u1) */ ra_customer_trx_all ct
5174:
5175: BEGIN
5176: IF PG_DEBUG in ('Y', 'C') THEN
5177: fnd_file.put_line(FND_FILE.LOG,'control_check()+');
5178: fnd_file.put_line(FND_FILE.LOG,'Detect receipts with Auth failure');
5179: END IF;
5180:
5181: UPDATE /*+ index(ct ra_customer_trx_u1) */ ra_customer_trx_all ct
5182: SET cc_error_flag = 'Y',
5276: AND cr.payment_trxn_extension_id = trxn_ext.trxn_extension_id(+)
5277: AND trxn_ext.status IS NULL;
5278:
5279: IF PG_DEBUG in ('Y', 'C') THEN
5280: fnd_file.put_line(FND_FILE.LOG,'insert into autorec_exceptions count : '||sql%rowcount);
5281: END IF;
5282: end if;
5283:
5284: IF PG_DEBUG in ('Y', 'C') THEN
5281: END IF;
5282: end if;
5283:
5284: IF PG_DEBUG in ('Y', 'C') THEN
5285: fnd_file.put_line(FND_FILE.LOG,'control_check()-');
5286: END IF;
5287:
5288: EXCEPTION
5289: WHEN OTHERS THEN
5287:
5288: EXCEPTION
5289: WHEN OTHERS THEN
5290: IF PG_DEBUG in ('Y', 'C') THEN
5291: fnd_file.put_line(FND_FILE.LOG,'Error in Control check routine.');
5292: END IF;
5293: END CONTROL_CHECK;
5294:
5295: