[Home] [Help]
39: END IF;
40:
41: EXCEPTION
42:
43: WHEN OKL_API.G_EXCEPTION_ERROR THEN
44:
45: x_return_status := G_RET_STS_ERROR;
46:
47: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
43: WHEN OKL_API.G_EXCEPTION_ERROR THEN
44:
45: x_return_status := G_RET_STS_ERROR;
46:
47: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
48:
49: x_return_status := G_RET_STS_UNEXP_ERROR;
50:
51: WHEN OTHERS THEN
49: x_return_status := G_RET_STS_UNEXP_ERROR;
50:
51: WHEN OTHERS THEN
52:
53: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
54: p_msg_name => G_DB_ERROR,
55: p_token1 => G_PROG_NAME_TOKEN,
56: p_token1_value => l_api_name,
57: p_token2 => G_SQLCODE_TOKEN,
91: --End - Updated the Select stmt with Count for bug#4723160 - varangan-8-11-2005
92:
93: EXCEPTION
94:
95: WHEN OKL_API.G_EXCEPTION_ERROR THEN
96:
97: x_return_status := G_RET_STS_ERROR;
98:
99: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
95: WHEN OKL_API.G_EXCEPTION_ERROR THEN
96:
97: x_return_status := G_RET_STS_ERROR;
98:
99: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
100:
101: x_return_status := G_RET_STS_UNEXP_ERROR;
102:
103: WHEN OTHERS THEN
101: x_return_status := G_RET_STS_UNEXP_ERROR;
102:
103: WHEN OTHERS THEN
104:
105: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
106: p_msg_name => G_DB_ERROR,
107: p_token1 => G_PROG_NAME_TOKEN,
108: p_token1_value => l_api_name,
109: p_token2 => G_SQLCODE_TOKEN,
153: END IF;
154:
155: EXCEPTION
156:
157: WHEN OKL_API.G_EXCEPTION_ERROR THEN
158:
159: x_return_status := G_RET_STS_ERROR;
160:
161: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
157: WHEN OKL_API.G_EXCEPTION_ERROR THEN
158:
159: x_return_status := G_RET_STS_ERROR;
160:
161: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
162:
163: x_return_status := G_RET_STS_UNEXP_ERROR;
164:
165: WHEN OTHERS THEN
163: x_return_status := G_RET_STS_UNEXP_ERROR;
164:
165: WHEN OTHERS THEN
166:
167: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
168: p_msg_name => G_DB_ERROR,
169: p_token1 => G_PROG_NAME_TOKEN,
170: p_token1_value => l_api_name,
171: p_token2 => G_SQLCODE_TOKEN,
223: ,x_msg_data => x_msg_data
224: ,p_qulv_tbl => l_quote_sp_usage_tbl
225: ,x_qulv_tbl => lx_quote_sp_usage_tbl);
226: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
227: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
228: ELSIF x_return_status = G_RET_STS_ERROR THEN
229: RAISE OKL_API.G_EXCEPTION_ERROR;
230: END IF;
231: END IF;
225: ,x_qulv_tbl => lx_quote_sp_usage_tbl);
226: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
227: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
228: ELSIF x_return_status = G_RET_STS_ERROR THEN
229: RAISE OKL_API.G_EXCEPTION_ERROR;
230: END IF;
231: END IF;
232:
233: x_return_status := G_RET_STS_SUCCESS;
233: x_return_status := G_RET_STS_SUCCESS;
234:
235: EXCEPTION
236:
237: WHEN OKL_API.G_EXCEPTION_ERROR THEN
238:
239: x_return_status := G_RET_STS_ERROR;
240:
241: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
237: WHEN OKL_API.G_EXCEPTION_ERROR THEN
238:
239: x_return_status := G_RET_STS_ERROR;
240:
241: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
242:
243: x_return_status := G_RET_STS_UNEXP_ERROR;
244:
245: WHEN OTHERS THEN
243: x_return_status := G_RET_STS_UNEXP_ERROR;
244:
245: WHEN OTHERS THEN
246:
247: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
248: p_msg_name => G_DB_ERROR,
249: p_token1 => G_PROG_NAME_TOKEN,
250: p_token1_value => l_api_name,
251: p_token2 => G_SQLCODE_TOKEN,
292: ,x_msg_count => x_msg_count
293: ,x_msg_data => x_msg_data
294: ,p_qulv_tbl => l_quote_sp_usage_tbl);
295: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
296: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
297: ELSIF x_return_status = G_RET_STS_ERROR THEN
298: RAISE OKL_API.G_EXCEPTION_ERROR;
299: END IF;
300: END IF;
294: ,p_qulv_tbl => l_quote_sp_usage_tbl);
295: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
296: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
297: ELSIF x_return_status = G_RET_STS_ERROR THEN
298: RAISE OKL_API.G_EXCEPTION_ERROR;
299: END IF;
300: END IF;
301:
302: x_return_status := G_RET_STS_SUCCESS;
302: x_return_status := G_RET_STS_SUCCESS;
303:
304: EXCEPTION
305:
306: WHEN OKL_API.G_EXCEPTION_ERROR THEN
307:
308: x_return_status := G_RET_STS_ERROR;
309:
310: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
306: WHEN OKL_API.G_EXCEPTION_ERROR THEN
307:
308: x_return_status := G_RET_STS_ERROR;
309:
310: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
311:
312: x_return_status := G_RET_STS_UNEXP_ERROR;
313:
314: WHEN OTHERS THEN
312: x_return_status := G_RET_STS_UNEXP_ERROR;
313:
314: WHEN OTHERS THEN
315:
316: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
317: p_msg_name => G_DB_ERROR,
318: p_token1 => G_PROG_NAME_TOKEN,
319: p_token1_value => l_api_name,
320: p_token2 => G_SQLCODE_TOKEN,
380: x_return_status := G_RET_STS_SUCCESS;
381:
382: EXCEPTION
383:
384: WHEN OKL_API.G_EXCEPTION_ERROR THEN
385:
386: x_return_status := G_RET_STS_ERROR;
387:
388: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
384: WHEN OKL_API.G_EXCEPTION_ERROR THEN
385:
386: x_return_status := G_RET_STS_ERROR;
387:
388: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
389:
390: x_return_status := G_RET_STS_UNEXP_ERROR;
391:
392: WHEN OTHERS THEN
390: x_return_status := G_RET_STS_UNEXP_ERROR;
391:
392: WHEN OTHERS THEN
393:
394: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
395: p_msg_name => G_DB_ERROR,
396: p_token1 => G_PROG_NAME_TOKEN,
397: p_token1_value => l_api_name,
398: p_token2 => G_SQLCODE_TOKEN,
460: x_return_status := G_RET_STS_SUCCESS;
461:
462: EXCEPTION
463:
464: WHEN OKL_API.G_EXCEPTION_ERROR THEN
465:
466: x_return_status := G_RET_STS_ERROR;
467:
468: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
464: WHEN OKL_API.G_EXCEPTION_ERROR THEN
465:
466: x_return_status := G_RET_STS_ERROR;
467:
468: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
469:
470: x_return_status := G_RET_STS_UNEXP_ERROR;
471:
472: WHEN OTHERS THEN
470: x_return_status := G_RET_STS_UNEXP_ERROR;
471:
472: WHEN OTHERS THEN
473:
474: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
475: p_msg_name => G_DB_ERROR,
476: p_token1 => G_PROG_NAME_TOKEN,
477: p_token1_value => l_api_name,
478: p_token2 => G_SQLCODE_TOKEN,
643: x_return_status := G_RET_STS_SUCCESS;
644:
645: EXCEPTION
646:
647: WHEN OKL_API.G_EXCEPTION_ERROR THEN
648:
649: x_return_status := G_RET_STS_ERROR;
650:
651: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
647: WHEN OKL_API.G_EXCEPTION_ERROR THEN
648:
649: x_return_status := G_RET_STS_ERROR;
650:
651: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
652:
653: x_return_status := G_RET_STS_UNEXP_ERROR;
654:
655: WHEN OTHERS THEN
653: x_return_status := G_RET_STS_UNEXP_ERROR;
654:
655: WHEN OTHERS THEN
656:
657: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
658: p_msg_name => G_DB_ERROR,
659: p_token1 => G_PROG_NAME_TOKEN,
660: p_token1_value => l_api_name,
661: p_token2 => G_SQLCODE_TOKEN,
746: x_msg_count => x_msg_count,
747: x_msg_data => x_msg_data,
748: p_sixv_tbl => l_sub_pool_tbl,
749: x_sixv_tbl => lx_subpool_tbl);
750: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
751: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
752: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
753: RAISE OKL_API.G_EXCEPTION_ERROR;
754: END IF;
747: x_msg_data => x_msg_data,
748: p_sixv_tbl => l_sub_pool_tbl,
749: x_sixv_tbl => lx_subpool_tbl);
750: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
751: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
752: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
753: RAISE OKL_API.G_EXCEPTION_ERROR;
754: END IF;
755:
748: p_sixv_tbl => l_sub_pool_tbl,
749: x_sixv_tbl => lx_subpool_tbl);
750: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
751: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
752: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
753: RAISE OKL_API.G_EXCEPTION_ERROR;
754: END IF;
755:
756: -- Create the transaction copy record in quote subsidy pool usage table
749: x_sixv_tbl => lx_subpool_tbl);
750: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
751: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
752: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
753: RAISE OKL_API.G_EXCEPTION_ERROR;
754: END IF;
755:
756: -- Create the transaction copy record in quote subsidy pool usage table
757: create_quote_subpool_usage(p_api_version => p_api_version,
760: x_msg_count => x_msg_count,
761: x_msg_data => x_msg_data,
762: p_sixv_tbl => lx_subpool_tbl);
763:
764: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
765: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
766: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
767: RAISE OKL_API.G_EXCEPTION_ERROR;
768: END IF;
761: x_msg_data => x_msg_data,
762: p_sixv_tbl => lx_subpool_tbl);
763:
764: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
765: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
766: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
767: RAISE OKL_API.G_EXCEPTION_ERROR;
768: END IF;
769: END IF;
762: p_sixv_tbl => lx_subpool_tbl);
763:
764: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
765: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
766: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
767: RAISE OKL_API.G_EXCEPTION_ERROR;
768: END IF;
769: END IF;
770:
763:
764: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
765: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
766: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
767: RAISE OKL_API.G_EXCEPTION_ERROR;
768: END IF;
769: END IF;
770:
771: x_return_status := G_RET_STS_SUCCESS;
771: x_return_status := G_RET_STS_SUCCESS;
772:
773: EXCEPTION
774:
775: WHEN OKL_API.G_EXCEPTION_ERROR THEN
776:
777: x_return_status := G_RET_STS_ERROR;
778:
779: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
775: WHEN OKL_API.G_EXCEPTION_ERROR THEN
776:
777: x_return_status := G_RET_STS_ERROR;
778:
779: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
780:
781: x_return_status := G_RET_STS_UNEXP_ERROR;
782:
783: WHEN OTHERS THEN
781: x_return_status := G_RET_STS_UNEXP_ERROR;
782:
783: WHEN OTHERS THEN
784:
785: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
786: p_msg_name => G_DB_ERROR,
787: p_token1 => G_PROG_NAME_TOKEN,
788: p_token1_value => l_api_name,
789: p_token2 => G_SQLCODE_TOKEN,
948: x_msg_data => x_msg_data,
949: p_sixv_tbl => l_sub_pool_tbl,
950: x_sixv_tbl => lx_subpool_tbl);
951:
952: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
953: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
954: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
955: RAISE OKL_API.G_EXCEPTION_ERROR;
956: END IF;
949: p_sixv_tbl => l_sub_pool_tbl,
950: x_sixv_tbl => lx_subpool_tbl);
951:
952: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
953: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
954: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
955: RAISE OKL_API.G_EXCEPTION_ERROR;
956: END IF;
957: END IF;
950: x_sixv_tbl => lx_subpool_tbl);
951:
952: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
953: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
954: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
955: RAISE OKL_API.G_EXCEPTION_ERROR;
956: END IF;
957: END IF;
958:
951:
952: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
953: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
954: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
955: RAISE OKL_API.G_EXCEPTION_ERROR;
956: END IF;
957: END IF;
958:
959: -- Delete the Quote usage data for this Subsidy pool
963: x_msg_count => x_msg_count,
964: x_msg_data => x_msg_data,
965: p_subsidy_pool_id => l_get_quote_pool_values.subsidy_pool_id,
966: p_source_object_id => ln_populated_quote_id);
967: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
968: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
969: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
970: RAISE OKL_API.G_EXCEPTION_ERROR;
971: END IF;
964: x_msg_data => x_msg_data,
965: p_subsidy_pool_id => l_get_quote_pool_values.subsidy_pool_id,
966: p_source_object_id => ln_populated_quote_id);
967: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
968: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
969: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
970: RAISE OKL_API.G_EXCEPTION_ERROR;
971: END IF;
972:
965: p_subsidy_pool_id => l_get_quote_pool_values.subsidy_pool_id,
966: p_source_object_id => ln_populated_quote_id);
967: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
968: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
969: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
970: RAISE OKL_API.G_EXCEPTION_ERROR;
971: END IF;
972:
973: -- Reduce the new balance from the Subsidy pool and create the current
966: p_source_object_id => ln_populated_quote_id);
967: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
968: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
969: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
970: RAISE OKL_API.G_EXCEPTION_ERROR;
971: END IF;
972:
973: -- Reduce the new balance from the Subsidy pool and create the current
974: -- data in Quote Subsidy pool usage
980: p_source_object_code => p_parent_object_code,
981: p_quote_id => p_quote_id,
982: p_subsidy_pool_id => l_get_quote_pool_values.subsidy_pool_id,
983: p_transaction_reason => p_transaction_reason);
984: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
985: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
986: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
987: RAISE OKL_API.G_EXCEPTION_ERROR;
988: END IF;
981: p_quote_id => p_quote_id,
982: p_subsidy_pool_id => l_get_quote_pool_values.subsidy_pool_id,
983: p_transaction_reason => p_transaction_reason);
984: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
985: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
986: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
987: RAISE OKL_API.G_EXCEPTION_ERROR;
988: END IF;
989:
982: p_subsidy_pool_id => l_get_quote_pool_values.subsidy_pool_id,
983: p_transaction_reason => p_transaction_reason);
984: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
985: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
986: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
987: RAISE OKL_API.G_EXCEPTION_ERROR;
988: END IF;
989:
990: ELSE
983: p_transaction_reason => p_transaction_reason);
984: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
985: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
986: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
987: RAISE OKL_API.G_EXCEPTION_ERROR;
988: END IF;
989:
990: ELSE
991: -- This is the initial transaction record. So, reduce the same from the
998: p_source_object_code => p_parent_object_code,
999: p_quote_id => p_quote_id,
1000: p_subsidy_pool_id => l_get_quote_pool_values.subsidy_pool_id,
1001: p_transaction_reason => p_transaction_reason);
1002: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1003: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1004: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1005: RAISE OKL_API.G_EXCEPTION_ERROR;
1006: END IF;
999: p_quote_id => p_quote_id,
1000: p_subsidy_pool_id => l_get_quote_pool_values.subsidy_pool_id,
1001: p_transaction_reason => p_transaction_reason);
1002: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1003: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1004: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1005: RAISE OKL_API.G_EXCEPTION_ERROR;
1006: END IF;
1007:
1000: p_subsidy_pool_id => l_get_quote_pool_values.subsidy_pool_id,
1001: p_transaction_reason => p_transaction_reason);
1002: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1003: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1004: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1005: RAISE OKL_API.G_EXCEPTION_ERROR;
1006: END IF;
1007:
1008: END IF;
1001: p_transaction_reason => p_transaction_reason);
1002: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1003: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1004: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1005: RAISE OKL_API.G_EXCEPTION_ERROR;
1006: END IF;
1007:
1008: END IF;
1009: END IF;
1012:
1013: x_return_status := G_RET_STS_SUCCESS;
1014: EXCEPTION
1015:
1016: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1017:
1018: x_return_status := G_RET_STS_ERROR;
1019:
1020: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1016: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1017:
1018: x_return_status := G_RET_STS_ERROR;
1019:
1020: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1021:
1022: x_return_status := G_RET_STS_UNEXP_ERROR;
1023:
1024: WHEN OTHERS THEN
1022: x_return_status := G_RET_STS_UNEXP_ERROR;
1023:
1024: WHEN OTHERS THEN
1025:
1026: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1027: p_msg_name => G_DB_ERROR,
1028: p_token1 => G_PROG_NAME_TOKEN,
1029: p_token1_value => l_api_name,
1030: p_token2 => G_SQLCODE_TOKEN,
1109: x_msg_count => x_msg_count,
1110: x_msg_data => x_msg_data,
1111: p_sixv_tbl => l_sub_pool_tbl,
1112: x_sixv_tbl => lx_subpool_tbl);
1113: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1114: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1115: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1116: RAISE OKL_API.G_EXCEPTION_ERROR;
1117: END IF;
1110: x_msg_data => x_msg_data,
1111: p_sixv_tbl => l_sub_pool_tbl,
1112: x_sixv_tbl => lx_subpool_tbl);
1113: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1114: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1115: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1116: RAISE OKL_API.G_EXCEPTION_ERROR;
1117: END IF;
1118: END IF;
1111: p_sixv_tbl => l_sub_pool_tbl,
1112: x_sixv_tbl => lx_subpool_tbl);
1113: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1114: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1115: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1116: RAISE OKL_API.G_EXCEPTION_ERROR;
1117: END IF;
1118: END IF;
1119:
1112: x_sixv_tbl => lx_subpool_tbl);
1113: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1114: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1115: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1116: RAISE OKL_API.G_EXCEPTION_ERROR;
1117: END IF;
1118: END IF;
1119:
1120: -- Delete the Quote usage data for this Subsidy pool
1124: x_msg_count => x_msg_count,
1125: x_msg_data => x_msg_data,
1126: p_subsidy_pool_id => l_get_leaseopp_pool_values.subsidy_pool_id,
1127: p_source_object_id => l_get_leaseopp_pool_values.quote_id);
1128: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1129: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1130: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1131: RAISE OKL_API.G_EXCEPTION_ERROR;
1132: END IF;
1125: x_msg_data => x_msg_data,
1126: p_subsidy_pool_id => l_get_leaseopp_pool_values.subsidy_pool_id,
1127: p_source_object_id => l_get_leaseopp_pool_values.quote_id);
1128: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1129: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1130: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1131: RAISE OKL_API.G_EXCEPTION_ERROR;
1132: END IF;
1133:
1126: p_subsidy_pool_id => l_get_leaseopp_pool_values.subsidy_pool_id,
1127: p_source_object_id => l_get_leaseopp_pool_values.quote_id);
1128: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1129: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1130: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1131: RAISE OKL_API.G_EXCEPTION_ERROR;
1132: END IF;
1133:
1134: END IF;
1127: p_source_object_id => l_get_leaseopp_pool_values.quote_id);
1128: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1129: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1130: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1131: RAISE OKL_API.G_EXCEPTION_ERROR;
1132: END IF;
1133:
1134: END IF;
1135:
1137:
1138: x_return_status := G_RET_STS_SUCCESS;
1139: EXCEPTION
1140:
1141: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1142:
1143: x_return_status := G_RET_STS_ERROR;
1144:
1145: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1141: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1142:
1143: x_return_status := G_RET_STS_ERROR;
1144:
1145: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1146:
1147: x_return_status := G_RET_STS_UNEXP_ERROR;
1148:
1149: WHEN OTHERS THEN
1147: x_return_status := G_RET_STS_UNEXP_ERROR;
1148:
1149: WHEN OTHERS THEN
1150:
1151: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1152: p_msg_name => G_DB_ERROR,
1153: p_token1 => G_PROG_NAME_TOKEN,
1154: p_token1_value => l_api_name,
1155: p_token2 => G_SQLCODE_TOKEN,
1235: x_msg_count => x_msg_count,
1236: x_msg_data => x_msg_data,
1237: p_sixv_tbl => l_sub_pool_tbl,
1238: x_sixv_tbl => lx_subpool_tbl);
1239: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1240: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1241: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1242: RAISE OKL_API.G_EXCEPTION_ERROR;
1243: END IF;
1236: x_msg_data => x_msg_data,
1237: p_sixv_tbl => l_sub_pool_tbl,
1238: x_sixv_tbl => lx_subpool_tbl);
1239: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1240: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1241: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1242: RAISE OKL_API.G_EXCEPTION_ERROR;
1243: END IF;
1244: END IF;
1237: p_sixv_tbl => l_sub_pool_tbl,
1238: x_sixv_tbl => lx_subpool_tbl);
1239: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1240: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1241: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1242: RAISE OKL_API.G_EXCEPTION_ERROR;
1243: END IF;
1244: END IF;
1245:
1238: x_sixv_tbl => lx_subpool_tbl);
1239: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1240: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1241: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1242: RAISE OKL_API.G_EXCEPTION_ERROR;
1243: END IF;
1244: END IF;
1245:
1246: -- Delete the Quote usage data for this Subsidy pool
1250: x_msg_count => x_msg_count,
1251: x_msg_data => x_msg_data,
1252: p_subsidy_pool_id => l_get_leaseopp_pool_values.subsidy_pool_id,
1253: p_source_object_id => l_get_leaseopp_pool_values.quote_id);
1254: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1255: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1256: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1257: RAISE OKL_API.G_EXCEPTION_ERROR;
1258: END IF;
1251: x_msg_data => x_msg_data,
1252: p_subsidy_pool_id => l_get_leaseopp_pool_values.subsidy_pool_id,
1253: p_source_object_id => l_get_leaseopp_pool_values.quote_id);
1254: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1255: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1256: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1257: RAISE OKL_API.G_EXCEPTION_ERROR;
1258: END IF;
1259:
1252: p_subsidy_pool_id => l_get_leaseopp_pool_values.subsidy_pool_id,
1253: p_source_object_id => l_get_leaseopp_pool_values.quote_id);
1254: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1255: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1256: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1257: RAISE OKL_API.G_EXCEPTION_ERROR;
1258: END IF;
1259:
1260: END IF;
1253: p_source_object_id => l_get_leaseopp_pool_values.quote_id);
1254: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1255: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1256: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1257: RAISE OKL_API.G_EXCEPTION_ERROR;
1258: END IF;
1259:
1260: END IF;
1261:
1263:
1264: x_return_status := G_RET_STS_SUCCESS;
1265: EXCEPTION
1266:
1267: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1268:
1269: x_return_status := G_RET_STS_ERROR;
1270:
1271: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1267: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1268:
1269: x_return_status := G_RET_STS_ERROR;
1270:
1271: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1272:
1273: x_return_status := G_RET_STS_UNEXP_ERROR;
1274:
1275: WHEN OTHERS THEN
1273: x_return_status := G_RET_STS_UNEXP_ERROR;
1274:
1275: WHEN OTHERS THEN
1276:
1277: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1278: p_msg_name => G_DB_ERROR,
1279: p_token1 => G_PROG_NAME_TOKEN,
1280: p_token1_value => l_api_name,
1281: p_token2 => G_SQLCODE_TOKEN,
1354: p_quote_id => ln_leaseopp_quote_id,
1355: x_return_status => x_return_status,
1356: x_msg_count => x_msg_count,
1357: x_msg_data => x_msg_data);
1358: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1359: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1360: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1361: RAISE OKL_API.G_EXCEPTION_ERROR;
1362: END IF;
1355: x_return_status => x_return_status,
1356: x_msg_count => x_msg_count,
1357: x_msg_data => x_msg_data);
1358: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1359: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1360: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1361: RAISE OKL_API.G_EXCEPTION_ERROR;
1362: END IF;
1363: END IF;
1356: x_msg_count => x_msg_count,
1357: x_msg_data => x_msg_data);
1358: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1359: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1360: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1361: RAISE OKL_API.G_EXCEPTION_ERROR;
1362: END IF;
1363: END IF;
1364:
1357: x_msg_data => x_msg_data);
1358: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1359: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1360: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1361: RAISE OKL_API.G_EXCEPTION_ERROR;
1362: END IF;
1363: END IF;
1364:
1365: FOR l_get_leaseapp_pool_values IN c_get_leaseapp_pool_values LOOP
1394: x_msg_count => x_msg_count,
1395: x_msg_data => x_msg_data,
1396: p_sixv_tbl => l_sub_pool_tbl,
1397: x_sixv_tbl => lx_subpool_tbl);
1398: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1399: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1400: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1401: RAISE OKL_API.G_EXCEPTION_ERROR;
1402: END IF;
1395: x_msg_data => x_msg_data,
1396: p_sixv_tbl => l_sub_pool_tbl,
1397: x_sixv_tbl => lx_subpool_tbl);
1398: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1399: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1400: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1401: RAISE OKL_API.G_EXCEPTION_ERROR;
1402: END IF;
1403: END IF;
1396: p_sixv_tbl => l_sub_pool_tbl,
1397: x_sixv_tbl => lx_subpool_tbl);
1398: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1399: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1400: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1401: RAISE OKL_API.G_EXCEPTION_ERROR;
1402: END IF;
1403: END IF;
1404:
1397: x_sixv_tbl => lx_subpool_tbl);
1398: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1399: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1400: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1401: RAISE OKL_API.G_EXCEPTION_ERROR;
1402: END IF;
1403: END IF;
1404:
1405: -- Delete the Quote usage data for this Subsidy pool
1409: x_msg_count => x_msg_count,
1410: x_msg_data => x_msg_data,
1411: p_subsidy_pool_id => l_get_leaseapp_pool_values.subsidy_pool_id,
1412: p_source_object_id => l_get_leaseapp_pool_values.quote_id);
1413: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1414: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1415: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1416: RAISE OKL_API.G_EXCEPTION_ERROR;
1417: END IF;
1410: x_msg_data => x_msg_data,
1411: p_subsidy_pool_id => l_get_leaseapp_pool_values.subsidy_pool_id,
1412: p_source_object_id => l_get_leaseapp_pool_values.quote_id);
1413: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1414: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1415: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1416: RAISE OKL_API.G_EXCEPTION_ERROR;
1417: END IF;
1418:
1411: p_subsidy_pool_id => l_get_leaseapp_pool_values.subsidy_pool_id,
1412: p_source_object_id => l_get_leaseapp_pool_values.quote_id);
1413: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1414: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1415: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1416: RAISE OKL_API.G_EXCEPTION_ERROR;
1417: END IF;
1418:
1419: END IF;
1412: p_source_object_id => l_get_leaseapp_pool_values.quote_id);
1413: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1414: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1415: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1416: RAISE OKL_API.G_EXCEPTION_ERROR;
1417: END IF;
1418:
1419: END IF;
1420:
1422:
1423: x_return_status := G_RET_STS_SUCCESS;
1424: EXCEPTION
1425:
1426: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1427:
1428: x_return_status := G_RET_STS_ERROR;
1429:
1430: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1426: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1427:
1428: x_return_status := G_RET_STS_ERROR;
1429:
1430: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1431:
1432: x_return_status := G_RET_STS_UNEXP_ERROR;
1433:
1434: WHEN OTHERS THEN
1432: x_return_status := G_RET_STS_UNEXP_ERROR;
1433:
1434: WHEN OTHERS THEN
1435:
1436: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1437: p_msg_name => G_DB_ERROR,
1438: p_token1 => G_PROG_NAME_TOKEN,
1439: p_token1_value => l_api_name,
1440: p_token2 => G_SQLCODE_TOKEN,
1479: p_quote_id => ln_source_object_id,
1480: x_return_status => x_return_status,
1481: x_msg_count => x_msg_count,
1482: x_msg_data => x_msg_data);
1483: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1484: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1485: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1486: RAISE OKL_API.G_EXCEPTION_ERROR;
1487: END IF;
1480: x_return_status => x_return_status,
1481: x_msg_count => x_msg_count,
1482: x_msg_data => x_msg_data);
1483: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1484: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1485: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1486: RAISE OKL_API.G_EXCEPTION_ERROR;
1487: END IF;
1488: ELSIF (lv_source_object_code = 'OKL_LEASE_APP') THEN
1481: x_msg_count => x_msg_count,
1482: x_msg_data => x_msg_data);
1483: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1484: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1485: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1486: RAISE OKL_API.G_EXCEPTION_ERROR;
1487: END IF;
1488: ELSIF (lv_source_object_code = 'OKL_LEASE_APP') THEN
1489: handle_leaseapp_contract (p_api_version => p_api_version,
1482: x_msg_data => x_msg_data);
1483: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1484: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1485: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1486: RAISE OKL_API.G_EXCEPTION_ERROR;
1487: END IF;
1488: ELSIF (lv_source_object_code = 'OKL_LEASE_APP') THEN
1489: handle_leaseapp_contract (p_api_version => p_api_version,
1490: p_init_msg_list => p_init_msg_list,
1492: p_leaseapp_id => ln_source_object_id,
1493: x_return_status => x_return_status,
1494: x_msg_count => x_msg_count,
1495: x_msg_data => x_msg_data);
1496: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1497: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1498: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1499: RAISE OKL_API.G_EXCEPTION_ERROR;
1500: END IF;
1493: x_return_status => x_return_status,
1494: x_msg_count => x_msg_count,
1495: x_msg_data => x_msg_data);
1496: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1497: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1498: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1499: RAISE OKL_API.G_EXCEPTION_ERROR;
1500: END IF;
1501: END IF;
1494: x_msg_count => x_msg_count,
1495: x_msg_data => x_msg_data);
1496: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1497: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1498: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1499: RAISE OKL_API.G_EXCEPTION_ERROR;
1500: END IF;
1501: END IF;
1502:
1495: x_msg_data => x_msg_data);
1496: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1497: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1498: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1499: RAISE OKL_API.G_EXCEPTION_ERROR;
1500: END IF;
1501: END IF;
1502:
1503: x_return_status := G_RET_STS_SUCCESS;
1502:
1503: x_return_status := G_RET_STS_SUCCESS;
1504: EXCEPTION
1505:
1506: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1507:
1508: x_return_status := G_RET_STS_ERROR;
1509:
1510: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1506: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1507:
1508: x_return_status := G_RET_STS_ERROR;
1509:
1510: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1511:
1512: x_return_status := G_RET_STS_UNEXP_ERROR;
1513:
1514: WHEN OTHERS THEN
1512: x_return_status := G_RET_STS_UNEXP_ERROR;
1513:
1514: WHEN OTHERS THEN
1515:
1516: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1517: p_msg_name => G_DB_ERROR,
1518: p_token1 => G_PROG_NAME_TOKEN,
1519: p_token1_value => l_api_name,
1520: p_token2 => G_SQLCODE_TOKEN,
1608: ,x_max_usage_qte_id => ln_lop_pool_usage_quote
1609: ,x_max_usage_amt => ln_lop_pool_usage_amount
1610: ,x_return_Status => x_return_Status );
1611:
1612: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1613: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1614: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1615: RAISE OKL_API.G_EXCEPTION_ERROR;
1616: END IF;
1609: ,x_max_usage_amt => ln_lop_pool_usage_amount
1610: ,x_return_Status => x_return_Status );
1611:
1612: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1613: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1614: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1615: RAISE OKL_API.G_EXCEPTION_ERROR;
1616: END IF;
1617: ELSE
1610: ,x_return_Status => x_return_Status );
1611:
1612: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1613: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1614: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1615: RAISE OKL_API.G_EXCEPTION_ERROR;
1616: END IF;
1617: ELSE
1618: ln_lop_pool_usage_quote := null;
1611:
1612: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1613: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1614: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1615: RAISE OKL_API.G_EXCEPTION_ERROR;
1616: END IF;
1617: ELSE
1618: ln_lop_pool_usage_quote := null;
1619: ln_lop_pool_usage_amount := null;
1628: ,x_max_usage_qte_id => ln_lap_pool_usage_quote
1629: ,x_max_usage_amt => ln_lap_pool_usage_amount
1630: ,x_return_Status => x_return_Status );
1631:
1632: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1633: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1634: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1635: RAISE OKL_API.G_EXCEPTION_ERROR;
1636: END IF;
1629: ,x_max_usage_amt => ln_lap_pool_usage_amount
1630: ,x_return_Status => x_return_Status );
1631:
1632: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1633: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1634: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1635: RAISE OKL_API.G_EXCEPTION_ERROR;
1636: END IF;
1637:
1630: ,x_return_Status => x_return_Status );
1631:
1632: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1633: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1634: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1635: RAISE OKL_API.G_EXCEPTION_ERROR;
1636: END IF;
1637:
1638: -- get the maximum of the subsidy pool usage among approved quotes of linked
1631:
1632: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1633: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1634: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1635: RAISE OKL_API.G_EXCEPTION_ERROR;
1636: END IF;
1637:
1638: -- get the maximum of the subsidy pool usage among approved quotes of linked
1639: --lop, accepted quote and Credit Recommendation offers of linked laps and this
1702: p_source_object_code => p_parent_object_code,
1703: p_quote_id => ln_trans_quote,
1704: p_subsidy_pool_id => l_get_leaseapp_pool_values.subsidy_pool_id,
1705: p_transaction_reason => p_transaction_reason);
1706: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1707: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1708: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1709: RAISE OKL_API.G_EXCEPTION_ERROR;
1710: END IF;
1703: p_quote_id => ln_trans_quote,
1704: p_subsidy_pool_id => l_get_leaseapp_pool_values.subsidy_pool_id,
1705: p_transaction_reason => p_transaction_reason);
1706: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1707: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1708: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1709: RAISE OKL_API.G_EXCEPTION_ERROR;
1710: END IF;
1711: ELSE
1704: p_subsidy_pool_id => l_get_leaseapp_pool_values.subsidy_pool_id,
1705: p_transaction_reason => p_transaction_reason);
1706: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1707: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1708: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1709: RAISE OKL_API.G_EXCEPTION_ERROR;
1710: END IF;
1711: ELSE
1712: IF (lb_this_quote_max_amount) THEN
1705: p_transaction_reason => p_transaction_reason);
1706: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1707: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1708: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1709: RAISE OKL_API.G_EXCEPTION_ERROR;
1710: END IF;
1711: ELSE
1712: IF (lb_this_quote_max_amount) THEN
1713: -- dbms_output.put_line('This Quote Max Amount .. ');
1740: x_msg_count => x_msg_count,
1741: x_msg_data => x_msg_data,
1742: p_sixv_tbl => l_sub_pool_tbl,
1743: x_sixv_tbl => lx_subpool_tbl);
1744: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1745: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1746: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1747: RAISE OKL_API.G_EXCEPTION_ERROR;
1748: END IF;
1741: x_msg_data => x_msg_data,
1742: p_sixv_tbl => l_sub_pool_tbl,
1743: x_sixv_tbl => lx_subpool_tbl);
1744: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1745: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1746: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1747: RAISE OKL_API.G_EXCEPTION_ERROR;
1748: END IF;
1749: END IF;
1742: p_sixv_tbl => l_sub_pool_tbl,
1743: x_sixv_tbl => lx_subpool_tbl);
1744: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1745: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1746: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1747: RAISE OKL_API.G_EXCEPTION_ERROR;
1748: END IF;
1749: END IF;
1750:
1743: x_sixv_tbl => lx_subpool_tbl);
1744: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1745: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1746: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1747: RAISE OKL_API.G_EXCEPTION_ERROR;
1748: END IF;
1749: END IF;
1750:
1751: -- Delete the Quote usage data for this Subsidy pool
1755: x_msg_count => x_msg_count,
1756: x_msg_data => x_msg_data,
1757: p_subsidy_pool_id => l_get_leaseapp_pool_values.subsidy_pool_id,
1758: p_source_object_id => ln_rollback_quote);
1759: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1760: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1761: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1762: RAISE OKL_API.G_EXCEPTION_ERROR;
1763: END IF;
1756: x_msg_data => x_msg_data,
1757: p_subsidy_pool_id => l_get_leaseapp_pool_values.subsidy_pool_id,
1758: p_source_object_id => ln_rollback_quote);
1759: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1760: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1761: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1762: RAISE OKL_API.G_EXCEPTION_ERROR;
1763: END IF;
1764:
1757: p_subsidy_pool_id => l_get_leaseapp_pool_values.subsidy_pool_id,
1758: p_source_object_id => ln_rollback_quote);
1759: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1760: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1761: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1762: RAISE OKL_API.G_EXCEPTION_ERROR;
1763: END IF;
1764:
1765: -- Reduce this quote amount from pool balance
1758: p_source_object_id => ln_rollback_quote);
1759: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1760: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1761: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1762: RAISE OKL_API.G_EXCEPTION_ERROR;
1763: END IF;
1764:
1765: -- Reduce this quote amount from pool balance
1766: create_subpool_trx_and_usage(p_api_version => p_api_version,
1771: p_source_object_code => p_parent_object_code,
1772: p_quote_id => ln_trans_quote,
1773: p_subsidy_pool_id => l_get_leaseapp_pool_values.subsidy_pool_id,
1774: p_transaction_reason => p_transaction_reason);
1775: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1776: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1777: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1778: RAISE OKL_API.G_EXCEPTION_ERROR;
1779: END IF;
1772: p_quote_id => ln_trans_quote,
1773: p_subsidy_pool_id => l_get_leaseapp_pool_values.subsidy_pool_id,
1774: p_transaction_reason => p_transaction_reason);
1775: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1776: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1777: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1778: RAISE OKL_API.G_EXCEPTION_ERROR;
1779: END IF;
1780:
1773: p_subsidy_pool_id => l_get_leaseapp_pool_values.subsidy_pool_id,
1774: p_transaction_reason => p_transaction_reason);
1775: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1776: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1777: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1778: RAISE OKL_API.G_EXCEPTION_ERROR;
1779: END IF;
1780:
1781: ELSE
1774: p_transaction_reason => p_transaction_reason);
1775: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1776: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1777: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1778: RAISE OKL_API.G_EXCEPTION_ERROR;
1779: END IF;
1780:
1781: ELSE
1782: -- dbms_output.put_line('Initial Record doesnt exist, so creating fresh trans .. ');
1788: p_source_object_code => p_parent_object_code,
1789: p_quote_id => ln_trans_quote,
1790: p_subsidy_pool_id => l_get_leaseapp_pool_values.subsidy_pool_id,
1791: p_transaction_reason => p_transaction_reason);
1792: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1793: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1794: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1795: RAISE OKL_API.G_EXCEPTION_ERROR;
1796: END IF;
1789: p_quote_id => ln_trans_quote,
1790: p_subsidy_pool_id => l_get_leaseapp_pool_values.subsidy_pool_id,
1791: p_transaction_reason => p_transaction_reason);
1792: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1793: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1794: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1795: RAISE OKL_API.G_EXCEPTION_ERROR;
1796: END IF;
1797: END IF;
1790: p_subsidy_pool_id => l_get_leaseapp_pool_values.subsidy_pool_id,
1791: p_transaction_reason => p_transaction_reason);
1792: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1793: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1794: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1795: RAISE OKL_API.G_EXCEPTION_ERROR;
1796: END IF;
1797: END IF;
1798: END IF;
1791: p_transaction_reason => p_transaction_reason);
1792: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1793: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1794: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1795: RAISE OKL_API.G_EXCEPTION_ERROR;
1796: END IF;
1797: END IF;
1798: END IF;
1799: END IF;
1802:
1803: x_return_status := G_RET_STS_SUCCESS;
1804: EXCEPTION
1805:
1806: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1807:
1808: x_return_status := G_RET_STS_ERROR;
1809:
1810: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1806: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1807:
1808: x_return_status := G_RET_STS_ERROR;
1809:
1810: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1811:
1812: x_return_status := G_RET_STS_UNEXP_ERROR;
1813:
1814: WHEN OTHERS THEN
1812: x_return_status := G_RET_STS_UNEXP_ERROR;
1813:
1814: WHEN OTHERS THEN
1815:
1816: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1817: p_msg_name => G_DB_ERROR,
1818: p_token1 => G_PROG_NAME_TOKEN,
1819: p_token1_value => l_api_name,
1820: p_token2 => G_SQLCODE_TOKEN,
1951: x_msg_count => x_msg_count,
1952: x_msg_data => x_msg_data,
1953: p_sixv_tbl => l_sub_pool_tbl,
1954: x_sixv_tbl => lx_subpool_tbl);
1955: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1956: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1957: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1958: RAISE OKL_API.G_EXCEPTION_ERROR;
1959: END IF;
1952: x_msg_data => x_msg_data,
1953: p_sixv_tbl => l_sub_pool_tbl,
1954: x_sixv_tbl => lx_subpool_tbl);
1955: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1956: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1957: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1958: RAISE OKL_API.G_EXCEPTION_ERROR;
1959: END IF;
1960: END IF;
1953: p_sixv_tbl => l_sub_pool_tbl,
1954: x_sixv_tbl => lx_subpool_tbl);
1955: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1956: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1957: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1958: RAISE OKL_API.G_EXCEPTION_ERROR;
1959: END IF;
1960: END IF;
1961:
1954: x_sixv_tbl => lx_subpool_tbl);
1955: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1956: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1957: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1958: RAISE OKL_API.G_EXCEPTION_ERROR;
1959: END IF;
1960: END IF;
1961:
1962: -- Delete the Quote usage data for this Subsidy pool
1966: x_msg_count => x_msg_count,
1967: x_msg_data => x_msg_data,
1968: p_subsidy_pool_id => l_get_leaseapp_pool_values.subsidy_pool_id,
1969: p_source_object_id => l_quote_id);
1970: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1971: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1972: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1973: RAISE OKL_API.G_EXCEPTION_ERROR;
1974: END IF;
1967: x_msg_data => x_msg_data,
1968: p_subsidy_pool_id => l_get_leaseapp_pool_values.subsidy_pool_id,
1969: p_source_object_id => l_quote_id);
1970: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1971: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1972: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1973: RAISE OKL_API.G_EXCEPTION_ERROR;
1974: END IF;
1975:
1968: p_subsidy_pool_id => l_get_leaseapp_pool_values.subsidy_pool_id,
1969: p_source_object_id => l_quote_id);
1970: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1971: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1972: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1973: RAISE OKL_API.G_EXCEPTION_ERROR;
1974: END IF;
1975:
1976: --if the Lease Application is created from a Quote
1969: p_source_object_id => l_quote_id);
1970: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1971: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1972: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1973: RAISE OKL_API.G_EXCEPTION_ERROR;
1974: END IF;
1975:
1976: --if the Lease Application is created from a Quote
1977: IF (lv_leaseopp_quote = 'Y') THEN
1983: ,x_max_usage_qte_id => l_lop_max_usage_qte_id
1984: ,x_max_usage_amt => l_lop_max_subsidy_amount
1985: ,x_return_Status => x_return_Status
1986: );
1987: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1988: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1989: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1990: RAISE OKL_API.G_EXCEPTION_ERROR;
1991: END IF;
1984: ,x_max_usage_amt => l_lop_max_subsidy_amount
1985: ,x_return_Status => x_return_Status
1986: );
1987: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1988: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1989: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1990: RAISE OKL_API.G_EXCEPTION_ERROR;
1991: END IF;
1992: ELSE
1985: ,x_return_Status => x_return_Status
1986: );
1987: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1988: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1989: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1990: RAISE OKL_API.G_EXCEPTION_ERROR;
1991: END IF;
1992: ELSE
1993: l_lop_max_usage_qte_id := null;
1986: );
1987: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1988: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1989: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1990: RAISE OKL_API.G_EXCEPTION_ERROR;
1991: END IF;
1992: ELSE
1993: l_lop_max_usage_qte_id := null;
1994: l_lop_max_subsidy_amount := null;
2005: ,x_return_Status => x_return_Status );
2006:
2007: -- dbms_output.put_line('##l_lap_max_usage_qte_id '|| l_lap_max_usage_qte_id);
2008: -- dbms_output.put_line('##l_lap_max_subsidy_amount '||l_lap_max_subsidy_amount);
2009: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2010: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2011: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2012: RAISE OKL_API.G_EXCEPTION_ERROR;
2013: END IF;
2006:
2007: -- dbms_output.put_line('##l_lap_max_usage_qte_id '|| l_lap_max_usage_qte_id);
2008: -- dbms_output.put_line('##l_lap_max_subsidy_amount '||l_lap_max_subsidy_amount);
2009: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2010: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2011: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2012: RAISE OKL_API.G_EXCEPTION_ERROR;
2013: END IF;
2014: --debug_proc('l_lap_max_usage_qte_id = '||l_lap_max_usage_qte_id);
2007: -- dbms_output.put_line('##l_lap_max_usage_qte_id '|| l_lap_max_usage_qte_id);
2008: -- dbms_output.put_line('##l_lap_max_subsidy_amount '||l_lap_max_subsidy_amount);
2009: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2010: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2011: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2012: RAISE OKL_API.G_EXCEPTION_ERROR;
2013: END IF;
2014: --debug_proc('l_lap_max_usage_qte_id = '||l_lap_max_usage_qte_id);
2015: --debug_proc('l_lap_max_subsidy_amount = '||l_lap_max_subsidy_amount);
2008: -- dbms_output.put_line('##l_lap_max_subsidy_amount '||l_lap_max_subsidy_amount);
2009: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2010: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2011: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2012: RAISE OKL_API.G_EXCEPTION_ERROR;
2013: END IF;
2014: --debug_proc('l_lap_max_usage_qte_id = '||l_lap_max_usage_qte_id);
2015: --debug_proc('l_lap_max_subsidy_amount = '||l_lap_max_subsidy_amount);
2016:
2046: p_source_object_code => p_parent_object_code,
2047: p_quote_id => l_max_usage_qte_id,
2048: p_subsidy_pool_id => l_get_leaseapp_pool_values.subsidy_pool_id,
2049: p_transaction_reason => 'APPROVE_QUOTE'); -- Fix for bug 4997538
2050: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2051: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2052: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2053: RAISE OKL_API.G_EXCEPTION_ERROR;
2054: END IF;
2047: p_quote_id => l_max_usage_qte_id,
2048: p_subsidy_pool_id => l_get_leaseapp_pool_values.subsidy_pool_id,
2049: p_transaction_reason => 'APPROVE_QUOTE'); -- Fix for bug 4997538
2050: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2051: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2052: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2053: RAISE OKL_API.G_EXCEPTION_ERROR;
2054: END IF;
2055: END IF;
2048: p_subsidy_pool_id => l_get_leaseapp_pool_values.subsidy_pool_id,
2049: p_transaction_reason => 'APPROVE_QUOTE'); -- Fix for bug 4997538
2050: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2051: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2052: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2053: RAISE OKL_API.G_EXCEPTION_ERROR;
2054: END IF;
2055: END IF;
2056: END IF;
2049: p_transaction_reason => 'APPROVE_QUOTE'); -- Fix for bug 4997538
2050: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2051: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2052: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2053: RAISE OKL_API.G_EXCEPTION_ERROR;
2054: END IF;
2055: END IF;
2056: END IF;
2057: END LOOP;
2058:
2059: x_return_status := G_RET_STS_SUCCESS;
2060: EXCEPTION
2061:
2062: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2063:
2064: x_return_status := G_RET_STS_ERROR;
2065:
2066: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2062: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2063:
2064: x_return_status := G_RET_STS_ERROR;
2065:
2066: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2067:
2068: x_return_status := G_RET_STS_UNEXP_ERROR;
2069:
2070: WHEN OTHERS THEN
2068: x_return_status := G_RET_STS_UNEXP_ERROR;
2069:
2070: WHEN OTHERS THEN
2071:
2072: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
2073: p_msg_name => G_DB_ERROR,
2074: p_token1 => G_PROG_NAME_TOKEN,
2075: p_token1_value => l_api_name,
2076: p_token2 => G_SQLCODE_TOKEN,
2150: x_msg_count => x_msg_count,
2151: x_msg_data => x_msg_data,
2152: p_sixv_tbl => l_sub_pool_tbl,
2153: x_sixv_tbl => lx_subpool_tbl);
2154: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2155: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2156: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2157: RAISE OKL_API.G_EXCEPTION_ERROR;
2158: END IF;
2151: x_msg_data => x_msg_data,
2152: p_sixv_tbl => l_sub_pool_tbl,
2153: x_sixv_tbl => lx_subpool_tbl);
2154: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2155: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2156: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2157: RAISE OKL_API.G_EXCEPTION_ERROR;
2158: END IF;
2159: END IF;
2152: p_sixv_tbl => l_sub_pool_tbl,
2153: x_sixv_tbl => lx_subpool_tbl);
2154: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2155: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2156: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2157: RAISE OKL_API.G_EXCEPTION_ERROR;
2158: END IF;
2159: END IF;
2160:
2153: x_sixv_tbl => lx_subpool_tbl);
2154: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2155: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2156: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2157: RAISE OKL_API.G_EXCEPTION_ERROR;
2158: END IF;
2159: END IF;
2160:
2161: -- Delete the Quote usage data for this Subsidy pool
2165: x_msg_count => x_msg_count,
2166: x_msg_data => x_msg_data,
2167: p_subsidy_pool_id => l_get_leaseapp_pool_values.subsidy_pool_id,
2168: p_source_object_id => l_get_leaseapp_pool_values.quote_id);
2169: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2170: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2171: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2172: RAISE OKL_API.G_EXCEPTION_ERROR;
2173: END IF;
2166: x_msg_data => x_msg_data,
2167: p_subsidy_pool_id => l_get_leaseapp_pool_values.subsidy_pool_id,
2168: p_source_object_id => l_get_leaseapp_pool_values.quote_id);
2169: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2170: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2171: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2172: RAISE OKL_API.G_EXCEPTION_ERROR;
2173: END IF;
2174: END LOOP;
2167: p_subsidy_pool_id => l_get_leaseapp_pool_values.subsidy_pool_id,
2168: p_source_object_id => l_get_leaseapp_pool_values.quote_id);
2169: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2170: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2171: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2172: RAISE OKL_API.G_EXCEPTION_ERROR;
2173: END IF;
2174: END LOOP;
2175: END IF;
2168: p_source_object_id => l_get_leaseapp_pool_values.quote_id);
2169: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2170: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2171: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2172: RAISE OKL_API.G_EXCEPTION_ERROR;
2173: END IF;
2174: END LOOP;
2175: END IF;
2176:
2176:
2177: x_return_status := G_RET_STS_SUCCESS;
2178: EXCEPTION
2179:
2180: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2181:
2182: x_return_status := G_RET_STS_ERROR;
2183:
2184: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2180: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2181:
2182: x_return_status := G_RET_STS_ERROR;
2183:
2184: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2185:
2186: x_return_status := G_RET_STS_UNEXP_ERROR;
2187:
2188: WHEN OTHERS THEN
2186: x_return_status := G_RET_STS_UNEXP_ERROR;
2187:
2188: WHEN OTHERS THEN
2189:
2190: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
2191: p_msg_name => G_DB_ERROR,
2192: p_token1 => G_PROG_NAME_TOKEN,
2193: p_token1_value => l_api_name,
2194: p_token2 => G_SQLCODE_TOKEN,
2322: x_msg_count => x_msg_count,
2323: x_msg_data => x_msg_data,
2324: p_sixv_tbl => l_sub_pool_tbl,
2325: x_sixv_tbl => lx_subpool_tbl);
2326: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2327: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2328: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2329: RAISE OKL_API.G_EXCEPTION_ERROR;
2330: END IF;
2323: x_msg_data => x_msg_data,
2324: p_sixv_tbl => l_sub_pool_tbl,
2325: x_sixv_tbl => lx_subpool_tbl);
2326: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2327: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2328: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2329: RAISE OKL_API.G_EXCEPTION_ERROR;
2330: END IF;
2331: END IF;
2324: p_sixv_tbl => l_sub_pool_tbl,
2325: x_sixv_tbl => lx_subpool_tbl);
2326: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2327: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2328: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2329: RAISE OKL_API.G_EXCEPTION_ERROR;
2330: END IF;
2331: END IF;
2332:
2325: x_sixv_tbl => lx_subpool_tbl);
2326: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2327: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2328: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2329: RAISE OKL_API.G_EXCEPTION_ERROR;
2330: END IF;
2331: END IF;
2332:
2333: -- Delete the Quote usage data for this Subsidy pool
2337: x_msg_count => x_msg_count,
2338: x_msg_data => x_msg_data,
2339: p_subsidy_pool_id => l_get_leaseapp_pool_values.subsidy_pool_id,
2340: p_source_object_id => l_get_leaseapp_pool_values.quote_id);
2341: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2342: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2343: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2344: RAISE OKL_API.G_EXCEPTION_ERROR;
2345: END IF;
2338: x_msg_data => x_msg_data,
2339: p_subsidy_pool_id => l_get_leaseapp_pool_values.subsidy_pool_id,
2340: p_source_object_id => l_get_leaseapp_pool_values.quote_id);
2341: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2342: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2343: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2344: RAISE OKL_API.G_EXCEPTION_ERROR;
2345: END IF;
2346:
2339: p_subsidy_pool_id => l_get_leaseapp_pool_values.subsidy_pool_id,
2340: p_source_object_id => l_get_leaseapp_pool_values.quote_id);
2341: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2342: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2343: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2344: RAISE OKL_API.G_EXCEPTION_ERROR;
2345: END IF;
2346:
2347: -- Check if the Lease Application is created from a Quote
2340: p_source_object_id => l_get_leaseapp_pool_values.quote_id);
2341: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2342: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2343: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2344: RAISE OKL_API.G_EXCEPTION_ERROR;
2345: END IF;
2346:
2347: -- Check if the Lease Application is created from a Quote
2348: lv_leaseopp_quote := check_leaseopp_quote (p_lease_app_id => p_parent_object_id,
2358: ,x_max_usage_qte_id => l_lop_max_usage_qte_id
2359: ,x_max_usage_amt => l_lop_max_subsidy_amount
2360: ,x_return_Status => x_return_Status
2361: );
2362: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2363: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2364: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2365: RAISE OKL_API.G_EXCEPTION_ERROR;
2366: END IF;
2359: ,x_max_usage_amt => l_lop_max_subsidy_amount
2360: ,x_return_Status => x_return_Status
2361: );
2362: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2363: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2364: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2365: RAISE OKL_API.G_EXCEPTION_ERROR;
2366: END IF;
2367: ELSE
2360: ,x_return_Status => x_return_Status
2361: );
2362: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2363: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2364: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2365: RAISE OKL_API.G_EXCEPTION_ERROR;
2366: END IF;
2367: ELSE
2368: l_lop_max_usage_qte_id := null;
2361: );
2362: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2363: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2364: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2365: RAISE OKL_API.G_EXCEPTION_ERROR;
2366: END IF;
2367: ELSE
2368: l_lop_max_usage_qte_id := null;
2369: l_lop_max_subsidy_amount := null;
2377: ,x_max_usage_qte_id => l_lap_max_usage_qte_id
2378: ,x_max_usage_amt => l_lap_max_subsidy_amount
2379: ,x_return_Status => x_return_Status
2380: );
2381: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2382: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2383: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2384: RAISE OKL_API.G_EXCEPTION_ERROR;
2385: END IF;
2378: ,x_max_usage_amt => l_lap_max_subsidy_amount
2379: ,x_return_Status => x_return_Status
2380: );
2381: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2382: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2383: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2384: RAISE OKL_API.G_EXCEPTION_ERROR;
2385: END IF;
2386: l_other_usage := true;
2379: ,x_return_Status => x_return_Status
2380: );
2381: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2382: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2383: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2384: RAISE OKL_API.G_EXCEPTION_ERROR;
2385: END IF;
2386: l_other_usage := true;
2387: -- dbms_output.put_line('Next Highest Impact Quote '||l_lap_max_usage_qte_id);
2380: );
2381: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2382: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2383: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2384: RAISE OKL_API.G_EXCEPTION_ERROR;
2385: END IF;
2386: l_other_usage := true;
2387: -- dbms_output.put_line('Next Highest Impact Quote '||l_lap_max_usage_qte_id);
2388: -- dbms_output.put_line('Next Highest Impact Amount '||l_lap_max_subsidy_amount);
2420: p_source_object_code => p_parent_object_code,
2421: p_quote_id => l_max_usage_qte_id,
2422: p_subsidy_pool_id => l_get_leaseapp_pool_values.subsidy_pool_id,
2423: p_transaction_reason => 'APPROVE_QUOTE'); -- Fix for bug 4997538
2424: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2425: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2426: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2427: RAISE OKL_API.G_EXCEPTION_ERROR;
2428: END IF;
2421: p_quote_id => l_max_usage_qte_id,
2422: p_subsidy_pool_id => l_get_leaseapp_pool_values.subsidy_pool_id,
2423: p_transaction_reason => 'APPROVE_QUOTE'); -- Fix for bug 4997538
2424: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2425: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2426: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2427: RAISE OKL_API.G_EXCEPTION_ERROR;
2428: END IF;
2429: END IF;
2422: p_subsidy_pool_id => l_get_leaseapp_pool_values.subsidy_pool_id,
2423: p_transaction_reason => 'APPROVE_QUOTE'); -- Fix for bug 4997538
2424: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2425: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2426: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2427: RAISE OKL_API.G_EXCEPTION_ERROR;
2428: END IF;
2429: END IF;
2430: END IF;
2423: p_transaction_reason => 'APPROVE_QUOTE'); -- Fix for bug 4997538
2424: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2425: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2426: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2427: RAISE OKL_API.G_EXCEPTION_ERROR;
2428: END IF;
2429: END IF;
2430: END IF;
2431: END LOOP;
2432: END LOOP;
2433: x_return_status := G_RET_STS_SUCCESS;
2434: EXCEPTION
2435:
2436: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2437:
2438: x_return_status := G_RET_STS_ERROR;
2439:
2440: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2436: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2437:
2438: x_return_status := G_RET_STS_ERROR;
2439:
2440: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2441:
2442: x_return_status := G_RET_STS_UNEXP_ERROR;
2443:
2444: WHEN OTHERS THEN
2442: x_return_status := G_RET_STS_UNEXP_ERROR;
2443:
2444: WHEN OTHERS THEN
2445:
2446: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
2447: p_msg_name => G_DB_ERROR,
2448: p_token1 => G_PROG_NAME_TOKEN,
2449: p_token1_value => l_api_name,
2450: p_token2 => G_SQLCODE_TOKEN,
2583: WHERE ID = p_quote_id;
2584: --debug_proc('Quote: '||lv_reference_number);
2585:
2586: IF (lv_status_code = 'PR-APPROVED') THEN
2587: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
2588: p_msg_name => 'OKL_INVALID_SUBPOOL_TRANS',
2589: p_token1 => 'EVENT',
2590: p_token1_value => p_transaction_reason,
2591: p_token3 => 'OBJECT_NAME',
2589: p_token1 => 'EVENT',
2590: p_token1_value => p_transaction_reason,
2591: p_token3 => 'OBJECT_NAME',
2592: p_token3_value => lv_reference_number);
2593: RAISE OKL_API.G_EXCEPTION_ERROR;
2594: END IF;
2595:
2596: FOR l_get_quote_pool_values IN c_get_quote_pool_values LOOP
2597: --debug_proc(' l_get_quote_pool_values.subsidy_pool_id = '||l_get_quote_pool_values.subsidy_pool_id);
2648: x_msg_count => x_msg_count,
2649: x_msg_data => x_msg_data,
2650: p_sixv_tbl => l_sub_pool_tbl,
2651: x_sixv_tbl => lx_subpool_tbl);
2652: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2653: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2654: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2655: RAISE OKL_API.G_EXCEPTION_ERROR;
2656: END IF;
2649: x_msg_data => x_msg_data,
2650: p_sixv_tbl => l_sub_pool_tbl,
2651: x_sixv_tbl => lx_subpool_tbl);
2652: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2653: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2654: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2655: RAISE OKL_API.G_EXCEPTION_ERROR;
2656: END IF;
2657: END IF;
2650: p_sixv_tbl => l_sub_pool_tbl,
2651: x_sixv_tbl => lx_subpool_tbl);
2652: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2653: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2654: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2655: RAISE OKL_API.G_EXCEPTION_ERROR;
2656: END IF;
2657: END IF;
2658:
2651: x_sixv_tbl => lx_subpool_tbl);
2652: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2653: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2654: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2655: RAISE OKL_API.G_EXCEPTION_ERROR;
2656: END IF;
2657: END IF;
2658:
2659: -- Delete the Quote usage data for this Subsidy pool
2663: x_msg_count => x_msg_count,
2664: x_msg_data => x_msg_data,
2665: p_subsidy_pool_id => l_get_quote_pool_values.subsidy_pool_id,
2666: p_source_object_id => p_quote_id);
2667: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2668: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2669: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2670: RAISE OKL_API.G_EXCEPTION_ERROR;
2671: END IF;
2664: x_msg_data => x_msg_data,
2665: p_subsidy_pool_id => l_get_quote_pool_values.subsidy_pool_id,
2666: p_source_object_id => p_quote_id);
2667: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2668: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2669: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2670: RAISE OKL_API.G_EXCEPTION_ERROR;
2671: END IF;
2672:
2665: p_subsidy_pool_id => l_get_quote_pool_values.subsidy_pool_id,
2666: p_source_object_id => p_quote_id);
2667: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2668: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2669: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2670: RAISE OKL_API.G_EXCEPTION_ERROR;
2671: END IF;
2672:
2673: -- Fetch the new highest subsidy pool impact for the 'APPROVED' lease
2666: p_source_object_id => p_quote_id);
2667: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2668: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2669: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2670: RAISE OKL_API.G_EXCEPTION_ERROR;
2671: END IF;
2672:
2673: -- Fetch the new highest subsidy pool impact for the 'APPROVED' lease
2674: -- quotes other than the present quote
2699: p_source_object_code => p_parent_object_code,
2700: p_quote_id => ln_next_max_sp_amount_quote_id,
2701: p_subsidy_pool_id => l_get_quote_pool_values.subsidy_pool_id,
2702: p_transaction_reason => 'APPROVE_QUOTE'); -- Fix for bug 4997538
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_quote_id => ln_next_max_sp_amount_quote_id,
2701: p_subsidy_pool_id => l_get_quote_pool_values.subsidy_pool_id,
2702: p_transaction_reason => 'APPROVE_QUOTE'); -- Fix for bug 4997538
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: END IF;
2701: p_subsidy_pool_id => l_get_quote_pool_values.subsidy_pool_id,
2702: p_transaction_reason => 'APPROVE_QUOTE'); -- Fix for bug 4997538
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: END IF;
2709:
2702: p_transaction_reason => 'APPROVE_QUOTE'); -- Fix for bug 4997538
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: END IF;
2709:
2710: END IF;
2713:
2714: x_return_status := G_RET_STS_SUCCESS;
2715: EXCEPTION
2716:
2717: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2718:
2719: x_return_status := G_RET_STS_ERROR;
2720:
2721: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2717: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2718:
2719: x_return_status := G_RET_STS_ERROR;
2720:
2721: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2722:
2723: x_return_status := G_RET_STS_UNEXP_ERROR;
2724:
2725: WHEN OTHERS THEN
2723: x_return_status := G_RET_STS_UNEXP_ERROR;
2724:
2725: WHEN OTHERS THEN
2726:
2727: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
2728: p_msg_name => G_DB_ERROR,
2729: p_token1 => G_PROG_NAME_TOKEN,
2730: p_token1_value => l_api_name,
2731: p_token2 => G_SQLCODE_TOKEN,
2783: p_parent_object_code => lv_parent_object_code,
2784: x_return_status => x_return_status,
2785: x_msg_count => x_msg_count,
2786: x_msg_data => x_msg_data);
2787: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2788: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2789: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2790: RAISE OKL_API.G_EXCEPTION_ERROR;
2791: END IF;
2784: x_return_status => x_return_status,
2785: x_msg_count => x_msg_count,
2786: x_msg_data => x_msg_data);
2787: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2788: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2789: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2790: RAISE OKL_API.G_EXCEPTION_ERROR;
2791: END IF;
2792: ELSIF (p_transaction_reason = 'UPDATE_APPROVED_QUOTE') THEN -- OR p_transaction_reason = 'EXPIRE_QUOTE')
2785: x_msg_count => x_msg_count,
2786: x_msg_data => x_msg_data);
2787: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2788: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2789: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2790: RAISE OKL_API.G_EXCEPTION_ERROR;
2791: END IF;
2792: ELSIF (p_transaction_reason = 'UPDATE_APPROVED_QUOTE') THEN -- OR p_transaction_reason = 'EXPIRE_QUOTE')
2793: -- Transaction --> 'UPDATE_APPROVED_QUOTE', 'EXPIRE_QUOTE'
2786: x_msg_data => x_msg_data);
2787: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2788: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2789: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2790: RAISE OKL_API.G_EXCEPTION_ERROR;
2791: END IF;
2792: ELSIF (p_transaction_reason = 'UPDATE_APPROVED_QUOTE') THEN -- OR p_transaction_reason = 'EXPIRE_QUOTE')
2793: -- Transaction --> 'UPDATE_APPROVED_QUOTE', 'EXPIRE_QUOTE'
2794: --debug_proc('UPDATE_APPROVED_QUOTE p_quote_id ='||p_quote_id);
2800: p_parent_object_code => lv_parent_object_code,
2801: x_return_status => x_return_status,
2802: x_msg_count => x_msg_count,
2803: x_msg_data => x_msg_data);
2804: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2805: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2806: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2807: RAISE OKL_API.G_EXCEPTION_ERROR;
2808: END IF;
2801: x_return_status => x_return_status,
2802: x_msg_count => x_msg_count,
2803: x_msg_data => x_msg_data);
2804: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2805: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2806: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2807: RAISE OKL_API.G_EXCEPTION_ERROR;
2808: END IF;
2809: END IF;
2802: x_msg_count => x_msg_count,
2803: x_msg_data => x_msg_data);
2804: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2805: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2806: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2807: RAISE OKL_API.G_EXCEPTION_ERROR;
2808: END IF;
2809: END IF;
2810:
2803: x_msg_data => x_msg_data);
2804: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2805: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2806: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2807: RAISE OKL_API.G_EXCEPTION_ERROR;
2808: END IF;
2809: END IF;
2810:
2811: x_return_status := G_RET_STS_SUCCESS;
2811: x_return_status := G_RET_STS_SUCCESS;
2812:
2813: EXCEPTION
2814:
2815: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2816:
2817: IF p_transaction_control = G_TRUE THEN
2818: ROLLBACK TO l_program_name;
2819: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2820: END IF;
2821:
2822: x_return_status := G_RET_STS_ERROR;
2823:
2824: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2825:
2826: IF p_transaction_control = G_TRUE THEN
2827: ROLLBACK TO l_program_name;
2828: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2831: x_return_status := G_RET_STS_UNEXP_ERROR;
2832:
2833: WHEN OTHERS THEN
2834:
2835: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
2836: p_msg_name => G_DB_ERROR,
2837: p_token1 => G_PROG_NAME_TOKEN,
2838: p_token1_value => l_api_name,
2839: p_token2 => G_SQLCODE_TOKEN,
2887: p_parent_object_code => 'LEASEAPP',
2888: x_return_status => x_return_status,
2889: x_msg_count => x_msg_count,
2890: x_msg_data => x_msg_data);
2891: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2892: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2893: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2894: RAISE OKL_API.G_EXCEPTION_ERROR;
2895: END IF;
2888: x_return_status => x_return_status,
2889: x_msg_count => x_msg_count,
2890: x_msg_data => x_msg_data);
2891: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2892: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2893: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2894: RAISE OKL_API.G_EXCEPTION_ERROR;
2895: END IF;
2896: ELSIF (p_transaction_reason = 'UPDATE_LEASE_APP') THEN -- Transaction --> 'UPDATE_LEASE_APP'
2889: x_msg_count => x_msg_count,
2890: x_msg_data => x_msg_data);
2891: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2892: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2893: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2894: RAISE OKL_API.G_EXCEPTION_ERROR;
2895: END IF;
2896: ELSIF (p_transaction_reason = 'UPDATE_LEASE_APP') THEN -- Transaction --> 'UPDATE_LEASE_APP'
2897: handle_leaseapp_update (p_api_version => p_api_version,
2890: x_msg_data => x_msg_data);
2891: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2892: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2893: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2894: RAISE OKL_API.G_EXCEPTION_ERROR;
2895: END IF;
2896: ELSIF (p_transaction_reason = 'UPDATE_LEASE_APP') THEN -- Transaction --> 'UPDATE_LEASE_APP'
2897: handle_leaseapp_update (p_api_version => p_api_version,
2898: p_init_msg_list => p_init_msg_list,
2902: p_quote_id => p_quote_id,
2903: x_return_status => x_return_status,
2904: x_msg_count => x_msg_count,
2905: x_msg_data => x_msg_data);
2906: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2907: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2908: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2909: RAISE OKL_API.G_EXCEPTION_ERROR;
2910: END IF;
2903: x_return_status => x_return_status,
2904: x_msg_count => x_msg_count,
2905: x_msg_data => x_msg_data);
2906: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2907: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2908: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2909: RAISE OKL_API.G_EXCEPTION_ERROR;
2910: END IF;
2911: /* ELSIF (p_transaction_reason = 'APPROVE_LEASE_APP_PRIC_OFFER') THEN -- Transaction --> 'APPROVE_LEASE_APP_PRIC_OFFER'
2904: x_msg_count => x_msg_count,
2905: x_msg_data => x_msg_data);
2906: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2907: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2908: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2909: RAISE OKL_API.G_EXCEPTION_ERROR;
2910: END IF;
2911: /* ELSIF (p_transaction_reason = 'APPROVE_LEASE_APP_PRIC_OFFER') THEN -- Transaction --> 'APPROVE_LEASE_APP_PRIC_OFFER'
2912: handle_leaseapp_price_offer (p_api_version => p_api_version,
2905: x_msg_data => x_msg_data);
2906: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2907: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2908: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2909: RAISE OKL_API.G_EXCEPTION_ERROR;
2910: END IF;
2911: /* ELSIF (p_transaction_reason = 'APPROVE_LEASE_APP_PRIC_OFFER') THEN -- Transaction --> 'APPROVE_LEASE_APP_PRIC_OFFER'
2912: handle_leaseapp_price_offer (p_api_version => p_api_version,
2913: p_init_msg_list => p_init_msg_list,
2916: p_parent_object_code => 'LEASEAPP',
2917: x_return_status => x_return_status,
2918: x_msg_count => x_msg_count,
2919: x_msg_data => x_msg_data);
2920: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2921: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2922: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2923: RAISE OKL_API.G_EXCEPTION_ERROR;
2924: END IF;
2917: x_return_status => x_return_status,
2918: x_msg_count => x_msg_count,
2919: x_msg_data => x_msg_data);
2920: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2921: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2922: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2923: RAISE OKL_API.G_EXCEPTION_ERROR;
2924: END IF;
2925: */
2918: x_msg_count => x_msg_count,
2919: x_msg_data => x_msg_data);
2920: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2921: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2922: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2923: RAISE OKL_API.G_EXCEPTION_ERROR;
2924: END IF;
2925: */
2926: ELSIF (p_transaction_reason = 'WITHDRAW_LEASE_APP') THEN -- Transaction --> 'WITHDRAW_LEASE_APP'
2919: x_msg_data => x_msg_data);
2920: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2921: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2922: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2923: RAISE OKL_API.G_EXCEPTION_ERROR;
2924: END IF;
2925: */
2926: ELSIF (p_transaction_reason = 'WITHDRAW_LEASE_APP') THEN -- Transaction --> 'WITHDRAW_LEASE_APP'
2927: handle_withdraw_leaseapp (p_api_version => p_api_version,
2932: p_quote_id => p_quote_id,
2933: x_return_status => x_return_status,
2934: x_msg_count => x_msg_count,
2935: x_msg_data => x_msg_data);
2936: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2937: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2938: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2939: RAISE OKL_API.G_EXCEPTION_ERROR;
2940: END IF;
2933: x_return_status => x_return_status,
2934: x_msg_count => x_msg_count,
2935: x_msg_data => x_msg_data);
2936: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2937: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2938: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2939: RAISE OKL_API.G_EXCEPTION_ERROR;
2940: END IF;
2941: ELSIF (p_transaction_reason = 'CANCEL_LEASE_APP') THEN -- Transaction --> 'CANCEL_LEASE_APP'
2934: x_msg_count => x_msg_count,
2935: x_msg_data => x_msg_data);
2936: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2937: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2938: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2939: RAISE OKL_API.G_EXCEPTION_ERROR;
2940: END IF;
2941: ELSIF (p_transaction_reason = 'CANCEL_LEASE_APP') THEN -- Transaction --> 'CANCEL_LEASE_APP'
2942: handle_withdraw_leaseapp (p_api_version => p_api_version,
2935: x_msg_data => x_msg_data);
2936: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2937: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2938: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2939: RAISE OKL_API.G_EXCEPTION_ERROR;
2940: END IF;
2941: ELSIF (p_transaction_reason = 'CANCEL_LEASE_APP') THEN -- Transaction --> 'CANCEL_LEASE_APP'
2942: handle_withdraw_leaseapp (p_api_version => p_api_version,
2943: p_init_msg_list => p_init_msg_list,
2947: p_quote_id => p_quote_id,
2948: x_return_status => x_return_status,
2949: x_msg_count => x_msg_count,
2950: x_msg_data => x_msg_data);
2951: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2952: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2953: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2954: RAISE OKL_API.G_EXCEPTION_ERROR;
2955: END IF;
2948: x_return_status => x_return_status,
2949: x_msg_count => x_msg_count,
2950: x_msg_data => x_msg_data);
2951: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2952: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2953: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2954: RAISE OKL_API.G_EXCEPTION_ERROR;
2955: END IF;
2956: END IF;
2949: x_msg_count => x_msg_count,
2950: x_msg_data => x_msg_data);
2951: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2952: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2953: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2954: RAISE OKL_API.G_EXCEPTION_ERROR;
2955: END IF;
2956: END IF;
2957:
2950: x_msg_data => x_msg_data);
2951: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2952: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2953: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2954: RAISE OKL_API.G_EXCEPTION_ERROR;
2955: END IF;
2956: END IF;
2957:
2958: x_return_status := G_RET_STS_SUCCESS;
2958: x_return_status := G_RET_STS_SUCCESS;
2959:
2960: EXCEPTION
2961:
2962: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2963:
2964: IF p_transaction_control = G_TRUE THEN
2965: ROLLBACK TO l_program_name;
2966: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2967: END IF;
2968:
2969: x_return_status := G_RET_STS_ERROR;
2970:
2971: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2972:
2973: IF p_transaction_control = G_TRUE THEN
2974: ROLLBACK TO l_program_name;
2975: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2978: x_return_status := G_RET_STS_UNEXP_ERROR;
2979:
2980: WHEN OTHERS THEN
2981:
2982: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
2983: p_msg_name => G_DB_ERROR,
2984: p_token1 => G_PROG_NAME_TOKEN,
2985: p_token1_value => l_api_name,
2986: p_token2 => G_SQLCODE_TOKEN,
3026: p_contract_id => p_contract_id,
3027: x_return_status => x_return_status,
3028: x_msg_count => x_msg_count,
3029: x_msg_data => x_msg_data);
3030: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3031: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3032: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3033: RAISE OKL_API.G_EXCEPTION_ERROR;
3034: END IF;
3027: x_return_status => x_return_status,
3028: x_msg_count => x_msg_count,
3029: x_msg_data => x_msg_data);
3030: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3031: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3032: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3033: RAISE OKL_API.G_EXCEPTION_ERROR;
3034: END IF;
3035:
3028: x_msg_count => x_msg_count,
3029: x_msg_data => x_msg_data);
3030: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3031: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3032: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3033: RAISE OKL_API.G_EXCEPTION_ERROR;
3034: END IF;
3035:
3036: x_return_status := G_RET_STS_SUCCESS;
3029: x_msg_data => x_msg_data);
3030: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3031: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3032: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3033: RAISE OKL_API.G_EXCEPTION_ERROR;
3034: END IF;
3035:
3036: x_return_status := G_RET_STS_SUCCESS;
3037:
3036: x_return_status := G_RET_STS_SUCCESS;
3037:
3038: EXCEPTION
3039:
3040: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3041:
3042: IF p_transaction_control = G_TRUE THEN
3043: ROLLBACK TO l_program_name;
3044: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3045: END IF;
3046:
3047: x_return_status := G_RET_STS_ERROR;
3048:
3049: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3050:
3051: IF p_transaction_control = G_TRUE THEN
3052: ROLLBACK TO l_program_name;
3053: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3056: x_return_status := G_RET_STS_UNEXP_ERROR;
3057:
3058: WHEN OTHERS THEN
3059:
3060: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
3061: p_msg_name => G_DB_ERROR,
3062: p_token1 => G_PROG_NAME_TOKEN,
3063: p_token1_value => l_api_name,
3064: p_token2 => G_SQLCODE_TOKEN,
3105: p_parent_object_id => p_parent_object_id,
3106: x_return_status => x_return_status,
3107: x_msg_count => x_msg_count,
3108: x_msg_data => x_msg_data);
3109: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3110: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3111: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3112: RAISE OKL_API.G_EXCEPTION_ERROR;
3113: END IF;
3106: x_return_status => x_return_status,
3107: x_msg_count => x_msg_count,
3108: x_msg_data => x_msg_data);
3109: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3110: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3111: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3112: RAISE OKL_API.G_EXCEPTION_ERROR;
3113: END IF;
3114:
3107: x_msg_count => x_msg_count,
3108: x_msg_data => x_msg_data);
3109: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3110: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3111: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3112: RAISE OKL_API.G_EXCEPTION_ERROR;
3113: END IF;
3114:
3115: x_return_status := G_RET_STS_SUCCESS;
3108: x_msg_data => x_msg_data);
3109: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3110: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3111: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3112: RAISE OKL_API.G_EXCEPTION_ERROR;
3113: END IF;
3114:
3115: x_return_status := G_RET_STS_SUCCESS;
3116:
3115: x_return_status := G_RET_STS_SUCCESS;
3116:
3117: EXCEPTION
3118:
3119: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3120:
3121: IF p_transaction_control = G_TRUE THEN
3122: ROLLBACK TO l_program_name;
3123: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3124: END IF;
3125:
3126: x_return_status := G_RET_STS_ERROR;
3127:
3128: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3129:
3130: IF p_transaction_control = G_TRUE THEN
3131: ROLLBACK TO l_program_name;
3132: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3135: x_return_status := G_RET_STS_UNEXP_ERROR;
3136:
3137: WHEN OTHERS THEN
3138:
3139: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
3140: p_msg_name => G_DB_ERROR,
3141: p_token1 => G_PROG_NAME_TOKEN,
3142: p_token1_value => l_api_name,
3143: p_token2 => G_SQLCODE_TOKEN,