[Home] [Help]
49: END IF;
50:
51: -- Set the relocate_asset_yn if null
52: IF ((px_artv_rec.relocate_asset_yn IS NULL) OR
53: (px_artv_rec.relocate_asset_yn = OKL_API.G_MISS_CHAR)) THEN
54: px_artv_rec.relocate_asset_yn := 'N';
55: END IF;
56:
57: -- Set the asset_relocated_yn if null
55: END IF;
56:
57: -- Set the asset_relocated_yn if null
58: IF ((px_artv_rec.asset_relocated_yn IS NULL) OR
59: (px_artv_rec.asset_relocated_yn = OKL_API.G_MISS_CHAR)) THEN
60: px_artv_rec.asset_relocated_yn := 'N';
61: END IF;
62:
63: -- Set the commmercially_reas_sale_yn if null
61: END IF;
62:
63: -- Set the commmercially_reas_sale_yn if null
64: IF ((px_artv_rec.commmercially_reas_sale_yn IS NULL) OR
65: (px_artv_rec.commmercially_reas_sale_yn = OKL_API.G_MISS_CHAR)) THEN
66: px_artv_rec.commmercially_reas_sale_yn := 'N';
67: END IF;
68:
69: -- Set the voluntary_yn if null
67: END IF;
68:
69: -- Set the voluntary_yn if null
70: IF ((px_artv_rec.voluntary_yn IS NULL) OR
71: (px_artv_rec.voluntary_yn = OKL_API.G_MISS_CHAR)) THEN
72: px_artv_rec.voluntary_yn := 'N';
73: END IF;
74:
75: -- Set the repurchase_agmt_yn if null
73: END IF;
74:
75: -- Set the repurchase_agmt_yn if null
76: IF ((px_artv_rec.repurchase_agmt_yn IS NULL) OR
77: (px_artv_rec.repurchase_agmt_yn = OKL_API.G_MISS_CHAR)) THEN
78: px_artv_rec.repurchase_agmt_yn := 'N';
79: END IF;
80:
81: x_return_status := OKL_API.G_RET_STS_SUCCESS;
77: (px_artv_rec.repurchase_agmt_yn = OKL_API.G_MISS_CHAR)) THEN
78: px_artv_rec.repurchase_agmt_yn := 'N';
79: END IF;
80:
81: x_return_status := OKL_API.G_RET_STS_SUCCESS;
82:
83: IF (is_debug_procedure_on) THEN
84: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
85: END IF;
85: END IF;
86:
87: EXCEPTION
88: WHEN OTHERS THEN
89: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
90: -- Unexpected error
91: OKL_API.set_message(p_app_name => 'OKL',
92: p_msg_name => g_unexpected_error,
93: p_token1 => g_sqlcode_token,
87: EXCEPTION
88: WHEN OTHERS THEN
89: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
90: -- Unexpected error
91: OKL_API.set_message(p_app_name => 'OKL',
92: p_msg_name => g_unexpected_error,
93: p_token1 => g_sqlcode_token,
94: p_token1_value => sqlcode,
95: p_token2 => g_sqlerrm_token,
156: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'called okl_am_util_pvt.get_rule_record, return status :'||x_return_status);
157: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'l_rulv_rec.rule_information1 :'||l_rulv_rec.rule_information1);
158: END IF;
159:
160: IF (x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
161: -- Rule instance is found and formula is found
162: IF (l_rulv_rec.rule_information1 IS NOT NULL) AND
163: (l_rulv_rec.rule_information1 <> OKL_API.G_MISS_CHAR) THEN
164:
159:
160: IF (x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
161: -- Rule instance is found and formula is found
162: IF (l_rulv_rec.rule_information1 IS NOT NULL) AND
163: (l_rulv_rec.rule_information1 <> OKL_API.G_MISS_CHAR) THEN
164:
165: l_formula_name := l_rulv_rec.rule_information1;
166: END IF;
167: END IF;
180: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'called okl_am_util_pvt.get_formula_value, return status :'||x_return_status);
181: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'l_floor_price :'||l_floor_price);
182: END IF;
183:
184: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
185: -- Unable to create Asset Return because of the missing floor price formula.
186: OKL_API.set_message( p_app_name => 'OKL',
187: p_msg_name => 'OKL_AM_MISSING_FORMULA');
188: RAISE floor_price_error;
182: END IF;
183:
184: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
185: -- Unable to create Asset Return because of the missing floor price formula.
186: OKL_API.set_message( p_app_name => 'OKL',
187: p_msg_name => 'OKL_AM_MISSING_FORMULA');
188: RAISE floor_price_error;
189: END IF;
190: IF (is_debug_statement_on) THEN
199: RETURN l_floor_price;
200:
201: EXCEPTION
202: WHEN floor_price_error THEN
203: x_return_status := OKL_API.G_RET_STS_ERROR;
204: IF (is_debug_exception_on) THEN
205: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'floor_price_error');
206: END IF;
207:
207:
208: RETURN NULL;
209:
210: WHEN OTHERS THEN
211: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
212: -- Unexpected error
213: OKL_API.set_message(p_app_name => 'OKL',
214: p_msg_name => g_unexpected_error,
215: p_token1 => g_sqlcode_token,
209:
210: WHEN OTHERS THEN
211: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
212: -- Unexpected error
213: OKL_API.set_message(p_app_name => 'OKL',
214: p_msg_name => g_unexpected_error,
215: p_token1 => g_sqlcode_token,
216: p_token1_value => sqlcode,
217: p_token2 => g_sqlerrm_token,
272: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_am_util_pvt.get_rule_record, return status: ' || x_return_status);
273: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information2: ' || l_rulv_rec.rule_information2);
274: END IF;
275:
276: IF (x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
277: -- Rule instance is found, but formula not found
278: IF l_rulv_rec.rule_information2 IS NULL OR l_rulv_rec.rule_information2 = OKL_API.G_MISS_CHAR THEN
279: --SECHAWLA 07-FEB-03 Bug # 2758114 : Default item price to 0 if no formula found
280: RETURN NULL;
274: END IF;
275:
276: IF (x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
277: -- Rule instance is found, but formula not found
278: IF l_rulv_rec.rule_information2 IS NULL OR l_rulv_rec.rule_information2 = OKL_API.G_MISS_CHAR THEN
279: --SECHAWLA 07-FEB-03 Bug # 2758114 : Default item price to 0 if no formula found
280: RETURN NULL;
281: END IF;
282: ELSE
280: RETURN NULL;
281: END IF;
282: ELSE
283: --SECHAWLA 07-FEB-03 Bug # 2758114 : Default item price to 0 if rule instance is not found
284: x_return_status := OKL_API.G_RET_STS_SUCCESS;
285: RETURN NULL;
286: END IF;
287:
288: IF (is_debug_statement_on) THEN
297: IF (is_debug_statement_on) THEN
298: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_am_util_pvt.get_formula_value, return status: ' || x_return_status);
299: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_item_price: ' || l_item_price);
300: END IF;
301: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
302: RETURN NULL;
303: END IF;
304: IF (is_debug_statement_on) THEN
305: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Returning l_item_price: '||l_item_price);
312:
313: EXCEPTION
314:
315: WHEN OTHERS THEN
316: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
317: -- Unexpected Error
318: OKL_API.set_message(p_app_name => 'OKL',
319: p_msg_name => g_unexpected_error,
320: p_token1 => g_sqlcode_token,
314:
315: WHEN OTHERS THEN
316: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
317: -- Unexpected Error
318: OKL_API.set_message(p_app_name => 'OKL',
319: p_msg_name => g_unexpected_error,
320: p_token1 => g_sqlcode_token,
321: p_token1_value => sqlcode,
322: p_token2 => g_sqlerrm_token,
398: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_am_util_pvt.get_rule_record, x_return_status: ' || x_return_status);
399: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_am_util_pvt.get_rule_record, l_rulv_rec.rule_information1: ' || l_rulv_rec.rule_information1);
400: END IF;
401:
402: IF (x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
403: -- Rule instance is found, but formula not found
404: IF l_rulv_rec.rule_information1 IS NULL OR l_rulv_rec.rule_information1 = OKL_API.G_MISS_CHAR THEN
405: RAISE repurchase_agreement_error;
406: END IF;
400: END IF;
401:
402: IF (x_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
403: -- Rule instance is found, but formula not found
404: IF l_rulv_rec.rule_information1 IS NULL OR l_rulv_rec.rule_information1 = OKL_API.G_MISS_CHAR THEN
405: RAISE repurchase_agreement_error;
406: END IF;
407: ELSE
408: RAISE repurchase_agreement_error;
420: RETURN l_repuchase_agreement_yn;
421:
422: EXCEPTION
423: WHEN repurchase_agreement_error THEN
424: x_return_status := OKL_API.G_RET_STS_ERROR;
425: IF l_khr_csr%ISOPEN THEN
426: CLOSE l_khr_csr;
427: END IF;
428: IF (is_debug_exception_on) THEN
435: IF l_khr_csr%ISOPEN THEN
436: CLOSE l_khr_csr;
437: END IF;
438:
439: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
440: -- Unexpected Error
441: OKL_API.set_message(p_app_name => 'OKL',
442: p_msg_name => g_unexpected_error,
443: p_token1 => g_sqlcode_token,
437: END IF;
438:
439: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
440: -- Unexpected Error
441: OKL_API.set_message(p_app_name => 'OKL',
442: p_msg_name => g_unexpected_error,
443: p_token1 => g_sqlcode_token,
444: p_token1_value => sqlcode,
445: p_token2 => g_sqlerrm_token,
475: FROM MTL_SYSTEM_ITEMS_VL st, OKX_MODEL_LINES_V ml
476: WHERE ml.inventory_item_id = st.inventory_item_id
477: AND ml.parent_line_id = p_id;
478:
479: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
480: p_catalog_group_id NUMBER;
481: p_rmr_id NUMBER;
482: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'assign_remarketer';
483: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
511: IF (is_debug_statement_on) THEN
512: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_catalog_group_id: '||p_catalog_group_id);
513: END IF;
514:
515: IF p_catalog_group_id IS NOT NULL AND p_catalog_group_id <> OKL_API.G_MISS_NUM THEN
516:
517: OPEN l_remarketcombo_csr(p_catalog_group_id);
518: FETCH l_remarketcombo_csr INTO p_rmr_id;
519: CLOSE l_remarketcombo_csr;
517: OPEN l_remarketcombo_csr(p_catalog_group_id);
518: FETCH l_remarketcombo_csr INTO p_rmr_id;
519: CLOSE l_remarketcombo_csr;
520:
521: IF p_rmr_id IS NOT NULL AND p_rmr_id <> OKL_API.G_MISS_NUM THEN
522:
523: x_rmr_id := p_rmr_id;
524: x_return_status := OKL_API.G_RET_STS_SUCCESS;
525:
520:
521: IF p_rmr_id IS NOT NULL AND p_rmr_id <> OKL_API.G_MISS_NUM THEN
522:
523: x_rmr_id := p_rmr_id;
524: x_return_status := OKL_API.G_RET_STS_SUCCESS;
525:
526: ELSE
527:
528: p_rmr_id := TO_NUMBER(fnd_profile.value('OKL_DEFAULT_REMARKETER'));
527:
528: p_rmr_id := TO_NUMBER(fnd_profile.value('OKL_DEFAULT_REMARKETER'));
529:
530: -- validate default remarketer
531: IF p_rmr_id IS NULL OR p_rmr_id = OKL_API.G_MISS_NUM THEN
532: x_return_status := OKL_API.G_RET_STS_ERROR;
533: ELSE
534: x_rmr_id := p_rmr_id;
535: x_return_status := OKL_API.G_RET_STS_SUCCESS;
528: p_rmr_id := TO_NUMBER(fnd_profile.value('OKL_DEFAULT_REMARKETER'));
529:
530: -- validate default remarketer
531: IF p_rmr_id IS NULL OR p_rmr_id = OKL_API.G_MISS_NUM THEN
532: x_return_status := OKL_API.G_RET_STS_ERROR;
533: ELSE
534: x_rmr_id := p_rmr_id;
535: x_return_status := OKL_API.G_RET_STS_SUCCESS;
536: END IF;
531: IF p_rmr_id IS NULL OR p_rmr_id = OKL_API.G_MISS_NUM THEN
532: x_return_status := OKL_API.G_RET_STS_ERROR;
533: ELSE
534: x_rmr_id := p_rmr_id;
535: x_return_status := OKL_API.G_RET_STS_SUCCESS;
536: END IF;
537:
538: END IF;
539:
541:
542: p_rmr_id := TO_NUMBER(fnd_profile.value('OKL_DEFAULT_REMARKETER'));
543:
544: -- validate default remarketer
545: IF p_rmr_id IS NULL OR p_rmr_id = OKL_API.G_MISS_NUM THEN
546: x_return_status := OKL_API.G_RET_STS_ERROR;
547: ELSE
548: x_rmr_id := p_rmr_id;
549: x_return_status := OKL_API.G_RET_STS_SUCCESS;
542: p_rmr_id := TO_NUMBER(fnd_profile.value('OKL_DEFAULT_REMARKETER'));
543:
544: -- validate default remarketer
545: IF p_rmr_id IS NULL OR p_rmr_id = OKL_API.G_MISS_NUM THEN
546: x_return_status := OKL_API.G_RET_STS_ERROR;
547: ELSE
548: x_rmr_id := p_rmr_id;
549: x_return_status := OKL_API.G_RET_STS_SUCCESS;
550: END IF;
545: IF p_rmr_id IS NULL OR p_rmr_id = OKL_API.G_MISS_NUM THEN
546: x_return_status := OKL_API.G_RET_STS_ERROR;
547: ELSE
548: x_rmr_id := p_rmr_id;
549: x_return_status := OKL_API.G_RET_STS_SUCCESS;
550: END IF;
551:
552: END IF;
553: IF (is_debug_statement_on) THEN
566: IF l_remarketcombo_csr%ISOPEN THEN
567: CLOSE l_remarketcombo_csr;
568: END IF;
569: -- unexpected error
570: OKL_API.set_message(p_app_name => 'OKL',
571: p_msg_name => g_unexpected_error,
572: p_token1 => g_sqlcode_token,
573: p_token1_value => sqlcode,
574: p_token2 => g_sqlerrm_token,
572: p_token1 => g_sqlcode_token,
573: p_token1_value => sqlcode,
574: p_token2 => g_sqlerrm_token,
575: p_token2_value => sqlerrm);
576: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
577: IF (is_debug_exception_on) THEN
578: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
579: || sqlcode || ' , SQLERRM : ' || sqlerrm);
580: END IF;
629:
630: lp_rasv_rec rasv_rec_type;
631: lx_rasv_rec rasv_rec_type;
632:
633: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
634: l_api_name CONSTANT VARCHAR2(30) := 'create_asset_return';
635: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'create_asset_return';
636: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
637: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
635: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'create_asset_return';
636: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
637: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
638: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
639: l_floor_price NUMBER := OKL_API.G_MISS_NUM;
640: l_inventory_item_id NUMBER := OKL_API.G_MISS_NUM;
641: l_Item_Price NUMBER := OKL_API.G_MISS_NUM;
642: l_New_Item_Number VARCHAR2(25);
643: l_New_Item_Id NUMBER := OKL_API.G_MISS_NUM;
636: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
637: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
638: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
639: l_floor_price NUMBER := OKL_API.G_MISS_NUM;
640: l_inventory_item_id NUMBER := OKL_API.G_MISS_NUM;
641: l_Item_Price NUMBER := OKL_API.G_MISS_NUM;
642: l_New_Item_Number VARCHAR2(25);
643: l_New_Item_Id NUMBER := OKL_API.G_MISS_NUM;
644: l_rmr_id NUMBER := OKL_API.G_MISS_NUM;
637: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
638: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
639: l_floor_price NUMBER := OKL_API.G_MISS_NUM;
640: l_inventory_item_id NUMBER := OKL_API.G_MISS_NUM;
641: l_Item_Price NUMBER := OKL_API.G_MISS_NUM;
642: l_New_Item_Number VARCHAR2(25);
643: l_New_Item_Id NUMBER := OKL_API.G_MISS_NUM;
644: l_rmr_id NUMBER := OKL_API.G_MISS_NUM;
645: l_api_version CONSTANT NUMBER := 1;
639: l_floor_price NUMBER := OKL_API.G_MISS_NUM;
640: l_inventory_item_id NUMBER := OKL_API.G_MISS_NUM;
641: l_Item_Price NUMBER := OKL_API.G_MISS_NUM;
642: l_New_Item_Number VARCHAR2(25);
643: l_New_Item_Id NUMBER := OKL_API.G_MISS_NUM;
644: l_rmr_id NUMBER := OKL_API.G_MISS_NUM;
645: l_api_version CONSTANT NUMBER := 1;
646: l_repurchase_yn VARCHAR2(1);
647: l_chr_id NUMBER;
640: l_inventory_item_id NUMBER := OKL_API.G_MISS_NUM;
641: l_Item_Price NUMBER := OKL_API.G_MISS_NUM;
642: l_New_Item_Number VARCHAR2(25);
643: l_New_Item_Id NUMBER := OKL_API.G_MISS_NUM;
644: l_rmr_id NUMBER := OKL_API.G_MISS_NUM;
645: l_api_version CONSTANT NUMBER := 1;
646: l_repurchase_yn VARCHAR2(1);
647: l_chr_id NUMBER;
648: l_name VARCHAR2(150);
726: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'In param, lp_artv_rec.new_item_number:' || lp_artv_rec.new_item_number);
727: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'In param, p_quote_id:' || p_quote_id);
728: END IF;
729:
730: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
731: G_PKG_NAME,
732: p_init_msg_list,
733: l_api_version,
734: p_api_version,
735: '_PVT',
736: x_return_status);
737:
738:
739: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
740: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
741: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
742: RAISE OKL_API.G_EXCEPTION_ERROR;
743: END IF;
736: x_return_status);
737:
738:
739: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
740: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
741: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
742: RAISE OKL_API.G_EXCEPTION_ERROR;
743: END IF;
744:
737:
738:
739: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
740: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
741: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
742: RAISE OKL_API.G_EXCEPTION_ERROR;
743: END IF;
744:
745: -- SECHAWLA Bug # 2667636 : using sysdate as transaction date for currency conversion routines
738:
739: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
740: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
741: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
742: RAISE OKL_API.G_EXCEPTION_ERROR;
743: END IF;
744:
745: -- SECHAWLA Bug # 2667636 : using sysdate as transaction date for currency conversion routines
746: SELECT SYSDATE INTO l_sysdate FROM DUAL;
744:
745: -- SECHAWLA Bug # 2667636 : using sysdate as transaction date for currency conversion routines
746: SELECT SYSDATE INTO l_sysdate FROM DUAL;
747:
748: IF lp_artv_rec.kle_id IS NULL OR lp_artv_rec.kle_id = OKL_API.G_MISS_NUM THEN
749: x_return_status := OKL_API.G_RET_STS_ERROR;
750: -- Asset Number is required
751: OKL_API.set_message( p_app_name => 'OKC',
752: p_msg_name => G_REQUIRED_VALUE,
745: -- SECHAWLA Bug # 2667636 : using sysdate as transaction date for currency conversion routines
746: SELECT SYSDATE INTO l_sysdate FROM DUAL;
747:
748: IF lp_artv_rec.kle_id IS NULL OR lp_artv_rec.kle_id = OKL_API.G_MISS_NUM THEN
749: x_return_status := OKL_API.G_RET_STS_ERROR;
750: -- Asset Number is required
751: OKL_API.set_message( p_app_name => 'OKC',
752: p_msg_name => G_REQUIRED_VALUE,
753: p_token1 => G_COL_NAME_TOKEN,
747:
748: IF lp_artv_rec.kle_id IS NULL OR lp_artv_rec.kle_id = OKL_API.G_MISS_NUM THEN
749: x_return_status := OKL_API.G_RET_STS_ERROR;
750: -- Asset Number is required
751: OKL_API.set_message( p_app_name => 'OKC',
752: p_msg_name => G_REQUIRED_VALUE,
753: p_token1 => G_COL_NAME_TOKEN,
754: p_token1_value => 'Asset Number');
755: RAISE OKL_API.G_EXCEPTION_ERROR;
751: OKL_API.set_message( p_app_name => 'OKC',
752: p_msg_name => G_REQUIRED_VALUE,
753: p_token1 => G_COL_NAME_TOKEN,
754: p_token1_value => 'Asset Number');
755: RAISE OKL_API.G_EXCEPTION_ERROR;
756: END IF;
757:
758: OPEN l_okcklinesv_csr(lp_artv_rec.kle_id);
759: FETCH l_okcklinesv_csr INTO l_chr_id, l_name, l_item_description;
757:
758: OPEN l_okcklinesv_csr(lp_artv_rec.kle_id);
759: FETCH l_okcklinesv_csr INTO l_chr_id, l_name, l_item_description;
760: IF l_okcklinesv_csr%NOTFOUND THEN
761: x_return_status := OKL_API.G_RET_STS_ERROR;
762: -- Invalid Asset Number
763: OKL_API.set_message( p_app_name => 'OKC',
764: p_msg_name => G_INVALID_VALUE,
765: p_token1 => G_COL_NAME_TOKEN,
759: FETCH l_okcklinesv_csr INTO l_chr_id, l_name, l_item_description;
760: IF l_okcklinesv_csr%NOTFOUND THEN
761: x_return_status := OKL_API.G_RET_STS_ERROR;
762: -- Invalid Asset Number
763: OKL_API.set_message( p_app_name => 'OKC',
764: p_msg_name => G_INVALID_VALUE,
765: p_token1 => G_COL_NAME_TOKEN,
766: p_token1_value => 'Asset Number');
767: RAISE OKL_API.G_EXCEPTION_ERROR;
763: OKL_API.set_message( p_app_name => 'OKC',
764: p_msg_name => G_INVALID_VALUE,
765: p_token1 => G_COL_NAME_TOKEN,
766: p_token1_value => 'Asset Number');
767: RAISE OKL_API.G_EXCEPTION_ERROR;
768: END IF;
769: IF (is_debug_statement_on) THEN
770: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'l_chr_id :'||l_chr_id);
771: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'l_name :'||l_name);
771: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'l_name :'||l_name);
772: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'l_item_description :'||l_item_description);
773: END IF;
774:
775: IF l_chr_id IS NULL OR l_chr_id = OKL_API.G_MISS_NUM THEN
776: x_return_status := OKL_API.G_RET_STS_ERROR;
777: -- Contract ID is required
778: OKL_API.set_message( p_app_name => 'OKC',
779: p_msg_name => G_REQUIRED_VALUE,
772: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'l_item_description :'||l_item_description);
773: END IF;
774:
775: IF l_chr_id IS NULL OR l_chr_id = OKL_API.G_MISS_NUM THEN
776: x_return_status := OKL_API.G_RET_STS_ERROR;
777: -- Contract ID is required
778: OKL_API.set_message( p_app_name => 'OKC',
779: p_msg_name => G_REQUIRED_VALUE,
780: p_token1 => G_COL_NAME_TOKEN,
774:
775: IF l_chr_id IS NULL OR l_chr_id = OKL_API.G_MISS_NUM THEN
776: x_return_status := OKL_API.G_RET_STS_ERROR;
777: -- Contract ID is required
778: OKL_API.set_message( p_app_name => 'OKC',
779: p_msg_name => G_REQUIRED_VALUE,
780: p_token1 => G_COL_NAME_TOKEN,
781: p_token1_value => 'Contract Id');
782: RAISE OKL_API.G_EXCEPTION_ERROR;
778: OKL_API.set_message( p_app_name => 'OKC',
779: p_msg_name => G_REQUIRED_VALUE,
780: p_token1 => G_COL_NAME_TOKEN,
781: p_token1_value => 'Contract Id');
782: RAISE OKL_API.G_EXCEPTION_ERROR;
783: END IF;
784: CLOSE l_okcklinesv_csr;
785:
786: -- RRAVIKIR Legal Entity Changes
792: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'l_legal_entity_id :'||l_legal_entity_id);
793: END IF;
794:
795: IF (l_legal_entity_id is null or l_legal_entity_id = OKC_API.G_MISS_NUM) THEN
796: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
797: p_msg_name => g_required_value,
798: p_token1 => g_col_name_token,
799: p_token1_value => 'legal_entity_id');
800: RAISE OKC_API.G_EXCEPTION_ERROR;
802:
803: lp_artv_rec.legal_entity_id := l_legal_entity_id;
804: -- Legal Entity Changes
805:
806: IF l_item_description IS NULL OR l_item_description = OKL_API.G_MISS_CHAR THEN
807: lp_artv_rec.new_item_description := l_name ;
808: ELSE
809: lp_artv_rec.new_item_description := l_name||', '||l_item_description;
810: END IF;
814: END IF;
815:
816: OKL_AM_LEASE_LOAN_TRMNT_PVT.validate_contract(
817: p_api_version => p_api_version,
818: p_init_msg_list => OKL_API.G_FALSE,
819: x_return_status => x_return_status,
820: x_msg_count => x_msg_count,
821: x_msg_data => x_msg_data,
822: p_contract_id => l_chr_id,
827: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'called OKL_AM_LEASE_LOAN_TRMNT_PVT.validate_contract, x_return_status: ' || x_return_status);
828: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'l_contract_status: ' || l_contract_status);
829: END IF;
830:
831: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
832: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
833: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
834: RAISE OKL_API.G_EXCEPTION_ERROR;
835: END IF;
828: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'l_contract_status: ' || l_contract_status);
829: END IF;
830:
831: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
832: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
833: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
834: RAISE OKL_API.G_EXCEPTION_ERROR;
835: END IF;
836:
829: END IF;
830:
831: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
832: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
833: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
834: RAISE OKL_API.G_EXCEPTION_ERROR;
835: END IF;
836:
837: --Bug# 3925453: pagarg +++ T and A +++++++ Start ++++++++++
830:
831: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
832: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
833: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
834: RAISE OKL_API.G_EXCEPTION_ERROR;
835: END IF;
836:
837: --Bug# 3925453: pagarg +++ T and A +++++++ Start ++++++++++
838: IF p_quote_id <> NULL AND p_quote_id <> OKL_API.G_MISS_NUM
834: RAISE OKL_API.G_EXCEPTION_ERROR;
835: END IF;
836:
837: --Bug# 3925453: pagarg +++ T and A +++++++ Start ++++++++++
838: IF p_quote_id <> NULL AND p_quote_id <> OKL_API.G_MISS_NUM
839: THEN
840: OPEN l_qte_type_csr(p_quote_id => p_quote_id);
841: FETCH l_qte_type_csr INTO l_qtp_code;
842: CLOSE l_qte_type_csr;
851: --Bug# 3925453: pagarg +++ T and A ++++
852: -- Validating for ARS_CODE
853: -- Valid values for ARS_CODE are SCHEDULED, RETURNED, RELEASE_IN_PROCESS
854: -- If quote type is TER_RELEASE_WO_PURCHASE then ARS_CODE must be RELEASE_IN_PROCESS
855: IF lp_artv_rec.ARS_CODE IS NULL OR lp_artv_rec.ARS_CODE = OKL_API.G_MISS_CHAR THEN
856: lp_artv_rec.ARS_CODE := 'SCHEDULED';
857: ELSIF lp_artv_rec.ARS_CODE NOT IN ('SCHEDULED','RETURNED', 'RELEASE_IN_PROCESS')
858: OR (l_qtp_code = 'TER_RELEASE_WO_PURCHASE' AND lp_artv_rec.ARS_CODE <> 'RELEASE_IN_PROCESS')
859: THEN
856: lp_artv_rec.ARS_CODE := 'SCHEDULED';
857: ELSIF lp_artv_rec.ARS_CODE NOT IN ('SCHEDULED','RETURNED', 'RELEASE_IN_PROCESS')
858: OR (l_qtp_code = 'TER_RELEASE_WO_PURCHASE' AND lp_artv_rec.ARS_CODE <> 'RELEASE_IN_PROCESS')
859: THEN
860: x_return_status := OKL_API.G_RET_STS_ERROR;
861: -- Asset Return status should be set to Scheduled or Returned.
862: OKL_API.set_message( p_app_name => 'OKL',
863: p_msg_name => 'OKL_AM_INVALID_CREATE_STATUS');
864: RAISE OKL_API.G_EXCEPTION_ERROR;
858: OR (l_qtp_code = 'TER_RELEASE_WO_PURCHASE' AND lp_artv_rec.ARS_CODE <> 'RELEASE_IN_PROCESS')
859: THEN
860: x_return_status := OKL_API.G_RET_STS_ERROR;
861: -- Asset Return status should be set to Scheduled or Returned.
862: OKL_API.set_message( p_app_name => 'OKL',
863: p_msg_name => 'OKL_AM_INVALID_CREATE_STATUS');
864: RAISE OKL_API.G_EXCEPTION_ERROR;
865: END IF;
866: --rkuttiya added for Loans Repossession
860: x_return_status := OKL_API.G_RET_STS_ERROR;
861: -- Asset Return status should be set to Scheduled or Returned.
862: OKL_API.set_message( p_app_name => 'OKL',
863: p_msg_name => 'OKL_AM_INVALID_CREATE_STATUS');
864: RAISE OKL_API.G_EXCEPTION_ERROR;
865: END IF;
866: --rkuttiya added for Loans Repossession
867: -- validate that it is not a Loans Repossession
868: IF (is_debug_statement_on) THEN
875: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'called OKL_AM_CREATE_QUOTE_PVT.check_repo_quote, lx_return_status: ' || lx_return_status);
876: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'l_repo_yn: ' || l_repo_yn);
877: END IF;
878:
879: IF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
880: RAISE OKC_API.G_EXCEPTION_ERROR;
881: END IF;
882:
883: IF lp_artv_rec.art1_code = 'REPOS_REQUEST' AND l_repo_yn = 'N' THEN
881: END IF;
882:
883: IF lp_artv_rec.art1_code = 'REPOS_REQUEST' AND l_repo_yn = 'N' THEN
884:
885: IF lp_artv_rec.rna_id IS NULL OR lp_artv_rec.rna_id = OKL_API.G_MISS_NUM THEN
886:
887: x_return_status := OKL_API.G_RET_STS_ERROR;
888: -- Agent Name is required
889: OKL_API.set_message( p_app_name => 'OKL',
883: IF lp_artv_rec.art1_code = 'REPOS_REQUEST' AND l_repo_yn = 'N' THEN
884:
885: IF lp_artv_rec.rna_id IS NULL OR lp_artv_rec.rna_id = OKL_API.G_MISS_NUM THEN
886:
887: x_return_status := OKL_API.G_RET_STS_ERROR;
888: -- Agent Name is required
889: OKL_API.set_message( p_app_name => 'OKL',
890: p_msg_name => 'OKL_AM_REQ_FIELD_ERR',
891: p_token1 => 'PROMPT',
885: IF lp_artv_rec.rna_id IS NULL OR lp_artv_rec.rna_id = OKL_API.G_MISS_NUM THEN
886:
887: x_return_status := OKL_API.G_RET_STS_ERROR;
888: -- Agent Name is required
889: OKL_API.set_message( p_app_name => 'OKL',
890: p_msg_name => 'OKL_AM_REQ_FIELD_ERR',
891: p_token1 => 'PROMPT',
892: p_token1_value => 'rna_id');
893: RAISE OKL_API.G_EXCEPTION_ERROR;
889: OKL_API.set_message( p_app_name => 'OKL',
890: p_msg_name => 'OKL_AM_REQ_FIELD_ERR',
891: p_token1 => 'PROMPT',
892: p_token1_value => 'rna_id');
893: RAISE OKL_API.G_EXCEPTION_ERROR;
894:
895: ELSIF lp_artv_rec.date_repossession_required IS NULL OR lp_artv_rec.date_repossession_required = OKL_API.G_MISS_DATE THEN
896:
897: x_return_status := OKL_API.G_RET_STS_ERROR;
891: p_token1 => 'PROMPT',
892: p_token1_value => 'rna_id');
893: RAISE OKL_API.G_EXCEPTION_ERROR;
894:
895: ELSIF lp_artv_rec.date_repossession_required IS NULL OR lp_artv_rec.date_repossession_required = OKL_API.G_MISS_DATE THEN
896:
897: x_return_status := OKL_API.G_RET_STS_ERROR;
898: -- Date Required is required
899: OKL_API.set_message( p_app_name => 'OKL',
893: RAISE OKL_API.G_EXCEPTION_ERROR;
894:
895: ELSIF lp_artv_rec.date_repossession_required IS NULL OR lp_artv_rec.date_repossession_required = OKL_API.G_MISS_DATE THEN
896:
897: x_return_status := OKL_API.G_RET_STS_ERROR;
898: -- Date Required is required
899: OKL_API.set_message( p_app_name => 'OKL',
900: p_msg_name => 'OKL_AM_REQ_FIELD_ERR',
901: p_token1 => 'PROMPT',
895: ELSIF lp_artv_rec.date_repossession_required IS NULL OR lp_artv_rec.date_repossession_required = OKL_API.G_MISS_DATE THEN
896:
897: x_return_status := OKL_API.G_RET_STS_ERROR;
898: -- Date Required is required
899: OKL_API.set_message( p_app_name => 'OKL',
900: p_msg_name => 'OKL_AM_REQ_FIELD_ERR',
901: p_token1 => 'PROMPT',
902: p_token1_value => 'date_repossession_required');
903: RAISE OKL_API.G_EXCEPTION_ERROR;
899: OKL_API.set_message( p_app_name => 'OKL',
900: p_msg_name => 'OKL_AM_REQ_FIELD_ERR',
901: p_token1 => 'PROMPT',
902: p_token1_value => 'date_repossession_required');
903: RAISE OKL_API.G_EXCEPTION_ERROR;
904:
905: ELSIF lp_artv_rec.date_repossession_actual IS NULL OR lp_artv_rec.date_repossession_actual = OKL_API.G_MISS_DATE THEN
906:
907: x_return_status := OKL_API.G_RET_STS_ERROR;
901: p_token1 => 'PROMPT',
902: p_token1_value => 'date_repossession_required');
903: RAISE OKL_API.G_EXCEPTION_ERROR;
904:
905: ELSIF lp_artv_rec.date_repossession_actual IS NULL OR lp_artv_rec.date_repossession_actual = OKL_API.G_MISS_DATE THEN
906:
907: x_return_status := OKL_API.G_RET_STS_ERROR;
908: -- Date Actual is required
909: OKL_API.set_message( p_app_name => 'OKL',
903: RAISE OKL_API.G_EXCEPTION_ERROR;
904:
905: ELSIF lp_artv_rec.date_repossession_actual IS NULL OR lp_artv_rec.date_repossession_actual = OKL_API.G_MISS_DATE THEN
906:
907: x_return_status := OKL_API.G_RET_STS_ERROR;
908: -- Date Actual is required
909: OKL_API.set_message( p_app_name => 'OKL',
910: p_msg_name => 'OKL_AM_REQ_FIELD_ERR',
911: p_token1 => 'PROMPT',
905: ELSIF lp_artv_rec.date_repossession_actual IS NULL OR lp_artv_rec.date_repossession_actual = OKL_API.G_MISS_DATE THEN
906:
907: x_return_status := OKL_API.G_RET_STS_ERROR;
908: -- Date Actual is required
909: OKL_API.set_message( p_app_name => 'OKL',
910: p_msg_name => 'OKL_AM_REQ_FIELD_ERR',
911: p_token1 => 'PROMPT',
912: p_token1_value => 'date_repossession_actual');
913: RAISE OKL_API.G_EXCEPTION_ERROR;
909: OKL_API.set_message( p_app_name => 'OKL',
910: p_msg_name => 'OKL_AM_REQ_FIELD_ERR',
911: p_token1 => 'PROMPT',
912: p_token1_value => 'date_repossession_actual');
913: RAISE OKL_API.G_EXCEPTION_ERROR;
914:
915: ELSIF lp_artv_rec.date_hold_until IS NULL OR lp_artv_rec.date_hold_until = OKL_API.G_MISS_DATE THEN
916:
917: x_return_status := OKL_API.G_RET_STS_ERROR;
911: p_token1 => 'PROMPT',
912: p_token1_value => 'date_repossession_actual');
913: RAISE OKL_API.G_EXCEPTION_ERROR;
914:
915: ELSIF lp_artv_rec.date_hold_until IS NULL OR lp_artv_rec.date_hold_until = OKL_API.G_MISS_DATE THEN
916:
917: x_return_status := OKL_API.G_RET_STS_ERROR;
918: -- Date Hold Until is required
919: OKL_API.set_message( p_app_name => 'OKL',
913: RAISE OKL_API.G_EXCEPTION_ERROR;
914:
915: ELSIF lp_artv_rec.date_hold_until IS NULL OR lp_artv_rec.date_hold_until = OKL_API.G_MISS_DATE THEN
916:
917: x_return_status := OKL_API.G_RET_STS_ERROR;
918: -- Date Hold Until is required
919: OKL_API.set_message( p_app_name => 'OKL',
920: p_msg_name => 'OKL_AM_REQ_FIELD_ERR',
921: p_token1 => 'PROMPT',
915: ELSIF lp_artv_rec.date_hold_until IS NULL OR lp_artv_rec.date_hold_until = OKL_API.G_MISS_DATE THEN
916:
917: x_return_status := OKL_API.G_RET_STS_ERROR;
918: -- Date Hold Until is required
919: OKL_API.set_message( p_app_name => 'OKL',
920: p_msg_name => 'OKL_AM_REQ_FIELD_ERR',
921: p_token1 => 'PROMPT',
922: p_token1_value => 'date_hold_until');
923: RAISE OKL_API.G_EXCEPTION_ERROR;
919: OKL_API.set_message( p_app_name => 'OKL',
920: p_msg_name => 'OKL_AM_REQ_FIELD_ERR',
921: p_token1 => 'PROMPT',
922: p_token1_value => 'date_hold_until');
923: RAISE OKL_API.G_EXCEPTION_ERROR;
924:
925: END IF;
926:
927: END IF;
949: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'l_floor_price: ' || l_floor_price);
950: END IF;
951:
952:
953: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
954: RAISE floor_price_error;
955: ELSE
956: -- SECHAWLA Bug # 2667636 : added the following logic to convert floor price to functional currency
957:
986: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'lx_currency_conversion_date: ' || lx_currency_conversion_date);
987: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'lx_converted_amount: ' || lx_converted_amount);
988: END IF;
989:
990: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
991: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
992: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
993: RAISE OKL_API.G_EXCEPTION_ERROR;
994: END IF;
987: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'lx_converted_amount: ' || lx_converted_amount);
988: END IF;
989:
990: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
991: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
992: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
993: RAISE OKL_API.G_EXCEPTION_ERROR;
994: END IF;
995:
988: END IF;
989:
990: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
991: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
992: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
993: RAISE OKL_API.G_EXCEPTION_ERROR;
994: END IF;
995:
996: lp_artv_rec.floor_price := lx_converted_amount ;
989:
990: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
991: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
992: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
993: RAISE OKL_API.G_EXCEPTION_ERROR;
994: END IF;
995:
996: lp_artv_rec.floor_price := lx_converted_amount ;
997:
1015: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'x_return_status of get_item_price: ' || x_return_status);
1016: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'l_item_price: ' || l_item_price);
1017: END IF;
1018:
1019: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1020: -- SECHAWLA 07-FEB-03 Bug # 2758114 : Do not default item price to floor price. Propogate error if a formula
1021: -- is found and execution returns error.
1022: --lp_artv_rec.new_item_price := l_floor_price;
1023: RAISE item_price_error;
1052: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'lx_currency_conversion_date: ' || lx_currency_conversion_date);
1053: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'lx_converted_amount: ' || lx_converted_amount);
1054: END IF;
1055:
1056: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1057: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1058: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1059: RAISE OKL_API.G_EXCEPTION_ERROR;
1060: END IF;
1053: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'lx_converted_amount: ' || lx_converted_amount);
1054: END IF;
1055:
1056: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1057: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1058: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1059: RAISE OKL_API.G_EXCEPTION_ERROR;
1060: END IF;
1061:
1054: END IF;
1055:
1056: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1057: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1058: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1059: RAISE OKL_API.G_EXCEPTION_ERROR;
1060: END IF;
1061:
1062: lp_artv_rec.new_item_price := lx_converted_amount ;
1055:
1056: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1057: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1058: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1059: RAISE OKL_API.G_EXCEPTION_ERROR;
1060: END IF;
1061:
1062: lp_artv_rec.new_item_price := lx_converted_amount ;
1063:
1091: END IF;
1092: lp_artv_rec.repurchase_agmt_yn := l_repurchase_yn;
1093:
1094: -- Call AssignRemarker procedure to assign the default remarketer
1095: IF (lp_artv_rec.rmr_id = OKL_API.G_MISS_NUM)
1096: OR (lp_artv_rec.rmr_id IS NULL) THEN
1097:
1098: assign_remarketer(
1099: p_kle_id => lp_artv_rec.kle_id,
1105: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'l_rmr_id: ' || l_rmr_id);
1106: END IF;
1107:
1108: -- Set the message if no default remarketer found
1109: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1110:
1111: --SECHAWLA 16-JAN-03 Bug# 2754280: Added the following code to display user profile option name in messages
1112: -- instead of profile option name
1113: l_user_profile_name := okl_am_util_pvt.get_user_profile_option_name(
1117: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'x_return_status of okl_am_util_pvt.get_user_profile_option_name: ' || x_return_status);
1118: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'l_user_profile_name: ' || l_user_profile_name);
1119: END IF;
1120:
1121: IF x_return_status = OKL_API.G_RET_STS_ERROR THEN
1122: --Default Remarketer profile is missing.
1123: OKL_API.set_message( p_app_name => 'OKL',
1124: p_msg_name => 'OKL_AM_NO_DEF_RMK_PROFILE'
1125: );
1119: END IF;
1120:
1121: IF x_return_status = OKL_API.G_RET_STS_ERROR THEN
1122: --Default Remarketer profile is missing.
1123: OKL_API.set_message( p_app_name => 'OKL',
1124: p_msg_name => 'OKL_AM_NO_DEF_RMK_PROFILE'
1125: );
1126: RAISE okl_api.G_EXCEPTION_ERROR;
1127: ELSIF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1122: --Default Remarketer profile is missing.
1123: OKL_API.set_message( p_app_name => 'OKL',
1124: p_msg_name => 'OKL_AM_NO_DEF_RMK_PROFILE'
1125: );
1126: RAISE okl_api.G_EXCEPTION_ERROR;
1127: ELSIF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1128: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1129: END IF;
1130: -- SECHAWLA 16-JAN-03 Bug# 2754280 -- end new code
1123: OKL_API.set_message( p_app_name => 'OKL',
1124: p_msg_name => 'OKL_AM_NO_DEF_RMK_PROFILE'
1125: );
1126: RAISE okl_api.G_EXCEPTION_ERROR;
1127: ELSIF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1128: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1129: END IF;
1130: -- SECHAWLA 16-JAN-03 Bug# 2754280 -- end new code
1131:
1124: p_msg_name => 'OKL_AM_NO_DEF_RMK_PROFILE'
1125: );
1126: RAISE okl_api.G_EXCEPTION_ERROR;
1127: ELSIF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1128: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1129: END IF;
1130: -- SECHAWLA 16-JAN-03 Bug# 2754280 -- end new code
1131:
1132:
1129: END IF;
1130: -- SECHAWLA 16-JAN-03 Bug# 2754280 -- end new code
1131:
1132:
1133: OKL_API.set_message( p_app_name => 'OKL',
1134: p_msg_name => 'OKL_AM_RMK_NO_PROFILE_VALUE',
1135: p_token1 => 'PROFILE',
1136: p_token1_value => l_user_profile_name -- SECHAWLA 16-JAN-03 Bug# 2754280 : Modified to display user profile option name
1137: );
1134: p_msg_name => 'OKL_AM_RMK_NO_PROFILE_VALUE',
1135: p_token1 => 'PROFILE',
1136: p_token1_value => l_user_profile_name -- SECHAWLA 16-JAN-03 Bug# 2754280 : Modified to display user profile option name
1137: );
1138: RAISE okl_api.G_EXCEPTION_ERROR;
1139: END IF;
1140:
1141: -- Set the default remarketer
1142: lp_artv_rec.rmr_id := l_rmr_id;
1143: END IF;
1144:
1145: -- DJANASWA Changes for 'Asset repossession for a loan' project BEGIN
1146: IF (lp_artv_rec.ASSET_FMV_AMOUNT IS NOT NULL
1147: AND lp_artv_rec.ASSET_FMV_AMOUNT <> OKL_API.G_MISS_NUM) THEN
1148: IF lp_artv_rec.ASSET_FMV_AMOUNT < 0 THEN
1149: x_return_status := OKL_API.G_RET_STS_ERROR;
1150: -- Asset FMV Amount cannot be less than zero.
1151:
1145: -- DJANASWA Changes for 'Asset repossession for a loan' project BEGIN
1146: IF (lp_artv_rec.ASSET_FMV_AMOUNT IS NOT NULL
1147: AND lp_artv_rec.ASSET_FMV_AMOUNT <> OKL_API.G_MISS_NUM) THEN
1148: IF lp_artv_rec.ASSET_FMV_AMOUNT < 0 THEN
1149: x_return_status := OKL_API.G_RET_STS_ERROR;
1150: -- Asset FMV Amount cannot be less than zero.
1151:
1152: OKL_API.set_message( p_app_name => 'OKL',
1153: p_msg_name => 'OKL_AM_ASSET_FMV_AMT_ERR');
1148: IF lp_artv_rec.ASSET_FMV_AMOUNT < 0 THEN
1149: x_return_status := OKL_API.G_RET_STS_ERROR;
1150: -- Asset FMV Amount cannot be less than zero.
1151:
1152: OKL_API.set_message( p_app_name => 'OKL',
1153: p_msg_name => 'OKL_AM_ASSET_FMV_AMT_ERR');
1154:
1155: RAISE OKL_API.G_EXCEPTION_ERROR;
1156: END IF;
1151:
1152: OKL_API.set_message( p_app_name => 'OKL',
1153: p_msg_name => 'OKL_AM_ASSET_FMV_AMT_ERR');
1154:
1155: RAISE OKL_API.G_EXCEPTION_ERROR;
1156: END IF;
1157: END IF;
1158: -- DJANASWA Changes for 'Asset repossession for a loan' project END
1159:
1170:
1171: -- call insert of tapi
1172: OKL_ASSET_RETURNS_PUB.insert_asset_returns(
1173: p_api_version => p_api_version,
1174: p_init_msg_list => OKL_API.G_FALSE,
1175: x_return_status => x_return_status,
1176: x_msg_count => x_msg_count,
1177: x_msg_data => x_msg_data,
1178: p_artv_rec => lp_artv_rec,
1181: IF (is_debug_statement_on) THEN
1182: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'called OKL_ASSET_RETURNS_PUB.insert_asset_returns, x_return_status: ' || x_return_status);
1183: END IF;
1184:
1185: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1186: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1187: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1188: RAISE OKL_API.G_EXCEPTION_ERROR;
1189: END IF;
1182: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'called OKL_ASSET_RETURNS_PUB.insert_asset_returns, x_return_status: ' || x_return_status);
1183: END IF;
1184:
1185: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1186: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1187: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1188: RAISE OKL_API.G_EXCEPTION_ERROR;
1189: END IF;
1190:
1183: END IF;
1184:
1185: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1186: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1187: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1188: RAISE OKL_API.G_EXCEPTION_ERROR;
1189: END IF;
1190:
1191:
1184:
1185: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1186: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1187: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1188: RAISE OKL_API.G_EXCEPTION_ERROR;
1189: END IF;
1190:
1191:
1192: x_artv_rec := lx_artv_rec;
1211: IF (is_debug_statement_on) THEN
1212: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'calling OKL_AM_SHIPPING_INSTR_PUB.create_shipping_instr');
1213: END IF;
1214: OKL_AM_SHIPPING_INSTR_PUB.create_shipping_instr(p_api_version => p_api_version
1215: ,p_init_msg_list => OKL_API.G_FALSE
1216: ,x_return_status => x_return_status
1217: ,x_msg_count => x_msg_count
1218: ,x_msg_data => x_msg_data
1219: ,p_rasv_rec => lp_rasv_rec
1221: IF (is_debug_statement_on) THEN
1222: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'called OKL_AM_SHIPPING_INSTR_PUB.create_shipping_instr, x_return_status: ' || x_return_status);
1223: END IF;
1224:
1225: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1226: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1227: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1228: RAISE OKL_API.G_EXCEPTION_ERROR;
1229: END IF;
1222: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'called OKL_AM_SHIPPING_INSTR_PUB.create_shipping_instr, x_return_status: ' || x_return_status);
1223: END IF;
1224:
1225: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1226: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1227: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1228: RAISE OKL_API.G_EXCEPTION_ERROR;
1229: END IF;
1230:
1223: END IF;
1224:
1225: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1226: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1227: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1228: RAISE OKL_API.G_EXCEPTION_ERROR;
1229: END IF;
1230:
1231: IF (is_debug_statement_on) THEN
1224:
1225: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1226: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1227: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1228: RAISE OKL_API.G_EXCEPTION_ERROR;
1229: END IF;
1230:
1231: IF (is_debug_statement_on) THEN
1232: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'Raising workflow OKL_AM_WF.raise_business_event,oracle.apps.okl.am.notifyremarketer, lx_artv_rec.id:' || lx_artv_rec.id);
1251: IF (is_debug_statement_on) THEN
1252: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'called okl_am_util_pvt.get_rule_record, l_return_status: ' || l_return_status);
1253: END IF;
1254:
1255: IF l_return_status = OKL_API.G_RET_STS_SUCCESS AND l_rulv_rec.object2_id1 IS NOT NULL AND l_rulv_rec.object2_id1 <> OKL_API.G_MISS_NUM THEN
1256: IF (is_debug_statement_on) THEN
1257: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'Raising workflow OKL_AM_WF.raise_business_event,oracle.apps.okl.am.notifytitleholder, lx_artv_rec.id:' || lx_artv_rec.id);
1258: END IF;
1259: OKL_AM_WF.raise_business_event(lx_artv_rec.id,'oracle.apps.okl.am.notifytitleholder');
1288:
1289: -- ++++++++++++++++++++ service contract integration end ++++++++++++++++++
1290:
1291:
1292: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1293:
1294: IF (is_debug_procedure_on) THEN
1295: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
1296: END IF;
1315: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_INSURANCE_ERROR');
1316: END IF;
1317:
1318: -- notify caller of an UNEXPECTED error
1319: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1320:
1321: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1322: IF l_okcklinesv_csr%ISOPEN THEN
1323: CLOSE l_okcklinesv_csr;
1317:
1318: -- notify caller of an UNEXPECTED error
1319: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1320:
1321: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1322: IF l_okcklinesv_csr%ISOPEN THEN
1323: CLOSE l_okcklinesv_csr;
1324: END IF;
1325:
1331: IF (is_debug_exception_on) THEN
1332: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
1333: END IF;
1334:
1335: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1336: (
1337: l_api_name,
1338: G_PKG_NAME,
1339: 'OKL_API.G_RET_STS_ERROR',
1335: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1336: (
1337: l_api_name,
1338: G_PKG_NAME,
1339: 'OKL_API.G_RET_STS_ERROR',
1340: x_msg_count,
1341: x_msg_data,
1342: '_PVT'
1343: );
1341: x_msg_data,
1342: '_PVT'
1343: );
1344:
1345: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1346: IF l_okcklinesv_csr%ISOPEN THEN
1347: CLOSE l_okcklinesv_csr;
1348: END IF;
1349:
1355: IF (is_debug_exception_on) THEN
1356: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
1357: END IF;
1358:
1359: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1360: (
1361: l_api_name,
1362: G_PKG_NAME,
1363: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1359: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1360: (
1361: l_api_name,
1362: G_PKG_NAME,
1363: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1364: x_msg_count,
1365: x_msg_data,
1366: '_PVT'
1367: );
1380: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1381: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1382: END IF;
1383:
1384: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1385: (
1386: l_api_name,
1387: G_PKG_NAME,
1388: 'OTHERS',
1449:
1450: OPEN l_okclines_csr;
1451: FETCH l_okclines_csr INTO l_sts_code;
1452: IF l_okclines_csr%NOTFOUND THEN
1453: x_return_status := OKL_API.G_RET_STS_ERROR;
1454: -- Kle ID is invalid
1455: OKL_API.set_message(
1456: p_app_name => 'OKC',
1457: p_msg_name => G_INVALID_VALUE,
1451: FETCH l_okclines_csr INTO l_sts_code;
1452: IF l_okclines_csr%NOTFOUND THEN
1453: x_return_status := OKL_API.G_RET_STS_ERROR;
1454: -- Kle ID is invalid
1455: OKL_API.set_message(
1456: p_app_name => 'OKC',
1457: p_msg_name => G_INVALID_VALUE,
1458: p_token1 => G_COL_NAME_TOKEN,
1459: p_token1_value => 'KLE_ID');
1461: END IF;
1462: CLOSE l_okclines_csr;
1463:
1464: IF l_sts_code NOT IN ( 'TERMINATED','EXPIRED') THEN
1465: x_return_status := OKL_API.G_RET_STS_ERROR;
1466: -- Asset ASSET_NUMBER is still STATUS. Asset should be terminated or expired.
1467: OKL_API.set_message(
1468: p_app_name => 'OKL',
1469: p_msg_name => 'OKL_AM_ASSET_NOT_TERMINATED',
1463:
1464: IF l_sts_code NOT IN ( 'TERMINATED','EXPIRED') THEN
1465: x_return_status := OKL_API.G_RET_STS_ERROR;
1466: -- Asset ASSET_NUMBER is still STATUS. Asset should be terminated or expired.
1467: OKL_API.set_message(
1468: p_app_name => 'OKL',
1469: p_msg_name => 'OKL_AM_ASSET_NOT_TERMINATED',
1470: p_token1 => 'ASSET_NUMBER',
1471: p_token1_value => p_asset_number,
1488: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1489: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1490: END IF;
1491:
1492: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1493: OKC_API.set_message(p_app_name => 'OKC',
1494: p_msg_name => g_unexpected_error,
1495: p_token1 => g_sqlcode_token,
1496: p_token1_value => sqlcode,
1535: x_artv_rec OUT NOCOPY artv_rec_type) AS
1536:
1537: lp_artv_rec artv_rec_type := p_artv_rec;
1538: lx_artv_rec artv_rec_type;
1539: l_floor_amt NUMBER := OKL_API.G_MISS_NUM;
1540: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1541: l_api_name CONSTANT VARCHAR2(30) := 'update_asset_return';
1542: l_inventory_item_id NUMBER := OKL_API.G_MISS_NUM;
1543: l_Item_Price NUMBER := OKL_API.G_MISS_NUM;
1536:
1537: lp_artv_rec artv_rec_type := p_artv_rec;
1538: lx_artv_rec artv_rec_type;
1539: l_floor_amt NUMBER := OKL_API.G_MISS_NUM;
1540: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1541: l_api_name CONSTANT VARCHAR2(30) := 'update_asset_return';
1542: l_inventory_item_id NUMBER := OKL_API.G_MISS_NUM;
1543: l_Item_Price NUMBER := OKL_API.G_MISS_NUM;
1544: l_New_Item_Number VARCHAR2(25);
1538: lx_artv_rec artv_rec_type;
1539: l_floor_amt NUMBER := OKL_API.G_MISS_NUM;
1540: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1541: l_api_name CONSTANT VARCHAR2(30) := 'update_asset_return';
1542: l_inventory_item_id NUMBER := OKL_API.G_MISS_NUM;
1543: l_Item_Price NUMBER := OKL_API.G_MISS_NUM;
1544: l_New_Item_Number VARCHAR2(25);
1545: l_New_Item_Id NUMBER := OKL_API.G_MISS_NUM;
1546: l_quantity NUMBER;
1539: l_floor_amt NUMBER := OKL_API.G_MISS_NUM;
1540: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1541: l_api_name CONSTANT VARCHAR2(30) := 'update_asset_return';
1542: l_inventory_item_id NUMBER := OKL_API.G_MISS_NUM;
1543: l_Item_Price NUMBER := OKL_API.G_MISS_NUM;
1544: l_New_Item_Number VARCHAR2(25);
1545: l_New_Item_Id NUMBER := OKL_API.G_MISS_NUM;
1546: l_quantity NUMBER;
1547: l_api_version CONSTANT NUMBER := 1;
1541: l_api_name CONSTANT VARCHAR2(30) := 'update_asset_return';
1542: l_inventory_item_id NUMBER := OKL_API.G_MISS_NUM;
1543: l_Item_Price NUMBER := OKL_API.G_MISS_NUM;
1544: l_New_Item_Number VARCHAR2(25);
1545: l_New_Item_Id NUMBER := OKL_API.G_MISS_NUM;
1546: l_quantity NUMBER;
1547: l_api_version CONSTANT NUMBER := 1;
1548: l_current_db_status VARCHAR2(30);
1549: l_kle_id NUMBER;
1747: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'In param, lp_artv_rec.attribute14:' || lp_artv_rec.attribute14);
1748: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'In param, lp_artv_rec.new_item_number:' || lp_artv_rec.new_item_number);
1749: END IF;
1750:
1751: l_return_status := OKL_API.START_ACTIVITY( l_api_name,
1752: G_PKG_NAME,
1753: p_init_msg_list,
1754: l_api_version,
1755: p_api_version,
1755: p_api_version,
1756: '_PVT',
1757: x_return_status);
1758:
1759: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1760: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1761: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1762: RAISE OKL_API.G_EXCEPTION_ERROR;
1763: END IF;
1756: '_PVT',
1757: x_return_status);
1758:
1759: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1760: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1761: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1762: RAISE OKL_API.G_EXCEPTION_ERROR;
1763: END IF;
1764:
1757: x_return_status);
1758:
1759: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1760: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1761: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1762: RAISE OKL_API.G_EXCEPTION_ERROR;
1763: END IF;
1764:
1765: IF lp_artv_rec.id IS NULL OR lp_artv_rec.id = OKL_API.G_MISS_NUM THEN
1758:
1759: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1760: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1761: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1762: RAISE OKL_API.G_EXCEPTION_ERROR;
1763: END IF;
1764:
1765: IF lp_artv_rec.id IS NULL OR lp_artv_rec.id = OKL_API.G_MISS_NUM THEN
1766: x_return_status := OKL_API.G_RET_STS_ERROR;
1761: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1762: RAISE OKL_API.G_EXCEPTION_ERROR;
1763: END IF;
1764:
1765: IF lp_artv_rec.id IS NULL OR lp_artv_rec.id = OKL_API.G_MISS_NUM THEN
1766: x_return_status := OKL_API.G_RET_STS_ERROR;
1767: -- Asset Return ID is required
1768: OKL_API.set_message( p_app_name => 'OKC',
1769: p_msg_name => G_REQUIRED_VALUE,
1762: RAISE OKL_API.G_EXCEPTION_ERROR;
1763: END IF;
1764:
1765: IF lp_artv_rec.id IS NULL OR lp_artv_rec.id = OKL_API.G_MISS_NUM THEN
1766: x_return_status := OKL_API.G_RET_STS_ERROR;
1767: -- Asset Return ID is required
1768: OKL_API.set_message( p_app_name => 'OKC',
1769: p_msg_name => G_REQUIRED_VALUE,
1770: p_token1 => G_COL_NAME_TOKEN,
1764:
1765: IF lp_artv_rec.id IS NULL OR lp_artv_rec.id = OKL_API.G_MISS_NUM THEN
1766: x_return_status := OKL_API.G_RET_STS_ERROR;
1767: -- Asset Return ID is required
1768: OKL_API.set_message( p_app_name => 'OKC',
1769: p_msg_name => G_REQUIRED_VALUE,
1770: p_token1 => G_COL_NAME_TOKEN,
1771: p_token1_value => 'ASSET_RETURN_ID');
1772: RAISE OKL_API.G_EXCEPTION_ERROR;
1768: OKL_API.set_message( p_app_name => 'OKC',
1769: p_msg_name => G_REQUIRED_VALUE,
1770: p_token1 => G_COL_NAME_TOKEN,
1771: p_token1_value => 'ASSET_RETURN_ID');
1772: RAISE OKL_API.G_EXCEPTION_ERROR;
1773: END IF;
1774:
1775: OPEN l_assetreturnuv_csr(lp_artv_rec.id);
1776: FETCH l_assetreturnuv_csr INTO l_asset_number, l_quantity, l_current_db_status, l_kle_id, l_chr_id, l_item_number;
1774:
1775: OPEN l_assetreturnuv_csr(lp_artv_rec.id);
1776: FETCH l_assetreturnuv_csr INTO l_asset_number, l_quantity, l_current_db_status, l_kle_id, l_chr_id, l_item_number;
1777: IF l_assetreturnuv_csr%NOTFOUND THEN
1778: x_return_status := OKL_API.G_RET_STS_ERROR;
1779: -- Invalid Asset Return ID
1780: OKL_API.set_message( p_app_name => 'OKC',
1781: p_msg_name => G_INVALID_VALUE,
1782: p_token1 => G_COL_NAME_TOKEN,
1776: FETCH l_assetreturnuv_csr INTO l_asset_number, l_quantity, l_current_db_status, l_kle_id, l_chr_id, l_item_number;
1777: IF l_assetreturnuv_csr%NOTFOUND THEN
1778: x_return_status := OKL_API.G_RET_STS_ERROR;
1779: -- Invalid Asset Return ID
1780: OKL_API.set_message( p_app_name => 'OKC',
1781: p_msg_name => G_INVALID_VALUE,
1782: p_token1 => G_COL_NAME_TOKEN,
1783: p_token1_value => 'ASSET_RETURN_ID');
1784: RAISE OKL_API.G_EXCEPTION_ERROR;
1780: OKL_API.set_message( p_app_name => 'OKC',
1781: p_msg_name => G_INVALID_VALUE,
1782: p_token1 => G_COL_NAME_TOKEN,
1783: p_token1_value => 'ASSET_RETURN_ID');
1784: RAISE OKL_API.G_EXCEPTION_ERROR;
1785: END IF;
1786: CLOSE l_assetreturnuv_csr;
1787:
1788: -- RRAVIKIR Legal Entity Changes
1801: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'l_deal_type :'||l_deal_type);
1802: END IF;
1803:
1804: IF (l_legal_entity_id is null or l_legal_entity_id = OKC_API.G_MISS_NUM) THEN
1805: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
1806: p_msg_name => g_required_value,
1807: p_token1 => g_col_name_token,
1808: p_token1_value => 'legal_entity_id');
1809: RAISE OKC_API.G_EXCEPTION_ERROR;
1814:
1815: -- If db status is "available for sale" it can only change to "REMARKETED" or remain "AVAILABLE_FOR_SALE"
1816: IF l_current_db_status = 'AVAILABLE_FOR_SALE' THEN
1817: IF lp_artv_rec.ARS_CODE NOT IN ('AVAILABLE_FOR_SALE', 'REMARKETED') THEN
1818: x_return_status := OKL_API.G_RET_STS_ERROR;
1819:
1820: l_meaning := okl_am_util_pvt.get_lookup_meaning(
1821: p_lookup_type => 'OKL_ASSET_RETURN_STATUS',
1822: p_lookup_code => l_current_db_status);
1821: p_lookup_type => 'OKL_ASSET_RETURN_STATUS',
1822: p_lookup_code => l_current_db_status);
1823:
1824: --Can not change the asset status when it is already Available For Sale.
1825: OKL_API.set_message( p_app_name => 'OKL',
1826: p_msg_name => 'OKL_AM_NO_STATUS_CHANGE',
1827: p_token1 => 'DB_STATUS',
1828: p_token1_value => l_meaning);
1829: RAISE OKL_API.G_EXCEPTION_ERROR;
1825: OKL_API.set_message( p_app_name => 'OKL',
1826: p_msg_name => 'OKL_AM_NO_STATUS_CHANGE',
1827: p_token1 => 'DB_STATUS',
1828: p_token1_value => l_meaning);
1829: RAISE OKL_API.G_EXCEPTION_ERROR;
1830: END IF;
1831: END IF;
1832:
1833: -- If db status is scrapped
1832:
1833: -- If db status is scrapped
1834: IF l_current_db_status = 'SCRAPPED' THEN
1835: IF lp_artv_rec.ARS_CODE <> 'SCRAPPED' THEN
1836: x_return_status := OKL_API.G_RET_STS_ERROR;
1837:
1838: l_meaning := okl_am_util_pvt.get_lookup_meaning(
1839: p_lookup_type => 'OKL_ASSET_RETURN_STATUS',
1840: p_lookup_code => l_current_db_status);
1839: p_lookup_type => 'OKL_ASSET_RETURN_STATUS',
1840: p_lookup_code => l_current_db_status);
1841:
1842: --Can not change the asset status when it is SCRAPPED.
1843: OKL_API.set_message( p_app_name => 'OKL',
1844: p_msg_name => 'OKL_AM_NO_STATUS_CHANGE',
1845: p_token1 => 'DB_STATUS',
1846: p_token1_value => l_meaning);
1847: RAISE OKL_API.G_EXCEPTION_ERROR;
1843: OKL_API.set_message( p_app_name => 'OKL',
1844: p_msg_name => 'OKL_AM_NO_STATUS_CHANGE',
1845: p_token1 => 'DB_STATUS',
1846: p_token1_value => l_meaning);
1847: RAISE OKL_API.G_EXCEPTION_ERROR;
1848: END IF;
1849: END IF;
1850:
1851: -- If db status is CANCELLED
1850:
1851: -- If db status is CANCELLED
1852: IF l_current_db_status = 'CANCELLED' THEN
1853: IF lp_artv_rec.ARS_CODE <> 'CANCELLED' THEN
1854: x_return_status := OKL_API.G_RET_STS_ERROR;
1855:
1856: l_meaning := okl_am_util_pvt.get_lookup_meaning(
1857: p_lookup_type => 'OKL_ASSET_RETURN_STATUS',
1858: p_lookup_code => l_current_db_status);
1858: p_lookup_code => l_current_db_status);
1859:
1860:
1861: --Can not change the asset status when it is 'CANCELLED'
1862: OKL_API.set_message( p_app_name => 'OKL',
1863: p_msg_name => 'OKL_AM_NO_STATUS_CHANGE',
1864: p_token1 => 'DB_STATUS',
1865: p_token1_value => l_meaning);
1866: RAISE OKL_API.G_EXCEPTION_ERROR;
1862: OKL_API.set_message( p_app_name => 'OKL',
1863: p_msg_name => 'OKL_AM_NO_STATUS_CHANGE',
1864: p_token1 => 'DB_STATUS',
1865: p_token1_value => l_meaning);
1866: RAISE OKL_API.G_EXCEPTION_ERROR;
1867: END IF;
1868: END IF;
1869:
1870: -- if db status is REMARKETED
1869:
1870: -- if db status is REMARKETED
1871: IF l_current_db_status = 'REMARKETED' THEN
1872: IF lp_artv_rec.ARS_CODE <> 'REMARKETED' THEN
1873: x_return_status := OKL_API.G_RET_STS_ERROR;
1874:
1875: l_meaning := okl_am_util_pvt.get_lookup_meaning(
1876: p_lookup_type => 'OKL_ASSET_RETURN_STATUS',
1877: p_lookup_code => l_current_db_status);
1877: p_lookup_code => l_current_db_status);
1878:
1879:
1880: --Can not change the asset status when it is 'REMARKETED'
1881: OKL_API.set_message( p_app_name => 'OKL',
1882: p_msg_name => 'OKL_AM_NO_STATUS_CHANGE',
1883: p_token1 => 'DB_STATUS',
1884: p_token1_value => l_meaning);
1885: RAISE OKL_API.G_EXCEPTION_ERROR;
1881: OKL_API.set_message( p_app_name => 'OKL',
1882: p_msg_name => 'OKL_AM_NO_STATUS_CHANGE',
1883: p_token1 => 'DB_STATUS',
1884: p_token1_value => l_meaning);
1885: RAISE OKL_API.G_EXCEPTION_ERROR;
1886: END IF;
1887: END IF;
1888:
1889: -- if db status is REPURCHASE
1888:
1889: -- if db status is REPURCHASE
1890: IF l_current_db_status = 'REPURCHASE' THEN
1891: IF lp_artv_rec.ARS_CODE <> 'REPURCHASE' THEN
1892: x_return_status := OKL_API.G_RET_STS_ERROR;
1893:
1894: l_meaning := okl_am_util_pvt.get_lookup_meaning(
1895: p_lookup_type => 'OKL_ASSET_RETURN_STATUS',
1896: p_lookup_code => l_current_db_status);
1895: p_lookup_type => 'OKL_ASSET_RETURN_STATUS',
1896: p_lookup_code => l_current_db_status);
1897:
1898: --Can not change the asset status when it is 'REPURCHASE'
1899: OKL_API.set_message( p_app_name => 'OKL',
1900: p_msg_name => 'OKL_AM_NO_STATUS_CHANGE',
1901: p_token1 => 'DB_STATUS',
1902: p_token1_value => l_meaning);
1903: RAISE OKL_API.G_EXCEPTION_ERROR;
1899: OKL_API.set_message( p_app_name => 'OKL',
1900: p_msg_name => 'OKL_AM_NO_STATUS_CHANGE',
1901: p_token1 => 'DB_STATUS',
1902: p_token1_value => l_meaning);
1903: RAISE OKL_API.G_EXCEPTION_ERROR;
1904: END IF;
1905: END IF;
1906:
1907: IF l_quantity IS NULL OR l_quantity = OKL_API.G_MISS_NUM THEN
1903: RAISE OKL_API.G_EXCEPTION_ERROR;
1904: END IF;
1905: END IF;
1906:
1907: IF l_quantity IS NULL OR l_quantity = OKL_API.G_MISS_NUM THEN
1908: x_return_status := OKL_API.G_RET_STS_ERROR;
1909: -- Quantity is required
1910: OKL_API.set_message( p_app_name => 'OKC',
1911: p_msg_name => G_REQUIRED_VALUE,
1904: END IF;
1905: END IF;
1906:
1907: IF l_quantity IS NULL OR l_quantity = OKL_API.G_MISS_NUM THEN
1908: x_return_status := OKL_API.G_RET_STS_ERROR;
1909: -- Quantity is required
1910: OKL_API.set_message( p_app_name => 'OKC',
1911: p_msg_name => G_REQUIRED_VALUE,
1912: p_token1 => G_COL_NAME_TOKEN,
1906:
1907: IF l_quantity IS NULL OR l_quantity = OKL_API.G_MISS_NUM THEN
1908: x_return_status := OKL_API.G_RET_STS_ERROR;
1909: -- Quantity is required
1910: OKL_API.set_message( p_app_name => 'OKC',
1911: p_msg_name => G_REQUIRED_VALUE,
1912: p_token1 => G_COL_NAME_TOKEN,
1913: p_token1_value => 'QUANTITY');
1914: RAISE OKL_API.G_EXCEPTION_ERROR;
1910: OKL_API.set_message( p_app_name => 'OKC',
1911: p_msg_name => G_REQUIRED_VALUE,
1912: p_token1 => G_COL_NAME_TOKEN,
1913: p_token1_value => 'QUANTITY');
1914: RAISE OKL_API.G_EXCEPTION_ERROR;
1915: END IF;
1916:
1917: -- l_kle_id and l_current_db_status can not be null
1918:
1919:
1920: -- If status is changing to 'AVAILABLE FOR SALE'
1921: IF l_current_db_status <> 'AVAILABLE_FOR_SALE' THEN
1922:
1923: IF ((lp_artv_rec.imr_id IS NULL OR lp_artv_rec.imr_id = OKL_API.G_MISS_NUM)
1924: AND (lp_artv_rec.ARS_CODE = 'AVAILABLE_FOR_SALE') ) THEN
1925:
1926: -- when the status first changes to Av for sale, make sure that the asset is terminated or expired.
1927:
1932:
1933: IF (is_debug_statement_on) THEN
1934: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'called check_asset_status, x_return_status: '||x_return_status);
1935: END IF;
1936: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1937: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1938: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1939: RAISE OKL_API.G_EXCEPTION_ERROR;
1940: END IF;
1933: IF (is_debug_statement_on) THEN
1934: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'called check_asset_status, x_return_status: '||x_return_status);
1935: END IF;
1936: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1937: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1938: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1939: RAISE OKL_API.G_EXCEPTION_ERROR;
1940: END IF;
1941:
1934: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'called check_asset_status, x_return_status: '||x_return_status);
1935: END IF;
1936: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1937: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1938: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1939: RAISE OKL_API.G_EXCEPTION_ERROR;
1940: END IF;
1941:
1942: -- SECHAWLA 22-JAN-03 Bug # 2762419 : end modification
1935: END IF;
1936: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1937: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1938: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1939: RAISE OKL_API.G_EXCEPTION_ERROR;
1940: END IF;
1941:
1942: -- SECHAWLA 22-JAN-03 Bug # 2762419 : end modification
1943:
1949: OPEN l_mtlsystemitems_csr(p_artv_rec.new_item_number);
1950: FETCH l_mtlsystemitems_csr INTO l_dummy;
1951: IF l_mtlsystemitems_csr%FOUND THEN
1952: --Item number ITEM_NUMBER already exists in Inventory. Please enter another item number.
1953: OKL_API.set_message( p_app_name => 'OKL',
1954: p_msg_name => 'OKL_AM_ITEM_ALREADY_EXISTS',
1955: p_token1 => 'ITEM_NUMBER',
1956: p_token1_value => p_artv_rec.new_item_number);
1957: x_return_status := OKL_API.G_RET_STS_ERROR;
1953: OKL_API.set_message( p_app_name => 'OKL',
1954: p_msg_name => 'OKL_AM_ITEM_ALREADY_EXISTS',
1955: p_token1 => 'ITEM_NUMBER',
1956: p_token1_value => p_artv_rec.new_item_number);
1957: x_return_status := OKL_API.G_RET_STS_ERROR;
1958: RAISE OKL_API.G_EXCEPTION_ERROR;
1959: END IF;
1960: CLOSE l_mtlsystemitems_csr;
1961:
1954: p_msg_name => 'OKL_AM_ITEM_ALREADY_EXISTS',
1955: p_token1 => 'ITEM_NUMBER',
1956: p_token1_value => p_artv_rec.new_item_number);
1957: x_return_status := OKL_API.G_RET_STS_ERROR;
1958: RAISE OKL_API.G_EXCEPTION_ERROR;
1959: END IF;
1960: CLOSE l_mtlsystemitems_csr;
1961:
1962:
1966: OPEN l_systemparamsall_csr;
1967: FETCH l_systemparamsall_csr INTO l_remk_process;
1968: IF l_systemparamsall_csr%NOTFOUND THEN
1969: -- Remarketing options are not setup for this operating unit.
1970: OKL_API.set_message(
1971: p_app_name => 'OKL',
1972: p_msg_name => 'OKL_AM_NO_REMK_SETUP');
1973: x_return_status := OKL_API.G_RET_STS_ERROR;
1974: RAISE OKL_API.G_EXCEPTION_ERROR;
1969: -- Remarketing options are not setup for this operating unit.
1970: OKL_API.set_message(
1971: p_app_name => 'OKL',
1972: p_msg_name => 'OKL_AM_NO_REMK_SETUP');
1973: x_return_status := OKL_API.G_RET_STS_ERROR;
1974: RAISE OKL_API.G_EXCEPTION_ERROR;
1975: END IF;
1976: CLOSE l_systemparamsall_csr;
1977:
1970: OKL_API.set_message(
1971: p_app_name => 'OKL',
1972: p_msg_name => 'OKL_AM_NO_REMK_SETUP');
1973: x_return_status := OKL_API.G_RET_STS_ERROR;
1974: RAISE OKL_API.G_EXCEPTION_ERROR;
1975: END IF;
1976: CLOSE l_systemparamsall_csr;
1977:
1978: IF (is_debug_statement_on) THEN
1980: END IF;
1981:
1982: IF l_remk_process IS NULL THEN
1983: -- Remarketing process is not setup for this operating unit.
1984: OKL_API.set_message(
1985: p_app_name => 'OKL',
1986: p_msg_name => 'OKL_AM_NO_REMK_PROCESS');
1987: x_return_status := OKL_API.G_RET_STS_ERROR;
1988: RAISE OKL_API.G_EXCEPTION_ERROR;
1983: -- Remarketing process is not setup for this operating unit.
1984: OKL_API.set_message(
1985: p_app_name => 'OKL',
1986: p_msg_name => 'OKL_AM_NO_REMK_PROCESS');
1987: x_return_status := OKL_API.G_RET_STS_ERROR;
1988: RAISE OKL_API.G_EXCEPTION_ERROR;
1989: END IF;
1990:
1991: -- SECHAWLA 30-SEP-04 3924244 : end
1984: OKL_API.set_message(
1985: p_app_name => 'OKL',
1986: p_msg_name => 'OKL_AM_NO_REMK_PROCESS');
1987: x_return_status := OKL_API.G_RET_STS_ERROR;
1988: RAISE OKL_API.G_EXCEPTION_ERROR;
1989: END IF;
1990:
1991: -- SECHAWLA 30-SEP-04 3924244 : end
1992:
1989: END IF;
1990:
1991: -- SECHAWLA 30-SEP-04 3924244 : end
1992:
1993: IF p_artv_rec.new_item_description IS NULL OR p_artv_rec.new_item_description = OKL_API.G_MISS_CHAR THEN
1994: x_return_status := OKL_API.G_RET_STS_ERROR;
1995: -- Item Description is required
1996: OKL_API.set_message(
1997: p_app_name => 'OKC',
1990:
1991: -- SECHAWLA 30-SEP-04 3924244 : end
1992:
1993: IF p_artv_rec.new_item_description IS NULL OR p_artv_rec.new_item_description = OKL_API.G_MISS_CHAR THEN
1994: x_return_status := OKL_API.G_RET_STS_ERROR;
1995: -- Item Description is required
1996: OKL_API.set_message(
1997: p_app_name => 'OKC',
1998: p_msg_name => G_REQUIRED_VALUE,
1992:
1993: IF p_artv_rec.new_item_description IS NULL OR p_artv_rec.new_item_description = OKL_API.G_MISS_CHAR THEN
1994: x_return_status := OKL_API.G_RET_STS_ERROR;
1995: -- Item Description is required
1996: OKL_API.set_message(
1997: p_app_name => 'OKC',
1998: p_msg_name => G_REQUIRED_VALUE,
1999: p_token1 => G_COL_NAME_TOKEN,
2000: p_token1_value => 'Item Description');
1997: p_app_name => 'OKC',
1998: p_msg_name => G_REQUIRED_VALUE,
1999: p_token1 => G_COL_NAME_TOKEN,
2000: p_token1_value => 'Item Description');
2001: RAISE OKL_API.G_EXCEPTION_ERROR;
2002: END IF;
2003:
2004: IF p_artv_rec.new_Item_Price IS NULL OR p_artv_rec.new_Item_Price = OKL_API.G_MISS_NUM THEN
2005: x_return_status := OKL_API.G_RET_STS_ERROR;
2000: p_token1_value => 'Item Description');
2001: RAISE OKL_API.G_EXCEPTION_ERROR;
2002: END IF;
2003:
2004: IF p_artv_rec.new_Item_Price IS NULL OR p_artv_rec.new_Item_Price = OKL_API.G_MISS_NUM THEN
2005: x_return_status := OKL_API.G_RET_STS_ERROR;
2006: -- Item Price is required
2007: OKL_API.set_message(
2008: p_app_name => 'OKC',
2001: RAISE OKL_API.G_EXCEPTION_ERROR;
2002: END IF;
2003:
2004: IF p_artv_rec.new_Item_Price IS NULL OR p_artv_rec.new_Item_Price = OKL_API.G_MISS_NUM THEN
2005: x_return_status := OKL_API.G_RET_STS_ERROR;
2006: -- Item Price is required
2007: OKL_API.set_message(
2008: p_app_name => 'OKC',
2009: p_msg_name => G_REQUIRED_VALUE,
2003:
2004: IF p_artv_rec.new_Item_Price IS NULL OR p_artv_rec.new_Item_Price = OKL_API.G_MISS_NUM THEN
2005: x_return_status := OKL_API.G_RET_STS_ERROR;
2006: -- Item Price is required
2007: OKL_API.set_message(
2008: p_app_name => 'OKC',
2009: p_msg_name => G_REQUIRED_VALUE,
2010: p_token1 => G_COL_NAME_TOKEN,
2011: p_token1_value => 'Item Price');
2008: p_app_name => 'OKC',
2009: p_msg_name => G_REQUIRED_VALUE,
2010: p_token1 => G_COL_NAME_TOKEN,
2011: p_token1_value => 'Item Price');
2012: RAISE OKL_API.G_EXCEPTION_ERROR;
2013: END IF;
2014:
2015:
2016: -- SECHAWLA 29-OCT-04 3924244 : item price should not be zero
2015:
2016: -- SECHAWLA 29-OCT-04 3924244 : item price should not be zero
2017: -- IF p_artv_rec.new_Item_Price = 0 THEN -- SECHAWLA 23-MAR-05 4241558 : Removed the item price validation
2018: IF p_artv_rec.new_Item_Price < 0 THEN -- SECHAWLA 24-MAR-05 4241558 : do not allow -ve item price
2019: x_return_status := OKL_API.G_RET_STS_ERROR;
2020: -- Item Price is invalid
2021: OKL_API.set_message(
2022: p_app_name => 'OKC',
2023: p_msg_name => G_INVALID_VALUE,
2017: -- IF p_artv_rec.new_Item_Price = 0 THEN -- SECHAWLA 23-MAR-05 4241558 : Removed the item price validation
2018: IF p_artv_rec.new_Item_Price < 0 THEN -- SECHAWLA 24-MAR-05 4241558 : do not allow -ve item price
2019: x_return_status := OKL_API.G_RET_STS_ERROR;
2020: -- Item Price is invalid
2021: OKL_API.set_message(
2022: p_app_name => 'OKC',
2023: p_msg_name => G_INVALID_VALUE,
2024: p_token1 => G_COL_NAME_TOKEN,
2025: p_token1_value => 'Item Price');
2022: p_app_name => 'OKC',
2023: p_msg_name => G_INVALID_VALUE,
2024: p_token1 => G_COL_NAME_TOKEN,
2025: p_token1_value => 'Item Price');
2026: RAISE OKL_API.G_EXCEPTION_ERROR;
2027: END IF;
2028:
2029:
2030: -- SECHAWLA 04-OCT-04 3924244 : Call the following API if the Remarketing process is setup as "Standard"
2035: END IF;
2036:
2037: OKL_AM_REMARKET_ASSET_PUB.create_rmk_item(
2038: p_api_version => p_api_version,
2039: p_init_msg_list => OKL_API.G_FALSE,
2040: p_item_number => p_artv_rec.new_item_number, -- SECHAWLA 04-OCT-04 3924244 : added this parameter
2041: p_Item_Description => p_artv_rec.new_item_description,
2042: p_Item_Price => p_artv_rec.new_Item_Price,
2043: p_quantity => l_quantity,
2051: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'l_New_Item_Number: '|| l_New_Item_Number);
2052: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'l_New_Item_id: '|| l_New_Item_id);
2053: END IF;
2054:
2055: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2056: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2057: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2058: RAISE OKL_API.G_EXCEPTION_ERROR;
2059: END IF;
2052: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'l_New_Item_id: '|| l_New_Item_id);
2053: END IF;
2054:
2055: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2056: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2057: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2058: RAISE OKL_API.G_EXCEPTION_ERROR;
2059: END IF;
2060:
2053: END IF;
2054:
2055: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2056: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2057: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2058: RAISE OKL_API.G_EXCEPTION_ERROR;
2059: END IF;
2060:
2061: -- Message Name: OKL_AM_RETURN_INVENTORY_ERROR
2054:
2055: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2056: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2057: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2058: RAISE OKL_API.G_EXCEPTION_ERROR;
2059: END IF;
2060:
2061: -- Message Name: OKL_AM_RETURN_INVENTORY_ERROR
2062: -- Message Text: Error Processing Inventory Return
2059: END IF;
2060:
2061: -- Message Name: OKL_AM_RETURN_INVENTORY_ERROR
2062: -- Message Text: Error Processing Inventory Return
2063: IF l_New_Item_id = OKL_API.G_MISS_NUM THEN
2064: x_return_status := OKL_API.G_RET_STS_ERROR;
2065: --Error creating Inventory item for remarketing.
2066: OKL_API.set_message( p_app_name => 'OKL',
2067: p_msg_name =>'OKL_AM_NO_INVENTORY_ITEM');
2060:
2061: -- Message Name: OKL_AM_RETURN_INVENTORY_ERROR
2062: -- Message Text: Error Processing Inventory Return
2063: IF l_New_Item_id = OKL_API.G_MISS_NUM THEN
2064: x_return_status := OKL_API.G_RET_STS_ERROR;
2065: --Error creating Inventory item for remarketing.
2066: OKL_API.set_message( p_app_name => 'OKL',
2067: p_msg_name =>'OKL_AM_NO_INVENTORY_ITEM');
2068: RAISE OKL_API.G_EXCEPTION_ERROR;
2062: -- Message Text: Error Processing Inventory Return
2063: IF l_New_Item_id = OKL_API.G_MISS_NUM THEN
2064: x_return_status := OKL_API.G_RET_STS_ERROR;
2065: --Error creating Inventory item for remarketing.
2066: OKL_API.set_message( p_app_name => 'OKL',
2067: p_msg_name =>'OKL_AM_NO_INVENTORY_ITEM');
2068: RAISE OKL_API.G_EXCEPTION_ERROR;
2069: END IF;
2070:
2064: x_return_status := OKL_API.G_RET_STS_ERROR;
2065: --Error creating Inventory item for remarketing.
2066: OKL_API.set_message( p_app_name => 'OKL',
2067: p_msg_name =>'OKL_AM_NO_INVENTORY_ITEM');
2068: RAISE OKL_API.G_EXCEPTION_ERROR;
2069: END IF;
2070:
2071: -- set the item_id and Item_name
2072: lp_artv_rec.imr_id := l_new_item_id;
2079: lp_artv_rec.new_item_number := l_New_Item_Number;
2080: END IF;
2081:
2082: -- SECHAWLA 10-NOV-04 4000128 : added the following message
2083: OKL_API.set_message(p_app_name => 'OKL',
2084: p_msg_name => 'OKL_CONFIRM_UPDATE');
2085:
2086: -- SECHAWLA 04-OCT-04 3924244 : For Custom Remarketing Process, launch a WF
2087: ELSIF l_remk_process = 'CUSTOM' THEN
2110: OPEN l_get_wf_details_csr('oracle.apps.okl.am.remkcustomflow');
2111: FETCH l_get_wf_details_csr INTO l_wf_desc, l_process_desc;
2112: IF l_get_wf_details_csr%found THEN
2113:
2114: OKL_API.set_message(p_app_name => 'OKL',
2115: p_msg_name => 'OKL_AM_REMK_WF_RAISED',
2116: p_token1 => 'ITEM_DESC',
2117: p_token1_value => l_wf_desc);
2118: END IF;
2141: -- okl_am_wf.raise_business_event(lp_artv_rec.id,'oracle.apps.okl.am.notifycollections');
2142:
2143: -- MDOKAL Bug 2883292, Changed condition
2144: -- ELSE
2145: x_return_status := OKL_API.G_RET_STS_ERROR;
2146: --Repossession status ARS_CODE is invalid for asset return type ART1_CODE.
2147:
2148: --Bug 3918852 fix starts
2149: --Obtain the meaning for given lookup type and code and pass that as
2155: OPEN l_lookup_meaning_csr ('OKL_ASSET_RETURN_STATUS', lp_artv_rec.ARS_CODE);
2156: FETCH l_lookup_meaning_csr INTO l_asset_return_status;
2157: CLOSE l_lookup_meaning_csr;
2158:
2159: OKL_API.set_message( p_app_name => 'OKL',
2160: p_msg_name => 'OKL_AM_INVALID_STATUS_TYPE',
2161: p_token1 => 'ARS_CODE',
2162: p_token1_value => l_asset_return_status,
2163: p_token2 => 'ART1_CODE',
2163: p_token2 => 'ART1_CODE',
2164: p_token2_value => l_asset_return_type);
2165: --Bug 3918852 fix ends
2166:
2167: RAISE OKL_API.G_EXCEPTION_ERROR;
2168: END IF;
2169: END IF;
2170: END IF;
2171: ----------------------------------------------------
2189: IF (is_debug_statement_on) THEN
2190: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'called check_asset_status, x_return_status: ' || x_return_status);
2191: END IF;
2192:
2193: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2194: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2195: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2196: RAISE OKL_API.G_EXCEPTION_ERROR;
2197: END IF;
2190: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'called check_asset_status, x_return_status: ' || x_return_status);
2191: END IF;
2192:
2193: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2194: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2195: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2196: RAISE OKL_API.G_EXCEPTION_ERROR;
2197: END IF;
2198:
2191: END IF;
2192:
2193: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2194: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2195: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2196: RAISE OKL_API.G_EXCEPTION_ERROR;
2197: END IF;
2198:
2199: -- SECHAWLA 22-JAN-03 Bug # 2762419 : end modification
2192:
2193: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2194: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2195: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2196: RAISE OKL_API.G_EXCEPTION_ERROR;
2197: END IF;
2198:
2199: -- SECHAWLA 22-JAN-03 Bug # 2762419 : end modification
2200:
2212: IF (is_debug_statement_on) THEN
2213: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'called check_asset_status, x_return_status: ' || x_return_status);
2214: END IF;
2215:
2216: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2217: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2218: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2219: RAISE OKL_API.G_EXCEPTION_ERROR;
2220: END IF;
2213: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'called check_asset_status, x_return_status: ' || x_return_status);
2214: END IF;
2215:
2216: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2217: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2218: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2219: RAISE OKL_API.G_EXCEPTION_ERROR;
2220: END IF;
2221:
2214: END IF;
2215:
2216: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2217: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2218: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2219: RAISE OKL_API.G_EXCEPTION_ERROR;
2220: END IF;
2221:
2222: -- SECHAWLA 22-JAN-03 Bug # 2762419 : end modification
2215:
2216: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2217: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2218: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2219: RAISE OKL_API.G_EXCEPTION_ERROR;
2220: END IF;
2221:
2222: -- SECHAWLA 22-JAN-03 Bug # 2762419 : end modification
2223:
2239: IF (is_debug_statement_on) THEN
2240: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'called OKL_AM_ASSET_DISPOSE_PVT.dispose_asset, x_return_status: ' || x_return_status);
2241: END IF;
2242:
2243: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2244: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2245: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2246: RAISE OKL_API.G_EXCEPTION_ERROR;
2247: END IF;
2240: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'called OKL_AM_ASSET_DISPOSE_PVT.dispose_asset, x_return_status: ' || x_return_status);
2241: END IF;
2242:
2243: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2244: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2245: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2246: RAISE OKL_API.G_EXCEPTION_ERROR;
2247: END IF;
2248:
2241: END IF;
2242:
2243: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2244: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2245: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2246: RAISE OKL_API.G_EXCEPTION_ERROR;
2247: END IF;
2248:
2249: END IF;
2242:
2243: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2244: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2245: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2246: RAISE OKL_API.G_EXCEPTION_ERROR;
2247: END IF;
2248:
2249: END IF;
2250:
2263: i := i +1;
2264: END LOOP;
2265:
2266: IF i = 0 THEN
2267: x_return_status := OKL_API.G_RET_STS_ERROR;
2268: --Can not change the Asset Return status to REMARKETING , as there is no order booked for theis asset
2269:
2270: OKL_API.set_message( p_app_name => 'OKL',
2271: p_msg_name => 'OKL_AM_NO_ORDER_EXISTS');
2266: IF i = 0 THEN
2267: x_return_status := OKL_API.G_RET_STS_ERROR;
2268: --Can not change the Asset Return status to REMARKETING , as there is no order booked for theis asset
2269:
2270: OKL_API.set_message( p_app_name => 'OKL',
2271: p_msg_name => 'OKL_AM_NO_ORDER_EXISTS');
2272:
2273:
2274: RAISE OKL_API.G_EXCEPTION_ERROR;
2270: OKL_API.set_message( p_app_name => 'OKL',
2271: p_msg_name => 'OKL_AM_NO_ORDER_EXISTS');
2272:
2273:
2274: RAISE OKL_API.G_EXCEPTION_ERROR;
2275: END IF;
2276:
2277: IF l_total_quantity <> l_quantity THEN
2278: x_return_status := OKL_API.G_RET_STS_ERROR;
2274: RAISE OKL_API.G_EXCEPTION_ERROR;
2275: END IF;
2276:
2277: IF l_total_quantity <> l_quantity THEN
2278: x_return_status := OKL_API.G_RET_STS_ERROR;
2279: -- Ordered quantity does not match the original Asset Return quantity for this asset.
2280: OKL_API.set_message( p_app_name => 'OKL',
2281: p_msg_name => 'OKL_AM_QUANTITY_MISMATCH');
2282: RAISE OKL_API.G_EXCEPTION_ERROR;
2276:
2277: IF l_total_quantity <> l_quantity THEN
2278: x_return_status := OKL_API.G_RET_STS_ERROR;
2279: -- Ordered quantity does not match the original Asset Return quantity for this asset.
2280: OKL_API.set_message( p_app_name => 'OKL',
2281: p_msg_name => 'OKL_AM_QUANTITY_MISMATCH');
2282: RAISE OKL_API.G_EXCEPTION_ERROR;
2283: END IF;
2284: ELSE
2278: x_return_status := OKL_API.G_RET_STS_ERROR;
2279: -- Ordered quantity does not match the original Asset Return quantity for this asset.
2280: OKL_API.set_message( p_app_name => 'OKL',
2281: p_msg_name => 'OKL_AM_QUANTITY_MISMATCH');
2282: RAISE OKL_API.G_EXCEPTION_ERROR;
2283: END IF;
2284: ELSE
2285: x_return_status := OKL_API.G_RET_STS_ERROR;
2286: -- Asset can be Remarketed only if it is Available for Sale
2281: p_msg_name => 'OKL_AM_QUANTITY_MISMATCH');
2282: RAISE OKL_API.G_EXCEPTION_ERROR;
2283: END IF;
2284: ELSE
2285: x_return_status := OKL_API.G_RET_STS_ERROR;
2286: -- Asset can be Remarketed only if it is Available for Sale
2287: OKL_API.set_message( p_app_name => 'OKL',
2288: p_msg_name => 'OKL_AM_NO_REMARKET');
2289: RAISE OKL_API.G_EXCEPTION_ERROR;
2283: END IF;
2284: ELSE
2285: x_return_status := OKL_API.G_RET_STS_ERROR;
2286: -- Asset can be Remarketed only if it is Available for Sale
2287: OKL_API.set_message( p_app_name => 'OKL',
2288: p_msg_name => 'OKL_AM_NO_REMARKET');
2289: RAISE OKL_API.G_EXCEPTION_ERROR;
2290: END IF;
2291:
2285: x_return_status := OKL_API.G_RET_STS_ERROR;
2286: -- Asset can be Remarketed only if it is Available for Sale
2287: OKL_API.set_message( p_app_name => 'OKL',
2288: p_msg_name => 'OKL_AM_NO_REMARKET');
2289: RAISE OKL_API.G_EXCEPTION_ERROR;
2290: END IF;
2291:
2292: END IF;
2293:
2293:
2294: IF lp_artv_rec.ARS_CODE = 'REPURCHASE' AND l_current_db_status <> 'REPURCHASE' THEN
2295: OPEN l_repurchasetasset_csr(lp_artv_rec.id);
2296: FETCH l_repurchasetasset_csr INTO l_quote_id, l_accepted_yn;
2297: IF l_repurchasetasset_csr%NOTFOUND OR l_quote_id IS NULL OR l_quote_id = OKL_API.G_MISS_NUM OR
2298: l_accepted_yn IS NULL OR l_accepted_yn = OKL_API.G_MISS_CHAR OR l_accepted_yn <> 'Y' THEN
2299:
2300: x_return_status := OKL_API.G_RET_STS_ERROR;
2301: -- Can not change Asset Return status to REPURCHASE, as there is no accepted repurchase quote existing for this asset.
2294: IF lp_artv_rec.ARS_CODE = 'REPURCHASE' AND l_current_db_status <> 'REPURCHASE' THEN
2295: OPEN l_repurchasetasset_csr(lp_artv_rec.id);
2296: FETCH l_repurchasetasset_csr INTO l_quote_id, l_accepted_yn;
2297: IF l_repurchasetasset_csr%NOTFOUND OR l_quote_id IS NULL OR l_quote_id = OKL_API.G_MISS_NUM OR
2298: l_accepted_yn IS NULL OR l_accepted_yn = OKL_API.G_MISS_CHAR OR l_accepted_yn <> 'Y' THEN
2299:
2300: x_return_status := OKL_API.G_RET_STS_ERROR;
2301: -- Can not change Asset Return status to REPURCHASE, as there is no accepted repurchase quote existing for this asset.
2302: OKL_API.set_message( p_app_name => 'OKL',
2296: FETCH l_repurchasetasset_csr INTO l_quote_id, l_accepted_yn;
2297: IF l_repurchasetasset_csr%NOTFOUND OR l_quote_id IS NULL OR l_quote_id = OKL_API.G_MISS_NUM OR
2298: l_accepted_yn IS NULL OR l_accepted_yn = OKL_API.G_MISS_CHAR OR l_accepted_yn <> 'Y' THEN
2299:
2300: x_return_status := OKL_API.G_RET_STS_ERROR;
2301: -- Can not change Asset Return status to REPURCHASE, as there is no accepted repurchase quote existing for this asset.
2302: OKL_API.set_message( p_app_name => 'OKL',
2303: p_msg_name => 'OKL_AM_NO_REPURCHASE_QUOTE');
2304: RAISE OKL_API.G_EXCEPTION_ERROR;
2298: l_accepted_yn IS NULL OR l_accepted_yn = OKL_API.G_MISS_CHAR OR l_accepted_yn <> 'Y' THEN
2299:
2300: x_return_status := OKL_API.G_RET_STS_ERROR;
2301: -- Can not change Asset Return status to REPURCHASE, as there is no accepted repurchase quote existing for this asset.
2302: OKL_API.set_message( p_app_name => 'OKL',
2303: p_msg_name => 'OKL_AM_NO_REPURCHASE_QUOTE');
2304: RAISE OKL_API.G_EXCEPTION_ERROR;
2305: END IF;
2306: CLOSE l_repurchasetasset_csr;
2300: x_return_status := OKL_API.G_RET_STS_ERROR;
2301: -- Can not change Asset Return status to REPURCHASE, as there is no accepted repurchase quote existing for this asset.
2302: OKL_API.set_message( p_app_name => 'OKL',
2303: p_msg_name => 'OKL_AM_NO_REPURCHASE_QUOTE');
2304: RAISE OKL_API.G_EXCEPTION_ERROR;
2305: END IF;
2306: CLOSE l_repurchasetasset_csr;
2307: END IF;
2308:
2335: -- SECHAWLA 29-OCT-04 3924244 : added the following piece of code - END
2336:
2337: -- DJANASWA Changes for 'Asset repossession for a loan' project BEGIN
2338: IF (lp_artv_rec.ASSET_FMV_AMOUNT IS NOT NULL
2339: AND lp_artv_rec.ASSET_FMV_AMOUNT <> OKL_API.G_MISS_NUM) THEN
2340: IF lp_artv_rec.ASSET_FMV_AMOUNT < 0 THEN
2341: x_return_status := OKL_API.G_RET_STS_ERROR;
2342: -- Asset FMV Amount cannot be less than zero.
2343:
2337: -- DJANASWA Changes for 'Asset repossession for a loan' project BEGIN
2338: IF (lp_artv_rec.ASSET_FMV_AMOUNT IS NOT NULL
2339: AND lp_artv_rec.ASSET_FMV_AMOUNT <> OKL_API.G_MISS_NUM) THEN
2340: IF lp_artv_rec.ASSET_FMV_AMOUNT < 0 THEN
2341: x_return_status := OKL_API.G_RET_STS_ERROR;
2342: -- Asset FMV Amount cannot be less than zero.
2343:
2344: OKL_API.set_message( p_app_name => 'OKL',
2345: p_msg_name => 'OKL_AM_ASSET_FMV_AMT_ERR');
2340: IF lp_artv_rec.ASSET_FMV_AMOUNT < 0 THEN
2341: x_return_status := OKL_API.G_RET_STS_ERROR;
2342: -- Asset FMV Amount cannot be less than zero.
2343:
2344: OKL_API.set_message( p_app_name => 'OKL',
2345: p_msg_name => 'OKL_AM_ASSET_FMV_AMT_ERR');
2346:
2347: RAISE OKL_API.G_EXCEPTION_ERROR;
2348: END IF;
2343:
2344: OKL_API.set_message( p_app_name => 'OKL',
2345: p_msg_name => 'OKL_AM_ASSET_FMV_AMT_ERR');
2346:
2347: RAISE OKL_API.G_EXCEPTION_ERROR;
2348: END IF;
2349: END IF;
2350: -- DJANASWA Changes for 'Asset repossession for a loan' project END
2351:
2354: IF (l_deal_type = 'LOAN') THEN
2355:
2356: -- If date returned is stamped as greater thnn sysdate then throw error
2357: IF (p_artv_rec.DATE_RETURNED IS NOT NULL AND
2358: p_artv_rec.DATE_RETURNED <> OKL_API.G_MISS_DATE) THEN
2359: IF (TRUNC(p_artv_rec.DATE_RETURNED) > TRUNC(SYSDATE)) THEN
2360: -- You cannot enter a future date as the Date Returned.
2361: OKL_API.set_message( p_app_name => 'OKL',
2362: p_msg_name => 'OKL_AM_ASSET_DT_RET');
2357: IF (p_artv_rec.DATE_RETURNED IS NOT NULL AND
2358: p_artv_rec.DATE_RETURNED <> OKL_API.G_MISS_DATE) THEN
2359: IF (TRUNC(p_artv_rec.DATE_RETURNED) > TRUNC(SYSDATE)) THEN
2360: -- You cannot enter a future date as the Date Returned.
2361: OKL_API.set_message( p_app_name => 'OKL',
2362: p_msg_name => 'OKL_AM_ASSET_DT_RET');
2363: RAISE OKL_API.G_EXCEPTION_ERROR;
2364: END IF;
2365: END IF;
2359: IF (TRUNC(p_artv_rec.DATE_RETURNED) > TRUNC(SYSDATE)) THEN
2360: -- You cannot enter a future date as the Date Returned.
2361: OKL_API.set_message( p_app_name => 'OKL',
2362: p_msg_name => 'OKL_AM_ASSET_DT_RET');
2363: RAISE OKL_API.G_EXCEPTION_ERROR;
2364: END IF;
2365: END IF;
2366:
2367: OPEN l_okclines_csr(l_kle_id);
2369: CLOSE l_okclines_csr;
2370:
2371: -- If the asset return is being set to Repossessed (only for Loans) do some checks
2372: IF p_artv_rec.ars_code IS NOT NULL
2373: AND p_artv_rec.ars_code <> OKL_API.G_MISS_CHAR
2374: AND p_artv_rec.ars_code = 'REPOSSESSED' THEN
2375:
2376: -- Asset cannot be in terminated status when changing status to repossessed
2377: IF (l_sts_code = 'TERMINATED' ) THEN
2376: -- Asset cannot be in terminated status when changing status to repossessed
2377: IF (l_sts_code = 'TERMINATED' ) THEN
2378:
2379: -- The asset has been terminated on the contract. You cannot update the return status to Repossessed for a terminated asset.
2380: OKL_API.set_message( p_app_name => 'OKL',
2381: p_msg_name => 'OKL_AM_ASSET_LN_TERM');
2382: RAISE OKL_API.G_EXCEPTION_ERROR;
2383: END IF;
2384:
2378:
2379: -- The asset has been terminated on the contract. You cannot update the return status to Repossessed for a terminated asset.
2380: OKL_API.set_message( p_app_name => 'OKL',
2381: p_msg_name => 'OKL_AM_ASSET_LN_TERM');
2382: RAISE OKL_API.G_EXCEPTION_ERROR;
2383: END IF;
2384:
2385: -- Date returned cannot be null when changing status to repossessed
2386: IF (p_artv_rec.DATE_RETURNED IS NULL OR
2383: END IF;
2384:
2385: -- Date returned cannot be null when changing status to repossessed
2386: IF (p_artv_rec.DATE_RETURNED IS NULL OR
2387: p_artv_rec.DATE_RETURNED = OKL_API.G_MISS_DATE) THEN
2388:
2389: --You cannot update the return status to Repossessed. Please enter the Date Returned.
2390: OKL_API.set_message( p_app_name => 'OKL',
2391: p_msg_name => 'OKL_AM_ASSET_DATE_RET_REQ');
2386: IF (p_artv_rec.DATE_RETURNED IS NULL OR
2387: p_artv_rec.DATE_RETURNED = OKL_API.G_MISS_DATE) THEN
2388:
2389: --You cannot update the return status to Repossessed. Please enter the Date Returned.
2390: OKL_API.set_message( p_app_name => 'OKL',
2391: p_msg_name => 'OKL_AM_ASSET_DATE_RET_REQ');
2392: RAISE OKL_API.G_EXCEPTION_ERROR;
2393: END IF;
2394:
2388:
2389: --You cannot update the return status to Repossessed. Please enter the Date Returned.
2390: OKL_API.set_message( p_app_name => 'OKL',
2391: p_msg_name => 'OKL_AM_ASSET_DATE_RET_REQ');
2392: RAISE OKL_API.G_EXCEPTION_ERROR;
2393: END IF;
2394:
2395: -- Asset return value cannot be null when changing status to repossessed
2396: IF (p_artv_rec.ASSET_FMV_AMOUNT IS NULL OR
2393: END IF;
2394:
2395: -- Asset return value cannot be null when changing status to repossessed
2396: IF (p_artv_rec.ASSET_FMV_AMOUNT IS NULL OR
2397: p_artv_rec.ASSET_FMV_AMOUNT = OKL_API.G_MISS_NUM) THEN
2398:
2399: --You cannot update the return status to Repossessed. Please enter the Return Value.
2400: OKL_API.set_message( p_app_name => 'OKL',
2401: p_msg_name => 'OKL_AM_ASSET_RET_VAL_REQ');
2396: IF (p_artv_rec.ASSET_FMV_AMOUNT IS NULL OR
2397: p_artv_rec.ASSET_FMV_AMOUNT = OKL_API.G_MISS_NUM) THEN
2398:
2399: --You cannot update the return status to Repossessed. Please enter the Return Value.
2400: OKL_API.set_message( p_app_name => 'OKL',
2401: p_msg_name => 'OKL_AM_ASSET_RET_VAL_REQ');
2402: RAISE OKL_API.G_EXCEPTION_ERROR;
2403: END IF;
2404:
2398:
2399: --You cannot update the return status to Repossessed. Please enter the Return Value.
2400: OKL_API.set_message( p_app_name => 'OKL',
2401: p_msg_name => 'OKL_AM_ASSET_RET_VAL_REQ');
2402: RAISE OKL_API.G_EXCEPTION_ERROR;
2403: END IF;
2404:
2405: -- Check for Asset category existence in Inventory (MTL_SYSTEM_ITEMS)
2406: OPEN l_mtl_instance_csr(l_kle_id);
2408: CLOSE l_mtl_instance_csr;
2409:
2410: IF l_mtl_instance_rec.asset_category_id IS NULL THEN
2411:
2412: OKL_API.set_message( p_app_name => 'OKL',
2413: p_msg_name => 'OKL_AM_ASSET_CAT_DOESNOT_EXIST',
2414: p_token1 => 'ITEM_DESCRIPTION',
2415: p_token1_value => l_mtl_instance_rec.item_description,
2416: p_token2 => 'ORGANIZATION_NAME',
2414: p_token1 => 'ITEM_DESCRIPTION',
2415: p_token1_value => l_mtl_instance_rec.item_description,
2416: p_token2 => 'ORGANIZATION_NAME',
2417: p_token2_value => l_mtl_instance_rec.organization_name);
2418: RAISE OKL_API.G_EXCEPTION_ERROR;
2419: END IF;
2420:
2421: -- Check for setup in operational options
2422: OPEN l_operational_csr;
2432: OR l_operational_rec.fa_location_id IS NULL THEN
2433:
2434: -- You cannot update the return status to Repossessed as the System Options
2435: -- for Asset Return has not been defined for this Operating Unit.
2436: OKL_API.set_message( p_app_name => 'OKL',
2437: p_msg_name => 'OKL_AM_ASSET_REPO_OPTIONS');
2438:
2439: RAISE OKL_API.G_EXCEPTION_ERROR;
2440:
2435: -- for Asset Return has not been defined for this Operating Unit.
2436: OKL_API.set_message( p_app_name => 'OKL',
2437: p_msg_name => 'OKL_AM_ASSET_REPO_OPTIONS');
2438:
2439: RAISE OKL_API.G_EXCEPTION_ERROR;
2440:
2441: END IF;
2442:
2443: END IF; -- ars_code NOT NULL
2447: (p_artv_rec.ars_code IN ('CANCELLED', 'UNSUCCESS_REPO', 'RETURNED', 'SCHEDULED')) THEN
2448:
2449: -- You have selected an invalid return status.
2450: -- Assets in Repossessed return status cannot be updated to Canceled, Unsuccessful Repossession, Returned or Scheduled for a loan. Please select a valid return status.
2451: OKL_API.set_message( p_app_name => 'OKL',
2452: p_msg_name => 'OKL_AM_ASSET_REPO_STATUS');
2453: RAISE OKL_API.G_EXCEPTION_ERROR;
2454: END IF;
2455: END IF; -- for LOAN
2449: -- You have selected an invalid return status.
2450: -- Assets in Repossessed return status cannot be updated to Canceled, Unsuccessful Repossession, Returned or Scheduled for a loan. Please select a valid return status.
2451: OKL_API.set_message( p_app_name => 'OKL',
2452: p_msg_name => 'OKL_AM_ASSET_REPO_STATUS');
2453: RAISE OKL_API.G_EXCEPTION_ERROR;
2454: END IF;
2455: END IF; -- for LOAN
2456: -- rmunjulu Bug 6674730 end
2457:
2460: END IF;
2461: -- call update of tapi
2462: OKL_ASSET_RETURNS_PUB.update_asset_returns(
2463: p_api_version => p_api_version,
2464: p_init_msg_list => OKL_API.G_FALSE,
2465: x_return_status => x_return_status,
2466: x_msg_count => x_msg_count,
2467: x_msg_data => x_msg_data,
2468: p_artv_rec => lp_artv_rec,
2470: IF (is_debug_statement_on) THEN
2471: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'called OKL_ASSET_RETURNS_PUB.update_asset_returns, x_return_status: ' || x_return_status);
2472: END IF;
2473:
2474: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2475: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2476: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2477: RAISE OKL_API.G_EXCEPTION_ERROR;
2478: END IF;
2471: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'called OKL_ASSET_RETURNS_PUB.update_asset_returns, x_return_status: ' || x_return_status);
2472: END IF;
2473:
2474: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2475: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2476: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2477: RAISE OKL_API.G_EXCEPTION_ERROR;
2478: END IF;
2479:
2472: END IF;
2473:
2474: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2475: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2476: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2477: RAISE OKL_API.G_EXCEPTION_ERROR;
2478: END IF;
2479:
2480: -- MDOKAL Bug 2883292, Logic moved to call WF
2473:
2474: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2475: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2476: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2477: RAISE OKL_API.G_EXCEPTION_ERROR;
2478: END IF;
2479:
2480: -- MDOKAL Bug 2883292, Logic moved to call WF
2481: --------------Collections WF Request------------------------
2493: END IF;
2494: ----------------------------------------------------
2495:
2496:
2497: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2498: IF (is_debug_procedure_on) THEN
2499: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
2500: END IF;
2501:
2499: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
2500: END IF;
2501:
2502: EXCEPTION
2503: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2504: IF (is_debug_exception_on) THEN
2505: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
2506: END IF;
2507:
2539: CLOSE fetch_legal_entity;
2540: END IF;
2541: -- Legal Entity Changes End
2542:
2543: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2544: (
2545: l_api_name,
2546: G_PKG_NAME,
2547: 'OKL_API.G_RET_STS_ERROR',
2543: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2544: (
2545: l_api_name,
2546: G_PKG_NAME,
2547: 'OKL_API.G_RET_STS_ERROR',
2548: x_msg_count,
2549: x_msg_data,
2550: '_PVT'
2551: );
2549: x_msg_data,
2550: '_PVT'
2551: );
2552:
2553: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2554: IF (is_debug_exception_on) THEN
2555: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
2556: END IF;
2557:
2590: CLOSE fetch_legal_entity;
2591: END IF;
2592: -- Legal Entity Changes End
2593:
2594: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2595: (
2596: l_api_name,
2597: G_PKG_NAME,
2598: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2594: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2595: (
2596: l_api_name,
2597: G_PKG_NAME,
2598: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2599: x_msg_count,
2600: x_msg_data,
2601: '_PVT'
2602: );
2642: CLOSE fetch_legal_entity;
2643: END IF;
2644: -- Legal Entity Changes End
2645:
2646: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2647: (
2648: l_api_name,
2649: G_PKG_NAME,
2650: 'OTHERS',
2675: p_artv_tbl IN artv_tbl_type,
2676: x_artv_tbl OUT NOCOPY artv_tbl_type,
2677: p_quote_id IN NUMBER DEFAULT NULL) AS
2678:
2679: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2680: i NUMBER := 0;
2681: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2682: l_api_name CONSTANT VARCHAR2(30) := 'update_asset_return';
2683: l_api_version CONSTANT NUMBER := 1;
2677: p_quote_id IN NUMBER DEFAULT NULL) AS
2678:
2679: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2680: i NUMBER := 0;
2681: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2682: l_api_name CONSTANT VARCHAR2(30) := 'update_asset_return';
2683: l_api_version CONSTANT NUMBER := 1;
2684: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'create_asset_return';
2685: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2692: IF (is_debug_statement_on) THEN
2693: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'p_artv_tbl.COUNT:'||p_artv_tbl.COUNT);
2694: END IF;
2695:
2696: l_return_status := OKL_API.START_ACTIVITY( l_api_name,
2697: G_PKG_NAME,
2698: p_init_msg_list,
2699: l_api_version,
2700: p_api_version,
2701: '_PVT',
2702: x_return_status);
2703:
2704:
2705: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2706: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2707: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2708: RAISE OKL_API.G_EXCEPTION_ERROR;
2709: END IF;
2702: x_return_status);
2703:
2704:
2705: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2706: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2707: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2708: RAISE OKL_API.G_EXCEPTION_ERROR;
2709: END IF;
2710:
2703:
2704:
2705: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2706: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2707: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2708: RAISE OKL_API.G_EXCEPTION_ERROR;
2709: END IF;
2710:
2711: IF (p_artv_tbl.COUNT > 0) THEN
2704:
2705: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2706: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2707: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2708: RAISE OKL_API.G_EXCEPTION_ERROR;
2709: END IF;
2710:
2711: IF (p_artv_tbl.COUNT > 0) THEN
2712: i := p_artv_tbl.FIRST;
2716: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'calling create_asset_return');
2717: END IF;
2718: create_asset_return (
2719: p_api_version => p_api_version,
2720: p_init_msg_list => OKL_API.G_FALSE,
2721: x_return_status => l_return_status,
2722: x_msg_count => x_msg_count,
2723: x_msg_data => x_msg_data,
2724: p_artv_rec => p_artv_tbl(i),
2727: IF (is_debug_statement_on) THEN
2728: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'called create_asset_return, l_return_status: ' || l_return_status);
2729: END IF;
2730:
2731: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2732: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
2733: l_overall_status := l_return_status;
2734: END IF;
2735: END IF;
2728: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'called create_asset_return, l_return_status: ' || l_return_status);
2729: END IF;
2730:
2731: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2732: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
2733: l_overall_status := l_return_status;
2734: END IF;
2735: END IF;
2736: EXIT WHEN (i = p_artv_tbl.LAST);
2739: END IF;
2740:
2741: x_return_status := l_overall_status;
2742:
2743: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2744: IF (is_debug_procedure_on) THEN
2745: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
2746: END IF;
2747:
2745: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
2746: END IF;
2747:
2748: EXCEPTION
2749: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2750: IF (is_debug_exception_on) THEN
2751: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
2752: END IF;
2753:
2750: IF (is_debug_exception_on) THEN
2751: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
2752: END IF;
2753:
2754: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2755: (
2756: l_api_name,
2757: G_PKG_NAME,
2758: 'OKL_API.G_RET_STS_ERROR',
2754: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2755: (
2756: l_api_name,
2757: G_PKG_NAME,
2758: 'OKL_API.G_RET_STS_ERROR',
2759: x_msg_count,
2760: x_msg_data,
2761: '_PVT'
2762: );
2760: x_msg_data,
2761: '_PVT'
2762: );
2763:
2764: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2765: IF (is_debug_exception_on) THEN
2766: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
2767: END IF;
2768:
2765: IF (is_debug_exception_on) THEN
2766: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
2767: END IF;
2768:
2769: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2770: (
2771: l_api_name,
2772: G_PKG_NAME,
2773: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2769: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2770: (
2771: l_api_name,
2772: G_PKG_NAME,
2773: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2774: x_msg_count,
2775: x_msg_data,
2776: '_PVT'
2777: );
2782: || sqlcode || ' , SQLERRM : ' || sqlerrm);
2783: END IF;
2784:
2785:
2786: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2787: (
2788: l_api_name,
2789: G_PKG_NAME,
2790: 'OTHERS',
2813: x_msg_data OUT NOCOPY VARCHAR2,
2814: p_artv_tbl IN artv_tbl_type,
2815: x_artv_tbl OUT NOCOPY artv_tbl_type) AS
2816:
2817: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2818: i NUMBER := 0;
2819: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2820: l_api_name CONSTANT VARCHAR2(30) := 'update_asset_return';
2821: l_api_version CONSTANT NUMBER := 1;
2815: x_artv_tbl OUT NOCOPY artv_tbl_type) AS
2816:
2817: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2818: i NUMBER := 0;
2819: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2820: l_api_name CONSTANT VARCHAR2(30) := 'update_asset_return';
2821: l_api_version CONSTANT NUMBER := 1;
2822: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'update_asset_return';
2823: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2830: IF (is_debug_statement_on) THEN
2831: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'p_artv_tbl.COUNT:'||p_artv_tbl.COUNT);
2832: END IF;
2833:
2834: l_return_status := OKL_API.START_ACTIVITY( l_api_name,
2835: G_PKG_NAME,
2836: p_init_msg_list,
2837: l_api_version,
2838: p_api_version,
2839: '_PVT',
2840: x_return_status);
2841:
2842:
2843: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2844: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2845: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2846: RAISE OKL_API.G_EXCEPTION_ERROR;
2847: END IF;
2840: x_return_status);
2841:
2842:
2843: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2844: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2845: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2846: RAISE OKL_API.G_EXCEPTION_ERROR;
2847: END IF;
2848:
2841:
2842:
2843: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2844: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2845: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2846: RAISE OKL_API.G_EXCEPTION_ERROR;
2847: END IF;
2848:
2849: IF (p_artv_tbl.COUNT > 0) THEN
2842:
2843: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2844: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2845: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2846: RAISE OKL_API.G_EXCEPTION_ERROR;
2847: END IF;
2848:
2849: IF (p_artv_tbl.COUNT > 0) THEN
2850: i := p_artv_tbl.FIRST;
2855: END IF;
2856:
2857: update_asset_return (
2858: p_api_version => p_api_version,
2859: p_init_msg_list => OKL_API.G_FALSE,
2860: x_return_status => l_return_status,
2861: x_msg_count => x_msg_count,
2862: x_msg_data => x_msg_data,
2863: p_artv_rec => p_artv_tbl(i),
2865: IF (is_debug_statement_on) THEN
2866: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'called update_asset_return, l_return_status: ' || l_return_status);
2867: END IF;
2868:
2869: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2870: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
2871: l_overall_status := l_return_status;
2872: END IF;
2873: END IF;
2866: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'called update_asset_return, l_return_status: ' || l_return_status);
2867: END IF;
2868:
2869: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2870: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
2871: l_overall_status := l_return_status;
2872: END IF;
2873: END IF;
2874:
2878: END IF;
2879:
2880: x_return_status := l_overall_status;
2881:
2882: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2883: IF (is_debug_procedure_on) THEN
2884: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
2885: END IF;
2886:
2884: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
2885: END IF;
2886:
2887: EXCEPTION
2888: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2889: IF (is_debug_exception_on) THEN
2890: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
2891: END IF;
2892:
2889: IF (is_debug_exception_on) THEN
2890: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
2891: END IF;
2892:
2893: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2894: (
2895: l_api_name,
2896: G_PKG_NAME,
2897: 'OKL_API.G_RET_STS_ERROR',
2893: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2894: (
2895: l_api_name,
2896: G_PKG_NAME,
2897: 'OKL_API.G_RET_STS_ERROR',
2898: x_msg_count,
2899: x_msg_data,
2900: '_PVT'
2901: );
2899: x_msg_data,
2900: '_PVT'
2901: );
2902:
2903: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2904: IF (is_debug_exception_on) THEN
2905: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
2906: END IF;
2907:
2904: IF (is_debug_exception_on) THEN
2905: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
2906: END IF;
2907:
2908: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2909: (
2910: l_api_name,
2911: G_PKG_NAME,
2912: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2908: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2909: (
2910: l_api_name,
2911: G_PKG_NAME,
2912: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2913: x_msg_count,
2914: x_msg_data,
2915: '_PVT'
2916: );
2919: IF (is_debug_exception_on) THEN
2920: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
2921: || sqlcode || ' , SQLERRM : ' || sqlerrm);
2922: END IF;
2923: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2924: (
2925: l_api_name,
2926: G_PKG_NAME,
2927: 'OTHERS',