[Home] [Help]
1: PACKAGE BODY AHL_VWP_VISITS_PVT AS
2: /* $Header: AHLVVSTB.pls 120.20 2008/02/14 19:28:24 jaramana ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AHL_VWP_VISITS_PVT';
5: G_DEBUG VARCHAR2(1) := AHL_DEBUG_PUB.is_log_enabled;
1: PACKAGE BODY AHL_VWP_VISITS_PVT AS
2: /* $Header: AHLVVSTB.pls 120.20 2008/02/14 19:28:24 jaramana ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AHL_VWP_VISITS_PVT';
5: G_DEBUG VARCHAR2(1) := AHL_DEBUG_PUB.is_log_enabled;
6:
7: ------------------------------------
8: -- Common constants and variables --
897: ROLLBACK TO Process_Visit;
898: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
899: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
900: THEN
901: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_VWP_VISITS_PVT',
902: p_procedure_name => 'Process_Visit',
903: p_error_text => SUBSTR(SQLERRM,1,240));
904: END IF;
905: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
5989: IF (l_log_procedure >= l_log_current_level) THEN
5990: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PL SQL procedure');
5991: END IF;
5992: END check_unit_quarantined;
5993: END AHL_VWP_VISITS_PVT;