35: l_cplv_rec okl_okc_migration_pvt.cplv_rec_type;
36: l_kplv_rec kplv_rec_type;
37: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_K_PARTY_ROLE';
38: l_api_version CONSTANT NUMBER := 1.0;
39: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
40:
41: BEGIN
42:
43: -- call START_ACTIVITY to create savepoint, check compatibility
42:
43: -- call START_ACTIVITY to create savepoint, check compatibility
44: -- and initialize message list
45:
46: l_return_status := OKL_API.START_ACTIVITY(
47: p_api_name => l_api_name,
48: p_pkg_name => g_pkg_name,
49: p_init_msg_list => p_init_msg_list,
50: l_api_version => l_api_version,
52: p_api_type => g_api_type,
53: x_return_status => x_return_status);
54:
55: -- check if activity started successfully
56: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
57: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
58: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
59: raise OKL_API.G_EXCEPTION_ERROR;
60: End If;
53: x_return_status => x_return_status);
54:
55: -- check if activity started successfully
56: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
57: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
58: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
59: raise OKL_API.G_EXCEPTION_ERROR;
60: End If;
61:
54:
55: -- check if activity started successfully
56: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
57: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
58: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
59: raise OKL_API.G_EXCEPTION_ERROR;
60: End If;
61:
62: --Bug# 4959361
55: -- check if activity started successfully
56: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
57: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
58: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
59: raise OKL_API.G_EXCEPTION_ERROR;
60: End If;
61:
62: --Bug# 4959361
63: IF p_cplv_rec.cle_id IS NOT NULL THEN
68: x_msg_count => x_msg_count,
69: x_msg_data => x_msg_data,
70: p_cle_id => p_cplv_rec.cle_id);
71:
72: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
73: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
74: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
75: RAISE OKL_API.G_EXCEPTION_ERROR;
76: END IF;
69: x_msg_data => x_msg_data,
70: p_cle_id => p_cplv_rec.cle_id);
71:
72: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
73: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
74: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
75: RAISE OKL_API.G_EXCEPTION_ERROR;
76: END IF;
77: END IF;
70: p_cle_id => p_cplv_rec.cle_id);
71:
72: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
73: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
74: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
75: RAISE OKL_API.G_EXCEPTION_ERROR;
76: END IF;
77: END IF;
78: --Bug# 4959361
71:
72: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
73: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
74: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
75: RAISE OKL_API.G_EXCEPTION_ERROR;
76: END IF;
77: END IF;
78: --Bug# 4959361
79:
90: x_cplv_rec => x_cplv_rec);
91:
92:
93: -- check return status
94: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
95: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
96: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
97: raise OKL_API.G_EXCEPTION_ERROR;
98: End If;
91:
92:
93: -- check return status
94: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
95: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
96: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
97: raise OKL_API.G_EXCEPTION_ERROR;
98: End If;
99:
92:
93: -- check return status
94: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
95: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
96: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
97: raise OKL_API.G_EXCEPTION_ERROR;
98: End If;
99:
100: -- get id from OKC record
93: -- check return status
94: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
95: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
96: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
97: raise OKL_API.G_EXCEPTION_ERROR;
98: End If;
99:
100: -- get id from OKC record
101: l_kplv_rec.ID := x_cplv_rec.ID;
109: x_msg_data => x_msg_data,
110: p_kplv_rec => l_kplv_rec,
111: x_kplv_rec => x_kplv_rec);
112:
113: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
114: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
115: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
116: raise OKL_API.G_EXCEPTION_ERROR;
117: End If;
110: p_kplv_rec => l_kplv_rec,
111: x_kplv_rec => x_kplv_rec);
112:
113: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
114: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
115: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
116: raise OKL_API.G_EXCEPTION_ERROR;
117: End If;
118:
111: x_kplv_rec => x_kplv_rec);
112:
113: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
114: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
115: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
116: raise OKL_API.G_EXCEPTION_ERROR;
117: End If;
118:
119: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
112:
113: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
114: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
115: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
116: raise OKL_API.G_EXCEPTION_ERROR;
117: End If;
118:
119: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
120: x_msg_data => x_msg_data);
115: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
116: raise OKL_API.G_EXCEPTION_ERROR;
117: End If;
118:
119: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
120: x_msg_data => x_msg_data);
121: EXCEPTION
122: when OKL_API.G_EXCEPTION_ERROR then
123: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
118:
119: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
120: x_msg_data => x_msg_data);
121: EXCEPTION
122: when OKL_API.G_EXCEPTION_ERROR then
123: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
124: p_api_name => l_api_name,
125: p_pkg_name => g_pkg_name,
126: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
119: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
120: x_msg_data => x_msg_data);
121: EXCEPTION
122: when OKL_API.G_EXCEPTION_ERROR then
123: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
124: p_api_name => l_api_name,
125: p_pkg_name => g_pkg_name,
126: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
127: x_msg_count => x_msg_count,
122: when OKL_API.G_EXCEPTION_ERROR then
123: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
124: p_api_name => l_api_name,
125: p_pkg_name => g_pkg_name,
126: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
127: x_msg_count => x_msg_count,
128: x_msg_data => x_msg_data,
129: p_api_type => g_api_type);
130:
127: x_msg_count => x_msg_count,
128: x_msg_data => x_msg_data,
129: p_api_type => g_api_type);
130:
131: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
132: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
133: p_api_name => l_api_name,
134: p_pkg_name => g_pkg_name,
135: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
128: x_msg_data => x_msg_data,
129: p_api_type => g_api_type);
130:
131: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
132: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
133: p_api_name => l_api_name,
134: p_pkg_name => g_pkg_name,
135: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
136: x_msg_count => x_msg_count,
131: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
132: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
133: p_api_name => l_api_name,
134: p_pkg_name => g_pkg_name,
135: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
136: x_msg_count => x_msg_count,
137: x_msg_data => x_msg_data,
138: p_api_type => g_api_type);
139:
137: x_msg_data => x_msg_data,
138: p_api_type => g_api_type);
139:
140: when OTHERS then
141: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
142: p_api_name => l_api_name,
143: p_pkg_name => g_pkg_name,
144: p_exc_name => 'OTHERS',
145: x_msg_count => x_msg_count,
168: x_kplv_tbl OUT NOCOPY kplv_tbl_type) IS
169:
170: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_K_PARTY_ROLE';
171: l_api_version CONSTANT NUMBER := 1.0;
172: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
173: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
174: i NUMBER;
175: l_kplv_tbl kplv_tbl_type;
176: BEGIN
169:
170: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_K_PARTY_ROLE';
171: l_api_version CONSTANT NUMBER := 1.0;
172: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
173: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
174: i NUMBER;
175: l_kplv_tbl kplv_tbl_type;
176: BEGIN
177: -- call START_ACTIVITY to create savepoint, check compatibility
175: l_kplv_tbl kplv_tbl_type;
176: BEGIN
177: -- call START_ACTIVITY to create savepoint, check compatibility
178: -- and initialize message list
179: l_return_status := OKL_API.START_ACTIVITY(
180: p_api_name => l_api_name,
181: p_pkg_name => g_pkg_name,
182: p_init_msg_list => p_init_msg_list,
183: l_api_version => l_api_version,
185: p_api_type => g_api_type,
186: x_return_status => x_return_status);
187:
188: -- check if activity started successfully
189: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
190: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
191: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
192: raise OKL_API.G_EXCEPTION_ERROR;
193:
186: x_return_status => x_return_status);
187:
188: -- check if activity started successfully
189: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
190: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
191: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
192: raise OKL_API.G_EXCEPTION_ERROR;
193:
194: End If;
187:
188: -- check if activity started successfully
189: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
190: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
191: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
192: raise OKL_API.G_EXCEPTION_ERROR;
193:
194: End If;
195:
188: -- check if activity started successfully
189: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
190: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
191: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
192: raise OKL_API.G_EXCEPTION_ERROR;
193:
194: End If;
195:
196: l_kplv_tbl := p_kplv_tbl;
208: p_kplv_rec => l_kplv_tbl(i),
209: x_cplv_rec => x_cplv_tbl(i),
210: x_kplv_rec => x_kplv_tbl(i));
211:
212: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
213: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
214: l_overall_status := x_return_status;
215: End If;
216: End If;
209: x_cplv_rec => x_cplv_tbl(i),
210: x_kplv_rec => x_kplv_tbl(i));
211:
212: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
213: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
214: l_overall_status := x_return_status;
215: End If;
216: End If;
217:
222: -- return overall status
223: x_return_status := l_overall_status;
224: End If;
225:
226: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
227: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
228: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
229: raise OKL_API.G_EXCEPTION_ERROR;
230: End If;
223: x_return_status := l_overall_status;
224: End If;
225:
226: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
227: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
228: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
229: raise OKL_API.G_EXCEPTION_ERROR;
230: End If;
231:
224: End If;
225:
226: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
227: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
228: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
229: raise OKL_API.G_EXCEPTION_ERROR;
230: End If;
231:
232: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
225:
226: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
227: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
228: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
229: raise OKL_API.G_EXCEPTION_ERROR;
230: End If;
231:
232: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
233: x_msg_data => x_msg_data);
228: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
229: raise OKL_API.G_EXCEPTION_ERROR;
230: End If;
231:
232: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
233: x_msg_data => x_msg_data);
234: EXCEPTION
235: when OKL_API.G_EXCEPTION_ERROR then
236: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
231:
232: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
233: x_msg_data => x_msg_data);
234: EXCEPTION
235: when OKL_API.G_EXCEPTION_ERROR then
236: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
237: p_api_name => l_api_name,
238: p_pkg_name => g_pkg_name,
239: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
232: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
233: x_msg_data => x_msg_data);
234: EXCEPTION
235: when OKL_API.G_EXCEPTION_ERROR then
236: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
237: p_api_name => l_api_name,
238: p_pkg_name => g_pkg_name,
239: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
240: x_msg_count => x_msg_count,
235: when OKL_API.G_EXCEPTION_ERROR then
236: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
237: p_api_name => l_api_name,
238: p_pkg_name => g_pkg_name,
239: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
240: x_msg_count => x_msg_count,
241: x_msg_data => x_msg_data,
242: p_api_type => g_api_type);
243:
240: x_msg_count => x_msg_count,
241: x_msg_data => x_msg_data,
242: p_api_type => g_api_type);
243:
244: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
245: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
246: p_api_name => l_api_name,
247: p_pkg_name => g_pkg_name,
248: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
241: x_msg_data => x_msg_data,
242: p_api_type => g_api_type);
243:
244: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
245: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
246: p_api_name => l_api_name,
247: p_pkg_name => g_pkg_name,
248: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
249: x_msg_count => x_msg_count,
244: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
245: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
246: p_api_name => l_api_name,
247: p_pkg_name => g_pkg_name,
248: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
249: x_msg_count => x_msg_count,
250: x_msg_data => x_msg_data,
251: p_api_type => g_api_type);
252:
250: x_msg_data => x_msg_data,
251: p_api_type => g_api_type);
252:
253: when OTHERS then
254: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
255: p_api_name => l_api_name,
256: p_pkg_name => g_pkg_name,
257: p_exc_name => 'OTHERS',
258: x_msg_count => x_msg_count,
288: l_kplv_rec kplv_rec_type;
289:
290: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_K_PARTY_ROLE';
291: l_api_version CONSTANT NUMBER := 1.0;
292: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
293:
294: cursor l_kplv_csr(l_id IN NUMBER) is
295: select 'x'
296: from OKL_K_PARTY_ROLES_V
311: BEGIN
312:
313: -- call START_ACTIVITY to create savepoint, check compatibility
314: -- and initialize message list
315: l_return_status := OKL_API.START_ACTIVITY(
316: p_api_name => l_api_name,
317: p_pkg_name => g_pkg_name,
318: p_init_msg_list => p_init_msg_list,
319: l_api_version => l_api_version,
321: p_api_type => g_api_type,
322: x_return_status => x_return_status);
323:
324: -- check if activity started successfully
325: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
326: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
327: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
328: raise OKL_API.G_EXCEPTION_ERROR;
329: End If;
322: x_return_status => x_return_status);
323:
324: -- check if activity started successfully
325: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
326: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
327: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
328: raise OKL_API.G_EXCEPTION_ERROR;
329: End If;
330:
323:
324: -- check if activity started successfully
325: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
326: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
327: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
328: raise OKL_API.G_EXCEPTION_ERROR;
329: End If;
330:
331: --Bug# 4959361
324: -- check if activity started successfully
325: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
326: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
327: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
328: raise OKL_API.G_EXCEPTION_ERROR;
329: End If;
330:
331: --Bug# 4959361
332: OPEN l_cpl_csr(p_cpl_id => p_cplv_rec.id);
341: x_msg_count => x_msg_count,
342: x_msg_data => x_msg_data,
343: p_cle_id => l_cpl_rec.cle_id);
344:
345: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
346: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
347: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
348: RAISE OKL_API.G_EXCEPTION_ERROR;
349: END IF;
342: x_msg_data => x_msg_data,
343: p_cle_id => l_cpl_rec.cle_id);
344:
345: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
346: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
347: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
348: RAISE OKL_API.G_EXCEPTION_ERROR;
349: END IF;
350: END IF;
343: p_cle_id => l_cpl_rec.cle_id);
344:
345: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
346: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
347: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
348: RAISE OKL_API.G_EXCEPTION_ERROR;
349: END IF;
350: END IF;
351: --Bug# 4959361
344:
345: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
346: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
347: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
348: RAISE OKL_API.G_EXCEPTION_ERROR;
349: END IF;
350: END IF;
351: --Bug# 4959361
352:
363: p_cplv_rec => l_cplv_rec,
364: x_cplv_rec => x_cplv_rec);
365:
366: -- check return status
367: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
368: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
369: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
370: raise OKL_API.G_EXCEPTION_ERROR;
371: End If;
364: x_cplv_rec => x_cplv_rec);
365:
366: -- check return status
367: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
368: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
369: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
370: raise OKL_API.G_EXCEPTION_ERROR;
371: End If;
372:
365:
366: -- check return status
367: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
368: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
369: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
370: raise OKL_API.G_EXCEPTION_ERROR;
371: End If;
372:
373: -- get id from OKC record
366: -- check return status
367: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
368: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
369: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
370: raise OKL_API.G_EXCEPTION_ERROR;
371: End If;
372:
373: -- get id from OKC record
374: l_kplv_rec.ID := x_cplv_rec.ID;
400: p_kplv_rec => l_kplv_rec,
401: x_kplv_rec => x_kplv_rec);
402: end if;
403:
404: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
405: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
406: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
407: raise OKL_API.G_EXCEPTION_ERROR;
408: End If;
401: x_kplv_rec => x_kplv_rec);
402: end if;
403:
404: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
405: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
406: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
407: raise OKL_API.G_EXCEPTION_ERROR;
408: End If;
409:
402: end if;
403:
404: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
405: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
406: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
407: raise OKL_API.G_EXCEPTION_ERROR;
408: End If;
409:
410: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
403:
404: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
405: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
406: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
407: raise OKL_API.G_EXCEPTION_ERROR;
408: End If;
409:
410: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
411: x_msg_data => x_msg_data);
406: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
407: raise OKL_API.G_EXCEPTION_ERROR;
408: End If;
409:
410: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
411: x_msg_data => x_msg_data);
412: EXCEPTION
413: when OKL_API.G_EXCEPTION_ERROR then
414: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
409:
410: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
411: x_msg_data => x_msg_data);
412: EXCEPTION
413: when OKL_API.G_EXCEPTION_ERROR then
414: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
415: p_api_name => l_api_name,
416: p_pkg_name => g_pkg_name,
417: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
410: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
411: x_msg_data => x_msg_data);
412: EXCEPTION
413: when OKL_API.G_EXCEPTION_ERROR then
414: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
415: p_api_name => l_api_name,
416: p_pkg_name => g_pkg_name,
417: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
418: x_msg_count => x_msg_count,
413: when OKL_API.G_EXCEPTION_ERROR then
414: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
415: p_api_name => l_api_name,
416: p_pkg_name => g_pkg_name,
417: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
418: x_msg_count => x_msg_count,
419: x_msg_data => x_msg_data,
420: p_api_type => g_api_type);
421: if l_kplv_csr%ISOPEN then
421: if l_kplv_csr%ISOPEN then
422: close l_kplv_csr;
423: end if;
424:
425: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
426: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
427: p_api_name => l_api_name,
428: p_pkg_name => g_pkg_name,
429: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
422: close l_kplv_csr;
423: end if;
424:
425: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
426: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
427: p_api_name => l_api_name,
428: p_pkg_name => g_pkg_name,
429: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
430: x_msg_count => x_msg_count,
425: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
426: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
427: p_api_name => l_api_name,
428: p_pkg_name => g_pkg_name,
429: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
430: x_msg_count => x_msg_count,
431: x_msg_data => x_msg_data,
432: p_api_type => g_api_type);
433: if l_kplv_csr%ISOPEN then
434: close l_kplv_csr;
435: end if;
436:
437: when OTHERS then
438: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
439: p_api_name => l_api_name,
440: p_pkg_name => g_pkg_name,
441: p_exc_name => 'OTHERS',
442: x_msg_count => x_msg_count,
468: x_kplv_tbl OUT NOCOPY kplv_tbl_type) IS
469:
470: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_K_PARTY_ROLE';
471: l_api_version CONSTANT NUMBER := 1.0;
472: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
473: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
474: i NUMBER;
475: l_kplv_tbl kplv_tbl_type := p_kplv_tbl;
476: BEGIN
469:
470: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_K_PARTY_ROLE';
471: l_api_version CONSTANT NUMBER := 1.0;
472: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
473: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
474: i NUMBER;
475: l_kplv_tbl kplv_tbl_type := p_kplv_tbl;
476: BEGIN
477: -- call START_ACTIVITY to create savepoint, check compatibility
475: l_kplv_tbl kplv_tbl_type := p_kplv_tbl;
476: BEGIN
477: -- call START_ACTIVITY to create savepoint, check compatibility
478: -- and initialize message list
479: l_return_status := OKL_API.START_ACTIVITY(
480: p_api_name => l_api_name,
481: p_pkg_name => g_pkg_name,
482: p_init_msg_list => p_init_msg_list,
483: l_api_version => l_api_version,
485: p_api_type => g_api_type,
486: x_return_status => x_return_status);
487:
488: -- check if activity started successfully
489: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
490: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
491: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
492: raise OKL_API.G_EXCEPTION_ERROR;
493: End If;
486: x_return_status => x_return_status);
487:
488: -- check if activity started successfully
489: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
490: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
491: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
492: raise OKL_API.G_EXCEPTION_ERROR;
493: End If;
494:
487:
488: -- check if activity started successfully
489: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
490: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
491: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
492: raise OKL_API.G_EXCEPTION_ERROR;
493: End If;
494:
495: If (p_cplv_tbl.COUNT > 0) Then
488: -- check if activity started successfully
489: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
490: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
491: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
492: raise OKL_API.G_EXCEPTION_ERROR;
493: End If;
494:
495: If (p_cplv_tbl.COUNT > 0) Then
496: i := p_cplv_tbl.FIRST;
506: p_kplv_rec => l_kplv_tbl(i),
507: x_cplv_rec => x_cplv_tbl(i),
508: x_kplv_rec => x_kplv_tbl(i));
509:
510: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
511: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
512: l_overall_status := x_return_status;
513: End If;
514: End If;
507: x_cplv_rec => x_cplv_tbl(i),
508: x_kplv_rec => x_kplv_tbl(i));
509:
510: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
511: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
512: l_overall_status := x_return_status;
513: End If;
514: End If;
515:
520: -- return overall status
521: x_return_status := l_overall_status;
522: End If;
523:
524: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
525: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
526: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
527: raise OKL_API.G_EXCEPTION_ERROR;
528: End If;
521: x_return_status := l_overall_status;
522: End If;
523:
524: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
525: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
526: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
527: raise OKL_API.G_EXCEPTION_ERROR;
528: End If;
529:
522: End If;
523:
524: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
525: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
526: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
527: raise OKL_API.G_EXCEPTION_ERROR;
528: End If;
529:
530: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
523:
524: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
525: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
526: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
527: raise OKL_API.G_EXCEPTION_ERROR;
528: End If;
529:
530: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
531: x_msg_data => x_msg_data);
526: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
527: raise OKL_API.G_EXCEPTION_ERROR;
528: End If;
529:
530: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
531: x_msg_data => x_msg_data);
532: EXCEPTION
533: when OKL_API.G_EXCEPTION_ERROR then
534: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
529:
530: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
531: x_msg_data => x_msg_data);
532: EXCEPTION
533: when OKL_API.G_EXCEPTION_ERROR then
534: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
535: p_api_name => l_api_name,
536: p_pkg_name => g_pkg_name,
537: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
530: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
531: x_msg_data => x_msg_data);
532: EXCEPTION
533: when OKL_API.G_EXCEPTION_ERROR then
534: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
535: p_api_name => l_api_name,
536: p_pkg_name => g_pkg_name,
537: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
538: x_msg_count => x_msg_count,
533: when OKL_API.G_EXCEPTION_ERROR then
534: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
535: p_api_name => l_api_name,
536: p_pkg_name => g_pkg_name,
537: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
538: x_msg_count => x_msg_count,
539: x_msg_data => x_msg_data,
540: p_api_type => g_api_type);
541:
538: x_msg_count => x_msg_count,
539: x_msg_data => x_msg_data,
540: p_api_type => g_api_type);
541:
542: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
543: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
544: p_api_name => l_api_name,
545: p_pkg_name => g_pkg_name,
546: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
539: x_msg_data => x_msg_data,
540: p_api_type => g_api_type);
541:
542: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
543: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
544: p_api_name => l_api_name,
545: p_pkg_name => g_pkg_name,
546: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
547: x_msg_count => x_msg_count,
542: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
543: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
544: p_api_name => l_api_name,
545: p_pkg_name => g_pkg_name,
546: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
547: x_msg_count => x_msg_count,
548: x_msg_data => x_msg_data,
549: p_api_type => g_api_type);
550:
548: x_msg_data => x_msg_data,
549: p_api_type => g_api_type);
550:
551: when OTHERS then
552: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
553: p_api_name => l_api_name,
554: p_pkg_name => g_pkg_name,
555: p_exc_name => 'OTHERS',
556: x_msg_count => x_msg_count,
580: l_kplv_rec kplv_rec_type;
581:
582: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_K_PARTY_ROLE';
583: l_api_version CONSTANT NUMBER := 1.0;
584: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
585:
586: --Bug# 4959361
587: CURSOR l_cpl_csr(p_cpl_id IN NUMBER) IS
588: SELECT cle_id
595: BEGIN
596:
597: -- call START_ACTIVITY to create savepoint, check compatibility
598: -- and initialize message list
599: l_return_status := OKL_API.START_ACTIVITY(
600: p_api_name => l_api_name,
601: p_pkg_name => g_pkg_name,
602: p_init_msg_list => p_init_msg_list,
603: l_api_version => l_api_version,
605: p_api_type => g_api_type,
606: x_return_status => x_return_status);
607:
608: -- check if activity started successfully
609: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
610: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
611: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
612: raise OKL_API.G_EXCEPTION_ERROR;
613: End If;
606: x_return_status => x_return_status);
607:
608: -- check if activity started successfully
609: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
610: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
611: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
612: raise OKL_API.G_EXCEPTION_ERROR;
613: End If;
614:
607:
608: -- check if activity started successfully
609: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
610: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
611: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
612: raise OKL_API.G_EXCEPTION_ERROR;
613: End If;
614:
615: --Bug# 4959361
608: -- check if activity started successfully
609: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
610: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
611: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
612: raise OKL_API.G_EXCEPTION_ERROR;
613: End If;
614:
615: --Bug# 4959361
616: OPEN l_cpl_csr(p_cpl_id => p_cplv_rec.id);
625: x_msg_count => x_msg_count,
626: x_msg_data => x_msg_data,
627: p_cle_id => l_cpl_rec.cle_id);
628:
629: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
630: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
631: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
632: RAISE OKL_API.G_EXCEPTION_ERROR;
633: END IF;
626: x_msg_data => x_msg_data,
627: p_cle_id => l_cpl_rec.cle_id);
628:
629: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
630: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
631: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
632: RAISE OKL_API.G_EXCEPTION_ERROR;
633: END IF;
634: END IF;
627: p_cle_id => l_cpl_rec.cle_id);
628:
629: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
630: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
631: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
632: RAISE OKL_API.G_EXCEPTION_ERROR;
633: END IF;
634: END IF;
635: --Bug# 4959361
628:
629: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
630: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
631: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
632: RAISE OKL_API.G_EXCEPTION_ERROR;
633: END IF;
634: END IF;
635: --Bug# 4959361
636:
648: x_msg_data => x_msg_data,
649: p_cplv_rec => l_cplv_rec);
650:
651: -- check return status
652: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
653: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
654: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
655: raise OKL_API.G_EXCEPTION_ERROR;
656: End If;
649: p_cplv_rec => l_cplv_rec);
650:
651: -- check return status
652: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
653: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
654: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
655: raise OKL_API.G_EXCEPTION_ERROR;
656: End If;
657:
650:
651: -- check return status
652: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
653: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
654: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
655: raise OKL_API.G_EXCEPTION_ERROR;
656: End If;
657:
658: -- call procedure in complex API
651: -- check return status
652: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
653: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
654: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
655: raise OKL_API.G_EXCEPTION_ERROR;
656: End If;
657:
658: -- call procedure in complex API
659: OKL_KPL_PVT.Delete_Row(
663: x_msg_count => x_msg_count,
664: x_msg_data => x_msg_data,
665: p_kplv_rec => p_kplv_rec);
666:
667: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
668: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
669: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
670: raise OKL_API.G_EXCEPTION_ERROR;
671: End If;
664: x_msg_data => x_msg_data,
665: p_kplv_rec => p_kplv_rec);
666:
667: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
668: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
669: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
670: raise OKL_API.G_EXCEPTION_ERROR;
671: End If;
672:
665: p_kplv_rec => p_kplv_rec);
666:
667: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
668: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
669: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
670: raise OKL_API.G_EXCEPTION_ERROR;
671: End If;
672:
673: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
666:
667: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
668: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
669: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
670: raise OKL_API.G_EXCEPTION_ERROR;
671: End If;
672:
673: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
674: x_msg_data => x_msg_data);
669: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
670: raise OKL_API.G_EXCEPTION_ERROR;
671: End If;
672:
673: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
674: x_msg_data => x_msg_data);
675: EXCEPTION
676: when OKL_API.G_EXCEPTION_ERROR then
677: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
672:
673: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
674: x_msg_data => x_msg_data);
675: EXCEPTION
676: when OKL_API.G_EXCEPTION_ERROR then
677: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
678: p_api_name => l_api_name,
679: p_pkg_name => g_pkg_name,
680: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
673: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
674: x_msg_data => x_msg_data);
675: EXCEPTION
676: when OKL_API.G_EXCEPTION_ERROR then
677: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
678: p_api_name => l_api_name,
679: p_pkg_name => g_pkg_name,
680: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
681: x_msg_count => x_msg_count,
676: when OKL_API.G_EXCEPTION_ERROR then
677: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
678: p_api_name => l_api_name,
679: p_pkg_name => g_pkg_name,
680: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
681: x_msg_count => x_msg_count,
682: x_msg_data => x_msg_data,
683: p_api_type => g_api_type);
684:
681: x_msg_count => x_msg_count,
682: x_msg_data => x_msg_data,
683: p_api_type => g_api_type);
684:
685: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
686: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
687: p_api_name => l_api_name,
688: p_pkg_name => g_pkg_name,
689: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
682: x_msg_data => x_msg_data,
683: p_api_type => g_api_type);
684:
685: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
686: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
687: p_api_name => l_api_name,
688: p_pkg_name => g_pkg_name,
689: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
690: x_msg_count => x_msg_count,
685: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
686: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
687: p_api_name => l_api_name,
688: p_pkg_name => g_pkg_name,
689: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
690: x_msg_count => x_msg_count,
691: x_msg_data => x_msg_data,
692: p_api_type => g_api_type);
693:
691: x_msg_data => x_msg_data,
692: p_api_type => g_api_type);
693:
694: when OTHERS then
695: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
696: p_api_name => l_api_name,
697: p_pkg_name => g_pkg_name,
698: p_exc_name => 'OTHERS',
699: x_msg_count => x_msg_count,
720: p_kplv_tbl IN kplv_tbl_type) IS
721:
722: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_K_PARTY_ROLE';
723: l_api_version CONSTANT NUMBER := 1.0;
724: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
725: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
726: i NUMBER;
727: l_kplv_tbl kplv_tbl_type := p_kplv_tbl;
728: BEGIN
721:
722: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_K_PARTY_ROLE';
723: l_api_version CONSTANT NUMBER := 1.0;
724: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
725: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
726: i NUMBER;
727: l_kplv_tbl kplv_tbl_type := p_kplv_tbl;
728: BEGIN
729: -- call START_ACTIVITY to create savepoint, check compatibility
727: l_kplv_tbl kplv_tbl_type := p_kplv_tbl;
728: BEGIN
729: -- call START_ACTIVITY to create savepoint, check compatibility
730: -- and initialize message list
731: l_return_status := OKL_API.START_ACTIVITY(
732: p_api_name => l_api_name,
733: p_pkg_name => g_pkg_name,
734: p_init_msg_list => p_init_msg_list,
735: l_api_version => l_api_version,
737: p_api_type => g_api_type,
738: x_return_status => x_return_status);
739:
740: -- check if activity started successfully
741: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
742: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
743: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
744: raise OKL_API.G_EXCEPTION_ERROR;
745:
738: x_return_status => x_return_status);
739:
740: -- check if activity started successfully
741: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
742: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
743: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
744: raise OKL_API.G_EXCEPTION_ERROR;
745:
746: End If;
739:
740: -- check if activity started successfully
741: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
742: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
743: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
744: raise OKL_API.G_EXCEPTION_ERROR;
745:
746: End If;
747:
740: -- check if activity started successfully
741: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
742: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
743: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
744: raise OKL_API.G_EXCEPTION_ERROR;
745:
746: End If;
747:
748: If (p_cplv_tbl.COUNT > 0) Then
757: x_msg_data => x_msg_data,
758: p_cplv_rec => p_cplv_tbl(i),
759: p_kplv_rec => l_kplv_tbl(i));
760:
761: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
762: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
763: l_overall_status := x_return_status;
764: End If;
765: End If;
758: p_cplv_rec => p_cplv_tbl(i),
759: p_kplv_rec => l_kplv_tbl(i));
760:
761: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
762: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
763: l_overall_status := x_return_status;
764: End If;
765: End If;
766:
771: -- return overall status
772: x_return_status := l_overall_status;
773: End If;
774:
775: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
776: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
777: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
778: raise OKL_API.G_EXCEPTION_ERROR;
779: End If;
772: x_return_status := l_overall_status;
773: End If;
774:
775: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
776: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
777: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
778: raise OKL_API.G_EXCEPTION_ERROR;
779: End If;
780:
773: End If;
774:
775: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
776: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
777: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
778: raise OKL_API.G_EXCEPTION_ERROR;
779: End If;
780:
781: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
774:
775: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
776: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
777: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
778: raise OKL_API.G_EXCEPTION_ERROR;
779: End If;
780:
781: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
782: x_msg_data => x_msg_data);
777: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
778: raise OKL_API.G_EXCEPTION_ERROR;
779: End If;
780:
781: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
782: x_msg_data => x_msg_data);
783: EXCEPTION
784: when OKL_API.G_EXCEPTION_ERROR then
785: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
780:
781: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
782: x_msg_data => x_msg_data);
783: EXCEPTION
784: when OKL_API.G_EXCEPTION_ERROR then
785: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
786: p_api_name => l_api_name,
787: p_pkg_name => g_pkg_name,
788: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
781: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
782: x_msg_data => x_msg_data);
783: EXCEPTION
784: when OKL_API.G_EXCEPTION_ERROR then
785: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
786: p_api_name => l_api_name,
787: p_pkg_name => g_pkg_name,
788: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
789: x_msg_count => x_msg_count,
784: when OKL_API.G_EXCEPTION_ERROR then
785: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
786: p_api_name => l_api_name,
787: p_pkg_name => g_pkg_name,
788: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
789: x_msg_count => x_msg_count,
790: x_msg_data => x_msg_data,
791: p_api_type => g_api_type);
792:
789: x_msg_count => x_msg_count,
790: x_msg_data => x_msg_data,
791: p_api_type => g_api_type);
792:
793: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
794: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
795: p_api_name => l_api_name,
796: p_pkg_name => g_pkg_name,
797: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
790: x_msg_data => x_msg_data,
791: p_api_type => g_api_type);
792:
793: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
794: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
795: p_api_name => l_api_name,
796: p_pkg_name => g_pkg_name,
797: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
798: x_msg_count => x_msg_count,
793: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
794: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
795: p_api_name => l_api_name,
796: p_pkg_name => g_pkg_name,
797: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
798: x_msg_count => x_msg_count,
799: x_msg_data => x_msg_data,
800: p_api_type => g_api_type);
801:
799: x_msg_data => x_msg_data,
800: p_api_type => g_api_type);
801:
802: when OTHERS then
803: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
804: p_api_name => l_api_name,
805: p_pkg_name => g_pkg_name,
806: p_exc_name => 'OTHERS',
807: x_msg_count => x_msg_count,