18: p_contintf_rec IN ContIntf_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_contintf_rec.cp_service_transaction_id = TAPI_DEV_KIT.G_MISS_NUM OR
25: p_contintf_rec.cp_service_transaction_id IS NULL
26: THEN
24: IF p_contintf_rec.cp_service_transaction_id = TAPI_DEV_KIT.G_MISS_NUM OR
25: p_contintf_rec.cp_service_transaction_id IS NULL
26: THEN
27: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'cp_service_transaction_id');
28: l_return_status := FND_API.G_RET_STS_ERROR;
29: ELSIF p_contintf_rec.cp_service_id = TAPI_DEV_KIT.G_MISS_NUM OR
30: p_contintf_rec.cp_service_id IS NULL
31: THEN
32: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'cp_service_id');
29: ELSIF p_contintf_rec.cp_service_id = TAPI_DEV_KIT.G_MISS_NUM OR
30: p_contintf_rec.cp_service_id IS NULL
31: THEN
32: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'cp_service_id');
33: l_return_status := FND_API.G_RET_STS_ERROR;
34: ELSIF p_contintf_rec.contract_id = TAPI_DEV_KIT.G_MISS_NUM OR
35: p_contintf_rec.contract_id IS NULL
36: THEN
37: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'contract_id');
34: ELSIF p_contintf_rec.contract_id = TAPI_DEV_KIT.G_MISS_NUM OR
35: p_contintf_rec.contract_id IS NULL
36: THEN
37: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'contract_id');
38: l_return_status := FND_API.G_RET_STS_ERROR;
39: ELSIF p_contintf_rec.ar_trx_type = TAPI_DEV_KIT.G_MISS_CHAR OR
40: p_contintf_rec.ar_trx_type IS NULL
41: THEN
42: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'ar_trx_type');
39: ELSIF p_contintf_rec.ar_trx_type = TAPI_DEV_KIT.G_MISS_CHAR OR
40: p_contintf_rec.ar_trx_type IS NULL
41: THEN
42: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'ar_trx_type');
43: l_return_status := FND_API.G_RET_STS_ERROR;
44: ELSIF p_contintf_rec.trx_start_date = TAPI_DEV_KIT.G_MISS_DATE OR
45: p_contintf_rec.trx_start_date IS NULL
46: THEN
47: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'trx_start_date');
44: ELSIF p_contintf_rec.trx_start_date = TAPI_DEV_KIT.G_MISS_DATE OR
45: p_contintf_rec.trx_start_date IS NULL
46: THEN
47: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'trx_start_date');
48: l_return_status := FND_API.G_RET_STS_ERROR;
49: ELSIF p_contintf_rec.trx_end_date = TAPI_DEV_KIT.G_MISS_DATE OR
50: p_contintf_rec.trx_end_date IS NULL
51: THEN
52: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'trx_end_date');
49: ELSIF p_contintf_rec.trx_end_date = TAPI_DEV_KIT.G_MISS_DATE OR
50: p_contintf_rec.trx_end_date IS NULL
51: THEN
52: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'trx_end_date');
53: l_return_status := FND_API.G_RET_STS_ERROR;
54: ELSIF p_contintf_rec.trx_date = TAPI_DEV_KIT.G_MISS_DATE OR
55: p_contintf_rec.trx_date IS NULL
56: THEN
57: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'trx_date');
54: ELSIF p_contintf_rec.trx_date = TAPI_DEV_KIT.G_MISS_DATE OR
55: p_contintf_rec.trx_date IS NULL
56: THEN
57: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'trx_date');
58: l_return_status := FND_API.G_RET_STS_ERROR;
59: ELSIF p_contintf_rec.trx_amount = TAPI_DEV_KIT.G_MISS_NUM OR
60: p_contintf_rec.trx_amount IS NULL
61: THEN
62: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'trx_amount');
59: ELSIF p_contintf_rec.trx_amount = TAPI_DEV_KIT.G_MISS_NUM OR
60: p_contintf_rec.trx_amount IS NULL
61: THEN
62: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'trx_amount');
63: l_return_status := FND_API.G_RET_STS_ERROR;
64: ELSIF p_contintf_rec.created_by = TAPI_DEV_KIT.G_MISS_NUM OR
65: p_contintf_rec.created_by IS NULL
66: THEN
67: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'created_by');
64: ELSIF p_contintf_rec.created_by = TAPI_DEV_KIT.G_MISS_NUM OR
65: p_contintf_rec.created_by IS NULL
66: THEN
67: TAPI_DEV_KIT.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'created_by');
68: l_return_status := FND_API.G_RET_STS_ERROR;
69: ELSIF p_contintf_rec.creation_date = TAPI_DEV_KIT.G_MISS_DATE OR
70: p_contintf_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_contintf_rec.creation_date = TAPI_DEV_KIT.G_MISS_DATE OR
70: p_contintf_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: END IF;
75: RETURN(l_return_status);
76: END Validate_Item_Attributes;
77:
83: l_def_contintf_rec OUT ContIntf_Rec_Type
84: )
85: RETURN VARCHAR2
86: IS
87: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
88: BEGIN
89: l_def_contintf_rec := p_contintf_rec;
90: l_def_contintf_rec.OBJECT_VERSION_NUMBER := NVL(l_def_contintf_rec.OBJECT_VERSION_NUMBER, 0) + 1;
91: RETURN(l_return_status);
95: FUNCTION Validate_Item_Record (
96: p_contintf_rec IN ContIntf_Rec_Type
97: )
98: RETURN VARCHAR2 IS
99: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
100: BEGIN
101: RETURN (l_return_status);
102: END Validate_Item_Record;
103:
161: x_contracts_interface_id OUT NUMBER,
162: x_object_version_number OUT NUMBER) IS
163: l_api_name CONSTANT VARCHAR2(30) := 'insert_row';
164: l_api_version CONSTANT NUMBER := 1;
165: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
166: l_contintf_rec ContIntf_Rec_Type;
167: l_def_contintf_rec ContIntf_Rec_Type;
168: BEGIN
169: l_return_status := TAPI_DEV_KIT.START_ACTIVITY(l_api_name,
172: p_api_version,
173: p_init_msg_list,
174: '_Pvt',
175: x_return_status);
176: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
177: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
178: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
179: RAISE FND_API.G_EXC_ERROR;
180: END IF;
173: p_init_msg_list,
174: '_Pvt',
175: x_return_status);
176: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
177: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
178: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
179: RAISE FND_API.G_EXC_ERROR;
180: END IF;
181: l_contintf_rec := p_contintf_rec;
174: '_Pvt',
175: x_return_status);
176: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
177: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
178: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
179: RAISE FND_API.G_EXC_ERROR;
180: END IF;
181: l_contintf_rec := p_contintf_rec;
182: --- Validate all non-missing attributes (Item Level Validation)
175: x_return_status);
176: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
177: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
178: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
179: RAISE FND_API.G_EXC_ERROR;
180: END IF;
181: l_contintf_rec := p_contintf_rec;
182: --- Validate all non-missing attributes (Item Level Validation)
183: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
179: RAISE FND_API.G_EXC_ERROR;
180: END IF;
181: l_contintf_rec := p_contintf_rec;
182: --- Validate all non-missing attributes (Item Level Validation)
183: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
184: l_return_status := Validate_Item_Attributes
185: (
186: l_contintf_rec ---- IN
187: );
185: (
186: l_contintf_rec ---- IN
187: );
188: --- If any errors happen abort API
189: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
190: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
191: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
192: RAISE FND_API.G_EXC_ERROR;
193: END IF;
186: l_contintf_rec ---- IN
187: );
188: --- If any errors happen abort API
189: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
190: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
191: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
192: RAISE FND_API.G_EXC_ERROR;
193: END IF;
194: END IF;
187: );
188: --- If any errors happen abort API
189: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
190: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
191: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
192: RAISE FND_API.G_EXC_ERROR;
193: END IF;
194: END IF;
195: --- Defaulting item attributes
188: --- If any errors happen abort API
189: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
190: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
191: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
192: RAISE FND_API.G_EXC_ERROR;
193: END IF;
194: END IF;
195: --- Defaulting item attributes
196: l_return_status := Default_Item_Attributes
198: l_contintf_rec, ---- IN
199: l_def_contintf_rec
200: );
201: --- If any errors happen abort API
202: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
203: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
204: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
205: RAISE FND_API.G_EXC_ERROR;
206: END IF;
199: l_def_contintf_rec
200: );
201: --- If any errors happen abort API
202: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
203: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
204: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
205: RAISE FND_API.G_EXC_ERROR;
206: END IF;
207: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
200: );
201: --- If any errors happen abort API
202: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
203: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
204: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
205: RAISE FND_API.G_EXC_ERROR;
206: END IF;
207: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
208: l_return_status := Validate_Item_Record(l_def_contintf_rec);
201: --- If any errors happen abort API
202: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
203: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
204: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
205: RAISE FND_API.G_EXC_ERROR;
206: END IF;
207: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
208: l_return_status := Validate_Item_Record(l_def_contintf_rec);
209: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
203: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
204: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
205: RAISE FND_API.G_EXC_ERROR;
206: END IF;
207: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
208: l_return_status := Validate_Item_Record(l_def_contintf_rec);
209: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
210: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
211: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
205: RAISE FND_API.G_EXC_ERROR;
206: END IF;
207: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
208: l_return_status := Validate_Item_Record(l_def_contintf_rec);
209: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
210: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
211: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
212: RAISE FND_API.G_EXC_ERROR;
213: END IF;
206: END IF;
207: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
208: l_return_status := Validate_Item_Record(l_def_contintf_rec);
209: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
210: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
211: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
212: RAISE FND_API.G_EXC_ERROR;
213: END IF;
214: END IF;
207: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
208: l_return_status := Validate_Item_Record(l_def_contintf_rec);
209: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
210: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
211: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
212: RAISE FND_API.G_EXC_ERROR;
213: END IF;
214: END IF;
215: -- Set primary key value
208: l_return_status := Validate_Item_Record(l_def_contintf_rec);
209: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
210: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
211: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
212: RAISE FND_API.G_EXC_ERROR;
213: END IF;
214: END IF;
215: -- Set primary key value
216: l_def_contintf_rec.contracts_interface_id := get_seq_id;
254: x_contracts_interface_id := l_def_contintf_rec.contracts_interface_id;
255: x_object_version_number := l_def_contintf_rec.OBJECT_VERSION_NUMBER;
256: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
257: EXCEPTION
258: WHEN FND_API.G_EXC_ERROR THEN
259: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
260: (
261: l_api_name,
262: G_PKG_NAME,
259: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
260: (
261: l_api_name,
262: G_PKG_NAME,
263: 'FND_API.G_RET_STS_ERROR',
264: x_msg_count,
265: x_msg_data,
266: '_Pvt'
267: );
265: x_msg_data,
266: '_Pvt'
267: );
268: APP_EXCEPTION.RAISE_EXCEPTION;
269: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
270: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
271: (
272: l_api_name,
273: G_PKG_NAME,
270: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
271: (
272: l_api_name,
273: G_PKG_NAME,
274: 'FND_API.G_RET_STS_UNEXP_ERROR',
275: x_msg_count,
276: x_msg_data,
277: '_Pvt'
278: );
317: x_contracts_interface_id OUT NUMBER,
318: x_object_version_number OUT NUMBER) IS
319: l_api_name CONSTANT VARCHAR2(30) := 'insert_row';
320: l_api_version CONSTANT NUMBER := 1;
321: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
322: l_contintf_rec ContIntf_Rec_Type;
323: BEGIN
324: l_return_status := TAPI_DEV_KIT.START_ACTIVITY(l_api_name,
325: G_PKG_NAME,
327: p_api_version,
328: p_init_msg_list,
329: '_Pvt',
330: x_return_status);
331: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
332: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
333: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
334: RAISE FND_API.G_EXC_ERROR;
335: END IF;
328: p_init_msg_list,
329: '_Pvt',
330: x_return_status);
331: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
332: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
333: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
334: RAISE FND_API.G_EXC_ERROR;
335: END IF;
336: l_contintf_rec.CP_SERVICE_TRANSACTION_ID := p_cp_service_transaction_id;
329: '_Pvt',
330: x_return_status);
331: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
332: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
333: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
334: RAISE FND_API.G_EXC_ERROR;
335: END IF;
336: l_contintf_rec.CP_SERVICE_TRANSACTION_ID := p_cp_service_transaction_id;
337: l_contintf_rec.CP_SERVICE_ID := p_cp_service_id;
330: x_return_status);
331: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
332: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
333: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
334: RAISE FND_API.G_EXC_ERROR;
335: END IF;
336: l_contintf_rec.CP_SERVICE_TRANSACTION_ID := p_cp_service_transaction_id;
337: l_contintf_rec.CP_SERVICE_ID := p_cp_service_id;
338: l_contintf_rec.CONTRACT_ID := p_contract_id;
362: x_object_version_number
363: );
364: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
365: EXCEPTION
366: WHEN FND_API.G_EXC_ERROR THEN
367: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
368: (
369: l_api_name,
370: G_PKG_NAME,
367: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
368: (
369: l_api_name,
370: G_PKG_NAME,
371: 'FND_API.G_RET_STS_ERROR',
372: x_msg_count,
373: x_msg_data,
374: '_Pvt'
375: );
373: x_msg_data,
374: '_Pvt'
375: );
376: APP_EXCEPTION.RAISE_EXCEPTION;
377: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
378: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
379: (
380: l_api_name,
381: G_PKG_NAME,
378: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
379: (
380: l_api_name,
381: G_PKG_NAME,
382: 'FND_API.G_RET_STS_UNEXP_ERROR',
383: x_msg_count,
384: x_msg_data,
385: '_Pvt'
386: );
425: CONTRACTS_INTERFACE_ID = p_contracts_interface_id
426: ;
427: l_api_name CONSTANT VARCHAR2(30) := 'lock_row';
428: l_api_version CONSTANT NUMBER := 1;
429: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
430: l_object_version_number CS_CONT_BILL_IFACE.OBJECT_VERSION_NUMBER%TYPE;
431: lc_object_version_number CS_CONT_BILL_IFACE.OBJECT_VERSION_NUMBER%TYPE;
432: l_row_notfound BOOLEAN := FALSE;
433: lc_row_notfound BOOLEAN := FALSE;
438: p_api_version,
439: p_init_msg_list,
440: '_Pvt',
441: x_return_status);
442: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
443: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
444: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
445: RAISE FND_API.G_EXC_ERROR;
446: END IF;
439: p_init_msg_list,
440: '_Pvt',
441: x_return_status);
442: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
443: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
444: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
445: RAISE FND_API.G_EXC_ERROR;
446: END IF;
447: BEGIN
440: '_Pvt',
441: x_return_status);
442: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
443: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
444: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
445: RAISE FND_API.G_EXC_ERROR;
446: END IF;
447: BEGIN
448: OPEN lock_csr;
441: x_return_status);
442: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
443: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
444: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
445: RAISE FND_API.G_EXC_ERROR;
446: END IF;
447: BEGIN
448: OPEN lock_csr;
449: FETCH lock_csr INTO l_object_version_number;
465: CLOSE lchk_csr;
466: END IF;
467: IF (lc_row_notfound) THEN
468: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
469: RAISE FND_API.G_EXC_ERROR;
470: ELSIF lc_object_version_number > p_object_version_number THEN
471: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
472: RAISE FND_API.G_EXC_ERROR;
473: ELSIF lc_object_version_number <> p_object_version_number THEN
468: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
469: RAISE FND_API.G_EXC_ERROR;
470: ELSIF lc_object_version_number > p_object_version_number THEN
471: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
472: RAISE FND_API.G_EXC_ERROR;
473: ELSIF lc_object_version_number <> p_object_version_number THEN
474: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
475: RAISE FND_API.G_EXC_ERROR;
476: ELSIF lc_object_version_number = -1 THEN
471: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
472: RAISE FND_API.G_EXC_ERROR;
473: ELSIF lc_object_version_number <> p_object_version_number THEN
474: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
475: RAISE FND_API.G_EXC_ERROR;
476: ELSIF lc_object_version_number = -1 THEN
477: TAPI_DEV_KIT.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
478: RAISE FND_API.G_EXC_ERROR;
479: END IF;
474: TAPI_DEV_KIT.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
475: RAISE FND_API.G_EXC_ERROR;
476: ELSIF lc_object_version_number = -1 THEN
477: TAPI_DEV_KIT.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
478: RAISE FND_API.G_EXC_ERROR;
479: END IF;
480: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
481: EXCEPTION
482: WHEN FND_API.G_EXC_ERROR THEN
478: RAISE FND_API.G_EXC_ERROR;
479: END IF;
480: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
481: EXCEPTION
482: WHEN FND_API.G_EXC_ERROR THEN
483: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
484: (
485: l_api_name,
486: G_PKG_NAME,
483: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
484: (
485: l_api_name,
486: G_PKG_NAME,
487: 'FND_API.G_RET_STS_ERROR',
488: x_msg_count,
489: x_msg_data,
490: '_Pvt'
491: );
489: x_msg_data,
490: '_Pvt'
491: );
492: APP_EXCEPTION.RAISE_EXCEPTION;
493: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
494: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
495: (
496: l_api_name,
497: G_PKG_NAME,
494: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
495: (
496: l_api_name,
497: G_PKG_NAME,
498: 'FND_API.G_RET_STS_UNEXP_ERROR',
499: x_msg_count,
500: x_msg_data,
501: '_Pvt'
502: );
525: p_contintf_val_rec IN ContIntf_Val_Rec_Type := G_MISS_CONTINTF_VAL_REC,
526: x_object_version_number OUT NUMBER) IS
527: l_api_name CONSTANT VARCHAR2(30) := 'update_row';
528: l_api_version CONSTANT NUMBER := 1;
529: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
530: l_contintf_rec ContIntf_Rec_Type;
531: l_def_contintf_rec ContIntf_Rec_Type;
532: FUNCTION populate_new_record (
533: p_contintf_rec IN ContIntf_Rec_Type,
538: FROM Cs_Cont_Bill_Iface
539: WHERE cs_cont_bill_iface.contracts_interface_id = p_contracts_interface_id;
540: l_oco_26638 oco_26638_csr%ROWTYPE;
541: l_row_notfound BOOLEAN := TRUE;
542: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
543: BEGIN
544: x_contintf_rec := p_contintf_rec;
545: -- Get current database values
546: OPEN oco_26638_csr (p_contintf_rec.contracts_interface_id);
547: FETCH oco_26638_csr INTO l_oco_26638;
548: l_row_notfound := oco_26638_csr%NOTFOUND;
549: CLOSE oco_26638_csr;
550: IF (l_row_notfound) THEN
551: l_return_status := FND_API.G_RET_STS_ERROR;
552: END IF;
553: IF (x_contintf_rec.contracts_interface_id = TAPI_DEV_KIT.G_MISS_NUM)
554: THEN
555: x_contintf_rec.contracts_interface_id := l_oco_26638.contracts_interface_id;
627: p_api_version,
628: p_init_msg_list,
629: '_Pvt',
630: x_return_status);
631: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
632: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
633: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
634: RAISE FND_API.G_EXC_ERROR;
635: END IF;
628: p_init_msg_list,
629: '_Pvt',
630: x_return_status);
631: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
632: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
633: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
634: RAISE FND_API.G_EXC_ERROR;
635: END IF;
636: migrate(p_contintf_val_rec, l_contintf_rec);
629: '_Pvt',
630: x_return_status);
631: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
632: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
633: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
634: RAISE FND_API.G_EXC_ERROR;
635: END IF;
636: migrate(p_contintf_val_rec, l_contintf_rec);
637: --- Defaulting item attributes
630: x_return_status);
631: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
632: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
633: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
634: RAISE FND_API.G_EXC_ERROR;
635: END IF;
636: migrate(p_contintf_val_rec, l_contintf_rec);
637: --- Defaulting item attributes
638: l_return_status := Default_Item_Attributes
640: l_contintf_rec, ---- IN
641: l_def_contintf_rec
642: );
643: --- If any errors happen abort API
644: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
645: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
646: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
647: RAISE FND_API.G_EXC_ERROR;
648: END IF;
641: l_def_contintf_rec
642: );
643: --- If any errors happen abort API
644: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
645: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
646: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
647: RAISE FND_API.G_EXC_ERROR;
648: END IF;
649: l_return_status := populate_new_record(l_def_contintf_rec, l_def_contintf_rec);
642: );
643: --- If any errors happen abort API
644: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
645: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
646: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
647: RAISE FND_API.G_EXC_ERROR;
648: END IF;
649: l_return_status := populate_new_record(l_def_contintf_rec, l_def_contintf_rec);
650: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
643: --- If any errors happen abort API
644: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
645: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
646: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
647: RAISE FND_API.G_EXC_ERROR;
648: END IF;
649: l_return_status := populate_new_record(l_def_contintf_rec, l_def_contintf_rec);
650: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
651: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
646: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
647: RAISE FND_API.G_EXC_ERROR;
648: END IF;
649: l_return_status := populate_new_record(l_def_contintf_rec, l_def_contintf_rec);
650: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
651: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
652: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
653: RAISE FND_API.G_EXC_ERROR;
654: END IF;
647: RAISE FND_API.G_EXC_ERROR;
648: END IF;
649: l_return_status := populate_new_record(l_def_contintf_rec, l_def_contintf_rec);
650: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
651: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
652: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
653: RAISE FND_API.G_EXC_ERROR;
654: END IF;
655: --- Validate all non-missing attributes (Item Level Validation)
648: END IF;
649: l_return_status := populate_new_record(l_def_contintf_rec, l_def_contintf_rec);
650: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
651: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
652: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
653: RAISE FND_API.G_EXC_ERROR;
654: END IF;
655: --- Validate all non-missing attributes (Item Level Validation)
656: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
649: l_return_status := populate_new_record(l_def_contintf_rec, l_def_contintf_rec);
650: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
651: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
652: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
653: RAISE FND_API.G_EXC_ERROR;
654: END IF;
655: --- Validate all non-missing attributes (Item Level Validation)
656: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
657: l_return_status := Validate_Item_Attributes
652: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
653: RAISE FND_API.G_EXC_ERROR;
654: END IF;
655: --- Validate all non-missing attributes (Item Level Validation)
656: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
657: l_return_status := Validate_Item_Attributes
658: (
659: l_def_contintf_rec ---- IN
660: );
658: (
659: l_def_contintf_rec ---- IN
660: );
661: --- If any errors happen abort API
662: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
663: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
664: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
665: RAISE FND_API.G_EXC_ERROR;
666: END IF;
659: l_def_contintf_rec ---- IN
660: );
661: --- If any errors happen abort API
662: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
663: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
664: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
665: RAISE FND_API.G_EXC_ERROR;
666: END IF;
667: END IF;
660: );
661: --- If any errors happen abort API
662: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
663: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
664: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
665: RAISE FND_API.G_EXC_ERROR;
666: END IF;
667: END IF;
668: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
661: --- If any errors happen abort API
662: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
663: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
664: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
665: RAISE FND_API.G_EXC_ERROR;
666: END IF;
667: END IF;
668: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
669: l_return_status := Validate_Item_Record(l_def_contintf_rec);
664: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
665: RAISE FND_API.G_EXC_ERROR;
666: END IF;
667: END IF;
668: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
669: l_return_status := Validate_Item_Record(l_def_contintf_rec);
670: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
671: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
672: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
666: END IF;
667: END IF;
668: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
669: l_return_status := Validate_Item_Record(l_def_contintf_rec);
670: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
671: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
672: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
673: RAISE FND_API.G_EXC_ERROR;
674: END IF;
667: END IF;
668: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
669: l_return_status := Validate_Item_Record(l_def_contintf_rec);
670: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
671: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
672: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
673: RAISE FND_API.G_EXC_ERROR;
674: END IF;
675: END IF;
668: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
669: l_return_status := Validate_Item_Record(l_def_contintf_rec);
670: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
671: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
672: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
673: RAISE FND_API.G_EXC_ERROR;
674: END IF;
675: END IF;
676: UPDATE CS_CONT_BILL_IFACE
669: l_return_status := Validate_Item_Record(l_def_contintf_rec);
670: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
671: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
672: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
673: RAISE FND_API.G_EXC_ERROR;
674: END IF;
675: END IF;
676: UPDATE CS_CONT_BILL_IFACE
677: SET
697: ;
698: x_object_version_number := l_def_contintf_rec.OBJECT_VERSION_NUMBER;
699: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
700: EXCEPTION
701: WHEN FND_API.G_EXC_ERROR THEN
702: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
703: (
704: l_api_name,
705: G_PKG_NAME,
702: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
703: (
704: l_api_name,
705: G_PKG_NAME,
706: 'FND_API.G_RET_STS_ERROR',
707: x_msg_count,
708: x_msg_data,
709: '_Pvt'
710: );
708: x_msg_data,
709: '_Pvt'
710: );
711: APP_EXCEPTION.RAISE_EXCEPTION;
712: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
713: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
714: (
715: l_api_name,
716: G_PKG_NAME,
713: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
714: (
715: l_api_name,
716: G_PKG_NAME,
717: 'FND_API.G_RET_STS_UNEXP_ERROR',
718: x_msg_count,
719: x_msg_data,
720: '_Pvt'
721: );
760: p_object_version_number IN NUMBER := TAPI_DEV_KIT.G_MISS_NUM,
761: x_object_version_number OUT NUMBER) IS
762: l_api_name CONSTANT VARCHAR2(30) := 'update_row';
763: l_api_version CONSTANT NUMBER := 1;
764: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
765: l_contintf_rec ContIntf_Val_Rec_Type;
766: BEGIN
767: l_return_status := TAPI_DEV_KIT.START_ACTIVITY(l_api_name,
768: G_PKG_NAME,
770: p_api_version,
771: p_init_msg_list,
772: '_Pvt',
773: x_return_status);
774: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
775: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
776: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
777: RAISE FND_API.G_EXC_ERROR;
778: END IF;
771: p_init_msg_list,
772: '_Pvt',
773: x_return_status);
774: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
775: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
776: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
777: RAISE FND_API.G_EXC_ERROR;
778: END IF;
779: l_contintf_rec.CONTRACTS_INTERFACE_ID := p_contracts_interface_id;
772: '_Pvt',
773: x_return_status);
774: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
775: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
776: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
777: RAISE FND_API.G_EXC_ERROR;
778: END IF;
779: l_contintf_rec.CONTRACTS_INTERFACE_ID := p_contracts_interface_id;
780: l_contintf_rec.CP_SERVICE_TRANSACTION_ID := p_cp_service_transaction_id;
773: x_return_status);
774: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
775: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
776: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
777: RAISE FND_API.G_EXC_ERROR;
778: END IF;
779: l_contintf_rec.CONTRACTS_INTERFACE_ID := p_contracts_interface_id;
780: l_contintf_rec.CP_SERVICE_TRANSACTION_ID := p_cp_service_transaction_id;
781: l_contintf_rec.CP_SERVICE_ID := p_cp_service_id;
805: x_object_version_number
806: );
807: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
808: EXCEPTION
809: WHEN FND_API.G_EXC_ERROR THEN
810: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
811: (
812: l_api_name,
813: G_PKG_NAME,
810: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
811: (
812: l_api_name,
813: G_PKG_NAME,
814: 'FND_API.G_RET_STS_ERROR',
815: x_msg_count,
816: x_msg_data,
817: '_Pvt'
818: );
816: x_msg_data,
817: '_Pvt'
818: );
819: APP_EXCEPTION.RAISE_EXCEPTION;
820: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
821: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
822: (
823: l_api_name,
824: G_PKG_NAME,
821: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
822: (
823: l_api_name,
824: G_PKG_NAME,
825: 'FND_API.G_RET_STS_UNEXP_ERROR',
826: x_msg_count,
827: x_msg_data,
828: '_Pvt'
829: );
851: x_msg_data OUT VARCHAR2,
852: p_contracts_interface_id IN NUMBER) IS
853: l_api_name CONSTANT VARCHAR2(30) := 'delete_row';
854: l_api_version CONSTANT NUMBER := 1;
855: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
856: BEGIN
857: l_return_status := TAPI_DEV_KIT.START_ACTIVITY(l_api_name,
858: G_PKG_NAME,
859: l_api_version,
860: p_api_version,
861: p_init_msg_list,
862: '_Pvt',
863: x_return_status);
864: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
865: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
866: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
867: RAISE FND_API.G_EXC_ERROR;
868: END IF;
861: p_init_msg_list,
862: '_Pvt',
863: x_return_status);
864: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
865: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
866: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
867: RAISE FND_API.G_EXC_ERROR;
868: END IF;
869: DELETE FROM CS_CONT_BILL_IFACE
862: '_Pvt',
863: x_return_status);
864: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
865: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
866: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
867: RAISE FND_API.G_EXC_ERROR;
868: END IF;
869: DELETE FROM CS_CONT_BILL_IFACE
870: WHERE
863: x_return_status);
864: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
865: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
866: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
867: RAISE FND_API.G_EXC_ERROR;
868: END IF;
869: DELETE FROM CS_CONT_BILL_IFACE
870: WHERE
871: CONTRACTS_INTERFACE_ID = p_contracts_interface_id
871: CONTRACTS_INTERFACE_ID = p_contracts_interface_id
872: ;
873: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
874: EXCEPTION
875: WHEN FND_API.G_EXC_ERROR THEN
876: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
877: (
878: l_api_name,
879: G_PKG_NAME,
876: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
877: (
878: l_api_name,
879: G_PKG_NAME,
880: 'FND_API.G_RET_STS_ERROR',
881: x_msg_count,
882: x_msg_data,
883: '_Pvt'
884: );
882: x_msg_data,
883: '_Pvt'
884: );
885: APP_EXCEPTION.RAISE_EXCEPTION;
886: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
887: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
888: (
889: l_api_name,
890: G_PKG_NAME,
887: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
888: (
889: l_api_name,
890: G_PKG_NAME,
891: 'FND_API.G_RET_STS_UNEXP_ERROR',
892: x_msg_count,
893: x_msg_data,
894: '_Pvt'
895: );
917: x_msg_data OUT VARCHAR2,
918: p_contintf_val_rec IN ContIntf_Val_Rec_Type := G_MISS_CONTINTF_VAL_REC) IS
919: l_api_name CONSTANT VARCHAR2(30) := 'validate_row';
920: l_api_version CONSTANT NUMBER := 1;
921: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
922: l_contintf_rec ContIntf_Rec_Type;
923: l_def_contintf_rec ContIntf_Rec_Type;
924: BEGIN
925: l_return_status := TAPI_DEV_KIT.START_ACTIVITY(l_api_name,
928: p_api_version,
929: p_init_msg_list,
930: '_Pvt',
931: x_return_status);
932: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
933: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
934: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
935: RAISE FND_API.G_EXC_ERROR;
936: END IF;
929: p_init_msg_list,
930: '_Pvt',
931: x_return_status);
932: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
933: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
934: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
935: RAISE FND_API.G_EXC_ERROR;
936: END IF;
937: migrate(p_contintf_val_rec, l_contintf_rec);
930: '_Pvt',
931: x_return_status);
932: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
933: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
934: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
935: RAISE FND_API.G_EXC_ERROR;
936: END IF;
937: migrate(p_contintf_val_rec, l_contintf_rec);
938: --- Validate all non-missing attributes (Item Level Validation)
931: x_return_status);
932: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
933: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
934: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
935: RAISE FND_API.G_EXC_ERROR;
936: END IF;
937: migrate(p_contintf_val_rec, l_contintf_rec);
938: --- Validate all non-missing attributes (Item Level Validation)
939: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
935: RAISE FND_API.G_EXC_ERROR;
936: END IF;
937: migrate(p_contintf_val_rec, l_contintf_rec);
938: --- Validate all non-missing attributes (Item Level Validation)
939: IF p_validation_level >= FND_API.G_VALID_LEVEL_FULL THEN
940: l_return_status := Validate_Item_Attributes
941: (
942: l_contintf_rec ---- IN
943: );
941: (
942: l_contintf_rec ---- IN
943: );
944: --- If any errors happen abort API
945: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
946: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
947: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
948: RAISE FND_API.G_EXC_ERROR;
949: END IF;
942: l_contintf_rec ---- IN
943: );
944: --- If any errors happen abort API
945: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
946: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
947: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
948: RAISE FND_API.G_EXC_ERROR;
949: END IF;
950: END IF;
943: );
944: --- If any errors happen abort API
945: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
946: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
947: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
948: RAISE FND_API.G_EXC_ERROR;
949: END IF;
950: END IF;
951: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
944: --- If any errors happen abort API
945: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
946: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
947: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
948: RAISE FND_API.G_EXC_ERROR;
949: END IF;
950: END IF;
951: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
952: l_return_status := Validate_Item_Record(l_def_contintf_rec);
947: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
948: RAISE FND_API.G_EXC_ERROR;
949: END IF;
950: END IF;
951: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
952: l_return_status := Validate_Item_Record(l_def_contintf_rec);
953: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
954: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
955: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
949: END IF;
950: END IF;
951: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
952: l_return_status := Validate_Item_Record(l_def_contintf_rec);
953: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
954: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
955: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
956: RAISE FND_API.G_EXC_ERROR;
957: END IF;
950: END IF;
951: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
952: l_return_status := Validate_Item_Record(l_def_contintf_rec);
953: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
954: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
955: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
956: RAISE FND_API.G_EXC_ERROR;
957: END IF;
958: END IF;
951: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
952: l_return_status := Validate_Item_Record(l_def_contintf_rec);
953: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
954: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
955: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
956: RAISE FND_API.G_EXC_ERROR;
957: END IF;
958: END IF;
959: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
952: l_return_status := Validate_Item_Record(l_def_contintf_rec);
953: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
954: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
955: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
956: RAISE FND_API.G_EXC_ERROR;
957: END IF;
958: END IF;
959: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
960: EXCEPTION
957: END IF;
958: END IF;
959: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
960: EXCEPTION
961: WHEN FND_API.G_EXC_ERROR THEN
962: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
963: (
964: l_api_name,
965: G_PKG_NAME,
962: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
963: (
964: l_api_name,
965: G_PKG_NAME,
966: 'FND_API.G_RET_STS_ERROR',
967: x_msg_count,
968: x_msg_data,
969: '_Pvt'
970: );
968: x_msg_data,
969: '_Pvt'
970: );
971: APP_EXCEPTION.RAISE_EXCEPTION;
972: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
973: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
974: (
975: l_api_name,
976: G_PKG_NAME,
973: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
974: (
975: l_api_name,
976: G_PKG_NAME,
977: 'FND_API.G_RET_STS_UNEXP_ERROR',
978: x_msg_count,
979: x_msg_data,
980: '_Pvt'
981: );
1019: p_creation_date IN CS_CONT_BILL_IFACE.CREATION_DATE%TYPE := TAPI_DEV_KIT.G_MISS_DATE,
1020: p_object_version_number IN NUMBER := TAPI_DEV_KIT.G_MISS_NUM) IS
1021: l_api_name CONSTANT VARCHAR2(30) := 'validate_row';
1022: l_api_version CONSTANT NUMBER := 1;
1023: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1024: l_contintf_rec ContIntf_Val_Rec_Type;
1025: BEGIN
1026: l_return_status := TAPI_DEV_KIT.START_ACTIVITY(l_api_name,
1027: G_PKG_NAME,
1029: p_api_version,
1030: p_init_msg_list,
1031: '_Pvt',
1032: x_return_status);
1033: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1034: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1035: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1036: RAISE FND_API.G_EXC_ERROR;
1037: END IF;
1030: p_init_msg_list,
1031: '_Pvt',
1032: x_return_status);
1033: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1034: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1035: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1036: RAISE FND_API.G_EXC_ERROR;
1037: END IF;
1038: l_contintf_rec.CONTRACTS_INTERFACE_ID := p_contracts_interface_id;
1031: '_Pvt',
1032: x_return_status);
1033: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1034: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1035: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1036: RAISE FND_API.G_EXC_ERROR;
1037: END IF;
1038: l_contintf_rec.CONTRACTS_INTERFACE_ID := p_contracts_interface_id;
1039: l_contintf_rec.CP_SERVICE_TRANSACTION_ID := p_cp_service_transaction_id;
1032: x_return_status);
1033: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1034: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1035: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1036: RAISE FND_API.G_EXC_ERROR;
1037: END IF;
1038: l_contintf_rec.CONTRACTS_INTERFACE_ID := p_contracts_interface_id;
1039: l_contintf_rec.CP_SERVICE_TRANSACTION_ID := p_cp_service_transaction_id;
1040: l_contintf_rec.CP_SERVICE_ID := p_cp_service_id;
1063: l_contintf_rec
1064: );
1065: TAPI_DEV_KIT.END_ACTIVITY(p_commit, x_msg_count, x_msg_data);
1066: EXCEPTION
1067: WHEN FND_API.G_EXC_ERROR THEN
1068: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1069: (
1070: l_api_name,
1071: G_PKG_NAME,
1068: x_return_status := TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1069: (
1070: l_api_name,
1071: G_PKG_NAME,
1072: 'FND_API.G_RET_STS_ERROR',
1073: x_msg_count,
1074: x_msg_data,
1075: '_Pvt'
1076: );
1074: x_msg_data,
1075: '_Pvt'
1076: );
1077: APP_EXCEPTION.RAISE_EXCEPTION;
1078: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1079: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1080: (
1081: l_api_name,
1082: G_PKG_NAME,
1079: x_return_status :=TAPI_DEV_KIT.HANDLE_EXCEPTIONS
1080: (
1081: l_api_name,
1082: G_PKG_NAME,
1083: 'FND_API.G_RET_STS_UNEXP_ERROR',
1084: x_msg_count,
1085: x_msg_data,
1086: '_Pvt'
1087: );