202:
203: BEGIN
204:
205: IF PG_DEBUG in ('Y', 'C') THEN
206: arp_util.debug('AR_BILLS_MAINTAIN_PUB.Complete_BR()+ ');
207: END IF;
208:
209: x_msg_count := NULL;
210: x_msg_data := NULL;
355:
356: IF (C_ACTION_REC.complete_flag <> 'Y')
357: THEN
358: IF PG_DEBUG in ('Y', 'C') THEN
359: arp_util.debug( '>>>>>>>>>> The action ' || l_action || ' is not allowed on the BR ' || p_customer_trx_id);
360: END IF;
361: FND_MESSAGE.set_name( 'AR' , 'AR_BR_CANNOT_COMPLETE' );
362: FND_MESSAGE.set_token( 'BRNUM' , l_trx_rec.trx_number);
363: app_exception.raise_exception;
462:
463: IF FND_API.To_Boolean( p_commit )
464: THEN
465: IF PG_DEBUG in ('Y', 'C') THEN
466: arp_util.debug( 'committing');
467: END IF;
468: Commit;
469: END IF;
470:
468: Commit;
469: END IF;
470:
471: IF PG_DEBUG in ('Y', 'C') THEN
472: arp_util.debug('AR_BILLS_MAINTAIN_PUB.Complete_BR()- ');
473: END IF;
474:
475:
476: EXCEPTION
475:
476: EXCEPTION
477: WHEN FND_API.G_EXC_ERROR THEN
478: IF PG_DEBUG in ('Y', 'C') THEN
479: arp_util.debug( 'SQLCODE : ' || SQLCODE);
480: arp_util.debug( 'SQLERRM : ' || SQLERRM);
481: END IF;
482: ROLLBACK TO Complete_BR_PVT;
483: x_return_status := FND_API.G_RET_STS_ERROR ;
476: EXCEPTION
477: WHEN FND_API.G_EXC_ERROR THEN
478: IF PG_DEBUG in ('Y', 'C') THEN
479: arp_util.debug( 'SQLCODE : ' || SQLCODE);
480: arp_util.debug( 'SQLERRM : ' || SQLERRM);
481: END IF;
482: ROLLBACK TO Complete_BR_PVT;
483: x_return_status := FND_API.G_RET_STS_ERROR ;
484: IF PG_DEBUG in ('Y', 'C') THEN
481: END IF;
482: ROLLBACK TO Complete_BR_PVT;
483: x_return_status := FND_API.G_RET_STS_ERROR ;
484: IF PG_DEBUG in ('Y', 'C') THEN
485: arp_util.debug( 'Exception Error');
486: END IF;
487: raise;
488:
489:
488:
489:
490: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
491: IF PG_DEBUG in ('Y', 'C') THEN
492: arp_util.debug( 'SQLCODE : ' || SQLCODE);
493: arp_util.debug( 'SQLERRM : ' || SQLERRM);
494: END IF;
495: ROLLBACK TO Complete_BR_PVT;
496: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
489:
490: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
491: IF PG_DEBUG in ('Y', 'C') THEN
492: arp_util.debug( 'SQLCODE : ' || SQLCODE);
493: arp_util.debug( 'SQLERRM : ' || SQLERRM);
494: END IF;
495: ROLLBACK TO Complete_BR_PVT;
496: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
497: IF PG_DEBUG in ('Y', 'C') THEN
494: END IF;
495: ROLLBACK TO Complete_BR_PVT;
496: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
497: IF PG_DEBUG in ('Y', 'C') THEN
498: arp_util.debug( 'Exception Unexpected Error');
499: END IF;
500: RAISE;
501:
502:
507: | been put on the error stack. |
508: +-------------------------------------------------------*/
509:
510: IF PG_DEBUG in ('Y', 'C') THEN
511: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
512: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
513: END IF;
514:
515: IF (SQLCODE = -20001)
508: +-------------------------------------------------------*/
509:
510: IF PG_DEBUG in ('Y', 'C') THEN
511: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
512: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
513: END IF;
514:
515: IF (SQLCODE = -20001)
516: THEN
514:
515: IF (SQLCODE = -20001)
516: THEN
517: IF PG_DEBUG in ('Y', 'C') THEN
518: arp_util.debug( 'Exception Others -20001');
519: END IF;
520: ROLLBACK TO Complete_BR_PVT;
521: x_return_status := FND_API.G_RET_STS_ERROR ;
522: RAISE;
522: RAISE;
523:
524: ELSE
525: IF PG_DEBUG in ('Y', 'C') THEN
526: arp_util.debug( 'Exception Others');
527: END IF;
528: NULL;
529: END IF;
530:
579:
580: BEGIN
581:
582: IF PG_DEBUG in ('Y', 'C') THEN
583: arp_util.debug('AR_BILLS_MAINTAIN_PUB.UnComplete_BR()+ ');
584: END IF;
585: x_msg_count := NULL;
586: x_msg_data := NULL;
587: /*-----------------------------------------------+
659:
660: IF (C_ACTION_REC.uncomplete_flag <> 'Y')
661: THEN
662: IF PG_DEBUG in ('Y', 'C') THEN
663: arp_util.debug( '>>>>>>>>>> The action ' || l_action || ' is not allowed on the BR ' || p_customer_trx_id);
664: END IF;
665: FND_MESSAGE.set_name ( 'AR', 'AR_BR_CANNOT_INCOMPLETE' );
666: FND_MESSAGE.set_token ( 'BRNUM' , l_trx_rec.trx_number);
667: app_exception.raise_exception;
761:
762: IF FND_API.To_Boolean( p_commit )
763: THEN
764: IF PG_DEBUG in ('Y', 'C') THEN
765: arp_util.debug( 'committing');
766: END IF;
767: Commit;
768: END IF;
769:
767: Commit;
768: END IF;
769:
770: IF PG_DEBUG in ('Y', 'C') THEN
771: arp_util.debug('AR_BILLS_MAINTAIN_PUB.UnComplete_BR()- ');
772: END IF;
773:
774:
775: EXCEPTION
774:
775: EXCEPTION
776: WHEN FND_API.G_EXC_ERROR THEN
777: IF PG_DEBUG in ('Y', 'C') THEN
778: arp_util.debug( 'SQLCODE : ' || SQLCODE);
779: arp_util.debug( 'SQLERRM : ' || SQLERRM);
780: END IF;
781: ROLLBACK TO UnComplete_BR_PVT;
782: x_return_status := FND_API.G_RET_STS_ERROR ;
775: EXCEPTION
776: WHEN FND_API.G_EXC_ERROR THEN
777: IF PG_DEBUG in ('Y', 'C') THEN
778: arp_util.debug( 'SQLCODE : ' || SQLCODE);
779: arp_util.debug( 'SQLERRM : ' || SQLERRM);
780: END IF;
781: ROLLBACK TO UnComplete_BR_PVT;
782: x_return_status := FND_API.G_RET_STS_ERROR ;
783: IF PG_DEBUG in ('Y', 'C') THEN
780: END IF;
781: ROLLBACK TO UnComplete_BR_PVT;
782: x_return_status := FND_API.G_RET_STS_ERROR ;
783: IF PG_DEBUG in ('Y', 'C') THEN
784: arp_util.debug( 'Exception Error');
785: END IF;
786: raise;
787:
788:
787:
788:
789: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
790: IF PG_DEBUG in ('Y', 'C') THEN
791: arp_util.debug( 'SQLCODE : ' || SQLCODE);
792: arp_util.debug( 'SQLERRM : ' || SQLERRM);
793: END IF;
794: ROLLBACK TO UnComplete_BR_PVT;
795: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
788:
789: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
790: IF PG_DEBUG in ('Y', 'C') THEN
791: arp_util.debug( 'SQLCODE : ' || SQLCODE);
792: arp_util.debug( 'SQLERRM : ' || SQLERRM);
793: END IF;
794: ROLLBACK TO UnComplete_BR_PVT;
795: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
796: IF PG_DEBUG in ('Y', 'C') THEN
793: END IF;
794: ROLLBACK TO UnComplete_BR_PVT;
795: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
796: IF PG_DEBUG in ('Y', 'C') THEN
797: arp_util.debug( 'Exception Unexpected Error');
798: END IF;
799: raise;
800:
801:
806: | been put on the error stack. |
807: +-------------------------------------------------------*/
808:
809: IF PG_DEBUG in ('Y', 'C') THEN
810: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
811: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
812: END IF;
813:
814: IF (SQLCODE = -20001)
807: +-------------------------------------------------------*/
808:
809: IF PG_DEBUG in ('Y', 'C') THEN
810: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
811: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
812: END IF;
813:
814: IF (SQLCODE = -20001)
815: THEN
813:
814: IF (SQLCODE = -20001)
815: THEN
816: IF PG_DEBUG in ('Y', 'C') THEN
817: arp_util.debug( 'Exception Others -20001');
818: END IF;
819: ROLLBACK TO UnComplete_BR_PVT;
820: x_return_status := FND_API.G_RET_STS_ERROR ;
821: RAISE;
820: x_return_status := FND_API.G_RET_STS_ERROR ;
821: RAISE;
822: ELSE
823: IF PG_DEBUG in ('Y', 'C') THEN
824: arp_util.debug( 'Exception Others');
825: END IF;
826: NULL;
827: END IF;
828:
882:
883: BEGIN
884:
885: IF PG_DEBUG in ('Y', 'C') THEN
886: arp_util.debug( 'AR_BILLS_MAINTAIN_PUB.Accept()+ ');
887: END IF;
888:
889: x_msg_count := NULL;
890: x_msg_data := NULL;
963:
964: IF (C_ACTION_REC.accept_flag <> 'Y')
965: THEN
966: IF PG_DEBUG in ('Y', 'C') THEN
967: arp_util.debug( '>>>>>>>>>> The action ' || l_action || ' is not allowed on the BR ' || p_customer_trx_id);
968: END IF;
969: FND_MESSAGE.set_name ( 'AR', 'AR_BR_CANNOT_ACCEPT' );
970: FND_MESSAGE.set_token ( 'BRNUM' , l_trx_rec.trx_number);
971: app_exception.raise_exception;
1051:
1052: IF FND_API.To_Boolean( p_commit )
1053: THEN
1054: IF PG_DEBUG in ('Y', 'C') THEN
1055: arp_util.debug( 'committing');
1056: END IF;
1057: Commit;
1058: END IF;
1059:
1057: Commit;
1058: END IF;
1059:
1060: IF PG_DEBUG in ('Y', 'C') THEN
1061: arp_util.debug( 'AR_BILLS_MAINTAIN_PUB.Accept()- ');
1062: END IF;
1063:
1064:
1065: EXCEPTION
1064:
1065: EXCEPTION
1066: WHEN FND_API.G_EXC_ERROR THEN
1067: IF PG_DEBUG in ('Y', 'C') THEN
1068: arp_util.debug( 'SQLCODE : ' || SQLCODE);
1069: arp_util.debug( 'SQLERRM : ' || SQLERRM);
1070: END IF;
1071: ROLLBACK TO Accept_BR_PVT;
1072: x_return_status := FND_API.G_RET_STS_ERROR ;
1065: EXCEPTION
1066: WHEN FND_API.G_EXC_ERROR THEN
1067: IF PG_DEBUG in ('Y', 'C') THEN
1068: arp_util.debug( 'SQLCODE : ' || SQLCODE);
1069: arp_util.debug( 'SQLERRM : ' || SQLERRM);
1070: END IF;
1071: ROLLBACK TO Accept_BR_PVT;
1072: x_return_status := FND_API.G_RET_STS_ERROR ;
1073: IF PG_DEBUG in ('Y', 'C') THEN
1070: END IF;
1071: ROLLBACK TO Accept_BR_PVT;
1072: x_return_status := FND_API.G_RET_STS_ERROR ;
1073: IF PG_DEBUG in ('Y', 'C') THEN
1074: arp_util.debug( 'Exception Error');
1075: END IF;
1076: RAISE;
1077:
1078:
1077:
1078:
1079: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1080: IF PG_DEBUG in ('Y', 'C') THEN
1081: arp_util.debug( 'SQLCODE : ' || SQLCODE);
1082: arp_util.debug( 'SQLERRM : ' || SQLERRM);
1083: END IF;
1084: ROLLBACK TO Accept_BR_PVT;
1085: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1078:
1079: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1080: IF PG_DEBUG in ('Y', 'C') THEN
1081: arp_util.debug( 'SQLCODE : ' || SQLCODE);
1082: arp_util.debug( 'SQLERRM : ' || SQLERRM);
1083: END IF;
1084: ROLLBACK TO Accept_BR_PVT;
1085: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1086: IF PG_DEBUG in ('Y', 'C') THEN
1083: END IF;
1084: ROLLBACK TO Accept_BR_PVT;
1085: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1086: IF PG_DEBUG in ('Y', 'C') THEN
1087: arp_util.debug( 'Exception Unexpected Error');
1088: END IF;
1089: RAISE;
1090:
1091:
1096: | been put on the error stack. |
1097: +-------------------------------------------------------*/
1098:
1099: IF PG_DEBUG in ('Y', 'C') THEN
1100: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
1101: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
1102: END IF;
1103:
1104: IF (SQLCODE = -20001)
1097: +-------------------------------------------------------*/
1098:
1099: IF PG_DEBUG in ('Y', 'C') THEN
1100: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
1101: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
1102: END IF;
1103:
1104: IF (SQLCODE = -20001)
1105: THEN
1159:
1160: BEGIN
1161:
1162: IF PG_DEBUG in ('Y', 'C') THEN
1163: arp_util.debug('AR_BILLS_MAINTAIN_PUB.Hold_BR()+ ');
1164: END IF;
1165:
1166: x_msg_count := NULL;
1167: x_msg_data := NULL;
1240:
1241: IF (C_ACTION_REC.hold_flag <> 'Y')
1242: THEN
1243: IF PG_DEBUG in ('Y', 'C') THEN
1244: arp_util.debug( '>>>>>>>>>> The action ' || l_action || ' is not allowed on the BR ' || p_customer_trx_id);
1245: END IF;
1246: FND_MESSAGE.set_name ( 'AR', 'AR_BR_CANNOT_HOLD' );
1247: FND_MESSAGE.set_token ( 'BRNUM' , l_trx_rec.trx_number);
1248: app_exception.raise_exception;
1325:
1326: IF FND_API.To_Boolean( p_commit )
1327: THEN
1328: IF PG_DEBUG in ('Y', 'C') THEN
1329: arp_util.debug( 'committing');
1330: END IF;
1331: Commit;
1332: END IF;
1333:
1331: Commit;
1332: END IF;
1333:
1334: IF PG_DEBUG in ('Y', 'C') THEN
1335: arp_util.debug( 'AR_BILLS_MAINTAIN_PUB.Hold()- ');
1336: END IF;
1337:
1338:
1339: EXCEPTION
1338:
1339: EXCEPTION
1340: WHEN FND_API.G_EXC_ERROR THEN
1341: IF PG_DEBUG in ('Y', 'C') THEN
1342: arp_util.debug( 'SQLCODE : ' || SQLCODE);
1343: arp_util.debug( 'SQLERRM : ' || SQLERRM);
1344: END IF;
1345: ROLLBACK TO Hold_BR_PVT;
1346: x_return_status := FND_API.G_RET_STS_ERROR ;
1339: EXCEPTION
1340: WHEN FND_API.G_EXC_ERROR THEN
1341: IF PG_DEBUG in ('Y', 'C') THEN
1342: arp_util.debug( 'SQLCODE : ' || SQLCODE);
1343: arp_util.debug( 'SQLERRM : ' || SQLERRM);
1344: END IF;
1345: ROLLBACK TO Hold_BR_PVT;
1346: x_return_status := FND_API.G_RET_STS_ERROR ;
1347: IF PG_DEBUG in ('Y', 'C') THEN
1344: END IF;
1345: ROLLBACK TO Hold_BR_PVT;
1346: x_return_status := FND_API.G_RET_STS_ERROR ;
1347: IF PG_DEBUG in ('Y', 'C') THEN
1348: arp_util.debug( 'Exception Error');
1349: END IF;
1350: RAISE;
1351:
1352: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1350: RAISE;
1351:
1352: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1353: IF PG_DEBUG in ('Y', 'C') THEN
1354: arp_util.debug( 'SQLCODE : ' || SQLCODE);
1355: arp_util.debug( 'SQLERRM : ' || SQLERRM);
1356: END IF;
1357: ROLLBACK TO Hold_BR_PVT;
1358: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1351:
1352: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1353: IF PG_DEBUG in ('Y', 'C') THEN
1354: arp_util.debug( 'SQLCODE : ' || SQLCODE);
1355: arp_util.debug( 'SQLERRM : ' || SQLERRM);
1356: END IF;
1357: ROLLBACK TO Hold_BR_PVT;
1358: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1359: IF PG_DEBUG in ('Y', 'C') THEN
1356: END IF;
1357: ROLLBACK TO Hold_BR_PVT;
1358: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1359: IF PG_DEBUG in ('Y', 'C') THEN
1360: arp_util.debug( 'Exception Unexpected Error');
1361: END IF;
1362: RAISE;
1363:
1364: WHEN OTHERS THEN
1368: | been put on the error stack. |
1369: +-------------------------------------------------------*/
1370:
1371: IF PG_DEBUG in ('Y', 'C') THEN
1372: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
1373: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
1374: END IF;
1375:
1376: IF (SQLCODE = -20001)
1369: +-------------------------------------------------------*/
1370:
1371: IF PG_DEBUG in ('Y', 'C') THEN
1372: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
1373: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
1374: END IF;
1375:
1376: IF (SQLCODE = -20001)
1377: THEN
1430:
1431: BEGIN
1432:
1433: IF PG_DEBUG in ('Y', 'C') THEN
1434: arp_util.debug('AR_BILLS_MAINTAIN_PUB.UnHold_BR()+ ');
1435: END IF;
1436:
1437: x_msg_count := NULL;
1438: x_msg_data := NULL;
1511:
1512: IF (C_ACTION_REC.unhold_flag <> 'Y')
1513: THEN
1514: IF PG_DEBUG in ('Y', 'C') THEN
1515: arp_util.debug( '>>>>>>>>>> The action ' || l_action || ' is not allowed on the BR ' || p_customer_trx_id);
1516: END IF;
1517: FND_MESSAGE.set_name ( 'AR', 'AR_BR_CANNOT_UNHOLD' );
1518: FND_MESSAGE.set_token ( 'BRNUM' , l_trx_rec.trx_number);
1519: app_exception.raise_exception;
1591:
1592: IF FND_API.To_Boolean( p_commit )
1593: THEN
1594: IF PG_DEBUG in ('Y', 'C') THEN
1595: arp_util.debug( 'committing');
1596: END IF;
1597: Commit;
1598: END IF;
1599:
1597: Commit;
1598: END IF;
1599:
1600: IF PG_DEBUG in ('Y', 'C') THEN
1601: arp_util.debug( 'AR_BILLS_MAINTAIN_PUB.UnHold()- ');
1602: END IF;
1603:
1604:
1605: EXCEPTION
1604:
1605: EXCEPTION
1606: WHEN FND_API.G_EXC_ERROR THEN
1607: IF PG_DEBUG in ('Y', 'C') THEN
1608: arp_util.debug( 'SQLCODE : ' || SQLCODE);
1609: arp_util.debug( 'SQLERRM : ' || SQLERRM);
1610: END IF;
1611: ROLLBACK TO UnHold_BR_PVT;
1612: x_return_status := FND_API.G_RET_STS_ERROR ;
1605: EXCEPTION
1606: WHEN FND_API.G_EXC_ERROR THEN
1607: IF PG_DEBUG in ('Y', 'C') THEN
1608: arp_util.debug( 'SQLCODE : ' || SQLCODE);
1609: arp_util.debug( 'SQLERRM : ' || SQLERRM);
1610: END IF;
1611: ROLLBACK TO UnHold_BR_PVT;
1612: x_return_status := FND_API.G_RET_STS_ERROR ;
1613: IF PG_DEBUG in ('Y', 'C') THEN
1610: END IF;
1611: ROLLBACK TO UnHold_BR_PVT;
1612: x_return_status := FND_API.G_RET_STS_ERROR ;
1613: IF PG_DEBUG in ('Y', 'C') THEN
1614: arp_util.debug( 'Exception Error');
1615: END IF;
1616: RAISE;
1617:
1618: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1616: RAISE;
1617:
1618: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1619: IF PG_DEBUG in ('Y', 'C') THEN
1620: arp_util.debug( 'SQLCODE : ' || SQLCODE);
1621: arp_util.debug( 'SQLERRM : ' || SQLERRM);
1622: END IF;
1623: ROLLBACK TO UnHold_BR_PVT;
1624: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1617:
1618: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1619: IF PG_DEBUG in ('Y', 'C') THEN
1620: arp_util.debug( 'SQLCODE : ' || SQLCODE);
1621: arp_util.debug( 'SQLERRM : ' || SQLERRM);
1622: END IF;
1623: ROLLBACK TO UnHold_BR_PVT;
1624: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1625: IF PG_DEBUG in ('Y', 'C') THEN
1622: END IF;
1623: ROLLBACK TO UnHold_BR_PVT;
1624: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1625: IF PG_DEBUG in ('Y', 'C') THEN
1626: arp_util.debug( 'Exception Unexpected Error');
1627: END IF;
1628: RAISE;
1629:
1630: WHEN OTHERS THEN
1634: | been put on the error stack. |
1635: +-------------------------------------------------------*/
1636:
1637: IF PG_DEBUG in ('Y', 'C') THEN
1638: arp_util.debug( 'SQLCODE : ' || SQLCODE);
1639: arp_util.debug( 'SQLERRM : ' || SQLERRM);
1640: END IF;
1641:
1642: IF (SQLCODE = -20001)
1635: +-------------------------------------------------------*/
1636:
1637: IF PG_DEBUG in ('Y', 'C') THEN
1638: arp_util.debug( 'SQLCODE : ' || SQLCODE);
1639: arp_util.debug( 'SQLERRM : ' || SQLERRM);
1640: END IF;
1641:
1642: IF (SQLCODE = -20001)
1643: THEN
1686:
1687: BEGIN
1688:
1689: IF PG_DEBUG in ('Y', 'C') THEN
1690: arp_util.debug('AR_BILLS_MAINTAIN_PUB.Select_BR_Remit ()+');
1691: END IF;
1692:
1693: /*-----------------------------------------------+
1694: | Standard start of API savepoint |
1752:
1753: IF (C_ACTION_REC.select_remit_flag <> 'Y')
1754: THEN
1755: IF PG_DEBUG in ('Y', 'C') THEN
1756: arp_util.debug( '>>>>>>>>>> The action ' || l_action || ' is not allowed on the BR ' || l_ps_rec.customer_trx_id);
1757: END IF;
1758: FND_MESSAGE.set_name ( 'AR', 'AR_BR_CANNOT_SELECT_REMIT' );
1759: FND_MESSAGE.set_token ( 'BRNUM' , l_trx_rec.trx_number);
1760: app_exception.raise_exception;
1813:
1814: p_status := l_trh_rec.status;
1815:
1816: IF PG_DEBUG in ('Y', 'C') THEN
1817: arp_util.debug('AR_BILLS_MAINTAIN_PUB.Select_BR_Remit ()-');
1818: END IF;
1819:
1820: EXCEPTION
1821: WHEN OTHERS THEN
1819:
1820: EXCEPTION
1821: WHEN OTHERS THEN
1822: IF PG_DEBUG in ('Y', 'C') THEN
1823: arp_util.debug('EXCEPTION OTHERS: AR_BILLS_MAINTAIN_PUB.Select_BR_Remit');
1824: arp_util.debug( SQLCODE);
1825: arp_util.debug( SQLERRM);
1826: END IF;
1827: ROLLBACK TO Select_BR_Remit_PVT;
1820: EXCEPTION
1821: WHEN OTHERS THEN
1822: IF PG_DEBUG in ('Y', 'C') THEN
1823: arp_util.debug('EXCEPTION OTHERS: AR_BILLS_MAINTAIN_PUB.Select_BR_Remit');
1824: arp_util.debug( SQLCODE);
1825: arp_util.debug( SQLERRM);
1826: END IF;
1827: ROLLBACK TO Select_BR_Remit_PVT;
1828: RAISE;
1821: WHEN OTHERS THEN
1822: IF PG_DEBUG in ('Y', 'C') THEN
1823: arp_util.debug('EXCEPTION OTHERS: AR_BILLS_MAINTAIN_PUB.Select_BR_Remit');
1824: arp_util.debug( SQLCODE);
1825: arp_util.debug( SQLERRM);
1826: END IF;
1827: ROLLBACK TO Select_BR_Remit_PVT;
1828: RAISE;
1829:
1856:
1857: BEGIN
1858:
1859: IF PG_DEBUG in ('Y', 'C') THEN
1860: arp_util.debug('AR_BILLS_MAINTAIN_PUB.DeSelect_BR_Remit ()+');
1861: END IF;
1862:
1863: /*-----------------------------------------------+
1864: | Standard start of API savepoint |
1917:
1918: IF (C_ACTION_REC.deselect_remit_flag <> 'Y')
1919: THEN
1920: IF PG_DEBUG in ('Y', 'C') THEN
1921: arp_util.debug( '>>>>>>>>>> The action ' || l_action || ' is not allowed on the BR ' || l_ps_rec.customer_trx_id);
1922: END IF;
1923: FND_MESSAGE.set_name ( 'AR', 'AR_BR_CANNOT_DESELECT_REMIT' );
1924: FND_MESSAGE.set_token ( 'BRNUM' , l_trx_rec.trx_number);
1925: app_exception.raise_exception;
1973:
1974: p_status := l_trh_rec.status;
1975:
1976: IF PG_DEBUG in ('Y', 'C') THEN
1977: arp_util.debug('AR_BILLS_MAINTAIN_PUB.DeSelect_BR_Remit ()-');
1978: END IF;
1979:
1980: EXCEPTION
1981: WHEN OTHERS THEN
1979:
1980: EXCEPTION
1981: WHEN OTHERS THEN
1982: IF PG_DEBUG in ('Y', 'C') THEN
1983: arp_util.debug('EXCEPTION OTHERS: AR_BILLS_MAINTAIN_PUB.DeSelect_BR_Remit');
1984: arp_util.debug( SQLCODE);
1985: arp_util.debug( SQLERRM);
1986: END IF;
1987: ROLLBACK TO DeSelect_BR_Remit_PVT;
1980: EXCEPTION
1981: WHEN OTHERS THEN
1982: IF PG_DEBUG in ('Y', 'C') THEN
1983: arp_util.debug('EXCEPTION OTHERS: AR_BILLS_MAINTAIN_PUB.DeSelect_BR_Remit');
1984: arp_util.debug( SQLCODE);
1985: arp_util.debug( SQLERRM);
1986: END IF;
1987: ROLLBACK TO DeSelect_BR_Remit_PVT;
1988: RAISE;
1981: WHEN OTHERS THEN
1982: IF PG_DEBUG in ('Y', 'C') THEN
1983: arp_util.debug('EXCEPTION OTHERS: AR_BILLS_MAINTAIN_PUB.DeSelect_BR_Remit');
1984: arp_util.debug( SQLCODE);
1985: arp_util.debug( SQLERRM);
1986: END IF;
1987: ROLLBACK TO DeSelect_BR_Remit_PVT;
1988: RAISE;
1989:
2016:
2017: BEGIN
2018:
2019: IF PG_DEBUG in ('Y', 'C') THEN
2020: arp_util.debug('AR_BILLS_MAINTAIN_PUB.Cancel_BR_Remit ()+');
2021: END IF;
2022:
2023: /*-----------------------------------------------+
2024: | Standard start of API savepoint |
2077:
2078: IF (C_ACTION_REC.deselect_remit_flag <> 'Y')
2079: THEN
2080: IF PG_DEBUG in ('Y', 'C') THEN
2081: arp_util.debug('Cancel_BR_Remit: ' || '>>>>>>>>>> The action ' || l_action || ' is not allowed on the BR ' || l_ps_rec.customer_trx_id);
2082: END IF;
2083: FND_MESSAGE.set_name ( 'AR', 'AR_BR_CANNOT_DESELECT_REMIT' );
2084: FND_MESSAGE.set_token ( 'BRNUM' , l_trx_rec.trx_number);
2085: app_exception.raise_exception;
2127: ARP_PROC_TRANSACTION_HISTORY.update_transaction_history (l_trh_rec, l_trh_id);
2128:
2129:
2130: IF PG_DEBUG in ('Y', 'C') THEN
2131: arp_util.debug('Cancel_BR_Remit: ' || 'AR_BILLS_MAINTAIN_PUB.DeSelect_BR_Remit ()-');
2132: END IF;
2133:
2134: EXCEPTION
2135: WHEN OTHERS THEN
2133:
2134: EXCEPTION
2135: WHEN OTHERS THEN
2136: IF PG_DEBUG in ('Y', 'C') THEN
2137: arp_util.debug('EXCEPTION OTHERS: AR_BILLS_MAINTAIN_PUB.Cancel_BR_Remit');
2138: arp_util.debug('Cancel_BR_Remit: ' || SQLCODE);
2139: arp_util.debug('Cancel_BR_Remit: ' || SQLERRM);
2140: END IF;
2141: ROLLBACK TO Cancel_BR_Remit_PVT;
2134: EXCEPTION
2135: WHEN OTHERS THEN
2136: IF PG_DEBUG in ('Y', 'C') THEN
2137: arp_util.debug('EXCEPTION OTHERS: AR_BILLS_MAINTAIN_PUB.Cancel_BR_Remit');
2138: arp_util.debug('Cancel_BR_Remit: ' || SQLCODE);
2139: arp_util.debug('Cancel_BR_Remit: ' || SQLERRM);
2140: END IF;
2141: ROLLBACK TO Cancel_BR_Remit_PVT;
2142: RAISE;
2135: WHEN OTHERS THEN
2136: IF PG_DEBUG in ('Y', 'C') THEN
2137: arp_util.debug('EXCEPTION OTHERS: AR_BILLS_MAINTAIN_PUB.Cancel_BR_Remit');
2138: arp_util.debug('Cancel_BR_Remit: ' || SQLCODE);
2139: arp_util.debug('Cancel_BR_Remit: ' || SQLERRM);
2140: END IF;
2141: ROLLBACK TO Cancel_BR_Remit_PVT;
2142: RAISE;
2143:
2176:
2177: BEGIN
2178:
2179: IF PG_DEBUG in ('Y', 'C') THEN
2180: arp_util.debug('AR_BILLS_MAINTAIN_PUB.Approve_BR_Remit ()+ ');
2181: END IF;
2182:
2183:
2184: /*-----------------------------------------------+
2231:
2232: IF (C_ACTION_REC.approve_remit_flag <> 'Y')
2233: THEN
2234: IF PG_DEBUG in ('Y', 'C') THEN
2235: arp_util.debug( '>>>>>>>>>> The action ' || l_action || ' is not allowed on the BR ' || l_ps_rec.customer_trx_id);
2236: END IF;
2237: FND_MESSAGE.set_name ( 'AR', 'AR_BR_CANNOT_APPROVE' );
2238: FND_MESSAGE.set_token ( 'BRNUM' , l_trx_rec.trx_number);
2239: app_exception.raise_exception;
2321: | Remittance Method Unknown |
2322: +-----------------------------------------------*/
2323:
2324: IF PG_DEBUG in ('Y', 'C') THEN
2325: arp_util.debug( '>>>>>>>>>> The remittance method : ' || l_batch_rec.remit_method_code || 'Recourse Flag : ' || l_batch_rec.with_recourse_flag || ' is not handled');
2326: END IF;
2327: FND_MESSAGE.set_name ( 'AR', 'AR_BR_INVALID_REMIT_METHOD');
2328: app_exception.raise_exception;
2329:
2393: p_status := l_trh_rec.status ;
2394:
2395:
2396: IF PG_DEBUG in ('Y', 'C') THEN
2397: arp_util.debug('AR_BILLS_MAINTAIN_PUB.Approve_BR_Remit ()- ');
2398: END IF;
2399:
2400: EXCEPTION
2401: WHEN OTHERS THEN
2399:
2400: EXCEPTION
2401: WHEN OTHERS THEN
2402: IF PG_DEBUG in ('Y', 'C') THEN
2403: arp_util.debug('EXCEPTION OTHERS: AR_BILLS_MAINTAIN_PUB.Approve_BR_Remit');
2404: arp_util.debug( SQLCODE);
2405: arp_util.debug( SQLERRM);
2406: END IF;
2407: ROLLBACK TO Approve_BR_Remit_PVT;
2400: EXCEPTION
2401: WHEN OTHERS THEN
2402: IF PG_DEBUG in ('Y', 'C') THEN
2403: arp_util.debug('EXCEPTION OTHERS: AR_BILLS_MAINTAIN_PUB.Approve_BR_Remit');
2404: arp_util.debug( SQLCODE);
2405: arp_util.debug( SQLERRM);
2406: END IF;
2407: ROLLBACK TO Approve_BR_Remit_PVT;
2408: RAISE;
2401: WHEN OTHERS THEN
2402: IF PG_DEBUG in ('Y', 'C') THEN
2403: arp_util.debug('EXCEPTION OTHERS: AR_BILLS_MAINTAIN_PUB.Approve_BR_Remit');
2404: arp_util.debug( SQLCODE);
2405: arp_util.debug( SQLERRM);
2406: END IF;
2407: ROLLBACK TO Approve_BR_Remit_PVT;
2408: RAISE;
2409:
2467:
2468: BEGIN
2469:
2470: IF PG_DEBUG in ('Y', 'C') THEN
2471: arp_util.debug('AR_BILLS_MAINTAIN_PUB.Cancel_BR()+ ');
2472: END IF;
2473:
2474: x_msg_count := NULL;
2475: x_msg_data := NULL;
2547:
2548: IF (C_ACTION_REC.cancel_flag <> 'Y')
2549: THEN
2550: IF PG_DEBUG in ('Y', 'C') THEN
2551: arp_util.debug( '>>>>>>>>>> The action ' || l_action || ' is not allowed on the BR ' || p_customer_trx_id);
2552: END IF;
2553: FND_MESSAGE.set_name ( 'AR', 'AR_BR_CANNOT_CANCEL' );
2554: FND_MESSAGE.set_token ( 'BRNUM' , l_trx_rec.trx_number);
2555: app_exception.raise_exception;
2677:
2678: IF FND_API.To_Boolean( p_commit )
2679: THEN
2680: IF PG_DEBUG in ('Y', 'C') THEN
2681: arp_util.debug( 'committing');
2682: END IF;
2683: Commit;
2684: END IF;
2685:
2683: Commit;
2684: END IF;
2685:
2686: IF PG_DEBUG in ('Y', 'C') THEN
2687: arp_util.debug('AR_BILLS_MAINTAIN_PUB.Cancel_BR()- ');
2688: END IF;
2689:
2690:
2691: EXCEPTION
2690:
2691: EXCEPTION
2692: WHEN FND_API.G_EXC_ERROR THEN
2693: IF PG_DEBUG in ('Y', 'C') THEN
2694: arp_util.debug( 'SQLCODE : ' || SQLCODE);
2695: arp_util.debug( 'SQLERRM : ' || SQLERRM);
2696: END IF;
2697: ROLLBACK TO Cancel_BR_PVT;
2698: x_return_status := FND_API.G_RET_STS_ERROR ;
2691: EXCEPTION
2692: WHEN FND_API.G_EXC_ERROR THEN
2693: IF PG_DEBUG in ('Y', 'C') THEN
2694: arp_util.debug( 'SQLCODE : ' || SQLCODE);
2695: arp_util.debug( 'SQLERRM : ' || SQLERRM);
2696: END IF;
2697: ROLLBACK TO Cancel_BR_PVT;
2698: x_return_status := FND_API.G_RET_STS_ERROR ;
2699: IF PG_DEBUG in ('Y', 'C') THEN
2696: END IF;
2697: ROLLBACK TO Cancel_BR_PVT;
2698: x_return_status := FND_API.G_RET_STS_ERROR ;
2699: IF PG_DEBUG in ('Y', 'C') THEN
2700: arp_util.debug( 'Exception Error');
2701: END IF;
2702: RAISE;
2703:
2704:
2703:
2704:
2705: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2706: IF PG_DEBUG in ('Y', 'C') THEN
2707: arp_util.debug( 'SQLCODE : ' || SQLCODE);
2708: arp_util.debug( 'SQLERRM : ' || SQLERRM);
2709: END IF;
2710: ROLLBACK TO Cancel_BR_PVT;
2711: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2704:
2705: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2706: IF PG_DEBUG in ('Y', 'C') THEN
2707: arp_util.debug( 'SQLCODE : ' || SQLCODE);
2708: arp_util.debug( 'SQLERRM : ' || SQLERRM);
2709: END IF;
2710: ROLLBACK TO Cancel_BR_PVT;
2711: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2712: IF PG_DEBUG in ('Y', 'C') THEN
2709: END IF;
2710: ROLLBACK TO Cancel_BR_PVT;
2711: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2712: IF PG_DEBUG in ('Y', 'C') THEN
2713: arp_util.debug( 'Exception Unexpected Error');
2714: END IF;
2715: RAISE;
2716:
2717:
2722: | been put on the error stack. |
2723: +-------------------------------------------------------*/
2724:
2725: IF PG_DEBUG in ('Y', 'C') THEN
2726: arp_util.debug( 'SQLCODE : ' || SQLCODE);
2727: arp_util.debug( 'SQLERRM : ' || SQLERRM);
2728: END IF;
2729:
2730: IF (SQLCODE = -20001)
2723: +-------------------------------------------------------*/
2724:
2725: IF PG_DEBUG in ('Y', 'C') THEN
2726: arp_util.debug( 'SQLCODE : ' || SQLCODE);
2727: arp_util.debug( 'SQLERRM : ' || SQLERRM);
2728: END IF;
2729:
2730: IF (SQLCODE = -20001)
2731: THEN
2793:
2794: BEGIN
2795:
2796: IF PG_DEBUG in ('Y', 'C') THEN
2797: arp_util.debug('AR_BILLS_MAINTAIN_PUB.Unpaid_BR()+ ');
2798: END IF;
2799:
2800: x_msg_count := NULL;
2801: x_msg_data := NULL;
2874:
2875: IF (C_ACTION_REC.unpaid_flag <> 'Y')
2876: THEN
2877: IF PG_DEBUG in ('Y', 'C') THEN
2878: arp_util.debug( '>>>>>>>>>> The action ' || l_action || ' is not allowed on the BR ' || p_customer_trx_id);
2879: END IF;
2880: FND_MESSAGE.set_name ( 'AR', 'AR_BR_CANNOT_UNPAID' );
2881: FND_MESSAGE.set_token ( 'BRNUM' , l_trx_rec.trx_number);
2882: app_exception.raise_exception;
2978:
2979: IF FND_API.To_Boolean( p_commit )
2980: THEN
2981: IF PG_DEBUG in ('Y', 'C') THEN
2982: arp_util.debug( 'committing');
2983: END IF;
2984: Commit;
2985: END IF;
2986:
2984: Commit;
2985: END IF;
2986:
2987: IF PG_DEBUG in ('Y', 'C') THEN
2988: arp_util.debug('AR_BILLS_MAINTAIN_PUB.Unpaid_BR()- ');
2989: END IF;
2990:
2991:
2992: EXCEPTION
2991:
2992: EXCEPTION
2993: WHEN FND_API.G_EXC_ERROR THEN
2994: IF PG_DEBUG in ('Y', 'C') THEN
2995: arp_util.debug( 'SQLCODE : ' || SQLCODE);
2996: arp_util.debug( 'SQLERRM : ' || SQLERRM);
2997: END IF;
2998: ROLLBACK TO Unpaid_BR_PVT;
2999: x_return_status := FND_API.G_RET_STS_ERROR ;
2992: EXCEPTION
2993: WHEN FND_API.G_EXC_ERROR THEN
2994: IF PG_DEBUG in ('Y', 'C') THEN
2995: arp_util.debug( 'SQLCODE : ' || SQLCODE);
2996: arp_util.debug( 'SQLERRM : ' || SQLERRM);
2997: END IF;
2998: ROLLBACK TO Unpaid_BR_PVT;
2999: x_return_status := FND_API.G_RET_STS_ERROR ;
3000: IF PG_DEBUG in ('Y', 'C') THEN
2997: END IF;
2998: ROLLBACK TO Unpaid_BR_PVT;
2999: x_return_status := FND_API.G_RET_STS_ERROR ;
3000: IF PG_DEBUG in ('Y', 'C') THEN
3001: arp_util.debug( 'Exception Error');
3002: END IF;
3003: RAISE;
3004:
3005:
3004:
3005:
3006: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3007: IF PG_DEBUG in ('Y', 'C') THEN
3008: arp_util.debug( 'SQLCODE : ' || SQLCODE);
3009: arp_util.debug( 'SQLERRM : ' || SQLERRM);
3010: END IF;
3011: ROLLBACK TO Unpaid_BR_PVT;
3012: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3005:
3006: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3007: IF PG_DEBUG in ('Y', 'C') THEN
3008: arp_util.debug( 'SQLCODE : ' || SQLCODE);
3009: arp_util.debug( 'SQLERRM : ' || SQLERRM);
3010: END IF;
3011: ROLLBACK TO Unpaid_BR_PVT;
3012: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3013: IF PG_DEBUG in ('Y', 'C') THEN
3010: END IF;
3011: ROLLBACK TO Unpaid_BR_PVT;
3012: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3013: IF PG_DEBUG in ('Y', 'C') THEN
3014: arp_util.debug( 'Exception Unexpected Error');
3015: END IF;
3016: RAISE;
3017:
3018:
3023: | been put on the error stack. |
3024: +-------------------------------------------------------*/
3025:
3026: IF PG_DEBUG in ('Y', 'C') THEN
3027: arp_util.debug( 'SQLCODE : ' || SQLCODE);
3028: arp_util.debug( 'SQLERRM : ' || SQLERRM);
3029: END IF;
3030:
3031: IF (SQLCODE = -20001)
3024: +-------------------------------------------------------*/
3025:
3026: IF PG_DEBUG in ('Y', 'C') THEN
3027: arp_util.debug( 'SQLCODE : ' || SQLCODE);
3028: arp_util.debug( 'SQLERRM : ' || SQLERRM);
3029: END IF;
3030:
3031: IF (SQLCODE = -20001)
3032: THEN
3097:
3098: BEGIN
3099:
3100: IF PG_DEBUG in ('Y', 'C') THEN
3101: arp_util.debug('AR_BILLS_MAINTAIN_PUB.Endorse_BR()+ ');
3102: END IF;
3103:
3104: x_msg_count := NULL;
3105: x_msg_data := NULL;
3177:
3178: IF (C_ACTION_REC.endorse_flag <> 'Y')
3179: THEN
3180: IF PG_DEBUG in ('Y', 'C') THEN
3181: arp_util.debug( '>>>>>>>>>> The action ' || l_action || ' is not allowed on the BR ' || p_customer_trx_id);
3182: END IF;
3183: FND_MESSAGE.set_name ( 'AR', 'AR_BR_CANNOT_ENDORSE' );
3184: FND_MESSAGE.set_token ( 'BRNUM' , l_trx_rec.trx_number);
3185: app_exception.raise_exception;
3357:
3358: IF FND_API.To_Boolean( p_commit )
3359: THEN
3360: IF PG_DEBUG in ('Y', 'C') THEN
3361: arp_util.debug( 'committing');
3362: END IF;
3363: Commit;
3364: END IF;
3365:
3363: Commit;
3364: END IF;
3365:
3366: IF PG_DEBUG in ('Y', 'C') THEN
3367: arp_util.debug('AR_BILLS_MAINTAIN_PUB.Endorse_BR()- ');
3368: END IF;
3369:
3370:
3371: EXCEPTION
3370:
3371: EXCEPTION
3372: WHEN FND_API.G_EXC_ERROR THEN
3373: IF PG_DEBUG in ('Y', 'C') THEN
3374: arp_util.debug( 'SQLCODE : ' || SQLCODE);
3375: arp_util.debug( 'SQLERRM : ' || SQLERRM);
3376: END IF;
3377: ROLLBACK TO Endorse_BR_PVT;
3378: x_return_status := FND_API.G_RET_STS_ERROR ;
3371: EXCEPTION
3372: WHEN FND_API.G_EXC_ERROR THEN
3373: IF PG_DEBUG in ('Y', 'C') THEN
3374: arp_util.debug( 'SQLCODE : ' || SQLCODE);
3375: arp_util.debug( 'SQLERRM : ' || SQLERRM);
3376: END IF;
3377: ROLLBACK TO Endorse_BR_PVT;
3378: x_return_status := FND_API.G_RET_STS_ERROR ;
3379: IF PG_DEBUG in ('Y', 'C') THEN
3376: END IF;
3377: ROLLBACK TO Endorse_BR_PVT;
3378: x_return_status := FND_API.G_RET_STS_ERROR ;
3379: IF PG_DEBUG in ('Y', 'C') THEN
3380: arp_util.debug( 'Exception Error');
3381: END IF;
3382: RAISE;
3383:
3384: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3382: RAISE;
3383:
3384: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3385: IF PG_DEBUG in ('Y', 'C') THEN
3386: arp_util.debug( 'SQLCODE : ' || SQLCODE);
3387: arp_util.debug( 'SQLERRM : ' || SQLERRM);
3388: END IF;
3389: ROLLBACK TO Endorse_BR_PVT;
3390: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3383:
3384: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3385: IF PG_DEBUG in ('Y', 'C') THEN
3386: arp_util.debug( 'SQLCODE : ' || SQLCODE);
3387: arp_util.debug( 'SQLERRM : ' || SQLERRM);
3388: END IF;
3389: ROLLBACK TO Endorse_BR_PVT;
3390: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3391: IF PG_DEBUG in ('Y', 'C') THEN
3388: END IF;
3389: ROLLBACK TO Endorse_BR_PVT;
3390: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3391: IF PG_DEBUG in ('Y', 'C') THEN
3392: arp_util.debug( 'Exception Unexpected Error');
3393: END IF;
3394: RAISE;
3395:
3396:
3401: | been put on the error stack. |
3402: +-------------------------------------------------------*/
3403:
3404: IF PG_DEBUG in ('Y', 'C') THEN
3405: arp_util.debug( 'SQLCODE : ' || SQLCODE);
3406: arp_util.debug( 'SQLERRM : ' || SQLERRM);
3407: END IF;
3408:
3409: IF (SQLCODE = -20001)
3402: +-------------------------------------------------------*/
3403:
3404: IF PG_DEBUG in ('Y', 'C') THEN
3405: arp_util.debug( 'SQLCODE : ' || SQLCODE);
3406: arp_util.debug( 'SQLERRM : ' || SQLERRM);
3407: END IF;
3408:
3409: IF (SQLCODE = -20001)
3410: THEN
3468:
3469: BEGIN
3470:
3471: IF PG_DEBUG in ('Y', 'C') THEN
3472: arp_util.debug('AR_BILLS_MAINTAIN_PUB.Protest_BR()+ ');
3473: END IF;
3474:
3475: x_msg_count := NULL;
3476: x_msg_data := NULL;
3549:
3550: IF (C_ACTION_REC.protest_flag <> 'Y')
3551: THEN
3552: IF PG_DEBUG in ('Y', 'C') THEN
3553: arp_util.debug( '>>>>>>>>>> The action ' || l_action || ' is not allowed on the BR ' || p_customer_trx_id);
3554: END IF;
3555: FND_MESSAGE.set_name ( 'AR', 'AR_BR_CANNOT_PROTEST' );
3556: FND_MESSAGE.set_token ( 'BRNUM' , l_trx_rec.trx_number);
3557: app_exception.raise_exception;
3617:
3618: IF FND_API.To_Boolean( p_commit )
3619: THEN
3620: IF PG_DEBUG in ('Y', 'C') THEN
3621: arp_util.debug( 'committing');
3622: END IF;
3623: Commit;
3624: END IF;
3625:
3623: Commit;
3624: END IF;
3625:
3626: IF PG_DEBUG in ('Y', 'C') THEN
3627: arp_util.debug('AR_BILLS_MAINTAIN_PUB.Protest_BR()- ');
3628: END IF;
3629:
3630:
3631: EXCEPTION
3630:
3631: EXCEPTION
3632: WHEN FND_API.G_EXC_ERROR THEN
3633: IF PG_DEBUG in ('Y', 'C') THEN
3634: arp_util.debug( 'SQLCODE : ' || SQLCODE);
3635: arp_util.debug( 'SQLERRM : ' || SQLERRM);
3636: END IF;
3637: ROLLBACK TO Protest_BR_PVT;
3638: x_return_status := FND_API.G_RET_STS_ERROR ;
3631: EXCEPTION
3632: WHEN FND_API.G_EXC_ERROR THEN
3633: IF PG_DEBUG in ('Y', 'C') THEN
3634: arp_util.debug( 'SQLCODE : ' || SQLCODE);
3635: arp_util.debug( 'SQLERRM : ' || SQLERRM);
3636: END IF;
3637: ROLLBACK TO Protest_BR_PVT;
3638: x_return_status := FND_API.G_RET_STS_ERROR ;
3639: IF PG_DEBUG in ('Y', 'C') THEN
3636: END IF;
3637: ROLLBACK TO Protest_BR_PVT;
3638: x_return_status := FND_API.G_RET_STS_ERROR ;
3639: IF PG_DEBUG in ('Y', 'C') THEN
3640: arp_util.debug( 'Exception Error');
3641: END IF;
3642: RAISE;
3643:
3644: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3642: RAISE;
3643:
3644: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3645: IF PG_DEBUG in ('Y', 'C') THEN
3646: arp_util.debug( 'SQLCODE : ' || SQLCODE);
3647: arp_util.debug( 'SQLERRM : ' || SQLERRM);
3648: END IF;
3649: ROLLBACK TO Protest_BR_PVT;
3650: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3643:
3644: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3645: IF PG_DEBUG in ('Y', 'C') THEN
3646: arp_util.debug( 'SQLCODE : ' || SQLCODE);
3647: arp_util.debug( 'SQLERRM : ' || SQLERRM);
3648: END IF;
3649: ROLLBACK TO Protest_BR_PVT;
3650: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3651: IF PG_DEBUG in ('Y', 'C') THEN
3648: END IF;
3649: ROLLBACK TO Protest_BR_PVT;
3650: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3651: IF PG_DEBUG in ('Y', 'C') THEN
3652: arp_util.debug( 'Exception Unexpected Error');
3653: END IF;
3654: RAISE;
3655:
3656:
3661: | been put on the error stack. |
3662: +-------------------------------------------------------*/
3663:
3664: IF PG_DEBUG in ('Y', 'C') THEN
3665: arp_util.debug( 'SQLCODE : ' || SQLCODE);
3666: arp_util.debug( 'SQLERRM : ' || SQLERRM);
3667: END IF;
3668:
3669: IF (SQLCODE = -20001)
3662: +-------------------------------------------------------*/
3663:
3664: IF PG_DEBUG in ('Y', 'C') THEN
3665: arp_util.debug( 'SQLCODE : ' || SQLCODE);
3666: arp_util.debug( 'SQLERRM : ' || SQLERRM);
3667: END IF;
3668:
3669: IF (SQLCODE = -20001)
3670: THEN
3731:
3732: BEGIN
3733:
3734: IF PG_DEBUG in ('Y', 'C') THEN
3735: arp_util.debug('AR_BILLS_MAINTAIN_PUB.Restate_BR()+ ');
3736: END IF;
3737:
3738: x_msg_count := NULL;
3739: x_msg_data := NULL;
3811:
3812: IF (C_ACTION_REC.restate_flag <> 'Y')
3813: THEN
3814: IF PG_DEBUG in ('Y', 'C') THEN
3815: arp_util.debug( '>>>>>>>>>> The action ' || l_action || ' is not allowed on the BR ' || p_customer_trx_id);
3816: END IF;
3817: FND_MESSAGE.set_name ( 'AR', 'AR_BR_CANNOT_RESTATE' );
3818: FND_MESSAGE.set_token ( 'BRNUM' , l_trx_rec.trx_number);
3819: app_exception.raise_exception;
3893:
3894: IF FND_API.To_Boolean( p_commit )
3895: THEN
3896: IF PG_DEBUG in ('Y', 'C') THEN
3897: arp_util.debug( 'committing');
3898: END IF;
3899: Commit;
3900: END IF;
3901:
3899: Commit;
3900: END IF;
3901:
3902: IF PG_DEBUG in ('Y', 'C') THEN
3903: arp_util.debug('AR_BILLS_MAINTAIN_PUB.Restate_BR()- ');
3904: END IF;
3905:
3906:
3907: EXCEPTION
3906:
3907: EXCEPTION
3908: WHEN FND_API.G_EXC_ERROR THEN
3909: IF PG_DEBUG in ('Y', 'C') THEN
3910: arp_util.debug( 'SQLCODE : ' || SQLCODE);
3911: arp_util.debug( 'SQLERRM : ' || SQLERRM);
3912: END IF;
3913: ROLLBACK TO Restate_BR_PVT;
3914: x_return_status := FND_API.G_RET_STS_ERROR ;
3907: EXCEPTION
3908: WHEN FND_API.G_EXC_ERROR THEN
3909: IF PG_DEBUG in ('Y', 'C') THEN
3910: arp_util.debug( 'SQLCODE : ' || SQLCODE);
3911: arp_util.debug( 'SQLERRM : ' || SQLERRM);
3912: END IF;
3913: ROLLBACK TO Restate_BR_PVT;
3914: x_return_status := FND_API.G_RET_STS_ERROR ;
3915: IF PG_DEBUG in ('Y', 'C') THEN
3912: END IF;
3913: ROLLBACK TO Restate_BR_PVT;
3914: x_return_status := FND_API.G_RET_STS_ERROR ;
3915: IF PG_DEBUG in ('Y', 'C') THEN
3916: arp_util.debug( 'Exception Error');
3917: END IF;
3918: RAISE;
3919:
3920: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3918: RAISE;
3919:
3920: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3921: IF PG_DEBUG in ('Y', 'C') THEN
3922: arp_util.debug( 'SQLCODE : ' || SQLCODE);
3923: arp_util.debug( 'SQLERRM : ' || SQLERRM);
3924: END IF;
3925: ROLLBACK TO Restate_BR_PVT;
3926: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3919:
3920: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3921: IF PG_DEBUG in ('Y', 'C') THEN
3922: arp_util.debug( 'SQLCODE : ' || SQLCODE);
3923: arp_util.debug( 'SQLERRM : ' || SQLERRM);
3924: END IF;
3925: ROLLBACK TO Restate_BR_PVT;
3926: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3927: IF PG_DEBUG in ('Y', 'C') THEN
3924: END IF;
3925: ROLLBACK TO Restate_BR_PVT;
3926: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3927: IF PG_DEBUG in ('Y', 'C') THEN
3928: arp_util.debug( 'Exception Unexpected Error');
3929: END IF;
3930: RAISE;
3931:
3932:
3937: | been put on the error stack. |
3938: +-------------------------------------------------------*/
3939:
3940: IF PG_DEBUG in ('Y', 'C') THEN
3941: arp_util.debug( 'SQLCODE : ' || SQLCODE);
3942: arp_util.debug( 'SQLERRM : ' || SQLERRM);
3943: END IF;
3944:
3945: IF (SQLCODE = -20001)
3938: +-------------------------------------------------------*/
3939:
3940: IF PG_DEBUG in ('Y', 'C') THEN
3941: arp_util.debug( 'SQLCODE : ' || SQLCODE);
3942: arp_util.debug( 'SQLERRM : ' || SQLERRM);
3943: END IF;
3944:
3945: IF (SQLCODE = -20001)
3946: THEN
4010:
4011: BEGIN
4012:
4013: IF PG_DEBUG in ('Y', 'C') THEN
4014: arp_util.debug('AR_BILLS_MAINTAIN_PUB.Recall_BR()+ ');
4015: END IF;
4016:
4017: x_msg_count := NULL;
4018: x_msg_data := NULL;
4090:
4091: IF (C_ACTION_REC.recall_flag <> 'Y')
4092: THEN
4093: IF PG_DEBUG in ('Y', 'C') THEN
4094: arp_util.debug( '>>>>>>>>>> The action ' || l_action || ' is not allowed on the BR ' || p_customer_trx_id);
4095: END IF;
4096: FND_MESSAGE.set_name ( 'AR', 'AR_BR_CANNOT_RECALL' );
4097: FND_MESSAGE.set_token ( 'BRNUM' , l_trx_rec.trx_number);
4098: app_exception.raise_exception;
4217:
4218: IF FND_API.To_Boolean( p_commit )
4219: THEN
4220: IF PG_DEBUG in ('Y', 'C') THEN
4221: arp_util.debug( 'committing');
4222: END IF;
4223: Commit;
4224: END IF;
4225:
4223: Commit;
4224: END IF;
4225:
4226: IF PG_DEBUG in ('Y', 'C') THEN
4227: arp_util.debug('AR_BILLS_MAINTAIN_PUB.Recall_BR()- ');
4228: END IF;
4229:
4230:
4231: EXCEPTION
4230:
4231: EXCEPTION
4232: WHEN FND_API.G_EXC_ERROR THEN
4233: IF PG_DEBUG in ('Y', 'C') THEN
4234: arp_util.debug( 'SQLCODE : ' || SQLCODE);
4235: arp_util.debug( 'SQLERRM : ' || SQLERRM);
4236: END IF;
4237: ROLLBACK TO Recall_BR_PVT;
4238: x_return_status := FND_API.G_RET_STS_ERROR ;
4231: EXCEPTION
4232: WHEN FND_API.G_EXC_ERROR THEN
4233: IF PG_DEBUG in ('Y', 'C') THEN
4234: arp_util.debug( 'SQLCODE : ' || SQLCODE);
4235: arp_util.debug( 'SQLERRM : ' || SQLERRM);
4236: END IF;
4237: ROLLBACK TO Recall_BR_PVT;
4238: x_return_status := FND_API.G_RET_STS_ERROR ;
4239: IF PG_DEBUG in ('Y', 'C') THEN
4236: END IF;
4237: ROLLBACK TO Recall_BR_PVT;
4238: x_return_status := FND_API.G_RET_STS_ERROR ;
4239: IF PG_DEBUG in ('Y', 'C') THEN
4240: arp_util.debug( 'Exception Error');
4241: END IF;
4242: RAISE;
4243:
4244: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4242: RAISE;
4243:
4244: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4245: IF PG_DEBUG in ('Y', 'C') THEN
4246: arp_util.debug( 'SQLCODE : ' || SQLCODE);
4247: arp_util.debug( 'SQLERRM : ' || SQLERRM);
4248: END IF;
4249: ROLLBACK TO Recall_BR_PVT;
4250: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4243:
4244: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4245: IF PG_DEBUG in ('Y', 'C') THEN
4246: arp_util.debug( 'SQLCODE : ' || SQLCODE);
4247: arp_util.debug( 'SQLERRM : ' || SQLERRM);
4248: END IF;
4249: ROLLBACK TO Recall_BR_PVT;
4250: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4251: IF PG_DEBUG in ('Y', 'C') THEN
4248: END IF;
4249: ROLLBACK TO Recall_BR_PVT;
4250: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4251: IF PG_DEBUG in ('Y', 'C') THEN
4252: arp_util.debug( 'Exception Unexpected Error');
4253: END IF;
4254: RAISE;
4255:
4256:
4261: | been put on the error stack. |
4262: +-------------------------------------------------------*/
4263:
4264: IF PG_DEBUG in ('Y', 'C') THEN
4265: arp_util.debug( 'SQLCODE : ' || SQLCODE);
4266: arp_util.debug( 'SQLERRM : ' || SQLERRM);
4267: END IF;
4268:
4269: IF (SQLCODE = -20001)
4262: +-------------------------------------------------------*/
4263:
4264: IF PG_DEBUG in ('Y', 'C') THEN
4265: arp_util.debug( 'SQLCODE : ' || SQLCODE);
4266: arp_util.debug( 'SQLERRM : ' || SQLERRM);
4267: END IF;
4268:
4269: IF (SQLCODE = -20001)
4270: THEN
4337:
4338: BEGIN
4339:
4340: IF PG_DEBUG in ('Y', 'C') THEN
4341: arp_util.debug('AR_BILLS_MAINTAIN_PUB.Eliminate_Risk_BR ()+ ');
4342: END IF;
4343:
4344: x_msg_count := NULL;
4345: x_msg_data := NULL;
4417:
4418: IF (C_ACTION_REC.eliminate_flag <> 'Y')
4419: THEN
4420: IF PG_DEBUG in ('Y', 'C') THEN
4421: arp_util.debug( '>>>>>>>>>> The action ' || l_action || ' is not allowed on the BR ' || l_trx_rec.trx_number);
4422: END IF;
4423: FND_MESSAGE.set_name ( 'AR', 'AR_BR_CANNOT_ELIMINATE' );
4424: FND_MESSAGE.set_token ( 'BRNUM' , l_trx_rec.trx_number);
4425: app_exception.raise_exception;
4553:
4554: IF FND_API.To_Boolean( p_commit )
4555: THEN
4556: IF PG_DEBUG in ('Y', 'C') THEN
4557: arp_util.debug( 'committing');
4558: END IF;
4559: Commit;
4560: END IF;
4561:
4559: Commit;
4560: END IF;
4561:
4562: IF PG_DEBUG in ('Y', 'C') THEN
4563: arp_util.debug('AR_BILLS_MAINTAIN_PUB.Eliminate_Risk_BR ()- ');
4564: END IF;
4565:
4566:
4567: EXCEPTION
4566:
4567: EXCEPTION
4568: WHEN FND_API.G_EXC_ERROR THEN
4569: IF PG_DEBUG in ('Y', 'C') THEN
4570: arp_util.debug( 'SQLCODE : ' || SQLCODE);
4571: arp_util.debug( 'SQLERRM : ' || SQLERRM);
4572: END IF;
4573: ROLLBACK TO Eliminate_Risk_BR_PVT;
4574: x_return_status := FND_API.G_RET_STS_ERROR ;
4567: EXCEPTION
4568: WHEN FND_API.G_EXC_ERROR THEN
4569: IF PG_DEBUG in ('Y', 'C') THEN
4570: arp_util.debug( 'SQLCODE : ' || SQLCODE);
4571: arp_util.debug( 'SQLERRM : ' || SQLERRM);
4572: END IF;
4573: ROLLBACK TO Eliminate_Risk_BR_PVT;
4574: x_return_status := FND_API.G_RET_STS_ERROR ;
4575: IF PG_DEBUG in ('Y', 'C') THEN
4572: END IF;
4573: ROLLBACK TO Eliminate_Risk_BR_PVT;
4574: x_return_status := FND_API.G_RET_STS_ERROR ;
4575: IF PG_DEBUG in ('Y', 'C') THEN
4576: arp_util.debug( 'Exception Error');
4577: END IF;
4578: RAISE;
4579:
4580: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4578: RAISE;
4579:
4580: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4581: IF PG_DEBUG in ('Y', 'C') THEN
4582: arp_util.debug( 'SQLCODE : ' || SQLCODE);
4583: arp_util.debug( 'SQLERRM : ' || SQLERRM);
4584: END IF;
4585: ROLLBACK TO Eliminate_Risk_BR_PVT;
4586: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4579:
4580: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4581: IF PG_DEBUG in ('Y', 'C') THEN
4582: arp_util.debug( 'SQLCODE : ' || SQLCODE);
4583: arp_util.debug( 'SQLERRM : ' || SQLERRM);
4584: END IF;
4585: ROLLBACK TO Eliminate_Risk_BR_PVT;
4586: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4587: IF PG_DEBUG in ('Y', 'C') THEN
4584: END IF;
4585: ROLLBACK TO Eliminate_Risk_BR_PVT;
4586: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4587: IF PG_DEBUG in ('Y', 'C') THEN
4588: arp_util.debug( 'Exception Unexpected Error');
4589: END IF;
4590: RAISE;
4591:
4592:
4597: | been put on the error stack. |
4598: +-------------------------------------------------------*/
4599:
4600: IF PG_DEBUG in ('Y', 'C') THEN
4601: arp_util.debug( 'SQLCODE : ' || SQLCODE);
4602: arp_util.debug( 'SQLERRM : ' || SQLERRM);
4603: END IF;
4604:
4605: IF (SQLCODE = -20001)
4598: +-------------------------------------------------------*/
4599:
4600: IF PG_DEBUG in ('Y', 'C') THEN
4601: arp_util.debug( 'SQLCODE : ' || SQLCODE);
4602: arp_util.debug( 'SQLERRM : ' || SQLERRM);
4603: END IF;
4604:
4605: IF (SQLCODE = -20001)
4606: THEN
4677:
4678: BEGIN
4679:
4680: IF PG_DEBUG in ('Y', 'C') THEN
4681: arp_util.debug('AR_BILLS_MAINTAIN_PUB.UnEliminate_Risk_BR ()+ ');
4682: END IF;
4683:
4684: x_msg_count := NULL;
4685: x_msg_data := NULL;
4757:
4758: IF (C_ACTION_REC.uneliminate_flag <> 'Y')
4759: THEN
4760: IF PG_DEBUG in ('Y', 'C') THEN
4761: arp_util.debug( '>>>>>>>>>> The action ' || l_action || ' is not allowed on the BR ' || l_trx_rec.trx_number);
4762: END IF;
4763: FND_MESSAGE.set_name ( 'AR', 'AR_BR_CANNOT_UNELIMINATE' );
4764: FND_MESSAGE.set_token ( 'BRNUM' , l_trx_rec.trx_number);
4765: app_exception.raise_exception;
4921: IF FND_API.To_Boolean( p_commit )
4922: THEN
4923:
4924: IF PG_DEBUG in ('Y', 'C') THEN
4925: arp_util.debug( 'committing');
4926: END IF;
4927: Commit;
4928: END IF;
4929:
4927: Commit;
4928: END IF;
4929:
4930: IF PG_DEBUG in ('Y', 'C') THEN
4931: arp_util.debug('AR_BILLS_MAINTAIN_PUB.UnEliminate_Risk_BR ()- ');
4932: END IF;
4933:
4934:
4935: EXCEPTION
4934:
4935: EXCEPTION
4936: WHEN FND_API.G_EXC_ERROR THEN
4937: IF PG_DEBUG in ('Y', 'C') THEN
4938: arp_util.debug( 'SQLCODE : ' || SQLCODE);
4939: arp_util.debug( 'SQLERRM : ' || SQLERRM);
4940: END IF;
4941: ROLLBACK TO UnEliminate_Risk_BR_PVT;
4942: x_return_status := FND_API.G_RET_STS_ERROR ;
4935: EXCEPTION
4936: WHEN FND_API.G_EXC_ERROR THEN
4937: IF PG_DEBUG in ('Y', 'C') THEN
4938: arp_util.debug( 'SQLCODE : ' || SQLCODE);
4939: arp_util.debug( 'SQLERRM : ' || SQLERRM);
4940: END IF;
4941: ROLLBACK TO UnEliminate_Risk_BR_PVT;
4942: x_return_status := FND_API.G_RET_STS_ERROR ;
4943: IF PG_DEBUG in ('Y', 'C') THEN
4940: END IF;
4941: ROLLBACK TO UnEliminate_Risk_BR_PVT;
4942: x_return_status := FND_API.G_RET_STS_ERROR ;
4943: IF PG_DEBUG in ('Y', 'C') THEN
4944: arp_util.debug( 'Exception Error');
4945: END IF;
4946: RAISE;
4947:
4948: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4946: RAISE;
4947:
4948: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4949: IF PG_DEBUG in ('Y', 'C') THEN
4950: arp_util.debug( 'SQLCODE : ' || SQLCODE);
4951: arp_util.debug( 'SQLERRM : ' || SQLERRM);
4952: END IF;
4953: ROLLBACK TO UnEliminate_Risk_BR_PVT;
4954: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4947:
4948: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4949: IF PG_DEBUG in ('Y', 'C') THEN
4950: arp_util.debug( 'SQLCODE : ' || SQLCODE);
4951: arp_util.debug( 'SQLERRM : ' || SQLERRM);
4952: END IF;
4953: ROLLBACK TO UnEliminate_Risk_BR_PVT;
4954: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4955: IF PG_DEBUG in ('Y', 'C') THEN
4952: END IF;
4953: ROLLBACK TO UnEliminate_Risk_BR_PVT;
4954: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4955: IF PG_DEBUG in ('Y', 'C') THEN
4956: arp_util.debug( 'Exception Unexpected Error');
4957: END IF;
4958: RAISE;
4959:
4960:
4965: | been put on the error stack. |
4966: +-------------------------------------------------------*/
4967:
4968: IF PG_DEBUG in ('Y', 'C') THEN
4969: arp_util.debug( 'SQLCODE : ' || SQLCODE);
4970: arp_util.debug( 'SQLERRM : ' || SQLERRM);
4971: END IF;
4972:
4973: IF (SQLCODE = -20001)
4966: +-------------------------------------------------------*/
4967:
4968: IF PG_DEBUG in ('Y', 'C') THEN
4969: arp_util.debug( 'SQLCODE : ' || SQLCODE);
4970: arp_util.debug( 'SQLERRM : ' || SQLERRM);
4971: END IF;
4972:
4973: IF (SQLCODE = -20001)
4974: THEN
5040:
5041: BEGIN
5042:
5043: IF PG_DEBUG in ('Y', 'C') THEN
5044: arp_util.debug('AR_BILLS_MAINTAIN_PUB.Exchange_BR()+ ');
5045: END IF;
5046:
5047: x_msg_count := NULL;
5048: x_msg_data := NULL;
5121:
5122: IF (C_ACTION_REC.exchange_flag <> 'Y')
5123: THEN
5124: IF PG_DEBUG in ('Y', 'C') THEN
5125: arp_util.debug( '>>>>>>>>>> The action ' || l_action || ' is not allowed on the BR ' || p_customer_trx_id);
5126: END IF;
5127: FND_MESSAGE.set_name ( 'AR', 'AR_BR_CANNOT_EXCHANGE' );
5128: FND_MESSAGE.set_token ( 'BRNUM' , l_trx_rec.trx_number);
5129: app_exception.raise_exception;
5205:
5206: IF (l_return_status <> 'S')
5207: THEN
5208: IF PG_DEBUG in ('Y', 'C') THEN
5209: arp_util.debug( '>>>>>>>>>> Problems during the creation of the new BR');
5210: arp_util.debug( 'l_msg_count : ' || l_msg_count);
5211: arp_util.debug( 'l_msg_data : ' || l_msg_data);
5212: END IF;
5213: RAISE API_exception;
5206: IF (l_return_status <> 'S')
5207: THEN
5208: IF PG_DEBUG in ('Y', 'C') THEN
5209: arp_util.debug( '>>>>>>>>>> Problems during the creation of the new BR');
5210: arp_util.debug( 'l_msg_count : ' || l_msg_count);
5211: arp_util.debug( 'l_msg_data : ' || l_msg_data);
5212: END IF;
5213: RAISE API_exception;
5214: END IF;
5207: THEN
5208: IF PG_DEBUG in ('Y', 'C') THEN
5209: arp_util.debug( '>>>>>>>>>> Problems during the creation of the new BR');
5210: arp_util.debug( 'l_msg_count : ' || l_msg_count);
5211: arp_util.debug( 'l_msg_data : ' || l_msg_data);
5212: END IF;
5213: RAISE API_exception;
5214: END IF;
5215:
5251:
5252: IF (l_return_status <> 'S')
5253: THEN
5254: IF PG_DEBUG in ('Y', 'C') THEN
5255: arp_util.debug( '>>>>>>>>>> Problems during the assignment of the exchanged BR to the new BR');
5256: arp_util.debug( 'l_msg_count : ' || l_msg_count);
5257: arp_util.debug( 'l_msg_data : ' || l_msg_data);
5258: END IF;
5259: RAISE API_exception;
5252: IF (l_return_status <> 'S')
5253: THEN
5254: IF PG_DEBUG in ('Y', 'C') THEN
5255: arp_util.debug( '>>>>>>>>>> Problems during the assignment of the exchanged BR to the new BR');
5256: arp_util.debug( 'l_msg_count : ' || l_msg_count);
5257: arp_util.debug( 'l_msg_data : ' || l_msg_data);
5258: END IF;
5259: RAISE API_exception;
5260: END IF;
5253: THEN
5254: IF PG_DEBUG in ('Y', 'C') THEN
5255: arp_util.debug( '>>>>>>>>>> Problems during the assignment of the exchanged BR to the new BR');
5256: arp_util.debug( 'l_msg_count : ' || l_msg_count);
5257: arp_util.debug( 'l_msg_data : ' || l_msg_data);
5258: END IF;
5259: RAISE API_exception;
5260: END IF;
5261:
5280:
5281: IF FND_API.To_Boolean( p_commit )
5282: THEN
5283: IF PG_DEBUG in ('Y', 'C') THEN
5284: arp_util.debug( 'committing');
5285: END IF;
5286: Commit;
5287: END IF;
5288:
5286: Commit;
5287: END IF;
5288:
5289: IF PG_DEBUG in ('Y', 'C') THEN
5290: arp_util.debug('AR_BILLS_MAINTAIN_PUB.Exchange_BR()- ');
5291: END IF;
5292:
5293:
5294: EXCEPTION
5295: WHEN API_exception THEN
5296: ROLLBACK TO Exchange_BR_PVT;
5297: x_return_status := FND_API.G_RET_STS_ERROR ;
5298: IF PG_DEBUG in ('Y', 'C') THEN
5299: arp_util.debug ('API Exception : AR_BILLS_MAINTAIN_PUB.Exchange_BR : ' || SQLERRM);
5300: END IF;
5301: RAISE;
5302:
5303: WHEN FND_API.G_EXC_ERROR THEN
5301: RAISE;
5302:
5303: WHEN FND_API.G_EXC_ERROR THEN
5304: IF PG_DEBUG in ('Y', 'C') THEN
5305: arp_util.debug( 'SQLCODE : ' || SQLCODE);
5306: arp_util.debug( 'SQLERRM : ' || SQLERRM);
5307: END IF;
5308: ROLLBACK TO Exchange_BR_PVT;
5309: x_return_status := FND_API.G_RET_STS_ERROR ;
5302:
5303: WHEN FND_API.G_EXC_ERROR THEN
5304: IF PG_DEBUG in ('Y', 'C') THEN
5305: arp_util.debug( 'SQLCODE : ' || SQLCODE);
5306: arp_util.debug( 'SQLERRM : ' || SQLERRM);
5307: END IF;
5308: ROLLBACK TO Exchange_BR_PVT;
5309: x_return_status := FND_API.G_RET_STS_ERROR ;
5310: IF PG_DEBUG in ('Y', 'C') THEN
5307: END IF;
5308: ROLLBACK TO Exchange_BR_PVT;
5309: x_return_status := FND_API.G_RET_STS_ERROR ;
5310: IF PG_DEBUG in ('Y', 'C') THEN
5311: arp_util.debug( 'Exception Error');
5312: END IF;
5313: RAISE;
5314:
5315:
5314:
5315:
5316: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5317: IF PG_DEBUG in ('Y', 'C') THEN
5318: arp_util.debug( 'SQLCODE : ' || SQLCODE);
5319: arp_util.debug( 'SQLERRM : ' || SQLERRM);
5320: END IF;
5321: ROLLBACK TO Exchange_BR_PVT;
5322: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5315:
5316: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5317: IF PG_DEBUG in ('Y', 'C') THEN
5318: arp_util.debug( 'SQLCODE : ' || SQLCODE);
5319: arp_util.debug( 'SQLERRM : ' || SQLERRM);
5320: END IF;
5321: ROLLBACK TO Exchange_BR_PVT;
5322: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5323: IF PG_DEBUG in ('Y', 'C') THEN
5320: END IF;
5321: ROLLBACK TO Exchange_BR_PVT;
5322: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5323: IF PG_DEBUG in ('Y', 'C') THEN
5324: arp_util.debug( 'Exception Unexpected Error');
5325: END IF;
5326: RAISE;
5327:
5328:
5333: | been put on the error stack. |
5334: +-------------------------------------------------------*/
5335:
5336: IF PG_DEBUG in ('Y', 'C') THEN
5337: arp_util.debug( 'SQLCODE : ' || SQLCODE);
5338: arp_util.debug( 'SQLERRM : ' || SQLERRM);
5339: END IF;
5340:
5341: IF (SQLCODE = -20001)
5334: +-------------------------------------------------------*/
5335:
5336: IF PG_DEBUG in ('Y', 'C') THEN
5337: arp_util.debug( 'SQLCODE : ' || SQLCODE);
5338: arp_util.debug( 'SQLERRM : ' || SQLERRM);
5339: END IF;
5340:
5341: IF (SQLCODE = -20001)
5342: THEN