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