[Home] [Help]
PACKAGE BODY: APPS.OKL_AM_SYSTEM_PARAMS_PUB
Source
1 PACKAGE BODY OKL_AM_SYSTEM_PARAMS_PUB AS
2 /* $Header: OKLPASAB.pls 115.0 2003/10/17 21:20:13 rmunjulu noship $ */
3
4 -- Start of comments
5 --
6 -- Procedure Name : process_system_params
7 -- Description : procedure to create or update rec in OKL_SYSTEM_PARAMS_ALL_V
8 -- Business Rules :
9 -- Parameters :
10 -- Version : 1.0
11 -- History : RMUNJULU Created
12 --
13 -- End of comments
14 PROCEDURE process_system_params(
15 p_api_version IN NUMBER,
16 p_init_msg_list IN VARCHAR2,
17 x_return_status OUT NOCOPY VARCHAR2,
18 x_msg_count OUT NOCOPY NUMBER,
19 x_msg_data OUT NOCOPY VARCHAR2,
20 p_sypv_rec IN sypv_rec_type,
21 x_sypv_rec OUT NOCOPY sypv_rec_type) IS
22
23 l_api_name VARCHAR2(30) := 'process_system_params';
24 l_api_version CONSTANT NUMBER := G_API_VERSION;
25 l_return_status VARCHAR2(1) := G_RET_STS_SUCCESS;
26
27 BEGIN
28
29 IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
30 FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
31 'OKL_AM_SYSTEM_PARAMS_PUB.process_system_params',
32 'Begin(+)');
33 END IF;
34
35 -- Check API version, initialize message list and create savepoint
36 l_return_status := OKL_API.start_activity(
37 p_api_name => l_api_name,
38 p_pkg_name => G_PKG_NAME,
39 p_init_msg_list => p_init_msg_list,
40 l_api_version => l_api_version,
41 p_api_version => p_api_version,
42 p_api_type => '_PVT',
43 x_return_status => x_return_status);
44
45 -- Rollback if error setting activity for api
46 IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
47 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
48 ELSIF (l_return_status = G_RET_STS_ERROR) THEN
49 RAISE G_EXCEPTION_ERROR;
50 END IF;
51
52 -- Call PVT Process
53 OKL_AM_SYSTEM_PARAMS_PVT.process_system_params(
54 p_api_version => p_api_version,
55 p_init_msg_list => G_FALSE,
56 x_return_status => l_return_status,
57 x_msg_count => x_msg_count,
58 x_msg_data => x_msg_data,
59 p_sypv_rec => p_sypv_rec,
60 x_sypv_rec => x_sypv_rec);
61
62 -- raise exception if api returns error
63 IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
64 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
65 ELSIF (l_return_status = G_RET_STS_ERROR) THEN
66 RAISE G_EXCEPTION_ERROR;
67 END IF;
68
69 x_return_status := l_return_status;
70
71 -- End Activity
72 OKL_API.end_activity (x_msg_count, x_msg_data);
73
74 IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
75 FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
76 'OKL_AM_SYSTEM_PARAMS_PUB.process_system_params',
77 'End(-)');
78 END IF;
79
80 EXCEPTION
81
82 WHEN G_EXCEPTION_ERROR THEN
83
84 x_return_status := OKL_API.handle_exceptions(
85 p_api_name => l_api_name,
86 p_pkg_name => G_PKG_NAME,
87 p_exc_name => 'OKL_API.G_RET_STS_ERROR',
88 x_msg_count => x_msg_count,
89 x_msg_data => x_msg_data,
90 p_api_type => '_PVT');
91
92 IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
93 FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
94 'OKL_AM_SYSTEM_PARAMS_PUB.process_system_params',
95 'EXP - G_EXCEPTION_ERROR');
96 END IF;
97
98 WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
99
100 x_return_status := OKL_API.handle_exceptions(
101 p_api_name => l_api_name,
102 p_pkg_name => G_PKG_NAME,
103 p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
104 x_msg_count => x_msg_count,
105 x_msg_data => x_msg_data,
106 p_api_type => '_PVT');
107
108 IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
109 FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
110 'OKL_AM_SYSTEM_PARAMS_PUB.process_system_params',
111 'EXP - G_EXCEPTION_UNEXPECTED_ERROR');
112 END IF;
113
114 WHEN OTHERS THEN
115
116 x_return_status := OKL_API.handle_exceptions(
117 p_api_name => l_api_name,
118 p_pkg_name => G_PKG_NAME,
119 p_exc_name => 'OTHERS',
120 x_msg_count => x_msg_count,
121 x_msg_data => x_msg_data,
122 p_api_type => '_PVT');
123
124 IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
125 FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
126 'OKL_AM_SYSTEM_PARAMS_PUB.process_system_params',
127 'EXP - OTHERS');
128 END IF;
129 END process_system_params;
130
131 END OKL_AM_SYSTEM_PARAMS_PUB;