[Home] [Help]
PACKAGE BODY: APPS.OKL_XMLP_PARAMS_PVT
Source
1 PACKAGE BODY OKL_XMLP_PARAMS_PVT AS
2 /* $Header: OKLRXMPB.pls 120.0 2007/01/04 11:22:50 udhenuko noship $ */
3
4 ----------------------------------------------------------------------------
5 -- PROCEDURE create_xmlp_params_rec
6 ---------------------------------------------------------------------------
7 -- Start of comments
8 --
9 -- Procedure Name : create_xmlp_params_rec
10 -- Description : procedure for inserting the records in
11 -- table OKL_XMLP_PARAMS
12 -- Business Rules : This procedure creates a record containing the parameter
13 -- name, value and type code.
14 -- Parameters : p_api_version, p_init_msg_list, x_return_status, x_msg_count,
15 -- x_msg_data, p_xmp_rec, x_xmp_rec.
16 -- Version : 1.0
17 -- End of comments
18 ---------------------------------------------------------------------------
19 PROCEDURE create_xmlp_params_rec ( p_api_version IN NUMBER
20 ,p_init_msg_list IN VARCHAR2
21 ,x_return_status OUT NOCOPY VARCHAR2
22 ,x_msg_count OUT NOCOPY NUMBER
23 ,x_msg_data OUT NOCOPY VARCHAR2
24 ,p_xmp_rec IN xmp_rec_type
25 ,x_xmp_rec OUT NOCOPY xmp_rec_type
26 ) IS
27
28 ---------------------------
29 -- DECLARE Local Variables
30 ---------------------------
31 L_MODULE CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.OKL_XMLP_PARAMS_PVT.create_xmlp_params_rec';
32 L_DEBUG_ENABLED VARCHAR2(10);
33 L_LEVEL_PROCEDURE fnd_log_messages.log_level%TYPE;
34 IS_DEBUG_PROCEDURE_ON BOOLEAN;
35 l_xmp_rec xmp_rec_type ;
36 l_api_version NUMBER ;
37 l_init_msg_list VARCHAR2(1) ;
38 l_return_status VARCHAR2(1);
39 l_msg_count NUMBER ;
40 l_msg_data VARCHAR2(2000);
41 l_api_name CONSTANT VARCHAR2(30) := 'create_xmlp_params_rec';
42
43 -------------------
44 -- DECLARE Cursors
45 -------------------
46
47 BEGIN
48 L_DEBUG_ENABLED := Okl_Debug_Pub.CHECK_LOG_ENABLED;
49 IF(L_DEBUG_ENABLED='Y') THEN
50 L_LEVEL_PROCEDURE :=Fnd_Log.LEVEL_PROCEDURE;
51 IS_DEBUG_PROCEDURE_ON := Okl_Debug_Pub.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
52 END IF;
53 IF(IS_DEBUG_PROCEDURE_ON) THEN
54 BEGIN
55 Okl_Debug_Pub.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRXMPB.pls call okl_xmp_pvt.insert_row ');
56 END;
57 END IF;
58
59 l_xmp_rec := p_xmp_rec;
60 l_api_version := 1.0;
61 l_init_msg_list := OKL_API.g_false;
62 l_msg_count := 0;
63
64 SAVEPOINT create_xmlp_params_rec_PVT;
65 l_return_status := OKL_API.START_ACTIVITY( l_api_name,
66 G_PKG_NAME,
67 p_init_msg_list,
68 l_api_version,
69 p_api_version,
70 '_PVT',
71 l_return_status);
72
73 IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
74 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
75 ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
76 RAISE OKL_API.G_EXCEPTION_ERROR;
77 END IF;
78
79 -- TAPI call to create a record for xmlp params in table OKL_XMLP_PARAMS.
80 okl_xmp_pvt.insert_row( l_api_version,
81 l_init_msg_list,
82 l_return_status,
83 l_msg_count,
84 l_msg_data,
85 l_xmp_rec,
86 x_xmp_rec);
87
88 IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
89 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
90 ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
91 RAISE OKL_API.G_EXCEPTION_ERROR;
92 END IF;
93
94 okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
95 x_return_status := l_return_status;
96 x_msg_data := l_msg_data;
97 x_msg_count := l_msg_count;
98
99 IF(IS_DEBUG_PROCEDURE_ON) THEN
100 BEGIN
101 Okl_Debug_Pub.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRXMPB.pls call okl_xmp_pvt.insert_row ');
102 END;
103 END IF;
104
105 EXCEPTION
106 WHEN G_EXCEPTION_HALT_VALIDATION THEN
107 x_return_status := OKL_API.HANDLE_EXCEPTIONS
108 (
109 l_api_name,
110 G_PKG_NAME,
111 'OKL_API.G_RET_STS_ERROR',
112 x_msg_count,
113 x_msg_data,
114 '_PVT'
115 );
116
117
118 WHEN OKL_API.G_EXCEPTION_ERROR THEN
119 x_return_status := OKL_API.HANDLE_EXCEPTIONS
120 (
121 l_api_name,
122 G_PKG_NAME,
123 'OKL_API.G_RET_STS_ERROR',
124 x_msg_count,
125 x_msg_data,
126 '_PVT'
127 );
128
129 WHEN OTHERS THEN
130 x_return_status := OKL_API.HANDLE_EXCEPTIONS
131 (
132 l_api_name,
133 G_PKG_NAME,
134 'OKL_API.G_OTHERS',
135 x_msg_count,
136 x_msg_data,
137 '_PVT'
138 );
139
140 END create_xmlp_params_rec;
141
142 ----------------------------------------------------------------------------
143 -- PROCEDURE create_xmlp_params_tbl
144 ---------------------------------------------------------------------------
145 -- Start of comments
146 --
147 -- Procedure Name : create_xmlp_params_tbl
148 -- Description : procedure for inserting the records in
149 -- table OKL_XMLP_PARAMS
150 -- Business Rules : This procedure creates a record containing the parameter
151 -- name, value and type code.
152 -- Parameters : p_api_version, p_init_msg_list, x_return_status, x_msg_count,
153 -- x_msg_data, p_xmp_tbl, x_xmp_tbl.
154 -- Version : 1.0
155 -- End of comments
156 ---------------------------------------------------------------------------
157 PROCEDURE create_xmlp_params_tbl ( p_api_version IN NUMBER
158 ,p_init_msg_list IN VARCHAR2
159 ,x_return_status OUT NOCOPY VARCHAR2
160 ,x_msg_count OUT NOCOPY NUMBER
161 ,x_msg_data OUT NOCOPY VARCHAR2
162 ,p_xmp_tbl IN xmp_tbl_type
163 ,x_xmp_tbl OUT NOCOPY xmp_tbl_type
164 ) IS
165
166 ---------------------------
167 -- DECLARE Local Variables
168 ---------------------------
169 L_MODULE CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.OKL_XMLP_PARAMS_PVT.create_xmlp_params_tbl';
170 L_DEBUG_ENABLED VARCHAR2(10);
171 L_LEVEL_PROCEDURE fnd_log_messages.log_level%TYPE;
172 IS_DEBUG_PROCEDURE_ON BOOLEAN;
173 l_xmp_tbl xmp_tbl_type ;
174 l_api_version NUMBER ;
175 l_init_msg_list VARCHAR2(1) ;
176 l_return_status VARCHAR2(1);
177 l_msg_count NUMBER ;
178 l_msg_data VARCHAR2(2000);
179 l_api_name CONSTANT VARCHAR2(30) := 'create_xmlp_params_tbl';
180
181 -------------------
182 -- DECLARE Cursors
183 -------------------
184
185 BEGIN
186 L_DEBUG_ENABLED := Okl_Debug_Pub.CHECK_LOG_ENABLED;
187 IF(L_DEBUG_ENABLED='Y') THEN
188 L_LEVEL_PROCEDURE :=Fnd_Log.LEVEL_PROCEDURE;
189 IS_DEBUG_PROCEDURE_ON := Okl_Debug_Pub.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
190 END IF;
191 IF(IS_DEBUG_PROCEDURE_ON) THEN
192 BEGIN
193 Okl_Debug_Pub.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRXMPB.pls call okl_xmp_pvt.insert_row ');
194 END;
195 END IF;
196
197 l_xmp_tbl := p_xmp_tbl;
198 l_api_version := 1.0;
199 l_init_msg_list := OKL_API.g_false;
200 l_msg_count := 0;
201
202 SAVEPOINT create_xmlp_params_rec_PVT;
203 l_return_status := OKL_API.START_ACTIVITY( l_api_name,
204 G_PKG_NAME,
205 p_init_msg_list,
206 l_api_version,
207 p_api_version,
208 '_PVT',
209 l_return_status);
210
211 IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
212 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
213 ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
214 RAISE OKL_API.G_EXCEPTION_ERROR;
215 END IF;
216
217 -- TAPI call to create a record for xmlp params in table OKL_XMLP_PARAMS.
218 okl_xmp_pvt.insert_row( l_api_version,
219 l_init_msg_list,
220 l_return_status,
221 l_msg_count,
222 l_msg_data,
223 l_xmp_tbl,
224 x_xmp_tbl);
225
226 IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
227 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
228 ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
229 RAISE OKL_API.G_EXCEPTION_ERROR;
230 END IF;
231
232 okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
233 x_return_status := l_return_status;
234 x_msg_data := l_msg_data;
235 x_msg_count := l_msg_count;
236
237 IF(IS_DEBUG_PROCEDURE_ON) THEN
238 BEGIN
239 Okl_Debug_Pub.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRXMPB.pls call okl_xmp_pvt.insert_row ');
240 END;
241 END IF;
242
243 EXCEPTION
244 WHEN G_EXCEPTION_HALT_VALIDATION THEN
245 x_return_status := OKL_API.HANDLE_EXCEPTIONS
246 (
247 l_api_name,
248 G_PKG_NAME,
249 'OKL_API.G_RET_STS_ERROR',
250 x_msg_count,
251 x_msg_data,
252 '_PVT'
253 );
254
255
256 WHEN OKL_API.G_EXCEPTION_ERROR THEN
257 x_return_status := OKL_API.HANDLE_EXCEPTIONS
258 (
259 l_api_name,
260 G_PKG_NAME,
261 'OKL_API.G_RET_STS_ERROR',
262 x_msg_count,
263 x_msg_data,
264 '_PVT'
265 );
266
267 WHEN OTHERS THEN
268 x_return_status := OKL_API.HANDLE_EXCEPTIONS
269 (
270 l_api_name,
271 G_PKG_NAME,
272 'OKL_API.G_OTHERS',
273 x_msg_count,
274 x_msg_data,
275 '_PVT'
276 );
277
278 END create_xmlp_params_tbl;
279
280 -----------------------------------------------------------------------------
281 -- PROCEDURE update_xmlp_params_rec
282 ---------------------------------------------------------------------------
283 -- Start of comments
284 --
285 -- Procedure Name : update_xmlp_params_rec
286 -- Description : procedure for updating the records in
287 -- table OKL_XMLP_PARAMS
288 -- Business Rules : This procedure updates a record based on the id provided.
289 -- Parameters : p_api_version, p_init_msg_list, x_return_status, x_msg_count,
290 -- x_msg_data, p_xmp_rec, x_xmp_rec.
291 -- Version : 1.0
292 -- End of comments
293 ---------------------------------------------------------------------------
294 PROCEDURE update_xmlp_params_rec ( p_api_version IN NUMBER
295 ,p_init_msg_list IN VARCHAR2
296 ,x_return_status OUT NOCOPY VARCHAR2
297 ,x_msg_count OUT NOCOPY NUMBER
298 ,x_msg_data OUT NOCOPY VARCHAR2
299 ,p_xmp_rec IN xmp_rec_type
300 ,x_xmp_rec OUT NOCOPY xmp_rec_type
301 ) IS
302 ---------------------------
303 -- DECLARE Local Variables
304 ---------------------------
305 L_MODULE CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.OKL_XMLP_PARAMS_PVT.update_xmlp_params_rec';
306 L_DEBUG_ENABLED VARCHAR2(10);
307 L_LEVEL_PROCEDURE fnd_log_messages.log_level%TYPE;
308 IS_DEBUG_PROCEDURE_ON BOOLEAN;
309 l_xmp_rec xmp_rec_type ;
310 l_api_version NUMBER ;
311 l_init_msg_list VARCHAR2(1) ;
312 l_return_status VARCHAR2(1);
313 l_msg_count NUMBER ;
314 l_msg_data VARCHAR2(2000);
315 l_api_name CONSTANT VARCHAR2(30) := 'update_xmlp_params_rec';
316 -------------------
317 -- DECLARE Cursors
318 -------------------
319
320 BEGIN
321 L_DEBUG_ENABLED := Okl_Debug_Pub.CHECK_LOG_ENABLED;
322 IF(L_DEBUG_ENABLED='Y') THEN
323 L_LEVEL_PROCEDURE :=Fnd_Log.LEVEL_PROCEDURE;
324 IS_DEBUG_PROCEDURE_ON := Okl_Debug_Pub.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
325 END IF;
326 IF(IS_DEBUG_PROCEDURE_ON) THEN
327 BEGIN
328 Okl_Debug_Pub.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRXMPB.pls call okl_xmp_pvt.update_row ');
329 END;
330 END IF;
331 l_xmp_rec := p_xmp_rec;
332 l_api_version := 1.0;
333 l_init_msg_list := OKL_API.g_false;
334 l_msg_count := 0;
335
336 SAVEPOINT update_xmlp_params_rec_PVT;
337 l_return_status := OKL_API.START_ACTIVITY( l_api_name,
338 G_PKG_NAME,
339 p_init_msg_list,
340 l_api_version,
341 p_api_version,
342 '_PVT',
343 l_return_status);
344
345 IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
346 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
347 ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
348 RAISE OKL_API.G_EXCEPTION_ERROR;
349 END IF;
350
351 -- TAPI call to update xmlp params in table OKL_XMLP_PARAMS.
352 okl_xmp_pvt.update_row(l_api_version,
353 l_init_msg_list,
354 l_return_status,
355 l_msg_count,
356 l_msg_data,
357 l_xmp_rec,
358 x_xmp_rec);
359
360 IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
361 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
362 ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
363 RAISE OKL_API.G_EXCEPTION_ERROR;
364 END IF;
365
366 okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
367 x_return_status := l_return_status;
368 x_msg_data := l_msg_data;
369 x_msg_count := l_msg_count;
370
371 IF(IS_DEBUG_PROCEDURE_ON) THEN
372 BEGIN
373 Okl_Debug_Pub.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRXMPB.pls call okl_xmp_pvt.update_row ');
374 END;
375 END IF;
376
377 EXCEPTION
378 WHEN G_EXCEPTION_HALT_VALIDATION THEN
379 x_return_status := OKL_API.HANDLE_EXCEPTIONS
380 (
381 l_api_name,
382 G_PKG_NAME,
383 'OKL_API.G_RET_STS_ERROR',
384 x_msg_count,
385 x_msg_data,
386 '_PVT'
387 );
388
389
390 WHEN OKL_API.G_EXCEPTION_ERROR THEN
391 x_return_status := OKL_API.HANDLE_EXCEPTIONS
392 (
393 l_api_name,
394 G_PKG_NAME,
395 'OKL_API.G_RET_STS_ERROR',
396 x_msg_count,
397 x_msg_data,
398 '_PVT'
399 );
400
401 WHEN OTHERS THEN
402 x_return_status := OKL_API.HANDLE_EXCEPTIONS
403 (
404 l_api_name,
405 G_PKG_NAME,
406 'OKL_API.G_OTHERS',
407 x_msg_count,
408 x_msg_data,
409 '_PVT'
410 );
411 END update_xmlp_params_rec;
412
413 -----------------------------------------------------------------------------
414 -- PROCEDURE update_xmlp_params_tbl
415 ---------------------------------------------------------------------------
416 -- Start of comments
417 --
418 -- Procedure Name : update_xmlp_params_tbl
419 -- Description : procedure for updating the records in
420 -- table OKL_XMLP_PARAMS
421 -- Business Rules : This procedure updates a record based on the id provided.
422 -- Parameters : p_api_version, p_init_msg_list, x_return_status, x_msg_count,
423 -- x_msg_data, p_xmp_tbl, x_xmp_tbl.
424 -- Version : 1.0
425 -- End of comments
426 ---------------------------------------------------------------------------
427 PROCEDURE update_xmlp_params_tbl ( p_api_version IN NUMBER
428 ,p_init_msg_list IN VARCHAR2
429 ,x_return_status OUT NOCOPY VARCHAR2
430 ,x_msg_count OUT NOCOPY NUMBER
431 ,x_msg_data OUT NOCOPY VARCHAR2
432 ,p_xmp_tbl IN xmp_tbl_type
433 ,x_xmp_tbl OUT NOCOPY xmp_tbl_type
434 ) IS
435 ---------------------------
436 -- DECLARE Local Variables
437 ---------------------------
438 L_MODULE CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.OKL_XMLP_PARAMS_PVT.update_xmlp_params_tbl';
439 L_DEBUG_ENABLED VARCHAR2(10);
440 L_LEVEL_PROCEDURE fnd_log_messages.log_level%TYPE;
441 IS_DEBUG_PROCEDURE_ON BOOLEAN;
442 l_xmp_tbl xmp_tbl_type ;
443 l_api_version NUMBER ;
444 l_init_msg_list VARCHAR2(1) ;
445 l_return_status VARCHAR2(1);
446 l_msg_count NUMBER ;
447 l_msg_data VARCHAR2(2000);
448 l_api_name CONSTANT VARCHAR2(30) := 'update_xmlp_params_tbl';
449 -------------------
450 -- DECLARE Cursors
451 -------------------
452
453 BEGIN
454 L_DEBUG_ENABLED := Okl_Debug_Pub.CHECK_LOG_ENABLED;
455 IF(L_DEBUG_ENABLED='Y') THEN
456 L_LEVEL_PROCEDURE :=Fnd_Log.LEVEL_PROCEDURE;
457 IS_DEBUG_PROCEDURE_ON := Okl_Debug_Pub.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
458 END IF;
459 IF(IS_DEBUG_PROCEDURE_ON) THEN
460 BEGIN
461 Okl_Debug_Pub.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRXMPB.pls call okl_xmp_pvt.update_row ');
462 END;
463 END IF;
464 l_xmp_tbl := p_xmp_tbl;
465 l_api_version := 1.0;
466 l_init_msg_list := OKL_API.g_false;
467 l_msg_count := 0;
468
469 SAVEPOINT update_xmlp_params_rec_PVT;
470 l_return_status := OKL_API.START_ACTIVITY( l_api_name,
471 G_PKG_NAME,
472 p_init_msg_list,
473 l_api_version,
474 p_api_version,
475 '_PVT',
476 l_return_status);
477
478 IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
479 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
480 ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
481 RAISE OKL_API.G_EXCEPTION_ERROR;
482 END IF;
483
484 -- TAPI call to update xmlp params in table OKL_XMLP_PARAMS.
485 okl_xmp_pvt.update_row(l_api_version,
486 l_init_msg_list,
487 l_return_status,
488 l_msg_count,
489 l_msg_data,
490 l_xmp_tbl,
491 x_xmp_tbl);
492
493 IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
494 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
495 ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
496 RAISE OKL_API.G_EXCEPTION_ERROR;
497 END IF;
498
499 okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
500 x_return_status := l_return_status;
501 x_msg_data := l_msg_data;
502 x_msg_count := l_msg_count;
503
504 IF(IS_DEBUG_PROCEDURE_ON) THEN
505 BEGIN
506 Okl_Debug_Pub.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRXMPB.pls call okl_xmp_pvt.update_row ');
507 END;
508 END IF;
509
510 EXCEPTION
511 WHEN G_EXCEPTION_HALT_VALIDATION THEN
512 x_return_status := OKL_API.HANDLE_EXCEPTIONS
513 (
514 l_api_name,
515 G_PKG_NAME,
516 'OKL_API.G_RET_STS_ERROR',
517 x_msg_count,
518 x_msg_data,
519 '_PVT'
520 );
521
522
523 WHEN OKL_API.G_EXCEPTION_ERROR THEN
524 x_return_status := OKL_API.HANDLE_EXCEPTIONS
525 (
526 l_api_name,
527 G_PKG_NAME,
528 'OKL_API.G_RET_STS_ERROR',
529 x_msg_count,
530 x_msg_data,
531 '_PVT'
532 );
533
534 WHEN OTHERS THEN
535 x_return_status := OKL_API.HANDLE_EXCEPTIONS
536 (
537 l_api_name,
538 G_PKG_NAME,
539 'OKL_API.G_OTHERS',
540 x_msg_count,
541 x_msg_data,
542 '_PVT'
543 );
544 END update_xmlp_params_tbl;
545
546 ----------------------------------------------------------------------------
547 -- PROCEDURE delete_xmlp_params
548 ---------------------------------------------------------------------------
549 -- Start of comments
550 --
551 -- Procedure Name : delete_xmlp_params
552 -- Description : procedure for deleting the records in
553 -- table OKL_XMLP_PARAMS
554 -- Business Rules : This procedure deletes a record based on the id provided.
555 -- Parameters : p_api_version, p_init_msg_list, x_return_status, x_msg_count,
556 -- x_msg_data, p_xmp_rec, x_xmp_rec.
557 -- Version : 1.0
558 -- End of comments
559 ---------------------------------------------------------------------------
560 PROCEDURE delete_xmlp_params ( p_api_version IN NUMBER
561 ,p_init_msg_list IN VARCHAR2
562 ,x_return_status OUT NOCOPY VARCHAR2
563 ,x_msg_count OUT NOCOPY NUMBER
564 ,x_msg_data OUT NOCOPY VARCHAR2
565 ,p_batch_id IN OKL_XMLP_PARAMS.Batch_Id%TYPE
566 ) IS
567 ---------------------------
568 -- DECLARE Local Variables
569 ---------------------------
570 L_MODULE CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.OKL_XMLP_PARAMS_PVT.delete_xmlp_params';
571 L_DEBUG_ENABLED VARCHAR2(10);
572 L_LEVEL_PROCEDURE fnd_log_messages.log_level%TYPE;
573 IS_DEBUG_PROCEDURE_ON BOOLEAN;
574 l_batch_id OKL_XMLP_PARAMS.Batch_Id%TYPE ;
575 l_id OKL_XMLP_PARAMS.Id%TYPE ;
576 l_xmp_rec xmp_rec_type ;
577 l_api_version NUMBER ;
578 l_init_msg_list VARCHAR2(1) ;
579 l_return_status VARCHAR2(1);
580 l_msg_count NUMBER ;
581 l_msg_data VARCHAR2(2000);
582 l_api_name CONSTANT VARCHAR2(30) := 'delete_xmlp_params';
583
584 -------------------
585 -- DECLARE Cursors
586 -------------------
587
588 CURSOR c_get_param_ids(p_batch_id IN OKL_XMLP_PARAMS.Batch_Id%TYPE) IS
589 SELECT ID,
590 BATCH_ID
591 FROM OKL_XMLP_PARAMS
592 WHERE BATCH_ID = p_batch_id;
593
594 BEGIN
595 L_DEBUG_ENABLED := Okl_Debug_Pub.CHECK_LOG_ENABLED;
596 IF(L_DEBUG_ENABLED='Y') THEN
597 L_LEVEL_PROCEDURE :=Fnd_Log.LEVEL_PROCEDURE;
598 IS_DEBUG_PROCEDURE_ON := Okl_Debug_Pub.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
599 END IF;
600 IF(IS_DEBUG_PROCEDURE_ON) THEN
601 BEGIN
602 Okl_Debug_Pub.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRXMPB.pls call okl_xmp_pvt.delete_row ');
603 END;
604 END IF;
605 l_batch_id := p_batch_id;
606 l_api_version := 1.0;
607 l_init_msg_list := OKL_API.g_false;
608 l_msg_count := 0;
609
610 SAVEPOINT delete_xmlp_params_PVT;
611 l_return_status := OKL_API.START_ACTIVITY( l_api_name,
612 G_PKG_NAME,
613 p_init_msg_list,
614 l_api_version,
615 p_api_version,
616 '_PVT',
617 l_return_status);
618
619 IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
620 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
621 ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
622 RAISE OKL_API.G_EXCEPTION_ERROR;
623 END IF;
624
625 -- Call TAPI to delete the xmlp params in table OKL_XMLP_PARAMS based on the batch id.
626 FOR each_row IN c_get_param_ids(l_batch_id) LOOP
627 l_xmp_rec.id := each_row.id;
628 l_xmp_rec.batch_id := each_row.batch_id;
629 okl_xmp_pvt.delete_row(l_api_version,
630 l_init_msg_list,
631 l_return_status,
632 l_msg_count,
633 l_msg_data,
634 l_xmp_rec);
635 IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
636 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
637 ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
638 RAISE OKL_API.G_EXCEPTION_ERROR;
639 END IF;
640 END LOOP;
641
642
643 okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
644 x_return_status := l_return_status;
645 x_msg_data := l_msg_data;
646 x_msg_count := l_msg_count;
647
648 IF(IS_DEBUG_PROCEDURE_ON) THEN
649 BEGIN
650 Okl_Debug_Pub.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRXMPB.pls call okl_xmp_pvt.delete_row ');
651 END;
652 END IF;
653
654 EXCEPTION
655 WHEN G_EXCEPTION_HALT_VALIDATION THEN
656 x_return_status := OKL_API.HANDLE_EXCEPTIONS
657 (
658 l_api_name,
659 G_PKG_NAME,
660 'OKL_API.G_RET_STS_ERROR',
661 x_msg_count,
662 x_msg_data,
663 '_PVT'
664 );
665
666 WHEN OKL_API.G_EXCEPTION_ERROR THEN
667 x_return_status := OKL_API.HANDLE_EXCEPTIONS
668 (
669 l_api_name,
670 G_PKG_NAME,
671 'OKL_API.G_RET_STS_ERROR',
672 x_msg_count,
673 x_msg_data,
674 '_PVT'
675 );
676
677 WHEN OTHERS THEN
678 x_return_status := OKL_API.HANDLE_EXCEPTIONS
679 (
680 l_api_name,
681 G_PKG_NAME,
682 'OKL_API.G_OTHERS',
683 x_msg_count,
684 x_msg_data,
685 '_PVT'
686 );
687 END delete_xmlp_params;
688
689 ---------------------------------------------------------------------------
690 -- PROCEDURE validate_xmlp_params_rec
691 ---------------------------------------------------------------------------
692 -- Start of comments
693 --
694 -- Procedure Name : validate_xmlp_params_rec
695 -- Description : procedure for validating the records in
696 -- table OKL_XMLP_PARAMS
697 -- Business Rules : Validates the record passed to it. x_return_status is 'S' on success.
698 -- Parameters : p_api_version, p_init_msg_list, x_return_status, x_msg_count,
699 -- x_msg_data, p_xmp_rec.
700 -- Version : 1.0
701 -- End of comments
702 ---------------------------------------------------------------------------
703
704 PROCEDURE validate_xmlp_params_rec( p_api_version IN NUMBER,
705 p_init_msg_list IN VARCHAR2,
706 x_return_status OUT NOCOPY VARCHAR2,
707 x_msg_count OUT NOCOPY NUMBER,
708 x_msg_data OUT NOCOPY VARCHAR2,
709 p_xmp_rec IN xmp_rec_type) IS
710 ---------------------------
711 -- DECLARE Local Variables
712 ---------------------------
713 L_MODULE CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.OKL_XMLP_PARAMS_PVT.validate_xmlp_params_rec';
714 L_DEBUG_ENABLED VARCHAR2(10);
715 L_LEVEL_PROCEDURE fnd_log_messages.log_level%TYPE;
716 IS_DEBUG_PROCEDURE_ON BOOLEAN;
717 l_xmp_rec xmp_rec_type := p_xmp_rec;
718 l_api_version NUMBER ;
719 l_init_msg_list VARCHAR2(1) ;
720 l_return_status VARCHAR2(1);
721 l_msg_count NUMBER ;
722 l_msg_data VARCHAR2(2000);
723 l_api_name CONSTANT VARCHAR2(30) := 'validate_xmlp_params_rec';
724
725 -------------------
726 -- DECLARE Cursors
727 -------------------
728
729 BEGIN
730 L_DEBUG_ENABLED := Okl_Debug_Pub.CHECK_LOG_ENABLED;
731 IF(L_DEBUG_ENABLED='Y') THEN
732 L_LEVEL_PROCEDURE :=Fnd_Log.LEVEL_PROCEDURE;
733 IS_DEBUG_PROCEDURE_ON := Okl_Debug_Pub.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
734 END IF;
735 IF(IS_DEBUG_PROCEDURE_ON) THEN
736 BEGIN
737 Okl_Debug_Pub.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRXMPB.pls call okl_xmp_pvt.validate_row ');
738 END;
739 END IF;
740 l_api_version := 1.0;
741 l_return_status := OKL_API.G_RET_STS_SUCCESS;
742
743 -- call START_ACTIVITY to create savepoint, check compatibility
744 -- and initialize message list
745
746 l_return_status := OKL_API.START_ACTIVITY(
747 p_api_name => l_api_name,
748 p_pkg_name => g_pkg_name,
749 p_init_msg_list => p_init_msg_list,
750 l_api_version => l_api_version,
751 p_api_version => p_api_version,
752 p_api_type => g_api_type,
753 x_return_status => x_return_status);
754
755 -- check if activity started successfully
756 If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
757 raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
758 Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
759 raise OKL_API.G_EXCEPTION_ERROR;
760 End If;
761
762 -- TAPI call to validate the records.
763 okl_xmp_pvt.validate_row(
764 p_api_version => p_api_version,
765 p_init_msg_list => p_init_msg_list,
766 x_return_status => x_return_status,
767 x_msg_count => x_msg_count,
768 x_msg_data => x_msg_data,
769 p_xmp_rec => l_xmp_rec);
770
771 -- check return status
772 If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
773 raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
774 Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
775 raise OKL_API.G_EXCEPTION_ERROR;
776 End If;
777
778 OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
779 x_msg_data => x_msg_data);
780
781 IF(IS_DEBUG_PROCEDURE_ON) THEN
782 BEGIN
783 Okl_Debug_Pub.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRXMPB.pls call okl_xmp_pvt.validate_row ');
784 END;
785 END IF;
786
787 EXCEPTION
788 when OKL_API.G_EXCEPTION_ERROR then
789 x_return_status := OKL_API.HANDLE_EXCEPTIONS(
790 p_api_name => l_api_name,
791 p_pkg_name => g_pkg_name,
792 p_exc_name => 'OKL_API.G_RET_STS_ERROR',
793 x_msg_count => x_msg_count,
794 x_msg_data => x_msg_data,
795 p_api_type => g_api_type);
796
797 when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
798 x_return_status := OKL_API.HANDLE_EXCEPTIONS(
799 p_api_name => l_api_name,
800 p_pkg_name => g_pkg_name,
801 p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
802 x_msg_count => x_msg_count,
803 x_msg_data => x_msg_data,
804 p_api_type => g_api_type);
805
806 when OTHERS then
807 x_return_status := OKL_API.HANDLE_EXCEPTIONS(
808 p_api_name => l_api_name,
809 p_pkg_name => g_pkg_name,
810 p_exc_name => 'OTHERS',
811 x_msg_count => x_msg_count,
812 x_msg_data => x_msg_data,
813 p_api_type => g_api_type);
814 END validate_xmlp_params_rec;
815
816 ---------------------------------------------------------------------------
817 -- PROCEDURE validate_xmlp_params_tbl
818 ---------------------------------------------------------------------------
819 -- Start of comments
820 --
821 -- Procedure Name : validate_xmlp_params_tbl
822 -- Description : procedure for validating the records in
823 -- table OKL_XMLP_PARAMS
824 -- Business Rules : Validates the records passed to it. x_return_status is 'S' on success.
825 -- Parameters : p_api_version, p_init_msg_list, x_return_status, x_msg_count,
826 -- x_msg_data, p_xmp_tbl.
827 -- Version : 1.0
828 -- End of comments
829 ---------------------------------------------------------------------------
830
831 PROCEDURE validate_xmlp_params_tbl( p_api_version IN NUMBER,
832 p_init_msg_list IN VARCHAR2,
833 x_return_status OUT NOCOPY VARCHAR2,
834 x_msg_count OUT NOCOPY NUMBER,
835 x_msg_data OUT NOCOPY VARCHAR2,
836 p_xmp_tbl IN xmp_tbl_type) IS
837
838 ---------------------------
839 -- DECLARE Local Variables
840 ---------------------------
841 L_MODULE CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.OKL_XMLP_PARAMS_PVT.validate_xmlp_params_tbl';
842 L_DEBUG_ENABLED VARCHAR2(10);
843 L_LEVEL_PROCEDURE fnd_log_messages.log_level%TYPE;
844 IS_DEBUG_PROCEDURE_ON BOOLEAN;
845 l_xmp_tbl xmp_tbl_type := p_xmp_tbl;
846 l_api_version NUMBER ;
847 l_init_msg_list VARCHAR2(1) ;
848 l_return_status VARCHAR2(1);
849 l_msg_count NUMBER ;
850 l_msg_data VARCHAR2(2000);
851 l_api_name CONSTANT VARCHAR2(30) := 'validate_xmlp_params_tbl';
852
853
854 BEGIN
855 L_DEBUG_ENABLED := Okl_Debug_Pub.CHECK_LOG_ENABLED;
856 IF(L_DEBUG_ENABLED='Y') THEN
857 L_LEVEL_PROCEDURE :=Fnd_Log.LEVEL_PROCEDURE;
858 IS_DEBUG_PROCEDURE_ON := Okl_Debug_Pub.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
859 END IF;
860 IF(IS_DEBUG_PROCEDURE_ON) THEN
861 BEGIN
862 Okl_Debug_Pub.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRXMPB.pls call okl_xmp_pvt.validate_row ');
863 END;
864 END IF;
865 l_api_version := 1.0;
866 l_return_status := OKL_API.G_RET_STS_SUCCESS;
867
868 -- call START_ACTIVITY to create savepoint, check compatibility
869 -- and initialize message list
870
871 l_return_status := OKL_API.START_ACTIVITY(
872 p_api_name => l_api_name,
873 p_pkg_name => g_pkg_name,
874 p_init_msg_list => p_init_msg_list,
875 l_api_version => l_api_version,
876 p_api_version => p_api_version,
877 p_api_type => g_api_type,
878 x_return_status => x_return_status);
879
880 -- check if activity started successfully
881 If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
882 raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
883 Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
884 raise OKL_API.G_EXCEPTION_ERROR;
885 End If;
886
887
888 -- TAPI call to validate the records.
889 okl_xmp_pvt.validate_row(
890 p_api_version => p_api_version,
891 p_init_msg_list => p_init_msg_list,
892 x_return_status => x_return_status,
893 x_msg_count => x_msg_count,
894 x_msg_data => x_msg_data,
895 p_xmp_tbl => l_xmp_tbl);
896
897 -- check return status
898 If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
899 raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
900 Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
901 raise OKL_API.G_EXCEPTION_ERROR;
902 End If;
903
904 OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
905 x_msg_data => x_msg_data);
906
907 IF(IS_DEBUG_PROCEDURE_ON) THEN
908 BEGIN
909 Okl_Debug_Pub.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRXMPB.pls call okl_xmp_pvt.validate_row ');
910 END;
911 END IF;
912
913 EXCEPTION
914 when OKL_API.G_EXCEPTION_ERROR then
915 x_return_status := OKL_API.HANDLE_EXCEPTIONS(
916 p_api_name => l_api_name,
917 p_pkg_name => g_pkg_name,
918 p_exc_name => 'OKL_API.G_RET_STS_ERROR',
919 x_msg_count => x_msg_count,
920 x_msg_data => x_msg_data,
921 p_api_type => g_api_type);
922
923 when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
924 x_return_status := OKL_API.HANDLE_EXCEPTIONS(
925 p_api_name => l_api_name,
926 p_pkg_name => g_pkg_name,
927 p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
928 x_msg_count => x_msg_count,
929 x_msg_data => x_msg_data,
930 p_api_type => g_api_type);
931
932 when OTHERS then
933 x_return_status := OKL_API.HANDLE_EXCEPTIONS(
934 p_api_name => l_api_name,
935 p_pkg_name => g_pkg_name,
936 p_exc_name => 'OTHERS',
937 x_msg_count => x_msg_count,
938 x_msg_data => x_msg_data,
939 p_api_type => g_api_type);
940 END validate_xmlp_params_tbl;
941
942 END OKL_XMLP_PARAMS_PVT;