25: BEGIN
26:
27: -- initialize the return status
28:
29: x_return_status := okl_api.g_ret_sts_success;
30:
31: -- END_OF_TERM_VER_ID is a required field
32:
33: IF (p_eve_rec.end_of_term_ver_id IS NULL OR p_eve_rec.end_of_term_ver_id = okl_api.g_miss_num) THEN
29: x_return_status := okl_api.g_ret_sts_success;
30:
31: -- END_OF_TERM_VER_ID is a required field
32:
33: IF (p_eve_rec.end_of_term_ver_id IS NULL OR p_eve_rec.end_of_term_ver_id = okl_api.g_miss_num) THEN
34: okl_api.set_message(p_app_name => g_app_name
35: ,p_msg_name => g_required_value
36: ,p_token1 => g_col_name_token
37: ,p_token1_value => 'END_OF_TERM_VER_ID');
30:
31: -- END_OF_TERM_VER_ID is a required field
32:
33: IF (p_eve_rec.end_of_term_ver_id IS NULL OR p_eve_rec.end_of_term_ver_id = okl_api.g_miss_num) THEN
34: okl_api.set_message(p_app_name => g_app_name
35: ,p_msg_name => g_required_value
36: ,p_token1 => g_col_name_token
37: ,p_token1_value => 'END_OF_TERM_VER_ID');
38:
37: ,p_token1_value => 'END_OF_TERM_VER_ID');
38:
39: -- notify caller of an error
40:
41: x_return_status := okl_api.g_ret_sts_error;
42:
43: -- halt further validation of this column
44:
45: RAISE g_exception_halt_validation;
54: WHEN OTHERS THEN
55:
56: -- store SQL error message on message stack for caller
57:
58: okl_api.set_message(p_app_name => g_app_name
59: ,p_msg_name => g_unexpected_error
60: ,p_token1 => g_sqlcode_token
61: ,p_token1_value => sqlcode
62: ,p_token2 => g_sqlerrm_token
63: ,p_token2_value => sqlerrm);
64:
65: -- notify caller of an UNEXPECTED error
66:
67: x_return_status := okl_api.g_ret_sts_unexp_error;
68: END validate_end_of_term_ver_id;
69:
70: PROCEDURE validate_version_number(x_return_status OUT NOCOPY VARCHAR2
71: ,p_eve_rec IN okl_eve_rec) IS
73: BEGIN
74:
75: -- initialize the return status
76:
77: x_return_status := okl_api.g_ret_sts_success;
78:
79: -- version number is a mandatory field
80:
81: IF (p_eve_rec.version_number IS NULL OR p_eve_rec.version_number = okl_api.g_miss_num) THEN
77: x_return_status := okl_api.g_ret_sts_success;
78:
79: -- version number is a mandatory field
80:
81: IF (p_eve_rec.version_number IS NULL OR p_eve_rec.version_number = okl_api.g_miss_num) THEN
82: okl_api.set_message(p_app_name => g_app_name
83: ,p_msg_name => g_required_value
84: ,p_token1 => g_col_name_token
85: ,p_token1_value => 'version_number');
78:
79: -- version number is a mandatory field
80:
81: IF (p_eve_rec.version_number IS NULL OR p_eve_rec.version_number = okl_api.g_miss_num) THEN
82: okl_api.set_message(p_app_name => g_app_name
83: ,p_msg_name => g_required_value
84: ,p_token1 => g_col_name_token
85: ,p_token1_value => 'version_number');
86:
85: ,p_token1_value => 'version_number');
86:
87: -- notify caller of an error
88:
89: x_return_status := okl_api.g_ret_sts_error;
90:
91: -- halt further validation of this column
92:
93: RAISE g_exception_halt_validation;
102: WHEN OTHERS THEN
103:
104: -- store SQL error message on message stack for caller
105:
106: okl_api.set_message(p_app_name => g_app_name
107: ,p_msg_name => g_unexpected_error
108: ,p_token1 => g_sqlcode_token
109: ,p_token1_value => sqlcode
110: ,p_token2 => g_sqlerrm_token
111: ,p_token2_value => sqlerrm);
112:
113: -- notify caller of an UNEXPECTED error
114:
115: x_return_status := okl_api.g_ret_sts_unexp_error;
116: END validate_version_number;
117:
118: PROCEDURE validate_end_of_term_id(x_return_status OUT NOCOPY VARCHAR2
119: ,p_eve_rec IN okl_eve_rec) IS
127: BEGIN
128:
129: -- Initialize the return status to success
130:
131: x_return_status := okl_api.g_ret_sts_success;
132:
133: IF (p_eve_rec.end_of_term_id IS NULL AND p_eve_rec.end_of_term_id = okl_api.g_miss_num) THEN
134: okl_api.set_message(p_app_name => g_app_name
135: ,p_msg_name => g_required_value
129: -- Initialize the return status to success
130:
131: x_return_status := okl_api.g_ret_sts_success;
132:
133: IF (p_eve_rec.end_of_term_id IS NULL AND p_eve_rec.end_of_term_id = okl_api.g_miss_num) THEN
134: okl_api.set_message(p_app_name => g_app_name
135: ,p_msg_name => g_required_value
136: ,p_token1 => g_col_name_token
137: ,p_token1_value => 'END_OF_TERM_ID');
130:
131: x_return_status := okl_api.g_ret_sts_success;
132:
133: IF (p_eve_rec.end_of_term_id IS NULL AND p_eve_rec.end_of_term_id = okl_api.g_miss_num) THEN
134: okl_api.set_message(p_app_name => g_app_name
135: ,p_msg_name => g_required_value
136: ,p_token1 => g_col_name_token
137: ,p_token1_value => 'END_OF_TERM_ID');
138:
147:
148: -- if l_dummy_var is still set to default, data was not found
149:
150: IF (l_dummy_var = '?') THEN
151: okl_api.set_message(p_app_name => g_app_name
152: ,p_msg_name => g_invalid_value
153: ,p_token1 => g_col_name_token
154: ,p_token1_value => 'end_of_term_id');
155:
195: BEGIN
196:
197: -- Initialize the return status to success
198:
199: x_return_status := okl_api.g_ret_sts_success;
200:
201: IF (p_eve_rec.effective_from_date IS NULL OR p_eve_rec.effective_from_date = okl_api.g_miss_date) THEN
202: okl_api.set_message(p_app_name => g_app_name
203: ,p_msg_name => g_required_value
197: -- Initialize the return status to success
198:
199: x_return_status := okl_api.g_ret_sts_success;
200:
201: IF (p_eve_rec.effective_from_date IS NULL OR p_eve_rec.effective_from_date = okl_api.g_miss_date) THEN
202: okl_api.set_message(p_app_name => g_app_name
203: ,p_msg_name => g_required_value
204: ,p_token1 => g_col_name_token
205: ,p_token1_value => 'EFFECTIVE_FROM_DATE');
198:
199: x_return_status := okl_api.g_ret_sts_success;
200:
201: IF (p_eve_rec.effective_from_date IS NULL OR p_eve_rec.effective_from_date = okl_api.g_miss_date) THEN
202: okl_api.set_message(p_app_name => g_app_name
203: ,p_msg_name => g_required_value
204: ,p_token1 => g_col_name_token
205: ,p_token1_value => 'EFFECTIVE_FROM_DATE');
206:
205: ,p_token1_value => 'EFFECTIVE_FROM_DATE');
206:
207: -- notify caller of an error
208:
209: x_return_status := okl_api.g_ret_sts_error;
210: RAISE g_exception_halt_validation;
211: END IF;
212:
213: EXCEPTION
239: BEGIN
240:
241: -- Initialize the return status to success
242:
243: x_return_status := okl_api.g_ret_sts_success;
244:
245: -- Column is mandatory
246:
247: IF (p_eve_rec.sts_code IS NULL OR p_eve_rec.sts_code = okl_api.g_miss_char) THEN
243: x_return_status := okl_api.g_ret_sts_success;
244:
245: -- Column is mandatory
246:
247: IF (p_eve_rec.sts_code IS NULL OR p_eve_rec.sts_code = okl_api.g_miss_char) THEN
248: okl_api.set_message(p_app_name => g_app_name
249: ,p_msg_name => g_required_value
250: ,p_token1 => g_col_name_token
251: ,p_token1_value => 'sts_code');
244:
245: -- Column is mandatory
246:
247: IF (p_eve_rec.sts_code IS NULL OR p_eve_rec.sts_code = okl_api.g_miss_char) THEN
248: okl_api.set_message(p_app_name => g_app_name
249: ,p_msg_name => g_required_value
250: ,p_token1 => g_col_name_token
251: ,p_token1_value => 'sts_code');
252:
251: ,p_token1_value => 'sts_code');
252:
253: -- notify caller of an error
254:
255: x_return_status := okl_api.g_ret_sts_error;
256: RAISE g_exception_halt_validation;
257: END IF;
258:
259: -- Lookup Code Validation
390: l_eve_rec okl_eve_rec := p_eve_rec;
391:
392: BEGIN
393:
394: IF (l_eve_rec.end_of_term_ver_id = okl_api.g_miss_num) THEN
395: l_eve_rec.end_of_term_ver_id := NULL;
396: END IF;
397:
398: IF (l_eve_rec.object_version_number = okl_api.g_miss_num) THEN
394: IF (l_eve_rec.end_of_term_ver_id = okl_api.g_miss_num) THEN
395: l_eve_rec.end_of_term_ver_id := NULL;
396: END IF;
397:
398: IF (l_eve_rec.object_version_number = okl_api.g_miss_num) THEN
399: l_eve_rec.object_version_number := NULL;
400: END IF;
401:
402: IF (l_eve_rec.version_number = okl_api.g_miss_char) THEN
398: IF (l_eve_rec.object_version_number = okl_api.g_miss_num) THEN
399: l_eve_rec.object_version_number := NULL;
400: END IF;
401:
402: IF (l_eve_rec.version_number = okl_api.g_miss_char) THEN
403: l_eve_rec.version_number := NULL;
404: END IF;
405:
406: IF (l_eve_rec.effective_from_date = okl_api.g_miss_date) THEN
402: IF (l_eve_rec.version_number = okl_api.g_miss_char) THEN
403: l_eve_rec.version_number := NULL;
404: END IF;
405:
406: IF (l_eve_rec.effective_from_date = okl_api.g_miss_date) THEN
407: l_eve_rec.effective_from_date := NULL;
408: END IF;
409:
410: IF (l_eve_rec.effective_to_date = okl_api.g_miss_date) THEN
406: IF (l_eve_rec.effective_from_date = okl_api.g_miss_date) THEN
407: l_eve_rec.effective_from_date := NULL;
408: END IF;
409:
410: IF (l_eve_rec.effective_to_date = okl_api.g_miss_date) THEN
411: l_eve_rec.effective_to_date := NULL;
412: END IF;
413:
414: IF (l_eve_rec.sts_code = okl_api.g_miss_char) THEN
410: IF (l_eve_rec.effective_to_date = okl_api.g_miss_date) THEN
411: l_eve_rec.effective_to_date := NULL;
412: END IF;
413:
414: IF (l_eve_rec.sts_code = okl_api.g_miss_char) THEN
415: l_eve_rec.sts_code := NULL;
416: END IF;
417:
418: IF (l_eve_rec.end_of_term_id = okl_api.g_miss_num) THEN
414: IF (l_eve_rec.sts_code = okl_api.g_miss_char) THEN
415: l_eve_rec.sts_code := NULL;
416: END IF;
417:
418: IF (l_eve_rec.end_of_term_id = okl_api.g_miss_num) THEN
419: l_eve_rec.end_of_term_id := NULL;
420: END IF;
421:
422: IF (l_eve_rec.attribute_category = okl_api.g_miss_char) THEN
418: IF (l_eve_rec.end_of_term_id = okl_api.g_miss_num) THEN
419: l_eve_rec.end_of_term_id := NULL;
420: END IF;
421:
422: IF (l_eve_rec.attribute_category = okl_api.g_miss_char) THEN
423: l_eve_rec.attribute_category := NULL;
424: END IF;
425:
426: IF (l_eve_rec.attribute1 = okl_api.g_miss_char) THEN
422: IF (l_eve_rec.attribute_category = okl_api.g_miss_char) THEN
423: l_eve_rec.attribute_category := NULL;
424: END IF;
425:
426: IF (l_eve_rec.attribute1 = okl_api.g_miss_char) THEN
427: l_eve_rec.attribute1 := NULL;
428: END IF;
429:
430: IF (l_eve_rec.attribute2 = okl_api.g_miss_char) THEN
426: IF (l_eve_rec.attribute1 = okl_api.g_miss_char) THEN
427: l_eve_rec.attribute1 := NULL;
428: END IF;
429:
430: IF (l_eve_rec.attribute2 = okl_api.g_miss_char) THEN
431: l_eve_rec.attribute2 := NULL;
432: END IF;
433:
434: IF (l_eve_rec.attribute3 = okl_api.g_miss_char) THEN
430: IF (l_eve_rec.attribute2 = okl_api.g_miss_char) THEN
431: l_eve_rec.attribute2 := NULL;
432: END IF;
433:
434: IF (l_eve_rec.attribute3 = okl_api.g_miss_char) THEN
435: l_eve_rec.attribute3 := NULL;
436: END IF;
437:
438: IF (l_eve_rec.attribute4 = okl_api.g_miss_char) THEN
434: IF (l_eve_rec.attribute3 = okl_api.g_miss_char) THEN
435: l_eve_rec.attribute3 := NULL;
436: END IF;
437:
438: IF (l_eve_rec.attribute4 = okl_api.g_miss_char) THEN
439: l_eve_rec.attribute4 := NULL;
440: END IF;
441:
442: IF (l_eve_rec.attribute5 = okl_api.g_miss_char) THEN
438: IF (l_eve_rec.attribute4 = okl_api.g_miss_char) THEN
439: l_eve_rec.attribute4 := NULL;
440: END IF;
441:
442: IF (l_eve_rec.attribute5 = okl_api.g_miss_char) THEN
443: l_eve_rec.attribute5 := NULL;
444: END IF;
445:
446: IF (l_eve_rec.attribute6 = okl_api.g_miss_char) THEN
442: IF (l_eve_rec.attribute5 = okl_api.g_miss_char) THEN
443: l_eve_rec.attribute5 := NULL;
444: END IF;
445:
446: IF (l_eve_rec.attribute6 = okl_api.g_miss_char) THEN
447: l_eve_rec.attribute6 := NULL;
448: END IF;
449:
450: IF (l_eve_rec.attribute7 = okl_api.g_miss_char) THEN
446: IF (l_eve_rec.attribute6 = okl_api.g_miss_char) THEN
447: l_eve_rec.attribute6 := NULL;
448: END IF;
449:
450: IF (l_eve_rec.attribute7 = okl_api.g_miss_char) THEN
451: l_eve_rec.attribute7 := NULL;
452: END IF;
453:
454: IF (l_eve_rec.attribute8 = okl_api.g_miss_char) THEN
450: IF (l_eve_rec.attribute7 = okl_api.g_miss_char) THEN
451: l_eve_rec.attribute7 := NULL;
452: END IF;
453:
454: IF (l_eve_rec.attribute8 = okl_api.g_miss_char) THEN
455: l_eve_rec.attribute8 := NULL;
456: END IF;
457:
458: IF (l_eve_rec.attribute9 = okl_api.g_miss_char) THEN
454: IF (l_eve_rec.attribute8 = okl_api.g_miss_char) THEN
455: l_eve_rec.attribute8 := NULL;
456: END IF;
457:
458: IF (l_eve_rec.attribute9 = okl_api.g_miss_char) THEN
459: l_eve_rec.attribute9 := NULL;
460: END IF;
461:
462: IF (l_eve_rec.attribute10 = okl_api.g_miss_char) THEN
458: IF (l_eve_rec.attribute9 = okl_api.g_miss_char) THEN
459: l_eve_rec.attribute9 := NULL;
460: END IF;
461:
462: IF (l_eve_rec.attribute10 = okl_api.g_miss_char) THEN
463: l_eve_rec.attribute10 := NULL;
464: END IF;
465:
466: IF (l_eve_rec.attribute11 = okl_api.g_miss_char) THEN
462: IF (l_eve_rec.attribute10 = okl_api.g_miss_char) THEN
463: l_eve_rec.attribute10 := NULL;
464: END IF;
465:
466: IF (l_eve_rec.attribute11 = okl_api.g_miss_char) THEN
467: l_eve_rec.attribute11 := NULL;
468: END IF;
469:
470: IF (l_eve_rec.attribute12 = okl_api.g_miss_char) THEN
466: IF (l_eve_rec.attribute11 = okl_api.g_miss_char) THEN
467: l_eve_rec.attribute11 := NULL;
468: END IF;
469:
470: IF (l_eve_rec.attribute12 = okl_api.g_miss_char) THEN
471: l_eve_rec.attribute12 := NULL;
472: END IF;
473:
474: IF (l_eve_rec.attribute13 = okl_api.g_miss_char) THEN
470: IF (l_eve_rec.attribute12 = okl_api.g_miss_char) THEN
471: l_eve_rec.attribute12 := NULL;
472: END IF;
473:
474: IF (l_eve_rec.attribute13 = okl_api.g_miss_char) THEN
475: l_eve_rec.attribute13 := NULL;
476: END IF;
477:
478: IF (l_eve_rec.attribute14 = okl_api.g_miss_char) THEN
474: IF (l_eve_rec.attribute13 = okl_api.g_miss_char) THEN
475: l_eve_rec.attribute13 := NULL;
476: END IF;
477:
478: IF (l_eve_rec.attribute14 = okl_api.g_miss_char) THEN
479: l_eve_rec.attribute14 := NULL;
480: END IF;
481:
482: IF (l_eve_rec.attribute15 = okl_api.g_miss_char) THEN
478: IF (l_eve_rec.attribute14 = okl_api.g_miss_char) THEN
479: l_eve_rec.attribute14 := NULL;
480: END IF;
481:
482: IF (l_eve_rec.attribute15 = okl_api.g_miss_char) THEN
483: l_eve_rec.attribute15 := NULL;
484: END IF;
485:
486: IF (l_eve_rec.created_by = okl_api.g_miss_num) THEN
482: IF (l_eve_rec.attribute15 = okl_api.g_miss_char) THEN
483: l_eve_rec.attribute15 := NULL;
484: END IF;
485:
486: IF (l_eve_rec.created_by = okl_api.g_miss_num) THEN
487: l_eve_rec.created_by := NULL;
488: END IF;
489:
490: IF (l_eve_rec.creation_date = okl_api.g_miss_date) THEN
486: IF (l_eve_rec.created_by = okl_api.g_miss_num) THEN
487: l_eve_rec.created_by := NULL;
488: END IF;
489:
490: IF (l_eve_rec.creation_date = okl_api.g_miss_date) THEN
491: l_eve_rec.creation_date := NULL;
492: END IF;
493:
494: IF (l_eve_rec.last_updated_by = okl_api.g_miss_num) THEN
490: IF (l_eve_rec.creation_date = okl_api.g_miss_date) THEN
491: l_eve_rec.creation_date := NULL;
492: END IF;
493:
494: IF (l_eve_rec.last_updated_by = okl_api.g_miss_num) THEN
495: l_eve_rec.last_updated_by := NULL;
496: END IF;
497:
498: IF (l_eve_rec.last_update_date = okl_api.g_miss_date) THEN
494: IF (l_eve_rec.last_updated_by = okl_api.g_miss_num) THEN
495: l_eve_rec.last_updated_by := NULL;
496: END IF;
497:
498: IF (l_eve_rec.last_update_date = okl_api.g_miss_date) THEN
499: l_eve_rec.last_update_date := NULL;
500: END IF;
501:
502: IF (l_eve_rec.last_update_login = okl_api.g_miss_num) THEN
498: IF (l_eve_rec.last_update_date = okl_api.g_miss_date) THEN
499: l_eve_rec.last_update_date := NULL;
500: END IF;
501:
502: IF (l_eve_rec.last_update_login = okl_api.g_miss_num) THEN
503: l_eve_rec.last_update_login := NULL;
504: END IF;
505: RETURN(l_eve_rec);
506: END null_out_defaults;
512: END get_seq_id;
513:
514: FUNCTION validate_attributes(p_eve_rec IN okl_eve_rec) RETURN VARCHAR2 IS
515: l_return_status VARCHAR2(1) := okc_api.g_ret_sts_success;
516: x_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
517:
518: BEGIN
519:
520: -- validate the id
523: ,p_eve_rec => p_eve_rec);
524:
525: -- store the highest degree of error
526:
527: IF (l_return_status <> okl_api.g_ret_sts_success) THEN
528: IF (x_return_status <> okl_api.g_ret_sts_unexp_error) THEN
529: x_return_status := l_return_status;
530: END IF;
531: END IF;
524:
525: -- store the highest degree of error
526:
527: IF (l_return_status <> okl_api.g_ret_sts_success) THEN
528: IF (x_return_status <> okl_api.g_ret_sts_unexp_error) THEN
529: x_return_status := l_return_status;
530: END IF;
531: END IF;
532:
536: ,p_eve_rec => p_eve_rec);
537:
538: -- store the highest degree of error
539:
540: IF (l_return_status <> okl_api.g_ret_sts_success) THEN
541: IF (x_return_status <> okl_api.g_ret_sts_unexp_error) THEN
542: x_return_status := l_return_status;
543: END IF;
544: END IF;
537:
538: -- store the highest degree of error
539:
540: IF (l_return_status <> okl_api.g_ret_sts_success) THEN
541: IF (x_return_status <> okl_api.g_ret_sts_unexp_error) THEN
542: x_return_status := l_return_status;
543: END IF;
544: END IF;
545:
549: ,p_eve_rec => p_eve_rec);
550:
551: -- store the highest degree of error
552:
553: IF (l_return_status <> okl_api.g_ret_sts_success) THEN
554: IF (x_return_status <> okl_api.g_ret_sts_unexp_error) THEN
555: x_return_status := l_return_status;
556: END IF;
557: END IF;
550:
551: -- store the highest degree of error
552:
553: IF (l_return_status <> okl_api.g_ret_sts_success) THEN
554: IF (x_return_status <> okl_api.g_ret_sts_unexp_error) THEN
555: x_return_status := l_return_status;
556: END IF;
557: END IF;
558: validate_effective_from_date(x_return_status => l_return_status
559: ,p_eve_rec => p_eve_rec);
560:
561: -- store the highest degree of error
562:
563: IF (l_return_status <> okl_api.g_ret_sts_success) THEN
564: IF (x_return_status <> okl_api.g_ret_sts_unexp_error) THEN
565: x_return_status := l_return_status;
566: END IF;
567: END IF;
560:
561: -- store the highest degree of error
562:
563: IF (l_return_status <> okl_api.g_ret_sts_success) THEN
564: IF (x_return_status <> okl_api.g_ret_sts_unexp_error) THEN
565: x_return_status := l_return_status;
566: END IF;
567: END IF;
568: validate_end_of_term_id(x_return_status => l_return_status
569: ,p_eve_rec => p_eve_rec);
570:
571: -- store the highest degree of error
572:
573: IF (l_return_status <> okl_api.g_ret_sts_success) THEN
574: IF (x_return_status <> okl_api.g_ret_sts_unexp_error) THEN
575: x_return_status := l_return_status;
576: END IF;
577: END IF;
570:
571: -- store the highest degree of error
572:
573: IF (l_return_status <> okl_api.g_ret_sts_success) THEN
574: IF (x_return_status <> okl_api.g_ret_sts_unexp_error) THEN
575: x_return_status := l_return_status;
576: END IF;
577: END IF;
578: RETURN(x_return_status);
579: END validate_attributes;
580:
581: FUNCTION validate_record(p_eve_rec IN okl_eve_rec) RETURN VARCHAR2 IS
582: l_return_status VARCHAR2(1) := okc_api.g_ret_sts_success;
583: x_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
584:
585: BEGIN
586: IF (p_eve_rec.effective_to_date IS NOT NULL) THEN
587: IF (p_eve_rec.effective_from_date > p_eve_rec.effective_to_date) THEN
584:
585: BEGIN
586: IF (p_eve_rec.effective_to_date IS NOT NULL) THEN
587: IF (p_eve_rec.effective_from_date > p_eve_rec.effective_to_date) THEN
588: okl_api.set_message(p_app_name => g_app_name
589: ,p_msg_name => 'OKL_INVALID_EFFECTIVE_TO');
590: x_return_status := okl_api.g_ret_sts_error;
591: END IF;
592: END IF;
586: IF (p_eve_rec.effective_to_date IS NOT NULL) THEN
587: IF (p_eve_rec.effective_from_date > p_eve_rec.effective_to_date) THEN
588: okl_api.set_message(p_app_name => g_app_name
589: ,p_msg_name => 'OKL_INVALID_EFFECTIVE_TO');
590: x_return_status := okl_api.g_ret_sts_error;
591: END IF;
592: END IF;
593: RETURN(x_return_status);
594: END validate_record;
597: -- lock_row (REC)
598: -----------------
599:
600: PROCEDURE lock_row(p_api_version IN NUMBER
601: ,p_init_msg_list IN VARCHAR2 DEFAULT okl_api.g_false
602: ,x_return_status OUT NOCOPY VARCHAR2
603: ,x_msg_count OUT NOCOPY NUMBER
604: ,x_msg_data OUT NOCOPY VARCHAR2
605: ,p_def_eve_rec IN okl_eve_rec) IS
618: CURSOR lchk_csr(p_def_eve_rec IN okl_eve_rec) IS
619: SELECT object_version_number
620: FROM okl_fe_eo_term_vers
621: WHERE end_of_term_ver_id = p_def_eve_rec.end_of_term_ver_id;
622: l_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
623: l_object_version_number okl_fe_item_residual_all.object_version_number%TYPE;
624: lc_object_version_number okl_fe_item_residual_all.object_version_number%TYPE;
625: l_row_notfound BOOLEAN := false;
626: lc_row_notfound BOOLEAN := false;
637:
638: IF (lock_csr%ISOPEN) THEN
639: CLOSE lock_csr;
640: END IF;
641: okl_api.set_message(g_fnd_app
642: ,g_form_unable_to_reserve_rec);
643: RAISE app_exceptions.record_lock_exception;
644: END;
645:
650: CLOSE lchk_csr;
651: END IF;
652:
653: IF (lc_row_notfound) THEN
654: okl_api.set_message(g_fnd_app
655: ,g_form_record_deleted);
656: RAISE okl_api.g_exception_error;
657: ELSIF lc_object_version_number > p_def_eve_rec.object_version_number THEN
658: okl_api.set_message(g_fnd_app
652:
653: IF (lc_row_notfound) THEN
654: okl_api.set_message(g_fnd_app
655: ,g_form_record_deleted);
656: RAISE okl_api.g_exception_error;
657: ELSIF lc_object_version_number > p_def_eve_rec.object_version_number THEN
658: okl_api.set_message(g_fnd_app
659: ,g_form_record_changed);
660: RAISE okl_api.g_exception_error;
654: okl_api.set_message(g_fnd_app
655: ,g_form_record_deleted);
656: RAISE okl_api.g_exception_error;
657: ELSIF lc_object_version_number > p_def_eve_rec.object_version_number THEN
658: okl_api.set_message(g_fnd_app
659: ,g_form_record_changed);
660: RAISE okl_api.g_exception_error;
661: ELSIF lc_object_version_number <> p_def_eve_rec.object_version_number THEN
662: okl_api.set_message(g_fnd_app
656: RAISE okl_api.g_exception_error;
657: ELSIF lc_object_version_number > p_def_eve_rec.object_version_number THEN
658: okl_api.set_message(g_fnd_app
659: ,g_form_record_changed);
660: RAISE okl_api.g_exception_error;
661: ELSIF lc_object_version_number <> p_def_eve_rec.object_version_number THEN
662: okl_api.set_message(g_fnd_app
663: ,g_form_record_changed);
664: RAISE okl_api.g_exception_error;
658: okl_api.set_message(g_fnd_app
659: ,g_form_record_changed);
660: RAISE okl_api.g_exception_error;
661: ELSIF lc_object_version_number <> p_def_eve_rec.object_version_number THEN
662: okl_api.set_message(g_fnd_app
663: ,g_form_record_changed);
664: RAISE okl_api.g_exception_error;
665: ELSIF lc_object_version_number = - 1 THEN
666: okl_api.set_message(g_app_name
660: RAISE okl_api.g_exception_error;
661: ELSIF lc_object_version_number <> p_def_eve_rec.object_version_number THEN
662: okl_api.set_message(g_fnd_app
663: ,g_form_record_changed);
664: RAISE okl_api.g_exception_error;
665: ELSIF lc_object_version_number = - 1 THEN
666: okl_api.set_message(g_app_name
667: ,g_record_logically_deleted);
668: RAISE okl_api.g_exception_error;
662: okl_api.set_message(g_fnd_app
663: ,g_form_record_changed);
664: RAISE okl_api.g_exception_error;
665: ELSIF lc_object_version_number = - 1 THEN
666: okl_api.set_message(g_app_name
667: ,g_record_logically_deleted);
668: RAISE okl_api.g_exception_error;
669: END IF;
670: x_return_status := l_return_status;
664: RAISE okl_api.g_exception_error;
665: ELSIF lc_object_version_number = - 1 THEN
666: okl_api.set_message(g_app_name
667: ,g_record_logically_deleted);
668: RAISE okl_api.g_exception_error;
669: END IF;
670: x_return_status := l_return_status;
671: EXCEPTION
672: WHEN okl_api.g_exception_error THEN
668: RAISE okl_api.g_exception_error;
669: END IF;
670: x_return_status := l_return_status;
671: EXCEPTION
672: WHEN okl_api.g_exception_error THEN
673: x_return_status := g_ret_sts_error;
674: WHEN okl_api.g_exception_unexpected_error THEN
675: x_return_status := g_ret_sts_unexp_error;
676: WHEN OTHERS THEN
670: x_return_status := l_return_status;
671: EXCEPTION
672: WHEN okl_api.g_exception_error THEN
673: x_return_status := g_ret_sts_error;
674: WHEN okl_api.g_exception_unexpected_error THEN
675: x_return_status := g_ret_sts_unexp_error;
676: WHEN OTHERS THEN
677: okl_api.set_message(p_app_name => g_app_name
678: ,p_msg_name => g_db_error
673: x_return_status := g_ret_sts_error;
674: WHEN okl_api.g_exception_unexpected_error THEN
675: x_return_status := g_ret_sts_unexp_error;
676: WHEN OTHERS THEN
677: okl_api.set_message(p_app_name => g_app_name
678: ,p_msg_name => g_db_error
679: ,p_token1 => g_prog_name_token
680: ,p_token1_value => l_api_name
681: ,p_token2 => g_sqlcode_token
689: -- lock_row (TBL)
690: -----------------
691:
692: PROCEDURE lock_row(p_api_version IN NUMBER
693: ,p_init_msg_list IN VARCHAR2 DEFAULT okl_api.g_false
694: ,x_return_status OUT NOCOPY VARCHAR2
695: ,x_msg_count OUT NOCOPY NUMBER
696: ,x_msg_data OUT NOCOPY VARCHAR2
697: ,okl_eve_tbl IN okl_eve_tbl) IS
712: ,x_msg_count => x_msg_count
713: ,x_msg_data => x_msg_data
714: ,p_def_eve_rec => okl_eve_tbl(i));
715: IF l_return_status = g_ret_sts_unexp_error THEN
716: RAISE okl_api.g_exception_unexpected_error;
717: ELSIF l_return_status = g_ret_sts_error THEN
718: RAISE okl_api.g_exception_error;
719: END IF;
720: EXIT WHEN(i = okl_eve_tbl.LAST);
714: ,p_def_eve_rec => okl_eve_tbl(i));
715: IF l_return_status = g_ret_sts_unexp_error THEN
716: RAISE okl_api.g_exception_unexpected_error;
717: ELSIF l_return_status = g_ret_sts_error THEN
718: RAISE okl_api.g_exception_error;
719: END IF;
720: EXIT WHEN(i = okl_eve_tbl.LAST);
721: i := okl_eve_tbl.next(i);
722: END IF;
724:
725: END IF;
726: x_return_status := l_return_status;
727: EXCEPTION
728: WHEN okl_api.g_exception_error THEN
729: x_return_status := g_ret_sts_error;
730: WHEN okl_api.g_exception_unexpected_error THEN
731: x_return_status := g_ret_sts_unexp_error;
732: WHEN OTHERS THEN
726: x_return_status := l_return_status;
727: EXCEPTION
728: WHEN okl_api.g_exception_error THEN
729: x_return_status := g_ret_sts_error;
730: WHEN okl_api.g_exception_unexpected_error THEN
731: x_return_status := g_ret_sts_unexp_error;
732: WHEN OTHERS THEN
733: okl_api.set_message(p_app_name => g_app_name
734: ,p_msg_name => g_db_error
729: x_return_status := g_ret_sts_error;
730: WHEN okl_api.g_exception_unexpected_error THEN
731: x_return_status := g_ret_sts_unexp_error;
732: WHEN OTHERS THEN
733: okl_api.set_message(p_app_name => g_app_name
734: ,p_msg_name => g_db_error
735: ,p_token1 => g_prog_name_token
736: ,p_token1_value => l_api_name
737: ,p_token2 => g_sqlcode_token
753: ,p_eve_rec IN okl_eve_rec
754: ,x_eve_rec OUT NOCOPY okl_eve_rec) IS
755: l_api_version CONSTANT NUMBER := 1;
756: l_api_name CONSTANT VARCHAR2(30) := 'insert_row';
757: l_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
758: l_eve_rec okl_eve_rec := p_eve_rec;
759: l_def_eve_rec okl_eve_rec;
760:
761: FUNCTION fill_who_columns(p_eve_rec IN okl_eve_rec) RETURN okl_eve_rec IS
788: ,p_api_version
789: ,'_PVT'
790: ,x_return_status);
791:
792: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
793: RAISE okc_api.g_exception_unexpected_error;
794: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
795: RAISE okc_api.g_exception_error;
796: END IF;
790: ,x_return_status);
791:
792: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
793: RAISE okc_api.g_exception_unexpected_error;
794: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
795: RAISE okc_api.g_exception_error;
796: END IF;
797: l_return_status := set_attributes(p_eve_rec
798: ,l_eve_rec);
796: END IF;
797: l_return_status := set_attributes(p_eve_rec
798: ,l_eve_rec);
799:
800: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
801: RAISE okc_api.g_exception_unexpected_error;
802: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
803: RAISE okc_api.g_exception_error;
804: END IF;
798: ,l_eve_rec);
799:
800: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
801: RAISE okc_api.g_exception_unexpected_error;
802: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
803: RAISE okc_api.g_exception_error;
804: END IF;
805: l_eve_rec := null_out_defaults(l_eve_rec);
806:
812:
813: l_return_status := set_attributes(l_eve_rec
814: ,l_def_eve_rec);
815:
816: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
817: RAISE okc_api.g_exception_unexpected_error;
818: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
819: RAISE okc_api.g_exception_error;
820: END IF;
814: ,l_def_eve_rec);
815:
816: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
817: RAISE okc_api.g_exception_unexpected_error;
818: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
819: RAISE okc_api.g_exception_error;
820: END IF;
821: l_def_eve_rec := fill_who_columns(l_def_eve_rec);
822: l_return_status := validate_attributes(l_def_eve_rec);
820: END IF;
821: l_def_eve_rec := fill_who_columns(l_def_eve_rec);
822: l_return_status := validate_attributes(l_def_eve_rec);
823:
824: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
825: RAISE okc_api.g_exception_unexpected_error;
826: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
827: RAISE okc_api.g_exception_error;
828: END IF;
822: l_return_status := validate_attributes(l_def_eve_rec);
823:
824: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
825: RAISE okc_api.g_exception_unexpected_error;
826: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
827: RAISE okc_api.g_exception_error;
828: END IF;
829: l_return_status := validate_record(l_def_eve_rec);
830:
827: RAISE okc_api.g_exception_error;
828: END IF;
829: l_return_status := validate_record(l_def_eve_rec);
830:
831: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
832: RAISE okc_api.g_exception_unexpected_error;
833: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
834: RAISE okc_api.g_exception_error;
835: END IF;
829: l_return_status := validate_record(l_def_eve_rec);
830:
831: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
832: RAISE okc_api.g_exception_unexpected_error;
833: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
834: RAISE okc_api.g_exception_error;
835: END IF;
836:
837: INSERT INTO okl_fe_eo_term_vers
891: ,l_def_eve_rec.last_updated_by
892: ,l_def_eve_rec.last_update_date
893: ,l_def_eve_rec.last_update_login);
894:
895: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
896: RAISE okc_api.g_exception_unexpected_error;
897: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
898: RAISE okc_api.g_exception_error;
899: END IF;
893: ,l_def_eve_rec.last_update_login);
894:
895: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
896: RAISE okc_api.g_exception_unexpected_error;
897: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
898: RAISE okc_api.g_exception_error;
899: END IF;
900:
901: --Set OUT Values
909: -- No action necessary. Validation can continue to next attribute/column
910:
911: NULL;
912: WHEN okc_api.g_exception_error THEN
913: x_return_status := okl_api.handle_exceptions(l_api_name
914: ,g_pkg_name
915: ,'OKL_API.G_RET_STS_ERROR'
916: ,x_msg_count
917: ,x_msg_data
911: NULL;
912: WHEN okc_api.g_exception_error THEN
913: x_return_status := okl_api.handle_exceptions(l_api_name
914: ,g_pkg_name
915: ,'OKL_API.G_RET_STS_ERROR'
916: ,x_msg_count
917: ,x_msg_data
918: ,'_PVT');
919: WHEN okc_api.g_exception_unexpected_error THEN
916: ,x_msg_count
917: ,x_msg_data
918: ,'_PVT');
919: WHEN okc_api.g_exception_unexpected_error THEN
920: x_return_status := okl_api.handle_exceptions(l_api_name
921: ,g_pkg_name
922: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
923: ,x_msg_count
924: ,x_msg_data
918: ,'_PVT');
919: WHEN okc_api.g_exception_unexpected_error THEN
920: x_return_status := okl_api.handle_exceptions(l_api_name
921: ,g_pkg_name
922: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
923: ,x_msg_count
924: ,x_msg_data
925: ,'_PVT');
926: WHEN OTHERS THEN
923: ,x_msg_count
924: ,x_msg_data
925: ,'_PVT');
926: WHEN OTHERS THEN
927: x_return_status := okl_api.handle_exceptions(l_api_name
928: ,g_pkg_name
929: ,'OTHERS'
930: ,x_msg_count
931: ,x_msg_data
944: ,p_eve_tbl IN okl_eve_tbl
945: ,x_eve_tbl OUT NOCOPY okl_eve_tbl) IS
946: l_api_version CONSTANT NUMBER := 1;
947: l_api_name CONSTANT VARCHAR2(30) := 'insert_row';
948: l_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
949: i NUMBER := 0;
950: l_overall_status VARCHAR2(1) := okl_api.g_ret_sts_success;
951:
952: BEGIN
946: l_api_version CONSTANT NUMBER := 1;
947: l_api_name CONSTANT VARCHAR2(30) := 'insert_row';
948: l_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
949: i NUMBER := 0;
950: l_overall_status VARCHAR2(1) := okl_api.g_ret_sts_success;
951:
952: BEGIN
953: okc_api.init_msg_list(p_init_msg_list);
954:
982: -- No action necessary. Validation can continue to next attribute/column
983:
984: NULL;
985: WHEN okc_api.g_exception_error THEN
986: x_return_status := okl_api.handle_exceptions(l_api_name
987: ,g_pkg_name
988: ,'OKL_API.G_RET_STS_ERROR'
989: ,x_msg_count
990: ,x_msg_data
984: NULL;
985: WHEN okc_api.g_exception_error THEN
986: x_return_status := okl_api.handle_exceptions(l_api_name
987: ,g_pkg_name
988: ,'OKL_API.G_RET_STS_ERROR'
989: ,x_msg_count
990: ,x_msg_data
991: ,'_PVT');
992: WHEN okc_api.g_exception_unexpected_error THEN
989: ,x_msg_count
990: ,x_msg_data
991: ,'_PVT');
992: WHEN okc_api.g_exception_unexpected_error THEN
993: x_return_status := okl_api.handle_exceptions(l_api_name
994: ,g_pkg_name
995: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
996: ,x_msg_count
997: ,x_msg_data
991: ,'_PVT');
992: WHEN okc_api.g_exception_unexpected_error THEN
993: x_return_status := okl_api.handle_exceptions(l_api_name
994: ,g_pkg_name
995: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
996: ,x_msg_count
997: ,x_msg_data
998: ,'_PVT');
999: WHEN OTHERS THEN
996: ,x_msg_count
997: ,x_msg_data
998: ,'_PVT');
999: WHEN OTHERS THEN
1000: x_return_status := okl_api.handle_exceptions(l_api_name
1001: ,g_pkg_name
1002: ,'OTHERS'
1003: ,x_msg_count
1004: ,x_msg_data
1017: ,p_eve_rec IN okl_eve_rec
1018: ,x_eve_rec OUT NOCOPY okl_eve_rec) IS
1019: l_api_version CONSTANT NUMBER := 1;
1020: l_api_name CONSTANT VARCHAR2(30) := 'insert_row';
1021: l_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
1022: l_eve_rec okl_eve_rec := p_eve_rec;
1023: l_def_eve_rec okl_eve_rec;
1024: lx_eve_rec okl_eve_rec;
1025:
1036: FUNCTION populate_new_record(p_eve_rec IN okl_eve_rec
1037: ,x_eve_rec OUT NOCOPY okl_eve_rec) RETURN VARCHAR2 IS
1038: l_eve_rec okl_eve_rec;
1039: l_row_notfound BOOLEAN := true;
1040: l_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
1041:
1042: BEGIN
1043: x_eve_rec := p_eve_rec;
1044:
1047: l_eve_rec := get_rec(p_eve_rec
1048: ,l_row_notfound);
1049:
1050: IF (l_row_notfound) THEN
1051: l_return_status := okl_api.g_ret_sts_unexp_error;
1052: END IF;
1053:
1054: IF (x_eve_rec.end_of_term_ver_id IS NULL) THEN
1055: x_eve_rec.end_of_term_ver_id := l_eve_rec.end_of_term_ver_id;
1182: ,p_api_version
1183: ,'_PVT'
1184: ,x_return_status);
1185:
1186: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1187: RAISE okc_api.g_exception_unexpected_error;
1188: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1189: RAISE okc_api.g_exception_error;
1190: END IF;
1184: ,x_return_status);
1185:
1186: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1187: RAISE okc_api.g_exception_unexpected_error;
1188: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1189: RAISE okc_api.g_exception_error;
1190: END IF;
1191:
1192: --Setting Item Attributes
1193:
1194: l_return_status := set_attributes(l_eve_rec
1195: ,lx_eve_rec);
1196:
1197: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1198: RAISE okc_api.g_exception_unexpected_error;
1199: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1200: RAISE okc_api.g_exception_error;
1201: END IF;
1195: ,lx_eve_rec);
1196:
1197: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1198: RAISE okc_api.g_exception_unexpected_error;
1199: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1200: RAISE okc_api.g_exception_error;
1201: END IF;
1202: l_return_status := populate_new_record(lx_eve_rec
1203: ,l_def_eve_rec);
1201: END IF;
1202: l_return_status := populate_new_record(lx_eve_rec
1203: ,l_def_eve_rec);
1204:
1205: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1206: RAISE okc_api.g_exception_unexpected_error;
1207: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1208: RAISE okc_api.g_exception_error;
1209: END IF;
1203: ,l_def_eve_rec);
1204:
1205: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1206: RAISE okc_api.g_exception_unexpected_error;
1207: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1208: RAISE okc_api.g_exception_error;
1209: END IF;
1210: l_def_eve_rec := null_out_defaults(l_def_eve_rec);
1211:
1208: RAISE okc_api.g_exception_error;
1209: END IF;
1210: l_def_eve_rec := null_out_defaults(l_def_eve_rec);
1211:
1212: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1213: RAISE okl_api.g_exception_unexpected_error;
1214: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1215: RAISE okl_api.g_exception_error;
1216: END IF;
1209: END IF;
1210: l_def_eve_rec := null_out_defaults(l_def_eve_rec);
1211:
1212: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1213: RAISE okl_api.g_exception_unexpected_error;
1214: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1215: RAISE okl_api.g_exception_error;
1216: END IF;
1217: l_def_eve_rec := fill_who_columns(l_def_eve_rec);
1210: l_def_eve_rec := null_out_defaults(l_def_eve_rec);
1211:
1212: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1213: RAISE okl_api.g_exception_unexpected_error;
1214: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1215: RAISE okl_api.g_exception_error;
1216: END IF;
1217: l_def_eve_rec := fill_who_columns(l_def_eve_rec);
1218: l_return_status := validate_attributes(l_def_eve_rec);
1211:
1212: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1213: RAISE okl_api.g_exception_unexpected_error;
1214: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1215: RAISE okl_api.g_exception_error;
1216: END IF;
1217: l_def_eve_rec := fill_who_columns(l_def_eve_rec);
1218: l_return_status := validate_attributes(l_def_eve_rec);
1219:
1216: END IF;
1217: l_def_eve_rec := fill_who_columns(l_def_eve_rec);
1218: l_return_status := validate_attributes(l_def_eve_rec);
1219:
1220: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1221: RAISE okc_api.g_exception_unexpected_error;
1222: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1223: RAISE okc_api.g_exception_error;
1224: END IF;
1218: l_return_status := validate_attributes(l_def_eve_rec);
1219:
1220: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1221: RAISE okc_api.g_exception_unexpected_error;
1222: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1223: RAISE okc_api.g_exception_error;
1224: END IF;
1225: l_return_status := validate_record(l_def_eve_rec);
1226:
1223: RAISE okc_api.g_exception_error;
1224: END IF;
1225: l_return_status := validate_record(l_def_eve_rec);
1226:
1227: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1228: RAISE okc_api.g_exception_unexpected_error;
1229: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1230: RAISE okc_api.g_exception_error;
1231: END IF;
1225: l_return_status := validate_record(l_def_eve_rec);
1226:
1227: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1228: RAISE okc_api.g_exception_unexpected_error;
1229: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1230: RAISE okc_api.g_exception_error;
1231: END IF;
1232:
1233: -- Lock the row before updating
1239: ,x_msg_data => x_msg_data
1240: ,p_def_eve_rec => l_def_eve_rec);
1241:
1242: IF (l_return_status = g_ret_sts_unexp_error) THEN
1243: RAISE okl_api.g_exception_unexpected_error;
1244: ELSIF (l_return_status = g_ret_sts_error) THEN
1245: RAISE okl_api.g_exception_error;
1246: END IF;
1247:
1241:
1242: IF (l_return_status = g_ret_sts_unexp_error) THEN
1243: RAISE okl_api.g_exception_unexpected_error;
1244: ELSIF (l_return_status = g_ret_sts_error) THEN
1245: RAISE okl_api.g_exception_error;
1246: END IF;
1247:
1248: UPDATE okl_fe_eo_term_vers
1249: SET end_of_term_ver_id = l_def_eve_rec.end_of_term_ver_id
1275: ,last_update_date = l_def_eve_rec.last_update_date
1276: ,last_update_login = l_def_eve_rec.last_update_login
1277: WHERE end_of_term_ver_id = l_def_eve_rec.end_of_term_ver_id;
1278:
1279: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1280: RAISE okc_api.g_exception_unexpected_error;
1281: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1282: RAISE okc_api.g_exception_error;
1283: END IF;
1277: WHERE end_of_term_ver_id = l_def_eve_rec.end_of_term_ver_id;
1278:
1279: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1280: RAISE okc_api.g_exception_unexpected_error;
1281: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1282: RAISE okc_api.g_exception_error;
1283: END IF;
1284:
1285: --Set OUT Values
1293: -- No action necessary. Validation can continue to next attribute/column
1294:
1295: NULL;
1296: WHEN okc_api.g_exception_error THEN
1297: x_return_status := okl_api.handle_exceptions(l_api_name
1298: ,g_pkg_name
1299: ,'OKL_API.G_RET_STS_ERROR'
1300: ,x_msg_count
1301: ,x_msg_data
1295: NULL;
1296: WHEN okc_api.g_exception_error THEN
1297: x_return_status := okl_api.handle_exceptions(l_api_name
1298: ,g_pkg_name
1299: ,'OKL_API.G_RET_STS_ERROR'
1300: ,x_msg_count
1301: ,x_msg_data
1302: ,'_PVT');
1303: WHEN okc_api.g_exception_unexpected_error THEN
1300: ,x_msg_count
1301: ,x_msg_data
1302: ,'_PVT');
1303: WHEN okc_api.g_exception_unexpected_error THEN
1304: x_return_status := okl_api.handle_exceptions(l_api_name
1305: ,g_pkg_name
1306: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
1307: ,x_msg_count
1308: ,x_msg_data
1302: ,'_PVT');
1303: WHEN okc_api.g_exception_unexpected_error THEN
1304: x_return_status := okl_api.handle_exceptions(l_api_name
1305: ,g_pkg_name
1306: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
1307: ,x_msg_count
1308: ,x_msg_data
1309: ,'_PVT');
1310: WHEN OTHERS THEN
1307: ,x_msg_count
1308: ,x_msg_data
1309: ,'_PVT');
1310: WHEN OTHERS THEN
1311: x_return_status := okl_api.handle_exceptions(l_api_name
1312: ,g_pkg_name
1313: ,'OTHERS'
1314: ,x_msg_count
1315: ,x_msg_data
1328: ,p_eve_tbl IN okl_eve_tbl
1329: ,x_eve_tbl OUT NOCOPY okl_eve_tbl) IS
1330: l_api_version CONSTANT NUMBER := 1;
1331: l_api_name CONSTANT VARCHAR2(30) := 'update_row_tbl';
1332: l_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
1333: i NUMBER := 0;
1334: l_overall_status VARCHAR2(1) := okl_api.g_ret_sts_success;
1335:
1336: BEGIN
1330: l_api_version CONSTANT NUMBER := 1;
1331: l_api_name CONSTANT VARCHAR2(30) := 'update_row_tbl';
1332: l_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
1333: i NUMBER := 0;
1334: l_overall_status VARCHAR2(1) := okl_api.g_ret_sts_success;
1335:
1336: BEGIN
1337: okl_api.init_msg_list(p_init_msg_list);
1338:
1333: i NUMBER := 0;
1334: l_overall_status VARCHAR2(1) := okl_api.g_ret_sts_success;
1335:
1336: BEGIN
1337: okl_api.init_msg_list(p_init_msg_list);
1338:
1339: -- Make sure PL/SQL table has records in it before passing
1340:
1341: IF (p_eve_tbl.COUNT > 0) THEN
1366: -- No action necessary. Validation can continue to next attribute/column
1367:
1368: NULL;
1369: WHEN okc_api.g_exception_error THEN
1370: x_return_status := okl_api.handle_exceptions(l_api_name
1371: ,g_pkg_name
1372: ,'OKL_API.G_RET_STS_ERROR'
1373: ,x_msg_count
1374: ,x_msg_data
1368: NULL;
1369: WHEN okc_api.g_exception_error THEN
1370: x_return_status := okl_api.handle_exceptions(l_api_name
1371: ,g_pkg_name
1372: ,'OKL_API.G_RET_STS_ERROR'
1373: ,x_msg_count
1374: ,x_msg_data
1375: ,'_PVT');
1376: WHEN okc_api.g_exception_unexpected_error THEN
1373: ,x_msg_count
1374: ,x_msg_data
1375: ,'_PVT');
1376: WHEN okc_api.g_exception_unexpected_error THEN
1377: x_return_status := okl_api.handle_exceptions(l_api_name
1378: ,g_pkg_name
1379: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
1380: ,x_msg_count
1381: ,x_msg_data
1375: ,'_PVT');
1376: WHEN okc_api.g_exception_unexpected_error THEN
1377: x_return_status := okl_api.handle_exceptions(l_api_name
1378: ,g_pkg_name
1379: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
1380: ,x_msg_count
1381: ,x_msg_data
1382: ,'_PVT');
1383: WHEN OTHERS THEN
1380: ,x_msg_count
1381: ,x_msg_data
1382: ,'_PVT');
1383: WHEN OTHERS THEN
1384: x_return_status := okl_api.handle_exceptions(l_api_name
1385: ,g_pkg_name
1386: ,'OTHERS'
1387: ,x_msg_count
1388: ,x_msg_data
1400: ,x_msg_data OUT NOCOPY VARCHAR2
1401: ,p_eve_rec IN okl_eve_rec) IS
1402: l_api_version CONSTANT NUMBER := 1;
1403: l_api_name CONSTANT VARCHAR2(30) := 'delete_row';
1404: l_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
1405: l_eve_rec okl_eve_rec := p_eve_rec;
1406:
1407: BEGIN
1408: l_return_status := okc_api.start_activity(l_api_name
1412: ,p_api_version
1413: ,'_PVT'
1414: ,x_return_status);
1415:
1416: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1417: RAISE okc_api.g_exception_unexpected_error;
1418: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1419: RAISE okc_api.g_exception_error;
1420: END IF;
1414: ,x_return_status);
1415:
1416: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1417: RAISE okc_api.g_exception_unexpected_error;
1418: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1419: RAISE okc_api.g_exception_error;
1420: END IF;
1421:
1422: DELETE FROM okl_fe_eo_term_vers
1421:
1422: DELETE FROM okl_fe_eo_term_vers
1423: WHERE end_of_term_ver_id = l_eve_rec.end_of_term_ver_id;
1424:
1425: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1426: RAISE okc_api.g_exception_unexpected_error;
1427: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1428: RAISE okc_api.g_exception_error;
1429: END IF;
1423: WHERE end_of_term_ver_id = l_eve_rec.end_of_term_ver_id;
1424:
1425: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1426: RAISE okc_api.g_exception_unexpected_error;
1427: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1428: RAISE okc_api.g_exception_error;
1429: END IF;
1430: okc_api.end_activity(x_msg_count
1431: ,x_msg_data);
1435: -- No action necessary. Validation can continue to next attribute/column
1436:
1437: NULL;
1438: WHEN okc_api.g_exception_error THEN
1439: x_return_status := okl_api.handle_exceptions(l_api_name
1440: ,g_pkg_name
1441: ,'OKL_API.G_RET_STS_ERROR'
1442: ,x_msg_count
1443: ,x_msg_data
1437: NULL;
1438: WHEN okc_api.g_exception_error THEN
1439: x_return_status := okl_api.handle_exceptions(l_api_name
1440: ,g_pkg_name
1441: ,'OKL_API.G_RET_STS_ERROR'
1442: ,x_msg_count
1443: ,x_msg_data
1444: ,'_PVT');
1445: WHEN okc_api.g_exception_unexpected_error THEN
1442: ,x_msg_count
1443: ,x_msg_data
1444: ,'_PVT');
1445: WHEN okc_api.g_exception_unexpected_error THEN
1446: x_return_status := okl_api.handle_exceptions(l_api_name
1447: ,g_pkg_name
1448: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
1449: ,x_msg_count
1450: ,x_msg_data
1444: ,'_PVT');
1445: WHEN okc_api.g_exception_unexpected_error THEN
1446: x_return_status := okl_api.handle_exceptions(l_api_name
1447: ,g_pkg_name
1448: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
1449: ,x_msg_count
1450: ,x_msg_data
1451: ,'_PVT');
1452: WHEN OTHERS THEN
1449: ,x_msg_count
1450: ,x_msg_data
1451: ,'_PVT');
1452: WHEN OTHERS THEN
1453: x_return_status := okl_api.handle_exceptions(l_api_name
1454: ,g_pkg_name
1455: ,'OTHERS'
1456: ,x_msg_count
1457: ,x_msg_data
1469: ,x_msg_data OUT NOCOPY VARCHAR2
1470: ,p_eve_tbl IN okl_eve_tbl) IS
1471: l_api_version CONSTANT NUMBER := 1;
1472: l_api_name CONSTANT VARCHAR2(30) := 'delete_row_tbl';
1473: l_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
1474: i NUMBER := 0;
1475: l_overall_status VARCHAR2(1) := okl_api.g_ret_sts_success;
1476:
1477: BEGIN
1471: l_api_version CONSTANT NUMBER := 1;
1472: l_api_name CONSTANT VARCHAR2(30) := 'delete_row_tbl';
1473: l_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
1474: i NUMBER := 0;
1475: l_overall_status VARCHAR2(1) := okl_api.g_ret_sts_success;
1476:
1477: BEGIN
1478: okc_api.init_msg_list(p_init_msg_list);
1479:
1506: -- No action necessary. Validation can continue to next attribute/column
1507:
1508: NULL;
1509: WHEN okc_api.g_exception_error THEN
1510: x_return_status := okl_api.handle_exceptions(l_api_name
1511: ,g_pkg_name
1512: ,'OKL_API.G_RET_STS_ERROR'
1513: ,x_msg_count
1514: ,x_msg_data
1508: NULL;
1509: WHEN okc_api.g_exception_error THEN
1510: x_return_status := okl_api.handle_exceptions(l_api_name
1511: ,g_pkg_name
1512: ,'OKL_API.G_RET_STS_ERROR'
1513: ,x_msg_count
1514: ,x_msg_data
1515: ,'_PVT');
1516: WHEN okc_api.g_exception_unexpected_error THEN
1513: ,x_msg_count
1514: ,x_msg_data
1515: ,'_PVT');
1516: WHEN okc_api.g_exception_unexpected_error THEN
1517: x_return_status := okl_api.handle_exceptions(l_api_name
1518: ,g_pkg_name
1519: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
1520: ,x_msg_count
1521: ,x_msg_data
1515: ,'_PVT');
1516: WHEN okc_api.g_exception_unexpected_error THEN
1517: x_return_status := okl_api.handle_exceptions(l_api_name
1518: ,g_pkg_name
1519: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
1520: ,x_msg_count
1521: ,x_msg_data
1522: ,'_PVT');
1523: WHEN OTHERS THEN
1520: ,x_msg_count
1521: ,x_msg_data
1522: ,'_PVT');
1523: WHEN OTHERS THEN
1524: x_return_status := okl_api.handle_exceptions(l_api_name
1525: ,g_pkg_name
1526: ,'OTHERS'
1527: ,x_msg_count
1528: ,x_msg_data