PACKAGE BODY: APPS.OKC_QA_CHECK_PUB

Source

1 PACKAGE BODY OKC_QA_CHECK_PUB AS
2 /* $Header: OKCPQACB.pls 120.0 2005/05/25 18:27:25 appldev noship $ */
3 	l_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
4 
5   PROCEDURE execute_qa_check_list(
6     p_api_version                  IN  NUMBER,
7     p_init_msg_list                IN  VARCHAR2 ,
8     x_return_status                OUT NOCOPY VARCHAR2,
9     x_msg_count                    OUT NOCOPY NUMBER,
10     x_msg_data                     OUT NOCOPY VARCHAR2,
11     p_qcl_id                       IN  NUMBER,
12     p_chr_id                       IN  NUMBER,
13     p_override_flag                IN  VARCHAR2 ,
14     x_msg_tbl                      OUT NOCOPY msg_tbl_type)
15   IS
16     l_return_status                VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
17     l_api_name                     CONSTANT VARCHAR2(30) := 'execute_qa_check_list';
18   BEGIN
19     l_return_status := OKC_API.START_ACTIVITY(l_api_name,
20                                               p_init_msg_list,
21                                               '_PUB',
22                                               x_return_status);
23     IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
24       raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
25     ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
26       raise OKC_API.G_EXCEPTION_ERROR;
27     END IF;
28     -- Call user hook for BEFORE
29 --    g_qclv_rec := p_qclv_rec;
30     okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
31     IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
32       raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
33     ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
34       raise OKC_API.G_EXCEPTION_ERROR;
35     END IF;
36 
37     OKC_QA_CHECK_PVT.execute_qa_check_list(
38       p_api_version              => p_api_version,
39       p_init_msg_list            => p_init_msg_list,
40       x_return_status            => x_return_status,
41       x_msg_count                => x_msg_count,
42       x_msg_data                 => x_msg_data,
43       p_qcl_id                   => p_qcl_id,
44       p_chr_id                   => p_chr_id,
45 	 p_override_flag            => p_override_flag,
46       x_msg_tbl                  => x_msg_tbl);
47 
48      IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
49        raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
50      ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
51        raise OKC_API.G_EXCEPTION_ERROR;
52      END IF;
53 
54      -- Call user hook for AFTER
55 --     g_qclv_rec := x_qclv_rec;
56      okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
57      IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
58        raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
59      ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
60        raise OKC_API.G_EXCEPTION_ERROR;
61      END IF;
62      OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
63   EXCEPTION
64   WHEN OKC_API.G_EXCEPTION_ERROR THEN
65     x_return_status := OKC_API.HANDLE_EXCEPTIONS
66       (l_api_name
67       ,G_PKG_NAME
68       ,'OKC_API.G_RET_STS_ERROR'
69       ,x_msg_count
70       ,x_msg_data
71       ,'_PUB');
72   WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
73     x_return_status :=OKC_API.HANDLE_EXCEPTIONS
74       (l_api_name
75       ,G_PKG_NAME
76       ,'OKC_API.G_RET_STS_UNEXP_ERROR'
77       ,x_msg_count
78       ,x_msg_data
79       ,'_PUB');
80   WHEN OTHERS THEN
81     x_return_status :=OKC_API.HANDLE_EXCEPTIONS
82       (l_api_name
83       ,G_PKG_NAME
84       ,'OTHERS'
85       ,x_msg_count
86       ,x_msg_data
87       ,'_PUB');
88   END execute_qa_check_list;
89 
90 
91 END OKC_QA_CHECK_PUB;