26: p_rulv_rec rulv_rec_type,
27: p_type varchar2
28: ) RETURN VARCHAR2
29: IS
30: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
31: l_dummy number;
32:
33: l_row_not_found boolean := false;
34: l_function_id varchar2(100);
51: END IF;
52: -- FK check
53: -- check only if object exists
54: IF (l_function_id IS NOT NULL AND
55: l_function_id <> OKL_API.G_MISS_CHAR)
56: THEN
57:
58: OPEN c_fun(l_function_id);
59: FETCH c_fun INTO l_dummy;
60: l_row_not_found := c_fun%NOTFOUND;
61: CLOSE c_fun;
62:
63: IF (l_row_not_found) THEN
64: OKL_API.Set_Message(p_app_name => G_APP_NAME,
65: p_msg_name => G_INVALID_VALUE,
66: p_token1 => G_COL_NAME_TOKEN,
67: p_token1_value => 'FUNCTION_ID');
68:
74: RETURN l_return_status;
75:
76: EXCEPTION
77: WHEN G_EXCEPTION_HALT_VALIDATION THEN
78: l_return_status := OKL_API.G_RET_STS_ERROR;
79: RETURN l_return_status;
80: WHEN OTHERS THEN
81: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
82: OKL_API.Set_Message(p_app_name => G_APP_NAME,
77: WHEN G_EXCEPTION_HALT_VALIDATION THEN
78: l_return_status := OKL_API.G_RET_STS_ERROR;
79: RETURN l_return_status;
80: WHEN OTHERS THEN
81: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
82: OKL_API.Set_Message(p_app_name => G_APP_NAME,
83: p_msg_name => G_UNEXPECTED_ERROR,
84: p_token1 => G_SQLCODE_TOKEN,
85: p_token1_value => SQLCODE,
78: l_return_status := OKL_API.G_RET_STS_ERROR;
79: RETURN l_return_status;
80: WHEN OTHERS THEN
81: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
82: OKL_API.Set_Message(p_app_name => G_APP_NAME,
83: p_msg_name => G_UNEXPECTED_ERROR,
84: p_token1 => G_SQLCODE_TOKEN,
85: p_token1_value => SQLCODE,
86: p_token2 => G_SQLERRM_TOKEN,
95: p_type varchar2,
96: p_mode varchar2
97: ) RETURN VARCHAR2
98: IS
99: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
100: l_dummy number;
101:
102: l_row_not_found boolean := false;
103: l_checklist_type varchar2(30);
125: IF (p_mode = G_INSERT_MODE) THEN
126:
127: -- column is required:
128: IF (l_checklist_type IS NULL) OR
129: (l_checklist_type = OKL_API.G_MISS_CHAR)
130: THEN
131: OKL_API.Set_Message(p_app_name => G_APP_NAME,
132: p_msg_name => G_REQUIRED_VALUE,
133: p_token1 => G_COL_NAME_TOKEN,
127: -- column is required:
128: IF (l_checklist_type IS NULL) OR
129: (l_checklist_type = OKL_API.G_MISS_CHAR)
130: THEN
131: OKL_API.Set_Message(p_app_name => G_APP_NAME,
132: p_msg_name => G_REQUIRED_VALUE,
133: p_token1 => G_COL_NAME_TOKEN,
134: p_token1_value => 'CHECKLIST_TYPE');
135: RAISE G_EXCEPTION_HALT_VALIDATION;
139:
140: -- FK check
141: -- check only if object exists
142: IF (l_checklist_type IS NOT NULL AND
143: l_checklist_type <> OKL_API.G_MISS_CHAR)
144: THEN
145:
146: OPEN c_lok(l_checklist_type, p_type);
147: FETCH c_lok INTO l_dummy;
148: l_row_not_found := c_lok%NOTFOUND;
149: CLOSE c_lok;
150:
151: IF (l_row_not_found) THEN
152: OKL_API.Set_Message(p_app_name => G_APP_NAME,
153: p_msg_name => G_INVALID_VALUE,
154: p_token1 => G_COL_NAME_TOKEN,
155: p_token1_value => 'CHECKLIST_TYPE');
156:
163: RETURN l_return_status;
164:
165: EXCEPTION
166: WHEN G_EXCEPTION_HALT_VALIDATION THEN
167: l_return_status := OKL_API.G_RET_STS_ERROR;
168: RETURN l_return_status;
169: WHEN OTHERS THEN
170: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
171: OKL_API.Set_Message(p_app_name => G_APP_NAME,
166: WHEN G_EXCEPTION_HALT_VALIDATION THEN
167: l_return_status := OKL_API.G_RET_STS_ERROR;
168: RETURN l_return_status;
169: WHEN OTHERS THEN
170: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
171: OKL_API.Set_Message(p_app_name => G_APP_NAME,
172: p_msg_name => G_UNEXPECTED_ERROR,
173: p_token1 => G_SQLCODE_TOKEN,
174: p_token1_value => SQLCODE,
167: l_return_status := OKL_API.G_RET_STS_ERROR;
168: RETURN l_return_status;
169: WHEN OTHERS THEN
170: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
171: OKL_API.Set_Message(p_app_name => G_APP_NAME,
172: p_msg_name => G_UNEXPECTED_ERROR,
173: p_token1 => G_SQLCODE_TOKEN,
174: p_token1_value => SQLCODE,
175: p_token2 => G_SQLERRM_TOKEN,
184: p_type varchar2,
185: p_mode varchar2
186: ) RETURN VARCHAR2
187: IS
188: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
189: l_dummy number;
190:
191: l_row_not_found boolean := false;
192: l_todo_item varchar2(30);
207: IF (p_mode = G_INSERT_MODE) THEN
208:
209: -- column is required:
210: IF (p_rulv_rec.RULE_INFORMATION1 IS NULL) OR
211: (p_rulv_rec.RULE_INFORMATION1 = OKL_API.G_MISS_CHAR)
212: THEN
213: OKL_API.Set_Message(p_app_name => G_APP_NAME,
214: p_msg_name => G_REQUIRED_VALUE,
215: p_token1 => G_COL_NAME_TOKEN,
209: -- column is required:
210: IF (p_rulv_rec.RULE_INFORMATION1 IS NULL) OR
211: (p_rulv_rec.RULE_INFORMATION1 = OKL_API.G_MISS_CHAR)
212: THEN
213: OKL_API.Set_Message(p_app_name => G_APP_NAME,
214: p_msg_name => G_REQUIRED_VALUE,
215: p_token1 => G_COL_NAME_TOKEN,
216: p_token1_value => 'TODO_ITEM');
217: RAISE G_EXCEPTION_HALT_VALIDATION;
221:
222: -- FK check
223: -- check only if object exists
224: IF (p_rulv_rec.RULE_INFORMATION1 IS NOT NULL AND
225: p_rulv_rec.RULE_INFORMATION1 <> OKL_API.G_MISS_CHAR)
226: THEN
227:
228: OPEN c_lok(p_rulv_rec.RULE_INFORMATION1);
229: FETCH c_lok INTO l_dummy;
230: l_row_not_found := c_lok%NOTFOUND;
231: CLOSE c_lok;
232:
233: IF (l_row_not_found) THEN
234: OKL_API.Set_Message(p_app_name => G_APP_NAME,
235: p_msg_name => G_INVALID_VALUE,
236: p_token1 => G_COL_NAME_TOKEN,
237: p_token1_value => 'TODO_ITEM');
238:
245: RETURN l_return_status;
246:
247: EXCEPTION
248: WHEN G_EXCEPTION_HALT_VALIDATION THEN
249: l_return_status := OKL_API.G_RET_STS_ERROR;
250: RETURN l_return_status;
251: WHEN OTHERS THEN
252: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
253: OKL_API.Set_Message(p_app_name => G_APP_NAME,
248: WHEN G_EXCEPTION_HALT_VALIDATION THEN
249: l_return_status := OKL_API.G_RET_STS_ERROR;
250: RETURN l_return_status;
251: WHEN OTHERS THEN
252: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
253: OKL_API.Set_Message(p_app_name => G_APP_NAME,
254: p_msg_name => G_UNEXPECTED_ERROR,
255: p_token1 => G_SQLCODE_TOKEN,
256: p_token1_value => SQLCODE,
249: l_return_status := OKL_API.G_RET_STS_ERROR;
250: RETURN l_return_status;
251: WHEN OTHERS THEN
252: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
253: OKL_API.Set_Message(p_app_name => G_APP_NAME,
254: p_msg_name => G_UNEXPECTED_ERROR,
255: p_token1 => G_SQLCODE_TOKEN,
256: p_token1_value => SQLCODE,
257: p_token2 => G_SQLERRM_TOKEN,
265: p_rulv_rec rulv_rec_type,
266: p_type varchar2
267: ) RETURN VARCHAR2
268: IS
269: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
270: l_count number := 0;
271: l_row_found boolean := false;
272: l_dummy number;
273: l_item varchar2(30);
296:
297: BEGIN
298:
299: IF p_type is not null and p_type <> 'NONE' AND
300: p_rulv_rec.dnz_chr_id is not null and p_rulv_rec.dnz_chr_id <> OKL_API.G_MISS_NUM THEN
301:
302: l_chr_id := p_rulv_rec.dnz_chr_id;
303:
304: IF p_type = 'ACTIVATION' THEN
315:
316: END IF;
317:
318: IF (l_row_found) THEN
319: OKL_API.Set_Message(p_app_name => G_APP_NAME,
320: p_msg_name => G_NOT_UNIQUE,
321: p_token1 => G_COL_NAME_TOKEN,
322: p_token1_value => 'The combinations of the Checklist Item and the Function');
323:
330: RETURN l_return_status;
331:
332: EXCEPTION
333: WHEN G_EXCEPTION_HALT_VALIDATION THEN
334: l_return_status := OKL_API.G_RET_STS_ERROR;
335: RETURN l_return_status;
336: WHEN OTHERS THEN
337: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
338: OKL_API.Set_Message(p_app_name => G_APP_NAME,
333: WHEN G_EXCEPTION_HALT_VALIDATION THEN
334: l_return_status := OKL_API.G_RET_STS_ERROR;
335: RETURN l_return_status;
336: WHEN OTHERS THEN
337: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
338: OKL_API.Set_Message(p_app_name => G_APP_NAME,
339: p_msg_name => G_UNEXPECTED_ERROR,
340: p_token1 => G_SQLCODE_TOKEN,
341: p_token1_value => SQLCODE,
334: l_return_status := OKL_API.G_RET_STS_ERROR;
335: RETURN l_return_status;
336: WHEN OTHERS THEN
337: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
338: OKL_API.Set_Message(p_app_name => G_APP_NAME,
339: p_msg_name => G_UNEXPECTED_ERROR,
340: p_token1 => G_SQLCODE_TOKEN,
341: p_token1_value => SQLCODE,
342: p_token2 => G_SQLERRM_TOKEN,
353: p_rulv_rec rulv_rec_type,
354: p_type varchar2
355: ) RETURN VARCHAR2
356: IS
357: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
358: BEGIN
359:
360: IF p_type is not null and p_type = 'NONE' THEN
361:
359:
360: IF p_type is not null and p_type = 'NONE' THEN
361:
362: IF (p_rulv_rec.RULE_INFORMATION4 IS NOT NULL AND
363: p_rulv_rec.RULE_INFORMATION4 <> OKL_API.G_MISS_CHAR)
364: THEN
365:
366: IF (length(p_rulv_rec.RULE_INFORMATION4) > 450) THEN
367:
364: THEN
365:
366: IF (length(p_rulv_rec.RULE_INFORMATION4) > 450) THEN
367:
368: OKL_API.Set_Message(p_app_name => G_APP_NAME,
369: p_msg_name => 'OKL_LLA_EXCEED_MAXIMUM_LENGTH',
370: p_token1 => 'MAX_CHARS',
371: p_token1_value => '450',
372: p_token2 => 'COL_NAME',
380:
381: RETURN l_return_status;
382: EXCEPTION
383: WHEN G_EXCEPTION_HALT_VALIDATION THEN
384: l_return_status := OKL_API.G_RET_STS_ERROR;
385: RETURN l_return_status;
386: WHEN OTHERS THEN
387: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
388: OKL_API.Set_Message(p_app_name => G_APP_NAME,
383: WHEN G_EXCEPTION_HALT_VALIDATION THEN
384: l_return_status := OKL_API.G_RET_STS_ERROR;
385: RETURN l_return_status;
386: WHEN OTHERS THEN
387: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
388: OKL_API.Set_Message(p_app_name => G_APP_NAME,
389: p_msg_name => G_UNEXPECTED_ERROR,
390: p_token1 => G_SQLCODE_TOKEN,
391: p_token1_value => SQLCODE,
384: l_return_status := OKL_API.G_RET_STS_ERROR;
385: RETURN l_return_status;
386: WHEN OTHERS THEN
387: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
388: OKL_API.Set_Message(p_app_name => G_APP_NAME,
389: p_msg_name => G_UNEXPECTED_ERROR,
390: p_token1 => G_SQLCODE_TOKEN,
391: p_token1_value => SQLCODE,
392: p_token2 => G_SQLERRM_TOKEN,
401: p_rulv_rec rulv_rec_type,
402: p_type varchar2
403: ) RETURN VARCHAR2
404: IS
405: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
406: l_dummy number;
407: l_effective_date date;
408:
409: BEGIN
410:
411: IF p_type is not null and p_type = 'NONE' THEN
412:
413: IF (p_rulv_rec.RULE_INFORMATION1 IS NOT NULL AND
414: p_rulv_rec.RULE_INFORMATION1 <> TO_CHAR(OKL_API.G_MISS_DATE))
415: THEN
416:
417: -- check date format
418: BEGIN
418: BEGIN
419: l_effective_date := to_date(p_rulv_rec.rule_information1,G_UI_DATE_MASK);
420: EXCEPTION
421: WHEN OTHERS THEN
422: OKL_API.Set_Message(p_app_name => G_APP_NAME,
423: p_msg_name => G_OKL_LLA_INVALID_DATE_FORMAT,
424: p_token1 => 'DATE_FORMAT',
425: p_token1_value => G_UI_DATE_MASK,
426: p_token2 => 'COL_NAME',
435: RETURN l_return_status;
436:
437: EXCEPTION
438: WHEN G_EXCEPTION_HALT_VALIDATION THEN
439: l_return_status := OKL_API.G_RET_STS_ERROR;
440: RETURN l_return_status;
441: WHEN OTHERS THEN
442: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
443: OKL_API.Set_Message(p_app_name => G_APP_NAME,
438: WHEN G_EXCEPTION_HALT_VALIDATION THEN
439: l_return_status := OKL_API.G_RET_STS_ERROR;
440: RETURN l_return_status;
441: WHEN OTHERS THEN
442: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
443: OKL_API.Set_Message(p_app_name => G_APP_NAME,
444: p_msg_name => G_UNEXPECTED_ERROR,
445: p_token1 => G_SQLCODE_TOKEN,
446: p_token1_value => SQLCODE,
439: l_return_status := OKL_API.G_RET_STS_ERROR;
440: RETURN l_return_status;
441: WHEN OTHERS THEN
442: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
443: OKL_API.Set_Message(p_app_name => G_APP_NAME,
444: p_msg_name => G_UNEXPECTED_ERROR,
445: p_token1 => G_SQLCODE_TOKEN,
446: p_token1_value => SQLCODE,
447: p_token2 => G_SQLERRM_TOKEN,
456: p_rulv_rec rulv_rec_type,
457: p_type varchar2
458: ) RETURN VARCHAR2
459: IS
460: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
461: l_dummy number;
462: l_effective_date date;
463:
464: BEGIN
466: IF p_type is not null and p_type = 'NONE' THEN
467:
468: --1. column is required:
469: IF (p_rulv_rec.RULE_INFORMATION2 IS NULL OR
470: p_rulv_rec.RULE_INFORMATION2 = TO_CHAR(OKL_API.G_MISS_DATE,G_UI_DATE_MASK))
471: THEN
472:
473: OKL_API.Set_Message(p_app_name => G_APP_NAME,
474: p_msg_name => G_REQUIRED_VALUE,
469: IF (p_rulv_rec.RULE_INFORMATION2 IS NULL OR
470: p_rulv_rec.RULE_INFORMATION2 = TO_CHAR(OKL_API.G_MISS_DATE,G_UI_DATE_MASK))
471: THEN
472:
473: OKL_API.Set_Message(p_app_name => G_APP_NAME,
474: p_msg_name => G_REQUIRED_VALUE,
475: p_token1 => G_COL_NAME_TOKEN,
476: p_token1_value => 'Effective To');
477: RAISE G_EXCEPTION_HALT_VALIDATION;
482: BEGIN
483: l_effective_date := to_date(p_rulv_rec.rule_information2,G_UI_DATE_MASK);
484: EXCEPTION
485: WHEN OTHERS THEN
486: OKL_API.Set_Message(p_app_name => G_APP_NAME,
487: p_msg_name => G_OKL_LLA_INVALID_DATE_FORMAT,
488: p_token1 => 'DATE_FORMAT',
489: p_token1_value => G_UI_DATE_MASK,
490: p_token2 => 'COL_NAME',
495:
496: -- 3. check vs sysdate
497: IF (trunc(l_effective_date) < trunc(sysdate))
498: THEN
499: OKL_API.Set_Message(p_app_name => G_APP_NAME,
500: p_msg_name => G_LLA_RANGE_CHECK,
501: p_token1 => 'COL_NAME1',
502: p_token1_value => 'Effective To',
503: p_token2 => 'COL_NAME2',
512:
513:
514: EXCEPTION
515: WHEN G_EXCEPTION_HALT_VALIDATION THEN
516: l_return_status := OKL_API.G_RET_STS_ERROR;
517: RETURN l_return_status;
518: WHEN OTHERS THEN
519: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
520: OKL_API.Set_Message(p_app_name => G_APP_NAME,
515: WHEN G_EXCEPTION_HALT_VALIDATION THEN
516: l_return_status := OKL_API.G_RET_STS_ERROR;
517: RETURN l_return_status;
518: WHEN OTHERS THEN
519: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
520: OKL_API.Set_Message(p_app_name => G_APP_NAME,
521: p_msg_name => G_UNEXPECTED_ERROR,
522: p_token1 => G_SQLCODE_TOKEN,
523: p_token1_value => SQLCODE,
516: l_return_status := OKL_API.G_RET_STS_ERROR;
517: RETURN l_return_status;
518: WHEN OTHERS THEN
519: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
520: OKL_API.Set_Message(p_app_name => G_APP_NAME,
521: p_msg_name => G_UNEXPECTED_ERROR,
522: p_token1 => G_SQLCODE_TOKEN,
523: p_token1_value => SQLCODE,
524: p_token2 => G_SQLERRM_TOKEN,
533: p_rulv_rec rulv_rec_type,
534: p_type varchar2
535: ) RETURN VARCHAR2
536: IS
537: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
538: l_dummy number;
539: l_row_found boolean := false;
540:
541: cursor c_date(p_id number)
563: l_row_found := c_date%FOUND;
564: close c_date;
565:
566: IF (l_row_found) THEN
567: OKL_API.Set_Message(p_app_name => G_APP_NAME,
568: p_msg_name => G_LLA_RANGE_CHECK,
569: p_token1 => 'COL_NAME1',
570: p_token1_value => 'Effective To',
571: p_token2 => 'COL_NAME2',
579: RETURN l_return_status;
580:
581: EXCEPTION
582: WHEN G_EXCEPTION_HALT_VALIDATION THEN
583: l_return_status := OKL_API.G_RET_STS_ERROR;
584: RETURN l_return_status;
585: WHEN OTHERS THEN
586: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
587: OKL_API.Set_Message(p_app_name => G_APP_NAME,
582: WHEN G_EXCEPTION_HALT_VALIDATION THEN
583: l_return_status := OKL_API.G_RET_STS_ERROR;
584: RETURN l_return_status;
585: WHEN OTHERS THEN
586: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
587: OKL_API.Set_Message(p_app_name => G_APP_NAME,
588: p_msg_name => G_UNEXPECTED_ERROR,
589: p_token1 => G_SQLCODE_TOKEN,
590: p_token1_value => SQLCODE,
583: l_return_status := OKL_API.G_RET_STS_ERROR;
584: RETURN l_return_status;
585: WHEN OTHERS THEN
586: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
587: OKL_API.Set_Message(p_app_name => G_APP_NAME,
588: p_msg_name => G_UNEXPECTED_ERROR,
589: p_token1 => G_SQLCODE_TOKEN,
590: p_token1_value => SQLCODE,
591: p_token2 => G_SQLERRM_TOKEN,
599: p_mode varchar2,
600: p_type varchar2
601: ) RETURN VARCHAR2
602: IS
603: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
604: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
605:
606: BEGIN
607:
600: p_type varchar2
601: ) RETURN VARCHAR2
602: IS
603: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
604: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
605:
606: BEGIN
607:
608: -- Do formal attribute validation:
608: -- Do formal attribute validation:
609: l_return_status := validate_short_desc(p_rulv_rec => p_rulv_rec,
610: p_type => p_type);
611: --- Store the highest degree of error
612: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
613: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
614: x_return_status := l_return_status;
615: END IF;
616: RAISE G_EXCEPTION_HALT_VALIDATION;
609: l_return_status := validate_short_desc(p_rulv_rec => p_rulv_rec,
610: p_type => p_type);
611: --- Store the highest degree of error
612: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
613: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
614: x_return_status := l_return_status;
615: END IF;
616: RAISE G_EXCEPTION_HALT_VALIDATION;
617: END IF;
618:
619: l_return_status := validate_effective_from(p_rulv_rec => p_rulv_rec,
620: p_type => p_type);
621: --- Store the highest degree of error
622: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
623: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
624: x_return_status := l_return_status;
625: END IF;
626: RAISE G_EXCEPTION_HALT_VALIDATION;
619: l_return_status := validate_effective_from(p_rulv_rec => p_rulv_rec,
620: p_type => p_type);
621: --- Store the highest degree of error
622: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
623: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
624: x_return_status := l_return_status;
625: END IF;
626: RAISE G_EXCEPTION_HALT_VALIDATION;
627: END IF;
628:
629: l_return_status := validate_effective_to(p_rulv_rec => p_rulv_rec,
630: p_type => p_type);
631: --- Store the highest degree of error
632: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
633: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
634: x_return_status := l_return_status;
635: END IF;
636: RAISE G_EXCEPTION_HALT_VALIDATION;
629: l_return_status := validate_effective_to(p_rulv_rec => p_rulv_rec,
630: p_type => p_type);
631: --- Store the highest degree of error
632: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
633: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
634: x_return_status := l_return_status;
635: END IF;
636: RAISE G_EXCEPTION_HALT_VALIDATION;
637: END IF;
638: --start: May-10-2005 cklee okl.h Lease Application ER for Authoring
639: l_return_status := validate_function_id(p_rulv_rec => p_rulv_rec,
640: p_type => p_type);
641: --- Store the highest degree of error
642: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
643: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
644: x_return_status := l_return_status;
645: END IF;
646: RAISE G_EXCEPTION_HALT_VALIDATION;
639: l_return_status := validate_function_id(p_rulv_rec => p_rulv_rec,
640: p_type => p_type);
641: --- Store the highest degree of error
642: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
643: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
644: x_return_status := l_return_status;
645: END IF;
646: RAISE G_EXCEPTION_HALT_VALIDATION;
647: END IF;
649: l_return_status := validate_checklist_type(p_rulv_rec => p_rulv_rec,
650: p_type => p_type,
651: p_mode => p_mode);
652: --- Store the highest degree of error
653: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
654: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
655: x_return_status := l_return_status;
656: END IF;
657: RAISE G_EXCEPTION_HALT_VALIDATION;
650: p_type => p_type,
651: p_mode => p_mode);
652: --- Store the highest degree of error
653: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
654: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
655: x_return_status := l_return_status;
656: END IF;
657: RAISE G_EXCEPTION_HALT_VALIDATION;
658: END IF;
660: l_return_status := validate_todo_item(p_rulv_rec => p_rulv_rec,
661: p_type => p_type,
662: p_mode => p_mode);
663: --- Store the highest degree of error
664: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
665: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
666: x_return_status := l_return_status;
667: END IF;
668: RAISE G_EXCEPTION_HALT_VALIDATION;
661: p_type => p_type,
662: p_mode => p_mode);
663: --- Store the highest degree of error
664: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
665: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
666: x_return_status := l_return_status;
667: END IF;
668: RAISE G_EXCEPTION_HALT_VALIDATION;
669: END IF;
674: EXCEPTION
675: WHEN G_EXCEPTION_HALT_VALIDATION THEN
676: RETURN x_return_status;
677: WHEN OTHERS THEN
678: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
679: OKL_API.Set_Message(p_app_name => G_APP_NAME,
680: p_msg_name => G_UNEXPECTED_ERROR,
681: p_token1 => G_SQLCODE_TOKEN,
682: p_token1_value => SQLCODE,
675: WHEN G_EXCEPTION_HALT_VALIDATION THEN
676: RETURN x_return_status;
677: WHEN OTHERS THEN
678: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
679: OKL_API.Set_Message(p_app_name => G_APP_NAME,
680: p_msg_name => G_UNEXPECTED_ERROR,
681: p_token1 => G_SQLCODE_TOKEN,
682: p_token1_value => SQLCODE,
683: p_token2 => G_SQLERRM_TOKEN,
691: p_rulv_rec rulv_rec_type,
692: p_type varchar2
693: ) RETURN VARCHAR2
694: IS
695: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
696: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
697:
698: BEGIN
699:
692: p_type varchar2
693: ) RETURN VARCHAR2
694: IS
695: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
696: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
697:
698: BEGIN
699:
700: l_return_status := validate_effective_date(p_rulv_rec => p_rulv_rec,
699:
700: l_return_status := validate_effective_date(p_rulv_rec => p_rulv_rec,
701: p_type => p_type);
702: --- Store the highest degree of error
703: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
704: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
705: x_return_status := l_return_status;
706: END IF;
707: RAISE G_EXCEPTION_HALT_VALIDATION;
700: l_return_status := validate_effective_date(p_rulv_rec => p_rulv_rec,
701: p_type => p_type);
702: --- Store the highest degree of error
703: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
704: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
705: x_return_status := l_return_status;
706: END IF;
707: RAISE G_EXCEPTION_HALT_VALIDATION;
708: END IF;
711: EXCEPTION
712: WHEN G_EXCEPTION_HALT_VALIDATION THEN
713: RETURN x_return_status;
714: WHEN OTHERS THEN
715: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
716: OKL_API.Set_Message(p_app_name => G_APP_NAME,
717: p_msg_name => G_UNEXPECTED_ERROR,
718: p_token1 => G_SQLCODE_TOKEN,
719: p_token1_value => SQLCODE,
712: WHEN G_EXCEPTION_HALT_VALIDATION THEN
713: RETURN x_return_status;
714: WHEN OTHERS THEN
715: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
716: OKL_API.Set_Message(p_app_name => G_APP_NAME,
717: p_msg_name => G_UNEXPECTED_ERROR,
718: p_token1 => G_SQLCODE_TOKEN,
719: p_token1_value => SQLCODE,
720: p_token2 => G_SQLERRM_TOKEN,
746: is
747: l_api_name CONSTANT VARCHAR2(30) := 'copy_rulv_rec';
748: l_api_version CONSTANT NUMBER := 1.0;
749: i NUMBER;
750: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
751: l_rgp_id number;
752: l_object1_id1 varchar2(100);
753:
754: cursor c_rgp_id (chr_id number)
775: p_api_version,
776: l_api_name,
777: G_PKG_NAME ))
778: THEN
779: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
780: END IF;
781:
782: -- Initialize message list if requested
783: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
784: FND_MSG_PUB.initialize;
785: END IF;
786:
787: -- Initialize API status to success
788: x_return_status := OKL_API.G_RET_STS_SUCCESS;
789:
790:
791: /*** Begin API body ****************************************************/
792:
797: l_return_status := validate_header_attributes(p_rulv_rec => p_rulv_rec,
798: p_type => p_type,
799: p_mode => p_mode);
800: --- Store the highest degree of error
801: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
802: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
803: x_return_status := l_return_status;
804: END IF;
805: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
798: p_type => p_type,
799: p_mode => p_mode);
800: --- Store the highest degree of error
801: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
802: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
803: x_return_status := l_return_status;
804: END IF;
805: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
806: END IF;
801: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
802: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
803: x_return_status := l_return_status;
804: END IF;
805: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
806: END IF;
807:
808: p_rulv_migr_rec.id := p_rulv_rec.id;
809:
834: -- set default
835: IF p_type = 'ACTIVATION' and
836: (p_rulv_rec.rule_information7 not in ('UNDETERMINED', 'PASSED', 'FAILED', 'ERROR') or
837: p_rulv_rec.rule_information7 is null or
838: p_rulv_rec.rule_information7 = OKL_API.G_MISS_CHAR) THEN
839: p_rulv_migr_rec.rule_information7 := 'UNDETERMINED';
840: else
841: p_rulv_migr_rec.rule_information7 := p_rulv_rec.rule_information7;
842: END IF;
881: (p_count => x_msg_count,
882: p_data => x_msg_data);
883:
884: EXCEPTION
885: WHEN OKL_API.G_EXCEPTION_ERROR THEN
886: ROLLBACK TO copy_rulv_rec;
887: x_return_status := OKL_API.G_RET_STS_ERROR;
888: FND_MSG_PUB.Count_And_Get
889: (p_count => x_msg_count,
883:
884: EXCEPTION
885: WHEN OKL_API.G_EXCEPTION_ERROR THEN
886: ROLLBACK TO copy_rulv_rec;
887: x_return_status := OKL_API.G_RET_STS_ERROR;
888: FND_MSG_PUB.Count_And_Get
889: (p_count => x_msg_count,
890: p_data => x_msg_data);
891:
888: FND_MSG_PUB.Count_And_Get
889: (p_count => x_msg_count,
890: p_data => x_msg_data);
891:
892: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
893: ROLLBACK TO copy_rulv_rec;
894: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
895: FND_MSG_PUB.Count_And_Get
896: (p_count => x_msg_count,
890: p_data => x_msg_data);
891:
892: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
893: ROLLBACK TO copy_rulv_rec;
894: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
895: FND_MSG_PUB.Count_And_Get
896: (p_count => x_msg_count,
897: p_data => x_msg_data);
898:
897: p_data => x_msg_data);
898:
899: WHEN OTHERS THEN
900: ROLLBACK TO copy_rulv_rec;
901: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
902: OKL_API.Set_Message(p_app_name => G_APP_NAME,
903: p_msg_name => G_UNEXPECTED_ERROR,
904: p_token1 => G_SQLCODE_TOKEN,
905: p_token1_value => SQLCODE,
898:
899: WHEN OTHERS THEN
900: ROLLBACK TO copy_rulv_rec;
901: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
902: OKL_API.Set_Message(p_app_name => G_APP_NAME,
903: p_msg_name => G_UNEXPECTED_ERROR,
904: p_token1 => G_SQLCODE_TOKEN,
905: p_token1_value => SQLCODE,
906: p_token2 => G_SQLERRM_TOKEN,
932: is
933: l_api_name CONSTANT VARCHAR2(30) := 'copy_rulv_tbl';
934: l_api_version CONSTANT NUMBER := 1.0;
935: i NUMBER;
936: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
937:
938: begin
939: -- Set API savepoint
940: SAVEPOINT copy_rulv_tbl;
944: p_api_version,
945: l_api_name,
946: G_PKG_NAME ))
947: THEN
948: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
949: END IF;
950:
951: -- Initialize message list if requested
952: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
953: FND_MSG_PUB.initialize;
954: END IF;
955:
956: -- Initialize API status to success
957: x_return_status := OKL_API.G_RET_STS_SUCCESS;
958:
959: /*** Begin API body ****************************************************/
960:
961: IF (p_rulv_tbl.COUNT > 0) THEN
992: (p_count => x_msg_count,
993: p_data => x_msg_data);
994:
995: EXCEPTION
996: WHEN OKL_API.G_EXCEPTION_ERROR THEN
997: ROLLBACK TO copy_rulv_tbl;
998: x_return_status := OKL_API.G_RET_STS_ERROR;
999: FND_MSG_PUB.Count_And_Get
1000: (p_count => x_msg_count,
994:
995: EXCEPTION
996: WHEN OKL_API.G_EXCEPTION_ERROR THEN
997: ROLLBACK TO copy_rulv_tbl;
998: x_return_status := OKL_API.G_RET_STS_ERROR;
999: FND_MSG_PUB.Count_And_Get
1000: (p_count => x_msg_count,
1001: p_data => x_msg_data);
1002:
999: FND_MSG_PUB.Count_And_Get
1000: (p_count => x_msg_count,
1001: p_data => x_msg_data);
1002:
1003: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1004: ROLLBACK TO copy_rulv_tbl;
1005: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1006: FND_MSG_PUB.Count_And_Get
1007: (p_count => x_msg_count,
1001: p_data => x_msg_data);
1002:
1003: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1004: ROLLBACK TO copy_rulv_tbl;
1005: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1006: FND_MSG_PUB.Count_And_Get
1007: (p_count => x_msg_count,
1008: p_data => x_msg_data);
1009:
1008: p_data => x_msg_data);
1009:
1010: WHEN OTHERS THEN
1011: ROLLBACK TO copy_rulv_tbl;
1012: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1013: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1014: p_msg_name => G_UNEXPECTED_ERROR,
1015: p_token1 => G_SQLCODE_TOKEN,
1016: p_token1_value => SQLCODE,
1009:
1010: WHEN OTHERS THEN
1011: ROLLBACK TO copy_rulv_tbl;
1012: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1013: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1014: p_msg_name => G_UNEXPECTED_ERROR,
1015: p_token1 => G_SQLCODE_TOKEN,
1016: p_token1_value => SQLCODE,
1017: p_token2 => G_SQLERRM_TOKEN,
1044: is
1045: l_api_name CONSTANT VARCHAR2(30) := 'create_credit_chklst';
1046: l_api_version CONSTANT NUMBER := 1.0;
1047: i NUMBER;
1048: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1049: -- lp_rulv_tbl rulv_tbl_type := p_rulv_tbl;
1050: -- lx_rulv_tbl rulv_tbl_type := x_rulv_tbl;
1051: lp_rulv_tbl okl_rule_pub.rulv_tbl_type;
1052: lx_rulv_tbl okl_rule_pub.rulv_tbl_type;
1060: p_api_version,
1061: l_api_name,
1062: G_PKG_NAME ))
1063: THEN
1064: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1065: END IF;
1066:
1067: -- Initialize message list if requested
1068: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
1069: FND_MSG_PUB.initialize;
1070: END IF;
1071:
1072: -- Initialize API status to success
1073: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1074:
1075:
1076: /*** Begin API body ****************************************************/
1077: --DBMS_OUTPUT.PUT_LINE('before copy_rulv_tbl');
1115: --start: May-10-2005 cklee okl.h Lease Application ER for Authoring
1116: l_return_status := validate_dup_item(p_rulv_rec => p_rulv_tbl(p_rulv_tbl.FIRST),
1117: p_type => 'ACTIVATION');
1118: --- Store the highest degree of error
1119: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1120: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1121: x_return_status := l_return_status;
1122: END IF;
1123: RAISE G_EXCEPTION_HALT_VALIDATION;
1116: l_return_status := validate_dup_item(p_rulv_rec => p_rulv_tbl(p_rulv_tbl.FIRST),
1117: p_type => 'ACTIVATION');
1118: --- Store the highest degree of error
1119: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1120: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1121: x_return_status := l_return_status;
1122: END IF;
1123: RAISE G_EXCEPTION_HALT_VALIDATION;
1124: END IF;
1133: (p_count => x_msg_count,
1134: p_data => x_msg_data);
1135:
1136: EXCEPTION
1137: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1138: ROLLBACK TO create_credit_chklst;
1139: x_return_status := OKL_API.G_RET_STS_ERROR;
1140: FND_MSG_PUB.Count_And_Get
1141: (p_count => x_msg_count,
1135:
1136: EXCEPTION
1137: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1138: ROLLBACK TO create_credit_chklst;
1139: x_return_status := OKL_API.G_RET_STS_ERROR;
1140: FND_MSG_PUB.Count_And_Get
1141: (p_count => x_msg_count,
1142: p_data => x_msg_data);
1143:
1140: FND_MSG_PUB.Count_And_Get
1141: (p_count => x_msg_count,
1142: p_data => x_msg_data);
1143:
1144: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1145: ROLLBACK TO create_credit_chklst;
1146: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1147: FND_MSG_PUB.Count_And_Get
1148: (p_count => x_msg_count,
1142: p_data => x_msg_data);
1143:
1144: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1145: ROLLBACK TO create_credit_chklst;
1146: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1147: FND_MSG_PUB.Count_And_Get
1148: (p_count => x_msg_count,
1149: p_data => x_msg_data);
1150:
1149: p_data => x_msg_data);
1150:
1151: WHEN OTHERS THEN
1152: ROLLBACK TO create_credit_chklst;
1153: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1154: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1155: p_msg_name => G_UNEXPECTED_ERROR,
1156: p_token1 => G_SQLCODE_TOKEN,
1157: p_token1_value => SQLCODE,
1150:
1151: WHEN OTHERS THEN
1152: ROLLBACK TO create_credit_chklst;
1153: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1154: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1155: p_msg_name => G_UNEXPECTED_ERROR,
1156: p_token1 => G_SQLCODE_TOKEN,
1157: p_token1_value => SQLCODE,
1158: p_token2 => G_SQLERRM_TOKEN,
1186: is
1187: l_api_name CONSTANT VARCHAR2(30) := 'update_credit_chklst';
1188: l_api_version CONSTANT NUMBER := 1.0;
1189: i NUMBER;
1190: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1191: -- lp_rulv_tbl rulv_tbl_type := p_rulv_tbl;
1192: -- lx_rulv_tbl rulv_tbl_type := x_rulv_tbl;
1193: lp_rulv_tbl okl_rule_pub.rulv_tbl_type;
1194: lx_rulv_tbl okl_rule_pub.rulv_tbl_type;
1202: p_api_version,
1203: l_api_name,
1204: G_PKG_NAME ))
1205: THEN
1206: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1207: END IF;
1208:
1209: -- Initialize message list if requested
1210: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
1211: FND_MSG_PUB.initialize;
1212: END IF;
1213:
1214: -- Initialize API status to success
1215: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1216:
1217:
1218: /*** Begin API body ****************************************************/
1219:
1258: --start: May-10-2005 cklee okl.h Lease Application ER for Authoring
1259: l_return_status := validate_dup_item(p_rulv_rec => p_rulv_tbl(p_rulv_tbl.FIRST),
1260: p_type => 'ACTIVATION');
1261: --- Store the highest degree of error
1262: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1263: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1264: x_return_status := l_return_status;
1265: END IF;
1266: RAISE G_EXCEPTION_HALT_VALIDATION;
1259: l_return_status := validate_dup_item(p_rulv_rec => p_rulv_tbl(p_rulv_tbl.FIRST),
1260: p_type => 'ACTIVATION');
1261: --- Store the highest degree of error
1262: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1263: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1264: x_return_status := l_return_status;
1265: END IF;
1266: RAISE G_EXCEPTION_HALT_VALIDATION;
1267: END IF;
1276: (p_count => x_msg_count,
1277: p_data => x_msg_data);
1278:
1279: EXCEPTION
1280: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1281: ROLLBACK TO update_credit_chklst;
1282: x_return_status := OKL_API.G_RET_STS_ERROR;
1283: FND_MSG_PUB.Count_And_Get
1284: (p_count => x_msg_count,
1278:
1279: EXCEPTION
1280: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1281: ROLLBACK TO update_credit_chklst;
1282: x_return_status := OKL_API.G_RET_STS_ERROR;
1283: FND_MSG_PUB.Count_And_Get
1284: (p_count => x_msg_count,
1285: p_data => x_msg_data);
1286:
1283: FND_MSG_PUB.Count_And_Get
1284: (p_count => x_msg_count,
1285: p_data => x_msg_data);
1286:
1287: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1288: ROLLBACK TO update_credit_chklst;
1289: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1290: FND_MSG_PUB.Count_And_Get
1291: (p_count => x_msg_count,
1285: p_data => x_msg_data);
1286:
1287: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1288: ROLLBACK TO update_credit_chklst;
1289: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1290: FND_MSG_PUB.Count_And_Get
1291: (p_count => x_msg_count,
1292: p_data => x_msg_data);
1293:
1292: p_data => x_msg_data);
1293:
1294: WHEN OTHERS THEN
1295: ROLLBACK TO update_credit_chklst;
1296: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1297: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1298: p_msg_name => G_UNEXPECTED_ERROR,
1299: p_token1 => G_SQLCODE_TOKEN,
1300: p_token1_value => SQLCODE,
1293:
1294: WHEN OTHERS THEN
1295: ROLLBACK TO update_credit_chklst;
1296: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1297: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1298: p_msg_name => G_UNEXPECTED_ERROR,
1299: p_token1 => G_SQLCODE_TOKEN,
1300: p_token1_value => SQLCODE,
1301: p_token2 => G_SQLERRM_TOKEN,
1328: is
1329: l_api_name CONSTANT VARCHAR2(30) := 'delete_credit_chklst';
1330: l_api_version CONSTANT NUMBER := 1.0;
1331: i NUMBER;
1332: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1333: -- lp_rulv_tbl rulv_tbl_type := p_rulv_tbl;
1334: -- lx_rulv_tbl rulv_tbl_type := x_rulv_tbl;
1335: lp_rulv_tbl okl_rule_pub.rulv_tbl_type;
1336: lx_rulv_tbl okl_rule_pub.rulv_tbl_type;
1344: p_api_version,
1345: l_api_name,
1346: G_PKG_NAME ))
1347: THEN
1348: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1349: END IF;
1350:
1351: -- Initialize message list if requested
1352: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
1353: FND_MSG_PUB.initialize;
1354: END IF;
1355:
1356: -- Initialize API status to success
1357: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1358:
1359:
1360: /*** Begin API body ****************************************************/
1361: --DBMS_OUTPUT.PUT_LINE('before copy_rulv_tbl');
1401: (p_count => x_msg_count,
1402: p_data => x_msg_data);
1403:
1404: EXCEPTION
1405: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1406: ROLLBACK TO delete_credit_chklst;
1407: x_return_status := OKL_API.G_RET_STS_ERROR;
1408: FND_MSG_PUB.Count_And_Get
1409: (p_count => x_msg_count,
1403:
1404: EXCEPTION
1405: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1406: ROLLBACK TO delete_credit_chklst;
1407: x_return_status := OKL_API.G_RET_STS_ERROR;
1408: FND_MSG_PUB.Count_And_Get
1409: (p_count => x_msg_count,
1410: p_data => x_msg_data);
1411:
1408: FND_MSG_PUB.Count_And_Get
1409: (p_count => x_msg_count,
1410: p_data => x_msg_data);
1411:
1412: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1413: ROLLBACK TO delete_credit_chklst;
1414: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1415: FND_MSG_PUB.Count_And_Get
1416: (p_count => x_msg_count,
1410: p_data => x_msg_data);
1411:
1412: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1413: ROLLBACK TO delete_credit_chklst;
1414: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1415: FND_MSG_PUB.Count_And_Get
1416: (p_count => x_msg_count,
1417: p_data => x_msg_data);
1418:
1417: p_data => x_msg_data);
1418:
1419: WHEN OTHERS THEN
1420: ROLLBACK TO delete_credit_chklst;
1421: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1422: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1423: p_msg_name => G_UNEXPECTED_ERROR,
1424: p_token1 => G_SQLCODE_TOKEN,
1425: p_token1_value => SQLCODE,
1418:
1419: WHEN OTHERS THEN
1420: ROLLBACK TO delete_credit_chklst;
1421: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1422: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1423: p_msg_name => G_UNEXPECTED_ERROR,
1424: p_token1 => G_SQLCODE_TOKEN,
1425: p_token1_value => SQLCODE,
1426: p_token2 => G_SQLERRM_TOKEN,
1452: is
1453: l_api_name CONSTANT VARCHAR2(30) := 'approve_credit_chklst';
1454: l_api_version CONSTANT NUMBER := 1.0;
1455: i NUMBER;
1456: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1457:
1458: lp_rulv_tbl okl_rule_pub.rulv_tbl_type;
1459: lx_rulv_tbl okl_rule_pub.rulv_tbl_type;
1460: l_id number;
1477: p_api_version,
1478: l_api_name,
1479: G_PKG_NAME ))
1480: THEN
1481: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1482: END IF;
1483:
1484: -- Initialize message list if requested
1485: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
1486: FND_MSG_PUB.initialize;
1487: END IF;
1488:
1489: -- Initialize API status to success
1490: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1491:
1492:
1493: /*** Begin API body ****************************************************/
1494:
1529: (p_count => x_msg_count,
1530: p_data => x_msg_data);
1531:
1532: EXCEPTION
1533: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1534: ROLLBACK TO approve_credit_chklst;
1535: x_return_status := OKL_API.G_RET_STS_ERROR;
1536: FND_MSG_PUB.Count_And_Get
1537: (p_count => x_msg_count,
1531:
1532: EXCEPTION
1533: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1534: ROLLBACK TO approve_credit_chklst;
1535: x_return_status := OKL_API.G_RET_STS_ERROR;
1536: FND_MSG_PUB.Count_And_Get
1537: (p_count => x_msg_count,
1538: p_data => x_msg_data);
1539:
1536: FND_MSG_PUB.Count_And_Get
1537: (p_count => x_msg_count,
1538: p_data => x_msg_data);
1539:
1540: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1541: ROLLBACK TO approve_credit_chklst;
1542: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1543: FND_MSG_PUB.Count_And_Get
1544: (p_count => x_msg_count,
1538: p_data => x_msg_data);
1539:
1540: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1541: ROLLBACK TO approve_credit_chklst;
1542: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1543: FND_MSG_PUB.Count_And_Get
1544: (p_count => x_msg_count,
1545: p_data => x_msg_data);
1546:
1545: p_data => x_msg_data);
1546:
1547: WHEN OTHERS THEN
1548: ROLLBACK TO approve_credit_chklst;
1549: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1550: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1551: p_msg_name => G_UNEXPECTED_ERROR,
1552: p_token1 => G_SQLCODE_TOKEN,
1553: p_token1_value => SQLCODE,
1546:
1547: WHEN OTHERS THEN
1548: ROLLBACK TO approve_credit_chklst;
1549: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1550: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1551: p_msg_name => G_UNEXPECTED_ERROR,
1552: p_token1 => G_SQLCODE_TOKEN,
1553: p_token1_value => SQLCODE,
1554: p_token2 => G_SQLERRM_TOKEN,
1581: is
1582: l_api_name CONSTANT VARCHAR2(30) := 'update_fund_chklst_tpl_hdr_pvt';
1583: l_api_version CONSTANT NUMBER := 1.0;
1584: i NUMBER;
1585: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1586: -- lp_rulv_tbl rulv_tbl_type := p_rulv_tbl;
1587: -- lx_rulv_tbl rulv_tbl_type := x_rulv_tbl;
1588: lp_rulv_tbl okl_rule_pub.rulv_tbl_type;
1589: lx_rulv_tbl okl_rule_pub.rulv_tbl_type;
1597: p_api_version,
1598: l_api_name,
1599: G_PKG_NAME ))
1600: THEN
1601: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1602: END IF;
1603:
1604: -- Initialize message list if requested
1605: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
1606: FND_MSG_PUB.initialize;
1607: END IF;
1608:
1609: -- Initialize API status to success
1610: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1611:
1612:
1613: /*** Begin API body ****************************************************/
1614: /*** End API body ******************************************************/
1618: (p_count => x_msg_count,
1619: p_data => x_msg_data);
1620:
1621: EXCEPTION
1622: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1623: ROLLBACK TO update_fund_chklst_tpl_hdr;
1624: x_return_status := OKL_API.G_RET_STS_ERROR;
1625: FND_MSG_PUB.Count_And_Get
1626: (p_count => x_msg_count,
1620:
1621: EXCEPTION
1622: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1623: ROLLBACK TO update_fund_chklst_tpl_hdr;
1624: x_return_status := OKL_API.G_RET_STS_ERROR;
1625: FND_MSG_PUB.Count_And_Get
1626: (p_count => x_msg_count,
1627: p_data => x_msg_data);
1628:
1625: FND_MSG_PUB.Count_And_Get
1626: (p_count => x_msg_count,
1627: p_data => x_msg_data);
1628:
1629: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1630: ROLLBACK TO update_fund_chklst_tpl_hdr;
1631: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1632: FND_MSG_PUB.Count_And_Get
1633: (p_count => x_msg_count,
1627: p_data => x_msg_data);
1628:
1629: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1630: ROLLBACK TO update_fund_chklst_tpl_hdr;
1631: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1632: FND_MSG_PUB.Count_And_Get
1633: (p_count => x_msg_count,
1634: p_data => x_msg_data);
1635:
1634: p_data => x_msg_data);
1635:
1636: WHEN OTHERS THEN
1637: ROLLBACK TO update_fund_chklst_tpl_hdr;
1638: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1639: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1640: p_msg_name => G_UNEXPECTED_ERROR,
1641: p_token1 => G_SQLCODE_TOKEN,
1642: p_token1_value => SQLCODE,
1635:
1636: WHEN OTHERS THEN
1637: ROLLBACK TO update_fund_chklst_tpl_hdr;
1638: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1639: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1640: p_msg_name => G_UNEXPECTED_ERROR,
1641: p_token1 => G_SQLCODE_TOKEN,
1642: p_token1_value => SQLCODE,
1643: p_token2 => G_SQLERRM_TOKEN,
1671: is
1672: l_api_name CONSTANT VARCHAR2(30) := 'update_fund_chklst_tpl_hdr_pvt';
1673: l_api_version CONSTANT NUMBER := 1.0;
1674: i NUMBER;
1675: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1676: -- lp_rulv_tbl rulv_tbl_type := p_rulv_tbl;
1677: -- lx_rulv_tbl rulv_tbl_type := x_rulv_tbl;
1678: lp_rulv_rec okl_rule_pub.rulv_rec_type;
1679: lx_rulv_rec okl_rule_pub.rulv_rec_type;
1687: p_api_version,
1688: l_api_name,
1689: G_PKG_NAME ))
1690: THEN
1691: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1692: END IF;
1693:
1694: -- Initialize message list if requested
1695: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
1696: FND_MSG_PUB.initialize;
1697: END IF;
1698:
1699: -- Initialize API status to success
1700: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1701:
1702:
1703: /*** Begin API body ****************************************************/
1704:
1708: l_return_status := validate_header_attributes(p_rulv_rec => p_rulv_rec,
1709: p_type => 'NONE',
1710: p_mode => G_UPDATE_MODE); -- funding checklist header
1711: --- Store the highest degree of error
1712: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1713: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1714: x_return_status := l_return_status;
1715: END IF;
1716: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1709: p_type => 'NONE',
1710: p_mode => G_UPDATE_MODE); -- funding checklist header
1711: --- Store the highest degree of error
1712: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1713: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1714: x_return_status := l_return_status;
1715: END IF;
1716: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1717: END IF;
1712: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1713: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1714: x_return_status := l_return_status;
1715: END IF;
1716: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1717: END IF;
1718:
1719: --
1720: -- copy from local record to rule record
1764: --
1765: l_return_status := validate_hdr_attr_aftimg(p_rulv_rec => p_rulv_rec,
1766: p_type => 'NONE');
1767: --- Store the highest degree of error
1768: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1769: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1770: x_return_status := l_return_status;
1771: END IF;
1772: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1765: l_return_status := validate_hdr_attr_aftimg(p_rulv_rec => p_rulv_rec,
1766: p_type => 'NONE');
1767: --- Store the highest degree of error
1768: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1769: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1770: x_return_status := l_return_status;
1771: END IF;
1772: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1773: END IF;
1768: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1769: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1770: x_return_status := l_return_status;
1771: END IF;
1772: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1773: END IF;
1774:
1775:
1776: /*** End API body ******************************************************/
1780: (p_count => x_msg_count,
1781: p_data => x_msg_data);
1782:
1783: EXCEPTION
1784: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1785: ROLLBACK TO update_fund_chklst_tpl_hdr;
1786: x_return_status := OKL_API.G_RET_STS_ERROR;
1787: FND_MSG_PUB.Count_And_Get
1788: (p_count => x_msg_count,
1782:
1783: EXCEPTION
1784: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1785: ROLLBACK TO update_fund_chklst_tpl_hdr;
1786: x_return_status := OKL_API.G_RET_STS_ERROR;
1787: FND_MSG_PUB.Count_And_Get
1788: (p_count => x_msg_count,
1789: p_data => x_msg_data);
1790:
1787: FND_MSG_PUB.Count_And_Get
1788: (p_count => x_msg_count,
1789: p_data => x_msg_data);
1790:
1791: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1792: ROLLBACK TO update_fund_chklst_tpl_hdr;
1793: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1794: FND_MSG_PUB.Count_And_Get
1795: (p_count => x_msg_count,
1789: p_data => x_msg_data);
1790:
1791: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1792: ROLLBACK TO update_fund_chklst_tpl_hdr;
1793: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1794: FND_MSG_PUB.Count_And_Get
1795: (p_count => x_msg_count,
1796: p_data => x_msg_data);
1797:
1796: p_data => x_msg_data);
1797:
1798: WHEN OTHERS THEN
1799: ROLLBACK TO update_fund_chklst_tpl_hdr;
1800: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1801: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1802: p_msg_name => G_UNEXPECTED_ERROR,
1803: p_token1 => G_SQLCODE_TOKEN,
1804: p_token1_value => SQLCODE,
1797:
1798: WHEN OTHERS THEN
1799: ROLLBACK TO update_fund_chklst_tpl_hdr;
1800: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1801: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1802: p_msg_name => G_UNEXPECTED_ERROR,
1803: p_token1 => G_SQLCODE_TOKEN,
1804: p_token1_value => SQLCODE,
1805: p_token2 => G_SQLERRM_TOKEN,
1833: is
1834: l_api_name CONSTANT VARCHAR2(30) := 'update_funding_chklst_tpl';
1835: l_api_version CONSTANT NUMBER := 1.0;
1836: i NUMBER;
1837: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1838: -- lp_rulv_tbl rulv_tbl_type := p_rulv_tbl;
1839: -- lx_rulv_tbl rulv_tbl_type := x_rulv_tbl;
1840: lp_rulv_tbl okl_rule_pub.rulv_tbl_type;
1841: lx_rulv_tbl okl_rule_pub.rulv_tbl_type;
1849: p_api_version,
1850: l_api_name,
1851: G_PKG_NAME ))
1852: THEN
1853: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1854: END IF;
1855:
1856: -- Initialize message list if requested
1857: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
1858: FND_MSG_PUB.initialize;
1859: END IF;
1860:
1861: -- Initialize API status to success
1862: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1863:
1864:
1865: /*** Begin API body ****************************************************/
1866:
1905: --start: May-10-2005 cklee okl.h Lease Application ER for Authoring
1906: l_return_status := validate_dup_item(p_rulv_rec => p_rulv_tbl(p_rulv_tbl.FIRST),
1907: p_type => 'FUNDING');
1908: --- Store the highest degree of error
1909: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1910: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1911: x_return_status := l_return_status;
1912: END IF;
1913: RAISE G_EXCEPTION_HALT_VALIDATION;
1906: l_return_status := validate_dup_item(p_rulv_rec => p_rulv_tbl(p_rulv_tbl.FIRST),
1907: p_type => 'FUNDING');
1908: --- Store the highest degree of error
1909: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1910: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1911: x_return_status := l_return_status;
1912: END IF;
1913: RAISE G_EXCEPTION_HALT_VALIDATION;
1914: END IF;
1923: (p_count => x_msg_count,
1924: p_data => x_msg_data);
1925:
1926: EXCEPTION
1927: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1928: ROLLBACK TO update_funding_chklst_tpl;
1929: x_return_status := OKL_API.G_RET_STS_ERROR;
1930: FND_MSG_PUB.Count_And_Get
1931: (p_count => x_msg_count,
1925:
1926: EXCEPTION
1927: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1928: ROLLBACK TO update_funding_chklst_tpl;
1929: x_return_status := OKL_API.G_RET_STS_ERROR;
1930: FND_MSG_PUB.Count_And_Get
1931: (p_count => x_msg_count,
1932: p_data => x_msg_data);
1933:
1930: FND_MSG_PUB.Count_And_Get
1931: (p_count => x_msg_count,
1932: p_data => x_msg_data);
1933:
1934: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1935: ROLLBACK TO update_funding_chklst_tpl;
1936: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1937: FND_MSG_PUB.Count_And_Get
1938: (p_count => x_msg_count,
1932: p_data => x_msg_data);
1933:
1934: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1935: ROLLBACK TO update_funding_chklst_tpl;
1936: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1937: FND_MSG_PUB.Count_And_Get
1938: (p_count => x_msg_count,
1939: p_data => x_msg_data);
1940:
1939: p_data => x_msg_data);
1940:
1941: WHEN OTHERS THEN
1942: ROLLBACK TO update_funding_chklst_tpl;
1943: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1944: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1945: p_msg_name => G_UNEXPECTED_ERROR,
1946: p_token1 => G_SQLCODE_TOKEN,
1947: p_token1_value => SQLCODE,
1940:
1941: WHEN OTHERS THEN
1942: ROLLBACK TO update_funding_chklst_tpl;
1943: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1944: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1945: p_msg_name => G_UNEXPECTED_ERROR,
1946: p_token1 => G_SQLCODE_TOKEN,
1947: p_token1_value => SQLCODE,
1948: p_token2 => G_SQLERRM_TOKEN,
1975: is
1976: l_api_name CONSTANT VARCHAR2(30) := 'approve_funding_chklst_tpl';
1977: l_api_version CONSTANT NUMBER := 1.0;
1978: i NUMBER;
1979: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1980:
1981: lp_rulv_rec okl_rule_pub.rulv_rec_type;
1982: lx_rulv_rec okl_rule_pub.rulv_rec_type;
1983:
2000: p_api_version,
2001: l_api_name,
2002: G_PKG_NAME ))
2003: THEN
2004: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2005: END IF;
2006:
2007: -- Initialize message list if requested
2008: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
2009: FND_MSG_PUB.initialize;
2010: END IF;
2011:
2012: -- Initialize API status to success
2013: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2014:
2015:
2016: /*** Begin API body ****************************************************/
2017:
2045: (p_count => x_msg_count,
2046: p_data => x_msg_data);
2047:
2048: EXCEPTION
2049: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2050: ROLLBACK TO approve_funding_chklst_tpl;
2051: x_return_status := OKL_API.G_RET_STS_ERROR;
2052: FND_MSG_PUB.Count_And_Get
2053: (p_count => x_msg_count,
2047:
2048: EXCEPTION
2049: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2050: ROLLBACK TO approve_funding_chklst_tpl;
2051: x_return_status := OKL_API.G_RET_STS_ERROR;
2052: FND_MSG_PUB.Count_And_Get
2053: (p_count => x_msg_count,
2054: p_data => x_msg_data);
2055:
2052: FND_MSG_PUB.Count_And_Get
2053: (p_count => x_msg_count,
2054: p_data => x_msg_data);
2055:
2056: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2057: ROLLBACK TO approve_funding_chklst_tpl;
2058: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2059: FND_MSG_PUB.Count_And_Get
2060: (p_count => x_msg_count,
2054: p_data => x_msg_data);
2055:
2056: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2057: ROLLBACK TO approve_funding_chklst_tpl;
2058: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2059: FND_MSG_PUB.Count_And_Get
2060: (p_count => x_msg_count,
2061: p_data => x_msg_data);
2062:
2061: p_data => x_msg_data);
2062:
2063: WHEN OTHERS THEN
2064: ROLLBACK TO approve_funding_chklst_tpl;
2065: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2066: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2067: p_msg_name => G_UNEXPECTED_ERROR,
2068: p_token1 => G_SQLCODE_TOKEN,
2069: p_token1_value => SQLCODE,
2062:
2063: WHEN OTHERS THEN
2064: ROLLBACK TO approve_funding_chklst_tpl;
2065: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2066: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2067: p_msg_name => G_UNEXPECTED_ERROR,
2068: p_token1 => G_SQLCODE_TOKEN,
2069: p_token1_value => SQLCODE,
2070: p_token2 => G_SQLERRM_TOKEN,
2099: is
2100: l_api_name CONSTANT VARCHAR2(30) := 'create_funding_chklst_tpl';
2101: l_api_version CONSTANT NUMBER := 1.0;
2102: i NUMBER;
2103: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2104: -- lp_rulv_tbl rulv_tbl_type := p_rulv_tbl;
2105: -- lx_rulv_tbl rulv_tbl_type := x_rulv_tbl;
2106: lp_rulv_tbl okl_rule_pub.rulv_tbl_type;
2107: lx_rulv_tbl okl_rule_pub.rulv_tbl_type;
2115: p_api_version,
2116: l_api_name,
2117: G_PKG_NAME ))
2118: THEN
2119: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2120: END IF;
2121:
2122: -- Initialize message list if requested
2123: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
2124: FND_MSG_PUB.initialize;
2125: END IF;
2126:
2127: -- Initialize API status to success
2128: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2129:
2130:
2131: /*** Begin API body ****************************************************/
2132:
2171: --start: May-10-2005 cklee okl.h Lease Application ER for Authoring
2172: l_return_status := validate_dup_item(p_rulv_rec => p_rulv_tbl(p_rulv_tbl.FIRST),
2173: p_type => 'FUNDING');
2174: --- Store the highest degree of error
2175: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2176: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2177: x_return_status := l_return_status;
2178: END IF;
2179: RAISE G_EXCEPTION_HALT_VALIDATION;
2172: l_return_status := validate_dup_item(p_rulv_rec => p_rulv_tbl(p_rulv_tbl.FIRST),
2173: p_type => 'FUNDING');
2174: --- Store the highest degree of error
2175: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2176: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2177: x_return_status := l_return_status;
2178: END IF;
2179: RAISE G_EXCEPTION_HALT_VALIDATION;
2180: END IF;
2188: (p_count => x_msg_count,
2189: p_data => x_msg_data);
2190:
2191: EXCEPTION
2192: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2193: ROLLBACK TO create_funding_chklst_tpl;
2194: x_return_status := OKL_API.G_RET_STS_ERROR;
2195: FND_MSG_PUB.Count_And_Get
2196: (p_count => x_msg_count,
2190:
2191: EXCEPTION
2192: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2193: ROLLBACK TO create_funding_chklst_tpl;
2194: x_return_status := OKL_API.G_RET_STS_ERROR;
2195: FND_MSG_PUB.Count_And_Get
2196: (p_count => x_msg_count,
2197: p_data => x_msg_data);
2198:
2195: FND_MSG_PUB.Count_And_Get
2196: (p_count => x_msg_count,
2197: p_data => x_msg_data);
2198:
2199: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2200: ROLLBACK TO create_funding_chklst_tpl;
2201: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2202: FND_MSG_PUB.Count_And_Get
2203: (p_count => x_msg_count,
2197: p_data => x_msg_data);
2198:
2199: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2200: ROLLBACK TO create_funding_chklst_tpl;
2201: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2202: FND_MSG_PUB.Count_And_Get
2203: (p_count => x_msg_count,
2204: p_data => x_msg_data);
2205:
2204: p_data => x_msg_data);
2205:
2206: WHEN OTHERS THEN
2207: ROLLBACK TO create_funding_chklst_tpl;
2208: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2209: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2210: p_msg_name => G_UNEXPECTED_ERROR,
2211: p_token1 => G_SQLCODE_TOKEN,
2212: p_token1_value => SQLCODE,
2205:
2206: WHEN OTHERS THEN
2207: ROLLBACK TO create_funding_chklst_tpl;
2208: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2209: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2210: p_msg_name => G_UNEXPECTED_ERROR,
2211: p_token1 => G_SQLCODE_TOKEN,
2212: p_token1_value => SQLCODE,
2213: p_token2 => G_SQLERRM_TOKEN,
2240: is
2241: l_api_name CONSTANT VARCHAR2(30) := 'delete_funding_chklst_tpl';
2242: l_api_version CONSTANT NUMBER := 1.0;
2243: i NUMBER;
2244: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2245: -- lp_rulv_tbl rulv_tbl_type := p_rulv_tbl;
2246: -- lx_rulv_tbl rulv_tbl_type := x_rulv_tbl;
2247: lp_rulv_tbl okl_rule_pub.rulv_tbl_type;
2248: lx_rulv_tbl okl_rule_pub.rulv_tbl_type;
2256: p_api_version,
2257: l_api_name,
2258: G_PKG_NAME ))
2259: THEN
2260: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2261: END IF;
2262:
2263: -- Initialize message list if requested
2264: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
2265: FND_MSG_PUB.initialize;
2266: END IF;
2267:
2268: -- Initialize API status to success
2269: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2270:
2271:
2272: /*** Begin API body ****************************************************/
2273: --DBMS_OUTPUT.PUT_LINE('before copy_rulv_tbl');
2312: (p_count => x_msg_count,
2313: p_data => x_msg_data);
2314:
2315: EXCEPTION
2316: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2317: ROLLBACK TO delete_funding_chklst_tpl;
2318: x_return_status := OKL_API.G_RET_STS_ERROR;
2319: FND_MSG_PUB.Count_And_Get
2320: (p_count => x_msg_count,
2314:
2315: EXCEPTION
2316: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2317: ROLLBACK TO delete_funding_chklst_tpl;
2318: x_return_status := OKL_API.G_RET_STS_ERROR;
2319: FND_MSG_PUB.Count_And_Get
2320: (p_count => x_msg_count,
2321: p_data => x_msg_data);
2322:
2319: FND_MSG_PUB.Count_And_Get
2320: (p_count => x_msg_count,
2321: p_data => x_msg_data);
2322:
2323: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2324: ROLLBACK TO delete_funding_chklst_tpl;
2325: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2326: FND_MSG_PUB.Count_And_Get
2327: (p_count => x_msg_count,
2321: p_data => x_msg_data);
2322:
2323: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2324: ROLLBACK TO delete_funding_chklst_tpl;
2325: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2326: FND_MSG_PUB.Count_And_Get
2327: (p_count => x_msg_count,
2328: p_data => x_msg_data);
2329:
2328: p_data => x_msg_data);
2329:
2330: WHEN OTHERS THEN
2331: ROLLBACK TO delete_funding_chklst_tpl;
2332: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2333: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2334: p_msg_name => G_UNEXPECTED_ERROR,
2335: p_token1 => G_SQLCODE_TOKEN,
2336: p_token1_value => SQLCODE,
2329:
2330: WHEN OTHERS THEN
2331: ROLLBACK TO delete_funding_chklst_tpl;
2332: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2333: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2334: p_msg_name => G_UNEXPECTED_ERROR,
2335: p_token1 => G_SQLCODE_TOKEN,
2336: p_token1_value => SQLCODE,
2337: p_token2 => G_SQLERRM_TOKEN,