[Home] [Help]
PACKAGE BODY: APPS.OKL_TERMS_AND_CONDS_PVT
Source
1 PACKAGE BODY OKL_TERMS_AND_CONDS_PVT as
2 /* $Header: OKLRSZTB.pls 115.4 2003/06/25 01:30:56 ashariff noship $ */
3 /* *********************************************** */
4 --G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
5 --G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
6 G_EXCEPTION_HALT_PROCESSING exception;
7 G_EXCEPTION_STOP_VALIDATION exception;
8
9
10 G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_TERMS_AND_CONDS_PVT';
11 G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
12 G_API_TYPE CONSTANT VARCHAR2(4) := '_PVT';
13 l_api_name VARCHAR2(35) := 'TERMS_AND_CONDS';
14
15
16 PROCEDURE get_sec_terms_conditions(
17 p_api_version IN NUMBER,
18 p_init_msg_list IN VARCHAR2,
19 x_return_status OUT NOCOPY VARCHAR2,
20 x_msg_count OUT NOCOPY NUMBER,
21 x_msg_data OUT NOCOPY VARCHAR2,
22 x_trm_tbl OUT NOCOPY trm_tbl_type) IS
23
24 CURSOR TERMS_CONDS_CSR
25 --(P_TYPE IN VARCHAR2)
26 is
27 SELECT
28 1 SEQ_NO,
29 FND.MEANING GROUP_TITLE,
30 FND.DESCRIPTION DESCRIPTION,
31 --'LASEBB|LASERE|LASEAD|LASEAM|LASEIN|LASEEX' RULE_GROUP,
32 --'LASEBB-LASEFM|LASERE-LASEPR|LASEAD-LASEPR|LASEAM-LASEPR|LASEIN-LASEPR|LASEEX-LASEPR' RULE_SEQUENCE,
33 'LASEBB' RULE_GROUP,
34 'LASEBB-LASEFM' RULE_SEQUENCE,
35 'GROUP' TITLE_STYLE,
36 'OKL_TERMS_CONDS' PAGETITLE,
37 'OKL_LA_SEC_TC' REGION,
38 'NO' CURRENCY ,
39 'NO' DISABLED ,
40 'OKLLASECLASEPR' TOKEN ,
41 'oklLaSecRules.jsp' JSP
42 FROM FND_LOOKUPS FND
43 WHERE LOOKUP_TYPE = 'OKL_LA_SEC_LINKS' AND LOOKUP_CODE = 'OKLLASECLASEPR'
44 UNION
45 SELECT 2 SEQ_NO,
46 FND.MEANING GROUP_TITLE,
47 FND.DESCRIPTION DESCRIPTION,
48 'LASEIR' RULE_GROUP,
49 --'LASEIR-LASEIR|LASEIR-LAIVAR|LASEIR-LAICLC|LASEIR-LAFORM' RULE_SEQUENCE,
50 'LASEIR-LASEIR' RULE_SEQUENCE,
51 'RULE' TITLE_STYLE,
52 'OKL_TERMS_CONDS' PAGETITLE,
53 'OKL_LA_SEC_TC' REGION,
54 'NO' CURRENCY,
55 'NO' DISABLED,
56 'OKLLASECLASEIR' TOKEN ,
57 'oklLaSecRules.jsp' JSP
58 FROM FND_LOOKUPS FND
59 WHERE LOOKUP_TYPE = 'OKL_LA_SEC_LINKS' AND LOOKUP_CODE = 'OKLLASECLASEIR'
60 UNION
61 SELECT 2 SEQ_NO,
62 FND.MEANING GROUP_TITLE,
63 FND.DESCRIPTION DESCRIPTION,
64 'LASEAC' RULE_GROUP,
65 'LASEAC-LASEAC' RULE_SEQUENCE,
66 'RULE' TITLE_STYLE,
67 'OKL_TERMS_CONDS' PAGETITLE,
68 'OKL_LA_SEC_TC' REGION,
69 'NO' CURRENCY,
70 'NO' DISABLED,
71 'OKLLASECLASEAC' TOKEN ,
72 'oklLaSecRules.jsp' JSP
73 FROM FND_LOOKUPS FND
74 WHERE LOOKUP_TYPE = 'OKL_LA_SEC_LINKS' AND LOOKUP_CODE = 'OKLLASECLASEAC'
75
76 ORDER BY 1;
77
78 l_trm_rec TERMS_CONDS_CSR%RowType;
79
80 l_trm_tbl trm_tbl_type;
81
82 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
83 l_api_name CONSTANT VARCHAR2(30) := 'GET_SEC_TERMS_CONDITIONS';
84 l_api_version CONSTANT NUMBER := 1.0;
85
86 i NUMBER := 0;
87
88 begin
89 l_return_status := OKL_API.START_ACTIVITY( substr(l_api_name,1,26),
90 G_PKG_NAME,
91 p_init_msg_list,
92 l_api_version,
93 p_api_version,
94 G_API_TYPE,
95 x_return_status);
96
97 IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
98 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
99 ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
100 RAISE OKL_API.G_EXCEPTION_ERROR;
101 END IF;
102 x_return_status := l_return_status;
103 Open TERMS_CONDS_CSR;
104 Loop
105 Fetch TERMS_CONDS_CSR into l_trm_rec;
106 If TERMS_CONDS_CSR%NotFound Then
107 --dbms_output.put_line('No Rule Found in Rule Group "'||p_rgd_code||'"');
108 Exit;
109 Else
110 i := i + 1;
111 l_trm_tbl(i).id := l_trm_rec.seq_no;
112 l_trm_tbl(i).group_title := l_trm_rec.group_title;
113 l_trm_tbl(i).description := l_trm_rec.description;
114 l_trm_tbl(i).rule_group := l_trm_rec.rule_group;
115 l_trm_tbl(i).rule_sequence := l_trm_rec.rule_sequence;
116 l_trm_tbl(i).title_style := l_trm_rec.title_style;
117 l_trm_tbl(i).pagetitle := l_trm_rec.pagetitle;
118 l_trm_tbl(i).region := l_trm_rec.region;
119 l_trm_tbl(i).currency := l_trm_rec.currency;
120 l_trm_tbl(i).disabled := l_trm_rec.disabled;
121 l_trm_tbl(i).jsp := l_trm_rec.jsp;
122 End If;
123 End Loop;
124 x_return_status := l_return_status;
125
126 Close TERMS_CONDS_CSR;
127 x_trm_tbl := l_trm_tbl;
128 --Call End Activity
129 OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
130 x_msg_data => x_msg_data);
131
132
133 EXCEPTION
134 when OKC_API.G_EXCEPTION_ERROR then
135 x_return_status := OKC_API.HANDLE_EXCEPTIONS(
136 p_api_name => l_api_name,
137 p_pkg_name => G_PKG_NAME,
138 p_exc_name => 'OKC_API.G_RET_STS_ERROR',
139 x_msg_count => x_msg_count,
140 x_msg_data => x_msg_data,
141 p_api_type => G_API_TYPE);
142
143 when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
144 x_return_status := OKC_API.HANDLE_EXCEPTIONS(
145 p_api_name => l_api_name,
146 p_pkg_name => G_PKG_NAME,
147 p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
148 x_msg_count => x_msg_count,
149 x_msg_data => x_msg_data,
150 p_api_type => G_API_TYPE);
151
152 when OTHERS then
153 x_return_status := OKC_API.HANDLE_EXCEPTIONS(
154 p_api_name => l_api_name,
155 p_pkg_name => G_PKG_NAME,
156 p_exc_name => 'OTHERS',
157 x_msg_count => x_msg_count,
158 x_msg_data => x_msg_data,
159 p_api_type => G_API_TYPE);
160
161 END get_sec_terms_conditions;
162
163
164
165 PROCEDURE get_lease_terms_conditions(
166 p_api_version IN NUMBER,
167 p_init_msg_list IN VARCHAR2,
168 x_return_status OUT NOCOPY VARCHAR2,
169 x_msg_count OUT NOCOPY NUMBER,
170 x_msg_data OUT NOCOPY VARCHAR2,
171 x_trm_tbl OUT NOCOPY trm_tbl_type) IS
172
173 CURSOR TERMS_CONDS_CSR
174 --(P_TYPE IN VARCHAR2)
175 is
176 SELECT
177 1 SEQ_NO,
178 FND.MEANING GROUP_TITLE,
179 FND.DESCRIPTION DESCRIPTION,
180 'LABILL' RULE_GROUP,
181 'LABILL-BTO|LABILL-LAPMTH|LABILL-LABACC|LABILL-LAINVD|LABILL-LAINPR' RULE_SEQUENCE,
182 'SINGLE' TITLE_STYLE,
183 'OKL_TERMS_CONDS' PAGETITLE,
184 'OKL_TC_ATTRIBUTES' REGION,
185 'NO' CURRENCY ,
186 'NO' DISABLED ,
187 'OKLLABILLINGSETUPLABILL' TOKEN ,
188 'oklLaBillingSetup.jsp' JSP
189 FROM FND_LOOKUPS FND
190 WHERE LOOKUP_TYPE = 'OKL_TC_LINKS' AND LOOKUP_CODE = 'OKLLABILLINGSETUPLABILL'
191 UNION
192 SELECT
193 2 SEQ_NO,
194 FND.MEANING GROUP_TITLE,
195 FND.DESCRIPTION DESCRIPTION,
196 'LALCGR|LALIGR' RULE_GROUP,
197 Null RULE_SEQUENCE,
198 'GROUP' TITLE_STYLE,
199 'OKL_TERMS_CONDS' PAGETITLE,
200 'OKL_TC_ATTRIBUTES' REGION,
201 'NO' CURRENCY , 'NO' DISABLED ,
202 'OKLLARULEGROUPSLALCGR' TOKEN ,
203 'oklLaRuleGroups.jsp' JSP
204 FROM FND_LOOKUPS FND
205 WHERE LOOKUP_TYPE = 'OKL_TC_LINKS' AND LOOKUP_CODE = 'OKLLARULEGROUPSLALCGR'
206 UNION
207 SELECT 3 SEQ_NO,
208 FND.MEANING GROUP_TITLE,
209 FND.DESCRIPTION DESCRIPTION,
210 'LARNOP' RULE_GROUP,
211 NULL RULE_SEQUENCE,
212 'GROUP' TITLE_STYLE,
213 'OKL_TERMS_CONDS' PAGETITLE,
214 'OKL_TC_ATTRIBUTES' REGION,
215 'YES' CURRENCY,
216 'NO' DISABLED,
217 'OKLLARULEGROUPSLARNOP' TOKEN ,
218 'oklLaRuleGroups.jsp' JSP
219 FROM FND_LOOKUPS FND
220 WHERE LOOKUP_TYPE = 'OKL_TC_LINKS' AND LOOKUP_CODE = 'OKLLARULEGROUPSLARNOP'
221 UNION
222 SELECT 4 SEQ_NO,
223 FND.MEANING GROUP_TITLE,
224 FND.DESCRIPTION DESCRIPTION,
225 'LAIIND' RULE_GROUP,
226 'LAIIND-LAINTP|LAIIND-LAICON|LAIIND-LAIVAR|LAIIND-LAICLC|LAIIND-LAFORM' RULE_SEQUENCE,
227 'RULE' TITLE_STYLE,
228 'OKL_TERMS_CONDS' PAGETITLE,
229 'OKL_TC_ATTRIBUTES' REGION,
230 'NO' CURRENCY,
231 'NO' DISABLED,
232 'OKLLARULESLAIIND' TOKEN ,
233 'oklLaRules.jsp' JSP
234 FROM FND_LOOKUPS FND
235 WHERE LOOKUP_TYPE = 'OKL_TC_LINKS' AND LOOKUP_CODE = 'OKLLARULESLAIIND'
236 UNION
237 SELECT
238 5 SEQ_NO,
239 FND.MEANING GROUP_TITLE,
240 FND.DESCRIPTION DESCRIPTION,
241 'LASDEP|LAFCTG|LAEVEL' RULE_GROUP,
242 NULL RULE_SEQUENCE,
243 'GROUP' TITLE_STYLE,
244 'OKL_TERMS_CONDS' PAGETITLE,
245 'OKL_TC_ATTRIBUTES' REGION,
246 'NO' CURRENCY,
247 'NO' DISABLED,
248 'OKLLARULESLASDEP' TOKEN ,
249 'oklLaRuleGroups.jsp' JSP
250 FROM FND_LOOKUPS FND
251 WHERE LOOKUP_TYPE = 'OKL_TC_LINKS' AND LOOKUP_CODE = 'OKLLARULESLASDEP'
252 UNION
253 SELECT
254 6 SEQ_NO,
255 FND.MEANING GROUP_TITLE,
256 FND.DESCRIPTION DESCRIPTION,
257 'LARVIN' RULE_GROUP,
258 'LARVIN-LARVAU|LARVIN-LARVAM' RULE_SEQUENCE,
259 'GROUP' TITLE_STYLE,
260 'OKL_TERMS_CONDS' PAGETITLE,
261 'OKL_TC_ATTRIBUTES' REGION,
262 'NO' CURRENCY,
263 'NO' DISABLED,
264 'OKLLARULESLARVIN' TOKEN ,
265 'oklLaRules.jsp' JSP
266 FROM FND_LOOKUPS FND
267 WHERE LOOKUP_TYPE = 'OKL_TC_LINKS' AND LOOKUP_CODE = 'OKLLARULESLARVIN'
268 UNION
269 SELECT
270 7 SEQ_NO,
271 FND.MEANING GROUP_TITLE,
272 FND.DESCRIPTION DESCRIPTION,
273 'LAFLLG' RULE_GROUP,
274 'LAAFLG-LAFLLN|LAAFLG-LAFLTL' RULE_SEQUENCE,
275 'RULE' TITLE_STYLE,
276 'OKL_TERMS_CONDS' PAGETITLE,
277 'OKL_TC_ATTRIBUTES' REGION,
278 'NO' CURRENCY,
279 'NO' DISABLED,
280 'OKLLARULESLAFLLG' TOKEN ,
281 'oklLaRules.jsp' JSP
282 FROM FND_LOOKUPS FND
283 WHERE LOOKUP_TYPE = 'OKL_TC_LINKS' AND LOOKUP_CODE = 'OKLLARULESLAFLLG'
284 UNION
285 SELECT
286 8 SEQ_NO,
287 FND.MEANING GROUP_TITLE,
288 FND.DESCRIPTION DESCRIPTION,
289 'AMLARL|AMREPQ' RULE_GROUP,
290 'DEFAULT' RULE_SEQUENCE,
291 'GROUP' TITLE_STYLE,
292 'OKL_TERMS_CONDS' PAGETITLE,
293 'OKL_TC_ATTRIBUTES' REGION,
294 'YES' CURRENCY,
295 'NO' DISABLED,
296 'OKLLARULESAMLARL' TOKEN ,
297 'oklLaRules.jsp' JSP
298 FROM FND_LOOKUPS FND
299 WHERE LOOKUP_TYPE = 'OKL_TC_LINKS' AND LOOKUP_CODE = 'OKLLARULESAMLARL'
300 UNION
301 SELECT
302 9 SEQ_NO,
303 FND.MEANING GROUP_TITLE,
304 FND.DESCRIPTION DESCRIPTION,
305 'AMTEOC|AMTFOC' RULE_GROUP,
306 'DEFAULT' RULE_SEQUENCE,
307 'GROUP' TITLE_STYLE,
308 'OKL_TERMS_CONDS' PAGETITLE,
309 'OKL_TC_ATTRIBUTES' REGION,
310 'YES' CURRENCY,
311 'NO' DISABLED,
312 'OKLLARULESAMTEOC' TOKEN ,
313 'oklLaRules.jsp' JSP
314 FROM FND_LOOKUPS FND
315 WHERE LOOKUP_TYPE = 'OKL_TC_LINKS' AND LOOKUP_CODE = 'OKLLARULESAMTEOC'
316 UNION
317 SELECT
318 10 SEQ_NO,
319 FND.MEANING GROUP_TITLE,
320 FND.DESCRIPTION DESCRIPTION,
321 'AMTQPR|AMTPAR|AMTGAL|AMQR1R|AMQR5A|AMQR9F' RULE_GROUP,
322 'DEFAULT' RULE_SEQUENCE,
323 'GROUP' TITLE_STYLE,
324 'OKL_TERMS_CONDS' PAGETITLE,
325 'OKL_TC_ATTRIBUTES' REGION,
326 'YES' CURRENCY,
327 'NO' DISABLED,
328 'OKLLARULESAMTQPR' TOKEN ,
329 'oklLaRules.jsp' JSP
330 FROM FND_LOOKUPS FND
331 WHERE LOOKUP_TYPE = 'OKL_TC_LINKS' AND LOOKUP_CODE = 'OKLLARULESAMTQPR'
332 UNION
333 SELECT
334 11 SEQ_NO,
335 FND.MEANING GROUP_TITLE,
336 FND.DESCRIPTION DESCRIPTION,
337 'AMTEWC' RULE_GROUP,
338 'DEFAULT' RULE_SEQUENCE,
339 'GROUP-RULE' TITLE_STYLE,
340 'OKL_TERMS_CONDS' PAGETITLE,
341 'OKL_TC_ATTRIBUTES' REGION,
342 'YES' CURRENCY,
343 'NO' DISABLED,
344 'OKLLARULESAMTEWC' TOKEN ,
345 'oklLaRules.jsp' JSP
346 FROM FND_LOOKUPS FND
347 WHERE LOOKUP_TYPE = 'OKL_TC_LINKS' AND LOOKUP_CODE = 'OKLLARULESAMTEWC'
348 UNION
349 SELECT
350 12 SEQ_NO,
351 FND.MEANING GROUP_TITLE,
352 FND.DESCRIPTION DESCRIPTION,
353 'AMTFWC' RULE_GROUP,
354 'DEFAULT' RULE_SEQUENCE,
355 'GROUP-RULE' TITLE_STYLE,
356 'OKL_TERMS_CONDS' PAGETITLE,
357 'OKL_TC_ATTRIBUTES' REGION,
358 'YES' CURRENCY,
359 'NO' DISABLED,
360 'OKLLARULESAMTFWC' TOKEN ,
361 'oklLaRules.jsp' JSP
362 FROM FND_LOOKUPS FND
363 WHERE LOOKUP_TYPE = 'OKL_TC_LINKS' AND LOOKUP_CODE = 'OKLLARULESAMTFWC'
364 UNION
365 SELECT
366 13 SEQ_NO,
367 FND.MEANING GROUP_TITLE,
368 FND.DESCRIPTION DESCRIPTION,
369 'AMCOPO' RULE_GROUP,
370 'DEFAULT' RULE_SEQUENCE,
371 'GROUP' TITLE_STYLE, 'OKL_TERMS_CONDS'
372 PAGETITLE, 'OKL_TC_ATTRIBUTES' REGION,
373 'YES' CURRENCY,
374 'NO' DISABLED,
375 'OKLLARULESAMCOPO' TOKEN ,
376 'oklLaRules.jsp' JSP
377 FROM FND_LOOKUPS FND
378 WHERE LOOKUP_TYPE = 'OKL_TC_LINKS' AND LOOKUP_CODE = 'OKLLARULESAMCOPO'
379 UNION
380 SELECT
381 14 SEQ_NO,
382 FND.MEANING GROUP_TITLE,
383 FND.DESCRIPTION DESCRIPTION,
384 'SUMMARY' RULE_GROUP,
385 'DEFAULT' RULE_SEQUENCE,
386 'NO' TITLE_STYLE,
387 'NO' PAGETITLE,
388 'NO' REGION,
389 'NO' CURRENCY,
390 'NO' DISABLED,
391 'VENDOR-PROGRAMS' TOKEN ,
392 'oklLaRules.jsp' JSP
393 FROM FND_LOOKUPS FND
394 WHERE LOOKUP_TYPE = 'OKL_TC_LINKS' AND LOOKUP_CODE = 'VENDOR-PROGRAMS'
395 UNION
396 SELECT
397 15 SEQ_NO,
398 FND.MEANING GROUP_TITLE,
399 FND.DESCRIPTION DESCRIPTION,
400 'LAHDTX' RULE_GROUP,
401 'LAHDTX-LAPRTX|LAHDTX-LAMETX|LAHDTX-LAAUTX' RULE_SEQUENCE,
402 'RULE' TITLE_STYLE,
403 'OKL_TERMS_CONDS' PAGETITLE,
404 'OKL_TC_ATTRIBUTES' REGION,
405 'NO' CURRENCY,
406 'NO' DISABLED,
407 'OKLLARULESLAHDTX' TOKEN ,
408 'oklLaRules.jsp' JSP
409 FROM FND_LOOKUPS FND
410 WHERE LOOKUP_TYPE = 'OKL_TC_LINKS' AND LOOKUP_CODE = 'OKLLARULESLAHDTX' ORDER BY 1;
411
412 l_trm_rec TERMS_CONDS_CSR%RowType;
413
414 l_trm_tbl trm_tbl_type;
415
416 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
417 l_api_name CONSTANT VARCHAR2(30) := 'GET_LEASE_TERMS_CONDITIONS';
418 l_api_version CONSTANT NUMBER := 1.0;
419
420 i NUMBER := 0;
421
422 begin
423 l_return_status := OKL_API.START_ACTIVITY( substr(l_api_name,1,26),
424 G_PKG_NAME,
425 p_init_msg_list,
426 l_api_version,
427 p_api_version,
428 G_API_TYPE,
429 x_return_status);
430
431 IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
432 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
433 ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
434 RAISE OKL_API.G_EXCEPTION_ERROR;
435 END IF;
436 x_return_status := l_return_status;
437 Open TERMS_CONDS_CSR;
438 Loop
439 Fetch TERMS_CONDS_CSR into l_trm_rec;
440 If TERMS_CONDS_CSR%NotFound Then
441 --dbms_output.put_line('No Rule Found in Rule Group "'||p_rgd_code||'"');
442 Exit;
443 Else
444 i := i + 1;
445 l_trm_tbl(i).id := l_trm_rec.seq_no;
446 l_trm_tbl(i).group_title := l_trm_rec.group_title;
447 l_trm_tbl(i).description := l_trm_rec.description;
448 l_trm_tbl(i).rule_group := l_trm_rec.rule_group;
449 l_trm_tbl(i).rule_sequence := l_trm_rec.rule_sequence;
450 l_trm_tbl(i).title_style := l_trm_rec.title_style;
451 l_trm_tbl(i).pagetitle := l_trm_rec.pagetitle;
452 l_trm_tbl(i).region := l_trm_rec.region;
453 l_trm_tbl(i).currency := l_trm_rec.currency;
454 l_trm_tbl(i).disabled := l_trm_rec.disabled;
455 l_trm_tbl(i).jsp := l_trm_rec.jsp;
456 End If;
457 End Loop;
458 x_return_status := l_return_status;
459
460 Close TERMS_CONDS_CSR;
461 x_trm_tbl := l_trm_tbl;
462 --Call End Activity
463 OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
464 x_msg_data => x_msg_data);
465
466
467 EXCEPTION
468 when OKC_API.G_EXCEPTION_ERROR then
469 x_return_status := OKC_API.HANDLE_EXCEPTIONS(
470 p_api_name => l_api_name,
471 p_pkg_name => G_PKG_NAME,
472 p_exc_name => 'OKC_API.G_RET_STS_ERROR',
473 x_msg_count => x_msg_count,
474 x_msg_data => x_msg_data,
475 p_api_type => G_API_TYPE);
476
477 when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
478 x_return_status := OKC_API.HANDLE_EXCEPTIONS(
479 p_api_name => l_api_name,
480 p_pkg_name => G_PKG_NAME,
481 p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
482 x_msg_count => x_msg_count,
483 x_msg_data => x_msg_data,
484 p_api_type => G_API_TYPE);
485
486 when OTHERS then
487 x_return_status := OKC_API.HANDLE_EXCEPTIONS(
488 p_api_name => l_api_name,
489 p_pkg_name => G_PKG_NAME,
490 p_exc_name => 'OTHERS',
491 x_msg_count => x_msg_count,
492 x_msg_data => x_msg_data,
493 p_api_type => G_API_TYPE);
494
495
496 END get_lease_terms_conditions;
497
498
499
500 PROCEDURE get_terms_conditions(
501 p_api_version IN NUMBER,
502 p_init_msg_list IN VARCHAR2,
503 x_return_status OUT NOCOPY VARCHAR2,
504 x_msg_count OUT NOCOPY NUMBER,
505 x_msg_data OUT NOCOPY VARCHAR2,
506 p_type IN VARCHAR2,
507 x_trm_tbl OUT NOCOPY trm_tbl_type) IS
508
509
510 l_trm_tbl trm_tbl_type;
511
512 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
513 l_api_name CONSTANT VARCHAR2(30) := 'GET_TERMS_CONDITIONS';
514 l_api_version CONSTANT NUMBER := 1.0;
515
516 i NUMBER := 0;
517
518 begin
519 --dbms_output.put_line('p_type: '||p_type);
520 if(p_type = 'LEASE') then
521 --dbms_output.put_line('lease ');
522 get_lease_terms_conditions(
523 p_api_version => p_api_version,
524 p_init_msg_list => p_init_msg_list,
525 x_return_status => l_return_status,
526 x_msg_count => x_msg_count,
527 x_msg_data => x_msg_data,
528 x_trm_tbl => x_trm_tbl);
529 elsif(p_type = 'INVESTOR_AGREEMENT') then
530 --dbms_output.put_line('investor ');
531 get_sec_terms_conditions(
532 p_api_version => p_api_version,
533 p_init_msg_list => p_init_msg_list,
534 x_return_status => l_return_status,
535 x_msg_count => x_msg_count,
536 x_msg_data => x_msg_data,
537 x_trm_tbl => x_trm_tbl);
538 end if;
539
540 x_return_status := l_return_status;
541
542 IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
543 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
544 ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
545 RAISE OKL_API.G_EXCEPTION_ERROR;
546 END IF;
547
548 --Call End Activity
549 OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
550 x_msg_data => x_msg_data);
551
552
553 EXCEPTION
554 when OKC_API.G_EXCEPTION_ERROR then
555 x_return_status := OKC_API.HANDLE_EXCEPTIONS(
556 p_api_name => l_api_name,
557 p_pkg_name => G_PKG_NAME,
558 p_exc_name => 'OKC_API.G_RET_STS_ERROR',
559 x_msg_count => x_msg_count,
560 x_msg_data => x_msg_data,
561 p_api_type => G_API_TYPE);
562
563 when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
564 x_return_status := OKC_API.HANDLE_EXCEPTIONS(
565 p_api_name => l_api_name,
566 p_pkg_name => G_PKG_NAME,
567 p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
568 x_msg_count => x_msg_count,
569 x_msg_data => x_msg_data,
570 p_api_type => G_API_TYPE);
571
572 when OTHERS then
573 x_return_status := OKC_API.HANDLE_EXCEPTIONS(
574 p_api_name => l_api_name,
575 p_pkg_name => G_PKG_NAME,
576 p_exc_name => 'OTHERS',
577 x_msg_count => x_msg_count,
578 x_msg_data => x_msg_data,
579 p_api_type => G_API_TYPE);
580
581
582 END get_terms_conditions;
583
584
585 END OKL_TERMS_AND_CONDS_PVT;