18: p_coveredprd_rec IN CoveredPrd_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_coveredprd_rec.customer_product_id = TAPI_DEV_KIT.G_MISS_NUM OR
25: p_coveredprd_rec.customer_product_id IS NULL
26: THEN
24: IF p_coveredprd_rec.customer_product_id = TAPI_DEV_KIT.G_MISS_NUM OR
25: p_coveredprd_rec.customer_product_id IS NULL
26: THEN
27: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'customer_product_id');
28: l_return_status := FND_API.G_RET_STS_ERROR;
29: ELSIF p_coveredprd_rec.contract_amount = TAPI_DEV_KIT.G_MISS_NUM OR
30: p_coveredprd_rec.contract_amount IS NULL
31: THEN
32: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'contract_amount');
29: ELSIF p_coveredprd_rec.contract_amount = TAPI_DEV_KIT.G_MISS_NUM OR
30: p_coveredprd_rec.contract_amount IS NULL
31: THEN
32: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'contract_amount');
33: l_return_status := FND_API.G_RET_STS_ERROR;
34: ELSIF p_coveredprd_rec.coverage_level_id = TAPI_DEV_KIT.G_MISS_NUM OR
35: p_coveredprd_rec.coverage_level_id IS NULL
36: THEN
37: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'coverage_level_id');
34: ELSIF p_coveredprd_rec.coverage_level_id = TAPI_DEV_KIT.G_MISS_NUM OR
35: p_coveredprd_rec.coverage_level_id IS NULL
36: THEN
37: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'coverage_level_id');
38: l_return_status := FND_API.G_RET_STS_ERROR;
39: ELSIF p_coveredprd_rec.last_update_date = TAPI_DEV_KIT.G_MISS_DATE OR
40: p_coveredprd_rec.last_update_date IS NULL
41: THEN
42: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'last_update_date');
39: ELSIF p_coveredprd_rec.last_update_date = TAPI_DEV_KIT.G_MISS_DATE OR
40: p_coveredprd_rec.last_update_date IS NULL
41: THEN
42: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'last_update_date');
43: l_return_status := FND_API.G_RET_STS_ERROR;
44: ELSIF p_coveredprd_rec.last_updated_by = TAPI_DEV_KIT.G_MISS_NUM OR
45: p_coveredprd_rec.last_updated_by IS NULL
46: THEN
47: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'last_updated_by');
44: ELSIF p_coveredprd_rec.last_updated_by = TAPI_DEV_KIT.G_MISS_NUM OR
45: p_coveredprd_rec.last_updated_by IS NULL
46: THEN
47: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'last_updated_by');
48: l_return_status := FND_API.G_RET_STS_ERROR;
49: ELSIF p_coveredprd_rec.creation_date = TAPI_DEV_KIT.G_MISS_DATE OR
50: p_coveredprd_rec.creation_date IS NULL
51: THEN
52: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'creation_date');
49: ELSIF p_coveredprd_rec.creation_date = TAPI_DEV_KIT.G_MISS_DATE OR
50: p_coveredprd_rec.creation_date IS NULL
51: THEN
52: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'creation_date');
53: l_return_status := FND_API.G_RET_STS_ERROR;
54: ELSIF p_coveredprd_rec.created_by = TAPI_DEV_KIT.G_MISS_NUM OR
55: p_coveredprd_rec.created_by IS NULL
56: THEN
57: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'created_by');
54: ELSIF p_coveredprd_rec.created_by = TAPI_DEV_KIT.G_MISS_NUM OR
55: p_coveredprd_rec.created_by IS NULL
56: THEN
57: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'created_by');
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_coveredprd_rec OUT CoveredPrd_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_coveredprd_rec := p_coveredprd_rec;
75: l_def_coveredprd_rec.OBJECT_VERSION_NUMBER := NVL(l_def_coveredprd_rec.OBJECT_VERSION_NUMBER, 0) + 1;
76: RETURN(l_return_status);
80: FUNCTION Validate_Item_Record (
81: p_coveredprd_rec IN CoveredPrd_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_coveredprd_rec IN CoveredPrd_Rec_Type
87: )
88: RETURN VARCHAR2 IS
96: SELECT *
97: FROM Cs_Customer_Products_All
98: WHERE cs_customer_products_all.customer_product_id = p_customer_product_id;
99: l_ccpall_pk ccpall_pk_csr%ROWTYPE;
100: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
101: l_row_notfound BOOLEAN := TRUE;
102: BEGIN
103: IF (p_coveredprd_rec.COVERAGE_LEVEL_ID IS NOT NULL)
104: THEN
124: END IF;
125: RETURN (l_return_status);
126: EXCEPTION
127: WHEN item_not_found_error THEN
128: l_return_status := FND_API.G_RET_STS_ERROR;
129: RETURN (l_return_status);
130: END validate_foreign_keys;
131: BEGIN
132: l_return_status := validate_foreign_keys (p_coveredprd_rec);
213: x_covered_product_id OUT NUMBER,
214: x_object_version_number OUT NUMBER) IS
215: l_api_name CONSTANT VARCHAR2(30) := 'insert_row';
216: l_api_version CONSTANT NUMBER := 1;
217: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
218: l_coveredprd_rec CoveredPrd_Rec_Type;
219: l_def_coveredprd_rec CoveredPrd_Rec_Type;
220: BEGIN
221: l_return_status := TAPI_DEV_KIT.START_ACTIVITY(l_api_name,
224: p_api_version,
225: p_init_msg_list,
226: '_Pvt',
227: x_return_status);
228: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
229: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
230: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
231: RAISE FND_API.G_EXC_ERROR;
232: END IF;
225: p_init_msg_list,
226: '_Pvt',
227: x_return_status);
228: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
229: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
230: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
231: RAISE FND_API.G_EXC_ERROR;
232: END IF;
233: l_coveredprd_rec := p_coveredprd_rec;
226: '_Pvt',
227: x_return_status);
228: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
229: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
230: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
231: RAISE FND_API.G_EXC_ERROR;
232: END IF;
233: l_coveredprd_rec := p_coveredprd_rec;
234: --- Validate all non-missing attributes (Item Level Validation)
227: x_return_status);
228: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
229: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
230: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
231: RAISE FND_API.G_EXC_ERROR;
232: END IF;
233: l_coveredprd_rec := p_coveredprd_rec;
234: --- Validate all non-missing attributes (Item Level Validation)
235: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
231: RAISE FND_API.G_EXC_ERROR;
232: END IF;
233: l_coveredprd_rec := p_coveredprd_rec;
234: --- Validate all non-missing attributes (Item Level Validation)
235: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
236: l_return_status := Validate_Item_Attributes
237: (
238: l_coveredprd_rec ---- IN
239: );
237: (
238: l_coveredprd_rec ---- IN
239: );
240: --- If any errors happen abort API
241: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
243: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
244: RAISE FND_API.G_EXC_ERROR;
245: END IF;
238: l_coveredprd_rec ---- IN
239: );
240: --- If any errors happen abort API
241: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
243: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
244: RAISE FND_API.G_EXC_ERROR;
245: END IF;
246: END IF;
239: );
240: --- If any errors happen abort API
241: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
243: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
244: RAISE FND_API.G_EXC_ERROR;
245: END IF;
246: END IF;
247: --- Defaulting item attributes
240: --- If any errors happen abort API
241: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
243: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
244: RAISE FND_API.G_EXC_ERROR;
245: END IF;
246: END IF;
247: --- Defaulting item attributes
248: l_return_status := Default_Item_Attributes
250: l_coveredprd_rec, ---- IN
251: l_def_coveredprd_rec
252: );
253: --- If any errors happen abort API
254: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
255: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
256: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
257: RAISE FND_API.G_EXC_ERROR;
258: END IF;
251: l_def_coveredprd_rec
252: );
253: --- If any errors happen abort API
254: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
255: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
256: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
257: RAISE FND_API.G_EXC_ERROR;
258: END IF;
259: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
252: );
253: --- If any errors happen abort API
254: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
255: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
256: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
257: RAISE FND_API.G_EXC_ERROR;
258: END IF;
259: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
260: l_return_status := Validate_Item_Record(l_def_coveredprd_rec);
253: --- If any errors happen abort API
254: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
255: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
256: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
257: RAISE FND_API.G_EXC_ERROR;
258: END IF;
259: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
260: l_return_status := Validate_Item_Record(l_def_coveredprd_rec);
261: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
255: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
256: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
257: RAISE FND_API.G_EXC_ERROR;
258: END IF;
259: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
260: l_return_status := Validate_Item_Record(l_def_coveredprd_rec);
261: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
262: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
263: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
257: RAISE FND_API.G_EXC_ERROR;
258: END IF;
259: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
260: l_return_status := Validate_Item_Record(l_def_coveredprd_rec);
261: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
262: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
263: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
264: RAISE FND_API.G_EXC_ERROR;
265: END IF;
258: END IF;
259: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
260: l_return_status := Validate_Item_Record(l_def_coveredprd_rec);
261: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
262: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
263: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
264: RAISE FND_API.G_EXC_ERROR;
265: END IF;
266: END IF;
259: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
260: l_return_status := Validate_Item_Record(l_def_coveredprd_rec);
261: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
262: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
263: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
264: RAISE FND_API.G_EXC_ERROR;
265: END IF;
266: END IF;
267: -- Set primary key value
260: l_return_status := Validate_Item_Record(l_def_coveredprd_rec);
261: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
262: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
263: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
264: RAISE FND_API.G_EXC_ERROR;
265: END IF;
266: END IF;
267: -- Set primary key value
268: l_def_coveredprd_rec.covered_product_id := get_seq_id;
326: x_covered_product_id := l_def_coveredprd_rec.covered_product_id;
327: x_object_version_number := l_def_coveredprd_rec.OBJECT_VERSION_NUMBER;
328: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
329: EXCEPTION
330: WHEN FND_API.G_EXC_ERROR THEN
331: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
332: (
333: l_api_name,
334: G_PKG_NAME,
331: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
332: (
333: l_api_name,
334: G_PKG_NAME,
335: 'FND_API.G_RET_STS_ERROR',
336: x_msg_count,
337: x_msg_data,
338: '_Pvt'
339: );
337: x_msg_data,
338: '_Pvt'
339: );
340: APP_EXCEPTION.RAISE_EXCEPTION;
341: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
342: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
343: (
344: l_api_name,
345: G_PKG_NAME,
342: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
343: (
344: l_api_name,
345: G_PKG_NAME,
346: 'FND_API.G_RET_STS_UNEXP_ERROR',
347: x_msg_count,
348: x_msg_data,
349: '_Pvt'
350: );
399: x_covered_product_id OUT NUMBER,
400: x_object_version_number OUT NUMBER) IS
401: l_api_name CONSTANT VARCHAR2(30) := 'insert_row';
402: l_api_version CONSTANT NUMBER := 1;
403: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
404: l_coveredprd_rec CoveredPrd_Rec_Type;
405: BEGIN
406: l_return_status := TAPI_DEV_KIT.START_ACTIVITY(l_api_name,
407: G_PKG_NAME,
409: p_api_version,
410: p_init_msg_list,
411: '_Pvt',
412: x_return_status);
413: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
414: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
415: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
416: RAISE FND_API.G_EXC_ERROR;
417: END IF;
410: p_init_msg_list,
411: '_Pvt',
412: x_return_status);
413: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
414: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
415: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
416: RAISE FND_API.G_EXC_ERROR;
417: END IF;
418: l_coveredprd_rec.CUSTOMER_PRODUCT_ID := p_customer_product_id;
411: '_Pvt',
412: x_return_status);
413: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
414: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
415: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
416: RAISE FND_API.G_EXC_ERROR;
417: END IF;
418: l_coveredprd_rec.CUSTOMER_PRODUCT_ID := p_customer_product_id;
419: l_coveredprd_rec.CONTRACT_AMOUNT := p_contract_amount;
412: x_return_status);
413: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
414: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
415: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
416: RAISE FND_API.G_EXC_ERROR;
417: END IF;
418: l_coveredprd_rec.CUSTOMER_PRODUCT_ID := p_customer_product_id;
419: l_coveredprd_rec.CONTRACT_AMOUNT := p_contract_amount;
420: l_coveredprd_rec.LIST_PRICE := p_list_price;
454: x_object_version_number
455: );
456: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
457: EXCEPTION
458: WHEN FND_API.G_EXC_ERROR THEN
459: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
460: (
461: l_api_name,
462: G_PKG_NAME,
459: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
460: (
461: l_api_name,
462: G_PKG_NAME,
463: 'FND_API.G_RET_STS_ERROR',
464: x_msg_count,
465: x_msg_data,
466: '_Pvt'
467: );
465: x_msg_data,
466: '_Pvt'
467: );
468: APP_EXCEPTION.RAISE_EXCEPTION;
469: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
470: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
471: (
472: l_api_name,
473: G_PKG_NAME,
470: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
471: (
472: l_api_name,
473: G_PKG_NAME,
474: 'FND_API.G_RET_STS_UNEXP_ERROR',
475: x_msg_count,
476: x_msg_data,
477: '_Pvt'
478: );
517: COVERED_PRODUCT_ID = p_covered_product_id
518: ;
519: l_api_name CONSTANT VARCHAR2(30) := 'lock_row';
520: l_api_version CONSTANT NUMBER := 1;
521: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
522: l_object_version_number CS_COVERED_PRODUCTS.OBJECT_VERSION_NUMBER%TYPE;
523: lc_object_version_number CS_COVERED_PRODUCTS.OBJECT_VERSION_NUMBER%TYPE;
524: l_row_notfound BOOLEAN := FALSE;
525: lc_row_notfound BOOLEAN := FALSE;
530: p_api_version,
531: p_init_msg_list,
532: '_Pvt',
533: x_return_status);
534: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
535: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
536: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
537: RAISE FND_API.G_EXC_ERROR;
538: END IF;
531: p_init_msg_list,
532: '_Pvt',
533: x_return_status);
534: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
535: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
536: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
537: RAISE FND_API.G_EXC_ERROR;
538: END IF;
539: BEGIN
532: '_Pvt',
533: x_return_status);
534: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
535: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
536: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
537: RAISE FND_API.G_EXC_ERROR;
538: END IF;
539: BEGIN
540: OPEN lock_csr;
533: x_return_status);
534: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
535: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
536: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
537: RAISE FND_API.G_EXC_ERROR;
538: END IF;
539: BEGIN
540: OPEN lock_csr;
541: FETCH lock_csr INTO l_object_version_number;
557: CLOSE lchk_csr;
558: END IF;
559: IF (lc_row_notfound) THEN
560: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
561: RAISE FND_API.G_EXC_ERROR;
562: ELSIF lc_object_version_number > p_object_version_number THEN
563: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
564: RAISE FND_API.G_EXC_ERROR;
565: ELSIF lc_object_version_number <> p_object_version_number THEN
560: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
561: RAISE FND_API.G_EXC_ERROR;
562: ELSIF lc_object_version_number > p_object_version_number THEN
563: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
564: RAISE FND_API.G_EXC_ERROR;
565: ELSIF lc_object_version_number <> p_object_version_number THEN
566: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
567: RAISE FND_API.G_EXC_ERROR;
568: ELSIF lc_object_version_number = -1 THEN
563: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
564: RAISE FND_API.G_EXC_ERROR;
565: ELSIF lc_object_version_number <> p_object_version_number THEN
566: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
567: RAISE FND_API.G_EXC_ERROR;
568: ELSIF lc_object_version_number = -1 THEN
569: TAPI_DEV_KIT.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
570: RAISE FND_API.G_EXC_ERROR;
571: END IF;
566: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
567: RAISE FND_API.G_EXC_ERROR;
568: ELSIF lc_object_version_number = -1 THEN
569: TAPI_DEV_KIT.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
570: RAISE FND_API.G_EXC_ERROR;
571: END IF;
572: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
573: EXCEPTION
574: WHEN FND_API.G_EXC_ERROR THEN
570: RAISE FND_API.G_EXC_ERROR;
571: END IF;
572: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
573: EXCEPTION
574: WHEN FND_API.G_EXC_ERROR THEN
575: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
576: (
577: l_api_name,
578: G_PKG_NAME,
575: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
576: (
577: l_api_name,
578: G_PKG_NAME,
579: 'FND_API.G_RET_STS_ERROR',
580: x_msg_count,
581: x_msg_data,
582: '_Pvt'
583: );
581: x_msg_data,
582: '_Pvt'
583: );
584: APP_EXCEPTION.RAISE_EXCEPTION;
585: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
586: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
587: (
588: l_api_name,
589: G_PKG_NAME,
586: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
587: (
588: l_api_name,
589: G_PKG_NAME,
590: 'FND_API.G_RET_STS_UNEXP_ERROR',
591: x_msg_count,
592: x_msg_data,
593: '_Pvt'
594: );
617: p_coveredprd_val_rec IN CoveredPrd_Val_Rec_Type := G_MISS_COVEREDPRD_VAL_REC,
618: x_object_version_number OUT NUMBER) IS
619: l_api_name CONSTANT VARCHAR2(30) := 'update_row';
620: l_api_version CONSTANT NUMBER := 1;
621: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
622: l_coveredprd_rec CoveredPrd_Rec_Type;
623: l_def_coveredprd_rec CoveredPrd_Rec_Type;
624: FUNCTION populate_new_record (
625: p_coveredprd_rec IN CoveredPrd_Rec_Type,
630: FROM Cs_Covered_Products
631: WHERE cs_covered_products.covered_product_id = p_covered_product_id;
632: l_cs_covered_products_pk cs_covered_products_pk_csr%ROWTYPE;
633: l_row_notfound BOOLEAN := TRUE;
634: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
635: BEGIN
636: x_coveredprd_rec := p_coveredprd_rec;
637: -- Get current database values
638: OPEN cs_covered_products_pk_csr (p_coveredprd_rec.covered_product_id);
639: FETCH cs_covered_products_pk_csr INTO l_cs_covered_products_pk;
640: l_row_notfound := cs_covered_products_pk_csr%NOTFOUND;
641: CLOSE cs_covered_products_pk_csr;
642: IF (l_row_notfound) THEN
643: l_return_status := FND_API.G_RET_STS_ERROR;
644: END IF;
645: IF (x_coveredprd_rec.customer_product_id = TAPI_DEV_KIT.G_MISS_NUM)
646: THEN
647: x_coveredprd_rec.customer_product_id := l_cs_covered_products_pk.customer_product_id;
759: p_api_version,
760: p_init_msg_list,
761: '_Pvt',
762: x_return_status);
763: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
764: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
765: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
766: RAISE FND_API.G_EXC_ERROR;
767: END IF;
760: p_init_msg_list,
761: '_Pvt',
762: x_return_status);
763: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
764: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
765: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
766: RAISE FND_API.G_EXC_ERROR;
767: END IF;
768: migrate(p_coveredprd_val_rec, l_coveredprd_rec);
761: '_Pvt',
762: x_return_status);
763: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
764: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
765: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
766: RAISE FND_API.G_EXC_ERROR;
767: END IF;
768: migrate(p_coveredprd_val_rec, l_coveredprd_rec);
769: --- Defaulting item attributes
762: x_return_status);
763: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
764: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
765: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
766: RAISE FND_API.G_EXC_ERROR;
767: END IF;
768: migrate(p_coveredprd_val_rec, l_coveredprd_rec);
769: --- Defaulting item attributes
770: l_return_status := Default_Item_Attributes
772: l_coveredprd_rec, ---- IN
773: l_def_coveredprd_rec
774: );
775: --- If any errors happen abort API
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: l_def_coveredprd_rec
774: );
775: --- If any errors happen abort API
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: l_return_status := populate_new_record(l_def_coveredprd_rec, l_def_coveredprd_rec);
774: );
775: --- If any errors happen abort API
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: l_return_status := populate_new_record(l_def_coveredprd_rec, l_def_coveredprd_rec);
782: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
775: --- If any errors happen abort API
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: l_return_status := populate_new_record(l_def_coveredprd_rec, l_def_coveredprd_rec);
782: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
783: 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: l_return_status := populate_new_record(l_def_coveredprd_rec, l_def_coveredprd_rec);
782: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
783: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
784: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
785: RAISE FND_API.G_EXC_ERROR;
786: END IF;
779: RAISE FND_API.G_EXC_ERROR;
780: END IF;
781: l_return_status := populate_new_record(l_def_coveredprd_rec, l_def_coveredprd_rec);
782: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
783: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
784: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
785: RAISE FND_API.G_EXC_ERROR;
786: END IF;
787: --- Validate all non-missing attributes (Item Level Validation)
780: END IF;
781: l_return_status := populate_new_record(l_def_coveredprd_rec, l_def_coveredprd_rec);
782: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
783: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
784: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
785: RAISE FND_API.G_EXC_ERROR;
786: END IF;
787: --- Validate all non-missing attributes (Item Level Validation)
788: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
781: l_return_status := populate_new_record(l_def_coveredprd_rec, l_def_coveredprd_rec);
782: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
783: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
784: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
785: RAISE FND_API.G_EXC_ERROR;
786: END IF;
787: --- Validate all non-missing attributes (Item Level Validation)
788: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
789: l_return_status := Validate_Item_Attributes
784: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
785: RAISE FND_API.G_EXC_ERROR;
786: END IF;
787: --- Validate all non-missing attributes (Item Level Validation)
788: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
789: l_return_status := Validate_Item_Attributes
790: (
791: l_def_coveredprd_rec ---- IN
792: );
790: (
791: l_def_coveredprd_rec ---- IN
792: );
793: --- If any errors happen abort API
794: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
795: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
796: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
797: RAISE FND_API.G_EXC_ERROR;
798: END IF;
791: l_def_coveredprd_rec ---- IN
792: );
793: --- If any errors happen abort API
794: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
795: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
796: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
797: RAISE FND_API.G_EXC_ERROR;
798: END IF;
799: END IF;
792: );
793: --- If any errors happen abort API
794: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
795: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
796: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
797: RAISE FND_API.G_EXC_ERROR;
798: END IF;
799: END IF;
800: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
793: --- If any errors happen abort API
794: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
795: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
796: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
797: RAISE FND_API.G_EXC_ERROR;
798: END IF;
799: END IF;
800: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
801: l_return_status := Validate_Item_Record(l_def_coveredprd_rec);
796: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
797: RAISE FND_API.G_EXC_ERROR;
798: END IF;
799: END IF;
800: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
801: l_return_status := Validate_Item_Record(l_def_coveredprd_rec);
802: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
803: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
804: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
798: END IF;
799: END IF;
800: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
801: l_return_status := Validate_Item_Record(l_def_coveredprd_rec);
802: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
803: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
804: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
805: RAISE FND_API.G_EXC_ERROR;
806: END IF;
799: END IF;
800: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
801: l_return_status := Validate_Item_Record(l_def_coveredprd_rec);
802: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
803: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
804: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
805: RAISE FND_API.G_EXC_ERROR;
806: END IF;
807: END IF;
800: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
801: l_return_status := Validate_Item_Record(l_def_coveredprd_rec);
802: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
803: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
804: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
805: RAISE FND_API.G_EXC_ERROR;
806: END IF;
807: END IF;
808: UPDATE CS_COVERED_PRODUCTS
801: l_return_status := Validate_Item_Record(l_def_coveredprd_rec);
802: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
803: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
804: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
805: RAISE FND_API.G_EXC_ERROR;
806: END IF;
807: END IF;
808: UPDATE CS_COVERED_PRODUCTS
809: SET
839: ;
840: x_object_version_number := l_def_coveredprd_rec.OBJECT_VERSION_NUMBER;
841: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
842: EXCEPTION
843: WHEN FND_API.G_EXC_ERROR THEN
844: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
845: (
846: l_api_name,
847: G_PKG_NAME,
844: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
845: (
846: l_api_name,
847: G_PKG_NAME,
848: 'FND_API.G_RET_STS_ERROR',
849: x_msg_count,
850: x_msg_data,
851: '_Pvt'
852: );
850: x_msg_data,
851: '_Pvt'
852: );
853: APP_EXCEPTION.RAISE_EXCEPTION;
854: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
855: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
856: (
857: l_api_name,
858: G_PKG_NAME,
855: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
856: (
857: l_api_name,
858: G_PKG_NAME,
859: 'FND_API.G_RET_STS_UNEXP_ERROR',
860: x_msg_count,
861: x_msg_data,
862: '_Pvt'
863: );
912: p_object_version_number IN NUMBER := TAPI_DEV_KIT.G_MISS_NUM,
913: x_object_version_number OUT NUMBER) IS
914: l_api_name CONSTANT VARCHAR2(30) := 'update_row';
915: l_api_version CONSTANT NUMBER := 1;
916: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
917: l_coveredprd_rec CoveredPrd_Val_Rec_Type;
918: BEGIN
919: l_return_status := TAPI_DEV_KIT.START_ACTIVITY(l_api_name,
920: G_PKG_NAME,
922: p_api_version,
923: p_init_msg_list,
924: '_Pvt',
925: x_return_status);
926: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
927: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
928: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
929: RAISE FND_API.G_EXC_ERROR;
930: END IF;
923: p_init_msg_list,
924: '_Pvt',
925: x_return_status);
926: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
927: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
928: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
929: RAISE FND_API.G_EXC_ERROR;
930: END IF;
931: l_coveredprd_rec.CUSTOMER_PRODUCT_ID := p_customer_product_id;
924: '_Pvt',
925: x_return_status);
926: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
927: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
928: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
929: RAISE FND_API.G_EXC_ERROR;
930: END IF;
931: l_coveredprd_rec.CUSTOMER_PRODUCT_ID := p_customer_product_id;
932: l_coveredprd_rec.COVERED_PRODUCT_ID := p_covered_product_id;
925: x_return_status);
926: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
927: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
928: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
929: RAISE FND_API.G_EXC_ERROR;
930: END IF;
931: l_coveredprd_rec.CUSTOMER_PRODUCT_ID := p_customer_product_id;
932: l_coveredprd_rec.COVERED_PRODUCT_ID := p_covered_product_id;
933: l_coveredprd_rec.CONTRACT_AMOUNT := p_contract_amount;
967: x_object_version_number
968: );
969: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
970: EXCEPTION
971: WHEN FND_API.G_EXC_ERROR THEN
972: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
973: (
974: l_api_name,
975: G_PKG_NAME,
972: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
973: (
974: l_api_name,
975: G_PKG_NAME,
976: 'FND_API.G_RET_STS_ERROR',
977: x_msg_count,
978: x_msg_data,
979: '_Pvt'
980: );
978: x_msg_data,
979: '_Pvt'
980: );
981: APP_EXCEPTION.RAISE_EXCEPTION;
982: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
983: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
984: (
985: l_api_name,
986: G_PKG_NAME,
983: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
984: (
985: l_api_name,
986: G_PKG_NAME,
987: 'FND_API.G_RET_STS_UNEXP_ERROR',
988: x_msg_count,
989: x_msg_data,
990: '_Pvt'
991: );
1013: x_msg_data OUT VARCHAR2,
1014: p_covered_product_id IN NUMBER) IS
1015: l_api_name CONSTANT VARCHAR2(30) := 'delete_row';
1016: l_api_version CONSTANT NUMBER := 1;
1017: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1018: BEGIN
1019: l_return_status := TAPI_DEV_KIT.START_ACTIVITY(l_api_name,
1020: G_PKG_NAME,
1021: l_api_version,
1022: p_api_version,
1023: p_init_msg_list,
1024: '_Pvt',
1025: x_return_status);
1026: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1027: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1028: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1029: RAISE FND_API.G_EXC_ERROR;
1030: END IF;
1023: p_init_msg_list,
1024: '_Pvt',
1025: x_return_status);
1026: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1027: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1028: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1029: RAISE FND_API.G_EXC_ERROR;
1030: END IF;
1031: DELETE FROM CS_COVERED_PRODUCTS
1024: '_Pvt',
1025: x_return_status);
1026: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1027: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1028: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1029: RAISE FND_API.G_EXC_ERROR;
1030: END IF;
1031: DELETE FROM CS_COVERED_PRODUCTS
1032: WHERE
1025: x_return_status);
1026: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1027: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1028: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1029: RAISE FND_API.G_EXC_ERROR;
1030: END IF;
1031: DELETE FROM CS_COVERED_PRODUCTS
1032: WHERE
1033: COVERED_PRODUCT_ID = p_covered_product_id
1033: COVERED_PRODUCT_ID = p_covered_product_id
1034: ;
1035: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
1036: EXCEPTION
1037: WHEN FND_API.G_EXC_ERROR THEN
1038: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1039: (
1040: l_api_name,
1041: G_PKG_NAME,
1038: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1039: (
1040: l_api_name,
1041: G_PKG_NAME,
1042: 'FND_API.G_RET_STS_ERROR',
1043: x_msg_count,
1044: x_msg_data,
1045: '_Pvt'
1046: );
1044: x_msg_data,
1045: '_Pvt'
1046: );
1047: APP_EXCEPTION.RAISE_EXCEPTION;
1048: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1049: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1050: (
1051: l_api_name,
1052: G_PKG_NAME,
1049: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1050: (
1051: l_api_name,
1052: G_PKG_NAME,
1053: 'FND_API.G_RET_STS_UNEXP_ERROR',
1054: x_msg_count,
1055: x_msg_data,
1056: '_Pvt'
1057: );
1079: x_msg_data OUT VARCHAR2,
1080: p_coveredprd_val_rec IN CoveredPrd_Val_Rec_Type := G_MISS_COVEREDPRD_VAL_REC) IS
1081: l_api_name CONSTANT VARCHAR2(30) := 'validate_row';
1082: l_api_version CONSTANT NUMBER := 1;
1083: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1084: l_coveredprd_rec CoveredPrd_Rec_Type;
1085: l_def_coveredprd_rec CoveredPrd_Rec_Type;
1086: BEGIN
1087: l_return_status := TAPI_DEV_KIT.START_ACTIVITY(l_api_name,
1090: p_api_version,
1091: p_init_msg_list,
1092: '_Pvt',
1093: x_return_status);
1094: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1095: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1096: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1097: RAISE FND_API.G_EXC_ERROR;
1098: END IF;
1091: p_init_msg_list,
1092: '_Pvt',
1093: x_return_status);
1094: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1095: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1096: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1097: RAISE FND_API.G_EXC_ERROR;
1098: END IF;
1099: migrate(p_coveredprd_val_rec, l_coveredprd_rec);
1092: '_Pvt',
1093: x_return_status);
1094: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1095: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1096: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1097: RAISE FND_API.G_EXC_ERROR;
1098: END IF;
1099: migrate(p_coveredprd_val_rec, l_coveredprd_rec);
1100: --- Validate all non-missing attributes (Item Level Validation)
1093: x_return_status);
1094: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1095: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1096: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1097: RAISE FND_API.G_EXC_ERROR;
1098: END IF;
1099: migrate(p_coveredprd_val_rec, l_coveredprd_rec);
1100: --- Validate all non-missing attributes (Item Level Validation)
1101: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
1097: RAISE FND_API.G_EXC_ERROR;
1098: END IF;
1099: migrate(p_coveredprd_val_rec, l_coveredprd_rec);
1100: --- Validate all non-missing attributes (Item Level Validation)
1101: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
1102: l_return_status := Validate_Item_Attributes
1103: (
1104: l_coveredprd_rec ---- IN
1105: );
1103: (
1104: l_coveredprd_rec ---- IN
1105: );
1106: --- If any errors happen abort API
1107: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1108: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1109: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1110: RAISE FND_API.G_EXC_ERROR;
1111: END IF;
1104: l_coveredprd_rec ---- IN
1105: );
1106: --- If any errors happen abort API
1107: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1108: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1109: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1110: RAISE FND_API.G_EXC_ERROR;
1111: END IF;
1112: END IF;
1105: );
1106: --- If any errors happen abort API
1107: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1108: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1109: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1110: RAISE FND_API.G_EXC_ERROR;
1111: END IF;
1112: END IF;
1113: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1106: --- If any errors happen abort API
1107: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1108: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1109: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1110: RAISE FND_API.G_EXC_ERROR;
1111: END IF;
1112: END IF;
1113: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1114: l_return_status := Validate_Item_Record(l_def_coveredprd_rec);
1109: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1110: RAISE FND_API.G_EXC_ERROR;
1111: END IF;
1112: END IF;
1113: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1114: l_return_status := Validate_Item_Record(l_def_coveredprd_rec);
1115: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1116: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1117: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1111: END IF;
1112: END IF;
1113: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1114: l_return_status := Validate_Item_Record(l_def_coveredprd_rec);
1115: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1116: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1117: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1118: RAISE FND_API.G_EXC_ERROR;
1119: END IF;
1112: END IF;
1113: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1114: l_return_status := Validate_Item_Record(l_def_coveredprd_rec);
1115: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1116: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1117: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1118: RAISE FND_API.G_EXC_ERROR;
1119: END IF;
1120: END IF;
1113: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1114: l_return_status := Validate_Item_Record(l_def_coveredprd_rec);
1115: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1116: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1117: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1118: RAISE FND_API.G_EXC_ERROR;
1119: END IF;
1120: END IF;
1121: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
1114: l_return_status := Validate_Item_Record(l_def_coveredprd_rec);
1115: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1116: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1117: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1118: RAISE FND_API.G_EXC_ERROR;
1119: END IF;
1120: END IF;
1121: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
1122: EXCEPTION
1119: END IF;
1120: END IF;
1121: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
1122: EXCEPTION
1123: WHEN FND_API.G_EXC_ERROR THEN
1124: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1125: (
1126: l_api_name,
1127: G_PKG_NAME,
1124: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1125: (
1126: l_api_name,
1127: G_PKG_NAME,
1128: 'FND_API.G_RET_STS_ERROR',
1129: x_msg_count,
1130: x_msg_data,
1131: '_Pvt'
1132: );
1130: x_msg_data,
1131: '_Pvt'
1132: );
1133: APP_EXCEPTION.RAISE_EXCEPTION;
1134: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1135: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1136: (
1137: l_api_name,
1138: G_PKG_NAME,
1135: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1136: (
1137: l_api_name,
1138: G_PKG_NAME,
1139: 'FND_API.G_RET_STS_UNEXP_ERROR',
1140: x_msg_count,
1141: x_msg_data,
1142: '_Pvt'
1143: );
1191: p_context IN CS_COVERED_PRODUCTS.CONTEXT%TYPE := TAPI_DEV_KIT.G_MISS_CHAR,
1192: p_object_version_number IN NUMBER := TAPI_DEV_KIT.G_MISS_NUM) IS
1193: l_api_name CONSTANT VARCHAR2(30) := 'validate_row';
1194: l_api_version CONSTANT NUMBER := 1;
1195: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1196: l_coveredprd_rec CoveredPrd_Val_Rec_Type;
1197: BEGIN
1198: l_return_status := TAPI_DEV_KIT.START_ACTIVITY(l_api_name,
1199: G_PKG_NAME,
1201: p_api_version,
1202: p_init_msg_list,
1203: '_Pvt',
1204: x_return_status);
1205: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1206: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1207: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1208: RAISE FND_API.G_EXC_ERROR;
1209: END IF;
1202: p_init_msg_list,
1203: '_Pvt',
1204: x_return_status);
1205: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1206: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1207: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1208: RAISE FND_API.G_EXC_ERROR;
1209: END IF;
1210: l_coveredprd_rec.CUSTOMER_PRODUCT_ID := p_customer_product_id;
1203: '_Pvt',
1204: x_return_status);
1205: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1206: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1207: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1208: RAISE FND_API.G_EXC_ERROR;
1209: END IF;
1210: l_coveredprd_rec.CUSTOMER_PRODUCT_ID := p_customer_product_id;
1211: l_coveredprd_rec.COVERED_PRODUCT_ID := p_covered_product_id;
1204: x_return_status);
1205: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1206: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1207: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1208: RAISE FND_API.G_EXC_ERROR;
1209: END IF;
1210: l_coveredprd_rec.CUSTOMER_PRODUCT_ID := p_customer_product_id;
1211: l_coveredprd_rec.COVERED_PRODUCT_ID := p_covered_product_id;
1212: l_coveredprd_rec.CONTRACT_AMOUNT := p_contract_amount;
1245: l_coveredprd_rec
1246: );
1247: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
1248: EXCEPTION
1249: WHEN FND_API.G_EXC_ERROR THEN
1250: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1251: (
1252: l_api_name,
1253: G_PKG_NAME,
1250: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1251: (
1252: l_api_name,
1253: G_PKG_NAME,
1254: 'FND_API.G_RET_STS_ERROR',
1255: x_msg_count,
1256: x_msg_data,
1257: '_Pvt'
1258: );
1256: x_msg_data,
1257: '_Pvt'
1258: );
1259: APP_EXCEPTION.RAISE_EXCEPTION;
1260: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1261: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1262: (
1263: l_api_name,
1264: G_PKG_NAME,
1261: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1262: (
1263: l_api_name,
1264: G_PKG_NAME,
1265: 'FND_API.G_RET_STS_UNEXP_ERROR',
1266: x_msg_count,
1267: x_msg_data,
1268: '_Pvt'
1269: );