PACKAGE BODY: APPS.OKL_OA_DATA_INTEGRITY

Source

1 PACKAGE BODY OKL_OA_DATA_INTEGRITY AS
2 /* $Header: OKLROAQB.pls 120.0 2005/09/15 18:23:08 manumanu noship $ */
3 
4 
5   -- Start of comments
6   --
7   -- Procedure Name  : check_functional_constraints
8   -- Description     :
9   -- Business Rules  :
10   -- Parameters      :
11   -- Version         : 1.0
12   -- End of comments
13 
14   PROCEDURE check_functional_constraints(
15     x_return_status            OUT NOCOPY VARCHAR2,
16     p_chr_id                   IN  NUMBER
17   ) IS
18 
19     l_return_status	VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
20     l_dummy VARCHAR2(1) := '?';
21     l_count NUMBER := 0;
22     l_row_notfound BOOLEAN;
23     l_token VARCHAR2(2000);
24 
25     p_api_version     NUMBER;
26     p_init_msg_list   VARCHAR2(256) DEFAULT OKC_API.G_FALSE;
27     x_msg_count       NUMBER;
28     x_msg_data        VARCHAR2(256);
29 
30     l_exists  VARCHAR2(1);
31 
32 
33   BEGIN
34 
35     -- initialize return status
36     x_return_status := OKL_API.G_RET_STS_SUCCESS;
37 
38     IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
39       OKL_API.set_message(
40         p_app_name      => G_APP_NAME,
41         p_msg_name      => G_QA_SUCCESS);
42     END IF;
43 
44 
45   EXCEPTION
46 
47   WHEN G_EXCEPTION_HALT_VALIDATION THEN
48     -- no processing necessary; validation can continue with next column
49   NULL;
50 
51   WHEN OTHERS THEN
52     -- store SQL error message on message stack
53     OKL_API.SET_MESSAGE(
54       p_app_name        => G_APP_NAME,
55       p_msg_name        => G_UNEXPECTED_ERROR,
56       p_token1	        => G_SQLCODE_TOKEN,
57       p_token1_value    => SQLCODE,
58       p_token2          => G_SQLERRM_TOKEN,
59       p_token2_value    => SQLERRM);
60     -- notify caller of an error as UNEXPETED error
61     x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
62     -- verify that cursor was closed
63 
64   END check_functional_constraints;
65 
66 
67 END OKL_OA_DATA_INTEGRITY;