18: p_contracttmpl_rec IN ContractTmpl_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_contracttmpl_rec.name = TAPI_DEV_KIT.G_MISS_CHAR OR
25: p_contracttmpl_rec.name IS NULL
26: THEN
24: IF p_contracttmpl_rec.name = TAPI_DEV_KIT.G_MISS_CHAR OR
25: p_contracttmpl_rec.name IS NULL
26: THEN
27: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'name');
28: l_return_status := FND_API.G_RET_STS_ERROR;
29: ELSIF p_contracttmpl_rec.contract_type_id = TAPI_DEV_KIT.G_MISS_NUM OR
30: p_contracttmpl_rec.contract_type_id IS NULL
31: THEN
32: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'contract_type_id');
29: ELSIF p_contracttmpl_rec.contract_type_id = TAPI_DEV_KIT.G_MISS_NUM OR
30: p_contracttmpl_rec.contract_type_id IS NULL
31: THEN
32: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'contract_type_id');
33: l_return_status := FND_API.G_RET_STS_ERROR;
34: ELSIF p_contracttmpl_rec.duration = TAPI_DEV_KIT.G_MISS_NUM OR
35: p_contracttmpl_rec.duration IS NULL
36: THEN
37: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'duration');
34: ELSIF p_contracttmpl_rec.duration = TAPI_DEV_KIT.G_MISS_NUM OR
35: p_contracttmpl_rec.duration IS NULL
36: THEN
37: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'duration');
38: l_return_status := FND_API.G_RET_STS_ERROR;
39: ELSIF p_contracttmpl_rec.period_code = TAPI_DEV_KIT.G_MISS_CHAR OR
40: p_contracttmpl_rec.period_code IS NULL
41: THEN
42: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'period_code');
39: ELSIF p_contracttmpl_rec.period_code = TAPI_DEV_KIT.G_MISS_CHAR OR
40: p_contracttmpl_rec.period_code IS NULL
41: THEN
42: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'period_code');
43: l_return_status := FND_API.G_RET_STS_ERROR;
44: ELSIF p_contracttmpl_rec.price_list_id = TAPI_DEV_KIT.G_MISS_NUM OR
45: p_contracttmpl_rec.price_list_id IS NULL
46: THEN
47: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'price_list_id');
44: ELSIF p_contracttmpl_rec.price_list_id = TAPI_DEV_KIT.G_MISS_NUM OR
45: p_contracttmpl_rec.price_list_id IS NULL
46: THEN
47: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'price_list_id');
48: l_return_status := FND_API.G_RET_STS_ERROR;
49: ELSIF p_contracttmpl_rec.currency_code = TAPI_DEV_KIT.G_MISS_CHAR OR
50: p_contracttmpl_rec.currency_code IS NULL
51: THEN
52: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'currency_code');
49: ELSIF p_contracttmpl_rec.currency_code = TAPI_DEV_KIT.G_MISS_CHAR OR
50: p_contracttmpl_rec.currency_code IS NULL
51: THEN
52: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'currency_code');
53: l_return_status := FND_API.G_RET_STS_ERROR;
54: ELSIF p_contracttmpl_rec.terms_id = TAPI_DEV_KIT.G_MISS_NUM OR
55: p_contracttmpl_rec.terms_id IS NULL
56: THEN
57: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'terms_id');
54: ELSIF p_contracttmpl_rec.terms_id = TAPI_DEV_KIT.G_MISS_NUM OR
55: p_contracttmpl_rec.terms_id IS NULL
56: THEN
57: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'terms_id');
58: l_return_status := FND_API.G_RET_STS_ERROR;
59: ELSIF p_contracttmpl_rec.last_update_date = TAPI_DEV_KIT.G_MISS_DATE OR
60: p_contracttmpl_rec.last_update_date IS NULL
61: THEN
62: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'last_update_date');
59: ELSIF p_contracttmpl_rec.last_update_date = TAPI_DEV_KIT.G_MISS_DATE OR
60: p_contracttmpl_rec.last_update_date IS NULL
61: THEN
62: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'last_update_date');
63: l_return_status := FND_API.G_RET_STS_ERROR;
64: ELSIF p_contracttmpl_rec.last_updated_by = TAPI_DEV_KIT.G_MISS_NUM OR
65: p_contracttmpl_rec.last_updated_by IS NULL
66: THEN
67: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'last_updated_by');
64: ELSIF p_contracttmpl_rec.last_updated_by = TAPI_DEV_KIT.G_MISS_NUM OR
65: p_contracttmpl_rec.last_updated_by IS NULL
66: THEN
67: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'last_updated_by');
68: l_return_status := FND_API.G_RET_STS_ERROR;
69: ELSIF p_contracttmpl_rec.creation_date = TAPI_DEV_KIT.G_MISS_DATE OR
70: p_contracttmpl_rec.creation_date IS NULL
71: THEN
72: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'creation_date');
69: ELSIF p_contracttmpl_rec.creation_date = TAPI_DEV_KIT.G_MISS_DATE OR
70: p_contracttmpl_rec.creation_date IS NULL
71: THEN
72: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'creation_date');
73: l_return_status := FND_API.G_RET_STS_ERROR;
74: ELSIF p_contracttmpl_rec.created_by = TAPI_DEV_KIT.G_MISS_NUM OR
75: p_contracttmpl_rec.created_by IS NULL
76: THEN
77: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'created_by');
74: ELSIF p_contracttmpl_rec.created_by = TAPI_DEV_KIT.G_MISS_NUM OR
75: p_contracttmpl_rec.created_by IS NULL
76: THEN
77: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'created_by');
78: l_return_status := FND_API.G_RET_STS_ERROR;
79: ELSIF p_contracttmpl_rec.start_date_active = TAPI_DEV_KIT.G_MISS_DATE OR
80: p_contracttmpl_rec.start_date_active IS NULL
81: THEN
82: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'start_date_active');
79: ELSIF p_contracttmpl_rec.start_date_active = TAPI_DEV_KIT.G_MISS_DATE OR
80: p_contracttmpl_rec.start_date_active IS NULL
81: THEN
82: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'start_date_active');
83: l_return_status := FND_API.G_RET_STS_ERROR;
84: ELSIF p_contracttmpl_rec.end_date_active = TAPI_DEV_KIT.G_MISS_DATE OR
85: p_contracttmpl_rec.end_date_active IS NULL
86: THEN
87: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'end_date_active');
84: ELSIF p_contracttmpl_rec.end_date_active = TAPI_DEV_KIT.G_MISS_DATE OR
85: p_contracttmpl_rec.end_date_active IS NULL
86: THEN
87: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'end_date_active');
88: l_return_status := FND_API.G_RET_STS_ERROR;
89: END IF;
90: RETURN(l_return_status);
91: END Validate_Item_Attributes;
92:
98: l_def_contracttmpl_rec OUT ContractTmpl_Rec_Type
99: )
100: RETURN VARCHAR2
101: IS
102: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
103: BEGIN
104: l_def_contracttmpl_rec := p_contracttmpl_rec;
105: l_def_contracttmpl_rec.OBJECT_VERSION_NUMBER := NVL(l_def_contracttmpl_rec.OBJECT_VERSION_NUMBER, 0) + 1;
106: RETURN(l_return_status);
110: FUNCTION Validate_Item_Record (
111: p_contracttmpl_rec IN ContractTmpl_Rec_Type
112: )
113: RETURN VARCHAR2 IS
114: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
115: FUNCTION validate_foreign_keys (
116: p_contracttmpl_rec IN ContractTmpl_Rec_Type
117: )
118: RETURN VARCHAR2 IS
121: SELECT *
122: FROM Cs_Contract_Types
123: WHERE cs_contract_types.contract_type_id = p_contract_type_id;
124: l_cs_contract_types_pk cs_contract_types_pk_csr%ROWTYPE;
125: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
126: l_row_notfound BOOLEAN := TRUE;
127: BEGIN
128: IF (p_contracttmpl_rec.CONTRACT_TYPE_ID IS NOT NULL)
129: THEN
138: END IF;
139: RETURN (l_return_status);
140: EXCEPTION
141: WHEN item_not_found_error THEN
142: l_return_status := FND_API.G_RET_STS_ERROR;
143: RETURN (l_return_status);
144: END validate_foreign_keys;
145: BEGIN
146: l_return_status := validate_foreign_keys (p_contracttmpl_rec);
269: x_contract_template_id OUT NUMBER,
270: x_object_version_number OUT NUMBER) IS
271: l_api_name CONSTANT VARCHAR2(30) := 'insert_row';
272: l_api_version CONSTANT NUMBER := 1;
273: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
274: l_contracttmpl_rec ContractTmpl_Rec_Type;
275: l_def_contracttmpl_rec ContractTmpl_Rec_Type;
276: BEGIN
277: l_return_status := TAPI_DEV_KIT.START_ACTIVITY(l_api_name,
280: p_api_version,
281: p_init_msg_list,
282: '_Pvt',
283: x_return_status);
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: p_init_msg_list,
282: '_Pvt',
283: x_return_status);
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: l_contracttmpl_rec := p_contracttmpl_rec;
282: '_Pvt',
283: x_return_status);
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: l_contracttmpl_rec := p_contracttmpl_rec;
290: --- Validate all non-missing attributes (Item Level Validation)
283: x_return_status);
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: l_contracttmpl_rec := p_contracttmpl_rec;
290: --- Validate all non-missing attributes (Item Level Validation)
291: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
287: RAISE FND_API.G_EXC_ERROR;
288: END IF;
289: l_contracttmpl_rec := p_contracttmpl_rec;
290: --- Validate all non-missing attributes (Item Level Validation)
291: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
292: l_return_status := Validate_Item_Attributes
293: (
294: l_contracttmpl_rec ---- IN
295: );
293: (
294: l_contracttmpl_rec ---- IN
295: );
296: --- If any errors happen abort API
297: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
298: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
299: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
300: RAISE FND_API.G_EXC_ERROR;
301: END IF;
294: l_contracttmpl_rec ---- IN
295: );
296: --- If any errors happen abort API
297: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
298: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
299: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
300: RAISE FND_API.G_EXC_ERROR;
301: END IF;
302: END IF;
295: );
296: --- If any errors happen abort API
297: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
298: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
299: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
300: RAISE FND_API.G_EXC_ERROR;
301: END IF;
302: END IF;
303: --- Defaulting item attributes
296: --- If any errors happen abort API
297: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
298: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
299: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
300: RAISE FND_API.G_EXC_ERROR;
301: END IF;
302: END IF;
303: --- Defaulting item attributes
304: l_return_status := Default_Item_Attributes
306: l_contracttmpl_rec, ---- IN
307: l_def_contracttmpl_rec
308: );
309: --- If any errors happen abort API
310: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
311: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
312: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
313: RAISE FND_API.G_EXC_ERROR;
314: END IF;
307: l_def_contracttmpl_rec
308: );
309: --- If any errors happen abort API
310: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
311: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
312: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
313: RAISE FND_API.G_EXC_ERROR;
314: END IF;
315: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
308: );
309: --- If any errors happen abort API
310: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
311: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
312: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
313: RAISE FND_API.G_EXC_ERROR;
314: END IF;
315: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
316: l_return_status := Validate_Item_Record(l_def_contracttmpl_rec);
309: --- If any errors happen abort API
310: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
311: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
312: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
313: RAISE FND_API.G_EXC_ERROR;
314: END IF;
315: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
316: l_return_status := Validate_Item_Record(l_def_contracttmpl_rec);
317: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
311: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
312: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
313: RAISE FND_API.G_EXC_ERROR;
314: END IF;
315: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
316: l_return_status := Validate_Item_Record(l_def_contracttmpl_rec);
317: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
318: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
319: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
313: RAISE FND_API.G_EXC_ERROR;
314: END IF;
315: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
316: l_return_status := Validate_Item_Record(l_def_contracttmpl_rec);
317: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
318: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
319: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
320: RAISE FND_API.G_EXC_ERROR;
321: END IF;
314: END IF;
315: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
316: l_return_status := Validate_Item_Record(l_def_contracttmpl_rec);
317: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
318: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
319: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
320: RAISE FND_API.G_EXC_ERROR;
321: END IF;
322: END IF;
315: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
316: l_return_status := Validate_Item_Record(l_def_contracttmpl_rec);
317: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
318: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
319: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
320: RAISE FND_API.G_EXC_ERROR;
321: END IF;
322: END IF;
323: -- Set primary key value
316: l_return_status := Validate_Item_Record(l_def_contracttmpl_rec);
317: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
318: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
319: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
320: RAISE FND_API.G_EXC_ERROR;
321: END IF;
322: END IF;
323: -- Set primary key value
324: l_def_contracttmpl_rec.contract_template_id := get_seq_id;
424: x_contract_template_id := l_def_contracttmpl_rec.contract_template_id;
425: x_object_version_number := l_def_contracttmpl_rec.OBJECT_VERSION_NUMBER;
426: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
427: EXCEPTION
428: WHEN FND_API.G_EXC_ERROR THEN
429: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
430: (
431: l_api_name,
432: G_PKG_NAME,
429: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
430: (
431: l_api_name,
432: G_PKG_NAME,
433: 'FND_API.G_RET_STS_ERROR',
434: x_msg_count,
435: x_msg_data,
436: '_Pvt'
437: );
435: x_msg_data,
436: '_Pvt'
437: );
438: APP_EXCEPTION.RAISE_EXCEPTION;
439: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
440: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
441: (
442: l_api_name,
443: G_PKG_NAME,
440: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
441: (
442: l_api_name,
443: G_PKG_NAME,
444: 'FND_API.G_RET_STS_UNEXP_ERROR',
445: x_msg_count,
446: x_msg_data,
447: '_Pvt'
448: );
518: x_contract_template_id OUT NUMBER,
519: x_object_version_number OUT NUMBER) IS
520: l_api_name CONSTANT VARCHAR2(30) := 'insert_row';
521: l_api_version CONSTANT NUMBER := 1;
522: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
523: l_contracttmpl_rec ContractTmpl_Rec_Type;
524: BEGIN
525: l_return_status := TAPI_DEV_KIT.START_ACTIVITY(l_api_name,
526: G_PKG_NAME,
528: p_api_version,
529: p_init_msg_list,
530: '_Pvt',
531: x_return_status);
532: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
533: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
534: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
535: RAISE FND_API.G_EXC_ERROR;
536: END IF;
529: p_init_msg_list,
530: '_Pvt',
531: x_return_status);
532: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
533: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
534: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
535: RAISE FND_API.G_EXC_ERROR;
536: END IF;
537: l_contracttmpl_rec.NAME := p_name;
530: '_Pvt',
531: x_return_status);
532: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
533: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
534: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
535: RAISE FND_API.G_EXC_ERROR;
536: END IF;
537: l_contracttmpl_rec.NAME := p_name;
538: l_contracttmpl_rec.CONTRACT_TYPE_ID := p_contract_type_id;
531: x_return_status);
532: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
533: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
534: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
535: RAISE FND_API.G_EXC_ERROR;
536: END IF;
537: l_contracttmpl_rec.NAME := p_name;
538: l_contracttmpl_rec.CONTRACT_TYPE_ID := p_contract_type_id;
539: l_contracttmpl_rec.DURATION := p_duration;
594: x_object_version_number
595: );
596: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
597: EXCEPTION
598: WHEN FND_API.G_EXC_ERROR THEN
599: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
600: (
601: l_api_name,
602: G_PKG_NAME,
599: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
600: (
601: l_api_name,
602: G_PKG_NAME,
603: 'FND_API.G_RET_STS_ERROR',
604: x_msg_count,
605: x_msg_data,
606: '_Pvt'
607: );
605: x_msg_data,
606: '_Pvt'
607: );
608: APP_EXCEPTION.RAISE_EXCEPTION;
609: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
610: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
611: (
612: l_api_name,
613: G_PKG_NAME,
610: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
611: (
612: l_api_name,
613: G_PKG_NAME,
614: 'FND_API.G_RET_STS_UNEXP_ERROR',
615: x_msg_count,
616: x_msg_data,
617: '_Pvt'
618: );
657: CONTRACT_TEMPLATE_ID = p_contract_template_id
658: ;
659: l_api_name CONSTANT VARCHAR2(30) := 'lock_row';
660: l_api_version CONSTANT NUMBER := 1;
661: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
662: l_object_version_number CS_CONTRACT_TEMPLATES.OBJECT_VERSION_NUMBER%TYPE;
663: lc_object_version_number CS_CONTRACT_TEMPLATES.OBJECT_VERSION_NUMBER%TYPE;
664: l_row_notfound BOOLEAN := FALSE;
665: lc_row_notfound BOOLEAN := FALSE;
670: p_api_version,
671: p_init_msg_list,
672: '_Pvt',
673: x_return_status);
674: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
675: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
676: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
677: RAISE FND_API.G_EXC_ERROR;
678: END IF;
671: p_init_msg_list,
672: '_Pvt',
673: x_return_status);
674: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
675: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
676: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
677: RAISE FND_API.G_EXC_ERROR;
678: END IF;
679: BEGIN
672: '_Pvt',
673: x_return_status);
674: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
675: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
676: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
677: RAISE FND_API.G_EXC_ERROR;
678: END IF;
679: BEGIN
680: OPEN lock_csr;
673: x_return_status);
674: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
675: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
676: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
677: RAISE FND_API.G_EXC_ERROR;
678: END IF;
679: BEGIN
680: OPEN lock_csr;
681: FETCH lock_csr INTO l_object_version_number;
697: CLOSE lchk_csr;
698: END IF;
699: IF (lc_row_notfound) THEN
700: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
701: RAISE FND_API.G_EXC_ERROR;
702: ELSIF lc_object_version_number > p_object_version_number THEN
703: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
704: RAISE FND_API.G_EXC_ERROR;
705: ELSIF lc_object_version_number <> p_object_version_number THEN
700: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
701: RAISE FND_API.G_EXC_ERROR;
702: ELSIF lc_object_version_number > p_object_version_number THEN
703: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
704: RAISE FND_API.G_EXC_ERROR;
705: ELSIF lc_object_version_number <> p_object_version_number THEN
706: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
707: RAISE FND_API.G_EXC_ERROR;
708: ELSIF lc_object_version_number = -1 THEN
703: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
704: RAISE FND_API.G_EXC_ERROR;
705: ELSIF lc_object_version_number <> p_object_version_number THEN
706: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
707: RAISE FND_API.G_EXC_ERROR;
708: ELSIF lc_object_version_number = -1 THEN
709: TAPI_DEV_KIT.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
710: RAISE FND_API.G_EXC_ERROR;
711: END IF;
706: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
707: RAISE FND_API.G_EXC_ERROR;
708: ELSIF lc_object_version_number = -1 THEN
709: TAPI_DEV_KIT.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
710: RAISE FND_API.G_EXC_ERROR;
711: END IF;
712: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
713: EXCEPTION
714: WHEN FND_API.G_EXC_ERROR THEN
710: RAISE FND_API.G_EXC_ERROR;
711: END IF;
712: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
713: EXCEPTION
714: WHEN FND_API.G_EXC_ERROR THEN
715: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
716: (
717: l_api_name,
718: G_PKG_NAME,
715: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
716: (
717: l_api_name,
718: G_PKG_NAME,
719: 'FND_API.G_RET_STS_ERROR',
720: x_msg_count,
721: x_msg_data,
722: '_Pvt'
723: );
721: x_msg_data,
722: '_Pvt'
723: );
724: APP_EXCEPTION.RAISE_EXCEPTION;
725: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
726: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
727: (
728: l_api_name,
729: G_PKG_NAME,
726: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
727: (
728: l_api_name,
729: G_PKG_NAME,
730: 'FND_API.G_RET_STS_UNEXP_ERROR',
731: x_msg_count,
732: x_msg_data,
733: '_Pvt'
734: );
757: p_contracttmpl_val_rec IN ContractTmpl_Val_Rec_Type := G_MISS_CONTRACTTMPL_VAL_REC,
758: x_object_version_number OUT NUMBER) IS
759: l_api_name CONSTANT VARCHAR2(30) := 'update_row';
760: l_api_version CONSTANT NUMBER := 1;
761: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
762: l_contracttmpl_rec ContractTmpl_Rec_Type;
763: l_def_contracttmpl_rec ContractTmpl_Rec_Type;
764: FUNCTION populate_new_record (
765: p_contracttmpl_rec IN ContractTmpl_Rec_Type,
770: FROM Cs_Contract_Templates
771: WHERE cs_contract_templates.contract_template_id = p_contract_template_id;
772: l_cs_contract_templates_pk cs_contract_templates_pk_csr%ROWTYPE;
773: l_row_notfound BOOLEAN := TRUE;
774: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
775: BEGIN
776: x_contracttmpl_rec := p_contracttmpl_rec;
777: -- Get current database values
778: OPEN cs_contract_templates_pk_csr (p_contracttmpl_rec.contract_template_id);
779: FETCH cs_contract_templates_pk_csr INTO l_cs_contract_templates_pk;
780: l_row_notfound := cs_contract_templates_pk_csr%NOTFOUND;
781: CLOSE cs_contract_templates_pk_csr;
782: IF (l_row_notfound) THEN
783: l_return_status := FND_API.G_RET_STS_ERROR;
784: END IF;
785: IF (x_contracttmpl_rec.contract_template_id = TAPI_DEV_KIT.G_MISS_NUM)
786: THEN
787: x_contracttmpl_rec.contract_template_id := l_cs_contract_templates_pk.contract_template_id;
983: p_api_version,
984: p_init_msg_list,
985: '_Pvt',
986: x_return_status);
987: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
988: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
989: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
990: RAISE FND_API.G_EXC_ERROR;
991: END IF;
984: p_init_msg_list,
985: '_Pvt',
986: x_return_status);
987: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
988: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
989: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
990: RAISE FND_API.G_EXC_ERROR;
991: END IF;
992: migrate(p_contracttmpl_val_rec, l_contracttmpl_rec);
985: '_Pvt',
986: x_return_status);
987: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
988: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
989: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
990: RAISE FND_API.G_EXC_ERROR;
991: END IF;
992: migrate(p_contracttmpl_val_rec, l_contracttmpl_rec);
993: --- Defaulting item attributes
986: x_return_status);
987: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
988: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
989: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
990: RAISE FND_API.G_EXC_ERROR;
991: END IF;
992: migrate(p_contracttmpl_val_rec, l_contracttmpl_rec);
993: --- Defaulting item attributes
994: l_return_status := Default_Item_Attributes
996: l_contracttmpl_rec, ---- IN
997: l_def_contracttmpl_rec
998: );
999: --- If any errors happen abort API
1000: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1001: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1002: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1003: RAISE FND_API.G_EXC_ERROR;
1004: END IF;
997: l_def_contracttmpl_rec
998: );
999: --- If any errors happen abort API
1000: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1001: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1002: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1003: RAISE FND_API.G_EXC_ERROR;
1004: END IF;
1005: l_return_status := populate_new_record(l_def_contracttmpl_rec, l_def_contracttmpl_rec);
998: );
999: --- If any errors happen abort API
1000: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1001: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1002: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1003: RAISE FND_API.G_EXC_ERROR;
1004: END IF;
1005: l_return_status := populate_new_record(l_def_contracttmpl_rec, l_def_contracttmpl_rec);
1006: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
999: --- If any errors happen abort API
1000: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1001: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1002: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1003: RAISE FND_API.G_EXC_ERROR;
1004: END IF;
1005: l_return_status := populate_new_record(l_def_contracttmpl_rec, l_def_contracttmpl_rec);
1006: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1007: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1002: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1003: RAISE FND_API.G_EXC_ERROR;
1004: END IF;
1005: l_return_status := populate_new_record(l_def_contracttmpl_rec, l_def_contracttmpl_rec);
1006: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1007: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1008: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1009: RAISE FND_API.G_EXC_ERROR;
1010: END IF;
1003: RAISE FND_API.G_EXC_ERROR;
1004: END IF;
1005: l_return_status := populate_new_record(l_def_contracttmpl_rec, l_def_contracttmpl_rec);
1006: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1007: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1008: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1009: RAISE FND_API.G_EXC_ERROR;
1010: END IF;
1011: --- Validate all non-missing attributes (Item Level Validation)
1004: END IF;
1005: l_return_status := populate_new_record(l_def_contracttmpl_rec, l_def_contracttmpl_rec);
1006: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1007: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1008: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1009: RAISE FND_API.G_EXC_ERROR;
1010: END IF;
1011: --- Validate all non-missing attributes (Item Level Validation)
1012: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
1005: l_return_status := populate_new_record(l_def_contracttmpl_rec, l_def_contracttmpl_rec);
1006: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1007: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1008: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1009: RAISE FND_API.G_EXC_ERROR;
1010: END IF;
1011: --- Validate all non-missing attributes (Item Level Validation)
1012: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
1013: l_return_status := Validate_Item_Attributes
1008: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1009: RAISE FND_API.G_EXC_ERROR;
1010: END IF;
1011: --- Validate all non-missing attributes (Item Level Validation)
1012: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
1013: l_return_status := Validate_Item_Attributes
1014: (
1015: l_def_contracttmpl_rec ---- IN
1016: );
1014: (
1015: l_def_contracttmpl_rec ---- IN
1016: );
1017: --- If any errors happen abort API
1018: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1019: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1020: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1021: RAISE FND_API.G_EXC_ERROR;
1022: END IF;
1015: l_def_contracttmpl_rec ---- IN
1016: );
1017: --- If any errors happen abort API
1018: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1019: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1020: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1021: RAISE FND_API.G_EXC_ERROR;
1022: END IF;
1023: END IF;
1016: );
1017: --- If any errors happen abort API
1018: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1019: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1020: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1021: RAISE FND_API.G_EXC_ERROR;
1022: END IF;
1023: END IF;
1024: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1017: --- If any errors happen abort API
1018: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1019: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1020: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1021: RAISE FND_API.G_EXC_ERROR;
1022: END IF;
1023: END IF;
1024: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1025: l_return_status := Validate_Item_Record(l_def_contracttmpl_rec);
1020: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1021: RAISE FND_API.G_EXC_ERROR;
1022: END IF;
1023: END IF;
1024: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1025: l_return_status := Validate_Item_Record(l_def_contracttmpl_rec);
1026: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1027: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1028: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1022: END IF;
1023: END IF;
1024: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1025: l_return_status := Validate_Item_Record(l_def_contracttmpl_rec);
1026: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1027: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1028: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1029: RAISE FND_API.G_EXC_ERROR;
1030: END IF;
1023: END IF;
1024: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1025: l_return_status := Validate_Item_Record(l_def_contracttmpl_rec);
1026: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1027: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1028: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1029: RAISE FND_API.G_EXC_ERROR;
1030: END IF;
1031: END IF;
1024: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1025: l_return_status := Validate_Item_Record(l_def_contracttmpl_rec);
1026: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1027: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1028: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1029: RAISE FND_API.G_EXC_ERROR;
1030: END IF;
1031: END IF;
1032: UPDATE CS_CONTRACT_TEMPLATES
1025: l_return_status := Validate_Item_Record(l_def_contracttmpl_rec);
1026: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1027: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1028: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1029: RAISE FND_API.G_EXC_ERROR;
1030: END IF;
1031: END IF;
1032: UPDATE CS_CONTRACT_TEMPLATES
1033: SET
1084: ;
1085: x_object_version_number := l_def_contracttmpl_rec.OBJECT_VERSION_NUMBER;
1086: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
1087: EXCEPTION
1088: WHEN FND_API.G_EXC_ERROR THEN
1089: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1090: (
1091: l_api_name,
1092: G_PKG_NAME,
1089: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1090: (
1091: l_api_name,
1092: G_PKG_NAME,
1093: 'FND_API.G_RET_STS_ERROR',
1094: x_msg_count,
1095: x_msg_data,
1096: '_Pvt'
1097: );
1095: x_msg_data,
1096: '_Pvt'
1097: );
1098: APP_EXCEPTION.RAISE_EXCEPTION;
1099: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1100: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1101: (
1102: l_api_name,
1103: G_PKG_NAME,
1100: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1101: (
1102: l_api_name,
1103: G_PKG_NAME,
1104: 'FND_API.G_RET_STS_UNEXP_ERROR',
1105: x_msg_count,
1106: x_msg_data,
1107: '_Pvt'
1108: );
1178: p_object_version_number IN NUMBER := TAPI_DEV_KIT.G_MISS_NUM,
1179: x_object_version_number OUT NUMBER) IS
1180: l_api_name CONSTANT VARCHAR2(30) := 'update_row';
1181: l_api_version CONSTANT NUMBER := 1;
1182: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1183: l_contracttmpl_rec ContractTmpl_Val_Rec_Type;
1184: BEGIN
1185: l_return_status := TAPI_DEV_KIT.START_ACTIVITY(l_api_name,
1186: G_PKG_NAME,
1188: p_api_version,
1189: p_init_msg_list,
1190: '_Pvt',
1191: x_return_status);
1192: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1193: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1194: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1195: RAISE FND_API.G_EXC_ERROR;
1196: END IF;
1189: p_init_msg_list,
1190: '_Pvt',
1191: x_return_status);
1192: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1193: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1194: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1195: RAISE FND_API.G_EXC_ERROR;
1196: END IF;
1197: l_contracttmpl_rec.CONTRACT_TEMPLATE_ID := p_contract_template_id;
1190: '_Pvt',
1191: x_return_status);
1192: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1193: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1194: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1195: RAISE FND_API.G_EXC_ERROR;
1196: END IF;
1197: l_contracttmpl_rec.CONTRACT_TEMPLATE_ID := p_contract_template_id;
1198: l_contracttmpl_rec.NAME := p_name;
1191: x_return_status);
1192: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1193: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1194: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1195: RAISE FND_API.G_EXC_ERROR;
1196: END IF;
1197: l_contracttmpl_rec.CONTRACT_TEMPLATE_ID := p_contract_template_id;
1198: l_contracttmpl_rec.NAME := p_name;
1199: l_contracttmpl_rec.CONTRACT_TYPE_ID := p_contract_type_id;
1254: x_object_version_number
1255: );
1256: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
1257: EXCEPTION
1258: WHEN FND_API.G_EXC_ERROR THEN
1259: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1260: (
1261: l_api_name,
1262: G_PKG_NAME,
1259: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1260: (
1261: l_api_name,
1262: G_PKG_NAME,
1263: 'FND_API.G_RET_STS_ERROR',
1264: x_msg_count,
1265: x_msg_data,
1266: '_Pvt'
1267: );
1265: x_msg_data,
1266: '_Pvt'
1267: );
1268: APP_EXCEPTION.RAISE_EXCEPTION;
1269: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1270: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1271: (
1272: l_api_name,
1273: G_PKG_NAME,
1270: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1271: (
1272: l_api_name,
1273: G_PKG_NAME,
1274: 'FND_API.G_RET_STS_UNEXP_ERROR',
1275: x_msg_count,
1276: x_msg_data,
1277: '_Pvt'
1278: );
1300: x_msg_data OUT VARCHAR2,
1301: p_contract_template_id IN NUMBER) IS
1302: l_api_name CONSTANT VARCHAR2(30) := 'delete_row';
1303: l_api_version CONSTANT NUMBER := 1;
1304: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1305: BEGIN
1306: l_return_status := TAPI_DEV_KIT.START_ACTIVITY(l_api_name,
1307: G_PKG_NAME,
1308: l_api_version,
1309: p_api_version,
1310: p_init_msg_list,
1311: '_Pvt',
1312: x_return_status);
1313: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1314: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1315: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1316: RAISE FND_API.G_EXC_ERROR;
1317: END IF;
1310: p_init_msg_list,
1311: '_Pvt',
1312: x_return_status);
1313: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1314: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1315: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1316: RAISE FND_API.G_EXC_ERROR;
1317: END IF;
1318: DELETE FROM CS_CONTRACT_TEMPLATES
1311: '_Pvt',
1312: x_return_status);
1313: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1314: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1315: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1316: RAISE FND_API.G_EXC_ERROR;
1317: END IF;
1318: DELETE FROM CS_CONTRACT_TEMPLATES
1319: WHERE
1312: x_return_status);
1313: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1314: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1315: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1316: RAISE FND_API.G_EXC_ERROR;
1317: END IF;
1318: DELETE FROM CS_CONTRACT_TEMPLATES
1319: WHERE
1320: CONTRACT_TEMPLATE_ID = p_contract_template_id
1320: CONTRACT_TEMPLATE_ID = p_contract_template_id
1321: ;
1322: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
1323: EXCEPTION
1324: WHEN FND_API.G_EXC_ERROR THEN
1325: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1326: (
1327: l_api_name,
1328: G_PKG_NAME,
1325: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1326: (
1327: l_api_name,
1328: G_PKG_NAME,
1329: 'FND_API.G_RET_STS_ERROR',
1330: x_msg_count,
1331: x_msg_data,
1332: '_Pvt'
1333: );
1331: x_msg_data,
1332: '_Pvt'
1333: );
1334: APP_EXCEPTION.RAISE_EXCEPTION;
1335: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1336: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1337: (
1338: l_api_name,
1339: G_PKG_NAME,
1336: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1337: (
1338: l_api_name,
1339: G_PKG_NAME,
1340: 'FND_API.G_RET_STS_UNEXP_ERROR',
1341: x_msg_count,
1342: x_msg_data,
1343: '_Pvt'
1344: );
1366: x_msg_data OUT VARCHAR2,
1367: p_contracttmpl_val_rec IN ContractTmpl_Val_Rec_Type := G_MISS_CONTRACTTMPL_VAL_REC) IS
1368: l_api_name CONSTANT VARCHAR2(30) := 'validate_row';
1369: l_api_version CONSTANT NUMBER := 1;
1370: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1371: l_contracttmpl_rec ContractTmpl_Rec_Type;
1372: l_def_contracttmpl_rec ContractTmpl_Rec_Type;
1373: BEGIN
1374: l_return_status := TAPI_DEV_KIT.START_ACTIVITY(l_api_name,
1377: p_api_version,
1378: p_init_msg_list,
1379: '_Pvt',
1380: x_return_status);
1381: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1382: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1383: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1384: RAISE FND_API.G_EXC_ERROR;
1385: END IF;
1378: p_init_msg_list,
1379: '_Pvt',
1380: x_return_status);
1381: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1382: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1383: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1384: RAISE FND_API.G_EXC_ERROR;
1385: END IF;
1386: migrate(p_contracttmpl_val_rec, l_contracttmpl_rec);
1379: '_Pvt',
1380: x_return_status);
1381: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1382: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1383: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1384: RAISE FND_API.G_EXC_ERROR;
1385: END IF;
1386: migrate(p_contracttmpl_val_rec, l_contracttmpl_rec);
1387: --- Validate all non-missing attributes (Item Level Validation)
1380: x_return_status);
1381: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1382: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1383: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1384: RAISE FND_API.G_EXC_ERROR;
1385: END IF;
1386: migrate(p_contracttmpl_val_rec, l_contracttmpl_rec);
1387: --- Validate all non-missing attributes (Item Level Validation)
1388: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
1384: RAISE FND_API.G_EXC_ERROR;
1385: END IF;
1386: migrate(p_contracttmpl_val_rec, l_contracttmpl_rec);
1387: --- Validate all non-missing attributes (Item Level Validation)
1388: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
1389: l_return_status := Validate_Item_Attributes
1390: (
1391: l_contracttmpl_rec ---- IN
1392: );
1390: (
1391: l_contracttmpl_rec ---- IN
1392: );
1393: --- If any errors happen abort API
1394: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1395: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1396: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1397: RAISE FND_API.G_EXC_ERROR;
1398: END IF;
1391: l_contracttmpl_rec ---- IN
1392: );
1393: --- If any errors happen abort API
1394: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1395: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1396: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1397: RAISE FND_API.G_EXC_ERROR;
1398: END IF;
1399: END IF;
1392: );
1393: --- If any errors happen abort API
1394: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1395: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1396: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1397: RAISE FND_API.G_EXC_ERROR;
1398: END IF;
1399: END IF;
1400: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1393: --- If any errors happen abort API
1394: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1395: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1396: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1397: RAISE FND_API.G_EXC_ERROR;
1398: END IF;
1399: END IF;
1400: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1401: l_return_status := Validate_Item_Record(l_def_contracttmpl_rec);
1396: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1397: RAISE FND_API.G_EXC_ERROR;
1398: END IF;
1399: END IF;
1400: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1401: l_return_status := Validate_Item_Record(l_def_contracttmpl_rec);
1402: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1403: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1404: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1398: END IF;
1399: END IF;
1400: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1401: l_return_status := Validate_Item_Record(l_def_contracttmpl_rec);
1402: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1403: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1404: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1405: RAISE FND_API.G_EXC_ERROR;
1406: END IF;
1399: END IF;
1400: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1401: l_return_status := Validate_Item_Record(l_def_contracttmpl_rec);
1402: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1403: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1404: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1405: RAISE FND_API.G_EXC_ERROR;
1406: END IF;
1407: END IF;
1400: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1401: l_return_status := Validate_Item_Record(l_def_contracttmpl_rec);
1402: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1403: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1404: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1405: RAISE FND_API.G_EXC_ERROR;
1406: END IF;
1407: END IF;
1408: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
1401: l_return_status := Validate_Item_Record(l_def_contracttmpl_rec);
1402: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1403: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1404: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1405: RAISE FND_API.G_EXC_ERROR;
1406: END IF;
1407: END IF;
1408: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
1409: EXCEPTION
1406: END IF;
1407: END IF;
1408: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
1409: EXCEPTION
1410: WHEN FND_API.G_EXC_ERROR THEN
1411: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1412: (
1413: l_api_name,
1414: G_PKG_NAME,
1411: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1412: (
1413: l_api_name,
1414: G_PKG_NAME,
1415: 'FND_API.G_RET_STS_ERROR',
1416: x_msg_count,
1417: x_msg_data,
1418: '_Pvt'
1419: );
1417: x_msg_data,
1418: '_Pvt'
1419: );
1420: APP_EXCEPTION.RAISE_EXCEPTION;
1421: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1422: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1423: (
1424: l_api_name,
1425: G_PKG_NAME,
1422: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1423: (
1424: l_api_name,
1425: G_PKG_NAME,
1426: 'FND_API.G_RET_STS_UNEXP_ERROR',
1427: x_msg_count,
1428: x_msg_data,
1429: '_Pvt'
1430: );
1499: p_context IN CS_CONTRACT_TEMPLATES.CONTEXT%TYPE := TAPI_DEV_KIT.G_MISS_CHAR,
1500: p_object_version_number IN NUMBER := TAPI_DEV_KIT.G_MISS_NUM) IS
1501: l_api_name CONSTANT VARCHAR2(30) := 'validate_row';
1502: l_api_version CONSTANT NUMBER := 1;
1503: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1504: l_contracttmpl_rec ContractTmpl_Val_Rec_Type;
1505: BEGIN
1506: l_return_status := TAPI_DEV_KIT.START_ACTIVITY(l_api_name,
1507: G_PKG_NAME,
1509: p_api_version,
1510: p_init_msg_list,
1511: '_Pvt',
1512: x_return_status);
1513: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1514: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1515: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1516: RAISE FND_API.G_EXC_ERROR;
1517: END IF;
1510: p_init_msg_list,
1511: '_Pvt',
1512: x_return_status);
1513: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1514: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1515: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1516: RAISE FND_API.G_EXC_ERROR;
1517: END IF;
1518: l_contracttmpl_rec.CONTRACT_TEMPLATE_ID := p_contract_template_id;
1511: '_Pvt',
1512: x_return_status);
1513: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1514: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1515: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1516: RAISE FND_API.G_EXC_ERROR;
1517: END IF;
1518: l_contracttmpl_rec.CONTRACT_TEMPLATE_ID := p_contract_template_id;
1519: l_contracttmpl_rec.NAME := p_name;
1512: x_return_status);
1513: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1514: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1515: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1516: RAISE FND_API.G_EXC_ERROR;
1517: END IF;
1518: l_contracttmpl_rec.CONTRACT_TEMPLATE_ID := p_contract_template_id;
1519: l_contracttmpl_rec.NAME := p_name;
1520: l_contracttmpl_rec.CONTRACT_TYPE_ID := p_contract_type_id;
1574: l_contracttmpl_rec
1575: );
1576: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
1577: EXCEPTION
1578: WHEN FND_API.G_EXC_ERROR THEN
1579: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1580: (
1581: l_api_name,
1582: G_PKG_NAME,
1579: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1580: (
1581: l_api_name,
1582: G_PKG_NAME,
1583: 'FND_API.G_RET_STS_ERROR',
1584: x_msg_count,
1585: x_msg_data,
1586: '_Pvt'
1587: );
1585: x_msg_data,
1586: '_Pvt'
1587: );
1588: APP_EXCEPTION.RAISE_EXCEPTION;
1589: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1590: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1591: (
1592: l_api_name,
1593: G_PKG_NAME,
1590: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1591: (
1592: l_api_name,
1593: G_PKG_NAME,
1594: 'FND_API.G_RET_STS_UNEXP_ERROR',
1595: x_msg_count,
1596: x_msg_data,
1597: '_Pvt'
1598: );