18: p_coveragelevel_rec IN CoverageLevel_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_coveragelevel_rec.coverage_level_code = TAPI_DEV_KIT.G_MISS_CHAR OR
25: p_coveragelevel_rec.coverage_level_code IS NULL
26: THEN
24: IF p_coveragelevel_rec.coverage_level_code = TAPI_DEV_KIT.G_MISS_CHAR OR
25: p_coveragelevel_rec.coverage_level_code IS NULL
26: THEN
27: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'coverage_level_code');
28: l_return_status := FND_API.G_RET_STS_ERROR;
29: ELSIF p_coveragelevel_rec.coverage_level_value = TAPI_DEV_KIT.G_MISS_NUM OR
30: p_coveragelevel_rec.coverage_level_value IS NULL
31: THEN
32: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'coverage_level_value');
29: ELSIF p_coveragelevel_rec.coverage_level_value = TAPI_DEV_KIT.G_MISS_NUM OR
30: p_coveragelevel_rec.coverage_level_value IS NULL
31: THEN
32: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'coverage_level_value');
33: l_return_status := FND_API.G_RET_STS_ERROR;
34: ELSIF p_coveragelevel_rec.last_update_date = TAPI_DEV_KIT.G_MISS_DATE OR
35: p_coveragelevel_rec.last_update_date IS NULL
36: THEN
37: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'last_update_date');
34: ELSIF p_coveragelevel_rec.last_update_date = TAPI_DEV_KIT.G_MISS_DATE OR
35: p_coveragelevel_rec.last_update_date IS NULL
36: THEN
37: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'last_update_date');
38: l_return_status := FND_API.G_RET_STS_ERROR;
39: ELSIF p_coveragelevel_rec.last_updated_by = TAPI_DEV_KIT.G_MISS_NUM OR
40: p_coveragelevel_rec.last_updated_by IS NULL
41: THEN
42: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'last_updated_by');
39: ELSIF p_coveragelevel_rec.last_updated_by = TAPI_DEV_KIT.G_MISS_NUM OR
40: p_coveragelevel_rec.last_updated_by IS NULL
41: THEN
42: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'last_updated_by');
43: l_return_status := FND_API.G_RET_STS_ERROR;
44: ELSIF p_coveragelevel_rec.creation_date = TAPI_DEV_KIT.G_MISS_DATE OR
45: p_coveragelevel_rec.creation_date IS NULL
46: THEN
47: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'creation_date');
44: ELSIF p_coveragelevel_rec.creation_date = TAPI_DEV_KIT.G_MISS_DATE OR
45: p_coveragelevel_rec.creation_date IS NULL
46: THEN
47: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'creation_date');
48: l_return_status := FND_API.G_RET_STS_ERROR;
49: ELSIF p_coveragelevel_rec.created_by = TAPI_DEV_KIT.G_MISS_NUM OR
50: p_coveragelevel_rec.created_by IS NULL
51: THEN
52: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'created_by');
49: ELSIF p_coveragelevel_rec.created_by = TAPI_DEV_KIT.G_MISS_NUM OR
50: p_coveragelevel_rec.created_by IS NULL
51: THEN
52: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'created_by');
53: l_return_status := FND_API.G_RET_STS_ERROR;
54: ELSIF p_coveragelevel_rec.cp_service_id = TAPI_DEV_KIT.G_MISS_NUM OR
55: p_coveragelevel_rec.cp_service_id IS NULL
56: THEN
57: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'cp_service_id');
54: ELSIF p_coveragelevel_rec.cp_service_id = TAPI_DEV_KIT.G_MISS_NUM OR
55: p_coveragelevel_rec.cp_service_id IS NULL
56: THEN
57: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'cp_service_id');
58: l_return_status := FND_API.G_RET_STS_ERROR;
59: END IF;
60: RETURN(l_return_status);
61: END Validate_Item_Attributes;
62:
68: l_def_coveragelevel_rec OUT CoverageLevel_Rec_Type
69: )
70: RETURN VARCHAR2
71: IS
72: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
73: BEGIN
74: l_def_coveragelevel_rec := p_coveragelevel_rec;
75: l_def_coveragelevel_rec.OBJECT_VERSION_NUMBER := NVL(l_def_coveragelevel_rec.OBJECT_VERSION_NUMBER, 0) + 1;
76: RETURN(l_return_status);
80: FUNCTION Validate_Item_Record (
81: p_coveragelevel_rec IN CoverageLevel_Rec_Type
82: )
83: RETURN VARCHAR2 IS
84: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
85: FUNCTION validate_foreign_keys (
86: p_coveragelevel_rec IN CoverageLevel_Rec_Type
87: )
88: RETURN VARCHAR2 IS
91: SELECT *
92: FROM Cs_Cp_Services_All
93: WHERE cs_cp_services_all.cp_service_id = p_cp_service_id;
94: l_cs_cp_services_all_pk cs_cp_services_all_pk_csr%ROWTYPE;
95: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
96: l_row_notfound BOOLEAN := TRUE;
97: BEGIN
98: IF (p_coveragelevel_rec.CP_SERVICE_ID IS NOT NULL)
99: THEN
108: END IF;
109: RETURN (l_return_status);
110: EXCEPTION
111: WHEN item_not_found_error THEN
112: l_return_status := FND_API.G_RET_STS_ERROR;
113: RETURN (l_return_status);
114: END validate_foreign_keys;
115: BEGIN
116: l_return_status := validate_foreign_keys (p_coveragelevel_rec);
195: x_coverage_level_id OUT NUMBER,
196: x_object_version_number OUT NUMBER) IS
197: l_api_name CONSTANT VARCHAR2(30) := 'insert_row';
198: l_api_version CONSTANT NUMBER := 1;
199: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
200: l_coveragelevel_rec CoverageLevel_Rec_Type;
201: l_def_coveragelevel_rec CoverageLevel_Rec_Type;
202: BEGIN
203: l_return_status := TAPI_DEV_KIT.START_ACTIVITY(l_api_name,
206: p_api_version,
207: p_init_msg_list,
208: '_Pvt',
209: x_return_status);
210: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
211: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
212: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
213: RAISE FND_API.G_EXC_ERROR;
214: END IF;
207: p_init_msg_list,
208: '_Pvt',
209: x_return_status);
210: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
211: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
212: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
213: RAISE FND_API.G_EXC_ERROR;
214: END IF;
215: l_coveragelevel_rec := p_coveragelevel_rec;
208: '_Pvt',
209: x_return_status);
210: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
211: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
212: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
213: RAISE FND_API.G_EXC_ERROR;
214: END IF;
215: l_coveragelevel_rec := p_coveragelevel_rec;
216: --- Validate all non-missing attributes (Item Level Validation)
209: x_return_status);
210: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
211: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
212: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
213: RAISE FND_API.G_EXC_ERROR;
214: END IF;
215: l_coveragelevel_rec := p_coveragelevel_rec;
216: --- Validate all non-missing attributes (Item Level Validation)
217: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
213: RAISE FND_API.G_EXC_ERROR;
214: END IF;
215: l_coveragelevel_rec := p_coveragelevel_rec;
216: --- Validate all non-missing attributes (Item Level Validation)
217: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
218: l_return_status := Validate_Item_Attributes
219: (
220: l_coveragelevel_rec ---- IN
221: );
219: (
220: l_coveragelevel_rec ---- IN
221: );
222: --- If any errors happen abort API
223: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
225: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
226: RAISE FND_API.G_EXC_ERROR;
227: END IF;
220: l_coveragelevel_rec ---- IN
221: );
222: --- If any errors happen abort API
223: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
225: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
226: RAISE FND_API.G_EXC_ERROR;
227: END IF;
228: END IF;
221: );
222: --- If any errors happen abort API
223: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
225: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
226: RAISE FND_API.G_EXC_ERROR;
227: END IF;
228: END IF;
229: --- Defaulting item attributes
222: --- If any errors happen abort API
223: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
225: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
226: RAISE FND_API.G_EXC_ERROR;
227: END IF;
228: END IF;
229: --- Defaulting item attributes
230: l_return_status := Default_Item_Attributes
232: l_coveragelevel_rec, ---- IN
233: l_def_coveragelevel_rec
234: );
235: --- If any errors happen abort API
236: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
237: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
238: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
239: RAISE FND_API.G_EXC_ERROR;
240: END IF;
233: l_def_coveragelevel_rec
234: );
235: --- If any errors happen abort API
236: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
237: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
238: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
239: RAISE FND_API.G_EXC_ERROR;
240: END IF;
241: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
234: );
235: --- If any errors happen abort API
236: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
237: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
238: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
239: RAISE FND_API.G_EXC_ERROR;
240: END IF;
241: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
242: l_return_status := Validate_Item_Record(l_def_coveragelevel_rec);
235: --- If any errors happen abort API
236: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
237: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
238: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
239: RAISE FND_API.G_EXC_ERROR;
240: END IF;
241: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
242: l_return_status := Validate_Item_Record(l_def_coveragelevel_rec);
243: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
237: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
238: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
239: RAISE FND_API.G_EXC_ERROR;
240: END IF;
241: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
242: l_return_status := Validate_Item_Record(l_def_coveragelevel_rec);
243: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
244: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
245: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
239: RAISE FND_API.G_EXC_ERROR;
240: END IF;
241: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
242: l_return_status := Validate_Item_Record(l_def_coveragelevel_rec);
243: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
244: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
245: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
246: RAISE FND_API.G_EXC_ERROR;
247: END IF;
240: END IF;
241: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
242: l_return_status := Validate_Item_Record(l_def_coveragelevel_rec);
243: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
244: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
245: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
246: RAISE FND_API.G_EXC_ERROR;
247: END IF;
248: END IF;
241: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
242: l_return_status := Validate_Item_Record(l_def_coveragelevel_rec);
243: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
244: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
245: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
246: RAISE FND_API.G_EXC_ERROR;
247: END IF;
248: END IF;
249: -- Set primary key value
242: l_return_status := Validate_Item_Record(l_def_coveragelevel_rec);
243: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
244: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
245: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
246: RAISE FND_API.G_EXC_ERROR;
247: END IF;
248: END IF;
249: -- Set primary key value
250: l_def_coveragelevel_rec.coverage_level_id := get_seq_id;
306: x_coverage_level_id := l_def_coveragelevel_rec.coverage_level_id;
307: x_object_version_number := l_def_coveragelevel_rec.OBJECT_VERSION_NUMBER;
308: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
309: EXCEPTION
310: WHEN FND_API.G_EXC_ERROR THEN
311: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
312: (
313: l_api_name,
314: G_PKG_NAME,
311: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
312: (
313: l_api_name,
314: G_PKG_NAME,
315: 'FND_API.G_RET_STS_ERROR',
316: x_msg_count,
317: x_msg_data,
318: '_Pvt'
319: );
317: x_msg_data,
318: '_Pvt'
319: );
320: APP_EXCEPTION.RAISE_EXCEPTION;
321: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
322: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
323: (
324: l_api_name,
325: G_PKG_NAME,
322: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
323: (
324: l_api_name,
325: G_PKG_NAME,
326: 'FND_API.G_RET_STS_UNEXP_ERROR',
327: x_msg_count,
328: x_msg_data,
329: '_Pvt'
330: );
378: x_coverage_level_id OUT NUMBER,
379: x_object_version_number OUT NUMBER) IS
380: l_api_name CONSTANT VARCHAR2(30) := 'insert_row';
381: l_api_version CONSTANT NUMBER := 1;
382: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
383: l_coveragelevel_rec CoverageLevel_Rec_Type;
384: BEGIN
385: l_return_status := TAPI_DEV_KIT.START_ACTIVITY(l_api_name,
386: G_PKG_NAME,
388: p_api_version,
389: p_init_msg_list,
390: '_Pvt',
391: x_return_status);
392: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
393: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
394: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
395: RAISE FND_API.G_EXC_ERROR;
396: END IF;
389: p_init_msg_list,
390: '_Pvt',
391: x_return_status);
392: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
393: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
394: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
395: RAISE FND_API.G_EXC_ERROR;
396: END IF;
397: l_coveragelevel_rec.COVERAGE_LEVEL_CODE := p_coverage_level_code;
390: '_Pvt',
391: x_return_status);
392: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
393: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
394: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
395: RAISE FND_API.G_EXC_ERROR;
396: END IF;
397: l_coveragelevel_rec.COVERAGE_LEVEL_CODE := p_coverage_level_code;
398: l_coveragelevel_rec.COVERAGE_LEVEL_VALUE := p_coverage_level_value;
391: x_return_status);
392: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
393: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
394: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
395: RAISE FND_API.G_EXC_ERROR;
396: END IF;
397: l_coveragelevel_rec.COVERAGE_LEVEL_CODE := p_coverage_level_code;
398: l_coveragelevel_rec.COVERAGE_LEVEL_VALUE := p_coverage_level_value;
399: l_coveragelevel_rec.LAST_UPDATE_DATE := p_last_update_date;
432: x_object_version_number
433: );
434: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
435: EXCEPTION
436: WHEN FND_API.G_EXC_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_ERROR',
442: x_msg_count,
443: x_msg_data,
444: '_Pvt'
445: );
443: x_msg_data,
444: '_Pvt'
445: );
446: APP_EXCEPTION.RAISE_EXCEPTION;
447: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
448: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
449: (
450: l_api_name,
451: G_PKG_NAME,
448: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
449: (
450: l_api_name,
451: G_PKG_NAME,
452: 'FND_API.G_RET_STS_UNEXP_ERROR',
453: x_msg_count,
454: x_msg_data,
455: '_Pvt'
456: );
495: COVERAGE_LEVEL_ID = p_coverage_level_id
496: ;
497: l_api_name CONSTANT VARCHAR2(30) := 'lock_row';
498: l_api_version CONSTANT NUMBER := 1;
499: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
500: l_object_version_number CS_CONTRACT_COV_LEVELS.OBJECT_VERSION_NUMBER%TYPE;
501: lc_object_version_number CS_CONTRACT_COV_LEVELS.OBJECT_VERSION_NUMBER%TYPE;
502: l_row_notfound BOOLEAN := FALSE;
503: lc_row_notfound BOOLEAN := FALSE;
508: p_api_version,
509: p_init_msg_list,
510: '_Pvt',
511: x_return_status);
512: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
513: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
514: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
515: RAISE FND_API.G_EXC_ERROR;
516: END IF;
509: p_init_msg_list,
510: '_Pvt',
511: x_return_status);
512: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
513: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
514: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
515: RAISE FND_API.G_EXC_ERROR;
516: END IF;
517: BEGIN
510: '_Pvt',
511: x_return_status);
512: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
513: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
514: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
515: RAISE FND_API.G_EXC_ERROR;
516: END IF;
517: BEGIN
518: OPEN lock_csr;
511: x_return_status);
512: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
513: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
514: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
515: RAISE FND_API.G_EXC_ERROR;
516: END IF;
517: BEGIN
518: OPEN lock_csr;
519: FETCH lock_csr INTO l_object_version_number;
535: CLOSE lchk_csr;
536: END IF;
537: IF (lc_row_notfound) THEN
538: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
539: RAISE FND_API.G_EXC_ERROR;
540: ELSIF lc_object_version_number > p_object_version_number THEN
541: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
542: RAISE FND_API.G_EXC_ERROR;
543: ELSIF lc_object_version_number <> p_object_version_number THEN
538: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
539: RAISE FND_API.G_EXC_ERROR;
540: ELSIF lc_object_version_number > p_object_version_number THEN
541: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
542: RAISE FND_API.G_EXC_ERROR;
543: ELSIF lc_object_version_number <> p_object_version_number THEN
544: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
545: RAISE FND_API.G_EXC_ERROR;
546: ELSIF lc_object_version_number = -1 THEN
541: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
542: RAISE FND_API.G_EXC_ERROR;
543: ELSIF lc_object_version_number <> p_object_version_number THEN
544: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
545: RAISE FND_API.G_EXC_ERROR;
546: ELSIF lc_object_version_number = -1 THEN
547: TAPI_DEV_KIT.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
548: RAISE FND_API.G_EXC_ERROR;
549: END IF;
544: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
545: RAISE FND_API.G_EXC_ERROR;
546: ELSIF lc_object_version_number = -1 THEN
547: TAPI_DEV_KIT.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
548: RAISE FND_API.G_EXC_ERROR;
549: END IF;
550: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
551: EXCEPTION
552: WHEN FND_API.G_EXC_ERROR THEN
548: RAISE FND_API.G_EXC_ERROR;
549: END IF;
550: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
551: EXCEPTION
552: WHEN FND_API.G_EXC_ERROR THEN
553: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
554: (
555: l_api_name,
556: G_PKG_NAME,
553: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
554: (
555: l_api_name,
556: G_PKG_NAME,
557: 'FND_API.G_RET_STS_ERROR',
558: x_msg_count,
559: x_msg_data,
560: '_Pvt'
561: );
559: x_msg_data,
560: '_Pvt'
561: );
562: APP_EXCEPTION.RAISE_EXCEPTION;
563: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
564: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
565: (
566: l_api_name,
567: G_PKG_NAME,
564: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
565: (
566: l_api_name,
567: G_PKG_NAME,
568: 'FND_API.G_RET_STS_UNEXP_ERROR',
569: x_msg_count,
570: x_msg_data,
571: '_Pvt'
572: );
595: p_coveragelevel_val_rec IN CoverageLevel_Val_Rec_Type := G_MISS_COVERAGELEVEL_VAL_REC,
596: x_object_version_number OUT NUMBER) IS
597: l_api_name CONSTANT VARCHAR2(30) := 'update_row';
598: l_api_version CONSTANT NUMBER := 1;
599: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
600: l_coveragelevel_rec CoverageLevel_Rec_Type;
601: l_def_coveragelevel_rec CoverageLevel_Rec_Type;
602: FUNCTION populate_new_record (
603: p_coveragelevel_rec IN CoverageLevel_Rec_Type,
608: FROM Cs_Contract_Cov_Levels
609: WHERE cs_contract_cov_levels.coverage_level_id = p_coverage_level_id;
610: l_cs_contract_coverage1 cs_contract_coverage1_csr%ROWTYPE;
611: l_row_notfound BOOLEAN := TRUE;
612: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
613: BEGIN
614: x_coveragelevel_rec := p_coveragelevel_rec;
615: -- Get current database values
616: OPEN cs_contract_coverage1_csr (p_coveragelevel_rec.coverage_level_id);
617: FETCH cs_contract_coverage1_csr INTO l_cs_contract_coverage1;
618: l_row_notfound := cs_contract_coverage1_csr%NOTFOUND;
619: CLOSE cs_contract_coverage1_csr;
620: IF (l_row_notfound) THEN
621: l_return_status := FND_API.G_RET_STS_ERROR;
622: END IF;
623: IF (x_coveragelevel_rec.coverage_level_id = TAPI_DEV_KIT.G_MISS_NUM)
624: THEN
625: x_coveragelevel_rec.coverage_level_id := l_cs_contract_coverage1.coverage_level_id;
733: p_api_version,
734: p_init_msg_list,
735: '_Pvt',
736: x_return_status);
737: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
738: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
739: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
740: RAISE FND_API.G_EXC_ERROR;
741: END IF;
734: p_init_msg_list,
735: '_Pvt',
736: x_return_status);
737: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
738: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
739: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
740: RAISE FND_API.G_EXC_ERROR;
741: END IF;
742: migrate(p_coveragelevel_val_rec, l_coveragelevel_rec);
735: '_Pvt',
736: x_return_status);
737: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
738: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
739: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
740: RAISE FND_API.G_EXC_ERROR;
741: END IF;
742: migrate(p_coveragelevel_val_rec, l_coveragelevel_rec);
743: --- Defaulting item attributes
736: x_return_status);
737: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
738: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
739: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
740: RAISE FND_API.G_EXC_ERROR;
741: END IF;
742: migrate(p_coveragelevel_val_rec, l_coveragelevel_rec);
743: --- Defaulting item attributes
744: l_return_status := Default_Item_Attributes
746: l_coveragelevel_rec, ---- IN
747: l_def_coveragelevel_rec
748: );
749: --- If any errors happen abort API
750: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
751: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
752: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
753: RAISE FND_API.G_EXC_ERROR;
754: END IF;
747: l_def_coveragelevel_rec
748: );
749: --- If any errors happen abort API
750: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
751: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
752: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
753: RAISE FND_API.G_EXC_ERROR;
754: END IF;
755: l_return_status := populate_new_record(l_def_coveragelevel_rec, l_def_coveragelevel_rec);
748: );
749: --- If any errors happen abort API
750: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
751: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
752: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
753: RAISE FND_API.G_EXC_ERROR;
754: END IF;
755: l_return_status := populate_new_record(l_def_coveragelevel_rec, l_def_coveragelevel_rec);
756: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
749: --- If any errors happen abort API
750: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
751: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
752: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
753: RAISE FND_API.G_EXC_ERROR;
754: END IF;
755: l_return_status := populate_new_record(l_def_coveragelevel_rec, l_def_coveragelevel_rec);
756: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
757: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
752: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
753: RAISE FND_API.G_EXC_ERROR;
754: END IF;
755: l_return_status := populate_new_record(l_def_coveragelevel_rec, l_def_coveragelevel_rec);
756: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
757: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
758: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
759: RAISE FND_API.G_EXC_ERROR;
760: END IF;
753: RAISE FND_API.G_EXC_ERROR;
754: END IF;
755: l_return_status := populate_new_record(l_def_coveragelevel_rec, l_def_coveragelevel_rec);
756: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
757: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
758: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
759: RAISE FND_API.G_EXC_ERROR;
760: END IF;
761: --- Validate all non-missing attributes (Item Level Validation)
754: END IF;
755: l_return_status := populate_new_record(l_def_coveragelevel_rec, l_def_coveragelevel_rec);
756: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
757: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
758: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
759: RAISE FND_API.G_EXC_ERROR;
760: END IF;
761: --- Validate all non-missing attributes (Item Level Validation)
762: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
755: l_return_status := populate_new_record(l_def_coveragelevel_rec, l_def_coveragelevel_rec);
756: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
757: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
758: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
759: RAISE FND_API.G_EXC_ERROR;
760: END IF;
761: --- Validate all non-missing attributes (Item Level Validation)
762: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
763: l_return_status := Validate_Item_Attributes
758: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
759: RAISE FND_API.G_EXC_ERROR;
760: END IF;
761: --- Validate all non-missing attributes (Item Level Validation)
762: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
763: l_return_status := Validate_Item_Attributes
764: (
765: l_def_coveragelevel_rec ---- IN
766: );
764: (
765: l_def_coveragelevel_rec ---- IN
766: );
767: --- If any errors happen abort API
768: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
769: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
770: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
771: RAISE FND_API.G_EXC_ERROR;
772: END IF;
765: l_def_coveragelevel_rec ---- IN
766: );
767: --- If any errors happen abort API
768: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
769: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
770: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
771: RAISE FND_API.G_EXC_ERROR;
772: END IF;
773: END IF;
766: );
767: --- If any errors happen abort API
768: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
769: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
770: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
771: RAISE FND_API.G_EXC_ERROR;
772: END IF;
773: END IF;
774: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
767: --- If any errors happen abort API
768: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
769: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
770: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
771: RAISE FND_API.G_EXC_ERROR;
772: END IF;
773: END IF;
774: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
775: l_return_status := Validate_Item_Record(l_def_coveragelevel_rec);
770: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
771: RAISE FND_API.G_EXC_ERROR;
772: END IF;
773: END IF;
774: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
775: l_return_status := Validate_Item_Record(l_def_coveragelevel_rec);
776: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
777: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
778: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
772: END IF;
773: END IF;
774: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
775: l_return_status := Validate_Item_Record(l_def_coveragelevel_rec);
776: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
777: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
778: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
779: RAISE FND_API.G_EXC_ERROR;
780: END IF;
773: END IF;
774: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
775: l_return_status := Validate_Item_Record(l_def_coveragelevel_rec);
776: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
777: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
778: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
779: RAISE FND_API.G_EXC_ERROR;
780: END IF;
781: END IF;
774: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
775: l_return_status := Validate_Item_Record(l_def_coveragelevel_rec);
776: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
777: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
778: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
779: RAISE FND_API.G_EXC_ERROR;
780: END IF;
781: END IF;
782: UPDATE CS_CONTRACT_COV_LEVELS
775: l_return_status := Validate_Item_Record(l_def_coveragelevel_rec);
776: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
777: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
778: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
779: RAISE FND_API.G_EXC_ERROR;
780: END IF;
781: END IF;
782: UPDATE CS_CONTRACT_COV_LEVELS
783: SET
812: ;
813: x_object_version_number := l_def_coveragelevel_rec.OBJECT_VERSION_NUMBER;
814: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
815: EXCEPTION
816: WHEN FND_API.G_EXC_ERROR THEN
817: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
818: (
819: l_api_name,
820: G_PKG_NAME,
817: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
818: (
819: l_api_name,
820: G_PKG_NAME,
821: 'FND_API.G_RET_STS_ERROR',
822: x_msg_count,
823: x_msg_data,
824: '_Pvt'
825: );
823: x_msg_data,
824: '_Pvt'
825: );
826: APP_EXCEPTION.RAISE_EXCEPTION;
827: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
828: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
829: (
830: l_api_name,
831: G_PKG_NAME,
828: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
829: (
830: l_api_name,
831: G_PKG_NAME,
832: 'FND_API.G_RET_STS_UNEXP_ERROR',
833: x_msg_count,
834: x_msg_data,
835: '_Pvt'
836: );
884: p_object_version_number IN NUMBER := TAPI_DEV_KIT.G_MISS_NUM,
885: x_object_version_number OUT NUMBER) IS
886: l_api_name CONSTANT VARCHAR2(30) := 'update_row';
887: l_api_version CONSTANT NUMBER := 1;
888: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
889: l_coveragelevel_rec CoverageLevel_Val_Rec_Type;
890: BEGIN
891: l_return_status := TAPI_DEV_KIT.START_ACTIVITY(l_api_name,
892: G_PKG_NAME,
894: p_api_version,
895: p_init_msg_list,
896: '_Pvt',
897: x_return_status);
898: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
899: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
900: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
901: RAISE FND_API.G_EXC_ERROR;
902: END IF;
895: p_init_msg_list,
896: '_Pvt',
897: x_return_status);
898: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
899: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
900: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
901: RAISE FND_API.G_EXC_ERROR;
902: END IF;
903: l_coveragelevel_rec.COVERAGE_LEVEL_ID := p_coverage_level_id;
896: '_Pvt',
897: x_return_status);
898: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
899: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
900: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
901: RAISE FND_API.G_EXC_ERROR;
902: END IF;
903: l_coveragelevel_rec.COVERAGE_LEVEL_ID := p_coverage_level_id;
904: l_coveragelevel_rec.COVERAGE_LEVEL_CODE := p_coverage_level_code;
897: x_return_status);
898: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
899: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
900: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
901: RAISE FND_API.G_EXC_ERROR;
902: END IF;
903: l_coveragelevel_rec.COVERAGE_LEVEL_ID := p_coverage_level_id;
904: l_coveragelevel_rec.COVERAGE_LEVEL_CODE := p_coverage_level_code;
905: l_coveragelevel_rec.COVERAGE_LEVEL_VALUE := p_coverage_level_value;
938: x_object_version_number
939: );
940: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
941: EXCEPTION
942: WHEN FND_API.G_EXC_ERROR THEN
943: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
944: (
945: l_api_name,
946: G_PKG_NAME,
943: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
944: (
945: l_api_name,
946: G_PKG_NAME,
947: 'FND_API.G_RET_STS_ERROR',
948: x_msg_count,
949: x_msg_data,
950: '_Pvt'
951: );
949: x_msg_data,
950: '_Pvt'
951: );
952: APP_EXCEPTION.RAISE_EXCEPTION;
953: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
954: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
955: (
956: l_api_name,
957: G_PKG_NAME,
954: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
955: (
956: l_api_name,
957: G_PKG_NAME,
958: 'FND_API.G_RET_STS_UNEXP_ERROR',
959: x_msg_count,
960: x_msg_data,
961: '_Pvt'
962: );
984: x_msg_data OUT VARCHAR2,
985: p_coverage_level_id IN NUMBER) IS
986: l_api_name CONSTANT VARCHAR2(30) := 'delete_row';
987: l_api_version CONSTANT NUMBER := 1;
988: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
989: BEGIN
990: l_return_status := TAPI_DEV_KIT.START_ACTIVITY(l_api_name,
991: G_PKG_NAME,
992: l_api_version,
993: p_api_version,
994: p_init_msg_list,
995: '_Pvt',
996: x_return_status);
997: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
998: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
999: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1000: RAISE FND_API.G_EXC_ERROR;
1001: END IF;
994: p_init_msg_list,
995: '_Pvt',
996: x_return_status);
997: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
998: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
999: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1000: RAISE FND_API.G_EXC_ERROR;
1001: END IF;
1002: DELETE FROM CS_CONTRACT_COV_LEVELS
995: '_Pvt',
996: x_return_status);
997: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
998: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
999: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1000: RAISE FND_API.G_EXC_ERROR;
1001: END IF;
1002: DELETE FROM CS_CONTRACT_COV_LEVELS
1003: WHERE
996: x_return_status);
997: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
998: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
999: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1000: RAISE FND_API.G_EXC_ERROR;
1001: END IF;
1002: DELETE FROM CS_CONTRACT_COV_LEVELS
1003: WHERE
1004: COVERAGE_LEVEL_ID = p_coverage_level_id
1004: COVERAGE_LEVEL_ID = p_coverage_level_id
1005: ;
1006: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
1007: EXCEPTION
1008: WHEN FND_API.G_EXC_ERROR THEN
1009: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1010: (
1011: l_api_name,
1012: G_PKG_NAME,
1009: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1010: (
1011: l_api_name,
1012: G_PKG_NAME,
1013: 'FND_API.G_RET_STS_ERROR',
1014: x_msg_count,
1015: x_msg_data,
1016: '_Pvt'
1017: );
1015: x_msg_data,
1016: '_Pvt'
1017: );
1018: APP_EXCEPTION.RAISE_EXCEPTION;
1019: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1020: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1021: (
1022: l_api_name,
1023: G_PKG_NAME,
1020: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1021: (
1022: l_api_name,
1023: G_PKG_NAME,
1024: 'FND_API.G_RET_STS_UNEXP_ERROR',
1025: x_msg_count,
1026: x_msg_data,
1027: '_Pvt'
1028: );
1050: x_msg_data OUT VARCHAR2,
1051: p_coveragelevel_val_rec IN CoverageLevel_Val_Rec_Type := G_MISS_COVERAGELEVEL_VAL_REC) IS
1052: l_api_name CONSTANT VARCHAR2(30) := 'validate_row';
1053: l_api_version CONSTANT NUMBER := 1;
1054: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1055: l_coveragelevel_rec CoverageLevel_Rec_Type;
1056: l_def_coveragelevel_rec CoverageLevel_Rec_Type;
1057: BEGIN
1058: l_return_status := TAPI_DEV_KIT.START_ACTIVITY(l_api_name,
1061: p_api_version,
1062: p_init_msg_list,
1063: '_Pvt',
1064: x_return_status);
1065: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1066: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1067: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1068: RAISE FND_API.G_EXC_ERROR;
1069: END IF;
1062: p_init_msg_list,
1063: '_Pvt',
1064: x_return_status);
1065: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1066: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1067: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1068: RAISE FND_API.G_EXC_ERROR;
1069: END IF;
1070: migrate(p_coveragelevel_val_rec, l_coveragelevel_rec);
1063: '_Pvt',
1064: x_return_status);
1065: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1066: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1067: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1068: RAISE FND_API.G_EXC_ERROR;
1069: END IF;
1070: migrate(p_coveragelevel_val_rec, l_coveragelevel_rec);
1071: --- Validate all non-missing attributes (Item Level Validation)
1064: x_return_status);
1065: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1066: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1067: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1068: RAISE FND_API.G_EXC_ERROR;
1069: END IF;
1070: migrate(p_coveragelevel_val_rec, l_coveragelevel_rec);
1071: --- Validate all non-missing attributes (Item Level Validation)
1072: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
1068: RAISE FND_API.G_EXC_ERROR;
1069: END IF;
1070: migrate(p_coveragelevel_val_rec, l_coveragelevel_rec);
1071: --- Validate all non-missing attributes (Item Level Validation)
1072: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
1073: l_return_status := Validate_Item_Attributes
1074: (
1075: l_coveragelevel_rec ---- IN
1076: );
1074: (
1075: l_coveragelevel_rec ---- IN
1076: );
1077: --- If any errors happen abort API
1078: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1079: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1080: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1081: RAISE FND_API.G_EXC_ERROR;
1082: END IF;
1075: l_coveragelevel_rec ---- IN
1076: );
1077: --- If any errors happen abort API
1078: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1079: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1080: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1081: RAISE FND_API.G_EXC_ERROR;
1082: END IF;
1083: END IF;
1076: );
1077: --- If any errors happen abort API
1078: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1079: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1080: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1081: RAISE FND_API.G_EXC_ERROR;
1082: END IF;
1083: END IF;
1084: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1077: --- If any errors happen abort API
1078: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1079: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1080: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1081: RAISE FND_API.G_EXC_ERROR;
1082: END IF;
1083: END IF;
1084: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1085: l_return_status := Validate_Item_Record(l_def_coveragelevel_rec);
1080: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1081: RAISE FND_API.G_EXC_ERROR;
1082: END IF;
1083: END IF;
1084: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1085: l_return_status := Validate_Item_Record(l_def_coveragelevel_rec);
1086: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1087: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1088: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1082: END IF;
1083: END IF;
1084: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1085: l_return_status := Validate_Item_Record(l_def_coveragelevel_rec);
1086: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1087: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1088: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1089: RAISE FND_API.G_EXC_ERROR;
1090: END IF;
1083: END IF;
1084: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1085: l_return_status := Validate_Item_Record(l_def_coveragelevel_rec);
1086: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1087: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1088: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1089: RAISE FND_API.G_EXC_ERROR;
1090: END IF;
1091: END IF;
1084: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1085: l_return_status := Validate_Item_Record(l_def_coveragelevel_rec);
1086: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1087: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1088: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1089: RAISE FND_API.G_EXC_ERROR;
1090: END IF;
1091: END IF;
1092: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
1085: l_return_status := Validate_Item_Record(l_def_coveragelevel_rec);
1086: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1087: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1088: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1089: RAISE FND_API.G_EXC_ERROR;
1090: END IF;
1091: END IF;
1092: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
1093: EXCEPTION
1090: END IF;
1091: END IF;
1092: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
1093: EXCEPTION
1094: WHEN FND_API.G_EXC_ERROR THEN
1095: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1096: (
1097: l_api_name,
1098: G_PKG_NAME,
1095: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1096: (
1097: l_api_name,
1098: G_PKG_NAME,
1099: 'FND_API.G_RET_STS_ERROR',
1100: x_msg_count,
1101: x_msg_data,
1102: '_Pvt'
1103: );
1101: x_msg_data,
1102: '_Pvt'
1103: );
1104: APP_EXCEPTION.RAISE_EXCEPTION;
1105: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1106: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1107: (
1108: l_api_name,
1109: G_PKG_NAME,
1106: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1107: (
1108: l_api_name,
1109: G_PKG_NAME,
1110: 'FND_API.G_RET_STS_UNEXP_ERROR',
1111: x_msg_count,
1112: x_msg_data,
1113: '_Pvt'
1114: );
1161: p_context IN CS_CONTRACT_COV_LEVELS.CONTEXT%TYPE := TAPI_DEV_KIT.G_MISS_CHAR,
1162: p_object_version_number IN NUMBER := TAPI_DEV_KIT.G_MISS_NUM) IS
1163: l_api_name CONSTANT VARCHAR2(30) := 'validate_row';
1164: l_api_version CONSTANT NUMBER := 1;
1165: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1166: l_coveragelevel_rec CoverageLevel_Val_Rec_Type;
1167: BEGIN
1168: l_return_status := TAPI_DEV_KIT.START_ACTIVITY(l_api_name,
1169: G_PKG_NAME,
1171: p_api_version,
1172: p_init_msg_list,
1173: '_Pvt',
1174: x_return_status);
1175: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1176: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1177: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1178: RAISE FND_API.G_EXC_ERROR;
1179: END IF;
1172: p_init_msg_list,
1173: '_Pvt',
1174: x_return_status);
1175: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1176: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1177: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1178: RAISE FND_API.G_EXC_ERROR;
1179: END IF;
1180: l_coveragelevel_rec.COVERAGE_LEVEL_ID := p_coverage_level_id;
1173: '_Pvt',
1174: x_return_status);
1175: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1176: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1177: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1178: RAISE FND_API.G_EXC_ERROR;
1179: END IF;
1180: l_coveragelevel_rec.COVERAGE_LEVEL_ID := p_coverage_level_id;
1181: l_coveragelevel_rec.COVERAGE_LEVEL_CODE := p_coverage_level_code;
1174: x_return_status);
1175: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1176: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1177: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1178: RAISE FND_API.G_EXC_ERROR;
1179: END IF;
1180: l_coveragelevel_rec.COVERAGE_LEVEL_ID := p_coverage_level_id;
1181: l_coveragelevel_rec.COVERAGE_LEVEL_CODE := p_coverage_level_code;
1182: l_coveragelevel_rec.COVERAGE_LEVEL_VALUE := p_coverage_level_value;
1214: l_coveragelevel_rec
1215: );
1216: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
1217: EXCEPTION
1218: WHEN FND_API.G_EXC_ERROR THEN
1219: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1220: (
1221: l_api_name,
1222: G_PKG_NAME,
1219: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1220: (
1221: l_api_name,
1222: G_PKG_NAME,
1223: 'FND_API.G_RET_STS_ERROR',
1224: x_msg_count,
1225: x_msg_data,
1226: '_Pvt'
1227: );
1225: x_msg_data,
1226: '_Pvt'
1227: );
1228: APP_EXCEPTION.RAISE_EXCEPTION;
1229: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1230: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1231: (
1232: l_api_name,
1233: G_PKG_NAME,
1230: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1231: (
1232: l_api_name,
1233: G_PKG_NAME,
1234: 'FND_API.G_RET_STS_UNEXP_ERROR',
1235: x_msg_count,
1236: x_msg_data,
1237: '_Pvt'
1238: );