3: -------------------------------------------------------------------------------------------------
4: -- GLOBAL MESSAGE CONSTANTS
5: -------------------------------------------------------------------------------------------------
6: G_INVALID_CRITERIA CONSTANT VARCHAR2(200) := 'OKL_LLA_INVALID_CRITERIA';
7: G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
8: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
9: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
10: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXP_ERROR';
11: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
4: -- GLOBAL MESSAGE CONSTANTS
5: -------------------------------------------------------------------------------------------------
6: G_INVALID_CRITERIA CONSTANT VARCHAR2(200) := 'OKL_LLA_INVALID_CRITERIA';
7: G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
8: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
9: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
10: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXP_ERROR';
11: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
12: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
5: -------------------------------------------------------------------------------------------------
6: G_INVALID_CRITERIA CONSTANT VARCHAR2(200) := 'OKL_LLA_INVALID_CRITERIA';
7: G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
8: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
9: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
10: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXP_ERROR';
11: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
12: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
13: -------------------------------------------------------------------------------------------------
29: -------------------------------------------------------------------------------------------------
30: -- GLOBAL VARIABLES
31: -------------------------------------------------------------------------------------------------
32: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_DEAL_ASSET_PVT';
33: G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
34: -------------------------------------------------------------------------------------------------
35:
36: TYPE fin_line_tab_type IS TABLE OF NUMBER;
37:
46: TYPE asset_tbl_type IS TABLE OF asset_rec_type INDEX BY BINARY_INTEGER;
47:
48: PROCEDURE Create_all_line(
49: p_api_version IN NUMBER,
50: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
51: x_return_status OUT NOCOPY VARCHAR2,
52: x_msg_count OUT NOCOPY NUMBER,
53: x_msg_data OUT NOCOPY VARCHAR2,
54: p_las_rec IN las_rec_type,
91: WHERE KLE_ID = p_clev_fa_id
92: AND ASSET_NUMBER = p_asset_number;
93:
94: BEGIN
95: x_return_status := OKL_API.G_RET_STS_SUCCESS;
96: -- Call start_activity to create savepoint, check compatibility and initialize message list
97: x_return_status := OKL_API.START_ACTIVITY(
98: p_api_name => l_api_name,
99: p_pkg_name => g_pkg_name,
93:
94: BEGIN
95: x_return_status := OKL_API.G_RET_STS_SUCCESS;
96: -- Call start_activity to create savepoint, check compatibility and initialize message list
97: x_return_status := OKL_API.START_ACTIVITY(
98: p_api_name => l_api_name,
99: p_pkg_name => g_pkg_name,
100: p_init_msg_list => p_init_msg_list,
101: l_api_version => l_api_version,
103: p_api_type => g_api_type,
104: x_return_status => x_return_status);
105:
106: -- check if activity started successfully
107: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
108: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
109: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
110: RAISE OKL_API.G_EXCEPTION_ERROR;
111: END IF;
104: x_return_status => x_return_status);
105:
106: -- check if activity started successfully
107: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
108: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
109: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
110: RAISE OKL_API.G_EXCEPTION_ERROR;
111: END IF;
112:
105:
106: -- check if activity started successfully
107: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
108: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
109: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
110: RAISE OKL_API.G_EXCEPTION_ERROR;
111: END IF;
112:
113: l_cimv_model_rec.object1_id1 := p_las_rec.inventory_item_id;
106: -- check if activity started successfully
107: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
108: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
109: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
110: RAISE OKL_API.G_EXCEPTION_ERROR;
111: END IF;
112:
113: l_cimv_model_rec.object1_id1 := p_las_rec.inventory_item_id;
114: l_clev_fin_rec.exception_yn := 'N';
123: p_amount => p_las_rec.residual_value,
124: p_currency_code => p_las_rec.currency_code
125: );
126: IF (l_residual_value IS NULL) THEN
127: OKL_API.set_message(p_app_name => G_APP_NAME,
128: p_msg_name => G_AMOUNT_FORMAT,
129: p_token1 => G_COL_NAME_TOKEN,
130: p_token1_value => 'OKC_K_LINES.RESIDUAL_VALUE');
131: RAISE OKL_API.G_EXCEPTION_ERROR;
127: OKL_API.set_message(p_app_name => G_APP_NAME,
128: p_msg_name => G_AMOUNT_FORMAT,
129: p_token1 => G_COL_NAME_TOKEN,
130: p_token1_value => 'OKC_K_LINES.RESIDUAL_VALUE');
131: RAISE OKL_API.G_EXCEPTION_ERROR;
132: ELSE
133: l_klev_fin_rec.residual_value := l_residual_value;
134: END IF;
135: -- gboomina added for Bug 6369401 - Start
145: p_amount => p_las_rec.guranteed_amount,
146: p_currency_code => p_las_rec.currency_code
147: );
148: IF (l_guranteed_amount IS NULL) THEN
149: OKL_API.set_message(p_app_name => G_APP_NAME,
150: p_msg_name => G_AMOUNT_FORMAT,
151: p_token1 => G_COL_NAME_TOKEN,
152: p_token1_value => 'OKC_K_LINES.GURANTEED_AMOUNT');
153: RAISE OKL_API.G_EXCEPTION_ERROR;
149: OKL_API.set_message(p_app_name => G_APP_NAME,
150: p_msg_name => G_AMOUNT_FORMAT,
151: p_token1 => G_COL_NAME_TOKEN,
152: p_token1_value => 'OKC_K_LINES.GURANTEED_AMOUNT');
153: RAISE OKL_API.G_EXCEPTION_ERROR;
154: ELSE
155: l_klev_fin_rec.residual_grnty_amount := l_guranteed_amount;
156: END IF;
157: END IF;
187: l_talv_fa_rec.asset_number := p_las_rec.asset_number;
188: l_talv_fa_rec.description := p_las_rec.description;
189:
190: IF ((p_las_rec.deal_type = 'LEASE') AND (p_las_rec.fa_location_id IS NULL)) THEN
191: OKL_API.set_message(p_app_name => G_APP_NAME,
192: p_msg_name => G_REQUIRED_VALUE,
193: p_token1 => G_COL_NAME_TOKEN,
194: p_token1_value => 'OKL_TXL_ASSETS_B.FA_LOCATION_ID');
195: RAISE OKL_API.G_EXCEPTION_ERROR;
191: OKL_API.set_message(p_app_name => G_APP_NAME,
192: p_msg_name => G_REQUIRED_VALUE,
193: p_token1 => G_COL_NAME_TOKEN,
194: p_token1_value => 'OKL_TXL_ASSETS_B.FA_LOCATION_ID');
195: RAISE OKL_API.G_EXCEPTION_ERROR;
196: ELSE
197: l_talv_fa_rec.fa_location_id := p_las_rec.fa_location_id;
198: END IF;
199:
205: p_amount => p_las_rec.unit_cost,
206: p_currency_code => p_las_rec.currency_code
207: );
208: IF (l_unit_cost IS NULL) THEN
209: OKL_API.set_message(p_app_name => G_APP_NAME,
210: p_msg_name => G_AMOUNT_FORMAT,
211: p_token1 => G_COL_NAME_TOKEN,
212: p_token1_value => 'OKC_K_LINES_B.PRICE_UNIT');
213: RAISE OKL_API.G_EXCEPTION_ERROR;
209: OKL_API.set_message(p_app_name => G_APP_NAME,
210: p_msg_name => G_AMOUNT_FORMAT,
211: p_token1 => G_COL_NAME_TOKEN,
212: p_token1_value => 'OKC_K_LINES_B.PRICE_UNIT');
213: RAISE OKL_API.G_EXCEPTION_ERROR;
214: ELSE
215: l_talv_fa_rec.original_cost := l_unit_cost;
216: END IF;
217: END IF;
294: x_clev_model_rec => x_clev_model_rec,
295: x_clev_fa_rec => x_clev_fa_rec,
296: x_clev_ib_rec => x_clev_ib_rec);
297:
298: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
299: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
300: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
301: RAISE OKL_API.G_EXCEPTION_ERROR;
302: ELSIF (x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
295: x_clev_fa_rec => x_clev_fa_rec,
296: x_clev_ib_rec => x_clev_ib_rec);
297:
298: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
299: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
300: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
301: RAISE OKL_API.G_EXCEPTION_ERROR;
302: ELSIF (x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
303: x_las_rec := p_las_rec;
296: x_clev_ib_rec => x_clev_ib_rec);
297:
298: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
299: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
300: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
301: RAISE OKL_API.G_EXCEPTION_ERROR;
302: ELSIF (x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
303: x_las_rec := p_las_rec;
304: x_las_rec.clev_fin_id := x_clev_fin_rec.id;
297:
298: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
299: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
300: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
301: RAISE OKL_API.G_EXCEPTION_ERROR;
302: ELSIF (x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
303: x_las_rec := p_las_rec;
304: x_las_rec.clev_fin_id := x_clev_fin_rec.id;
305: x_las_rec.clev_model_id := x_clev_model_rec.id;
298: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
299: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
300: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
301: RAISE OKL_API.G_EXCEPTION_ERROR;
302: ELSIF (x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
303: x_las_rec := p_las_rec;
304: x_las_rec.clev_fin_id := x_clev_fin_rec.id;
305: x_las_rec.clev_model_id := x_clev_model_rec.id;
306: x_las_rec.clev_fa_id := x_clev_fa_rec.id;
318:
319: END IF;
320:
321:
322: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
323:
324: EXCEPTION
325: WHEN OKL_API.G_EXCEPTION_ERROR THEN
326: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
321:
322: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
323:
324: EXCEPTION
325: WHEN OKL_API.G_EXCEPTION_ERROR THEN
326: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
327: p_api_name => l_api_name,
328: p_pkg_name => g_pkg_name,
329: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
322: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
323:
324: EXCEPTION
325: WHEN OKL_API.G_EXCEPTION_ERROR THEN
326: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
327: p_api_name => l_api_name,
328: p_pkg_name => g_pkg_name,
329: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
330: x_msg_count => x_msg_count,
325: WHEN OKL_API.G_EXCEPTION_ERROR THEN
326: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
327: p_api_name => l_api_name,
328: p_pkg_name => g_pkg_name,
329: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
330: x_msg_count => x_msg_count,
331: x_msg_data => x_msg_data,
332: p_api_type => g_api_type);
333:
330: x_msg_count => x_msg_count,
331: x_msg_data => x_msg_data,
332: p_api_type => g_api_type);
333:
334: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
335: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
336: p_api_name => l_api_name,
337: p_pkg_name => g_pkg_name,
338: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
331: x_msg_data => x_msg_data,
332: p_api_type => g_api_type);
333:
334: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
335: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
336: p_api_name => l_api_name,
337: p_pkg_name => g_pkg_name,
338: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
339: x_msg_count => x_msg_count,
334: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
335: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
336: p_api_name => l_api_name,
337: p_pkg_name => g_pkg_name,
338: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
339: x_msg_count => x_msg_count,
340: x_msg_data => x_msg_data,
341: p_api_type => g_api_type);
342:
340: x_msg_data => x_msg_data,
341: p_api_type => g_api_type);
342:
343: WHEN OTHERS THEN
344: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
345: p_api_name => l_api_name,
346: p_pkg_name => g_pkg_name,
347: p_exc_name => 'OTHERS',
348: x_msg_count => x_msg_count,
353:
354:
355: PROCEDURE update_all_line(
356: p_api_version IN NUMBER,
357: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
358: x_return_status OUT NOCOPY VARCHAR2,
359: x_msg_count OUT NOCOPY NUMBER,
360: x_msg_data OUT NOCOPY VARCHAR2,
361: p_las_rec IN las_rec_type,
391: SELECT 1
392: FROM OKL_TXL_ITM_INSTS
393: WHERE dnz_cle_id = p_dnz_cle_id;
394: BEGIN
395: x_return_status := OKL_API.G_RET_STS_SUCCESS;
396: -- Call start_activity to create savepoint, check compatibility and initialize message list
397: x_return_status := OKL_API.START_ACTIVITY(
398: p_api_name => l_api_name,
399: p_pkg_name => g_pkg_name,
393: WHERE dnz_cle_id = p_dnz_cle_id;
394: BEGIN
395: x_return_status := OKL_API.G_RET_STS_SUCCESS;
396: -- Call start_activity to create savepoint, check compatibility and initialize message list
397: x_return_status := OKL_API.START_ACTIVITY(
398: p_api_name => l_api_name,
399: p_pkg_name => g_pkg_name,
400: p_init_msg_list => p_init_msg_list,
401: l_api_version => l_api_version,
403: p_api_type => g_api_type,
404: x_return_status => x_return_status);
405:
406: -- check if activity started successfully
407: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
408: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
409: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
410: RAISE OKL_API.G_EXCEPTION_ERROR;
411: END IF;
404: x_return_status => x_return_status);
405:
406: -- check if activity started successfully
407: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
408: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
409: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
410: RAISE OKL_API.G_EXCEPTION_ERROR;
411: END IF;
412:
405:
406: -- check if activity started successfully
407: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
408: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
409: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
410: RAISE OKL_API.G_EXCEPTION_ERROR;
411: END IF;
412:
413: l_clev_fin_rec.id := p_las_rec.clev_fin_id;
406: -- check if activity started successfully
407: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
408: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
409: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
410: RAISE OKL_API.G_EXCEPTION_ERROR;
411: END IF;
412:
413: l_clev_fin_rec.id := p_las_rec.clev_fin_id;
414: l_clev_model_rec.id := p_las_rec.clev_model_id;
429: p_amount => p_las_rec.residual_value,
430: p_currency_code => p_las_rec.currency_code
431: );
432: IF (l_residual_value IS NULL) THEN
433: OKL_API.set_message(p_app_name => G_APP_NAME,
434: p_msg_name => G_AMOUNT_FORMAT,
435: p_token1 => G_COL_NAME_TOKEN,
436: p_token1_value => 'OKC_K_LINES.RESIDUAL_VALUE');
437: RAISE OKL_API.G_EXCEPTION_ERROR;
433: OKL_API.set_message(p_app_name => G_APP_NAME,
434: p_msg_name => G_AMOUNT_FORMAT,
435: p_token1 => G_COL_NAME_TOKEN,
436: p_token1_value => 'OKC_K_LINES.RESIDUAL_VALUE');
437: RAISE OKL_API.G_EXCEPTION_ERROR;
438: ELSE
439: l_klev_fin_rec.residual_value := l_residual_value;
440: END IF;
441: -- gboomina added for Bug 6369401 - Start
451: p_amount => p_las_rec.guranteed_amount,
452: p_currency_code => p_las_rec.currency_code
453: );
454: IF (l_guranteed_amount IS NULL) THEN
455: OKL_API.set_message(p_app_name => G_APP_NAME,
456: p_msg_name => G_AMOUNT_FORMAT,
457: p_token1 => G_COL_NAME_TOKEN,
458: p_token1_value => 'OKC_K_LINES.GURANTEED_AMOUNT');
459: RAISE OKL_API.G_EXCEPTION_ERROR;
455: OKL_API.set_message(p_app_name => G_APP_NAME,
456: p_msg_name => G_AMOUNT_FORMAT,
457: p_token1 => G_COL_NAME_TOKEN,
458: p_token1_value => 'OKC_K_LINES.GURANTEED_AMOUNT');
459: RAISE OKL_API.G_EXCEPTION_ERROR;
460: ELSE
461: l_klev_fin_rec.residual_grnty_amount := l_guranteed_amount;
462: END IF;
463: END IF;
478: l_talv_fa_rec.asset_number := upper(p_las_rec.asset_number);
479: l_talv_fa_rec.description := p_las_rec.description;
480:
481: IF ((p_las_rec.deal_type = 'LEASE') AND (p_las_rec.fa_location_id IS NULL)) THEN
482: OKL_API.set_message(p_app_name => G_APP_NAME,
483: p_msg_name => G_REQUIRED_VALUE,
484: p_token1 => G_COL_NAME_TOKEN,
485: p_token1_value => 'OKL_TXL_ASSETS_B.FA_LOCATION_ID');
486: RAISE OKL_API.G_EXCEPTION_ERROR;
482: OKL_API.set_message(p_app_name => G_APP_NAME,
483: p_msg_name => G_REQUIRED_VALUE,
484: p_token1 => G_COL_NAME_TOKEN,
485: p_token1_value => 'OKL_TXL_ASSETS_B.FA_LOCATION_ID');
486: RAISE OKL_API.G_EXCEPTION_ERROR;
487: ELSE
488: l_talv_fa_rec.fa_location_id := p_las_rec.fa_location_id;
489: END IF;
490:
496: p_amount => p_las_rec.unit_cost,
497: p_currency_code => p_las_rec.currency_code
498: );
499: IF (l_unit_cost IS NULL) THEN
500: OKL_API.set_message(p_app_name => G_APP_NAME,
501: p_msg_name => G_AMOUNT_FORMAT,
502: p_token1 => G_COL_NAME_TOKEN,
503: p_token1_value => 'OKC_K_LINES_B.PRICE_UNIT');
504: RAISE OKL_API.G_EXCEPTION_ERROR;
500: OKL_API.set_message(p_app_name => G_APP_NAME,
501: p_msg_name => G_AMOUNT_FORMAT,
502: p_token1 => G_COL_NAME_TOKEN,
503: p_token1_value => 'OKC_K_LINES_B.PRICE_UNIT');
504: RAISE OKL_API.G_EXCEPTION_ERROR;
505: ELSE
506: l_talv_fa_rec.original_cost := l_unit_cost;
507: END IF;
508: END IF;
508: END IF;
509:
510: IF ((p_las_rec.units IS NOT NULL) AND (p_las_rec.old_units IS NOT NULL) AND (p_las_rec.clev_ib_id IS NOT NULL)) THEN
511: IF (p_las_rec.units <> p_las_rec.old_units) THEN
512: OKL_API.set_message(p_app_name => G_APP_NAME,
513: p_msg_name => G_LLA_AST_SERIAL);
514: RAISE OKL_API.G_EXCEPTION_ERROR;
515: END IF;
516: END IF;
510: IF ((p_las_rec.units IS NOT NULL) AND (p_las_rec.old_units IS NOT NULL) AND (p_las_rec.clev_ib_id IS NOT NULL)) THEN
511: IF (p_las_rec.units <> p_las_rec.old_units) THEN
512: OKL_API.set_message(p_app_name => G_APP_NAME,
513: p_msg_name => G_LLA_AST_SERIAL);
514: RAISE OKL_API.G_EXCEPTION_ERROR;
515: END IF;
516: END IF;
517: l_talv_fa_rec.current_units:= p_las_rec.units;
518: l_talv_fa_rec.model_number := p_las_rec.model_number;
604: x_clev_model_rec => x_clev_model_rec,
605: x_clev_fa_rec => x_clev_fa_rec,
606: x_clev_ib_rec => x_clev_ib_rec);
607:
608: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
609: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
610: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
611: RAISE OKL_API.G_EXCEPTION_ERROR;
612: ELSIF (x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
605: x_clev_fa_rec => x_clev_fa_rec,
606: x_clev_ib_rec => x_clev_ib_rec);
607:
608: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
609: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
610: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
611: RAISE OKL_API.G_EXCEPTION_ERROR;
612: ELSIF (x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
613: x_las_rec := p_las_rec;
606: x_clev_ib_rec => x_clev_ib_rec);
607:
608: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
609: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
610: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
611: RAISE OKL_API.G_EXCEPTION_ERROR;
612: ELSIF (x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
613: x_las_rec := p_las_rec;
614: x_las_rec.clev_fin_id := x_clev_fin_rec.id;
607:
608: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
609: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
610: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
611: RAISE OKL_API.G_EXCEPTION_ERROR;
612: ELSIF (x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
613: x_las_rec := p_las_rec;
614: x_las_rec.clev_fin_id := x_clev_fin_rec.id;
615: x_las_rec.clev_model_id := x_clev_model_rec.id;
608: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
609: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
610: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
611: RAISE OKL_API.G_EXCEPTION_ERROR;
612: ELSIF (x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
613: x_las_rec := p_las_rec;
614: x_las_rec.clev_fin_id := x_clev_fin_rec.id;
615: x_las_rec.clev_model_id := x_clev_model_rec.id;
616: x_las_rec.clev_fa_id := x_clev_fa_rec.id;
617: x_las_rec.clev_ib_id := x_clev_ib_rec.id;
618: END IF;
619:
620:
621: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
622:
623: EXCEPTION
624: WHEN OKL_API.G_EXCEPTION_ERROR THEN
625: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
620:
621: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
622:
623: EXCEPTION
624: WHEN OKL_API.G_EXCEPTION_ERROR THEN
625: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
626: p_api_name => l_api_name,
627: p_pkg_name => g_pkg_name,
628: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
621: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
622:
623: EXCEPTION
624: WHEN OKL_API.G_EXCEPTION_ERROR THEN
625: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
626: p_api_name => l_api_name,
627: p_pkg_name => g_pkg_name,
628: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
629: x_msg_count => x_msg_count,
624: WHEN OKL_API.G_EXCEPTION_ERROR THEN
625: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
626: p_api_name => l_api_name,
627: p_pkg_name => g_pkg_name,
628: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
629: x_msg_count => x_msg_count,
630: x_msg_data => x_msg_data,
631: p_api_type => g_api_type);
632:
629: x_msg_count => x_msg_count,
630: x_msg_data => x_msg_data,
631: p_api_type => g_api_type);
632:
633: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
634: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
635: p_api_name => l_api_name,
636: p_pkg_name => g_pkg_name,
637: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
630: x_msg_data => x_msg_data,
631: p_api_type => g_api_type);
632:
633: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
634: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
635: p_api_name => l_api_name,
636: p_pkg_name => g_pkg_name,
637: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
638: x_msg_count => x_msg_count,
633: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
634: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
635: p_api_name => l_api_name,
636: p_pkg_name => g_pkg_name,
637: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
638: x_msg_count => x_msg_count,
639: x_msg_data => x_msg_data,
640: p_api_type => g_api_type);
641:
639: x_msg_data => x_msg_data,
640: p_api_type => g_api_type);
641:
642: WHEN OTHERS THEN
643: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
644: p_api_name => l_api_name,
645: p_pkg_name => g_pkg_name,
646: p_exc_name => 'OTHERS',
647: x_msg_count => x_msg_count,
651: END update_all_line;
652:
653: PROCEDURE load_all_line(
654: p_api_version IN NUMBER,
655: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
656: x_return_status OUT NOCOPY VARCHAR2,
657: x_msg_count OUT NOCOPY NUMBER,
658: x_msg_data OUT NOCOPY VARCHAR2,
659: p_chr_id IN NUMBER,
865: --end NISINHA Bug 6490572
866:
867:
868: BEGIN
869: x_return_status := OKL_API.G_RET_STS_SUCCESS;
870: -- Call start_activity to create savepoint, check compatibility and initialize message list
871: x_return_status := OKL_API.START_ACTIVITY(
872: p_api_name => l_api_name,
873: p_pkg_name => g_pkg_name,
867:
868: BEGIN
869: x_return_status := OKL_API.G_RET_STS_SUCCESS;
870: -- Call start_activity to create savepoint, check compatibility and initialize message list
871: x_return_status := OKL_API.START_ACTIVITY(
872: p_api_name => l_api_name,
873: p_pkg_name => g_pkg_name,
874: p_init_msg_list => p_init_msg_list,
875: l_api_version => l_api_version,
877: p_api_type => g_api_type,
878: x_return_status => x_return_status);
879:
880: -- check if activity started successfully
881: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
882: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
883: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
884: RAISE OKL_API.G_EXCEPTION_ERROR;
885: END IF;
878: x_return_status => x_return_status);
879:
880: -- check if activity started successfully
881: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
882: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
883: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
884: RAISE OKL_API.G_EXCEPTION_ERROR;
885: END IF;
886:
879:
880: -- check if activity started successfully
881: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
882: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
883: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
884: RAISE OKL_API.G_EXCEPTION_ERROR;
885: END IF;
886:
887: -- gboomina Modified to get deal_type and sts_code which is used as
880: -- check if activity started successfully
881: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
882: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
883: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
884: RAISE OKL_API.G_EXCEPTION_ERROR;
885: END IF;
886:
887: -- gboomina Modified to get deal_type and sts_code which is used as
888: -- input to okl_la_asset_pvt.isContractActive API
889: OPEN c_khr_info(p_chr_id);
890: FETCH c_khr_info INTO l_khr_id, l_deal_type, l_sts_code;
891: IF c_khr_info%NOTFOUND THEN
892: CLOSE c_khr_info;
893: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
894: p_msg_name => G_MISSING_CONTRACT,
895: p_token1 => G_CONTRACT_ID_TOKEN,
896: p_token1_value => to_char(p_chr_id));
897: RAISE OKL_API.G_EXCEPTION_ERROR;
893: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
894: p_msg_name => G_MISSING_CONTRACT,
895: p_token1 => G_CONTRACT_ID_TOKEN,
896: p_token1_value => to_char(p_chr_id));
897: RAISE OKL_API.G_EXCEPTION_ERROR;
898: END IF;
899: CLOSE c_khr_info;
900:
901: -- gboomina added to check whether contract is active or not
988: x_las_rec.manufacturer_name := l_fa_line_loan_rec.manufacturer_name;
989: END IF;
990: --end NISINHA Bug 6490572
991:
992: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
993:
994: EXCEPTION
995: WHEN OKL_API.G_EXCEPTION_ERROR THEN
996: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
991:
992: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
993:
994: EXCEPTION
995: WHEN OKL_API.G_EXCEPTION_ERROR THEN
996: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
997: p_api_name => l_api_name,
998: p_pkg_name => g_pkg_name,
999: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
992: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
993:
994: EXCEPTION
995: WHEN OKL_API.G_EXCEPTION_ERROR THEN
996: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
997: p_api_name => l_api_name,
998: p_pkg_name => g_pkg_name,
999: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1000: x_msg_count => x_msg_count,
995: WHEN OKL_API.G_EXCEPTION_ERROR THEN
996: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
997: p_api_name => l_api_name,
998: p_pkg_name => g_pkg_name,
999: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1000: x_msg_count => x_msg_count,
1001: x_msg_data => x_msg_data,
1002: p_api_type => g_api_type);
1003:
1000: x_msg_count => x_msg_count,
1001: x_msg_data => x_msg_data,
1002: p_api_type => g_api_type);
1003:
1004: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1005: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1006: p_api_name => l_api_name,
1007: p_pkg_name => g_pkg_name,
1008: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1001: x_msg_data => x_msg_data,
1002: p_api_type => g_api_type);
1003:
1004: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1005: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1006: p_api_name => l_api_name,
1007: p_pkg_name => g_pkg_name,
1008: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1009: x_msg_count => x_msg_count,
1004: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1005: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1006: p_api_name => l_api_name,
1007: p_pkg_name => g_pkg_name,
1008: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1009: x_msg_count => x_msg_count,
1010: x_msg_data => x_msg_data,
1011: p_api_type => g_api_type);
1012:
1010: x_msg_data => x_msg_data,
1011: p_api_type => g_api_type);
1012:
1013: WHEN OTHERS THEN
1014: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1015: p_api_name => l_api_name,
1016: p_pkg_name => g_pkg_name,
1017: p_exc_name => 'OTHERS',
1018: x_msg_count => x_msg_count,
1051: END addon_ship_to_site_name;
1052:
1053: PROCEDURE process_line_billing_setup(
1054: p_api_version IN NUMBER,
1055: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1056: x_return_status OUT NOCOPY VARCHAR2,
1057: x_msg_count OUT NOCOPY NUMBER,
1058: x_msg_data OUT NOCOPY VARCHAR2,
1059: p_rgpv_rec IN OKL_DEAL_TERMS_PVT.billing_setup_rec_type,
1083: lp_klev_rec OKL_KLE_PVT.klev_rec_type;
1084: lx_klev_rec OKL_KLE_PVT.klev_rec_type;
1085:
1086: BEGIN
1087: x_return_status := OKL_API.START_ACTIVITY(
1088: p_api_name => l_api_name,
1089: p_pkg_name => g_pkg_name,
1090: p_init_msg_list => p_init_msg_list,
1091: l_api_version => l_api_version,
1093: p_api_type => g_api_type,
1094: x_return_status => x_return_status);
1095:
1096: -- check if activity started successfully
1097: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1098: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1099: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1100: RAISE OKL_API.G_EXCEPTION_ERROR;
1101: END IF;
1094: x_return_status => x_return_status);
1095:
1096: -- check if activity started successfully
1097: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1098: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1099: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1100: RAISE OKL_API.G_EXCEPTION_ERROR;
1101: END IF;
1102:
1095:
1096: -- check if activity started successfully
1097: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1098: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1099: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1100: RAISE OKL_API.G_EXCEPTION_ERROR;
1101: END IF;
1102:
1103: IF (p_rgpv_rec.rgp_id IS NULL) THEN
1096: -- check if activity started successfully
1097: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1098: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1099: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1100: RAISE OKL_API.G_EXCEPTION_ERROR;
1101: END IF;
1102:
1103: IF (p_rgpv_rec.rgp_id IS NULL) THEN
1104: -- Create LABILL rule group
1332: END process_line_billing_setup;
1333:
1334: PROCEDURE load_line_billing_setup(
1335: p_api_version IN NUMBER,
1336: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1337: x_return_status OUT NOCOPY VARCHAR2,
1338: x_msg_count OUT NOCOPY NUMBER,
1339: x_msg_data OUT NOCOPY VARCHAR2,
1340: p_dnz_chr_id IN NUMBER,
1340: p_dnz_chr_id IN NUMBER,
1341: p_cle_id IN NUMBER,
1342: x_billing_setup_rec OUT NOCOPY OKL_DEAL_TERMS_PVT.billing_setup_rec_type) IS
1343:
1344: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
1345: l_api_name CONSTANT VARCHAR2(30) := 'load_line_billing_setup';
1346: l_api_version CONSTANT NUMBER := 1.0;
1347:
1348: CURSOR c_bill_to(p_cle_id NUMBER) IS
1381: SELECT name,bank_name
1382: FROM okx_rcpt_method_accounts_v
1383: WHERE id1 = p_object1_id1;
1384: BEGIN
1385: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1386: -- Call start_activity to create savepoint, check compatibility
1387: -- and initialize message list
1388: x_return_status := OKL_API.START_ACTIVITY (
1389: l_api_name
1384: BEGIN
1385: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1386: -- Call start_activity to create savepoint, check compatibility
1387: -- and initialize message list
1388: x_return_status := OKL_API.START_ACTIVITY (
1389: l_api_name
1390: ,p_init_msg_list
1391: ,'_PVT'
1392: ,x_return_status);
1390: ,p_init_msg_list
1391: ,'_PVT'
1392: ,x_return_status);
1393: -- Check if activity started successfully
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: ,'_PVT'
1392: ,x_return_status);
1393: -- Check if activity started successfully
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:
1392: ,x_return_status);
1393: -- Check if activity started successfully
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:
1400: x_billing_setup_rec.chr_id := p_dnz_chr_id;
1393: -- Check if activity started successfully
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:
1400: x_billing_setup_rec.chr_id := p_dnz_chr_id;
1401: x_billing_setup_rec.cle_id := p_cle_id;
1433: FETCH c_bank_info INTO x_billing_setup_rec.rul_labacc_name,x_billing_setup_rec.rul_labacc_bank_name;
1434: CLOSE c_bank_info;
1435: END IF;
1436:
1437: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
1438:
1439: EXCEPTION
1440: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1441: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1436:
1437: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
1438:
1439: EXCEPTION
1440: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1441: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1442: l_api_name,
1443: G_PKG_NAME,
1444: 'OKL_API.G_RET_STS_ERROR',
1437: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
1438:
1439: EXCEPTION
1440: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1441: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1442: l_api_name,
1443: G_PKG_NAME,
1444: 'OKL_API.G_RET_STS_ERROR',
1445: x_msg_count,
1440: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1441: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1442: l_api_name,
1443: G_PKG_NAME,
1444: 'OKL_API.G_RET_STS_ERROR',
1445: x_msg_count,
1446: x_msg_data,
1447: '_PVT');
1448: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1444: 'OKL_API.G_RET_STS_ERROR',
1445: x_msg_count,
1446: x_msg_data,
1447: '_PVT');
1448: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1449: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1450: l_api_name,
1451: G_PKG_NAME,
1452: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1445: x_msg_count,
1446: x_msg_data,
1447: '_PVT');
1448: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1449: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1450: l_api_name,
1451: G_PKG_NAME,
1452: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1453: x_msg_count,
1448: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1449: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1450: l_api_name,
1451: G_PKG_NAME,
1452: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1453: x_msg_count,
1454: x_msg_data,
1455: '_PVT');
1456: WHEN OTHERS THEN
1453: x_msg_count,
1454: x_msg_data,
1455: '_PVT');
1456: WHEN OTHERS THEN
1457: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1458: l_api_name,
1459: G_PKG_NAME,
1460: 'OTHERS',
1461: x_msg_count,
1464: END load_line_billing_setup;
1465:
1466: PROCEDURE create_assetaddon_line(
1467: p_api_version IN NUMBER,
1468: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1469: x_return_status OUT NOCOPY VARCHAR2,
1470: x_msg_count OUT NOCOPY NUMBER,
1471: x_msg_data OUT NOCOPY VARCHAR2,
1472: p_addon_rec IN addon_rec_type,
1476: END create_assetaddon_line;
1477:
1478: PROCEDURE create_assetaddon_line(
1479: p_api_version IN NUMBER,
1480: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1481: x_return_status OUT NOCOPY VARCHAR2,
1482: x_msg_count OUT NOCOPY NUMBER,
1483: x_msg_data OUT NOCOPY VARCHAR2,
1484: p_addon_tbl IN addon_tbl_type,
1488: END create_assetaddon_line;
1489:
1490: PROCEDURE update_assetaddon_line(
1491: p_api_version IN NUMBER,
1492: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1493: x_return_status OUT NOCOPY VARCHAR2,
1494: x_msg_count OUT NOCOPY NUMBER,
1495: x_msg_data OUT NOCOPY VARCHAR2,
1496: p_addon_rec IN addon_rec_type,
1500: END update_assetaddon_line;
1501:
1502: PROCEDURE update_assetaddon_line(
1503: p_api_version IN NUMBER,
1504: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1505: x_return_status OUT NOCOPY VARCHAR2,
1506: x_msg_count OUT NOCOPY NUMBER,
1507: x_msg_data OUT NOCOPY VARCHAR2,
1508: p_addon_tbl IN addon_tbl_type,
1512: END update_assetaddon_line;
1513:
1514: PROCEDURE allocate_amount_tradein (
1515: p_api_version IN NUMBER,
1516: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1517: x_return_status OUT NOCOPY VARCHAR2,
1518: x_msg_count OUT NOCOPY NUMBER,
1519: x_msg_data OUT NOCOPY VARCHAR2,
1520: p_chr_id IN NUMBER,
1650:
1651: l_tradein_amount := l_tradein_amount - NVL(l_term_lines_tradein_amt,0);
1652:
1653: IF l_tradein_amount < 0 THEN
1654: OKL_API.SET_MESSAGE(p_app_name => g_app_name
1655: ,p_msg_name => 'OKL_LA_NEGATIVE_TRADEIN_AMT'
1656: ,p_token1 => 'AMOUNT'
1657: ,p_token1_value => TO_CHAR(NVL(l_term_lines_tradein_amt,0)));
1658: RAISE OKL_API.G_EXCEPTION_ERROR;
1654: OKL_API.SET_MESSAGE(p_app_name => g_app_name
1655: ,p_msg_name => 'OKL_LA_NEGATIVE_TRADEIN_AMT'
1656: ,p_token1 => 'AMOUNT'
1657: ,p_token1_value => TO_CHAR(NVL(l_term_lines_tradein_amt,0)));
1658: RAISE OKL_API.G_EXCEPTION_ERROR;
1659: END IF;
1660:
1661: END IF;
1662:
1760: END allocate_amount_tradein;
1761:
1762: PROCEDURE allocate_amount_down_payment (
1763: p_api_version IN NUMBER,
1764: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1765: x_return_status OUT NOCOPY VARCHAR2,
1766: x_msg_count OUT NOCOPY NUMBER,
1767: x_msg_data OUT NOCOPY VARCHAR2,
1768: p_chr_id IN NUMBER,
1911: IF l_basis = 'FIXED' THEN
1912: l_down_payment := l_down_payment - NVL(l_term_lines_down_pymt_amt,0);
1913:
1914: IF l_down_payment < 0 THEN
1915: OKL_API.SET_MESSAGE(p_app_name => g_app_name
1916: ,p_msg_name => 'OKL_LA_NEGATIVE_DOWNPYMT_AMT'
1917: ,p_token1 => 'AMOUNT'
1918: ,p_token1_value => TO_CHAR(NVL(l_term_lines_down_pymt_amt,0)));
1919: RAISE OKL_API.G_EXCEPTION_ERROR;
1915: OKL_API.SET_MESSAGE(p_app_name => g_app_name
1916: ,p_msg_name => 'OKL_LA_NEGATIVE_DOWNPYMT_AMT'
1917: ,p_token1 => 'AMOUNT'
1918: ,p_token1_value => TO_CHAR(NVL(l_term_lines_down_pymt_amt,0)));
1919: RAISE OKL_API.G_EXCEPTION_ERROR;
1920: END IF;
1921: END IF;
1922:
1923: END IF;