[Home] [Help]
PACKAGE BODY: APPS.OKL_PROCESS_PROVISIONS_PUB
Source
1 PACKAGE BODY OKL_PROCESS_PROVISIONS_PUB AS
2 /* $Header: OKLPPRVB.pls 115.4 2002/12/18 12:29:25 kjinger noship $ */
3
4 PROCEDURE create_provisions(
5 p_api_version IN NUMBER,
6 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
7 x_return_status OUT NOCOPY VARCHAR2,
8 x_msg_count OUT NOCOPY NUMBER,
9 x_msg_data OUT NOCOPY VARCHAR2,
10 p_pvnv_rec IN pvnv_rec_type,
11 x_pvnv_rec OUT NOCOPY pvnv_rec_type)
12
13 IS
14 l_api_version CONSTANT NUMBER := 1.0;
15 l_api_name CONSTANT VARCHAR2(30) := 'CREATE_PROVISIONS';
16 l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
17 l_pvnv_rec pvnv_rec_type := p_pvnv_rec;
18
19 BEGIN
20 SAVEPOINT insert_provisions;
21
22 x_return_status := FND_API.G_RET_STS_SUCCESS;
23
24 -- customer pre-processing
25
26
27
28 -- CALL THE MAIN PROCEDURE
29 OKL_PROCESS_PROVISIONS_PVT.CREATE_PROVISIONS(p_api_version => l_api_version,
30 p_init_msg_list => p_init_msg_list,
31 x_return_status => x_return_Status,
32 x_msg_count => x_msg_count,
33 x_msg_data => x_msg_data,
34 p_pvnv_rec => p_pvnv_rec,
35 x_pvnv_rec => x_pvnv_rec);
36
37 IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
38 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
39 ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
40 RAISE OKL_API.G_EXCEPTION_ERROR;
41 END IF;
42
43 -- customer post-processing
44
45
46 EXCEPTION
47
48 WHEN FND_API.G_EXC_ERROR THEN
49 ROLLBACK TO insert_provisions;
50 x_return_status := FND_API.G_RET_STS_ERROR;
51
52 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
53 ,p_count => x_msg_count
54 ,p_data => x_msg_data);
55
56 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
57 ROLLBACK TO insert_provisions;
58 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
59 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
60 ,p_count => x_msg_count
61 ,p_data => x_msg_data);
62
63 WHEN OTHERS THEN
64
65 FND_MSG_PUB.ADD_EXC_MSG('OKL_PROCESS_PROVISIONS_PUB','CREATE_PROVISIONS');
66 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
67 ,p_count => x_msg_count
68 ,p_data => x_msg_data);
69 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
70
71 END create_provisions;
72
73
74 PROCEDURE create_provisions(
75 p_api_version IN NUMBER,
76 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
77 x_return_status OUT NOCOPY VARCHAR2,
78 x_msg_count OUT NOCOPY NUMBER,
79 x_msg_data OUT NOCOPY VARCHAR2,
80 p_pvnv_tbl IN pvnv_tbl_type,
81 x_pvnv_tbl OUT NOCOPY pvnv_tbl_type)
82
83 IS
84 l_api_version CONSTANT NUMBER := 1.0;
85 l_api_name CONSTANT VARCHAR2(30) := 'CREATE_PROVISIONS';
86 l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
87 l_pvnv_tbl pvnv_tbl_type := p_pvnv_tbl;
88
89 BEGIN
90 SAVEPOINT insert_provisions;
91
92 x_return_status := FND_API.G_RET_STS_SUCCESS;
93
94 -- customer pre-processing
95
96
97 -- Call the main procedure
98 OKL_PROCESS_PROVISIONS_PVT.CREATE_PROVISIONS(p_api_version => l_api_version,
99 p_init_msg_list => p_init_msg_list,
100 x_return_status => x_return_Status,
101 x_msg_count => x_msg_count,
102 x_msg_data => x_msg_data,
103 p_pvnv_tbl => p_pvnv_tbl,
104 x_pvnv_tbl => x_pvnv_tbl);
105
106
107 IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
108 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
109 ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
110 RAISE OKL_API.G_EXCEPTION_ERROR;
111 END IF;
112
113 -- customer post-processing
114
115
116 EXCEPTION
117
118 WHEN FND_API.G_EXC_ERROR THEN
119 ROLLBACK TO insert_provisions;
120 x_return_status := FND_API.G_RET_STS_ERROR;
121
122 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
123 ,p_count => x_msg_count
124 ,p_data => x_msg_data);
125
126 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
127 ROLLBACK TO insert_provisions;
128 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
129 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
130 ,p_count => x_msg_count
131 ,p_data => x_msg_data);
132
133 WHEN OTHERS THEN
134
135 FND_MSG_PUB.ADD_EXC_MSG('OKL_PROCESS_PROVISIONS_PUB','CREATE_PROVISIONS');
136 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
137 ,p_count => x_msg_count
138 ,p_data => x_msg_data);
139 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
140
141 END create_provisions;
142
143
144 PROCEDURE update_provisions(
145 p_api_version IN NUMBER,
146 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
147 x_return_status OUT NOCOPY VARCHAR2,
148 x_msg_count OUT NOCOPY NUMBER,
149 x_msg_data OUT NOCOPY VARCHAR2,
150 p_pvnv_rec IN pvnv_rec_type,
151 x_pvnv_rec OUT NOCOPY pvnv_rec_type)
152
153 IS
154 l_api_version CONSTANT NUMBER := 1.0;
155 l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_PROVISIONS';
156 l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
157 l_pvnv_rec pvnv_rec_type := p_pvnv_rec;
158
159 BEGIN
160 SAVEPOINT update_provisions;
161 x_return_status := FND_API.G_RET_STS_SUCCESS;
162 -- customer pre-processing
163
164 -- CALL THE MAIN PROCEDURE
165 OKL_PROCESS_PROVISIONS_PVT.UPDATE_PROVISIONS(p_api_version => l_api_version,
166 p_init_msg_list => p_init_msg_list,
167 x_return_status => x_return_Status,
168 x_msg_count => x_msg_count,
169 x_msg_data => x_msg_data,
170 p_pvnv_rec => p_pvnv_rec,
171 x_pvnv_rec => x_pvnv_rec);
172 IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
173 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
174 ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
175 RAISE OKL_API.G_EXCEPTION_ERROR;
176 END IF;
177
178 -- customer post-processing
179
180 EXCEPTION
181
182 WHEN FND_API.G_EXC_ERROR THEN
183 ROLLBACK TO update_provisions;
184 x_return_status := FND_API.G_RET_STS_ERROR;
185
186 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
187 ,p_count => x_msg_count
188 ,p_data => x_msg_data);
189
190 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
191 ROLLBACK TO update_provisions;
192 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
193 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
194 ,p_count => x_msg_count
195 ,p_data => x_msg_data);
196
197 WHEN OTHERS THEN
198
199 FND_MSG_PUB.ADD_EXC_MSG('OKL_PROCESS_PROVISIONS_PUB','CREATE_PROVISIONS');
200 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
201 ,p_count => x_msg_count
202 ,p_data => x_msg_data);
203 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
204
205 END update_provisions;
206
207
208 PROCEDURE update_provisions(
209 p_api_version IN NUMBER,
210 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
211 x_return_status OUT NOCOPY VARCHAR2,
212 x_msg_count OUT NOCOPY NUMBER,
213 x_msg_data OUT NOCOPY VARCHAR2,
214 p_pvnv_tbl IN pvnv_tbl_type,
215 x_pvnv_tbl OUT NOCOPY pvnv_tbl_type)
216
217 IS
218 l_api_version CONSTANT NUMBER := 1.0;
219 l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_PROVISIONS';
220 l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
221 l_pvnv_tbl pvnv_tbl_type := p_pvnv_tbl;
222
223 BEGIN
224 SAVEPOINT update_provisions;
225 x_return_status := FND_API.G_RET_STS_SUCCESS;
226 -- customer pre-processing
227
228 -- CALL THE MAIN PROCEDURE
229 OKL_PROCESS_PROVISIONS_PVT.UPDATE_PROVISIONS(p_api_version => l_api_version,
230 p_init_msg_list => p_init_msg_list,
231 x_return_status => x_return_Status,
232 x_msg_count => x_msg_count,
233 x_msg_data => x_msg_data,
234 p_pvnv_tbl => p_pvnv_tbl,
235 x_pvnv_tbl => x_pvnv_tbl);
236 IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
237 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
238 ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
239 RAISE OKL_API.G_EXCEPTION_ERROR;
240 END IF;
241
242 -- customer post-processing
243
244 EXCEPTION
245 WHEN FND_API.G_EXC_ERROR THEN
246 ROLLBACK TO update_provisions;
247 x_return_status := FND_API.G_RET_STS_ERROR;
248
249 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
250 ,p_count => x_msg_count
251 ,p_data => x_msg_data);
252
253 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
254 ROLLBACK TO update_provisions;
255 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
256 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
257 ,p_count => x_msg_count
258 ,p_data => x_msg_data);
259
260 WHEN OTHERS THEN
261
262 FND_MSG_PUB.ADD_EXC_MSG('OKL_PROCESS_PROVISIONS_PUB','CREATE_PROVISIONS');
263 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
264 ,p_count => x_msg_count
265 ,p_data => x_msg_data);
266 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
267
268 END update_provisions;
269
270
271 PROCEDURE delete_provisions(
272 p_api_version IN NUMBER,
273 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
274 x_return_status OUT NOCOPY VARCHAR2,
275 x_msg_count OUT NOCOPY NUMBER,
276 x_msg_data OUT NOCOPY VARCHAR2,
277 p_pvnv_rec IN pvnv_rec_type)
278
279 IS
280 l_api_version CONSTANT NUMBER := 1.0;
281 l_api_name CONSTANT VARCHAR2(30) := 'DELETE_PROVISIONS';
282 l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
283 l_pvnv_rec pvnv_rec_type := p_pvnv_rec;
284
285 BEGIN
286 SAVEPOINT delete_provisions;
287 x_return_status := FND_API.G_RET_STS_SUCCESS;
288 -- customer pre-processing
289
290 -- CALL THE MAIN PROCEDURE
291 OKL_PROCESS_PROVISIONS_PVT.DELETE_PROVISIONS(p_api_version => l_api_version,
292 p_init_msg_list => p_init_msg_list,
293 x_return_status => x_return_Status,
294 x_msg_count => x_msg_count,
295 x_msg_data => x_msg_data,
296 p_pvnv_rec => p_pvnv_rec);
297 IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
298 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
299 ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
300 RAISE OKL_API.G_EXCEPTION_ERROR;
301 END IF;
302
303 -- customer post-processing
304
305 EXCEPTION
306 WHEN FND_API.G_EXC_ERROR THEN
307 ROLLBACK TO delete_provisions;
308 x_return_status := FND_API.G_RET_STS_ERROR;
309
310 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
311 ,p_count => x_msg_count
312 ,p_data => x_msg_data);
313
314 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
315 ROLLBACK TO delete_provisions;
316 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
317 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
318 ,p_count => x_msg_count
319 ,p_data => x_msg_data);
320
321 WHEN OTHERS THEN
322
323 FND_MSG_PUB.ADD_EXC_MSG('OKL_PROCESS_PROVISIONS_PUB','CREATE_PROVISIONS');
324 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
325 ,p_count => x_msg_count
326 ,p_data => x_msg_data);
327 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
328
329 END delete_provisions;
330
331 PROCEDURE delete_provisions(
332 p_api_version IN NUMBER,
333 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
334 x_return_status OUT NOCOPY VARCHAR2,
335 x_msg_count OUT NOCOPY NUMBER,
336 x_msg_data OUT NOCOPY VARCHAR2,
337 p_pvnv_tbl IN pvnv_tbl_type)
338
339 IS
340
341 l_api_version CONSTANT NUMBER := 1.0;
342 l_api_name CONSTANT VARCHAR2(30) := 'DELETE_PROVISIONS';
343 l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
344 l_pvnv_tbl pvnv_tbl_type := p_pvnv_tbl;
345
346 BEGIN
347 SAVEPOINT delete_provisions;
348 x_return_status := FND_API.G_RET_STS_SUCCESS;
349 -- customer pre-processing
350
351 -- CALL THE MAIN PROCEDURE
352 OKL_PROCESS_PROVISIONS_PVT.DELETE_PROVISIONS(p_api_version => l_api_version,
353 p_init_msg_list => p_init_msg_list,
354 x_return_status => x_return_Status,
355 x_msg_count => x_msg_count,
356 x_msg_data => x_msg_data,
357 p_pvnv_tbl => p_pvnv_tbl);
358 IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
359 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
360 ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
361 RAISE OKL_API.G_EXCEPTION_ERROR;
362 END IF;
363
364 -- customer post-processing
365
366 EXCEPTION
367 WHEN FND_API.G_EXC_ERROR THEN
368 ROLLBACK TO delete_provisions;
369 x_return_status := FND_API.G_RET_STS_ERROR;
370
371 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
372 ,p_count => x_msg_count
373 ,p_data => x_msg_data);
374
375 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
376 ROLLBACK TO delete_provisions;
377 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
378 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
379 ,p_count => x_msg_count
380 ,p_data => x_msg_data);
381
382 WHEN OTHERS THEN
383
384 FND_MSG_PUB.ADD_EXC_MSG('OKL_PROCESS_PROVISIONS_PUB','CREATE_PROVISIONS');
385 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
386 ,p_count => x_msg_count
387 ,p_data => x_msg_data);
388 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
389
390 END delete_provisions;
391
392 END OKL_PROCESS_PROVISIONS_PUB;