825:
826: -- Initialize message list if p_init_msg_list is set to TRUE.
827: IF fnd_api.to_boolean (p_init_msg_list)
828: THEN
829: fnd_msg_pub.initialize;
830: END IF;
831:
832: -- Debug Message
833: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_debug_low)
829: fnd_msg_pub.initialize;
830: END IF;
831:
832: -- Debug Message
833: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_debug_low)
834: THEN
835: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
836: fnd_message.set_name ('PROC_NAME', l_api_name);
837: fnd_msg_pub.add;
833: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_debug_low)
834: THEN
835: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
836: fnd_message.set_name ('PROC_NAME', l_api_name);
837: fnd_msg_pub.add;
838: END IF;
839:
840: -- Initialize API return status to success
841: x_return_status := fnd_api.g_ret_sts_success;
918: COMMIT WORK;
919: END IF;
920:
921: -- Debug Message
922: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_debug_low)
923: THEN
924: fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
925: fnd_message.set_name ('PROC_NAME', l_api_name);
926: fnd_msg_pub.add;
922: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_debug_low)
923: THEN
924: fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
925: fnd_message.set_name ('PROC_NAME', l_api_name);
926: fnd_msg_pub.add;
927: END IF;
928:
929: -- Standard call to get message count and if count is 1, get message info.
930: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
926: fnd_msg_pub.add;
927: END IF;
928:
929: -- Standard call to get message count and if count is 1, get message info.
930: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
931: EXCEPTION
932: WHEN fnd_api.g_exc_error
933: THEN
934: ROLLBACK TO create_territory_pub;
932: WHEN fnd_api.g_exc_error
933: THEN
934: ROLLBACK TO create_territory_pub;
935: x_return_status := fnd_api.g_ret_sts_error;
936: fnd_msg_pub.count_and_get (
937: p_count => x_msg_count,
938: p_data => x_msg_data
939: );
940: WHEN fnd_api.g_exc_unexpected_error
940: WHEN fnd_api.g_exc_unexpected_error
941: THEN
942: ROLLBACK TO create_territory_pub;
943: x_return_status := fnd_api.g_ret_sts_unexp_error;
944: fnd_msg_pub.count_and_get (
945: p_count => x_msg_count,
946: p_data => x_msg_data
947: );
948: WHEN OTHERS
949: THEN
950: ROLLBACK TO create_territory_pub;
951: x_return_status := fnd_api.g_ret_sts_unexp_error;
952:
953: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
954: THEN
955: fnd_msg_pub.add_exc_msg (
956: 'Others exception in Create_Territory PUB' || SQLERRM
957: );
951: x_return_status := fnd_api.g_ret_sts_unexp_error;
952:
953: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
954: THEN
955: fnd_msg_pub.add_exc_msg (
956: 'Others exception in Create_Territory PUB' || SQLERRM
957: );
958: END IF;
959:
956: 'Others exception in Create_Territory PUB' || SQLERRM
957: );
958: END IF;
959:
960: fnd_msg_pub.count_and_get (
961: p_count => x_msg_count,
962: p_data => x_msg_data
963: );
964: --
1030:
1031: -- Initialize message list if p_init_msg_list is set to TRUE.
1032: IF fnd_api.to_boolean (p_init_msg_list)
1033: THEN
1034: fnd_msg_pub.initialize;
1035: END IF;
1036:
1037: -- Debug Message
1038: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_debug_low)
1034: fnd_msg_pub.initialize;
1035: END IF;
1036:
1037: -- Debug Message
1038: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_debug_low)
1039: THEN
1040: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
1041: fnd_message.set_name ('PROC_NAME', l_api_name);
1042: fnd_msg_pub.add;
1038: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_debug_low)
1039: THEN
1040: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
1041: fnd_message.set_name ('PROC_NAME', l_api_name);
1042: fnd_msg_pub.add;
1043: END IF;
1044:
1045: -- Initialize API return status to success
1046: x_return_status := fnd_api.g_ret_sts_success;
1073: COMMIT WORK;
1074: END IF;
1075:
1076: -- Debug Message
1077: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_debug_low)
1078: THEN
1079: fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
1080: fnd_message.set_name ('PROC_NAME', l_api_name);
1081: fnd_msg_pub.add;
1077: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_debug_low)
1078: THEN
1079: fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
1080: fnd_message.set_name ('PROC_NAME', l_api_name);
1081: fnd_msg_pub.add;
1082: END IF;
1083:
1084: -- Standard call to get message count and if count is 1, get message info.
1085: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1081: fnd_msg_pub.add;
1082: END IF;
1083:
1084: -- Standard call to get message count and if count is 1, get message info.
1085: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1086: EXCEPTION
1087: WHEN fnd_api.g_exc_error
1088: THEN
1089: ROLLBACK TO delete_territory_pub;
1087: WHEN fnd_api.g_exc_error
1088: THEN
1089: ROLLBACK TO delete_territory_pub;
1090: x_return_status := fnd_api.g_ret_sts_error;
1091: fnd_msg_pub.count_and_get (
1092: p_count => x_msg_count,
1093: p_data => x_msg_data
1094: );
1095: WHEN fnd_api.g_exc_unexpected_error
1095: WHEN fnd_api.g_exc_unexpected_error
1096: THEN
1097: ROLLBACK TO delete_territory_pub;
1098: x_return_status := fnd_api.g_ret_sts_unexp_error;
1099: fnd_msg_pub.count_and_get (
1100: p_count => x_msg_count,
1101: p_data => x_msg_data
1102: );
1103: WHEN OTHERS
1104: THEN
1105: ROLLBACK TO delete_territory_pub;
1106: x_return_status := fnd_api.g_ret_sts_unexp_error;
1107:
1108: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
1109: THEN
1110: fnd_msg_pub.add_exc_msg (
1111: 'Others exception in Delete_Territory PUB' || SQLERRM
1112: );
1106: x_return_status := fnd_api.g_ret_sts_unexp_error;
1107:
1108: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
1109: THEN
1110: fnd_msg_pub.add_exc_msg (
1111: 'Others exception in Delete_Territory PUB' || SQLERRM
1112: );
1113: END IF;
1114:
1111: 'Others exception in Delete_Territory PUB' || SQLERRM
1112: );
1113: END IF;
1114:
1115: fnd_msg_pub.count_and_get (
1116: p_count => x_msg_count,
1117: p_data => x_msg_data
1118: );
1119: --
1220:
1221: -- Initialize message list if p_init_msg_list is set to TRUE.
1222: IF fnd_api.to_boolean (p_init_msg_list)
1223: THEN
1224: fnd_msg_pub.initialize;
1225: END IF;
1226:
1227: -- Debug Message
1228: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_debug_low)
1224: fnd_msg_pub.initialize;
1225: END IF;
1226:
1227: -- Debug Message
1228: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_debug_low)
1229: THEN
1230: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
1231: fnd_message.set_name ('PROC_NAME', l_api_name);
1232: fnd_msg_pub.add;
1228: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_debug_low)
1229: THEN
1230: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
1231: fnd_message.set_name ('PROC_NAME', l_api_name);
1232: fnd_msg_pub.add;
1233: END IF;
1234:
1235: -- Initialize API return status to success
1236: x_return_status := fnd_api.g_ret_sts_success;
1307: RAISE fnd_api.g_exc_error;
1308: END IF;
1309:
1310: -- Debug Message
1311: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_debug_low)
1312: THEN
1313: fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
1314: fnd_message.set_name ('PROC_NAME', l_api_name);
1315: fnd_msg_pub.add;
1311: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_debug_low)
1312: THEN
1313: fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
1314: fnd_message.set_name ('PROC_NAME', l_api_name);
1315: fnd_msg_pub.add;
1316: END IF;
1317:
1318: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1319:
1314: fnd_message.set_name ('PROC_NAME', l_api_name);
1315: fnd_msg_pub.add;
1316: END IF;
1317:
1318: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1319:
1320: -- Standard check for p_commit
1321: IF fnd_api.to_boolean (p_commit)
1322: THEN
1330: THEN
1331: --dbms_output.put_line('Update_Territory PUB: FND_API.G_EXC_ERROR');
1332: ROLLBACK TO update_territory_pub;
1333: x_return_status := fnd_api.g_ret_sts_error;
1334: fnd_msg_pub.count_and_get (
1335: p_count => x_msg_count,
1336: p_data => x_msg_data
1337: );
1338: WHEN fnd_api.g_exc_unexpected_error
1339: THEN
1340: --dbms_output.put_line('Update_Territory PUB: FND_API.G_EXC_UNEXPECTED_ERROR');
1341: ROLLBACK TO update_territory_pub;
1342: x_return_status := fnd_api.g_ret_sts_unexp_error;
1343: fnd_msg_pub.count_and_get (
1344: p_count => x_msg_count,
1345: p_data => x_msg_data
1346: );
1347: WHEN OTHERS
1349: --dbms_output.put_line('Update_Territory PUB: OTHERS - ' || SQLERRM);
1350: ROLLBACK TO update_territory_pub;
1351: x_return_status := fnd_api.g_ret_sts_unexp_error;
1352:
1353: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
1354: THEN
1355: fnd_msg_pub.add_exc_msg (
1356: 'Others exception in Update_Territory PUB' || SQLERRM
1357: );
1351: x_return_status := fnd_api.g_ret_sts_unexp_error;
1352:
1353: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
1354: THEN
1355: fnd_msg_pub.add_exc_msg (
1356: 'Others exception in Update_Territory PUB' || SQLERRM
1357: );
1358: END IF;
1359:
1356: 'Others exception in Update_Territory PUB' || SQLERRM
1357: );
1358: END IF;
1359:
1360: fnd_msg_pub.count_and_get (
1361: p_count => x_msg_count,
1362: p_data => x_msg_data
1363: );
1364: --
1429:
1430: -- Initialize message list if p_init_msg_list is set to TRUE.
1431: IF fnd_api.to_boolean (p_init_msg_list)
1432: THEN
1433: fnd_msg_pub.initialize;
1434: END IF;
1435:
1436: -- Debug Message
1437: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_debug_low)
1433: fnd_msg_pub.initialize;
1434: END IF;
1435:
1436: -- Debug Message
1437: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_debug_low)
1438: THEN
1439: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
1440: fnd_message.set_name ('PROC_NAME', l_api_name);
1441: fnd_msg_pub.add;
1437: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_debug_low)
1438: THEN
1439: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
1440: fnd_message.set_name ('PROC_NAME', l_api_name);
1441: fnd_msg_pub.add;
1442: END IF;
1443:
1444: -- Initialize API return status to success
1445: x_return_status := fnd_api.g_ret_sts_success;
1472: COMMIT WORK;
1473: END IF;
1474:
1475: -- Debug Message
1476: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_debug_low)
1477: THEN
1478: fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
1479: fnd_message.set_name ('PROC_NAME', l_api_name);
1480: fnd_msg_pub.add;
1476: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_debug_low)
1477: THEN
1478: fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
1479: fnd_message.set_name ('PROC_NAME', l_api_name);
1480: fnd_msg_pub.add;
1481: END IF;
1482:
1483: -- Standard call to get message count and if count is 1, get message info.
1484: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1480: fnd_msg_pub.add;
1481: END IF;
1482:
1483: -- Standard call to get message count and if count is 1, get message info.
1484: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1485: EXCEPTION
1486: WHEN fnd_api.g_exc_error
1487: THEN
1488: ROLLBACK TO deactivate_territory_pub;
1486: WHEN fnd_api.g_exc_error
1487: THEN
1488: ROLLBACK TO deactivate_territory_pub;
1489: x_return_status := fnd_api.g_ret_sts_error;
1490: fnd_msg_pub.count_and_get (
1491: p_count => x_msg_count,
1492: p_data => x_msg_data
1493: );
1494: WHEN fnd_api.g_exc_unexpected_error
1494: WHEN fnd_api.g_exc_unexpected_error
1495: THEN
1496: ROLLBACK TO deactivate_territory_pub;
1497: x_return_status := fnd_api.g_ret_sts_unexp_error;
1498: fnd_msg_pub.count_and_get (
1499: p_count => x_msg_count,
1500: p_data => x_msg_data
1501: );
1502: WHEN OTHERS
1503: THEN
1504: ROLLBACK TO deactivate_territory_pub;
1505: x_return_status := fnd_api.g_ret_sts_unexp_error;
1506:
1507: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
1508: THEN
1509: fnd_msg_pub.add_exc_msg (
1510: 'Others exception in Deactivate_Territory PUB' || SQLERRM
1511: );
1505: x_return_status := fnd_api.g_ret_sts_unexp_error;
1506:
1507: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
1508: THEN
1509: fnd_msg_pub.add_exc_msg (
1510: 'Others exception in Deactivate_Territory PUB' || SQLERRM
1511: );
1512: END IF;
1513:
1510: 'Others exception in Deactivate_Territory PUB' || SQLERRM
1511: );
1512: END IF;
1513:
1514: fnd_msg_pub.count_and_get (
1515: p_count => x_msg_count,
1516: p_data => x_msg_data
1517: );
1518: --
1597:
1598: -- Initialize message list if p_init_msg_list is set to TRUE.
1599: IF fnd_api.to_boolean (p_init_msg_list)
1600: THEN
1601: fnd_msg_pub.initialize;
1602: END IF;
1603:
1604: -- Debug Message
1605: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_debug_low)
1601: fnd_msg_pub.initialize;
1602: END IF;
1603:
1604: -- Debug Message
1605: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_debug_low)
1606: THEN
1607: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
1608: fnd_message.set_name ('PROC_NAME', l_api_name);
1609: fnd_msg_pub.add;
1605: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_debug_low)
1606: THEN
1607: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
1608: fnd_message.set_name ('PROC_NAME', l_api_name);
1609: fnd_msg_pub.add;
1610: END IF;
1611:
1612: -- Initialize API return status to success
1613: x_return_status := fnd_api.g_ret_sts_success;
1664: COMMIT WORK;
1665: END IF;
1666:
1667: -- Debug Message
1668: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_debug_low)
1669: THEN
1670: fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
1671: fnd_message.set_name ('PROC_NAME', l_api_name);
1672: fnd_msg_pub.add;
1668: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_debug_low)
1669: THEN
1670: fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
1671: fnd_message.set_name ('PROC_NAME', l_api_name);
1672: fnd_msg_pub.add;
1673: END IF;
1674:
1675: -- Standard call to get message count and if count is 1, get message info.
1676: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1672: fnd_msg_pub.add;
1673: END IF;
1674:
1675: -- Standard call to get message count and if count is 1, get message info.
1676: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1677: EXCEPTION
1678: WHEN fnd_api.g_exc_error
1679: THEN
1680: ROLLBACK TO create_terrresource_pub;
1678: WHEN fnd_api.g_exc_error
1679: THEN
1680: ROLLBACK TO create_terrresource_pub;
1681: x_return_status := fnd_api.g_ret_sts_error;
1682: fnd_msg_pub.count_and_get (
1683: p_count => x_msg_count,
1684: p_data => x_msg_data
1685: );
1686:
1687: WHEN fnd_api.g_exc_unexpected_error
1688: THEN
1689: ROLLBACK TO create_terrresource_pub;
1690: x_return_status := fnd_api.g_ret_sts_unexp_error;
1691: fnd_msg_pub.count_and_get (
1692: p_count => x_msg_count,
1693: p_data => x_msg_data
1694: );
1695:
1697: THEN
1698: ROLLBACK TO create_terrresource_pub;
1699: x_return_status := fnd_api.g_ret_sts_unexp_error;
1700:
1701: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
1702: THEN
1703: fnd_msg_pub.add_exc_msg (
1704: 'Others exception in Create_TerrResource PUB' || SQLERRM
1705: );
1699: x_return_status := fnd_api.g_ret_sts_unexp_error;
1700:
1701: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
1702: THEN
1703: fnd_msg_pub.add_exc_msg (
1704: 'Others exception in Create_TerrResource PUB' || SQLERRM
1705: );
1706: END IF;
1707:
1704: 'Others exception in Create_TerrResource PUB' || SQLERRM
1705: );
1706: END IF;
1707:
1708: fnd_msg_pub.count_and_get (
1709: p_count => x_msg_count,
1710: p_data => x_msg_data
1711: );
1712: --
1778:
1779: -- Initialize message list if p_init_msg_list is set to TRUE.
1780: IF fnd_api.to_boolean (p_init_msg_list)
1781: THEN
1782: fnd_msg_pub.initialize;
1783: END IF;
1784:
1785: -- Debug Message
1786: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_debug_low)
1782: fnd_msg_pub.initialize;
1783: END IF;
1784:
1785: -- Debug Message
1786: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_debug_low)
1787: THEN
1788: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
1789: fnd_message.set_name ('PROC_NAME', l_api_name);
1790: fnd_msg_pub.add;
1786: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_debug_low)
1787: THEN
1788: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
1789: fnd_message.set_name ('PROC_NAME', l_api_name);
1790: fnd_msg_pub.add;
1791: END IF;
1792:
1793: -- Initialize API return status to success
1794: x_return_status := fnd_api.g_ret_sts_success;
1822: COMMIT WORK;
1823: END IF;
1824:
1825: -- Debug Message
1826: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_debug_low)
1827: THEN
1828: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
1829: fnd_message.set_name ('PROC_NAME', l_api_name);
1830: fnd_msg_pub.add;
1826: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_debug_low)
1827: THEN
1828: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
1829: fnd_message.set_name ('PROC_NAME', l_api_name);
1830: fnd_msg_pub.add;
1831: END IF;
1832:
1833: -- Standard call to get message count and if count is 1, get message info.
1834: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1830: fnd_msg_pub.add;
1831: END IF;
1832:
1833: -- Standard call to get message count and if count is 1, get message info.
1834: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1835: EXCEPTION
1836: WHEN fnd_api.g_exc_error
1837: THEN
1838: ROLLBACK TO delete_terrresource_pub;
1836: WHEN fnd_api.g_exc_error
1837: THEN
1838: ROLLBACK TO delete_terrresource_pub;
1839: x_return_status := fnd_api.g_ret_sts_error;
1840: fnd_msg_pub.count_and_get (
1841: p_count => x_msg_count,
1842: p_data => x_msg_data
1843: );
1844: WHEN fnd_api.g_exc_unexpected_error
1844: WHEN fnd_api.g_exc_unexpected_error
1845: THEN
1846: ROLLBACK TO delete_terrresource_pub;
1847: x_return_status := fnd_api.g_ret_sts_unexp_error;
1848: fnd_msg_pub.count_and_get (
1849: p_count => x_msg_count,
1850: p_data => x_msg_data
1851: );
1852: WHEN OTHERS
1853: THEN
1854: ROLLBACK TO delete_terrresource_pub;
1855: x_return_status := fnd_api.g_ret_sts_unexp_error;
1856:
1857: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
1858: THEN
1859: fnd_msg_pub.add_exc_msg (
1860: 'Others exception in Delete_TerrResource PUB' || SQLERRM
1861: );
1855: x_return_status := fnd_api.g_ret_sts_unexp_error;
1856:
1857: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
1858: THEN
1859: fnd_msg_pub.add_exc_msg (
1860: 'Others exception in Delete_TerrResource PUB' || SQLERRM
1861: );
1862: END IF;
1863:
1860: 'Others exception in Delete_TerrResource PUB' || SQLERRM
1861: );
1862: END IF;
1863:
1864: fnd_msg_pub.count_and_get (
1865: p_count => x_msg_count,
1866: p_data => x_msg_data
1867: );
1868: --
1947:
1948: -- Initialize message list if p_init_msg_list is set to TRUE.
1949: IF fnd_api.to_boolean (p_init_msg_list)
1950: THEN
1951: fnd_msg_pub.initialize;
1952: END IF;
1953:
1954: -- Debug Message
1955: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_debug_low)
1951: fnd_msg_pub.initialize;
1952: END IF;
1953:
1954: -- Debug Message
1955: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_debug_low)
1956: THEN
1957: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
1958: fnd_message.set_name ('PROC_NAME', l_api_name);
1959: fnd_msg_pub.add;
1955: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_debug_low)
1956: THEN
1957: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
1958: fnd_message.set_name ('PROC_NAME', l_api_name);
1959: fnd_msg_pub.add;
1960: END IF;
1961:
1962: -- Initialize API return status to success
1963: x_return_status := fnd_api.g_ret_sts_success;
2002: RAISE fnd_api.g_exc_error;
2003: END IF;
2004:
2005: -- Debug Message
2006: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_debug_low)
2007: THEN
2008: fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
2009: fnd_message.set_name ('PROC_NAME', l_api_name);
2010: fnd_msg_pub.add;
2006: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_debug_low)
2007: THEN
2008: fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
2009: fnd_message.set_name ('PROC_NAME', l_api_name);
2010: fnd_msg_pub.add;
2011: END IF;
2012:
2013: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
2014:
2009: fnd_message.set_name ('PROC_NAME', l_api_name);
2010: fnd_msg_pub.add;
2011: END IF;
2012:
2013: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
2014:
2015: -- Standard check for p_commit
2016: IF fnd_api.to_boolean (p_commit)
2017: THEN
2023: WHEN fnd_api.g_exc_error
2024: THEN
2025: ROLLBACK TO update_terrresource_pub;
2026: x_return_status := fnd_api.g_ret_sts_error;
2027: fnd_msg_pub.count_and_get (
2028: p_count => x_msg_count,
2029: p_data => x_msg_data
2030: );
2031: WHEN fnd_api.g_exc_unexpected_error
2031: WHEN fnd_api.g_exc_unexpected_error
2032: THEN
2033: ROLLBACK TO update_terrresource_pub;
2034: x_return_status := fnd_api.g_ret_sts_unexp_error;
2035: fnd_msg_pub.count_and_get (
2036: p_count => x_msg_count,
2037: p_data => x_msg_data
2038: );
2039:
2041: THEN
2042: ROLLBACK TO update_terrresource_pub;
2043: x_return_status := fnd_api.g_ret_sts_unexp_error;
2044:
2045: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
2046: THEN
2047: fnd_msg_pub.add_exc_msg (
2048: 'Others exception in Update_TerrResource PUB' || SQLERRM
2049: );
2043: x_return_status := fnd_api.g_ret_sts_unexp_error;
2044:
2045: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
2046: THEN
2047: fnd_msg_pub.add_exc_msg (
2048: 'Others exception in Update_TerrResource PUB' || SQLERRM
2049: );
2050:
2051: END IF;
2048: 'Others exception in Update_TerrResource PUB' || SQLERRM
2049: );
2050:
2051: END IF;
2052: fnd_msg_pub.count_and_get (
2053: p_count => x_msg_count,
2054: p_data => x_msg_data
2055: );
2056: --