[Home] [Help]
137: l_debug_enabled varchar2(10);
138: is_debug_procedure_on boolean;
139: is_debug_statement_on boolean;
140: p_api_version CONSTANT number := 1.0;
141: x_return_status varchar2(1) := okl_api.g_ret_sts_success;
142: l_program_name CONSTANT VARCHAR2(30) := 'populate';
143: l_api_name CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_program_name;
144: l_parent_object_id NUMBER;
145: l_parent_object_code VARCHAR2(30);
273: END IF;
274:
275: EXCEPTION
276: WHEN OTHERS THEN
277: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
278: p_msg_name => G_DB_ERROR,
279: p_token1 => G_PROG_NAME_TOKEN,
280: p_token1_value => l_api_name,
281: p_token2 => G_SQLCODE_TOKEN,
354: x_msg_count => l_msg_count,
355: x_msg_data => x_msg_data,
356: p_okl_ac_rec => l_ac_rec_type,
357: x_adjustment_factor => l_adj_factor );
358: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
359: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
360: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
361: RAISE OKL_API.G_EXCEPTION_ERROR;
362: END IF;
355: x_msg_data => x_msg_data,
356: p_okl_ac_rec => l_ac_rec_type,
357: x_adjustment_factor => l_adj_factor );
358: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
359: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
360: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
361: RAISE OKL_API.G_EXCEPTION_ERROR;
362: END IF;
363: --Calculate Effective Rate
356: p_okl_ac_rec => l_ac_rec_type,
357: x_adjustment_factor => l_adj_factor );
358: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
359: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
360: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
361: RAISE OKL_API.G_EXCEPTION_ERROR;
362: END IF;
363: --Calculate Effective Rate
364: l_srt_effective_rate := l_srt_rec.srt_rate + nvl(l_srt_rec.spread,0) + nvl(l_adj_factor,0); -- Rate is being stored as Percentage
357: x_adjustment_factor => l_adj_factor );
358: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
359: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
360: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
361: RAISE OKL_API.G_EXCEPTION_ERROR;
362: END IF;
363: --Calculate Effective Rate
364: l_srt_effective_rate := l_srt_rec.srt_rate + nvl(l_srt_rec.spread,0) + nvl(l_adj_factor,0); -- Rate is being stored as Percentage
365: --l_okl_srt_table(i).srt_rate := l_okl_srt_rec.srt_rate + nvl(l_okl_srt_rec.spread,0) + nvl(l_adj_factor,0); -- Rate is being stored as Percentage
405: END IF;
406:
407: EXCEPTION
408: WHEN OTHERS THEN
409: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
410: p_msg_name => G_DB_ERROR,
411: p_token1 => G_PROG_NAME_TOKEN,
412: p_token1_value => l_api_name,
413: p_token2 => G_SQLCODE_TOKEN,
528: ,p_token1_value => l_function_name );
529: x_return_status := OKC_API.G_RET_STS_ERROR;
530:
531: WHEN OTHERS THEN
532: okl_api.set_message(p_app_name => g_app_name
533: ,p_msg_name => 'OKL_SYSTEM_VALIDATION_FAILED'
534: ,p_token1 => 'NAME'
535: ,p_token1_value => l_function_name);
536:
617: x_return_status ||
618: ' x_msg_data ' ||
619: x_msg_data);
620: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
621: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
622: RAISE okl_api.g_exception_unexpected_error;
623: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
624: RAISE okl_api.g_exception_unexpected_error;
625: END IF;
618: ' x_msg_data ' ||
619: x_msg_data);
620: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
621: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
622: RAISE okl_api.g_exception_unexpected_error;
623: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
624: RAISE okl_api.g_exception_unexpected_error;
625: END IF;
626:
619: x_msg_data);
620: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
621: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
622: RAISE okl_api.g_exception_unexpected_error;
623: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
624: RAISE okl_api.g_exception_unexpected_error;
625: END IF;
626:
627: EXCEPTION
620: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
621: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
622: RAISE okl_api.g_exception_unexpected_error;
623: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
624: RAISE okl_api.g_exception_unexpected_error;
625: END IF;
626:
627: EXCEPTION
628: WHEN okl_api.g_exception_unexpected_error THEN
624: RAISE okl_api.g_exception_unexpected_error;
625: END IF;
626:
627: EXCEPTION
628: WHEN okl_api.g_exception_unexpected_error THEN
629: x_return_status := okl_api.g_ret_sts_unexp_error;
630: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
631: p_msg_name => G_DB_ERROR,
632: p_token1 => G_PROG_NAME_TOKEN,
625: END IF;
626:
627: EXCEPTION
628: WHEN okl_api.g_exception_unexpected_error THEN
629: x_return_status := okl_api.g_ret_sts_unexp_error;
630: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
631: p_msg_name => G_DB_ERROR,
632: p_token1 => G_PROG_NAME_TOKEN,
633: p_token1_value => 'OKLRQQCB.pls.populate_result_table',
626:
627: EXCEPTION
628: WHEN okl_api.g_exception_unexpected_error THEN
629: x_return_status := okl_api.g_ret_sts_unexp_error;
630: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
631: p_msg_name => G_DB_ERROR,
632: p_token1 => G_PROG_NAME_TOKEN,
633: p_token1_value => 'OKLRQQCB.pls.populate_result_table',
634: p_token2 => G_SQLCODE_TOKEN,
637: p_token3_value => sqlerrm);
638:
639: WHEN OTHERS THEN
640: -- unexpected error
641: x_return_status := okl_api.g_ret_sts_unexp_error;
642: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
643: p_msg_name => G_DB_ERROR,
644: p_token1 => G_PROG_NAME_TOKEN,
645: p_token1_value => 'OKLRQQCB.pls.populate_result_table',
638:
639: WHEN OTHERS THEN
640: -- unexpected error
641: x_return_status := okl_api.g_ret_sts_unexp_error;
642: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
643: p_msg_name => G_DB_ERROR,
644: p_token1 => G_PROG_NAME_TOKEN,
645: p_token1_value => 'OKLRQQCB.pls.populate_result_table',
646: p_token2 => G_SQLCODE_TOKEN,
682: IF get_message_text%ISOPEN THEN
683: CLOSE get_message_text;
684: END IF;
685: -- unexpected error
686: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
687: p_msg_name => G_DB_ERROR,
688: p_token1 => G_PROG_NAME_TOKEN,
689: p_token1_value => 'OKLRQQCB.pls.get_msg_text',
690: p_token2 => G_SQLCODE_TOKEN,
791:
792: EXCEPTION
793: WHEN OTHERS THEN
794: -- unexpected error
795: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
796: p_msg_name => G_DB_ERROR,
797: p_token1 => G_PROG_NAME_TOKEN,
798: p_token1_value => 'OKLRQQCB.pls.validate_cashflows',
799: p_token2 => G_SQLCODE_TOKEN,
858: EXCEPTION
859: -- other appropriate handlers
860: WHEN OTHERS THEN
861: -- store SQL error message on message stack
862: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
863: p_msg_name => G_DB_ERROR,
864: p_token1 => G_PROG_NAME_TOKEN,
865: p_token1_value => 'OKLRQQCB.pls.val_pay_opt',
866: p_token2 => G_SQLCODE_TOKEN,
913: EXCEPTION
914: -- other appropriate handlers
915: WHEN OTHERS THEN
916: -- store SQL error message on message stack
917: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
918: p_msg_name => G_DB_ERROR,
919: p_token1 => G_PROG_NAME_TOKEN,
920: p_token1_value => 'OKLRQQCB.pls.are_qte_op_enter',
921: p_token2 => G_SQLCODE_TOKEN,
1008: EXCEPTION
1009: -- other appropriate handlers
1010: WHEN OTHERS THEN
1011: -- store SQL error message on message stack
1012: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1013: p_msg_name => G_DB_ERROR,
1014: p_token1 => G_PROG_NAME_TOKEN,
1015: p_token1_value => 'OKLRQQCB.pls.all_lns_over',
1016: p_token2 => G_SQLCODE_TOKEN,
1096:
1097: -- call START_ACTIVITY to create savepoint, check compatibility
1098: -- and initialize message list
1099:
1100: x_return_status := okl_api.start_activity(p_api_name=>l_api_name
1101: ,p_pkg_name=>G_PKG_NAME
1102: ,p_init_msg_list=>p_init_msg_list
1103: ,p_api_version=>p_api_version
1104: ,l_api_version=>p_api_version
1104: ,l_api_version=>p_api_version
1105: ,p_api_type=>G_API_TYPE
1106: ,x_return_status=>x_return_status); -- check if activity started successfully
1107:
1108: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1109: RAISE okl_api.g_exception_unexpected_error;
1110: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1111: RAISE okl_api.g_exception_error;
1112: END IF;
1105: ,p_api_type=>G_API_TYPE
1106: ,x_return_status=>x_return_status); -- check if activity started successfully
1107:
1108: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1109: RAISE okl_api.g_exception_unexpected_error;
1110: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1111: RAISE okl_api.g_exception_error;
1112: END IF;
1113: lp_object_type:= p_object_type;
1106: ,x_return_status=>x_return_status); -- check if activity started successfully
1107:
1108: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1109: RAISE okl_api.g_exception_unexpected_error;
1110: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1111: RAISE okl_api.g_exception_error;
1112: END IF;
1113: lp_object_type:= p_object_type;
1114: --start added abhsaxen for bug #5257890
1107:
1108: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1109: RAISE okl_api.g_exception_unexpected_error;
1110: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1111: RAISE okl_api.g_exception_error;
1112: END IF;
1113: lp_object_type:= p_object_type;
1114: --start added abhsaxen for bug #5257890
1115: lp_quote_id := p_object_id;
1132: x_qa_result_tbl(i).result_code:='ERROR';
1133: x_qa_result_tbl(i).result_meaning:='ERROR';
1134: x_qa_result_tbl(i).message_code:= 'OKL_QA_DN_ADJ_EXIST';
1135: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_DN_ADJ_EXIST');
1136: x_qa_result := okl_api.g_ret_sts_error;
1137: END IF;
1138: CLOSE c_okl_cost_adj_rec;
1139: END IF;--End of Checking for Down Payment (SD method)
1140: --Check for Trade In Adj on a Quote Having payment Method 'SI'
1150: x_qa_result_tbl(i).result_code:='ERROR';
1151: x_qa_result_tbl(i).result_meaning:='ERROR';
1152: x_qa_result_tbl(i).message_code:= 'OKL_QA_TRDIN_ADJ_EXIST';
1153: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_TRDIN_ADJ_EXIST');
1154: x_qa_result := okl_api.g_ret_sts_error;
1155: END IF;
1156: CLOSE c_okl_cost_adj_rec;
1157: END IF;--End of Checking for Trade In (SI method)
1158:
1172: x_qa_result_tbl(i).result_code:='ERROR';
1173: x_qa_result_tbl(i).result_meaning:='ERROR';
1174: x_qa_result_tbl(i).message_code:= 'OKL_QA_SUBSIDY_ADJ_EXIST';
1175: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_SUBSIDY_ADJ_EXIST');
1176: x_qa_result := okl_api.g_ret_sts_error;
1177: END IF;
1178: CLOSE c_okl_cost_adj_rec;
1179: END IF;--End of Checking for Trade In (SI method)
1180: END IF;--LQ End
1182: null;
1183: END IF;--QQ End
1184: END IF;--If Quote id Is NOT NULL:
1185:
1186: okl_api.end_activity(x_msg_count => x_msg_count
1187: ,x_msg_data => x_msg_data);
1188:
1189: IF (l_debug_enabled = 'Y' AND is_debug_procedure_on) THEN
1190: okl_debug_pub.log_debug(fnd_log.level_procedure
1193: END IF;
1194:
1195:
1196: EXCEPTION
1197: WHEN okl_api.g_exception_error THEN
1198:
1199: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
1200: ,p_pkg_name =>G_PKG_NAME
1201: ,p_exc_name =>'OKL_API.G_RET_STS_ERROR'
1195:
1196: EXCEPTION
1197: WHEN okl_api.g_exception_error THEN
1198:
1199: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
1200: ,p_pkg_name =>G_PKG_NAME
1201: ,p_exc_name =>'OKL_API.G_RET_STS_ERROR'
1202: ,x_msg_count =>x_msg_count
1203: ,x_msg_data =>x_msg_data
1197: WHEN okl_api.g_exception_error THEN
1198:
1199: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
1200: ,p_pkg_name =>G_PKG_NAME
1201: ,p_exc_name =>'OKL_API.G_RET_STS_ERROR'
1202: ,x_msg_count =>x_msg_count
1203: ,x_msg_data =>x_msg_data
1204: ,p_api_type =>G_API_TYPE);
1205:
1202: ,x_msg_count =>x_msg_count
1203: ,x_msg_data =>x_msg_data
1204: ,p_api_type =>G_API_TYPE);
1205:
1206: WHEN okl_api.g_exception_unexpected_error THEN
1207:
1208: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
1209: ,p_pkg_name =>G_PKG_NAME
1210: ,p_exc_name =>'OKL_API.G_RET_STS_UNEXP_ERROR'
1204: ,p_api_type =>G_API_TYPE);
1205:
1206: WHEN okl_api.g_exception_unexpected_error THEN
1207:
1208: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
1209: ,p_pkg_name =>G_PKG_NAME
1210: ,p_exc_name =>'OKL_API.G_RET_STS_UNEXP_ERROR'
1211: ,x_msg_count =>x_msg_count
1212: ,x_msg_data =>x_msg_data
1206: WHEN okl_api.g_exception_unexpected_error THEN
1207:
1208: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
1209: ,p_pkg_name =>G_PKG_NAME
1210: ,p_exc_name =>'OKL_API.G_RET_STS_UNEXP_ERROR'
1211: ,x_msg_count =>x_msg_count
1212: ,x_msg_data =>x_msg_data
1213: ,p_api_type =>G_API_TYPE);
1214:
1213: ,p_api_type =>G_API_TYPE);
1214:
1215: WHEN OTHERS THEN
1216:
1217: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
1218: ,p_pkg_name =>G_PKG_NAME
1219: ,p_exc_name =>'OTHERS'
1220: ,x_msg_count =>x_msg_count
1221: ,x_msg_data =>x_msg_data
1299:
1300: -- call START_ACTIVITY to create savepoint, check compatibility
1301: -- and initialize message list
1302:
1303: x_return_status := okl_api.start_activity(p_api_name => l_api_name
1304: ,p_pkg_name => G_PKG_NAME
1305: ,p_init_msg_list => p_init_msg_list
1306: ,p_api_version => p_api_version
1307: ,l_api_version => p_api_version
1307: ,l_api_version => p_api_version
1308: ,p_api_type => G_API_TYPE
1309: ,x_return_status => x_return_status); -- check if activity started successfully
1310:
1311: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1312: RAISE okl_api.g_exception_unexpected_error;
1313: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1314: RAISE okl_api.g_exception_error;
1315: END IF;
1308: ,p_api_type => G_API_TYPE
1309: ,x_return_status => x_return_status); -- check if activity started successfully
1310:
1311: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1312: RAISE okl_api.g_exception_unexpected_error;
1313: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1314: RAISE okl_api.g_exception_error;
1315: END IF;
1316:
1309: ,x_return_status => x_return_status); -- check if activity started successfully
1310:
1311: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1312: RAISE okl_api.g_exception_unexpected_error;
1313: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1314: RAISE okl_api.g_exception_error;
1315: END IF;
1316:
1317: fun_ret := 1;
1310:
1311: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1312: RAISE okl_api.g_exception_unexpected_error;
1313: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1314: RAISE okl_api.g_exception_error;
1315: END IF;
1316:
1317: fun_ret := 1;
1318: OPEN c_sys_opt_vls;
1327: x_msg_count => x_msg_count,
1328: x_msg_data => x_msg_data,
1329: p_function_name => validation_func_rec.NAME,
1330: x_value => fun_ret);
1331: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1332: RAISE okl_api.g_exception_unexpected_error;
1333: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1334: RAISE okl_api.g_exception_error;
1335: END IF;
1328: x_msg_data => x_msg_data,
1329: p_function_name => validation_func_rec.NAME,
1330: x_value => fun_ret);
1331: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1332: RAISE okl_api.g_exception_unexpected_error;
1333: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1334: RAISE okl_api.g_exception_error;
1335: END IF;
1336:
1329: p_function_name => validation_func_rec.NAME,
1330: x_value => fun_ret);
1331: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1332: RAISE okl_api.g_exception_unexpected_error;
1333: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1334: RAISE okl_api.g_exception_error;
1335: END IF;
1336:
1337: IF(fun_ret IS NULL OR fun_ret = 0) THEN
1330: x_value => fun_ret);
1331: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1332: RAISE okl_api.g_exception_unexpected_error;
1333: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1334: RAISE okl_api.g_exception_error;
1335: END IF;
1336:
1337: IF(fun_ret IS NULL OR fun_ret = 0) THEN
1338: i:=x_qa_result_tbl.COUNT;
1343: x_qa_result_tbl(i).result_meaning:= nvl(validation_func_rec.failure_severity,'WARNING');
1344: x_qa_result_tbl(i).message_code:= 'OKL_QA_VLD_ERR';
1345: x_qa_result_tbl(i).message_text:= get_msg_text('OKL_QA_VLD_ERR')||validation_func_rec.name;
1346: IF(nvl(validation_func_rec.failure_severity,'WARNING')='ERROR') THEN
1347: x_qa_result := okl_api.g_ret_sts_error;
1348: ELSE
1349: x_qa_result := okl_api.g_ret_sts_warning;
1350: END IF;
1351: END IF;
1345: x_qa_result_tbl(i).message_text:= get_msg_text('OKL_QA_VLD_ERR')||validation_func_rec.name;
1346: IF(nvl(validation_func_rec.failure_severity,'WARNING')='ERROR') THEN
1347: x_qa_result := okl_api.g_ret_sts_error;
1348: ELSE
1349: x_qa_result := okl_api.g_ret_sts_warning;
1350: END IF;
1351: END IF;
1352: END LOOP;
1353: END IF;
1350: END IF;
1351: END IF;
1352: END LOOP;
1353: END IF;
1354: okl_api.end_activity(x_msg_count => x_msg_count
1355: ,x_msg_data => x_msg_data);
1356: IF (l_debug_enabled = 'Y' AND is_debug_procedure_on) THEN
1357: okl_debug_pub.log_debug(fnd_log.level_procedure
1358: ,l_module
1358: ,l_module
1359: ,'end debug okl_sales_quote_qa_pvt call validate_system_validation');
1360: END IF;
1361: EXCEPTION
1362: WHEN okl_api.g_exception_error THEN
1363: IF c_validation_func%ISOPEN THEN
1364: CLOSE c_validation_func;
1365: END IF;
1366: IF c_sys_opt_vls%ISOPEN THEN
1366: IF c_sys_opt_vls%ISOPEN THEN
1367: CLOSE c_sys_opt_vls;
1368: END IF;
1369:
1370: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
1371: ,p_pkg_name =>G_PKG_NAME
1372: ,p_exc_name =>'OKL_API.G_RET_STS_ERROR'
1373: ,x_msg_count =>x_msg_count
1374: ,x_msg_data =>x_msg_data
1368: END IF;
1369:
1370: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
1371: ,p_pkg_name =>G_PKG_NAME
1372: ,p_exc_name =>'OKL_API.G_RET_STS_ERROR'
1373: ,x_msg_count =>x_msg_count
1374: ,x_msg_data =>x_msg_data
1375: ,p_api_type =>G_API_TYPE);
1376:
1373: ,x_msg_count =>x_msg_count
1374: ,x_msg_data =>x_msg_data
1375: ,p_api_type =>G_API_TYPE);
1376:
1377: WHEN okl_api.g_exception_unexpected_error THEN
1378: IF c_validation_func%ISOPEN THEN
1379: CLOSE c_validation_func;
1380: END IF;
1381: IF c_sys_opt_vls%ISOPEN THEN
1380: END IF;
1381: IF c_sys_opt_vls%ISOPEN THEN
1382: CLOSE c_sys_opt_vls;
1383: END IF;
1384: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
1385: ,p_pkg_name =>G_PKG_NAME
1386: ,p_exc_name =>'OKL_API.G_RET_STS_UNEXP_ERROR'
1387: ,x_msg_count =>x_msg_count
1388: ,x_msg_data =>x_msg_data
1382: CLOSE c_sys_opt_vls;
1383: END IF;
1384: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
1385: ,p_pkg_name =>G_PKG_NAME
1386: ,p_exc_name =>'OKL_API.G_RET_STS_UNEXP_ERROR'
1387: ,x_msg_count =>x_msg_count
1388: ,x_msg_data =>x_msg_data
1389: ,p_api_type =>G_API_TYPE);
1390:
1394: END IF;
1395: IF c_sys_opt_vls%ISOPEN THEN
1396: CLOSE c_sys_opt_vls;
1397: END IF;
1398: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
1399: ,p_pkg_name =>G_PKG_NAME
1400: ,p_exc_name =>'OTHERS'
1401: ,x_msg_count =>x_msg_count
1402: ,x_msg_data =>x_msg_data
1492: ,fnd_log.level_statement);
1493:
1494: -- call START_ACTIVITY to create savepoint, check compatibility
1495: -- and initialize message list
1496: x_return_status := okl_api.start_activity(p_api_name=>l_api_name
1497: ,p_pkg_name=>G_PKG_NAME
1498: ,p_init_msg_list=>p_init_msg_list
1499: ,p_api_version=>p_api_version
1500: ,l_api_version=>p_api_version
1500: ,l_api_version=>p_api_version
1501: ,p_api_type=>G_API_TYPE
1502: ,x_return_status=>x_return_status); -- check if activity started successfully
1503:
1504: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1505: RAISE okl_api.g_exception_unexpected_error;
1506: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1507: RAISE okl_api.g_exception_error;
1508: END IF;
1501: ,p_api_type=>G_API_TYPE
1502: ,x_return_status=>x_return_status); -- check if activity started successfully
1503:
1504: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1505: RAISE okl_api.g_exception_unexpected_error;
1506: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1507: RAISE okl_api.g_exception_error;
1508: END IF;
1509:
1502: ,x_return_status=>x_return_status); -- check if activity started successfully
1503:
1504: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1505: RAISE okl_api.g_exception_unexpected_error;
1506: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1507: RAISE okl_api.g_exception_error;
1508: END IF;
1509:
1510: lp_quote_id:=p_object_id;
1503:
1504: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1505: RAISE okl_api.g_exception_unexpected_error;
1506: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1507: RAISE okl_api.g_exception_error;
1508: END IF;
1509:
1510: lp_quote_id:=p_object_id;
1511: lp_object_type:= p_object_type;
1525: x_qa_result_tbl(i).result_code:='ERROR';
1526: x_qa_result_tbl(i).result_meaning:='ERROR';
1527: x_qa_result_tbl(i).message_code:= 'OKL_QA_TC_PER_INVALID';
1528: x_qa_result_tbl(i).message_text:= get_msg_text('OKL_QA_TC_PER_INVALID');
1529: x_qa_result := okl_api.G_RET_STS_ERROR;
1530: EXIT;
1531: ELSE
1532: l_flag := TRUE;
1533: lp_lq_lines_cost := lp_lq_lines_cost + NVL(lp_lq_asset_lines_rec.OEC_PERCENTAGE,0);
1541: x_qa_result_tbl(i).result_code:='ERROR';
1542: x_qa_result_tbl(i).result_meaning:='ERROR';
1543: x_qa_result_tbl(i).message_code:= 'OKL_QA_TC_PER_INVALID';
1544: x_qa_result_tbl(i).message_text:= get_msg_text('OKL_QA_TC_PER_INVALID');
1545: x_qa_result := okl_api.G_RET_STS_ERROR;
1546: END IF;
1547: --Fix Bug # 4898499 Start
1548: ---Check when Pricing Method is not SF
1549: --Then Assets Should Have the Unit Cost Defined on it
1565: x_qa_result_tbl(i).result_code:='ERROR';
1566: x_qa_result_tbl(i).result_meaning:='ERROR';
1567: x_qa_result_tbl(i).message_code:= 'OKL_QA_ASS_UC_REQ';
1568: x_qa_result_tbl(i).message_text:= get_msg_text('OKL_QA_ASS_UC_REQ');
1569: x_qa_result := okl_api.G_RET_STS_ERROR;
1570: END IF;
1571: END IF;
1572: --Fix Bug # 4898499 End
1573: END IF;--LQ End
1583: x_qa_result_tbl(i).result_code:='ERROR';
1584: x_qa_result_tbl(i).result_meaning:='ERROR';
1585: x_qa_result_tbl(i).message_code:= 'OKL_QA_TARGET_TYPE_VALUE_REQ';
1586: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_TARGET_TYPE_VALUE_REQ');
1587: x_qa_result := okl_api.g_ret_sts_error;
1588: END IF;
1589: END LOOP;
1590: FOR lp_qq_asset_lines_rec IN c_qq_asset_lines_rec(lp_quote_id,'RC','SUBSIDY') LOOP
1591: IF((lp_qq_asset_lines_rec.basis IS NOT NULL) AND (lp_qq_asset_lines_rec.basis <> 'FIXED' AND lp_qq_asset_lines_rec.basis <> 'ASSET_COST')) THEN
1596: x_qa_result_tbl(i).result_code:='ERROR';
1597: x_qa_result_tbl(i).result_meaning:='ERROR';
1598: x_qa_result_tbl(i).message_code:= 'OKL_QA_SUBSIDY_BASIS_NOT_VALID';
1599: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_SUBSIDY_BASIS_NOT_VALID');
1600: x_qa_result := okl_api.g_ret_sts_error;
1601: EXIT;
1602: END IF;
1603: END LOOP;
1604: FOR lp_qq_asset_lines_rec IN c_qq_asset_lines_rec(lp_quote_id,'SF','ITEM_CATEGORY') LOOP
1613: x_qa_result_tbl(i).result_code:='ERROR';
1614: x_qa_result_tbl(i).result_meaning:='ERROR';
1615: x_qa_result_tbl(i).message_code:= 'OKL_QA_TC_PER_INVALID';
1616: x_qa_result_tbl(i).message_text:= get_msg_text('OKL_QA_TC_PER_INVALID');
1617: x_qa_result := okl_api.G_RET_STS_ERROR;
1618: END IF;
1619:
1620: END IF;--End OF QQ
1621: END IF;-----Quote ID Is not null
1619:
1620: END IF;--End OF QQ
1621: END IF;-----Quote ID Is not null
1622:
1623: okl_api.end_activity(x_msg_count => x_msg_count
1624: ,x_msg_data => x_msg_data);
1625:
1626: IF (l_debug_enabled = 'Y' AND is_debug_procedure_on) THEN
1627: okl_debug_pub.log_debug(fnd_log.level_procedure
1629: ,'end debug okl_sales_quote_qa_pvt call validating_pricing_values');
1630: END IF;
1631: EXCEPTION
1632: WHEN OTHERS THEN
1633: x_return_status := okl_api.G_RET_STS_ERROR;
1634: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1635: p_msg_name => G_DB_ERROR,
1636: p_token1 => G_PROG_NAME_TOKEN,
1637: p_token1_value => 'OKLRQQCB.pls.val_pric_val',
1630: END IF;
1631: EXCEPTION
1632: WHEN OTHERS THEN
1633: x_return_status := okl_api.G_RET_STS_ERROR;
1634: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1635: p_msg_name => G_DB_ERROR,
1636: p_token1 => G_PROG_NAME_TOKEN,
1637: p_token1_value => 'OKLRQQCB.pls.val_pric_val',
1638: p_token2 => G_SQLCODE_TOKEN,
1716: x_okl_ec_rec.validation_mode := l_validation_mode;
1717: EXCEPTION
1718: WHEN OTHERS THEN
1719:
1720: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1721: p_msg_name => G_DB_ERROR,
1722: p_token1 => G_PROG_NAME_TOKEN,
1723: p_token1_value => 'VALIDATION_SET_QA',
1724: p_token2 => G_SQLCODE_TOKEN,
1840: ,fnd_log.level_statement);
1841:
1842: -- call START_ACTIVITY to create savepoint, check compatibility
1843: -- and initialize message list
1844: x_return_status := okl_api.start_activity(p_api_name=>l_api_name
1845: ,p_pkg_name=>G_PKG_NAME
1846: ,p_init_msg_list=>p_init_msg_list
1847: ,p_api_version=>p_api_version
1848: ,l_api_version=>p_api_version
1848: ,l_api_version=>p_api_version
1849: ,p_api_type=>G_API_TYPE
1850: ,x_return_status=>x_return_status); -- check if activity started successfully
1851:
1852: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1853: RAISE okl_api.g_exception_unexpected_error;
1854: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1855: RAISE okl_api.g_exception_error;
1856: END IF;
1849: ,p_api_type=>G_API_TYPE
1850: ,x_return_status=>x_return_status); -- check if activity started successfully
1851:
1852: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1853: RAISE okl_api.g_exception_unexpected_error;
1854: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1855: RAISE okl_api.g_exception_error;
1856: END IF;
1857:
1850: ,x_return_status=>x_return_status); -- check if activity started successfully
1851:
1852: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1853: RAISE okl_api.g_exception_unexpected_error;
1854: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1855: RAISE okl_api.g_exception_error;
1856: END IF;
1857:
1858: lp_object_type:= p_object_type;
1851:
1852: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1853: RAISE okl_api.g_exception_unexpected_error;
1854: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1855: RAISE okl_api.g_exception_error;
1856: END IF;
1857:
1858: lp_object_type:= p_object_type;
1859: lp_quote_id:=p_object_id;
1886: ,x_msg_count
1887: ,x_msg_data
1888: ,x_okl_ec_rec
1889: ,x_eligible);
1890: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1891: RAISE okl_api.g_exception_unexpected_error;
1892: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1893: RAISE okl_api.g_exception_error;
1894: END IF;
1887: ,x_msg_data
1888: ,x_okl_ec_rec
1889: ,x_eligible);
1890: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1891: RAISE okl_api.g_exception_unexpected_error;
1892: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1893: RAISE okl_api.g_exception_error;
1894: END IF;
1895: IF( NOT x_eligible) THEN
1888: ,x_okl_ec_rec
1889: ,x_eligible);
1890: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1891: RAISE okl_api.g_exception_unexpected_error;
1892: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1893: RAISE okl_api.g_exception_error;
1894: END IF;
1895: IF( NOT x_eligible) THEN
1896: --Set Message According to the Source Type
1889: ,x_eligible);
1890: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1891: RAISE okl_api.g_exception_unexpected_error;
1892: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1893: RAISE okl_api.g_exception_error;
1894: END IF;
1895: IF( NOT x_eligible) THEN
1896: --Set Message According to the Source Type
1897: i:=x_qa_result_tbl.COUNT;
1921: ,p_value3 => NULL
1922: ,p_token4 => NULL
1923: ,p_value4 => NULL);
1924: x_qa_result_tbl(i).message_text:= fnd_message.get;
1925: x_qa_result := okl_api.G_RET_STS_ERROR;
1926: END IF;
1927: END IF;
1928: --Bug # 5050143 ssdeshpa start
1929: --Check EC Criteria for Assets and Config Fees
1948: ,x_msg_count
1949: ,x_msg_data
1950: ,x_okl_ec_rec
1951: ,x_eligible);
1952: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1953: RAISE okl_api.g_exception_unexpected_error;
1954: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1955: RAISE okl_api.g_exception_error;
1956: END IF;
1949: ,x_msg_data
1950: ,x_okl_ec_rec
1951: ,x_eligible);
1952: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1953: RAISE okl_api.g_exception_unexpected_error;
1954: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1955: RAISE okl_api.g_exception_error;
1956: END IF;
1957: IF( NOT x_eligible) THEN
1950: ,x_okl_ec_rec
1951: ,x_eligible);
1952: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1953: RAISE okl_api.g_exception_unexpected_error;
1954: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1955: RAISE okl_api.g_exception_error;
1956: END IF;
1957: IF( NOT x_eligible) THEN
1958: --Set Message According to the Source Type
1951: ,x_eligible);
1952: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1953: RAISE okl_api.g_exception_unexpected_error;
1954: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1955: RAISE okl_api.g_exception_error;
1956: END IF;
1957: IF( NOT x_eligible) THEN
1958: --Set Message According to the Source Type
1959: i:=x_qa_result_tbl.COUNT;
1983: ,p_value3 => NULL
1984: ,p_token4 => NULL
1985: ,p_value4 => NULL);
1986: x_qa_result_tbl(i).message_text:= fnd_message.get;
1987: x_qa_result := okl_api.G_RET_STS_ERROR;
1988: EXIT;
1989: END IF;
1990: END IF;
1991: END LOOP;
1999: ,x_msg_count
2000: ,x_msg_data
2001: ,x_okl_ec_rec
2002: ,x_eligible);
2003: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2004: RAISE okl_api.g_exception_unexpected_error;
2005: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2006: RAISE okl_api.g_exception_error;
2007: END IF;
2000: ,x_msg_data
2001: ,x_okl_ec_rec
2002: ,x_eligible);
2003: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2004: RAISE okl_api.g_exception_unexpected_error;
2005: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2006: RAISE okl_api.g_exception_error;
2007: END IF;
2008: IF( NOT x_eligible) THEN
2001: ,x_okl_ec_rec
2002: ,x_eligible);
2003: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2004: RAISE okl_api.g_exception_unexpected_error;
2005: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2006: RAISE okl_api.g_exception_error;
2007: END IF;
2008: IF( NOT x_eligible) THEN
2009: --Set Message According to the Source Type
2002: ,x_eligible);
2003: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2004: RAISE okl_api.g_exception_unexpected_error;
2005: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2006: RAISE okl_api.g_exception_error;
2007: END IF;
2008: IF( NOT x_eligible) THEN
2009: --Set Message According to the Source Type
2010: i:=x_qa_result_tbl.COUNT;
2014: x_qa_result_tbl(i).result_code:='ERROR';
2015: x_qa_result_tbl(i).result_meaning:='ERROR';
2016: x_qa_result_tbl(i).message_code:= 'OKL_QA_VPA_NOT_VALID';
2017: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_VPA_NOT_VALID');
2018: x_qa_result := okl_api.G_RET_STS_ERROR;
2019: END IF;
2020: END IF;
2021:
2022: IF(lp_lq_header_rec.PRODUCT_ID IS NOT NULL) THEN
2028: ,x_msg_count
2029: ,x_msg_data
2030: ,x_okl_ec_rec
2031: ,x_eligible);
2032: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2033: RAISE okl_api.g_exception_unexpected_error;
2034: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2035: RAISE okl_api.g_exception_error;
2036: END IF;
2029: ,x_msg_data
2030: ,x_okl_ec_rec
2031: ,x_eligible);
2032: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2033: RAISE okl_api.g_exception_unexpected_error;
2034: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2035: RAISE okl_api.g_exception_error;
2036: END IF;
2037: IF( NOT x_eligible) THEN
2030: ,x_okl_ec_rec
2031: ,x_eligible);
2032: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2033: RAISE okl_api.g_exception_unexpected_error;
2034: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2035: RAISE okl_api.g_exception_error;
2036: END IF;
2037: IF( NOT x_eligible) THEN
2038: --Set Message According to the Source Type
2031: ,x_eligible);
2032: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2033: RAISE okl_api.g_exception_unexpected_error;
2034: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2035: RAISE okl_api.g_exception_error;
2036: END IF;
2037: IF( NOT x_eligible) THEN
2038: --Set Message According to the Source Type
2039: i:=x_qa_result_tbl.COUNT;
2043: x_qa_result_tbl(i).result_code:='ERROR';
2044: x_qa_result_tbl(i).result_meaning:='ERROR';
2045: x_qa_result_tbl(i).message_code:= 'OKL_QA_PRODUCT_NOT_VALID';
2046: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_PRODUCT_NOT_VALID');
2047: x_qa_result := okl_api.G_RET_STS_ERROR;
2048: END IF;
2049: END IF;
2050:
2051: END IF;--End OF LQ
2072: ,x_msg_count
2073: ,x_msg_data
2074: ,x_okl_ec_rec
2075: ,x_eligible);
2076: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2077: RAISE okl_api.g_exception_unexpected_error;
2078: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2079: RAISE okl_api.g_exception_error;
2080: END IF;
2073: ,x_msg_data
2074: ,x_okl_ec_rec
2075: ,x_eligible);
2076: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2077: RAISE okl_api.g_exception_unexpected_error;
2078: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2079: RAISE okl_api.g_exception_error;
2080: END IF;
2081: IF( NOT x_eligible) THEN
2074: ,x_okl_ec_rec
2075: ,x_eligible);
2076: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2077: RAISE okl_api.g_exception_unexpected_error;
2078: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2079: RAISE okl_api.g_exception_error;
2080: END IF;
2081: IF( NOT x_eligible) THEN
2082: --Set Message According to the Source Type
2075: ,x_eligible);
2076: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2077: RAISE okl_api.g_exception_unexpected_error;
2078: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2079: RAISE okl_api.g_exception_error;
2080: END IF;
2081: IF( NOT x_eligible) THEN
2082: --Set Message According to the Source Type
2083: i:=x_qa_result_tbl.COUNT;
2087: x_qa_result_tbl(i).result_code:='ERROR';
2088: x_qa_result_tbl(i).result_meaning:='ERROR';
2089: x_qa_result_tbl(i).message_code:= 'OKL_QA_TMPL_IS_NOT_VALID';
2090: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_TMPL_IS_NOT_VALID');
2091: x_qa_result := okl_api.G_RET_STS_ERROR;
2092: END IF;
2093: END IF;
2094: IF(lp_qq_header_rec.PROGRAM_AGREEMENT_ID IS NOT NULL) THEN
2095: x_okl_ec_rec.src_id := lp_qq_header_rec.PROGRAM_AGREEMENT_ID;
2100: ,x_msg_count
2101: ,x_msg_data
2102: ,x_okl_ec_rec
2103: ,x_eligible);
2104: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2105: RAISE okl_api.g_exception_unexpected_error;
2106: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2107: RAISE okl_api.g_exception_error;
2108: END IF;
2101: ,x_msg_data
2102: ,x_okl_ec_rec
2103: ,x_eligible);
2104: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2105: RAISE okl_api.g_exception_unexpected_error;
2106: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2107: RAISE okl_api.g_exception_error;
2108: END IF;
2109: IF(NOT x_eligible) THEN
2102: ,x_okl_ec_rec
2103: ,x_eligible);
2104: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2105: RAISE okl_api.g_exception_unexpected_error;
2106: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2107: RAISE okl_api.g_exception_error;
2108: END IF;
2109: IF(NOT x_eligible) THEN
2110: --Set Message According to the Source Type
2103: ,x_eligible);
2104: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2105: RAISE okl_api.g_exception_unexpected_error;
2106: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2107: RAISE okl_api.g_exception_error;
2108: END IF;
2109: IF(NOT x_eligible) THEN
2110: --Set Message According to the Source Type
2111: i:=x_qa_result_tbl.COUNT;
2115: x_qa_result_tbl(i).result_code:='ERROR';
2116: x_qa_result_tbl(i).result_meaning:='ERROR';
2117: x_qa_result_tbl(i).message_code:= 'OKL_QA_VPA_NOT_VALID';
2118: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_VPA_NOT_VALID');
2119: x_qa_result := okl_api.G_RET_STS_ERROR;
2120: END IF;
2121: END IF;
2122:
2123: END IF;--End OF QQ
2121: END IF;
2122:
2123: END IF;--End OF QQ
2124: END IF;--quote_id is not null
2125: okl_api.end_activity(x_msg_count => x_msg_count
2126: ,x_msg_data => x_msg_data);
2127:
2128: IF (l_debug_enabled = 'Y' AND is_debug_procedure_on) THEN
2129: okl_debug_pub.log_debug(fnd_log.level_procedure
2130: ,l_module
2131: ,'end debug okl_sales_quote_qa_pvt call validate_ec_criteria');
2132: END IF;
2133: EXCEPTION
2134: WHEN okl_api.g_exception_error THEN
2135: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
2136: ,p_pkg_name =>G_PKG_NAME
2137: ,p_exc_name =>'OKL_API.G_RET_STS_ERROR'
2138: ,x_msg_count =>x_msg_count
2131: ,'end debug okl_sales_quote_qa_pvt call validate_ec_criteria');
2132: END IF;
2133: EXCEPTION
2134: WHEN okl_api.g_exception_error THEN
2135: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
2136: ,p_pkg_name =>G_PKG_NAME
2137: ,p_exc_name =>'OKL_API.G_RET_STS_ERROR'
2138: ,x_msg_count =>x_msg_count
2139: ,x_msg_data =>x_msg_data
2133: EXCEPTION
2134: WHEN okl_api.g_exception_error THEN
2135: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
2136: ,p_pkg_name =>G_PKG_NAME
2137: ,p_exc_name =>'OKL_API.G_RET_STS_ERROR'
2138: ,x_msg_count =>x_msg_count
2139: ,x_msg_data =>x_msg_data
2140: ,p_api_type =>G_API_TYPE);
2141:
2138: ,x_msg_count =>x_msg_count
2139: ,x_msg_data =>x_msg_data
2140: ,p_api_type =>G_API_TYPE);
2141:
2142: WHEN okl_api.g_exception_unexpected_error THEN
2143:
2144: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
2145: ,p_pkg_name =>G_PKG_NAME
2146: ,p_exc_name =>'OKL_API.G_RET_STS_UNEXP_ERROR'
2140: ,p_api_type =>G_API_TYPE);
2141:
2142: WHEN okl_api.g_exception_unexpected_error THEN
2143:
2144: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
2145: ,p_pkg_name =>G_PKG_NAME
2146: ,p_exc_name =>'OKL_API.G_RET_STS_UNEXP_ERROR'
2147: ,x_msg_count =>x_msg_count
2148: ,x_msg_data =>x_msg_data
2142: WHEN okl_api.g_exception_unexpected_error THEN
2143:
2144: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
2145: ,p_pkg_name =>G_PKG_NAME
2146: ,p_exc_name =>'OKL_API.G_RET_STS_UNEXP_ERROR'
2147: ,x_msg_count =>x_msg_count
2148: ,x_msg_data =>x_msg_data
2149: ,p_api_type =>G_API_TYPE);
2150:
2246: x_qa_result_tbl(i).result_code:='ERROR';
2247: x_qa_result_tbl(i).result_meaning:='ERROR';
2248: x_qa_result_tbl(i).message_code:= 'OKL_QA_CPTR_GT_OEC';
2249: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_CPTR_GT_OEC');
2250: x_qa_result := okl_api.G_RET_STS_ERROR;
2251: EXIT;
2252: END IF;
2253: CLOSE c_lq_cost_adj_rec;
2254: END LOOP;
2290: x_qa_result_tbl(i).result_code:='ERROR';
2291: x_qa_result_tbl(i).result_meaning:='ERROR';
2292: x_qa_result_tbl(i).message_code:= 'OKL_QA_CPTR_GT_OEC';
2293: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_CPTR_GT_OEC');
2294: x_qa_result := okl_api.G_RET_STS_ERROR;
2295: END IF;
2296: END IF;--Pricing Method is Not SF
2297: END IF;--End OF QQ
2298: END IF;-- lp_quote_id is Not Null
2297: END IF;--End OF QQ
2298: END IF;-- lp_quote_id is Not Null
2299: EXCEPTION
2300: WHEN OTHERS THEN
2301: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
2302: p_msg_name => G_DB_ERROR,
2303: p_token1 => G_PROG_NAME_TOKEN,
2304: p_token1_value => 'OKLRQQCB.pls.val_fin_prod',
2305: p_token2 => G_SQLCODE_TOKEN,
2427:
2428: -- call START_ACTIVITY to create savepoint, check compatibility
2429: -- and initialize message list
2430:
2431: x_return_status := okl_api.start_activity(p_api_name=>l_api_name
2432: ,p_pkg_name=>G_PKG_NAME
2433: ,p_init_msg_list=> p_init_msg_list
2434: ,p_api_version=>p_api_version
2435: ,l_api_version=>p_api_version
2435: ,l_api_version=>p_api_version
2436: ,p_api_type=>G_API_TYPE
2437: ,x_return_status=>x_return_status); -- check if activity started successfully
2438:
2439: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2440: RAISE okl_api.g_exception_unexpected_error;
2441: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2442: RAISE okl_api.g_exception_error;
2443: END IF;
2436: ,p_api_type=>G_API_TYPE
2437: ,x_return_status=>x_return_status); -- check if activity started successfully
2438:
2439: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2440: RAISE okl_api.g_exception_unexpected_error;
2441: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2442: RAISE okl_api.g_exception_error;
2443: END IF;
2444:
2437: ,x_return_status=>x_return_status); -- check if activity started successfully
2438:
2439: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2440: RAISE okl_api.g_exception_unexpected_error;
2441: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2442: RAISE okl_api.g_exception_error;
2443: END IF;
2444:
2445: lp_quote_id := p_object_id;
2438:
2439: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2440: RAISE okl_api.g_exception_unexpected_error;
2441: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2442: RAISE okl_api.g_exception_error;
2443: END IF;
2444:
2445: lp_quote_id := p_object_id;
2446: IF(lp_quote_id IS NOT NULL) THEN
2457: x_qa_result_tbl(i).result_code:='ERROR';
2458: x_qa_result_tbl(i).result_meaning:='ERROR';
2459: x_qa_result_tbl(i).message_code:= 'OKL_QA_EOT_GT_OEC';
2460: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_EOT_GT_OEC');
2461: x_qa_result := okl_api.G_RET_STS_ERROR;
2462: EXIT;
2463: END IF;
2464: FETCH c_lq_asset_rec INTO lp_lq_asset_rec;
2465: END LOOP;
2485: x_qa_result_tbl(i).result_code:='ERROR';
2486: x_qa_result_tbl(i).result_meaning:='ERROR';
2487: x_qa_result_tbl(i).message_code:= 'OKL_QA_SGT_PRD_INVALID';
2488: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_SGT_PRD_INVALID');
2489: x_qa_result := okl_api.G_RET_STS_ERROR;
2490: END IF;
2491: --Bug 4713705 SSDESHPA--->End
2492: --Added for Legal Entity Validation
2493: OPEN l_systemparams_csr;
2506: x_qa_result_tbl(i).result_code:='ERROR';
2507: x_qa_result_tbl(i).result_meaning:='ERROR';
2508: x_qa_result_tbl(i).message_code:= l_err_msg;
2509: x_qa_result_tbl(i).message_text:=get_msg_text(l_err_msg);
2510: x_qa_result := okl_api.G_RET_STS_ERROR;
2511: END IF;
2512: END IF;---LQ
2513:
2514: IF(p_object_type='QUICKQUOTE') THEN
2530: x_qa_result_tbl(i).result_code:='ERROR';
2531: x_qa_result_tbl(i).result_meaning:='ERROR';
2532: x_qa_result_tbl(i).message_code:= 'OKL_QA_EOT_GT_OEC';
2533: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_EOT_GT_OEC');
2534: x_qa_result := okl_api.G_RET_STS_ERROR;
2535: EXIT;
2536: END IF;
2537: FETCH c_qq_lines_rec INTO lp_qq_lines_rec;
2538: END LOOP;
2559: x_qa_result_tbl(i).result_code:='ERROR';
2560: x_qa_result_tbl(i).result_meaning:='ERROR';
2561: x_qa_result_tbl(i).message_code:= 'OKL_QA_SGT_EOT_INVALID';
2562: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_SGT_EOT_INVALID');
2563: x_qa_result := okl_api.G_RET_STS_ERROR;
2564: END IF;
2565: --Bug fix 4713705 End
2566: END IF;--End OF QQ
2567:
2566: END IF;--End OF QQ
2567:
2568: END IF;---End OF If quote Id IS Not Null
2569:
2570: okl_api.end_activity(x_msg_count => x_msg_count
2571: ,x_msg_data => x_msg_data);
2572:
2573: IF (l_debug_enabled = 'Y' AND is_debug_procedure_on) THEN
2574: okl_debug_pub.log_debug(fnd_log.level_procedure
2576: ,'end debug okl_sales_quote_qa_pvt call extended_validations');
2577: END IF;
2578:
2579: EXCEPTION
2580: WHEN okl_api.g_exception_error THEN
2581:
2582: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
2583: ,p_pkg_name =>G_PKG_NAME
2584: ,p_exc_name =>'OKL_API.G_RET_STS_ERROR'
2578:
2579: EXCEPTION
2580: WHEN okl_api.g_exception_error THEN
2581:
2582: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
2583: ,p_pkg_name =>G_PKG_NAME
2584: ,p_exc_name =>'OKL_API.G_RET_STS_ERROR'
2585: ,x_msg_count =>x_msg_count
2586: ,x_msg_data =>x_msg_data
2580: WHEN okl_api.g_exception_error THEN
2581:
2582: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
2583: ,p_pkg_name =>G_PKG_NAME
2584: ,p_exc_name =>'OKL_API.G_RET_STS_ERROR'
2585: ,x_msg_count =>x_msg_count
2586: ,x_msg_data =>x_msg_data
2587: ,p_api_type =>G_API_TYPE);
2588:
2585: ,x_msg_count =>x_msg_count
2586: ,x_msg_data =>x_msg_data
2587: ,p_api_type =>G_API_TYPE);
2588:
2589: WHEN okl_api.g_exception_unexpected_error THEN
2590:
2591: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
2592: ,p_pkg_name =>G_PKG_NAME
2593: ,p_exc_name =>'OKL_API.G_RET_STS_UNEXP_ERROR'
2587: ,p_api_type =>G_API_TYPE);
2588:
2589: WHEN okl_api.g_exception_unexpected_error THEN
2590:
2591: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
2592: ,p_pkg_name =>G_PKG_NAME
2593: ,p_exc_name =>'OKL_API.G_RET_STS_UNEXP_ERROR'
2594: ,x_msg_count =>x_msg_count
2595: ,x_msg_data =>x_msg_data
2589: WHEN okl_api.g_exception_unexpected_error THEN
2590:
2591: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
2592: ,p_pkg_name =>G_PKG_NAME
2593: ,p_exc_name =>'OKL_API.G_RET_STS_UNEXP_ERROR'
2594: ,x_msg_count =>x_msg_count
2595: ,x_msg_data =>x_msg_data
2596: ,p_api_type =>G_API_TYPE);
2597:
2596: ,p_api_type =>G_API_TYPE);
2597:
2598: WHEN OTHERS THEN
2599:
2600: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
2601: ,p_pkg_name =>G_PKG_NAME
2602: ,p_exc_name =>'OTHERS'
2603: ,x_msg_count =>x_msg_count
2604: ,x_msg_data =>x_msg_data
2691: ,fnd_log.level_statement);
2692:
2693: -- call START_ACTIVITY to create savepoint, check compatibility
2694: -- and initialize message list
2695: x_return_status := okl_api.start_activity(p_api_name=>l_api_name
2696: ,p_pkg_name=>G_PKG_NAME
2697: ,p_init_msg_list=>p_init_msg_list
2698: ,p_api_version=>p_api_version
2699: ,l_api_version=>p_api_version
2699: ,l_api_version=>p_api_version
2700: ,p_api_type=>G_API_TYPE
2701: ,x_return_status=>x_return_status); -- check if activity started successfully
2702:
2703: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2704: RAISE okl_api.g_exception_unexpected_error;
2705: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2706: RAISE okl_api.g_exception_error;
2707: END IF;
2700: ,p_api_type=>G_API_TYPE
2701: ,x_return_status=>x_return_status); -- check if activity started successfully
2702:
2703: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2704: RAISE okl_api.g_exception_unexpected_error;
2705: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2706: RAISE okl_api.g_exception_error;
2707: END IF;
2708: lp_quote_id := p_object_id;
2701: ,x_return_status=>x_return_status); -- check if activity started successfully
2702:
2703: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2704: RAISE okl_api.g_exception_unexpected_error;
2705: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2706: RAISE okl_api.g_exception_error;
2707: END IF;
2708: lp_quote_id := p_object_id;
2709: IF(lp_quote_id IS NOT NULL) THEN
2702:
2703: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2704: RAISE okl_api.g_exception_unexpected_error;
2705: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2706: RAISE okl_api.g_exception_error;
2707: END IF;
2708: lp_quote_id := p_object_id;
2709: IF(lp_quote_id IS NOT NULL) THEN
2710: IF(p_object_type='LEASEQUOTE') THEN
2723: x_qa_result_tbl(i).result_code:='ERROR';
2724: x_qa_result_tbl(i).result_meaning:='ERROR';
2725: x_qa_result_tbl(i).message_code:= 'OKL_QA_SUB_BASIS_NOT_VALID_SF';
2726: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_SUB_BASIS_NOT_VALID_SF');
2727: x_qa_result := okl_api.G_RET_STS_ERROR;
2728: EXIT;
2729: END IF;
2730: CLOSE c_lq_cost_adj_rec;
2731: FETCH c_lq_asset_lines_rec INTO lp_lq_asset_lines_rec;
2747: x_qa_result_tbl(i).result_code:='ERROR';
2748: x_qa_result_tbl(i).result_meaning:='ERROR';
2749: x_qa_result_tbl(i).message_code:= 'OKL_QA_SUB_BASIS_NOT_VALID_SF';
2750: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_SUB_BASIS_NOT_VALID_SF');
2751: x_qa_result := okl_api.G_RET_STS_ERROR;
2752: EXIT;
2753: END IF;
2754: FETCH c_qq_asset_lines_rec INTO lp_qq_asset_lines_rec;
2755: END LOOP;
2756: CLOSE c_qq_asset_lines_rec;
2757: END IF;--End OF QQ
2758: END IF;---End OF If quote Id IS Not Null
2759:
2760: okl_api.end_activity(x_msg_count => x_msg_count
2761: ,x_msg_data => x_msg_data);
2762:
2763: IF (l_debug_enabled = 'Y' AND is_debug_procedure_on) THEN
2764: okl_debug_pub.log_debug(fnd_log.level_procedure
2765: ,l_module
2766: ,'end debug okl_sales_quote_qa_pvt call check_subsidies');
2767: END IF;
2768: EXCEPTION
2769: WHEN okl_api.g_exception_error THEN
2770: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
2771: ,p_pkg_name =>G_PKG_NAME
2772: ,p_exc_name =>'OKL_API.G_RET_STS_ERROR'
2773: ,x_msg_count =>x_msg_count
2766: ,'end debug okl_sales_quote_qa_pvt call check_subsidies');
2767: END IF;
2768: EXCEPTION
2769: WHEN okl_api.g_exception_error THEN
2770: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
2771: ,p_pkg_name =>G_PKG_NAME
2772: ,p_exc_name =>'OKL_API.G_RET_STS_ERROR'
2773: ,x_msg_count =>x_msg_count
2774: ,x_msg_data =>x_msg_data
2768: EXCEPTION
2769: WHEN okl_api.g_exception_error THEN
2770: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
2771: ,p_pkg_name =>G_PKG_NAME
2772: ,p_exc_name =>'OKL_API.G_RET_STS_ERROR'
2773: ,x_msg_count =>x_msg_count
2774: ,x_msg_data =>x_msg_data
2775: ,p_api_type =>G_API_TYPE);
2776:
2773: ,x_msg_count =>x_msg_count
2774: ,x_msg_data =>x_msg_data
2775: ,p_api_type =>G_API_TYPE);
2776:
2777: WHEN okl_api.g_exception_unexpected_error THEN
2778: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
2779: ,p_pkg_name =>G_PKG_NAME
2780: ,p_exc_name =>'OKL_API.G_RET_STS_UNEXP_ERROR'
2781: ,x_msg_count =>x_msg_count
2774: ,x_msg_data =>x_msg_data
2775: ,p_api_type =>G_API_TYPE);
2776:
2777: WHEN okl_api.g_exception_unexpected_error THEN
2778: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
2779: ,p_pkg_name =>G_PKG_NAME
2780: ,p_exc_name =>'OKL_API.G_RET_STS_UNEXP_ERROR'
2781: ,x_msg_count =>x_msg_count
2782: ,x_msg_data =>x_msg_data
2776:
2777: WHEN okl_api.g_exception_unexpected_error THEN
2778: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
2779: ,p_pkg_name =>G_PKG_NAME
2780: ,p_exc_name =>'OKL_API.G_RET_STS_UNEXP_ERROR'
2781: ,x_msg_count =>x_msg_count
2782: ,x_msg_data =>x_msg_data
2783: ,p_api_type =>G_API_TYPE);
2784:
2782: ,x_msg_data =>x_msg_data
2783: ,p_api_type =>G_API_TYPE);
2784:
2785: WHEN OTHERS THEN
2786: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
2787: ,p_pkg_name =>G_PKG_NAME
2788: ,p_exc_name =>'OTHERS'
2789: ,x_msg_count =>x_msg_count
2790: ,x_msg_data =>x_msg_data
2867:
2868: -- call START_ACTIVITY to create savepoint, check compatibility
2869: -- and initialize message list
2870:
2871: x_return_status := okl_api.start_activity(p_api_name=>l_api_name
2872: ,p_pkg_name=>G_PKG_NAME
2873: ,p_init_msg_list=>p_init_msg_list
2874: ,p_api_version=>p_api_version
2875: ,l_api_version=>p_api_version
2875: ,l_api_version=>p_api_version
2876: ,p_api_type=>G_API_TYPE
2877: ,x_return_status=>x_return_status); -- check if activity started successfully
2878:
2879: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2880: RAISE okl_api.g_exception_unexpected_error;
2881: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2882: RAISE okl_api.g_exception_error;
2883: END IF;
2876: ,p_api_type=>G_API_TYPE
2877: ,x_return_status=>x_return_status); -- check if activity started successfully
2878:
2879: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2880: RAISE okl_api.g_exception_unexpected_error;
2881: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2882: RAISE okl_api.g_exception_error;
2883: END IF;
2884:
2877: ,x_return_status=>x_return_status); -- check if activity started successfully
2878:
2879: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2880: RAISE okl_api.g_exception_unexpected_error;
2881: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2882: RAISE okl_api.g_exception_error;
2883: END IF;
2884:
2885: lp_quote_id := p_object_id;
2878:
2879: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
2880: RAISE okl_api.g_exception_unexpected_error;
2881: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
2882: RAISE okl_api.g_exception_error;
2883: END IF;
2884:
2885: lp_quote_id := p_object_id;
2886: IF(lp_quote_id IS NOT NULL) THEN
2899: x_qa_result_tbl(i).result_code:='ERROR';
2900: x_qa_result_tbl(i).result_meaning:='ERROR';
2901: x_qa_result_tbl(i).message_code:= 'OKL_QA_NO_EOT_FOR_ASSET';
2902: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_NO_EOT_FOR_ASSET');
2903: x_qa_result := okl_api.G_RET_STS_ERROR;
2904: EXIT;
2905: END IF;
2906: END LOOP;
2907: --For a Quote Atlease One Asset Should be there
2914: x_qa_result_tbl(i).result_code:='ERROR';
2915: x_qa_result_tbl(i).result_meaning:='ERROR';
2916: x_qa_result_tbl(i).message_code:= 'OKL_QA_NO_ASSETS_FOUND';
2917: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_NO_ASSETS_FOUND');
2918: x_qa_result := okl_api.G_RET_STS_ERROR;
2919: END IF;
2920: END IF;--for LQ
2921: -- bug 5048183 ssdeshpa End
2922: IF(p_object_type='QUICKQUOTE') THEN
2933: x_qa_result_tbl(i).result_code:='ERROR';
2934: x_qa_result_tbl(i).result_meaning:='ERROR';
2935: x_qa_result_tbl(i).message_code:= 'OKL_QA_NO_ASSETS_FOUND';
2936: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_NO_ASSETS_FOUND');
2937: x_qa_result := okl_api.G_RET_STS_ERROR;
2938: END IF;
2939: END IF;--End of QQ
2940: ELSE
2941: i:=x_qa_result_tbl.COUNT;
2945: x_qa_result_tbl(i).result_code:='ERROR';
2946: x_qa_result_tbl(i).result_meaning:='ERROR';
2947: x_qa_result_tbl(i).message_code:= 'OKL_QA_NO_QUOTE_FOUND';
2948: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_NO_QUOTE_FOUND');
2949: x_qa_result := okl_api.G_RET_STS_ERROR;
2950: END IF;
2951: okl_api.end_activity(x_msg_count => x_msg_count
2952: ,x_msg_data => x_msg_data);
2953:
2947: x_qa_result_tbl(i).message_code:= 'OKL_QA_NO_QUOTE_FOUND';
2948: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_NO_QUOTE_FOUND');
2949: x_qa_result := okl_api.G_RET_STS_ERROR;
2950: END IF;
2951: okl_api.end_activity(x_msg_count => x_msg_count
2952: ,x_msg_data => x_msg_data);
2953:
2954: IF (l_debug_enabled = 'Y' AND is_debug_procedure_on) THEN
2955: okl_debug_pub.log_debug(fnd_log.level_procedure
2957: ,'end debug okl_sales_quote_qa_pvt call check_configuration ');
2958: END IF;
2959:
2960: EXCEPTION
2961: WHEN okl_api.g_exception_error THEN
2962: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
2963: ,p_pkg_name => G_PKG_NAME
2964: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
2965: ,x_msg_count => x_msg_count
2958: END IF;
2959:
2960: EXCEPTION
2961: WHEN okl_api.g_exception_error THEN
2962: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
2963: ,p_pkg_name => G_PKG_NAME
2964: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
2965: ,x_msg_count => x_msg_count
2966: ,x_msg_data => x_msg_data
2960: EXCEPTION
2961: WHEN okl_api.g_exception_error THEN
2962: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
2963: ,p_pkg_name => G_PKG_NAME
2964: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
2965: ,x_msg_count => x_msg_count
2966: ,x_msg_data => x_msg_data
2967: ,p_api_type => G_API_TYPE);
2968:
2965: ,x_msg_count => x_msg_count
2966: ,x_msg_data => x_msg_data
2967: ,p_api_type => G_API_TYPE);
2968:
2969: WHEN okl_api.g_exception_unexpected_error THEN
2970:
2971: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
2972: ,p_pkg_name => G_PKG_NAME
2973: ,p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR'
2967: ,p_api_type => G_API_TYPE);
2968:
2969: WHEN okl_api.g_exception_unexpected_error THEN
2970:
2971: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
2972: ,p_pkg_name => G_PKG_NAME
2973: ,p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR'
2974: ,x_msg_count => x_msg_count
2975: ,x_msg_data => x_msg_data
2969: WHEN okl_api.g_exception_unexpected_error THEN
2970:
2971: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
2972: ,p_pkg_name => G_PKG_NAME
2973: ,p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR'
2974: ,x_msg_count => x_msg_count
2975: ,x_msg_data => x_msg_data
2976: ,p_api_type => G_API_TYPE);
2977:
2976: ,p_api_type => G_API_TYPE);
2977:
2978: WHEN OTHERS THEN
2979:
2980: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
2981: ,p_pkg_name => G_PKG_NAME
2982: ,p_exc_name =>'OTHERS'
2983: ,x_msg_count => x_msg_count
2984: ,x_msg_data => x_msg_data
3070:
3071: -- call START_ACTIVITY to create savepoint, check compatibility
3072: -- and initialize message list
3073:
3074: x_return_status := okl_api.start_activity(p_api_name=>l_api_name
3075: ,p_pkg_name=>G_PKG_NAME
3076: ,p_init_msg_list=>p_init_msg_list
3077: ,p_api_version=>p_api_version
3078: ,l_api_version=>p_api_version
3078: ,l_api_version=>p_api_version
3079: ,p_api_type=>G_API_TYPE
3080: ,x_return_status=>x_return_status); -- check if activity started successfully
3081:
3082: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3083: RAISE okl_api.g_exception_unexpected_error;
3084: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3085: RAISE okl_api.g_exception_error;
3086: END IF;
3079: ,p_api_type=>G_API_TYPE
3080: ,x_return_status=>x_return_status); -- check if activity started successfully
3081:
3082: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3083: RAISE okl_api.g_exception_unexpected_error;
3084: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3085: RAISE okl_api.g_exception_error;
3086: END IF;
3087:
3080: ,x_return_status=>x_return_status); -- check if activity started successfully
3081:
3082: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3083: RAISE okl_api.g_exception_unexpected_error;
3084: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3085: RAISE okl_api.g_exception_error;
3086: END IF;
3087:
3088: lp_quote_id := p_object_id;
3081:
3082: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3083: RAISE okl_api.g_exception_unexpected_error;
3084: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3085: RAISE okl_api.g_exception_error;
3086: END IF;
3087:
3088: lp_quote_id := p_object_id;
3089: IF(lp_quote_id IS NOT NULL) THEN
3108: x_qa_result_tbl(i).result_code:='ERROR';
3109: x_qa_result_tbl(i).result_meaning:='ERROR';
3110: x_qa_result_tbl(i).message_code:= 'OKL_QA_NO_ASSETS_FOR_FEE';
3111: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_NO_ASSETS_FOR_FEE');
3112: x_qa_result := okl_api.G_RET_STS_ERROR;
3113: ELSE
3114: /* Keep fetching until no more records are FOUND */
3115: WHILE c_lq_asset_line%FOUND LOOP
3116: total_line_amount:=total_line_amount + nvl(lp_lq_asset_line.amount,0);
3128: x_qa_result_tbl(i).result_code:='ERROR';
3129: x_qa_result_tbl(i).result_meaning:='ERROR';
3130: x_qa_result_tbl(i).message_code:= 'OKL_QA_FEE_TOTAL_NOT_MATCH';
3131: x_qa_result_tbl(i).message_text:= get_msg_text('OKL_QA_FEE_TOTAL_NOT_MATCH');
3132: x_qa_result := okl_api.G_RET_STS_ERROR;
3133: END IF;
3134: END LOOP;
3135: --Check Whether the Quote Have Only One SECURITY_DEPOSIT Fee Defined on it
3136: OPEN c_lq_fee_rec(lp_quote_id,lp_sec_dep_fee_type);
3149: x_qa_result_tbl(i).result_code:='ERROR';
3150: x_qa_result_tbl(i).result_meaning:='ERROR';
3151: x_qa_result_tbl(i).message_code:= 'OKL_QA_SINGLE_SEC_DEP_REQ';
3152: x_qa_result_tbl(i).message_text:= get_msg_text('OKL_QA_SINGLE_SEC_DEP_REQ');
3153: x_qa_result := okl_api.G_RET_STS_ERROR;
3154: END IF;
3155:
3156: END IF;--End For LQ
3157: IF(p_object_type='QUICKQUOTE') THEN
3158: return;
3159: END IF;--End OF QQ
3160:
3161: END IF;---End OF If quote Id IS NOt Null
3162: okl_api.end_activity(x_msg_count => x_msg_count
3163: ,x_msg_data => x_msg_data);
3164:
3165: IF (l_debug_enabled = 'Y' AND is_debug_procedure_on) THEN
3166: okl_debug_pub.log_debug(fnd_log.level_procedure
3168: ,'end debug okl_sales_quote_qa_pvt.check_fees_and_services call');
3169: END IF;
3170:
3171: EXCEPTION
3172: WHEN okl_api.g_exception_error THEN
3173: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
3174: ,p_pkg_name =>G_PKG_NAME
3175: ,p_exc_name =>'OKL_API.G_RET_STS_ERROR'
3176: ,x_msg_count =>x_msg_count
3169: END IF;
3170:
3171: EXCEPTION
3172: WHEN okl_api.g_exception_error THEN
3173: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
3174: ,p_pkg_name =>G_PKG_NAME
3175: ,p_exc_name =>'OKL_API.G_RET_STS_ERROR'
3176: ,x_msg_count =>x_msg_count
3177: ,x_msg_data =>x_msg_data
3171: EXCEPTION
3172: WHEN okl_api.g_exception_error THEN
3173: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
3174: ,p_pkg_name =>G_PKG_NAME
3175: ,p_exc_name =>'OKL_API.G_RET_STS_ERROR'
3176: ,x_msg_count =>x_msg_count
3177: ,x_msg_data =>x_msg_data
3178: ,p_api_type =>G_API_TYPE);
3179:
3176: ,x_msg_count =>x_msg_count
3177: ,x_msg_data =>x_msg_data
3178: ,p_api_type =>G_API_TYPE);
3179:
3180: WHEN okl_api.g_exception_unexpected_error THEN
3181: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
3182: ,p_pkg_name =>G_PKG_NAME
3183: ,p_exc_name =>'OKL_API.G_RET_STS_UNEXP_ERROR'
3184: ,x_msg_count =>x_msg_count
3177: ,x_msg_data =>x_msg_data
3178: ,p_api_type =>G_API_TYPE);
3179:
3180: WHEN okl_api.g_exception_unexpected_error THEN
3181: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
3182: ,p_pkg_name =>G_PKG_NAME
3183: ,p_exc_name =>'OKL_API.G_RET_STS_UNEXP_ERROR'
3184: ,x_msg_count =>x_msg_count
3185: ,x_msg_data =>x_msg_data
3179:
3180: WHEN okl_api.g_exception_unexpected_error THEN
3181: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
3182: ,p_pkg_name =>G_PKG_NAME
3183: ,p_exc_name =>'OKL_API.G_RET_STS_UNEXP_ERROR'
3184: ,x_msg_count =>x_msg_count
3185: ,x_msg_data =>x_msg_data
3186: ,p_api_type =>G_API_TYPE);
3187:
3185: ,x_msg_data =>x_msg_data
3186: ,p_api_type =>G_API_TYPE);
3187:
3188: WHEN OTHERS THEN
3189: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
3190: ,p_pkg_name =>G_PKG_NAME
3191: ,p_exc_name =>'OTHERS'
3192: ,x_msg_count =>x_msg_count
3193: ,x_msg_data =>x_msg_data
3373:
3374: -- call START_ACTIVITY to create savepoint, check compatibility
3375: -- and initialize message list
3376:
3377: x_return_status := okl_api.start_activity(p_api_name => l_api_name
3378: ,p_pkg_name => G_PKG_NAME
3379: ,p_init_msg_list => p_init_msg_list
3380: ,p_api_version => p_api_version
3381: ,l_api_version => p_api_version
3381: ,l_api_version => p_api_version
3382: ,p_api_type => G_API_TYPE
3383: ,x_return_status => x_return_status); -- check if activity started successfully
3384:
3385: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3386: RAISE okl_api.g_exception_unexpected_error;
3387: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3388: RAISE okl_api.g_exception_error;
3389: END IF;
3382: ,p_api_type => G_API_TYPE
3383: ,x_return_status => x_return_status); -- check if activity started successfully
3384:
3385: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3386: RAISE okl_api.g_exception_unexpected_error;
3387: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3388: RAISE okl_api.g_exception_error;
3389: END IF;
3390:
3383: ,x_return_status => x_return_status); -- check if activity started successfully
3384:
3385: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3386: RAISE okl_api.g_exception_unexpected_error;
3387: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3388: RAISE okl_api.g_exception_error;
3389: END IF;
3390:
3391: lp_quote_id:=p_object_id;
3384:
3385: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
3386: RAISE okl_api.g_exception_unexpected_error;
3387: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
3388: RAISE okl_api.g_exception_error;
3389: END IF;
3390:
3391: lp_quote_id:=p_object_id;
3392: IF(lp_quote_id IS NOT NULL) THEN
3418: x_qa_result_tbl(i).result_code:='ERROR';
3419: x_qa_result_tbl(i).result_meaning:='ERROR';
3420: x_qa_result_tbl(i).message_code:= 'OKL_QA_SEC_DEP_STUB_AMT_DEF';
3421: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_SEC_DEP_STUB_AMT_DEF');
3422: x_qa_result := okl_api.G_RET_STS_ERROR;
3423: END IF;
3424: CLOSE c_lq_cfl_line;
3425: END IF;
3426: ----------------------------------------------------------------------
3538: x_qa_result_tbl(i).result_code:='ERROR';
3539: x_qa_result_tbl(i).result_meaning:='ERROR';
3540: x_qa_result_tbl(i).message_code:= 'OKL_QA_TR_MISS_PAY_ERROR';
3541: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_TR_MISS_PAY_ERROR');
3542: x_qa_result := okl_api.G_RET_STS_ERROR;
3543: END IF;
3544: END IF;
3545: --------------------------------------------------------------------------------
3546: --Check for Payment Method 'RC'
3555: x_qa_result_tbl(i).result_code:='ERROR';
3556: x_qa_result_tbl(i).result_meaning:='ERROR';
3557: x_qa_result_tbl(i).message_code:= 'OKL_QA_LRS_NOT_FOUND';
3558: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_LRS_NOT_FOUND');
3559: x_qa_result := okl_api.G_RET_STS_ERROR;
3560: ELSIF(( NVL( lp_lq_header_rec.structured_pricing, 'N') = 'Y' AND
3561: lp_lq_header_rec.LEASE_RATE_FACTOR IS NULL) ) THEN
3562: i:=x_qa_result_tbl.COUNT;
3563: i:=i+1;
3566: x_qa_result_tbl(i).result_code:='ERROR';
3567: x_qa_result_tbl(i).result_meaning:='ERROR';
3568: x_qa_result_tbl(i).message_code:= 'OKL_QA_RC_MISS_PAY_ERROR';
3569: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_RC_MISS_PAY_ERROR');
3570: x_qa_result := okl_api.G_RET_STS_ERROR;
3571: END IF;
3572: ELSIF((lp_lq_header_rec.pricing_method = 'RC') AND
3573: ( NVL(lp_lq_header_rec.LINE_LEVEL_PRICING,'N')='Y')) THEN
3574: FOR lp_config_fee_rec IN c_config_fee_rec(lp_quote_id) LOOP
3582: x_qa_result_tbl(i).result_code:='ERROR';
3583: x_qa_result_tbl(i).result_meaning:='ERROR';
3584: x_qa_result_tbl(i).message_code:= 'OKL_QA_LRS_NOT_FOUND';
3585: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_LRS_NOT_FOUND');
3586: x_qa_result := okl_api.G_RET_STS_ERROR;
3587: ELSIF(( NVL( lp_config_fee_rec.structured_pricing, 'N') = 'Y') AND
3588: ( lp_config_fee_rec.LEASE_RATE_FACTOR IS NULL) AND
3589: (lp_lq_header_rec.RATE_CARD_ID IS NULL AND lp_lq_header_rec.LEASE_RATE_FACTOR IS NULL)) THEN
3590: i:=x_qa_result_tbl.COUNT;
3594: x_qa_result_tbl(i).result_code:='ERROR';
3595: x_qa_result_tbl(i).result_meaning:='ERROR';
3596: x_qa_result_tbl(i).message_code:= 'OKL_QA_RC_MISS_PAY_ERROR';
3597: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_RC_MISS_PAY_ERROR');
3598: x_qa_result := okl_api.G_RET_STS_ERROR;
3599: EXIT;
3600: END IF;
3601: END LOOP;
3602: END IF;
3617: x_qa_result_tbl(i).result_code:='ERROR';
3618: x_qa_result_tbl(i).result_meaning:='ERROR';
3619: x_qa_result_tbl(i).message_code:= 'OKL_QA_RCHDR_NOT_VALID';
3620: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_RCHDR_NOT_VALID');
3621: x_qa_result := okl_api.G_RET_STS_ERROR;
3622:
3623: END IF;
3624: END IF;
3625: IF NVL(lp_lq_header_rec.LINE_LEVEL_PRICING,'N')='Y' THEN
3638: x_qa_result_tbl(i).result_code:='ERROR';
3639: x_qa_result_tbl(i).result_meaning:='ERROR';
3640: x_qa_result_tbl(i).message_code:= 'OKL_QA_RCLINE_NOT_VALID';
3641: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_RCLINE_NOT_VALID');
3642: x_qa_result := okl_api.G_RET_STS_ERROR;
3643: EXIT;
3644: END IF;
3645: END IF;
3646: END LOOP;
3662: x_qa_result_tbl(i).result_code:='ERROR';
3663: x_qa_result_tbl(i).result_meaning:='ERROR';
3664: x_qa_result_tbl(i).message_code:= 'OKL_QA_SRTHDR_NOT_VALID';
3665: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_SRTHDR_NOT_VALID');
3666: x_qa_result := okl_api.G_RET_STS_ERROR;
3667: /*ELSE
3668: check_srt_effective_rate(lp_lq_header_rec.RATE_TEMPLATE_ID,
3669: lp_lq_header_rec.ID,
3670: x_qa_result_tbl);*/
3686: x_qa_result_tbl(i).result_code:='ERROR';
3687: x_qa_result_tbl(i).result_meaning:='ERROR';
3688: x_qa_result_tbl(i).message_code:= 'OKL_QA_SRTLINE_NOT_VALID';
3689: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_SRTLINE_NOT_VALID');
3690: x_qa_result := okl_api.G_RET_STS_ERROR;
3691: EXIT;
3692: /*ELSE
3693: check_srt_effective_rate(lp_config_fee_rec.RATE_TEMPLATE_ID,
3694: lp_lq_header_rec.ID,
3717: x_qa_result_tbl(i).result_code:='ERROR';
3718: x_qa_result_tbl(i).result_meaning:='ERROR';
3719: x_qa_result_tbl(i).message_code:= 'OKL_QA_SM_MISS_PAY_ERROR';
3720: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_SM_MISS_PAY_ERROR');
3721: x_qa_result := okl_api.G_RET_STS_ERROR;
3722: END IF;
3723: IF(l_cfl_count <= 1) THEN
3724: i:=x_qa_result_tbl.COUNT;
3725: i:=i+1;
3728: x_qa_result_tbl(i).result_code:='ERROR';
3729: x_qa_result_tbl(i).result_meaning:='ERROR';
3730: x_qa_result_tbl(i).message_code:= 'OKL_QA_SM_QTE_PAY_ERROR';
3731: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_SM_QTE_PAY_ERROR');
3732: x_qa_result := okl_api.G_RET_STS_ERROR;
3733: END IF;
3734: IF(( lp_lq_header_rec.RATE_TEMPLATE_ID IS NULL)) THEN
3735: i:=x_qa_result_tbl.COUNT;
3736: i:=i+1;
3739: x_qa_result_tbl(i).result_code:='ERROR';
3740: x_qa_result_tbl(i).result_meaning:='ERROR';
3741: x_qa_result_tbl(i).message_code:= 'OKL_QA_SRT_NOT_FOUND';
3742: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_SRT_NOT_FOUND');
3743: x_qa_result := okl_api.G_RET_STS_ERROR;
3744: END IF;
3745: ELSIF((NVL(lp_lq_header_rec.STRUCTURED_PRICING, 'N') = 'Y')) THEN
3746:
3747: FOR l_cfl_line_rec IN c_lq_cfl_line(lp_quote_id ,'LEASE_QUOTE') LOOP
3759: x_qa_result_tbl(i).result_code:='ERROR';
3760: x_qa_result_tbl(i).result_meaning:='ERROR';
3761: x_qa_result_tbl(i).message_code:= 'OKL_QA_SM_MISS_PAY_ERROR';
3762: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_SM_MISS_PAY_ERROR');
3763: x_qa_result := okl_api.G_RET_STS_ERROR;
3764: END IF;
3765: IF (l_cfl_count <= 1) THEN
3766: i:=x_qa_result_tbl.COUNT;
3767: i:=i+1;
3770: x_qa_result_tbl(i).result_code:='ERROR';
3771: x_qa_result_tbl(i).result_meaning:='ERROR';
3772: x_qa_result_tbl(i).message_code:= 'OKL_QA_SM_QTE_PAY_ERROR';
3773: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_SM_QTE_PAY_ERROR');
3774: x_qa_result := okl_api.G_RET_STS_ERROR;
3775: END IF;
3776: END IF;
3777: l_total_missing_pmts := l_total_missing_pmts + l_missing_pmts;
3778: l_total_cfl_count := l_total_cfl_count + l_cfl_count;
3808: x_qa_result_tbl(i).result_code:='ERROR';
3809: x_qa_result_tbl(i).result_meaning:='ERROR';
3810: x_qa_result_tbl(i).message_code:= 'OKL_QA_SM_MISS_PAY_ERROR';
3811: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_SM_MISS_PAY_ERROR');
3812: x_qa_result := okl_api.G_RET_STS_ERROR;
3813: EXIT;
3814: END IF;
3815: IF(l_missing_pmts = 0 AND configuration_asset_rec.RATE_TEMPLATE_ID IS NOT NULL) THEN
3816: i:=x_qa_result_tbl.COUNT;
3829: ,p_value3 => NULL
3830: ,p_token4 => NULL
3831: ,p_value4 => NULL);
3832: x_qa_result_tbl(i).message_text:= fnd_message.get;
3833: x_qa_result := okl_api.G_RET_STS_ERROR;
3834: END IF;
3835:
3836: IF(l_missing_pmts > 0 AND (l_cfl_count = 1)) THEN
3837: i:=x_qa_result_tbl.COUNT;
3841: x_qa_result_tbl(i).result_code:='ERROR';
3842: x_qa_result_tbl(i).result_meaning:='ERROR';
3843: x_qa_result_tbl(i).message_code:= 'OKL_QA_SM_CONFIG_PAY_ERROR';
3844: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_SM_CONFIG_PAY_ERROR');
3845: x_qa_result := okl_api.G_RET_STS_ERROR;
3846: EXIT;
3847: END IF;
3848: l_total_missing_pmts := l_total_missing_pmts + l_missing_pmts;
3849: l_total_cfl_count := l_total_cfl_count + l_cfl_count;
3874: x_qa_result_tbl(i).result_code:='ERROR';
3875: x_qa_result_tbl(i).result_meaning:='ERROR';
3876: x_qa_result_tbl(i).message_code:= 'OKL_QA_SM_QTE_RATE_ERROR';
3877: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_SM_QTE_RATE_ERROR');
3878: x_qa_result := okl_api.G_RET_STS_ERROR;
3879: EXIT;
3880: END IF;
3881: IF(l_missing_pmts > 1) THEN
3882: i:=x_qa_result_tbl.COUNT;
3886: x_qa_result_tbl(i).result_code:='ERROR';
3887: x_qa_result_tbl(i).result_meaning:='ERROR';
3888: x_qa_result_tbl(i).message_code:= 'OKL_QA_SM_MISS_PAY_ERROR';
3889: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_SM_MISS_PAY_ERROR');
3890: x_qa_result := okl_api.G_RET_STS_ERROR;
3891: EXIT;
3892: END IF;
3893: ---- ???????
3894: IF(l_missing_pmts > 0 AND (l_cfl_count <> l_no_missing_rate_count)) THEN
3899: x_qa_result_tbl(i).result_code:='ERROR';
3900: x_qa_result_tbl(i).result_meaning:='ERROR';
3901: x_qa_result_tbl(i).message_code:= 'OKL_QA_SM_MISS_PAY_ERROR';
3902: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_SM_MISS_RATE_ERROR');
3903: x_qa_result := okl_api.G_RET_STS_ERROR;
3904: EXIT;
3905: END IF;
3906: ---- ???????
3907: IF(l_missing_pmts > 0 AND (l_cfl_count = 1)) THEN
3912: x_qa_result_tbl(i).result_code:='ERROR';
3913: x_qa_result_tbl(i).result_meaning:='ERROR';
3914: x_qa_result_tbl(i).message_code:= 'OKL_QA_SM_CONFIG_PAY_ERROR';
3915: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_SM_CONFIG_PAY_ERROR');
3916: x_qa_result := okl_api.G_RET_STS_ERROR;
3917: EXIT;
3918: END IF;
3919: l_total_missing_pmts := l_total_missing_pmts + l_missing_pmts;
3920: l_total_cfl_count := l_total_cfl_count + l_cfl_count;
3951: x_qa_result_tbl(i).result_code:='ERROR';
3952: x_qa_result_tbl(i).result_meaning:='ERROR';
3953: x_qa_result_tbl(i).message_code:= 'OKL_QA_SM_MISS_PAY_ERROR';
3954: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_SM_MISS_PAY_ERROR');
3955: x_qa_result := okl_api.G_RET_STS_ERROR;
3956: EXIT;
3957: END IF;
3958: IF(l_missing_pmts = 0 AND configuration_asset_rec.RATE_TEMPLATE_ID IS NOT NULL) THEN
3959: i:=x_qa_result_tbl.COUNT;
3972: ,p_value3 => NULL
3973: ,p_token4 => NULL
3974: ,p_value4 => NULL);
3975: x_qa_result_tbl(i).message_text:= fnd_message.get;
3976: x_qa_result := okl_api.G_RET_STS_ERROR;
3977: END IF;
3978: --For line level override, if SRT is entered at the asset level, and no
3979: --missing payment is defined, There should be an error stating that the
3980: --SRT should be removed, as no missing payment is defined and vice-versa.
3995: ,p_value3 => NULL
3996: ,p_token4 => NULL
3997: ,p_value4 => NULL);
3998: x_qa_result_tbl(i).message_text:= fnd_message.get;
3999: x_qa_result := okl_api.G_RET_STS_ERROR;
4000:
4001: END IF;
4002: IF(l_missing_pmts > 0 AND (l_cfl_count = 1)) THEN
4003: i:=x_qa_result_tbl.COUNT;
4007: x_qa_result_tbl(i).result_code:='ERROR';
4008: x_qa_result_tbl(i).result_meaning:='ERROR';
4009: x_qa_result_tbl(i).message_code:= 'OKL_QA_SM_CONFIG_PAY_ERROR';
4010: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_SM_CONFIG_PAY_ERROR');
4011: x_qa_result := okl_api.G_RET_STS_ERROR;
4012: EXIT;
4013: END IF;
4014: l_total_missing_pmts := l_total_missing_pmts + l_missing_pmts;
4015: l_total_cfl_count := l_total_cfl_count + l_cfl_count;
4040: x_qa_result_tbl(i).result_code:='ERROR';
4041: x_qa_result_tbl(i).result_meaning:='ERROR';
4042: x_qa_result_tbl(i).message_code:= 'OKL_QA_SM_QTE_RATE_ERROR';
4043: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_SM_QTE_RATE_ERROR');
4044: x_qa_result := okl_api.G_RET_STS_ERROR;
4045: EXIT;
4046: END IF;
4047: IF(l_missing_pmts > 1) THEN
4048: i:=x_qa_result_tbl.COUNT;
4052: x_qa_result_tbl(i).result_code:='ERROR';
4053: x_qa_result_tbl(i).result_meaning:='ERROR';
4054: x_qa_result_tbl(i).message_code:= 'OKL_QA_SM_MISS_PAY_ERROR';
4055: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_SM_MISS_PAY_ERROR');
4056: x_qa_result := okl_api.G_RET_STS_ERROR;
4057: EXIT;
4058: END IF;
4059: IF(l_missing_pmts > 0 AND (l_cfl_count <> l_no_missing_rate_count)) THEN
4060: i:=x_qa_result_tbl.COUNT;
4064: x_qa_result_tbl(i).result_code:='ERROR';
4065: x_qa_result_tbl(i).result_meaning:='ERROR';
4066: x_qa_result_tbl(i).message_code:= 'OKL_QA_SM_MISS_PAY_ERROR';
4067: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_SM_MISS_RATE_ERROR');
4068: x_qa_result := okl_api.G_RET_STS_ERROR;
4069: EXIT;
4070: END IF;
4071: /*IF(l_missing_pmts > 0 AND (l_cfl_count = 1)) THEN
4072: i:=x_qa_result_tbl.COUNT;
4076: x_qa_result_tbl(i).result_code:='ERROR';
4077: x_qa_result_tbl(i).result_meaning:='ERROR';
4078: x_qa_result_tbl(i).message_code:= 'OKL_QA_SM_CONFIG_PAY_ERROR';
4079: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_SM_CONFIG_PAY_ERROR');
4080: x_qa_result := okl_api.G_RET_STS_ERROR;
4081: EXIT;
4082: END IF;*/
4083: l_total_missing_pmts := l_total_missing_pmts + l_missing_pmts;
4084: l_total_cfl_count := l_total_cfl_count + l_cfl_count;
4093: x_qa_result_tbl(i).result_code:='ERROR';
4094: x_qa_result_tbl(i).result_meaning:='ERROR';
4095: x_qa_result_tbl(i).message_code:= 'OKL_QA_SM_CONFIG_PAY_ERROR';
4096: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_SM_CONFIG_PAY_ERROR');
4097: x_qa_result := okl_api.G_RET_STS_ERROR;
4098:
4099: END IF;
4100: -- ???????????????????
4101: IF(l_total_missing_pmts = 0) THEN
4106: x_qa_result_tbl(i).result_code:='ERROR';
4107: x_qa_result_tbl(i).result_meaning:='ERROR';
4108: x_qa_result_tbl(i).message_code:= 'OKL_QA_SM_MISS_PAY_ERROR';
4109: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_SM_MISS_PAY_ERROR');
4110: x_qa_result := okl_api.G_RET_STS_ERROR;
4111: END IF;
4112: -- ????????????????????
4113: /*IF(l_total_cfl_count <= 1 and l_total_missing_pmts <> 0 ) THEN
4114: i:=x_qa_result_tbl.COUNT;
4118: x_qa_result_tbl(i).result_code:='ERROR';
4119: x_qa_result_tbl(i).result_meaning:='ERROR';
4120: x_qa_result_tbl(i).message_code:= 'OKL_QA_SM_CONFIG_PAY_ERROR';
4121: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_SM_CONFIG_PAY_ERROR');
4122: x_qa_result := okl_api.G_RET_STS_ERROR;
4123: END IF;*/
4124: END IF;--
4125: END IF;--Pricing Method is 'SM'
4126:
4146: x_qa_result_tbl(i).result_code:='ERROR';
4147: x_qa_result_tbl(i).result_meaning:='ERROR';
4148: x_qa_result_tbl(i).message_code:= 'OKL_QA_SM_MISS_PAY_ERROR';
4149: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_SM_MISS_PAY_ERROR');
4150: x_qa_result := okl_api.G_RET_STS_ERROR;
4151: END IF;
4152: IF(l_cfl_count <= 1) THEN
4153: i:=x_qa_result_tbl.COUNT;
4154: i:=i+1;
4157: x_qa_result_tbl(i).result_code:='ERROR';
4158: x_qa_result_tbl(i).result_meaning:='ERROR';
4159: x_qa_result_tbl(i).message_code:= 'OKL_QA_SM_QTE_PAY_ERROR';
4160: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_SM_QTE_PAY_ERROR');
4161: x_qa_result := okl_api.G_RET_STS_ERROR;
4162: END IF;
4163: IF(( lp_lq_header_rec.RATE_TEMPLATE_ID IS NULL)) THEN
4164: i:=x_qa_result_tbl.COUNT;
4165: i:=i+1;
4168: x_qa_result_tbl(i).result_code:='ERROR';
4169: x_qa_result_tbl(i).result_meaning:='ERROR';
4170: x_qa_result_tbl(i).message_code:= 'OKL_QA_SRT_NOT_FOUND';
4171: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_SRT_NOT_FOUND');
4172: x_qa_result := okl_api.G_RET_STS_ERROR;
4173: END IF;
4174: ELSIF((lp_lq_header_rec.pricing_method ='SM') AND
4175: NVL(lp_lq_header_rec.structured_pricing,'N')='Y') THEN
4176: FOR l_cfl_line_rec IN c_lq_cfl_line(lp_quote_id ,'LEASE_QUOTE') LOOP
4188: x_qa_result_tbl(i).result_code:='ERROR';
4189: x_qa_result_tbl(i).result_meaning:='ERROR';
4190: x_qa_result_tbl(i).message_code:= 'OKL_QA_SM_MISS_PAY_ERROR';
4191: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_SM_MISS_PAY_ERROR');
4192: x_qa_result := okl_api.G_RET_STS_ERROR;
4193: END IF;
4194: IF (l_cfl_count <= 1) THEN
4195: i:=x_qa_result_tbl.COUNT;
4196: i:=i+1;
4199: x_qa_result_tbl(i).result_code:='ERROR';
4200: x_qa_result_tbl(i).result_meaning:='ERROR';
4201: x_qa_result_tbl(i).message_code:= 'OKL_QA_SM_QTE_PAY_ERROR';
4202: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_SM_QTE_PAY_ERROR');
4203: x_qa_result := okl_api.G_RET_STS_ERROR;
4204: END IF;
4205: END IF;--
4206: END IF;--l_are_all_lines_overriden='N'
4207:
4237: x_qa_result_tbl(i).result_code:='ERROR';
4238: x_qa_result_tbl(i).result_meaning:='ERROR';
4239: x_qa_result_tbl(i).message_code:= 'OKL_QA_SM_QTE_RATE_ERROR';
4240: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_SM_QTE_RATE_ERROR');
4241: x_qa_result := okl_api.G_RET_STS_ERROR;
4242: EXIT;
4243: ELSIF(l_missing_pmts > 1) THEN
4244: i:=x_qa_result_tbl.COUNT;
4245: i:=i+1;
4248: x_qa_result_tbl(i).result_code:='ERROR';
4249: x_qa_result_tbl(i).result_meaning:='ERROR';
4250: x_qa_result_tbl(i).message_code:= 'OKL_QA_SM_MISS_PAY_ERROR';
4251: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_SM_MISS_PAY_ERROR');
4252: x_qa_result := okl_api.G_RET_STS_ERROR;
4253: EXIT;
4254: ELSIF(l_missing_pmts > 0 AND (l_cfl_count <> l_no_missing_rate_count)) THEN
4255: i:=x_qa_result_tbl.COUNT;
4256: i:=i+1;
4259: x_qa_result_tbl(i).result_code:='ERROR';
4260: x_qa_result_tbl(i).result_meaning:='ERROR';
4261: x_qa_result_tbl(i).message_code:= 'OKL_QA_SM_MISS_PAY_ERROR';
4262: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_SM_MISS_RATE_ERROR');
4263: x_qa_result := okl_api.G_RET_STS_ERROR;
4264: EXIT;
4265: END IF;
4266: l_total_missing_pmts := l_total_missing_pmts + l_missing_pmts;
4267: l_total_cfl_count := l_total_cfl_count + l_cfl_count;
4277: x_qa_result_tbl(i).result_code:='ERROR';
4278: x_qa_result_tbl(i).result_meaning:='ERROR';
4279: x_qa_result_tbl(i).message_code:= 'OKL_QA_SRT_NOT_FOUND';
4280: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_SRT_NOT_FOUND');
4281: x_qa_result := okl_api.G_RET_STS_ERROR;
4282: EXIT;
4283: END IF;
4284: l_missing_pmts := 0;
4285: l_cfl_count := 0;
4303: x_qa_result_tbl(i).result_code:='ERROR';
4304: x_qa_result_tbl(i).result_meaning:='ERROR';
4305: x_qa_result_tbl(i).message_code:= 'OKL_QA_SM_QTE_RATE_ERROR';
4306: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_SM_QTE_RATE_ERROR');
4307: x_qa_result := okl_api.G_RET_STS_ERROR;
4308: EXIT;
4309: ELSIF(l_missing_pmts > 1) THEN
4310: i:=x_qa_result_tbl.COUNT;
4311: i:=i+1;
4314: x_qa_result_tbl(i).result_code:='ERROR';
4315: x_qa_result_tbl(i).result_meaning:='ERROR';
4316: x_qa_result_tbl(i).message_code:= 'OKL_QA_SM_MISS_PAY_ERROR';
4317: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_SM_MISS_PAY_ERROR');
4318: x_qa_result := okl_api.G_RET_STS_ERROR;
4319: EXIT;
4320: END IF;
4321:
4322: END IF;
4331: x_qa_result_tbl(i).result_code:='ERROR';
4332: x_qa_result_tbl(i).result_meaning:='ERROR';
4333: x_qa_result_tbl(i).message_code:= 'OKL_QA_SM_CONFIG_PAY_ERROR';
4334: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_SM_CONFIG_PAY_ERROR');
4335: x_qa_result := okl_api.G_RET_STS_ERROR;
4336:
4337: END IF;
4338: END IF;
4339: --Bug # 5036739 ssdeshpa end */
4407: x_qa_result_tbl(i).result_code:='ERROR';
4408: x_qa_result_tbl(i).result_meaning:='ERROR';
4409: x_qa_result_tbl(i).message_code:= 'OKL_QA_SM_QTE_RATE_ERROR';
4410: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_SM_QTE_RATE_ERROR');
4411: x_qa_result := okl_api.G_RET_STS_ERROR;
4412: EXIT;
4413: ELSIF(l_missing_pmts > 1) THEN
4414: i:=x_qa_result_tbl.COUNT;
4415: i:=i+1;
4418: x_qa_result_tbl(i).result_code:='ERROR';
4419: x_qa_result_tbl(i).result_meaning:='ERROR';
4420: x_qa_result_tbl(i).message_code:= 'OKL_QA_SM_MISS_PAY_ERROR';
4421: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_SM_MISS_PAY_ERROR');
4422: x_qa_result := okl_api.G_RET_STS_ERROR;
4423: EXIT;
4424: ELSIF(l_missing_pmts > 0 AND (l_cfl_count <> l_no_missing_rate_count)) THEN
4425: i:=x_qa_result_tbl.COUNT;
4426: i:=i+1;
4429: x_qa_result_tbl(i).result_code:='ERROR';
4430: x_qa_result_tbl(i).result_meaning:='ERROR';
4431: x_qa_result_tbl(i).message_code:= 'OKL_QA_SM_MISS_PAY_ERROR';
4432: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_SM_MISS_RATE_ERROR');
4433: x_qa_result := okl_api.G_RET_STS_ERROR;
4434: EXIT;
4435: /*ELSIF(l_missing_pmts > 0 AND (l_cfl_count = 1)) THEN
4436: i:=x_qa_result_tbl.COUNT;
4437: i:=i+1;
4440: x_qa_result_tbl(i).result_code:='ERROR';
4441: x_qa_result_tbl(i).result_meaning:='ERROR';
4442: x_qa_result_tbl(i).message_code:= 'OKL_QA_SM_CONFIG_PAY_ERROR';
4443: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_SM_CONFIG_PAY_ERROR');
4444: x_qa_result := okl_api.G_RET_STS_ERROR;
4445: EXIT;*/
4446: END IF;
4447: l_total_missing_pmts := l_total_missing_pmts + l_missing_pmts;
4448: l_total_cfl_count := l_total_cfl_count + l_cfl_count;
4456: x_qa_result_tbl(i).result_code:='ERROR';
4457: x_qa_result_tbl(i).result_meaning:='ERROR';
4458: x_qa_result_tbl(i).message_code:= 'OKL_QA_SRT_NOT_FOUND';
4459: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_SRT_NOT_FOUND');
4460: x_qa_result := okl_api.G_RET_STS_ERROR;
4461: EXIT;
4462: END IF; */
4463: l_missing_pmts := 0;
4464: l_cfl_count := 0;
4481: x_qa_result_tbl(i).result_code:='ERROR';
4482: x_qa_result_tbl(i).result_meaning:='ERROR';
4483: x_qa_result_tbl(i).message_code:= 'OKL_QA_SM_QTE_RATE_ERROR';
4484: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_SM_QTE_RATE_ERROR');
4485: x_qa_result := okl_api.G_RET_STS_ERROR;
4486: EXIT;
4487: ELSIF(l_missing_pmts > 1) THEN
4488: i:=x_qa_result_tbl.COUNT;
4489: i:=i+1;
4492: x_qa_result_tbl(i).result_code:='ERROR';
4493: x_qa_result_tbl(i).result_meaning:='ERROR';
4494: x_qa_result_tbl(i).message_code:= 'OKL_QA_SM_MISS_PAY_ERROR';
4495: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_SM_MISS_PAY_ERROR');
4496: x_qa_result := okl_api.G_RET_STS_ERROR;
4497: EXIT;
4498: --For line level override, if SRT is entered at the asset level, and no
4499: --missing payment is defined, There should be an error stating that the
4500: --SRT should be removed, as no missing payment is defined and vice-versa.
4515: ,p_value3 => NULL
4516: ,p_token4 => NULL
4517: ,p_value4 => NULL);
4518: x_qa_result_tbl(i).message_text:= fnd_message.get;
4519: x_qa_result := okl_api.G_RET_STS_ERROR;
4520:
4521: ELSIF(l_missing_pmts = 0 AND configuration_fee_rec.RATE_TEMPLATE_ID IS NOT NULL) THEN
4522: i:=x_qa_result_tbl.COUNT;
4523: i:=i+1;
4535: ,p_value3 => NULL
4536: ,p_token4 => NULL
4537: ,p_value4 => NULL);
4538: x_qa_result_tbl(i).message_text:= fnd_message.get;
4539: x_qa_result := okl_api.G_RET_STS_ERROR;
4540:
4541: END IF;
4542: l_total_missing_pmts := l_total_missing_pmts + l_missing_pmts;
4543: l_total_cfl_count := l_total_cfl_count + l_cfl_count;
4553: x_qa_result_tbl(i).result_code:='ERROR';
4554: x_qa_result_tbl(i).result_meaning:='ERROR';
4555: x_qa_result_tbl(i).message_code:= 'OKL_QA_SM_MISS_PAY_ERROR';
4556: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_SM_MISS_PAY_ERROR');
4557: x_qa_result := okl_api.G_RET_STS_ERROR;
4558: END IF;
4559: IF(l_fees_count > 0 AND l_total_missing_pmts > 0 AND (l_total_cfl_count = 1)) THEN
4560: i:=x_qa_result_tbl.COUNT;
4561: i:=i+1;
4564: x_qa_result_tbl(i).result_code:='ERROR';
4565: x_qa_result_tbl(i).result_meaning:='ERROR';
4566: x_qa_result_tbl(i).message_code:= 'OKL_QA_SM_CONFIG_PAY_ERROR';
4567: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_SM_CONFIG_PAY_ERROR');
4568: x_qa_result := okl_api.G_RET_STS_ERROR;
4569: END IF;
4570:
4571: /* IF(l_fees_count > 0 AND l_total_cfl_count <= 1 and l_total_missing_pmts <> 0 ) THEN
4572: i:=x_qa_result_tbl.COUNT;
4576: x_qa_result_tbl(i).result_code:='ERROR';
4577: x_qa_result_tbl(i).result_meaning:='ERROR';
4578: x_qa_result_tbl(i).message_code:= 'OKL_QA_SM_CONFIG_PAY_ERROR';
4579: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_SM_CONFIG_PAY_ERROR');
4580: x_qa_result := okl_api.G_RET_STS_ERROR;
4581: END IF;*/
4582: END IF;
4583:
4584: --Bug # 5070686 ssdeshpa end;
4600: x_qa_result_tbl(i).result_code:='ERROR';
4601: x_qa_result_tbl(i).result_meaning:='ERROR';
4602: x_qa_result_tbl(i).message_code:= 'OKL_QA_VPA_INVALID_DATES';
4603: x_qa_result_tbl(i).message_text:= get_msg_text('OKL_QA_VPA_INVALID_DATES');
4604: x_qa_result := okl_api.G_RET_STS_ERROR;
4605: END IF;
4606: END IF;
4607: END IF;--End OF LQ
4608:
4628: x_qa_result_tbl(i).result_code:='ERROR';
4629: x_qa_result_tbl(i).result_meaning:='ERROR';
4630: x_qa_result_tbl(i).message_code:= 'OKL_QA_MISSING_PAY_LEVEL';
4631: x_qa_result_tbl(i).message_text:=get_msg_text('OKL_QA_MISSING_PAY_LEVEL');
4632: x_qa_result := okl_api.G_RET_STS_ERROR;
4633: EXIT;
4634: END IF;
4635: FETCH c_lq_cfl_line INTO lp_lq_cfl_line;
4636: END LOOP;
4659: x_qa_result_tbl(i).result_code:='ERROR';
4660: x_qa_result_tbl(i).result_meaning:='ERROR';
4661: x_qa_result_tbl(i).message_code:= 'OKL_QA_VPA_INVALID_DATES';
4662: x_qa_result_tbl(i).message_text:= get_msg_text('OKL_QA_VPA_INVALID_DATES');
4663: x_qa_result := okl_api.G_RET_STS_ERROR;
4664: END IF;
4665: END IF;
4666:
4667: END IF;--End OF QQ
4666:
4667: END IF;--End OF QQ
4668: END IF;--Quote id Not null
4669:
4670: okl_api.end_activity(x_msg_count => x_msg_count
4671: ,x_msg_data => x_msg_data);
4672:
4673: IF (l_debug_enabled = 'Y' AND is_debug_procedure_on) THEN
4674: okl_debug_pub.log_debug(fnd_log.level_procedure
4676: ,'end debug okl_sales_quote_qa_pvt call check_payment');
4677: END IF;
4678:
4679: EXCEPTION
4680: WHEN okl_api.g_exception_error THEN
4681: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
4682: ,p_pkg_name =>G_PKG_NAME
4683: ,p_exc_name =>'OKL_API.G_RET_STS_ERROR'
4684: ,x_msg_count =>x_msg_count
4677: END IF;
4678:
4679: EXCEPTION
4680: WHEN okl_api.g_exception_error THEN
4681: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
4682: ,p_pkg_name =>G_PKG_NAME
4683: ,p_exc_name =>'OKL_API.G_RET_STS_ERROR'
4684: ,x_msg_count =>x_msg_count
4685: ,x_msg_data =>x_msg_data
4679: EXCEPTION
4680: WHEN okl_api.g_exception_error THEN
4681: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
4682: ,p_pkg_name =>G_PKG_NAME
4683: ,p_exc_name =>'OKL_API.G_RET_STS_ERROR'
4684: ,x_msg_count =>x_msg_count
4685: ,x_msg_data =>x_msg_data
4686: ,p_api_type =>G_API_TYPE);
4687: WHEN okl_api.g_exception_unexpected_error THEN
4683: ,p_exc_name =>'OKL_API.G_RET_STS_ERROR'
4684: ,x_msg_count =>x_msg_count
4685: ,x_msg_data =>x_msg_data
4686: ,p_api_type =>G_API_TYPE);
4687: WHEN okl_api.g_exception_unexpected_error THEN
4688: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
4689: ,p_pkg_name =>G_PKG_NAME
4690: ,p_exc_name =>'OKL_API.G_RET_STS_UNEXP_ERROR'
4691: ,x_msg_count =>x_msg_count
4684: ,x_msg_count =>x_msg_count
4685: ,x_msg_data =>x_msg_data
4686: ,p_api_type =>G_API_TYPE);
4687: WHEN okl_api.g_exception_unexpected_error THEN
4688: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
4689: ,p_pkg_name =>G_PKG_NAME
4690: ,p_exc_name =>'OKL_API.G_RET_STS_UNEXP_ERROR'
4691: ,x_msg_count =>x_msg_count
4692: ,x_msg_data =>x_msg_data
4686: ,p_api_type =>G_API_TYPE);
4687: WHEN okl_api.g_exception_unexpected_error THEN
4688: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
4689: ,p_pkg_name =>G_PKG_NAME
4690: ,p_exc_name =>'OKL_API.G_RET_STS_UNEXP_ERROR'
4691: ,x_msg_count =>x_msg_count
4692: ,x_msg_data =>x_msg_data
4693: ,p_api_type =>G_API_TYPE);
4694: WHEN OTHERS THEN
4691: ,x_msg_count =>x_msg_count
4692: ,x_msg_data =>x_msg_data
4693: ,p_api_type =>G_API_TYPE);
4694: WHEN OTHERS THEN
4695: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
4696: ,p_pkg_name =>G_PKG_NAME
4697: ,p_exc_name =>'OTHERS'
4698: ,x_msg_count =>x_msg_count
4699: ,x_msg_data =>x_msg_data
4774: ,fnd_log.level_statement);
4775: -- call START_ACTIVITY to create savepoint, check compatibility
4776: -- and initialize message list
4777:
4778: x_return_status := okl_api.start_activity(p_api_name=>l_api_name
4779: ,p_pkg_name=>G_PKG_NAME
4780: ,p_init_msg_list=>p_init_msg_list
4781: ,p_api_version=>p_api_version
4782: ,l_api_version=>p_api_version
4783: ,p_api_type=>G_API_TYPE
4784: ,x_return_status=>x_return_status);
4785: -- check if activity started successfully
4786:
4787: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4788: RAISE okl_api.g_exception_unexpected_error;
4789: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4790: RAISE okl_api.g_exception_error;
4791: END IF;
4784: ,x_return_status=>x_return_status);
4785: -- check if activity started successfully
4786:
4787: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4788: RAISE okl_api.g_exception_unexpected_error;
4789: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4790: RAISE okl_api.g_exception_error;
4791: END IF;
4792:
4785: -- check if activity started successfully
4786:
4787: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4788: RAISE okl_api.g_exception_unexpected_error;
4789: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4790: RAISE okl_api.g_exception_error;
4791: END IF;
4792:
4793: ---------------Check for Valid Parent Object type----------------------
4786:
4787: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4788: RAISE okl_api.g_exception_unexpected_error;
4789: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4790: RAISE okl_api.g_exception_error;
4791: END IF;
4792:
4793: ---------------Check for Valid Parent Object type----------------------
4794:
4820: --Fix Bug no 4735811 End
4821:
4822: -------QA Checker Starts
4823: --Check System Validation Set Validations
4824: x_qa_result := OKL_API.G_RET_STS_SUCCESS;
4825: validate_system_validations(p_api_version => p_api_version,
4826: p_init_msg_list => G_FALSE,
4827: p_object_id => lp_quote_id,
4828: p_object_type => lp_object_type,
4830: x_msg_count => x_msg_count,
4831: x_msg_data => x_msg_data,
4832: x_qa_result_tbl => l_qa_results_tbl,
4833: x_qa_result => x_qa_result);
4834: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4835: RAISE okl_api.g_exception_unexpected_error;
4836: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4837: RAISE okl_api.g_exception_error;
4838: END IF;
4831: x_msg_data => x_msg_data,
4832: x_qa_result_tbl => l_qa_results_tbl,
4833: x_qa_result => x_qa_result);
4834: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4835: RAISE okl_api.g_exception_unexpected_error;
4836: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4837: RAISE okl_api.g_exception_error;
4838: END IF;
4839: IF(x_qa_result= OKL_API.G_RET_STS_SUCCESS) THEN
4832: x_qa_result_tbl => l_qa_results_tbl,
4833: x_qa_result => x_qa_result);
4834: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4835: RAISE okl_api.g_exception_unexpected_error;
4836: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4837: RAISE okl_api.g_exception_error;
4838: END IF;
4839: IF(x_qa_result= OKL_API.G_RET_STS_SUCCESS) THEN
4840: i:=l_qa_results_tbl.COUNT;
4833: x_qa_result => x_qa_result);
4834: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4835: RAISE okl_api.g_exception_unexpected_error;
4836: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4837: RAISE okl_api.g_exception_error;
4838: END IF;
4839: IF(x_qa_result= OKL_API.G_RET_STS_SUCCESS) THEN
4840: i:=l_qa_results_tbl.COUNT;
4841: i:=i+1;
4835: RAISE okl_api.g_exception_unexpected_error;
4836: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4837: RAISE okl_api.g_exception_error;
4838: END IF;
4839: IF(x_qa_result= OKL_API.G_RET_STS_SUCCESS) THEN
4840: i:=l_qa_results_tbl.COUNT;
4841: i:=i+1;
4842: l_qa_results_tbl(i).check_code:='check_fees_and_services';
4843: l_qa_results_tbl(i).check_meaning:='check_fees_and_services';
4846: l_qa_results_tbl(i).message_code:= 'OKL_QA_CHK_VLS';
4847: l_qa_results_tbl(i).message_text:= get_msg_text('OKL_QA_CHK_VLS');
4848: END IF;
4849: --Check misc/extended validations
4850: x_qa_result := OKL_API.G_RET_STS_SUCCESS;
4851: extended_validations(p_api_version => p_api_version,
4852: p_init_msg_list => G_FALSE,
4853: p_object_id => lp_quote_id,
4854: p_object_type => lp_object_type,
4856: x_msg_count => x_msg_count,
4857: x_msg_data => x_msg_data,
4858: x_qa_result_tbl => l_qa_results_tbl,
4859: x_qa_result => x_qa_result);
4860: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4861: RAISE okl_api.g_exception_unexpected_error;
4862: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4863: RAISE okl_api.g_exception_error;
4864: END IF;
4857: x_msg_data => x_msg_data,
4858: x_qa_result_tbl => l_qa_results_tbl,
4859: x_qa_result => x_qa_result);
4860: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4861: RAISE okl_api.g_exception_unexpected_error;
4862: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4863: RAISE okl_api.g_exception_error;
4864: END IF;
4865: IF(x_qa_result = OKL_API.G_RET_STS_SUCCESS) THEN
4858: x_qa_result_tbl => l_qa_results_tbl,
4859: x_qa_result => x_qa_result);
4860: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4861: RAISE okl_api.g_exception_unexpected_error;
4862: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4863: RAISE okl_api.g_exception_error;
4864: END IF;
4865: IF(x_qa_result = OKL_API.G_RET_STS_SUCCESS) THEN
4866: i:=l_qa_results_tbl.COUNT;
4859: x_qa_result => x_qa_result);
4860: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4861: RAISE okl_api.g_exception_unexpected_error;
4862: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4863: RAISE okl_api.g_exception_error;
4864: END IF;
4865: IF(x_qa_result = OKL_API.G_RET_STS_SUCCESS) THEN
4866: i:=l_qa_results_tbl.COUNT;
4867: i:=i+1;
4861: RAISE okl_api.g_exception_unexpected_error;
4862: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4863: RAISE okl_api.g_exception_error;
4864: END IF;
4865: IF(x_qa_result = OKL_API.G_RET_STS_SUCCESS) THEN
4866: i:=l_qa_results_tbl.COUNT;
4867: i:=i+1;
4868: l_qa_results_tbl(i).check_code:='extended_validation';
4869: l_qa_results_tbl(i).check_meaning:='extended_validation';
4872: l_qa_results_tbl(i).message_code:= 'OKL_QA_CHK_QUOTE_EXTN';
4873: l_qa_results_tbl(i).message_text:= get_msg_text('OKL_QA_CHK_QUOTE_EXTN');
4874: END IF;
4875: --check Quote Configuration
4876: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4877: check_configuration(p_api_version => p_api_version,
4878: p_init_msg_list => G_FALSE,
4879: p_object_id => lp_quote_id,
4880: p_object_type => lp_object_type,
4883: x_msg_data => x_msg_data,
4884: x_qa_result_tbl => l_qa_results_tbl,
4885: x_qa_result => x_qa_result);
4886:
4887: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4888: RAISE okl_api.g_exception_unexpected_error;
4889: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4890: RAISE okl_api.g_exception_error;
4891: END IF;
4884: x_qa_result_tbl => l_qa_results_tbl,
4885: x_qa_result => x_qa_result);
4886:
4887: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4888: RAISE okl_api.g_exception_unexpected_error;
4889: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4890: RAISE okl_api.g_exception_error;
4891: END IF;
4892:
4885: x_qa_result => x_qa_result);
4886:
4887: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4888: RAISE okl_api.g_exception_unexpected_error;
4889: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4890: RAISE okl_api.g_exception_error;
4891: END IF;
4892:
4893: IF(x_qa_result = OKL_API.G_RET_STS_SUCCESS) THEN
4886:
4887: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4888: RAISE okl_api.g_exception_unexpected_error;
4889: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4890: RAISE okl_api.g_exception_error;
4891: END IF;
4892:
4893: IF(x_qa_result = OKL_API.G_RET_STS_SUCCESS) THEN
4894: i:=l_qa_results_tbl.COUNT;
4889: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4890: RAISE okl_api.g_exception_error;
4891: END IF;
4892:
4893: IF(x_qa_result = OKL_API.G_RET_STS_SUCCESS) THEN
4894: i:=l_qa_results_tbl.COUNT;
4895: i:=i+1;
4896: l_qa_results_tbl(i).check_code:='check_configuration';
4897: l_qa_results_tbl(i).check_meaning:='check_configuration';
4900: l_qa_results_tbl(i).message_code:= 'OKL_QA_CHK_QUOTE_CONFIG';
4901: l_qa_results_tbl(i).message_text:= get_msg_text('OKL_QA_CHK_QUOTE_CONFIG');
4902: END IF;
4903: --check fees/services for quote
4904: x_qa_result := OKL_API.G_RET_STS_SUCCESS;
4905: check_fees_and_services(p_api_version => p_api_version,
4906: p_init_msg_list => G_FALSE,
4907: p_object_id => lp_quote_id,
4908: p_object_type => lp_object_type,
4911: x_msg_data => x_msg_data,
4912: x_qa_result_tbl => l_qa_results_tbl,
4913: x_qa_result => x_qa_result);
4914:
4915: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4916: RAISE okl_api.g_exception_unexpected_error;
4917: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4918: RAISE okl_api.g_exception_error;
4919: END IF;
4912: x_qa_result_tbl => l_qa_results_tbl,
4913: x_qa_result => x_qa_result);
4914:
4915: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4916: RAISE okl_api.g_exception_unexpected_error;
4917: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4918: RAISE okl_api.g_exception_error;
4919: END IF;
4920:
4913: x_qa_result => x_qa_result);
4914:
4915: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4916: RAISE okl_api.g_exception_unexpected_error;
4917: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4918: RAISE okl_api.g_exception_error;
4919: END IF;
4920:
4921: IF(x_qa_result = OKL_API.G_RET_STS_SUCCESS) THEN
4914:
4915: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4916: RAISE okl_api.g_exception_unexpected_error;
4917: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4918: RAISE okl_api.g_exception_error;
4919: END IF;
4920:
4921: IF(x_qa_result = OKL_API.G_RET_STS_SUCCESS) THEN
4922: i:=l_qa_results_tbl.COUNT;
4917: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4918: RAISE okl_api.g_exception_error;
4919: END IF;
4920:
4921: IF(x_qa_result = OKL_API.G_RET_STS_SUCCESS) THEN
4922: i:=l_qa_results_tbl.COUNT;
4923: i:=i+1;
4924: l_qa_results_tbl(i).check_code:='check_fees_and_services';
4925: l_qa_results_tbl(i).check_meaning:='check_fees_and_services';
4928: l_qa_results_tbl(i).message_code:= 'OKL_QA_CHK_FEE_SERVICE';
4929: l_qa_results_tbl(i).message_text:= get_msg_text('OKL_QA_CHK_FEE_SERVICE');
4930: END IF;
4931: --Check for cost adjustment for Quote
4932: x_qa_result := OKL_API.G_RET_STS_SUCCESS;
4933: validate_cost_adjustments(p_api_version => p_api_version,
4934: p_init_msg_list => G_FALSE,
4935: p_object_id => lp_quote_id,
4936: p_object_type => lp_object_type,
4938: x_msg_count => x_msg_count,
4939: x_msg_data => x_msg_data,
4940: x_qa_result_tbl => l_qa_results_tbl,
4941: x_qa_result => x_qa_result);
4942: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4943: RAISE okl_api.g_exception_unexpected_error;
4944: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4945: RAISE okl_api.g_exception_error;
4946: END IF;
4939: x_msg_data => x_msg_data,
4940: x_qa_result_tbl => l_qa_results_tbl,
4941: x_qa_result => x_qa_result);
4942: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4943: RAISE okl_api.g_exception_unexpected_error;
4944: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4945: RAISE okl_api.g_exception_error;
4946: END IF;
4947: IF(x_qa_result = OKL_API.G_RET_STS_SUCCESS) THEN
4940: x_qa_result_tbl => l_qa_results_tbl,
4941: x_qa_result => x_qa_result);
4942: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4943: RAISE okl_api.g_exception_unexpected_error;
4944: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4945: RAISE okl_api.g_exception_error;
4946: END IF;
4947: IF(x_qa_result = OKL_API.G_RET_STS_SUCCESS) THEN
4948: i:=l_qa_results_tbl.COUNT;
4941: x_qa_result => x_qa_result);
4942: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4943: RAISE okl_api.g_exception_unexpected_error;
4944: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4945: RAISE okl_api.g_exception_error;
4946: END IF;
4947: IF(x_qa_result = OKL_API.G_RET_STS_SUCCESS) THEN
4948: i:=l_qa_results_tbl.COUNT;
4949: i:=i+1;
4943: RAISE okl_api.g_exception_unexpected_error;
4944: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4945: RAISE okl_api.g_exception_error;
4946: END IF;
4947: IF(x_qa_result = OKL_API.G_RET_STS_SUCCESS) THEN
4948: i:=l_qa_results_tbl.COUNT;
4949: i:=i+1;
4950: l_qa_results_tbl(i).check_code:='validate_cost_adjustments';
4951: l_qa_results_tbl(i).check_meaning:='validate_cost_adjustments';
4954: l_qa_results_tbl(i).message_code:= 'OKL_QA_CHK_COST_ADJ';
4955: l_qa_results_tbl(i).message_text:= get_msg_text('OKL_QA_CHK_COST_ADJ');
4956: END IF;
4957: --check_payment_options for Quote
4958: x_qa_result := OKL_API.G_RET_STS_SUCCESS;
4959: check_payments(p_api_version => p_api_version,
4960: p_init_msg_list => G_FALSE,
4961: p_object_id => lp_quote_id,
4962: p_object_type => lp_object_type,
4964: x_msg_count => x_msg_count,
4965: x_msg_data => x_msg_data,
4966: x_qa_result_tbl => l_qa_results_tbl,
4967: x_qa_result => x_qa_result);
4968: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4969: RAISE okl_api.g_exception_unexpected_error;
4970: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4971: RAISE okl_api.g_exception_error;
4972: END IF;
4965: x_msg_data => x_msg_data,
4966: x_qa_result_tbl => l_qa_results_tbl,
4967: x_qa_result => x_qa_result);
4968: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4969: RAISE okl_api.g_exception_unexpected_error;
4970: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4971: RAISE okl_api.g_exception_error;
4972: END IF;
4973: IF(x_qa_result = OKL_API.G_RET_STS_SUCCESS) THEN
4966: x_qa_result_tbl => l_qa_results_tbl,
4967: x_qa_result => x_qa_result);
4968: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4969: RAISE okl_api.g_exception_unexpected_error;
4970: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4971: RAISE okl_api.g_exception_error;
4972: END IF;
4973: IF(x_qa_result = OKL_API.G_RET_STS_SUCCESS) THEN
4974: i:=l_qa_results_tbl.COUNT;
4967: x_qa_result => x_qa_result);
4968: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4969: RAISE okl_api.g_exception_unexpected_error;
4970: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4971: RAISE okl_api.g_exception_error;
4972: END IF;
4973: IF(x_qa_result = OKL_API.G_RET_STS_SUCCESS) THEN
4974: i:=l_qa_results_tbl.COUNT;
4975: i:=i+1;
4969: RAISE okl_api.g_exception_unexpected_error;
4970: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4971: RAISE okl_api.g_exception_error;
4972: END IF;
4973: IF(x_qa_result = OKL_API.G_RET_STS_SUCCESS) THEN
4974: i:=l_qa_results_tbl.COUNT;
4975: i:=i+1;
4976: l_qa_results_tbl(i).check_code:='check_payments';
4977: l_qa_results_tbl(i).check_meaning:='check_payments';
4980: l_qa_results_tbl(i).message_code:= 'OKL_QA_CHK_PAYMENT';
4981: l_qa_results_tbl(i).message_text:= get_msg_text('OKL_QA_CHK_PAYMENT');
4982: END IF;
4983: --Check Subsidies for Quote
4984: x_qa_result := OKL_API.G_RET_STS_SUCCESS;
4985: check_subsidies(p_api_version => p_api_version,
4986: p_init_msg_list => G_FALSE,
4987: p_object_id => lp_quote_id,
4988: p_object_type => lp_object_type,
4990: x_msg_count => x_msg_count,
4991: x_msg_data => x_msg_data,
4992: x_qa_result_tbl => l_qa_results_tbl,
4993: x_qa_result => x_qa_result);
4994: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4995: RAISE okl_api.g_exception_unexpected_error;
4996: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4997: RAISE okl_api.g_exception_error;
4998: END IF;
4991: x_msg_data => x_msg_data,
4992: x_qa_result_tbl => l_qa_results_tbl,
4993: x_qa_result => x_qa_result);
4994: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4995: RAISE okl_api.g_exception_unexpected_error;
4996: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4997: RAISE okl_api.g_exception_error;
4998: END IF;
4999: IF(x_qa_result = OKL_API.G_RET_STS_SUCCESS) THEN
4992: x_qa_result_tbl => l_qa_results_tbl,
4993: x_qa_result => x_qa_result);
4994: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4995: RAISE okl_api.g_exception_unexpected_error;
4996: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4997: RAISE okl_api.g_exception_error;
4998: END IF;
4999: IF(x_qa_result = OKL_API.G_RET_STS_SUCCESS) THEN
5000: i:=l_qa_results_tbl.COUNT;
4993: x_qa_result => x_qa_result);
4994: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
4995: RAISE okl_api.g_exception_unexpected_error;
4996: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4997: RAISE okl_api.g_exception_error;
4998: END IF;
4999: IF(x_qa_result = OKL_API.G_RET_STS_SUCCESS) THEN
5000: i:=l_qa_results_tbl.COUNT;
5001: i:=i+1;
4995: RAISE okl_api.g_exception_unexpected_error;
4996: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
4997: RAISE okl_api.g_exception_error;
4998: END IF;
4999: IF(x_qa_result = OKL_API.G_RET_STS_SUCCESS) THEN
5000: i:=l_qa_results_tbl.COUNT;
5001: i:=i+1;
5002: l_qa_results_tbl(i).check_code:='check_subsidies';
5003: l_qa_results_tbl(i).check_meaning:='check_subsidies';
5006: l_qa_results_tbl(i).message_code:= 'OKL_QA_CHK_SUBSIDY';
5007: l_qa_results_tbl(i).message_text:= get_msg_text('OKL_QA_CHK_SUBSIDY');
5008: END IF;
5009: --check financial Product for Quote
5010: x_qa_result := OKL_API.G_RET_STS_SUCCESS;
5011: validate_financial_product(p_api_version => p_api_version,
5012: p_init_msg_list => G_FALSE,
5013: p_object_id => lp_quote_id,
5014: p_object_type => lp_object_type,
5016: x_msg_count => x_msg_count,
5017: x_msg_data => x_msg_data,
5018: x_qa_result_tbl => l_qa_results_tbl,
5019: x_qa_result => x_qa_result);
5020: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5021: RAISE okl_api.g_exception_unexpected_error;
5022: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5023: RAISE okl_api.g_exception_error;
5024: END IF;
5017: x_msg_data => x_msg_data,
5018: x_qa_result_tbl => l_qa_results_tbl,
5019: x_qa_result => x_qa_result);
5020: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5021: RAISE okl_api.g_exception_unexpected_error;
5022: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5023: RAISE okl_api.g_exception_error;
5024: END IF;
5025: IF(x_qa_result=OKL_API.G_RET_STS_SUCCESS) THEN
5018: x_qa_result_tbl => l_qa_results_tbl,
5019: x_qa_result => x_qa_result);
5020: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5021: RAISE okl_api.g_exception_unexpected_error;
5022: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5023: RAISE okl_api.g_exception_error;
5024: END IF;
5025: IF(x_qa_result=OKL_API.G_RET_STS_SUCCESS) THEN
5026: i:=l_qa_results_tbl.COUNT;
5019: x_qa_result => x_qa_result);
5020: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5021: RAISE okl_api.g_exception_unexpected_error;
5022: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5023: RAISE okl_api.g_exception_error;
5024: END IF;
5025: IF(x_qa_result=OKL_API.G_RET_STS_SUCCESS) THEN
5026: i:=l_qa_results_tbl.COUNT;
5027: i:=i+1;
5021: RAISE okl_api.g_exception_unexpected_error;
5022: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5023: RAISE okl_api.g_exception_error;
5024: END IF;
5025: IF(x_qa_result=OKL_API.G_RET_STS_SUCCESS) THEN
5026: i:=l_qa_results_tbl.COUNT;
5027: i:=i+1;
5028: l_qa_results_tbl(i).check_code:='validate_financial_product';
5029: l_qa_results_tbl(i).check_meaning:='validate_financial_product';
5032: l_qa_results_tbl(i).message_code:= 'OKL_QA_CHK_FIN_PRODUCT';
5033: l_qa_results_tbl(i).message_text:= get_msg_text('OKL_QA_CHK_FIN_PRODUCT');
5034: END IF;
5035: --Check pricing values for Quote
5036: x_qa_result := OKL_API.G_RET_STS_SUCCESS;
5037: validate_pricing_values(p_api_version => p_api_version,
5038: p_init_msg_list => G_FALSE,
5039: p_object_id => lp_quote_id,
5040: p_object_type => lp_object_type,
5042: x_msg_count => x_msg_count,
5043: x_msg_data => x_msg_data,
5044: x_qa_result_tbl => l_qa_results_tbl,
5045: x_qa_result => x_qa_result);
5046: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5047: RAISE okl_api.g_exception_unexpected_error;
5048: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5049: RAISE okl_api.g_exception_error;
5050: END IF;
5043: x_msg_data => x_msg_data,
5044: x_qa_result_tbl => l_qa_results_tbl,
5045: x_qa_result => x_qa_result);
5046: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5047: RAISE okl_api.g_exception_unexpected_error;
5048: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5049: RAISE okl_api.g_exception_error;
5050: END IF;
5051: IF(x_qa_result= OKL_API.G_RET_STS_SUCCESS) THEN
5044: x_qa_result_tbl => l_qa_results_tbl,
5045: x_qa_result => x_qa_result);
5046: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5047: RAISE okl_api.g_exception_unexpected_error;
5048: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5049: RAISE okl_api.g_exception_error;
5050: END IF;
5051: IF(x_qa_result= OKL_API.G_RET_STS_SUCCESS) THEN
5052: i:=l_qa_results_tbl.COUNT;
5045: x_qa_result => x_qa_result);
5046: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5047: RAISE okl_api.g_exception_unexpected_error;
5048: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5049: RAISE okl_api.g_exception_error;
5050: END IF;
5051: IF(x_qa_result= OKL_API.G_RET_STS_SUCCESS) THEN
5052: i:=l_qa_results_tbl.COUNT;
5053: i:=i+1;
5047: RAISE okl_api.g_exception_unexpected_error;
5048: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5049: RAISE okl_api.g_exception_error;
5050: END IF;
5051: IF(x_qa_result= OKL_API.G_RET_STS_SUCCESS) THEN
5052: i:=l_qa_results_tbl.COUNT;
5053: i:=i+1;
5054: l_qa_results_tbl(i).check_code:='validate_pricing_values';
5055: l_qa_results_tbl(i).check_meaning:='validate_pricing_values';
5058: l_qa_results_tbl(i).message_code:= 'OKL_QA_CHK_PRICING';
5059: l_qa_results_tbl(i).message_text:= get_msg_text('OKL_QA_CHK_PRICING');
5060: END IF;
5061: --Check Eligibility Criteria for Quote Attrb such as LRS ,SRT,Product VPA
5062: x_qa_result := OKL_API.G_RET_STS_SUCCESS;
5063: validate_ec_criteria(p_api_version => p_api_version,
5064: p_init_msg_list => G_FALSE,
5065: p_object_id => lp_quote_id,
5066: p_object_type => lp_object_type,
5068: x_msg_count => x_msg_count,
5069: x_msg_data => x_msg_data,
5070: x_qa_result_tbl => l_qa_results_tbl,
5071: x_qa_result => x_qa_result);
5072: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5073: RAISE okl_api.g_exception_unexpected_error;
5074: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5075: RAISE okl_api.g_exception_error;
5076: END IF;
5069: x_msg_data => x_msg_data,
5070: x_qa_result_tbl => l_qa_results_tbl,
5071: x_qa_result => x_qa_result);
5072: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5073: RAISE okl_api.g_exception_unexpected_error;
5074: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5075: RAISE okl_api.g_exception_error;
5076: END IF;
5077: IF(x_qa_result= OKL_API.G_RET_STS_SUCCESS) THEN
5070: x_qa_result_tbl => l_qa_results_tbl,
5071: x_qa_result => x_qa_result);
5072: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5073: RAISE okl_api.g_exception_unexpected_error;
5074: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5075: RAISE okl_api.g_exception_error;
5076: END IF;
5077: IF(x_qa_result= OKL_API.G_RET_STS_SUCCESS) THEN
5078: i:=l_qa_results_tbl.COUNT;
5071: x_qa_result => x_qa_result);
5072: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5073: RAISE okl_api.g_exception_unexpected_error;
5074: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5075: RAISE okl_api.g_exception_error;
5076: END IF;
5077: IF(x_qa_result= OKL_API.G_RET_STS_SUCCESS) THEN
5078: i:=l_qa_results_tbl.COUNT;
5079: i:=i+1;
5073: RAISE okl_api.g_exception_unexpected_error;
5074: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5075: RAISE okl_api.g_exception_error;
5076: END IF;
5077: IF(x_qa_result= OKL_API.G_RET_STS_SUCCESS) THEN
5078: i:=l_qa_results_tbl.COUNT;
5079: i:=i+1;
5080: l_qa_results_tbl(i).check_code:='validate_ec_criteria';
5081: l_qa_results_tbl(i).check_meaning:='validate_ec_criteria';
5108: p_transaction_control => 'T',
5109: p_quote_id => lp_quote_id);
5110:
5111: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
5112: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5113: ELSIF x_return_status = G_RET_STS_ERROR THEN
5114: RAISE OKL_API.G_EXCEPTION_ERROR;
5115: END IF;
5116: END IF;
5110:
5111: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
5112: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5113: ELSIF x_return_status = G_RET_STS_ERROR THEN
5114: RAISE OKL_API.G_EXCEPTION_ERROR;
5115: END IF;
5116: END IF;
5117: END IF;
5118: --Added Bug # 5647107 ssdeshpa end
5115: END IF;
5116: END IF;
5117: END IF;
5118: --Added Bug # 5647107 ssdeshpa end
5119: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5120:
5121: okl_api.end_activity(x_msg_count => x_msg_count
5122: ,x_msg_data => x_msg_data);
5123: IF (l_debug_enabled = 'Y' AND is_debug_procedure_on) THEN
5117: END IF;
5118: --Added Bug # 5647107 ssdeshpa end
5119: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5120:
5121: okl_api.end_activity(x_msg_count => x_msg_count
5122: ,x_msg_data => x_msg_data);
5123: IF (l_debug_enabled = 'Y' AND is_debug_procedure_on) THEN
5124: okl_debug_pub.log_debug(fnd_log.level_procedure
5125: ,l_module
5125: ,l_module
5126: ,'end debug okl_sales_quote_qa_pvt.run_qa3 call run_qa3');
5127: END IF;
5128: EXCEPTION
5129: WHEN okl_api.g_exception_error THEN
5130:
5131: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
5132: ,p_pkg_name =>G_PKG_NAME
5133: ,p_exc_name =>'OKL_API.G_RET_STS_ERROR'
5127: END IF;
5128: EXCEPTION
5129: WHEN okl_api.g_exception_error THEN
5130:
5131: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
5132: ,p_pkg_name =>G_PKG_NAME
5133: ,p_exc_name =>'OKL_API.G_RET_STS_ERROR'
5134: ,x_msg_count =>x_msg_count
5135: ,x_msg_data =>x_msg_data
5129: WHEN okl_api.g_exception_error THEN
5130:
5131: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
5132: ,p_pkg_name =>G_PKG_NAME
5133: ,p_exc_name =>'OKL_API.G_RET_STS_ERROR'
5134: ,x_msg_count =>x_msg_count
5135: ,x_msg_data =>x_msg_data
5136: ,p_api_type =>G_API_TYPE);
5137:
5134: ,x_msg_count =>x_msg_count
5135: ,x_msg_data =>x_msg_data
5136: ,p_api_type =>G_API_TYPE);
5137:
5138: WHEN okl_api.g_exception_unexpected_error THEN
5139:
5140: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
5141: ,p_pkg_name =>G_PKG_NAME
5142: ,p_exc_name =>'OKL_API.G_RET_STS_UNEXP_ERROR'
5136: ,p_api_type =>G_API_TYPE);
5137:
5138: WHEN okl_api.g_exception_unexpected_error THEN
5139:
5140: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
5141: ,p_pkg_name =>G_PKG_NAME
5142: ,p_exc_name =>'OKL_API.G_RET_STS_UNEXP_ERROR'
5143: ,x_msg_count =>x_msg_count
5144: ,x_msg_data =>x_msg_data
5138: WHEN okl_api.g_exception_unexpected_error THEN
5139:
5140: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
5141: ,p_pkg_name =>G_PKG_NAME
5142: ,p_exc_name =>'OKL_API.G_RET_STS_UNEXP_ERROR'
5143: ,x_msg_count =>x_msg_count
5144: ,x_msg_data =>x_msg_data
5145: ,p_api_type =>G_API_TYPE);
5146:
5145: ,p_api_type =>G_API_TYPE);
5146:
5147: WHEN OTHERS THEN
5148:
5149: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
5150: ,p_pkg_name =>G_PKG_NAME
5151: ,p_exc_name =>'OTHERS'
5152: ,x_msg_count =>x_msg_count
5153: ,x_msg_data =>x_msg_data
5214:
5215: -- call START_ACTIVITY to create savepoint, check compatibility
5216: -- and initialize message list
5217:
5218: x_return_status := okl_api.start_activity(p_api_name=>l_api_name
5219: ,p_pkg_name=>G_PKG_NAME
5220: ,p_init_msg_list=>p_init_msg_list
5221: ,p_api_version=>p_api_version
5222: ,l_api_version=>p_api_version
5223: ,p_api_type=>G_API_TYPE
5224: ,x_return_status=>x_return_status);
5225: -- check if activity started successfully
5226:
5227: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5228: RAISE okl_api.g_exception_unexpected_error;
5229: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5230: RAISE okl_api.g_exception_error;
5231: END IF;
5224: ,x_return_status=>x_return_status);
5225: -- check if activity started successfully
5226:
5227: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5228: RAISE okl_api.g_exception_unexpected_error;
5229: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5230: RAISE okl_api.g_exception_error;
5231: END IF;
5232: ---------------Check for Valid Parent Object type----------------------
5225: -- check if activity started successfully
5226:
5227: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5228: RAISE okl_api.g_exception_unexpected_error;
5229: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5230: RAISE okl_api.g_exception_error;
5231: END IF;
5232: ---------------Check for Valid Parent Object type----------------------
5233: IF(l_debug_enabled='Y') THEN
5226:
5227: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5228: RAISE okl_api.g_exception_unexpected_error;
5229: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5230: RAISE okl_api.g_exception_error;
5231: END IF;
5232: ---------------Check for Valid Parent Object type----------------------
5233: IF(l_debug_enabled='Y') THEN
5234: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.OKL_SALES_QUOTE_QA_PVT.run_qa_checker'
5247: IF(l_debug_enabled='Y') THEN
5248: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.OKL_SALES_QUOTE_QA_PVT.run_qa_checker'
5249: ,'end debug call run_qa_checker');
5250: END IF;
5251: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5252: RAISE okl_api.g_exception_unexpected_error;
5253: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5254: RAISE okl_api.g_exception_error;
5255: END IF;
5248: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.OKL_SALES_QUOTE_QA_PVT.run_qa_checker'
5249: ,'end debug call run_qa_checker');
5250: END IF;
5251: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5252: RAISE okl_api.g_exception_unexpected_error;
5253: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5254: RAISE okl_api.g_exception_error;
5255: END IF;
5256:
5249: ,'end debug call run_qa_checker');
5250: END IF;
5251: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5252: RAISE okl_api.g_exception_unexpected_error;
5253: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5254: RAISE okl_api.g_exception_error;
5255: END IF;
5256:
5257: x_qa_result := okl_api.g_ret_sts_success;
5250: END IF;
5251: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5252: RAISE okl_api.g_exception_unexpected_error;
5253: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5254: RAISE okl_api.g_exception_error;
5255: END IF;
5256:
5257: x_qa_result := okl_api.g_ret_sts_success;
5258: FOR i IN x_qa_result_tbl.FIRST..x_qa_result_tbl.LAST LOOP
5253: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5254: RAISE okl_api.g_exception_error;
5255: END IF;
5256:
5257: x_qa_result := okl_api.g_ret_sts_success;
5258: FOR i IN x_qa_result_tbl.FIRST..x_qa_result_tbl.LAST LOOP
5259: IF(x_qa_result_tbl(i).result_code ='ERROR') THEN
5260: x_qa_result := OKL_API.g_ret_sts_error;
5261: exit;
5256:
5257: x_qa_result := okl_api.g_ret_sts_success;
5258: FOR i IN x_qa_result_tbl.FIRST..x_qa_result_tbl.LAST LOOP
5259: IF(x_qa_result_tbl(i).result_code ='ERROR') THEN
5260: x_qa_result := OKL_API.g_ret_sts_error;
5261: exit;
5262: END IF;
5263: END LOOP;
5264:
5264:
5265: x_return_status := G_RET_STS_SUCCESS;
5266:
5267:
5268: okl_api.end_activity(x_msg_count => x_msg_count
5269: ,x_msg_data => x_msg_data);
5270: IF (l_debug_enabled = 'Y' AND is_debug_procedure_on) THEN
5271: okl_debug_pub.log_debug(fnd_log.level_procedure
5272: ,l_module
5273: ,'end debug okl_sales_quote_qa_pvt.run_qa2 call run_qa2');
5274: END IF;
5275:
5276: EXCEPTION
5277: WHEN okl_api.g_exception_error THEN
5278:
5279: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
5280: ,p_pkg_name =>G_PKG_NAME
5281: ,p_exc_name =>'OKL_API.G_RET_STS_ERROR'
5275:
5276: EXCEPTION
5277: WHEN okl_api.g_exception_error THEN
5278:
5279: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
5280: ,p_pkg_name =>G_PKG_NAME
5281: ,p_exc_name =>'OKL_API.G_RET_STS_ERROR'
5282: ,x_msg_count =>x_msg_count
5283: ,x_msg_data =>x_msg_data
5277: WHEN okl_api.g_exception_error THEN
5278:
5279: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
5280: ,p_pkg_name =>G_PKG_NAME
5281: ,p_exc_name =>'OKL_API.G_RET_STS_ERROR'
5282: ,x_msg_count =>x_msg_count
5283: ,x_msg_data =>x_msg_data
5284: ,p_api_type =>G_API_TYPE);
5285:
5282: ,x_msg_count =>x_msg_count
5283: ,x_msg_data =>x_msg_data
5284: ,p_api_type =>G_API_TYPE);
5285:
5286: WHEN okl_api.g_exception_unexpected_error THEN
5287:
5288: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
5289: ,p_pkg_name =>G_PKG_NAME
5290: ,p_exc_name =>'OKL_API.G_RET_STS_UNEXP_ERROR'
5284: ,p_api_type =>G_API_TYPE);
5285:
5286: WHEN okl_api.g_exception_unexpected_error THEN
5287:
5288: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
5289: ,p_pkg_name =>G_PKG_NAME
5290: ,p_exc_name =>'OKL_API.G_RET_STS_UNEXP_ERROR'
5291: ,x_msg_count =>x_msg_count
5292: ,x_msg_data =>x_msg_data
5286: WHEN okl_api.g_exception_unexpected_error THEN
5287:
5288: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
5289: ,p_pkg_name =>G_PKG_NAME
5290: ,p_exc_name =>'OKL_API.G_RET_STS_UNEXP_ERROR'
5291: ,x_msg_count =>x_msg_count
5292: ,x_msg_data =>x_msg_data
5293: ,p_api_type =>G_API_TYPE);
5294:
5293: ,p_api_type =>G_API_TYPE);
5294:
5295: WHEN OTHERS THEN
5296:
5297: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
5298: ,p_pkg_name =>G_PKG_NAME
5299: ,p_exc_name =>'OTHERS'
5300: ,x_msg_count =>x_msg_count
5301: ,x_msg_data =>x_msg_data
5373:
5374: -- call START_ACTIVITY to create savepoint, check compatibility
5375: -- and initialize message list
5376:
5377: x_return_status := okl_api.start_activity(p_api_name=>l_api_name
5378: ,p_pkg_name=>G_PKG_NAME
5379: ,p_init_msg_list=>p_init_msg_list
5380: ,p_api_version=>p_api_version
5381: ,l_api_version=>p_api_version
5381: ,l_api_version=>p_api_version
5382: ,p_api_type=>G_API_TYPE
5383: ,x_return_status=>x_return_status); -- check if activity started successfully
5384:
5385: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5386: RAISE okl_api.g_exception_unexpected_error;
5387: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5388: RAISE okl_api.g_exception_error;
5389: END IF;
5382: ,p_api_type=>G_API_TYPE
5383: ,x_return_status=>x_return_status); -- check if activity started successfully
5384:
5385: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5386: RAISE okl_api.g_exception_unexpected_error;
5387: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5388: RAISE okl_api.g_exception_error;
5389: END IF;
5390: --------------------------------------------------------------------------------
5383: ,x_return_status=>x_return_status); -- check if activity started successfully
5384:
5385: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5386: RAISE okl_api.g_exception_unexpected_error;
5387: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5388: RAISE okl_api.g_exception_error;
5389: END IF;
5390: --------------------------------------------------------------------------------
5391: --Call QA Checker To Test
5384:
5385: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5386: RAISE okl_api.g_exception_unexpected_error;
5387: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5388: RAISE okl_api.g_exception_error;
5389: END IF;
5390: --------------------------------------------------------------------------------
5391: --Call QA Checker To Test
5392: --Call the wrapper run_qa_checker
5401: IF(l_debug_enabled='Y') THEN
5402: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.OKL_SALES_QUOTE_QA_PVT.run_qa_checker'
5403: ,'end debug call run_qa_checker');
5404: END IF;
5405: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5406: RAISE okl_api.g_exception_unexpected_error;
5407: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5408: RAISE okl_api.g_exception_error;
5409: END IF;
5402: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.OKL_SALES_QUOTE_QA_PVT.run_qa_checker'
5403: ,'end debug call run_qa_checker');
5404: END IF;
5405: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5406: RAISE okl_api.g_exception_unexpected_error;
5407: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5408: RAISE okl_api.g_exception_error;
5409: END IF;
5410: --Lease Quote id treated as Primary Quote on Lease Application or
5403: ,'end debug call run_qa_checker');
5404: END IF;
5405: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5406: RAISE okl_api.g_exception_unexpected_error;
5407: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5408: RAISE okl_api.g_exception_error;
5409: END IF;
5410: --Lease Quote id treated as Primary Quote on Lease Application or
5411: --Lease Opportunity should go to the Database
5404: END IF;
5405: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5406: RAISE okl_api.g_exception_unexpected_error;
5407: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5408: RAISE okl_api.g_exception_error;
5409: END IF;
5410: --Lease Quote id treated as Primary Quote on Lease Application or
5411: --Lease Opportunity should go to the Database
5412: lp_quote_id := p_object_id;
5428: x_msg_count => x_msg_count,
5429: x_msg_data => x_msg_data,
5430: x_qa_result_tbl => x_qa_result_tbl);
5431:
5432: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5433: RAISE okl_api.g_exception_unexpected_error;
5434: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5435: RAISE okl_api.g_exception_error;
5436: END IF;
5429: x_msg_data => x_msg_data,
5430: x_qa_result_tbl => x_qa_result_tbl);
5431:
5432: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5433: RAISE okl_api.g_exception_unexpected_error;
5434: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5435: RAISE okl_api.g_exception_error;
5436: END IF;
5437: END IF;
5430: x_qa_result_tbl => x_qa_result_tbl);
5431:
5432: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5433: RAISE okl_api.g_exception_unexpected_error;
5434: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5435: RAISE okl_api.g_exception_error;
5436: END IF;
5437: END IF;
5438: END IF;
5431:
5432: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
5433: RAISE okl_api.g_exception_unexpected_error;
5434: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
5435: RAISE okl_api.g_exception_error;
5436: END IF;
5437: END IF;
5438: END IF;
5439:
5436: END IF;
5437: END IF;
5438: END IF;
5439:
5440: x_qa_result := okl_api.g_ret_sts_success;
5441: --See if Table contains any error
5442: FOR i IN x_qa_result_tbl.FIRST..x_qa_result_tbl.LAST LOOP
5443:
5444: IF(x_qa_result_tbl.exists(i))THEN
5442: FOR i IN x_qa_result_tbl.FIRST..x_qa_result_tbl.LAST LOOP
5443:
5444: IF(x_qa_result_tbl.exists(i))THEN
5445: IF(x_qa_result_tbl(i).result_code ='ERROR') THEN
5446: x_qa_result := OKL_API.g_ret_sts_error;
5447: EXIT;
5448: END IF;
5449: END IF;
5450: END LOOP;
5450: END LOOP;
5451:
5452: x_return_status := G_RET_STS_SUCCESS;
5453:
5454: okl_api.end_activity(x_msg_count => x_msg_count
5455: ,x_msg_data => x_msg_data);
5456:
5457: IF (l_debug_enabled = 'Y' AND is_debug_procedure_on) THEN
5458: okl_debug_pub.log_debug(fnd_log.level_procedure
5460: ,'end debug okl_sales_quote_qa_pvt call run_qa3');
5461: END IF;
5462:
5463: EXCEPTION
5464: WHEN okl_api.g_exception_error THEN
5465:
5466: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
5467: ,p_pkg_name =>G_PKG_NAME
5468: ,p_exc_name =>'OKL_API.G_RET_STS_ERROR'
5462:
5463: EXCEPTION
5464: WHEN okl_api.g_exception_error THEN
5465:
5466: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
5467: ,p_pkg_name =>G_PKG_NAME
5468: ,p_exc_name =>'OKL_API.G_RET_STS_ERROR'
5469: ,x_msg_count =>x_msg_count
5470: ,x_msg_data =>x_msg_data
5464: WHEN okl_api.g_exception_error THEN
5465:
5466: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
5467: ,p_pkg_name =>G_PKG_NAME
5468: ,p_exc_name =>'OKL_API.G_RET_STS_ERROR'
5469: ,x_msg_count =>x_msg_count
5470: ,x_msg_data =>x_msg_data
5471: ,p_api_type =>G_API_TYPE);
5472:
5469: ,x_msg_count =>x_msg_count
5470: ,x_msg_data =>x_msg_data
5471: ,p_api_type =>G_API_TYPE);
5472:
5473: WHEN okl_api.g_exception_unexpected_error THEN
5474:
5475: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
5476: ,p_pkg_name =>G_PKG_NAME
5477: ,p_exc_name =>'OKL_API.G_RET_STS_UNEXP_ERROR'
5471: ,p_api_type =>G_API_TYPE);
5472:
5473: WHEN okl_api.g_exception_unexpected_error THEN
5474:
5475: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
5476: ,p_pkg_name =>G_PKG_NAME
5477: ,p_exc_name =>'OKL_API.G_RET_STS_UNEXP_ERROR'
5478: ,x_msg_count =>x_msg_count
5479: ,x_msg_data =>x_msg_data
5473: WHEN okl_api.g_exception_unexpected_error THEN
5474:
5475: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
5476: ,p_pkg_name =>G_PKG_NAME
5477: ,p_exc_name =>'OKL_API.G_RET_STS_UNEXP_ERROR'
5478: ,x_msg_count =>x_msg_count
5479: ,x_msg_data =>x_msg_data
5480: ,p_api_type =>G_API_TYPE);
5481:
5480: ,p_api_type =>G_API_TYPE);
5481:
5482: WHEN OTHERS THEN
5483:
5484: x_return_status := okl_api.handle_exceptions(p_api_name =>l_api_name
5485: ,p_pkg_name =>G_PKG_NAME
5486: ,p_exc_name =>'OTHERS'
5487: ,x_msg_count =>x_msg_count
5488: ,x_msg_data =>x_msg_data