[Home] [Help]
99:
100: BEGIN
101:
102: IF PG_DEBUG in ('Y', 'C') THEN
103: arp_util.debug( 'ARP_BR_REMIT_BATCHES.insert_remit (+)');
104: END IF;
105:
106: l_batch_rec.batch_date := p_batch_date;
107: l_batch_rec.gl_date := p_gl_date;
157: FROM ar_batch_sources
158: WHERE batch_source_id = l_batch_rec.batch_source_id;
159:
160: IF PG_DEBUG in ('Y', 'C') THEN
161: arp_util.debug( 'ARP_BR_REMIT_BATCHES.insert_remit ... last_batch_num:'||l_batch_rec.name);
162: END IF;
163:
164:
165: ------------------------------------------
175: p_batch_name := l_batch_rec.name;
176: p_batch_applied_status := l_batch_rec.batch_applied_status;
177:
178: IF PG_DEBUG in ('Y', 'C') THEN
179: arp_util.debug( 'ARP_BR_REMIT_BATCHES.insert_remit (-)');
180: END IF;
181:
182:
183: EXCEPTION
182:
183: EXCEPTION
184: WHEN OTHERS THEN
185: IF PG_DEBUG in ('Y', 'C') THEN
186: arp_util.debug( 'EXCEPTION OTHERS: ARP_BR_REMIT_BATCHES.insert_remit');
187: END IF;
188: RAISE;
189:
190: END insert_remit;
219:
220: BEGIN
221:
222: IF PG_DEBUG in ('Y', 'C') THEN
223: arp_util.debug('ARP_BR_REMIT_BATCHES.validate_args_insert_remit (+)');
224: END IF;
225:
226: -- Check that the main columns are filled
227: IF (p_batch_rec.type IS NULL) THEN
256: NULL,
257: NULL);
258:
259: -- Check that the gl date is valid
260: arp_util.validate_gl_date(p_batch_rec.gl_date, NULL, NULL);
261:
262: -- Check that the currency is valid
263: arp_br_remit_batches.validate_currency_code(p_batch_rec.currency_code,p_batch_rec.batch_date);
264:
285: NULL);
286: END IF;
287:
288: IF PG_DEBUG in ('Y', 'C') THEN
289: arp_util.debug('ARP_BR_REMIT_BATCHES.validate_args_insert_remit (-)');
290: END IF;
291:
292: EXCEPTION
293: WHEN OTHERS THEN
291:
292: EXCEPTION
293: WHEN OTHERS THEN
294: IF PG_DEBUG in ('Y', 'C') THEN
295: arp_util.debug('EXCEPTION OTHERS: ARP_BR_REMIT_BATCHES.validate_args_insert_remit');
296: END IF;
297: RAISE;
298:
299: END validate_args_insert_remit;
327:
328: BEGIN
329:
330: IF PG_DEBUG in ('Y', 'C') THEN
331: arp_util.debug('ARP_BR_REMIT_BATCHES.validate_currency_code (+)');
332: END IF;
333:
334: SELECT COUNT(*)
335: INTO NB
342: APP_EXCEPTION.raise_exception;
343: END IF;
344:
345: IF PG_DEBUG in ('Y', 'C') THEN
346: arp_util.debug('ARP_BR_REMIT_BATCHES.validate_currency_code (-)');
347: END IF;
348:
349: EXCEPTION
350: WHEN OTHERS THEN
348:
349: EXCEPTION
350: WHEN OTHERS THEN
351: IF PG_DEBUG in ('Y', 'C') THEN
352: arp_util.debug('EXCEPTION OTHERS: ARP_BR_REMIT_BATCHES.validate_currency_code');
353: END IF;
354: RAISE;
355:
356: END validate_currency_code;
411:
412: BEGIN
413:
414: IF PG_DEBUG in ('Y', 'C') THEN
415: arp_util.debug('ARP_BR_REMIT_BATCHES.validate_receipt_method (+)');
416: END IF;
417:
418: OPEN Receipt_method;
419: FETCH Receipt_method INTO l_receipt_inherit_inv_num_flag, l_receipt_name;
427:
428: -- IS the receipt method flag receipt_inherit_inv_num_flag set to 'Y' ?
429: IF (l_receipt_inherit_inv_num_flag = 'Y') THEN
430: IF PG_DEBUG in ('Y', 'C') THEN
431: arp_util.debug('validate_receipt_method: ' || 'the flag l_receipt_inherit_inv_num_flag is Y');
432: END IF;
433: return;
434: END IF;
435:
450: suppress_error=>'N' ,
451: suppress_warn=>'Y');
452:
453: IF PG_DEBUG in ('Y', 'C') THEN
454: arp_util.debug('validate_receipt_method: ' || 'Return status :'||l_doc_seq_ret_stat||' for the receipt method '||l_receipt_name);
455: END IF;
456:
457: /* If the function returns 'partially used but not assigned' return the exception
458: AR_RAPI_DOC_SEQ_NOT_EXIST_P
464: APP_EXCEPTION.raise_exception;
465: END IF;
466:
467: IF PG_DEBUG in ('Y', 'C') THEN
468: arp_util.debug('ARP_BR_REMIT_BATCHES.validate_receipt_method (-)');
469: END IF;
470:
471: EXCEPTION
472:
471: EXCEPTION
472:
473: WHEN NO_DATA_FOUND THEN
474: IF PG_DEBUG in ('Y', 'C') THEN
475: arp_util.debug('exception NO_DATA_FOUND in ARP_BR_REMIT_BATCHES.validate_receipt_method');
476: END IF;
477: FND_MESSAGE.set_name('AR','AR_BR_INVALID_RECEIPT_METHOD');
478:
479: IF Receipt_method%ISOPEN THEN
483: RAISE;
484:
485: WHEN OTHERS THEN
486: IF PG_DEBUG in ('Y', 'C') THEN
487: arp_util.debug('Unhandled exception in ARP_BR_REMIT_BATCHES.validate_receipt_method');
488: arp_util.debug('validate_receipt_method: ' || 'Return status :'||l_doc_seq_ret_stat||' for the receipt method '||l_receipt_name);
489: END IF;
490:
491: IF Receipt_method%ISOPEN THEN
484:
485: WHEN OTHERS THEN
486: IF PG_DEBUG in ('Y', 'C') THEN
487: arp_util.debug('Unhandled exception in ARP_BR_REMIT_BATCHES.validate_receipt_method');
488: arp_util.debug('validate_receipt_method: ' || 'Return status :'||l_doc_seq_ret_stat||' for the receipt method '||l_receipt_name);
489: END IF;
490:
491: IF Receipt_method%ISOPEN THEN
492: CLOSE Receipt_method;
525:
526: BEGIN
527:
528: IF PG_DEBUG in ('Y', 'C') THEN
529: arp_util.debug('ARP_BR_REMIT_BATCHES.validate_remit_bank_branch (+)');
530: END IF;
531:
532: SELECT COUNT(*)
533: INTO NB
540: APP_EXCEPTION.raise_exception;
541: END IF;
542:
543: IF PG_DEBUG in ('Y', 'C') THEN
544: arp_util.debug('ARP_BR_REMIT_BATCHES.validate_remit_bank_branch (-)');
545: END IF;
546:
547: EXCEPTION
548: WHEN OTHERS THEN
546:
547: EXCEPTION
548: WHEN OTHERS THEN
549: IF PG_DEBUG in ('Y', 'C') THEN
550: arp_util.debug('EXCEPTION OTHERS: ARP_BR_REMIT_BATCHES.validate_remit_bank_branch');
551: END IF;
552: RAISE;
553:
554: END validate_remit_bank_branch;
591:
592: BEGIN
593:
594: IF PG_DEBUG in ('Y', 'C') THEN
595: arp_util.debug('ARP_BR_REMIT_BATCHES.validate_remit_bank_account (+)');
596: END IF;
597:
598: OPEN accounts(p_remittance_bank_account_id, p_batch_date);
599: FETCH accounts INTO nb;
604: APP_EXCEPTION.raise_exception;
605: END IF;
606:
607: IF PG_DEBUG in ('Y', 'C') THEN
608: arp_util.debug('ARP_BR_REMIT_BATCHES.validate_remit_bank_account (-)');
609: END IF;
610:
611: EXCEPTION
612: WHEN OTHERS THEN
610:
611: EXCEPTION
612: WHEN OTHERS THEN
613: IF PG_DEBUG in ('Y', 'C') THEN
614: arp_util.debug('EXCEPTION OTHERS: ARP_BR_REMIT_BATCHES.validate_remit_bank_account');
615: END IF;
616: RAISE;
617:
618: END validate_remit_bank_account;
645:
646: BEGIN
647:
648: IF PG_DEBUG in ('Y', 'C') THEN
649: arp_util.debug('ARP_BR_REMIT_BATCHES.validate_remit_method_code (+)');
650: END IF;
651:
652: -- the with recourse flag must be 'N' with the remittance method Standard
653: IF (p_remit_method_code = 'STANDARD' AND p_with_recourse_flag = 'Y') THEN
655: APP_EXCEPTION.raise_exception;
656: END IF;
657:
658: IF PG_DEBUG in ('Y', 'C') THEN
659: arp_util.debug('ARP_BR_REMIT_BATCHES.validate_remit_method_code (-)');
660: END IF;
661:
662: EXCEPTION
663: WHEN OTHERS THEN
661:
662: EXCEPTION
663: WHEN OTHERS THEN
664: IF PG_DEBUG in ('Y', 'C') THEN
665: arp_util.debug('EXCEPTION OTHERS: ARP_BR_REMIT_BATCHES.validate_remit_method_code');
666: END IF;
667: RAISE;
668:
669: END validate_remit_method_code;
697:
698: BEGIN
699:
700: IF PG_DEBUG in ('Y', 'C') THEN
701: arp_util.debug('ARP_BR_REMIT_BATCHES.validate_auto_program (+)');
702: END IF;
703:
704: IF p_auto_trans_program_id IS NOT NULL THEN
705:
716:
717: END IF;
718:
719: IF PG_DEBUG in ('Y', 'C') THEN
720: arp_util.debug('ARP_BR_REMIT_BATCHES.validate_auto_program (-)');
721: END IF;
722:
723: EXCEPTION
724: WHEN OTHERS THEN
722:
723: EXCEPTION
724: WHEN OTHERS THEN
725: IF PG_DEBUG in ('Y', 'C') THEN
726: arp_util.debug('EXCEPTION OTHERS: ARP_BR_REMIT_BATCHES.validate_auto_program');
727: END IF;
728: RAISE;
729:
730: END validate_auto_program;
825:
826: BEGIN
827:
828: IF PG_DEBUG in ('Y', 'C') THEN
829: arp_util.debug('ARP_BR_REMIT_BATCHES.update_remit (+)');
830: END IF;
831:
832: SAVEPOINT update_remit_PVT;
833:
874: ------------------------------------------
875: arp_cr_batches_pkg.update_p(l_batch_rec,l_batch_rec.batch_id);
876:
877: IF PG_DEBUG in ('Y', 'C') THEN
878: arp_util.debug('ARP_BR_REMIT_BATCHES.update_remit (-)');
879: END IF;
880:
881: EXCEPTION
882:
881: EXCEPTION
882:
883: WHEN FND_API.G_EXC_ERROR THEN
884: IF PG_DEBUG in ('Y', 'C') THEN
885: arp_util.debug('EXCEPTION FND_API.G_EXC_ERROR:ARP_BR_REMIT_BATCHES.update_remit');
886: END IF;
887: x_return_status := FND_API.G_RET_STS_ERROR;
888: ROLLBACK TO update_remit_PVT;
889:
888: ROLLBACK TO update_remit_PVT;
889:
890: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
891: IF PG_DEBUG in ('Y', 'C') THEN
892: arp_util.debug('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR:ARP_BR_REMIT_BATCHES.update_remit');
893: END IF;
894: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
895: ROLLBACK TO update_remit_PVT;
896:
895: ROLLBACK TO update_remit_PVT;
896:
897: WHEN OTHERS THEN
898: IF PG_DEBUG in ('Y', 'C') THEN
899: arp_util.debug('EXCEPTION OTHERS:ARP_BR_REMIT_BATCHES.update_remit');
900: arp_util.debug('update_remit: ' || SQLERRM);
901: END IF;
902: ROLLBACK TO update_remit_PVT;
903: IF (SQLCODE = -20001) THEN
896:
897: WHEN OTHERS THEN
898: IF PG_DEBUG in ('Y', 'C') THEN
899: arp_util.debug('EXCEPTION OTHERS:ARP_BR_REMIT_BATCHES.update_remit');
900: arp_util.debug('update_remit: ' || SQLERRM);
901: END IF;
902: ROLLBACK TO update_remit_PVT;
903: IF (SQLCODE = -20001) THEN
904: x_return_status := FND_API.G_RET_STS_ERROR;
940:
941: BEGIN
942:
943: IF PG_DEBUG in ('Y', 'C') THEN
944: arp_util.debug('ARP_BR_REMIT_BATCHES.validate_args_update_remit (+)');
945: END IF;
946:
947: -- Check that the main columns are filled
948: IF (p_batch_rec.type IS NULL) THEN
970: APP_EXCEPTION.raise_exception;
971: END IF;
972:
973: -- Check that the gl date is valid
974: arp_util.validate_gl_date(p_batch_rec.gl_date, NULL, NULL);
975:
976: -- Check that the currency is valid
977: arp_br_remit_batches.validate_currency_code(p_batch_rec.currency_code,p_batch_rec.batch_date);
978:
991: -- Check that the format program is a type 'REMIT_TRANSMIT' program
992: arp_br_remit_batches.validate_auto_program(p_batch_rec.auto_trans_program_id);
993:
994: IF PG_DEBUG in ('Y', 'C') THEN
995: arp_util.debug('ARP_BR_REMIT_BATCHES.validate_args_update_remit (-)');
996: END IF;
997:
998: EXCEPTION
999: WHEN OTHERS THEN
997:
998: EXCEPTION
999: WHEN OTHERS THEN
1000: IF PG_DEBUG in ('Y', 'C') THEN
1001: arp_util.debug('EXCEPTION OTHERS: ARP_BR_REMIT_BATCHES.validate_args_update_remit');
1002: END IF;
1003: RAISE;
1004:
1005: END validate_args_update_remit;
1044:
1045: BEGIN
1046:
1047: IF PG_DEBUG in ('Y', 'C') THEN
1048: arp_util.debug('ARP_BR_REMIT_BATCHES.cancel_remit (+)');
1049: END IF;
1050:
1051: -- fetch and lock of the batch row
1052: l_batch_rec.batch_id := p_batch_id;
1058: LOOP
1059: FETCH cur_br INTO l_ps_id;
1060: EXIT WHEN cur_br%NOTFOUND;
1061: IF PG_DEBUG in ('Y', 'C') THEN
1062: arp_util.debug('cancel_remit: ' || 'BR '|| l_ps_id ||' removed from the remittance '||p_batch_id);
1063: END IF;
1064: AR_BILLS_MAINTAIN_PUB.Deselect_BR_Remit(l_ps_id,l_new_status);
1065: END LOOP;
1066:
1077:
1078: p_batch_applied_status := l_batch_rec.batch_applied_status;
1079:
1080: IF PG_DEBUG in ('Y', 'C') THEN
1081: arp_util.debug('ARP_BR_REMIT_BATCHES.cancel_remit (-)');
1082: END IF;
1083:
1084: EXCEPTION
1085: WHEN OTHERS THEN
1083:
1084: EXCEPTION
1085: WHEN OTHERS THEN
1086: IF PG_DEBUG in ('Y', 'C') THEN
1087: arp_util.debug('EXCEPTION OTHERS: ARP_BR_REMIT_BATCHES.cancel_remit');
1088: END IF;
1089:
1090: IF cur_br%ISOPEN THEN
1091: CLOSE cur_br;
1165:
1166: BEGIN
1167:
1168: IF PG_DEBUG in ('Y', 'C') THEN
1169: arp_util.debug('ARP_BR_REMIT_BATCHES.lock_remit (+)');
1170: END IF;
1171:
1172: SAVEPOINT lock_remit_PVT;
1173:
1254: l_batch_rec.bank_deposit_number);
1255:
1256:
1257: IF PG_DEBUG in ('Y', 'C') THEN
1258: arp_util.debug('ARP_BR_REMIT_BATCHES.lock_remit (-)');
1259: END IF;
1260:
1261: EXCEPTION
1262:
1261: EXCEPTION
1262:
1263: WHEN FND_API.G_EXC_ERROR THEN
1264: IF PG_DEBUG in ('Y', 'C') THEN
1265: arp_util.debug('EXCEPTION FND_API.G_EXC_ERROR:ARP_BR_REMIT_BATCHES.lock_remit');
1266: END IF;
1267: x_return_status := FND_API.G_RET_STS_ERROR;
1268: ROLLBACK TO lock_remit_PVT;
1269:
1268: ROLLBACK TO lock_remit_PVT;
1269:
1270: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1271: IF PG_DEBUG in ('Y', 'C') THEN
1272: arp_util.debug('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR:ARP_BR_REMIT_BATCHES.lock_remit');
1273: END IF;
1274: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1275: ROLLBACK TO lock_remit_PVT;
1276:
1275: ROLLBACK TO lock_remit_PVT;
1276:
1277: WHEN OTHERS THEN
1278: IF PG_DEBUG in ('Y', 'C') THEN
1279: arp_util.debug('EXCEPTION OTHERS:ARP_BR_REMIT_BATCHES.lock_remit');
1280: arp_util.debug('lock_remit: ' || SQLERRM);
1281: END IF;
1282: ROLLBACK TO lock_remit_PVT;
1283: IF (SQLCODE = -20001) THEN
1276:
1277: WHEN OTHERS THEN
1278: IF PG_DEBUG in ('Y', 'C') THEN
1279: arp_util.debug('EXCEPTION OTHERS:ARP_BR_REMIT_BATCHES.lock_remit');
1280: arp_util.debug('lock_remit: ' || SQLERRM);
1281: END IF;
1282: ROLLBACK TO lock_remit_PVT;
1283: IF (SQLCODE = -20001) THEN
1284: x_return_status := FND_API.G_RET_STS_ERROR;
1301: | |
1302: | SCOPE - PUBLIC |
1303: | |
1304: | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
1305: | arp_util.debug |
1306: | |
1307: | ARGUMENTS : IN: p_cr_id Cash receipt id of the receipt to be updated |
1308: | p_batch_id Value to be updated |
1309: | OUT: |
1385:
1386: EXCEPTION
1387: WHEN OTHERS THEN
1388: IF PG_DEBUG in ('Y', 'C') THEN
1389: arp_util.debug('EXCEPTION: arp_br_remit_batches.update_br_remit_batch_to_crh');
1390: END IF;
1391:
1392: IF receipt_cur%ISOPEN THEN
1393: CLOSE receipt_cur;