eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.OKS_ENTITLEMENTS_PUB

Source


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