1: PACKAGE BODY OKL_CONTRACT_PARTY_PVT AS
2: /* $Header: OKLRCPCB.pls 120.2 2005/10/20 09:38:41 sjalasut noship $ */
3: G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
4: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_CONTRACT_PARTY_PVT';
5: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
6: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
7: -- Start of comments
1: PACKAGE BODY OKL_CONTRACT_PARTY_PVT AS
2: /* $Header: OKLRCPCB.pls 120.2 2005/10/20 09:38:41 sjalasut noship $ */
3: G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
4: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_CONTRACT_PARTY_PVT';
5: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
6: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
7: -- Start of comments
8: --
9: -- Procedure Name : create_contact
2: /* $Header: OKLRCPCB.pls 120.2 2005/10/20 09:38:41 sjalasut noship $ */
3: G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
4: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_CONTRACT_PARTY_PVT';
5: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
6: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
7: -- Start of comments
8: --
9: -- Procedure Name : create_contact
10: -- Description :
36: l_row_found BOOLEAN := FALSE;
37: l_dummy VARCHAR2(1);
38:
39: BEGIN
40: l_return_status := OKL_API.START_ACTIVITY(p_api_name => l_api_name
41: ,p_init_msg_list => p_init_msg_list
42: ,p_api_type => '_PVT'
43: ,x_return_status => x_return_status
44: );
41: ,p_init_msg_list => p_init_msg_list
42: ,p_api_type => '_PVT'
43: ,x_return_status => x_return_status
44: );
45: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
46: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
47: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
48: RAISE OKL_API.G_EXCEPTION_ERROR;
49: END IF;
42: ,p_api_type => '_PVT'
43: ,x_return_status => x_return_status
44: );
45: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
46: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
47: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
48: RAISE OKL_API.G_EXCEPTION_ERROR;
49: END IF;
50:
43: ,x_return_status => x_return_status
44: );
45: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
46: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
47: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
48: RAISE OKL_API.G_EXCEPTION_ERROR;
49: END IF;
50:
51: x_return_status := OKL_API.G_RET_STS_SUCCESS;
44: );
45: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
46: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
47: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
48: RAISE OKL_API.G_EXCEPTION_ERROR;
49: END IF;
50:
51: x_return_status := OKL_API.G_RET_STS_SUCCESS;
52:
47: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
48: RAISE OKL_API.G_EXCEPTION_ERROR;
49: END IF;
50:
51: x_return_status := OKL_API.G_RET_STS_SUCCESS;
52:
53: -- Not null Validation for Contact Role
54: IF ((p_ctcv_rec.cro_code = OKL_API.G_MISS_CHAR) OR (p_ctcv_rec.cro_code IS NULL)) THEN
55: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_CONTACT_ROLE_REQUIRED');
50:
51: x_return_status := OKL_API.G_RET_STS_SUCCESS;
52:
53: -- Not null Validation for Contact Role
54: IF ((p_ctcv_rec.cro_code = OKL_API.G_MISS_CHAR) OR (p_ctcv_rec.cro_code IS NULL)) THEN
55: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_CONTACT_ROLE_REQUIRED');
56: l_return_status :=okl_api.g_ret_sts_error;
57: RAISE OKL_API.G_EXCEPTION_ERROR;
58: END IF;
51: x_return_status := OKL_API.G_RET_STS_SUCCESS;
52:
53: -- Not null Validation for Contact Role
54: IF ((p_ctcv_rec.cro_code = OKL_API.G_MISS_CHAR) OR (p_ctcv_rec.cro_code IS NULL)) THEN
55: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_CONTACT_ROLE_REQUIRED');
56: l_return_status :=okl_api.g_ret_sts_error;
57: RAISE OKL_API.G_EXCEPTION_ERROR;
58: END IF;
59:
52:
53: -- Not null Validation for Contact Role
54: IF ((p_ctcv_rec.cro_code = OKL_API.G_MISS_CHAR) OR (p_ctcv_rec.cro_code IS NULL)) THEN
55: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_CONTACT_ROLE_REQUIRED');
56: l_return_status :=okl_api.g_ret_sts_error;
57: RAISE OKL_API.G_EXCEPTION_ERROR;
58: END IF;
59:
60: -- Not null Validation for Contact Name
53: -- Not null Validation for Contact Role
54: IF ((p_ctcv_rec.cro_code = OKL_API.G_MISS_CHAR) OR (p_ctcv_rec.cro_code IS NULL)) THEN
55: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_CONTACT_ROLE_REQUIRED');
56: l_return_status :=okl_api.g_ret_sts_error;
57: RAISE OKL_API.G_EXCEPTION_ERROR;
58: END IF;
59:
60: -- Not null Validation for Contact Name
61: IF ((p_ctcv_rec.object1_id1 = OKL_API.G_MISS_CHAR) OR (p_ctcv_rec.object1_id1 IS NULL)) OR
57: RAISE OKL_API.G_EXCEPTION_ERROR;
58: END IF;
59:
60: -- Not null Validation for Contact Name
61: IF ((p_ctcv_rec.object1_id1 = OKL_API.G_MISS_CHAR) OR (p_ctcv_rec.object1_id1 IS NULL)) OR
62: ((p_ctcv_rec.object1_id2 = OKL_API.G_MISS_CHAR) OR (p_ctcv_rec.object1_id2 IS NULL)) THEN
63: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_CONTACT_NAME_REQUIRED');
64: l_return_status :=okl_api.g_ret_sts_error;
65: RAISE OKL_API.G_EXCEPTION_ERROR;
58: END IF;
59:
60: -- Not null Validation for Contact Name
61: IF ((p_ctcv_rec.object1_id1 = OKL_API.G_MISS_CHAR) OR (p_ctcv_rec.object1_id1 IS NULL)) OR
62: ((p_ctcv_rec.object1_id2 = OKL_API.G_MISS_CHAR) OR (p_ctcv_rec.object1_id2 IS NULL)) THEN
63: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_CONTACT_NAME_REQUIRED');
64: l_return_status :=okl_api.g_ret_sts_error;
65: RAISE OKL_API.G_EXCEPTION_ERROR;
66: END IF;
59:
60: -- Not null Validation for Contact Name
61: IF ((p_ctcv_rec.object1_id1 = OKL_API.G_MISS_CHAR) OR (p_ctcv_rec.object1_id1 IS NULL)) OR
62: ((p_ctcv_rec.object1_id2 = OKL_API.G_MISS_CHAR) OR (p_ctcv_rec.object1_id2 IS NULL)) THEN
63: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_CONTACT_NAME_REQUIRED');
64: l_return_status :=okl_api.g_ret_sts_error;
65: RAISE OKL_API.G_EXCEPTION_ERROR;
66: END IF;
67:
60: -- Not null Validation for Contact Name
61: IF ((p_ctcv_rec.object1_id1 = OKL_API.G_MISS_CHAR) OR (p_ctcv_rec.object1_id1 IS NULL)) OR
62: ((p_ctcv_rec.object1_id2 = OKL_API.G_MISS_CHAR) OR (p_ctcv_rec.object1_id2 IS NULL)) THEN
63: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_CONTACT_NAME_REQUIRED');
64: l_return_status :=okl_api.g_ret_sts_error;
65: RAISE OKL_API.G_EXCEPTION_ERROR;
66: END IF;
67:
68: IF ( (p_ctcv_rec.CPL_ID IS NOT NULL) AND (p_ctcv_rec.CPL_ID <> OKC_API.G_MISS_NUM) )
61: IF ((p_ctcv_rec.object1_id1 = OKL_API.G_MISS_CHAR) OR (p_ctcv_rec.object1_id1 IS NULL)) OR
62: ((p_ctcv_rec.object1_id2 = OKL_API.G_MISS_CHAR) OR (p_ctcv_rec.object1_id2 IS NULL)) THEN
63: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_CONTACT_NAME_REQUIRED');
64: l_return_status :=okl_api.g_ret_sts_error;
65: RAISE OKL_API.G_EXCEPTION_ERROR;
66: END IF;
67:
68: IF ( (p_ctcv_rec.CPL_ID IS NOT NULL) AND (p_ctcv_rec.CPL_ID <> OKC_API.G_MISS_NUM) )
69: AND ( (p_ctcv_rec.CRO_CODE IS NOT NULL) AND (p_ctcv_rec.CRO_CODE <> OKC_API.G_MISS_CHAR) ) THEN
72: l_row_found := cur_ctcv%FOUND;
73: CLOSE cur_ctcv;
74: IF (l_row_found) THEN
75: -- Display the newly defined error message
76: OKL_API.set_message(G_APP_NAME, 'OKL_DUP_CONTACT_ROLE');
77: x_return_status := OKL_API.G_RET_STS_ERROR;
78: RAISE OKL_API.G_EXCEPTION_ERROR;
79: END IF;
80: END IF;
73: CLOSE cur_ctcv;
74: IF (l_row_found) THEN
75: -- Display the newly defined error message
76: OKL_API.set_message(G_APP_NAME, 'OKL_DUP_CONTACT_ROLE');
77: x_return_status := OKL_API.G_RET_STS_ERROR;
78: RAISE OKL_API.G_EXCEPTION_ERROR;
79: END IF;
80: END IF;
81:
74: IF (l_row_found) THEN
75: -- Display the newly defined error message
76: OKL_API.set_message(G_APP_NAME, 'OKL_DUP_CONTACT_ROLE');
77: x_return_status := OKL_API.G_RET_STS_ERROR;
78: RAISE OKL_API.G_EXCEPTION_ERROR;
79: END IF;
80: END IF;
81:
82: OKL_OKC_MIGRATION_PVT.create_contact(p_api_version,
98: );
99: END IF;
100: /* Manu 29-Jun-2005 END */
101:
102: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
103: EXCEPTION
104: WHEN OKL_API.G_EXCEPTION_ERROR THEN
105: x_return_status := OKL_API.HANDLE_EXCEPTIONS
106: (p_api_name => l_api_name
100: /* Manu 29-Jun-2005 END */
101:
102: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
103: EXCEPTION
104: WHEN OKL_API.G_EXCEPTION_ERROR THEN
105: x_return_status := OKL_API.HANDLE_EXCEPTIONS
106: (p_api_name => l_api_name
107: ,p_pkg_name => G_PKG_NAME
108: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
101:
102: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
103: EXCEPTION
104: WHEN OKL_API.G_EXCEPTION_ERROR THEN
105: x_return_status := OKL_API.HANDLE_EXCEPTIONS
106: (p_api_name => l_api_name
107: ,p_pkg_name => G_PKG_NAME
108: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
109: ,x_msg_count => x_msg_count
104: WHEN OKL_API.G_EXCEPTION_ERROR THEN
105: x_return_status := OKL_API.HANDLE_EXCEPTIONS
106: (p_api_name => l_api_name
107: ,p_pkg_name => G_PKG_NAME
108: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
109: ,x_msg_count => x_msg_count
110: ,x_msg_data => x_msg_data
111: ,p_api_type => '_PVT'
112: );
173: l_api_name CONSTANT VARCHAR2(30) := 'update_contact';
174: l_api_version CONSTANT NUMBER := 1;
175: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
176: BEGIN
177: l_return_status := OKL_API.START_ACTIVITY(p_api_name => l_api_name
178: ,p_init_msg_list => p_init_msg_list
179: ,p_api_type => '_PVT'
180: ,x_return_status => x_return_status
181: );
178: ,p_init_msg_list => p_init_msg_list
179: ,p_api_type => '_PVT'
180: ,x_return_status => x_return_status
181: );
182: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
183: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
184: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
185: RAISE OKL_API.G_EXCEPTION_ERROR;
186: END IF;
179: ,p_api_type => '_PVT'
180: ,x_return_status => x_return_status
181: );
182: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
183: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
184: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
185: RAISE OKL_API.G_EXCEPTION_ERROR;
186: END IF;
187:
180: ,x_return_status => x_return_status
181: );
182: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
183: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
184: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
185: RAISE OKL_API.G_EXCEPTION_ERROR;
186: END IF;
187:
188: x_return_status := OKL_API.G_RET_STS_SUCCESS;
181: );
182: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
183: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
184: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
185: RAISE OKL_API.G_EXCEPTION_ERROR;
186: END IF;
187:
188: x_return_status := OKL_API.G_RET_STS_SUCCESS;
189: OKL_OKC_MIGRATION_PVT.update_contact(p_api_version,
184: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
185: RAISE OKL_API.G_EXCEPTION_ERROR;
186: END IF;
187:
188: x_return_status := OKL_API.G_RET_STS_SUCCESS;
189: OKL_OKC_MIGRATION_PVT.update_contact(p_api_version,
190: p_init_msg_list,
191: x_return_status,
192: x_msg_count,
205: );
206: END IF;
207: /* Manu 29-Jun-2005 END */
208:
209: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
210: EXCEPTION
211: WHEN OKL_API.G_EXCEPTION_ERROR THEN
212: x_return_status := OKL_API.HANDLE_EXCEPTIONS
213: (p_api_name => l_api_name
207: /* Manu 29-Jun-2005 END */
208:
209: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
210: EXCEPTION
211: WHEN OKL_API.G_EXCEPTION_ERROR THEN
212: x_return_status := OKL_API.HANDLE_EXCEPTIONS
213: (p_api_name => l_api_name
214: ,p_pkg_name => G_PKG_NAME
215: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
208:
209: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
210: EXCEPTION
211: WHEN OKL_API.G_EXCEPTION_ERROR THEN
212: x_return_status := OKL_API.HANDLE_EXCEPTIONS
213: (p_api_name => l_api_name
214: ,p_pkg_name => G_PKG_NAME
215: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
216: ,x_msg_count => x_msg_count
211: WHEN OKL_API.G_EXCEPTION_ERROR THEN
212: x_return_status := OKL_API.HANDLE_EXCEPTIONS
213: (p_api_name => l_api_name
214: ,p_pkg_name => G_PKG_NAME
215: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
216: ,x_msg_count => x_msg_count
217: ,x_msg_data => x_msg_data
218: ,p_api_type => '_PVT'
219: );
287: FROM okc_contacts
288: WHERE id = p_ctcv_rec.id;
289:
290: BEGIN
291: l_return_status := OKL_API.START_ACTIVITY(p_api_name => l_api_name
292: ,p_init_msg_list => p_init_msg_list
293: ,p_api_type => '_PVT'
294: ,x_return_status => x_return_status
295: );
292: ,p_init_msg_list => p_init_msg_list
293: ,p_api_type => '_PVT'
294: ,x_return_status => x_return_status
295: );
296: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
297: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
298: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
299: RAISE OKL_API.G_EXCEPTION_ERROR;
300: END IF;
293: ,p_api_type => '_PVT'
294: ,x_return_status => x_return_status
295: );
296: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
297: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
298: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
299: RAISE OKL_API.G_EXCEPTION_ERROR;
300: END IF;
301:
294: ,x_return_status => x_return_status
295: );
296: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
297: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
298: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
299: RAISE OKL_API.G_EXCEPTION_ERROR;
300: END IF;
301:
302: /* Manu 29-Jun-2005 Begin */
295: );
296: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
297: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
298: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
299: RAISE OKL_API.G_EXCEPTION_ERROR;
300: END IF;
301:
302: /* Manu 29-Jun-2005 Begin */
303: OPEN cur_get_dnz_chr_id;
304: FETCH cur_get_dnz_chr_id INTO l_dnz_chr_id;
305: CLOSE cur_get_dnz_chr_id;
306: /* Manu 29-Jun-2005 END */
307:
308: x_return_status := OKL_API.G_RET_STS_SUCCESS;
309: OKL_OKC_MIGRATION_PVT.delete_contact(p_api_version,
310: p_init_msg_list,
311: x_return_status,
312: x_msg_count,
326: );
327: END IF;
328: /* Manu 29-Jun-2005 END */
329:
330: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
331: EXCEPTION
332: WHEN OKL_API.G_EXCEPTION_ERROR THEN
333: x_return_status := OKL_API.HANDLE_EXCEPTIONS
334: (p_api_name => l_api_name
328: /* Manu 29-Jun-2005 END */
329:
330: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
331: EXCEPTION
332: WHEN OKL_API.G_EXCEPTION_ERROR THEN
333: x_return_status := OKL_API.HANDLE_EXCEPTIONS
334: (p_api_name => l_api_name
335: ,p_pkg_name => G_PKG_NAME
336: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
329:
330: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
331: EXCEPTION
332: WHEN OKL_API.G_EXCEPTION_ERROR THEN
333: x_return_status := OKL_API.HANDLE_EXCEPTIONS
334: (p_api_name => l_api_name
335: ,p_pkg_name => G_PKG_NAME
336: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
337: ,x_msg_count => x_msg_count
332: WHEN OKL_API.G_EXCEPTION_ERROR THEN
333: x_return_status := OKL_API.HANDLE_EXCEPTIONS
334: (p_api_name => l_api_name
335: ,p_pkg_name => G_PKG_NAME
336: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
337: ,x_msg_count => x_msg_count
338: ,x_msg_data => x_msg_data
339: ,p_api_type => '_PVT'
340: );
419:
420: BEGIN
421:
422:
423: l_return_status := OKL_API.START_ACTIVITY(p_api_name => l_api_name
424: ,p_init_msg_list => p_init_msg_list
425: ,p_api_type => '_PVT'
426: ,x_return_status => x_return_status
427: );
424: ,p_init_msg_list => p_init_msg_list
425: ,p_api_type => '_PVT'
426: ,x_return_status => x_return_status
427: );
428: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
429: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
430: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
431: RAISE OKL_API.G_EXCEPTION_ERROR;
432: END IF;
425: ,p_api_type => '_PVT'
426: ,x_return_status => x_return_status
427: );
428: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
429: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
430: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
431: RAISE OKL_API.G_EXCEPTION_ERROR;
432: END IF;
433:
426: ,x_return_status => x_return_status
427: );
428: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
429: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
430: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
431: RAISE OKL_API.G_EXCEPTION_ERROR;
432: END IF;
433:
434: x_return_status := OKL_API.G_RET_STS_SUCCESS;
427: );
428: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
429: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
430: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
431: RAISE OKL_API.G_EXCEPTION_ERROR;
432: END IF;
433:
434: x_return_status := OKL_API.G_RET_STS_SUCCESS;
435:
430: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
431: RAISE OKL_API.G_EXCEPTION_ERROR;
432: END IF;
433:
434: x_return_status := OKL_API.G_RET_STS_SUCCESS;
435:
436: -- Not null Validation for Party Role
437: IF ((p_cplv_rec.rle_code = OKL_API.G_MISS_CHAR) OR (p_cplv_rec.rle_code IS NULL)) THEN
438: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_PARTY_ROLE_REQUIRED');
433:
434: x_return_status := OKL_API.G_RET_STS_SUCCESS;
435:
436: -- Not null Validation for Party Role
437: IF ((p_cplv_rec.rle_code = OKL_API.G_MISS_CHAR) OR (p_cplv_rec.rle_code IS NULL)) THEN
438: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_PARTY_ROLE_REQUIRED');
439: l_return_status :=okl_api.g_ret_sts_error;
440: RAISE OKL_API.G_EXCEPTION_ERROR;
441: END IF;
434: x_return_status := OKL_API.G_RET_STS_SUCCESS;
435:
436: -- Not null Validation for Party Role
437: IF ((p_cplv_rec.rle_code = OKL_API.G_MISS_CHAR) OR (p_cplv_rec.rle_code IS NULL)) THEN
438: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_PARTY_ROLE_REQUIRED');
439: l_return_status :=okl_api.g_ret_sts_error;
440: RAISE OKL_API.G_EXCEPTION_ERROR;
441: END IF;
442:
435:
436: -- Not null Validation for Party Role
437: IF ((p_cplv_rec.rle_code = OKL_API.G_MISS_CHAR) OR (p_cplv_rec.rle_code IS NULL)) THEN
438: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_PARTY_ROLE_REQUIRED');
439: l_return_status :=okl_api.g_ret_sts_error;
440: RAISE OKL_API.G_EXCEPTION_ERROR;
441: END IF;
442:
443: -- Not null Validation for Party Name
436: -- Not null Validation for Party Role
437: IF ((p_cplv_rec.rle_code = OKL_API.G_MISS_CHAR) OR (p_cplv_rec.rle_code IS NULL)) THEN
438: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_PARTY_ROLE_REQUIRED');
439: l_return_status :=okl_api.g_ret_sts_error;
440: RAISE OKL_API.G_EXCEPTION_ERROR;
441: END IF;
442:
443: -- Not null Validation for Party Name
444: IF ((p_cplv_rec.object1_id1 = OKL_API.G_MISS_CHAR) OR (p_cplv_rec.object1_id1 IS NULL)) OR
440: RAISE OKL_API.G_EXCEPTION_ERROR;
441: END IF;
442:
443: -- Not null Validation for Party Name
444: IF ((p_cplv_rec.object1_id1 = OKL_API.G_MISS_CHAR) OR (p_cplv_rec.object1_id1 IS NULL)) OR
445: ((p_cplv_rec.object1_id2 = OKL_API.G_MISS_CHAR) OR (p_cplv_rec.object1_id2 IS NULL)) THEN
446: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_PARTY_NAME_REQUIRED');
447: l_return_status :=okl_api.g_ret_sts_error;
448: RAISE OKL_API.G_EXCEPTION_ERROR;
441: END IF;
442:
443: -- Not null Validation for Party Name
444: IF ((p_cplv_rec.object1_id1 = OKL_API.G_MISS_CHAR) OR (p_cplv_rec.object1_id1 IS NULL)) OR
445: ((p_cplv_rec.object1_id2 = OKL_API.G_MISS_CHAR) OR (p_cplv_rec.object1_id2 IS NULL)) THEN
446: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_PARTY_NAME_REQUIRED');
447: l_return_status :=okl_api.g_ret_sts_error;
448: RAISE OKL_API.G_EXCEPTION_ERROR;
449: END IF;
442:
443: -- Not null Validation for Party Name
444: IF ((p_cplv_rec.object1_id1 = OKL_API.G_MISS_CHAR) OR (p_cplv_rec.object1_id1 IS NULL)) OR
445: ((p_cplv_rec.object1_id2 = OKL_API.G_MISS_CHAR) OR (p_cplv_rec.object1_id2 IS NULL)) THEN
446: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_PARTY_NAME_REQUIRED');
447: l_return_status :=okl_api.g_ret_sts_error;
448: RAISE OKL_API.G_EXCEPTION_ERROR;
449: END IF;
450:
443: -- Not null Validation for Party Name
444: IF ((p_cplv_rec.object1_id1 = OKL_API.G_MISS_CHAR) OR (p_cplv_rec.object1_id1 IS NULL)) OR
445: ((p_cplv_rec.object1_id2 = OKL_API.G_MISS_CHAR) OR (p_cplv_rec.object1_id2 IS NULL)) THEN
446: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_PARTY_NAME_REQUIRED');
447: l_return_status :=okl_api.g_ret_sts_error;
448: RAISE OKL_API.G_EXCEPTION_ERROR;
449: END IF;
450:
451: IF p_cplv_rec.chr_id IS NOT NULL AND p_cplv_rec.chr_id <> OKC_API.G_MISS_NUM THEN
444: IF ((p_cplv_rec.object1_id1 = OKL_API.G_MISS_CHAR) OR (p_cplv_rec.object1_id1 IS NULL)) OR
445: ((p_cplv_rec.object1_id2 = OKL_API.G_MISS_CHAR) OR (p_cplv_rec.object1_id2 IS NULL)) THEN
446: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_PARTY_NAME_REQUIRED');
447: l_return_status :=okl_api.g_ret_sts_error;
448: RAISE OKL_API.G_EXCEPTION_ERROR;
449: END IF;
450:
451: IF p_cplv_rec.chr_id IS NOT NULL AND p_cplv_rec.chr_id <> OKC_API.G_MISS_NUM THEN
452: OPEN c1(p_cplv_rec.chr_id,
460: END IF;
461:
462: IF l_row_found THEN
463: IF l_id <> p_cplv_rec.id THEN
464: OKL_API.set_message(p_app_name => g_app_name,
465: p_msg_name => 'OKL_DUP_PARTY'
466: );
467: x_return_status := OKL_API.G_RET_STS_ERROR;
468: RAISE OKL_API.G_EXCEPTION_ERROR;
463: IF l_id <> p_cplv_rec.id THEN
464: OKL_API.set_message(p_app_name => g_app_name,
465: p_msg_name => 'OKL_DUP_PARTY'
466: );
467: x_return_status := OKL_API.G_RET_STS_ERROR;
468: RAISE OKL_API.G_EXCEPTION_ERROR;
469: END IF;
470: END IF;
471:
464: OKL_API.set_message(p_app_name => g_app_name,
465: p_msg_name => 'OKL_DUP_PARTY'
466: );
467: x_return_status := OKL_API.G_RET_STS_ERROR;
468: RAISE OKL_API.G_EXCEPTION_ERROR;
469: END IF;
470: END IF;
471:
472: OKL_OKC_MIGRATION_PVT.create_k_party_role(p_api_version,
488: );
489: END IF;
490: /* Manu 29-Jun-2005 END */
491:
492: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
493: EXCEPTION
494: WHEN OKL_API.G_EXCEPTION_ERROR THEN
495: x_return_status := OKL_API.HANDLE_EXCEPTIONS
496: (p_api_name => l_api_name
490: /* Manu 29-Jun-2005 END */
491:
492: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
493: EXCEPTION
494: WHEN OKL_API.G_EXCEPTION_ERROR THEN
495: x_return_status := OKL_API.HANDLE_EXCEPTIONS
496: (p_api_name => l_api_name
497: ,p_pkg_name => G_PKG_NAME
498: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
491:
492: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
493: EXCEPTION
494: WHEN OKL_API.G_EXCEPTION_ERROR THEN
495: x_return_status := OKL_API.HANDLE_EXCEPTIONS
496: (p_api_name => l_api_name
497: ,p_pkg_name => G_PKG_NAME
498: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
499: ,x_msg_count => x_msg_count
494: WHEN OKL_API.G_EXCEPTION_ERROR THEN
495: x_return_status := OKL_API.HANDLE_EXCEPTIONS
496: (p_api_name => l_api_name
497: ,p_pkg_name => G_PKG_NAME
498: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
499: ,x_msg_count => x_msg_count
500: ,x_msg_data => x_msg_data
501: ,p_api_type => '_PVT'
502: );
500: ,x_msg_data => x_msg_data
501: ,p_api_type => '_PVT'
502: );
503: WHEN OTHERS THEN
504: x_return_status := OKL_API.HANDLE_EXCEPTIONS
505: (p_api_name => l_api_name
506: ,p_pkg_name => G_PKG_NAME
507: ,p_exc_name => 'OTHERS'
508: ,x_msg_count => x_msg_count
573: l_api_name CONSTANT VARCHAR2(30) := 'update_k_party_role';
574: l_api_version CONSTANT NUMBER := 1;
575: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
576: BEGIN
577: l_return_status := OKL_API.START_ACTIVITY(p_api_name => l_api_name
578: ,p_init_msg_list => p_init_msg_list
579: ,p_api_type => '_PVT'
580: ,x_return_status => x_return_status
581: );
578: ,p_init_msg_list => p_init_msg_list
579: ,p_api_type => '_PVT'
580: ,x_return_status => x_return_status
581: );
582: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
583: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
584: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
585: RAISE OKL_API.G_EXCEPTION_ERROR;
586: END IF;
579: ,p_api_type => '_PVT'
580: ,x_return_status => x_return_status
581: );
582: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
583: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
584: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
585: RAISE OKL_API.G_EXCEPTION_ERROR;
586: END IF;
587:
580: ,x_return_status => x_return_status
581: );
582: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
583: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
584: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
585: RAISE OKL_API.G_EXCEPTION_ERROR;
586: END IF;
587:
588: x_return_status := OKL_API.G_RET_STS_SUCCESS;
581: );
582: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
583: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
584: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
585: RAISE OKL_API.G_EXCEPTION_ERROR;
586: END IF;
587:
588: x_return_status := OKL_API.G_RET_STS_SUCCESS;
589: OKL_OKC_MIGRATION_PVT.update_k_party_role(p_api_version,
584: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
585: RAISE OKL_API.G_EXCEPTION_ERROR;
586: END IF;
587:
588: x_return_status := OKL_API.G_RET_STS_SUCCESS;
589: OKL_OKC_MIGRATION_PVT.update_k_party_role(p_api_version,
590: p_init_msg_list,
591: x_return_status,
592: x_msg_count,
607: END IF;
608:
609: /* Manu 29-Jun-2005 END */
610:
611: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
612: EXCEPTION
613: WHEN OKL_API.G_EXCEPTION_ERROR THEN
614: x_return_status := OKL_API.HANDLE_EXCEPTIONS
615: (p_api_name => l_api_name
609: /* Manu 29-Jun-2005 END */
610:
611: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
612: EXCEPTION
613: WHEN OKL_API.G_EXCEPTION_ERROR THEN
614: x_return_status := OKL_API.HANDLE_EXCEPTIONS
615: (p_api_name => l_api_name
616: ,p_pkg_name => G_PKG_NAME
617: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
610:
611: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
612: EXCEPTION
613: WHEN OKL_API.G_EXCEPTION_ERROR THEN
614: x_return_status := OKL_API.HANDLE_EXCEPTIONS
615: (p_api_name => l_api_name
616: ,p_pkg_name => G_PKG_NAME
617: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
618: ,x_msg_count => x_msg_count
613: WHEN OKL_API.G_EXCEPTION_ERROR THEN
614: x_return_status := OKL_API.HANDLE_EXCEPTIONS
615: (p_api_name => l_api_name
616: ,p_pkg_name => G_PKG_NAME
617: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
618: ,x_msg_count => x_msg_count
619: ,x_msg_data => x_msg_data
620: ,p_api_type => '_PVT'
621: );
717: AND chr.id = cp_chr_id;
718: lv_party_name hz_parties.party_name%TYPE;
719:
720: BEGIN
721: l_return_status := OKL_API.START_ACTIVITY(p_api_name => l_api_name
722: ,p_init_msg_list => p_init_msg_list
723: ,p_api_type => '_PVT'
724: ,x_return_status => x_return_status
725: );
722: ,p_init_msg_list => p_init_msg_list
723: ,p_api_type => '_PVT'
724: ,x_return_status => x_return_status
725: );
726: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
727: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
728: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
729: RAISE OKL_API.G_EXCEPTION_ERROR;
730: END IF;
723: ,p_api_type => '_PVT'
724: ,x_return_status => x_return_status
725: );
726: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
727: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
728: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
729: RAISE OKL_API.G_EXCEPTION_ERROR;
730: END IF;
731:
724: ,x_return_status => x_return_status
725: );
726: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
727: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
728: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
729: RAISE OKL_API.G_EXCEPTION_ERROR;
730: END IF;
731:
732: x_return_status := OKL_API.G_RET_STS_SUCCESS;
725: );
726: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
727: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
728: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
729: RAISE OKL_API.G_EXCEPTION_ERROR;
730: END IF;
731:
732: x_return_status := OKL_API.G_RET_STS_SUCCESS;
733:
728: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
729: RAISE OKL_API.G_EXCEPTION_ERROR;
730: END IF;
731:
732: x_return_status := OKL_API.G_RET_STS_SUCCESS;
733:
734: open l_cpl_csr;
735: fetch l_cpl_csr into l_dummy_var;
736: close l_cpl_csr;
734: open l_cpl_csr;
735: fetch l_cpl_csr into l_dummy_var;
736: close l_cpl_csr;
737: IF (l_dummy_var = 'x') then
738: OKL_API.set_message(p_app_name => g_app_name,
739: p_msg_name => 'OKL_PARTY_CONTACTS_EXIST'
740: );
741: x_return_status := OKL_API.G_RET_STS_ERROR;
742: RAISE OKL_API.G_EXCEPTION_ERROR;
737: IF (l_dummy_var = 'x') then
738: OKL_API.set_message(p_app_name => g_app_name,
739: p_msg_name => 'OKL_PARTY_CONTACTS_EXIST'
740: );
741: x_return_status := OKL_API.G_RET_STS_ERROR;
742: RAISE OKL_API.G_EXCEPTION_ERROR;
743: END IF;
744:
745: --bug#2455475
738: OKL_API.set_message(p_app_name => g_app_name,
739: p_msg_name => 'OKL_PARTY_CONTACTS_EXIST'
740: );
741: x_return_status := OKL_API.G_RET_STS_ERROR;
742: RAISE OKL_API.G_EXCEPTION_ERROR;
743: END IF;
744:
745: --bug#2455475
746: OPEN l_rle_code_csr;
746: OPEN l_rle_code_csr;
747: FETCH l_rle_code_csr INTO l_rle_code_var;
748: CLOSE l_rle_code_csr;
749: IF (l_rle_code_var = 'LESSOR' OR l_rle_code_var = 'OKL_VENDOR' OR l_rle_code_var IS NULL) THEN
750: OKL_API.set_message(p_app_name => g_app_name,
751: p_msg_name => 'OKL_CANNOT_DEL_LESSOR_VENDOR'
752: );
753: x_return_status := OKL_API.G_RET_STS_ERROR;
754: RAISE OKL_API.G_EXCEPTION_ERROR;
749: IF (l_rle_code_var = 'LESSOR' OR l_rle_code_var = 'OKL_VENDOR' OR l_rle_code_var IS NULL) THEN
750: OKL_API.set_message(p_app_name => g_app_name,
751: p_msg_name => 'OKL_CANNOT_DEL_LESSOR_VENDOR'
752: );
753: x_return_status := OKL_API.G_RET_STS_ERROR;
754: RAISE OKL_API.G_EXCEPTION_ERROR;
755: END IF;
756:
757: /* Manu 29-Jun-2005 Begin */
750: OKL_API.set_message(p_app_name => g_app_name,
751: p_msg_name => 'OKL_CANNOT_DEL_LESSOR_VENDOR'
752: );
753: x_return_status := OKL_API.G_RET_STS_ERROR;
754: RAISE OKL_API.G_EXCEPTION_ERROR;
755: END IF;
756:
757: /* Manu 29-Jun-2005 Begin */
758: OPEN cur_get_dnz_chr_id;
765: OPEN c_party_share_exist_csr(cp_chr_id => l_dnz_chr_id, cp_cpl_id => p_cplv_rec.id);
766: FETCH c_party_share_exist_csr INTO lv_party_name;
767: IF(c_party_share_exist_csr%FOUND)THEN
768: CLOSE c_party_share_exist_csr;
769: okl_api.set_message(p_app_name => G_APP_NAME
770: ,p_msg_name => 'OKL_VN_NODELPARTY_SHARE_EXISTS'
771: ,p_token1 => 'PARTY_NAME'
772: ,p_token1_value => lv_party_name
773: );
770: ,p_msg_name => 'OKL_VN_NODELPARTY_SHARE_EXISTS'
771: ,p_token1 => 'PARTY_NAME'
772: ,p_token1_value => lv_party_name
773: );
774: x_return_status := OKL_API.G_RET_STS_ERROR;
775: RAISE OKL_API.G_EXCEPTION_ERROR;
776: ELSE
777: CLOSE c_party_share_exist_csr;
778: END IF;
771: ,p_token1 => 'PARTY_NAME'
772: ,p_token1_value => lv_party_name
773: );
774: x_return_status := OKL_API.G_RET_STS_ERROR;
775: RAISE OKL_API.G_EXCEPTION_ERROR;
776: ELSE
777: CLOSE c_party_share_exist_csr;
778: END IF;
779: -- sjalasut. end code changes for Vendor Residual Share Enhancement
797: );
798: END IF;
799: /* Manu 29-Jun-2005 END */
800:
801: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
802: EXCEPTION
803: WHEN OKL_API.G_EXCEPTION_ERROR THEN
804: x_return_status := OKL_API.HANDLE_EXCEPTIONS
805: (p_api_name => l_api_name
799: /* Manu 29-Jun-2005 END */
800:
801: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
802: EXCEPTION
803: WHEN OKL_API.G_EXCEPTION_ERROR THEN
804: x_return_status := OKL_API.HANDLE_EXCEPTIONS
805: (p_api_name => l_api_name
806: ,p_pkg_name => G_PKG_NAME
807: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
800:
801: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
802: EXCEPTION
803: WHEN OKL_API.G_EXCEPTION_ERROR THEN
804: x_return_status := OKL_API.HANDLE_EXCEPTIONS
805: (p_api_name => l_api_name
806: ,p_pkg_name => G_PKG_NAME
807: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
808: ,x_msg_count => x_msg_count
803: WHEN OKL_API.G_EXCEPTION_ERROR THEN
804: x_return_status := OKL_API.HANDLE_EXCEPTIONS
805: (p_api_name => l_api_name
806: ,p_pkg_name => G_PKG_NAME
807: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
808: ,x_msg_count => x_msg_count
809: ,x_msg_data => x_msg_data
810: ,p_api_type => '_PVT'
811: );