18: p_service_rec IN Service_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_service_rec.contract_line_status_id = TAPI_DEV_KIT.G_MISS_NUM OR
25: p_service_rec.contract_line_status_id IS NULL
26: THEN
24: IF p_service_rec.contract_line_status_id = TAPI_DEV_KIT.G_MISS_NUM OR
25: p_service_rec.contract_line_status_id IS NULL
26: THEN
27: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'contract_line_status_id');
28: l_return_status := FND_API.G_RET_STS_ERROR;
29: ELSIF p_service_rec.service_inventory_item_id = TAPI_DEV_KIT.G_MISS_NUM OR
30: p_service_rec.service_inventory_item_id IS NULL
31: THEN
32: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'service_inventory_item_id');
29: ELSIF p_service_rec.service_inventory_item_id = TAPI_DEV_KIT.G_MISS_NUM OR
30: p_service_rec.service_inventory_item_id IS NULL
31: THEN
32: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'service_inventory_item_id');
33: l_return_status := FND_API.G_RET_STS_ERROR;
34: ELSIF p_service_rec.service_manufacturing_org_id = TAPI_DEV_KIT.G_MISS_NUM OR
35: p_service_rec.service_manufacturing_org_id IS NULL
36: THEN
37: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'service_manufacturing_org_id');
34: ELSIF p_service_rec.service_manufacturing_org_id = TAPI_DEV_KIT.G_MISS_NUM OR
35: p_service_rec.service_manufacturing_org_id IS NULL
36: THEN
37: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'service_manufacturing_org_id');
38: l_return_status := FND_API.G_RET_STS_ERROR;
39: ELSIF p_service_rec.creation_date = TAPI_DEV_KIT.G_MISS_DATE OR
40: p_service_rec.creation_date IS NULL
41: THEN
42: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'creation_date');
39: ELSIF p_service_rec.creation_date = TAPI_DEV_KIT.G_MISS_DATE OR
40: p_service_rec.creation_date IS NULL
41: THEN
42: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'creation_date');
43: l_return_status := FND_API.G_RET_STS_ERROR;
44: ELSIF p_service_rec.created_by = TAPI_DEV_KIT.G_MISS_NUM OR
45: p_service_rec.created_by IS NULL
46: THEN
47: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'created_by');
44: ELSIF p_service_rec.created_by = TAPI_DEV_KIT.G_MISS_NUM OR
45: p_service_rec.created_by IS NULL
46: THEN
47: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'created_by');
48: l_return_status := FND_API.G_RET_STS_ERROR;
49: ELSIF p_service_rec.last_update_date = TAPI_DEV_KIT.G_MISS_DATE OR
50: p_service_rec.last_update_date IS NULL
51: THEN
52: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'last_update_date');
49: ELSIF p_service_rec.last_update_date = TAPI_DEV_KIT.G_MISS_DATE OR
50: p_service_rec.last_update_date IS NULL
51: THEN
52: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'last_update_date');
53: l_return_status := FND_API.G_RET_STS_ERROR;
54: ELSIF p_service_rec.last_updated_by = TAPI_DEV_KIT.G_MISS_NUM OR
55: p_service_rec.last_updated_by IS NULL
56: THEN
57: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'last_updated_by');
54: ELSIF p_service_rec.last_updated_by = TAPI_DEV_KIT.G_MISS_NUM OR
55: p_service_rec.last_updated_by IS NULL
56: THEN
57: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'last_updated_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_service_rec OUT Service_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_service_rec := p_service_rec;
75: RETURN(l_return_status);
76: End Default_Item_attributes;
79: FUNCTION Validate_Item_Record (
80: p_service_rec IN Service_Rec_Type
81: )
82: RETURN VARCHAR2 IS
83: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
84: FUNCTION validate_foreign_keys (
85: p_service_rec IN Service_Rec_Type
86: )
87: RETURN VARCHAR2 IS
105: SELECT *
106: FROM Cs_Contracts_All
107: WHERE cs_contracts_all.contract_id = p_contract_id;
108: l_cs_contracts_all_pk cs_contracts_all_pk_csr%ROWTYPE;
109: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
110: l_row_notfound BOOLEAN := TRUE;
111: BEGIN
112: IF (p_service_rec.CONTRACT_LINE_STATUS_ID IS NOT NULL)
113: THEN
155: END IF;
156: RETURN (l_return_status);
157: EXCEPTION
158: WHEN item_not_found_error THEN
159: l_return_status := FND_API.G_RET_STS_ERROR;
160: RETURN (l_return_status);
161: END validate_foreign_keys;
162: BEGIN
163: l_return_status := validate_foreign_keys (p_service_rec);
365: p_service_rec IN Service_Rec_Type := G_MISS_SERVICE_REC,
366: x_cp_service_id OUT NUMBER) IS
367: l_api_name CONSTANT VARCHAR2(30) := 'insert_row';
368: l_api_version CONSTANT NUMBER := 1;
369: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
370: l_service_rec Service_Rec_Type;
371: l_def_service_rec Service_Rec_Type;
372: BEGIN
373: l_return_status := TAPI_DEV_KIT.START_ACTIVITY(l_api_name,
376: p_api_version,
377: p_init_msg_list,
378: '_Pvt',
379: x_return_status);
380: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
381: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
382: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
383: RAISE FND_API.G_EXC_ERROR;
384: END IF;
377: p_init_msg_list,
378: '_Pvt',
379: x_return_status);
380: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
381: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
382: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
383: RAISE FND_API.G_EXC_ERROR;
384: END IF;
385: l_service_rec := p_service_rec;
378: '_Pvt',
379: x_return_status);
380: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
381: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
382: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
383: RAISE FND_API.G_EXC_ERROR;
384: END IF;
385: l_service_rec := p_service_rec;
386: --- Validate all non-missing attributes (Item Level Validation)
379: x_return_status);
380: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
381: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
382: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
383: RAISE FND_API.G_EXC_ERROR;
384: END IF;
385: l_service_rec := p_service_rec;
386: --- Validate all non-missing attributes (Item Level Validation)
387: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
383: RAISE FND_API.G_EXC_ERROR;
384: END IF;
385: l_service_rec := p_service_rec;
386: --- Validate all non-missing attributes (Item Level Validation)
387: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
388: l_return_status := Validate_Item_Attributes
389: (
390: l_service_rec ---- IN
391: );
389: (
390: l_service_rec ---- IN
391: );
392: --- If any errors happen abort API
393: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
394: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
395: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
396: RAISE FND_API.G_EXC_ERROR;
397: END IF;
390: l_service_rec ---- IN
391: );
392: --- If any errors happen abort API
393: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
394: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
395: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
396: RAISE FND_API.G_EXC_ERROR;
397: END IF;
398: END IF;
391: );
392: --- If any errors happen abort API
393: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
394: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
395: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
396: RAISE FND_API.G_EXC_ERROR;
397: END IF;
398: END IF;
399: --- Defaulting item attributes
392: --- If any errors happen abort API
393: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
394: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
395: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
396: RAISE FND_API.G_EXC_ERROR;
397: END IF;
398: END IF;
399: --- Defaulting item attributes
400: l_return_status := Default_Item_Attributes
402: l_service_rec, ---- IN
403: l_def_service_rec
404: );
405: --- If any errors happen abort API
406: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
407: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
408: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
409: RAISE FND_API.G_EXC_ERROR;
410: END IF;
403: l_def_service_rec
404: );
405: --- If any errors happen abort API
406: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
407: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
408: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
409: RAISE FND_API.G_EXC_ERROR;
410: END IF;
411: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
404: );
405: --- If any errors happen abort API
406: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
407: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
408: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
409: RAISE FND_API.G_EXC_ERROR;
410: END IF;
411: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
412: l_return_status := Validate_Item_Record(l_def_service_rec);
405: --- If any errors happen abort API
406: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
407: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
408: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
409: RAISE FND_API.G_EXC_ERROR;
410: END IF;
411: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
412: l_return_status := Validate_Item_Record(l_def_service_rec);
413: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
407: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
408: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
409: RAISE FND_API.G_EXC_ERROR;
410: END IF;
411: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
412: l_return_status := Validate_Item_Record(l_def_service_rec);
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
409: RAISE FND_API.G_EXC_ERROR;
410: END IF;
411: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
412: l_return_status := Validate_Item_Record(l_def_service_rec);
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: END IF;
411: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
412: l_return_status := Validate_Item_Record(l_def_service_rec);
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: END IF;
411: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
412: l_return_status := Validate_Item_Record(l_def_service_rec);
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: END IF;
419: -- Set primary key value
412: l_return_status := Validate_Item_Record(l_def_service_rec);
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: END IF;
419: -- Set primary key value
420: l_def_service_rec.cp_service_id := get_seq_id;
599: -- Set OUT values
600: x_cp_service_id := l_def_service_rec.cp_service_id;
601: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
602: EXCEPTION
603: WHEN FND_API.G_EXC_ERROR THEN
604: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
605: (
606: l_api_name,
607: G_PKG_NAME,
604: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
605: (
606: l_api_name,
607: G_PKG_NAME,
608: 'FND_API.G_RET_STS_ERROR',
609: x_msg_count,
610: x_msg_data,
611: '_Pvt'
612: );
610: x_msg_data,
611: '_Pvt'
612: );
613: APP_EXCEPTION.RAISE_EXCEPTION;
614: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
615: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
616: (
617: l_api_name,
618: G_PKG_NAME,
615: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
616: (
617: l_api_name,
618: G_PKG_NAME,
619: 'FND_API.G_RET_STS_UNEXP_ERROR',
620: x_msg_count,
621: x_msg_data,
622: '_Pvt'
623: );
732: p_price_percent IN NUMBER := NULL,
733: x_cp_service_id OUT NUMBER) IS
734: l_api_name CONSTANT VARCHAR2(30) := 'insert_row';
735: l_api_version CONSTANT NUMBER := 1;
736: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
737: l_service_rec Service_Rec_Type;
738: BEGIN
739: l_return_status := TAPI_DEV_KIT.START_ACTIVITY(l_api_name,
740: G_PKG_NAME,
742: p_api_version,
743: p_init_msg_list,
744: '_Pvt',
745: x_return_status);
746: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
747: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
748: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
749: RAISE FND_API.G_EXC_ERROR;
750: END IF;
743: p_init_msg_list,
744: '_Pvt',
745: x_return_status);
746: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
747: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
748: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
749: RAISE FND_API.G_EXC_ERROR;
750: END IF;
751: l_service_rec.CUSTOMER_PRODUCT_ID := p_customer_product_id;
744: '_Pvt',
745: x_return_status);
746: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
747: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
748: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
749: RAISE FND_API.G_EXC_ERROR;
750: END IF;
751: l_service_rec.CUSTOMER_PRODUCT_ID := p_customer_product_id;
752: l_service_rec.CONTRACT_LINE_STATUS_ID := p_contract_line_status_id;
745: x_return_status);
746: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
747: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
748: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
749: RAISE FND_API.G_EXC_ERROR;
750: END IF;
751: l_service_rec.CUSTOMER_PRODUCT_ID := p_customer_product_id;
752: l_service_rec.CONTRACT_LINE_STATUS_ID := p_contract_line_status_id;
753: l_service_rec.CONTRACT_LINE_TEMPLATE_ID := p_contract_line_template_id;
847: x_cp_service_id
848: );
849: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
850: EXCEPTION
851: WHEN FND_API.G_EXC_ERROR THEN
852: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
853: (
854: l_api_name,
855: G_PKG_NAME,
852: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
853: (
854: l_api_name,
855: G_PKG_NAME,
856: 'FND_API.G_RET_STS_ERROR',
857: x_msg_count,
858: x_msg_data,
859: '_Pvt'
860: );
858: x_msg_data,
859: '_Pvt'
860: );
861: APP_EXCEPTION.RAISE_EXCEPTION;
862: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
863: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
864: (
865: l_api_name,
866: G_PKG_NAME,
863: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
864: (
865: l_api_name,
866: G_PKG_NAME,
867: 'FND_API.G_RET_STS_UNEXP_ERROR',
868: x_msg_count,
869: x_msg_data,
870: '_Pvt'
871: );
989: FOR UPDATE NOWAIT;
990:
991: l_api_name CONSTANT VARCHAR2(30) := 'lock_row';
992: l_api_version CONSTANT NUMBER := 1;
993: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
994: l_object_version_number lock_csr%ROWTYPE;
995: l_row_notfound BOOLEAN := FALSE;
996: lc_row_notfound BOOLEAN := FALSE;
997: BEGIN
1001: p_api_version,
1002: p_init_msg_list,
1003: '_Pvt',
1004: x_return_status);
1005: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1006: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1007: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1008: RAISE FND_API.G_EXC_ERROR;
1009: END IF;
1002: p_init_msg_list,
1003: '_Pvt',
1004: x_return_status);
1005: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1006: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1007: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1008: RAISE FND_API.G_EXC_ERROR;
1009: END IF;
1010: BEGIN
1003: '_Pvt',
1004: x_return_status);
1005: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1006: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1007: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1008: RAISE FND_API.G_EXC_ERROR;
1009: END IF;
1010: BEGIN
1011: OPEN lock_csr;
1004: x_return_status);
1005: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1006: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1007: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1008: RAISE FND_API.G_EXC_ERROR;
1009: END IF;
1010: BEGIN
1011: OPEN lock_csr;
1012: FETCH lock_csr INTO l_object_version_number;
1022: END;
1023:
1024: IF ( l_row_notfound ) THEN
1025: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1026: RAISE FND_API.G_EXC_ERROR;
1027: ELSE
1028: IF (l_object_version_number.CP_SERVICE_ID <> p_cp_service_id) THEN
1029: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1030: RAISE FND_API.G_EXC_ERROR;
1026: RAISE FND_API.G_EXC_ERROR;
1027: ELSE
1028: IF (l_object_version_number.CP_SERVICE_ID <> p_cp_service_id) THEN
1029: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1030: RAISE FND_API.G_EXC_ERROR;
1031: END IF;
1032: IF (l_object_version_number.CUSTOMER_PRODUCT_ID <> p_customer_product_id) THEN
1033: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1034: RAISE FND_API.G_EXC_ERROR;
1030: RAISE FND_API.G_EXC_ERROR;
1031: END IF;
1032: IF (l_object_version_number.CUSTOMER_PRODUCT_ID <> p_customer_product_id) THEN
1033: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1034: RAISE FND_API.G_EXC_ERROR;
1035: END IF;
1036: IF (l_object_version_number.CONTRACT_LINE_STATUS_ID <> p_contract_line_status_id) THEN
1037: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1038: RAISE FND_API.G_EXC_ERROR;
1034: RAISE FND_API.G_EXC_ERROR;
1035: END IF;
1036: IF (l_object_version_number.CONTRACT_LINE_STATUS_ID <> p_contract_line_status_id) THEN
1037: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1038: RAISE FND_API.G_EXC_ERROR;
1039: END IF;
1040: IF (l_object_version_number.CONTRACT_LINE_TEMPLATE_ID <> p_contract_line_template_id) THEN
1041: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1042: RAISE FND_API.G_EXC_ERROR;
1038: RAISE FND_API.G_EXC_ERROR;
1039: END IF;
1040: IF (l_object_version_number.CONTRACT_LINE_TEMPLATE_ID <> p_contract_line_template_id) THEN
1041: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1042: RAISE FND_API.G_EXC_ERROR;
1043: END IF;
1044: IF (l_object_version_number.CONTRACT_ID <> p_contract_id) THEN
1045: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1046: RAISE FND_API.G_EXC_ERROR;
1042: RAISE FND_API.G_EXC_ERROR;
1043: END IF;
1044: IF (l_object_version_number.CONTRACT_ID <> p_contract_id) THEN
1045: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1046: RAISE FND_API.G_EXC_ERROR;
1047: END IF;
1048: IF (l_object_version_number.SERVICE_INVENTORY_ITEM_ID <> p_service_inventory_item_id) THEN
1049: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1050: RAISE FND_API.G_EXC_ERROR;
1046: RAISE FND_API.G_EXC_ERROR;
1047: END IF;
1048: IF (l_object_version_number.SERVICE_INVENTORY_ITEM_ID <> p_service_inventory_item_id) THEN
1049: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1050: RAISE FND_API.G_EXC_ERROR;
1051: END IF;
1052: IF (l_object_version_number.SERVICE_MANUFACTURING_ORG_ID <> p_service_manufacturing_org_id) THEN
1053: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1054: RAISE FND_API.G_EXC_ERROR;
1050: RAISE FND_API.G_EXC_ERROR;
1051: END IF;
1052: IF (l_object_version_number.SERVICE_MANUFACTURING_ORG_ID <> p_service_manufacturing_org_id) THEN
1053: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1054: RAISE FND_API.G_EXC_ERROR;
1055: END IF;
1056: IF (l_object_version_number.STATUS_CODE <> p_status_code) THEN
1057: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1058: RAISE FND_API.G_EXC_ERROR;
1054: RAISE FND_API.G_EXC_ERROR;
1055: END IF;
1056: IF (l_object_version_number.STATUS_CODE <> p_status_code) THEN
1057: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1058: RAISE FND_API.G_EXC_ERROR;
1059: END IF;
1060: IF (l_object_version_number.LAST_CP_SERVICE_TRANSACTION_ID <> p_lst_cp_srvic_trnsctin_id) THEN
1061: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1062: RAISE FND_API.G_EXC_ERROR;
1058: RAISE FND_API.G_EXC_ERROR;
1059: END IF;
1060: IF (l_object_version_number.LAST_CP_SERVICE_TRANSACTION_ID <> p_lst_cp_srvic_trnsctin_id) THEN
1061: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1062: RAISE FND_API.G_EXC_ERROR;
1063: END IF;
1064: IF (l_object_version_number.INVOICE_FLAG <> p_invoice_flag) THEN
1065: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1066: RAISE FND_API.G_EXC_ERROR;
1062: RAISE FND_API.G_EXC_ERROR;
1063: END IF;
1064: IF (l_object_version_number.INVOICE_FLAG <> p_invoice_flag) THEN
1065: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1066: RAISE FND_API.G_EXC_ERROR;
1067: END IF;
1068: IF (l_object_version_number.COVERAGE_SCHEDULE_ID <> p_coverage_schedule_id) THEN
1069: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1070: RAISE FND_API.G_EXC_ERROR;
1066: RAISE FND_API.G_EXC_ERROR;
1067: END IF;
1068: IF (l_object_version_number.COVERAGE_SCHEDULE_ID <> p_coverage_schedule_id) THEN
1069: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1070: RAISE FND_API.G_EXC_ERROR;
1071: END IF;
1072: IF (l_object_version_number.PRORATE_FLAG <> p_prorate_flag) THEN
1073: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1074: RAISE FND_API.G_EXC_ERROR;
1070: RAISE FND_API.G_EXC_ERROR;
1071: END IF;
1072: IF (l_object_version_number.PRORATE_FLAG <> p_prorate_flag) THEN
1073: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1074: RAISE FND_API.G_EXC_ERROR;
1075: END IF;
1076: IF (l_object_version_number.DURATION_QUANTITY <> p_duration_quantity) THEN
1077: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1078: RAISE FND_API.G_EXC_ERROR;
1074: RAISE FND_API.G_EXC_ERROR;
1075: END IF;
1076: IF (l_object_version_number.DURATION_QUANTITY <> p_duration_quantity) THEN
1077: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1078: RAISE FND_API.G_EXC_ERROR;
1079: END IF;
1080: IF (l_object_version_number.UNIT_OF_MEASURE_CODE <> p_unit_of_measure_code) THEN
1081: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1082: RAISE FND_API.G_EXC_ERROR;
1078: RAISE FND_API.G_EXC_ERROR;
1079: END IF;
1080: IF (l_object_version_number.UNIT_OF_MEASURE_CODE <> p_unit_of_measure_code) THEN
1081: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1082: RAISE FND_API.G_EXC_ERROR;
1083: END IF;
1084: IF (l_object_version_number.STARTING_DELAY <> p_starting_delay) THEN
1085: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1086: RAISE FND_API.G_EXC_ERROR;
1082: RAISE FND_API.G_EXC_ERROR;
1083: END IF;
1084: IF (l_object_version_number.STARTING_DELAY <> p_starting_delay) THEN
1085: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1086: RAISE FND_API.G_EXC_ERROR;
1087: END IF;
1088: IF (l_object_version_number.BILL_TO_SITE_USE_ID <> p_bill_to_site_use_id) THEN
1089: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1090: RAISE FND_API.G_EXC_ERROR;
1086: RAISE FND_API.G_EXC_ERROR;
1087: END IF;
1088: IF (l_object_version_number.BILL_TO_SITE_USE_ID <> p_bill_to_site_use_id) THEN
1089: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1090: RAISE FND_API.G_EXC_ERROR;
1091: END IF;
1092: IF (l_object_version_number.BILL_TO_CONTACT_ID <> p_bill_to_contact_id) THEN
1093: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1094: RAISE FND_API.G_EXC_ERROR;
1090: RAISE FND_API.G_EXC_ERROR;
1091: END IF;
1092: IF (l_object_version_number.BILL_TO_CONTACT_ID <> p_bill_to_contact_id) THEN
1093: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1094: RAISE FND_API.G_EXC_ERROR;
1095: END IF;
1096: IF (l_object_version_number.SERVICE_TXN_AVAILABILITY_CODE <> p_srvic_txn_vilbility_cd) THEN
1097: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1098: RAISE FND_API.G_EXC_ERROR;
1094: RAISE FND_API.G_EXC_ERROR;
1095: END IF;
1096: IF (l_object_version_number.SERVICE_TXN_AVAILABILITY_CODE <> p_srvic_txn_vilbility_cd) THEN
1097: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1098: RAISE FND_API.G_EXC_ERROR;
1099: END IF;
1100: IF (l_object_version_number.NEXT_PM_VISIT_DATE <> p_next_pm_visit_date) THEN
1101: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1102: RAISE FND_API.G_EXC_ERROR;
1098: RAISE FND_API.G_EXC_ERROR;
1099: END IF;
1100: IF (l_object_version_number.NEXT_PM_VISIT_DATE <> p_next_pm_visit_date) THEN
1101: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1102: RAISE FND_API.G_EXC_ERROR;
1103: END IF;
1104: IF (l_object_version_number.PM_VISITS_COMPLETED <> p_pm_visits_completed) THEN
1105: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1106: RAISE FND_API.G_EXC_ERROR;
1102: RAISE FND_API.G_EXC_ERROR;
1103: END IF;
1104: IF (l_object_version_number.PM_VISITS_COMPLETED <> p_pm_visits_completed) THEN
1105: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1106: RAISE FND_API.G_EXC_ERROR;
1107: END IF;
1108: IF (l_object_version_number.LAST_PM_VISIT_DATE <> p_last_pm_visit_date) THEN
1109: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1110: RAISE FND_API.G_EXC_ERROR;
1106: RAISE FND_API.G_EXC_ERROR;
1107: END IF;
1108: IF (l_object_version_number.LAST_PM_VISIT_DATE <> p_last_pm_visit_date) THEN
1109: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1110: RAISE FND_API.G_EXC_ERROR;
1111: END IF;
1112: IF (l_object_version_number.PM_SCHEDULE_ID <> p_pm_schedule_id) THEN
1113: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1114: RAISE FND_API.G_EXC_ERROR;
1110: RAISE FND_API.G_EXC_ERROR;
1111: END IF;
1112: IF (l_object_version_number.PM_SCHEDULE_ID <> p_pm_schedule_id) THEN
1113: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1114: RAISE FND_API.G_EXC_ERROR;
1115: END IF;
1116: IF (l_object_version_number.PM_SCHEDULE_FLAG <> p_pm_schedule_flag) THEN
1117: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1118: RAISE FND_API.G_EXC_ERROR;
1114: RAISE FND_API.G_EXC_ERROR;
1115: END IF;
1116: IF (l_object_version_number.PM_SCHEDULE_FLAG <> p_pm_schedule_flag) THEN
1117: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1118: RAISE FND_API.G_EXC_ERROR;
1119: END IF;
1120: IF (l_object_version_number.CURRENT_MAX_SCHEDULE_DATE <> p_current_max_schedule_date) THEN
1121: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1122: RAISE FND_API.G_EXC_ERROR;
1118: RAISE FND_API.G_EXC_ERROR;
1119: END IF;
1120: IF (l_object_version_number.CURRENT_MAX_SCHEDULE_DATE <> p_current_max_schedule_date) THEN
1121: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1122: RAISE FND_API.G_EXC_ERROR;
1123: END IF;
1124: IF (l_object_version_number.PRICE_LIST_ID <> p_price_list_id) THEN
1125: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1126: RAISE FND_API.G_EXC_ERROR;
1122: RAISE FND_API.G_EXC_ERROR;
1123: END IF;
1124: IF (l_object_version_number.PRICE_LIST_ID <> p_price_list_id) THEN
1125: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1126: RAISE FND_API.G_EXC_ERROR;
1127: END IF;
1128: IF (l_object_version_number.SERVICE_ORDER_TYPE <> p_service_order_type) THEN
1129: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1130: RAISE FND_API.G_EXC_ERROR;
1126: RAISE FND_API.G_EXC_ERROR;
1127: END IF;
1128: IF (l_object_version_number.SERVICE_ORDER_TYPE <> p_service_order_type) THEN
1129: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1130: RAISE FND_API.G_EXC_ERROR;
1131: END IF;
1132: IF (l_object_version_number.INVOICE_COUNT <> p_invoice_count) THEN
1133: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1134: RAISE FND_API.G_EXC_ERROR;
1130: RAISE FND_API.G_EXC_ERROR;
1131: END IF;
1132: IF (l_object_version_number.INVOICE_COUNT <> p_invoice_count) THEN
1133: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1134: RAISE FND_API.G_EXC_ERROR;
1135: END IF;
1136: IF (l_object_version_number.CURRENCY_CODE <> p_currency_code) THEN
1137: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1138: RAISE FND_API.G_EXC_ERROR;
1134: RAISE FND_API.G_EXC_ERROR;
1135: END IF;
1136: IF (l_object_version_number.CURRENCY_CODE <> p_currency_code) THEN
1137: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1138: RAISE FND_API.G_EXC_ERROR;
1139: END IF;
1140: IF (l_object_version_number.CONVERSION_TYPE <> p_conversion_type) THEN
1141: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1142: RAISE FND_API.G_EXC_ERROR;
1138: RAISE FND_API.G_EXC_ERROR;
1139: END IF;
1140: IF (l_object_version_number.CONVERSION_TYPE <> p_conversion_type) THEN
1141: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1142: RAISE FND_API.G_EXC_ERROR;
1143: END IF;
1144: IF (l_object_version_number.CONVERSION_RATE <> p_conversion_rate) THEN
1145: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1146: RAISE FND_API.G_EXC_ERROR;
1142: RAISE FND_API.G_EXC_ERROR;
1143: END IF;
1144: IF (l_object_version_number.CONVERSION_RATE <> p_conversion_rate) THEN
1145: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1146: RAISE FND_API.G_EXC_ERROR;
1147: END IF;
1148: IF (l_object_version_number.CONVERSION_DATE <> p_conversion_date) THEN
1149: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1150: RAISE FND_API.G_EXC_ERROR;
1146: RAISE FND_API.G_EXC_ERROR;
1147: END IF;
1148: IF (l_object_version_number.CONVERSION_DATE <> p_conversion_date) THEN
1149: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1150: RAISE FND_API.G_EXC_ERROR;
1151: END IF;
1152: IF (l_object_version_number.ORIGINAL_SERVICE_LINE_ID <> p_original_service_line_id) THEN
1153: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1154: RAISE FND_API.G_EXC_ERROR;
1150: RAISE FND_API.G_EXC_ERROR;
1151: END IF;
1152: IF (l_object_version_number.ORIGINAL_SERVICE_LINE_ID <> p_original_service_line_id) THEN
1153: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1154: RAISE FND_API.G_EXC_ERROR;
1155: END IF;
1156: IF (l_object_version_number.WARRANTY_FLAG <> p_warranty_flag) THEN
1157: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1158: RAISE FND_API.G_EXC_ERROR;
1154: RAISE FND_API.G_EXC_ERROR;
1155: END IF;
1156: IF (l_object_version_number.WARRANTY_FLAG <> p_warranty_flag) THEN
1157: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1158: RAISE FND_API.G_EXC_ERROR;
1159: END IF;
1160: IF (l_object_version_number.ORIGINAL_START_DATE <> p_original_start_date) THEN
1161: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1162: RAISE FND_API.G_EXC_ERROR;
1158: RAISE FND_API.G_EXC_ERROR;
1159: END IF;
1160: IF (l_object_version_number.ORIGINAL_START_DATE <> p_original_start_date) THEN
1161: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1162: RAISE FND_API.G_EXC_ERROR;
1163: END IF;
1164: IF (l_object_version_number.ORIGINAL_END_DATE <> p_original_end_date) THEN
1165: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1166: RAISE FND_API.G_EXC_ERROR;
1162: RAISE FND_API.G_EXC_ERROR;
1163: END IF;
1164: IF (l_object_version_number.ORIGINAL_END_DATE <> p_original_end_date) THEN
1165: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1166: RAISE FND_API.G_EXC_ERROR;
1167: END IF;
1168: IF (l_object_version_number.SERVICE_DATE_CHANGE <> p_service_date_change) THEN
1169: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1170: RAISE FND_API.G_EXC_ERROR;
1166: RAISE FND_API.G_EXC_ERROR;
1167: END IF;
1168: IF (l_object_version_number.SERVICE_DATE_CHANGE <> p_service_date_change) THEN
1169: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1170: RAISE FND_API.G_EXC_ERROR;
1171: END IF;
1172: IF (l_object_version_number.WORKFLOW <> p_workflow) THEN
1173: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1174: RAISE FND_API.G_EXC_ERROR;
1170: RAISE FND_API.G_EXC_ERROR;
1171: END IF;
1172: IF (l_object_version_number.WORKFLOW <> p_workflow) THEN
1173: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1174: RAISE FND_API.G_EXC_ERROR;
1175: END IF;
1176: IF (l_object_version_number.SHIP_TO_SITE_USE_ID <> p_ship_to_site_use_id) THEN
1177: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1178: RAISE FND_API.G_EXC_ERROR;
1174: RAISE FND_API.G_EXC_ERROR;
1175: END IF;
1176: IF (l_object_version_number.SHIP_TO_SITE_USE_ID <> p_ship_to_site_use_id) THEN
1177: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1178: RAISE FND_API.G_EXC_ERROR;
1179: END IF;
1180: IF (l_object_version_number.ORIGINAL_SYSTEM_LINE_REFERENCE <> p_riginl_systm_lin_rfrnc) THEN
1181: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1182: RAISE FND_API.G_EXC_ERROR;
1178: RAISE FND_API.G_EXC_ERROR;
1179: END IF;
1180: IF (l_object_version_number.ORIGINAL_SYSTEM_LINE_REFERENCE <> p_riginl_systm_lin_rfrnc) THEN
1181: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1182: RAISE FND_API.G_EXC_ERROR;
1183: END IF;
1184: IF (l_object_version_number.EXTENDED_PRICE <> p_extended_price) THEN
1185: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1186: RAISE FND_API.G_EXC_ERROR;
1182: RAISE FND_API.G_EXC_ERROR;
1183: END IF;
1184: IF (l_object_version_number.EXTENDED_PRICE <> p_extended_price) THEN
1185: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1186: RAISE FND_API.G_EXC_ERROR;
1187: END IF;
1188: IF (l_object_version_number.DISCOUNT_ID <> p_discount_id) THEN
1189: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1190: RAISE FND_API.G_EXC_ERROR;
1186: RAISE FND_API.G_EXC_ERROR;
1187: END IF;
1188: IF (l_object_version_number.DISCOUNT_ID <> p_discount_id) THEN
1189: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1190: RAISE FND_API.G_EXC_ERROR;
1191: END IF;
1192: IF (l_object_version_number.TAX_CODE <> p_tax_code) THEN
1193: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1194: RAISE FND_API.G_EXC_ERROR;
1190: RAISE FND_API.G_EXC_ERROR;
1191: END IF;
1192: IF (l_object_version_number.TAX_CODE <> p_tax_code) THEN
1193: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1194: RAISE FND_API.G_EXC_ERROR;
1195: END IF;
1196: IF (l_object_version_number.BILLING_FREQUENCY_PERIOD <> p_billing_frequency_period) THEN
1197: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1198: RAISE FND_API.G_EXC_ERROR;
1194: RAISE FND_API.G_EXC_ERROR;
1195: END IF;
1196: IF (l_object_version_number.BILLING_FREQUENCY_PERIOD <> p_billing_frequency_period) THEN
1197: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1198: RAISE FND_API.G_EXC_ERROR;
1199: END IF;
1200: IF (l_object_version_number.FIRST_BILL_DATE <> p_first_bill_date) THEN
1201: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1202: RAISE FND_API.G_EXC_ERROR;
1198: RAISE FND_API.G_EXC_ERROR;
1199: END IF;
1200: IF (l_object_version_number.FIRST_BILL_DATE <> p_first_bill_date) THEN
1201: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1202: RAISE FND_API.G_EXC_ERROR;
1203: END IF;
1204: IF (l_object_version_number.NEXT_BILL_DATE <> p_next_bill_date) THEN
1205: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1206: RAISE FND_API.G_EXC_ERROR;
1202: RAISE FND_API.G_EXC_ERROR;
1203: END IF;
1204: IF (l_object_version_number.NEXT_BILL_DATE <> p_next_bill_date) THEN
1205: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1206: RAISE FND_API.G_EXC_ERROR;
1207: END IF;
1208: IF (l_object_version_number.CREATION_DATE <> p_creation_date) THEN
1209: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1210: RAISE FND_API.G_EXC_ERROR;
1206: RAISE FND_API.G_EXC_ERROR;
1207: END IF;
1208: IF (l_object_version_number.CREATION_DATE <> p_creation_date) THEN
1209: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1210: RAISE FND_API.G_EXC_ERROR;
1211: END IF;
1212: IF (l_object_version_number.BILL_ON <> p_bill_on) THEN
1213: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1214: RAISE FND_API.G_EXC_ERROR;
1210: RAISE FND_API.G_EXC_ERROR;
1211: END IF;
1212: IF (l_object_version_number.BILL_ON <> p_bill_on) THEN
1213: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1214: RAISE FND_API.G_EXC_ERROR;
1215: END IF;
1216: IF (l_object_version_number.CREATED_BY <> p_created_by) THEN
1217: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1218: RAISE FND_API.G_EXC_ERROR;
1214: RAISE FND_API.G_EXC_ERROR;
1215: END IF;
1216: IF (l_object_version_number.CREATED_BY <> p_created_by) THEN
1217: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1218: RAISE FND_API.G_EXC_ERROR;
1219: END IF;
1220: IF (l_object_version_number.LAST_UPDATE_DATE <> p_last_update_date) THEN
1221: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1222: RAISE FND_API.G_EXC_ERROR;
1218: RAISE FND_API.G_EXC_ERROR;
1219: END IF;
1220: IF (l_object_version_number.LAST_UPDATE_DATE <> p_last_update_date) THEN
1221: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1222: RAISE FND_API.G_EXC_ERROR;
1223: END IF;
1224: IF (l_object_version_number.LAST_UPDATED_BY <> p_last_updated_by) THEN
1225: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1226: RAISE FND_API.G_EXC_ERROR;
1222: RAISE FND_API.G_EXC_ERROR;
1223: END IF;
1224: IF (l_object_version_number.LAST_UPDATED_BY <> p_last_updated_by) THEN
1225: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1226: RAISE FND_API.G_EXC_ERROR;
1227: END IF;
1228: IF (l_object_version_number.LAST_UPDATE_LOGIN <> p_last_update_login) THEN
1229: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1230: RAISE FND_API.G_EXC_ERROR;
1226: RAISE FND_API.G_EXC_ERROR;
1227: END IF;
1228: IF (l_object_version_number.LAST_UPDATE_LOGIN <> p_last_update_login) THEN
1229: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1230: RAISE FND_API.G_EXC_ERROR;
1231: END IF;
1232: IF (l_object_version_number.START_DATE_ACTIVE <> p_start_date_active) THEN
1233: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1234: RAISE FND_API.G_EXC_ERROR;
1230: RAISE FND_API.G_EXC_ERROR;
1231: END IF;
1232: IF (l_object_version_number.START_DATE_ACTIVE <> p_start_date_active) THEN
1233: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1234: RAISE FND_API.G_EXC_ERROR;
1235: END IF;
1236: IF (l_object_version_number.END_DATE_ACTIVE <> p_end_date_active) THEN
1237: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1238: RAISE FND_API.G_EXC_ERROR;
1234: RAISE FND_API.G_EXC_ERROR;
1235: END IF;
1236: IF (l_object_version_number.END_DATE_ACTIVE <> p_end_date_active) THEN
1237: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1238: RAISE FND_API.G_EXC_ERROR;
1239: END IF;
1240: IF (l_object_version_number.PRICING_ATTRIBUTE1 <> p_pricing_attribute1) THEN
1241: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1242: RAISE FND_API.G_EXC_ERROR;
1238: RAISE FND_API.G_EXC_ERROR;
1239: END IF;
1240: IF (l_object_version_number.PRICING_ATTRIBUTE1 <> p_pricing_attribute1) THEN
1241: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1242: RAISE FND_API.G_EXC_ERROR;
1243: END IF;
1244: IF (l_object_version_number.PRICING_ATTRIBUTE2 <> p_pricing_attribute2) THEN
1245: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1246: RAISE FND_API.G_EXC_ERROR;
1242: RAISE FND_API.G_EXC_ERROR;
1243: END IF;
1244: IF (l_object_version_number.PRICING_ATTRIBUTE2 <> p_pricing_attribute2) THEN
1245: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1246: RAISE FND_API.G_EXC_ERROR;
1247: END IF;
1248: IF (l_object_version_number.PRICING_ATTRIBUTE3 <> p_pricing_attribute3) THEN
1249: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1250: RAISE FND_API.G_EXC_ERROR;
1246: RAISE FND_API.G_EXC_ERROR;
1247: END IF;
1248: IF (l_object_version_number.PRICING_ATTRIBUTE3 <> p_pricing_attribute3) THEN
1249: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1250: RAISE FND_API.G_EXC_ERROR;
1251: END IF;
1252: IF (l_object_version_number.PRICING_ATTRIBUTE4 <> p_pricing_attribute4) THEN
1253: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1254: RAISE FND_API.G_EXC_ERROR;
1250: RAISE FND_API.G_EXC_ERROR;
1251: END IF;
1252: IF (l_object_version_number.PRICING_ATTRIBUTE4 <> p_pricing_attribute4) THEN
1253: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1254: RAISE FND_API.G_EXC_ERROR;
1255: END IF;
1256: IF (l_object_version_number.PRICING_ATTRIBUTE5 <> p_pricing_attribute5) THEN
1257: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1258: RAISE FND_API.G_EXC_ERROR;
1254: RAISE FND_API.G_EXC_ERROR;
1255: END IF;
1256: IF (l_object_version_number.PRICING_ATTRIBUTE5 <> p_pricing_attribute5) THEN
1257: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1258: RAISE FND_API.G_EXC_ERROR;
1259: END IF;
1260: IF (l_object_version_number.PRICING_ATTRIBUTE6 <> p_pricing_attribute6) THEN
1261: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1262: RAISE FND_API.G_EXC_ERROR;
1258: RAISE FND_API.G_EXC_ERROR;
1259: END IF;
1260: IF (l_object_version_number.PRICING_ATTRIBUTE6 <> p_pricing_attribute6) THEN
1261: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1262: RAISE FND_API.G_EXC_ERROR;
1263: END IF;
1264: IF (l_object_version_number.PRICING_ATTRIBUTE7 <> p_pricing_attribute7) THEN
1265: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1266: RAISE FND_API.G_EXC_ERROR;
1262: RAISE FND_API.G_EXC_ERROR;
1263: END IF;
1264: IF (l_object_version_number.PRICING_ATTRIBUTE7 <> p_pricing_attribute7) THEN
1265: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1266: RAISE FND_API.G_EXC_ERROR;
1267: END IF;
1268: IF (l_object_version_number.PRICING_ATTRIBUTE8 <> p_pricing_attribute8) THEN
1269: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1270: RAISE FND_API.G_EXC_ERROR;
1266: RAISE FND_API.G_EXC_ERROR;
1267: END IF;
1268: IF (l_object_version_number.PRICING_ATTRIBUTE8 <> p_pricing_attribute8) THEN
1269: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1270: RAISE FND_API.G_EXC_ERROR;
1271: END IF;
1272: IF (l_object_version_number.PRICING_ATTRIBUTE9 <> p_pricing_attribute9) THEN
1273: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1274: RAISE FND_API.G_EXC_ERROR;
1270: RAISE FND_API.G_EXC_ERROR;
1271: END IF;
1272: IF (l_object_version_number.PRICING_ATTRIBUTE9 <> p_pricing_attribute9) THEN
1273: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1274: RAISE FND_API.G_EXC_ERROR;
1275: END IF;
1276: IF (l_object_version_number.PRICING_ATTRIBUTE10 <> p_pricing_attribute10) THEN
1277: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1278: RAISE FND_API.G_EXC_ERROR;
1274: RAISE FND_API.G_EXC_ERROR;
1275: END IF;
1276: IF (l_object_version_number.PRICING_ATTRIBUTE10 <> p_pricing_attribute10) THEN
1277: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1278: RAISE FND_API.G_EXC_ERROR;
1279: END IF;
1280: IF (l_object_version_number.PRICING_ATTRIBUTE11 <> p_pricing_attribute11) THEN
1281: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1282: RAISE FND_API.G_EXC_ERROR;
1278: RAISE FND_API.G_EXC_ERROR;
1279: END IF;
1280: IF (l_object_version_number.PRICING_ATTRIBUTE11 <> p_pricing_attribute11) THEN
1281: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1282: RAISE FND_API.G_EXC_ERROR;
1283: END IF;
1284: IF (l_object_version_number.PRICING_ATTRIBUTE12 <> p_pricing_attribute12) THEN
1285: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1286: RAISE FND_API.G_EXC_ERROR;
1282: RAISE FND_API.G_EXC_ERROR;
1283: END IF;
1284: IF (l_object_version_number.PRICING_ATTRIBUTE12 <> p_pricing_attribute12) THEN
1285: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1286: RAISE FND_API.G_EXC_ERROR;
1287: END IF;
1288: IF (l_object_version_number.PRICING_ATTRIBUTE13 <> p_pricing_attribute13) THEN
1289: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1290: RAISE FND_API.G_EXC_ERROR;
1286: RAISE FND_API.G_EXC_ERROR;
1287: END IF;
1288: IF (l_object_version_number.PRICING_ATTRIBUTE13 <> p_pricing_attribute13) THEN
1289: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1290: RAISE FND_API.G_EXC_ERROR;
1291: END IF;
1292: IF (l_object_version_number.PRICING_ATTRIBUTE14 <> p_pricing_attribute14) THEN
1293: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1294: RAISE FND_API.G_EXC_ERROR;
1290: RAISE FND_API.G_EXC_ERROR;
1291: END IF;
1292: IF (l_object_version_number.PRICING_ATTRIBUTE14 <> p_pricing_attribute14) THEN
1293: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1294: RAISE FND_API.G_EXC_ERROR;
1295: END IF;
1296: IF (l_object_version_number.PRICING_ATTRIBUTE15 <> p_pricing_attribute15) THEN
1297: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1298: RAISE FND_API.G_EXC_ERROR;
1294: RAISE FND_API.G_EXC_ERROR;
1295: END IF;
1296: IF (l_object_version_number.PRICING_ATTRIBUTE15 <> p_pricing_attribute15) THEN
1297: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1298: RAISE FND_API.G_EXC_ERROR;
1299: END IF;
1300: IF (l_object_version_number.PRICING_CONTEXT <> p_pricing_context) THEN
1301: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1302: RAISE FND_API.G_EXC_ERROR;
1298: RAISE FND_API.G_EXC_ERROR;
1299: END IF;
1300: IF (l_object_version_number.PRICING_CONTEXT <> p_pricing_context) THEN
1301: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1302: RAISE FND_API.G_EXC_ERROR;
1303: END IF;
1304: IF (l_object_version_number.ATTRIBUTE1 <> p_attribute1) THEN
1305: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1306: RAISE FND_API.G_EXC_ERROR;
1302: RAISE FND_API.G_EXC_ERROR;
1303: END IF;
1304: IF (l_object_version_number.ATTRIBUTE1 <> p_attribute1) THEN
1305: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1306: RAISE FND_API.G_EXC_ERROR;
1307: END IF;
1308: IF (l_object_version_number.ATTRIBUTE2 <> p_attribute2) THEN
1309: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1310: RAISE FND_API.G_EXC_ERROR;
1306: RAISE FND_API.G_EXC_ERROR;
1307: END IF;
1308: IF (l_object_version_number.ATTRIBUTE2 <> p_attribute2) THEN
1309: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1310: RAISE FND_API.G_EXC_ERROR;
1311: END IF;
1312: IF (l_object_version_number.ATTRIBUTE3 <> p_attribute3) THEN
1313: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1314: RAISE FND_API.G_EXC_ERROR;
1310: RAISE FND_API.G_EXC_ERROR;
1311: END IF;
1312: IF (l_object_version_number.ATTRIBUTE3 <> p_attribute3) THEN
1313: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1314: RAISE FND_API.G_EXC_ERROR;
1315: END IF;
1316: IF (l_object_version_number.ATTRIBUTE4 <> p_attribute4) THEN
1317: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1318: RAISE FND_API.G_EXC_ERROR;
1314: RAISE FND_API.G_EXC_ERROR;
1315: END IF;
1316: IF (l_object_version_number.ATTRIBUTE4 <> p_attribute4) THEN
1317: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1318: RAISE FND_API.G_EXC_ERROR;
1319: END IF;
1320: IF (l_object_version_number.ATTRIBUTE5 <> p_attribute5) THEN
1321: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1322: RAISE FND_API.G_EXC_ERROR;
1318: RAISE FND_API.G_EXC_ERROR;
1319: END IF;
1320: IF (l_object_version_number.ATTRIBUTE5 <> p_attribute5) THEN
1321: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1322: RAISE FND_API.G_EXC_ERROR;
1323: END IF;
1324: IF (l_object_version_number.ATTRIBUTE6 <> p_attribute6) THEN
1325: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1326: RAISE FND_API.G_EXC_ERROR;
1322: RAISE FND_API.G_EXC_ERROR;
1323: END IF;
1324: IF (l_object_version_number.ATTRIBUTE6 <> p_attribute6) THEN
1325: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1326: RAISE FND_API.G_EXC_ERROR;
1327: END IF;
1328: IF (l_object_version_number.ATTRIBUTE7 <> p_attribute7) THEN
1329: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1330: RAISE FND_API.G_EXC_ERROR;
1326: RAISE FND_API.G_EXC_ERROR;
1327: END IF;
1328: IF (l_object_version_number.ATTRIBUTE7 <> p_attribute7) THEN
1329: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1330: RAISE FND_API.G_EXC_ERROR;
1331: END IF;
1332: IF (l_object_version_number.ATTRIBUTE8 <> p_attribute8) THEN
1333: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1334: RAISE FND_API.G_EXC_ERROR;
1330: RAISE FND_API.G_EXC_ERROR;
1331: END IF;
1332: IF (l_object_version_number.ATTRIBUTE8 <> p_attribute8) THEN
1333: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1334: RAISE FND_API.G_EXC_ERROR;
1335: END IF;
1336: IF (l_object_version_number.ATTRIBUTE9 <> p_attribute9) THEN
1337: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1338: RAISE FND_API.G_EXC_ERROR;
1334: RAISE FND_API.G_EXC_ERROR;
1335: END IF;
1336: IF (l_object_version_number.ATTRIBUTE9 <> p_attribute9) THEN
1337: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1338: RAISE FND_API.G_EXC_ERROR;
1339: END IF;
1340: IF (l_object_version_number.ATTRIBUTE10 <> p_attribute10) THEN
1341: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1342: RAISE FND_API.G_EXC_ERROR;
1338: RAISE FND_API.G_EXC_ERROR;
1339: END IF;
1340: IF (l_object_version_number.ATTRIBUTE10 <> p_attribute10) THEN
1341: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1342: RAISE FND_API.G_EXC_ERROR;
1343: END IF;
1344: IF (l_object_version_number.ATTRIBUTE11 <> p_attribute11) THEN
1345: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1346: RAISE FND_API.G_EXC_ERROR;
1342: RAISE FND_API.G_EXC_ERROR;
1343: END IF;
1344: IF (l_object_version_number.ATTRIBUTE11 <> p_attribute11) THEN
1345: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1346: RAISE FND_API.G_EXC_ERROR;
1347: END IF;
1348: IF (l_object_version_number.ATTRIBUTE12 <> p_attribute12) THEN
1349: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1350: RAISE FND_API.G_EXC_ERROR;
1346: RAISE FND_API.G_EXC_ERROR;
1347: END IF;
1348: IF (l_object_version_number.ATTRIBUTE12 <> p_attribute12) THEN
1349: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1350: RAISE FND_API.G_EXC_ERROR;
1351: END IF;
1352: IF (l_object_version_number.ATTRIBUTE13 <> p_attribute13) THEN
1353: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1354: RAISE FND_API.G_EXC_ERROR;
1350: RAISE FND_API.G_EXC_ERROR;
1351: END IF;
1352: IF (l_object_version_number.ATTRIBUTE13 <> p_attribute13) THEN
1353: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1354: RAISE FND_API.G_EXC_ERROR;
1355: END IF;
1356: IF (l_object_version_number.ATTRIBUTE14 <> p_attribute14) THEN
1357: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1358: RAISE FND_API.G_EXC_ERROR;
1354: RAISE FND_API.G_EXC_ERROR;
1355: END IF;
1356: IF (l_object_version_number.ATTRIBUTE14 <> p_attribute14) THEN
1357: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1358: RAISE FND_API.G_EXC_ERROR;
1359: END IF;
1360: IF (l_object_version_number.ATTRIBUTE15 <> p_attribute15) THEN
1361: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1362: RAISE FND_API.G_EXC_ERROR;
1358: RAISE FND_API.G_EXC_ERROR;
1359: END IF;
1360: IF (l_object_version_number.ATTRIBUTE15 <> p_attribute15) THEN
1361: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1362: RAISE FND_API.G_EXC_ERROR;
1363: END IF;
1364: IF (l_object_version_number.CONTEXT <> p_context) THEN
1365: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1366: RAISE FND_API.G_EXC_ERROR;
1362: RAISE FND_API.G_EXC_ERROR;
1363: END IF;
1364: IF (l_object_version_number.CONTEXT <> p_context) THEN
1365: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1366: RAISE FND_API.G_EXC_ERROR;
1367: END IF;
1368: IF (l_object_version_number.LIST_PRICE <> p_list_price) THEN
1369: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1370: RAISE FND_API.G_EXC_ERROR;
1366: RAISE FND_API.G_EXC_ERROR;
1367: END IF;
1368: IF (l_object_version_number.LIST_PRICE <> p_list_price) THEN
1369: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1370: RAISE FND_API.G_EXC_ERROR;
1371: END IF;
1372: IF (l_object_version_number.ORG_ID <> p_org_id) THEN
1373: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1374: RAISE FND_API.G_EXC_ERROR;
1370: RAISE FND_API.G_EXC_ERROR;
1371: END IF;
1372: IF (l_object_version_number.ORG_ID <> p_org_id) THEN
1373: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1374: RAISE FND_API.G_EXC_ERROR;
1375: END IF;
1376: IF (l_object_version_number.PRICE_PERCENT <> p_price_percent) THEN
1377: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1378: RAISE FND_API.G_EXC_ERROR;
1374: RAISE FND_API.G_EXC_ERROR;
1375: END IF;
1376: IF (l_object_version_number.PRICE_PERCENT <> p_price_percent) THEN
1377: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1378: RAISE FND_API.G_EXC_ERROR;
1379: END IF;
1380: END IF;
1381: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
1382: EXCEPTION
1379: END IF;
1380: END IF;
1381: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
1382: EXCEPTION
1383: WHEN FND_API.G_EXC_ERROR THEN
1384: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1385: (
1386: l_api_name,
1387: G_PKG_NAME,
1384: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1385: (
1386: l_api_name,
1387: G_PKG_NAME,
1388: 'FND_API.G_RET_STS_ERROR',
1389: x_msg_count,
1390: x_msg_data,
1391: '_Pvt'
1392: );
1390: x_msg_data,
1391: '_Pvt'
1392: );
1393: APP_EXCEPTION.RAISE_EXCEPTION;
1394: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1395: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1396: (
1397: l_api_name,
1398: G_PKG_NAME,
1395: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1396: (
1397: l_api_name,
1398: G_PKG_NAME,
1399: 'FND_API.G_RET_STS_UNEXP_ERROR',
1400: x_msg_count,
1401: x_msg_data,
1402: '_Pvt'
1403: );
1425: x_msg_data OUT VARCHAR2,
1426: p_service_val_rec IN Service_Val_Rec_Type := G_MISS_SERVICE_VAL_REC) IS
1427: l_api_name CONSTANT VARCHAR2(30) := 'update_row';
1428: l_api_version CONSTANT NUMBER := 1;
1429: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1430: l_service_rec Service_Rec_Type;
1431: l_def_service_rec Service_Rec_Type;
1432: FUNCTION populate_new_record (
1433: p_service_rec IN Service_Rec_Type,
1438: FROM Cs_Cp_Services
1439: WHERE cs_cp_services.cp_service_id = p_cp_service_id;
1440: l_cs_cp_services_pk cs_cp_services_pk_csr%ROWTYPE;
1441: l_row_notfound BOOLEAN := TRUE;
1442: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1443: BEGIN
1444: x_service_rec := p_service_rec;
1445: -- Get current database values
1446: OPEN cs_cp_services_pk_csr (p_service_rec.cp_service_id);
1447: FETCH cs_cp_services_pk_csr INTO l_cs_cp_services_pk;
1448: l_row_notfound := cs_cp_services_pk_csr%NOTFOUND;
1449: CLOSE cs_cp_services_pk_csr;
1450: IF (l_row_notfound) THEN
1451: l_return_status := FND_API.G_RET_STS_ERROR;
1452: END IF;
1453: IF (x_service_rec.cp_service_id = TAPI_DEV_KIT.G_MISS_NUM)
1454: THEN
1455: x_service_rec.cp_service_id := l_cs_cp_services_pk.cp_service_id;
1811: p_api_version,
1812: p_init_msg_list,
1813: '_Pvt',
1814: x_return_status);
1815: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1816: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1817: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1818: RAISE FND_API.G_EXC_ERROR;
1819: END IF;
1812: p_init_msg_list,
1813: '_Pvt',
1814: x_return_status);
1815: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1816: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1817: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1818: RAISE FND_API.G_EXC_ERROR;
1819: END IF;
1820: migrate(p_service_val_rec, l_service_rec);
1813: '_Pvt',
1814: x_return_status);
1815: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1816: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1817: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1818: RAISE FND_API.G_EXC_ERROR;
1819: END IF;
1820: migrate(p_service_val_rec, l_service_rec);
1821: --- Defaulting item attributes
1814: x_return_status);
1815: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1816: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1817: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1818: RAISE FND_API.G_EXC_ERROR;
1819: END IF;
1820: migrate(p_service_val_rec, l_service_rec);
1821: --- Defaulting item attributes
1822: l_return_status := Default_Item_Attributes
1824: l_service_rec, ---- IN
1825: l_def_service_rec
1826: );
1827: --- If any errors happen abort API
1828: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1829: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1830: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1831: RAISE FND_API.G_EXC_ERROR;
1832: END IF;
1825: l_def_service_rec
1826: );
1827: --- If any errors happen abort API
1828: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1829: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1830: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1831: RAISE FND_API.G_EXC_ERROR;
1832: END IF;
1833: l_return_status := populate_new_record(l_def_service_rec, l_def_service_rec);
1826: );
1827: --- If any errors happen abort API
1828: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1829: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1830: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1831: RAISE FND_API.G_EXC_ERROR;
1832: END IF;
1833: l_return_status := populate_new_record(l_def_service_rec, l_def_service_rec);
1834: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1827: --- If any errors happen abort API
1828: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1829: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1830: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1831: RAISE FND_API.G_EXC_ERROR;
1832: END IF;
1833: l_return_status := populate_new_record(l_def_service_rec, l_def_service_rec);
1834: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1835: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1830: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1831: RAISE FND_API.G_EXC_ERROR;
1832: END IF;
1833: l_return_status := populate_new_record(l_def_service_rec, l_def_service_rec);
1834: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1835: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1836: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1837: RAISE FND_API.G_EXC_ERROR;
1838: END IF;
1831: RAISE FND_API.G_EXC_ERROR;
1832: END IF;
1833: l_return_status := populate_new_record(l_def_service_rec, l_def_service_rec);
1834: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1835: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1836: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1837: RAISE FND_API.G_EXC_ERROR;
1838: END IF;
1839: --- Validate all non-missing attributes (Item Level Validation)
1832: END IF;
1833: l_return_status := populate_new_record(l_def_service_rec, l_def_service_rec);
1834: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1835: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1836: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1837: RAISE FND_API.G_EXC_ERROR;
1838: END IF;
1839: --- Validate all non-missing attributes (Item Level Validation)
1840: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
1833: l_return_status := populate_new_record(l_def_service_rec, l_def_service_rec);
1834: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1835: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1836: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1837: RAISE FND_API.G_EXC_ERROR;
1838: END IF;
1839: --- Validate all non-missing attributes (Item Level Validation)
1840: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
1841: l_return_status := Validate_Item_Attributes
1836: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1837: RAISE FND_API.G_EXC_ERROR;
1838: END IF;
1839: --- Validate all non-missing attributes (Item Level Validation)
1840: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
1841: l_return_status := Validate_Item_Attributes
1842: (
1843: l_def_service_rec ---- IN
1844: );
1842: (
1843: l_def_service_rec ---- IN
1844: );
1845: --- If any errors happen abort API
1846: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1847: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1848: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1849: RAISE FND_API.G_EXC_ERROR;
1850: END IF;
1843: l_def_service_rec ---- IN
1844: );
1845: --- If any errors happen abort API
1846: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1847: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1848: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1849: RAISE FND_API.G_EXC_ERROR;
1850: END IF;
1851: END IF;
1844: );
1845: --- If any errors happen abort API
1846: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1847: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1848: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1849: RAISE FND_API.G_EXC_ERROR;
1850: END IF;
1851: END IF;
1852: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1845: --- If any errors happen abort API
1846: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1847: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1848: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1849: RAISE FND_API.G_EXC_ERROR;
1850: END IF;
1851: END IF;
1852: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1853: l_return_status := Validate_Item_Record(l_def_service_rec);
1848: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1849: RAISE FND_API.G_EXC_ERROR;
1850: END IF;
1851: END IF;
1852: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1853: l_return_status := Validate_Item_Record(l_def_service_rec);
1854: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1855: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1856: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1850: END IF;
1851: END IF;
1852: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1853: l_return_status := Validate_Item_Record(l_def_service_rec);
1854: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1855: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1856: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1857: RAISE FND_API.G_EXC_ERROR;
1858: END IF;
1851: END IF;
1852: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1853: l_return_status := Validate_Item_Record(l_def_service_rec);
1854: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1855: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1856: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1857: RAISE FND_API.G_EXC_ERROR;
1858: END IF;
1859: END IF;
1852: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1853: l_return_status := Validate_Item_Record(l_def_service_rec);
1854: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1855: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1856: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1857: RAISE FND_API.G_EXC_ERROR;
1858: END IF;
1859: END IF;
1860: UPDATE CS_CP_SERVICES
1853: l_return_status := Validate_Item_Record(l_def_service_rec);
1854: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1855: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1856: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1857: RAISE FND_API.G_EXC_ERROR;
1858: END IF;
1859: END IF;
1860: UPDATE CS_CP_SERVICES
1861: SET
1951: CP_SERVICE_ID = l_def_service_rec.cp_service_id
1952: ;
1953: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
1954: EXCEPTION
1955: WHEN FND_API.G_EXC_ERROR THEN
1956: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1957: (
1958: l_api_name,
1959: G_PKG_NAME,
1956: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1957: (
1958: l_api_name,
1959: G_PKG_NAME,
1960: 'FND_API.G_RET_STS_ERROR',
1961: x_msg_count,
1962: x_msg_data,
1963: '_Pvt'
1964: );
1962: x_msg_data,
1963: '_Pvt'
1964: );
1965: APP_EXCEPTION.RAISE_EXCEPTION;
1966: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1967: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1968: (
1969: l_api_name,
1970: G_PKG_NAME,
1967: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1968: (
1969: l_api_name,
1970: G_PKG_NAME,
1971: 'FND_API.G_RET_STS_UNEXP_ERROR',
1972: x_msg_count,
1973: x_msg_data,
1974: '_Pvt'
1975: );
2084: p_org_id IN NUMBER := TAPI_DEV_KIT.G_MISS_NUM,
2085: p_price_percent IN NUMBER := TAPI_DEV_KIT.G_MISS_NUM) IS
2086: l_api_name CONSTANT VARCHAR2(30) := 'update_row';
2087: l_api_version CONSTANT NUMBER := 1;
2088: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2089: l_service_rec Service_Val_Rec_Type;
2090: BEGIN
2091: l_return_status := TAPI_DEV_KIT.START_ACTIVITY(l_api_name,
2092: G_PKG_NAME,
2094: p_api_version,
2095: p_init_msg_list,
2096: '_Pvt',
2097: x_return_status);
2098: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2099: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2100: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2101: RAISE FND_API.G_EXC_ERROR;
2102: END IF;
2095: p_init_msg_list,
2096: '_Pvt',
2097: x_return_status);
2098: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2099: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2100: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2101: RAISE FND_API.G_EXC_ERROR;
2102: END IF;
2103: l_service_rec.CP_SERVICE_ID := p_cp_service_id;
2096: '_Pvt',
2097: x_return_status);
2098: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2099: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2100: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2101: RAISE FND_API.G_EXC_ERROR;
2102: END IF;
2103: l_service_rec.CP_SERVICE_ID := p_cp_service_id;
2104: l_service_rec.CUSTOMER_PRODUCT_ID := p_customer_product_id;
2097: x_return_status);
2098: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2099: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2100: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2101: RAISE FND_API.G_EXC_ERROR;
2102: END IF;
2103: l_service_rec.CP_SERVICE_ID := p_cp_service_id;
2104: l_service_rec.CUSTOMER_PRODUCT_ID := p_customer_product_id;
2105: l_service_rec.CONTRACT_LINE_STATUS_ID := p_contract_line_status_id;
2199: l_service_rec
2200: );
2201: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
2202: EXCEPTION
2203: WHEN FND_API.G_EXC_ERROR THEN
2204: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
2205: (
2206: l_api_name,
2207: G_PKG_NAME,
2204: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
2205: (
2206: l_api_name,
2207: G_PKG_NAME,
2208: 'FND_API.G_RET_STS_ERROR',
2209: x_msg_count,
2210: x_msg_data,
2211: '_Pvt'
2212: );
2210: x_msg_data,
2211: '_Pvt'
2212: );
2213: APP_EXCEPTION.RAISE_EXCEPTION;
2214: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2215: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
2216: (
2217: l_api_name,
2218: G_PKG_NAME,
2215: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
2216: (
2217: l_api_name,
2218: G_PKG_NAME,
2219: 'FND_API.G_RET_STS_UNEXP_ERROR',
2220: x_msg_count,
2221: x_msg_data,
2222: '_Pvt'
2223: );
2245: x_msg_data OUT VARCHAR2,
2246: p_cp_service_id IN NUMBER) IS
2247: l_api_name CONSTANT VARCHAR2(30) := 'delete_row';
2248: l_api_version CONSTANT NUMBER := 1;
2249: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2250: BEGIN
2251: l_return_status := TAPI_DEV_KIT.START_ACTIVITY(l_api_name,
2252: G_PKG_NAME,
2253: l_api_version,
2254: p_api_version,
2255: p_init_msg_list,
2256: '_Pvt',
2257: x_return_status);
2258: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2259: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2260: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2261: RAISE FND_API.G_EXC_ERROR;
2262: END IF;
2255: p_init_msg_list,
2256: '_Pvt',
2257: x_return_status);
2258: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2259: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2260: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2261: RAISE FND_API.G_EXC_ERROR;
2262: END IF;
2263: DELETE FROM CS_CP_SERVICES
2256: '_Pvt',
2257: x_return_status);
2258: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2259: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2260: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2261: RAISE FND_API.G_EXC_ERROR;
2262: END IF;
2263: DELETE FROM CS_CP_SERVICES
2264: WHERE
2257: x_return_status);
2258: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2259: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2260: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2261: RAISE FND_API.G_EXC_ERROR;
2262: END IF;
2263: DELETE FROM CS_CP_SERVICES
2264: WHERE
2265: CP_SERVICE_ID = p_cp_service_id
2265: CP_SERVICE_ID = p_cp_service_id
2266: ;
2267: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
2268: EXCEPTION
2269: WHEN FND_API.G_EXC_ERROR THEN
2270: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
2271: (
2272: l_api_name,
2273: G_PKG_NAME,
2270: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
2271: (
2272: l_api_name,
2273: G_PKG_NAME,
2274: 'FND_API.G_RET_STS_ERROR',
2275: x_msg_count,
2276: x_msg_data,
2277: '_Pvt'
2278: );
2276: x_msg_data,
2277: '_Pvt'
2278: );
2279: APP_EXCEPTION.RAISE_EXCEPTION;
2280: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2281: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
2282: (
2283: l_api_name,
2284: G_PKG_NAME,
2281: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
2282: (
2283: l_api_name,
2284: G_PKG_NAME,
2285: 'FND_API.G_RET_STS_UNEXP_ERROR',
2286: x_msg_count,
2287: x_msg_data,
2288: '_Pvt'
2289: );
2311: x_msg_data OUT VARCHAR2,
2312: p_service_val_rec IN Service_Val_Rec_Type := G_MISS_SERVICE_VAL_REC) IS
2313: l_api_name CONSTANT VARCHAR2(30) := 'validate_row';
2314: l_api_version CONSTANT NUMBER := 1;
2315: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2316: l_service_rec Service_Rec_Type;
2317: l_def_service_rec Service_Rec_Type;
2318: BEGIN
2319: l_return_status := TAPI_DEV_KIT.START_ACTIVITY(l_api_name,
2322: p_api_version,
2323: p_init_msg_list,
2324: '_Pvt',
2325: x_return_status);
2326: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2327: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2328: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2329: RAISE FND_API.G_EXC_ERROR;
2330: END IF;
2323: p_init_msg_list,
2324: '_Pvt',
2325: x_return_status);
2326: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2327: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2328: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2329: RAISE FND_API.G_EXC_ERROR;
2330: END IF;
2331: migrate(p_service_val_rec, l_service_rec);
2324: '_Pvt',
2325: x_return_status);
2326: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2327: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2328: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2329: RAISE FND_API.G_EXC_ERROR;
2330: END IF;
2331: migrate(p_service_val_rec, l_service_rec);
2332: --- Validate all non-missing attributes (Item Level Validation)
2325: x_return_status);
2326: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2327: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2328: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2329: RAISE FND_API.G_EXC_ERROR;
2330: END IF;
2331: migrate(p_service_val_rec, l_service_rec);
2332: --- Validate all non-missing attributes (Item Level Validation)
2333: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
2329: RAISE FND_API.G_EXC_ERROR;
2330: END IF;
2331: migrate(p_service_val_rec, l_service_rec);
2332: --- Validate all non-missing attributes (Item Level Validation)
2333: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
2334: l_return_status := Validate_Item_Attributes
2335: (
2336: l_service_rec ---- IN
2337: );
2335: (
2336: l_service_rec ---- IN
2337: );
2338: --- If any errors happen abort API
2339: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2340: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2341: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2342: RAISE FND_API.G_EXC_ERROR;
2343: END IF;
2336: l_service_rec ---- IN
2337: );
2338: --- If any errors happen abort API
2339: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2340: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2341: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2342: RAISE FND_API.G_EXC_ERROR;
2343: END IF;
2344: END IF;
2337: );
2338: --- If any errors happen abort API
2339: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2340: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2341: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2342: RAISE FND_API.G_EXC_ERROR;
2343: END IF;
2344: END IF;
2345: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
2338: --- If any errors happen abort API
2339: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2340: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2341: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2342: RAISE FND_API.G_EXC_ERROR;
2343: END IF;
2344: END IF;
2345: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
2346: l_return_status := Validate_Item_Record(l_def_service_rec);
2341: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2342: RAISE FND_API.G_EXC_ERROR;
2343: END IF;
2344: END IF;
2345: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
2346: l_return_status := Validate_Item_Record(l_def_service_rec);
2347: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2348: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2349: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2343: END IF;
2344: END IF;
2345: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
2346: l_return_status := Validate_Item_Record(l_def_service_rec);
2347: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2348: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2349: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2350: RAISE FND_API.G_EXC_ERROR;
2351: END IF;
2344: END IF;
2345: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
2346: l_return_status := Validate_Item_Record(l_def_service_rec);
2347: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2348: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2349: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2350: RAISE FND_API.G_EXC_ERROR;
2351: END IF;
2352: END IF;
2345: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
2346: l_return_status := Validate_Item_Record(l_def_service_rec);
2347: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2348: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2349: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2350: RAISE FND_API.G_EXC_ERROR;
2351: END IF;
2352: END IF;
2353: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
2346: l_return_status := Validate_Item_Record(l_def_service_rec);
2347: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2348: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2349: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2350: RAISE FND_API.G_EXC_ERROR;
2351: END IF;
2352: END IF;
2353: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
2354: EXCEPTION
2351: END IF;
2352: END IF;
2353: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
2354: EXCEPTION
2355: WHEN FND_API.G_EXC_ERROR THEN
2356: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
2357: (
2358: l_api_name,
2359: G_PKG_NAME,
2356: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
2357: (
2358: l_api_name,
2359: G_PKG_NAME,
2360: 'FND_API.G_RET_STS_ERROR',
2361: x_msg_count,
2362: x_msg_data,
2363: '_Pvt'
2364: );
2362: x_msg_data,
2363: '_Pvt'
2364: );
2365: APP_EXCEPTION.RAISE_EXCEPTION;
2366: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2367: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
2368: (
2369: l_api_name,
2370: G_PKG_NAME,
2367: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
2368: (
2369: l_api_name,
2370: G_PKG_NAME,
2371: 'FND_API.G_RET_STS_UNEXP_ERROR',
2372: x_msg_count,
2373: x_msg_data,
2374: '_Pvt'
2375: );
2484: p_org_id IN NUMBER := TAPI_DEV_KIT.G_MISS_NUM,
2485: p_price_percent IN NUMBER := TAPI_DEV_KIT.G_MISS_NUM) IS
2486: l_api_name CONSTANT VARCHAR2(30) := 'validate_row';
2487: l_api_version CONSTANT NUMBER := 1;
2488: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2489: l_service_rec Service_Val_Rec_Type;
2490: BEGIN
2491: l_return_status := TAPI_DEV_KIT.START_ACTIVITY(l_api_name,
2492: G_PKG_NAME,
2494: p_api_version,
2495: p_init_msg_list,
2496: '_Pvt',
2497: x_return_status);
2498: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2499: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2500: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2501: RAISE FND_API.G_EXC_ERROR;
2502: END IF;
2495: p_init_msg_list,
2496: '_Pvt',
2497: x_return_status);
2498: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2499: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2500: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2501: RAISE FND_API.G_EXC_ERROR;
2502: END IF;
2503: l_service_rec.CP_SERVICE_ID := p_cp_service_id;
2496: '_Pvt',
2497: x_return_status);
2498: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2499: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2500: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2501: RAISE FND_API.G_EXC_ERROR;
2502: END IF;
2503: l_service_rec.CP_SERVICE_ID := p_cp_service_id;
2504: l_service_rec.CUSTOMER_PRODUCT_ID := p_customer_product_id;
2497: x_return_status);
2498: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2499: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2500: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2501: RAISE FND_API.G_EXC_ERROR;
2502: END IF;
2503: l_service_rec.CP_SERVICE_ID := p_cp_service_id;
2504: l_service_rec.CUSTOMER_PRODUCT_ID := p_customer_product_id;
2505: l_service_rec.CONTRACT_LINE_STATUS_ID := p_contract_line_status_id;
2599: l_service_rec
2600: );
2601: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
2602: EXCEPTION
2603: WHEN FND_API.G_EXC_ERROR THEN
2604: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
2605: (
2606: l_api_name,
2607: G_PKG_NAME,
2604: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
2605: (
2606: l_api_name,
2607: G_PKG_NAME,
2608: 'FND_API.G_RET_STS_ERROR',
2609: x_msg_count,
2610: x_msg_data,
2611: '_Pvt'
2612: );
2610: x_msg_data,
2611: '_Pvt'
2612: );
2613: APP_EXCEPTION.RAISE_EXCEPTION;
2614: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2615: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
2616: (
2617: l_api_name,
2618: G_PKG_NAME,
2615: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
2616: (
2617: l_api_name,
2618: G_PKG_NAME,
2619: 'FND_API.G_RET_STS_UNEXP_ERROR',
2620: x_msg_count,
2621: x_msg_data,
2622: '_Pvt'
2623: );