1 PACKAGE BODY AHL_WARRANTY_GRP AS
2 /* $Header: AHLGSWCB.pls 120.0 2011/01/27 11:17:05 aukirade noship $ */
3 /*
4 * This Group package spec provides the APIs which may be invoked by other products
5 * such as Depot Repair
6 */
7
8 G_PKG_NAME CONSTANT VARCHAR2(30) := 'AHL_WARRANTY_GRP';
9 G_APP_NAME CONSTANT VARCHAR2(3) := 'AHL';
10 G_LOG_PREFIX CONSTANT VARCHAR2(60) := 'ahl.plsql.'||G_PKG_NAME||'.';
11
12 ------------------------------------------------------------------------------------
13 -- Start of Comments
14 -- Function name : IS_INSTANCE_WARRANTY_AVAILABLE
15 -- Type : Public
16 -- Function : Function to check if a given instance has at least one 'ACTIVE'
17 -- contract available or not. Returns 'Y' or 'N'.
18 -- Pre-reqs :
19 -- Parameters :
20 --
21 -- IS_INSTANCE_WARRANTY_AVAILABLE Parameters:
22 -- p_warranty_instance_id IN NUMBER Required : Warranty instance id
23 --
24 -- End of Comments
25
26 FUNCTION IS_INSTANCE_WARRANTY_AVAILABLE (
27 p_warranty_instance_id IN NUMBER
28 ) RETURN VARCHAR2 IS
29
30 --
31 l_ret_val VARCHAR2(1) := 'N';
32 l_api_name CONSTANT VARCHAR2(30) := 'is_instance_warranty_available';
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
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;
51 END IS_INSTANCE_WARRANTY_AVAILABLE;
52
53 END AHL_WARRANTY_GRP;