123:
124: BEGIN
125:
126: IF PG_DEBUG in ('Y', 'C') THEN
127: arp_util.debug('AR_BILLS_CREATION_PUB.Create_BR_Header()+ ');
128: END IF;
129:
130: x_msg_count := NULL;
131: x_msg_data := NULL;
259:
260: IF FND_API.To_Boolean( p_commit )
261: THEN
262: IF PG_DEBUG in ('Y', 'C') THEN
263: arp_util.debug( 'committing');
264: END IF;
265: Commit;
266: END IF;
267:
265: Commit;
266: END IF;
267:
268: IF PG_DEBUG in ('Y', 'C') THEN
269: arp_util.debug('AR_BILLS_CREATION_PUB.Create_BR_Header()- ');
270: END IF;
271:
272:
273: EXCEPTION
273: EXCEPTION
274: WHEN FND_API.G_EXC_ERROR THEN
275:
276: IF PG_DEBUG in ('Y', 'C') THEN
277: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
278: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
279: END IF;
280: ROLLBACK TO Create_BR_Header_PVT;
281: x_return_status := FND_API.G_RET_STS_ERROR ;
274: WHEN FND_API.G_EXC_ERROR THEN
275:
276: IF PG_DEBUG in ('Y', 'C') THEN
277: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
278: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
279: END IF;
280: ROLLBACK TO Create_BR_Header_PVT;
281: x_return_status := FND_API.G_RET_STS_ERROR ;
282: IF PG_DEBUG in ('Y', 'C') THEN
279: END IF;
280: ROLLBACK TO Create_BR_Header_PVT;
281: x_return_status := FND_API.G_RET_STS_ERROR ;
282: IF PG_DEBUG in ('Y', 'C') THEN
283: arp_util.debug( 'Exception Error');
284: END IF;
285: RAISE;
286:
287:
287:
288: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
289:
290: IF PG_DEBUG in ('Y', 'C') THEN
291: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
292: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
293: END IF;
294: ROLLBACK TO Create_BR_Header_PVT;
295: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
288: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
289:
290: IF PG_DEBUG in ('Y', 'C') THEN
291: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
292: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
293: END IF;
294: ROLLBACK TO Create_BR_Header_PVT;
295: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
296: IF PG_DEBUG in ('Y', 'C') THEN
293: END IF;
294: ROLLBACK TO Create_BR_Header_PVT;
295: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
296: IF PG_DEBUG in ('Y', 'C') THEN
297: arp_util.debug( 'Exception Unexpected Error');
298: END IF;
299: RAISE;
300:
301:
307: | been put on the error stack. |
308: +-------------------------------------------------------*/
309:
310: IF PG_DEBUG in ('Y', 'C') THEN
311: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
312: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
313: END IF;
314:
315: ROLLBACK TO Create_BR_Header_PVT;
308: +-------------------------------------------------------*/
309:
310: IF PG_DEBUG in ('Y', 'C') THEN
311: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
312: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
313: END IF;
314:
315: ROLLBACK TO Create_BR_Header_PVT;
316:
402:
403: BEGIN
404:
405: IF PG_DEBUG in ('Y', 'C') THEN
406: arp_util.debug('AR_BILLS_CREATION_PUB.Update_BR_Header()+ ');
407: END IF;
408:
409: x_msg_count := NULL;
410: x_msg_data := NULL;
579:
580: IF FND_API.To_Boolean( p_commit )
581: THEN
582: IF PG_DEBUG in ('Y', 'C') THEN
583: arp_util.debug( 'committing');
584: END IF;
585: Commit;
586: END IF;
587:
585: Commit;
586: END IF;
587:
588: IF PG_DEBUG in ('Y', 'C') THEN
589: arp_util.debug('AR_BILLS_CREATION_PUB.Update_BR_Header()- ');
590: END IF;
591:
592: EXCEPTION
593: WHEN FND_API.G_EXC_ERROR THEN
592: EXCEPTION
593: WHEN FND_API.G_EXC_ERROR THEN
594:
595: IF PG_DEBUG in ('Y', 'C') THEN
596: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
597: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
598: END IF;
599: ROLLBACK TO Update_BR_Header_PVT;
600: x_return_status := FND_API.G_RET_STS_ERROR ;
593: WHEN FND_API.G_EXC_ERROR THEN
594:
595: IF PG_DEBUG in ('Y', 'C') THEN
596: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
597: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
598: END IF;
599: ROLLBACK TO Update_BR_Header_PVT;
600: x_return_status := FND_API.G_RET_STS_ERROR ;
601: IF PG_DEBUG in ('Y', 'C') THEN
598: END IF;
599: ROLLBACK TO Update_BR_Header_PVT;
600: x_return_status := FND_API.G_RET_STS_ERROR ;
601: IF PG_DEBUG in ('Y', 'C') THEN
602: arp_util.debug( 'Exception Error');
603: END IF;
604: RAISE;
605:
606:
606:
607: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
608:
609: IF PG_DEBUG in ('Y', 'C') THEN
610: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
611: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
612: END IF;
613: ROLLBACK TO Update_BR_Header_PVT;
614: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
607: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
608:
609: IF PG_DEBUG in ('Y', 'C') THEN
610: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
611: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
612: END IF;
613: ROLLBACK TO Update_BR_Header_PVT;
614: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
615: IF PG_DEBUG in ('Y', 'C') THEN
612: END IF;
613: ROLLBACK TO Update_BR_Header_PVT;
614: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
615: IF PG_DEBUG in ('Y', 'C') THEN
616: arp_util.debug( 'Exception Unexpected Error');
617: END IF;
618: RAISE;
619:
620:
626: | been put on the error stack. |
627: +-------------------------------------------------------*/
628:
629: IF PG_DEBUG in ('Y', 'C') THEN
630: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
631: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
632: END IF;
633:
634: ROLLBACK TO Update_BR_Header_PVT;
627: +-------------------------------------------------------*/
628:
629: IF PG_DEBUG in ('Y', 'C') THEN
630: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
631: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
632: END IF;
633:
634: ROLLBACK TO Update_BR_Header_PVT;
635:
695:
696: BEGIN
697:
698: IF PG_DEBUG in ('Y', 'C') THEN
699: arp_util.debug('AR_BILLS_CREATION_PUB.Delete_BR_Header()+ ');
700: END IF;
701:
702: x_msg_count := NULL;
703: x_msg_data := NULL;
769: IF (l_delete_flag <> 'Y')
770: THEN
771: ARP_CT_PKG.fetch_p (l_trx_rec, p_customer_trx_id);
772: IF PG_DEBUG in ('Y', 'C') THEN
773: arp_util.debug( '>>>>>>>>>> The Action Delete is not allowed on the BR ' || p_customer_trx_id);
774: END IF;
775: FND_MESSAGE.set_name ( 'AR', 'AR_BR_ACTION_FORBIDDEN' );
776: FND_MESSAGE.set_token ( 'ACTION', C_DELETE);
777: FND_MESSAGE.set_token ( 'BRNUM' , l_trx_rec.trx_number);
799:
800: IF FND_API.To_Boolean( p_commit )
801: THEN
802: IF PG_DEBUG in ('Y', 'C') THEN
803: arp_util.debug( 'committing');
804: END IF;
805: Commit;
806: END IF;
807:
805: Commit;
806: END IF;
807:
808: IF PG_DEBUG in ('Y', 'C') THEN
809: arp_util.debug('AR_BILLS_CREATION_PUB.Delete_BR_Header()- ');
810: END IF;
811:
812:
813: EXCEPTION
813: EXCEPTION
814: WHEN FND_API.G_EXC_ERROR THEN
815:
816: IF PG_DEBUG in ('Y', 'C') THEN
817: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
818: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
819: END IF;
820: ROLLBACK TO Delete_BR_Header_PVT;
821: x_return_status := FND_API.G_RET_STS_ERROR ;
814: WHEN FND_API.G_EXC_ERROR THEN
815:
816: IF PG_DEBUG in ('Y', 'C') THEN
817: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
818: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
819: END IF;
820: ROLLBACK TO Delete_BR_Header_PVT;
821: x_return_status := FND_API.G_RET_STS_ERROR ;
822: IF PG_DEBUG in ('Y', 'C') THEN
819: END IF;
820: ROLLBACK TO Delete_BR_Header_PVT;
821: x_return_status := FND_API.G_RET_STS_ERROR ;
822: IF PG_DEBUG in ('Y', 'C') THEN
823: arp_util.debug( 'Exception Error');
824: END IF;
825: RAISE;
826:
827: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
826:
827: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
828:
829: IF PG_DEBUG in ('Y', 'C') THEN
830: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
831: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
832: END IF;
833: ROLLBACK TO Delete_BR_Header_PVT;
834: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
827: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
828:
829: IF PG_DEBUG in ('Y', 'C') THEN
830: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
831: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
832: END IF;
833: ROLLBACK TO Delete_BR_Header_PVT;
834: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
835: IF PG_DEBUG in ('Y', 'C') THEN
832: END IF;
833: ROLLBACK TO Delete_BR_Header_PVT;
834: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
835: IF PG_DEBUG in ('Y', 'C') THEN
836: arp_util.debug( 'Exception Unexpected Error');
837: END IF;
838: RAISE;
839:
840: WHEN OTHERS THEN
845: | been put on the error stack. |
846: +-------------------------------------------------------*/
847:
848: IF PG_DEBUG in ('Y', 'C') THEN
849: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
850: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
851: END IF;
852:
853: ROLLBACK TO Delete_BR_Header_PVT;
846: +-------------------------------------------------------*/
847:
848: IF PG_DEBUG in ('Y', 'C') THEN
849: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
850: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
851: END IF;
852:
853: ROLLBACK TO Delete_BR_Header_PVT;
854:
935:
936: BEGIN
937:
938: IF PG_DEBUG in ('Y', 'C') THEN
939: arp_util.debug('AR_BILLS_CREATION_PUB.Lock_BR_Header()+ ');
940: END IF;
941:
942: x_msg_count := NULL;
943: x_msg_data := NULL;
1026:
1027: ARP_CT_PKG.lock_compare_p( l_trx_rec, p_customer_trx_id);
1028:
1029: IF PG_DEBUG in ('Y', 'C') THEN
1030: arp_util.debug('AR_BILLS_CREATION_PUB.Lock_BR_Header()- ');
1031: END IF;
1032:
1033:
1034: EXCEPTION
1034: EXCEPTION
1035: WHEN FND_API.G_EXC_ERROR THEN
1036:
1037: IF PG_DEBUG in ('Y', 'C') THEN
1038: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
1039: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
1040: END IF;
1041: ROLLBACK TO Lock_BR_Header_PVT;
1042: x_return_status := FND_API.G_RET_STS_ERROR ;
1035: WHEN FND_API.G_EXC_ERROR THEN
1036:
1037: IF PG_DEBUG in ('Y', 'C') THEN
1038: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
1039: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
1040: END IF;
1041: ROLLBACK TO Lock_BR_Header_PVT;
1042: x_return_status := FND_API.G_RET_STS_ERROR ;
1043: IF PG_DEBUG in ('Y', 'C') THEN
1040: END IF;
1041: ROLLBACK TO Lock_BR_Header_PVT;
1042: x_return_status := FND_API.G_RET_STS_ERROR ;
1043: IF PG_DEBUG in ('Y', 'C') THEN
1044: arp_util.debug( 'Exception Error');
1045: END IF;
1046: RAISE;
1047:
1048: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1047:
1048: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1049:
1050: IF PG_DEBUG in ('Y', 'C') THEN
1051: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
1052: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
1053: END IF;
1054: ROLLBACK TO Lock_BR_Header_PVT;
1055: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1048: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1049:
1050: IF PG_DEBUG in ('Y', 'C') THEN
1051: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
1052: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
1053: END IF;
1054: ROLLBACK TO Lock_BR_Header_PVT;
1055: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1056: IF PG_DEBUG in ('Y', 'C') THEN
1053: END IF;
1054: ROLLBACK TO Lock_BR_Header_PVT;
1055: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1056: IF PG_DEBUG in ('Y', 'C') THEN
1057: arp_util.debug( 'Exception Unexpected Error');
1058: END IF;
1059: RAISE;
1060:
1061: WHEN OTHERS THEN
1066: | been put on the error stack. |
1067: +-------------------------------------------------------*/
1068:
1069: IF PG_DEBUG in ('Y', 'C') THEN
1070: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
1071: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
1072: END IF;
1073:
1074:
1067: +-------------------------------------------------------*/
1068:
1069: IF PG_DEBUG in ('Y', 'C') THEN
1070: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
1071: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
1072: END IF;
1073:
1074:
1075: ROLLBACK TO Lock_BR_Header_PVT;
1150:
1151: BEGIN
1152:
1153: IF PG_DEBUG in ('Y', 'C') THEN
1154: arp_util.debug('AR_BILLS_CREATION_PUB.Create_BR_Assignment()+ ');
1155: END IF;
1156:
1157: x_msg_count := NULL;
1158: x_msg_data := NULL;
1322:
1323: IF FND_API.To_Boolean( p_commit )
1324: THEN
1325: IF PG_DEBUG in ('Y', 'C') THEN
1326: arp_util.debug( 'committing');
1327: END IF;
1328: Commit;
1329: END IF;
1330:
1328: Commit;
1329: END IF;
1330:
1331: IF PG_DEBUG in ('Y', 'C') THEN
1332: arp_util.debug('AR_BILLS_CREATION_PUB.Create_BR_Assignment()- ');
1333: END IF;
1334:
1335:
1336: EXCEPTION
1336: EXCEPTION
1337: WHEN FND_API.G_EXC_ERROR THEN
1338:
1339: IF PG_DEBUG in ('Y', 'C') THEN
1340: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
1341: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
1342: END IF;
1343: ROLLBACK TO Create_BR_Assignment_PVT;
1344: x_return_status := FND_API.G_RET_STS_ERROR ;
1337: WHEN FND_API.G_EXC_ERROR THEN
1338:
1339: IF PG_DEBUG in ('Y', 'C') THEN
1340: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
1341: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
1342: END IF;
1343: ROLLBACK TO Create_BR_Assignment_PVT;
1344: x_return_status := FND_API.G_RET_STS_ERROR ;
1345: IF PG_DEBUG in ('Y', 'C') THEN
1342: END IF;
1343: ROLLBACK TO Create_BR_Assignment_PVT;
1344: x_return_status := FND_API.G_RET_STS_ERROR ;
1345: IF PG_DEBUG in ('Y', 'C') THEN
1346: arp_util.debug( 'Exception Error');
1347: END IF;
1348: RAISE;
1349:
1350:
1350:
1351: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1352:
1353: IF PG_DEBUG in ('Y', 'C') THEN
1354: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
1355: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
1356: END IF;
1357: ROLLBACK TO Create_BR_Assignment_PVT;
1358: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1351: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1352:
1353: IF PG_DEBUG in ('Y', 'C') THEN
1354: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
1355: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
1356: END IF;
1357: ROLLBACK TO Create_BR_Assignment_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 Create_BR_Assignment_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:
1370: | been put on the error stack. |
1371: +-------------------------------------------------------*/
1372:
1373: IF PG_DEBUG in ('Y', 'C') THEN
1374: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
1375: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
1376: END IF;
1377:
1378: ROLLBACK TO Create_BR_Assignment_PVT;
1371: +-------------------------------------------------------*/
1372:
1373: IF PG_DEBUG in ('Y', 'C') THEN
1374: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
1375: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
1376: END IF;
1377:
1378: ROLLBACK TO Create_BR_Assignment_PVT;
1379:
1448:
1449: BEGIN
1450:
1451: IF PG_DEBUG in ('Y', 'C') THEN
1452: arp_util.debug('AR_BILLS_CREATION_PUB.Update_BR_Assignment()+ ');
1453: END IF;
1454:
1455: x_msg_count := NULL;
1456: x_msg_data := NULL;
1560:
1561: IF FND_API.To_Boolean( p_commit )
1562: THEN
1563: IF PG_DEBUG in ('Y', 'C') THEN
1564: arp_util.debug( 'committing');
1565: END IF;
1566: Commit;
1567: END IF;
1568:
1566: Commit;
1567: END IF;
1568:
1569: IF PG_DEBUG in ('Y', 'C') THEN
1570: arp_util.debug('AR_BILLS_CREATION_PUB.Update_BR_Assignment()- ');
1571: END IF;
1572:
1573:
1574: EXCEPTION
1573:
1574: EXCEPTION
1575: WHEN FND_API.G_EXC_ERROR THEN
1576: IF PG_DEBUG in ('Y', 'C') THEN
1577: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
1578: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
1579: END IF;
1580: ROLLBACK TO Update_BR_Assignment_PVT;
1581: x_return_status := FND_API.G_RET_STS_ERROR ;
1574: EXCEPTION
1575: WHEN FND_API.G_EXC_ERROR THEN
1576: IF PG_DEBUG in ('Y', 'C') THEN
1577: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
1578: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
1579: END IF;
1580: ROLLBACK TO Update_BR_Assignment_PVT;
1581: x_return_status := FND_API.G_RET_STS_ERROR ;
1582: RAISE;
1583:
1584: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1585:
1586: IF PG_DEBUG in ('Y', 'C') THEN
1587: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
1588: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
1589: END IF;
1590: ROLLBACK TO Update_BR_Assignment_PVT;
1591: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1584: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1585:
1586: IF PG_DEBUG in ('Y', 'C') THEN
1587: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
1588: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
1589: END IF;
1590: ROLLBACK TO Update_BR_Assignment_PVT;
1591: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1592: RAISE;
1599: | been put on the error stack. |
1600: +-------------------------------------------------------*/
1601:
1602: IF PG_DEBUG in ('Y', 'C') THEN
1603: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
1604: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
1605: END IF;
1606:
1607:
1600: +-------------------------------------------------------*/
1601:
1602: IF PG_DEBUG in ('Y', 'C') THEN
1603: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
1604: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
1605: END IF;
1606:
1607:
1608: ROLLBACK TO Update_BR_Assignment_PVT;
1655:
1656: BEGIN
1657:
1658: IF PG_DEBUG in ('Y', 'C') THEN
1659: arp_util.debug('AR_BILLS_CREATION_PUB.Delete_BR_Assignment()+ ');
1660: END IF;
1661:
1662: x_msg_count := NULL;
1663: x_msg_data := NULL;
1727:
1728: IF FND_API.To_Boolean( p_commit )
1729: THEN
1730: IF PG_DEBUG in ('Y', 'C') THEN
1731: arp_util.debug( 'committing');
1732: END IF;
1733: Commit;
1734: END IF;
1735:
1733: Commit;
1734: END IF;
1735:
1736: IF PG_DEBUG in ('Y', 'C') THEN
1737: arp_util.debug('AR_BILLS_CREATION_PUB.Delete_BR_Assignment()- ');
1738: END IF;
1739:
1740:
1741: EXCEPTION
1741: EXCEPTION
1742: WHEN FND_API.G_EXC_ERROR THEN
1743:
1744: IF PG_DEBUG in ('Y', 'C') THEN
1745: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
1746: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
1747: END IF;
1748: ROLLBACK TO Delete_BR_Assignment_PVT;
1749: x_return_status := FND_API.G_RET_STS_ERROR ;
1742: WHEN FND_API.G_EXC_ERROR THEN
1743:
1744: IF PG_DEBUG in ('Y', 'C') THEN
1745: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
1746: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
1747: END IF;
1748: ROLLBACK TO Delete_BR_Assignment_PVT;
1749: x_return_status := FND_API.G_RET_STS_ERROR ;
1750: IF PG_DEBUG in ('Y', 'C') THEN
1747: END IF;
1748: ROLLBACK TO Delete_BR_Assignment_PVT;
1749: x_return_status := FND_API.G_RET_STS_ERROR ;
1750: IF PG_DEBUG in ('Y', 'C') THEN
1751: arp_util.debug( 'Exception Error');
1752: END IF;
1753: RAISE;
1754:
1755: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1754:
1755: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1756:
1757: IF PG_DEBUG in ('Y', 'C') THEN
1758: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
1759: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
1760: END IF;
1761: ROLLBACK TO Delete_BR_Assignment_PVT;
1762: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1755: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1756:
1757: IF PG_DEBUG in ('Y', 'C') THEN
1758: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
1759: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
1760: END IF;
1761: ROLLBACK TO Delete_BR_Assignment_PVT;
1762: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1763: IF PG_DEBUG in ('Y', 'C') THEN
1760: END IF;
1761: ROLLBACK TO Delete_BR_Assignment_PVT;
1762: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1763: IF PG_DEBUG in ('Y', 'C') THEN
1764: arp_util.debug( 'Exception Unexpected Error');
1765: END IF;
1766: RAISE;
1767:
1768: WHEN OTHERS THEN
1773: | been put on the error stack. |
1774: +-------------------------------------------------------*/
1775:
1776: IF PG_DEBUG in ('Y', 'C') THEN
1777: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
1778: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
1779: END IF;
1780:
1781: ROLLBACK TO Delete_BR_Assignment_PVT;
1774: +-------------------------------------------------------*/
1775:
1776: IF PG_DEBUG in ('Y', 'C') THEN
1777: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
1778: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
1779: END IF;
1780:
1781: ROLLBACK TO Delete_BR_Assignment_PVT;
1782:
1847:
1848: BEGIN
1849:
1850: IF PG_DEBUG in ('Y', 'C') THEN
1851: arp_util.debug('AR_BILLS_CREATION_PUB.Lock_BR_Assignment()+ ');
1852: END IF;
1853:
1854: x_msg_count := NULL;
1855: x_msg_data := NULL;
1922:
1923: ARP_CTL_PKG.lock_compare_p (l_trl_rec, p_customer_trx_line_id);
1924:
1925: IF PG_DEBUG in ('Y', 'C') THEN
1926: arp_util.debug('AR_BILLS_CREATION_PUB.Lock_BR_Assignment()- ');
1927: END IF;
1928:
1929: EXCEPTION
1930: WHEN FND_API.G_EXC_ERROR THEN
1929: EXCEPTION
1930: WHEN FND_API.G_EXC_ERROR THEN
1931:
1932: IF PG_DEBUG in ('Y', 'C') THEN
1933: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
1934: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
1935: END IF;
1936: ROLLBACK TO Lock_BR_Assignment_PVT;
1937: x_return_status := FND_API.G_RET_STS_ERROR ;
1930: WHEN FND_API.G_EXC_ERROR THEN
1931:
1932: IF PG_DEBUG in ('Y', 'C') THEN
1933: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
1934: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
1935: END IF;
1936: ROLLBACK TO Lock_BR_Assignment_PVT;
1937: x_return_status := FND_API.G_RET_STS_ERROR ;
1938: RAISE;
1939:
1940: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1941:
1942: IF PG_DEBUG in ('Y', 'C') THEN
1943: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
1944: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
1945: END IF;
1946: ROLLBACK TO Lock_BR_Assignment_PVT;
1947: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1940: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1941:
1942: IF PG_DEBUG in ('Y', 'C') THEN
1943: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
1944: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
1945: END IF;
1946: ROLLBACK TO Lock_BR_Assignment_PVT;
1947: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1948: RAISE;
1955: | been put on the error stack. |
1956: +-------------------------------------------------------*/
1957:
1958: IF PG_DEBUG in ('Y', 'C') THEN
1959: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
1960: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
1961: END IF;
1962:
1963: ROLLBACK TO Lock_BR_Assignment_PVT;
1956: +-------------------------------------------------------*/
1957:
1958: IF PG_DEBUG in ('Y', 'C') THEN
1959: arp_util.debug ( 'SQLERRM : ' || SQLERRM);
1960: arp_util.debug ( 'SQLCODE : ' || SQLCODE);
1961: END IF;
1962:
1963: ROLLBACK TO Lock_BR_Assignment_PVT;
1964: