2242:
2243: l_contract_end_date := ADD_MONTHS(p_level_start_date, p_contract_term) - 1;
2244:
2245: IF l_end_date > l_contract_end_date THEN
2246: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_LEVEL_EXTENDS_K_END');
2247: RAISE OKL_API.G_EXCEPTION_ERROR;
2248: END IF;
2249:
2250: x_return_status := G_RET_STS_SUCCESS;
2243: l_contract_end_date := ADD_MONTHS(p_level_start_date, p_contract_term) - 1;
2244:
2245: IF l_end_date > l_contract_end_date THEN
2246: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME, p_msg_name => 'OKL_LEVEL_EXTENDS_K_END');
2247: RAISE OKL_API.G_EXCEPTION_ERROR;
2248: END IF;
2249:
2250: x_return_status := G_RET_STS_SUCCESS;
2251:
2250: x_return_status := G_RET_STS_SUCCESS;
2251:
2252: EXCEPTION
2253:
2254: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2255: x_return_status := G_RET_STS_ERROR;
2256:
2257: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2258: x_return_status := G_RET_STS_UNEXP_ERROR;
2253:
2254: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2255: x_return_status := G_RET_STS_ERROR;
2256:
2257: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2258: x_return_status := G_RET_STS_UNEXP_ERROR;
2259:
2260: WHEN OTHERS THEN
2261: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
2257: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2258: x_return_status := G_RET_STS_UNEXP_ERROR;
2259:
2260: WHEN OTHERS THEN
2261: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
2262: p_msg_name => G_DB_ERROR,
2263: p_token1 => G_PROG_NAME_TOKEN,
2264: p_token1_value => l_api_name,
2265: p_token2 => G_SQLCODE_TOKEN,
2389: ,p_frequency_code => l_freq_code
2390: ,p_cashflow_level_tbl => cf_level_tbl
2391: ,x_return_status => l_return_status);
2392: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
2393: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2394: ELSIF l_return_status = G_RET_STS_ERROR THEN
2395: RAISE OKL_API.G_EXCEPTION_ERROR;
2396: END IF;
2397:
2391: ,x_return_status => l_return_status);
2392: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
2393: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2394: ELSIF l_return_status = G_RET_STS_ERROR THEN
2395: RAISE OKL_API.G_EXCEPTION_ERROR;
2396: END IF;
2397:
2398: FOR j IN cf_level_tbl.FIRST .. cf_level_tbl.LAST LOOP
2399: IF cf_level_tbl.EXISTS(j) THEN
2411:
2412: RETURN NULL;
2413:
2414: EXCEPTION
2415: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2416: l_pmnt_end_date := NULL;
2417:
2418: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2419: l_pmnt_end_date := NULL;
2414: EXCEPTION
2415: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2416: l_pmnt_end_date := NULL;
2417:
2418: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2419: l_pmnt_end_date := NULL;
2420:
2421: WHEN NO_DATA_FOUND THEN
2422: l_pmnt_end_date := NULL;
2899: ---------------------------------------------
2900: -- PROCEDURE fetch_leaseapp_datapoints
2901: ---------------------------------------------
2902: PROCEDURE fetch_leaseapp_datapoints(p_api_version IN NUMBER
2903: ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
2904: ,p_leaseapp_id IN NUMBER
2905: ,x_lap_dp_tbl_type OUT NOCOPY lap_dp_tbl_type
2906: ,x_return_status OUT NOCOPY VARCHAR2
2907: ,x_msg_count OUT NOCOPY NUMBER
2951: x_msg_count => x_msg_count,
2952: x_msg_data => x_msg_data,
2953: p_datapoints_tbl => x_data_points_tbl);
2954: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2955: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2956: ELSIF x_return_status = G_RET_STS_ERROR THEN
2957: RAISE OKL_API.G_EXCEPTION_ERROR;
2958: END IF;
2959:
2953: p_datapoints_tbl => x_data_points_tbl);
2954: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2955: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2956: ELSIF x_return_status = G_RET_STS_ERROR THEN
2957: RAISE OKL_API.G_EXCEPTION_ERROR;
2958: END IF;
2959:
2960: IF (x_data_points_tbl.COUNT > 0) THEN
2961: FOR i IN x_data_points_tbl.FIRST .. x_data_points_tbl.LAST LOOP
2970:
2971: x_return_status := G_RET_STS_SUCCESS;
2972:
2973: EXCEPTION
2974: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2975: IF (c_get_leaseapp_template%ISOPEN) THEN
2976: CLOSE c_get_leaseapp_template;
2977: END IF;
2978:
2975: IF (c_get_leaseapp_template%ISOPEN) THEN
2976: CLOSE c_get_leaseapp_template;
2977: END IF;
2978:
2979: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2980: IF (c_get_leaseapp_template%ISOPEN) THEN
2981: CLOSE c_get_leaseapp_template;
2982: END IF;
2983:
2991: ---------------------------------------------
2992: -- PROCEDURE store_leaseapp_datapoints
2993: ---------------------------------------------
2994: PROCEDURE store_leaseapp_datapoints(p_api_version IN NUMBER
2995: ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
2996: ,p_lap_dp_tbl IN lap_dp_tbl_type
2997: ,x_return_status OUT NOCOPY VARCHAR2
2998: ,x_msg_count OUT NOCOPY NUMBER
2999: ,x_msg_data OUT NOCOPY VARCHAR2) IS
3032: END IF;
3033: END LOOP;
3034:
3035: ln_index := lp_lap_dp_tbl.FIRST;
3036: IF (lp_lap_dp_tbl(ln_index).id is null OR lp_lap_dp_tbl(ln_index).id = OKL_API.G_MISS_NUM) THEN
3037:
3038: okl_lad_pvt.insert_row (p_api_version => G_API_VERSION
3039: ,p_init_msg_list => G_FALSE
3040: ,x_return_status => x_return_status
3041: ,x_msg_count => x_msg_count
3042: ,x_msg_data => x_msg_data
3043: ,p_ladv_tbl => lp_lap_dp_tbl
3044: ,x_ladv_tbl => lpx_lap_dp_tbl);
3045: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3046: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3047: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3048: RAISE OKL_API.G_EXCEPTION_ERROR;
3049: END IF;
3042: ,x_msg_data => x_msg_data
3043: ,p_ladv_tbl => lp_lap_dp_tbl
3044: ,x_ladv_tbl => lpx_lap_dp_tbl);
3045: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3046: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3047: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3048: RAISE OKL_API.G_EXCEPTION_ERROR;
3049: END IF;
3050: ELSE
3043: ,p_ladv_tbl => lp_lap_dp_tbl
3044: ,x_ladv_tbl => lpx_lap_dp_tbl);
3045: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3046: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3047: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3048: RAISE OKL_API.G_EXCEPTION_ERROR;
3049: END IF;
3050: ELSE
3051: okl_lad_pvt.update_row (p_api_version => G_API_VERSION
3044: ,x_ladv_tbl => lpx_lap_dp_tbl);
3045: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3046: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3047: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3048: RAISE OKL_API.G_EXCEPTION_ERROR;
3049: END IF;
3050: ELSE
3051: okl_lad_pvt.update_row (p_api_version => G_API_VERSION
3052: ,p_init_msg_list => G_FALSE
3054: ,x_msg_count => x_msg_count
3055: ,x_msg_data => x_msg_data
3056: ,p_ladv_tbl => lp_lap_dp_tbl
3057: ,x_ladv_tbl => lpx_lap_dp_tbl);
3058: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3059: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3060: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3061: RAISE OKL_API.G_EXCEPTION_ERROR;
3062: END IF;
3055: ,x_msg_data => x_msg_data
3056: ,p_ladv_tbl => lp_lap_dp_tbl
3057: ,x_ladv_tbl => lpx_lap_dp_tbl);
3058: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3059: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3060: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3061: RAISE OKL_API.G_EXCEPTION_ERROR;
3062: END IF;
3063: END IF;
3056: ,p_ladv_tbl => lp_lap_dp_tbl
3057: ,x_ladv_tbl => lpx_lap_dp_tbl);
3058: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3059: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3060: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3061: RAISE OKL_API.G_EXCEPTION_ERROR;
3062: END IF;
3063: END IF;
3064: END IF;
3057: ,x_ladv_tbl => lpx_lap_dp_tbl);
3058: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3059: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3060: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3061: RAISE OKL_API.G_EXCEPTION_ERROR;
3062: END IF;
3063: END IF;
3064: END IF;
3065:
3065:
3066: x_return_status := G_RET_STS_SUCCESS;
3067:
3068: EXCEPTION
3069: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3070: x_return_status := G_RET_STS_ERROR;
3071: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3072: x_return_status := G_RET_STS_UNEXP_ERROR;
3073: WHEN OTHERS THEN
3067:
3068: EXCEPTION
3069: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3070: x_return_status := G_RET_STS_ERROR;
3071: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3072: x_return_status := G_RET_STS_UNEXP_ERROR;
3073: WHEN OTHERS THEN
3074: x_return_status := G_RET_STS_ERROR;
3075: END store_leaseapp_datapoints;
3077: ---------------------------------------------
3078: -- PROCEDURE delete_leaseapp_datapoints
3079: ---------------------------------------------
3080: PROCEDURE delete_leaseapp_datapoints(p_api_version IN NUMBER
3081: ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
3082: ,p_leaseapp_id IN NUMBER
3083: ,x_return_status OUT NOCOPY VARCHAR2
3084: ,x_msg_count OUT NOCOPY NUMBER
3085: ,x_msg_data OUT NOCOPY VARCHAR2) IS
3120: ,p_ladv_tbl => lap_dp_tbl
3121: ,px_error_tbl => l_error_tbl_type );
3122:
3123: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
3124: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3125: ELSIF x_return_status = G_RET_STS_ERROR THEN
3126: RAISE OKL_API.G_EXCEPTION_ERROR;
3127: END IF;
3128: END IF;
3122:
3123: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
3124: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3125: ELSIF x_return_status = G_RET_STS_ERROR THEN
3126: RAISE OKL_API.G_EXCEPTION_ERROR;
3127: END IF;
3128: END IF;
3129:
3130: x_return_status := G_RET_STS_SUCCESS;
3129:
3130: x_return_status := G_RET_STS_SUCCESS;
3131:
3132: EXCEPTION
3133: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3134: x_return_status := G_RET_STS_ERROR;
3135: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3136: x_return_status := G_RET_STS_UNEXP_ERROR;
3137: WHEN OTHERS THEN
3131:
3132: EXCEPTION
3133: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3134: x_return_status := G_RET_STS_ERROR;
3135: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3136: x_return_status := G_RET_STS_UNEXP_ERROR;
3137: WHEN OTHERS THEN
3138: x_return_status := G_RET_STS_ERROR;
3139: END delete_leaseapp_datapoints;