18: p_contractstats_rec IN ContractStats_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_contractstats_rec.name = TAPI_DEV_KIT.G_MISS_CHAR OR
25: p_contractstats_rec.name IS NULL
26: THEN
24: IF p_contractstats_rec.name = TAPI_DEV_KIT.G_MISS_CHAR OR
25: p_contractstats_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_contractstats_rec.status_level = TAPI_DEV_KIT.G_MISS_NUM OR
30: p_contractstats_rec.status_level IS NULL
31: THEN
32: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'status_level');
29: ELSIF p_contractstats_rec.status_level = TAPI_DEV_KIT.G_MISS_NUM OR
30: p_contractstats_rec.status_level IS NULL
31: THEN
32: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'status_level');
33: l_return_status := FND_API.G_RET_STS_ERROR;
34: ELSIF p_contractstats_rec.last_update_date = TAPI_DEV_KIT.G_MISS_DATE OR
35: p_contractstats_rec.last_update_date IS NULL
36: THEN
37: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'last_update_date');
34: ELSIF p_contractstats_rec.last_update_date = TAPI_DEV_KIT.G_MISS_DATE OR
35: p_contractstats_rec.last_update_date IS NULL
36: THEN
37: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'last_update_date');
38: l_return_status := FND_API.G_RET_STS_ERROR;
39: ELSIF p_contractstats_rec.last_updated_by = TAPI_DEV_KIT.G_MISS_NUM OR
40: p_contractstats_rec.last_updated_by IS NULL
41: THEN
42: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'last_updated_by');
39: ELSIF p_contractstats_rec.last_updated_by = TAPI_DEV_KIT.G_MISS_NUM OR
40: p_contractstats_rec.last_updated_by IS NULL
41: THEN
42: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'last_updated_by');
43: l_return_status := FND_API.G_RET_STS_ERROR;
44: ELSIF p_contractstats_rec.creation_date = TAPI_DEV_KIT.G_MISS_DATE OR
45: p_contractstats_rec.creation_date IS NULL
46: THEN
47: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'creation_date');
44: ELSIF p_contractstats_rec.creation_date = TAPI_DEV_KIT.G_MISS_DATE OR
45: p_contractstats_rec.creation_date IS NULL
46: THEN
47: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'creation_date');
48: l_return_status := FND_API.G_RET_STS_ERROR;
49: ELSIF p_contractstats_rec.created_by = TAPI_DEV_KIT.G_MISS_NUM OR
50: p_contractstats_rec.created_by IS NULL
51: THEN
52: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'created_by');
49: ELSIF p_contractstats_rec.created_by = TAPI_DEV_KIT.G_MISS_NUM OR
50: p_contractstats_rec.created_by IS NULL
51: THEN
52: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'created_by');
53: l_return_status := FND_API.G_RET_STS_ERROR;
54: END IF;
55: RETURN(l_return_status);
56: END Validate_Item_Attributes;
57:
63: l_def_contractstats_rec OUT ContractStats_Rec_Type
64: )
65: RETURN VARCHAR2
66: IS
67: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
68: BEGIN
69: l_def_contractstats_rec := p_contractstats_rec;
70: l_def_contractstats_rec.OBJECT_VERSION_NUMBER := NVL(l_def_contractstats_rec.OBJECT_VERSION_NUMBER, 0) + 1;
71: RETURN(l_return_status);
75: FUNCTION Validate_Item_Record (
76: p_contractstats_rec IN ContractStats_Rec_Type
77: )
78: RETURN VARCHAR2 IS
79: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
80: BEGIN
81: RETURN (l_return_status);
82: END Validate_Item_Record;
83:
175: x_contract_status_id OUT NUMBER,
176: x_object_version_number OUT NUMBER) IS
177: l_api_name CONSTANT VARCHAR2(30) := 'insert_row';
178: l_api_version CONSTANT NUMBER := 1;
179: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
180: l_contractstats_rec ContractStats_Rec_Type;
181: l_def_contractstats_rec ContractStats_Rec_Type;
182: BEGIN
183: l_return_status := TAPI_DEV_KIT.START_ACTIVITY(l_api_name,
186: p_api_version,
187: p_init_msg_list,
188: '_Pvt',
189: x_return_status);
190: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
191: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
192: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
193: RAISE FND_API.G_EXC_ERROR;
194: END IF;
187: p_init_msg_list,
188: '_Pvt',
189: x_return_status);
190: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
191: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
192: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
193: RAISE FND_API.G_EXC_ERROR;
194: END IF;
195: l_contractstats_rec := p_contractstats_rec;
188: '_Pvt',
189: x_return_status);
190: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
191: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
192: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
193: RAISE FND_API.G_EXC_ERROR;
194: END IF;
195: l_contractstats_rec := p_contractstats_rec;
196: --- Validate all non-missing attributes (Item Level Validation)
189: x_return_status);
190: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
191: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
192: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
193: RAISE FND_API.G_EXC_ERROR;
194: END IF;
195: l_contractstats_rec := p_contractstats_rec;
196: --- Validate all non-missing attributes (Item Level Validation)
197: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
193: RAISE FND_API.G_EXC_ERROR;
194: END IF;
195: l_contractstats_rec := p_contractstats_rec;
196: --- Validate all non-missing attributes (Item Level Validation)
197: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
198: l_return_status := Validate_Item_Attributes
199: (
200: l_contractstats_rec ---- IN
201: );
199: (
200: l_contractstats_rec ---- IN
201: );
202: --- If any errors happen abort API
203: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
204: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
205: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
206: RAISE FND_API.G_EXC_ERROR;
207: END IF;
200: l_contractstats_rec ---- IN
201: );
202: --- If any errors happen abort API
203: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
204: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
205: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
206: RAISE FND_API.G_EXC_ERROR;
207: END IF;
208: END IF;
201: );
202: --- If any errors happen abort API
203: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
204: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
205: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
206: RAISE FND_API.G_EXC_ERROR;
207: END IF;
208: END IF;
209: --- Defaulting item attributes
202: --- If any errors happen abort API
203: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
204: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
205: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
206: RAISE FND_API.G_EXC_ERROR;
207: END IF;
208: END IF;
209: --- Defaulting item attributes
210: l_return_status := Default_Item_Attributes
212: l_contractstats_rec, ---- IN
213: l_def_contractstats_rec
214: );
215: --- If any errors happen abort API
216: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
217: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
218: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
219: RAISE FND_API.G_EXC_ERROR;
220: END IF;
213: l_def_contractstats_rec
214: );
215: --- If any errors happen abort API
216: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
217: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
218: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
219: RAISE FND_API.G_EXC_ERROR;
220: END IF;
221: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
214: );
215: --- If any errors happen abort API
216: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
217: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
218: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
219: RAISE FND_API.G_EXC_ERROR;
220: END IF;
221: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
222: l_return_status := Validate_Item_Record(l_def_contractstats_rec);
215: --- If any errors happen abort API
216: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
217: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
218: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
219: RAISE FND_API.G_EXC_ERROR;
220: END IF;
221: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
222: l_return_status := Validate_Item_Record(l_def_contractstats_rec);
223: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
217: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
218: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
219: RAISE FND_API.G_EXC_ERROR;
220: END IF;
221: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
222: l_return_status := Validate_Item_Record(l_def_contractstats_rec);
223: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
225: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
219: RAISE FND_API.G_EXC_ERROR;
220: END IF;
221: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
222: l_return_status := Validate_Item_Record(l_def_contractstats_rec);
223: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
225: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
226: RAISE FND_API.G_EXC_ERROR;
227: END IF;
220: END IF;
221: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
222: l_return_status := Validate_Item_Record(l_def_contractstats_rec);
223: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
225: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
226: RAISE FND_API.G_EXC_ERROR;
227: END IF;
228: END IF;
221: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
222: l_return_status := Validate_Item_Record(l_def_contractstats_rec);
223: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
225: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
226: RAISE FND_API.G_EXC_ERROR;
227: END IF;
228: END IF;
229: -- Set primary key value
222: l_return_status := Validate_Item_Record(l_def_contractstats_rec);
223: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
225: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
226: RAISE FND_API.G_EXC_ERROR;
227: END IF;
228: END IF;
229: -- Set primary key value
230: l_def_contractstats_rec.contract_status_id := get_seq_id;
302: x_contract_status_id := l_def_contractstats_rec.contract_status_id;
303: x_object_version_number := l_def_contractstats_rec.OBJECT_VERSION_NUMBER;
304: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
305: EXCEPTION
306: WHEN FND_API.G_EXC_ERROR THEN
307: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
308: (
309: l_api_name,
310: G_PKG_NAME,
307: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
308: (
309: l_api_name,
310: G_PKG_NAME,
311: 'FND_API.G_RET_STS_ERROR',
312: x_msg_count,
313: x_msg_data,
314: '_Pvt'
315: );
313: x_msg_data,
314: '_Pvt'
315: );
316: APP_EXCEPTION.RAISE_EXCEPTION;
317: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
318: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
319: (
320: l_api_name,
321: G_PKG_NAME,
318: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
319: (
320: l_api_name,
321: G_PKG_NAME,
322: 'FND_API.G_RET_STS_UNEXP_ERROR',
323: x_msg_count,
324: x_msg_data,
325: '_Pvt'
326: );
382: x_contract_status_id OUT NUMBER,
383: x_object_version_number OUT NUMBER) IS
384: l_api_name CONSTANT VARCHAR2(30) := 'insert_row';
385: l_api_version CONSTANT NUMBER := 1;
386: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
387: l_contractstats_rec ContractStats_Rec_Type;
388: BEGIN
389: l_return_status := TAPI_DEV_KIT.START_ACTIVITY(l_api_name,
390: G_PKG_NAME,
392: p_api_version,
393: p_init_msg_list,
394: '_Pvt',
395: x_return_status);
396: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
397: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
398: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
399: RAISE FND_API.G_EXC_ERROR;
400: END IF;
393: p_init_msg_list,
394: '_Pvt',
395: x_return_status);
396: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
397: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
398: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
399: RAISE FND_API.G_EXC_ERROR;
400: END IF;
401: l_contractstats_rec.NAME := p_name;
394: '_Pvt',
395: x_return_status);
396: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
397: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
398: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
399: RAISE FND_API.G_EXC_ERROR;
400: END IF;
401: l_contractstats_rec.NAME := p_name;
402: l_contractstats_rec.DESCRIPTION := p_description;
395: x_return_status);
396: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
397: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
398: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
399: RAISE FND_API.G_EXC_ERROR;
400: END IF;
401: l_contractstats_rec.NAME := p_name;
402: l_contractstats_rec.DESCRIPTION := p_description;
403: l_contractstats_rec.VALIDATE_CONTRACT := p_validate_contract;
444: x_object_version_number
445: );
446: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
447: EXCEPTION
448: WHEN FND_API.G_EXC_ERROR THEN
449: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
450: (
451: l_api_name,
452: G_PKG_NAME,
449: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
450: (
451: l_api_name,
452: G_PKG_NAME,
453: 'FND_API.G_RET_STS_ERROR',
454: x_msg_count,
455: x_msg_data,
456: '_Pvt'
457: );
455: x_msg_data,
456: '_Pvt'
457: );
458: APP_EXCEPTION.RAISE_EXCEPTION;
459: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
460: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
461: (
462: l_api_name,
463: G_PKG_NAME,
460: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
461: (
462: l_api_name,
463: G_PKG_NAME,
464: 'FND_API.G_RET_STS_UNEXP_ERROR',
465: x_msg_count,
466: x_msg_data,
467: '_Pvt'
468: );
507: CONTRACT_STATUS_ID = p_contract_status_id
508: ;
509: l_api_name CONSTANT VARCHAR2(30) := 'lock_row';
510: l_api_version CONSTANT NUMBER := 1;
511: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
512: l_object_version_number CS_CONTRACT_STATUSES.OBJECT_VERSION_NUMBER%TYPE;
513: lc_object_version_number CS_CONTRACT_STATUSES.OBJECT_VERSION_NUMBER%TYPE;
514: l_row_notfound BOOLEAN := FALSE;
515: lc_row_notfound BOOLEAN := FALSE;
520: p_api_version,
521: p_init_msg_list,
522: '_Pvt',
523: x_return_status);
524: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
525: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
526: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
527: RAISE FND_API.G_EXC_ERROR;
528: END IF;
521: p_init_msg_list,
522: '_Pvt',
523: x_return_status);
524: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
525: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
526: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
527: RAISE FND_API.G_EXC_ERROR;
528: END IF;
529: BEGIN
522: '_Pvt',
523: x_return_status);
524: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
525: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
526: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
527: RAISE FND_API.G_EXC_ERROR;
528: END IF;
529: BEGIN
530: OPEN lock_csr;
523: x_return_status);
524: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
525: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
526: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
527: RAISE FND_API.G_EXC_ERROR;
528: END IF;
529: BEGIN
530: OPEN lock_csr;
531: FETCH lock_csr INTO l_object_version_number;
547: CLOSE lchk_csr;
548: END IF;
549: IF (lc_row_notfound) THEN
550: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
551: RAISE FND_API.G_EXC_ERROR;
552: ELSIF lc_object_version_number > p_object_version_number THEN
553: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
554: RAISE FND_API.G_EXC_ERROR;
555: ELSIF lc_object_version_number <> p_object_version_number THEN
550: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
551: RAISE FND_API.G_EXC_ERROR;
552: ELSIF lc_object_version_number > p_object_version_number THEN
553: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
554: RAISE FND_API.G_EXC_ERROR;
555: ELSIF lc_object_version_number <> p_object_version_number THEN
556: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
557: RAISE FND_API.G_EXC_ERROR;
558: ELSIF lc_object_version_number = -1 THEN
553: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
554: RAISE FND_API.G_EXC_ERROR;
555: ELSIF lc_object_version_number <> p_object_version_number THEN
556: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
557: RAISE FND_API.G_EXC_ERROR;
558: ELSIF lc_object_version_number = -1 THEN
559: TAPI_DEV_KIT.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
560: RAISE FND_API.G_EXC_ERROR;
561: END IF;
556: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
557: RAISE FND_API.G_EXC_ERROR;
558: ELSIF lc_object_version_number = -1 THEN
559: TAPI_DEV_KIT.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
560: RAISE FND_API.G_EXC_ERROR;
561: END IF;
562: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
563: EXCEPTION
564: WHEN FND_API.G_EXC_ERROR THEN
560: RAISE FND_API.G_EXC_ERROR;
561: END IF;
562: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
563: EXCEPTION
564: WHEN FND_API.G_EXC_ERROR THEN
565: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
566: (
567: l_api_name,
568: G_PKG_NAME,
565: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
566: (
567: l_api_name,
568: G_PKG_NAME,
569: 'FND_API.G_RET_STS_ERROR',
570: x_msg_count,
571: x_msg_data,
572: '_Pvt'
573: );
571: x_msg_data,
572: '_Pvt'
573: );
574: APP_EXCEPTION.RAISE_EXCEPTION;
575: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
576: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
577: (
578: l_api_name,
579: G_PKG_NAME,
576: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
577: (
578: l_api_name,
579: G_PKG_NAME,
580: 'FND_API.G_RET_STS_UNEXP_ERROR',
581: x_msg_count,
582: x_msg_data,
583: '_Pvt'
584: );
607: p_contractstats_val_rec IN ContractStats_Val_Rec_Type := G_MISS_CONTRACTSTATS_VAL_REC,
608: x_object_version_number OUT NUMBER) IS
609: l_api_name CONSTANT VARCHAR2(30) := 'update_row';
610: l_api_version CONSTANT NUMBER := 1;
611: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
612: l_contractstats_rec ContractStats_Rec_Type;
613: l_def_contractstats_rec ContractStats_Rec_Type;
614: FUNCTION populate_new_record (
615: p_contractstats_rec IN ContractStats_Rec_Type,
620: FROM Cs_Contract_Statuses
621: WHERE cs_contract_statuses.contract_status_id = p_contract_status_id;
622: l_cs_contracts_statuses_pk cs_contracts_statuses_pk_csr%ROWTYPE;
623: l_row_notfound BOOLEAN := TRUE;
624: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
625: BEGIN
626: x_contractstats_rec := p_contractstats_rec;
627: -- Get current database values
628: OPEN cs_contracts_statuses_pk_csr (p_contractstats_rec.contract_status_id);
629: FETCH cs_contracts_statuses_pk_csr INTO l_cs_contracts_statuses_pk;
630: l_row_notfound := cs_contracts_statuses_pk_csr%NOTFOUND;
631: CLOSE cs_contracts_statuses_pk_csr;
632: IF (l_row_notfound) THEN
633: l_return_status := FND_API.G_RET_STS_ERROR;
634: END IF;
635: IF (x_contractstats_rec.contract_status_id = TAPI_DEV_KIT.G_MISS_NUM)
636: THEN
637: x_contractstats_rec.contract_status_id := l_cs_contracts_statuses_pk.contract_status_id;
777: p_api_version,
778: p_init_msg_list,
779: '_Pvt',
780: x_return_status);
781: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
782: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
783: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
784: RAISE FND_API.G_EXC_ERROR;
785: END IF;
778: p_init_msg_list,
779: '_Pvt',
780: x_return_status);
781: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
782: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
783: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
784: RAISE FND_API.G_EXC_ERROR;
785: END IF;
786: migrate(p_contractstats_val_rec, l_contractstats_rec);
779: '_Pvt',
780: x_return_status);
781: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
782: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
783: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
784: RAISE FND_API.G_EXC_ERROR;
785: END IF;
786: migrate(p_contractstats_val_rec, l_contractstats_rec);
787: --- Defaulting item attributes
780: x_return_status);
781: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
782: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
783: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
784: RAISE FND_API.G_EXC_ERROR;
785: END IF;
786: migrate(p_contractstats_val_rec, l_contractstats_rec);
787: --- Defaulting item attributes
788: l_return_status := Default_Item_Attributes
790: l_contractstats_rec, ---- IN
791: l_def_contractstats_rec
792: );
793: --- If any errors happen abort API
794: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
795: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
796: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
797: RAISE FND_API.G_EXC_ERROR;
798: END IF;
791: l_def_contractstats_rec
792: );
793: --- If any errors happen abort API
794: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
795: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
796: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
797: RAISE FND_API.G_EXC_ERROR;
798: END IF;
799: l_return_status := populate_new_record(l_def_contractstats_rec, l_def_contractstats_rec);
792: );
793: --- If any errors happen abort API
794: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
795: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
796: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
797: RAISE FND_API.G_EXC_ERROR;
798: END IF;
799: l_return_status := populate_new_record(l_def_contractstats_rec, l_def_contractstats_rec);
800: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
793: --- If any errors happen abort API
794: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
795: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
796: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
797: RAISE FND_API.G_EXC_ERROR;
798: END IF;
799: l_return_status := populate_new_record(l_def_contractstats_rec, l_def_contractstats_rec);
800: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
801: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
796: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
797: RAISE FND_API.G_EXC_ERROR;
798: END IF;
799: l_return_status := populate_new_record(l_def_contractstats_rec, l_def_contractstats_rec);
800: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
801: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
802: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
803: RAISE FND_API.G_EXC_ERROR;
804: END IF;
797: RAISE FND_API.G_EXC_ERROR;
798: END IF;
799: l_return_status := populate_new_record(l_def_contractstats_rec, l_def_contractstats_rec);
800: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
801: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
802: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
803: RAISE FND_API.G_EXC_ERROR;
804: END IF;
805: --- Validate all non-missing attributes (Item Level Validation)
798: END IF;
799: l_return_status := populate_new_record(l_def_contractstats_rec, l_def_contractstats_rec);
800: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
801: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
802: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
803: RAISE FND_API.G_EXC_ERROR;
804: END IF;
805: --- Validate all non-missing attributes (Item Level Validation)
806: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
799: l_return_status := populate_new_record(l_def_contractstats_rec, l_def_contractstats_rec);
800: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
801: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
802: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
803: RAISE FND_API.G_EXC_ERROR;
804: END IF;
805: --- Validate all non-missing attributes (Item Level Validation)
806: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
807: l_return_status := Validate_Item_Attributes
802: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
803: RAISE FND_API.G_EXC_ERROR;
804: END IF;
805: --- Validate all non-missing attributes (Item Level Validation)
806: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
807: l_return_status := Validate_Item_Attributes
808: (
809: l_def_contractstats_rec ---- IN
810: );
808: (
809: l_def_contractstats_rec ---- IN
810: );
811: --- If any errors happen abort API
812: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
813: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
814: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
815: RAISE FND_API.G_EXC_ERROR;
816: END IF;
809: l_def_contractstats_rec ---- IN
810: );
811: --- If any errors happen abort API
812: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
813: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
814: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
815: RAISE FND_API.G_EXC_ERROR;
816: END IF;
817: END IF;
810: );
811: --- If any errors happen abort API
812: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
813: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
814: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
815: RAISE FND_API.G_EXC_ERROR;
816: END IF;
817: END IF;
818: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
811: --- If any errors happen abort API
812: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
813: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
814: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
815: RAISE FND_API.G_EXC_ERROR;
816: END IF;
817: END IF;
818: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
819: l_return_status := Validate_Item_Record(l_def_contractstats_rec);
814: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
815: RAISE FND_API.G_EXC_ERROR;
816: END IF;
817: END IF;
818: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
819: l_return_status := Validate_Item_Record(l_def_contractstats_rec);
820: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
821: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
822: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
816: END IF;
817: END IF;
818: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
819: l_return_status := Validate_Item_Record(l_def_contractstats_rec);
820: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
821: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
822: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
823: RAISE FND_API.G_EXC_ERROR;
824: END IF;
817: END IF;
818: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
819: l_return_status := Validate_Item_Record(l_def_contractstats_rec);
820: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
821: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
822: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
823: RAISE FND_API.G_EXC_ERROR;
824: END IF;
825: END IF;
818: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
819: l_return_status := Validate_Item_Record(l_def_contractstats_rec);
820: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
821: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
822: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
823: RAISE FND_API.G_EXC_ERROR;
824: END IF;
825: END IF;
826: UPDATE CS_CONTRACT_STATUSES
819: l_return_status := Validate_Item_Record(l_def_contractstats_rec);
820: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
821: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
822: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
823: RAISE FND_API.G_EXC_ERROR;
824: END IF;
825: END IF;
826: UPDATE CS_CONTRACT_STATUSES
827: SET
864: ;
865: x_object_version_number := l_def_contractstats_rec.OBJECT_VERSION_NUMBER;
866: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
867: EXCEPTION
868: WHEN FND_API.G_EXC_ERROR THEN
869: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
870: (
871: l_api_name,
872: G_PKG_NAME,
869: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
870: (
871: l_api_name,
872: G_PKG_NAME,
873: 'FND_API.G_RET_STS_ERROR',
874: x_msg_count,
875: x_msg_data,
876: '_Pvt'
877: );
875: x_msg_data,
876: '_Pvt'
877: );
878: APP_EXCEPTION.RAISE_EXCEPTION;
879: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
880: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
881: (
882: l_api_name,
883: G_PKG_NAME,
880: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
881: (
882: l_api_name,
883: G_PKG_NAME,
884: 'FND_API.G_RET_STS_UNEXP_ERROR',
885: x_msg_count,
886: x_msg_data,
887: '_Pvt'
888: );
944: p_object_version_number IN NUMBER := TAPI_DEV_KIT.G_MISS_NUM,
945: x_object_version_number OUT NUMBER) IS
946: l_api_name CONSTANT VARCHAR2(30) := 'update_row';
947: l_api_version CONSTANT NUMBER := 1;
948: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
949: l_contractstats_rec ContractStats_Val_Rec_Type;
950: BEGIN
951: l_return_status := TAPI_DEV_KIT.START_ACTIVITY(l_api_name,
952: G_PKG_NAME,
954: p_api_version,
955: p_init_msg_list,
956: '_Pvt',
957: x_return_status);
958: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
959: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
960: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
961: RAISE FND_API.G_EXC_ERROR;
962: END IF;
955: p_init_msg_list,
956: '_Pvt',
957: x_return_status);
958: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
959: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
960: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
961: RAISE FND_API.G_EXC_ERROR;
962: END IF;
963: l_contractstats_rec.CONTRACT_STATUS_ID := p_contract_status_id;
956: '_Pvt',
957: x_return_status);
958: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
959: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
960: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
961: RAISE FND_API.G_EXC_ERROR;
962: END IF;
963: l_contractstats_rec.CONTRACT_STATUS_ID := p_contract_status_id;
964: l_contractstats_rec.NAME := p_name;
957: x_return_status);
958: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
959: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
960: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
961: RAISE FND_API.G_EXC_ERROR;
962: END IF;
963: l_contractstats_rec.CONTRACT_STATUS_ID := p_contract_status_id;
964: l_contractstats_rec.NAME := p_name;
965: l_contractstats_rec.DESCRIPTION := p_description;
1006: x_object_version_number
1007: );
1008: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
1009: EXCEPTION
1010: WHEN FND_API.G_EXC_ERROR THEN
1011: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1012: (
1013: l_api_name,
1014: G_PKG_NAME,
1011: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1012: (
1013: l_api_name,
1014: G_PKG_NAME,
1015: 'FND_API.G_RET_STS_ERROR',
1016: x_msg_count,
1017: x_msg_data,
1018: '_Pvt'
1019: );
1017: x_msg_data,
1018: '_Pvt'
1019: );
1020: APP_EXCEPTION.RAISE_EXCEPTION;
1021: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1022: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1023: (
1024: l_api_name,
1025: G_PKG_NAME,
1022: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1023: (
1024: l_api_name,
1025: G_PKG_NAME,
1026: 'FND_API.G_RET_STS_UNEXP_ERROR',
1027: x_msg_count,
1028: x_msg_data,
1029: '_Pvt'
1030: );
1052: x_msg_data OUT VARCHAR2,
1053: p_contract_status_id IN NUMBER) IS
1054: l_api_name CONSTANT VARCHAR2(30) := 'delete_row';
1055: l_api_version CONSTANT NUMBER := 1;
1056: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1057: BEGIN
1058: l_return_status := TAPI_DEV_KIT.START_ACTIVITY(l_api_name,
1059: G_PKG_NAME,
1060: l_api_version,
1061: p_api_version,
1062: p_init_msg_list,
1063: '_Pvt',
1064: x_return_status);
1065: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1066: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1067: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1068: RAISE FND_API.G_EXC_ERROR;
1069: END IF;
1062: p_init_msg_list,
1063: '_Pvt',
1064: x_return_status);
1065: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1066: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1067: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1068: RAISE FND_API.G_EXC_ERROR;
1069: END IF;
1070: DELETE FROM CS_CONTRACT_STATUSES
1063: '_Pvt',
1064: x_return_status);
1065: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1066: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1067: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1068: RAISE FND_API.G_EXC_ERROR;
1069: END IF;
1070: DELETE FROM CS_CONTRACT_STATUSES
1071: WHERE
1064: x_return_status);
1065: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1066: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1067: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1068: RAISE FND_API.G_EXC_ERROR;
1069: END IF;
1070: DELETE FROM CS_CONTRACT_STATUSES
1071: WHERE
1072: CONTRACT_STATUS_ID = p_contract_status_id
1072: CONTRACT_STATUS_ID = p_contract_status_id
1073: ;
1074: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
1075: EXCEPTION
1076: WHEN FND_API.G_EXC_ERROR THEN
1077: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1078: (
1079: l_api_name,
1080: G_PKG_NAME,
1077: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1078: (
1079: l_api_name,
1080: G_PKG_NAME,
1081: 'FND_API.G_RET_STS_ERROR',
1082: x_msg_count,
1083: x_msg_data,
1084: '_Pvt'
1085: );
1083: x_msg_data,
1084: '_Pvt'
1085: );
1086: APP_EXCEPTION.RAISE_EXCEPTION;
1087: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1088: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1089: (
1090: l_api_name,
1091: G_PKG_NAME,
1088: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1089: (
1090: l_api_name,
1091: G_PKG_NAME,
1092: 'FND_API.G_RET_STS_UNEXP_ERROR',
1093: x_msg_count,
1094: x_msg_data,
1095: '_Pvt'
1096: );
1118: x_msg_data OUT VARCHAR2,
1119: p_contractstats_val_rec IN ContractStats_Val_Rec_Type := G_MISS_CONTRACTSTATS_VAL_REC) IS
1120: l_api_name CONSTANT VARCHAR2(30) := 'validate_row';
1121: l_api_version CONSTANT NUMBER := 1;
1122: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1123: l_contractstats_rec ContractStats_Rec_Type;
1124: l_def_contractstats_rec ContractStats_Rec_Type;
1125: BEGIN
1126: l_return_status := TAPI_DEV_KIT.START_ACTIVITY(l_api_name,
1129: p_api_version,
1130: p_init_msg_list,
1131: '_Pvt',
1132: x_return_status);
1133: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1134: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1135: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1136: RAISE FND_API.G_EXC_ERROR;
1137: END IF;
1130: p_init_msg_list,
1131: '_Pvt',
1132: x_return_status);
1133: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1134: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1135: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1136: RAISE FND_API.G_EXC_ERROR;
1137: END IF;
1138: migrate(p_contractstats_val_rec, l_contractstats_rec);
1131: '_Pvt',
1132: x_return_status);
1133: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1134: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1135: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1136: RAISE FND_API.G_EXC_ERROR;
1137: END IF;
1138: migrate(p_contractstats_val_rec, l_contractstats_rec);
1139: --- Validate all non-missing attributes (Item Level Validation)
1132: x_return_status);
1133: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1134: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1135: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1136: RAISE FND_API.G_EXC_ERROR;
1137: END IF;
1138: migrate(p_contractstats_val_rec, l_contractstats_rec);
1139: --- Validate all non-missing attributes (Item Level Validation)
1140: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
1136: RAISE FND_API.G_EXC_ERROR;
1137: END IF;
1138: migrate(p_contractstats_val_rec, l_contractstats_rec);
1139: --- Validate all non-missing attributes (Item Level Validation)
1140: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
1141: l_return_status := Validate_Item_Attributes
1142: (
1143: l_contractstats_rec ---- IN
1144: );
1142: (
1143: l_contractstats_rec ---- IN
1144: );
1145: --- If any errors happen abort API
1146: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1147: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1148: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1149: RAISE FND_API.G_EXC_ERROR;
1150: END IF;
1143: l_contractstats_rec ---- IN
1144: );
1145: --- If any errors happen abort API
1146: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1147: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1148: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1149: RAISE FND_API.G_EXC_ERROR;
1150: END IF;
1151: END IF;
1144: );
1145: --- If any errors happen abort API
1146: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1147: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1148: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1149: RAISE FND_API.G_EXC_ERROR;
1150: END IF;
1151: END IF;
1152: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1145: --- If any errors happen abort API
1146: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1147: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1148: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1149: RAISE FND_API.G_EXC_ERROR;
1150: END IF;
1151: END IF;
1152: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1153: l_return_status := Validate_Item_Record(l_def_contractstats_rec);
1148: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1149: RAISE FND_API.G_EXC_ERROR;
1150: END IF;
1151: END IF;
1152: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1153: l_return_status := Validate_Item_Record(l_def_contractstats_rec);
1154: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1155: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1156: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1150: END IF;
1151: END IF;
1152: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1153: l_return_status := Validate_Item_Record(l_def_contractstats_rec);
1154: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1155: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1156: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1157: RAISE FND_API.G_EXC_ERROR;
1158: END IF;
1151: END IF;
1152: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1153: l_return_status := Validate_Item_Record(l_def_contractstats_rec);
1154: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1155: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1156: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1157: RAISE FND_API.G_EXC_ERROR;
1158: END IF;
1159: END IF;
1152: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1153: l_return_status := Validate_Item_Record(l_def_contractstats_rec);
1154: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1155: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1156: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1157: RAISE FND_API.G_EXC_ERROR;
1158: END IF;
1159: END IF;
1160: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
1153: l_return_status := Validate_Item_Record(l_def_contractstats_rec);
1154: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1155: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1156: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1157: RAISE FND_API.G_EXC_ERROR;
1158: END IF;
1159: END IF;
1160: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
1161: EXCEPTION
1158: END IF;
1159: END IF;
1160: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
1161: EXCEPTION
1162: WHEN FND_API.G_EXC_ERROR THEN
1163: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1164: (
1165: l_api_name,
1166: G_PKG_NAME,
1163: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1164: (
1165: l_api_name,
1166: G_PKG_NAME,
1167: 'FND_API.G_RET_STS_ERROR',
1168: x_msg_count,
1169: x_msg_data,
1170: '_Pvt'
1171: );
1169: x_msg_data,
1170: '_Pvt'
1171: );
1172: APP_EXCEPTION.RAISE_EXCEPTION;
1173: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1174: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1175: (
1176: l_api_name,
1177: G_PKG_NAME,
1174: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1175: (
1176: l_api_name,
1177: G_PKG_NAME,
1178: 'FND_API.G_RET_STS_UNEXP_ERROR',
1179: x_msg_count,
1180: x_msg_data,
1181: '_Pvt'
1182: );
1237: p_context IN CS_CONTRACT_STATUSES.CONTEXT%TYPE := TAPI_DEV_KIT.G_MISS_CHAR,
1238: p_object_version_number IN NUMBER := TAPI_DEV_KIT.G_MISS_NUM) IS
1239: l_api_name CONSTANT VARCHAR2(30) := 'validate_row';
1240: l_api_version CONSTANT NUMBER := 1;
1241: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1242: l_contractstats_rec ContractStats_Val_Rec_Type;
1243: BEGIN
1244: l_return_status := TAPI_DEV_KIT.START_ACTIVITY(l_api_name,
1245: G_PKG_NAME,
1247: p_api_version,
1248: p_init_msg_list,
1249: '_Pvt',
1250: x_return_status);
1251: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1252: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1253: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1254: RAISE FND_API.G_EXC_ERROR;
1255: END IF;
1248: p_init_msg_list,
1249: '_Pvt',
1250: x_return_status);
1251: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1252: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1253: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1254: RAISE FND_API.G_EXC_ERROR;
1255: END IF;
1256: l_contractstats_rec.CONTRACT_STATUS_ID := p_contract_status_id;
1249: '_Pvt',
1250: x_return_status);
1251: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1252: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1253: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1254: RAISE FND_API.G_EXC_ERROR;
1255: END IF;
1256: l_contractstats_rec.CONTRACT_STATUS_ID := p_contract_status_id;
1257: l_contractstats_rec.NAME := p_name;
1250: x_return_status);
1251: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1252: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1253: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1254: RAISE FND_API.G_EXC_ERROR;
1255: END IF;
1256: l_contractstats_rec.CONTRACT_STATUS_ID := p_contract_status_id;
1257: l_contractstats_rec.NAME := p_name;
1258: l_contractstats_rec.DESCRIPTION := p_description;
1298: l_contractstats_rec
1299: );
1300: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
1301: EXCEPTION
1302: WHEN FND_API.G_EXC_ERROR THEN
1303: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1304: (
1305: l_api_name,
1306: G_PKG_NAME,
1303: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1304: (
1305: l_api_name,
1306: G_PKG_NAME,
1307: 'FND_API.G_RET_STS_ERROR',
1308: x_msg_count,
1309: x_msg_data,
1310: '_Pvt'
1311: );
1309: x_msg_data,
1310: '_Pvt'
1311: );
1312: APP_EXCEPTION.RAISE_EXCEPTION;
1313: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1314: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1315: (
1316: l_api_name,
1317: G_PKG_NAME,
1314: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1315: (
1316: l_api_name,
1317: G_PKG_NAME,
1318: 'FND_API.G_RET_STS_UNEXP_ERROR',
1319: x_msg_count,
1320: x_msg_data,
1321: '_Pvt'
1322: );