33: l_debug_key CONSTANT VARCHAR2(150) := G_LOG_PREFIX || l_api_name;
34: --
35:
36: BEGIN
37: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
38: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_debug_key || '.begin',
39: ' p_warranty_instance_id = ' || p_warranty_instance_id);
40: END IF;
41:
34: --
35:
36: BEGIN
37: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
38: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_debug_key || '.begin',
39: ' p_warranty_instance_id = ' || p_warranty_instance_id);
40: END IF;
41:
42: -- Calling private function
41:
42: -- Calling private function
43: l_ret_val := AHL_WARRANTY_CONTRACTS_PVT.Is_Instance_Warranty_Available(p_warranty_instance_id);
44:
45: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
46: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_debug_key || '.end',
47: ' return value = ' || l_ret_val);
48: END IF;
49:
42: -- Calling private function
43: l_ret_val := AHL_WARRANTY_CONTRACTS_PVT.Is_Instance_Warranty_Available(p_warranty_instance_id);
44:
45: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
46: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_debug_key || '.end',
47: ' return value = ' || l_ret_val);
48: END IF;
49:
50: RETURN l_ret_val;