18: p_contractbilling_rec IN ContractBilling_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_contractbilling_rec.cp_service_id = TAPI_DEV_KIT.G_MISS_NUM OR
25: p_contractbilling_rec.cp_service_id IS NULL
26: THEN
24: IF p_contractbilling_rec.cp_service_id = TAPI_DEV_KIT.G_MISS_NUM OR
25: p_contractbilling_rec.cp_service_id IS NULL
26: THEN
27: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'cp_service_id');
28: l_return_status := FND_API.G_RET_STS_ERROR;
29: ELSIF p_contractbilling_rec.contract_id = TAPI_DEV_KIT.G_MISS_NUM OR
30: p_contractbilling_rec.contract_id IS NULL
31: THEN
32: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'contract_id');
29: ELSIF p_contractbilling_rec.contract_id = TAPI_DEV_KIT.G_MISS_NUM OR
30: p_contractbilling_rec.contract_id IS NULL
31: THEN
32: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'contract_id');
33: l_return_status := FND_API.G_RET_STS_ERROR;
34: ELSIF p_contractbilling_rec.billed_until_date = TAPI_DEV_KIT.G_MISS_DATE OR
35: p_contractbilling_rec.billed_until_date IS NULL
36: THEN
37: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'billed_until_date');
34: ELSIF p_contractbilling_rec.billed_until_date = TAPI_DEV_KIT.G_MISS_DATE OR
35: p_contractbilling_rec.billed_until_date IS NULL
36: THEN
37: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'billed_until_date');
38: l_return_status := FND_API.G_RET_STS_ERROR;
39: ELSIF p_contractbilling_rec.currency_code = TAPI_DEV_KIT.G_MISS_CHAR OR
40: p_contractbilling_rec.currency_code IS NULL
41: THEN
42: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'currency_code');
39: ELSIF p_contractbilling_rec.currency_code = TAPI_DEV_KIT.G_MISS_CHAR OR
40: p_contractbilling_rec.currency_code IS NULL
41: THEN
42: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'currency_code');
43: l_return_status := FND_API.G_RET_STS_ERROR;
44: ELSIF p_contractbilling_rec.last_update_date = TAPI_DEV_KIT.G_MISS_DATE OR
45: p_contractbilling_rec.last_update_date IS NULL
46: THEN
47: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'last_update_date');
44: ELSIF p_contractbilling_rec.last_update_date = TAPI_DEV_KIT.G_MISS_DATE OR
45: p_contractbilling_rec.last_update_date IS NULL
46: THEN
47: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'last_update_date');
48: l_return_status := FND_API.G_RET_STS_ERROR;
49: ELSIF p_contractbilling_rec.last_updated_by = TAPI_DEV_KIT.G_MISS_NUM OR
50: p_contractbilling_rec.last_updated_by IS NULL
51: THEN
52: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'last_updated_by');
49: ELSIF p_contractbilling_rec.last_updated_by = TAPI_DEV_KIT.G_MISS_NUM OR
50: p_contractbilling_rec.last_updated_by IS NULL
51: THEN
52: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'last_updated_by');
53: l_return_status := FND_API.G_RET_STS_ERROR;
54: ELSIF p_contractbilling_rec.creation_date = TAPI_DEV_KIT.G_MISS_DATE OR
55: p_contractbilling_rec.creation_date IS NULL
56: THEN
57: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'creation_date');
54: ELSIF p_contractbilling_rec.creation_date = TAPI_DEV_KIT.G_MISS_DATE OR
55: p_contractbilling_rec.creation_date IS NULL
56: THEN
57: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'creation_date');
58: l_return_status := FND_API.G_RET_STS_ERROR;
59: ELSIF p_contractbilling_rec.created_by = TAPI_DEV_KIT.G_MISS_NUM OR
60: p_contractbilling_rec.created_by IS NULL
61: THEN
62: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'created_by');
59: ELSIF p_contractbilling_rec.created_by = TAPI_DEV_KIT.G_MISS_NUM OR
60: p_contractbilling_rec.created_by IS NULL
61: THEN
62: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'created_by');
63: l_return_status := FND_API.G_RET_STS_ERROR;
64: END IF;
65: RETURN(l_return_status);
66: END Validate_Item_Attributes;
67:
73: l_def_contractbilling_rec OUT ContractBilling_Rec_Type
74: )
75: RETURN VARCHAR2
76: IS
77: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
78: BEGIN
79: l_def_contractbilling_rec := p_contractbilling_rec;
80: l_def_contractbilling_rec.OBJECT_VERSION_NUMBER := NVL(l_def_contractbilling_rec.OBJECT_VERSION_NUMBER, 0) + 1;
81: RETURN(l_return_status);
85: FUNCTION Validate_Item_Record (
86: p_contractbilling_rec IN ContractBilling_Rec_Type
87: )
88: RETURN VARCHAR2 IS
89: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
90: FUNCTION validate_foreign_keys (
91: p_contractbilling_rec IN ContractBilling_Rec_Type
92: )
93: RETURN VARCHAR2 IS
101: SELECT *
102: FROM Cs_Cp_Services_All
103: WHERE cs_cp_services_all.cp_service_id = p_cp_service_id;
104: l_cs_cp_services_all_pk cs_cp_services_all_pk_csr%ROWTYPE;
105: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
106: l_row_notfound BOOLEAN := TRUE;
107: BEGIN
108: IF (p_contractbilling_rec.CONTRACT_ID IS NOT NULL)
109: THEN
129: END IF;
130: RETURN (l_return_status);
131: EXCEPTION
132: WHEN item_not_found_error THEN
133: l_return_status := FND_API.G_RET_STS_ERROR;
134: RETURN (l_return_status);
135: END validate_foreign_keys;
136: BEGIN
137: l_return_status := validate_foreign_keys (p_contractbilling_rec);
236: x_contract_billing_id OUT NUMBER,
237: x_object_version_number OUT NUMBER) IS
238: l_api_name CONSTANT VARCHAR2(30) := 'insert_row';
239: l_api_version CONSTANT NUMBER := 1;
240: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
241: l_contractbilling_rec ContractBilling_Rec_Type;
242: l_def_contractbilling_rec ContractBilling_Rec_Type;
243: BEGIN
244: l_return_status := TAPI_DEV_KIT.START_ACTIVITY(l_api_name,
247: p_api_version,
248: p_init_msg_list,
249: '_Pvt',
250: x_return_status);
251: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
252: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
253: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
254: RAISE FND_API.G_EXC_ERROR;
255: END IF;
248: p_init_msg_list,
249: '_Pvt',
250: x_return_status);
251: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
252: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
253: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
254: RAISE FND_API.G_EXC_ERROR;
255: END IF;
256: l_contractbilling_rec := p_contractbilling_rec;
249: '_Pvt',
250: x_return_status);
251: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
252: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
253: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
254: RAISE FND_API.G_EXC_ERROR;
255: END IF;
256: l_contractbilling_rec := p_contractbilling_rec;
257: --- Validate all non-missing attributes (Item Level Validation)
250: x_return_status);
251: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
252: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
253: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
254: RAISE FND_API.G_EXC_ERROR;
255: END IF;
256: l_contractbilling_rec := p_contractbilling_rec;
257: --- Validate all non-missing attributes (Item Level Validation)
258: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
254: RAISE FND_API.G_EXC_ERROR;
255: END IF;
256: l_contractbilling_rec := p_contractbilling_rec;
257: --- Validate all non-missing attributes (Item Level Validation)
258: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
259: l_return_status := Validate_Item_Attributes
260: (
261: l_contractbilling_rec ---- IN
262: );
260: (
261: l_contractbilling_rec ---- IN
262: );
263: --- If any errors happen abort API
264: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
265: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
266: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
267: RAISE FND_API.G_EXC_ERROR;
268: END IF;
261: l_contractbilling_rec ---- IN
262: );
263: --- If any errors happen abort API
264: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
265: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
266: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
267: RAISE FND_API.G_EXC_ERROR;
268: END IF;
269: END IF;
262: );
263: --- If any errors happen abort API
264: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
265: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
266: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
267: RAISE FND_API.G_EXC_ERROR;
268: END IF;
269: END IF;
270: --- Defaulting item attributes
263: --- If any errors happen abort API
264: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
265: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
266: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
267: RAISE FND_API.G_EXC_ERROR;
268: END IF;
269: END IF;
270: --- Defaulting item attributes
271: l_return_status := Default_Item_Attributes
273: l_contractbilling_rec, ---- IN
274: l_def_contractbilling_rec
275: );
276: --- If any errors happen abort API
277: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
278: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
279: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
280: RAISE FND_API.G_EXC_ERROR;
281: END IF;
274: l_def_contractbilling_rec
275: );
276: --- If any errors happen abort API
277: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
278: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
279: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
280: RAISE FND_API.G_EXC_ERROR;
281: END IF;
282: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
275: );
276: --- If any errors happen abort API
277: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
278: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
279: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
280: RAISE FND_API.G_EXC_ERROR;
281: END IF;
282: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
283: l_return_status := Validate_Item_Record(l_def_contractbilling_rec);
276: --- If any errors happen abort API
277: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
278: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
279: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
280: RAISE FND_API.G_EXC_ERROR;
281: END IF;
282: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
283: l_return_status := Validate_Item_Record(l_def_contractbilling_rec);
284: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
278: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
279: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
280: RAISE FND_API.G_EXC_ERROR;
281: END IF;
282: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
283: l_return_status := Validate_Item_Record(l_def_contractbilling_rec);
284: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
285: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
286: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
280: RAISE FND_API.G_EXC_ERROR;
281: END IF;
282: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
283: l_return_status := Validate_Item_Record(l_def_contractbilling_rec);
284: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
285: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
286: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
287: RAISE FND_API.G_EXC_ERROR;
288: END IF;
281: END IF;
282: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
283: l_return_status := Validate_Item_Record(l_def_contractbilling_rec);
284: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
285: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
286: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
287: RAISE FND_API.G_EXC_ERROR;
288: END IF;
289: END IF;
282: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
283: l_return_status := Validate_Item_Record(l_def_contractbilling_rec);
284: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
285: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
286: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
287: RAISE FND_API.G_EXC_ERROR;
288: END IF;
289: END IF;
290: -- Set primary key value
283: l_return_status := Validate_Item_Record(l_def_contractbilling_rec);
284: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
285: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
286: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
287: RAISE FND_API.G_EXC_ERROR;
288: END IF;
289: END IF;
290: -- Set primary key value
291: l_def_contractbilling_rec.contract_billing_id := get_seq_id;
367: x_contract_billing_id := l_def_contractbilling_rec.contract_billing_id;
368: x_object_version_number := l_def_contractbilling_rec.OBJECT_VERSION_NUMBER;
369: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
370: EXCEPTION
371: WHEN FND_API.G_EXC_ERROR THEN
372: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
373: (
374: l_api_name,
375: G_PKG_NAME,
372: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
373: (
374: l_api_name,
375: G_PKG_NAME,
376: 'FND_API.G_RET_STS_ERROR',
377: x_msg_count,
378: x_msg_data,
379: '_Pvt'
380: );
378: x_msg_data,
379: '_Pvt'
380: );
381: APP_EXCEPTION.RAISE_EXCEPTION;
382: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
383: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
384: (
385: l_api_name,
386: G_PKG_NAME,
383: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
384: (
385: l_api_name,
386: G_PKG_NAME,
387: 'FND_API.G_RET_STS_UNEXP_ERROR',
388: x_msg_count,
389: x_msg_data,
390: '_Pvt'
391: );
449: x_contract_billing_id OUT NUMBER,
450: x_object_version_number OUT NUMBER) IS
451: l_api_name CONSTANT VARCHAR2(30) := 'insert_row';
452: l_api_version CONSTANT NUMBER := 1;
453: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
454: l_contractbilling_rec ContractBilling_Rec_Type;
455: BEGIN
456: l_return_status := TAPI_DEV_KIT.START_ACTIVITY(l_api_name,
457: G_PKG_NAME,
459: p_api_version,
460: p_init_msg_list,
461: '_Pvt',
462: x_return_status);
463: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
464: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
465: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
466: RAISE FND_API.G_EXC_ERROR;
467: END IF;
460: p_init_msg_list,
461: '_Pvt',
462: x_return_status);
463: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
464: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
465: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
466: RAISE FND_API.G_EXC_ERROR;
467: END IF;
468: l_contractbilling_rec.HEADER_ID := p_header_id;
461: '_Pvt',
462: x_return_status);
463: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
464: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
465: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
466: RAISE FND_API.G_EXC_ERROR;
467: END IF;
468: l_contractbilling_rec.HEADER_ID := p_header_id;
469: l_contractbilling_rec.ORDER_NUMBER := p_order_number;
462: x_return_status);
463: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
464: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
465: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
466: RAISE FND_API.G_EXC_ERROR;
467: END IF;
468: l_contractbilling_rec.HEADER_ID := p_header_id;
469: l_contractbilling_rec.ORDER_NUMBER := p_order_number;
470: l_contractbilling_rec.LINE_ID := p_line_id;
513: x_object_version_number
514: );
515: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
516: EXCEPTION
517: WHEN FND_API.G_EXC_ERROR THEN
518: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
519: (
520: l_api_name,
521: G_PKG_NAME,
518: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
519: (
520: l_api_name,
521: G_PKG_NAME,
522: 'FND_API.G_RET_STS_ERROR',
523: x_msg_count,
524: x_msg_data,
525: '_Pvt'
526: );
524: x_msg_data,
525: '_Pvt'
526: );
527: APP_EXCEPTION.RAISE_EXCEPTION;
528: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
529: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
530: (
531: l_api_name,
532: G_PKG_NAME,
529: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
530: (
531: l_api_name,
532: G_PKG_NAME,
533: 'FND_API.G_RET_STS_UNEXP_ERROR',
534: x_msg_count,
535: x_msg_data,
536: '_Pvt'
537: );
576: CONTRACT_BILLING_ID = p_contract_billing_id
577: ;
578: l_api_name CONSTANT VARCHAR2(30) := 'lock_row';
579: l_api_version CONSTANT NUMBER := 1;
580: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
581: l_object_version_number CS_CONTRACTS_BILLING.OBJECT_VERSION_NUMBER%TYPE;
582: lc_object_version_number CS_CONTRACTS_BILLING.OBJECT_VERSION_NUMBER%TYPE;
583: l_row_notfound BOOLEAN := FALSE;
584: lc_row_notfound BOOLEAN := FALSE;
589: p_api_version,
590: p_init_msg_list,
591: '_Pvt',
592: x_return_status);
593: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
594: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
595: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
596: RAISE FND_API.G_EXC_ERROR;
597: END IF;
590: p_init_msg_list,
591: '_Pvt',
592: x_return_status);
593: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
594: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
595: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
596: RAISE FND_API.G_EXC_ERROR;
597: END IF;
598: BEGIN
591: '_Pvt',
592: x_return_status);
593: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
594: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
595: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
596: RAISE FND_API.G_EXC_ERROR;
597: END IF;
598: BEGIN
599: OPEN lock_csr;
592: x_return_status);
593: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
594: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
595: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
596: RAISE FND_API.G_EXC_ERROR;
597: END IF;
598: BEGIN
599: OPEN lock_csr;
600: FETCH lock_csr INTO l_object_version_number;
616: CLOSE lchk_csr;
617: END IF;
618: IF (lc_row_notfound) THEN
619: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
620: RAISE FND_API.G_EXC_ERROR;
621: ELSIF lc_object_version_number > p_object_version_number THEN
622: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
623: RAISE FND_API.G_EXC_ERROR;
624: ELSIF lc_object_version_number <> p_object_version_number THEN
619: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
620: RAISE FND_API.G_EXC_ERROR;
621: ELSIF lc_object_version_number > p_object_version_number THEN
622: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
623: RAISE FND_API.G_EXC_ERROR;
624: ELSIF lc_object_version_number <> p_object_version_number THEN
625: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
626: RAISE FND_API.G_EXC_ERROR;
627: ELSIF lc_object_version_number = -1 THEN
622: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
623: RAISE FND_API.G_EXC_ERROR;
624: ELSIF lc_object_version_number <> p_object_version_number THEN
625: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
626: RAISE FND_API.G_EXC_ERROR;
627: ELSIF lc_object_version_number = -1 THEN
628: TAPI_DEV_KIT.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
629: RAISE FND_API.G_EXC_ERROR;
630: END IF;
625: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
626: RAISE FND_API.G_EXC_ERROR;
627: ELSIF lc_object_version_number = -1 THEN
628: TAPI_DEV_KIT.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
629: RAISE FND_API.G_EXC_ERROR;
630: END IF;
631: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
632: EXCEPTION
633: WHEN FND_API.G_EXC_ERROR THEN
629: RAISE FND_API.G_EXC_ERROR;
630: END IF;
631: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
632: EXCEPTION
633: WHEN FND_API.G_EXC_ERROR THEN
634: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
635: (
636: l_api_name,
637: G_PKG_NAME,
634: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
635: (
636: l_api_name,
637: G_PKG_NAME,
638: 'FND_API.G_RET_STS_ERROR',
639: x_msg_count,
640: x_msg_data,
641: '_Pvt'
642: );
640: x_msg_data,
641: '_Pvt'
642: );
643: APP_EXCEPTION.RAISE_EXCEPTION;
644: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
645: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
646: (
647: l_api_name,
648: G_PKG_NAME,
645: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
646: (
647: l_api_name,
648: G_PKG_NAME,
649: 'FND_API.G_RET_STS_UNEXP_ERROR',
650: x_msg_count,
651: x_msg_data,
652: '_Pvt'
653: );
676: p_contractbilling_val_rec IN ContractBilling_Val_Rec_Type := G_MISS_CONTRACTBILLING_VAL_REC,
677: x_object_version_number OUT NUMBER) IS
678: l_api_name CONSTANT VARCHAR2(30) := 'update_row';
679: l_api_version CONSTANT NUMBER := 1;
680: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
681: l_contractbilling_rec ContractBilling_Rec_Type;
682: l_def_contractbilling_rec ContractBilling_Rec_Type;
683: FUNCTION populate_new_record (
684: p_contractbilling_rec IN ContractBilling_Rec_Type,
689: FROM Cs_Contracts_Billing
690: WHERE cs_contracts_billing.contract_billing_id = p_contract_billing_id;
691: l_cs_contracts_billing_pk cs_contracts_billing_pk_csr%ROWTYPE;
692: l_row_notfound BOOLEAN := TRUE;
693: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
694: BEGIN
695: x_contractbilling_rec := p_contractbilling_rec;
696: -- Get current database values
697: OPEN cs_contracts_billing_pk_csr (p_contractbilling_rec.contract_billing_id);
698: FETCH cs_contracts_billing_pk_csr INTO l_cs_contracts_billing_pk;
699: l_row_notfound := cs_contracts_billing_pk_csr%NOTFOUND;
700: CLOSE cs_contracts_billing_pk_csr;
701: IF (l_row_notfound) THEN
702: l_return_status := FND_API.G_RET_STS_ERROR;
703: END IF;
704: IF (x_contractbilling_rec.contract_billing_id = TAPI_DEV_KIT.G_MISS_NUM)
705: THEN
706: x_contractbilling_rec.contract_billing_id := l_cs_contracts_billing_pk.contract_billing_id;
854: p_api_version,
855: p_init_msg_list,
856: '_Pvt',
857: x_return_status);
858: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
859: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
860: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
861: RAISE FND_API.G_EXC_ERROR;
862: END IF;
855: p_init_msg_list,
856: '_Pvt',
857: x_return_status);
858: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
859: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
860: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
861: RAISE FND_API.G_EXC_ERROR;
862: END IF;
863: migrate(p_contractbilling_val_rec, l_contractbilling_rec);
856: '_Pvt',
857: x_return_status);
858: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
859: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
860: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
861: RAISE FND_API.G_EXC_ERROR;
862: END IF;
863: migrate(p_contractbilling_val_rec, l_contractbilling_rec);
864: --- Defaulting item attributes
857: x_return_status);
858: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
859: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
860: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
861: RAISE FND_API.G_EXC_ERROR;
862: END IF;
863: migrate(p_contractbilling_val_rec, l_contractbilling_rec);
864: --- Defaulting item attributes
865: l_return_status := Default_Item_Attributes
867: l_contractbilling_rec, ---- IN
868: l_def_contractbilling_rec
869: );
870: --- If any errors happen abort API
871: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
872: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
873: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
874: RAISE FND_API.G_EXC_ERROR;
875: END IF;
868: l_def_contractbilling_rec
869: );
870: --- If any errors happen abort API
871: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
872: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
873: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
874: RAISE FND_API.G_EXC_ERROR;
875: END IF;
876: l_return_status := populate_new_record(l_def_contractbilling_rec, l_def_contractbilling_rec);
869: );
870: --- If any errors happen abort API
871: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
872: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
873: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
874: RAISE FND_API.G_EXC_ERROR;
875: END IF;
876: l_return_status := populate_new_record(l_def_contractbilling_rec, l_def_contractbilling_rec);
877: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
870: --- If any errors happen abort API
871: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
872: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
873: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
874: RAISE FND_API.G_EXC_ERROR;
875: END IF;
876: l_return_status := populate_new_record(l_def_contractbilling_rec, l_def_contractbilling_rec);
877: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
878: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
873: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
874: RAISE FND_API.G_EXC_ERROR;
875: END IF;
876: l_return_status := populate_new_record(l_def_contractbilling_rec, l_def_contractbilling_rec);
877: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
878: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
879: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
880: RAISE FND_API.G_EXC_ERROR;
881: END IF;
874: RAISE FND_API.G_EXC_ERROR;
875: END IF;
876: l_return_status := populate_new_record(l_def_contractbilling_rec, l_def_contractbilling_rec);
877: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
878: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
879: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
880: RAISE FND_API.G_EXC_ERROR;
881: END IF;
882: --- Validate all non-missing attributes (Item Level Validation)
875: END IF;
876: l_return_status := populate_new_record(l_def_contractbilling_rec, l_def_contractbilling_rec);
877: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
878: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
879: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
880: RAISE FND_API.G_EXC_ERROR;
881: END IF;
882: --- Validate all non-missing attributes (Item Level Validation)
883: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
876: l_return_status := populate_new_record(l_def_contractbilling_rec, l_def_contractbilling_rec);
877: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
878: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
879: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
880: RAISE FND_API.G_EXC_ERROR;
881: END IF;
882: --- Validate all non-missing attributes (Item Level Validation)
883: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
884: l_return_status := Validate_Item_Attributes
879: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
880: RAISE FND_API.G_EXC_ERROR;
881: END IF;
882: --- Validate all non-missing attributes (Item Level Validation)
883: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
884: l_return_status := Validate_Item_Attributes
885: (
886: l_def_contractbilling_rec ---- IN
887: );
885: (
886: l_def_contractbilling_rec ---- IN
887: );
888: --- If any errors happen abort API
889: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
890: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
891: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
892: RAISE FND_API.G_EXC_ERROR;
893: END IF;
886: l_def_contractbilling_rec ---- IN
887: );
888: --- If any errors happen abort API
889: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
890: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
891: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
892: RAISE FND_API.G_EXC_ERROR;
893: END IF;
894: END IF;
887: );
888: --- If any errors happen abort API
889: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
890: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
891: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
892: RAISE FND_API.G_EXC_ERROR;
893: END IF;
894: END IF;
895: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
888: --- If any errors happen abort API
889: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
890: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
891: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
892: RAISE FND_API.G_EXC_ERROR;
893: END IF;
894: END IF;
895: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
896: l_return_status := Validate_Item_Record(l_def_contractbilling_rec);
891: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
892: RAISE FND_API.G_EXC_ERROR;
893: END IF;
894: END IF;
895: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
896: l_return_status := Validate_Item_Record(l_def_contractbilling_rec);
897: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
898: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
899: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
893: END IF;
894: END IF;
895: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
896: l_return_status := Validate_Item_Record(l_def_contractbilling_rec);
897: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
898: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
899: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
900: RAISE FND_API.G_EXC_ERROR;
901: END IF;
894: END IF;
895: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
896: l_return_status := Validate_Item_Record(l_def_contractbilling_rec);
897: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
898: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
899: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
900: RAISE FND_API.G_EXC_ERROR;
901: END IF;
902: END IF;
895: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
896: l_return_status := Validate_Item_Record(l_def_contractbilling_rec);
897: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
898: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
899: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
900: RAISE FND_API.G_EXC_ERROR;
901: END IF;
902: END IF;
903: UPDATE CS_CONTRACTS_BILLING
896: l_return_status := Validate_Item_Record(l_def_contractbilling_rec);
897: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
898: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
899: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
900: RAISE FND_API.G_EXC_ERROR;
901: END IF;
902: END IF;
903: UPDATE CS_CONTRACTS_BILLING
904: SET
943: ;
944: x_object_version_number := l_def_contractbilling_rec.OBJECT_VERSION_NUMBER;
945: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
946: EXCEPTION
947: WHEN FND_API.G_EXC_ERROR THEN
948: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
949: (
950: l_api_name,
951: G_PKG_NAME,
948: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
949: (
950: l_api_name,
951: G_PKG_NAME,
952: 'FND_API.G_RET_STS_ERROR',
953: x_msg_count,
954: x_msg_data,
955: '_Pvt'
956: );
954: x_msg_data,
955: '_Pvt'
956: );
957: APP_EXCEPTION.RAISE_EXCEPTION;
958: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
959: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
960: (
961: l_api_name,
962: G_PKG_NAME,
959: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
960: (
961: l_api_name,
962: G_PKG_NAME,
963: 'FND_API.G_RET_STS_UNEXP_ERROR',
964: x_msg_count,
965: x_msg_data,
966: '_Pvt'
967: );
1025: p_object_version_number IN NUMBER := TAPI_DEV_KIT.G_MISS_NUM,
1026: x_object_version_number OUT NUMBER) IS
1027: l_api_name CONSTANT VARCHAR2(30) := 'update_row';
1028: l_api_version CONSTANT NUMBER := 1;
1029: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1030: l_contractbilling_rec ContractBilling_Val_Rec_Type;
1031: BEGIN
1032: l_return_status := TAPI_DEV_KIT.START_ACTIVITY(l_api_name,
1033: G_PKG_NAME,
1035: p_api_version,
1036: p_init_msg_list,
1037: '_Pvt',
1038: x_return_status);
1039: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1040: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1041: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1042: RAISE FND_API.G_EXC_ERROR;
1043: END IF;
1036: p_init_msg_list,
1037: '_Pvt',
1038: x_return_status);
1039: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1040: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1041: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1042: RAISE FND_API.G_EXC_ERROR;
1043: END IF;
1044: l_contractbilling_rec.CONTRACT_BILLING_ID := p_contract_billing_id;
1037: '_Pvt',
1038: x_return_status);
1039: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1040: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1041: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1042: RAISE FND_API.G_EXC_ERROR;
1043: END IF;
1044: l_contractbilling_rec.CONTRACT_BILLING_ID := p_contract_billing_id;
1045: l_contractbilling_rec.HEADER_ID := p_header_id;
1038: x_return_status);
1039: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1040: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1041: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1042: RAISE FND_API.G_EXC_ERROR;
1043: END IF;
1044: l_contractbilling_rec.CONTRACT_BILLING_ID := p_contract_billing_id;
1045: l_contractbilling_rec.HEADER_ID := p_header_id;
1046: l_contractbilling_rec.ORDER_NUMBER := p_order_number;
1089: x_object_version_number
1090: );
1091: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
1092: EXCEPTION
1093: WHEN FND_API.G_EXC_ERROR THEN
1094: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1095: (
1096: l_api_name,
1097: G_PKG_NAME,
1094: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1095: (
1096: l_api_name,
1097: G_PKG_NAME,
1098: 'FND_API.G_RET_STS_ERROR',
1099: x_msg_count,
1100: x_msg_data,
1101: '_Pvt'
1102: );
1100: x_msg_data,
1101: '_Pvt'
1102: );
1103: APP_EXCEPTION.RAISE_EXCEPTION;
1104: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1105: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1106: (
1107: l_api_name,
1108: G_PKG_NAME,
1105: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1106: (
1107: l_api_name,
1108: G_PKG_NAME,
1109: 'FND_API.G_RET_STS_UNEXP_ERROR',
1110: x_msg_count,
1111: x_msg_data,
1112: '_Pvt'
1113: );
1135: x_msg_data OUT VARCHAR2,
1136: p_contract_billing_id IN NUMBER) IS
1137: l_api_name CONSTANT VARCHAR2(30) := 'delete_row';
1138: l_api_version CONSTANT NUMBER := 1;
1139: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1140: BEGIN
1141: l_return_status := TAPI_DEV_KIT.START_ACTIVITY(l_api_name,
1142: G_PKG_NAME,
1143: l_api_version,
1144: p_api_version,
1145: p_init_msg_list,
1146: '_Pvt',
1147: x_return_status);
1148: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1149: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1150: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1151: RAISE FND_API.G_EXC_ERROR;
1152: END IF;
1145: p_init_msg_list,
1146: '_Pvt',
1147: x_return_status);
1148: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1149: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1150: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1151: RAISE FND_API.G_EXC_ERROR;
1152: END IF;
1153: DELETE FROM CS_CONTRACTS_BILLING
1146: '_Pvt',
1147: x_return_status);
1148: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1149: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1150: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1151: RAISE FND_API.G_EXC_ERROR;
1152: END IF;
1153: DELETE FROM CS_CONTRACTS_BILLING
1154: WHERE
1147: x_return_status);
1148: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1149: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1150: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1151: RAISE FND_API.G_EXC_ERROR;
1152: END IF;
1153: DELETE FROM CS_CONTRACTS_BILLING
1154: WHERE
1155: CONTRACT_BILLING_ID = p_contract_billing_id
1155: CONTRACT_BILLING_ID = p_contract_billing_id
1156: ;
1157: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
1158: EXCEPTION
1159: WHEN FND_API.G_EXC_ERROR THEN
1160: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1161: (
1162: l_api_name,
1163: G_PKG_NAME,
1160: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1161: (
1162: l_api_name,
1163: G_PKG_NAME,
1164: 'FND_API.G_RET_STS_ERROR',
1165: x_msg_count,
1166: x_msg_data,
1167: '_Pvt'
1168: );
1166: x_msg_data,
1167: '_Pvt'
1168: );
1169: APP_EXCEPTION.RAISE_EXCEPTION;
1170: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1171: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1172: (
1173: l_api_name,
1174: G_PKG_NAME,
1171: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1172: (
1173: l_api_name,
1174: G_PKG_NAME,
1175: 'FND_API.G_RET_STS_UNEXP_ERROR',
1176: x_msg_count,
1177: x_msg_data,
1178: '_Pvt'
1179: );
1201: x_msg_data OUT VARCHAR2,
1202: p_contractbilling_val_rec IN ContractBilling_Val_Rec_Type := G_MISS_CONTRACTBILLING_VAL_REC) IS
1203: l_api_name CONSTANT VARCHAR2(30) := 'validate_row';
1204: l_api_version CONSTANT NUMBER := 1;
1205: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1206: l_contractbilling_rec ContractBilling_Rec_Type;
1207: l_def_contractbilling_rec ContractBilling_Rec_Type;
1208: BEGIN
1209: l_return_status := TAPI_DEV_KIT.START_ACTIVITY(l_api_name,
1212: p_api_version,
1213: p_init_msg_list,
1214: '_Pvt',
1215: x_return_status);
1216: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1217: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1218: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1219: RAISE FND_API.G_EXC_ERROR;
1220: END IF;
1213: p_init_msg_list,
1214: '_Pvt',
1215: x_return_status);
1216: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1217: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1218: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1219: RAISE FND_API.G_EXC_ERROR;
1220: END IF;
1221: migrate(p_contractbilling_val_rec, l_contractbilling_rec);
1214: '_Pvt',
1215: x_return_status);
1216: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1217: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1218: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1219: RAISE FND_API.G_EXC_ERROR;
1220: END IF;
1221: migrate(p_contractbilling_val_rec, l_contractbilling_rec);
1222: --- Validate all non-missing attributes (Item Level Validation)
1215: x_return_status);
1216: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1217: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1218: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1219: RAISE FND_API.G_EXC_ERROR;
1220: END IF;
1221: migrate(p_contractbilling_val_rec, l_contractbilling_rec);
1222: --- Validate all non-missing attributes (Item Level Validation)
1223: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
1219: RAISE FND_API.G_EXC_ERROR;
1220: END IF;
1221: migrate(p_contractbilling_val_rec, l_contractbilling_rec);
1222: --- Validate all non-missing attributes (Item Level Validation)
1223: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
1224: l_return_status := Validate_Item_Attributes
1225: (
1226: l_contractbilling_rec ---- IN
1227: );
1225: (
1226: l_contractbilling_rec ---- IN
1227: );
1228: --- If any errors happen abort API
1229: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1230: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1231: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1232: RAISE FND_API.G_EXC_ERROR;
1233: END IF;
1226: l_contractbilling_rec ---- IN
1227: );
1228: --- If any errors happen abort API
1229: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1230: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1231: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1232: RAISE FND_API.G_EXC_ERROR;
1233: END IF;
1234: END IF;
1227: );
1228: --- If any errors happen abort API
1229: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1230: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1231: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1232: RAISE FND_API.G_EXC_ERROR;
1233: END IF;
1234: END IF;
1235: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1228: --- If any errors happen abort API
1229: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1230: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1231: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1232: RAISE FND_API.G_EXC_ERROR;
1233: END IF;
1234: END IF;
1235: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1236: l_return_status := Validate_Item_Record(l_def_contractbilling_rec);
1231: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1232: RAISE FND_API.G_EXC_ERROR;
1233: END IF;
1234: END IF;
1235: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1236: l_return_status := Validate_Item_Record(l_def_contractbilling_rec);
1237: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1238: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1239: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1233: END IF;
1234: END IF;
1235: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1236: l_return_status := Validate_Item_Record(l_def_contractbilling_rec);
1237: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1238: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1239: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1240: RAISE FND_API.G_EXC_ERROR;
1241: END IF;
1234: END IF;
1235: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1236: l_return_status := Validate_Item_Record(l_def_contractbilling_rec);
1237: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1238: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1239: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1240: RAISE FND_API.G_EXC_ERROR;
1241: END IF;
1242: END IF;
1235: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1236: l_return_status := Validate_Item_Record(l_def_contractbilling_rec);
1237: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1238: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1239: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1240: RAISE FND_API.G_EXC_ERROR;
1241: END IF;
1242: END IF;
1243: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
1236: l_return_status := Validate_Item_Record(l_def_contractbilling_rec);
1237: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1238: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1239: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1240: RAISE FND_API.G_EXC_ERROR;
1241: END IF;
1242: END IF;
1243: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
1244: EXCEPTION
1241: END IF;
1242: END IF;
1243: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
1244: EXCEPTION
1245: WHEN FND_API.G_EXC_ERROR THEN
1246: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1247: (
1248: l_api_name,
1249: G_PKG_NAME,
1246: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1247: (
1248: l_api_name,
1249: G_PKG_NAME,
1250: 'FND_API.G_RET_STS_ERROR',
1251: x_msg_count,
1252: x_msg_data,
1253: '_Pvt'
1254: );
1252: x_msg_data,
1253: '_Pvt'
1254: );
1255: APP_EXCEPTION.RAISE_EXCEPTION;
1256: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1257: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1258: (
1259: l_api_name,
1260: G_PKG_NAME,
1257: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1258: (
1259: l_api_name,
1260: G_PKG_NAME,
1261: 'FND_API.G_RET_STS_UNEXP_ERROR',
1262: x_msg_count,
1263: x_msg_data,
1264: '_Pvt'
1265: );
1322: p_context IN CS_CONTRACTS_BILLING.CONTEXT%TYPE := TAPI_DEV_KIT.G_MISS_CHAR,
1323: p_object_version_number IN NUMBER := TAPI_DEV_KIT.G_MISS_NUM) IS
1324: l_api_name CONSTANT VARCHAR2(30) := 'validate_row';
1325: l_api_version CONSTANT NUMBER := 1;
1326: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1327: l_contractbilling_rec ContractBilling_Val_Rec_Type;
1328: BEGIN
1329: l_return_status := TAPI_DEV_KIT.START_ACTIVITY(l_api_name,
1330: G_PKG_NAME,
1332: p_api_version,
1333: p_init_msg_list,
1334: '_Pvt',
1335: x_return_status);
1336: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1337: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1338: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1339: RAISE FND_API.G_EXC_ERROR;
1340: END IF;
1333: p_init_msg_list,
1334: '_Pvt',
1335: x_return_status);
1336: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1337: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1338: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1339: RAISE FND_API.G_EXC_ERROR;
1340: END IF;
1341: l_contractbilling_rec.CONTRACT_BILLING_ID := p_contract_billing_id;
1334: '_Pvt',
1335: x_return_status);
1336: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1337: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1338: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1339: RAISE FND_API.G_EXC_ERROR;
1340: END IF;
1341: l_contractbilling_rec.CONTRACT_BILLING_ID := p_contract_billing_id;
1342: l_contractbilling_rec.HEADER_ID := p_header_id;
1335: x_return_status);
1336: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1337: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1338: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1339: RAISE FND_API.G_EXC_ERROR;
1340: END IF;
1341: l_contractbilling_rec.CONTRACT_BILLING_ID := p_contract_billing_id;
1342: l_contractbilling_rec.HEADER_ID := p_header_id;
1343: l_contractbilling_rec.ORDER_NUMBER := p_order_number;
1385: l_contractbilling_rec
1386: );
1387: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
1388: EXCEPTION
1389: WHEN FND_API.G_EXC_ERROR THEN
1390: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1391: (
1392: l_api_name,
1393: G_PKG_NAME,
1390: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1391: (
1392: l_api_name,
1393: G_PKG_NAME,
1394: 'FND_API.G_RET_STS_ERROR',
1395: x_msg_count,
1396: x_msg_data,
1397: '_Pvt'
1398: );
1396: x_msg_data,
1397: '_Pvt'
1398: );
1399: APP_EXCEPTION.RAISE_EXCEPTION;
1400: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1401: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1402: (
1403: l_api_name,
1404: G_PKG_NAME,
1401: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1402: (
1403: l_api_name,
1404: G_PKG_NAME,
1405: 'FND_API.G_RET_STS_UNEXP_ERROR',
1406: x_msg_count,
1407: x_msg_data,
1408: '_Pvt'
1409: );