[Home] [Help]
PACKAGE BODY: APPS.OKL_TXD_QTE_ANTCPT_BILL_PUB
Source
1 PACKAGE BODY OKL_TXD_QTE_ANTCPT_BILL_PUB AS
2 /* $Header: OKLPQABB.pls 120.1 2005/10/30 04:01:48 appldev noship $ */
3
4 PROCEDURE create_txd_qte_ant_bill(
5 p_api_version IN NUMBER
6 ,p_init_msg_list IN VARCHAR2
7 ,x_return_status OUT NOCOPY VARCHAR2
8 ,x_msg_count OUT NOCOPY NUMBER
9 ,x_msg_data OUT NOCOPY VARCHAR2
10 ,p_qabv_rec IN qabv_rec_type
11 ,x_qabv_rec OUT NOCOPY qabv_rec_type) IS
12
13 l_api_version NUMBER ;
14 l_init_msg_list VARCHAR2(3);
15 l_return_status VARCHAR2(3) := FND_API.G_RET_STS_SUCCESS;
16 l_msg_count NUMBER;
17 l_msg_data VARCHAR2(2000);
18 lp_qabv_rec qabv_rec_type;
19 lx_qabv_rec qabv_rec_type;
20
21 BEGIN
22 SAVEPOINT create_txd_qte_ant_bill;
23
24 l_api_version := p_api_version;
25 l_init_msg_list := p_init_msg_list;
26 l_msg_count := x_msg_count;
27 l_msg_data := x_msg_data;
28 lp_qabv_rec := p_qabv_rec;
29 lx_qabv_rec := x_qabv_rec;
30
31 okl_qab_pvt.insert_row( p_api_version => l_api_version
32 ,p_init_msg_list => l_init_msg_list
33 ,x_return_status => l_return_status
34 ,x_msg_count => l_msg_count
35 ,x_msg_data => l_msg_data
36 ,p_qabv_rec => lp_qabv_rec
37 ,x_qabv_rec => lx_qabv_rec);
38
39 IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
40 RAISE FND_API.G_EXC_ERROR;
41 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
42 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
43 END IF;
44
45 --Assign value to OUT variables
46 x_qabv_rec := lx_qabv_rec;
47 x_return_status := l_return_status ;
48 x_msg_count := l_msg_count ;
49 x_msg_data := l_msg_data ;
50
51 EXCEPTION
52 WHEN FND_API.G_EXC_ERROR THEN
53 ROLLBACK TO create_txd_qte_ant_bill;
54 x_return_status := FND_API.G_RET_STS_ERROR;
55 x_msg_count := l_msg_count ;
56 x_msg_data := l_msg_data ;
57 FND_MSG_PUB.count_and_get(
58 p_count => x_msg_count
59 ,p_data => x_msg_data);
60 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
61 ROLLBACK TO create_txd_qte_ant_bill;
62 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
63 x_msg_count := l_msg_count ;
64 x_msg_data := l_msg_data ;
65 FND_MSG_PUB.count_and_get(
66 p_count => x_msg_count
67 ,p_data => x_msg_data);
68 WHEN OTHERS THEN
69 ROLLBACK TO create_txd_qte_ant_bill;
70 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
71 x_msg_count := l_msg_count ;
72 x_msg_data := l_msg_data ;
73 FND_MSG_PUB.ADD_EXC_MSG('OKL_TXD_QTE_ANTCPT_BILL_PUB','create_txd_qte_ant_bill');
74 FND_MSG_PUB.count_and_get(
75 p_count => x_msg_count
76 ,p_data => x_msg_data);
77 END create_txd_qte_ant_bill;
78
79 PROCEDURE create_txd_qte_ant_bill(
80 p_api_version IN NUMBER
81 ,p_init_msg_list IN VARCHAR2
82 ,x_return_status OUT NOCOPY VARCHAR2
83 ,x_msg_count OUT NOCOPY NUMBER
84 ,x_msg_data OUT NOCOPY VARCHAR2
85 ,p_qabv_tbl IN qabv_tbl_type
86 ,x_qabv_tbl OUT NOCOPY qabv_tbl_type) IS
87
88 l_api_version NUMBER ;
89 l_init_msg_list VARCHAR2(3);
90 l_return_status VARCHAR2(3) := FND_API.G_RET_STS_SUCCESS;
91 l_msg_count NUMBER;
92 l_msg_data VARCHAR2(2000);
93 lp_qabv_tbl qabv_tbl_type;
94 lx_qabv_tbl qabv_tbl_type;
95
96 BEGIN
97 SAVEPOINT create_txd_qte_ant_bill;
98
99 l_api_version := p_api_version;
100 l_init_msg_list := p_init_msg_list;
101 l_msg_count := x_msg_count;
102 l_msg_data := x_msg_data;
103 lp_qabv_tbl := p_qabv_tbl;
104 lx_qabv_tbl := x_qabv_tbl;
105
106 okl_qab_pvt.insert_row( p_api_version => l_api_version
107 ,p_init_msg_list => l_init_msg_list
108 ,x_return_status => l_return_status
109 ,x_msg_count => l_msg_count
110 ,x_msg_data => l_msg_data
111 ,p_qabv_tbl => lp_qabv_tbl
112 ,x_qabv_tbl => lx_qabv_tbl);
113
114 IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
115 RAISE FND_API.G_EXC_ERROR;
116 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
117 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
118 END IF;
119
120 --Assign value to OUT variables
121 x_qabv_tbl := lx_qabv_tbl;
122 x_return_status := l_return_status ;
123 x_msg_count := l_msg_count ;
124 x_msg_data := l_msg_data ;
125
126 EXCEPTION
127 WHEN FND_API.G_EXC_ERROR THEN
128 ROLLBACK TO create_txd_qte_ant_bill;
129 x_return_status := FND_API.G_RET_STS_ERROR;
130 x_msg_count := l_msg_count ;
131 x_msg_data := l_msg_data ;
132 FND_MSG_PUB.count_and_get(
133 p_count => x_msg_count
134 ,p_data => x_msg_data);
135 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
136 ROLLBACK TO create_txd_qte_ant_bill;
137 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
138 x_msg_count := l_msg_count ;
139 x_msg_data := l_msg_data ;
140 FND_MSG_PUB.count_and_get(
141 p_count => x_msg_count
142 ,p_data => x_msg_data);
143 WHEN OTHERS THEN
144 ROLLBACK TO create_txd_qte_ant_bill;
145 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
146 x_msg_count := l_msg_count ;
147 x_msg_data := l_msg_data ;
148 FND_MSG_PUB.ADD_EXC_MSG('OKL_TXD_QTE_ANTCPT_BILL_PUB','create_txd_qte_ant_bill');
149 FND_MSG_PUB.count_and_get(
150 p_count => x_msg_count
151 ,p_data => x_msg_data);
152 END create_txd_qte_ant_bill;
153
154 PROCEDURE update_txd_qte_ant_bill(
155 p_api_version IN NUMBER
156 ,p_init_msg_list IN VARCHAR2
157 ,x_return_status OUT NOCOPY VARCHAR2
158 ,x_msg_count OUT NOCOPY NUMBER
159 ,x_msg_data OUT NOCOPY VARCHAR2
160 ,p_qabv_rec IN qabv_rec_type
161 ,x_qabv_rec OUT NOCOPY qabv_rec_type) IS
162
163 l_api_version NUMBER ;
164 l_init_msg_list VARCHAR2(3);
165 l_return_status VARCHAR2(3) := FND_API.G_RET_STS_SUCCESS;
166 l_msg_count NUMBER;
167 l_msg_data VARCHAR2(2000);
168 lp_qabv_rec qabv_rec_type;
169 lx_qabv_rec qabv_rec_type;
170
171 BEGIN
172 SAVEPOINT update_txd_qte_ant_bill;
173
174 l_api_version := p_api_version;
175 l_init_msg_list := p_init_msg_list;
176 l_msg_count := x_msg_count;
177 l_msg_data := x_msg_data;
178 lp_qabv_rec := p_qabv_rec;
179 lx_qabv_rec := x_qabv_rec;
180
181 okl_qab_pvt.update_row( p_api_version => l_api_version
182 ,p_init_msg_list => l_init_msg_list
183 ,x_return_status => l_return_status
184 ,x_msg_count => l_msg_count
185 ,x_msg_data => l_msg_data
186 ,p_qabv_rec => lp_qabv_rec
187 ,x_qabv_rec => lx_qabv_rec);
188
189 IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
190 RAISE FND_API.G_EXC_ERROR;
191 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
192 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
193 END IF;
194
195 --Assign value to OUT variables
196 x_qabv_rec := lx_qabv_rec;
197 x_return_status := l_return_status ;
198 x_msg_count := l_msg_count ;
199 x_msg_data := l_msg_data ;
200
201 EXCEPTION
202 WHEN FND_API.G_EXC_ERROR THEN
203 ROLLBACK TO update_txd_qte_ant_bill;
204 x_return_status := FND_API.G_RET_STS_ERROR;
205 x_msg_count := l_msg_count ;
206 x_msg_data := l_msg_data ;
207 FND_MSG_PUB.count_and_get(
208 p_count => x_msg_count
209 ,p_data => x_msg_data);
210 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
211 ROLLBACK TO update_txd_qte_ant_bill;
212 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
213 x_msg_count := l_msg_count ;
214 x_msg_data := l_msg_data ;
215 FND_MSG_PUB.count_and_get(
216 p_count => x_msg_count
217 ,p_data => x_msg_data);
218 WHEN OTHERS THEN
219 ROLLBACK TO update_txd_qte_ant_bill;
220 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
221 x_msg_count := l_msg_count ;
222 x_msg_data := l_msg_data ;
223 FND_MSG_PUB.ADD_EXC_MSG('OKL_TXD_QTE_ANTCPT_BILL_PUB','update_txd_qte_ant_bill');
224 FND_MSG_PUB.count_and_get(
225 p_count => x_msg_count
226 ,p_data => x_msg_data);
227 END update_txd_qte_ant_bill;
228
229 PROCEDURE update_txd_qte_ant_bill(
230 p_api_version IN NUMBER
231 ,p_init_msg_list IN VARCHAR2
232 ,x_return_status OUT NOCOPY VARCHAR2
233 ,x_msg_count OUT NOCOPY NUMBER
234 ,x_msg_data OUT NOCOPY VARCHAR2
235 ,p_qabv_tbl IN qabv_tbl_type
236 ,x_qabv_tbl OUT NOCOPY qabv_tbl_type) IS
237
238 l_api_version NUMBER ;
239 l_init_msg_list VARCHAR2(3);
240 l_return_status VARCHAR2(3) := FND_API.G_RET_STS_SUCCESS;
241 l_msg_count NUMBER;
242 l_msg_data VARCHAR2(2000);
243 lp_qabv_tbl qabv_tbl_type;
244 lx_qabv_tbl qabv_tbl_type;
245
246 BEGIN
247 SAVEPOINT update_txd_qte_ant_bill;
248
249 l_api_version := p_api_version;
250 l_init_msg_list := p_init_msg_list;
251 l_msg_count := x_msg_count;
252 l_msg_data := x_msg_data;
253 lp_qabv_tbl := p_qabv_tbl;
254 lx_qabv_tbl := x_qabv_tbl;
255
256 okl_qab_pvt.update_row( p_api_version => l_api_version
257 ,p_init_msg_list => l_init_msg_list
258 ,x_return_status => l_return_status
259 ,x_msg_count => l_msg_count
260 ,x_msg_data => l_msg_data
261 ,p_qabv_tbl => lp_qabv_tbl
262 ,x_qabv_tbl => lx_qabv_tbl);
263
264 IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
265 RAISE FND_API.G_EXC_ERROR;
266 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
267 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
268 END IF;
269
270 --Assign value to OUT variables
271 x_qabv_tbl := lx_qabv_tbl;
272 x_return_status := l_return_status ;
273 x_msg_count := l_msg_count ;
274 x_msg_data := l_msg_data ;
275
276 EXCEPTION
277 WHEN FND_API.G_EXC_ERROR THEN
278 ROLLBACK TO update_txd_qte_ant_bill;
279 x_return_status := FND_API.G_RET_STS_ERROR;
280 x_msg_count := l_msg_count ;
281 x_msg_data := l_msg_data ;
282 FND_MSG_PUB.count_and_get(
283 p_count => x_msg_count
284 ,p_data => x_msg_data);
285 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
286 ROLLBACK TO update_txd_qte_ant_bill;
287 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
288 x_msg_count := l_msg_count ;
289 x_msg_data := l_msg_data ;
290 FND_MSG_PUB.count_and_get(
291 p_count => x_msg_count
292 ,p_data => x_msg_data);
293 WHEN OTHERS THEN
294 ROLLBACK TO update_txd_qte_ant_bill;
295 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
296 x_msg_count := l_msg_count ;
297 x_msg_data := l_msg_data ;
298 FND_MSG_PUB.ADD_EXC_MSG('OKL_TXD_QTE_ANTCPT_BILL_PUB','update_txd_qte_ant_bill');
299 FND_MSG_PUB.count_and_get(
300 p_count => x_msg_count
301 ,p_data => x_msg_data);
302 END update_txd_qte_ant_bill;
303
304 PROCEDURE lock_txd_qte_ant_bill(
305 p_api_version IN NUMBER
306 ,p_init_msg_list IN VARCHAR2
307 ,x_return_status OUT NOCOPY VARCHAR2
308 ,x_msg_count OUT NOCOPY NUMBER
309 ,x_msg_data OUT NOCOPY VARCHAR2
310 ,p_qabv_rec IN qabv_rec_type) IS
311
312 l_api_version NUMBER ;
313 l_init_msg_list VARCHAR2(3);
314 l_return_status VARCHAR2(3) := FND_API.G_RET_STS_SUCCESS;
315 l_msg_count NUMBER;
316 l_msg_data VARCHAR2(2000);
317 lp_qabv_rec qabv_rec_type;
318
319
320 BEGIN
321 SAVEPOINT lock_txd_qte_ant_bill;
322
323 l_api_version := p_api_version;
324 l_init_msg_list := p_init_msg_list;
325 l_msg_count := x_msg_count;
326 l_msg_data := x_msg_data;
327 lp_qabv_rec := p_qabv_rec;
328
329 okl_qab_pvt.lock_row( p_api_version => l_api_version
330 ,p_init_msg_list => l_init_msg_list
331 ,x_return_status => l_return_status
332 ,x_msg_count => l_msg_count
333 ,x_msg_data => l_msg_data
334 ,p_qabv_rec => lp_qabv_rec);
335
336 IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
337 RAISE FND_API.G_EXC_ERROR;
338 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
339 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
340 END IF;
341
342 --Assign value to OUT variables
343 x_return_status := l_return_status ;
344 x_msg_count := l_msg_count ;
345 x_msg_data := l_msg_data ;
346
347 EXCEPTION
348 WHEN FND_API.G_EXC_ERROR THEN
349 ROLLBACK TO lock_txd_qte_ant_bill;
350 x_return_status := FND_API.G_RET_STS_ERROR;
351 x_msg_count := l_msg_count ;
352 x_msg_data := l_msg_data ;
353 FND_MSG_PUB.count_and_get(
354 p_count => x_msg_count
355 ,p_data => x_msg_data);
356 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
357 ROLLBACK TO lock_txd_qte_ant_bill;
358 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
359 x_msg_count := l_msg_count ;
360 x_msg_data := l_msg_data ;
361 FND_MSG_PUB.count_and_get(
362 p_count => x_msg_count
363 ,p_data => x_msg_data);
364 WHEN OTHERS THEN
365 ROLLBACK TO lock_txd_qte_ant_bill;
366 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
367 x_msg_count := l_msg_count ;
368 x_msg_data := l_msg_data ;
369 FND_MSG_PUB.ADD_EXC_MSG('OKL_TXD_QTE_ANTCPT_BILL_PUB','lock_txd_qte_ant_bill');
370 FND_MSG_PUB.count_and_get(
371 p_count => x_msg_count
372 ,p_data => x_msg_data);
373 END lock_txd_qte_ant_bill;
374
375 PROCEDURE lock_txd_qte_ant_bill(
376 p_api_version IN NUMBER
377 ,p_init_msg_list IN VARCHAR2
378 ,x_return_status OUT NOCOPY VARCHAR2
379 ,x_msg_count OUT NOCOPY NUMBER
380 ,x_msg_data OUT NOCOPY VARCHAR2
381 ,p_qabv_tbl IN qabv_tbl_type) IS
382
383 l_api_version NUMBER ;
384 l_init_msg_list VARCHAR2(3);
385 l_return_status VARCHAR2(3) := FND_API.G_RET_STS_SUCCESS;
386 l_msg_count NUMBER;
387 l_msg_data VARCHAR2(2000);
388 lp_qabv_tbl qabv_tbl_type;
389
390
391 BEGIN
392 SAVEPOINT lock_txd_qte_ant_bill;
393
394 l_api_version := p_api_version;
395 l_init_msg_list := p_init_msg_list;
396 l_msg_count := x_msg_count;
397 l_msg_data := x_msg_data;
398 lp_qabv_tbl := p_qabv_tbl;
399
400 okl_qab_pvt.lock_row( p_api_version => l_api_version
401 ,p_init_msg_list => l_init_msg_list
402 ,x_return_status => l_return_status
403 ,x_msg_count => l_msg_count
404 ,x_msg_data => l_msg_data
405 ,p_qabv_tbl => lp_qabv_tbl);
406
407 IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
408 RAISE FND_API.G_EXC_ERROR;
409 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
410 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
411 END IF;
412
413 --Assign value to OUT variables
414 x_return_status := l_return_status ;
415 x_msg_count := l_msg_count ;
416 x_msg_data := l_msg_data ;
417
418 EXCEPTION
419 WHEN FND_API.G_EXC_ERROR THEN
420 ROLLBACK TO lock_txd_qte_ant_bill;
421 x_return_status := FND_API.G_RET_STS_ERROR;
422 x_msg_count := l_msg_count ;
423 x_msg_data := l_msg_data ;
424 FND_MSG_PUB.count_and_get(
425 p_count => x_msg_count
426 ,p_data => x_msg_data);
427 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
428 ROLLBACK TO lock_txd_qte_ant_bill;
429 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
430 x_msg_count := l_msg_count ;
431 x_msg_data := l_msg_data ;
432 FND_MSG_PUB.count_and_get(
433 p_count => x_msg_count
434 ,p_data => x_msg_data);
435 WHEN OTHERS THEN
436 ROLLBACK TO lock_txd_qte_ant_bill;
437 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
438 x_msg_count := l_msg_count ;
439 x_msg_data := l_msg_data ;
440 FND_MSG_PUB.ADD_EXC_MSG('OKL_TXD_QTE_ANTCPT_BILL_PUB','lock_txd_qte_ant_bill');
441 FND_MSG_PUB.count_and_get(
442 p_count => x_msg_count
443 ,p_data => x_msg_data);
444 END lock_txd_qte_ant_bill;
445
446 PROCEDURE delete_txd_qte_ant_bill(
447 p_api_version IN NUMBER
448 ,p_init_msg_list IN VARCHAR2
449 ,x_return_status OUT NOCOPY VARCHAR2
450 ,x_msg_count OUT NOCOPY NUMBER
451 ,x_msg_data OUT NOCOPY VARCHAR2
452 ,p_qabv_rec IN qabv_rec_type) IS
453
454 l_api_version NUMBER ;
455 l_init_msg_list VARCHAR2(3);
456 l_return_status VARCHAR2(3) := FND_API.G_RET_STS_SUCCESS;
457 l_msg_count NUMBER;
458 l_msg_data VARCHAR2(2000);
459 lp_qabv_rec qabv_rec_type;
460
461
462 BEGIN
463 SAVEPOINT delete_txd_qte_ant_bill;
464
465 l_api_version := p_api_version;
466 l_init_msg_list := p_init_msg_list;
467 l_msg_count := x_msg_count;
468 l_msg_data := x_msg_data;
469 lp_qabv_rec := p_qabv_rec;
470
471 okl_qab_pvt.delete_row( p_api_version => l_api_version
472 ,p_init_msg_list => l_init_msg_list
473 ,x_return_status => l_return_status
474 ,x_msg_count => l_msg_count
475 ,x_msg_data => l_msg_data
476 ,p_qabv_rec => lp_qabv_rec);
477
478 IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
479 RAISE FND_API.G_EXC_ERROR;
480 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
481 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
482 END IF;
483
484 --Assign value to OUT variables
485 x_return_status := l_return_status ;
486 x_msg_count := l_msg_count ;
487 x_msg_data := l_msg_data ;
488
489 EXCEPTION
490 WHEN FND_API.G_EXC_ERROR THEN
491 ROLLBACK TO delete_txd_qte_ant_bill;
492 x_return_status := FND_API.G_RET_STS_ERROR;
493 x_msg_count := l_msg_count ;
494 x_msg_data := l_msg_data ;
495 FND_MSG_PUB.count_and_get(
496 p_count => x_msg_count
497 ,p_data => x_msg_data);
498 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
499 ROLLBACK TO delete_txd_qte_ant_bill;
500 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
501 x_msg_count := l_msg_count ;
502 x_msg_data := l_msg_data ;
503 FND_MSG_PUB.count_and_get(
504 p_count => x_msg_count
505 ,p_data => x_msg_data);
506 WHEN OTHERS THEN
507 ROLLBACK TO delete_txd_qte_ant_bill;
508 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
509 x_msg_count := l_msg_count ;
510 x_msg_data := l_msg_data ;
511 FND_MSG_PUB.ADD_EXC_MSG('OKL_TXD_QTE_ANTCPT_BILL_PUB','delete_txd_qte_ant_bill');
512 FND_MSG_PUB.count_and_get(
513 p_count => x_msg_count
514 ,p_data => x_msg_data);
515 END delete_txd_qte_ant_bill;
516
517 PROCEDURE delete_txd_qte_ant_bill(
518 p_api_version IN NUMBER
519 ,p_init_msg_list IN VARCHAR2
520 ,x_return_status OUT NOCOPY VARCHAR2
521 ,x_msg_count OUT NOCOPY NUMBER
522 ,x_msg_data OUT NOCOPY VARCHAR2
523 ,p_qabv_tbl IN qabv_tbl_type) IS
524
525 l_api_version NUMBER ;
526 l_init_msg_list VARCHAR2(3);
527 l_return_status VARCHAR2(3) := FND_API.G_RET_STS_SUCCESS;
528 l_msg_count NUMBER;
529 l_msg_data VARCHAR2(2000);
530 lp_qabv_tbl qabv_tbl_type;
531
532
533 BEGIN
534 SAVEPOINT delete_txd_qte_ant_bill;
535
536 l_api_version := p_api_version;
537 l_init_msg_list := p_init_msg_list;
538 l_msg_count := x_msg_count;
539 l_msg_data := x_msg_data;
540 lp_qabv_tbl := p_qabv_tbl;
541
542 okl_qab_pvt.delete_row( p_api_version => l_api_version
543 ,p_init_msg_list => l_init_msg_list
544 ,x_return_status => l_return_status
545 ,x_msg_count => l_msg_count
546 ,x_msg_data => l_msg_data
547 ,p_qabv_tbl => lp_qabv_tbl);
548
549 IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
550 RAISE FND_API.G_EXC_ERROR;
551 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
552 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
553 END IF;
554
555 --Assign value to OUT variables
556 x_return_status := l_return_status ;
557 x_msg_count := l_msg_count ;
558 x_msg_data := l_msg_data ;
559
560 EXCEPTION
561 WHEN FND_API.G_EXC_ERROR THEN
562 ROLLBACK TO delete_txd_qte_ant_bill;
563 x_return_status := FND_API.G_RET_STS_ERROR;
564 x_msg_count := l_msg_count ;
565 x_msg_data := l_msg_data ;
566 FND_MSG_PUB.count_and_get(
567 p_count => x_msg_count
568 ,p_data => x_msg_data);
569 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
570 ROLLBACK TO delete_txd_qte_ant_bill;
571 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
572 x_msg_count := l_msg_count ;
573 x_msg_data := l_msg_data ;
574 FND_MSG_PUB.count_and_get(
575 p_count => x_msg_count
576 ,p_data => x_msg_data);
577 WHEN OTHERS THEN
578 ROLLBACK TO delete_txd_qte_ant_bill;
579 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
580 x_msg_count := l_msg_count ;
581 x_msg_data := l_msg_data ;
582 FND_MSG_PUB.ADD_EXC_MSG('OKL_TXD_QTE_ANTCPT_BILL_PUB','delete_txd_qte_ant_bill');
583 FND_MSG_PUB.count_and_get(
584 p_count => x_msg_count
585 ,p_data => x_msg_data);
586 END delete_txd_qte_ant_bill;
587
588 PROCEDURE validate_txd_qte_ant_bill(
589 p_api_version IN NUMBER
590 ,p_init_msg_list IN VARCHAR2
591 ,x_return_status OUT NOCOPY VARCHAR2
592 ,x_msg_count OUT NOCOPY NUMBER
593 ,x_msg_data OUT NOCOPY VARCHAR2
594 ,p_qabv_rec IN qabv_rec_type) IS
595
596 l_api_version NUMBER ;
597 l_init_msg_list VARCHAR2(3);
598 l_return_status VARCHAR2(3) := FND_API.G_RET_STS_SUCCESS;
599 l_msg_count NUMBER;
600 l_msg_data VARCHAR2(2000);
601 lp_qabv_rec qabv_rec_type;
602
603
604 BEGIN
605 SAVEPOINT validate_txd_qte_ant_bill;
606
607 l_api_version := p_api_version;
608 l_init_msg_list := p_init_msg_list;
609 l_msg_count := x_msg_count;
610 l_msg_data := x_msg_data;
611 lp_qabv_rec := p_qabv_rec;
612
613 okl_qab_pvt.validate_row( p_api_version => l_api_version
614 ,p_init_msg_list => l_init_msg_list
615 ,x_return_status => l_return_status
616 ,x_msg_count => l_msg_count
617 ,x_msg_data => l_msg_data
618 ,p_qabv_rec => lp_qabv_rec);
619
620 IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
621 RAISE FND_API.G_EXC_ERROR;
622 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
623 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
624 END IF;
625
626 --Assign value to OUT variables
627 x_return_status := l_return_status ;
628 x_msg_count := l_msg_count ;
629 x_msg_data := l_msg_data ;
630
631 EXCEPTION
632 WHEN FND_API.G_EXC_ERROR THEN
633 ROLLBACK TO validate_txd_qte_ant_bill;
634 x_return_status := FND_API.G_RET_STS_ERROR;
635 x_msg_count := l_msg_count ;
636 x_msg_data := l_msg_data ;
637 FND_MSG_PUB.count_and_get(
638 p_count => x_msg_count
639 ,p_data => x_msg_data);
640 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
641 ROLLBACK TO validate_txd_qte_ant_bill;
642 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
643 x_msg_count := l_msg_count ;
644 x_msg_data := l_msg_data ;
645 FND_MSG_PUB.count_and_get(
646 p_count => x_msg_count
647 ,p_data => x_msg_data);
648 WHEN OTHERS THEN
649 ROLLBACK TO validate_txd_qte_ant_bill;
650 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
651 x_msg_count := l_msg_count ;
652 x_msg_data := l_msg_data ;
653 FND_MSG_PUB.ADD_EXC_MSG('OKL_TXD_QTE_ANTCPT_BILL_PUB','validate_txd_qte_ant_bill');
654 FND_MSG_PUB.count_and_get(
655 p_count => x_msg_count
656 ,p_data => x_msg_data);
657 END validate_txd_qte_ant_bill;
658
659 PROCEDURE validate_txd_qte_ant_bill(
660 p_api_version IN NUMBER
661 ,p_init_msg_list IN VARCHAR2
662 ,x_return_status OUT NOCOPY VARCHAR2
663 ,x_msg_count OUT NOCOPY NUMBER
664 ,x_msg_data OUT NOCOPY VARCHAR2
665 ,p_qabv_tbl IN qabv_tbl_type) IS
666
667 l_api_version NUMBER ;
668 l_init_msg_list VARCHAR2(3);
669 l_return_status VARCHAR2(3) := FND_API.G_RET_STS_SUCCESS;
670 l_msg_count NUMBER;
671 l_msg_data VARCHAR2(2000);
672 lp_qabv_tbl qabv_tbl_type;
673
674
675 BEGIN
676 SAVEPOINT validate_txd_qte_ant_bill;
677
678 l_api_version := p_api_version;
679 l_init_msg_list := p_init_msg_list;
680 l_msg_count := x_msg_count;
681 l_msg_data := x_msg_data;
682 lp_qabv_tbl := p_qabv_tbl;
683
684 okl_qab_pvt.validate_row( p_api_version => l_api_version
685 ,p_init_msg_list => l_init_msg_list
686 ,x_return_status => l_return_status
687 ,x_msg_count => l_msg_count
688 ,x_msg_data => l_msg_data
689 ,p_qabv_tbl => lp_qabv_tbl);
690
691 IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
692 RAISE FND_API.G_EXC_ERROR;
693 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
694 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
695 END IF;
696
697 --Assign value to OUT variables
698 x_return_status := l_return_status ;
699 x_msg_count := l_msg_count ;
700 x_msg_data := l_msg_data ;
701
702 EXCEPTION
703 WHEN FND_API.G_EXC_ERROR THEN
704 ROLLBACK TO validate_txd_qte_ant_bill;
705 x_return_status := FND_API.G_RET_STS_ERROR;
706 x_msg_count := l_msg_count ;
707 x_msg_data := l_msg_data ;
708 FND_MSG_PUB.count_and_get(
709 p_count => x_msg_count
710 ,p_data => x_msg_data);
711 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
712 ROLLBACK TO validate_txd_qte_ant_bill;
713 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
714 x_msg_count := l_msg_count ;
715 x_msg_data := l_msg_data ;
716 FND_MSG_PUB.count_and_get(
717 p_count => x_msg_count
718 ,p_data => x_msg_data);
719 WHEN OTHERS THEN
720 ROLLBACK TO validate_txd_qte_ant_bill;
721 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
722 x_msg_count := l_msg_count ;
723 x_msg_data := l_msg_data ;
724 FND_MSG_PUB.ADD_EXC_MSG('OKL_TXD_QTE_ANTCPT_BILL_PUB','validate_txd_qte_ant_bill');
725 FND_MSG_PUB.count_and_get(
726 p_count => x_msg_count
727 ,p_data => x_msg_data);
728 END validate_txd_qte_ant_bill;
729
730 END OKL_TXD_QTE_ANTCPT_BILL_PUB;