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;
283: p_instr_id => l_instr_id),
284: l_drawee_site_use_id);
285:
286: IF PG_DEBUG in ('Y', 'C') THEN
287: arp_util.debug('Site_Use_ID to be passed: '|| l_drawee_site_use_id);
288: END IF;
289:
290: Exception
291: When others then
366:
367: IF (C_ACTION_REC.complete_flag <> 'Y')
368: THEN
369: IF PG_DEBUG in ('Y', 'C') THEN
370: arp_util.debug( '>>>>>>>>>> The action ' || l_action || ' is not allowed on the BR ' || p_customer_trx_id);
371: END IF;
372: FND_MESSAGE.set_name( 'AR' , 'AR_BR_CANNOT_COMPLETE' );
373: FND_MESSAGE.set_token( 'BRNUM' , l_trx_rec.trx_number);
374: app_exception.raise_exception;
473:
474: IF FND_API.To_Boolean( p_commit )
475: THEN
476: IF PG_DEBUG in ('Y', 'C') THEN
477: arp_util.debug( 'committing');
478: END IF;
479: Commit;
480: END IF;
481:
479: Commit;
480: END IF;
481:
482: IF PG_DEBUG in ('Y', 'C') THEN
483: arp_util.debug('AR_BILLS_MAINTAIN_PUB.Complete_BR()- ');
484: END IF;
485:
486:
487: EXCEPTION
486:
487: EXCEPTION
488: WHEN FND_API.G_EXC_ERROR THEN
489: IF PG_DEBUG in ('Y', 'C') THEN
490: arp_util.debug( 'SQLCODE : ' || SQLCODE);
491: arp_util.debug( 'SQLERRM : ' || SQLERRM);
492: END IF;
493: ROLLBACK TO Complete_BR_PVT;
494: x_return_status := FND_API.G_RET_STS_ERROR ;
487: EXCEPTION
488: WHEN FND_API.G_EXC_ERROR THEN
489: IF PG_DEBUG in ('Y', 'C') THEN
490: arp_util.debug( 'SQLCODE : ' || SQLCODE);
491: arp_util.debug( 'SQLERRM : ' || SQLERRM);
492: END IF;
493: ROLLBACK TO Complete_BR_PVT;
494: x_return_status := FND_API.G_RET_STS_ERROR ;
495: IF PG_DEBUG in ('Y', 'C') THEN
492: END IF;
493: ROLLBACK TO Complete_BR_PVT;
494: x_return_status := FND_API.G_RET_STS_ERROR ;
495: IF PG_DEBUG in ('Y', 'C') THEN
496: arp_util.debug( 'Exception Error');
497: END IF;
498: raise;
499:
500:
499:
500:
501: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
502: IF PG_DEBUG in ('Y', 'C') THEN
503: arp_util.debug( 'SQLCODE : ' || SQLCODE);
504: arp_util.debug( 'SQLERRM : ' || SQLERRM);
505: END IF;
506: ROLLBACK TO Complete_BR_PVT;
507: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
500:
501: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
502: IF PG_DEBUG in ('Y', 'C') THEN
503: arp_util.debug( 'SQLCODE : ' || SQLCODE);
504: arp_util.debug( 'SQLERRM : ' || SQLERRM);
505: END IF;
506: ROLLBACK TO Complete_BR_PVT;
507: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
508: IF PG_DEBUG in ('Y', 'C') THEN
505: END IF;
506: ROLLBACK TO Complete_BR_PVT;
507: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
508: IF PG_DEBUG in ('Y', 'C') THEN
509: arp_util.debug( 'Exception Unexpected Error');
510: END IF;
511: RAISE;
512:
513:
518: | been put on the error stack. |
519: +-------------------------------------------------------*/
520:
521: IF PG_DEBUG in ('Y', 'C') THEN
522: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
523: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
524: END IF;
525:
526: IF (SQLCODE = -20001)
519: +-------------------------------------------------------*/
520:
521: IF PG_DEBUG in ('Y', 'C') THEN
522: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
523: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
524: END IF;
525:
526: IF (SQLCODE = -20001)
527: THEN
525:
526: IF (SQLCODE = -20001)
527: THEN
528: IF PG_DEBUG in ('Y', 'C') THEN
529: arp_util.debug( 'Exception Others -20001');
530: END IF;
531: ROLLBACK TO Complete_BR_PVT;
532: x_return_status := FND_API.G_RET_STS_ERROR ;
533: RAISE;
533: RAISE;
534:
535: ELSE
536: IF PG_DEBUG in ('Y', 'C') THEN
537: arp_util.debug( 'Exception Others');
538: END IF;
539: NULL;
540: END IF;
541:
590:
591: BEGIN
592:
593: IF PG_DEBUG in ('Y', 'C') THEN
594: arp_util.debug('AR_BILLS_MAINTAIN_PUB.UnComplete_BR()+ ');
595: END IF;
596: x_msg_count := NULL;
597: x_msg_data := NULL;
598: /*-----------------------------------------------+
670:
671: IF (C_ACTION_REC.uncomplete_flag <> 'Y')
672: THEN
673: IF PG_DEBUG in ('Y', 'C') THEN
674: arp_util.debug( '>>>>>>>>>> The action ' || l_action || ' is not allowed on the BR ' || p_customer_trx_id);
675: END IF;
676: FND_MESSAGE.set_name ( 'AR', 'AR_BR_CANNOT_INCOMPLETE' );
677: FND_MESSAGE.set_token ( 'BRNUM' , l_trx_rec.trx_number);
678: app_exception.raise_exception;
772:
773: IF FND_API.To_Boolean( p_commit )
774: THEN
775: IF PG_DEBUG in ('Y', 'C') THEN
776: arp_util.debug( 'committing');
777: END IF;
778: Commit;
779: END IF;
780:
778: Commit;
779: END IF;
780:
781: IF PG_DEBUG in ('Y', 'C') THEN
782: arp_util.debug('AR_BILLS_MAINTAIN_PUB.UnComplete_BR()- ');
783: END IF;
784:
785:
786: EXCEPTION
785:
786: EXCEPTION
787: WHEN FND_API.G_EXC_ERROR THEN
788: IF PG_DEBUG in ('Y', 'C') THEN
789: arp_util.debug( 'SQLCODE : ' || SQLCODE);
790: arp_util.debug( 'SQLERRM : ' || SQLERRM);
791: END IF;
792: ROLLBACK TO UnComplete_BR_PVT;
793: x_return_status := FND_API.G_RET_STS_ERROR ;
786: EXCEPTION
787: WHEN FND_API.G_EXC_ERROR THEN
788: IF PG_DEBUG in ('Y', 'C') THEN
789: arp_util.debug( 'SQLCODE : ' || SQLCODE);
790: arp_util.debug( 'SQLERRM : ' || SQLERRM);
791: END IF;
792: ROLLBACK TO UnComplete_BR_PVT;
793: x_return_status := FND_API.G_RET_STS_ERROR ;
794: IF PG_DEBUG in ('Y', 'C') THEN
791: END IF;
792: ROLLBACK TO UnComplete_BR_PVT;
793: x_return_status := FND_API.G_RET_STS_ERROR ;
794: IF PG_DEBUG in ('Y', 'C') THEN
795: arp_util.debug( 'Exception Error');
796: END IF;
797: raise;
798:
799:
798:
799:
800: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
801: IF PG_DEBUG in ('Y', 'C') THEN
802: arp_util.debug( 'SQLCODE : ' || SQLCODE);
803: arp_util.debug( 'SQLERRM : ' || SQLERRM);
804: END IF;
805: ROLLBACK TO UnComplete_BR_PVT;
806: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
799:
800: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
801: IF PG_DEBUG in ('Y', 'C') THEN
802: arp_util.debug( 'SQLCODE : ' || SQLCODE);
803: arp_util.debug( 'SQLERRM : ' || SQLERRM);
804: END IF;
805: ROLLBACK TO UnComplete_BR_PVT;
806: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
807: IF PG_DEBUG in ('Y', 'C') THEN
804: END IF;
805: ROLLBACK TO UnComplete_BR_PVT;
806: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
807: IF PG_DEBUG in ('Y', 'C') THEN
808: arp_util.debug( 'Exception Unexpected Error');
809: END IF;
810: raise;
811:
812:
817: | been put on the error stack. |
818: +-------------------------------------------------------*/
819:
820: IF PG_DEBUG in ('Y', 'C') THEN
821: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
822: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
823: END IF;
824:
825: IF (SQLCODE = -20001)
818: +-------------------------------------------------------*/
819:
820: IF PG_DEBUG in ('Y', 'C') THEN
821: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
822: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
823: END IF;
824:
825: IF (SQLCODE = -20001)
826: THEN
824:
825: IF (SQLCODE = -20001)
826: THEN
827: IF PG_DEBUG in ('Y', 'C') THEN
828: arp_util.debug( 'Exception Others -20001');
829: END IF;
830: ROLLBACK TO UnComplete_BR_PVT;
831: x_return_status := FND_API.G_RET_STS_ERROR ;
832: RAISE;
831: x_return_status := FND_API.G_RET_STS_ERROR ;
832: RAISE;
833: ELSE
834: IF PG_DEBUG in ('Y', 'C') THEN
835: arp_util.debug( 'Exception Others');
836: END IF;
837: NULL;
838: END IF;
839:
893:
894: BEGIN
895:
896: IF PG_DEBUG in ('Y', 'C') THEN
897: arp_util.debug( 'AR_BILLS_MAINTAIN_PUB.Accept()+ ');
898: END IF;
899:
900: x_msg_count := NULL;
901: x_msg_data := NULL;
974:
975: IF (C_ACTION_REC.accept_flag <> 'Y')
976: THEN
977: IF PG_DEBUG in ('Y', 'C') THEN
978: arp_util.debug( '>>>>>>>>>> The action ' || l_action || ' is not allowed on the BR ' || p_customer_trx_id);
979: END IF;
980: FND_MESSAGE.set_name ( 'AR', 'AR_BR_CANNOT_ACCEPT' );
981: FND_MESSAGE.set_token ( 'BRNUM' , l_trx_rec.trx_number);
982: app_exception.raise_exception;
1062:
1063: IF FND_API.To_Boolean( p_commit )
1064: THEN
1065: IF PG_DEBUG in ('Y', 'C') THEN
1066: arp_util.debug( 'committing');
1067: END IF;
1068: Commit;
1069: END IF;
1070:
1068: Commit;
1069: END IF;
1070:
1071: IF PG_DEBUG in ('Y', 'C') THEN
1072: arp_util.debug( 'AR_BILLS_MAINTAIN_PUB.Accept()- ');
1073: END IF;
1074:
1075:
1076: EXCEPTION
1075:
1076: EXCEPTION
1077: WHEN FND_API.G_EXC_ERROR THEN
1078: IF PG_DEBUG in ('Y', 'C') THEN
1079: arp_util.debug( 'SQLCODE : ' || SQLCODE);
1080: arp_util.debug( 'SQLERRM : ' || SQLERRM);
1081: END IF;
1082: ROLLBACK TO Accept_BR_PVT;
1083: x_return_status := FND_API.G_RET_STS_ERROR ;
1076: EXCEPTION
1077: WHEN FND_API.G_EXC_ERROR THEN
1078: IF PG_DEBUG in ('Y', 'C') THEN
1079: arp_util.debug( 'SQLCODE : ' || SQLCODE);
1080: arp_util.debug( 'SQLERRM : ' || SQLERRM);
1081: END IF;
1082: ROLLBACK TO Accept_BR_PVT;
1083: x_return_status := FND_API.G_RET_STS_ERROR ;
1084: IF PG_DEBUG in ('Y', 'C') THEN
1081: END IF;
1082: ROLLBACK TO Accept_BR_PVT;
1083: x_return_status := FND_API.G_RET_STS_ERROR ;
1084: IF PG_DEBUG in ('Y', 'C') THEN
1085: arp_util.debug( 'Exception Error');
1086: END IF;
1087: RAISE;
1088:
1089:
1088:
1089:
1090: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1091: IF PG_DEBUG in ('Y', 'C') THEN
1092: arp_util.debug( 'SQLCODE : ' || SQLCODE);
1093: arp_util.debug( 'SQLERRM : ' || SQLERRM);
1094: END IF;
1095: ROLLBACK TO Accept_BR_PVT;
1096: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1089:
1090: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1091: IF PG_DEBUG in ('Y', 'C') THEN
1092: arp_util.debug( 'SQLCODE : ' || SQLCODE);
1093: arp_util.debug( 'SQLERRM : ' || SQLERRM);
1094: END IF;
1095: ROLLBACK TO Accept_BR_PVT;
1096: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1097: IF PG_DEBUG in ('Y', 'C') THEN
1094: END IF;
1095: ROLLBACK TO Accept_BR_PVT;
1096: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1097: IF PG_DEBUG in ('Y', 'C') THEN
1098: arp_util.debug( 'Exception Unexpected Error');
1099: END IF;
1100: RAISE;
1101:
1102:
1107: | been put on the error stack. |
1108: +-------------------------------------------------------*/
1109:
1110: IF PG_DEBUG in ('Y', 'C') THEN
1111: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
1112: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
1113: END IF;
1114:
1115: IF (SQLCODE = -20001)
1108: +-------------------------------------------------------*/
1109:
1110: IF PG_DEBUG in ('Y', 'C') THEN
1111: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
1112: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
1113: END IF;
1114:
1115: IF (SQLCODE = -20001)
1116: THEN
1170:
1171: BEGIN
1172:
1173: IF PG_DEBUG in ('Y', 'C') THEN
1174: arp_util.debug('AR_BILLS_MAINTAIN_PUB.Hold_BR()+ ');
1175: END IF;
1176:
1177: x_msg_count := NULL;
1178: x_msg_data := NULL;
1251:
1252: IF (C_ACTION_REC.hold_flag <> 'Y')
1253: THEN
1254: IF PG_DEBUG in ('Y', 'C') THEN
1255: arp_util.debug( '>>>>>>>>>> The action ' || l_action || ' is not allowed on the BR ' || p_customer_trx_id);
1256: END IF;
1257: FND_MESSAGE.set_name ( 'AR', 'AR_BR_CANNOT_HOLD' );
1258: FND_MESSAGE.set_token ( 'BRNUM' , l_trx_rec.trx_number);
1259: app_exception.raise_exception;
1336:
1337: IF FND_API.To_Boolean( p_commit )
1338: THEN
1339: IF PG_DEBUG in ('Y', 'C') THEN
1340: arp_util.debug( 'committing');
1341: END IF;
1342: Commit;
1343: END IF;
1344:
1342: Commit;
1343: END IF;
1344:
1345: IF PG_DEBUG in ('Y', 'C') THEN
1346: arp_util.debug( 'AR_BILLS_MAINTAIN_PUB.Hold()- ');
1347: END IF;
1348:
1349:
1350: EXCEPTION
1349:
1350: EXCEPTION
1351: WHEN FND_API.G_EXC_ERROR THEN
1352: IF PG_DEBUG in ('Y', 'C') THEN
1353: arp_util.debug( 'SQLCODE : ' || SQLCODE);
1354: arp_util.debug( 'SQLERRM : ' || SQLERRM);
1355: END IF;
1356: ROLLBACK TO Hold_BR_PVT;
1357: x_return_status := FND_API.G_RET_STS_ERROR ;
1350: EXCEPTION
1351: WHEN FND_API.G_EXC_ERROR THEN
1352: IF PG_DEBUG in ('Y', 'C') THEN
1353: arp_util.debug( 'SQLCODE : ' || SQLCODE);
1354: arp_util.debug( 'SQLERRM : ' || SQLERRM);
1355: END IF;
1356: ROLLBACK TO Hold_BR_PVT;
1357: x_return_status := FND_API.G_RET_STS_ERROR ;
1358: IF PG_DEBUG in ('Y', 'C') THEN
1355: END IF;
1356: ROLLBACK TO Hold_BR_PVT;
1357: x_return_status := FND_API.G_RET_STS_ERROR ;
1358: IF PG_DEBUG in ('Y', 'C') THEN
1359: arp_util.debug( 'Exception Error');
1360: END IF;
1361: RAISE;
1362:
1363: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1361: RAISE;
1362:
1363: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1364: IF PG_DEBUG in ('Y', 'C') THEN
1365: arp_util.debug( 'SQLCODE : ' || SQLCODE);
1366: arp_util.debug( 'SQLERRM : ' || SQLERRM);
1367: END IF;
1368: ROLLBACK TO Hold_BR_PVT;
1369: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1362:
1363: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1364: IF PG_DEBUG in ('Y', 'C') THEN
1365: arp_util.debug( 'SQLCODE : ' || SQLCODE);
1366: arp_util.debug( 'SQLERRM : ' || SQLERRM);
1367: END IF;
1368: ROLLBACK TO Hold_BR_PVT;
1369: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1370: IF PG_DEBUG in ('Y', 'C') THEN
1367: END IF;
1368: ROLLBACK TO Hold_BR_PVT;
1369: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1370: IF PG_DEBUG in ('Y', 'C') THEN
1371: arp_util.debug( 'Exception Unexpected Error');
1372: END IF;
1373: RAISE;
1374:
1375: WHEN OTHERS THEN
1379: | been put on the error stack. |
1380: +-------------------------------------------------------*/
1381:
1382: IF PG_DEBUG in ('Y', 'C') THEN
1383: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
1384: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
1385: END IF;
1386:
1387: IF (SQLCODE = -20001)
1380: +-------------------------------------------------------*/
1381:
1382: IF PG_DEBUG in ('Y', 'C') THEN
1383: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
1384: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
1385: END IF;
1386:
1387: IF (SQLCODE = -20001)
1388: THEN
1441:
1442: BEGIN
1443:
1444: IF PG_DEBUG in ('Y', 'C') THEN
1445: arp_util.debug('AR_BILLS_MAINTAIN_PUB.UnHold_BR()+ ');
1446: END IF;
1447:
1448: x_msg_count := NULL;
1449: x_msg_data := NULL;
1522:
1523: IF (C_ACTION_REC.unhold_flag <> 'Y')
1524: THEN
1525: IF PG_DEBUG in ('Y', 'C') THEN
1526: arp_util.debug( '>>>>>>>>>> The action ' || l_action || ' is not allowed on the BR ' || p_customer_trx_id);
1527: END IF;
1528: FND_MESSAGE.set_name ( 'AR', 'AR_BR_CANNOT_UNHOLD' );
1529: FND_MESSAGE.set_token ( 'BRNUM' , l_trx_rec.trx_number);
1530: app_exception.raise_exception;
1602:
1603: IF FND_API.To_Boolean( p_commit )
1604: THEN
1605: IF PG_DEBUG in ('Y', 'C') THEN
1606: arp_util.debug( 'committing');
1607: END IF;
1608: Commit;
1609: END IF;
1610:
1608: Commit;
1609: END IF;
1610:
1611: IF PG_DEBUG in ('Y', 'C') THEN
1612: arp_util.debug( 'AR_BILLS_MAINTAIN_PUB.UnHold()- ');
1613: END IF;
1614:
1615:
1616: EXCEPTION
1615:
1616: EXCEPTION
1617: WHEN FND_API.G_EXC_ERROR THEN
1618: IF PG_DEBUG in ('Y', 'C') THEN
1619: arp_util.debug( 'SQLCODE : ' || SQLCODE);
1620: arp_util.debug( 'SQLERRM : ' || SQLERRM);
1621: END IF;
1622: ROLLBACK TO UnHold_BR_PVT;
1623: x_return_status := FND_API.G_RET_STS_ERROR ;
1616: EXCEPTION
1617: WHEN FND_API.G_EXC_ERROR THEN
1618: IF PG_DEBUG in ('Y', 'C') THEN
1619: arp_util.debug( 'SQLCODE : ' || SQLCODE);
1620: arp_util.debug( 'SQLERRM : ' || SQLERRM);
1621: END IF;
1622: ROLLBACK TO UnHold_BR_PVT;
1623: x_return_status := FND_API.G_RET_STS_ERROR ;
1624: IF PG_DEBUG in ('Y', 'C') THEN
1621: END IF;
1622: ROLLBACK TO UnHold_BR_PVT;
1623: x_return_status := FND_API.G_RET_STS_ERROR ;
1624: IF PG_DEBUG in ('Y', 'C') THEN
1625: arp_util.debug( 'Exception Error');
1626: END IF;
1627: RAISE;
1628:
1629: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1627: RAISE;
1628:
1629: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1630: IF PG_DEBUG in ('Y', 'C') THEN
1631: arp_util.debug( 'SQLCODE : ' || SQLCODE);
1632: arp_util.debug( 'SQLERRM : ' || SQLERRM);
1633: END IF;
1634: ROLLBACK TO UnHold_BR_PVT;
1635: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1628:
1629: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1630: IF PG_DEBUG in ('Y', 'C') THEN
1631: arp_util.debug( 'SQLCODE : ' || SQLCODE);
1632: arp_util.debug( 'SQLERRM : ' || SQLERRM);
1633: END IF;
1634: ROLLBACK TO UnHold_BR_PVT;
1635: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1636: IF PG_DEBUG in ('Y', 'C') THEN
1633: END IF;
1634: ROLLBACK TO UnHold_BR_PVT;
1635: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1636: IF PG_DEBUG in ('Y', 'C') THEN
1637: arp_util.debug( 'Exception Unexpected Error');
1638: END IF;
1639: RAISE;
1640:
1641: WHEN OTHERS THEN
1645: | been put on the error stack. |
1646: +-------------------------------------------------------*/
1647:
1648: IF PG_DEBUG in ('Y', 'C') THEN
1649: arp_util.debug( 'SQLCODE : ' || SQLCODE);
1650: arp_util.debug( 'SQLERRM : ' || SQLERRM);
1651: END IF;
1652:
1653: IF (SQLCODE = -20001)
1646: +-------------------------------------------------------*/
1647:
1648: IF PG_DEBUG in ('Y', 'C') THEN
1649: arp_util.debug( 'SQLCODE : ' || SQLCODE);
1650: arp_util.debug( 'SQLERRM : ' || SQLERRM);
1651: END IF;
1652:
1653: IF (SQLCODE = -20001)
1654: THEN
1697:
1698: BEGIN
1699:
1700: IF PG_DEBUG in ('Y', 'C') THEN
1701: arp_util.debug('AR_BILLS_MAINTAIN_PUB.Select_BR_Remit ()+');
1702: END IF;
1703:
1704: /*-----------------------------------------------+
1705: | Standard start of API savepoint |
1763:
1764: IF (C_ACTION_REC.select_remit_flag <> 'Y')
1765: THEN
1766: IF PG_DEBUG in ('Y', 'C') THEN
1767: arp_util.debug( '>>>>>>>>>> The action ' || l_action || ' is not allowed on the BR ' || l_ps_rec.customer_trx_id);
1768: END IF;
1769: FND_MESSAGE.set_name ( 'AR', 'AR_BR_CANNOT_SELECT_REMIT' );
1770: FND_MESSAGE.set_token ( 'BRNUM' , l_trx_rec.trx_number);
1771: app_exception.raise_exception;
1824:
1825: p_status := l_trh_rec.status;
1826:
1827: IF PG_DEBUG in ('Y', 'C') THEN
1828: arp_util.debug('AR_BILLS_MAINTAIN_PUB.Select_BR_Remit ()-');
1829: END IF;
1830:
1831: EXCEPTION
1832: WHEN OTHERS THEN
1830:
1831: EXCEPTION
1832: WHEN OTHERS THEN
1833: IF PG_DEBUG in ('Y', 'C') THEN
1834: arp_util.debug('EXCEPTION OTHERS: AR_BILLS_MAINTAIN_PUB.Select_BR_Remit');
1835: arp_util.debug( SQLCODE);
1836: arp_util.debug( SQLERRM);
1837: END IF;
1838: ROLLBACK TO Select_BR_Remit_PVT;
1831: EXCEPTION
1832: WHEN OTHERS THEN
1833: IF PG_DEBUG in ('Y', 'C') THEN
1834: arp_util.debug('EXCEPTION OTHERS: AR_BILLS_MAINTAIN_PUB.Select_BR_Remit');
1835: arp_util.debug( SQLCODE);
1836: arp_util.debug( SQLERRM);
1837: END IF;
1838: ROLLBACK TO Select_BR_Remit_PVT;
1839: RAISE;
1832: WHEN OTHERS THEN
1833: IF PG_DEBUG in ('Y', 'C') THEN
1834: arp_util.debug('EXCEPTION OTHERS: AR_BILLS_MAINTAIN_PUB.Select_BR_Remit');
1835: arp_util.debug( SQLCODE);
1836: arp_util.debug( SQLERRM);
1837: END IF;
1838: ROLLBACK TO Select_BR_Remit_PVT;
1839: RAISE;
1840:
1867:
1868: BEGIN
1869:
1870: IF PG_DEBUG in ('Y', 'C') THEN
1871: arp_util.debug('AR_BILLS_MAINTAIN_PUB.DeSelect_BR_Remit ()+');
1872: END IF;
1873:
1874: /*-----------------------------------------------+
1875: | Standard start of API savepoint |
1928:
1929: IF (C_ACTION_REC.deselect_remit_flag <> 'Y')
1930: THEN
1931: IF PG_DEBUG in ('Y', 'C') THEN
1932: arp_util.debug( '>>>>>>>>>> The action ' || l_action || ' is not allowed on the BR ' || l_ps_rec.customer_trx_id);
1933: END IF;
1934: FND_MESSAGE.set_name ( 'AR', 'AR_BR_CANNOT_DESELECT_REMIT' );
1935: FND_MESSAGE.set_token ( 'BRNUM' , l_trx_rec.trx_number);
1936: app_exception.raise_exception;
1984:
1985: p_status := l_trh_rec.status;
1986:
1987: IF PG_DEBUG in ('Y', 'C') THEN
1988: arp_util.debug('AR_BILLS_MAINTAIN_PUB.DeSelect_BR_Remit ()-');
1989: END IF;
1990:
1991: EXCEPTION
1992: WHEN OTHERS THEN
1990:
1991: EXCEPTION
1992: WHEN OTHERS THEN
1993: IF PG_DEBUG in ('Y', 'C') THEN
1994: arp_util.debug('EXCEPTION OTHERS: AR_BILLS_MAINTAIN_PUB.DeSelect_BR_Remit');
1995: arp_util.debug( SQLCODE);
1996: arp_util.debug( SQLERRM);
1997: END IF;
1998: ROLLBACK TO DeSelect_BR_Remit_PVT;
1991: EXCEPTION
1992: WHEN OTHERS THEN
1993: IF PG_DEBUG in ('Y', 'C') THEN
1994: arp_util.debug('EXCEPTION OTHERS: AR_BILLS_MAINTAIN_PUB.DeSelect_BR_Remit');
1995: arp_util.debug( SQLCODE);
1996: arp_util.debug( SQLERRM);
1997: END IF;
1998: ROLLBACK TO DeSelect_BR_Remit_PVT;
1999: RAISE;
1992: WHEN OTHERS THEN
1993: IF PG_DEBUG in ('Y', 'C') THEN
1994: arp_util.debug('EXCEPTION OTHERS: AR_BILLS_MAINTAIN_PUB.DeSelect_BR_Remit');
1995: arp_util.debug( SQLCODE);
1996: arp_util.debug( SQLERRM);
1997: END IF;
1998: ROLLBACK TO DeSelect_BR_Remit_PVT;
1999: RAISE;
2000:
2027:
2028: BEGIN
2029:
2030: IF PG_DEBUG in ('Y', 'C') THEN
2031: arp_util.debug('AR_BILLS_MAINTAIN_PUB.Cancel_BR_Remit ()+');
2032: END IF;
2033:
2034: /*-----------------------------------------------+
2035: | Standard start of API savepoint |
2088:
2089: IF (C_ACTION_REC.deselect_remit_flag <> 'Y')
2090: THEN
2091: IF PG_DEBUG in ('Y', 'C') THEN
2092: arp_util.debug('Cancel_BR_Remit: ' || '>>>>>>>>>> The action ' || l_action || ' is not allowed on the BR ' || l_ps_rec.customer_trx_id);
2093: END IF;
2094: FND_MESSAGE.set_name ( 'AR', 'AR_BR_CANNOT_DESELECT_REMIT' );
2095: FND_MESSAGE.set_token ( 'BRNUM' , l_trx_rec.trx_number);
2096: app_exception.raise_exception;
2138: ARP_PROC_TRANSACTION_HISTORY.update_transaction_history (l_trh_rec, l_trh_id);
2139:
2140:
2141: IF PG_DEBUG in ('Y', 'C') THEN
2142: arp_util.debug('Cancel_BR_Remit: ' || 'AR_BILLS_MAINTAIN_PUB.DeSelect_BR_Remit ()-');
2143: END IF;
2144:
2145: EXCEPTION
2146: WHEN OTHERS THEN
2144:
2145: EXCEPTION
2146: WHEN OTHERS THEN
2147: IF PG_DEBUG in ('Y', 'C') THEN
2148: arp_util.debug('EXCEPTION OTHERS: AR_BILLS_MAINTAIN_PUB.Cancel_BR_Remit');
2149: arp_util.debug('Cancel_BR_Remit: ' || SQLCODE);
2150: arp_util.debug('Cancel_BR_Remit: ' || SQLERRM);
2151: END IF;
2152: ROLLBACK TO Cancel_BR_Remit_PVT;
2145: EXCEPTION
2146: WHEN OTHERS THEN
2147: IF PG_DEBUG in ('Y', 'C') THEN
2148: arp_util.debug('EXCEPTION OTHERS: AR_BILLS_MAINTAIN_PUB.Cancel_BR_Remit');
2149: arp_util.debug('Cancel_BR_Remit: ' || SQLCODE);
2150: arp_util.debug('Cancel_BR_Remit: ' || SQLERRM);
2151: END IF;
2152: ROLLBACK TO Cancel_BR_Remit_PVT;
2153: RAISE;
2146: WHEN OTHERS THEN
2147: IF PG_DEBUG in ('Y', 'C') THEN
2148: arp_util.debug('EXCEPTION OTHERS: AR_BILLS_MAINTAIN_PUB.Cancel_BR_Remit');
2149: arp_util.debug('Cancel_BR_Remit: ' || SQLCODE);
2150: arp_util.debug('Cancel_BR_Remit: ' || SQLERRM);
2151: END IF;
2152: ROLLBACK TO Cancel_BR_Remit_PVT;
2153: RAISE;
2154:
2187:
2188: BEGIN
2189:
2190: IF PG_DEBUG in ('Y', 'C') THEN
2191: arp_util.debug('AR_BILLS_MAINTAIN_PUB.Approve_BR_Remit ()+ ');
2192: END IF;
2193:
2194:
2195: /*-----------------------------------------------+
2242:
2243: IF (C_ACTION_REC.approve_remit_flag <> 'Y')
2244: THEN
2245: IF PG_DEBUG in ('Y', 'C') THEN
2246: arp_util.debug( '>>>>>>>>>> The action ' || l_action || ' is not allowed on the BR ' || l_ps_rec.customer_trx_id);
2247: END IF;
2248: FND_MESSAGE.set_name ( 'AR', 'AR_BR_CANNOT_APPROVE' );
2249: FND_MESSAGE.set_token ( 'BRNUM' , l_trx_rec.trx_number);
2250: app_exception.raise_exception;
2332: | Remittance Method Unknown |
2333: +-----------------------------------------------*/
2334:
2335: IF PG_DEBUG in ('Y', 'C') THEN
2336: arp_util.debug( '>>>>>>>>>> The remittance method : ' || l_batch_rec.remit_method_code || 'Recourse Flag : ' || l_batch_rec.with_recourse_flag || ' is not handled');
2337: END IF;
2338: FND_MESSAGE.set_name ( 'AR', 'AR_BR_INVALID_REMIT_METHOD');
2339: app_exception.raise_exception;
2340:
2404: p_status := l_trh_rec.status ;
2405:
2406:
2407: IF PG_DEBUG in ('Y', 'C') THEN
2408: arp_util.debug('AR_BILLS_MAINTAIN_PUB.Approve_BR_Remit ()- ');
2409: END IF;
2410:
2411: EXCEPTION
2412: WHEN OTHERS THEN
2410:
2411: EXCEPTION
2412: WHEN OTHERS THEN
2413: IF PG_DEBUG in ('Y', 'C') THEN
2414: arp_util.debug('EXCEPTION OTHERS: AR_BILLS_MAINTAIN_PUB.Approve_BR_Remit');
2415: arp_util.debug( SQLCODE);
2416: arp_util.debug( SQLERRM);
2417: END IF;
2418: ROLLBACK TO Approve_BR_Remit_PVT;
2411: EXCEPTION
2412: WHEN OTHERS THEN
2413: IF PG_DEBUG in ('Y', 'C') THEN
2414: arp_util.debug('EXCEPTION OTHERS: AR_BILLS_MAINTAIN_PUB.Approve_BR_Remit');
2415: arp_util.debug( SQLCODE);
2416: arp_util.debug( SQLERRM);
2417: END IF;
2418: ROLLBACK TO Approve_BR_Remit_PVT;
2419: RAISE;
2412: WHEN OTHERS THEN
2413: IF PG_DEBUG in ('Y', 'C') THEN
2414: arp_util.debug('EXCEPTION OTHERS: AR_BILLS_MAINTAIN_PUB.Approve_BR_Remit');
2415: arp_util.debug( SQLCODE);
2416: arp_util.debug( SQLERRM);
2417: END IF;
2418: ROLLBACK TO Approve_BR_Remit_PVT;
2419: RAISE;
2420:
2478:
2479: BEGIN
2480:
2481: IF PG_DEBUG in ('Y', 'C') THEN
2482: arp_util.debug('AR_BILLS_MAINTAIN_PUB.Cancel_BR()+ ');
2483: END IF;
2484:
2485: x_msg_count := NULL;
2486: x_msg_data := NULL;
2558:
2559: IF (C_ACTION_REC.cancel_flag <> 'Y')
2560: THEN
2561: IF PG_DEBUG in ('Y', 'C') THEN
2562: arp_util.debug( '>>>>>>>>>> The action ' || l_action || ' is not allowed on the BR ' || p_customer_trx_id);
2563: END IF;
2564: FND_MESSAGE.set_name ( 'AR', 'AR_BR_CANNOT_CANCEL' );
2565: FND_MESSAGE.set_token ( 'BRNUM' , l_trx_rec.trx_number);
2566: app_exception.raise_exception;
2688:
2689: IF FND_API.To_Boolean( p_commit )
2690: THEN
2691: IF PG_DEBUG in ('Y', 'C') THEN
2692: arp_util.debug( 'committing');
2693: END IF;
2694: Commit;
2695: END IF;
2696:
2694: Commit;
2695: END IF;
2696:
2697: IF PG_DEBUG in ('Y', 'C') THEN
2698: arp_util.debug('AR_BILLS_MAINTAIN_PUB.Cancel_BR()- ');
2699: END IF;
2700:
2701:
2702: EXCEPTION
2701:
2702: EXCEPTION
2703: WHEN FND_API.G_EXC_ERROR THEN
2704: IF PG_DEBUG in ('Y', 'C') THEN
2705: arp_util.debug( 'SQLCODE : ' || SQLCODE);
2706: arp_util.debug( 'SQLERRM : ' || SQLERRM);
2707: END IF;
2708: ROLLBACK TO Cancel_BR_PVT;
2709: x_return_status := FND_API.G_RET_STS_ERROR ;
2702: EXCEPTION
2703: WHEN FND_API.G_EXC_ERROR THEN
2704: IF PG_DEBUG in ('Y', 'C') THEN
2705: arp_util.debug( 'SQLCODE : ' || SQLCODE);
2706: arp_util.debug( 'SQLERRM : ' || SQLERRM);
2707: END IF;
2708: ROLLBACK TO Cancel_BR_PVT;
2709: x_return_status := FND_API.G_RET_STS_ERROR ;
2710: IF PG_DEBUG in ('Y', 'C') THEN
2707: END IF;
2708: ROLLBACK TO Cancel_BR_PVT;
2709: x_return_status := FND_API.G_RET_STS_ERROR ;
2710: IF PG_DEBUG in ('Y', 'C') THEN
2711: arp_util.debug( 'Exception Error');
2712: END IF;
2713: RAISE;
2714:
2715:
2714:
2715:
2716: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2717: IF PG_DEBUG in ('Y', 'C') THEN
2718: arp_util.debug( 'SQLCODE : ' || SQLCODE);
2719: arp_util.debug( 'SQLERRM : ' || SQLERRM);
2720: END IF;
2721: ROLLBACK TO Cancel_BR_PVT;
2722: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2715:
2716: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2717: IF PG_DEBUG in ('Y', 'C') THEN
2718: arp_util.debug( 'SQLCODE : ' || SQLCODE);
2719: arp_util.debug( 'SQLERRM : ' || SQLERRM);
2720: END IF;
2721: ROLLBACK TO Cancel_BR_PVT;
2722: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2723: IF PG_DEBUG in ('Y', 'C') THEN
2720: END IF;
2721: ROLLBACK TO Cancel_BR_PVT;
2722: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2723: IF PG_DEBUG in ('Y', 'C') THEN
2724: arp_util.debug( 'Exception Unexpected Error');
2725: END IF;
2726: RAISE;
2727:
2728:
2733: | been put on the error stack. |
2734: +-------------------------------------------------------*/
2735:
2736: IF PG_DEBUG in ('Y', 'C') THEN
2737: arp_util.debug( 'SQLCODE : ' || SQLCODE);
2738: arp_util.debug( 'SQLERRM : ' || SQLERRM);
2739: END IF;
2740:
2741: IF (SQLCODE = -20001)
2734: +-------------------------------------------------------*/
2735:
2736: IF PG_DEBUG in ('Y', 'C') THEN
2737: arp_util.debug( 'SQLCODE : ' || SQLCODE);
2738: arp_util.debug( 'SQLERRM : ' || SQLERRM);
2739: END IF;
2740:
2741: IF (SQLCODE = -20001)
2742: THEN
2804:
2805: BEGIN
2806:
2807: IF PG_DEBUG in ('Y', 'C') THEN
2808: arp_util.debug('AR_BILLS_MAINTAIN_PUB.Unpaid_BR()+ ');
2809: END IF;
2810:
2811: x_msg_count := NULL;
2812: x_msg_data := NULL;
2885:
2886: IF (C_ACTION_REC.unpaid_flag <> 'Y')
2887: THEN
2888: IF PG_DEBUG in ('Y', 'C') THEN
2889: arp_util.debug( '>>>>>>>>>> The action ' || l_action || ' is not allowed on the BR ' || p_customer_trx_id);
2890: END IF;
2891: FND_MESSAGE.set_name ( 'AR', 'AR_BR_CANNOT_UNPAID' );
2892: FND_MESSAGE.set_token ( 'BRNUM' , l_trx_rec.trx_number);
2893: app_exception.raise_exception;
2989:
2990: IF FND_API.To_Boolean( p_commit )
2991: THEN
2992: IF PG_DEBUG in ('Y', 'C') THEN
2993: arp_util.debug( 'committing');
2994: END IF;
2995: Commit;
2996: END IF;
2997:
2995: Commit;
2996: END IF;
2997:
2998: IF PG_DEBUG in ('Y', 'C') THEN
2999: arp_util.debug('AR_BILLS_MAINTAIN_PUB.Unpaid_BR()- ');
3000: END IF;
3001:
3002:
3003: EXCEPTION
3002:
3003: EXCEPTION
3004: WHEN FND_API.G_EXC_ERROR THEN
3005: IF PG_DEBUG in ('Y', 'C') THEN
3006: arp_util.debug( 'SQLCODE : ' || SQLCODE);
3007: arp_util.debug( 'SQLERRM : ' || SQLERRM);
3008: END IF;
3009: ROLLBACK TO Unpaid_BR_PVT;
3010: x_return_status := FND_API.G_RET_STS_ERROR ;
3003: EXCEPTION
3004: WHEN FND_API.G_EXC_ERROR THEN
3005: IF PG_DEBUG in ('Y', 'C') THEN
3006: arp_util.debug( 'SQLCODE : ' || SQLCODE);
3007: arp_util.debug( 'SQLERRM : ' || SQLERRM);
3008: END IF;
3009: ROLLBACK TO Unpaid_BR_PVT;
3010: x_return_status := FND_API.G_RET_STS_ERROR ;
3011: IF PG_DEBUG in ('Y', 'C') THEN
3008: END IF;
3009: ROLLBACK TO Unpaid_BR_PVT;
3010: x_return_status := FND_API.G_RET_STS_ERROR ;
3011: IF PG_DEBUG in ('Y', 'C') THEN
3012: arp_util.debug( 'Exception Error');
3013: END IF;
3014: RAISE;
3015:
3016:
3015:
3016:
3017: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3018: IF PG_DEBUG in ('Y', 'C') THEN
3019: arp_util.debug( 'SQLCODE : ' || SQLCODE);
3020: arp_util.debug( 'SQLERRM : ' || SQLERRM);
3021: END IF;
3022: ROLLBACK TO Unpaid_BR_PVT;
3023: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3016:
3017: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3018: IF PG_DEBUG in ('Y', 'C') THEN
3019: arp_util.debug( 'SQLCODE : ' || SQLCODE);
3020: arp_util.debug( 'SQLERRM : ' || SQLERRM);
3021: END IF;
3022: ROLLBACK TO Unpaid_BR_PVT;
3023: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3024: IF PG_DEBUG in ('Y', 'C') THEN
3021: END IF;
3022: ROLLBACK TO Unpaid_BR_PVT;
3023: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3024: IF PG_DEBUG in ('Y', 'C') THEN
3025: arp_util.debug( 'Exception Unexpected Error');
3026: END IF;
3027: RAISE;
3028:
3029:
3034: | been put on the error stack. |
3035: +-------------------------------------------------------*/
3036:
3037: IF PG_DEBUG in ('Y', 'C') THEN
3038: arp_util.debug( 'SQLCODE : ' || SQLCODE);
3039: arp_util.debug( 'SQLERRM : ' || SQLERRM);
3040: END IF;
3041:
3042: IF (SQLCODE = -20001)
3035: +-------------------------------------------------------*/
3036:
3037: IF PG_DEBUG in ('Y', 'C') THEN
3038: arp_util.debug( 'SQLCODE : ' || SQLCODE);
3039: arp_util.debug( 'SQLERRM : ' || SQLERRM);
3040: END IF;
3041:
3042: IF (SQLCODE = -20001)
3043: THEN
3108:
3109: BEGIN
3110:
3111: IF PG_DEBUG in ('Y', 'C') THEN
3112: arp_util.debug('AR_BILLS_MAINTAIN_PUB.Endorse_BR()+ ');
3113: END IF;
3114:
3115: x_msg_count := NULL;
3116: x_msg_data := NULL;
3188:
3189: IF (C_ACTION_REC.endorse_flag <> 'Y')
3190: THEN
3191: IF PG_DEBUG in ('Y', 'C') THEN
3192: arp_util.debug( '>>>>>>>>>> The action ' || l_action || ' is not allowed on the BR ' || p_customer_trx_id);
3193: END IF;
3194: FND_MESSAGE.set_name ( 'AR', 'AR_BR_CANNOT_ENDORSE' );
3195: FND_MESSAGE.set_token ( 'BRNUM' , l_trx_rec.trx_number);
3196: app_exception.raise_exception;
3368:
3369: IF FND_API.To_Boolean( p_commit )
3370: THEN
3371: IF PG_DEBUG in ('Y', 'C') THEN
3372: arp_util.debug( 'committing');
3373: END IF;
3374: Commit;
3375: END IF;
3376:
3374: Commit;
3375: END IF;
3376:
3377: IF PG_DEBUG in ('Y', 'C') THEN
3378: arp_util.debug('AR_BILLS_MAINTAIN_PUB.Endorse_BR()- ');
3379: END IF;
3380:
3381:
3382: EXCEPTION
3381:
3382: EXCEPTION
3383: WHEN FND_API.G_EXC_ERROR THEN
3384: IF PG_DEBUG in ('Y', 'C') THEN
3385: arp_util.debug( 'SQLCODE : ' || SQLCODE);
3386: arp_util.debug( 'SQLERRM : ' || SQLERRM);
3387: END IF;
3388: ROLLBACK TO Endorse_BR_PVT;
3389: x_return_status := FND_API.G_RET_STS_ERROR ;
3382: EXCEPTION
3383: WHEN FND_API.G_EXC_ERROR THEN
3384: IF PG_DEBUG in ('Y', 'C') THEN
3385: arp_util.debug( 'SQLCODE : ' || SQLCODE);
3386: arp_util.debug( 'SQLERRM : ' || SQLERRM);
3387: END IF;
3388: ROLLBACK TO Endorse_BR_PVT;
3389: x_return_status := FND_API.G_RET_STS_ERROR ;
3390: IF PG_DEBUG in ('Y', 'C') THEN
3387: END IF;
3388: ROLLBACK TO Endorse_BR_PVT;
3389: x_return_status := FND_API.G_RET_STS_ERROR ;
3390: IF PG_DEBUG in ('Y', 'C') THEN
3391: arp_util.debug( 'Exception Error');
3392: END IF;
3393: RAISE;
3394:
3395: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3393: RAISE;
3394:
3395: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3396: IF PG_DEBUG in ('Y', 'C') THEN
3397: arp_util.debug( 'SQLCODE : ' || SQLCODE);
3398: arp_util.debug( 'SQLERRM : ' || SQLERRM);
3399: END IF;
3400: ROLLBACK TO Endorse_BR_PVT;
3401: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3394:
3395: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3396: IF PG_DEBUG in ('Y', 'C') THEN
3397: arp_util.debug( 'SQLCODE : ' || SQLCODE);
3398: arp_util.debug( 'SQLERRM : ' || SQLERRM);
3399: END IF;
3400: ROLLBACK TO Endorse_BR_PVT;
3401: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3402: IF PG_DEBUG in ('Y', 'C') THEN
3399: END IF;
3400: ROLLBACK TO Endorse_BR_PVT;
3401: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3402: IF PG_DEBUG in ('Y', 'C') THEN
3403: arp_util.debug( 'Exception Unexpected Error');
3404: END IF;
3405: RAISE;
3406:
3407:
3412: | been put on the error stack. |
3413: +-------------------------------------------------------*/
3414:
3415: IF PG_DEBUG in ('Y', 'C') THEN
3416: arp_util.debug( 'SQLCODE : ' || SQLCODE);
3417: arp_util.debug( 'SQLERRM : ' || SQLERRM);
3418: END IF;
3419:
3420: IF (SQLCODE = -20001)
3413: +-------------------------------------------------------*/
3414:
3415: IF PG_DEBUG in ('Y', 'C') THEN
3416: arp_util.debug( 'SQLCODE : ' || SQLCODE);
3417: arp_util.debug( 'SQLERRM : ' || SQLERRM);
3418: END IF;
3419:
3420: IF (SQLCODE = -20001)
3421: THEN
3479:
3480: BEGIN
3481:
3482: IF PG_DEBUG in ('Y', 'C') THEN
3483: arp_util.debug('AR_BILLS_MAINTAIN_PUB.Protest_BR()+ ');
3484: END IF;
3485:
3486: x_msg_count := NULL;
3487: x_msg_data := NULL;
3560:
3561: IF (C_ACTION_REC.protest_flag <> 'Y')
3562: THEN
3563: IF PG_DEBUG in ('Y', 'C') THEN
3564: arp_util.debug( '>>>>>>>>>> The action ' || l_action || ' is not allowed on the BR ' || p_customer_trx_id);
3565: END IF;
3566: FND_MESSAGE.set_name ( 'AR', 'AR_BR_CANNOT_PROTEST' );
3567: FND_MESSAGE.set_token ( 'BRNUM' , l_trx_rec.trx_number);
3568: app_exception.raise_exception;
3628:
3629: IF FND_API.To_Boolean( p_commit )
3630: THEN
3631: IF PG_DEBUG in ('Y', 'C') THEN
3632: arp_util.debug( 'committing');
3633: END IF;
3634: Commit;
3635: END IF;
3636:
3634: Commit;
3635: END IF;
3636:
3637: IF PG_DEBUG in ('Y', 'C') THEN
3638: arp_util.debug('AR_BILLS_MAINTAIN_PUB.Protest_BR()- ');
3639: END IF;
3640:
3641:
3642: EXCEPTION
3641:
3642: EXCEPTION
3643: WHEN FND_API.G_EXC_ERROR THEN
3644: IF PG_DEBUG in ('Y', 'C') THEN
3645: arp_util.debug( 'SQLCODE : ' || SQLCODE);
3646: arp_util.debug( 'SQLERRM : ' || SQLERRM);
3647: END IF;
3648: ROLLBACK TO Protest_BR_PVT;
3649: x_return_status := FND_API.G_RET_STS_ERROR ;
3642: EXCEPTION
3643: WHEN FND_API.G_EXC_ERROR THEN
3644: IF PG_DEBUG in ('Y', 'C') THEN
3645: arp_util.debug( 'SQLCODE : ' || SQLCODE);
3646: arp_util.debug( 'SQLERRM : ' || SQLERRM);
3647: END IF;
3648: ROLLBACK TO Protest_BR_PVT;
3649: x_return_status := FND_API.G_RET_STS_ERROR ;
3650: IF PG_DEBUG in ('Y', 'C') THEN
3647: END IF;
3648: ROLLBACK TO Protest_BR_PVT;
3649: x_return_status := FND_API.G_RET_STS_ERROR ;
3650: IF PG_DEBUG in ('Y', 'C') THEN
3651: arp_util.debug( 'Exception Error');
3652: END IF;
3653: RAISE;
3654:
3655: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3653: RAISE;
3654:
3655: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3656: IF PG_DEBUG in ('Y', 'C') THEN
3657: arp_util.debug( 'SQLCODE : ' || SQLCODE);
3658: arp_util.debug( 'SQLERRM : ' || SQLERRM);
3659: END IF;
3660: ROLLBACK TO Protest_BR_PVT;
3661: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3654:
3655: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3656: IF PG_DEBUG in ('Y', 'C') THEN
3657: arp_util.debug( 'SQLCODE : ' || SQLCODE);
3658: arp_util.debug( 'SQLERRM : ' || SQLERRM);
3659: END IF;
3660: ROLLBACK TO Protest_BR_PVT;
3661: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3662: IF PG_DEBUG in ('Y', 'C') THEN
3659: END IF;
3660: ROLLBACK TO Protest_BR_PVT;
3661: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3662: IF PG_DEBUG in ('Y', 'C') THEN
3663: arp_util.debug( 'Exception Unexpected Error');
3664: END IF;
3665: RAISE;
3666:
3667:
3672: | been put on the error stack. |
3673: +-------------------------------------------------------*/
3674:
3675: IF PG_DEBUG in ('Y', 'C') THEN
3676: arp_util.debug( 'SQLCODE : ' || SQLCODE);
3677: arp_util.debug( 'SQLERRM : ' || SQLERRM);
3678: END IF;
3679:
3680: IF (SQLCODE = -20001)
3673: +-------------------------------------------------------*/
3674:
3675: IF PG_DEBUG in ('Y', 'C') THEN
3676: arp_util.debug( 'SQLCODE : ' || SQLCODE);
3677: arp_util.debug( 'SQLERRM : ' || SQLERRM);
3678: END IF;
3679:
3680: IF (SQLCODE = -20001)
3681: THEN
3742:
3743: BEGIN
3744:
3745: IF PG_DEBUG in ('Y', 'C') THEN
3746: arp_util.debug('AR_BILLS_MAINTAIN_PUB.Restate_BR()+ ');
3747: END IF;
3748:
3749: x_msg_count := NULL;
3750: x_msg_data := NULL;
3822:
3823: IF (C_ACTION_REC.restate_flag <> 'Y')
3824: THEN
3825: IF PG_DEBUG in ('Y', 'C') THEN
3826: arp_util.debug( '>>>>>>>>>> The action ' || l_action || ' is not allowed on the BR ' || p_customer_trx_id);
3827: END IF;
3828: FND_MESSAGE.set_name ( 'AR', 'AR_BR_CANNOT_RESTATE' );
3829: FND_MESSAGE.set_token ( 'BRNUM' , l_trx_rec.trx_number);
3830: app_exception.raise_exception;
3904:
3905: IF FND_API.To_Boolean( p_commit )
3906: THEN
3907: IF PG_DEBUG in ('Y', 'C') THEN
3908: arp_util.debug( 'committing');
3909: END IF;
3910: Commit;
3911: END IF;
3912:
3910: Commit;
3911: END IF;
3912:
3913: IF PG_DEBUG in ('Y', 'C') THEN
3914: arp_util.debug('AR_BILLS_MAINTAIN_PUB.Restate_BR()- ');
3915: END IF;
3916:
3917:
3918: EXCEPTION
3917:
3918: EXCEPTION
3919: WHEN FND_API.G_EXC_ERROR THEN
3920: IF PG_DEBUG in ('Y', 'C') THEN
3921: arp_util.debug( 'SQLCODE : ' || SQLCODE);
3922: arp_util.debug( 'SQLERRM : ' || SQLERRM);
3923: END IF;
3924: ROLLBACK TO Restate_BR_PVT;
3925: x_return_status := FND_API.G_RET_STS_ERROR ;
3918: EXCEPTION
3919: WHEN FND_API.G_EXC_ERROR THEN
3920: IF PG_DEBUG in ('Y', 'C') THEN
3921: arp_util.debug( 'SQLCODE : ' || SQLCODE);
3922: arp_util.debug( 'SQLERRM : ' || SQLERRM);
3923: END IF;
3924: ROLLBACK TO Restate_BR_PVT;
3925: x_return_status := FND_API.G_RET_STS_ERROR ;
3926: IF PG_DEBUG in ('Y', 'C') THEN
3923: END IF;
3924: ROLLBACK TO Restate_BR_PVT;
3925: x_return_status := FND_API.G_RET_STS_ERROR ;
3926: IF PG_DEBUG in ('Y', 'C') THEN
3927: arp_util.debug( 'Exception Error');
3928: END IF;
3929: RAISE;
3930:
3931: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3929: RAISE;
3930:
3931: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3932: IF PG_DEBUG in ('Y', 'C') THEN
3933: arp_util.debug( 'SQLCODE : ' || SQLCODE);
3934: arp_util.debug( 'SQLERRM : ' || SQLERRM);
3935: END IF;
3936: ROLLBACK TO Restate_BR_PVT;
3937: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3930:
3931: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3932: IF PG_DEBUG in ('Y', 'C') THEN
3933: arp_util.debug( 'SQLCODE : ' || SQLCODE);
3934: arp_util.debug( 'SQLERRM : ' || SQLERRM);
3935: END IF;
3936: ROLLBACK TO Restate_BR_PVT;
3937: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3938: IF PG_DEBUG in ('Y', 'C') THEN
3935: END IF;
3936: ROLLBACK TO Restate_BR_PVT;
3937: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3938: IF PG_DEBUG in ('Y', 'C') THEN
3939: arp_util.debug( 'Exception Unexpected Error');
3940: END IF;
3941: RAISE;
3942:
3943:
3948: | been put on the error stack. |
3949: +-------------------------------------------------------*/
3950:
3951: IF PG_DEBUG in ('Y', 'C') THEN
3952: arp_util.debug( 'SQLCODE : ' || SQLCODE);
3953: arp_util.debug( 'SQLERRM : ' || SQLERRM);
3954: END IF;
3955:
3956: IF (SQLCODE = -20001)
3949: +-------------------------------------------------------*/
3950:
3951: IF PG_DEBUG in ('Y', 'C') THEN
3952: arp_util.debug( 'SQLCODE : ' || SQLCODE);
3953: arp_util.debug( 'SQLERRM : ' || SQLERRM);
3954: END IF;
3955:
3956: IF (SQLCODE = -20001)
3957: THEN
4021:
4022: BEGIN
4023:
4024: IF PG_DEBUG in ('Y', 'C') THEN
4025: arp_util.debug('AR_BILLS_MAINTAIN_PUB.Recall_BR()+ ');
4026: END IF;
4027:
4028: x_msg_count := NULL;
4029: x_msg_data := NULL;
4101:
4102: IF (C_ACTION_REC.recall_flag <> 'Y')
4103: THEN
4104: IF PG_DEBUG in ('Y', 'C') THEN
4105: arp_util.debug( '>>>>>>>>>> The action ' || l_action || ' is not allowed on the BR ' || p_customer_trx_id);
4106: END IF;
4107: FND_MESSAGE.set_name ( 'AR', 'AR_BR_CANNOT_RECALL' );
4108: FND_MESSAGE.set_token ( 'BRNUM' , l_trx_rec.trx_number);
4109: app_exception.raise_exception;
4228:
4229: IF FND_API.To_Boolean( p_commit )
4230: THEN
4231: IF PG_DEBUG in ('Y', 'C') THEN
4232: arp_util.debug( 'committing');
4233: END IF;
4234: Commit;
4235: END IF;
4236:
4234: Commit;
4235: END IF;
4236:
4237: IF PG_DEBUG in ('Y', 'C') THEN
4238: arp_util.debug('AR_BILLS_MAINTAIN_PUB.Recall_BR()- ');
4239: END IF;
4240:
4241:
4242: EXCEPTION
4241:
4242: EXCEPTION
4243: WHEN FND_API.G_EXC_ERROR THEN
4244: IF PG_DEBUG in ('Y', 'C') THEN
4245: arp_util.debug( 'SQLCODE : ' || SQLCODE);
4246: arp_util.debug( 'SQLERRM : ' || SQLERRM);
4247: END IF;
4248: ROLLBACK TO Recall_BR_PVT;
4249: x_return_status := FND_API.G_RET_STS_ERROR ;
4242: EXCEPTION
4243: WHEN FND_API.G_EXC_ERROR THEN
4244: IF PG_DEBUG in ('Y', 'C') THEN
4245: arp_util.debug( 'SQLCODE : ' || SQLCODE);
4246: arp_util.debug( 'SQLERRM : ' || SQLERRM);
4247: END IF;
4248: ROLLBACK TO Recall_BR_PVT;
4249: x_return_status := FND_API.G_RET_STS_ERROR ;
4250: IF PG_DEBUG in ('Y', 'C') THEN
4247: END IF;
4248: ROLLBACK TO Recall_BR_PVT;
4249: x_return_status := FND_API.G_RET_STS_ERROR ;
4250: IF PG_DEBUG in ('Y', 'C') THEN
4251: arp_util.debug( 'Exception Error');
4252: END IF;
4253: RAISE;
4254:
4255: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4253: RAISE;
4254:
4255: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4256: IF PG_DEBUG in ('Y', 'C') THEN
4257: arp_util.debug( 'SQLCODE : ' || SQLCODE);
4258: arp_util.debug( 'SQLERRM : ' || SQLERRM);
4259: END IF;
4260: ROLLBACK TO Recall_BR_PVT;
4261: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4254:
4255: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4256: IF PG_DEBUG in ('Y', 'C') THEN
4257: arp_util.debug( 'SQLCODE : ' || SQLCODE);
4258: arp_util.debug( 'SQLERRM : ' || SQLERRM);
4259: END IF;
4260: ROLLBACK TO Recall_BR_PVT;
4261: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4262: IF PG_DEBUG in ('Y', 'C') THEN
4259: END IF;
4260: ROLLBACK TO Recall_BR_PVT;
4261: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4262: IF PG_DEBUG in ('Y', 'C') THEN
4263: arp_util.debug( 'Exception Unexpected Error');
4264: END IF;
4265: RAISE;
4266:
4267:
4272: | been put on the error stack. |
4273: +-------------------------------------------------------*/
4274:
4275: IF PG_DEBUG in ('Y', 'C') THEN
4276: arp_util.debug( 'SQLCODE : ' || SQLCODE);
4277: arp_util.debug( 'SQLERRM : ' || SQLERRM);
4278: END IF;
4279:
4280: IF (SQLCODE = -20001)
4273: +-------------------------------------------------------*/
4274:
4275: IF PG_DEBUG in ('Y', 'C') THEN
4276: arp_util.debug( 'SQLCODE : ' || SQLCODE);
4277: arp_util.debug( 'SQLERRM : ' || SQLERRM);
4278: END IF;
4279:
4280: IF (SQLCODE = -20001)
4281: THEN
4348:
4349: BEGIN
4350:
4351: IF PG_DEBUG in ('Y', 'C') THEN
4352: arp_util.debug('AR_BILLS_MAINTAIN_PUB.Eliminate_Risk_BR ()+ ');
4353: END IF;
4354:
4355: x_msg_count := NULL;
4356: x_msg_data := NULL;
4428:
4429: IF (C_ACTION_REC.eliminate_flag <> 'Y')
4430: THEN
4431: IF PG_DEBUG in ('Y', 'C') THEN
4432: arp_util.debug( '>>>>>>>>>> The action ' || l_action || ' is not allowed on the BR ' || l_trx_rec.trx_number);
4433: END IF;
4434: FND_MESSAGE.set_name ( 'AR', 'AR_BR_CANNOT_ELIMINATE' );
4435: FND_MESSAGE.set_token ( 'BRNUM' , l_trx_rec.trx_number);
4436: app_exception.raise_exception;
4564:
4565: IF FND_API.To_Boolean( p_commit )
4566: THEN
4567: IF PG_DEBUG in ('Y', 'C') THEN
4568: arp_util.debug( 'committing');
4569: END IF;
4570: Commit;
4571: END IF;
4572:
4570: Commit;
4571: END IF;
4572:
4573: IF PG_DEBUG in ('Y', 'C') THEN
4574: arp_util.debug('AR_BILLS_MAINTAIN_PUB.Eliminate_Risk_BR ()- ');
4575: END IF;
4576:
4577:
4578: EXCEPTION
4577:
4578: EXCEPTION
4579: WHEN FND_API.G_EXC_ERROR THEN
4580: IF PG_DEBUG in ('Y', 'C') THEN
4581: arp_util.debug( 'SQLCODE : ' || SQLCODE);
4582: arp_util.debug( 'SQLERRM : ' || SQLERRM);
4583: END IF;
4584: ROLLBACK TO Eliminate_Risk_BR_PVT;
4585: x_return_status := FND_API.G_RET_STS_ERROR ;
4578: EXCEPTION
4579: WHEN FND_API.G_EXC_ERROR THEN
4580: IF PG_DEBUG in ('Y', 'C') THEN
4581: arp_util.debug( 'SQLCODE : ' || SQLCODE);
4582: arp_util.debug( 'SQLERRM : ' || SQLERRM);
4583: END IF;
4584: ROLLBACK TO Eliminate_Risk_BR_PVT;
4585: x_return_status := FND_API.G_RET_STS_ERROR ;
4586: IF PG_DEBUG in ('Y', 'C') THEN
4583: END IF;
4584: ROLLBACK TO Eliminate_Risk_BR_PVT;
4585: x_return_status := FND_API.G_RET_STS_ERROR ;
4586: IF PG_DEBUG in ('Y', 'C') THEN
4587: arp_util.debug( 'Exception Error');
4588: END IF;
4589: RAISE;
4590:
4591: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4589: RAISE;
4590:
4591: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4592: IF PG_DEBUG in ('Y', 'C') THEN
4593: arp_util.debug( 'SQLCODE : ' || SQLCODE);
4594: arp_util.debug( 'SQLERRM : ' || SQLERRM);
4595: END IF;
4596: ROLLBACK TO Eliminate_Risk_BR_PVT;
4597: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4590:
4591: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4592: IF PG_DEBUG in ('Y', 'C') THEN
4593: arp_util.debug( 'SQLCODE : ' || SQLCODE);
4594: arp_util.debug( 'SQLERRM : ' || SQLERRM);
4595: END IF;
4596: ROLLBACK TO Eliminate_Risk_BR_PVT;
4597: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4598: IF PG_DEBUG in ('Y', 'C') THEN
4595: END IF;
4596: ROLLBACK TO Eliminate_Risk_BR_PVT;
4597: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4598: IF PG_DEBUG in ('Y', 'C') THEN
4599: arp_util.debug( 'Exception Unexpected Error');
4600: END IF;
4601: RAISE;
4602:
4603:
4608: | been put on the error stack. |
4609: +-------------------------------------------------------*/
4610:
4611: IF PG_DEBUG in ('Y', 'C') THEN
4612: arp_util.debug( 'SQLCODE : ' || SQLCODE);
4613: arp_util.debug( 'SQLERRM : ' || SQLERRM);
4614: END IF;
4615:
4616: IF (SQLCODE = -20001)
4609: +-------------------------------------------------------*/
4610:
4611: IF PG_DEBUG in ('Y', 'C') THEN
4612: arp_util.debug( 'SQLCODE : ' || SQLCODE);
4613: arp_util.debug( 'SQLERRM : ' || SQLERRM);
4614: END IF;
4615:
4616: IF (SQLCODE = -20001)
4617: THEN
4688:
4689: BEGIN
4690:
4691: IF PG_DEBUG in ('Y', 'C') THEN
4692: arp_util.debug('AR_BILLS_MAINTAIN_PUB.UnEliminate_Risk_BR ()+ ');
4693: END IF;
4694:
4695: x_msg_count := NULL;
4696: x_msg_data := NULL;
4768:
4769: IF (C_ACTION_REC.uneliminate_flag <> 'Y')
4770: THEN
4771: IF PG_DEBUG in ('Y', 'C') THEN
4772: arp_util.debug( '>>>>>>>>>> The action ' || l_action || ' is not allowed on the BR ' || l_trx_rec.trx_number);
4773: END IF;
4774: FND_MESSAGE.set_name ( 'AR', 'AR_BR_CANNOT_UNELIMINATE' );
4775: FND_MESSAGE.set_token ( 'BRNUM' , l_trx_rec.trx_number);
4776: app_exception.raise_exception;
4932: IF FND_API.To_Boolean( p_commit )
4933: THEN
4934:
4935: IF PG_DEBUG in ('Y', 'C') THEN
4936: arp_util.debug( 'committing');
4937: END IF;
4938: Commit;
4939: END IF;
4940:
4938: Commit;
4939: END IF;
4940:
4941: IF PG_DEBUG in ('Y', 'C') THEN
4942: arp_util.debug('AR_BILLS_MAINTAIN_PUB.UnEliminate_Risk_BR ()- ');
4943: END IF;
4944:
4945:
4946: EXCEPTION
4945:
4946: EXCEPTION
4947: WHEN FND_API.G_EXC_ERROR THEN
4948: IF PG_DEBUG in ('Y', 'C') THEN
4949: arp_util.debug( 'SQLCODE : ' || SQLCODE);
4950: arp_util.debug( 'SQLERRM : ' || SQLERRM);
4951: END IF;
4952: ROLLBACK TO UnEliminate_Risk_BR_PVT;
4953: x_return_status := FND_API.G_RET_STS_ERROR ;
4946: EXCEPTION
4947: WHEN FND_API.G_EXC_ERROR THEN
4948: IF PG_DEBUG in ('Y', 'C') THEN
4949: arp_util.debug( 'SQLCODE : ' || SQLCODE);
4950: arp_util.debug( 'SQLERRM : ' || SQLERRM);
4951: END IF;
4952: ROLLBACK TO UnEliminate_Risk_BR_PVT;
4953: x_return_status := FND_API.G_RET_STS_ERROR ;
4954: IF PG_DEBUG in ('Y', 'C') THEN
4951: END IF;
4952: ROLLBACK TO UnEliminate_Risk_BR_PVT;
4953: x_return_status := FND_API.G_RET_STS_ERROR ;
4954: IF PG_DEBUG in ('Y', 'C') THEN
4955: arp_util.debug( 'Exception Error');
4956: END IF;
4957: RAISE;
4958:
4959: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4957: RAISE;
4958:
4959: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4960: IF PG_DEBUG in ('Y', 'C') THEN
4961: arp_util.debug( 'SQLCODE : ' || SQLCODE);
4962: arp_util.debug( 'SQLERRM : ' || SQLERRM);
4963: END IF;
4964: ROLLBACK TO UnEliminate_Risk_BR_PVT;
4965: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4958:
4959: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4960: IF PG_DEBUG in ('Y', 'C') THEN
4961: arp_util.debug( 'SQLCODE : ' || SQLCODE);
4962: arp_util.debug( 'SQLERRM : ' || SQLERRM);
4963: END IF;
4964: ROLLBACK TO UnEliminate_Risk_BR_PVT;
4965: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4966: IF PG_DEBUG in ('Y', 'C') THEN
4963: END IF;
4964: ROLLBACK TO UnEliminate_Risk_BR_PVT;
4965: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4966: IF PG_DEBUG in ('Y', 'C') THEN
4967: arp_util.debug( 'Exception Unexpected Error');
4968: END IF;
4969: RAISE;
4970:
4971:
4976: | been put on the error stack. |
4977: +-------------------------------------------------------*/
4978:
4979: IF PG_DEBUG in ('Y', 'C') THEN
4980: arp_util.debug( 'SQLCODE : ' || SQLCODE);
4981: arp_util.debug( 'SQLERRM : ' || SQLERRM);
4982: END IF;
4983:
4984: IF (SQLCODE = -20001)
4977: +-------------------------------------------------------*/
4978:
4979: IF PG_DEBUG in ('Y', 'C') THEN
4980: arp_util.debug( 'SQLCODE : ' || SQLCODE);
4981: arp_util.debug( 'SQLERRM : ' || SQLERRM);
4982: END IF;
4983:
4984: IF (SQLCODE = -20001)
4985: THEN
5051:
5052: BEGIN
5053:
5054: IF PG_DEBUG in ('Y', 'C') THEN
5055: arp_util.debug('AR_BILLS_MAINTAIN_PUB.Exchange_BR()+ ');
5056: END IF;
5057:
5058: x_msg_count := NULL;
5059: x_msg_data := NULL;
5132:
5133: IF (C_ACTION_REC.exchange_flag <> 'Y')
5134: THEN
5135: IF PG_DEBUG in ('Y', 'C') THEN
5136: arp_util.debug( '>>>>>>>>>> The action ' || l_action || ' is not allowed on the BR ' || p_customer_trx_id);
5137: END IF;
5138: FND_MESSAGE.set_name ( 'AR', 'AR_BR_CANNOT_EXCHANGE' );
5139: FND_MESSAGE.set_token ( 'BRNUM' , l_trx_rec.trx_number);
5140: app_exception.raise_exception;
5216:
5217: IF (l_return_status <> 'S')
5218: THEN
5219: IF PG_DEBUG in ('Y', 'C') THEN
5220: arp_util.debug( '>>>>>>>>>> Problems during the creation of the new BR');
5221: arp_util.debug( 'l_msg_count : ' || l_msg_count);
5222: arp_util.debug( 'l_msg_data : ' || l_msg_data);
5223: END IF;
5224: RAISE API_exception;
5217: IF (l_return_status <> 'S')
5218: THEN
5219: IF PG_DEBUG in ('Y', 'C') THEN
5220: arp_util.debug( '>>>>>>>>>> Problems during the creation of the new BR');
5221: arp_util.debug( 'l_msg_count : ' || l_msg_count);
5222: arp_util.debug( 'l_msg_data : ' || l_msg_data);
5223: END IF;
5224: RAISE API_exception;
5225: END IF;
5218: THEN
5219: IF PG_DEBUG in ('Y', 'C') THEN
5220: arp_util.debug( '>>>>>>>>>> Problems during the creation of the new BR');
5221: arp_util.debug( 'l_msg_count : ' || l_msg_count);
5222: arp_util.debug( 'l_msg_data : ' || l_msg_data);
5223: END IF;
5224: RAISE API_exception;
5225: END IF;
5226:
5262:
5263: IF (l_return_status <> 'S')
5264: THEN
5265: IF PG_DEBUG in ('Y', 'C') THEN
5266: arp_util.debug( '>>>>>>>>>> Problems during the assignment of the exchanged BR to the new BR');
5267: arp_util.debug( 'l_msg_count : ' || l_msg_count);
5268: arp_util.debug( 'l_msg_data : ' || l_msg_data);
5269: END IF;
5270: RAISE API_exception;
5263: IF (l_return_status <> 'S')
5264: THEN
5265: IF PG_DEBUG in ('Y', 'C') THEN
5266: arp_util.debug( '>>>>>>>>>> Problems during the assignment of the exchanged BR to the new BR');
5267: arp_util.debug( 'l_msg_count : ' || l_msg_count);
5268: arp_util.debug( 'l_msg_data : ' || l_msg_data);
5269: END IF;
5270: RAISE API_exception;
5271: END IF;
5264: THEN
5265: IF PG_DEBUG in ('Y', 'C') THEN
5266: arp_util.debug( '>>>>>>>>>> Problems during the assignment of the exchanged BR to the new BR');
5267: arp_util.debug( 'l_msg_count : ' || l_msg_count);
5268: arp_util.debug( 'l_msg_data : ' || l_msg_data);
5269: END IF;
5270: RAISE API_exception;
5271: END IF;
5272:
5291:
5292: IF FND_API.To_Boolean( p_commit )
5293: THEN
5294: IF PG_DEBUG in ('Y', 'C') THEN
5295: arp_util.debug( 'committing');
5296: END IF;
5297: Commit;
5298: END IF;
5299:
5297: Commit;
5298: END IF;
5299:
5300: IF PG_DEBUG in ('Y', 'C') THEN
5301: arp_util.debug('AR_BILLS_MAINTAIN_PUB.Exchange_BR()- ');
5302: END IF;
5303:
5304:
5305: EXCEPTION
5306: WHEN API_exception THEN
5307: ROLLBACK TO Exchange_BR_PVT;
5308: x_return_status := FND_API.G_RET_STS_ERROR ;
5309: IF PG_DEBUG in ('Y', 'C') THEN
5310: arp_util.debug ('API Exception : AR_BILLS_MAINTAIN_PUB.Exchange_BR : ' || SQLERRM);
5311: END IF;
5312: RAISE;
5313:
5314: WHEN FND_API.G_EXC_ERROR THEN
5312: RAISE;
5313:
5314: WHEN FND_API.G_EXC_ERROR THEN
5315: IF PG_DEBUG in ('Y', 'C') THEN
5316: arp_util.debug( 'SQLCODE : ' || SQLCODE);
5317: arp_util.debug( 'SQLERRM : ' || SQLERRM);
5318: END IF;
5319: ROLLBACK TO Exchange_BR_PVT;
5320: x_return_status := FND_API.G_RET_STS_ERROR ;
5313:
5314: WHEN FND_API.G_EXC_ERROR THEN
5315: IF PG_DEBUG in ('Y', 'C') THEN
5316: arp_util.debug( 'SQLCODE : ' || SQLCODE);
5317: arp_util.debug( 'SQLERRM : ' || SQLERRM);
5318: END IF;
5319: ROLLBACK TO Exchange_BR_PVT;
5320: x_return_status := FND_API.G_RET_STS_ERROR ;
5321: IF PG_DEBUG in ('Y', 'C') THEN
5318: END IF;
5319: ROLLBACK TO Exchange_BR_PVT;
5320: x_return_status := FND_API.G_RET_STS_ERROR ;
5321: IF PG_DEBUG in ('Y', 'C') THEN
5322: arp_util.debug( 'Exception Error');
5323: END IF;
5324: RAISE;
5325:
5326:
5325:
5326:
5327: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5328: IF PG_DEBUG in ('Y', 'C') THEN
5329: arp_util.debug( 'SQLCODE : ' || SQLCODE);
5330: arp_util.debug( 'SQLERRM : ' || SQLERRM);
5331: END IF;
5332: ROLLBACK TO Exchange_BR_PVT;
5333: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5326:
5327: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5328: IF PG_DEBUG in ('Y', 'C') THEN
5329: arp_util.debug( 'SQLCODE : ' || SQLCODE);
5330: arp_util.debug( 'SQLERRM : ' || SQLERRM);
5331: END IF;
5332: ROLLBACK TO Exchange_BR_PVT;
5333: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5334: IF PG_DEBUG in ('Y', 'C') THEN
5331: END IF;
5332: ROLLBACK TO Exchange_BR_PVT;
5333: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5334: IF PG_DEBUG in ('Y', 'C') THEN
5335: arp_util.debug( 'Exception Unexpected Error');
5336: END IF;
5337: RAISE;
5338:
5339:
5344: | been put on the error stack. |
5345: +-------------------------------------------------------*/
5346:
5347: IF PG_DEBUG in ('Y', 'C') THEN
5348: arp_util.debug( 'SQLCODE : ' || SQLCODE);
5349: arp_util.debug( 'SQLERRM : ' || SQLERRM);
5350: END IF;
5351:
5352: IF (SQLCODE = -20001)
5345: +-------------------------------------------------------*/
5346:
5347: IF PG_DEBUG in ('Y', 'C') THEN
5348: arp_util.debug( 'SQLCODE : ' || SQLCODE);
5349: arp_util.debug( 'SQLERRM : ' || SQLERRM);
5350: END IF;
5351:
5352: IF (SQLCODE = -20001)
5353: THEN