162: AND LSQ.STATUS = 'CT-ACCEPTED'
163: AND LSQ.ID = p_quote_id;
164: l_uniq_qte_contract_rec l_uniq_qte_contract_csr%ROWTYPE;
165: BEGIN
166: l_return_status := OKL_API.G_RET_STS_SUCCESS;
167:
168: -- call START_ACTIVITY to create savepoint, check compatibility
169: -- and initialize message list
170: l_return_status := OKL_API.START_ACTIVITY(
166: l_return_status := OKL_API.G_RET_STS_SUCCESS;
167:
168: -- call START_ACTIVITY to create savepoint, check compatibility
169: -- and initialize message list
170: l_return_status := OKL_API.START_ACTIVITY(
171: p_api_name => l_api_name
172: ,p_pkg_name => G_PKG_NAME
173: ,p_init_msg_list => p_init_msg_list
174: ,l_api_version => p_api_version
176: ,p_api_type => G_API_TYPE
177: ,x_return_status => l_return_status);
178:
179: -- check if activity started successfully
180: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
181: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
182: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
183: RAISE OKL_API.G_EXCEPTION_ERROR;
184: END IF;
177: ,x_return_status => l_return_status);
178:
179: -- check if activity started successfully
180: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
181: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
182: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
183: RAISE OKL_API.G_EXCEPTION_ERROR;
184: END IF;
185:
178:
179: -- check if activity started successfully
180: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
181: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
182: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
183: RAISE OKL_API.G_EXCEPTION_ERROR;
184: END IF;
185:
186: --Validate that only one contract being created from source Lease Opp through
179: -- check if activity started successfully
180: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
181: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
182: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
183: RAISE OKL_API.G_EXCEPTION_ERROR;
184: END IF;
185:
186: --Validate that only one contract being created from source Lease Opp through
187: --any Lease App
188: OPEN l_uniq_contract_csr(p_quote_id);
189: FETCH l_uniq_contract_csr INTO l_uniq_contract_rec;
190: IF l_uniq_contract_csr%FOUND
191: THEN
192: l_return_status := OKL_API.G_RET_STS_ERROR;
193: OKL_API.SET_MESSAGE(
194: p_app_name => G_APP_NAME,
195: p_msg_name => 'OKL_CNTRCT_CRT_THRU_QUOTE',
196: p_token1 => 'CONTRACT',
189: FETCH l_uniq_contract_csr INTO l_uniq_contract_rec;
190: IF l_uniq_contract_csr%FOUND
191: THEN
192: l_return_status := OKL_API.G_RET_STS_ERROR;
193: OKL_API.SET_MESSAGE(
194: p_app_name => G_APP_NAME,
195: p_msg_name => 'OKL_CNTRCT_CRT_THRU_QUOTE',
196: p_token1 => 'CONTRACT',
197: p_token1_value => l_uniq_contract_rec.contract_number,
196: p_token1 => 'CONTRACT',
197: p_token1_value => l_uniq_contract_rec.contract_number,
198: p_token2 => 'LSE_APP',
199: p_token2_value => l_uniq_contract_rec.lse_app);
200: RAISE OKL_API.G_EXCEPTION_ERROR;
201: END IF;
202: CLOSE l_uniq_contract_csr;
203:
204: --Validate that only one contract being created from Lease Opp through
206: OPEN l_uniq_qte_contract_csr(p_quote_id);
207: FETCH l_uniq_qte_contract_csr INTO l_uniq_qte_contract_rec;
208: IF l_uniq_qte_contract_csr%FOUND
209: THEN
210: l_return_status := OKL_API.G_RET_STS_ERROR;
211: OKL_API.SET_MESSAGE(
212: p_app_name => G_APP_NAME,
213: p_msg_name => 'OKL_CNTRCT_CRT_THRU_QUOTE',
214: p_token1 => 'LSE_OPP',
207: FETCH l_uniq_qte_contract_csr INTO l_uniq_qte_contract_rec;
208: IF l_uniq_qte_contract_csr%FOUND
209: THEN
210: l_return_status := OKL_API.G_RET_STS_ERROR;
211: OKL_API.SET_MESSAGE(
212: p_app_name => G_APP_NAME,
213: p_msg_name => 'OKL_CNTRCT_CRT_THRU_QUOTE',
214: p_token1 => 'LSE_OPP',
215: p_token1_value => l_uniq_qte_contract_rec.lse_opp,
214: p_token1 => 'LSE_OPP',
215: p_token1_value => l_uniq_qte_contract_rec.lse_opp,
216: p_token2 => 'CONTRACT',
217: p_token2_value => l_uniq_qte_contract_rec.contract_number);
218: RAISE OKL_API.G_EXCEPTION_ERROR;
219: END IF;
220: CLOSE l_uniq_qte_contract_csr;
221:
222:
220: CLOSE l_uniq_qte_contract_csr;
221:
222:
223: x_return_status := l_return_status;
224: OKL_API.END_ACTIVITY(
225: x_msg_count => x_msg_count
226: ,x_msg_data => x_msg_data);
227: EXCEPTION
228: WHEN OKL_API.G_EXCEPTION_ERROR THEN
224: OKL_API.END_ACTIVITY(
225: x_msg_count => x_msg_count
226: ,x_msg_data => x_msg_data);
227: EXCEPTION
228: WHEN OKL_API.G_EXCEPTION_ERROR THEN
229:
230: --Check if Unique Contract cursor is open
231: IF l_uniq_contract_csr%ISOPEN
232: THEN
236: IF l_uniq_qte_contract_csr%ISOPEN
237: THEN
238: CLOSE l_uniq_qte_contract_csr;
239: END IF;
240: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
241: p_api_name => l_api_name,
242: p_pkg_name => G_PKG_NAME,
243: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
244: x_msg_count => x_msg_count,
239: END IF;
240: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
241: p_api_name => l_api_name,
242: p_pkg_name => G_PKG_NAME,
243: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
244: x_msg_count => x_msg_count,
245: x_msg_data => x_msg_data,
246: p_api_type => G_API_TYPE);
247: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
243: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
244: x_msg_count => x_msg_count,
245: x_msg_data => x_msg_data,
246: p_api_type => G_API_TYPE);
247: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
248:
249: --Check if Unique Contract cursor is open
250: IF l_uniq_contract_csr%ISOPEN
251: THEN
255: IF l_uniq_qte_contract_csr%ISOPEN
256: THEN
257: CLOSE l_uniq_qte_contract_csr;
258: END IF;
259: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
260: p_api_name => l_api_name,
261: p_pkg_name => G_PKG_NAME,
262: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
263: x_msg_count => x_msg_count,
258: END IF;
259: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
260: p_api_name => l_api_name,
261: p_pkg_name => G_PKG_NAME,
262: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
263: x_msg_count => x_msg_count,
264: x_msg_data => x_msg_data,
265: p_api_type => G_API_TYPE);
266: WHEN OTHERS THEN
274: IF l_uniq_qte_contract_csr%ISOPEN
275: THEN
276: CLOSE l_uniq_qte_contract_csr;
277: END IF;
278: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
279: p_api_name => l_api_name,
280: p_pkg_name => G_PKG_NAME,
281: p_exc_name => 'OTHERS',
282: x_msg_count => x_msg_count,
307: p_lap_id IN OKL_LEASE_APPLICATIONS_B.ID%TYPE) IS
308: -- Variables Declarations
309: l_api_version CONSTANT NUMBER DEFAULT 1.0;
310: l_api_name CONSTANT VARCHAR2(30) DEFAULT 'UPD_LP_STS';
311: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
312: l_debug_enabled VARCHAR2(10);
313: lx_return_status VARCHAR2(1);
314:
315: x_lapv_rec OKL_LAP_PVT.LAPV_REC_TYPE;
314:
315: x_lapv_rec OKL_LAP_PVT.LAPV_REC_TYPE;
316: x_lsqv_rec OKL_LSQ_PVT.LSQV_REC_TYPE;
317: BEGIN
318: x_return_status := OKL_API.G_RET_STS_SUCCESS;
319: -- check for logging on PROCEDURE level
320: l_debug_enabled := okl_debug_pub.check_log_enabled;
321: -- call START_ACTIVITY to create savepoint, check compatibility
322: -- and initialize message list
319: -- check for logging on PROCEDURE level
320: l_debug_enabled := okl_debug_pub.check_log_enabled;
321: -- call START_ACTIVITY to create savepoint, check compatibility
322: -- and initialize message list
323: l_return_status := OKL_API.START_ACTIVITY( p_api_name => l_api_name
324: ,p_pkg_name => G_PKG_NAME
325: ,p_init_msg_list => p_init_msg_list
326: ,l_api_version => l_api_version
327: ,p_api_version => p_api_version
327: ,p_api_version => p_api_version
328: ,p_api_type => g_api_type
329: ,x_return_status => x_return_status);
330: -- check if activity started successfully
331: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
332: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
333: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
334: RAISE OKL_API.G_EXCEPTION_ERROR;
335: END IF;
328: ,p_api_type => g_api_type
329: ,x_return_status => x_return_status);
330: -- check if activity started successfully
331: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
332: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
333: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
334: RAISE OKL_API.G_EXCEPTION_ERROR;
335: END IF;
336: IF(l_debug_enabled='Y') THEN
329: ,x_return_status => x_return_status);
330: -- check if activity started successfully
331: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
332: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
333: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
334: RAISE OKL_API.G_EXCEPTION_ERROR;
335: END IF;
336: IF(l_debug_enabled='Y') THEN
337: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.OKL_LEASE_APP_PVT.set_lease_app_status'
330: -- check if activity started successfully
331: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
332: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
333: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
334: RAISE OKL_API.G_EXCEPTION_ERROR;
335: END IF;
336: IF(l_debug_enabled='Y') THEN
337: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.OKL_LEASE_APP_PVT.set_lease_app_status'
338: ,'begin debug call lease_app_upd');
348: IF(l_debug_enabled='Y') THEN
349: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.OKL_LEASE_APP_PVT.set_lease_app_status'
350: ,'end debug call lease_app_upd');
351: END IF;
352: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
353: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
354: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
355: RAISE OKL_API.G_EXCEPTION_ERROR;
356: END IF;
349: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.OKL_LEASE_APP_PVT.set_lease_app_status'
350: ,'end debug call lease_app_upd');
351: END IF;
352: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
353: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
354: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
355: RAISE OKL_API.G_EXCEPTION_ERROR;
356: END IF;
357:
350: ,'end debug call lease_app_upd');
351: END IF;
352: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
353: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
354: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
355: RAISE OKL_API.G_EXCEPTION_ERROR;
356: END IF;
357:
358:
351: END IF;
352: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
353: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
354: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
355: RAISE OKL_API.G_EXCEPTION_ERROR;
356: END IF;
357:
358:
359: x_return_status := okc_api.G_RET_STS_SUCCESS;
356: END IF;
357:
358:
359: x_return_status := okc_api.G_RET_STS_SUCCESS;
360: OKL_API.END_ACTIVITY(
361: x_msg_count => x_msg_count
362: ,x_msg_data => x_msg_data);
363: EXCEPTION
364: WHEN OKL_API.G_EXCEPTION_ERROR THEN
360: OKL_API.END_ACTIVITY(
361: x_msg_count => x_msg_count
362: ,x_msg_data => x_msg_data);
363: EXCEPTION
364: WHEN OKL_API.G_EXCEPTION_ERROR THEN
365: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
366: p_api_name => l_api_name,
367: p_pkg_name => G_PKG_NAME,
368: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
361: x_msg_count => x_msg_count
362: ,x_msg_data => x_msg_data);
363: EXCEPTION
364: WHEN OKL_API.G_EXCEPTION_ERROR THEN
365: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
366: p_api_name => l_api_name,
367: p_pkg_name => G_PKG_NAME,
368: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
369: x_msg_count => x_msg_count,
364: WHEN OKL_API.G_EXCEPTION_ERROR THEN
365: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
366: p_api_name => l_api_name,
367: p_pkg_name => G_PKG_NAME,
368: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
369: x_msg_count => x_msg_count,
370: x_msg_data => x_msg_data,
371: p_api_type => G_API_TYPE);
372: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
368: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
369: x_msg_count => x_msg_count,
370: x_msg_data => x_msg_data,
371: p_api_type => G_API_TYPE);
372: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
373: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
374: p_api_name => l_api_name,
375: p_pkg_name => G_PKG_NAME,
376: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
369: x_msg_count => x_msg_count,
370: x_msg_data => x_msg_data,
371: p_api_type => G_API_TYPE);
372: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
373: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
374: p_api_name => l_api_name,
375: p_pkg_name => G_PKG_NAME,
376: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
377: x_msg_count => x_msg_count,
372: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
373: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
374: p_api_name => l_api_name,
375: p_pkg_name => G_PKG_NAME,
376: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
377: x_msg_count => x_msg_count,
378: x_msg_data => x_msg_data,
379: p_api_type => G_API_TYPE);
380: WHEN OTHERS THEN
377: x_msg_count => x_msg_count,
378: x_msg_data => x_msg_data,
379: p_api_type => G_API_TYPE);
380: WHEN OTHERS THEN
381: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
382: p_api_name => l_api_name,
383: p_pkg_name => G_PKG_NAME,
384: p_exc_name => 'OTHERS',
385: x_msg_count => x_msg_count,
405: p_vendor_id IN NUMBER)IS
406: -- Variables Declarations
407: l_api_version CONSTANT NUMBER DEFAULT 1.0;
408: l_api_name CONSTANT VARCHAR2(30) DEFAULT 'CRT_PTY_RLS';
409: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
410: l_debug_enabled VARCHAR2(10);
411: row_count NUMBER DEFAULT 0;
412: lp_cplv_rec okl_okc_migration_pvt.cplv_rec_type;
413: lx_cplv_rec okl_okc_migration_pvt.cplv_rec_type;
436: AND object1_id1 = p_vendor_id;
437:
438:
439: BEGIN
440: x_return_status := OKL_API.G_RET_STS_SUCCESS;
441: -- check for logging on PROCEDURE level
442: l_debug_enabled := okl_debug_pub.check_log_enabled;
443: -- call START_ACTIVITY to create savepoint, check compatibility
444: -- and initialize message list
441: -- check for logging on PROCEDURE level
442: l_debug_enabled := okl_debug_pub.check_log_enabled;
443: -- call START_ACTIVITY to create savepoint, check compatibility
444: -- and initialize message list
445: l_return_status := OKL_API.START_ACTIVITY( p_api_name => l_api_name
446: ,p_pkg_name => G_PKG_NAME
447: ,p_init_msg_list => p_init_msg_list
448: ,l_api_version => l_api_version
449: ,p_api_version => p_api_version
449: ,p_api_version => p_api_version
450: ,p_api_type => g_api_type
451: ,x_return_status => x_return_status);
452: -- check if activity started successfully
453: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
454: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
455: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
456: RAISE OKL_API.G_EXCEPTION_ERROR;
457: END IF;
450: ,p_api_type => g_api_type
451: ,x_return_status => x_return_status);
452: -- check if activity started successfully
453: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
454: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
455: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
456: RAISE OKL_API.G_EXCEPTION_ERROR;
457: END IF;
458:
451: ,x_return_status => x_return_status);
452: -- check if activity started successfully
453: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
454: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
455: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
456: RAISE OKL_API.G_EXCEPTION_ERROR;
457: END IF;
458:
459: lp_cplv_rec.object_version_number := 1.0;
452: -- check if activity started successfully
453: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
454: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
455: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
456: RAISE OKL_API.G_EXCEPTION_ERROR;
457: END IF;
458:
459: lp_cplv_rec.object_version_number := 1.0;
460: lp_cplv_rec.sfwt_flag := OKC_API.G_FALSE;
498: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_k_party_roles_pvt.create_k_party_role'
499: ,'end debug call create_k_party_role');
500: END IF;
501: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
502: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
503: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
504: RAISE OKL_API.G_EXCEPTION_ERROR;
505: END IF;
506: END IF;
500: END IF;
501: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
502: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
503: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
504: RAISE OKL_API.G_EXCEPTION_ERROR;
505: END IF;
506: END IF;
507: x_return_status := okc_api.G_RET_STS_SUCCESS;
508: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
504: RAISE OKL_API.G_EXCEPTION_ERROR;
505: END IF;
506: END IF;
507: x_return_status := okc_api.G_RET_STS_SUCCESS;
508: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
509: ,x_msg_data => x_msg_data);
510: EXCEPTION
511: WHEN OKL_API.G_EXCEPTION_ERROR THEN
512: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
507: x_return_status := okc_api.G_RET_STS_SUCCESS;
508: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
509: ,x_msg_data => x_msg_data);
510: EXCEPTION
511: WHEN OKL_API.G_EXCEPTION_ERROR THEN
512: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
513: p_api_name => l_api_name,
514: p_pkg_name => G_PKG_NAME,
515: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
508: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
509: ,x_msg_data => x_msg_data);
510: EXCEPTION
511: WHEN OKL_API.G_EXCEPTION_ERROR THEN
512: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
513: p_api_name => l_api_name,
514: p_pkg_name => G_PKG_NAME,
515: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
516: x_msg_count => x_msg_count,
511: WHEN OKL_API.G_EXCEPTION_ERROR THEN
512: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
513: p_api_name => l_api_name,
514: p_pkg_name => G_PKG_NAME,
515: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
516: x_msg_count => x_msg_count,
517: x_msg_data => x_msg_data,
518: p_api_type => g_api_type);
519: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
515: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
516: x_msg_count => x_msg_count,
517: x_msg_data => x_msg_data,
518: p_api_type => g_api_type);
519: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
520: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
521: p_api_name => l_api_name,
522: p_pkg_name => G_PKG_NAME,
523: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
516: x_msg_count => x_msg_count,
517: x_msg_data => x_msg_data,
518: p_api_type => g_api_type);
519: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
520: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
521: p_api_name => l_api_name,
522: p_pkg_name => G_PKG_NAME,
523: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
524: x_msg_count => x_msg_count,
519: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
520: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
521: p_api_name => l_api_name,
522: p_pkg_name => G_PKG_NAME,
523: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
524: x_msg_count => x_msg_count,
525: x_msg_data => x_msg_data,
526: p_api_type => g_api_type);
527: WHEN OTHERS THEN
524: x_msg_count => x_msg_count,
525: x_msg_data => x_msg_data,
526: p_api_type => g_api_type);
527: WHEN OTHERS THEN
528: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
529: p_api_name => l_api_name,
530: p_pkg_name => G_PKG_NAME,
531: p_exc_name => 'OTHERS',
532: x_msg_count => x_msg_count,
617: x_rgp_id OUT NOCOPY NUMBER) IS
618: -- Variables Declarations
619: l_api_version CONSTANT NUMBER DEFAULT 1.0;
620: l_api_name CONSTANT VARCHAR2(30) DEFAULT 'CRT_RL_GRP';
621: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
622: l_debug_enabled VARCHAR2(10);
623: lx_return_status VARCHAR2(1);
624:
625: l_rgpv_rec okc_rule_pub.rgpv_rec_type;
624:
625: l_rgpv_rec okc_rule_pub.rgpv_rec_type;
626: lx_rgpv_rec okc_rule_pub.rgpv_rec_type;
627: BEGIN
628: x_return_status := OKL_API.G_RET_STS_SUCCESS;
629: -- check for logging on PROCEDURE level
630: l_debug_enabled := okl_debug_pub.check_log_enabled;
631: -- call START_ACTIVITY to create savepoint, check compatibility
632: -- and initialize message list
629: -- check for logging on PROCEDURE level
630: l_debug_enabled := okl_debug_pub.check_log_enabled;
631: -- call START_ACTIVITY to create savepoint, check compatibility
632: -- and initialize message list
633: l_return_status := OKL_API.START_ACTIVITY( p_api_name => l_api_name
634: ,p_pkg_name => G_PKG_NAME
635: ,p_init_msg_list => p_init_msg_list
636: ,l_api_version => l_api_version
637: ,p_api_version => p_api_version
637: ,p_api_version => p_api_version
638: ,p_api_type => g_api_type
639: ,x_return_status => x_return_status);
640: -- check if activity started successfully
641: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
642: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
643: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
644: RAISE OKL_API.G_EXCEPTION_ERROR;
645: END IF;
638: ,p_api_type => g_api_type
639: ,x_return_status => x_return_status);
640: -- check if activity started successfully
641: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
642: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
643: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
644: RAISE OKL_API.G_EXCEPTION_ERROR;
645: END IF;
646: l_rgpv_rec.rgp_type := 'KRG';
639: ,x_return_status => x_return_status);
640: -- check if activity started successfully
641: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
642: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
643: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
644: RAISE OKL_API.G_EXCEPTION_ERROR;
645: END IF;
646: l_rgpv_rec.rgp_type := 'KRG';
647: l_rgpv_rec.cle_id := p_cle_id;
640: -- check if activity started successfully
641: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
642: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
643: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
644: RAISE OKL_API.G_EXCEPTION_ERROR;
645: END IF;
646: l_rgpv_rec.rgp_type := 'KRG';
647: l_rgpv_rec.cle_id := p_cle_id;
648: l_rgpv_rec.dnz_chr_id := p_chr_id;
661: IF(l_debug_enabled='Y') THEN
662: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okc_rule_pub.create_rule_group'
663: ,'end debug call create_rule_group');
664: END IF;
665: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
666: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
667: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
668: RAISE OKL_API.G_EXCEPTION_ERROR;
669: END IF;
662: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okc_rule_pub.create_rule_group'
663: ,'end debug call create_rule_group');
664: END IF;
665: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
666: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
667: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
668: RAISE OKL_API.G_EXCEPTION_ERROR;
669: END IF;
670: x_rgp_id := lx_rgpv_rec.id;
663: ,'end debug call create_rule_group');
664: END IF;
665: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
666: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
667: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
668: RAISE OKL_API.G_EXCEPTION_ERROR;
669: END IF;
670: x_rgp_id := lx_rgpv_rec.id;
671: x_return_status := okc_api.G_RET_STS_SUCCESS;
664: END IF;
665: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
666: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
667: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
668: RAISE OKL_API.G_EXCEPTION_ERROR;
669: END IF;
670: x_rgp_id := lx_rgpv_rec.id;
671: x_return_status := okc_api.G_RET_STS_SUCCESS;
672: OKL_API.END_ACTIVITY(
668: RAISE OKL_API.G_EXCEPTION_ERROR;
669: END IF;
670: x_rgp_id := lx_rgpv_rec.id;
671: x_return_status := okc_api.G_RET_STS_SUCCESS;
672: OKL_API.END_ACTIVITY(
673: x_msg_count => x_msg_count
674: ,x_msg_data => x_msg_data);
675: EXCEPTION
676: WHEN OKL_API.G_EXCEPTION_ERROR THEN
672: OKL_API.END_ACTIVITY(
673: 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: 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: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
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: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
685: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
686: p_api_name => l_api_name,
687: p_pkg_name => G_PKG_NAME,
688: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
681: x_msg_count => x_msg_count,
682: x_msg_data => x_msg_data,
683: p_api_type => G_API_TYPE);
684: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
685: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
686: p_api_name => l_api_name,
687: p_pkg_name => G_PKG_NAME,
688: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
689: x_msg_count => x_msg_count,
684: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
685: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
686: p_api_name => l_api_name,
687: p_pkg_name => G_PKG_NAME,
688: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
689: x_msg_count => x_msg_count,
690: x_msg_data => x_msg_data,
691: p_api_type => G_API_TYPE);
692: WHEN OTHERS THEN
689: x_msg_count => x_msg_count,
690: x_msg_data => x_msg_data,
691: p_api_type => G_API_TYPE);
692: WHEN OTHERS THEN
693: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
694: p_api_name => l_api_name,
695: p_pkg_name => G_PKG_NAME,
696: p_exc_name => 'OTHERS',
697: x_msg_count => x_msg_count,
792: IF p_payment_levels_tbl.EXISTS(i) THEN
793: IF (p_payment_levels_tbl(i).stub_days IS NULL) AND (l_prev_sll_stub_yn = 'N') THEN
794: IF p_pricing_method IN ('SY', 'NA') THEN
795: IF p_payment_levels_tbl(i).amount = l_prev_sll_amount THEN
796: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
797: p_msg_name => 'OKL_REDUNDANT_PAYMENT_LEVELS');
798: RAISE OKL_API.G_EXCEPTION_ERROR;
799: END IF;
800: ELSIF p_pricing_method = 'SP' THEN
794: IF p_pricing_method IN ('SY', 'NA') THEN
795: IF p_payment_levels_tbl(i).amount = l_prev_sll_amount THEN
796: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
797: p_msg_name => 'OKL_REDUNDANT_PAYMENT_LEVELS');
798: RAISE OKL_API.G_EXCEPTION_ERROR;
799: END IF;
800: ELSIF p_pricing_method = 'SP' THEN
801: IF p_payment_levels_tbl(i).rate = l_prev_sll_rate THEN
802: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
798: RAISE OKL_API.G_EXCEPTION_ERROR;
799: END IF;
800: ELSIF p_pricing_method = 'SP' THEN
801: IF p_payment_levels_tbl(i).rate = l_prev_sll_rate THEN
802: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
803: p_msg_name => 'OKL_REDUNDANT_PAYMENT_LEVELS2');
804: RAISE OKL_API.G_EXCEPTION_ERROR;
805: END IF;
806: ELSIF p_pricing_method = 'SM' THEN
800: ELSIF p_pricing_method = 'SP' THEN
801: IF p_payment_levels_tbl(i).rate = l_prev_sll_rate THEN
802: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
803: p_msg_name => 'OKL_REDUNDANT_PAYMENT_LEVELS2');
804: RAISE OKL_API.G_EXCEPTION_ERROR;
805: END IF;
806: ELSIF p_pricing_method = 'SM' THEN
807: IF (p_payment_levels_tbl(i).rate = l_prev_sll_rate) AND (p_payment_levels_tbl(i).amount = l_prev_sll_amount) THEN
808: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
804: RAISE OKL_API.G_EXCEPTION_ERROR;
805: END IF;
806: ELSIF p_pricing_method = 'SM' THEN
807: IF (p_payment_levels_tbl(i).rate = l_prev_sll_rate) AND (p_payment_levels_tbl(i).amount = l_prev_sll_amount) THEN
808: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
809: p_msg_name => 'OKL_REDUNDANT_PAYMENT_LEVELS3');
810: RAISE OKL_API.G_EXCEPTION_ERROR;
811: END IF;
812: END IF;
806: ELSIF p_pricing_method = 'SM' THEN
807: IF (p_payment_levels_tbl(i).rate = l_prev_sll_rate) AND (p_payment_levels_tbl(i).amount = l_prev_sll_amount) THEN
808: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
809: p_msg_name => 'OKL_REDUNDANT_PAYMENT_LEVELS3');
810: RAISE OKL_API.G_EXCEPTION_ERROR;
811: END IF;
812: END IF;
813: END IF;
814: IF p_payment_levels_tbl(i).stub_days IS NOT NULL THEN
830: i := p_payment_levels_tbl.NEXT(i);
831: END IF;
832: END LOOP;
833: END IF;
834: x_return_status := OKL_API.G_RET_STS_SUCCESS;
835: EXCEPTION
836: WHEN OKL_API.G_EXCEPTION_ERROR THEN
837: x_return_status := OKL_API.G_RET_STS_ERROR;
838: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
832: END LOOP;
833: END IF;
834: x_return_status := OKL_API.G_RET_STS_SUCCESS;
835: EXCEPTION
836: WHEN OKL_API.G_EXCEPTION_ERROR THEN
837: x_return_status := OKL_API.G_RET_STS_ERROR;
838: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
839: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
840: WHEN OTHERS THEN
833: END IF;
834: x_return_status := OKL_API.G_RET_STS_SUCCESS;
835: EXCEPTION
836: WHEN OKL_API.G_EXCEPTION_ERROR THEN
837: x_return_status := OKL_API.G_RET_STS_ERROR;
838: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
839: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
840: WHEN OTHERS THEN
841: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
834: x_return_status := OKL_API.G_RET_STS_SUCCESS;
835: EXCEPTION
836: WHEN OKL_API.G_EXCEPTION_ERROR THEN
837: x_return_status := OKL_API.G_RET_STS_ERROR;
838: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
839: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
840: WHEN OTHERS THEN
841: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
842: p_msg_name => G_DB_ERROR,
835: EXCEPTION
836: WHEN OKL_API.G_EXCEPTION_ERROR THEN
837: x_return_status := OKL_API.G_RET_STS_ERROR;
838: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
839: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
840: WHEN OTHERS THEN
841: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
842: p_msg_name => G_DB_ERROR,
843: p_token1 => G_PROG_NAME_TOKEN,
837: x_return_status := OKL_API.G_RET_STS_ERROR;
838: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
839: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
840: WHEN OTHERS THEN
841: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
842: p_msg_name => G_DB_ERROR,
843: p_token1 => G_PROG_NAME_TOKEN,
844: p_token1_value => l_program_name,
845: p_token2 => G_SQLCODE_TOKEN,
845: p_token2 => G_SQLCODE_TOKEN,
846: p_token2_value => sqlcode,
847: p_token3 => G_SQLERRM_TOKEN,
848: p_token3_value => sqlerrm);
849: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
850: END check_redundant_levels;
851:
852: -----------------------------------------------------------------------------
853: -- FUNCTION calculate_end_date
908: ) IS
909: -- Variables Declarations
910: l_api_version CONSTANT NUMBER DEFAULT 1.0;
911: l_api_name CONSTANT VARCHAR2(30) DEFAULT 'VLD_PMT_DTL';
912: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
913: i BINARY_INTEGER;
914: l_payment_levels_tbl payment_levels_tbl_type;
915: l_level_end_date DATE;
916: l_level_start_date DATE;
919: l_mpp NUMBER;
920: l_missing_count NUMBER := 0;
921: l_stub_count NUMBER := 0;
922: BEGIN
923: x_return_status := OKL_API.G_RET_STS_SUCCESS;
924: -- check for logging on PROCEDURE level
925: l_debug_enabled := okl_debug_pub.check_log_enabled;
926: -- call START_ACTIVITY to create savepoint, check compatibility
927: -- and initialize message list
924: -- check for logging on PROCEDURE level
925: l_debug_enabled := okl_debug_pub.check_log_enabled;
926: -- call START_ACTIVITY to create savepoint, check compatibility
927: -- and initialize message list
928: l_return_status := OKL_API.START_ACTIVITY( p_api_name => l_api_name
929: ,p_pkg_name => G_PKG_NAME
930: ,p_init_msg_list => p_init_msg_list
931: ,l_api_version => l_api_version
932: ,p_api_version => p_api_version
932: ,p_api_version => p_api_version
933: ,p_api_type => g_api_type
934: ,x_return_status => x_return_status);
935: -- check if activity started successfully
936: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
937: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
938: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
939: RAISE OKL_API.G_EXCEPTION_ERROR;
940: END IF;
933: ,p_api_type => g_api_type
934: ,x_return_status => x_return_status);
935: -- check if activity started successfully
936: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
937: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
938: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
939: RAISE OKL_API.G_EXCEPTION_ERROR;
940: END IF;
941: l_payment_levels_tbl := p_payment_levels_tbl;
934: ,x_return_status => x_return_status);
935: -- check if activity started successfully
936: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
937: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
938: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
939: RAISE OKL_API.G_EXCEPTION_ERROR;
940: END IF;
941: l_payment_levels_tbl := p_payment_levels_tbl;
942: SELECT end_date,
935: -- check if activity started successfully
936: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
937: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
938: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
939: RAISE OKL_API.G_EXCEPTION_ERROR;
940: END IF;
941: l_payment_levels_tbl := p_payment_levels_tbl;
942: SELECT end_date,
943: term_duration
955: ----------------------------------------------------------------------------------------------
956: -- 1.
957: IF (p_payment_type_id IS NOT NULL AND p_payment_levels_tbl.COUNT = 0) OR
958: (p_pricing_method <> 'NA' AND p_payment_levels_tbl.COUNT = 0) THEN
959: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
960: p_msg_name => 'OKL_LEVEL_REQD_LEVELS');
961: RAISE OKL_API.G_EXCEPTION_ERROR;
962: END IF;
963: -- 2.
957: IF (p_payment_type_id IS NOT NULL AND p_payment_levels_tbl.COUNT = 0) OR
958: (p_pricing_method <> 'NA' AND p_payment_levels_tbl.COUNT = 0) THEN
959: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
960: p_msg_name => 'OKL_LEVEL_REQD_LEVELS');
961: RAISE OKL_API.G_EXCEPTION_ERROR;
962: END IF;
963: -- 2.
964: IF (p_payment_type_id IS NULL AND p_payment_levels_tbl.COUNT > 0) THEN
965: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
961: RAISE OKL_API.G_EXCEPTION_ERROR;
962: END IF;
963: -- 2.
964: IF (p_payment_type_id IS NULL AND p_payment_levels_tbl.COUNT > 0) THEN
965: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
966: p_msg_name => 'OKL_LEVEL_REQD_PAYMENTTYPE');
967: RAISE OKL_API.G_EXCEPTION_ERROR;
968: END IF;
969: -- 12.
963: -- 2.
964: IF (p_payment_type_id IS NULL AND p_payment_levels_tbl.COUNT > 0) THEN
965: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
966: p_msg_name => 'OKL_LEVEL_REQD_PAYMENTTYPE');
967: RAISE OKL_API.G_EXCEPTION_ERROR;
968: END IF;
969: -- 12.
970: IF p_pricing_method = 'TR' THEN
971: IF TRUNC(l_term / l_mpp) <> (l_term / l_mpp) THEN
968: END IF;
969: -- 12.
970: IF p_pricing_method = 'TR' THEN
971: IF TRUNC(l_term / l_mpp) <> (l_term / l_mpp) THEN
972: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
973: p_msg_name => 'OKL_TERM_FREQ_MISMATCH');
974: RAISE OKL_API.G_EXCEPTION_ERROR;
975: END IF;
976: END IF;
970: IF p_pricing_method = 'TR' THEN
971: IF TRUNC(l_term / l_mpp) <> (l_term / l_mpp) THEN
972: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
973: p_msg_name => 'OKL_TERM_FREQ_MISMATCH');
974: RAISE OKL_API.G_EXCEPTION_ERROR;
975: END IF;
976: END IF;
977: IF (p_payment_levels_tbl.COUNT > 0) THEN
978: i := p_payment_levels_tbl.FIRST;
979: l_level_start_date := p_effective_from_date;
980: LOOP
981: -- 16.
982: IF (p_payment_levels_tbl(i).periods IS NOT NULL) AND (p_payment_levels_tbl(i).periods <= 0) THEN
983: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
984: p_msg_name => 'OKL_LEVEL_PERIOD_ZERO');
985: RAISE OKL_API.G_EXCEPTION_ERROR;
986: END IF;
987: -- 17.
981: -- 16.
982: IF (p_payment_levels_tbl(i).periods IS NOT NULL) AND (p_payment_levels_tbl(i).periods <= 0) THEN
983: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
984: p_msg_name => 'OKL_LEVEL_PERIOD_ZERO');
985: RAISE OKL_API.G_EXCEPTION_ERROR;
986: END IF;
987: -- 17.
988: IF (p_payment_levels_tbl(i).periods IS NOT NULL) AND
989: (TRUNC(p_payment_levels_tbl(i).periods) <> p_payment_levels_tbl(i).periods) THEN
986: END IF;
987: -- 17.
988: IF (p_payment_levels_tbl(i).periods IS NOT NULL) AND
989: (TRUNC(p_payment_levels_tbl(i).periods) <> p_payment_levels_tbl(i).periods) THEN
990: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
991: p_msg_name => 'OKL_LEVEL_PERIOD_FRACTION');
992: RAISE OKL_API.G_EXCEPTION_ERROR;
993: END IF;
994: -- 18.
988: IF (p_payment_levels_tbl(i).periods IS NOT NULL) AND
989: (TRUNC(p_payment_levels_tbl(i).periods) <> p_payment_levels_tbl(i).periods) THEN
990: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
991: p_msg_name => 'OKL_LEVEL_PERIOD_FRACTION');
992: RAISE OKL_API.G_EXCEPTION_ERROR;
993: END IF;
994: -- 18.
995: IF (p_payment_levels_tbl(i).stub_days IS NOT NULL) AND (p_payment_levels_tbl(i).stub_days <= 0) THEN
996: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
992: RAISE OKL_API.G_EXCEPTION_ERROR;
993: END IF;
994: -- 18.
995: IF (p_payment_levels_tbl(i).stub_days IS NOT NULL) AND (p_payment_levels_tbl(i).stub_days <= 0) THEN
996: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
997: p_msg_name => 'OKL_LEVEL_STUBDAYS_ZERO');
998: RAISE OKL_API.G_EXCEPTION_ERROR;
999: END IF;
1000: -- 19.
994: -- 18.
995: IF (p_payment_levels_tbl(i).stub_days IS NOT NULL) AND (p_payment_levels_tbl(i).stub_days <= 0) THEN
996: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
997: p_msg_name => 'OKL_LEVEL_STUBDAYS_ZERO');
998: RAISE OKL_API.G_EXCEPTION_ERROR;
999: END IF;
1000: -- 19.
1001: IF (p_payment_levels_tbl(i).stub_days IS NOT NULL) AND
1002: (TRUNC(p_payment_levels_tbl(i).stub_days) <> p_payment_levels_tbl(i).stub_days) THEN
999: END IF;
1000: -- 19.
1001: IF (p_payment_levels_tbl(i).stub_days IS NOT NULL) AND
1002: (TRUNC(p_payment_levels_tbl(i).stub_days) <> p_payment_levels_tbl(i).stub_days) THEN
1003: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1004: p_msg_name => 'OKL_LEVEL_STUBDAYS_FRACTION');
1005: RAISE OKL_API.G_EXCEPTION_ERROR;
1006: END IF;
1007: -- 20.
1001: IF (p_payment_levels_tbl(i).stub_days IS NOT NULL) AND
1002: (TRUNC(p_payment_levels_tbl(i).stub_days) <> p_payment_levels_tbl(i).stub_days) THEN
1003: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1004: p_msg_name => 'OKL_LEVEL_STUBDAYS_FRACTION');
1005: RAISE OKL_API.G_EXCEPTION_ERROR;
1006: END IF;
1007: -- 20.
1008: IF (p_payment_levels_tbl(i).amount IS NOT NULL) AND (p_payment_levels_tbl(i).amount < 0) THEN
1009: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1005: RAISE OKL_API.G_EXCEPTION_ERROR;
1006: END IF;
1007: -- 20.
1008: IF (p_payment_levels_tbl(i).amount IS NOT NULL) AND (p_payment_levels_tbl(i).amount < 0) THEN
1009: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1010: p_msg_name => 'OKL_LEVEL_AMOUNT_ZERO');
1011: RAISE OKL_API.G_EXCEPTION_ERROR;
1012: END IF;
1013: -- 21.
1007: -- 20.
1008: IF (p_payment_levels_tbl(i).amount IS NOT NULL) AND (p_payment_levels_tbl(i).amount < 0) THEN
1009: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1010: p_msg_name => 'OKL_LEVEL_AMOUNT_ZERO');
1011: RAISE OKL_API.G_EXCEPTION_ERROR;
1012: END IF;
1013: -- 21.
1014: IF (p_payment_levels_tbl(i).stub_amount IS NOT NULL) AND (p_payment_levels_tbl(i).stub_amount < 0) THEN
1015: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1011: RAISE OKL_API.G_EXCEPTION_ERROR;
1012: END IF;
1013: -- 21.
1014: IF (p_payment_levels_tbl(i).stub_amount IS NOT NULL) AND (p_payment_levels_tbl(i).stub_amount < 0) THEN
1015: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1016: p_msg_name => 'OKL_LEVEL_STUBAMT_ZERO');
1017: RAISE OKL_API.G_EXCEPTION_ERROR;
1018: END IF;
1019: -- 22.
1013: -- 21.
1014: IF (p_payment_levels_tbl(i).stub_amount IS NOT NULL) AND (p_payment_levels_tbl(i).stub_amount < 0) THEN
1015: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1016: p_msg_name => 'OKL_LEVEL_STUBAMT_ZERO');
1017: RAISE OKL_API.G_EXCEPTION_ERROR;
1018: END IF;
1019: -- 22.
1020: IF (p_payment_levels_tbl(i).rate IS NOT NULL) AND (p_payment_levels_tbl(i).rate <= 0) THEN
1021: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1017: RAISE OKL_API.G_EXCEPTION_ERROR;
1018: END IF;
1019: -- 22.
1020: IF (p_payment_levels_tbl(i).rate IS NOT NULL) AND (p_payment_levels_tbl(i).rate <= 0) THEN
1021: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1022: p_msg_name => 'OKL_LEVEL_RATE_ZERO');
1023: RAISE OKL_API.G_EXCEPTION_ERROR;
1024: END IF;
1025: -- 3.
1019: -- 22.
1020: IF (p_payment_levels_tbl(i).rate IS NOT NULL) AND (p_payment_levels_tbl(i).rate <= 0) THEN
1021: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1022: p_msg_name => 'OKL_LEVEL_RATE_ZERO');
1023: RAISE OKL_API.G_EXCEPTION_ERROR;
1024: END IF;
1025: -- 3.
1026: IF (p_pricing_engine = 'I') AND (i <> p_payment_levels_tbl.FIRST) AND
1027: (p_payment_levels_tbl(i).stub_days IS NOT NULL OR p_payment_levels_tbl(i).stub_amount IS NOT NULL) THEN
1024: END IF;
1025: -- 3.
1026: IF (p_pricing_engine = 'I') AND (i <> p_payment_levels_tbl.FIRST) AND
1027: (p_payment_levels_tbl(i).stub_days IS NOT NULL OR p_payment_levels_tbl(i).stub_amount IS NOT NULL) THEN
1028: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1029: p_msg_name => 'OKL_LEVEL_PLANSTUB_NA');
1030: RAISE OKL_API.G_EXCEPTION_ERROR;
1031: END IF;
1032: /* -- Commented by gboomina for Bug#6869998
1026: IF (p_pricing_engine = 'I') AND (i <> p_payment_levels_tbl.FIRST) AND
1027: (p_payment_levels_tbl(i).stub_days IS NOT NULL OR p_payment_levels_tbl(i).stub_amount IS NOT NULL) THEN
1028: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1029: p_msg_name => 'OKL_LEVEL_PLANSTUB_NA');
1030: RAISE OKL_API.G_EXCEPTION_ERROR;
1031: END IF;
1032: /* -- Commented by gboomina for Bug#6869998
1033: -- 4.
1034: -- Validation : To check if payment structure has stub line at other than first position
1033: -- 4.
1034: -- Validation : To check if payment structure has stub line at other than first position
1035: IF (p_pricing_engine = 'NA') AND (i <> p_payment_levels_tbl.FIRST) AND
1036: (p_payment_levels_tbl(i).stub_days IS NOT NULL OR p_payment_levels_tbl(i).stub_amount IS NOT NULL) THEN
1037: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1038: p_msg_name => 'OKL_LEVEL_STUB_NA');
1039: RAISE OKL_API.G_EXCEPTION_ERROR;
1040: END IF;
1041: */
1035: IF (p_pricing_engine = 'NA') AND (i <> p_payment_levels_tbl.FIRST) AND
1036: (p_payment_levels_tbl(i).stub_days IS NOT NULL OR p_payment_levels_tbl(i).stub_amount IS NOT NULL) THEN
1037: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1038: p_msg_name => 'OKL_LEVEL_STUB_NA');
1039: RAISE OKL_API.G_EXCEPTION_ERROR;
1040: END IF;
1041: */
1042: -- 5.
1043: IF (p_pricing_method IN ('SP', 'SM') AND p_payment_levels_tbl(i).rate IS NULL) THEN
1040: END IF;
1041: */
1042: -- 5.
1043: IF (p_pricing_method IN ('SP', 'SM') AND p_payment_levels_tbl(i).rate IS NULL) THEN
1044: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1045: p_msg_name => 'OKL_LEVEL_REQD_RATE');
1046: RAISE OKL_API.G_EXCEPTION_ERROR;
1047: END IF;
1048: -- 6.
1042: -- 5.
1043: IF (p_pricing_method IN ('SP', 'SM') AND p_payment_levels_tbl(i).rate IS NULL) THEN
1044: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1045: p_msg_name => 'OKL_LEVEL_REQD_RATE');
1046: RAISE OKL_API.G_EXCEPTION_ERROR;
1047: END IF;
1048: -- 6.
1049: IF (p_payment_levels_tbl(i).stub_days IS NULL) AND (p_payment_levels_tbl(i).periods IS NULL) THEN
1050: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1046: RAISE OKL_API.G_EXCEPTION_ERROR;
1047: END IF;
1048: -- 6.
1049: IF (p_payment_levels_tbl(i).stub_days IS NULL) AND (p_payment_levels_tbl(i).periods IS NULL) THEN
1050: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1051: p_msg_name => 'OKL_LEVEL_NO_STUB_AND_PER');
1052: RAISE OKL_API.G_EXCEPTION_ERROR;
1053: END IF;
1054: -- 7.
1048: -- 6.
1049: IF (p_payment_levels_tbl(i).stub_days IS NULL) AND (p_payment_levels_tbl(i).periods IS NULL) THEN
1050: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1051: p_msg_name => 'OKL_LEVEL_NO_STUB_AND_PER');
1052: RAISE OKL_API.G_EXCEPTION_ERROR;
1053: END IF;
1054: -- 7.
1055: IF (p_payment_levels_tbl(i).stub_days IS NOT NULL) AND (p_payment_levels_tbl(i).periods IS NOT NULL) THEN
1056: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1052: RAISE OKL_API.G_EXCEPTION_ERROR;
1053: END IF;
1054: -- 7.
1055: IF (p_payment_levels_tbl(i).stub_days IS NOT NULL) AND (p_payment_levels_tbl(i).periods IS NOT NULL) THEN
1056: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1057: p_msg_name => 'OKL_LEVEL_BOTH_STUB_AND_PER');
1058: RAISE OKL_API.G_EXCEPTION_ERROR;
1059: END IF;
1060: -- 8.
1054: -- 7.
1055: IF (p_payment_levels_tbl(i).stub_days IS NOT NULL) AND (p_payment_levels_tbl(i).periods IS NOT NULL) THEN
1056: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1057: p_msg_name => 'OKL_LEVEL_BOTH_STUB_AND_PER');
1058: RAISE OKL_API.G_EXCEPTION_ERROR;
1059: END IF;
1060: -- 8.
1061: IF (p_payment_levels_tbl(i).stub_amount IS NOT NULL) AND (p_payment_levels_tbl(i).stub_days IS NULL) THEN
1062: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1058: RAISE OKL_API.G_EXCEPTION_ERROR;
1059: END IF;
1060: -- 8.
1061: IF (p_payment_levels_tbl(i).stub_amount IS NOT NULL) AND (p_payment_levels_tbl(i).stub_days IS NULL) THEN
1062: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1063: p_msg_name => 'OKL_LEVEL_STUBAMT_WO_DAYS');
1064: RAISE OKL_API.G_EXCEPTION_ERROR;
1065: END IF;
1066: -- 9.
1060: -- 8.
1061: IF (p_payment_levels_tbl(i).stub_amount IS NOT NULL) AND (p_payment_levels_tbl(i).stub_days IS NULL) THEN
1062: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1063: p_msg_name => 'OKL_LEVEL_STUBAMT_WO_DAYS');
1064: RAISE OKL_API.G_EXCEPTION_ERROR;
1065: END IF;
1066: -- 9.
1067: IF (p_payment_levels_tbl(i).amount IS NOT NULL) AND (p_payment_levels_tbl(i).periods IS NULL) THEN
1068: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1064: RAISE OKL_API.G_EXCEPTION_ERROR;
1065: END IF;
1066: -- 9.
1067: IF (p_payment_levels_tbl(i).amount IS NOT NULL) AND (p_payment_levels_tbl(i).periods IS NULL) THEN
1068: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1069: p_msg_name => 'OKL_LEVEL_AMOUNT_WO_PERIODS');
1070: RAISE OKL_API.G_EXCEPTION_ERROR;
1071: END IF;
1072: -- 10.
1066: -- 9.
1067: IF (p_payment_levels_tbl(i).amount IS NOT NULL) AND (p_payment_levels_tbl(i).periods IS NULL) THEN
1068: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1069: p_msg_name => 'OKL_LEVEL_AMOUNT_WO_PERIODS');
1070: RAISE OKL_API.G_EXCEPTION_ERROR;
1071: END IF;
1072: -- 10.
1073: IF (p_pricing_method IN ('SY', 'NA') AND p_payment_levels_tbl(i).amount IS NULL AND
1074: p_payment_levels_tbl(i).stub_days IS NULL) THEN
1071: END IF;
1072: -- 10.
1073: IF (p_pricing_method IN ('SY', 'NA') AND p_payment_levels_tbl(i).amount IS NULL AND
1074: p_payment_levels_tbl(i).stub_days IS NULL) THEN
1075: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1076: p_msg_name => 'OKL_LEVEL_REQD_AMOUNT');
1077: RAISE OKL_API.G_EXCEPTION_ERROR;
1078: END IF;
1079: IF (p_payment_levels_tbl(i).stub_days IS NOT NULL AND p_payment_levels_tbl(i).stub_amount IS NULL) THEN
1073: IF (p_pricing_method IN ('SY', 'NA') AND p_payment_levels_tbl(i).amount IS NULL AND
1074: p_payment_levels_tbl(i).stub_days IS NULL) THEN
1075: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1076: p_msg_name => 'OKL_LEVEL_REQD_AMOUNT');
1077: RAISE OKL_API.G_EXCEPTION_ERROR;
1078: END IF;
1079: IF (p_payment_levels_tbl(i).stub_days IS NOT NULL AND p_payment_levels_tbl(i).stub_amount IS NULL) THEN
1080: l_missing_count := l_missing_count + 1;
1081: END IF;
1098: i := l_payment_levels_tbl.NEXT(i);
1099: END LOOP;
1100: -- 15.
1101: IF (l_stub_count = p_payment_levels_tbl.COUNT) THEN
1102: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1103: p_msg_name => 'OKL_LEVEL_ALL_STUBS');
1104: RAISE OKL_API.G_EXCEPTION_ERROR;
1105: END IF;
1106: -- 11.
1100: -- 15.
1101: IF (l_stub_count = p_payment_levels_tbl.COUNT) THEN
1102: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1103: p_msg_name => 'OKL_LEVEL_ALL_STUBS');
1104: RAISE OKL_API.G_EXCEPTION_ERROR;
1105: END IF;
1106: -- 11.
1107: IF l_level_end_date > l_contract_end_date THEN
1108: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1104: RAISE OKL_API.G_EXCEPTION_ERROR;
1105: END IF;
1106: -- 11.
1107: IF l_level_end_date > l_contract_end_date THEN
1108: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1109: p_msg_name => 'OKL_LEVEL_EXTENDS_K_END');
1110: RAISE OKL_API.G_EXCEPTION_ERROR;
1111: END IF;
1112: END IF;
1106: -- 11.
1107: IF l_level_end_date > l_contract_end_date THEN
1108: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1109: p_msg_name => 'OKL_LEVEL_EXTENDS_K_END');
1110: RAISE OKL_API.G_EXCEPTION_ERROR;
1111: END IF;
1112: END IF;
1113: x_payment_levels_tbl := l_payment_levels_tbl;
1114: x_return_status := okc_api.G_RET_STS_SUCCESS;
1111: END IF;
1112: END IF;
1113: x_payment_levels_tbl := l_payment_levels_tbl;
1114: x_return_status := okc_api.G_RET_STS_SUCCESS;
1115: OKL_API.END_ACTIVITY(
1116: x_msg_count => x_msg_count
1117: ,x_msg_data => x_msg_data);
1118: EXCEPTION
1119: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1115: OKL_API.END_ACTIVITY(
1116: x_msg_count => x_msg_count
1117: ,x_msg_data => x_msg_data);
1118: EXCEPTION
1119: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1120: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1121: p_api_name => l_api_name,
1122: p_pkg_name => G_PKG_NAME,
1123: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1116: x_msg_count => x_msg_count
1117: ,x_msg_data => x_msg_data);
1118: EXCEPTION
1119: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1120: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1121: p_api_name => l_api_name,
1122: p_pkg_name => G_PKG_NAME,
1123: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1124: x_msg_count => x_msg_count,
1119: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1120: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1121: p_api_name => l_api_name,
1122: p_pkg_name => G_PKG_NAME,
1123: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1124: x_msg_count => x_msg_count,
1125: x_msg_data => x_msg_data,
1126: p_api_type => G_API_TYPE);
1127: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1123: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1124: x_msg_count => x_msg_count,
1125: x_msg_data => x_msg_data,
1126: p_api_type => G_API_TYPE);
1127: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1128: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1129: p_api_name => l_api_name,
1130: p_pkg_name => G_PKG_NAME,
1131: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1124: x_msg_count => x_msg_count,
1125: x_msg_data => x_msg_data,
1126: p_api_type => G_API_TYPE);
1127: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1128: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1129: p_api_name => l_api_name,
1130: p_pkg_name => G_PKG_NAME,
1131: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1132: x_msg_count => x_msg_count,
1127: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1128: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1129: p_api_name => l_api_name,
1130: p_pkg_name => G_PKG_NAME,
1131: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1132: x_msg_count => x_msg_count,
1133: x_msg_data => x_msg_data,
1134: p_api_type => G_API_TYPE);
1135: WHEN OTHERS THEN
1132: x_msg_count => x_msg_count,
1133: x_msg_data => x_msg_data,
1134: p_api_type => G_API_TYPE);
1135: WHEN OTHERS THEN
1136: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1137: p_api_name => l_api_name,
1138: p_pkg_name => G_PKG_NAME,
1139: p_exc_name => 'OTHERS',
1140: x_msg_count => x_msg_count,
1156: -- History : 20-Jun-2005 SKGAUTAM created
1157: --
1158: -- End of comments
1159: PROCEDURE create_payment_plans(p_api_version IN NUMBER,
1160: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1161: p_transaction_control IN VARCHAR2 DEFAULT OKL_API.G_TRUE,
1162: p_cle_id IN NUMBER,
1163: p_chr_id IN NUMBER,
1164: p_payment_type_id IN NUMBER,
1157: --
1158: -- End of comments
1159: PROCEDURE create_payment_plans(p_api_version IN NUMBER,
1160: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1161: p_transaction_control IN VARCHAR2 DEFAULT OKL_API.G_TRUE,
1162: p_cle_id IN NUMBER,
1163: p_chr_id IN NUMBER,
1164: p_payment_type_id IN NUMBER,
1165: p_payment_frequency IN VARCHAR2,
1172: x_msg_data OUT NOCOPY VARCHAR2) IS
1173: -- Variables Declarations
1174: l_api_version CONSTANT NUMBER DEFAULT 1.0;
1175: l_api_name CONSTANT VARCHAR2(30) DEFAULT 'CRT_PMT_PLN';
1176: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1177: l_payment_levels_tbl payment_levels_tbl_type;
1178: l_laslh_rec okc_rule_pub.rulv_rec_type;
1179: l_lasll_rec okc_rule_pub.rulv_rec_type;
1180: lx_rgpv_rec okc_rule_pub.rgpv_rec_type;
1185: l_start_date DATE;
1186: l_lty_code VARCHAR2(30);
1187: l_pricing_method VARCHAR2(2) := 'NA';
1188: l_pricing_engine VARCHAR2(2) := 'NA';
1189: l_rgrp_id OKC_RULE_GROUPS_V.ID%TYPE := OKL_API.G_MISS_NUM;
1190: CURSOR find_payment_hdr_csr IS
1191: SELECT id
1192: FROM okc_rule_groups_b
1193: WHERE rgd_code = 'LALEVL' AND cle_id = p_cle_id;
1202: RG.DNZ_CHR_ID = P_CHR_ID AND RG.CHR_ID IS NULL
1203: AND RGD_CODE = 'LALEVL'
1204: AND RG.CLE_ID = P_CLE_ID;
1205: BEGIN
1206: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1207: -- check for logging on PROCEDURE level
1208: l_debug_enabled := okl_debug_pub.check_log_enabled;
1209: -- call START_ACTIVITY to create savepoint, check compatibility
1210: -- and initialize message list
1207: -- check for logging on PROCEDURE level
1208: l_debug_enabled := okl_debug_pub.check_log_enabled;
1209: -- call START_ACTIVITY to create savepoint, check compatibility
1210: -- and initialize message list
1211: l_return_status := OKL_API.START_ACTIVITY( p_api_name => l_api_name
1212: ,p_pkg_name => G_PKG_NAME
1213: ,p_init_msg_list => p_init_msg_list
1214: ,l_api_version => l_api_version
1215: ,p_api_version => p_api_version
1215: ,p_api_version => p_api_version
1216: ,p_api_type => g_api_type
1217: ,x_return_status => x_return_status);
1218: -- check if activity started successfully
1219: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1220: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1221: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1222: RAISE OKL_API.G_EXCEPTION_ERROR;
1223: END IF;
1216: ,p_api_type => g_api_type
1217: ,x_return_status => x_return_status);
1218: -- check if activity started successfully
1219: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1220: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1221: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1222: RAISE OKL_API.G_EXCEPTION_ERROR;
1223: END IF;
1224:
1217: ,x_return_status => x_return_status);
1218: -- check if activity started successfully
1219: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1220: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1221: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1222: RAISE OKL_API.G_EXCEPTION_ERROR;
1223: END IF;
1224:
1225: SELECT lse.lty_code
1218: -- check if activity started successfully
1219: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1220: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1221: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1222: RAISE OKL_API.G_EXCEPTION_ERROR;
1223: END IF;
1224:
1225: SELECT lse.lty_code
1226: INTO l_lty_code
1240: IF(p_payment_type_id IS NOT NULL) THEN
1241: OPEN RGP_CLE_CSR(p_chr_id, p_cle_id);
1242: FETCH RGP_CLE_CSR into l_rgrp_id;
1243: CLOSE RGP_CLE_CSR;
1244: IF(l_rgrp_id IS NULL OR l_rgrp_id = OKL_API.G_MISS_NUM) THEN
1245: IF(l_debug_enabled='Y') THEN
1246: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_rule_group'
1247: ,'begin debug call create_rule_group');
1248: END IF;
1259: IF(l_debug_enabled='Y') THEN
1260: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_rule_group'
1261: ,'end debug call create_rule_group');
1262: END IF;
1263: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1264: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1265: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1266: RAISE OKL_API.G_EXCEPTION_ERROR;
1267: END IF;
1260: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_rule_group'
1261: ,'end debug call create_rule_group');
1262: END IF;
1263: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1264: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1265: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1266: RAISE OKL_API.G_EXCEPTION_ERROR;
1267: END IF;
1268: ELSE
1261: ,'end debug call create_rule_group');
1262: END IF;
1263: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1264: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1265: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1266: RAISE OKL_API.G_EXCEPTION_ERROR;
1267: END IF;
1268: ELSE
1269: l_rgp_id := l_rgrp_id;
1262: END IF;
1263: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1264: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1265: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1266: RAISE OKL_API.G_EXCEPTION_ERROR;
1267: END IF;
1268: ELSE
1269: l_rgp_id := l_rgrp_id;
1270: END IF;
1296: IF(l_debug_enabled='Y') THEN
1297: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okc_rule_pub.create_rule'
1298: ,'end debug call create_rule');
1299: END IF;
1300: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1301: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1302: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1303: RAISE OKL_API.G_EXCEPTION_ERROR;
1304: END IF;
1297: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okc_rule_pub.create_rule'
1298: ,'end debug call create_rule');
1299: END IF;
1300: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1301: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1302: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1303: RAISE OKL_API.G_EXCEPTION_ERROR;
1304: END IF;
1305: l_laslh_id := lx_rulv_rec.id;
1298: ,'end debug call create_rule');
1299: END IF;
1300: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1301: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1302: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1303: RAISE OKL_API.G_EXCEPTION_ERROR;
1304: END IF;
1305: l_laslh_id := lx_rulv_rec.id;
1306: END IF;
1299: END IF;
1300: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1301: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1302: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1303: RAISE OKL_API.G_EXCEPTION_ERROR;
1304: END IF;
1305: l_laslh_id := lx_rulv_rec.id;
1306: END IF;
1307: IF (p_payment_levels_tbl.COUNT > 0) THEN
1329: IF(l_debug_enabled='Y') THEN
1330: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.validate_payment_details'
1331: ,'end debug call validate_payment_details');
1332: END IF;
1333: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1334: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1335: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1336: RAISE OKL_API.G_EXCEPTION_ERROR;
1337: END IF;
1330: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.validate_payment_details'
1331: ,'end debug call validate_payment_details');
1332: END IF;
1333: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1334: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1335: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1336: RAISE OKL_API.G_EXCEPTION_ERROR;
1337: END IF;
1338: check_redundant_levels(p_payment_levels_tbl => l_payment_levels_tbl,
1331: ,'end debug call validate_payment_details');
1332: END IF;
1333: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1334: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1335: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1336: RAISE OKL_API.G_EXCEPTION_ERROR;
1337: END IF;
1338: check_redundant_levels(p_payment_levels_tbl => l_payment_levels_tbl,
1339: p_pricing_method => l_pricing_method,
1332: END IF;
1333: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1334: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1335: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1336: RAISE OKL_API.G_EXCEPTION_ERROR;
1337: END IF;
1338: check_redundant_levels(p_payment_levels_tbl => l_payment_levels_tbl,
1339: p_pricing_method => l_pricing_method,
1340: x_return_status => l_return_status);
1337: END IF;
1338: check_redundant_levels(p_payment_levels_tbl => l_payment_levels_tbl,
1339: p_pricing_method => l_pricing_method,
1340: x_return_status => l_return_status);
1341: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1342: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1343: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1344: RAISE OKL_API.G_EXCEPTION_ERROR;
1345: END IF;
1338: check_redundant_levels(p_payment_levels_tbl => l_payment_levels_tbl,
1339: p_pricing_method => l_pricing_method,
1340: x_return_status => l_return_status);
1341: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1342: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1343: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1344: RAISE OKL_API.G_EXCEPTION_ERROR;
1345: END IF;
1346: line_number := l_payment_levels_tbl.FIRST;
1339: p_pricing_method => l_pricing_method,
1340: x_return_status => l_return_status);
1341: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1342: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1343: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1344: RAISE OKL_API.G_EXCEPTION_ERROR;
1345: END IF;
1346: line_number := l_payment_levels_tbl.FIRST;
1347: FOR line_number IN l_payment_levels_tbl.FIRST..l_payment_levels_tbl.LAST
1340: x_return_status => l_return_status);
1341: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1342: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1343: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1344: RAISE OKL_API.G_EXCEPTION_ERROR;
1345: END IF;
1346: line_number := l_payment_levels_tbl.FIRST;
1347: FOR line_number IN l_payment_levels_tbl.FIRST..l_payment_levels_tbl.LAST
1348: LOOP
1390: IF(l_debug_enabled='Y') THEN
1391: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okc_rule_pub.create_rule'
1392: ,'end debug call create_rule');
1393: END IF;
1394: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1395: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1396: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1397: RAISE OKL_API.G_EXCEPTION_ERROR;
1398: END IF;
1391: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okc_rule_pub.create_rule'
1392: ,'end debug call create_rule');
1393: END IF;
1394: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1395: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1396: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1397: RAISE OKL_API.G_EXCEPTION_ERROR;
1398: END IF;
1399: END LOOP; -- end of payment_level_table
1392: ,'end debug call create_rule');
1393: END IF;
1394: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1395: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1396: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1397: RAISE OKL_API.G_EXCEPTION_ERROR;
1398: END IF;
1399: END LOOP; -- end of payment_level_table
1400: END IF; -- if payment_level_tbl has any records
1393: END IF;
1394: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1395: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1396: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1397: RAISE OKL_API.G_EXCEPTION_ERROR;
1398: END IF;
1399: END LOOP; -- end of payment_level_table
1400: END IF; -- if payment_level_tbl has any records
1401: x_return_status := okc_api.G_RET_STS_SUCCESS;
1398: END IF;
1399: END LOOP; -- end of payment_level_table
1400: END IF; -- if payment_level_tbl has any records
1401: x_return_status := okc_api.G_RET_STS_SUCCESS;
1402: OKL_API.END_ACTIVITY(
1403: x_msg_count => x_msg_count
1404: ,x_msg_data => x_msg_data);
1405: EXCEPTION
1406: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1402: OKL_API.END_ACTIVITY(
1403: x_msg_count => x_msg_count
1404: ,x_msg_data => x_msg_data);
1405: EXCEPTION
1406: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1407: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1408: p_api_name => l_api_name,
1409: p_pkg_name => G_PKG_NAME,
1410: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1403: x_msg_count => x_msg_count
1404: ,x_msg_data => x_msg_data);
1405: EXCEPTION
1406: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1407: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1408: p_api_name => l_api_name,
1409: p_pkg_name => G_PKG_NAME,
1410: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1411: x_msg_count => x_msg_count,
1406: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1407: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1408: p_api_name => l_api_name,
1409: p_pkg_name => G_PKG_NAME,
1410: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1411: x_msg_count => x_msg_count,
1412: x_msg_data => x_msg_data,
1413: p_api_type => G_API_TYPE);
1414: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1410: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1411: x_msg_count => x_msg_count,
1412: x_msg_data => x_msg_data,
1413: p_api_type => G_API_TYPE);
1414: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1415: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1416: p_api_name => l_api_name,
1417: p_pkg_name => G_PKG_NAME,
1418: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1411: x_msg_count => x_msg_count,
1412: x_msg_data => x_msg_data,
1413: p_api_type => G_API_TYPE);
1414: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1415: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1416: p_api_name => l_api_name,
1417: p_pkg_name => G_PKG_NAME,
1418: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1419: x_msg_count => x_msg_count,
1414: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1415: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1416: p_api_name => l_api_name,
1417: p_pkg_name => G_PKG_NAME,
1418: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1419: x_msg_count => x_msg_count,
1420: x_msg_data => x_msg_data,
1421: p_api_type => G_API_TYPE);
1422: WHEN OTHERS THEN
1419: x_msg_count => x_msg_count,
1420: x_msg_data => x_msg_data,
1421: p_api_type => G_API_TYPE);
1422: WHEN OTHERS THEN
1423: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1424: p_api_name => l_api_name,
1425: p_pkg_name => G_PKG_NAME,
1426: p_exc_name => 'OTHERS',
1427: x_msg_count => x_msg_count,
1457: p_line_type IN VARCHAR2) IS
1458: -- Variables Declarations
1459: l_api_version CONSTANT NUMBER DEFAULT 1.0;
1460: l_api_name CONSTANT VARCHAR2(30) DEFAULT 'CRT_LNK_AST';
1461: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1462: l_debug_enabled VARCHAR2(10);
1463: l_create_line_item_tbl okl_contract_line_item_pvt.line_item_tbl_type;
1464: l_update_line_item_tbl okl_contract_line_item_pvt.line_item_tbl_type;
1465: lx_line_item_tbl okl_contract_line_item_pvt.line_item_tbl_type;
1488: AND olrb.RELATED_LINE_TYPE = p_line_type
1489: AND olrb.SOURCE_LINE_TYPE= 'ASSET';
1490:
1491: BEGIN
1492: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1493: -- check for logging on PROCEDURE level
1494: l_debug_enabled := okl_debug_pub.check_log_enabled;
1495: -- call START_ACTIVITY to create savepoint, check compatibility
1496: -- and initialize message list
1493: -- check for logging on PROCEDURE level
1494: l_debug_enabled := okl_debug_pub.check_log_enabled;
1495: -- call START_ACTIVITY to create savepoint, check compatibility
1496: -- and initialize message list
1497: l_return_status := OKL_API.START_ACTIVITY( p_api_name => l_api_name
1498: ,p_pkg_name => G_PKG_NAME
1499: ,p_init_msg_list => p_init_msg_list
1500: ,l_api_version => l_api_version
1501: ,p_api_version => p_api_version
1501: ,p_api_version => p_api_version
1502: ,p_api_type => g_api_type
1503: ,x_return_status => x_return_status);
1504: -- check if activity started successfully
1505: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1506: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1507: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1508: RAISE OKL_API.G_EXCEPTION_ERROR;
1509: END IF;
1502: ,p_api_type => g_api_type
1503: ,x_return_status => x_return_status);
1504: -- check if activity started successfully
1505: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1506: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1507: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1508: RAISE OKL_API.G_EXCEPTION_ERROR;
1509: END IF;
1510:
1503: ,x_return_status => x_return_status);
1504: -- check if activity started successfully
1505: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1506: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1507: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1508: RAISE OKL_API.G_EXCEPTION_ERROR;
1509: END IF;
1510:
1511: SELECT NVL(amount, 0)
1504: -- check if activity started successfully
1505: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1506: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1507: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1508: RAISE OKL_API.G_EXCEPTION_ERROR;
1509: END IF;
1510:
1511: SELECT NVL(amount, 0)
1512: INTO l_line_amount
1646: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_contract_line_item_pvt.create_contract_line_item'
1647: ,'end debug call create_contract_line_item');
1648: END IF;
1649: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1650: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1651: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1652: RAISE OKL_API.G_EXCEPTION_ERROR;
1653: END IF;
1654: END IF;
1648: END IF;
1649: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1650: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1651: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1652: RAISE OKL_API.G_EXCEPTION_ERROR;
1653: END IF;
1654: END IF;
1655: END IF;
1656: x_return_status := okc_api.G_RET_STS_SUCCESS;
1653: END IF;
1654: END IF;
1655: END IF;
1656: x_return_status := okc_api.G_RET_STS_SUCCESS;
1657: OKL_API.END_ACTIVITY(
1658: x_msg_count => x_msg_count
1659: ,x_msg_data => x_msg_data);
1660: EXCEPTION
1661: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1657: OKL_API.END_ACTIVITY(
1658: x_msg_count => x_msg_count
1659: ,x_msg_data => x_msg_data);
1660: EXCEPTION
1661: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1662: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1663: p_api_name => l_api_name,
1664: p_pkg_name => G_PKG_NAME,
1665: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1658: x_msg_count => x_msg_count
1659: ,x_msg_data => x_msg_data);
1660: EXCEPTION
1661: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1662: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1663: p_api_name => l_api_name,
1664: p_pkg_name => G_PKG_NAME,
1665: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1666: x_msg_count => x_msg_count,
1661: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1662: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1663: p_api_name => l_api_name,
1664: p_pkg_name => G_PKG_NAME,
1665: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1666: x_msg_count => x_msg_count,
1667: x_msg_data => x_msg_data,
1668: p_api_type => G_API_TYPE);
1669: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1665: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1666: x_msg_count => x_msg_count,
1667: x_msg_data => x_msg_data,
1668: p_api_type => G_API_TYPE);
1669: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1670: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1671: p_api_name => l_api_name,
1672: p_pkg_name => G_PKG_NAME,
1673: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1666: x_msg_count => x_msg_count,
1667: x_msg_data => x_msg_data,
1668: p_api_type => G_API_TYPE);
1669: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1670: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1671: p_api_name => l_api_name,
1672: p_pkg_name => G_PKG_NAME,
1673: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1674: x_msg_count => x_msg_count,
1669: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1670: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1671: p_api_name => l_api_name,
1672: p_pkg_name => G_PKG_NAME,
1673: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1674: x_msg_count => x_msg_count,
1675: x_msg_data => x_msg_data,
1676: p_api_type => G_API_TYPE);
1677: WHEN OTHERS THEN
1674: x_msg_count => x_msg_count,
1675: x_msg_data => x_msg_data,
1676: p_api_type => G_API_TYPE);
1677: WHEN OTHERS THEN
1678: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1679: p_api_name => l_api_name,
1680: p_pkg_name => G_PKG_NAME,
1681: p_exc_name => 'OTHERS',
1682: x_msg_count => x_msg_count,
1709: p_exp_frequency IN VARCHAR2) IS
1710: -- Variables Declarations
1711: l_api_version CONSTANT NUMBER DEFAULT 1.0;
1712: l_api_name CONSTANT VARCHAR2(30) DEFAULT 'CRT_EXT_DTL';
1713: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1714: l_debug_enabled VARCHAR2(10);
1715: lx_return_status VARCHAR2(1);
1716: lx_rulv_rec okc_rule_pub.rulv_rec_type;
1717: l_lafreq_rec okc_rule_pub.rulv_rec_type;
1732: SELECT id, object1_id1 frequency
1733: FROM okc_rules_b
1734: WHERE rgp_id = p_rgp_id AND rule_information_category = 'LAFREQ';
1735: BEGIN
1736: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1737: -- check for logging on PROCEDURE level
1738: l_debug_enabled := okl_debug_pub.check_log_enabled;
1739: -- call START_ACTIVITY to create savepoint, check compatibility
1740: -- and initialize message list
1737: -- check for logging on PROCEDURE level
1738: l_debug_enabled := okl_debug_pub.check_log_enabled;
1739: -- call START_ACTIVITY to create savepoint, check compatibility
1740: -- and initialize message list
1741: l_return_status := OKL_API.START_ACTIVITY( p_api_name => l_api_name
1742: ,p_pkg_name => G_PKG_NAME
1743: ,p_init_msg_list => p_init_msg_list
1744: ,l_api_version => l_api_version
1745: ,p_api_version => p_api_version
1745: ,p_api_version => p_api_version
1746: ,p_api_type => g_api_type
1747: ,x_return_status => x_return_status);
1748: -- check if activity started successfully
1749: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1750: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1751: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1752: RAISE OKL_API.G_EXCEPTION_ERROR;
1753: END IF;
1746: ,p_api_type => g_api_type
1747: ,x_return_status => x_return_status);
1748: -- check if activity started successfully
1749: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1750: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1751: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1752: RAISE OKL_API.G_EXCEPTION_ERROR;
1753: END IF;
1754: FOR l_lafexprg_csr_rec IN find_fexprg_csr
1747: ,x_return_status => x_return_status);
1748: -- check if activity started successfully
1749: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1750: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1751: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1752: RAISE OKL_API.G_EXCEPTION_ERROR;
1753: END IF;
1754: FOR l_lafexprg_csr_rec IN find_fexprg_csr
1755: LOOP
1748: -- check if activity started successfully
1749: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1750: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1751: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1752: RAISE OKL_API.G_EXCEPTION_ERROR;
1753: END IF;
1754: FOR l_lafexprg_csr_rec IN find_fexprg_csr
1755: LOOP
1756: l_rgp_id := l_lafexprg_csr_rec.id;
1773: IF(l_debug_enabled='Y') THEN
1774: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_rule_group'
1775: ,'end debug call create_rule_group');
1776: END IF;
1777: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1778: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1779: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1780: RAISE OKL_API.G_EXCEPTION_ERROR;
1781: END IF;
1774: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_rule_group'
1775: ,'end debug call create_rule_group');
1776: END IF;
1777: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1778: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1779: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1780: RAISE OKL_API.G_EXCEPTION_ERROR;
1781: END IF;
1782: END IF; -- end of creating rule group
1775: ,'end debug call create_rule_group');
1776: END IF;
1777: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1778: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1779: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1780: RAISE OKL_API.G_EXCEPTION_ERROR;
1781: END IF;
1782: END IF; -- end of creating rule group
1783: -- create rule for frequency
1776: END IF;
1777: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1778: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1779: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1780: RAISE OKL_API.G_EXCEPTION_ERROR;
1781: END IF;
1782: END IF; -- end of creating rule group
1783: -- create rule for frequency
1784: -- populate defaults and mandatory fields
1797: l_lafreq_rec.object1_id1 := p_exp_frequency;
1798: l_lafreq_rec.object1_id2 := '#';
1799: l_lafreq_rec.jtot_object1_code := 'OKL_TUOM';
1800: -- create the rule
1801: IF(l_lafreq_rec.id IS NULL OR l_lafreq_rec.id = OKL_API.G_MISS_NUM) THEN
1802: IF(l_debug_enabled='Y') THEN
1803: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsqlokc_rule_pub.create_rule'
1804: ,'begin debug call create_rule');
1805: END IF;
1813: IF(l_debug_enabled='Y') THEN
1814: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsqlokc_rule_pub.create_rule'
1815: ,'end debug call create_rule');
1816: END IF;
1817: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1818: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1819: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1820: RAISE OKL_API.G_EXCEPTION_ERROR;
1821: END IF;
1814: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsqlokc_rule_pub.create_rule'
1815: ,'end debug call create_rule');
1816: END IF;
1817: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1818: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1819: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1820: RAISE OKL_API.G_EXCEPTION_ERROR;
1821: END IF;
1822: END IF; -- end of create
1815: ,'end debug call create_rule');
1816: END IF;
1817: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1818: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1819: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1820: RAISE OKL_API.G_EXCEPTION_ERROR;
1821: END IF;
1822: END IF; -- end of create
1823: -- populate defaults and mandatory fields
1816: END IF;
1817: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1818: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1819: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1820: RAISE OKL_API.G_EXCEPTION_ERROR;
1821: END IF;
1822: END IF; -- end of create
1823: -- populate defaults and mandatory fields
1824: IF(l_debug_enabled='Y') THEN
1835: END IF;
1836: l_lafexp_rec.rule_information1 := p_periods;
1837: l_lafexp_rec.rule_information2 := p_periodic_amount;
1838: -- create the rule
1839: IF(l_lafexp_rec.id IS NULL OR l_lafexp_rec.id = OKL_API.G_MISS_NUM) THEN
1840: IF(l_debug_enabled='Y') THEN
1841: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsqlokc_rule_pub.create_rule'
1842: ,'begin debug call create_rule');
1843: END IF;
1851: IF(l_debug_enabled='Y') THEN
1852: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsqlokc_rule_pub.create_rule'
1853: ,'end debug call create_rule');
1854: END IF;
1855: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1856: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1857: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1858: RAISE OKL_API.G_EXCEPTION_ERROR;
1859: END IF;
1852: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsqlokc_rule_pub.create_rule'
1853: ,'end debug call create_rule');
1854: END IF;
1855: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1856: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1857: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1858: RAISE OKL_API.G_EXCEPTION_ERROR;
1859: END IF;
1860: END IF; -- end of create
1853: ,'end debug call create_rule');
1854: END IF;
1855: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1856: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1857: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1858: RAISE OKL_API.G_EXCEPTION_ERROR;
1859: END IF;
1860: END IF; -- end of create
1861: x_return_status := okc_api.G_RET_STS_SUCCESS;
1854: END IF;
1855: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1856: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1857: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1858: RAISE OKL_API.G_EXCEPTION_ERROR;
1859: END IF;
1860: END IF; -- end of create
1861: x_return_status := okc_api.G_RET_STS_SUCCESS;
1862: OKL_API.END_ACTIVITY(
1858: RAISE OKL_API.G_EXCEPTION_ERROR;
1859: END IF;
1860: END IF; -- end of create
1861: x_return_status := okc_api.G_RET_STS_SUCCESS;
1862: OKL_API.END_ACTIVITY(
1863: x_msg_count => x_msg_count
1864: ,x_msg_data => x_msg_data);
1865: EXCEPTION
1866: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1862: OKL_API.END_ACTIVITY(
1863: x_msg_count => x_msg_count
1864: ,x_msg_data => x_msg_data);
1865: EXCEPTION
1866: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1867: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1868: p_api_name => l_api_name,
1869: p_pkg_name => G_PKG_NAME,
1870: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1863: x_msg_count => x_msg_count
1864: ,x_msg_data => x_msg_data);
1865: EXCEPTION
1866: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1867: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1868: p_api_name => l_api_name,
1869: p_pkg_name => G_PKG_NAME,
1870: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1871: x_msg_count => x_msg_count,
1866: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1867: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1868: p_api_name => l_api_name,
1869: p_pkg_name => G_PKG_NAME,
1870: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1871: x_msg_count => x_msg_count,
1872: x_msg_data => x_msg_data,
1873: p_api_type => G_API_TYPE);
1874: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1870: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1871: x_msg_count => x_msg_count,
1872: x_msg_data => x_msg_data,
1873: p_api_type => G_API_TYPE);
1874: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1875: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1876: p_api_name => l_api_name,
1877: p_pkg_name => G_PKG_NAME,
1878: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1871: x_msg_count => x_msg_count,
1872: x_msg_data => x_msg_data,
1873: p_api_type => G_API_TYPE);
1874: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1875: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1876: p_api_name => l_api_name,
1877: p_pkg_name => G_PKG_NAME,
1878: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1879: x_msg_count => x_msg_count,
1874: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1875: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1876: p_api_name => l_api_name,
1877: p_pkg_name => G_PKG_NAME,
1878: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1879: x_msg_count => x_msg_count,
1880: x_msg_data => x_msg_data,
1881: p_api_type => G_API_TYPE);
1882: WHEN OTHERS THEN
1879: x_msg_count => x_msg_count,
1880: x_msg_data => x_msg_data,
1881: p_api_type => G_API_TYPE);
1882: WHEN OTHERS THEN
1883: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1884: p_api_name => l_api_name,
1885: p_pkg_name => G_PKG_NAME,
1886: p_exc_name => 'OTHERS',
1887: x_msg_count => x_msg_count,
1910: p_chr_id IN NUMBER) IS
1911: -- Variables Declarations
1912: l_api_version CONSTANT NUMBER DEFAULT 1.0;
1913: l_api_name CONSTANT VARCHAR2(30) DEFAULT 'CRT_INS_LNS';
1914: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1915: l_debug_enabled VARCHAR2(10);
1916:
1917: x_ipyv_rec ipyv_rec_type;
1918: BEGIN
1915: l_debug_enabled VARCHAR2(10);
1916:
1917: x_ipyv_rec ipyv_rec_type;
1918: BEGIN
1919: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1920: -- check for logging on PROCEDURE level
1921: l_debug_enabled := okl_debug_pub.check_log_enabled;
1922: -- call START_ACTIVITY to create savepoint, check compatibility
1923: -- and initialize message list
1920: -- check for logging on PROCEDURE level
1921: l_debug_enabled := okl_debug_pub.check_log_enabled;
1922: -- call START_ACTIVITY to create savepoint, check compatibility
1923: -- and initialize message list
1924: l_return_status := OKL_API.START_ACTIVITY( p_api_name => l_api_name
1925: ,p_pkg_name => G_PKG_NAME
1926: ,p_init_msg_list => p_init_msg_list
1927: ,l_api_version => l_api_version
1928: ,p_api_version => p_api_version
1928: ,p_api_version => p_api_version
1929: ,p_api_type => g_api_type
1930: ,x_return_status => x_return_status);
1931: -- check if activity started successfully
1932: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1933: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1934: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1935: RAISE OKL_API.G_EXCEPTION_ERROR;
1936: END IF;
1929: ,p_api_type => g_api_type
1930: ,x_return_status => x_return_status);
1931: -- check if activity started successfully
1932: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1933: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1934: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1935: RAISE OKL_API.G_EXCEPTION_ERROR;
1936: END IF;
1937: -- set the org id and organization id
1930: ,x_return_status => x_return_status);
1931: -- check if activity started successfully
1932: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1933: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1934: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1935: RAISE OKL_API.G_EXCEPTION_ERROR;
1936: END IF;
1937: -- set the org id and organization id
1938: OKL_CONTEXT.set_okc_org_context(p_chr_id => p_chr_id);
1931: -- check if activity started successfully
1932: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1933: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1934: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1935: RAISE OKL_API.G_EXCEPTION_ERROR;
1936: END IF;
1937: -- set the org id and organization id
1938: OKL_CONTEXT.set_okc_org_context(p_chr_id => p_chr_id);
1939: IF(l_debug_enabled='Y') THEN
1951: IF(l_debug_enabled='Y') THEN
1952: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.OKL_INS_QUOTE_PVT.lseapp_thrdprty_to_ctrct'
1953: ,'end debug OKLRINQB.pls call lseapp_thrdprty_to_ctrct');
1954: END IF;
1955: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1956: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1957: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1958: RAISE OKL_API.G_EXCEPTION_ERROR;
1959: END IF;
1952: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.OKL_INS_QUOTE_PVT.lseapp_thrdprty_to_ctrct'
1953: ,'end debug OKLRINQB.pls call lseapp_thrdprty_to_ctrct');
1954: END IF;
1955: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1956: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1957: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1958: RAISE OKL_API.G_EXCEPTION_ERROR;
1959: END IF;
1960: x_return_status := okc_api.G_RET_STS_SUCCESS;
1953: ,'end debug OKLRINQB.pls call lseapp_thrdprty_to_ctrct');
1954: END IF;
1955: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1956: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1957: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1958: RAISE OKL_API.G_EXCEPTION_ERROR;
1959: END IF;
1960: x_return_status := okc_api.G_RET_STS_SUCCESS;
1961: OKL_API.END_ACTIVITY(
1954: END IF;
1955: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1956: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1957: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1958: RAISE OKL_API.G_EXCEPTION_ERROR;
1959: END IF;
1960: x_return_status := okc_api.G_RET_STS_SUCCESS;
1961: OKL_API.END_ACTIVITY(
1962: x_msg_count => x_msg_count
1957: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1958: RAISE OKL_API.G_EXCEPTION_ERROR;
1959: END IF;
1960: x_return_status := okc_api.G_RET_STS_SUCCESS;
1961: OKL_API.END_ACTIVITY(
1962: x_msg_count => x_msg_count
1963: ,x_msg_data => x_msg_data);
1964: EXCEPTION
1965: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1961: OKL_API.END_ACTIVITY(
1962: x_msg_count => x_msg_count
1963: ,x_msg_data => x_msg_data);
1964: EXCEPTION
1965: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1966: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1967: p_api_name => l_api_name,
1968: p_pkg_name => G_PKG_NAME,
1969: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1962: x_msg_count => x_msg_count
1963: ,x_msg_data => x_msg_data);
1964: EXCEPTION
1965: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1966: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1967: p_api_name => l_api_name,
1968: p_pkg_name => G_PKG_NAME,
1969: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1970: x_msg_count => x_msg_count,
1965: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1966: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1967: p_api_name => l_api_name,
1968: p_pkg_name => G_PKG_NAME,
1969: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1970: x_msg_count => x_msg_count,
1971: x_msg_data => x_msg_data,
1972: p_api_type => G_API_TYPE);
1973: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1969: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1970: x_msg_count => x_msg_count,
1971: x_msg_data => x_msg_data,
1972: p_api_type => G_API_TYPE);
1973: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1974: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1975: p_api_name => l_api_name,
1976: p_pkg_name => G_PKG_NAME,
1977: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1970: x_msg_count => x_msg_count,
1971: x_msg_data => x_msg_data,
1972: p_api_type => G_API_TYPE);
1973: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1974: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1975: p_api_name => l_api_name,
1976: p_pkg_name => G_PKG_NAME,
1977: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1978: x_msg_count => x_msg_count,
1973: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1974: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1975: p_api_name => l_api_name,
1976: p_pkg_name => G_PKG_NAME,
1977: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1978: x_msg_count => x_msg_count,
1979: x_msg_data => x_msg_data,
1980: p_api_type => G_API_TYPE);
1981: WHEN OTHERS THEN
1978: x_msg_count => x_msg_count,
1979: x_msg_data => x_msg_data,
1980: p_api_type => G_API_TYPE);
1981: WHEN OTHERS THEN
1982: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1983: p_api_name => l_api_name,
1984: p_pkg_name => G_PKG_NAME,
1985: p_exc_name => 'OTHERS',
1986: x_msg_count => x_msg_count,
2011: p_chr_id IN NUMBER) IS
2012: -- Variables Declarations
2013: l_api_version CONSTANT NUMBER DEFAULT 1.0;
2014: l_api_name CONSTANT VARCHAR2(30) DEFAULT 'SRT_SER_LNS';
2015: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2016: l_debug_enabled VARCHAR2(10);
2017: l_klev_rec okl_kle_pvt.klev_rec_type;
2018: lx_klev_rec okl_kle_pvt.klev_rec_type;
2019: l_clev_rec okl_okc_migration_pvt.clev_rec_type;
2082: AND cfo.SOURCE_TABLE = 'OKL_SERVICES_B'
2083: AND cfo.SOURCE_ID = p_service_id
2084: AND ocf.cft_code = 'OUTFLOW_SCHEDULE';
2085: BEGIN
2086: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2087: -- check for logging on PROCEDURE level
2088: l_debug_enabled := okl_debug_pub.check_log_enabled;
2089: -- call START_ACTIVITY to create savepoint, check compatibility
2090: -- and initialize message list
2087: -- check for logging on PROCEDURE level
2088: l_debug_enabled := okl_debug_pub.check_log_enabled;
2089: -- call START_ACTIVITY to create savepoint, check compatibility
2090: -- and initialize message list
2091: l_return_status := OKL_API.START_ACTIVITY( p_api_name => l_api_name
2092: ,p_pkg_name => G_PKG_NAME
2093: ,p_init_msg_list => p_init_msg_list
2094: ,l_api_version => l_api_version
2095: ,p_api_version => p_api_version
2095: ,p_api_version => p_api_version
2096: ,p_api_type => g_api_type
2097: ,x_return_status => x_return_status);
2098: -- check if activity started successfully
2099: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2100: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2101: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2102: RAISE OKL_API.G_EXCEPTION_ERROR;
2103: END IF;
2096: ,p_api_type => g_api_type
2097: ,x_return_status => x_return_status);
2098: -- check if activity started successfully
2099: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2100: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2101: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2102: RAISE OKL_API.G_EXCEPTION_ERROR;
2103: END IF;
2104: -- set the org id and organization id
2097: ,x_return_status => x_return_status);
2098: -- check if activity started successfully
2099: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2100: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2101: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2102: RAISE OKL_API.G_EXCEPTION_ERROR;
2103: END IF;
2104: -- set the org id and organization id
2105: OKL_CONTEXT.set_okc_org_context(p_chr_id => p_chr_id);
2098: -- check if activity started successfully
2099: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2100: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2101: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2102: RAISE OKL_API.G_EXCEPTION_ERROR;
2103: END IF;
2104: -- set the org id and organization id
2105: OKL_CONTEXT.set_okc_org_context(p_chr_id => p_chr_id);
2106: FOR l_quote_service_rec IN c_get_service_dtls(p_quote_id)LOOP
2158: IF(l_debug_enabled='Y') THEN
2159: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.OKL_SERVICE_LINE_PROCESS_PVT.create_service_line'
2160: ,'end debug call create_service_line');
2161: END IF;
2162: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
2163: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2164: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)THEN
2165: RAISE OKL_API.G_EXCEPTION_ERROR;
2166: END IF;
2159: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.OKL_SERVICE_LINE_PROCESS_PVT.create_service_line'
2160: ,'end debug call create_service_line');
2161: END IF;
2162: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
2163: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2164: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)THEN
2165: RAISE OKL_API.G_EXCEPTION_ERROR;
2166: END IF;
2167: l_cle_id := lx_clev_rec.id;
2160: ,'end debug call create_service_line');
2161: END IF;
2162: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
2163: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2164: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)THEN
2165: RAISE OKL_API.G_EXCEPTION_ERROR;
2166: END IF;
2167: l_cle_id := lx_clev_rec.id;
2168: IF(l_debug_enabled='Y') THEN
2161: END IF;
2162: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
2163: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2164: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)THEN
2165: RAISE OKL_API.G_EXCEPTION_ERROR;
2166: END IF;
2167: l_cle_id := lx_clev_rec.id;
2168: IF(l_debug_enabled='Y') THEN
2169: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_link_assets'
2184: IF(l_debug_enabled='Y') THEN
2185: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_link_assets'
2186: ,'end debug call create_link_assets');
2187: END IF;
2188: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
2189: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2190: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)THEN
2191: RAISE OKL_API.G_EXCEPTION_ERROR;
2192: END IF;
2185: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_link_assets'
2186: ,'end debug call create_link_assets');
2187: END IF;
2188: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
2189: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2190: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)THEN
2191: RAISE OKL_API.G_EXCEPTION_ERROR;
2192: END IF;
2193: -- method for creating service expense details
2186: ,'end debug call create_link_assets');
2187: END IF;
2188: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
2189: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2190: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)THEN
2191: RAISE OKL_API.G_EXCEPTION_ERROR;
2192: END IF;
2193: -- method for creating service expense details
2194: IF(l_debug_enabled='Y') THEN
2187: END IF;
2188: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
2189: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2190: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)THEN
2191: RAISE OKL_API.G_EXCEPTION_ERROR;
2192: END IF;
2193: -- method for creating service expense details
2194: IF(l_debug_enabled='Y') THEN
2195: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_expense_dtls'
2208: IF(l_debug_enabled='Y') THEN
2209: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_expense_dtls'
2210: ,'end debug call create_expense_dtls');
2211: END IF;
2212: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
2213: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2214: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)THEN
2215: RAISE OKL_API.G_EXCEPTION_ERROR;
2216: END IF;
2209: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_expense_dtls'
2210: ,'end debug call create_expense_dtls');
2211: END IF;
2212: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
2213: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2214: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)THEN
2215: RAISE OKL_API.G_EXCEPTION_ERROR;
2216: END IF;
2217: -- create EPT payment
2210: ,'end debug call create_expense_dtls');
2211: END IF;
2212: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
2213: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2214: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)THEN
2215: RAISE OKL_API.G_EXCEPTION_ERROR;
2216: END IF;
2217: -- create EPT payment
2218: IF l_payment_levels_tbl.COUNT > 0 THEN
2211: END IF;
2212: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
2213: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2214: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)THEN
2215: RAISE OKL_API.G_EXCEPTION_ERROR;
2216: END IF;
2217: -- create EPT payment
2218: IF l_payment_levels_tbl.COUNT > 0 THEN
2219: IF(l_debug_enabled='Y') THEN
2224: p_init_msg_list => p_init_msg_list,
2225: x_return_status => x_return_status,
2226: x_msg_count => x_msg_count,
2227: x_msg_data => x_msg_data,
2228: p_transaction_control => OKL_API.G_FALSE,
2229: p_cle_id => l_cle_id,
2230: p_chr_id => p_chr_id,
2231: p_payment_type_id => l_payment_levels_tbl(0).payment_type_id,
2232: p_payment_frequency => l_payment_levels_tbl(0).frequency_code,
2238: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_payment_plans'
2239: ,'end debug call create_payment_plans');
2240: END IF;
2241: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2242: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2243: ELSIF x_return_status = G_RET_STS_ERROR THEN
2244: RAISE OKL_API.G_EXCEPTION_ERROR;
2245: END IF;
2246: END IF;
2240: END IF;
2241: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2242: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2243: ELSIF x_return_status = G_RET_STS_ERROR THEN
2244: RAISE OKL_API.G_EXCEPTION_ERROR;
2245: END IF;
2246: END IF;
2247: -- create the party as vendor for the supplier present on the service
2248: IF l_quote_service_rec.supplier_id IS NOT NULL THEN
2264: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_vendor'
2265: ,'end debug call create_vendor');
2266: END IF;
2267: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2268: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2269: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2270: RAISE OKL_API.G_EXCEPTION_ERROR;
2271: END IF;
2272:
2266: END IF;
2267: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2268: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2269: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2270: RAISE OKL_API.G_EXCEPTION_ERROR;
2271: END IF;
2272:
2273: IF(l_debug_enabled='Y') THEN
2274: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_vendor'
2287: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_vendor'
2288: ,'end debug call create_vendor');
2289: END IF;
2290: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2291: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2292: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2293: RAISE OKL_API.G_EXCEPTION_ERROR;
2294: END IF;
2295: END IF;
2289: END IF;
2290: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2291: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2292: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2293: RAISE OKL_API.G_EXCEPTION_ERROR;
2294: END IF;
2295: END IF;
2296:
2297: END LOOP;
2295: END IF;
2296:
2297: END LOOP;
2298: x_return_status := okc_api.G_RET_STS_SUCCESS;
2299: OKL_API.END_ACTIVITY(
2300: x_msg_count => x_msg_count
2301: ,x_msg_data => x_msg_data);
2302: EXCEPTION
2303: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2299: OKL_API.END_ACTIVITY(
2300: x_msg_count => x_msg_count
2301: ,x_msg_data => x_msg_data);
2302: EXCEPTION
2303: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2304: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2305: p_api_name => l_api_name,
2306: p_pkg_name => G_PKG_NAME,
2307: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2300: x_msg_count => x_msg_count
2301: ,x_msg_data => x_msg_data);
2302: EXCEPTION
2303: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2304: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2305: p_api_name => l_api_name,
2306: p_pkg_name => G_PKG_NAME,
2307: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2308: x_msg_count => x_msg_count,
2303: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2304: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2305: p_api_name => l_api_name,
2306: p_pkg_name => G_PKG_NAME,
2307: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2308: x_msg_count => x_msg_count,
2309: x_msg_data => x_msg_data,
2310: p_api_type => G_API_TYPE);
2311: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2307: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2308: x_msg_count => x_msg_count,
2309: x_msg_data => x_msg_data,
2310: p_api_type => G_API_TYPE);
2311: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2312: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2313: p_api_name => l_api_name,
2314: p_pkg_name => G_PKG_NAME,
2315: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2308: x_msg_count => x_msg_count,
2309: x_msg_data => x_msg_data,
2310: p_api_type => G_API_TYPE);
2311: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2312: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2313: p_api_name => l_api_name,
2314: p_pkg_name => G_PKG_NAME,
2315: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2316: x_msg_count => x_msg_count,
2311: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2312: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2313: p_api_name => l_api_name,
2314: p_pkg_name => G_PKG_NAME,
2315: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2316: x_msg_count => x_msg_count,
2317: x_msg_data => x_msg_data,
2318: p_api_type => G_API_TYPE);
2319: WHEN OTHERS THEN
2316: x_msg_count => x_msg_count,
2317: x_msg_data => x_msg_data,
2318: p_api_type => G_API_TYPE);
2319: WHEN OTHERS THEN
2320: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2321: p_api_name => l_api_name,
2322: p_pkg_name => G_PKG_NAME,
2323: p_exc_name => 'OTHERS',
2324: x_msg_count => x_msg_count,
2349: p_chr_id IN NUMBER) IS
2350: -- Variables Declarations
2351: l_api_version CONSTANT NUMBER DEFAULT 1.0;
2352: l_api_name CONSTANT VARCHAR2(30) DEFAULT 'CRT_FEE_LNS';
2353: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2354: l_debug_enabled VARCHAR2(10);
2355: l_fee_types_rec okl_maintain_fee_pvt.fee_types_rec_type;
2356: lx_fee_types_rec okl_maintain_fee_pvt.fee_types_rec_type;
2357: l_k_effective_from DATE;
2420: AND cfo.SOURCE_TABLE = 'OKL_FEES_B'
2421: AND ocf.CFT_CODE ='OUTFLOW_SCHEDULE'
2422: AND cfo.SOURCE_ID = p_fee_id;
2423: BEGIN
2424: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2425: -- check for logging on PROCEDURE level
2426: l_debug_enabled := okl_debug_pub.check_log_enabled;
2427: -- call START_ACTIVITY to create savepoint, check compatibility
2428: -- and initialize message list
2425: -- check for logging on PROCEDURE level
2426: l_debug_enabled := okl_debug_pub.check_log_enabled;
2427: -- call START_ACTIVITY to create savepoint, check compatibility
2428: -- and initialize message list
2429: l_return_status := OKL_API.START_ACTIVITY( p_api_name => l_api_name
2430: ,p_pkg_name => G_PKG_NAME
2431: ,p_init_msg_list => p_init_msg_list
2432: ,l_api_version => l_api_version
2433: ,p_api_version => p_api_version
2433: ,p_api_version => p_api_version
2434: ,p_api_type => g_api_type
2435: ,x_return_status => x_return_status);
2436: -- check if activity started successfully
2437: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2438: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2439: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2440: RAISE OKL_API.G_EXCEPTION_ERROR;
2441: END IF;
2434: ,p_api_type => g_api_type
2435: ,x_return_status => x_return_status);
2436: -- check if activity started successfully
2437: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2438: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2439: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2440: RAISE OKL_API.G_EXCEPTION_ERROR;
2441: END IF;
2442: ------------------------------------
2435: ,x_return_status => x_return_status);
2436: -- check if activity started successfully
2437: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2438: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2439: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2440: RAISE OKL_API.G_EXCEPTION_ERROR;
2441: END IF;
2442: ------------------------------------
2443: -- Defaulting missing fee REC values
2436: -- check if activity started successfully
2437: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2438: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2439: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2440: RAISE OKL_API.G_EXCEPTION_ERROR;
2441: END IF;
2442: ------------------------------------
2443: -- Defaulting missing fee REC values
2444: ------------------------------------
2507: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_vendor'
2508: ,'end debug call create_vendor');
2509: END IF;
2510: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2511: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2512: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2513: RAISE OKL_API.G_EXCEPTION_ERROR;
2514: END IF;
2515: END IF;
2509: END IF;
2510: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2511: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2512: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2513: RAISE OKL_API.G_EXCEPTION_ERROR;
2514: END IF;
2515: END IF;
2516: END IF;
2517: --Bug # 5129446 ssdeshpa start
2539: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_maintain_fee_pvt.create_fee_type'
2540: ,'end debug call create_fee_type');
2541: END IF;
2542: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2543: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2544: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2545: RAISE OKL_API.G_EXCEPTION_ERROR;
2546: END IF;
2547: l_cle_id := lx_fee_types_rec.line_id;
2541: END IF;
2542: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2543: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2544: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2545: RAISE OKL_API.G_EXCEPTION_ERROR;
2546: END IF;
2547: l_cle_id := lx_fee_types_rec.line_id;
2548: IF l_quote_fee_rec.fee_type IN ('MISCELLANEOUS', 'EXPENSE', 'CAPITALIZED', 'FINANCED','INCOME','ROLLOVER') THEN
2549: IF l_quote_fee_rec.fee_type = 'CAPITALIZED' THEN
2568: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_link_assets'
2569: ,'end debug call create_link_assets');
2570: END IF;
2571: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2572: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2573: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2574: RAISE OKL_API.G_EXCEPTION_ERROR;
2575: END IF;
2576: END IF;
2570: END IF;
2571: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2572: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2573: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2574: RAISE OKL_API.G_EXCEPTION_ERROR;
2575: END IF;
2576: END IF;
2577:
2578: IF l_quote_fee_rec.fee_type IN ('MISCELLANEOUS', 'EXPENSE', 'ABSORBED', 'FINANCED') THEN
2594: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_expense_dtls'
2595: ,'end debug call create_expense_dtls');
2596: END IF;
2597: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2598: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2599: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2600: RAISE OKL_API.G_EXCEPTION_ERROR;
2601: END IF;
2602: END IF;
2596: END IF;
2597: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2598: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2599: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2600: RAISE OKL_API.G_EXCEPTION_ERROR;
2601: END IF;
2602: END IF;
2603: IF l_quote_fee_rec.fee_type IN ('MISCELLANEOUS', 'PASSTHROUGH', 'FINANCED', 'INCOME', 'ROLLOVER', 'SEC_DEPOSIT') THEN
2604: l_pymnt_counter := 0;
2625: p_init_msg_list => p_init_msg_list,
2626: x_return_status => x_return_status,
2627: x_msg_count => x_msg_count,
2628: x_msg_data => x_msg_data,
2629: p_transaction_control => OKL_API.G_FALSE,
2630: p_cle_id => l_cle_id,
2631: p_chr_id => p_chr_id,
2632: p_payment_type_id => l_payment_levels_tbl(0).payment_type_id,
2633: p_payment_frequency => l_payment_levels_tbl(0).frequency_code,
2639: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_payment_plans'
2640: ,'end debug call create_payment_plans');
2641: END IF;
2642: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2643: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2644: ELSIF x_return_status = G_RET_STS_ERROR THEN
2645: RAISE OKL_API.G_EXCEPTION_ERROR;
2646: END IF;
2647: END IF;
2641: END IF;
2642: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2643: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2644: ELSIF x_return_status = G_RET_STS_ERROR THEN
2645: RAISE OKL_API.G_EXCEPTION_ERROR;
2646: END IF;
2647: END IF;
2648: END IF;
2649: END LOOP;
2647: END IF;
2648: END IF;
2649: END LOOP;
2650: x_return_status := okc_api.G_RET_STS_SUCCESS;
2651: OKL_API.END_ACTIVITY(
2652: x_msg_count => x_msg_count
2653: ,x_msg_data => x_msg_data);
2654: EXCEPTION
2655: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2651: OKL_API.END_ACTIVITY(
2652: x_msg_count => x_msg_count
2653: ,x_msg_data => x_msg_data);
2654: EXCEPTION
2655: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2656: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2657: p_api_name => l_api_name,
2658: p_pkg_name => G_PKG_NAME,
2659: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2652: x_msg_count => x_msg_count
2653: ,x_msg_data => x_msg_data);
2654: EXCEPTION
2655: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2656: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2657: p_api_name => l_api_name,
2658: p_pkg_name => G_PKG_NAME,
2659: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2660: x_msg_count => x_msg_count,
2655: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2656: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2657: p_api_name => l_api_name,
2658: p_pkg_name => G_PKG_NAME,
2659: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2660: x_msg_count => x_msg_count,
2661: x_msg_data => x_msg_data,
2662: p_api_type => G_API_TYPE);
2663: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2659: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2660: x_msg_count => x_msg_count,
2661: x_msg_data => x_msg_data,
2662: p_api_type => G_API_TYPE);
2663: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2664: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2665: p_api_name => l_api_name,
2666: p_pkg_name => G_PKG_NAME,
2667: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2660: x_msg_count => x_msg_count,
2661: x_msg_data => x_msg_data,
2662: p_api_type => G_API_TYPE);
2663: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2664: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2665: p_api_name => l_api_name,
2666: p_pkg_name => G_PKG_NAME,
2667: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2668: x_msg_count => x_msg_count,
2663: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2664: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2665: p_api_name => l_api_name,
2666: p_pkg_name => G_PKG_NAME,
2667: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2668: x_msg_count => x_msg_count,
2669: x_msg_data => x_msg_data,
2670: p_api_type => G_API_TYPE);
2671: WHEN OTHERS THEN
2668: x_msg_count => x_msg_count,
2669: x_msg_data => x_msg_data,
2670: p_api_type => G_API_TYPE);
2671: WHEN OTHERS THEN
2672: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2673: p_api_name => l_api_name,
2674: p_pkg_name => G_PKG_NAME,
2675: p_exc_name => 'OTHERS',
2676: x_msg_count => x_msg_count,
2702: p_asset_id IN NUMBER) IS
2703: -- Variables Declarations
2704: l_api_version CONSTANT NUMBER DEFAULT 1.0;
2705: l_api_name CONSTANT VARCHAR2(30) DEFAULT 'CRT_AST_ADN';
2706: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2707: l_debug_enabled VARCHAR2(10);
2708: l_cre_klev_tbl OKL_CREATE_KLE_PVT.klev_tbl_type;
2709: l_cre_clev_tbl OKL_CREATE_KLE_PVT.clev_tbl_type;
2710: l_cre_cimv_tbl OKL_CREATE_KLE_PVT.cimv_tbl_type;
2766: AND oab.PARENT_OBJECT_CODE = 'LEASEQUOTE'
2767: AND oacb.PRIMARY_COMPONENT = 'NO'
2768: AND oacb.ASSET_ID = p_ast_id;
2769: BEGIN
2770: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2771: -- check for logging on PROCEDURE level
2772: l_debug_enabled := okl_debug_pub.check_log_enabled;
2773: -- call START_ACTIVITY to create savepoint, check compatibility
2774: -- and initialize message list
2771: -- check for logging on PROCEDURE level
2772: l_debug_enabled := okl_debug_pub.check_log_enabled;
2773: -- call START_ACTIVITY to create savepoint, check compatibility
2774: -- and initialize message list
2775: l_return_status := OKL_API.START_ACTIVITY( p_api_name => l_api_name
2776: ,p_pkg_name => G_PKG_NAME
2777: ,p_init_msg_list => p_init_msg_list
2778: ,l_api_version => l_api_version
2779: ,p_api_version => p_api_version
2779: ,p_api_version => p_api_version
2780: ,p_api_type => g_api_type
2781: ,x_return_status => x_return_status);
2782: -- check if activity started successfully
2783: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2784: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2785: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2786: RAISE OKL_API.G_EXCEPTION_ERROR;
2787: END IF;
2780: ,p_api_type => g_api_type
2781: ,x_return_status => x_return_status);
2782: -- check if activity started successfully
2783: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2784: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2785: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2786: RAISE OKL_API.G_EXCEPTION_ERROR;
2787: END IF;
2788: -- find asset number and set it
2781: ,x_return_status => x_return_status);
2782: -- check if activity started successfully
2783: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2784: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2785: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2786: RAISE OKL_API.G_EXCEPTION_ERROR;
2787: END IF;
2788: -- find asset number and set it
2789: open find_asset_num_csr(p_clev_fin_rec.ID);
2782: -- check if activity started successfully
2783: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2784: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2785: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2786: RAISE OKL_API.G_EXCEPTION_ERROR;
2787: END IF;
2788: -- find asset number and set it
2789: open find_asset_num_csr(p_clev_fin_rec.ID);
2790: fetch find_asset_num_csr into l_asset_number;
2841: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.OKL_CREATE_KLE_PVT.create_add_on_line'
2842: ,'end debug call create_add_on_line');
2843: END IF;
2844: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2845: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2846: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2847: RAISE OKL_API.G_EXCEPTION_ERROR;
2848: END IF;
2849:
2843: END IF;
2844: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2845: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2846: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2847: RAISE OKL_API.G_EXCEPTION_ERROR;
2848: END IF;
2849:
2850: -- create the party as vendor for the supplier present on the asset
2851: IF l_asset_addon_rec.supplier_id IS NOT NULL THEN
2867: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_vendor'
2868: ,'end debug call create_vendor');
2869: END IF;
2870: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2871: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2872: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2873: RAISE OKL_API.G_EXCEPTION_ERROR;
2874: END IF;
2875: IF(l_debug_enabled='Y') THEN
2869: END IF;
2870: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2871: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2872: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2873: RAISE OKL_API.G_EXCEPTION_ERROR;
2874: END IF;
2875: IF(l_debug_enabled='Y') THEN
2876: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_vendor'
2877: ,'begin debug call create_vendor');
2889: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_vendor'
2890: ,'end debug call create_vendor');
2891: END IF;
2892: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2893: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2894: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2895: RAISE OKL_API.G_EXCEPTION_ERROR;
2896: END IF;
2897: END IF;
2891: END IF;
2892: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2893: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2894: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2895: RAISE OKL_API.G_EXCEPTION_ERROR;
2896: END IF;
2897: END IF;
2898:
2899:
2899:
2900: END LOOP;
2901: -- END IF;
2902: x_return_status := okc_api.G_RET_STS_SUCCESS;
2903: OKL_API.END_ACTIVITY(
2904: x_msg_count => x_msg_count
2905: ,x_msg_data => x_msg_data);
2906: EXCEPTION
2907: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2903: OKL_API.END_ACTIVITY(
2904: x_msg_count => x_msg_count
2905: ,x_msg_data => x_msg_data);
2906: EXCEPTION
2907: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2908: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2909: p_api_name => l_api_name,
2910: p_pkg_name => G_PKG_NAME,
2911: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2904: x_msg_count => x_msg_count
2905: ,x_msg_data => x_msg_data);
2906: EXCEPTION
2907: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2908: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2909: p_api_name => l_api_name,
2910: p_pkg_name => G_PKG_NAME,
2911: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2912: x_msg_count => x_msg_count,
2907: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2908: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2909: p_api_name => l_api_name,
2910: p_pkg_name => G_PKG_NAME,
2911: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2912: x_msg_count => x_msg_count,
2913: x_msg_data => x_msg_data,
2914: p_api_type => G_API_TYPE);
2915: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2911: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2912: x_msg_count => x_msg_count,
2913: x_msg_data => x_msg_data,
2914: p_api_type => G_API_TYPE);
2915: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2916: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2917: p_api_name => l_api_name,
2918: p_pkg_name => G_PKG_NAME,
2919: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2912: x_msg_count => x_msg_count,
2913: x_msg_data => x_msg_data,
2914: p_api_type => G_API_TYPE);
2915: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2916: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2917: p_api_name => l_api_name,
2918: p_pkg_name => G_PKG_NAME,
2919: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2920: x_msg_count => x_msg_count,
2915: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2916: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2917: p_api_name => l_api_name,
2918: p_pkg_name => G_PKG_NAME,
2919: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2920: x_msg_count => x_msg_count,
2921: x_msg_data => x_msg_data,
2922: p_api_type => G_API_TYPE);
2923: WHEN OTHERS THEN
2920: x_msg_count => x_msg_count,
2921: x_msg_data => x_msg_data,
2922: p_api_type => G_API_TYPE);
2923: WHEN OTHERS THEN
2924: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2925: p_api_name => l_api_name,
2926: p_pkg_name => G_PKG_NAME,
2927: p_exc_name => 'OTHERS',
2928: x_msg_count => x_msg_count,
2958: p_chr_id IN NUMBER) IS
2959: -- Variables Declarations
2960: l_api_version CONSTANT NUMBER DEFAULT 1.0;
2961: l_api_name CONSTANT VARCHAR2(30) DEFAULT 'CRT_AST_SUB';
2962: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2963: l_debug_enabled VARCHAR2(10);
2964:
2965: -- Start : Added by rravikir for Bug#6707125
2966: CURSOR c_get_asset_id(p_qte_id okl_lease_quotes_b.ID%TYPE) IS
2989: l_fin_line_id NUMBER; -- Added by rravikir for Bug#6707125
2990: lx_return_status VARCHAR2(1);
2991:
2992: BEGIN
2993: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2994: -- check for logging on PROCEDURE level
2995: l_debug_enabled := okl_debug_pub.check_log_enabled;
2996: -- call START_ACTIVITY to create savepoint, check compatibility
2997: -- and initialize message list
2994: -- check for logging on PROCEDURE level
2995: l_debug_enabled := okl_debug_pub.check_log_enabled;
2996: -- call START_ACTIVITY to create savepoint, check compatibility
2997: -- and initialize message list
2998: l_return_status := OKL_API.START_ACTIVITY( p_api_name => l_api_name
2999: ,p_pkg_name => G_PKG_NAME
3000: ,p_init_msg_list => p_init_msg_list
3001: ,l_api_version => l_api_version
3002: ,p_api_version => p_api_version
3002: ,p_api_version => p_api_version
3003: ,p_api_type => g_api_type
3004: ,x_return_status => x_return_status);
3005: -- check if activity started successfully
3006: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3007: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3008: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3009: RAISE OKL_API.G_EXCEPTION_ERROR;
3010: END IF;
3003: ,p_api_type => g_api_type
3004: ,x_return_status => x_return_status);
3005: -- check if activity started successfully
3006: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3007: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3008: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3009: RAISE OKL_API.G_EXCEPTION_ERROR;
3010: END IF;
3011:
3004: ,x_return_status => x_return_status);
3005: -- check if activity started successfully
3006: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3007: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3008: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3009: RAISE OKL_API.G_EXCEPTION_ERROR;
3010: END IF;
3011:
3012: -- Outer Loop : Added by rravikir for bug#6707125
3005: -- check if activity started successfully
3006: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3007: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3008: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3009: RAISE OKL_API.G_EXCEPTION_ERROR;
3010: END IF;
3011:
3012: -- Outer Loop : Added by rravikir for bug#6707125
3013: FOR l_get_asset_rec IN c_get_asset_id(p_quote_id) LOOP
3046: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_vendor'
3047: ,'end debug call create_vendor');
3048: END IF;
3049: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3050: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3051: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3052: RAISE OKL_API.G_EXCEPTION_ERROR;
3053: END IF;
3054: END IF;
3048: END IF;
3049: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3050: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3051: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3052: RAISE OKL_API.G_EXCEPTION_ERROR;
3053: END IF;
3054: END IF;
3055:
3056: l_cre_counter := l_cre_counter + 1;
3074: ,'end debug call create_asset_subsidy');
3075: END IF;
3076:
3077: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3078: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3079: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3080: RAISE OKL_API.G_EXCEPTION_ERROR;
3081: END IF;
3082: END IF;
3076:
3077: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3078: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3079: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3080: RAISE OKL_API.G_EXCEPTION_ERROR;
3081: END IF;
3082: END IF;
3083: END IF;
3084: END LOOP; -- Outer Loop Added by rravikir for bug#6707125
3084: END LOOP; -- Outer Loop Added by rravikir for bug#6707125
3085:
3086: x_return_status := okc_api.G_RET_STS_SUCCESS;
3087:
3088: OKL_API.END_ACTIVITY(
3089: x_msg_count => x_msg_count
3090: ,x_msg_data => x_msg_data);
3091: EXCEPTION
3092: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3088: OKL_API.END_ACTIVITY(
3089: x_msg_count => x_msg_count
3090: ,x_msg_data => x_msg_data);
3091: EXCEPTION
3092: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3093: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3094: p_api_name => l_api_name,
3095: p_pkg_name => G_PKG_NAME,
3096: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3089: x_msg_count => x_msg_count
3090: ,x_msg_data => x_msg_data);
3091: EXCEPTION
3092: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3093: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3094: p_api_name => l_api_name,
3095: p_pkg_name => G_PKG_NAME,
3096: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3097: x_msg_count => x_msg_count,
3092: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3093: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3094: p_api_name => l_api_name,
3095: p_pkg_name => G_PKG_NAME,
3096: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3097: x_msg_count => x_msg_count,
3098: x_msg_data => x_msg_data,
3099: p_api_type => G_API_TYPE);
3100: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3096: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3097: x_msg_count => x_msg_count,
3098: x_msg_data => x_msg_data,
3099: p_api_type => G_API_TYPE);
3100: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3101: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3102: p_api_name => l_api_name,
3103: p_pkg_name => G_PKG_NAME,
3104: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3097: x_msg_count => x_msg_count,
3098: x_msg_data => x_msg_data,
3099: p_api_type => G_API_TYPE);
3100: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3101: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3102: p_api_name => l_api_name,
3103: p_pkg_name => G_PKG_NAME,
3104: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3105: x_msg_count => x_msg_count,
3100: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3101: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3102: p_api_name => l_api_name,
3103: p_pkg_name => G_PKG_NAME,
3104: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3105: x_msg_count => x_msg_count,
3106: x_msg_data => x_msg_data,
3107: p_api_type => G_API_TYPE);
3108: WHEN OTHERS THEN
3105: x_msg_count => x_msg_count,
3106: x_msg_data => x_msg_data,
3107: p_api_type => G_API_TYPE);
3108: WHEN OTHERS THEN
3109: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3110: p_api_name => l_api_name,
3111: p_pkg_name => G_PKG_NAME,
3112: p_exc_name => 'OTHERS',
3113: x_msg_count => x_msg_count,
3132: p_asset_id IN NUMBER) IS
3133: -- Variables Declarations
3134: l_api_version CONSTANT NUMBER DEFAULT 1.0;
3135: l_api_name CONSTANT VARCHAR2(30) DEFAULT 'CRT_AST_DP';
3136: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3137: l_debug_enabled VARCHAR2(10);
3138: l_asset_number VARCHAR2(240);
3139: l_top_line_id NUMBER;
3140: l_dnz_chr_id NUMBER;
3167: AND parent_object_code = 'ASSET'
3168: AND adjustment_source_type = 'DOWN_PAYMENT';
3169:
3170: BEGIN
3171: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3172: -- check for logging on PROCEDURE level
3173: l_debug_enabled := okl_debug_pub.check_log_enabled;
3174: -- call START_ACTIVITY to create savepoint, check compatibility
3175: -- and initialize message list
3172: -- check for logging on PROCEDURE level
3173: l_debug_enabled := okl_debug_pub.check_log_enabled;
3174: -- call START_ACTIVITY to create savepoint, check compatibility
3175: -- and initialize message list
3176: l_return_status := OKL_API.START_ACTIVITY( p_api_name => l_api_name
3177: ,p_pkg_name => G_PKG_NAME
3178: ,p_init_msg_list => p_init_msg_list
3179: ,l_api_version => l_api_version
3180: ,p_api_version => p_api_version
3180: ,p_api_version => p_api_version
3181: ,p_api_type => g_api_type
3182: ,x_return_status => x_return_status);
3183: -- check if activity started successfully
3184: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3185: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3186: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3187: RAISE OKL_API.G_EXCEPTION_ERROR;
3188: END IF;
3181: ,p_api_type => g_api_type
3182: ,x_return_status => x_return_status);
3183: -- check if activity started successfully
3184: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3185: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3186: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3187: RAISE OKL_API.G_EXCEPTION_ERROR;
3188: END IF;
3189: SELECT ASSET_NUMBER
3182: ,x_return_status => x_return_status);
3183: -- check if activity started successfully
3184: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3185: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3186: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3187: RAISE OKL_API.G_EXCEPTION_ERROR;
3188: END IF;
3189: SELECT ASSET_NUMBER
3190: INTO l_asset_number
3183: -- check if activity started successfully
3184: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3185: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3186: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3187: RAISE OKL_API.G_EXCEPTION_ERROR;
3188: END IF;
3189: SELECT ASSET_NUMBER
3190: INTO l_asset_number
3191: FROM OKL_ASSET_ADJUST_UV
3232: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.Okl_La_Asset_Pvt.update_Fin_Cap_Cost'
3233: ,'end debug call update_Fin_Cap_Cost');
3234: END IF;
3235: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3236: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3237: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3238: RAISE OKL_API.G_EXCEPTION_ERROR;
3239: END IF;
3240: END IF;
3234: END IF;
3235: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3236: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3237: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3238: RAISE OKL_API.G_EXCEPTION_ERROR;
3239: END IF;
3240: END IF;
3241: x_return_status := okc_api.G_RET_STS_SUCCESS;
3242:
3239: END IF;
3240: END IF;
3241: x_return_status := okc_api.G_RET_STS_SUCCESS;
3242:
3243: OKL_API.END_ACTIVITY(
3244: x_msg_count => x_msg_count
3245: ,x_msg_data => x_msg_data);
3246: EXCEPTION
3247: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3243: OKL_API.END_ACTIVITY(
3244: x_msg_count => x_msg_count
3245: ,x_msg_data => x_msg_data);
3246: EXCEPTION
3247: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3248: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3249: p_api_name => l_api_name,
3250: p_pkg_name => G_PKG_NAME,
3251: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3244: x_msg_count => x_msg_count
3245: ,x_msg_data => x_msg_data);
3246: EXCEPTION
3247: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3248: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3249: p_api_name => l_api_name,
3250: p_pkg_name => G_PKG_NAME,
3251: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3252: x_msg_count => x_msg_count,
3247: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3248: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3249: p_api_name => l_api_name,
3250: p_pkg_name => G_PKG_NAME,
3251: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3252: x_msg_count => x_msg_count,
3253: x_msg_data => x_msg_data,
3254: p_api_type => G_API_TYPE);
3255: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3251: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3252: x_msg_count => x_msg_count,
3253: x_msg_data => x_msg_data,
3254: p_api_type => G_API_TYPE);
3255: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3256: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3257: p_api_name => l_api_name,
3258: p_pkg_name => G_PKG_NAME,
3259: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3252: x_msg_count => x_msg_count,
3253: x_msg_data => x_msg_data,
3254: p_api_type => G_API_TYPE);
3255: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3256: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3257: p_api_name => l_api_name,
3258: p_pkg_name => G_PKG_NAME,
3259: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3260: x_msg_count => x_msg_count,
3255: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3256: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3257: p_api_name => l_api_name,
3258: p_pkg_name => G_PKG_NAME,
3259: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3260: x_msg_count => x_msg_count,
3261: x_msg_data => x_msg_data,
3262: p_api_type => G_API_TYPE);
3263: WHEN OTHERS THEN
3260: x_msg_count => x_msg_count,
3261: x_msg_data => x_msg_data,
3262: p_api_type => G_API_TYPE);
3263: WHEN OTHERS THEN
3264: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3265: p_api_name => l_api_name,
3266: p_pkg_name => G_PKG_NAME,
3267: p_exc_name => 'OTHERS',
3268: x_msg_count => x_msg_count,
3286: p_asset_id IN NUMBER) IS
3287: -- Variables Declarations
3288: l_api_version CONSTANT NUMBER DEFAULT 1.0;
3289: l_api_name CONSTANT VARCHAR2(30) DEFAULT 'CRT_AST_DP';
3290: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3291: l_debug_enabled VARCHAR2(10);
3292: l_tradein_rec Okl_La_Tradein_Pvt.tradein_rec_type;
3293: x_tradein_rec Okl_La_Tradein_Pvt.tradein_rec_type;
3294: l_chr_id okl_k_headers.id%TYPE;
3316: AND parent_object_code = 'ASSET'
3317: AND adjustment_source_type = 'TRADEIN';
3318:
3319: BEGIN
3320: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3321: -- check for logging on PROCEDURE level
3322: l_debug_enabled := okl_debug_pub.check_log_enabled;
3323: -- call START_ACTIVITY to create savepoint, check compatibility
3324: -- and initialize message list
3321: -- check for logging on PROCEDURE level
3322: l_debug_enabled := okl_debug_pub.check_log_enabled;
3323: -- call START_ACTIVITY to create savepoint, check compatibility
3324: -- and initialize message list
3325: l_return_status := OKL_API.START_ACTIVITY( p_api_name => l_api_name
3326: ,p_pkg_name => G_PKG_NAME
3327: ,p_init_msg_list => p_init_msg_list
3328: ,l_api_version => l_api_version
3329: ,p_api_version => p_api_version
3329: ,p_api_version => p_api_version
3330: ,p_api_type => g_api_type
3331: ,x_return_status => x_return_status);
3332: -- check if activity started successfully
3333: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3334: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3335: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3336: RAISE OKL_API.G_EXCEPTION_ERROR;
3337: END IF;
3330: ,p_api_type => g_api_type
3331: ,x_return_status => x_return_status);
3332: -- check if activity started successfully
3333: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3334: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3335: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3336: RAISE OKL_API.G_EXCEPTION_ERROR;
3337: END IF;
3338: SELECT ASSET_NUMBER
3331: ,x_return_status => x_return_status);
3332: -- check if activity started successfully
3333: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3334: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3335: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3336: RAISE OKL_API.G_EXCEPTION_ERROR;
3337: END IF;
3338: SELECT ASSET_NUMBER
3339: INTO l_tradein_rec.asset_number
3332: -- check if activity started successfully
3333: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3334: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3335: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3336: RAISE OKL_API.G_EXCEPTION_ERROR;
3337: END IF;
3338: SELECT ASSET_NUMBER
3339: INTO l_tradein_rec.asset_number
3340: FROM OKL_ASSET_ADJUST_UV
3367: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.Okl_La_Tradein_Pvt.create_Tradein'
3368: ,'end debug call create_Tradein');
3369: END IF;
3370: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3371: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3372: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3373: RAISE OKL_API.G_EXCEPTION_ERROR;
3374: END IF;
3375:
3369: END IF;
3370: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3371: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3372: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3373: RAISE OKL_API.G_EXCEPTION_ERROR;
3374: END IF;
3375:
3376: END IF;
3377: x_return_status := okc_api.G_RET_STS_SUCCESS;
3375:
3376: END IF;
3377: x_return_status := okc_api.G_RET_STS_SUCCESS;
3378:
3379: OKL_API.END_ACTIVITY(
3380: x_msg_count => x_msg_count
3381: ,x_msg_data => x_msg_data);
3382: EXCEPTION
3383: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3379: OKL_API.END_ACTIVITY(
3380: x_msg_count => x_msg_count
3381: ,x_msg_data => x_msg_data);
3382: EXCEPTION
3383: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3384: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3385: p_api_name => l_api_name,
3386: p_pkg_name => G_PKG_NAME,
3387: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3380: x_msg_count => x_msg_count
3381: ,x_msg_data => x_msg_data);
3382: EXCEPTION
3383: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3384: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3385: p_api_name => l_api_name,
3386: p_pkg_name => G_PKG_NAME,
3387: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3388: x_msg_count => x_msg_count,
3383: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3384: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3385: p_api_name => l_api_name,
3386: p_pkg_name => G_PKG_NAME,
3387: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3388: x_msg_count => x_msg_count,
3389: x_msg_data => x_msg_data,
3390: p_api_type => G_API_TYPE);
3391: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3387: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3388: x_msg_count => x_msg_count,
3389: x_msg_data => x_msg_data,
3390: p_api_type => G_API_TYPE);
3391: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3392: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3393: p_api_name => l_api_name,
3394: p_pkg_name => G_PKG_NAME,
3395: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3388: x_msg_count => x_msg_count,
3389: x_msg_data => x_msg_data,
3390: p_api_type => G_API_TYPE);
3391: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3392: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3393: p_api_name => l_api_name,
3394: p_pkg_name => G_PKG_NAME,
3395: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3396: x_msg_count => x_msg_count,
3391: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3392: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3393: p_api_name => l_api_name,
3394: p_pkg_name => G_PKG_NAME,
3395: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3396: x_msg_count => x_msg_count,
3397: x_msg_data => x_msg_data,
3398: p_api_type => G_API_TYPE);
3399: WHEN OTHERS THEN
3396: x_msg_count => x_msg_count,
3397: x_msg_data => x_msg_data,
3398: p_api_type => G_API_TYPE);
3399: WHEN OTHERS THEN
3400: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3401: p_api_name => l_api_name,
3402: p_pkg_name => G_PKG_NAME,
3403: p_exc_name => 'OTHERS',
3404: x_msg_count => x_msg_count,
3430: p_lapv_rec IN c_get_leaseapp_hdr%ROWTYPE)IS
3431: -- Variables Declarations
3432: l_api_version CONSTANT NUMBER DEFAULT 1.0;
3433: l_api_name CONSTANT VARCHAR2(30) DEFAULT 'CRT_AST_LNS';
3434: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3435: l_debug_enabled VARCHAR2(10);
3436: l_new_yn VARCHAR2(1);
3437: l_update_date DATE;
3438: l_chr_id NUMBER;
3606: AND rownum = 1;
3607:
3608: -- cursor to fetch lease
3609: BEGIN
3610: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3611: -- check for logging on PROCEDURE level
3612: l_debug_enabled := okl_debug_pub.check_log_enabled;
3613: -- call START_ACTIVITY to create savepoint, check compatibility
3614: -- and initialize message list
3611: -- check for logging on PROCEDURE level
3612: l_debug_enabled := okl_debug_pub.check_log_enabled;
3613: -- call START_ACTIVITY to create savepoint, check compatibility
3614: -- and initialize message list
3615: l_return_status := OKL_API.START_ACTIVITY( p_api_name => l_api_name
3616: ,p_pkg_name => G_PKG_NAME
3617: ,p_init_msg_list => p_init_msg_list
3618: ,l_api_version => l_api_version
3619: ,p_api_version => p_api_version
3619: ,p_api_version => p_api_version
3620: ,p_api_type => g_api_type
3621: ,x_return_status => x_return_status);
3622: -- check if activity started successfully
3623: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3624: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3625: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3626: RAISE OKL_API.G_EXCEPTION_ERROR;
3627: END IF;
3620: ,p_api_type => g_api_type
3621: ,x_return_status => x_return_status);
3622: -- check if activity started successfully
3623: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3624: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3625: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3626: RAISE OKL_API.G_EXCEPTION_ERROR;
3627: END IF;
3628: l_chr_id := p_chr_id;
3621: ,x_return_status => x_return_status);
3622: -- check if activity started successfully
3623: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3624: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3625: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3626: RAISE OKL_API.G_EXCEPTION_ERROR;
3627: END IF;
3628: l_chr_id := p_chr_id;
3629: l_lapv_rec := p_lapv_rec;
3622: -- check if activity started successfully
3623: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3624: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3625: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3626: RAISE OKL_API.G_EXCEPTION_ERROR;
3627: END IF;
3628: l_chr_id := p_chr_id;
3629: l_lapv_rec := p_lapv_rec;
3630: --create asset line
3698: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_create_kle_pvt.create_all_line'
3699: ,'end debug call create_all_line');
3700: END IF;
3701: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3702: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3703: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3704: RAISE OKL_API.G_EXCEPTION_ERROR;
3705: END IF;
3706: --populate quote contract asset id mapping table
3700: END IF;
3701: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3702: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3703: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3704: RAISE OKL_API.G_EXCEPTION_ERROR;
3705: END IF;
3706: --populate quote contract asset id mapping table
3707: l_qte_cntrct_ast_tbl(l_ast_counter).qte_asset_id := l_quote_asset_rec.ID;
3708: l_qte_cntrct_ast_tbl(l_ast_counter).cntrct_asset_id := lx_clev_fin_rec.id;
3724: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_asset_addon'
3725: ,'end debug call create_asset_addon');
3726: END IF;
3727: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3728: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3729: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3730: RAISE OKL_API.G_EXCEPTION_ERROR;
3731: END IF;
3732: -- create the party as vendor for the supplier present on the asset
3726: END IF;
3727: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3728: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3729: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3730: RAISE OKL_API.G_EXCEPTION_ERROR;
3731: END IF;
3732: -- create the party as vendor for the supplier present on the asset
3733: IF l_quote_asset_rec.supplier_id IS NOT NULL THEN
3734: IF(l_debug_enabled='Y') THEN
3749: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_vendor'
3750: ,'end debug call create_vendor');
3751: END IF;
3752: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3753: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3754: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3755: RAISE OKL_API.G_EXCEPTION_ERROR;
3756: END IF;
3757: IF(l_debug_enabled='Y') THEN
3751: END IF;
3752: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3753: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3754: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3755: RAISE OKL_API.G_EXCEPTION_ERROR;
3756: END IF;
3757: IF(l_debug_enabled='Y') THEN
3758: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_vendor'
3759: ,'begin debug call create_vendor');
3771: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_vendor'
3772: ,'end debug call create_vendor');
3773: END IF;
3774: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3775: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3776: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3777: RAISE OKL_API.G_EXCEPTION_ERROR;
3778: END IF;
3779: END IF;
3773: END IF;
3774: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3775: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3776: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3777: RAISE OKL_API.G_EXCEPTION_ERROR;
3778: END IF;
3779: END IF;
3780:
3781: /*
3803: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_asset_subsidy'
3804: ,'end debug call create_asset_subsidy');
3805: END IF;
3806: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3807: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3808: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3809: RAISE OKL_API.G_EXCEPTION_ERROR;
3810: END IF;
3811:
3805: END IF;
3806: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3807: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3808: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3809: RAISE OKL_API.G_EXCEPTION_ERROR;
3810: END IF;
3811:
3812: End : Commented by rravikir for bug#6707125
3813: */
3829: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_asset_down_payment'
3830: ,'end debug call create_asset_down_payment');
3831: END IF;
3832: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3833: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3834: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3835: RAISE OKL_API.G_EXCEPTION_ERROR;
3836: END IF;
3837: -- create trade in
3831: END IF;
3832: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3833: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3834: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3835: RAISE OKL_API.G_EXCEPTION_ERROR;
3836: END IF;
3837: -- create trade in
3838: IF(l_debug_enabled='Y') THEN
3839: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_asset_tradein'
3852: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_asset_tradein'
3853: ,'end debug call create_asset_tradein');
3854: END IF;
3855: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3856: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3857: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3858: RAISE OKL_API.G_EXCEPTION_ERROR;
3859: END IF;
3860: --create asset rent payments
3854: END IF;
3855: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3856: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3857: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3858: RAISE OKL_API.G_EXCEPTION_ERROR;
3859: END IF;
3860: --create asset rent payments
3861: l_pymnt_counter := 0;
3862: l_payment_levels_tbl.DELETE;
3881: p_init_msg_list => p_init_msg_list,
3882: x_return_status => x_return_status,
3883: x_msg_count => x_msg_count,
3884: x_msg_data => x_msg_data,
3885: p_transaction_control => OKL_API.G_FALSE,
3886: p_cle_id => lx_clev_fin_rec.ID,
3887: p_chr_id => l_clev_fin_rec.dnz_chr_id ,
3888: p_payment_type_id => l_payment_levels_tbl(0).PAYMENT_TYPE_ID,
3889: p_payment_frequency => l_payment_levels_tbl(0).FREQUENCY_CODE,
3895: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_payment_plans'
3896: ,'end debug call create_payment_plans');
3897: END IF;
3898: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3899: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3900: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3901: RAISE OKL_API.G_EXCEPTION_ERROR;
3902: END IF;
3903: END IF;
3897: END IF;
3898: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3899: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3900: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3901: RAISE OKL_API.G_EXCEPTION_ERROR;
3902: END IF;
3903: END IF;
3904:
3905: --create asset billed down payment details
3926: p_init_msg_list => p_init_msg_list,
3927: x_return_status => x_return_status,
3928: x_msg_count => x_msg_count,
3929: x_msg_data => x_msg_data,
3930: p_transaction_control => OKL_API.G_FALSE,
3931: p_cle_id => lx_clev_fin_rec.ID,
3932: p_chr_id => l_clev_fin_rec.dnz_chr_id ,
3933: p_payment_type_id => l_payment_levels_tbl(0).PAYMENT_TYPE_ID,
3934: p_payment_frequency => l_payment_levels_tbl(0).FREQUENCY_CODE,
3940: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_payment_plans'
3941: ,'end debug call create_payment_plans');
3942: END IF;
3943: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3944: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3945: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3946: RAISE OKL_API.G_EXCEPTION_ERROR;
3947: END IF;
3948: END IF;
3942: END IF;
3943: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3944: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3945: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3946: RAISE OKL_API.G_EXCEPTION_ERROR;
3947: END IF;
3948: END IF;
3949:
3950: --create asset estimated property tax payments
3971: p_init_msg_list => p_init_msg_list,
3972: x_return_status => x_return_status,
3973: x_msg_count => x_msg_count,
3974: x_msg_data => x_msg_data,
3975: p_transaction_control => OKL_API.G_FALSE,
3976: p_cle_id => lx_clev_fin_rec.ID,
3977: p_chr_id => l_clev_fin_rec.dnz_chr_id ,
3978: p_payment_type_id => l_payment_levels_tbl(0).PAYMENT_TYPE_ID,
3979: p_payment_frequency => l_payment_levels_tbl(0).FREQUENCY_CODE,
3985: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_payment_plans'
3986: ,'end debug call create_payment_plans');
3987: END IF;
3988: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3989: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3990: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3991: RAISE OKL_API.G_EXCEPTION_ERROR;
3992: END IF;
3993: END IF;
3987: END IF;
3988: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3989: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3990: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3991: RAISE OKL_API.G_EXCEPTION_ERROR;
3992: END IF;
3993: END IF;
3994: END LOOP;
3995:
4019: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_asset_tradein'
4020: ,'end debug call create_asset_tradein');
4021: END IF;
4022: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4023: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4024: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4025: RAISE OKL_API.G_EXCEPTION_ERROR;
4026: END IF;
4027: END IF;
4021: END IF;
4022: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4023: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4024: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4025: RAISE OKL_API.G_EXCEPTION_ERROR;
4026: END IF;
4027: END IF;
4028: /*
4029: --create contract level payment
4062: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_payment_plans'
4063: ,'end debug call okl_la_payments_pvt.process_payment');
4064: END IF;
4065: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4066: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4067: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4068: RAISE OKL_API.G_EXCEPTION_ERROR;
4069: END IF;
4070: END IF;
4064: END IF;
4065: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4066: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4067: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4068: RAISE OKL_API.G_EXCEPTION_ERROR;
4069: END IF;
4070: END IF;
4071: */
4072: x_return_status := okc_api.G_RET_STS_SUCCESS;
4069: END IF;
4070: END IF;
4071: */
4072: x_return_status := okc_api.G_RET_STS_SUCCESS;
4073: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
4074: ,x_msg_data => x_msg_data);
4075: EXCEPTION
4076: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4077: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4072: x_return_status := okc_api.G_RET_STS_SUCCESS;
4073: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
4074: ,x_msg_data => x_msg_data);
4075: EXCEPTION
4076: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4077: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4078: p_api_name => l_api_name,
4079: p_pkg_name => G_PKG_NAME,
4080: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4073: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
4074: ,x_msg_data => x_msg_data);
4075: EXCEPTION
4076: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4077: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4078: p_api_name => l_api_name,
4079: p_pkg_name => G_PKG_NAME,
4080: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4081: x_msg_count => x_msg_count,
4076: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4077: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4078: p_api_name => l_api_name,
4079: p_pkg_name => G_PKG_NAME,
4080: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4081: x_msg_count => x_msg_count,
4082: x_msg_data => x_msg_data,
4083: p_api_type => g_api_type);
4084: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4080: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4081: x_msg_count => x_msg_count,
4082: x_msg_data => x_msg_data,
4083: p_api_type => g_api_type);
4084: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4085: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4086: p_api_name => l_api_name,
4087: p_pkg_name => G_PKG_NAME,
4088: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4081: x_msg_count => x_msg_count,
4082: x_msg_data => x_msg_data,
4083: p_api_type => g_api_type);
4084: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4085: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4086: p_api_name => l_api_name,
4087: p_pkg_name => G_PKG_NAME,
4088: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4089: x_msg_count => x_msg_count,
4084: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4085: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4086: p_api_name => l_api_name,
4087: p_pkg_name => G_PKG_NAME,
4088: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4089: x_msg_count => x_msg_count,
4090: x_msg_data => x_msg_data,
4091: p_api_type => g_api_type);
4092: WHEN OTHERS THEN
4089: x_msg_count => x_msg_count,
4090: x_msg_data => x_msg_data,
4091: p_api_type => g_api_type);
4092: WHEN OTHERS THEN
4093: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4094: p_api_name => l_api_name,
4095: p_pkg_name => G_PKG_NAME,
4096: p_exc_name => 'OTHERS',
4097: x_msg_count => x_msg_count,
4122: p_lapv_rec IN c_get_leaseapp_hdr%ROWTYPE)IS
4123: -- Variables Declarations
4124: l_api_version CONSTANT NUMBER DEFAULT 1.0;
4125: l_api_name CONSTANT VARCHAR2(30) DEFAULT 'CRT_RUL';
4126: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4127: l_debug_enabled VARCHAR2(10);
4128: lx_rgp_id NUMBER;
4129: l_contract_temp_id NUMBER;
4130: l_chr_id NUMBER;
4159: AND rg_defs.scs_code = 'LEASE'
4160: AND rgp.cle_id IS NULL
4161: AND rgp.rgd_code NOT IN ('LATOWN','CURRENCY');
4162: BEGIN
4163: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4164: -- check for logging on PROCEDURE level
4165: l_debug_enabled := okl_debug_pub.check_log_enabled;
4166: -- call START_ACTIVITY to create savepoint, check compatibility
4167: -- and initialize message list
4164: -- check for logging on PROCEDURE level
4165: l_debug_enabled := okl_debug_pub.check_log_enabled;
4166: -- call START_ACTIVITY to create savepoint, check compatibility
4167: -- and initialize message list
4168: l_return_status := OKL_API.START_ACTIVITY( p_api_name => l_api_name
4169: ,p_pkg_name => G_PKG_NAME
4170: ,p_init_msg_list => p_init_msg_list
4171: ,l_api_version => l_api_version
4172: ,p_api_version => p_api_version
4172: ,p_api_version => p_api_version
4173: ,p_api_type => g_api_type
4174: ,x_return_status => x_return_status);
4175: -- check if activity started successfully
4176: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4177: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4178: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4179: RAISE OKL_API.G_EXCEPTION_ERROR;
4180: END IF;
4173: ,p_api_type => g_api_type
4174: ,x_return_status => x_return_status);
4175: -- check if activity started successfully
4176: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4177: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4178: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4179: RAISE OKL_API.G_EXCEPTION_ERROR;
4180: END IF;
4181: l_chr_id := p_chr_id;
4174: ,x_return_status => x_return_status);
4175: -- check if activity started successfully
4176: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4177: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4178: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4179: RAISE OKL_API.G_EXCEPTION_ERROR;
4180: END IF;
4181: l_chr_id := p_chr_id;
4182: l_lapv_rec := p_lapv_rec;
4175: -- check if activity started successfully
4176: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4177: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4178: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4179: RAISE OKL_API.G_EXCEPTION_ERROR;
4180: END IF;
4181: l_chr_id := p_chr_id;
4182: l_lapv_rec := p_lapv_rec;
4183: -- create rules
4184: OPEN c_get_contract_temp(l_lapv_rec.ID);
4185: FETCH c_get_contract_temp INTO l_lapv_rec.ID,l_contract_temp_id;
4186: CLOSE c_get_contract_temp;
4187: IF l_lapv_rec.ID IS NULL THEN
4188: OKL_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'quote_chr_id_not_found');
4189: x_return_status := OKL_API.g_ret_sts_error;
4190: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4191: END IF;
4192: IF l_contract_temp_id IS NOT NULL THEN
4185: FETCH c_get_contract_temp INTO l_lapv_rec.ID,l_contract_temp_id;
4186: CLOSE c_get_contract_temp;
4187: IF l_lapv_rec.ID IS NULL THEN
4188: OKL_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'quote_chr_id_not_found');
4189: x_return_status := OKL_API.g_ret_sts_error;
4190: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4191: END IF;
4192: IF l_contract_temp_id IS NOT NULL THEN
4193: FOR l_c_rgpv IN c_rgpv(l_contract_temp_id) LOOP
4186: CLOSE c_get_contract_temp;
4187: IF l_lapv_rec.ID IS NULL THEN
4188: OKL_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'quote_chr_id_not_found');
4189: x_return_status := OKL_API.g_ret_sts_error;
4190: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4191: END IF;
4192: IF l_contract_temp_id IS NOT NULL THEN
4193: FOR l_c_rgpv IN c_rgpv(l_contract_temp_id) LOOP
4194: IF(l_debug_enabled='Y') THEN
4209: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.OKL_COPY_CONTRACT_PUB.copy_rules'
4210: ,'end debug call copy_rules');
4211: END IF;
4212: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4213: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4214: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4215: RAISE OKL_API.G_EXCEPTION_ERROR;
4216: END IF;
4217: END LOOP;
4211: END IF;
4212: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4213: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4214: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4215: RAISE OKL_API.G_EXCEPTION_ERROR;
4216: END IF;
4217: END LOOP;
4218: END IF;
4219: i := 1;
4313: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.OKL_RGRP_RULES_PROCESS_PUB.process_rule_group_rules'
4314: ,'end debug call process_rule_group_rules');
4315: END IF;
4316: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4317: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4318: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4319: RAISE OKL_API.G_EXCEPTION_ERROR;
4320: END IF;
4321:
4315: END IF;
4316: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4317: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4318: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4319: RAISE OKL_API.G_EXCEPTION_ERROR;
4320: END IF;
4321:
4322: x_return_status := okc_api.G_RET_STS_SUCCESS;
4323: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
4319: RAISE OKL_API.G_EXCEPTION_ERROR;
4320: END IF;
4321:
4322: x_return_status := okc_api.G_RET_STS_SUCCESS;
4323: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
4324: ,x_msg_data => x_msg_data);
4325: EXCEPTION
4326: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4327: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4322: x_return_status := okc_api.G_RET_STS_SUCCESS;
4323: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
4324: ,x_msg_data => x_msg_data);
4325: EXCEPTION
4326: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4327: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4328: p_api_name => l_api_name,
4329: p_pkg_name => G_PKG_NAME,
4330: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4323: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
4324: ,x_msg_data => x_msg_data);
4325: EXCEPTION
4326: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4327: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4328: p_api_name => l_api_name,
4329: p_pkg_name => G_PKG_NAME,
4330: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4331: x_msg_count => x_msg_count,
4326: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4327: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4328: p_api_name => l_api_name,
4329: p_pkg_name => G_PKG_NAME,
4330: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4331: x_msg_count => x_msg_count,
4332: x_msg_data => x_msg_data,
4333: p_api_type => g_api_type);
4334: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4330: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4331: x_msg_count => x_msg_count,
4332: x_msg_data => x_msg_data,
4333: p_api_type => g_api_type);
4334: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4335: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4336: p_api_name => l_api_name,
4337: p_pkg_name => G_PKG_NAME,
4338: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4331: x_msg_count => x_msg_count,
4332: x_msg_data => x_msg_data,
4333: p_api_type => g_api_type);
4334: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4335: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4336: p_api_name => l_api_name,
4337: p_pkg_name => G_PKG_NAME,
4338: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4339: x_msg_count => x_msg_count,
4334: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4335: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4336: p_api_name => l_api_name,
4337: p_pkg_name => G_PKG_NAME,
4338: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4339: x_msg_count => x_msg_count,
4340: x_msg_data => x_msg_data,
4341: p_api_type => g_api_type);
4342: WHEN OTHERS THEN
4339: x_msg_count => x_msg_count,
4340: x_msg_data => x_msg_data,
4341: p_api_type => g_api_type);
4342: WHEN OTHERS THEN
4343: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4344: p_api_name => l_api_name,
4345: p_pkg_name => G_PKG_NAME,
4346: p_exc_name => 'OTHERS',
4347: x_msg_count => x_msg_count,
4372: p_lapv_rec IN c_get_leaseapp_hdr%ROWTYPE)IS
4373: -- Variables Declarations
4374: l_api_version CONSTANT NUMBER DEFAULT 1.0;
4375: l_api_name CONSTANT VARCHAR2(30) DEFAULT 'CRT_PTY_RLS';
4376: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4377: l_debug_enabled VARCHAR2(10);
4378: l_chr_id NUMBER;
4379: l_access_level OKC_ROLE_SOURCES.access_level%TYPE;
4380: row_count NUMBER DEFAULT 0;
4414: AND cpl.rle_code = 'OKL_VENDOR'
4415: AND ROLES.scs_code = 'LEASE'
4416: AND cpl.cle_id IS NULL;
4417: BEGIN
4418: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4419: -- check for logging on PROCEDURE level
4420: l_debug_enabled := okl_debug_pub.check_log_enabled;
4421: -- call START_ACTIVITY to create savepoint, check compatibility
4422: -- and initialize message list
4419: -- check for logging on PROCEDURE level
4420: l_debug_enabled := okl_debug_pub.check_log_enabled;
4421: -- call START_ACTIVITY to create savepoint, check compatibility
4422: -- and initialize message list
4423: l_return_status := OKL_API.START_ACTIVITY( p_api_name => l_api_name
4424: ,p_pkg_name => G_PKG_NAME
4425: ,p_init_msg_list => p_init_msg_list
4426: ,l_api_version => l_api_version
4427: ,p_api_version => p_api_version
4427: ,p_api_version => p_api_version
4428: ,p_api_type => g_api_type
4429: ,x_return_status => x_return_status);
4430: -- check if activity started successfully
4431: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4432: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4433: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4434: RAISE OKL_API.G_EXCEPTION_ERROR;
4435: END IF;
4428: ,p_api_type => g_api_type
4429: ,x_return_status => x_return_status);
4430: -- check if activity started successfully
4431: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4432: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4433: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4434: RAISE OKL_API.G_EXCEPTION_ERROR;
4435: END IF;
4436: l_chr_id := p_chr_id;
4429: ,x_return_status => x_return_status);
4430: -- check if activity started successfully
4431: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4432: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4433: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4434: RAISE OKL_API.G_EXCEPTION_ERROR;
4435: END IF;
4436: l_chr_id := p_chr_id;
4437: l_lapv_rec := p_lapv_rec;
4430: -- check if activity started successfully
4431: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4432: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4433: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4434: RAISE OKL_API.G_EXCEPTION_ERROR;
4435: END IF;
4436: l_chr_id := p_chr_id;
4437: l_lapv_rec := p_lapv_rec;
4438: -- now we attach the party to the header
4451: CLOSE check_party_csr;
4452: IF row_count = 1 THEN
4453: x_return_status := OKC_API.g_ret_sts_error;
4454: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Party_already_exists');
4455: RAISE OKL_API.G_EXCEPTION_ERROR;
4456: END IF;
4457:
4458: -- Validate the JTOT Object code, ID1 and ID2
4459: OPEN role_csr(lp_cplv_rec.rle_code);
4476: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_la_validation_util_pvt.VALIDATE_ROLE_JTOT'
4477: ,'end debug call VALIDATE_ROLE_JTOT');
4478: END IF;
4479: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4480: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4481: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4482: RAISE OKL_API.G_EXCEPTION_ERROR;
4483: END IF;
4484: END IF;
4478: END IF;
4479: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4480: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4481: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4482: RAISE OKL_API.G_EXCEPTION_ERROR;
4483: END IF;
4484: END IF;
4485: IF(l_debug_enabled='Y') THEN
4486: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_k_party_roles_pvt.create_k_party_role'
4503: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_k_party_roles_pvt.create_k_party_role'
4504: ,'end debug call create_k_party_role');
4505: END IF;
4506: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4507: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4508: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4509: RAISE OKL_API.G_EXCEPTION_ERROR;
4510: END IF;
4511: -- Create Lessor
4505: END IF;
4506: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4507: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4508: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4509: RAISE OKL_API.G_EXCEPTION_ERROR;
4510: END IF;
4511: -- Create Lessor
4512: -- now we attach the party to the header
4513: lp_cplv_rec.object_version_number := 1.0;
4525: CLOSE check_party_csr;
4526: IF row_count = 1 THEN
4527: x_return_status := OKC_API.g_ret_sts_error;
4528: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Party_already_exists');
4529: RAISE OKL_API.G_EXCEPTION_ERROR;
4530: END IF;
4531: --Validate the JTOT Object code, ID1 and ID2
4532: OPEN role_csr(lp_cplv_rec.rle_code);
4533: FETCH role_csr INTO l_access_level;
4549: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_la_validation_util_pvt.VALIDATE_ROLE_JTOT'
4550: ,'end debug call VALIDATE_ROLE_JTOT');
4551: END IF;
4552: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4553: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4554: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4555: RAISE OKL_API.G_EXCEPTION_ERROR;
4556: END IF;
4557: END IF;
4551: END IF;
4552: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4553: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4554: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4555: RAISE OKL_API.G_EXCEPTION_ERROR;
4556: END IF;
4557: END IF;
4558: IF(l_debug_enabled='Y') THEN
4559: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_k_party_roles_pvt.create_k_party_role'
4576: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_k_party_roles_pvt.create_k_party_role'
4577: ,'end debug call create_k_party_role');
4578: END IF;
4579: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4580: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4581: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4582: RAISE OKL_API.G_EXCEPTION_ERROR;
4583: END IF;
4584: l_cplv_id := lx_cplv_rec.ID;
4578: END IF;
4579: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4580: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4581: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4582: RAISE OKL_API.G_EXCEPTION_ERROR;
4583: END IF;
4584: l_cplv_id := lx_cplv_rec.ID;
4585: lp_ctcv_rec.object_version_number := 1.0;
4586: lp_ctcv_rec.cpl_id := l_cplv_id;
4635: CLOSE check_party_csr;
4636: IF row_count = 1 THEN
4637: x_return_status := OKC_API.g_ret_sts_error;
4638: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Party_already_exists');
4639: RAISE OKL_API.G_EXCEPTION_ERROR;
4640: END IF;
4641: --Validate the JTOT Object code, ID1 and ID2
4642: OPEN role_csr(lp_cplv_rec.rle_code);
4643: FETCH role_csr INTO l_access_level;
4659: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_la_validation_util_pvt.VALIDATE_ROLE_JTOT'
4660: ,'end debug call VALIDATE_ROLE_JTOT');
4661: END IF;
4662: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4663: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4664: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4665: RAISE OKL_API.G_EXCEPTION_ERROR;
4666: END IF;
4667: END IF;
4661: END IF;
4662: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4663: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4664: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4665: RAISE OKL_API.G_EXCEPTION_ERROR;
4666: END IF;
4667: END IF;
4668: IF(l_debug_enabled='Y') THEN
4669: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_k_party_roles_pvt.create_k_party_role'
4686: ,'end debug call create_k_party_role');
4687: END IF;
4688:
4689: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4690: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4691: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4692: RAISE OKL_API.G_EXCEPTION_ERROR;
4693: END IF;
4694: END LOOP;
4688:
4689: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4690: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4691: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4692: RAISE OKL_API.G_EXCEPTION_ERROR;
4693: END IF;
4694: END LOOP;
4695: x_return_status := okc_api.G_RET_STS_SUCCESS;
4696: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
4692: RAISE OKL_API.G_EXCEPTION_ERROR;
4693: END IF;
4694: END LOOP;
4695: x_return_status := okc_api.G_RET_STS_SUCCESS;
4696: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
4697: ,x_msg_data => x_msg_data);
4698: EXCEPTION
4699: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4700: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4695: x_return_status := okc_api.G_RET_STS_SUCCESS;
4696: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
4697: ,x_msg_data => x_msg_data);
4698: EXCEPTION
4699: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4700: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4701: p_api_name => l_api_name,
4702: p_pkg_name => G_PKG_NAME,
4703: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4696: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
4697: ,x_msg_data => x_msg_data);
4698: EXCEPTION
4699: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4700: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4701: p_api_name => l_api_name,
4702: p_pkg_name => G_PKG_NAME,
4703: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4704: x_msg_count => x_msg_count,
4699: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4700: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4701: p_api_name => l_api_name,
4702: p_pkg_name => G_PKG_NAME,
4703: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4704: x_msg_count => x_msg_count,
4705: x_msg_data => x_msg_data,
4706: p_api_type => g_api_type);
4707: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4703: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4704: x_msg_count => x_msg_count,
4705: x_msg_data => x_msg_data,
4706: p_api_type => g_api_type);
4707: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4708: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4709: p_api_name => l_api_name,
4710: p_pkg_name => G_PKG_NAME,
4711: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4704: x_msg_count => x_msg_count,
4705: x_msg_data => x_msg_data,
4706: p_api_type => g_api_type);
4707: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4708: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4709: p_api_name => l_api_name,
4710: p_pkg_name => G_PKG_NAME,
4711: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4712: x_msg_count => x_msg_count,
4707: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4708: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4709: p_api_name => l_api_name,
4710: p_pkg_name => G_PKG_NAME,
4711: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4712: x_msg_count => x_msg_count,
4713: x_msg_data => x_msg_data,
4714: p_api_type => g_api_type);
4715: WHEN OTHERS THEN
4712: x_msg_count => x_msg_count,
4713: x_msg_data => x_msg_data,
4714: p_api_type => g_api_type);
4715: WHEN OTHERS THEN
4716: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4717: p_api_name => l_api_name,
4718: p_pkg_name => G_PKG_NAME,
4719: p_exc_name => 'OTHERS',
4720: x_msg_count => x_msg_count,
4747: x_chr_id OUT NOCOPY NUMBER)IS
4748: -- Variables Declarations
4749: l_api_version CONSTANT NUMBER DEFAULT 1.0;
4750: l_api_name CONSTANT VARCHAR2(30) DEFAULT 'CRT_CNT_HDR';
4751: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4752: l_debug_enabled VARCHAR2(10);
4753: l_lapv_rec c_get_leaseapp_hdr%ROWTYPE;
4754: -- Record/Table Type Declarations
4755: lp_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
4771: AND qcl.LANGUAGE = USERENV('LANG');
4772: -- End (Bug 5142890)
4773:
4774: BEGIN
4775: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4776: -- check for logging on PROCEDURE level
4777: l_debug_enabled := okl_debug_pub.check_log_enabled;
4778: -- call START_ACTIVITY to create savepoint, check compatibility
4779: -- and initialize message list
4776: -- check for logging on PROCEDURE level
4777: l_debug_enabled := okl_debug_pub.check_log_enabled;
4778: -- call START_ACTIVITY to create savepoint, check compatibility
4779: -- and initialize message list
4780: l_return_status := OKL_API.START_ACTIVITY( p_api_name => l_api_name
4781: ,p_pkg_name => G_PKG_NAME
4782: ,p_init_msg_list => p_init_msg_list
4783: ,l_api_version => l_api_version
4784: ,p_api_version => p_api_version
4784: ,p_api_version => p_api_version
4785: ,p_api_type => g_api_type
4786: ,x_return_status => x_return_status);
4787: -- check if activity started successfully
4788: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4789: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4790: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4791: RAISE OKL_API.G_EXCEPTION_ERROR;
4792: END IF;
4785: ,p_api_type => g_api_type
4786: ,x_return_status => x_return_status);
4787: -- check if activity started successfully
4788: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4789: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4790: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4791: RAISE OKL_API.G_EXCEPTION_ERROR;
4792: END IF;
4793: l_lapv_rec := p_lapv_rec;
4786: ,x_return_status => x_return_status);
4787: -- check if activity started successfully
4788: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4789: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4790: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4791: RAISE OKL_API.G_EXCEPTION_ERROR;
4792: END IF;
4793: l_lapv_rec := p_lapv_rec;
4794: lp_chrv_rec.id := NULL;
4787: -- check if activity started successfully
4788: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4789: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4790: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4791: RAISE OKL_API.G_EXCEPTION_ERROR;
4792: END IF;
4793: l_lapv_rec := p_lapv_rec;
4794: lp_chrv_rec.id := NULL;
4795: lp_chrv_rec.scs_code := 'LEASE';
4858: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.OKL_CONTRACT_PUB.validate_contract_header'
4859: ,'end debug call validate_contract_header');
4860: END IF;
4861: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4862: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4863: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4864: RAISE OKL_API.G_EXCEPTION_ERROR;
4865: END IF;
4866: IF(l_debug_enabled='Y') THEN
4860: END IF;
4861: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4862: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4863: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4864: RAISE OKL_API.G_EXCEPTION_ERROR;
4865: END IF;
4866: IF(l_debug_enabled='Y') THEN
4867: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.OKL_CONTRACT_PUB.create_contract_header'
4868: ,'begin debug call create_contract_header');
4881: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.OKL_CONTRACT_PUB.create_contract_header'
4882: ,'end debug call create_contract_header');
4883: END IF;
4884: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4885: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4886: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4887: RAISE OKL_API.G_EXCEPTION_ERROR;
4888: END IF;
4889: x_chr_id := lx_chrv_rec.id;
4883: END IF;
4884: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4885: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4886: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4887: RAISE OKL_API.G_EXCEPTION_ERROR;
4888: END IF;
4889: x_chr_id := lx_chrv_rec.id;
4890: -- copy master lease
4891: IF( l_lapv_rec.MASTER_LEASE_ID IS NOT NULL) THEN
4910: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.OKL_OKC_MIGRATION_PVT.create_governance'
4911: ,'end debug call create_governance');
4912: END IF;
4913: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4914: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4915: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4916: RAISE OKL_API.G_EXCEPTION_ERROR;
4917: END IF;
4918: END IF;
4912: END IF;
4913: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4914: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4915: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4916: RAISE OKL_API.G_EXCEPTION_ERROR;
4917: END IF;
4918: END IF;
4919: -- copy credit line
4920: IF( l_lapv_rec.CREDIT_LINE_ID IS NOT NULL) THEN
4939: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.OKL_OKC_MIGRATION_PVT.create_governance'
4940: ,'end debug call create_governance');
4941: END IF;
4942: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4943: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4944: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4945: RAISE OKL_API.G_EXCEPTION_ERROR;
4946: END IF;
4947: END IF;
4941: END IF;
4942: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4943: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4944: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4945: RAISE OKL_API.G_EXCEPTION_ERROR;
4946: END IF;
4947: END IF;
4948: x_return_status := okc_api.G_RET_STS_SUCCESS;
4949: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
4945: RAISE OKL_API.G_EXCEPTION_ERROR;
4946: END IF;
4947: END IF;
4948: x_return_status := okc_api.G_RET_STS_SUCCESS;
4949: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
4950: ,x_msg_data => x_msg_data);
4951: EXCEPTION
4952: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4953: IF (l_qcl_csr%ISOPEN) THEN
4948: x_return_status := okc_api.G_RET_STS_SUCCESS;
4949: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
4950: ,x_msg_data => x_msg_data);
4951: EXCEPTION
4952: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4953: IF (l_qcl_csr%ISOPEN) THEN
4954: CLOSE l_qcl_csr;
4955: END IF;
4956: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4952: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4953: IF (l_qcl_csr%ISOPEN) THEN
4954: CLOSE l_qcl_csr;
4955: END IF;
4956: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4957: p_api_name => l_api_name,
4958: p_pkg_name => G_PKG_NAME,
4959: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4960: x_msg_count => x_msg_count,
4955: END IF;
4956: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4957: p_api_name => l_api_name,
4958: p_pkg_name => G_PKG_NAME,
4959: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4960: x_msg_count => x_msg_count,
4961: x_msg_data => x_msg_data,
4962: p_api_type => g_api_type);
4963: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4959: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4960: x_msg_count => x_msg_count,
4961: x_msg_data => x_msg_data,
4962: p_api_type => g_api_type);
4963: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4964: IF (l_qcl_csr%ISOPEN) THEN
4965: CLOSE l_qcl_csr;
4966: END IF;
4967: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4963: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4964: IF (l_qcl_csr%ISOPEN) THEN
4965: CLOSE l_qcl_csr;
4966: END IF;
4967: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4968: p_api_name => l_api_name,
4969: p_pkg_name => G_PKG_NAME,
4970: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4971: x_msg_count => x_msg_count,
4966: END IF;
4967: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4968: p_api_name => l_api_name,
4969: p_pkg_name => G_PKG_NAME,
4970: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4971: x_msg_count => x_msg_count,
4972: x_msg_data => x_msg_data,
4973: p_api_type => g_api_type);
4974: WHEN OTHERS THEN
4974: WHEN OTHERS THEN
4975: IF (l_qcl_csr%ISOPEN) THEN
4976: CLOSE l_qcl_csr;
4977: END IF;
4978: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4979: p_api_name => l_api_name,
4980: p_pkg_name => G_PKG_NAME,
4981: p_exc_name => 'OTHERS',
4982: x_msg_count => x_msg_count,
5019: x_contract_number OUT NOCOPY VARCHAR2)IS
5020: -- Variables Declarations
5021: l_api_version CONSTANT NUMBER DEFAULT 1.0;
5022: l_api_name CONSTANT VARCHAR2(30) DEFAULT 'CRT_CNT';
5023: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5024: l_debug_enabled VARCHAR2(10);
5025: l_chr_id NUMBER;
5026: l_parent_object_code VARCHAR2(15);
5027: l_parent_object_id NUMBER;
5054: FROM okl_lease_quotes_b
5055: WHERE id = p_parent_object_id;
5056:
5057: BEGIN
5058: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5059: -- check for logging on PROCEDURE level
5060: l_debug_enabled := okl_debug_pub.check_log_enabled;
5061: -- call START_ACTIVITY to create savepoint, check compatibility
5062: -- and initialize message list
5059: -- check for logging on PROCEDURE level
5060: l_debug_enabled := okl_debug_pub.check_log_enabled;
5061: -- call START_ACTIVITY to create savepoint, check compatibility
5062: -- and initialize message list
5063: l_return_status := OKL_API.START_ACTIVITY( p_api_name => l_api_name
5064: ,p_pkg_name => G_PKG_NAME
5065: ,p_init_msg_list => p_init_msg_list
5066: ,l_api_version => l_api_version
5067: ,p_api_version => p_api_version
5067: ,p_api_version => p_api_version
5068: ,p_api_type => g_api_type
5069: ,x_return_status => x_return_status);
5070: -- check if activity started successfully
5071: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5072: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5073: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5074: RAISE OKL_API.G_EXCEPTION_ERROR;
5075: END IF;
5068: ,p_api_type => g_api_type
5069: ,x_return_status => x_return_status);
5070: -- check if activity started successfully
5071: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5072: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5073: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5074: RAISE OKL_API.G_EXCEPTION_ERROR;
5075: END IF;
5076:
5069: ,x_return_status => x_return_status);
5070: -- check if activity started successfully
5071: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5072: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5073: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5074: RAISE OKL_API.G_EXCEPTION_ERROR;
5075: END IF;
5076:
5077: /* Commented by rravikir (Bug 5086044)
5070: -- check if activity started successfully
5071: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5072: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5073: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5074: RAISE OKL_API.G_EXCEPTION_ERROR;
5075: END IF;
5076:
5077: /* Commented by rravikir (Bug 5086044)
5078:
5113: p_scs_code => 'LEASE',
5114: p_modifier => null,
5115: x_return_status => x_return_status,
5116: x_contract_number => x_contract_number);
5117: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5118: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5119: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5120: RAISE OKL_API.G_EXCEPTION_ERROR;
5121: END IF;
5114: p_modifier => null,
5115: x_return_status => x_return_status,
5116: x_contract_number => x_contract_number);
5117: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5118: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5119: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5120: RAISE OKL_API.G_EXCEPTION_ERROR;
5121: END IF;
5122:
5115: x_return_status => x_return_status,
5116: x_contract_number => x_contract_number);
5117: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5118: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5119: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5120: RAISE OKL_API.G_EXCEPTION_ERROR;
5121: END IF;
5122:
5123: l_contract_number := x_contract_number;
5116: x_contract_number => x_contract_number);
5117: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5118: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5119: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5120: RAISE OKL_API.G_EXCEPTION_ERROR;
5121: END IF;
5122:
5123: l_contract_number := x_contract_number;
5124: ELSE
5169: CLOSE c_get_leaseapp_hdr;
5170:
5171: OKL_LEASE_APP_PVT.CREATE_CONTRACT_VAL(
5172: p_api_version => p_api_version
5173: ,p_init_msg_list => OKL_API.G_FALSE
5174: ,x_return_status => x_return_status
5175: ,x_msg_count => x_msg_count
5176: ,x_msg_data => x_msg_data
5177: ,p_lap_id => l_lapv_rec.ID);
5175: ,x_msg_count => x_msg_count
5176: ,x_msg_data => x_msg_data
5177: ,p_lap_id => l_lapv_rec.ID);
5178:
5179: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5180: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5181: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5182: RAISE OKL_API.G_EXCEPTION_ERROR;
5183: END IF;
5176: ,x_msg_data => x_msg_data
5177: ,p_lap_id => l_lapv_rec.ID);
5178:
5179: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5180: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5181: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5182: RAISE OKL_API.G_EXCEPTION_ERROR;
5183: END IF;
5184:
5177: ,p_lap_id => l_lapv_rec.ID);
5178:
5179: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5180: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5181: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5182: RAISE OKL_API.G_EXCEPTION_ERROR;
5183: END IF;
5184:
5185: ELSIF l_parent_object_code = 'LEASEOPP' THEN
5178:
5179: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5180: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5181: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5182: RAISE OKL_API.G_EXCEPTION_ERROR;
5183: END IF;
5184:
5185: ELSIF l_parent_object_code = 'LEASEOPP' THEN
5186:
5228: CLOSE c_get_leaseopp_hdr;
5229:
5230: CREATE_CONTRACT_VAL(
5231: p_api_version => p_api_version
5232: ,p_init_msg_list => OKL_API.G_FALSE
5233: ,x_return_status => x_return_status
5234: ,x_msg_count => x_msg_count
5235: ,x_msg_data => x_msg_data
5236: ,p_quote_id => p_parent_object_id);
5234: ,x_msg_count => x_msg_count
5235: ,x_msg_data => x_msg_data
5236: ,p_quote_id => p_parent_object_id);
5237:
5238: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5239: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5240: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5241: RAISE OKL_API.G_EXCEPTION_ERROR;
5242: END IF;
5235: ,x_msg_data => x_msg_data
5236: ,p_quote_id => p_parent_object_id);
5237:
5238: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5239: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5240: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5241: RAISE OKL_API.G_EXCEPTION_ERROR;
5242: END IF;
5243: END IF;
5236: ,p_quote_id => p_parent_object_id);
5237:
5238: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5239: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5240: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5241: RAISE OKL_API.G_EXCEPTION_ERROR;
5242: END IF;
5243: END IF;
5244:
5237:
5238: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5239: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5240: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5241: RAISE OKL_API.G_EXCEPTION_ERROR;
5242: END IF;
5243: END IF;
5244:
5245: IF l_lapv_rec.id IS NULL THEN
5242: END IF;
5243: END IF;
5244:
5245: IF l_lapv_rec.id IS NULL THEN
5246: OKL_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'quote_chr_id_not_found');
5247: x_return_status := OKL_API.g_ret_sts_error;
5248: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5249: END IF;
5250: IF(l_debug_enabled='Y') THEN
5243: END IF;
5244:
5245: IF l_lapv_rec.id IS NULL THEN
5246: OKL_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'quote_chr_id_not_found');
5247: x_return_status := OKL_API.g_ret_sts_error;
5248: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5249: END IF;
5250: IF(l_debug_enabled='Y') THEN
5251: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_contract_header'
5244:
5245: IF l_lapv_rec.id IS NULL THEN
5246: OKL_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'quote_chr_id_not_found');
5247: x_return_status := OKL_API.g_ret_sts_error;
5248: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5249: END IF;
5250: IF(l_debug_enabled='Y') THEN
5251: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_contract_header'
5252: ,'begin debug call create_contract_header');
5263: p_scs_code => 'LEASE',
5264: p_modifier => null,
5265: x_return_status => x_return_status,
5266: x_contract_number => x_contract_number);
5267: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5268: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5269: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5270: RAISE OKL_API.G_EXCEPTION_ERROR;
5271: END IF;
5264: p_modifier => null,
5265: x_return_status => x_return_status,
5266: x_contract_number => x_contract_number);
5267: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5268: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5269: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5270: RAISE OKL_API.G_EXCEPTION_ERROR;
5271: END IF;
5272:
5265: x_return_status => x_return_status,
5266: x_contract_number => x_contract_number);
5267: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5268: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5269: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5270: RAISE OKL_API.G_EXCEPTION_ERROR;
5271: END IF;
5272:
5273: l_contract_number := x_contract_number;
5266: x_contract_number => x_contract_number);
5267: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5268: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5269: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5270: RAISE OKL_API.G_EXCEPTION_ERROR;
5271: END IF;
5272:
5273: l_contract_number := x_contract_number;
5274: ELSE
5290: IF(l_debug_enabled='Y') THEN
5291: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_contract_header'
5292: ,'end debug call create_contract_header');
5293: END IF;
5294: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5295: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5296: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5297: RAISE OKL_API.G_EXCEPTION_ERROR;
5298: END IF;
5291: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_contract_header'
5292: ,'end debug call create_contract_header');
5293: END IF;
5294: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5295: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5296: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5297: RAISE OKL_API.G_EXCEPTION_ERROR;
5298: END IF;
5299: IF(l_debug_enabled='Y') THEN
5292: ,'end debug call create_contract_header');
5293: END IF;
5294: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5295: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5296: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5297: RAISE OKL_API.G_EXCEPTION_ERROR;
5298: END IF;
5299: IF(l_debug_enabled='Y') THEN
5300: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_party_roles'
5293: END IF;
5294: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5295: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5296: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5297: RAISE OKL_API.G_EXCEPTION_ERROR;
5298: END IF;
5299: IF(l_debug_enabled='Y') THEN
5300: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_party_roles'
5301: ,'begin debug call create_party_roles');
5312: IF(l_debug_enabled='Y') THEN
5313: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_ccreate_party_roles'
5314: ,'end debug call create_party_roles');
5315: END IF;
5316: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5317: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5318: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5319: RAISE OKL_API.G_EXCEPTION_ERROR;
5320: END IF;
5313: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_ccreate_party_roles'
5314: ,'end debug call create_party_roles');
5315: END IF;
5316: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5317: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5318: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5319: RAISE OKL_API.G_EXCEPTION_ERROR;
5320: END IF;
5321: IF(l_debug_enabled='Y') THEN
5314: ,'end debug call create_party_roles');
5315: END IF;
5316: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5317: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5318: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5319: RAISE OKL_API.G_EXCEPTION_ERROR;
5320: END IF;
5321: IF(l_debug_enabled='Y') THEN
5322: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_pcreate_rulesarty_roles'
5315: END IF;
5316: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5317: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5318: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5319: RAISE OKL_API.G_EXCEPTION_ERROR;
5320: END IF;
5321: IF(l_debug_enabled='Y') THEN
5322: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_pcreate_rulesarty_roles'
5323: ,'begin debug call create_rules');
5333: IF(l_debug_enabled='Y') THEN
5334: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_rules'
5335: ,'end debug call create_rules');
5336: END IF;
5337: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5338: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5339: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5340: RAISE OKL_API.G_EXCEPTION_ERROR;
5341: END IF;
5334: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_rules'
5335: ,'end debug call create_rules');
5336: END IF;
5337: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5338: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5339: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5340: RAISE OKL_API.G_EXCEPTION_ERROR;
5341: END IF;
5342: --create asset lines
5335: ,'end debug call create_rules');
5336: END IF;
5337: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5338: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5339: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5340: RAISE OKL_API.G_EXCEPTION_ERROR;
5341: END IF;
5342: --create asset lines
5343: IF(l_debug_enabled='Y') THEN
5336: END IF;
5337: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5338: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5339: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5340: RAISE OKL_API.G_EXCEPTION_ERROR;
5341: END IF;
5342: --create asset lines
5343: IF(l_debug_enabled='Y') THEN
5344: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_asset_lines'
5356: IF(l_debug_enabled='Y') THEN
5357: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_asset_lines'
5358: ,'end debug call create_asset_lines');
5359: END IF;
5360: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5361: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5362: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5363: RAISE OKL_API.G_EXCEPTION_ERROR;
5364: END IF;
5357: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_asset_lines'
5358: ,'end debug call create_asset_lines');
5359: END IF;
5360: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5361: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5362: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5363: RAISE OKL_API.G_EXCEPTION_ERROR;
5364: END IF;
5365:
5358: ,'end debug call create_asset_lines');
5359: END IF;
5360: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5361: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5362: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5363: RAISE OKL_API.G_EXCEPTION_ERROR;
5364: END IF;
5365:
5366: --create fee lines
5359: END IF;
5360: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5361: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5362: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5363: RAISE OKL_API.G_EXCEPTION_ERROR;
5364: END IF;
5365:
5366: --create fee lines
5367: IF(l_debug_enabled='Y') THEN
5378: IF(l_debug_enabled='Y') THEN
5379: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_fee_lines'
5380: ,'end debug call create_fee_lines');
5381: END IF;
5382: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5383: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5384: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5385: RAISE OKL_API.G_EXCEPTION_ERROR;
5386: END IF;
5379: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_fee_lines'
5380: ,'end debug call create_fee_lines');
5381: END IF;
5382: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5383: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5384: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5385: RAISE OKL_API.G_EXCEPTION_ERROR;
5386: END IF;
5387:
5380: ,'end debug call create_fee_lines');
5381: END IF;
5382: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5383: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5384: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5385: RAISE OKL_API.G_EXCEPTION_ERROR;
5386: END IF;
5387:
5388: --Start : Added by rravikir for Bug#6707125
5381: END IF;
5382: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5383: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5384: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5385: RAISE OKL_API.G_EXCEPTION_ERROR;
5386: END IF;
5387:
5388: --Start : Added by rravikir for Bug#6707125
5389: --create asset subsidy
5401: IF(l_debug_enabled='Y') THEN
5402: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create asset subsidy'
5403: ,'end debug call create_asset_subsidy');
5404: END IF;
5405: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5406: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5407: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5408: RAISE OKL_API.G_EXCEPTION_ERROR;
5409: END IF;
5402: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create asset subsidy'
5403: ,'end debug call create_asset_subsidy');
5404: END IF;
5405: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5406: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5407: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5408: RAISE OKL_API.G_EXCEPTION_ERROR;
5409: END IF;
5410: --End : Added by rravikir for Bug#6707125
5403: ,'end debug call create_asset_subsidy');
5404: END IF;
5405: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5406: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5407: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5408: RAISE OKL_API.G_EXCEPTION_ERROR;
5409: END IF;
5410: --End : Added by rravikir for Bug#6707125
5411:
5404: END IF;
5405: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5406: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5407: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5408: RAISE OKL_API.G_EXCEPTION_ERROR;
5409: END IF;
5410: --End : Added by rravikir for Bug#6707125
5411:
5412: --create service lines
5424: IF(l_debug_enabled='Y') THEN
5425: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_service_lines'
5426: ,'end debug call create_service_lines');
5427: END IF;
5428: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5429: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5430: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5431: RAISE OKL_API.G_EXCEPTION_ERROR;
5432: END IF;
5425: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_service_lines'
5426: ,'end debug call create_service_lines');
5427: END IF;
5428: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5429: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5430: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5431: RAISE OKL_API.G_EXCEPTION_ERROR;
5432: END IF;
5433: IF l_parent_object_code = 'LEASEAPP' THEN
5426: ,'end debug call create_service_lines');
5427: END IF;
5428: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5429: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5430: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5431: RAISE OKL_API.G_EXCEPTION_ERROR;
5432: END IF;
5433: IF l_parent_object_code = 'LEASEAPP' THEN
5434: IF(l_debug_enabled='Y') THEN
5427: END IF;
5428: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5429: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5430: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5431: RAISE OKL_API.G_EXCEPTION_ERROR;
5432: END IF;
5433: IF l_parent_object_code = 'LEASEAPP' THEN
5434: IF(l_debug_enabled='Y') THEN
5435: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_insurance_lines'
5444: IF(l_debug_enabled='Y') THEN
5445: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_insurance_lines'
5446: ,'end debug call create_insurance_lines');
5447: END IF;
5448: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5449: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5450: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5451: RAISE OKL_API.G_EXCEPTION_ERROR;
5452: END IF;
5445: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_insurance_lines'
5446: ,'end debug call create_insurance_lines');
5447: END IF;
5448: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5449: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5450: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5451: RAISE OKL_API.G_EXCEPTION_ERROR;
5452: END IF;
5453: --asawanka bug 4930456 changes start
5446: ,'end debug call create_insurance_lines');
5447: END IF;
5448: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5449: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5450: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5451: RAISE OKL_API.G_EXCEPTION_ERROR;
5452: END IF;
5453: --asawanka bug 4930456 changes start
5454: --create the cheklist for the contract
5447: END IF;
5448: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5449: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5450: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5451: RAISE OKL_API.G_EXCEPTION_ERROR;
5452: END IF;
5453: --asawanka bug 4930456 changes start
5454: --create the cheklist for the contract
5455: OKL_CHECKLIST_PVT.CREATE_CONTRACT_CHECKLIST(p_api_version => p_api_version,
5458: x_msg_count => x_msg_count,
5459: x_msg_data => x_msg_data,
5460: p_chr_id => l_chr_id);
5461:
5462: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5463: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5464: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5465: RAISE OKL_API.G_EXCEPTION_ERROR;
5466: END IF;
5459: x_msg_data => x_msg_data,
5460: p_chr_id => l_chr_id);
5461:
5462: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5463: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5464: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5465: RAISE OKL_API.G_EXCEPTION_ERROR;
5466: END IF;
5467: --asawanka bug 4930456 changes end
5460: p_chr_id => l_chr_id);
5461:
5462: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5463: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5464: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5465: RAISE OKL_API.G_EXCEPTION_ERROR;
5466: END IF;
5467: --asawanka bug 4930456 changes end
5468: --Update Lease App status
5461:
5462: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5463: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5464: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5465: RAISE OKL_API.G_EXCEPTION_ERROR;
5466: END IF;
5467: --asawanka bug 4930456 changes end
5468: --Update Lease App status
5469: IF(l_debug_enabled='Y') THEN
5480: IF(l_debug_enabled='Y') THEN
5481: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.update_leaseapp_status'
5482: ,'end debug call update_leaseapp_status');
5483: END IF;
5484: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5485: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5486: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5487: RAISE OKL_API.G_EXCEPTION_ERROR;
5488: END IF;
5481: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.update_leaseapp_status'
5482: ,'end debug call update_leaseapp_status');
5483: END IF;
5484: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5485: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5486: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5487: RAISE OKL_API.G_EXCEPTION_ERROR;
5488: END IF;
5489:
5482: ,'end debug call update_leaseapp_status');
5483: END IF;
5484: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5485: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5486: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5487: RAISE OKL_API.G_EXCEPTION_ERROR;
5488: END IF;
5489:
5490: END IF; --Lease App end if
5483: END IF;
5484: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5485: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5486: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5487: RAISE OKL_API.G_EXCEPTION_ERROR;
5488: END IF;
5489:
5490: END IF; --Lease App end if
5491: x_chr_id := l_chr_id;
5504: ,x_msg_data => x_msg_data
5505: ,p_event_name => p_event_name
5506: ,p_parameters => l_parameter_list);
5507:
5508: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5509: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5510: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5511: RAISE OKL_API.G_EXCEPTION_ERROR;
5512: END IF;
5505: ,p_event_name => p_event_name
5506: ,p_parameters => l_parameter_list);
5507:
5508: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5509: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5510: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5511: RAISE OKL_API.G_EXCEPTION_ERROR;
5512: END IF;
5513:
5506: ,p_parameters => l_parameter_list);
5507:
5508: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5509: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5510: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5511: RAISE OKL_API.G_EXCEPTION_ERROR;
5512: END IF;
5513:
5514: -- Added by rravikir (Bug 4901292)
5507:
5508: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5509: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5510: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5511: RAISE OKL_API.G_EXCEPTION_ERROR;
5512: END IF;
5513:
5514: -- Added by rravikir (Bug 4901292)
5515: -- Business event for the Contract Created with Lease Application as Source
5523: ,x_msg_count => x_msg_count
5524: ,x_msg_data => x_msg_data
5525: ,p_event_name => l_contractevent_name
5526: ,p_parameters => l_parameter_list);
5527: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5528: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5529: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5530: RAISE OKL_API.G_EXCEPTION_ERROR;
5531: END IF;
5524: ,x_msg_data => x_msg_data
5525: ,p_event_name => l_contractevent_name
5526: ,p_parameters => l_parameter_list);
5527: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5528: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5529: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5530: RAISE OKL_API.G_EXCEPTION_ERROR;
5531: END IF;
5532: -- End Bug 4901292
5525: ,p_event_name => l_contractevent_name
5526: ,p_parameters => l_parameter_list);
5527: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5528: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5529: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5530: RAISE OKL_API.G_EXCEPTION_ERROR;
5531: END IF;
5532: -- End Bug 4901292
5533:
5526: ,p_parameters => l_parameter_list);
5527: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5528: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5529: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5530: RAISE OKL_API.G_EXCEPTION_ERROR;
5531: END IF;
5532: -- End Bug 4901292
5533:
5534: END IF;
5534: END IF;
5535: -- Bug#4741121 - viselvar - Modified - End
5536:
5537: x_return_status := okc_api.G_RET_STS_SUCCESS;
5538: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
5539: ,x_msg_data => x_msg_data);
5540: EXCEPTION
5541: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5542: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5537: x_return_status := okc_api.G_RET_STS_SUCCESS;
5538: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
5539: ,x_msg_data => x_msg_data);
5540: EXCEPTION
5541: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5542: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5543: p_api_name => l_api_name,
5544: p_pkg_name => G_PKG_NAME,
5545: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5538: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
5539: ,x_msg_data => x_msg_data);
5540: EXCEPTION
5541: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5542: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5543: p_api_name => l_api_name,
5544: p_pkg_name => G_PKG_NAME,
5545: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5546: x_msg_count => x_msg_count,
5541: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5542: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5543: p_api_name => l_api_name,
5544: p_pkg_name => G_PKG_NAME,
5545: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5546: x_msg_count => x_msg_count,
5547: x_msg_data => x_msg_data,
5548: p_api_type => g_api_type);
5549: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5545: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5546: x_msg_count => x_msg_count,
5547: x_msg_data => x_msg_data,
5548: p_api_type => g_api_type);
5549: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5550: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5551: p_api_name => l_api_name,
5552: p_pkg_name => G_PKG_NAME,
5553: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5546: x_msg_count => x_msg_count,
5547: x_msg_data => x_msg_data,
5548: p_api_type => g_api_type);
5549: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5550: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5551: p_api_name => l_api_name,
5552: p_pkg_name => G_PKG_NAME,
5553: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5554: x_msg_count => x_msg_count,
5549: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5550: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5551: p_api_name => l_api_name,
5552: p_pkg_name => G_PKG_NAME,
5553: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5554: x_msg_count => x_msg_count,
5555: x_msg_data => x_msg_data,
5556: p_api_type => g_api_type);
5557: WHEN OTHERS THEN
5554: x_msg_count => x_msg_count,
5555: x_msg_data => x_msg_data,
5556: p_api_type => g_api_type);
5557: WHEN OTHERS THEN
5558: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5559: p_api_name => l_api_name,
5560: p_pkg_name => G_PKG_NAME,
5561: p_exc_name => 'OTHERS',
5562: x_msg_count => x_msg_count,