18: p_coverage_rec IN Coverage_Rec_Type
19: )
20: RETURN VARCHAR2
21: IS
22: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
23: BEGIN
24: IF p_coverage_rec.name = TAPI_DEV_KIT.G_MISS_CHAR OR
25: p_coverage_rec.name IS NULL
26: THEN
24: IF p_coverage_rec.name = TAPI_DEV_KIT.G_MISS_CHAR OR
25: p_coverage_rec.name IS NULL
26: THEN
27: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'name');
28: l_return_status := FND_API.G_RET_STS_ERROR;
29: ELSIF p_coverage_rec.template_flag = TAPI_DEV_KIT.G_MISS_CHAR OR
30: p_coverage_rec.template_flag IS NULL
31: THEN
32: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'template_flag');
29: ELSIF p_coverage_rec.template_flag = TAPI_DEV_KIT.G_MISS_CHAR OR
30: p_coverage_rec.template_flag IS NULL
31: THEN
32: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'template_flag');
33: l_return_status := FND_API.G_RET_STS_ERROR;
34: ELSIF p_coverage_rec.created_by = TAPI_DEV_KIT.G_MISS_NUM OR
35: p_coverage_rec.created_by IS NULL
36: THEN
37: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'created_by');
34: ELSIF p_coverage_rec.created_by = TAPI_DEV_KIT.G_MISS_NUM OR
35: p_coverage_rec.created_by IS NULL
36: THEN
37: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'created_by');
38: l_return_status := FND_API.G_RET_STS_ERROR;
39: ELSIF p_coverage_rec.creation_date = TAPI_DEV_KIT.G_MISS_DATE OR
40: p_coverage_rec.creation_date IS NULL
41: THEN
42: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'creation_date');
39: ELSIF p_coverage_rec.creation_date = TAPI_DEV_KIT.G_MISS_DATE OR
40: p_coverage_rec.creation_date IS NULL
41: THEN
42: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'creation_date');
43: l_return_status := FND_API.G_RET_STS_ERROR;
44: ELSIF p_coverage_rec.last_update_date = TAPI_DEV_KIT.G_MISS_DATE OR
45: p_coverage_rec.last_update_date IS NULL
46: THEN
47: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'last_update_date');
44: ELSIF p_coverage_rec.last_update_date = TAPI_DEV_KIT.G_MISS_DATE OR
45: p_coverage_rec.last_update_date IS NULL
46: THEN
47: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'last_update_date');
48: l_return_status := FND_API.G_RET_STS_ERROR;
49: ELSIF p_coverage_rec.last_updated_by = TAPI_DEV_KIT.G_MISS_NUM OR
50: p_coverage_rec.last_updated_by IS NULL
51: THEN
52: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'last_updated_by');
49: ELSIF p_coverage_rec.last_updated_by = TAPI_DEV_KIT.G_MISS_NUM OR
50: p_coverage_rec.last_updated_by IS NULL
51: THEN
52: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'last_updated_by');
53: l_return_status := FND_API.G_RET_STS_ERROR;
54: END IF;
55: RETURN(l_return_status);
56: END Validate_Item_Attributes;
57:
63: l_def_coverage_rec OUT Coverage_Rec_Type
64: )
65: RETURN VARCHAR2
66: IS
67: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
68: BEGIN
69: l_def_coverage_rec := p_coverage_rec;
70: l_def_coverage_rec.OBJECT_VERSION_NUMBER := NVL(l_def_coverage_rec.OBJECT_VERSION_NUMBER, 0) + 1;
71: RETURN(l_return_status);
75: FUNCTION Validate_Item_Record (
76: p_coverage_rec IN Coverage_Rec_Type
77: )
78: RETURN VARCHAR2 IS
79: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
80: FUNCTION validate_foreign_keys (
81: p_coverage_rec IN Coverage_Rec_Type
82: )
83: RETURN VARCHAR2 IS
86: SELECT *
87: FROM Cs_Coverages
88: WHERE cs_coverages.coverage_id = p_coverage_id;
89: l_cc_pk cc_pk_csr%ROWTYPE;
90: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
91: l_row_notfound BOOLEAN := TRUE;
92: BEGIN
93: IF (p_coverage_rec.COVERAGE_TEMPLATE_ID IS NOT NULL)
94: THEN
103: END IF;
104: RETURN (l_return_status);
105: EXCEPTION
106: WHEN item_not_found_error THEN
107: l_return_status := FND_API.G_RET_STS_ERROR;
108: RETURN (l_return_status);
109: END validate_foreign_keys;
110: BEGIN
111: l_return_status := validate_foreign_keys (p_coverage_rec);
250: x_coverage_id OUT NUMBER,
251: x_object_version_number OUT NUMBER) IS
252: l_api_name CONSTANT VARCHAR2(30) := 'insert_row';
253: l_api_version CONSTANT NUMBER := 1;
254: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
255: l_coverage_rec Coverage_Rec_Type;
256: l_def_coverage_rec Coverage_Rec_Type;
257: BEGIN
258: l_return_status := TAPI_DEV_KIT.START_ACTIVITY(l_api_name,
261: p_api_version,
262: p_init_msg_list,
263: '_Pvt',
264: x_return_status);
265: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
266: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
267: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
268: RAISE FND_API.G_EXC_ERROR;
269: END IF;
262: p_init_msg_list,
263: '_Pvt',
264: x_return_status);
265: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
266: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
267: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
268: RAISE FND_API.G_EXC_ERROR;
269: END IF;
270: l_coverage_rec := p_coverage_rec;
263: '_Pvt',
264: x_return_status);
265: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
266: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
267: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
268: RAISE FND_API.G_EXC_ERROR;
269: END IF;
270: l_coverage_rec := p_coverage_rec;
271: --- Validate all non-missing attributes (Item Level Validation)
264: x_return_status);
265: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
266: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
267: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
268: RAISE FND_API.G_EXC_ERROR;
269: END IF;
270: l_coverage_rec := p_coverage_rec;
271: --- Validate all non-missing attributes (Item Level Validation)
272: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
268: RAISE FND_API.G_EXC_ERROR;
269: END IF;
270: l_coverage_rec := p_coverage_rec;
271: --- Validate all non-missing attributes (Item Level Validation)
272: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
273: l_return_status := Validate_Item_Attributes
274: (
275: l_coverage_rec ---- IN
276: );
274: (
275: l_coverage_rec ---- IN
276: );
277: --- If any errors happen abort API
278: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
279: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
280: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
281: RAISE FND_API.G_EXC_ERROR;
282: END IF;
275: l_coverage_rec ---- IN
276: );
277: --- If any errors happen abort API
278: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
279: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
280: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
281: RAISE FND_API.G_EXC_ERROR;
282: END IF;
283: END IF;
276: );
277: --- If any errors happen abort API
278: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
279: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
280: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
281: RAISE FND_API.G_EXC_ERROR;
282: END IF;
283: END IF;
284: --- Defaulting item attributes
277: --- If any errors happen abort API
278: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
279: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
280: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
281: RAISE FND_API.G_EXC_ERROR;
282: END IF;
283: END IF;
284: --- Defaulting item attributes
285: l_return_status := Default_Item_Attributes
287: l_coverage_rec, ---- IN
288: l_def_coverage_rec
289: );
290: --- If any errors happen abort API
291: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
292: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
293: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
294: RAISE FND_API.G_EXC_ERROR;
295: END IF;
288: l_def_coverage_rec
289: );
290: --- If any errors happen abort API
291: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
292: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
293: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
294: RAISE FND_API.G_EXC_ERROR;
295: END IF;
296: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
289: );
290: --- If any errors happen abort API
291: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
292: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
293: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
294: RAISE FND_API.G_EXC_ERROR;
295: END IF;
296: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
297: l_return_status := Validate_Item_Record(l_def_coverage_rec);
290: --- If any errors happen abort API
291: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
292: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
293: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
294: RAISE FND_API.G_EXC_ERROR;
295: END IF;
296: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
297: l_return_status := Validate_Item_Record(l_def_coverage_rec);
298: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
292: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
293: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
294: RAISE FND_API.G_EXC_ERROR;
295: END IF;
296: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
297: l_return_status := Validate_Item_Record(l_def_coverage_rec);
298: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
299: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
300: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
294: RAISE FND_API.G_EXC_ERROR;
295: END IF;
296: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
297: l_return_status := Validate_Item_Record(l_def_coverage_rec);
298: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
299: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
300: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
301: RAISE FND_API.G_EXC_ERROR;
302: END IF;
295: END IF;
296: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
297: l_return_status := Validate_Item_Record(l_def_coverage_rec);
298: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
299: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
300: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
301: RAISE FND_API.G_EXC_ERROR;
302: END IF;
303: END IF;
296: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
297: l_return_status := Validate_Item_Record(l_def_coverage_rec);
298: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
299: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
300: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
301: RAISE FND_API.G_EXC_ERROR;
302: END IF;
303: END IF;
304: -- Set primary key value
297: l_return_status := Validate_Item_Record(l_def_coverage_rec);
298: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
299: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
300: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
301: RAISE FND_API.G_EXC_ERROR;
302: END IF;
303: END IF;
304: -- Set primary key value
305: l_def_coverage_rec.coverage_id := get_seq_id;
421: x_coverage_id := l_def_coverage_rec.coverage_id;
422: x_object_version_number := l_def_coverage_rec.OBJECT_VERSION_NUMBER;
423: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
424: EXCEPTION
425: WHEN FND_API.G_EXC_ERROR THEN
426: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
427: (
428: l_api_name,
429: G_PKG_NAME,
426: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
427: (
428: l_api_name,
429: G_PKG_NAME,
430: 'FND_API.G_RET_STS_ERROR',
431: x_msg_count,
432: x_msg_data,
433: '_Pvt'
434: );
432: x_msg_data,
433: '_Pvt'
434: );
435: APP_EXCEPTION.RAISE_EXCEPTION;
436: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
437: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
438: (
439: l_api_name,
440: G_PKG_NAME,
437: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
438: (
439: l_api_name,
440: G_PKG_NAME,
441: 'FND_API.G_RET_STS_UNEXP_ERROR',
442: x_msg_count,
443: x_msg_data,
444: '_Pvt'
445: );
523: x_coverage_id OUT NUMBER,
524: x_object_version_number OUT NUMBER) IS
525: l_api_name CONSTANT VARCHAR2(30) := 'insert_row';
526: l_api_version CONSTANT NUMBER := 1;
527: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
528: l_coverage_rec Coverage_Rec_Type;
529: BEGIN
530: l_return_status := TAPI_DEV_KIT.START_ACTIVITY(l_api_name,
531: G_PKG_NAME,
533: p_api_version,
534: p_init_msg_list,
535: '_Pvt',
536: x_return_status);
537: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
538: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
539: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
540: RAISE FND_API.G_EXC_ERROR;
541: END IF;
534: p_init_msg_list,
535: '_Pvt',
536: x_return_status);
537: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
538: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
539: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
540: RAISE FND_API.G_EXC_ERROR;
541: END IF;
542: l_coverage_rec.COVERAGE_TEMPLATE_ID := p_coverage_template_id;
535: '_Pvt',
536: x_return_status);
537: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
538: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
539: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
540: RAISE FND_API.G_EXC_ERROR;
541: END IF;
542: l_coverage_rec.COVERAGE_TEMPLATE_ID := p_coverage_template_id;
543: l_coverage_rec.NAME := p_name;
536: x_return_status);
537: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
538: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
539: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
540: RAISE FND_API.G_EXC_ERROR;
541: END IF;
542: l_coverage_rec.COVERAGE_TEMPLATE_ID := p_coverage_template_id;
543: l_coverage_rec.NAME := p_name;
544: l_coverage_rec.DESCRIPTION := p_description;
607: x_object_version_number
608: );
609: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
610: EXCEPTION
611: WHEN FND_API.G_EXC_ERROR THEN
612: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
613: (
614: l_api_name,
615: G_PKG_NAME,
612: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
613: (
614: l_api_name,
615: G_PKG_NAME,
616: 'FND_API.G_RET_STS_ERROR',
617: x_msg_count,
618: x_msg_data,
619: '_Pvt'
620: );
618: x_msg_data,
619: '_Pvt'
620: );
621: APP_EXCEPTION.RAISE_EXCEPTION;
622: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
623: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
624: (
625: l_api_name,
626: G_PKG_NAME,
623: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
624: (
625: l_api_name,
626: G_PKG_NAME,
627: 'FND_API.G_RET_STS_UNEXP_ERROR',
628: x_msg_count,
629: x_msg_data,
630: '_Pvt'
631: );
670: COVERAGE_ID = p_coverage_id
671: ;
672: l_api_name CONSTANT VARCHAR2(30) := 'lock_row';
673: l_api_version CONSTANT NUMBER := 1;
674: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
675: l_object_version_number CS_COVERAGES.OBJECT_VERSION_NUMBER%TYPE;
676: lc_object_version_number CS_COVERAGES.OBJECT_VERSION_NUMBER%TYPE;
677: l_row_notfound BOOLEAN := FALSE;
678: lc_row_notfound BOOLEAN := FALSE;
683: p_api_version,
684: p_init_msg_list,
685: '_Pvt',
686: x_return_status);
687: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
688: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
689: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
690: RAISE FND_API.G_EXC_ERROR;
691: END IF;
684: p_init_msg_list,
685: '_Pvt',
686: x_return_status);
687: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
688: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
689: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
690: RAISE FND_API.G_EXC_ERROR;
691: END IF;
692: BEGIN
685: '_Pvt',
686: x_return_status);
687: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
688: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
689: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
690: RAISE FND_API.G_EXC_ERROR;
691: END IF;
692: BEGIN
693: OPEN lock_csr;
686: x_return_status);
687: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
688: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
689: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
690: RAISE FND_API.G_EXC_ERROR;
691: END IF;
692: BEGIN
693: OPEN lock_csr;
694: FETCH lock_csr INTO l_object_version_number;
710: CLOSE lchk_csr;
711: END IF;
712: IF (lc_row_notfound) THEN
713: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
714: RAISE FND_API.G_EXC_ERROR;
715: ELSIF lc_object_version_number > p_object_version_number THEN
716: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
717: RAISE FND_API.G_EXC_ERROR;
718: ELSIF lc_object_version_number <> p_object_version_number THEN
713: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
714: RAISE FND_API.G_EXC_ERROR;
715: ELSIF lc_object_version_number > p_object_version_number THEN
716: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
717: RAISE FND_API.G_EXC_ERROR;
718: ELSIF lc_object_version_number <> p_object_version_number THEN
719: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
720: RAISE FND_API.G_EXC_ERROR;
721: ELSIF lc_object_version_number = -1 THEN
716: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
717: RAISE FND_API.G_EXC_ERROR;
718: ELSIF lc_object_version_number <> p_object_version_number THEN
719: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
720: RAISE FND_API.G_EXC_ERROR;
721: ELSIF lc_object_version_number = -1 THEN
722: TAPI_DEV_KIT.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
723: RAISE FND_API.G_EXC_ERROR;
724: END IF;
719: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
720: RAISE FND_API.G_EXC_ERROR;
721: ELSIF lc_object_version_number = -1 THEN
722: TAPI_DEV_KIT.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
723: RAISE FND_API.G_EXC_ERROR;
724: END IF;
725: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
726: EXCEPTION
727: WHEN FND_API.G_EXC_ERROR THEN
723: RAISE FND_API.G_EXC_ERROR;
724: END IF;
725: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
726: EXCEPTION
727: WHEN FND_API.G_EXC_ERROR THEN
728: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
729: (
730: l_api_name,
731: G_PKG_NAME,
728: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
729: (
730: l_api_name,
731: G_PKG_NAME,
732: 'FND_API.G_RET_STS_ERROR',
733: x_msg_count,
734: x_msg_data,
735: '_Pvt'
736: );
734: x_msg_data,
735: '_Pvt'
736: );
737: APP_EXCEPTION.RAISE_EXCEPTION;
738: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
739: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
740: (
741: l_api_name,
742: G_PKG_NAME,
739: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
740: (
741: l_api_name,
742: G_PKG_NAME,
743: 'FND_API.G_RET_STS_UNEXP_ERROR',
744: x_msg_count,
745: x_msg_data,
746: '_Pvt'
747: );
770: p_coverage_val_rec IN Coverage_Val_Rec_Type := G_MISS_COVERAGE_VAL_REC,
771: x_object_version_number OUT NUMBER) IS
772: l_api_name CONSTANT VARCHAR2(30) := 'update_row';
773: l_api_version CONSTANT NUMBER := 1;
774: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
775: l_coverage_rec Coverage_Rec_Type;
776: l_def_coverage_rec Coverage_Rec_Type;
777: FUNCTION populate_new_record (
778: p_coverage_rec IN Coverage_Rec_Type,
783: FROM Cs_Coverages
784: WHERE cs_coverages.coverage_id = p_coverage_id;
785: l_cc_pk cc_pk_csr%ROWTYPE;
786: l_row_notfound BOOLEAN := TRUE;
787: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
788: BEGIN
789: x_coverage_rec := p_coverage_rec;
790: -- Get current database values
791: OPEN cc_pk_csr (p_coverage_rec.coverage_id);
792: FETCH cc_pk_csr INTO l_cc_pk;
793: l_row_notfound := cc_pk_csr%NOTFOUND;
794: CLOSE cc_pk_csr;
795: IF (l_row_notfound) THEN
796: l_return_status := FND_API.G_RET_STS_ERROR;
797: END IF;
798: IF (x_coverage_rec.coverage_id = TAPI_DEV_KIT.G_MISS_NUM)
799: THEN
800: x_coverage_rec.coverage_id := l_cc_pk.coverage_id;
1028: p_api_version,
1029: p_init_msg_list,
1030: '_Pvt',
1031: x_return_status);
1032: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1033: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1034: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1035: RAISE FND_API.G_EXC_ERROR;
1036: END IF;
1029: p_init_msg_list,
1030: '_Pvt',
1031: x_return_status);
1032: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1033: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1034: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1035: RAISE FND_API.G_EXC_ERROR;
1036: END IF;
1037: migrate(p_coverage_val_rec, l_coverage_rec);
1030: '_Pvt',
1031: x_return_status);
1032: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1033: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1034: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1035: RAISE FND_API.G_EXC_ERROR;
1036: END IF;
1037: migrate(p_coverage_val_rec, l_coverage_rec);
1038: --- Defaulting item attributes
1031: x_return_status);
1032: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1033: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1034: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1035: RAISE FND_API.G_EXC_ERROR;
1036: END IF;
1037: migrate(p_coverage_val_rec, l_coverage_rec);
1038: --- Defaulting item attributes
1039: l_return_status := Default_Item_Attributes
1041: l_coverage_rec, ---- IN
1042: l_def_coverage_rec
1043: );
1044: --- If any errors happen abort API
1045: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1046: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1047: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1048: RAISE FND_API.G_EXC_ERROR;
1049: END IF;
1042: l_def_coverage_rec
1043: );
1044: --- If any errors happen abort API
1045: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1046: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1047: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1048: RAISE FND_API.G_EXC_ERROR;
1049: END IF;
1050: l_return_status := populate_new_record(l_def_coverage_rec, l_def_coverage_rec);
1043: );
1044: --- If any errors happen abort API
1045: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1046: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1047: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1048: RAISE FND_API.G_EXC_ERROR;
1049: END IF;
1050: l_return_status := populate_new_record(l_def_coverage_rec, l_def_coverage_rec);
1051: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1044: --- If any errors happen abort API
1045: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1046: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1047: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1048: RAISE FND_API.G_EXC_ERROR;
1049: END IF;
1050: l_return_status := populate_new_record(l_def_coverage_rec, l_def_coverage_rec);
1051: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1052: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1047: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1048: RAISE FND_API.G_EXC_ERROR;
1049: END IF;
1050: l_return_status := populate_new_record(l_def_coverage_rec, l_def_coverage_rec);
1051: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1052: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1053: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1054: RAISE FND_API.G_EXC_ERROR;
1055: END IF;
1048: RAISE FND_API.G_EXC_ERROR;
1049: END IF;
1050: l_return_status := populate_new_record(l_def_coverage_rec, l_def_coverage_rec);
1051: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1052: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1053: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1054: RAISE FND_API.G_EXC_ERROR;
1055: END IF;
1056: --- Validate all non-missing attributes (Item Level Validation)
1049: END IF;
1050: l_return_status := populate_new_record(l_def_coverage_rec, l_def_coverage_rec);
1051: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1052: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1053: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1054: RAISE FND_API.G_EXC_ERROR;
1055: END IF;
1056: --- Validate all non-missing attributes (Item Level Validation)
1057: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
1050: l_return_status := populate_new_record(l_def_coverage_rec, l_def_coverage_rec);
1051: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1052: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1053: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1054: RAISE FND_API.G_EXC_ERROR;
1055: END IF;
1056: --- Validate all non-missing attributes (Item Level Validation)
1057: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
1058: l_return_status := Validate_Item_Attributes
1053: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1054: RAISE FND_API.G_EXC_ERROR;
1055: END IF;
1056: --- Validate all non-missing attributes (Item Level Validation)
1057: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
1058: l_return_status := Validate_Item_Attributes
1059: (
1060: l_def_coverage_rec ---- IN
1061: );
1059: (
1060: l_def_coverage_rec ---- IN
1061: );
1062: --- If any errors happen abort API
1063: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1064: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1065: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1066: RAISE FND_API.G_EXC_ERROR;
1067: END IF;
1060: l_def_coverage_rec ---- IN
1061: );
1062: --- If any errors happen abort API
1063: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1064: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1065: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1066: RAISE FND_API.G_EXC_ERROR;
1067: END IF;
1068: END IF;
1061: );
1062: --- If any errors happen abort API
1063: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1064: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1065: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1066: RAISE FND_API.G_EXC_ERROR;
1067: END IF;
1068: END IF;
1069: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1062: --- If any errors happen abort API
1063: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1064: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1065: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1066: RAISE FND_API.G_EXC_ERROR;
1067: END IF;
1068: END IF;
1069: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1070: l_return_status := Validate_Item_Record(l_def_coverage_rec);
1065: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1066: RAISE FND_API.G_EXC_ERROR;
1067: END IF;
1068: END IF;
1069: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1070: l_return_status := Validate_Item_Record(l_def_coverage_rec);
1071: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1072: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1073: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1067: END IF;
1068: END IF;
1069: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1070: l_return_status := Validate_Item_Record(l_def_coverage_rec);
1071: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1072: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1073: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1074: RAISE FND_API.G_EXC_ERROR;
1075: END IF;
1068: END IF;
1069: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1070: l_return_status := Validate_Item_Record(l_def_coverage_rec);
1071: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1072: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1073: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1074: RAISE FND_API.G_EXC_ERROR;
1075: END IF;
1076: END IF;
1069: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1070: l_return_status := Validate_Item_Record(l_def_coverage_rec);
1071: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1072: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1073: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1074: RAISE FND_API.G_EXC_ERROR;
1075: END IF;
1076: END IF;
1077: UPDATE CS_COVERAGES
1070: l_return_status := Validate_Item_Record(l_def_coverage_rec);
1071: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1072: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1073: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1074: RAISE FND_API.G_EXC_ERROR;
1075: END IF;
1076: END IF;
1077: UPDATE CS_COVERAGES
1078: SET
1137: ;
1138: x_object_version_number := l_def_coverage_rec.OBJECT_VERSION_NUMBER;
1139: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
1140: EXCEPTION
1141: WHEN FND_API.G_EXC_ERROR THEN
1142: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1143: (
1144: l_api_name,
1145: G_PKG_NAME,
1142: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1143: (
1144: l_api_name,
1145: G_PKG_NAME,
1146: 'FND_API.G_RET_STS_ERROR',
1147: x_msg_count,
1148: x_msg_data,
1149: '_Pvt'
1150: );
1148: x_msg_data,
1149: '_Pvt'
1150: );
1151: APP_EXCEPTION.RAISE_EXCEPTION;
1152: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1153: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1154: (
1155: l_api_name,
1156: G_PKG_NAME,
1153: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1154: (
1155: l_api_name,
1156: G_PKG_NAME,
1157: 'FND_API.G_RET_STS_UNEXP_ERROR',
1158: x_msg_count,
1159: x_msg_data,
1160: '_Pvt'
1161: );
1239: p_object_version_number IN NUMBER := TAPI_DEV_KIT.G_MISS_NUM,
1240: x_object_version_number OUT NUMBER) IS
1241: l_api_name CONSTANT VARCHAR2(30) := 'update_row';
1242: l_api_version CONSTANT NUMBER := 1;
1243: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1244: l_coverage_rec Coverage_Val_Rec_Type;
1245: BEGIN
1246: l_return_status := TAPI_DEV_KIT.START_ACTIVITY(l_api_name,
1247: G_PKG_NAME,
1249: p_api_version,
1250: p_init_msg_list,
1251: '_Pvt',
1252: x_return_status);
1253: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1254: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1255: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1256: RAISE FND_API.G_EXC_ERROR;
1257: END IF;
1250: p_init_msg_list,
1251: '_Pvt',
1252: x_return_status);
1253: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1254: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1255: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1256: RAISE FND_API.G_EXC_ERROR;
1257: END IF;
1258: l_coverage_rec.COVERAGE_ID := p_coverage_id;
1251: '_Pvt',
1252: x_return_status);
1253: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1254: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1255: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1256: RAISE FND_API.G_EXC_ERROR;
1257: END IF;
1258: l_coverage_rec.COVERAGE_ID := p_coverage_id;
1259: l_coverage_rec.COVERAGE_TEMPLATE_ID := p_coverage_template_id;
1252: x_return_status);
1253: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1254: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1255: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1256: RAISE FND_API.G_EXC_ERROR;
1257: END IF;
1258: l_coverage_rec.COVERAGE_ID := p_coverage_id;
1259: l_coverage_rec.COVERAGE_TEMPLATE_ID := p_coverage_template_id;
1260: l_coverage_rec.NAME := p_name;
1323: x_object_version_number
1324: );
1325: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
1326: EXCEPTION
1327: WHEN FND_API.G_EXC_ERROR THEN
1328: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1329: (
1330: l_api_name,
1331: G_PKG_NAME,
1328: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1329: (
1330: l_api_name,
1331: G_PKG_NAME,
1332: 'FND_API.G_RET_STS_ERROR',
1333: x_msg_count,
1334: x_msg_data,
1335: '_Pvt'
1336: );
1334: x_msg_data,
1335: '_Pvt'
1336: );
1337: APP_EXCEPTION.RAISE_EXCEPTION;
1338: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1339: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1340: (
1341: l_api_name,
1342: G_PKG_NAME,
1339: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1340: (
1341: l_api_name,
1342: G_PKG_NAME,
1343: 'FND_API.G_RET_STS_UNEXP_ERROR',
1344: x_msg_count,
1345: x_msg_data,
1346: '_Pvt'
1347: );
1369: x_msg_data OUT VARCHAR2,
1370: p_coverage_id IN NUMBER) IS
1371: l_api_name CONSTANT VARCHAR2(30) := 'delete_row';
1372: l_api_version CONSTANT NUMBER := 1;
1373: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1374: BEGIN
1375: l_return_status := TAPI_DEV_KIT.START_ACTIVITY(l_api_name,
1376: G_PKG_NAME,
1377: l_api_version,
1378: p_api_version,
1379: p_init_msg_list,
1380: '_Pvt',
1381: x_return_status);
1382: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1383: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1384: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1385: RAISE FND_API.G_EXC_ERROR;
1386: END IF;
1379: p_init_msg_list,
1380: '_Pvt',
1381: x_return_status);
1382: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1383: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1384: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1385: RAISE FND_API.G_EXC_ERROR;
1386: END IF;
1387: DELETE FROM CS_COVERAGES
1380: '_Pvt',
1381: x_return_status);
1382: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1383: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1384: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1385: RAISE FND_API.G_EXC_ERROR;
1386: END IF;
1387: DELETE FROM CS_COVERAGES
1388: WHERE
1381: x_return_status);
1382: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1383: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1384: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1385: RAISE FND_API.G_EXC_ERROR;
1386: END IF;
1387: DELETE FROM CS_COVERAGES
1388: WHERE
1389: COVERAGE_ID = p_coverage_id
1389: COVERAGE_ID = p_coverage_id
1390: ;
1391: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
1392: EXCEPTION
1393: WHEN FND_API.G_EXC_ERROR THEN
1394: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1395: (
1396: l_api_name,
1397: G_PKG_NAME,
1394: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1395: (
1396: l_api_name,
1397: G_PKG_NAME,
1398: 'FND_API.G_RET_STS_ERROR',
1399: x_msg_count,
1400: x_msg_data,
1401: '_Pvt'
1402: );
1400: x_msg_data,
1401: '_Pvt'
1402: );
1403: APP_EXCEPTION.RAISE_EXCEPTION;
1404: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1405: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1406: (
1407: l_api_name,
1408: G_PKG_NAME,
1405: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1406: (
1407: l_api_name,
1408: G_PKG_NAME,
1409: 'FND_API.G_RET_STS_UNEXP_ERROR',
1410: x_msg_count,
1411: x_msg_data,
1412: '_Pvt'
1413: );
1435: x_msg_data OUT VARCHAR2,
1436: p_coverage_val_rec IN Coverage_Val_Rec_Type := G_MISS_COVERAGE_VAL_REC) IS
1437: l_api_name CONSTANT VARCHAR2(30) := 'validate_row';
1438: l_api_version CONSTANT NUMBER := 1;
1439: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1440: l_coverage_rec Coverage_Rec_Type;
1441: l_def_coverage_rec Coverage_Rec_Type;
1442: BEGIN
1443: l_return_status := TAPI_DEV_KIT.START_ACTIVITY(l_api_name,
1446: p_api_version,
1447: p_init_msg_list,
1448: '_Pvt',
1449: x_return_status);
1450: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1451: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1452: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1453: RAISE FND_API.G_EXC_ERROR;
1454: END IF;
1447: p_init_msg_list,
1448: '_Pvt',
1449: x_return_status);
1450: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1451: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1452: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1453: RAISE FND_API.G_EXC_ERROR;
1454: END IF;
1455: migrate(p_coverage_val_rec, l_coverage_rec);
1448: '_Pvt',
1449: x_return_status);
1450: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1451: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1452: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1453: RAISE FND_API.G_EXC_ERROR;
1454: END IF;
1455: migrate(p_coverage_val_rec, l_coverage_rec);
1456: --- Validate all non-missing attributes (Item Level Validation)
1449: x_return_status);
1450: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1451: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1452: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1453: RAISE FND_API.G_EXC_ERROR;
1454: END IF;
1455: migrate(p_coverage_val_rec, l_coverage_rec);
1456: --- Validate all non-missing attributes (Item Level Validation)
1457: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
1453: RAISE FND_API.G_EXC_ERROR;
1454: END IF;
1455: migrate(p_coverage_val_rec, l_coverage_rec);
1456: --- Validate all non-missing attributes (Item Level Validation)
1457: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
1458: l_return_status := Validate_Item_Attributes
1459: (
1460: l_coverage_rec ---- IN
1461: );
1459: (
1460: l_coverage_rec ---- IN
1461: );
1462: --- If any errors happen abort API
1463: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1464: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1465: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1466: RAISE FND_API.G_EXC_ERROR;
1467: END IF;
1460: l_coverage_rec ---- IN
1461: );
1462: --- If any errors happen abort API
1463: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1464: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1465: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1466: RAISE FND_API.G_EXC_ERROR;
1467: END IF;
1468: END IF;
1461: );
1462: --- If any errors happen abort API
1463: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1464: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1465: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1466: RAISE FND_API.G_EXC_ERROR;
1467: END IF;
1468: END IF;
1469: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1462: --- If any errors happen abort API
1463: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1464: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1465: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1466: RAISE FND_API.G_EXC_ERROR;
1467: END IF;
1468: END IF;
1469: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1470: l_return_status := Validate_Item_Record(l_def_coverage_rec);
1465: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1466: RAISE FND_API.G_EXC_ERROR;
1467: END IF;
1468: END IF;
1469: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1470: l_return_status := Validate_Item_Record(l_def_coverage_rec);
1471: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1472: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1473: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1467: END IF;
1468: END IF;
1469: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1470: l_return_status := Validate_Item_Record(l_def_coverage_rec);
1471: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1472: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1473: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1474: RAISE FND_API.G_EXC_ERROR;
1475: END IF;
1468: END IF;
1469: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1470: l_return_status := Validate_Item_Record(l_def_coverage_rec);
1471: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1472: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1473: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1474: RAISE FND_API.G_EXC_ERROR;
1475: END IF;
1476: END IF;
1469: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1470: l_return_status := Validate_Item_Record(l_def_coverage_rec);
1471: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1472: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1473: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1474: RAISE FND_API.G_EXC_ERROR;
1475: END IF;
1476: END IF;
1477: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
1470: l_return_status := Validate_Item_Record(l_def_coverage_rec);
1471: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1472: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1473: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1474: RAISE FND_API.G_EXC_ERROR;
1475: END IF;
1476: END IF;
1477: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
1478: EXCEPTION
1475: END IF;
1476: END IF;
1477: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
1478: EXCEPTION
1479: WHEN FND_API.G_EXC_ERROR THEN
1480: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1481: (
1482: l_api_name,
1483: G_PKG_NAME,
1480: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1481: (
1482: l_api_name,
1483: G_PKG_NAME,
1484: 'FND_API.G_RET_STS_ERROR',
1485: x_msg_count,
1486: x_msg_data,
1487: '_Pvt'
1488: );
1486: x_msg_data,
1487: '_Pvt'
1488: );
1489: APP_EXCEPTION.RAISE_EXCEPTION;
1490: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1491: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1492: (
1493: l_api_name,
1494: G_PKG_NAME,
1491: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1492: (
1493: l_api_name,
1494: G_PKG_NAME,
1495: 'FND_API.G_RET_STS_UNEXP_ERROR',
1496: x_msg_count,
1497: x_msg_data,
1498: '_Pvt'
1499: );
1576: p_context IN CS_COVERAGES.CONTEXT%TYPE := TAPI_DEV_KIT.G_MISS_CHAR,
1577: p_object_version_number IN NUMBER := TAPI_DEV_KIT.G_MISS_NUM) IS
1578: l_api_name CONSTANT VARCHAR2(30) := 'validate_row';
1579: l_api_version CONSTANT NUMBER := 1;
1580: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1581: l_coverage_rec Coverage_Val_Rec_Type;
1582: BEGIN
1583: l_return_status := TAPI_DEV_KIT.START_ACTIVITY(l_api_name,
1584: G_PKG_NAME,
1586: p_api_version,
1587: p_init_msg_list,
1588: '_Pvt',
1589: x_return_status);
1590: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1591: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1592: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1593: RAISE FND_API.G_EXC_ERROR;
1594: END IF;
1587: p_init_msg_list,
1588: '_Pvt',
1589: x_return_status);
1590: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1591: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1592: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1593: RAISE FND_API.G_EXC_ERROR;
1594: END IF;
1595: l_coverage_rec.COVERAGE_ID := p_coverage_id;
1588: '_Pvt',
1589: x_return_status);
1590: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1591: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1592: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1593: RAISE FND_API.G_EXC_ERROR;
1594: END IF;
1595: l_coverage_rec.COVERAGE_ID := p_coverage_id;
1596: l_coverage_rec.COVERAGE_TEMPLATE_ID := p_coverage_template_id;
1589: x_return_status);
1590: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1591: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1592: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1593: RAISE FND_API.G_EXC_ERROR;
1594: END IF;
1595: l_coverage_rec.COVERAGE_ID := p_coverage_id;
1596: l_coverage_rec.COVERAGE_TEMPLATE_ID := p_coverage_template_id;
1597: l_coverage_rec.NAME := p_name;
1659: l_coverage_rec
1660: );
1661: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
1662: EXCEPTION
1663: WHEN FND_API.G_EXC_ERROR THEN
1664: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1665: (
1666: l_api_name,
1667: G_PKG_NAME,
1664: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1665: (
1666: l_api_name,
1667: G_PKG_NAME,
1668: 'FND_API.G_RET_STS_ERROR',
1669: x_msg_count,
1670: x_msg_data,
1671: '_Pvt'
1672: );
1670: x_msg_data,
1671: '_Pvt'
1672: );
1673: APP_EXCEPTION.RAISE_EXCEPTION;
1674: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1675: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1676: (
1677: l_api_name,
1678: G_PKG_NAME,
1675: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1676: (
1677: l_api_name,
1678: G_PKG_NAME,
1679: 'FND_API.G_RET_STS_UNEXP_ERROR',
1680: x_msg_count,
1681: x_msg_data,
1682: '_Pvt'
1683: );