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