[Home] [Help]
PACKAGE BODY: APPS.OKL_OVERRIDE_TAX_BASIS_PUB
Source
1 PACKAGE BODY OKL_OVERRIDE_TAX_BASIS_PUB AS
2 /* $Header: OKLPOTBB.pls 120.0 2005/08/26 21:57:57 sechawla noship $ */
3
4 -- Start of comments
5 --
6 -- Procedure Name : override_tax_basis
7 -- Description : procedure to create or update rec in OKL_TAX_BASIS_OVERRIDE
8 -- Business Rules :
9 -- Parameters :
10 -- Version : 1.0
11 -- History : SECHAWLA - Created
12 --
13 -- End of comments
14 PROCEDURE override_tax_basis(
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_tbov_rec IN tbov_rec_type,
21 x_tbov_rec OUT NOCOPY tbov_rec_type) IS
22
23 l_api_name VARCHAR2(30) := 'override_tax_basis';
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_OVERRIDE_TAX_BASIS_PUB.override_tax_basis',
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_OVERRIDE_TAX_BASIS_PVT.override_tax_basis(
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_tbov_rec => p_tbov_rec,
60 x_tbov_rec => x_tbov_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_OVERRIDE_TAX_BASIS_PUB.override_tax_basis',
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_OVERRIDE_TAX_BASIS_PUB.override_tax_basis',
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_OVERRIDE_TAX_BASIS_PUB.override_tax_basis',
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_OVERRIDE_TAX_BASIS_PUB.override_tax_basis',
127 'EXP - OTHERS');
128 END IF;
129 END override_tax_basis;
130
131 -- Start of comments
132 --
133 -- Procedure Name : override_tax_basis
134 -- Description : procedure to create or update rec in OKL_TAX_BASIS_OVERRIDE
135 -- Business Rules :
136 -- Parameters :
137 -- Version : 1.0
138 -- History : SMODUGA - Created
139 --
140 -- End of comments
141 PROCEDURE override_tax_basis(
142 p_api_version IN NUMBER,
143 p_init_msg_list IN VARCHAR2,
144 x_return_status OUT NOCOPY VARCHAR2,
145 x_msg_count OUT NOCOPY NUMBER,
146 x_msg_data OUT NOCOPY VARCHAR2,
147 p_tbov_tbl IN tbov_tbl_type,
148 x_tbov_tbl OUT NOCOPY tbov_tbl_type) IS
149
150 l_api_name VARCHAR2(30) := 'override_tax_basis';
151 l_api_version CONSTANT NUMBER := G_API_VERSION;
152 l_return_status VARCHAR2(1) := G_RET_STS_SUCCESS;
153
154 BEGIN
155
156 IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
157 FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
158 'OKL_OVERRIDE_TAX_BASIS_PUB.override_tax_basis',
159 'Begin(+)');
160 END IF;
161
162 -- Check API version, initialize message list and create savepoint
163 l_return_status := OKL_API.start_activity(
164 p_api_name => l_api_name,
165 p_pkg_name => G_PKG_NAME,
166 p_init_msg_list => p_init_msg_list,
167 l_api_version => l_api_version,
168 p_api_version => p_api_version,
169 p_api_type => '_PVT',
170 x_return_status => x_return_status);
171
172 -- Rollback if error setting activity for api
173 IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
174 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
175 ELSIF (l_return_status = G_RET_STS_ERROR) THEN
176 RAISE G_EXCEPTION_ERROR;
177 END IF;
178
179 -- Call PVT Process
180 OKL_OVERRIDE_TAX_BASIS_PVT.override_tax_basis(
181 p_api_version => p_api_version,
182 p_init_msg_list => G_FALSE,
183 x_return_status => l_return_status,
184 x_msg_count => x_msg_count,
185 x_msg_data => x_msg_data,
186 p_tbov_tbl => p_tbov_tbl,
187 x_tbov_tbl => x_tbov_tbl);
188
189 -- raise exception if api returns error
190 IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
191 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
192 ELSIF (l_return_status = G_RET_STS_ERROR) THEN
193 RAISE G_EXCEPTION_ERROR;
194 END IF;
195
196 x_return_status := l_return_status;
197
198 -- End Activity
199 OKL_API.end_activity (x_msg_count, x_msg_data);
200
201 IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
202 FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
203 'OKL_OVERRIDE_TAX_BASIS_PUB.override_tax_basis',
204 'End(-)');
205 END IF;
206
207 EXCEPTION
208
209 WHEN G_EXCEPTION_ERROR THEN
210
211 x_return_status := OKL_API.handle_exceptions(
212 p_api_name => l_api_name,
213 p_pkg_name => G_PKG_NAME,
214 p_exc_name => 'OKL_API.G_RET_STS_ERROR',
215 x_msg_count => x_msg_count,
216 x_msg_data => x_msg_data,
217 p_api_type => '_PVT');
218
219 IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
220 FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
221 'OKL_OVERRIDE_TAX_BASIS_PUB.override_tax_basis',
222 'EXP - G_EXCEPTION_ERROR');
223 END IF;
224
225 WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
226
227 x_return_status := OKL_API.handle_exceptions(
228 p_api_name => l_api_name,
229 p_pkg_name => G_PKG_NAME,
230 p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
231 x_msg_count => x_msg_count,
232 x_msg_data => x_msg_data,
233 p_api_type => '_PVT');
234
235 IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
236 FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
237 'OKL_OVERRIDE_TAX_BASIS_PUB.override_tax_basis',
238 'EXP - G_EXCEPTION_UNEXPECTED_ERROR');
239 END IF;
240
241 WHEN OTHERS THEN
242
243 x_return_status := OKL_API.handle_exceptions(
244 p_api_name => l_api_name,
245 p_pkg_name => G_PKG_NAME,
246 p_exc_name => 'OTHERS',
247 x_msg_count => x_msg_count,
248 x_msg_data => x_msg_data,
249 p_api_type => '_PVT');
250
251 IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
252 FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
253 'OKL_OVERRIDE_TAX_BASIS_PUB.override_tax_basis',
254 'EXP - OTHERS');
255 END IF;
256 END override_tax_basis;
257
258 END OKL_OVERRIDE_TAX_BASIS_PUB;