18: p_billingtype_rec IN BillingType_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_billingtype_rec.txn_billing_type_id = TAPI_DEV_KIT.G_MISS_NUM OR
25: p_billingtype_rec.txn_billing_type_id IS NULL
26: THEN
24: IF p_billingtype_rec.txn_billing_type_id = TAPI_DEV_KIT.G_MISS_NUM OR
25: p_billingtype_rec.txn_billing_type_id IS NULL
26: THEN
27: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'txn_billing_type_id');
28: l_return_status := FND_API.G_RET_STS_ERROR;
29: ELSIF p_billingtype_rec.coverage_txn_group_id = TAPI_DEV_KIT.G_MISS_NUM OR
30: p_billingtype_rec.coverage_txn_group_id IS NULL
31: THEN
32: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'coverage_txn_group_id');
29: ELSIF p_billingtype_rec.coverage_txn_group_id = TAPI_DEV_KIT.G_MISS_NUM OR
30: p_billingtype_rec.coverage_txn_group_id IS NULL
31: THEN
32: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'coverage_txn_group_id');
33: l_return_status := FND_API.G_RET_STS_ERROR;
34: ELSIF p_billingtype_rec.last_update_date = TAPI_DEV_KIT.G_MISS_DATE OR
35: p_billingtype_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_billingtype_rec.last_update_date = TAPI_DEV_KIT.G_MISS_DATE OR
35: p_billingtype_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_billingtype_rec.last_updated_by = TAPI_DEV_KIT.G_MISS_NUM OR
40: p_billingtype_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_billingtype_rec.last_updated_by = TAPI_DEV_KIT.G_MISS_NUM OR
40: p_billingtype_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_billingtype_rec.creation_date = TAPI_DEV_KIT.G_MISS_DATE OR
45: p_billingtype_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_billingtype_rec.creation_date = TAPI_DEV_KIT.G_MISS_DATE OR
45: p_billingtype_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_billingtype_rec.created_by = TAPI_DEV_KIT.G_MISS_NUM OR
50: p_billingtype_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_billingtype_rec.created_by = TAPI_DEV_KIT.G_MISS_NUM OR
50: p_billingtype_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: END IF;
55: RETURN(l_return_status);
56: END Validate_Item_Attributes;
57:
63: l_def_billingtype_rec OUT BillingType_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_billingtype_rec := p_billingtype_rec;
70: l_def_billingtype_rec.OBJECT_VERSION_NUMBER := NVL(l_def_billingtype_rec.OBJECT_VERSION_NUMBER, 0) + 1;
71: RETURN(l_return_status);
75: FUNCTION Validate_Item_Record (
76: p_billingtype_rec IN BillingType_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_billingtype_rec IN BillingType_Rec_Type
82: )
83: RETURN VARCHAR2 IS
91: SELECT *
92: FROM Cs_Txn_Billing_Types
93: WHERE cs_txn_billing_types.txn_billing_type_id = p_txn_billing_type_id;
94: l_cs_txn_billing_types_pk cs_txn_billing_types_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_billingtype_rec.COVERAGE_TXN_GROUP_ID IS NOT NULL)
99: THEN
119: END IF;
120: RETURN (l_return_status);
121: EXCEPTION
122: WHEN item_not_found_error THEN
123: l_return_status := FND_API.G_RET_STS_ERROR;
124: RETURN (l_return_status);
125: END validate_foreign_keys;
126: BEGIN
127: l_return_status := validate_foreign_keys (p_billingtype_rec);
208: x_coverage_billing_type_id OUT NUMBER,
209: x_object_version_number OUT NUMBER) IS
210: l_api_name CONSTANT VARCHAR2(30) := 'insert_row';
211: l_api_version CONSTANT NUMBER := 1;
212: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
213: l_billingtype_rec BillingType_Rec_Type;
214: l_def_billingtype_rec BillingType_Rec_Type;
215: BEGIN
216: l_return_status := TAPI_DEV_KIT.START_ACTIVITY(l_api_name,
219: p_api_version,
220: p_init_msg_list,
221: '_Pvt',
222: x_return_status);
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: p_init_msg_list,
221: '_Pvt',
222: x_return_status);
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: l_billingtype_rec := p_billingtype_rec;
221: '_Pvt',
222: x_return_status);
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: l_billingtype_rec := p_billingtype_rec;
229: --- Validate all non-missing attributes (Item Level Validation)
222: x_return_status);
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: l_billingtype_rec := p_billingtype_rec;
229: --- Validate all non-missing attributes (Item Level Validation)
230: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
226: RAISE FND_API.G_EXC_ERROR;
227: END IF;
228: l_billingtype_rec := p_billingtype_rec;
229: --- Validate all non-missing attributes (Item Level Validation)
230: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
231: l_return_status := Validate_Item_Attributes
232: (
233: l_billingtype_rec ---- IN
234: );
232: (
233: l_billingtype_rec ---- IN
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_billingtype_rec ---- IN
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: END IF;
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: END IF;
242: --- Defaulting item attributes
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: END IF;
242: --- Defaulting item attributes
243: l_return_status := Default_Item_Attributes
245: l_billingtype_rec, ---- IN
246: l_def_billingtype_rec
247: );
248: --- If any errors happen abort API
249: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
250: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
251: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
252: RAISE FND_API.G_EXC_ERROR;
253: END IF;
246: l_def_billingtype_rec
247: );
248: --- If any errors happen abort API
249: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
250: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
251: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
252: RAISE FND_API.G_EXC_ERROR;
253: END IF;
254: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
247: );
248: --- If any errors happen abort API
249: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
250: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
251: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
252: RAISE FND_API.G_EXC_ERROR;
253: END IF;
254: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
255: l_return_status := Validate_Item_Record(l_def_billingtype_rec);
248: --- If any errors happen abort API
249: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
250: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
251: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
252: RAISE FND_API.G_EXC_ERROR;
253: END IF;
254: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
255: l_return_status := Validate_Item_Record(l_def_billingtype_rec);
256: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
250: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
251: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
252: RAISE FND_API.G_EXC_ERROR;
253: END IF;
254: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
255: l_return_status := Validate_Item_Record(l_def_billingtype_rec);
256: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
257: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
258: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
252: RAISE FND_API.G_EXC_ERROR;
253: END IF;
254: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
255: l_return_status := Validate_Item_Record(l_def_billingtype_rec);
256: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
257: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
258: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
259: RAISE FND_API.G_EXC_ERROR;
260: END IF;
253: END IF;
254: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
255: l_return_status := Validate_Item_Record(l_def_billingtype_rec);
256: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
257: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
258: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
259: RAISE FND_API.G_EXC_ERROR;
260: END IF;
261: END IF;
254: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
255: l_return_status := Validate_Item_Record(l_def_billingtype_rec);
256: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
257: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
258: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
259: RAISE FND_API.G_EXC_ERROR;
260: END IF;
261: END IF;
262: -- Set primary key value
255: l_return_status := Validate_Item_Record(l_def_billingtype_rec);
256: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
257: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
258: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
259: RAISE FND_API.G_EXC_ERROR;
260: END IF;
261: END IF;
262: -- Set primary key value
263: l_def_billingtype_rec.coverage_billing_type_id := get_seq_id;
321: x_coverage_billing_type_id := l_def_billingtype_rec.coverage_billing_type_id;
322: x_object_version_number := l_def_billingtype_rec.OBJECT_VERSION_NUMBER;
323: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
324: EXCEPTION
325: WHEN FND_API.G_EXC_ERROR THEN
326: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
327: (
328: l_api_name,
329: G_PKG_NAME,
326: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
327: (
328: l_api_name,
329: G_PKG_NAME,
330: 'FND_API.G_RET_STS_ERROR',
331: x_msg_count,
332: x_msg_data,
333: '_Pvt'
334: );
332: x_msg_data,
333: '_Pvt'
334: );
335: APP_EXCEPTION.RAISE_EXCEPTION;
336: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
337: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
338: (
339: l_api_name,
340: G_PKG_NAME,
337: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
338: (
339: l_api_name,
340: G_PKG_NAME,
341: 'FND_API.G_RET_STS_UNEXP_ERROR',
342: x_msg_count,
343: x_msg_data,
344: '_Pvt'
345: );
394: x_coverage_billing_type_id OUT NUMBER,
395: x_object_version_number OUT NUMBER) IS
396: l_api_name CONSTANT VARCHAR2(30) := 'insert_row';
397: l_api_version CONSTANT NUMBER := 1;
398: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
399: l_billingtype_rec BillingType_Rec_Type;
400: BEGIN
401: l_return_status := TAPI_DEV_KIT.START_ACTIVITY(l_api_name,
402: G_PKG_NAME,
404: p_api_version,
405: p_init_msg_list,
406: '_Pvt',
407: x_return_status);
408: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
409: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
410: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
411: RAISE FND_API.G_EXC_ERROR;
412: END IF;
405: p_init_msg_list,
406: '_Pvt',
407: x_return_status);
408: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
409: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
410: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
411: RAISE FND_API.G_EXC_ERROR;
412: END IF;
413: l_billingtype_rec.MAX_PERCENT_PER_USE := p_max_percent_per_use;
406: '_Pvt',
407: x_return_status);
408: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
409: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
410: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
411: RAISE FND_API.G_EXC_ERROR;
412: END IF;
413: l_billingtype_rec.MAX_PERCENT_PER_USE := p_max_percent_per_use;
414: l_billingtype_rec.MAX_AMOUNT_PER_USE := p_max_amount_per_use;
407: x_return_status);
408: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
409: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
410: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
411: RAISE FND_API.G_EXC_ERROR;
412: END IF;
413: l_billingtype_rec.MAX_PERCENT_PER_USE := p_max_percent_per_use;
414: l_billingtype_rec.MAX_AMOUNT_PER_USE := p_max_amount_per_use;
415: l_billingtype_rec.TXN_BILLING_TYPE_ID := p_txn_billing_type_id;
449: x_object_version_number
450: );
451: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
452: EXCEPTION
453: WHEN FND_API.G_EXC_ERROR THEN
454: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
455: (
456: l_api_name,
457: G_PKG_NAME,
454: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
455: (
456: l_api_name,
457: G_PKG_NAME,
458: 'FND_API.G_RET_STS_ERROR',
459: x_msg_count,
460: x_msg_data,
461: '_Pvt'
462: );
460: x_msg_data,
461: '_Pvt'
462: );
463: APP_EXCEPTION.RAISE_EXCEPTION;
464: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
465: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
466: (
467: l_api_name,
468: G_PKG_NAME,
465: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
466: (
467: l_api_name,
468: G_PKG_NAME,
469: 'FND_API.G_RET_STS_UNEXP_ERROR',
470: x_msg_count,
471: x_msg_data,
472: '_Pvt'
473: );
512: COVERAGE_BILLING_TYPE_ID = p_coverage_billing_type_id
513: ;
514: l_api_name CONSTANT VARCHAR2(30) := 'lock_row';
515: l_api_version CONSTANT NUMBER := 1;
516: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
517: l_object_version_number CS_COV_BILLING_TYPES.OBJECT_VERSION_NUMBER%TYPE;
518: lc_object_version_number CS_COV_BILLING_TYPES.OBJECT_VERSION_NUMBER%TYPE;
519: l_row_notfound BOOLEAN := FALSE;
520: lc_row_notfound BOOLEAN := FALSE;
525: p_api_version,
526: p_init_msg_list,
527: '_Pvt',
528: x_return_status);
529: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
530: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
531: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
532: RAISE FND_API.G_EXC_ERROR;
533: END IF;
526: p_init_msg_list,
527: '_Pvt',
528: x_return_status);
529: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
530: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
531: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
532: RAISE FND_API.G_EXC_ERROR;
533: END IF;
534: BEGIN
527: '_Pvt',
528: x_return_status);
529: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
530: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
531: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
532: RAISE FND_API.G_EXC_ERROR;
533: END IF;
534: BEGIN
535: OPEN lock_csr;
528: x_return_status);
529: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
530: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
531: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
532: RAISE FND_API.G_EXC_ERROR;
533: END IF;
534: BEGIN
535: OPEN lock_csr;
536: FETCH lock_csr INTO l_object_version_number;
552: CLOSE lchk_csr;
553: END IF;
554: IF (lc_row_notfound) THEN
555: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
556: RAISE FND_API.G_EXC_ERROR;
557: ELSIF lc_object_version_number > p_object_version_number THEN
558: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
559: RAISE FND_API.G_EXC_ERROR;
560: ELSIF lc_object_version_number <> p_object_version_number THEN
555: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
556: RAISE FND_API.G_EXC_ERROR;
557: ELSIF lc_object_version_number > p_object_version_number THEN
558: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
559: RAISE FND_API.G_EXC_ERROR;
560: ELSIF lc_object_version_number <> p_object_version_number THEN
561: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
562: RAISE FND_API.G_EXC_ERROR;
563: ELSIF lc_object_version_number = -1 THEN
558: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
559: RAISE FND_API.G_EXC_ERROR;
560: ELSIF lc_object_version_number <> p_object_version_number THEN
561: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
562: RAISE FND_API.G_EXC_ERROR;
563: ELSIF lc_object_version_number = -1 THEN
564: TAPI_DEV_KIT.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
565: RAISE FND_API.G_EXC_ERROR;
566: END IF;
561: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
562: RAISE FND_API.G_EXC_ERROR;
563: ELSIF lc_object_version_number = -1 THEN
564: TAPI_DEV_KIT.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
565: RAISE FND_API.G_EXC_ERROR;
566: END IF;
567: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
568: EXCEPTION
569: WHEN FND_API.G_EXC_ERROR THEN
565: RAISE FND_API.G_EXC_ERROR;
566: END IF;
567: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
568: EXCEPTION
569: WHEN FND_API.G_EXC_ERROR THEN
570: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
571: (
572: l_api_name,
573: G_PKG_NAME,
570: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
571: (
572: l_api_name,
573: G_PKG_NAME,
574: 'FND_API.G_RET_STS_ERROR',
575: x_msg_count,
576: x_msg_data,
577: '_Pvt'
578: );
576: x_msg_data,
577: '_Pvt'
578: );
579: APP_EXCEPTION.RAISE_EXCEPTION;
580: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
581: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
582: (
583: l_api_name,
584: G_PKG_NAME,
581: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
582: (
583: l_api_name,
584: G_PKG_NAME,
585: 'FND_API.G_RET_STS_UNEXP_ERROR',
586: x_msg_count,
587: x_msg_data,
588: '_Pvt'
589: );
612: p_billingtype_val_rec IN BillingType_Val_Rec_Type := G_MISS_BILLINGTYPE_VAL_REC,
613: x_object_version_number OUT NUMBER) IS
614: l_api_name CONSTANT VARCHAR2(30) := 'update_row';
615: l_api_version CONSTANT NUMBER := 1;
616: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
617: l_billingtype_rec BillingType_Rec_Type;
618: l_def_billingtype_rec BillingType_Rec_Type;
619: FUNCTION populate_new_record (
620: p_billingtype_rec IN BillingType_Rec_Type,
625: FROM Cs_Cov_Billing_Types
626: WHERE cs_cov_billing_types.coverage_billing_type_id = p_coverage_billing_type_id;
627: l_cs_coverage_billing_types_pk cs_coverage_billing_1_csr%ROWTYPE;
628: l_row_notfound BOOLEAN := TRUE;
629: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
630: BEGIN
631: x_billingtype_rec := p_billingtype_rec;
632: -- Get current database values
633: OPEN cs_coverage_billing_1_csr (p_billingtype_rec.coverage_billing_type_id);
634: FETCH cs_coverage_billing_1_csr INTO l_cs_coverage_billing_types_pk;
635: l_row_notfound := cs_coverage_billing_1_csr%NOTFOUND;
636: CLOSE cs_coverage_billing_1_csr;
637: IF (l_row_notfound) THEN
638: l_return_status := FND_API.G_RET_STS_ERROR;
639: END IF;
640: IF (x_billingtype_rec.coverage_billing_type_id = TAPI_DEV_KIT.G_MISS_NUM)
641: THEN
642: x_billingtype_rec.coverage_billing_type_id := l_cs_coverage_billing_types_pk.coverage_billing_type_id;
754: p_api_version,
755: p_init_msg_list,
756: '_Pvt',
757: x_return_status);
758: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
759: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
760: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
761: RAISE FND_API.G_EXC_ERROR;
762: END IF;
755: p_init_msg_list,
756: '_Pvt',
757: x_return_status);
758: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
759: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
760: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
761: RAISE FND_API.G_EXC_ERROR;
762: END IF;
763: migrate(p_billingtype_val_rec, l_billingtype_rec);
756: '_Pvt',
757: x_return_status);
758: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
759: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
760: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
761: RAISE FND_API.G_EXC_ERROR;
762: END IF;
763: migrate(p_billingtype_val_rec, l_billingtype_rec);
764: --- Defaulting item attributes
757: x_return_status);
758: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
759: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
760: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
761: RAISE FND_API.G_EXC_ERROR;
762: END IF;
763: migrate(p_billingtype_val_rec, l_billingtype_rec);
764: --- Defaulting item attributes
765: l_return_status := Default_Item_Attributes
767: l_billingtype_rec, ---- IN
768: l_def_billingtype_rec
769: );
770: --- If any errors happen abort API
771: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
772: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
773: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
774: RAISE FND_API.G_EXC_ERROR;
775: END IF;
768: l_def_billingtype_rec
769: );
770: --- If any errors happen abort API
771: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
772: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
773: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
774: RAISE FND_API.G_EXC_ERROR;
775: END IF;
776: l_return_status := populate_new_record(l_def_billingtype_rec, l_def_billingtype_rec);
769: );
770: --- If any errors happen abort API
771: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
772: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
773: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
774: RAISE FND_API.G_EXC_ERROR;
775: END IF;
776: l_return_status := populate_new_record(l_def_billingtype_rec, l_def_billingtype_rec);
777: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
770: --- If any errors happen abort API
771: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
772: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
773: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
774: RAISE FND_API.G_EXC_ERROR;
775: END IF;
776: l_return_status := populate_new_record(l_def_billingtype_rec, l_def_billingtype_rec);
777: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
778: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
773: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
774: RAISE FND_API.G_EXC_ERROR;
775: END IF;
776: l_return_status := populate_new_record(l_def_billingtype_rec, l_def_billingtype_rec);
777: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
778: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
779: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
780: RAISE FND_API.G_EXC_ERROR;
781: END IF;
774: RAISE FND_API.G_EXC_ERROR;
775: END IF;
776: l_return_status := populate_new_record(l_def_billingtype_rec, l_def_billingtype_rec);
777: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
778: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
779: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
780: RAISE FND_API.G_EXC_ERROR;
781: END IF;
782: --- Validate all non-missing attributes (Item Level Validation)
775: END IF;
776: l_return_status := populate_new_record(l_def_billingtype_rec, l_def_billingtype_rec);
777: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
778: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
779: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
780: RAISE FND_API.G_EXC_ERROR;
781: END IF;
782: --- Validate all non-missing attributes (Item Level Validation)
783: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
776: l_return_status := populate_new_record(l_def_billingtype_rec, l_def_billingtype_rec);
777: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
778: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
779: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
780: RAISE FND_API.G_EXC_ERROR;
781: END IF;
782: --- Validate all non-missing attributes (Item Level Validation)
783: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
784: l_return_status := Validate_Item_Attributes
779: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
780: RAISE FND_API.G_EXC_ERROR;
781: END IF;
782: --- Validate all non-missing attributes (Item Level Validation)
783: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
784: l_return_status := Validate_Item_Attributes
785: (
786: l_def_billingtype_rec ---- IN
787: );
785: (
786: l_def_billingtype_rec ---- IN
787: );
788: --- If any errors happen abort API
789: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
790: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
791: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
792: RAISE FND_API.G_EXC_ERROR;
793: END IF;
786: l_def_billingtype_rec ---- IN
787: );
788: --- If any errors happen abort API
789: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
790: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
791: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
792: RAISE FND_API.G_EXC_ERROR;
793: END IF;
794: END IF;
787: );
788: --- If any errors happen abort API
789: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
790: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
791: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
792: RAISE FND_API.G_EXC_ERROR;
793: END IF;
794: END IF;
795: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
788: --- If any errors happen abort API
789: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
790: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
791: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
792: RAISE FND_API.G_EXC_ERROR;
793: END IF;
794: END IF;
795: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
796: l_return_status := Validate_Item_Record(l_def_billingtype_rec);
791: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
792: RAISE FND_API.G_EXC_ERROR;
793: END IF;
794: END IF;
795: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
796: l_return_status := Validate_Item_Record(l_def_billingtype_rec);
797: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
798: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
799: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
793: END IF;
794: END IF;
795: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
796: l_return_status := Validate_Item_Record(l_def_billingtype_rec);
797: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
798: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
799: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
800: RAISE FND_API.G_EXC_ERROR;
801: END IF;
794: END IF;
795: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
796: l_return_status := Validate_Item_Record(l_def_billingtype_rec);
797: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
798: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
799: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
800: RAISE FND_API.G_EXC_ERROR;
801: END IF;
802: END IF;
795: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
796: l_return_status := Validate_Item_Record(l_def_billingtype_rec);
797: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
798: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
799: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
800: RAISE FND_API.G_EXC_ERROR;
801: END IF;
802: END IF;
803: UPDATE CS_COV_BILLING_TYPES
796: l_return_status := Validate_Item_Record(l_def_billingtype_rec);
797: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
798: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
799: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
800: RAISE FND_API.G_EXC_ERROR;
801: END IF;
802: END IF;
803: UPDATE CS_COV_BILLING_TYPES
804: SET
834: ;
835: x_object_version_number := l_def_billingtype_rec.OBJECT_VERSION_NUMBER;
836: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
837: EXCEPTION
838: WHEN FND_API.G_EXC_ERROR THEN
839: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
840: (
841: l_api_name,
842: G_PKG_NAME,
839: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
840: (
841: l_api_name,
842: G_PKG_NAME,
843: 'FND_API.G_RET_STS_ERROR',
844: x_msg_count,
845: x_msg_data,
846: '_Pvt'
847: );
845: x_msg_data,
846: '_Pvt'
847: );
848: APP_EXCEPTION.RAISE_EXCEPTION;
849: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
850: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
851: (
852: l_api_name,
853: G_PKG_NAME,
850: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
851: (
852: l_api_name,
853: G_PKG_NAME,
854: 'FND_API.G_RET_STS_UNEXP_ERROR',
855: x_msg_count,
856: x_msg_data,
857: '_Pvt'
858: );
907: p_object_version_number IN NUMBER := TAPI_DEV_KIT.G_MISS_NUM,
908: x_object_version_number OUT NUMBER) IS
909: l_api_name CONSTANT VARCHAR2(30) := 'update_row';
910: l_api_version CONSTANT NUMBER := 1;
911: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
912: l_billingtype_rec BillingType_Val_Rec_Type;
913: BEGIN
914: l_return_status := TAPI_DEV_KIT.START_ACTIVITY(l_api_name,
915: G_PKG_NAME,
917: p_api_version,
918: p_init_msg_list,
919: '_Pvt',
920: x_return_status);
921: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
922: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
923: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
924: RAISE FND_API.G_EXC_ERROR;
925: END IF;
918: p_init_msg_list,
919: '_Pvt',
920: x_return_status);
921: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
922: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
923: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
924: RAISE FND_API.G_EXC_ERROR;
925: END IF;
926: l_billingtype_rec.COVERAGE_BILLING_TYPE_ID := p_coverage_billing_type_id;
919: '_Pvt',
920: x_return_status);
921: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
922: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
923: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
924: RAISE FND_API.G_EXC_ERROR;
925: END IF;
926: l_billingtype_rec.COVERAGE_BILLING_TYPE_ID := p_coverage_billing_type_id;
927: l_billingtype_rec.MAX_PERCENT_PER_USE := p_max_percent_per_use;
920: x_return_status);
921: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
922: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
923: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
924: RAISE FND_API.G_EXC_ERROR;
925: END IF;
926: l_billingtype_rec.COVERAGE_BILLING_TYPE_ID := p_coverage_billing_type_id;
927: l_billingtype_rec.MAX_PERCENT_PER_USE := p_max_percent_per_use;
928: l_billingtype_rec.MAX_AMOUNT_PER_USE := p_max_amount_per_use;
962: x_object_version_number
963: );
964: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
965: EXCEPTION
966: WHEN FND_API.G_EXC_ERROR THEN
967: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
968: (
969: l_api_name,
970: G_PKG_NAME,
967: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
968: (
969: l_api_name,
970: G_PKG_NAME,
971: 'FND_API.G_RET_STS_ERROR',
972: x_msg_count,
973: x_msg_data,
974: '_Pvt'
975: );
973: x_msg_data,
974: '_Pvt'
975: );
976: APP_EXCEPTION.RAISE_EXCEPTION;
977: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
978: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
979: (
980: l_api_name,
981: G_PKG_NAME,
978: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
979: (
980: l_api_name,
981: G_PKG_NAME,
982: 'FND_API.G_RET_STS_UNEXP_ERROR',
983: x_msg_count,
984: x_msg_data,
985: '_Pvt'
986: );
1008: x_msg_data OUT VARCHAR2,
1009: p_coverage_billing_type_id IN NUMBER) IS
1010: l_api_name CONSTANT VARCHAR2(30) := 'delete_row';
1011: l_api_version CONSTANT NUMBER := 1;
1012: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1013: BEGIN
1014: l_return_status := TAPI_DEV_KIT.START_ACTIVITY(l_api_name,
1015: G_PKG_NAME,
1016: l_api_version,
1017: p_api_version,
1018: p_init_msg_list,
1019: '_Pvt',
1020: x_return_status);
1021: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1022: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1023: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1024: RAISE FND_API.G_EXC_ERROR;
1025: END IF;
1018: p_init_msg_list,
1019: '_Pvt',
1020: x_return_status);
1021: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1022: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1023: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1024: RAISE FND_API.G_EXC_ERROR;
1025: END IF;
1026: DELETE FROM CS_COV_BILLING_TYPES
1019: '_Pvt',
1020: x_return_status);
1021: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1022: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1023: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1024: RAISE FND_API.G_EXC_ERROR;
1025: END IF;
1026: DELETE FROM CS_COV_BILLING_TYPES
1027: WHERE
1020: x_return_status);
1021: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1022: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1023: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1024: RAISE FND_API.G_EXC_ERROR;
1025: END IF;
1026: DELETE FROM CS_COV_BILLING_TYPES
1027: WHERE
1028: COVERAGE_BILLING_TYPE_ID = p_coverage_billing_type_id
1028: COVERAGE_BILLING_TYPE_ID = p_coverage_billing_type_id
1029: ;
1030: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
1031: EXCEPTION
1032: WHEN FND_API.G_EXC_ERROR THEN
1033: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1034: (
1035: l_api_name,
1036: G_PKG_NAME,
1033: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1034: (
1035: l_api_name,
1036: G_PKG_NAME,
1037: 'FND_API.G_RET_STS_ERROR',
1038: x_msg_count,
1039: x_msg_data,
1040: '_Pvt'
1041: );
1039: x_msg_data,
1040: '_Pvt'
1041: );
1042: APP_EXCEPTION.RAISE_EXCEPTION;
1043: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1044: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1045: (
1046: l_api_name,
1047: G_PKG_NAME,
1044: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1045: (
1046: l_api_name,
1047: G_PKG_NAME,
1048: 'FND_API.G_RET_STS_UNEXP_ERROR',
1049: x_msg_count,
1050: x_msg_data,
1051: '_Pvt'
1052: );
1074: x_msg_data OUT VARCHAR2,
1075: p_billingtype_val_rec IN BillingType_Val_Rec_Type := G_MISS_BILLINGTYPE_VAL_REC) IS
1076: l_api_name CONSTANT VARCHAR2(30) := 'validate_row';
1077: l_api_version CONSTANT NUMBER := 1;
1078: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1079: l_billingtype_rec BillingType_Rec_Type;
1080: l_def_billingtype_rec BillingType_Rec_Type;
1081: BEGIN
1082: l_return_status := TAPI_DEV_KIT.START_ACTIVITY(l_api_name,
1085: p_api_version,
1086: p_init_msg_list,
1087: '_Pvt',
1088: x_return_status);
1089: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1090: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1091: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1092: RAISE FND_API.G_EXC_ERROR;
1093: END IF;
1086: p_init_msg_list,
1087: '_Pvt',
1088: x_return_status);
1089: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1090: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1091: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1092: RAISE FND_API.G_EXC_ERROR;
1093: END IF;
1094: migrate(p_billingtype_val_rec, l_billingtype_rec);
1087: '_Pvt',
1088: x_return_status);
1089: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1090: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1091: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1092: RAISE FND_API.G_EXC_ERROR;
1093: END IF;
1094: migrate(p_billingtype_val_rec, l_billingtype_rec);
1095: --- Validate all non-missing attributes (Item Level Validation)
1088: x_return_status);
1089: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1090: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1091: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1092: RAISE FND_API.G_EXC_ERROR;
1093: END IF;
1094: migrate(p_billingtype_val_rec, l_billingtype_rec);
1095: --- Validate all non-missing attributes (Item Level Validation)
1096: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
1092: RAISE FND_API.G_EXC_ERROR;
1093: END IF;
1094: migrate(p_billingtype_val_rec, l_billingtype_rec);
1095: --- Validate all non-missing attributes (Item Level Validation)
1096: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
1097: l_return_status := Validate_Item_Attributes
1098: (
1099: l_billingtype_rec ---- IN
1100: );
1098: (
1099: l_billingtype_rec ---- IN
1100: );
1101: --- If any errors happen abort API
1102: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1103: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1104: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1105: RAISE FND_API.G_EXC_ERROR;
1106: END IF;
1099: l_billingtype_rec ---- IN
1100: );
1101: --- If any errors happen abort API
1102: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1103: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1104: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1105: RAISE FND_API.G_EXC_ERROR;
1106: END IF;
1107: END IF;
1100: );
1101: --- If any errors happen abort API
1102: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1103: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1104: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1105: RAISE FND_API.G_EXC_ERROR;
1106: END IF;
1107: END IF;
1108: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1101: --- If any errors happen abort API
1102: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1103: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1104: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1105: RAISE FND_API.G_EXC_ERROR;
1106: END IF;
1107: END IF;
1108: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1109: l_return_status := Validate_Item_Record(l_def_billingtype_rec);
1104: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1105: RAISE FND_API.G_EXC_ERROR;
1106: END IF;
1107: END IF;
1108: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1109: l_return_status := Validate_Item_Record(l_def_billingtype_rec);
1110: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1111: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1112: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1106: END IF;
1107: END IF;
1108: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1109: l_return_status := Validate_Item_Record(l_def_billingtype_rec);
1110: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1111: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1112: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1113: RAISE FND_API.G_EXC_ERROR;
1114: END IF;
1107: END IF;
1108: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1109: l_return_status := Validate_Item_Record(l_def_billingtype_rec);
1110: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1111: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1112: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1113: RAISE FND_API.G_EXC_ERROR;
1114: END IF;
1115: END IF;
1108: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1109: l_return_status := Validate_Item_Record(l_def_billingtype_rec);
1110: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1111: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1112: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1113: RAISE FND_API.G_EXC_ERROR;
1114: END IF;
1115: END IF;
1116: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
1109: l_return_status := Validate_Item_Record(l_def_billingtype_rec);
1110: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1111: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1112: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1113: RAISE FND_API.G_EXC_ERROR;
1114: END IF;
1115: END IF;
1116: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
1117: EXCEPTION
1114: END IF;
1115: END IF;
1116: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
1117: EXCEPTION
1118: WHEN FND_API.G_EXC_ERROR THEN
1119: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1120: (
1121: l_api_name,
1122: G_PKG_NAME,
1119: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1120: (
1121: l_api_name,
1122: G_PKG_NAME,
1123: 'FND_API.G_RET_STS_ERROR',
1124: x_msg_count,
1125: x_msg_data,
1126: '_Pvt'
1127: );
1125: x_msg_data,
1126: '_Pvt'
1127: );
1128: APP_EXCEPTION.RAISE_EXCEPTION;
1129: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1130: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1131: (
1132: l_api_name,
1133: G_PKG_NAME,
1130: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1131: (
1132: l_api_name,
1133: G_PKG_NAME,
1134: 'FND_API.G_RET_STS_UNEXP_ERROR',
1135: x_msg_count,
1136: x_msg_data,
1137: '_Pvt'
1138: );
1186: p_context IN CS_COV_BILLING_TYPES.CONTEXT%TYPE := TAPI_DEV_KIT.G_MISS_CHAR,
1187: p_object_version_number IN NUMBER := TAPI_DEV_KIT.G_MISS_NUM) IS
1188: l_api_name CONSTANT VARCHAR2(30) := 'validate_row';
1189: l_api_version CONSTANT NUMBER := 1;
1190: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1191: l_billingtype_rec BillingType_Val_Rec_Type;
1192: BEGIN
1193: l_return_status := TAPI_DEV_KIT.START_ACTIVITY(l_api_name,
1194: G_PKG_NAME,
1196: p_api_version,
1197: p_init_msg_list,
1198: '_Pvt',
1199: x_return_status);
1200: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1201: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1202: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1203: RAISE FND_API.G_EXC_ERROR;
1204: END IF;
1197: p_init_msg_list,
1198: '_Pvt',
1199: x_return_status);
1200: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1201: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1202: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1203: RAISE FND_API.G_EXC_ERROR;
1204: END IF;
1205: l_billingtype_rec.COVERAGE_BILLING_TYPE_ID := p_coverage_billing_type_id;
1198: '_Pvt',
1199: x_return_status);
1200: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1201: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1202: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1203: RAISE FND_API.G_EXC_ERROR;
1204: END IF;
1205: l_billingtype_rec.COVERAGE_BILLING_TYPE_ID := p_coverage_billing_type_id;
1206: l_billingtype_rec.MAX_PERCENT_PER_USE := p_max_percent_per_use;
1199: x_return_status);
1200: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1201: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1202: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1203: RAISE FND_API.G_EXC_ERROR;
1204: END IF;
1205: l_billingtype_rec.COVERAGE_BILLING_TYPE_ID := p_coverage_billing_type_id;
1206: l_billingtype_rec.MAX_PERCENT_PER_USE := p_max_percent_per_use;
1207: l_billingtype_rec.MAX_AMOUNT_PER_USE := p_max_amount_per_use;
1240: l_billingtype_rec
1241: );
1242: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
1243: EXCEPTION
1244: WHEN FND_API.G_EXC_ERROR THEN
1245: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1246: (
1247: l_api_name,
1248: G_PKG_NAME,
1245: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1246: (
1247: l_api_name,
1248: G_PKG_NAME,
1249: 'FND_API.G_RET_STS_ERROR',
1250: x_msg_count,
1251: x_msg_data,
1252: '_Pvt'
1253: );
1251: x_msg_data,
1252: '_Pvt'
1253: );
1254: APP_EXCEPTION.RAISE_EXCEPTION;
1255: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1256: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1257: (
1258: l_api_name,
1259: G_PKG_NAME,
1256: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1257: (
1258: l_api_name,
1259: G_PKG_NAME,
1260: 'FND_API.G_RET_STS_UNEXP_ERROR',
1261: x_msg_count,
1262: x_msg_data,
1263: '_Pvt'
1264: );