[Home] [Help]
PACKAGE BODY: APPS.OKS_ENTITLEMENTS_PUB
Source
1 PACKAGE BODY OKS_ENTITLEMENTS_PUB AS
2 /* $Header: OKSPENTB.pls 120.2 2005/07/15 14:06:52 jvarghes noship $ */
3
4 PROCEDURE check_coverage_times
5 (p_api_version IN Number
6 ,p_init_msg_list IN Varchar2
7 ,p_business_process_id IN Number
8 ,p_request_date IN Date
9 ,p_time_zone_id IN Number
10 ,p_Dates_In_Input_TZ IN VARCHAR2 -- Added for 12.0 ENT-TZ project (JVARGHES)
11 ,p_contract_line_id IN Number
12 ,x_return_status OUT NOCOPY Varchar2
13 ,x_msg_count OUT NOCOPY Number
14 ,x_msg_data OUT NOCOPY Varchar2
15 ,x_covered_yn OUT NOCOPY Varchar2)
16 IS
17 l_return_status Varchar2(1);
18 l_api_name CONSTANT VARCHAR2(30) := 'check_coverage_times';
19 --l_api_version CONSTANT NUMBER := 1.0;
20 BEGIN
21 l_return_status := OKC_API.G_RET_STS_SUCCESS;
22
23 l_return_status := OKC_API.START_ACTIVITY(l_api_name
24 ,p_init_msg_list
25 ,'_PUB'
26 ,x_return_status
27 );
28 IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
29 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
30 ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
31 RAISE OKC_API.G_EXCEPTION_ERROR;
32 END IF;
33
34 OKS_ENTITLEMENTS_PVT.check_coverage_times
35 (p_api_version
36 ,p_init_msg_list
37 ,p_business_process_id
38 ,p_request_date
39 ,p_time_zone_id
40 ,p_Dates_In_Input_TZ -- Added for 12.0 ENT-TZ project (JVARGHES)
41 ,p_contract_line_id
42 ,x_return_status
43 ,x_msg_count
44 ,x_msg_data
45 ,x_covered_yn);
46
47 IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
48 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
49 ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
50 RAISE OKC_API.G_EXCEPTION_ERROR;
51 END IF;
52
53 OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
54
55 EXCEPTION
56 WHEN OKC_API.G_EXCEPTION_ERROR THEN
57 x_return_status := OKC_API.HANDLE_EXCEPTIONS
58 (l_api_name,
59 G_PKG_NAME,
60 'OKC_API.G_RET_STS_ERROR',
61 x_msg_count,
62 x_msg_data,
63 '_PUB');
64 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
65 x_return_status := OKC_API.HANDLE_EXCEPTIONS
66 (l_api_name,
67 G_PKG_NAME,
68 'OKC_API.G_RET_STS_UNEXP_ERROR',
69 x_msg_count,
70 x_msg_data,
71 '_PUB');
72 WHEN OTHERS THEN
73 x_return_status := OKC_API.HANDLE_EXCEPTIONS
74 (l_api_name,
75 G_PKG_NAME,
76 'OTHERS',
77 x_msg_count,
78 x_msg_data,
79 '_PUB');
80
81 END check_coverage_times;
82
83 PROCEDURE check_reaction_times
84 (p_api_version IN Number
85 ,p_init_msg_list IN Varchar2
86 ,p_business_process_id IN Number
87 ,p_request_date IN Date
88 ,p_sr_severity IN Number
89 ,p_time_zone_id IN Number
90 ,p_Dates_In_Input_TZ IN VARCHAR2 -- Added for 12.0 ENT-TZ project (JVARGHES)
91 ,p_contract_line_id IN Number
92 ,x_return_status OUT NOCOPY Varchar2
93 ,x_msg_count OUT NOCOPY Number
94 ,x_msg_data OUT NOCOPY Varchar2
95 ,x_react_within OUT NOCOPY Number
96 ,x_react_tuom OUT NOCOPY Varchar2
97 ,x_react_by_date OUT NOCOPY Date)
98 IS
99 l_return_status Varchar2(1);
100 l_api_name CONSTANT VARCHAR2(30) := 'check_reaction_times';
101 --l_api_version CONSTANT NUMBER := 1.0;
102 BEGIN
103 l_return_status := OKC_API.G_RET_STS_SUCCESS;
104
105 l_return_status := OKC_API.START_ACTIVITY(l_api_name
106 ,p_init_msg_list
107 ,'_PUB'
108 ,x_return_status
109 );
110 IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
111 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
112 ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
113 RAISE OKC_API.G_EXCEPTION_ERROR;
114 END IF;
115
116 OKS_ENTITLEMENTS_PVT.check_reaction_times
117 (p_api_version
118 ,p_init_msg_list
119 ,p_business_process_id
120 ,p_request_date
121 ,p_sr_severity
122 ,p_time_zone_id
123 ,p_Dates_In_Input_TZ -- Added for 12.0 ENT-TZ project (JVARGHES)
124 ,p_contract_line_id
125 ,x_return_status
126 ,x_msg_count
127 ,x_msg_data
128 ,x_react_within
129 ,x_react_tuom
130 ,x_react_by_date);
131
132 IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
133 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
134 ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
135 RAISE OKC_API.G_EXCEPTION_ERROR;
136 END IF;
137
138 OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
139
140 EXCEPTION
141 WHEN OKC_API.G_EXCEPTION_ERROR THEN
142 x_return_status := OKC_API.HANDLE_EXCEPTIONS
143 (l_api_name,
144 G_PKG_NAME,
145 'OKC_API.G_RET_STS_ERROR',
146 x_msg_count,
147 x_msg_data,
148 '_PUB');
149 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
150 x_return_status := OKC_API.HANDLE_EXCEPTIONS
151 (l_api_name,
152 G_PKG_NAME,
153 'OKC_API.G_RET_STS_UNEXP_ERROR',
154 x_msg_count,
155 x_msg_data,
156 '_PUB');
157 WHEN OTHERS THEN
158 x_return_status := OKC_API.HANDLE_EXCEPTIONS
159 (l_api_name,
160 G_PKG_NAME,
161 'OTHERS',
162 x_msg_count,
163 x_msg_data,
164 '_PUB');
165
166 END check_reaction_times;
167
168 PROCEDURE get_all_contracts
169 (p_api_version IN Number
170 ,p_init_msg_list IN Varchar2
171 ,p_inp_rec IN inp_rec_type
172 ,x_return_status OUT NOCOPY Varchar2
173 ,x_msg_count OUT NOCOPY Number
174 ,x_msg_data OUT NOCOPY Varchar2
175 ,x_all_contracts OUT NOCOPY hdr_tbl_type)
176 IS
177 l_return_status Varchar2(1);
178 l_api_name CONSTANT VARCHAR2(30) := 'get_all_contracts';
179 --l_api_version CONSTANT NUMBER := 1.0;
180 BEGIN
181
182 l_return_status := OKC_API.G_RET_STS_SUCCESS;
183
184 l_return_status := OKC_API.START_ACTIVITY(l_api_name
185 ,p_init_msg_list
186 ,'_PUB'
187 ,x_return_status
188 );
189 IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
190 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
191 ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
192 RAISE OKC_API.G_EXCEPTION_ERROR;
193 END IF;
194
195 OKS_ENTITLEMENTS_PVT.get_all_contracts
196 (p_api_version
197 ,p_init_msg_list
198 ,p_inp_rec
199 ,x_return_status
200 ,x_msg_count
201 ,x_msg_data
202 ,x_all_contracts);
203
204 IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
205 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
206 ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
207 RAISE OKC_API.G_EXCEPTION_ERROR;
208 END IF;
209
210 OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
211
212 EXCEPTION
213 WHEN OKC_API.G_EXCEPTION_ERROR THEN
214 x_return_status := OKC_API.HANDLE_EXCEPTIONS
215 (l_api_name,
216 G_PKG_NAME,
217 'OKC_API.G_RET_STS_ERROR',
218 x_msg_count,
219 x_msg_data,
220 '_PUB');
221 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
222 x_return_status := OKC_API.HANDLE_EXCEPTIONS
223 (l_api_name,
224 G_PKG_NAME,
225 'OKC_API.G_RET_STS_UNEXP_ERROR',
226 x_msg_count,
227 x_msg_data,
228 '_PUB');
229 WHEN OTHERS THEN
230 x_return_status := OKC_API.HANDLE_EXCEPTIONS
231 (l_api_name,
232 G_PKG_NAME,
233 'OTHERS',
234 x_msg_count,
235 x_msg_data,
236 '_PUB');
237
238 END get_all_contracts;
239
240 PROCEDURE get_contract_details
241 (p_api_version IN Number
242 ,p_init_msg_list IN Varchar2
243 ,p_contract_line_id IN Number
244 ,x_return_status OUT NOCOPY Varchar2
245 ,x_msg_count OUT NOCOPY Number
246 ,x_msg_data OUT NOCOPY Varchar2
247 ,x_all_lines OUT NOCOPY line_tbl_type)
248 IS
249 l_return_status Varchar2(1);
250 l_api_name CONSTANT VARCHAR2(30) := 'get_contract_details';
251 --l_api_version CONSTANT NUMBER := 1.0;
252 BEGIN
253 l_return_status := OKC_API.G_RET_STS_SUCCESS;
254
255 l_return_status := OKC_API.START_ACTIVITY(l_api_name
256 ,p_init_msg_list
257 ,'_PUB'
258 ,x_return_status
259 );
260 IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
261 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
262 ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
263 RAISE OKC_API.G_EXCEPTION_ERROR;
264 END IF;
265
266 OKS_ENTITLEMENTS_PVT.get_contract_details
267 (p_api_version
268 ,p_init_msg_list
269 ,p_contract_line_id
270 ,x_return_status
271 ,x_msg_count
272 ,x_msg_data
273 ,x_all_lines);
274
275 IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
276 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
277 ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
278 RAISE OKC_API.G_EXCEPTION_ERROR;
279 END IF;
280
281 OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
282
283 EXCEPTION
284 WHEN OKC_API.G_EXCEPTION_ERROR THEN
285 x_return_status := OKC_API.HANDLE_EXCEPTIONS
286 (l_api_name,
287 G_PKG_NAME,
288 'OKC_API.G_RET_STS_ERROR',
289 x_msg_count,
290 x_msg_data,
291 '_PUB');
292 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
293 x_return_status := OKC_API.HANDLE_EXCEPTIONS
294 (l_api_name,
295 G_PKG_NAME,
296 'OKC_API.G_RET_STS_UNEXP_ERROR',
297 x_msg_count,
298 x_msg_data,
299 '_PUB');
300 WHEN OTHERS THEN
301 x_return_status := OKC_API.HANDLE_EXCEPTIONS
302 (l_api_name,
303 G_PKG_NAME,
304 'OTHERS',
305 x_msg_count,
306 x_msg_data,
307 '_PUB');
308
309 END get_contract_details;
310
311 PROCEDURE get_coverage_levels
312 (p_api_version IN Number
313 ,p_init_msg_list IN Varchar2
314 ,p_contract_line_id IN Number
315 ,x_return_status OUT NOCOPY Varchar2
316 ,x_msg_count OUT NOCOPY Number
317 ,x_msg_data OUT NOCOPY Varchar2
318 ,x_covered_levels OUT NOCOPY clvl_tbl_type)
319 IS
320 l_return_status Varchar2(1);
321 l_api_name CONSTANT VARCHAR2(30) := 'get_coverage_levels';
322 --l_api_version CONSTANT NUMBER := 1.0;
323 BEGIN
324 l_return_status := OKC_API.G_RET_STS_SUCCESS;
325
326 l_return_status := OKC_API.START_ACTIVITY(l_api_name
327 ,p_init_msg_list
328 ,'_PUB'
329 ,x_return_status
330 );
331 IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
332 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
333 ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
334 RAISE OKC_API.G_EXCEPTION_ERROR;
335 END IF;
336
337 OKS_ENTITLEMENTS_PVT.get_coverage_levels
338 (p_api_version
339 ,p_init_msg_list
340 ,p_contract_line_id
341 ,x_return_status
342 ,x_msg_count
343 ,x_msg_data
344 ,x_covered_levels);
345
346
347 IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
348 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
349 ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
350 RAISE OKC_API.G_EXCEPTION_ERROR;
351 END IF;
352
353 OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
354
355 EXCEPTION
356 WHEN OKC_API.G_EXCEPTION_ERROR THEN
357 x_return_status := OKC_API.HANDLE_EXCEPTIONS
358 (l_api_name,
359 G_PKG_NAME,
360 'OKC_API.G_RET_STS_ERROR',
361 x_msg_count,
362 x_msg_data,
363 '_PUB');
364 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
365 x_return_status := OKC_API.HANDLE_EXCEPTIONS
366 (l_api_name,
367 G_PKG_NAME,
368 'OKC_API.G_RET_STS_UNEXP_ERROR',
369 x_msg_count,
370 x_msg_data,
371 '_PUB');
372 WHEN OTHERS THEN
373 x_return_status := OKC_API.HANDLE_EXCEPTIONS
374 (l_api_name,
375 G_PKG_NAME,
376 'OTHERS',
377 x_msg_count,
378 x_msg_data,
379 '_PUB');
380
381 END get_coverage_levels;
382
383 PROCEDURE get_contracts
384 (p_api_version IN Number
385 ,p_init_msg_list IN Varchar2
386 ,p_inp_rec IN inp_cont_rec
387 ,x_return_status OUT NOCOPY Varchar2
388 ,x_msg_count OUT NOCOPY Number
389 ,x_msg_data OUT NOCOPY Varchar2
390 ,x_ent_contracts OUT NOCOPY ent_cont_tbl)
391 IS
392 l_return_status Varchar2(1);
393 l_api_name CONSTANT VARCHAR2(30) := 'get_contracts';
394 BEGIN
395 l_return_status := OKC_API.G_RET_STS_SUCCESS;
396
397 l_return_status := OKC_API.START_ACTIVITY(l_api_name
398 ,p_init_msg_list
399 ,'_PUB'
400 ,x_return_status
401 );
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
408 OKS_ENTITLEMENTS_PVT.get_contracts
409 (p_api_version
410 ,p_init_msg_list
411 ,p_inp_rec
412 ,x_return_status
413 ,x_msg_count
414 ,x_msg_data
415 ,x_ent_contracts);
416
417
418 IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
419 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
420 ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
421 RAISE OKC_API.G_EXCEPTION_ERROR;
422 END IF;
423
424 OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
425
426 EXCEPTION
427 WHEN OKC_API.G_EXCEPTION_ERROR THEN
428 x_return_status := OKC_API.HANDLE_EXCEPTIONS
429 (l_api_name,
430 G_PKG_NAME,
431 'OKC_API.G_RET_STS_ERROR',
432 x_msg_count,
433 x_msg_data,
434 '_PUB');
435 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
436 x_return_status := OKC_API.HANDLE_EXCEPTIONS
437 (l_api_name,
438 G_PKG_NAME,
439 'OKC_API.G_RET_STS_UNEXP_ERROR',
440 x_msg_count,
441 x_msg_data,
442 '_PUB');
443 WHEN OTHERS THEN
444 x_return_status := OKC_API.HANDLE_EXCEPTIONS
445 (l_api_name,
446 G_PKG_NAME,
447 'OTHERS',
448 x_msg_count,
449 x_msg_data,
450 '_PUB');
451 END get_contracts;
452
453 PROCEDURE get_contacts
454 (p_api_version IN Number
455 ,p_init_msg_list IN Varchar2
456 ,p_contract_id IN Number
457 ,p_contract_line_id IN Number
458 ,x_return_status OUT NOCOPY Varchar2
459 ,x_msg_count OUT NOCOPY Number
460 ,x_msg_data OUT NOCOPY Varchar2
461 ,x_ent_contacts OUT NOCOPY ent_contact_tbl)
462 IS
463 l_return_status Varchar2(1);
464 l_api_name CONSTANT VARCHAR2(30) := 'get_contacts';
465 BEGIN
466 l_return_status := OKC_API.G_RET_STS_SUCCESS;
467
468 l_return_status := OKC_API.START_ACTIVITY(l_api_name
469 ,p_init_msg_list
470 ,'_PUB'
471 ,x_return_status
472 );
473 IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
474 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
475 ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
476 RAISE OKC_API.G_EXCEPTION_ERROR;
477 END IF;
478
479 OKS_ENTITLEMENTS_PVT.get_contacts
480 (p_api_version
481 ,p_init_msg_list
482 ,p_contract_id
483 ,p_contract_line_id
484 ,x_return_status
485 ,x_msg_count
486 ,x_msg_data
487 ,x_ent_contacts);
488
489 IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
490 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
491 ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
492 RAISE OKC_API.G_EXCEPTION_ERROR;
493 END IF;
494
495 OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
496
497 EXCEPTION
498 WHEN OKC_API.G_EXCEPTION_ERROR THEN
499 x_return_status := OKC_API.HANDLE_EXCEPTIONS
500 (l_api_name,
501 G_PKG_NAME,
502 'OKC_API.G_RET_STS_ERROR',
503 x_msg_count,
504 x_msg_data,
505 '_PUB');
506 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
507 x_return_status := OKC_API.HANDLE_EXCEPTIONS
508 (l_api_name,
509 G_PKG_NAME,
510 'OKC_API.G_RET_STS_UNEXP_ERROR',
511 x_msg_count,
512 x_msg_data,
513 '_PUB');
514 WHEN OTHERS THEN
515 x_return_status := OKC_API.HANDLE_EXCEPTIONS
516 (l_api_name,
517 G_PKG_NAME,
518 'OTHERS',
519 x_msg_count,
520 x_msg_data,
521 '_PUB');
522 END get_contacts;
523
524 PROCEDURE get_preferred_engineers
525 (p_api_version IN Number
526 ,p_init_msg_list IN Varchar2
527 ,p_contract_line_id IN Number
528 ,P_business_process_id IN NUMBER -- added for 11.5.9 (patchset I) enhancement # 2467065
529 ,P_request_date IN DATE -- added for 11.5.9 (patchset I) enhancement # 2467065
530 ,x_return_status out nocopy Varchar2
531 ,x_msg_count out nocopy Number
532 ,x_msg_data out nocopy Varchar2
533 ,x_prf_engineers out nocopy prfeng_tbl_type)
534 IS
535 l_return_status Varchar2(1);
536 l_api_name CONSTANT VARCHAR2(30) := 'get_preffered_engineers';
537 BEGIN
538 l_return_status := OKC_API.G_RET_STS_SUCCESS;
539
540 l_return_status := OKC_API.START_ACTIVITY(l_api_name
541 ,p_init_msg_list
542 ,'_PUB'
543 ,x_return_status
544 );
545 IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
546 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
547 ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
548 RAISE OKC_API.G_EXCEPTION_ERROR;
549 END IF;
550
551 OKS_ENTITLEMENTS_PVT.get_preferred_engineers
552 (p_api_version
553 ,p_init_msg_list
554 ,p_contract_line_id
555 ,P_business_process_id
556 ,p_request_date
557 ,x_return_status
558 ,x_msg_count
559 ,x_msg_data
560 ,x_prf_engineers);
561
562 IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
563 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
564 ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
565 RAISE OKC_API.G_EXCEPTION_ERROR;
566 END IF;
567
568 OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
569
570 EXCEPTION
571 WHEN OKC_API.G_EXCEPTION_ERROR THEN
572 x_return_status := OKC_API.HANDLE_EXCEPTIONS
573 (l_api_name,
574 G_PKG_NAME,
575 'OKC_API.G_RET_STS_ERROR',
576 x_msg_count,
577 x_msg_data,
578 '_PUB');
579 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
580 x_return_status := OKC_API.HANDLE_EXCEPTIONS
581 (l_api_name,
582 G_PKG_NAME,
583 'OKC_API.G_RET_STS_UNEXP_ERROR',
584 x_msg_count,
585 x_msg_data,
586 '_PUB');
587 WHEN OTHERS THEN
588 x_return_status := OKC_API.HANDLE_EXCEPTIONS
589 (l_api_name,
590 G_PKG_NAME,
591 'OTHERS',
592 x_msg_count,
593 x_msg_data,
594 '_PUB');
595 END get_preferred_engineers;
596
597 PROCEDURE get_contracts
598 (p_api_version IN Number
599 ,p_init_msg_list IN Varchar2
600 ,p_inp_rec IN get_contin_rec
601 ,x_return_status OUT NOCOPY Varchar2
602 ,x_msg_count OUT NOCOPY Number
603 ,x_msg_data OUT NOCOPY Varchar2
604 ,x_ent_contracts OUT NOCOPY get_contop_tbl)
605 IS
606 l_return_status Varchar2(1);
607 l_api_name CONSTANT VARCHAR2(30) := 'get_contracts';
608 BEGIN
609 l_return_status := OKC_API.G_RET_STS_SUCCESS;
610
611 l_return_status := OKC_API.START_ACTIVITY(l_api_name
612 ,p_init_msg_list
613 ,'_PUB'
614 ,x_return_status
615 );
616 IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
617 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
618 ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
619 RAISE OKC_API.G_EXCEPTION_ERROR;
620 END IF;
621
622 OKS_ENTITLEMENTS_PVT.get_contracts
623 (p_api_version
624 ,p_init_msg_list
625 ,p_inp_rec
626 ,x_return_status
627 ,x_msg_count
628 ,x_msg_data
629 ,x_ent_contracts);
630
631
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
638 OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
639
640 EXCEPTION
641 WHEN OKC_API.G_EXCEPTION_ERROR THEN
642 x_return_status := OKC_API.HANDLE_EXCEPTIONS
643 (l_api_name,
644 G_PKG_NAME,
645 'OKC_API.G_RET_STS_ERROR',
646 x_msg_count,
647 x_msg_data,
648 '_PUB');
649 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
650 x_return_status := OKC_API.HANDLE_EXCEPTIONS
651 (l_api_name,
652 G_PKG_NAME,
653 'OKC_API.G_RET_STS_UNEXP_ERROR',
654 x_msg_count,
655 x_msg_data,
656 '_PUB');
657 WHEN OTHERS THEN
658 x_return_status := OKC_API.HANDLE_EXCEPTIONS
659 (l_api_name,
660 G_PKG_NAME,
661 'OTHERS',
662 x_msg_count,
663 x_msg_data,
664 '_PUB');
665 END get_contracts;
666
667 --Created For IB
668 PROCEDURE get_contracts
669 (p_api_version IN Number
670 ,p_init_msg_list IN Varchar2
671 ,p_inp_rec IN input_rec_ib
672 ,x_return_status OUT NOCOPY Varchar2
673 ,x_msg_count OUT NOCOPY Number
674 ,x_msg_data OUT NOCOPY Varchar2
675 ,x_ent_contracts OUT NOCOPY output_tbl_ib)
676 IS
677 l_return_status Varchar2(1);
678 l_api_name CONSTANT VARCHAR2(30) := 'get_contracts';
679 BEGIN
680 l_return_status := OKC_API.G_RET_STS_SUCCESS;
681
682 l_return_status := OKC_API.START_ACTIVITY(l_api_name
683 ,p_init_msg_list
684 ,'_PUB'
685 ,x_return_status
686 );
687 IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
688 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
689 ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
690 RAISE OKC_API.G_EXCEPTION_ERROR;
691 END IF;
692
693 OKS_ENTITLEMENTS_PVT.get_contracts
694 (p_api_version
695 ,p_init_msg_list
696 ,p_inp_rec
697 ,x_return_status
698 ,x_msg_count
699 ,x_msg_data
700 ,x_ent_contracts);
701
702
703 IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
704 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
705 ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
706 RAISE OKC_API.G_EXCEPTION_ERROR;
707 END IF;
708
709 OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
710
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 '_PUB');
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 '_PUB');
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 '_PUB');
736 END get_contracts;
737
738 ---
739
740 PROCEDURE get_react_resolve_by_time
741 (p_api_version in number
742 ,p_init_msg_list in varchar2
743 ,p_inp_rec in grt_inp_rec_type
744 ,x_return_status out nocopy varchar2
745 ,x_msg_count out nocopy number
746 ,x_msg_data out nocopy varchar2
747 ,x_react_rec out nocopy rcn_rsn_rec_type
748 ,x_resolve_rec out nocopy rcn_rsn_rec_type)
749 IS
750 l_return_status Varchar2(1);
751 l_api_name CONSTANT VARCHAR2(30) := 'get_react_resolve_by_time';
752 --l_api_version CONSTANT NUMBER := 1.0;
753 BEGIN
754 l_return_status := OKC_API.G_RET_STS_SUCCESS;
755
756 l_return_status := OKC_API.START_ACTIVITY(l_api_name
757 ,p_init_msg_list
758 ,'_PUB'
759 ,x_return_status
760 );
761 IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
762 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
763 ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
764 RAISE OKC_API.G_EXCEPTION_ERROR;
765 END IF;
766
767 OKS_ENTITLEMENTS_PVT.get_react_resolve_by_time
768 (p_api_version => p_api_version
769 ,p_init_msg_list => p_init_msg_list
770 ,p_inp_rec => p_inp_rec
771 ,x_return_status => x_return_status
772 ,x_msg_count => x_msg_count
773 ,x_msg_data => x_msg_data
774 ,x_react_rec => x_react_rec
775 ,x_resolve_rec => x_resolve_rec);
776
777 IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
778 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
779 ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
780 RAISE OKC_API.G_EXCEPTION_ERROR;
781 END IF;
782
783 OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
784
785 EXCEPTION
786 WHEN OKC_API.G_EXCEPTION_ERROR THEN
787 x_return_status := OKC_API.HANDLE_EXCEPTIONS
788 (l_api_name,
789 G_PKG_NAME,
790 'OKC_API.G_RET_STS_ERROR',
791 x_msg_count,
792 x_msg_data,
793 '_PUB');
794 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
795 x_return_status := OKC_API.HANDLE_EXCEPTIONS
796 (l_api_name,
797 G_PKG_NAME,
798 'OKC_API.G_RET_STS_UNEXP_ERROR',
799 x_msg_count,
800 x_msg_data,
801 '_PUB');
802 WHEN OTHERS THEN
803 x_return_status := OKC_API.HANDLE_EXCEPTIONS
804 (l_api_name,
805 G_PKG_NAME,
806 'OTHERS',
807 x_msg_count,
808 x_msg_data,
809 '_PUB');
810
811 END get_react_resolve_by_time;
812
813 --Created For Entitlement Screen
814
815 PROCEDURE Get_Contracts
816 (P_API_Version IN NUMBER
817 ,P_Init_Msg_List IN VARCHAR2
818 ,P_Inp_Rec IN Input_Rec_EntFrm
819 ,X_Return_Status OUT NOCOPY VARCHAR2
820 ,X_Msg_Count OUT NOCOPY NUMBER
821 ,X_Msg_Data OUT NOCOPY VARCHAR2
822 ,X_Ent_Contracts OUT NOCOPY Output_Tbl_EntFrm)
823 IS
824 l_return_status Varchar2(1);
825 l_api_name CONSTANT VARCHAR2(30) := 'get_contracts';
826 BEGIN
827 l_return_status := OKC_API.G_RET_STS_SUCCESS;
828
829 l_return_status := OKC_API.START_ACTIVITY(l_api_name
830 ,p_init_msg_list
831 ,'_PUB'
832 ,x_return_status
833 );
834 IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
835 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
836 ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
837 RAISE OKC_API.G_EXCEPTION_ERROR;
838 END IF;
839
840 OKS_ENTITLEMENTS_PVT.get_contracts
841 (P_API_Version => P_API_Version
842 ,P_Init_Msg_List => P_Init_Msg_List
843 ,P_Inp_Rec => P_Inp_Rec
844 ,X_Return_Status => X_Return_Status
845 ,X_Msg_Count => X_Msg_Count
846 ,X_Msg_Data => X_Msg_Data
847 ,X_Ent_Contracts => X_Ent_Contracts);
848
849
850 IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
851 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
852 ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
853 RAISE OKC_API.G_EXCEPTION_ERROR;
854 END IF;
855
856 OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
857
858 EXCEPTION
859 WHEN OKC_API.G_EXCEPTION_ERROR THEN
860 x_return_status := OKC_API.HANDLE_EXCEPTIONS
861 (l_api_name,
862 G_PKG_NAME,
863 'OKC_API.G_RET_STS_ERROR',
864 x_msg_count,
865 x_msg_data,
866 '_PUB');
867 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
868 x_return_status := OKC_API.HANDLE_EXCEPTIONS
869 (l_api_name,
870 G_PKG_NAME,
871 'OKC_API.G_RET_STS_UNEXP_ERROR',
872 x_msg_count,
873 x_msg_data,
874 '_PUB');
875 WHEN OTHERS THEN
876 x_return_status := OKC_API.HANDLE_EXCEPTIONS
877 (l_api_name,
878 G_PKG_NAME,
879 'OTHERS',
880 x_msg_count,
881 x_msg_data,
882 '_PUB');
883 END get_contracts;
884
885 ---
886
887 PROCEDURE Get_Coverage_Type
888 (P_API_Version IN NUMBER
889 ,P_Init_Msg_List IN VARCHAR2
890 ,P_Contract_Line_Id IN NUMBER
891 ,X_Return_Status OUT NOCOPY VARCHAR2
892 ,X_Msg_Count out nocopy NUMBER
893 ,X_Msg_Data out nocopy VARCHAR2
894 ,X_Coverage_Type OUT NOCOPY CovType_Rec_Type)
895
896 IS
897
898 l_return_status Varchar2(1);
899 l_api_name CONSTANT VARCHAR2(30) := 'get_react_resolve_by_time';
900
901 BEGIN
902 l_return_status := OKC_API.G_RET_STS_SUCCESS;
903
904 l_return_status := OKC_API.START_ACTIVITY(l_api_name
905 ,p_init_msg_list
906 ,'_PUB'
907 ,x_return_status);
908
909 IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
910 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
911 ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
912 RAISE OKC_API.G_EXCEPTION_ERROR;
913 END IF;
914
915 OKS_ENTITLEMENTS_PVT.Get_Coverage_Type
916 (P_API_Version => p_api_version
917 ,P_Init_Msg_List => p_init_msg_list
918 ,P_Contract_Line_Id => P_Contract_Line_Id
919 ,X_Return_Status => x_return_status
920 ,X_Msg_Count => x_msg_count
921 ,X_Msg_Data => x_msg_data
922 ,X_Coverage_Type => X_Coverage_Type);
923
924 IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
925 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
926 ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
927 RAISE OKC_API.G_EXCEPTION_ERROR;
928 END IF;
929
930 OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
931
932 EXCEPTION
933
934 WHEN OKC_API.G_EXCEPTION_ERROR THEN
935
936 x_return_status := OKC_API.HANDLE_EXCEPTIONS
937 (l_api_name,
938 G_PKG_NAME,
939 'OKC_API.G_RET_STS_ERROR',
940 x_msg_count,
941 x_msg_data,
942 '_PUB');
943
944 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
945
946 x_return_status := OKC_API.HANDLE_EXCEPTIONS
947 (l_api_name,
948 G_PKG_NAME,
949 'OKC_API.G_RET_STS_UNEXP_ERROR',
950 x_msg_count,
951 x_msg_data,
952 '_PUB');
953
954 WHEN OTHERS THEN
955
956 x_return_status := OKC_API.HANDLE_EXCEPTIONS
957 (l_api_name,
958 G_PKG_NAME,
959 'OTHERS',
960 x_msg_count,
961 x_msg_data,
962 '_PUB');
963
964 END Get_Coverage_Type;
965
966
967 /**********************************************************************
968 This procedure is for IB to get the contracts for a
969 given Customer product and Highest Coverage Importance level
970 ***********************************************************************/
971
972 PROCEDURE Get_HighImp_CP_Contract
973 (P_API_Version IN NUMBER
974 ,P_Init_Msg_List IN VARCHAR2
975 ,P_Customer_product_Id IN NUMBER
976 ,X_Return_Status OUT NOCOPY VARCHAR2
977 ,X_Msg_Count out nocopy NUMBER
978 ,X_Msg_Data out nocopy VARCHAR2
979 ,X_Importance_Lvl OUT NOCOPY High_Imp_level_K_rec)
980
981 IS
982
983 l_return_status Varchar2(1);
984 l_api_name CONSTANT VARCHAR2(30) := 'Get_HighImp_CP_Contract';
985
986 BEGIN
987
988 l_return_status := OKC_API.G_RET_STS_SUCCESS;
989
990 l_return_status := OKC_API.START_ACTIVITY(l_api_name
991 ,p_init_msg_list
992 ,'_PUB'
993 ,x_return_status);
994
995 IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
996 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
997 ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
998 RAISE OKC_API.G_EXCEPTION_ERROR;
999 END IF;
1000
1001
1002
1003 OKS_ENTITLEMENTS_PVT.Get_HighImp_CP_Contract
1004 (P_API_Version => p_api_version
1005 ,P_Init_Msg_List => p_init_msg_list
1006 ,P_Customer_product_Id => P_Customer_product_Id
1007 ,X_Return_Status => x_return_status
1008 ,X_Msg_Count => x_msg_count
1009 ,X_Msg_Data => x_msg_data
1010 ,X_Importance_Lvl => X_Importance_Lvl);
1011
1012 IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1013 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1014 ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
1015 RAISE OKC_API.G_EXCEPTION_ERROR;
1016 END IF;
1017
1018 OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
1019
1020 EXCEPTION
1021
1022 WHEN OKC_API.G_EXCEPTION_ERROR THEN
1023
1024 x_return_status := OKC_API.HANDLE_EXCEPTIONS
1025 (l_api_name,
1026 G_PKG_NAME,
1027 'OKC_API.G_RET_STS_ERROR',
1028 x_msg_count,
1029 x_msg_data,
1030 '_PUB');
1031
1032 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1033
1034 x_return_status := OKC_API.HANDLE_EXCEPTIONS
1035 (l_api_name,
1036 G_PKG_NAME,
1037 'OKC_API.G_RET_STS_UNEXP_ERROR',
1038 x_msg_count,
1039 x_msg_data,
1040 '_PUB');
1041
1042 WHEN OTHERS THEN
1043
1044 x_return_status := OKC_API.HANDLE_EXCEPTIONS
1045 (l_api_name,
1046 G_PKG_NAME,
1047 'OTHERS',
1048 x_msg_count,
1049 x_msg_data,
1050 '_PUB');
1051
1052 END Get_HighImp_CP_Contract;
1053
1054
1055
1056 /**********************************************************************
1057 This procedure is for CSI to return if a valid contract exits for a given System
1058 ***********************************************************************/
1059
1060
1061 PROCEDURE OKS_VALIDATE_SYSTEM
1062 (P_API_Version IN NUMBER
1063 ,P_Init_Msg_List IN VARCHAR2
1064 ,P_System_Id IN NUMBER
1065 ,P_Request_Date IN DATE
1066 ,P_Update_Only_Check IN VARCHAR2
1067 ,X_Return_Status OUT NOCOPY VARCHAR2
1068 ,X_Msg_Count out nocopy NUMBER
1069 ,X_Msg_Data out nocopy VARCHAR2
1070 ,X_System_Valid OUT NOCOPY VARCHAR2)
1071
1072 IS
1073
1074 l_return_status Varchar2(1);
1075 l_api_name CONSTANT VARCHAR2(30) := 'oks_validate_system';
1076 lx_csi VARCHAR2(1);
1077
1078 BEGIN
1079
1080 l_return_status := OKC_API.G_RET_STS_SUCCESS;
1081 lx_csi := 'F';
1082
1083
1084 l_return_status := OKC_API.START_ACTIVITY(l_api_name
1085 ,p_init_msg_list
1086 ,'_PUB'
1087 ,x_return_status);
1088
1089 IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1090 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1091 ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
1092 RAISE OKC_API.G_EXCEPTION_ERROR;
1093 END IF;
1094
1095
1096 OKS_ENTITLEMENTS_PVT.OKS_VALIDATE_SYSTEM(P_API_Version => p_api_version
1097 ,P_Init_Msg_List => p_init_msg_list
1098 ,P_System_Id => P_System_Id
1099 ,P_Request_Date => P_Request_Date
1100 ,P_Update_Only_Check => P_Update_Only_Check
1101 ,X_Return_Status => x_return_status
1102 ,X_Msg_Count => x_msg_count
1103 ,X_Msg_Data => x_msg_data
1104 ,X_SYSTEM_VALID => X_SYSTEM_VALID);
1105
1106 IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1107 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1108 ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
1109 RAISE OKC_API.G_EXCEPTION_ERROR;
1110 END IF;
1111
1112 OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
1113 --return lx_csi;
1114
1115 EXCEPTION
1116
1117 WHEN OKC_API.G_EXCEPTION_ERROR THEN
1118
1119 x_return_status := OKC_API.HANDLE_EXCEPTIONS
1120 (l_api_name,
1121 G_PKG_NAME,
1122 'OKC_API.G_RET_STS_ERROR',
1123 x_msg_count,
1124 x_msg_data,
1125 '_PUB');
1126 -- return lx_csi;
1127 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1128
1129 x_return_status := OKC_API.HANDLE_EXCEPTIONS
1130 (l_api_name,
1131 G_PKG_NAME,
1132 'OKC_API.G_RET_STS_UNEXP_ERROR',
1133 x_msg_count,
1134 x_msg_data,
1135 '_PUB');
1136 -- return lx_csi;
1137 WHEN OTHERS THEN
1138
1139 x_return_status := OKC_API.HANDLE_EXCEPTIONS
1140 (l_api_name,
1141 G_PKG_NAME,
1142 'OTHERS',
1143 x_msg_count,
1144 x_msg_data,
1145 '_PUB');
1146 --return lx_csi;
1147 END OKS_VALIDATE_SYSTEM;
1148
1149 /**********************************************************************
1150 This procedure is for CSI to get the default contracts for a given System ER#2279911
1151 ***********************************************************************/
1152
1153
1154 PROCEDURE Default_Contline_System
1155 (P_API_Version IN NUMBER
1156 ,P_Init_Msg_List IN VARCHAR2
1157 ,P_System_Id IN NUMBER
1158 ,P_Request_Date IN DATE
1159 ,X_Return_Status OUT NOCOPY VARCHAR2
1160 ,X_Msg_Count out nocopy NUMBER
1161 ,X_Msg_Data out nocopy VARCHAR2
1162 ,X_Ent_Contracts OUT NOCOPY Default_Contline_System_Rec)
1163 IS
1164 l_return_status Varchar2(1);
1165 l_api_name CONSTANT VARCHAR2(30) := 'Default_Contline_System';
1166 BEGIN
1167 l_return_status := OKC_API.G_RET_STS_SUCCESS;
1168
1169 l_return_status := OKC_API.START_ACTIVITY(l_api_name
1170 ,p_init_msg_list
1171 ,'_PUB'
1172 ,x_return_status
1173 );
1174
1175 IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1176 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1177 ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
1178 RAISE OKC_API.G_EXCEPTION_ERROR;
1179 END IF;
1180
1181 OKS_ENTITLEMENTS_PVT.Default_Contline_System
1182 (P_API_Version => p_api_version
1183 ,P_Init_Msg_List => p_Init_msg_list
1184 ,P_System_Id => p_system_id
1185 ,P_Request_Date => p_request_date
1186 ,X_Return_Status => x_return_status
1187 ,X_Msg_Count => x_msg_count
1188 ,X_Msg_Data => x_msg_data
1189 ,X_Ent_Contracts => X_Ent_Contracts);
1190
1191
1192 IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1193 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1194 ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
1195 RAISE OKC_API.G_EXCEPTION_ERROR;
1196 END IF;
1197
1198 OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
1199
1200 EXCEPTION
1201 WHEN OKC_API.G_EXCEPTION_ERROR THEN
1202 x_return_status := OKC_API.HANDLE_EXCEPTIONS
1203 (l_api_name,
1204 G_PKG_NAME,
1205 'OKC_API.G_RET_STS_ERROR',
1206 x_msg_count,
1207 x_msg_data,
1208 '_PUB');
1209 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1210 x_return_status := OKC_API.HANDLE_EXCEPTIONS
1211 (l_api_name,
1212 G_PKG_NAME,
1213 'OKC_API.G_RET_STS_UNEXP_ERROR',
1214 x_msg_count,
1215 x_msg_data,
1216 '_PUB');
1217 WHEN OTHERS THEN
1218 x_return_status := OKC_API.HANDLE_EXCEPTIONS
1219 (l_api_name,
1220 G_PKG_NAME,
1221 'OTHERS',
1222 x_msg_count,
1223 x_msg_data,
1224 '_PUB');
1225 END Default_Contline_System;
1226
1227 procedure Get_cov_txn_groups
1228 (p_api_version IN Number
1229 ,p_init_msg_list IN Varchar2
1230 ,p_inp_rec_bp IN inp_rec_bp
1231 ,x_return_status OUT NOCOPY Varchar2
1232 ,x_msg_count OUT NOCOPY Number
1233 ,x_msg_data OUT NOCOPY Varchar2
1234 ,x_cov_txn_grp_lines OUT NOCOPY output_tbl_bp)
1235 IS
1236 l_return_status Varchar2(1);
1237 l_api_name CONSTANT VARCHAR2(30) := 'Get_cov_txn_groups';
1238 BEGIN
1239 l_return_status := OKC_API.G_RET_STS_SUCCESS;
1240
1241 l_return_status := OKC_API.START_ACTIVITY(l_api_name
1242 ,p_init_msg_list
1243 ,'_PUB'
1244 ,x_return_status
1245 );
1246
1247 IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1248 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1249 ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
1250 RAISE OKC_API.G_EXCEPTION_ERROR;
1251 END IF;
1252
1253
1254 OKS_ENTITLEMENTS_PVT.Get_cov_txn_groups
1255 (p_api_version => p_api_version
1256 ,p_init_msg_list => p_init_msg_list
1257 ,p_inp_rec_bp => p_inp_rec_bp
1258 ,x_return_status => x_return_status
1259 ,x_msg_count => x_msg_count
1260 ,x_msg_data => x_msg_data
1261 ,x_cov_txn_grp_lines => x_cov_txn_grp_lines);
1262
1263
1264 IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1265 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1266 ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
1267 RAISE OKC_API.G_EXCEPTION_ERROR;
1268 END IF;
1269
1270 OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
1271
1272 EXCEPTION
1273 WHEN OKC_API.G_EXCEPTION_ERROR THEN
1274 x_return_status := OKC_API.HANDLE_EXCEPTIONS
1275 (l_api_name,
1276 G_PKG_NAME,
1277 'OKC_API.G_RET_STS_ERROR',
1278 x_msg_count,
1279 x_msg_data,
1280 '_PUB');
1281 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1282 x_return_status := OKC_API.HANDLE_EXCEPTIONS
1283 (l_api_name,
1284 G_PKG_NAME,
1285 'OKC_API.G_RET_STS_UNEXP_ERROR',
1286 x_msg_count,
1287 x_msg_data,
1288 '_PUB');
1289 WHEN OTHERS THEN
1290 x_return_status := OKC_API.HANDLE_EXCEPTIONS
1291 (l_api_name,
1292 G_PKG_NAME,
1293 'OTHERS',
1294 x_msg_count,
1295 x_msg_data,
1296 '_PUB');
1297 END Get_cov_txn_groups;
1298
1299
1300 PROCEDURE Get_txn_billing_types
1301 (p_api_version IN Number
1302 ,p_init_msg_list IN Varchar2
1303 ,p_cov_txngrp_line_id IN Number
1304 ,p_return_bill_rates_YN IN Varchar2
1305 ,x_return_status OUT NOCOPY Varchar2
1306 ,x_msg_count OUT NOCOPY Number
1307 ,x_msg_data OUT NOCOPY Varchar2
1308 ,x_txn_bill_types OUT NOCOPY output_tbl_bt
1309 ,x_txn_bill_rates out nocopy output_tbl_br)
1310 IS
1311 l_return_status Varchar2(1);
1312 l_api_name CONSTANT VARCHAR2(30) := 'Get_txn_billing_types';
1313 BEGIN
1314 l_return_status := OKC_API.G_RET_STS_SUCCESS;
1315
1316 l_return_status := OKC_API.START_ACTIVITY(l_api_name
1317 ,p_init_msg_list
1318 ,'_PUB'
1319 ,x_return_status
1320 );
1321
1322 IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1323 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1324 ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
1325 RAISE OKC_API.G_EXCEPTION_ERROR;
1326 END IF;
1327
1328
1329 OKS_ENTITLEMENTS_PVT.Get_txn_billing_types
1330 (p_api_version => p_api_version
1331 ,p_init_msg_list => p_init_msg_list
1332 ,p_cov_txngrp_line_id => p_cov_txngrp_line_id
1333 ,p_return_bill_rates_YN => p_return_bill_rates_YN
1334 ,x_return_status => x_return_status
1335 ,x_msg_count => x_msg_count
1336 ,x_msg_data => x_msg_data
1337 ,x_txn_bill_types => x_txn_bill_types
1338 ,x_txn_bill_rates => x_txn_bill_rates);
1339
1340
1341 IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1342 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1343 ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
1344 RAISE OKC_API.G_EXCEPTION_ERROR;
1345 END IF;
1346
1347 OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
1348
1349 EXCEPTION
1350 WHEN OKC_API.G_EXCEPTION_ERROR THEN
1351 x_return_status := OKC_API.HANDLE_EXCEPTIONS
1352 (l_api_name,
1353 G_PKG_NAME,
1354 'OKC_API.G_RET_STS_ERROR',
1355 x_msg_count,
1356 x_msg_data,
1357 '_PUB');
1358 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1359 x_return_status := OKC_API.HANDLE_EXCEPTIONS
1360 (l_api_name,
1361 G_PKG_NAME,
1362 'OKC_API.G_RET_STS_UNEXP_ERROR',
1363 x_msg_count,
1364 x_msg_data,
1365 '_PUB');
1366 WHEN OTHERS THEN
1367 x_return_status := OKC_API.HANDLE_EXCEPTIONS
1368 (l_api_name,
1369 G_PKG_NAME,
1370 'OTHERS',
1371 x_msg_count,
1372 x_msg_data,
1373 '_PUB');
1374 END Get_txn_billing_types;
1375
1376
1377 PROCEDURE Search_Contracts
1378 (p_api_version IN Number
1379 ,p_init_msg_list IN Varchar2
1380 ,p_contract_rec IN inp_cont_rec_type
1381 ,p_clvl_id_tbl IN covlvl_id_tbl
1382 ,x_return_status out nocopy Varchar2
1383 ,x_msg_count out nocopy Number
1384 ,x_msg_data out nocopy Varchar2
1385 ,x_contract_tbl out nocopy output_tbl_contract) IS
1386
1387 l_return_status Varchar2(1);
1388 l_api_name CONSTANT VARCHAR2(30) := 'search_contracts';
1389
1390 BEGIN
1391 l_return_status := OKC_API.G_RET_STS_SUCCESS;
1392
1393 l_return_status := OKC_API.START_ACTIVITY(l_api_name
1394 ,p_init_msg_list
1395 ,'_PUB'
1396 ,x_return_status
1397 );
1398 IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1399 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1400 ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
1401 RAISE OKC_API.G_EXCEPTION_ERROR;
1402 END IF;
1403
1404 OKS_ENTITLEMENTS_PVT.search_contracts
1405 (p_api_version
1406 ,p_init_msg_list
1407 ,p_contract_rec
1408 ,p_clvl_id_tbl
1409 ,x_return_status
1410 ,x_msg_count
1411 ,x_msg_data
1412 ,x_contract_tbl);
1413
1414 IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1415 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1416 ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
1417 RAISE OKC_API.G_EXCEPTION_ERROR;
1418 END IF;
1419
1420 OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
1421
1422 EXCEPTION
1423 WHEN OKC_API.G_EXCEPTION_ERROR THEN
1424 x_return_status := OKC_API.HANDLE_EXCEPTIONS
1425 (l_api_name,
1426 G_PKG_NAME,
1427 'OKC_API.G_RET_STS_ERROR',
1428 x_msg_count,
1429 x_msg_data,
1430 '_PUB');
1431 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1432 x_return_status := OKC_API.HANDLE_EXCEPTIONS
1433 (l_api_name,
1434 G_PKG_NAME,
1435 'OKC_API.G_RET_STS_UNEXP_ERROR',
1436 x_msg_count,
1437 x_msg_data,
1438 '_PUB');
1439 WHEN OTHERS THEN
1440 x_return_status := OKC_API.HANDLE_EXCEPTIONS
1441 (l_api_name,
1442 G_PKG_NAME,
1443 'OTHERS',
1444 x_msg_count,
1445 x_msg_data,
1446 '_PUB');
1447 END Search_Contracts;
1448
1449 PROCEDURE Get_Contracts_Expiration
1450 (p_api_version IN Number
1451 ,p_init_msg_list IN Varchar2
1452 ,p_contract_id IN Number
1453 ,x_return_status out nocopy Varchar2
1454 ,x_msg_count out nocopy Number
1455 ,x_msg_data out nocopy Varchar2
1456 ,x_contract_end_date out nocopy date
1457 ,x_Contract_Grace_Duration out nocopy number
1458 ,x_Contract_Grace_Period out nocopy VARCHAR2)
1459
1460 IS
1461 l_return_status Varchar2(1);
1462 l_api_name CONSTANT VARCHAR2(30) := 'Get_Contracts_Expiration';
1463
1464 BEGIN
1465 l_return_status := OKC_API.G_RET_STS_SUCCESS;
1466
1467 l_return_status := OKC_API.START_ACTIVITY(l_api_name
1468 ,p_init_msg_list
1469 ,'_PUB'
1470 ,x_return_status
1471 );
1472 IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1473 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1474 ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
1475 RAISE OKC_API.G_EXCEPTION_ERROR;
1476 END IF;
1477
1478 OKS_ENTITLEMENTS_PVT.Get_Contracts_Expiration
1479 (p_api_version
1480 ,p_init_msg_list
1481 ,p_contract_id
1482 ,x_return_status
1483 ,x_msg_count
1484 ,x_msg_data
1485 ,x_contract_end_date
1486 ,x_Contract_Grace_Period
1487 ,x_Contract_Grace_Duration);
1488
1489
1490 IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1491 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1492 ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
1493 RAISE OKC_API.G_EXCEPTION_ERROR;
1494 END IF;
1495
1496 OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
1497
1498 EXCEPTION
1499 WHEN OKC_API.G_EXCEPTION_ERROR THEN
1500 x_return_status := OKC_API.HANDLE_EXCEPTIONS
1501 (l_api_name,
1502 G_PKG_NAME,
1503 'OKC_API.G_RET_STS_ERROR',
1504 x_msg_count,
1505 x_msg_data,
1506 '_PUB');
1507 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1508 x_return_status := OKC_API.HANDLE_EXCEPTIONS
1509 (l_api_name,
1510 G_PKG_NAME,
1511 'OKC_API.G_RET_STS_UNEXP_ERROR',
1512 x_msg_count,
1513 x_msg_data,
1514 '_PUB');
1515 WHEN OTHERS THEN
1516 x_return_status := OKC_API.HANDLE_EXCEPTIONS
1517 (l_api_name,
1518 G_PKG_NAME,
1519 'OTHERS',
1520 x_msg_count,
1521 x_msg_data,
1522 '_PUB');
1523 END Get_Contracts_Expiration;
1524
1525 --============================================
1526
1527 PROCEDURE VALIDATE_CONTRACT_LINE
1528 (p_api_version IN NUMBER
1529 ,p_init_msg_list IN VARCHAR2
1530 ,p_contract_line_id IN NUMBER
1531 ,p_busiproc_id IN NUMBER
1532 ,p_request_date IN DATE
1533 ,p_covlevel_tbl_in IN covlevel_tbl_type
1534 ,p_verify_combination IN VARCHAR2
1535 ,x_return_status out nocopy Varchar2
1536 ,x_msg_count out nocopy Number
1537 ,x_msg_data out nocopy Varchar2
1538 ,x_covlevel_tbl_out OUT NOCOPY covlevel_tbl_type
1539 ,x_combination_valid OUT NOCOPY VARCHAR2)
1540 IS
1541
1542 l_return_status Varchar2(1);
1543 l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_CONTRACT_LINE';
1544
1545 BEGIN
1546 l_return_status := OKC_API.G_RET_STS_SUCCESS;
1547
1548 l_return_status := OKC_API.START_ACTIVITY(l_api_name
1549 ,p_init_msg_list
1550 ,'_PUB'
1551 ,x_return_status
1552 );
1553 IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1554 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1555 ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
1556 RAISE OKC_API.G_EXCEPTION_ERROR;
1557 END IF;
1558
1559 OKS_ENTITLEMENTS_PVT.VALIDATE_CONTRACT_LINE(p_api_version
1560 ,p_init_msg_list
1561 ,p_contract_line_id
1562 ,p_busiproc_id
1563 ,p_request_date
1564 ,p_covlevel_tbl_in
1565 ,p_verify_combination
1566 ,x_return_status
1567 ,x_msg_count
1568 ,x_msg_data
1569 ,x_covlevel_tbl_out
1570 ,x_combination_valid );
1571
1572
1573 IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1574 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1575 ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
1576 RAISE OKC_API.G_EXCEPTION_ERROR;
1577 END IF;
1578
1579 OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
1580
1581
1582 EXCEPTION
1583 WHEN OKC_API.G_EXCEPTION_ERROR THEN
1584 x_return_status := OKC_API.HANDLE_EXCEPTIONS
1585 (l_api_name,
1586 G_PKG_NAME,
1587 'OKC_API.G_RET_STS_ERROR',
1588 x_msg_count,
1589 x_msg_data,
1590 '_PUB');
1591 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1592 x_return_status := OKC_API.HANDLE_EXCEPTIONS
1593 (l_api_name,
1594 G_PKG_NAME,
1595 'OKC_API.G_RET_STS_UNEXP_ERROR',
1596 x_msg_count,
1597 x_msg_data,
1598 '_PUB');
1599 WHEN OTHERS THEN
1600 x_return_status := OKC_API.HANDLE_EXCEPTIONS
1601 (l_api_name,
1602 G_PKG_NAME,
1603 'OTHERS',
1604 x_msg_count,
1605 x_msg_data,
1606 '_PUB');
1607
1608 END VALIDATE_CONTRACT_LINE;
1609
1610
1611 PROCEDURE Search_Contract_lines
1612 (p_api_version IN Number
1613 ,p_init_msg_list IN Varchar2
1614 ,p_contract_rec IN srchline_inpcontrec_type
1615 ,p_contract_line_rec IN srchline_inpcontlinerec_type
1616 ,p_clvl_id_tbl IN srchline_covlvl_id_tbl
1617 ,x_return_status out nocopy Varchar2
1618 ,x_msg_count out nocopy Number
1619 ,x_msg_data out nocopy Varchar2
1620 ,x_contract_tbl out nocopy output_tbl_contractline)
1621 IS
1622
1623 l_return_status Varchar2(1);
1624 l_api_name CONSTANT VARCHAR2(30) := 'Search_Contract_Lines';
1625
1626 BEGIN
1627
1628 l_return_status := OKC_API.G_RET_STS_SUCCESS;
1629
1630 l_return_status := OKC_API.START_ACTIVITY(l_api_name
1631 ,p_init_msg_list
1632 ,'_PUB'
1633 ,x_return_status
1634 );
1635 IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1636 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1637 ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
1638 RAISE OKC_API.G_EXCEPTION_ERROR;
1639 END IF;
1640
1641 OKS_ENTITLEMENTS_PVT.Search_Contract_lines
1642 ( p_api_version,
1643 p_init_msg_list,
1644 p_contract_rec,
1645 p_contract_line_rec,
1646 p_clvl_id_tbl,
1647 x_return_status,
1648 x_msg_count,
1649 x_msg_data,
1650 x_contract_tbl);
1651
1652
1653 IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1654 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1655 ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
1656 RAISE OKC_API.G_EXCEPTION_ERROR;
1657 END IF;
1658
1659 OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
1660
1661
1662 EXCEPTION
1663 WHEN OKC_API.G_EXCEPTION_ERROR THEN
1664 x_return_status := OKC_API.HANDLE_EXCEPTIONS
1665 (l_api_name,
1666 G_PKG_NAME,
1667 'OKC_API.G_RET_STS_ERROR',
1668 x_msg_count,
1669 x_msg_data,
1670 '_PUB');
1671 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1672 x_return_status := OKC_API.HANDLE_EXCEPTIONS
1673 (l_api_name,
1674 G_PKG_NAME,
1675 'OKC_API.G_RET_STS_UNEXP_ERROR',
1676 x_msg_count,
1677 x_msg_data,
1678 '_PUB');
1679 WHEN OTHERS THEN
1680 x_return_status := OKC_API.HANDLE_EXCEPTIONS
1681 (l_api_name,
1682 G_PKG_NAME,
1683 'OTHERS',
1684 x_msg_count,
1685 x_msg_data,
1686 '_PUB');
1687 END Search_Contract_lines;
1688
1689 END OKS_ENTITLEMENTS_PUB;