56: savepoint create_txn_party_dtls;
57:
58: -- Initialize message list if p_init_msg_list is set to TRUE.
59: IF fnd_api.to_Boolean( p_init_msg_list ) THEN
60: FND_MSG_PUB.initialize;
61: END IF;
62:
63: -- Initialize API return status to success
64: x_return_status := fnd_api.G_RET_STS_SUCCESS;
108:
109: FND_MESSAGE.set_name('CSI','CSI_TXN_LINE_DTL_ID_INVALID');
110: FND_MESSAGE.set_token('LINE_DTL_ID',
111: p_txn_party_detail_rec.txn_line_detail_id);
112: FND_MSG_PUB.add;
113: RAISE fnd_api.g_exc_error;
114:
115: END IF;
116:
188:
189: FND_MESSAGE.set_name('CSI','CSI_TXN_CONTACT_FLAG_INVALID');
190: FND_MESSAGE.set_token ('CONTACT_FLAG', p_txn_party_detail_rec.contact_flag);
191:
192: FND_MSG_PUB.add;
193: RAISE fnd_api.g_exc_error;
194:
195: END IF;
196: END IF;
253: FND_MESSAGE.set_token('PTY_SRC_NAME',
254: p_txn_party_detail_rec.party_source_table);
255: FND_MESSAGE.set_token('PTY_SRC_ID',
256: p_txn_party_detail_rec.party_source_id);
257: FND_MSG_PUB.add;
258: RAISE fnd_api.g_exc_error;
259:
260: END IF;
261:
321: when others then
322: fnd_message.set_name('FND', 'FND_GENERIC_MESSAGE');
323: fnd_message.set_token('MESSAGE',
324: 'csi_t_party_details_pkg.insert_row Failed. '||substr(sqlerrm,1,200));
325: fnd_msg_pub.add;
326: raise fnd_api.g_exc_error;
327: end;
328:
329: p_txn_party_detail_rec.txn_party_detail_id := l_txn_party_detail_id;
375: csi_t_gen_utility_pvt.set_debug_off;
376: END IF;
377:
378: -- Standard call to get message count and if count is get message info.
379: FND_MSG_PUB.Count_And_Get(
380: p_count => x_msg_count,
381: p_data => x_msg_data);
382:
383: EXCEPTION
384: WHEN fnd_api.G_EXC_ERROR THEN
385:
386: ROLLBACK TO create_txn_party_dtls;
387: x_return_status := fnd_api.G_RET_STS_ERROR ;
388: FND_MSG_PUB.Count_And_Get (
389: p_count => x_msg_count,
390: p_data => x_msg_data);
391:
392: WHEN fnd_api.G_EXC_UNEXPECTED_ERROR THEN
393:
394: ROLLBACK TO create_txn_party_dtls;
395: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR ;
396:
397: FND_MSG_PUB.Count_And_Get(
398: p_count => x_msg_count,
399: p_data => x_msg_data);
400:
401: WHEN OTHERS THEN
402:
403: ROLLBACK TO create_txn_party_dtls;
404: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR ;
405:
406: IF FND_MSG_PUB.Check_Msg_Level(
407: p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
408:
409: FND_MSG_PUB.Add_Exc_Msg(
410: p_pkg_name => G_PKG_NAME,
403: ROLLBACK TO create_txn_party_dtls;
404: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR ;
405:
406: IF FND_MSG_PUB.Check_Msg_Level(
407: p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
408:
409: FND_MSG_PUB.Add_Exc_Msg(
410: p_pkg_name => G_PKG_NAME,
411: p_procedure_name => l_api_name);
405:
406: IF FND_MSG_PUB.Check_Msg_Level(
407: p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
408:
409: FND_MSG_PUB.Add_Exc_Msg(
410: p_pkg_name => G_PKG_NAME,
411: p_procedure_name => l_api_name);
412:
413: END IF;
411: p_procedure_name => l_api_name);
412:
413: END IF;
414:
415: FND_MSG_PUB.Count_And_Get(
416: p_count => x_msg_count,
417: p_data => x_msg_data);
418:
419: END create_txn_party_dtls;
446: SAVEPOINT create_txn_pty_acct_dtls;
447:
448: -- Initialize message list if p_init_msg_list is set to TRUE.
449: IF fnd_api.to_Boolean( p_init_msg_list ) THEN
450: FND_MSG_PUB.initialize;
451: END IF;
452:
453: -- Initialize API return status to success
454: x_return_status := fnd_api.G_RET_STS_SUCCESS;
501: IF l_return_status <> fnd_api.g_ret_sts_success THEN
502:
503: FND_MESSAGE.set_name('CSI','CSI_TXN_ACCOUNT_ID_INVALID');
504: FND_MESSAGE.set_token('ACCT_ID',p_txn_pty_acct_detail_rec.account_id);
505: FND_MSG_PUB.add;
506: RAISE fnd_api.g_exc_error;
507:
508: END IF;
509:
530: IF x_return_status <> fnd_api.g_ret_sts_success THEN
531:
532: FND_MESSAGE.set_name('CSI','CSI_API_INVALID_IP_ACCOUNT_ID');
533: FND_MESSAGE.set_token('IP_ACCOUNT_ID',p_txn_pty_acct_detail_rec.ip_account_id);
534: FND_MSG_PUB.add;
535: RAISE fnd_api.g_exc_error;
536:
537: END IF;
538:
557:
558: FND_MESSAGE.set_name('CSI','CSI_TXN_PTY_ACCT_INVALID');
559: FND_MESSAGE.set_token('PTY_ID',l_pty_dtl_rec.party_source_id);
560: FND_MESSAGE.set_token('PTY_ACC_ID',p_txn_pty_acct_detail_rec.account_id);
561: FND_MSG_PUB.add;
562: RAISE fnd_api.g_exc_error;
563:
564: END IF;
565:
576: FND_MESSAGE.set_name('CSI','CSI_TXN_SITE_USE_INVALID');
577: FND_MESSAGE.set_token('SITE_USE_ID',p_txn_pty_acct_detail_rec.
578: bill_to_address_id);
579: FND_MESSAGE.set_token('SITE_USE_CODE','BILL_TO');
580: FND_MSG_PUB.add;
581: RAISE fnd_api.g_exc_error;
582: END IF;
583:
584: END IF;
595: FND_MESSAGE.set_name('CSI','CSI_TXN_SITE_USE_INVALID');
596: FND_MESSAGE.set_token('SITE_USE_ID',p_txn_pty_acct_detail_rec.
597: ship_to_address_id);
598: FND_MESSAGE.set_token('SITE_USE_CODE','SHIP_TO');
599: FND_MSG_PUB.add;
600: RAISE fnd_api.g_exc_error;
601: END IF;
602:
603: END IF;
656: when others then
657: fnd_message.set_name('FND', 'FND_GENERIC_MESSAGE');
658: fnd_message.set_token('MESSAGE',
659: 'csi_t_party_accounts_pkg.insert_row Failed. '||substr(sqlerrm,1,200));
660: fnd_msg_pub.add;
661: raise fnd_api.g_exc_error;
662: end;
663:
664: p_txn_pty_acct_detail_rec.txn_account_detail_id := l_txn_account_detail_id;
670:
671: csi_t_gen_utility_pvt.set_debug_off;
672:
673: -- Standard call to get message count and if count is get message info.
674: FND_MSG_PUB.Count_And_Get(
675: p_count => x_msg_count,
676: p_data => x_msg_data);
677:
678: EXCEPTION
679: WHEN fnd_api.G_EXC_ERROR THEN
680:
681: ROLLBACK TO Create_Txn_Pty_Acct_Dtls;
682: x_return_status := fnd_api.G_RET_STS_ERROR ;
683: FND_MSG_PUB.Count_And_Get (
684: p_count => x_msg_count,
685: p_data => x_msg_data);
686: csi_t_gen_utility_pvt.set_debug_off;
687:
689:
690: ROLLBACK TO Create_Txn_Pty_Acct_Dtls;
691: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR ;
692:
693: FND_MSG_PUB.Count_And_Get(
694: p_count => x_msg_count,
695: p_data => x_msg_data);
696: csi_t_gen_utility_pvt.set_debug_off;
697:
699:
700: ROLLBACK TO Create_Txn_Pty_Acct_Dtls;
701: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR ;
702:
703: IF FND_MSG_PUB.Check_Msg_Level(
704: p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
705:
706: FND_MSG_PUB.Add_Exc_Msg(
707: p_pkg_name => G_PKG_NAME,
700: ROLLBACK TO Create_Txn_Pty_Acct_Dtls;
701: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR ;
702:
703: IF FND_MSG_PUB.Check_Msg_Level(
704: p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
705:
706: FND_MSG_PUB.Add_Exc_Msg(
707: p_pkg_name => G_PKG_NAME,
708: p_procedure_name => l_api_name);
702:
703: IF FND_MSG_PUB.Check_Msg_Level(
704: p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
705:
706: FND_MSG_PUB.Add_Exc_Msg(
707: p_pkg_name => G_PKG_NAME,
708: p_procedure_name => l_api_name);
709:
710: END IF;
708: p_procedure_name => l_api_name);
709:
710: END IF;
711:
712: FND_MSG_PUB.Count_And_Get(
713: p_count => x_msg_count,
714: p_data => x_msg_data);
715: csi_t_gen_utility_pvt.set_debug_off;
716:
768: SAVEPOINT update_txn_party_dtls;
769:
770: -- Initialize message list if p_init_msg_list is set to TRUE.
771: IF fnd_api.to_Boolean( p_init_msg_list ) THEN
772: FND_MSG_PUB.initialize;
773: END IF;
774:
775: -- Initialize API return status to success
776: x_return_status := fnd_api.G_RET_STS_SUCCESS;
826: IF l_return_status <> fnd_api.g_ret_sts_success THEN
827:
828: FND_MESSAGE.set_name('CSI','CSI_TXN_PARTY_DTL_ID_INVALID');
829: FND_MESSAGE.set_token('PTY_DTL_ID',l_pty_rec.txn_party_detail_id);
830: FND_MSG_PUB.add;
831: RAISE fnd_api.g_exc_error;
832:
833: END IF;
834:
849:
850: FND_MESSAGE.set_name('CSI','CSI_TXN_UPD_DEL_NOT_ALLOWED');
851: FND_MESSAGE.set_token('LVL_ID', l_pty_rec.txn_line_detail_id);
852: FND_MESSAGE.set_token('STATUS',l_processing_status);
853: FND_MSG_PUB.add;
854: RAISE fnd_api.g_exc_error;
855:
856: END IF;
857:
1166: when others then
1167: fnd_message.set_name('FND', 'FND_GENERIC_MESSAGE');
1168: fnd_message.set_token('MESSAGE',
1169: 'csi_t_party_details_pkg.update_row Failed. '||substr(sqlerrm,1,200));
1170: fnd_msg_pub.add;
1171: raise fnd_api.g_exc_error;
1172: end;
1173:
1174: END LOOP;
1408: COMMIT WORK;
1409: END IF;
1410:
1411: -- Standard call to get message count and if count is get message info.
1412: FND_MSG_PUB.Count_And_Get(
1413: p_count => x_msg_count,
1414: p_data => x_msg_data);
1415:
1416: EXCEPTION
1417: WHEN fnd_api.G_EXC_ERROR THEN
1418:
1419: ROLLBACK TO update_txn_party_dtls;
1420: x_return_status := fnd_api.G_RET_STS_ERROR ;
1421: FND_MSG_PUB.Count_And_Get (
1422: p_count => x_msg_count,
1423: p_data => x_msg_data);
1424:
1425: WHEN fnd_api.G_EXC_UNEXPECTED_ERROR THEN
1426:
1427: ROLLBACK TO update_txn_party_dtls;
1428: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR ;
1429:
1430: FND_MSG_PUB.Count_And_Get(
1431: p_count => x_msg_count,
1432: p_data => x_msg_data);
1433:
1434: WHEN OTHERS THEN
1435:
1436: ROLLBACK TO update_txn_party_dtls;
1437: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR ;
1438:
1439: IF FND_MSG_PUB.Check_Msg_Level(
1440: p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1441:
1442: FND_MSG_PUB.Add_Exc_Msg(
1443: p_pkg_name => G_PKG_NAME,
1436: ROLLBACK TO update_txn_party_dtls;
1437: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR ;
1438:
1439: IF FND_MSG_PUB.Check_Msg_Level(
1440: p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1441:
1442: FND_MSG_PUB.Add_Exc_Msg(
1443: p_pkg_name => G_PKG_NAME,
1444: p_procedure_name => l_api_name);
1438:
1439: IF FND_MSG_PUB.Check_Msg_Level(
1440: p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1441:
1442: FND_MSG_PUB.Add_Exc_Msg(
1443: p_pkg_name => G_PKG_NAME,
1444: p_procedure_name => l_api_name);
1445:
1446: END IF;
1444: p_procedure_name => l_api_name);
1445:
1446: END IF;
1447:
1448: FND_MSG_PUB.Count_And_Get(
1449: p_count => x_msg_count,
1450: p_data => x_msg_data);
1451:
1452: END update_txn_party_dtls;
1483: SAVEPOINT update_txn_pty_acct_dtls;
1484:
1485: -- Initialize message list if p_init_msg_list is set to TRUE.
1486: IF fnd_api.to_Boolean( p_init_msg_list ) THEN
1487: FND_MSG_PUB.initialize;
1488: END IF;
1489:
1490: -- Initialize API return status to success
1491: x_return_status := fnd_api.G_RET_STS_SUCCESS;
1541: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1542:
1543: FND_MESSAGE.set_name('CSI','CSI_TXN_PARTY_ACCT_ID_INVALID');
1544: FND_MESSAGE.set_token('PTY_DTL_ID',l_pa_rec.txn_account_detail_id);
1545: FND_MSG_PUB.add;
1546: RAISE fnd_api.g_exc_error;
1547:
1548: END IF;
1549:
1562:
1563: FND_MESSAGE.set_name('CSI','CSI_TXN_UPD_DEL_NOT_ALLOWED');
1564: FND_MESSAGE.set_token('LVL_ID', l_pa_rec.txn_account_detail_id);
1565: FND_MESSAGE.set_token('STATUS',l_processing_status);
1566: FND_MSG_PUB.add;
1567: RAISE fnd_api.g_exc_error;
1568:
1569: END IF;
1570:
1596: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1597:
1598: FND_MESSAGE.set_name('CSI','CSI_TXN_ACCOUNT_ID_INVALID');
1599: FND_MESSAGE.set_token('ACCT_ID',l_pa_rec.account_id);
1600: FND_MSG_PUB.add;
1601: RAISE fnd_api.g_exc_error;
1602:
1603: END IF;
1604:
1696: when others then
1697: fnd_message.set_name('FND', 'FND_GENERIC_MESSAGE');
1698: fnd_message.set_token('MESSAGE',
1699: 'csi_t_party_accounts_pkg.update_row Failed. '||substr(sqlerrm,1,200));
1700: fnd_msg_pub.add;
1701: raise fnd_api.g_exc_error;
1702: end;
1703:
1704: END LOOP;
1712: COMMIT WORK;
1713: END IF;
1714:
1715: -- Standard call to get message count and if count is get message info.
1716: FND_MSG_PUB.Count_And_Get(
1717: p_count => x_msg_count,
1718: p_data => x_msg_data);
1719:
1720: EXCEPTION
1721: WHEN fnd_api.G_EXC_ERROR THEN
1722:
1723: ROLLBACK TO update_txn_pty_acct_dtls;
1724: x_return_status := fnd_api.G_RET_STS_ERROR ;
1725: FND_MSG_PUB.Count_And_Get (
1726: p_count => x_msg_count,
1727: p_data => x_msg_data);
1728:
1729: WHEN fnd_api.G_EXC_UNEXPECTED_ERROR THEN
1730:
1731: ROLLBACK TO update_txn_pty_acct_dtls;
1732: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR ;
1733:
1734: FND_MSG_PUB.Count_And_Get(
1735: p_count => x_msg_count,
1736: p_data => x_msg_data);
1737:
1738: WHEN OTHERS THEN
1740:
1741: ROLLBACK TO update_txn_pty_acct_dtls;
1742: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR ;
1743:
1744: IF FND_MSG_PUB.Check_Msg_Level(
1745: p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1746:
1747: FND_MSG_PUB.Add_Exc_Msg(
1748: p_pkg_name => G_PKG_NAME,
1741: ROLLBACK TO update_txn_pty_acct_dtls;
1742: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR ;
1743:
1744: IF FND_MSG_PUB.Check_Msg_Level(
1745: p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1746:
1747: FND_MSG_PUB.Add_Exc_Msg(
1748: p_pkg_name => G_PKG_NAME,
1749: p_procedure_name => l_api_name);
1743:
1744: IF FND_MSG_PUB.Check_Msg_Level(
1745: p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1746:
1747: FND_MSG_PUB.Add_Exc_Msg(
1748: p_pkg_name => G_PKG_NAME,
1749: p_procedure_name => l_api_name);
1750:
1751: END IF;
1749: p_procedure_name => l_api_name);
1750:
1751: END IF;
1752:
1753: FND_MSG_PUB.Count_And_Get(
1754: p_count => x_msg_count,
1755: p_data => x_msg_data);
1756: END update_txn_pty_acct_dtls;
1757:
1801: SAVEPOINT delete_txn_party_dtls;
1802:
1803: -- Initialize message list if p_init_msg_list is set to TRUE.
1804: IF fnd_api.to_Boolean( p_init_msg_list ) THEN
1805: FND_MSG_PUB.initialize;
1806: END IF;
1807:
1808: -- Initialize API return status to success
1809: x_return_status := fnd_api.G_RET_STS_SUCCESS;
1851: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1852:
1853: FND_MESSAGE.set_name('CSI','CSI_TXN_PARTY_DTL_ID_INVALID');
1854: FND_MESSAGE.set_token('PTY_DTL_ID',l_pty_dtl_id);
1855: FND_MSG_PUB.add;
1856: RAISE fnd_api.g_exc_error;
1857:
1858: END IF;
1859:
1922: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1923:
1924: FND_MESSAGE.set_name('CSI','CSI_TXN_LINE_DTL_ID_INVALID');
1925: FND_MESSAGE.set_token('LINE_DTL_ID',l_line_dtl_id);
1926: FND_MSG_PUB.add;
1927: RAISE fnd_api.g_exc_error;
1928:
1929: END IF;
1930:
1989: COMMIT WORK;
1990: END IF;
1991:
1992: -- Standard call to get message count and if count is get message info.
1993: FND_MSG_PUB.Count_And_Get(
1994: p_count => x_msg_count,
1995: p_data => x_msg_data);
1996:
1997: EXCEPTION
1998: WHEN fnd_api.G_EXC_ERROR THEN
1999:
2000: ROLLBACK TO delete_txn_party_dtls;
2001: x_return_status := fnd_api.G_RET_STS_ERROR ;
2002: FND_MSG_PUB.Count_And_Get (
2003: p_count => x_msg_count,
2004: p_data => x_msg_data);
2005:
2006: WHEN fnd_api.G_EXC_UNEXPECTED_ERROR THEN
2007:
2008: ROLLBACK TO delete_txn_party_dtls;
2009: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR ;
2010:
2011: FND_MSG_PUB.Count_And_Get(
2012: p_count => x_msg_count,
2013: p_data => x_msg_data);
2014:
2015: WHEN OTHERS THEN
2016:
2017: ROLLBACK TO delete_txn_party_dtls;
2018: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR ;
2019:
2020: IF FND_MSG_PUB.Check_Msg_Level(
2021: p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2022:
2023: FND_MSG_PUB.Add_Exc_Msg(
2024: p_pkg_name => G_PKG_NAME,
2017: ROLLBACK TO delete_txn_party_dtls;
2018: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR ;
2019:
2020: IF FND_MSG_PUB.Check_Msg_Level(
2021: p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2022:
2023: FND_MSG_PUB.Add_Exc_Msg(
2024: p_pkg_name => G_PKG_NAME,
2025: p_procedure_name => l_api_name);
2019:
2020: IF FND_MSG_PUB.Check_Msg_Level(
2021: p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2022:
2023: FND_MSG_PUB.Add_Exc_Msg(
2024: p_pkg_name => G_PKG_NAME,
2025: p_procedure_name => l_api_name);
2026:
2027: END IF;
2025: p_procedure_name => l_api_name);
2026:
2027: END IF;
2028:
2029: FND_MSG_PUB.Count_And_Get(
2030: p_count => x_msg_count,
2031: p_data => x_msg_data);
2032:
2033: END delete_txn_party_dtls;
2063: SAVEPOINT delete_txn_pty_acct_dtls;
2064:
2065: -- Initialize message list if p_init_msg_list is set to TRUE.
2066: IF fnd_api.to_Boolean( p_init_msg_list ) THEN
2067: FND_MSG_PUB.initialize;
2068: END IF;
2069:
2070: -- Initialize API return status to success
2071: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2111: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2112:
2113: FND_MESSAGE.set_name('CSI','CSI_TXN_PARTY_ACCT_ID_INVALID');
2114: FND_MESSAGE.set_token('PTY_ACCT_ID',l_acct_dtl_id);
2115: FND_MSG_PUB.add;
2116: RAISE fnd_api.g_exc_error;
2117:
2118: END IF;
2119:
2136: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2137:
2138: FND_MESSAGE.set_name('CSI','CSI_TXN_PARTY_DTL_ID_INVALID');
2139: FND_MESSAGE.set_token('PTY_DTL_ID',l_pty_dtl_id);
2140: FND_MSG_PUB.add;
2141: RAISE fnd_api.g_exc_error;
2142:
2143: END IF;
2144:
2164: COMMIT WORK;
2165: END IF;
2166:
2167: -- Standard call to get message count and if count is get message info.
2168: FND_MSG_PUB.Count_And_Get(
2169: p_count => x_msg_count,
2170: p_data => x_msg_data);
2171:
2172: EXCEPTION
2173: WHEN fnd_api.G_EXC_ERROR THEN
2174:
2175: ROLLBACK TO delete_txn_pty_acct_dtls;
2176: x_return_status := fnd_api.G_RET_STS_ERROR ;
2177: FND_MSG_PUB.Count_And_Get (
2178: p_count => x_msg_count,
2179: p_data => x_msg_data);
2180:
2181: WHEN fnd_api.G_EXC_UNEXPECTED_ERROR THEN
2182:
2183: ROLLBACK TO delete_txn_pty_acct_dtls;
2184: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR ;
2185:
2186: FND_MSG_PUB.Count_And_Get(
2187: p_count => x_msg_count,
2188: p_data => x_msg_data);
2189:
2190: WHEN OTHERS THEN
2191:
2192: ROLLBACK TO delete_txn_pty_acct_dtls;
2193: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR ;
2194:
2195: IF FND_MSG_PUB.Check_Msg_Level(
2196: p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2197:
2198: FND_MSG_PUB.Add_Exc_Msg(
2199: p_pkg_name => G_PKG_NAME,
2192: ROLLBACK TO delete_txn_pty_acct_dtls;
2193: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR ;
2194:
2195: IF FND_MSG_PUB.Check_Msg_Level(
2196: p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2197:
2198: FND_MSG_PUB.Add_Exc_Msg(
2199: p_pkg_name => G_PKG_NAME,
2200: p_procedure_name => l_api_name);
2194:
2195: IF FND_MSG_PUB.Check_Msg_Level(
2196: p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2197:
2198: FND_MSG_PUB.Add_Exc_Msg(
2199: p_pkg_name => G_PKG_NAME,
2200: p_procedure_name => l_api_name);
2201:
2202: END IF;
2200: p_procedure_name => l_api_name);
2201:
2202: END IF;
2203:
2204: FND_MSG_PUB.Count_And_Get(
2205: p_count => x_msg_count,
2206: p_data => x_msg_data);
2207:
2208: END delete_txn_pty_acct_dtls;
2490: x_return_status := fnd_api.g_ret_sts_unexp_error;
2491:
2492: fnd_message.set_name('FND', 'FND_GENERIC_MESSAGE');
2493: fnd_message.set_token('MESSAGE',substr(sqlerrm, 1, 255));
2494: fnd_msg_pub.add;
2495:
2496: IF dbms_sql.is_open(l_pty_cur_id) THEN
2497: dbms_sql.close_cursor(l_pty_cur_id);
2498: END IF;