69: BEGIN
70:
71:
72: IF PG_DEBUG in ('Y', 'C') THEN
73: arp_util.debug('AR_CM_API_PUB.APPLY_ON_ACCOUNT(+)');
74: END IF;
75:
76: /*------------------------------------+
77: | Standard start of API savepoint |
147: l_def_ids_return_status);
148:
149:
150: IF PG_DEBUG in ('Y', 'C') THEN
151: arp_util.debug( 'Defaulting Ids Return_status = '||l_def_ids_return_status);
152: END IF;
153: /*---------------------+
154: | |
155: | DEFAULTING |
183: l_inv_line_amount ,
184: l_def_return_status
185: );
186: IF PG_DEBUG in ('Y', 'C') THEN
187: arp_util.debug( 'Default Info Return_status = '||l_def_return_status);
188: arp_util.debug( 'Applied PS ID = '||l_applied_payment_schedule_id);
189: END IF;
190:
191:
184: l_def_return_status
185: );
186: IF PG_DEBUG in ('Y', 'C') THEN
187: arp_util.debug( 'Default Info Return_status = '||l_def_return_status);
188: arp_util.debug( 'Applied PS ID = '||l_applied_payment_schedule_id);
189: END IF;
190:
191:
192: /*---------------------+
218: l_inv_currency_code,
219: l_val_return_status
220: );
221: IF PG_DEBUG in ('Y', 'C') THEN
222: arp_util.debug( 'Validation Return_status = '||l_val_return_status);
223: arp_util.debug( 'Applied PS ID = '||l_applied_payment_schedule_id);
224: END IF;
225: END IF;
226:
219: l_val_return_status
220: );
221: IF PG_DEBUG in ('Y', 'C') THEN
222: arp_util.debug( 'Validation Return_status = '||l_val_return_status);
223: arp_util.debug( 'Applied PS ID = '||l_applied_payment_schedule_id);
224: END IF;
225: END IF;
226:
227: -- Validate DFF
272: x_return_status := FND_API.G_RET_STS_ERROR ;
273:
274:
275: IF PG_DEBUG in ('Y', 'C') THEN
276: arp_util.debug( 'Error(s) occurred. Rolling back and setting status to ERROR');
277: END IF;
278: Return;
279: END IF;
280:
286: +--------------------*/
287:
288: -- Display inputs to entity handler
289: IF PG_DEBUG in ('Y', 'C') THEN
290: arp_util.debug( 'CM PS ID = '||l_cm_ps_id ||
291: ' Invoice PS ID = '|| l_applied_payment_schedule_id ||
292: ' AMount applied = '|| l_amount_applied ||
293: ' Apply date = ' || l_apply_date||
294: ' GL date = '|| l_apply_gl_date);
405:
406: IF FND_API.To_Boolean( p_commit )
407: THEN
408: IF PG_DEBUG in ('Y', 'C') THEN
409: arp_util.debug( 'committing');
410: END IF;
411: Commit;
412: END IF;
413: IF PG_DEBUG in ('Y', 'C') THEN
410: END IF;
411: Commit;
412: END IF;
413: IF PG_DEBUG in ('Y', 'C') THEN
414: arp_util.debug('Apply ()- ');
415: END IF;
416: EXCEPTION
417: WHEN FND_API.G_EXC_ERROR THEN
418:
416: EXCEPTION
417: WHEN FND_API.G_EXC_ERROR THEN
418:
419: IF PG_DEBUG in ('Y', 'C') THEN
420: arp_util.debug( SQLCODE, G_MSG_ERROR);
421: arp_util.debug( SQLERRM, G_MSG_ERROR);
422: END IF;
423:
424: ROLLBACK TO Apply_CM;
417: WHEN FND_API.G_EXC_ERROR THEN
418:
419: IF PG_DEBUG in ('Y', 'C') THEN
420: arp_util.debug( SQLCODE, G_MSG_ERROR);
421: arp_util.debug( SQLERRM, G_MSG_ERROR);
422: END IF;
423:
424: ROLLBACK TO Apply_CM;
425: x_return_status := FND_API.G_RET_STS_ERROR ;
433:
434: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
435:
436: IF PG_DEBUG in ('Y', 'C') THEN
437: arp_util.debug( SQLERRM, G_MSG_ERROR);
438: END IF;
439: ROLLBACK TO Apply_CM;
440: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
441:
480: FND_MSG_PUB.Add;
481: END IF;
482:
483: IF PG_DEBUG in ('Y', 'C') THEN
484: arp_util.debug( SQLCODE, G_MSG_ERROR);
485: arp_util.debug( SQLERRM, G_MSG_ERROR);
486: END IF;
487:
488: ROLLBACK TO Apply_CM;
481: END IF;
482:
483: IF PG_DEBUG in ('Y', 'C') THEN
484: arp_util.debug( SQLCODE, G_MSG_ERROR);
485: arp_util.debug( SQLERRM, G_MSG_ERROR);
486: END IF;
487:
488: ROLLBACK TO Apply_CM;
489:
531: l_val_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
532:
533: BEGIN
534: IF PG_DEBUG in ('Y', 'C') THEN
535: arp_util.debug('ar_cm_api_pub.Unapply_on_account()+ ');
536: END IF;
537:
538: /*------------------------------------+
539: | Standard start of API savepoint |
613: l_apply_gl_date,
614: l_def_ids_return_status
615: );
616: IF PG_DEBUG in ('Y', 'C') THEN
617: arp_util.debug( 'Cm customer trx id : '|| l_cm_customer_trx_id );
618: arp_util.debug( 'receivable app id : '|| l_receivable_application_id );
619: END IF;
620:
621: ar_cm_val_pvt.default_unapp_info(
614: l_def_ids_return_status
615: );
616: IF PG_DEBUG in ('Y', 'C') THEN
617: arp_util.debug( 'Cm customer trx id : '|| l_cm_customer_trx_id );
618: arp_util.debug( 'receivable app id : '|| l_receivable_application_id );
619: END IF;
620:
621: ar_cm_val_pvt.default_unapp_info(
622: l_receivable_application_id,
625: l_reversal_gl_date,
626: l_cm_gl_date);
627:
628: IF PG_DEBUG in ('Y', 'C') THEN
629: arp_util.debug( 'Cm customer trx id : '|| l_cm_customer_trx_id );
630: arp_util.debug( 'receivable app id : '|| l_receivable_application_id );
631: arp_util.debug( 'reversal date : '|| l_reversal_gl_date );
632: END IF;
633: ar_cm_val_pvt.validate_unapp_info(
626: l_cm_gl_date);
627:
628: IF PG_DEBUG in ('Y', 'C') THEN
629: arp_util.debug( 'Cm customer trx id : '|| l_cm_customer_trx_id );
630: arp_util.debug( 'receivable app id : '|| l_receivable_application_id );
631: arp_util.debug( 'reversal date : '|| l_reversal_gl_date );
632: END IF;
633: ar_cm_val_pvt.validate_unapp_info(
634: l_cm_gl_date,
627:
628: IF PG_DEBUG in ('Y', 'C') THEN
629: arp_util.debug( 'Cm customer trx id : '|| l_cm_customer_trx_id );
630: arp_util.debug( 'receivable app id : '|| l_receivable_application_id );
631: arp_util.debug( 'reversal date : '|| l_reversal_gl_date );
632: END IF;
633: ar_cm_val_pvt.validate_unapp_info(
634: l_cm_gl_date,
635: l_receivable_application_id,
637: l_apply_gl_date,
638: l_val_return_status);
639:
640: IF PG_DEBUG in ('Y', 'C') THEN
641: arp_util.debug( 'validation return status :'||l_val_return_status);
642: END IF;
643:
644: IF l_def_ids_return_status <> FND_API.G_RET_STS_SUCCESS OR
645: l_val_return_status <> FND_API.G_RET_STS_SUCCESS THEN
658: p_data => x_msg_data
659: );
660:
661: IF PG_DEBUG in ('Y', 'C') THEN
662: arp_util.debug( 'Error(s) occurred. Rolling back and setting status to ERROR');
663: END IF;
664: Return;
665: END IF;
666:
664: Return;
665: END IF;
666:
667: IF PG_DEBUG in ('Y', 'C') THEN
668: arp_util.debug( '*******DUMP THE INPUT PARAMETERS ********');
669: arp_util.debug( 'l_receivable_application_id :'||to_char(l_receivable_application_id));
670: arp_util.debug( 'l_applied_payment_schedule_id :'||to_char(l_applied_payment_schedule_id));
671: arp_util.debug( 'l_reversal_gl_date :'||to_char(l_reversal_gl_date,'DD-MON-YY'));
672: END IF;
665: END IF;
666:
667: IF PG_DEBUG in ('Y', 'C') THEN
668: arp_util.debug( '*******DUMP THE INPUT PARAMETERS ********');
669: arp_util.debug( 'l_receivable_application_id :'||to_char(l_receivable_application_id));
670: arp_util.debug( 'l_applied_payment_schedule_id :'||to_char(l_applied_payment_schedule_id));
671: arp_util.debug( 'l_reversal_gl_date :'||to_char(l_reversal_gl_date,'DD-MON-YY'));
672: END IF;
673:
666:
667: IF PG_DEBUG in ('Y', 'C') THEN
668: arp_util.debug( '*******DUMP THE INPUT PARAMETERS ********');
669: arp_util.debug( 'l_receivable_application_id :'||to_char(l_receivable_application_id));
670: arp_util.debug( 'l_applied_payment_schedule_id :'||to_char(l_applied_payment_schedule_id));
671: arp_util.debug( 'l_reversal_gl_date :'||to_char(l_reversal_gl_date,'DD-MON-YY'));
672: END IF;
673:
674:
667: IF PG_DEBUG in ('Y', 'C') THEN
668: arp_util.debug( '*******DUMP THE INPUT PARAMETERS ********');
669: arp_util.debug( 'l_receivable_application_id :'||to_char(l_receivable_application_id));
670: arp_util.debug( 'l_applied_payment_schedule_id :'||to_char(l_applied_payment_schedule_id));
671: arp_util.debug( 'l_reversal_gl_date :'||to_char(l_reversal_gl_date,'DD-MON-YY'));
672: END IF;
673:
674:
675: BEGIN
717:
718: IF FND_API.To_Boolean( p_commit )
719: THEN
720: IF PG_DEBUG in ('Y', 'C') THEN
721: arp_util.debug( 'committing');
722: END IF;
723: Commit;
724: END IF;
725:
723: Commit;
724: END IF;
725:
726: IF PG_DEBUG in ('Y', 'C') THEN
727: arp_util.debug('ar_cm_api.Unapply_on_account ()- ');
728: END IF;
729: EXCEPTION
730: WHEN FND_API.G_EXC_ERROR THEN
731:
729: EXCEPTION
730: WHEN FND_API.G_EXC_ERROR THEN
731:
732: IF PG_DEBUG in ('Y', 'C') THEN
733: arp_util.debug( SQLCODE, G_MSG_ERROR);
734: arp_util.debug( SQLERRM, G_MSG_ERROR);
735: END IF;
736:
737: ROLLBACK TO Unapply_CM;
730: WHEN FND_API.G_EXC_ERROR THEN
731:
732: IF PG_DEBUG in ('Y', 'C') THEN
733: arp_util.debug( SQLCODE, G_MSG_ERROR);
734: arp_util.debug( SQLERRM, G_MSG_ERROR);
735: END IF;
736:
737: ROLLBACK TO Unapply_CM;
738: x_return_status := FND_API.G_RET_STS_ERROR ;
746:
747: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
748:
749: IF PG_DEBUG in ('Y', 'C') THEN
750: arp_util.debug( SQLERRM, G_MSG_ERROR);
751: END IF;
752: ROLLBACK TO Unapply_CM;
753: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
754:
794: FND_MSG_PUB.Add;
795: END IF;
796:
797: IF PG_DEBUG in ('Y', 'C') THEN
798: arp_util.debug( SQLCODE, G_MSG_ERROR);
799: arp_util.debug( SQLERRM, G_MSG_ERROR);
800: END IF;
801:
802: ROLLBACK TO Unapply_CM;
795: END IF;
796:
797: IF PG_DEBUG in ('Y', 'C') THEN
798: arp_util.debug( SQLCODE, G_MSG_ERROR);
799: arp_util.debug( SQLERRM, G_MSG_ERROR);
800: END IF;
801:
802: ROLLBACK TO Unapply_CM;
803: