533: END IF;
534: ROLLBACK TO Purge_Expired_List_Header;
535: x_return_status := FND_API.g_ret_sts_unexp_error;
536: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
537: FND_MESSAGE.set_name ('AMS', 'AMS_IMP_ERR_PURGE');
538: FND_MSG_PUB.add;
539: END IF;
540:
541: END Purge_Expired_List_Headers;
768: END IF;
769: ROLLBACK TO Purge_Purged_Target;
770: x_return_status := FND_API.g_ret_sts_unexp_error;
771: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
772: FND_MESSAGE.set_name ('AMS', 'AMS_IMP_ERR_PURGE');
773: FND_MSG_PUB.add;
774: END IF;
775:
776: END Purge_Purged_Target;