1905: l_chk_required varchar2(1);
1906: l_applicable varchar2(10);
1907:
1908: lx_conversion_rate NUMBER;
1909: lx_subsidy_pool_id okl_subsidy_pools_b.id%TYPE;
1910: lx_subsidy_pool_status okl_subsidy_pools_b.decision_status_code%TYPE;
1911: lx_sub_pool_curr_code okl_subsidy_pools_b.currency_code%TYPE;
1912: lx_sub_pool_balance NUMBER;
1913:
1906: l_applicable varchar2(10);
1907:
1908: lx_conversion_rate NUMBER;
1909: lx_subsidy_pool_id okl_subsidy_pools_b.id%TYPE;
1910: lx_subsidy_pool_status okl_subsidy_pools_b.decision_status_code%TYPE;
1911: lx_sub_pool_curr_code okl_subsidy_pools_b.currency_code%TYPE;
1912: lx_sub_pool_balance NUMBER;
1913:
1914: halt_validation exception;
1907:
1908: lx_conversion_rate NUMBER;
1909: lx_subsidy_pool_id okl_subsidy_pools_b.id%TYPE;
1910: lx_subsidy_pool_status okl_subsidy_pools_b.decision_status_code%TYPE;
1911: lx_sub_pool_curr_code okl_subsidy_pools_b.currency_code%TYPE;
1912: lx_sub_pool_balance NUMBER;
1913:
1914: halt_validation exception;
1915:
2465: l_chk_required varchar2(1);
2466: l_applicable varchar2(10);
2467:
2468: lx_conversion_rate NUMBER;
2469: lx_subsidy_pool_id okl_subsidy_pools_b.id%TYPE;
2470: lx_subsidy_pool_status okl_subsidy_pools_b.decision_status_code%TYPE;
2471: lx_sub_pool_curr_code okl_subsidy_pools_b.currency_code%TYPE;
2472: lx_sub_pool_balance NUMBER;
2473:
2466: l_applicable varchar2(10);
2467:
2468: lx_conversion_rate NUMBER;
2469: lx_subsidy_pool_id okl_subsidy_pools_b.id%TYPE;
2470: lx_subsidy_pool_status okl_subsidy_pools_b.decision_status_code%TYPE;
2471: lx_sub_pool_curr_code okl_subsidy_pools_b.currency_code%TYPE;
2472: lx_sub_pool_balance NUMBER;
2473:
2474: halt_validation exception;
2467:
2468: lx_conversion_rate NUMBER;
2469: lx_subsidy_pool_id okl_subsidy_pools_b.id%TYPE;
2470: lx_subsidy_pool_status okl_subsidy_pools_b.decision_status_code%TYPE;
2471: lx_sub_pool_curr_code okl_subsidy_pools_b.currency_code%TYPE;
2472: lx_sub_pool_balance NUMBER;
2473:
2474: halt_validation exception;
2475:
2783:
2784:
2785: l_applicable VARCHAR2(10);
2786: lx_conversion_rate NUMBER;
2787: lx_subsidy_pool_id okl_subsidy_pools_b.id%TYPE;
2788: lx_subsidy_pool_status okl_subsidy_pools_b.decision_status_code%TYPE;
2789: lx_sub_pool_curr_code okl_subsidy_pools_b.currency_code%TYPE;
2790: lx_sub_pool_balance NUMBER;
2791: -- local variables for sales quote usage. when called from LA, the p_asset_cle_id is passed and
2784:
2785: l_applicable VARCHAR2(10);
2786: lx_conversion_rate NUMBER;
2787: lx_subsidy_pool_id okl_subsidy_pools_b.id%TYPE;
2788: lx_subsidy_pool_status okl_subsidy_pools_b.decision_status_code%TYPE;
2789: lx_sub_pool_curr_code okl_subsidy_pools_b.currency_code%TYPE;
2790: lx_sub_pool_balance NUMBER;
2791: -- local variables for sales quote usage. when called from LA, the p_asset_cle_id is passed and
2792: -- p_ast_date_sq is p_trx_curr_code are null, for SQ, the case is converse
2785: l_applicable VARCHAR2(10);
2786: lx_conversion_rate NUMBER;
2787: lx_subsidy_pool_id okl_subsidy_pools_b.id%TYPE;
2788: lx_subsidy_pool_status okl_subsidy_pools_b.decision_status_code%TYPE;
2789: lx_sub_pool_curr_code okl_subsidy_pools_b.currency_code%TYPE;
2790: lx_sub_pool_balance NUMBER;
2791: -- local variables for sales quote usage. when called from LA, the p_asset_cle_id is passed and
2792: -- p_ast_date_sq is p_trx_curr_code are null, for SQ, the case is converse
2793: lv_asset_curr_code okc_k_lines_b.currency_code%TYPE;
3028: END validate_subsidy_pool_applic;
3029:
3030:
3031: FUNCTION is_sub_assoc_with_pool(p_subsidy_id IN okl_subsidies_b.id%TYPE
3032: ,x_subsidy_pool_id OUT NOCOPY okl_subsidy_pools_b.id%TYPE
3033: ,x_sub_pool_curr_code OUT NOCOPY okl_subsidy_pools_b.currency_code%TYPE) RETURN VARCHAR2 IS
3034: CURSOR c_subsidy_csr IS
3035: SELECT sub.subsidy_pool_id,pool.currency_code
3036: FROM okl_subsidies_b sub
3029:
3030:
3031: FUNCTION is_sub_assoc_with_pool(p_subsidy_id IN okl_subsidies_b.id%TYPE
3032: ,x_subsidy_pool_id OUT NOCOPY okl_subsidy_pools_b.id%TYPE
3033: ,x_sub_pool_curr_code OUT NOCOPY okl_subsidy_pools_b.currency_code%TYPE) RETURN VARCHAR2 IS
3034: CURSOR c_subsidy_csr IS
3035: SELECT sub.subsidy_pool_id,pool.currency_code
3036: FROM okl_subsidies_b sub
3037: ,okl_subsidy_pools_b pool
3033: ,x_sub_pool_curr_code OUT NOCOPY okl_subsidy_pools_b.currency_code%TYPE) RETURN VARCHAR2 IS
3034: CURSOR c_subsidy_csr IS
3035: SELECT sub.subsidy_pool_id,pool.currency_code
3036: FROM okl_subsidies_b sub
3037: ,okl_subsidy_pools_b pool
3038: WHERE sub.id = p_subsidy_id
3039: AND sub.subsidy_pool_id = pool.id;
3040: cv_subsidy c_subsidy_csr%ROWTYPE;
3041: lv_return_status VARCHAR2(1);
3049: END IF;
3050: return lv_return_status;
3051: END is_sub_assoc_with_pool;
3052:
3053: FUNCTION is_sub_pool_active(p_subsidy_pool_id IN okl_subsidy_pools_b.id%TYPE
3054: ,x_pool_status OUT NOCOPY okl_subsidy_pools_b.decision_status_code%TYPE) RETURN VARCHAR2 IS
3055: CURSOR c_sub_pool_csr IS
3056: SELECT decision_status_code
3057: ,effective_from_date
3050: return lv_return_status;
3051: END is_sub_assoc_with_pool;
3052:
3053: FUNCTION is_sub_pool_active(p_subsidy_pool_id IN okl_subsidy_pools_b.id%TYPE
3054: ,x_pool_status OUT NOCOPY okl_subsidy_pools_b.decision_status_code%TYPE) RETURN VARCHAR2 IS
3055: CURSOR c_sub_pool_csr IS
3056: SELECT decision_status_code
3057: ,effective_from_date
3058: ,effective_to_date
3055: CURSOR c_sub_pool_csr IS
3056: SELECT decision_status_code
3057: ,effective_from_date
3058: ,effective_to_date
3059: FROM okl_subsidy_pools_b
3060: WHERE id = p_subsidy_pool_id;
3061: cv_sub_pool c_sub_pool_csr%ROWTYPE;
3062: lv_return_status VARCHAR2(1);
3063: BEGIN
3070: END IF;
3071: return lv_return_status;
3072: END is_sub_pool_active;
3073:
3074: FUNCTION is_sub_pool_active_by_date(p_subsidy_pool_id IN okl_subsidy_pools_b.id%TYPE
3075: ,p_asset_date IN okc_k_lines_b.start_date%TYPE
3076: ) RETURN VARCHAR2 IS
3077: CURSOR c_sub_pool_csr IS
3078: SELECT effective_from_date
3076: ) RETURN VARCHAR2 IS
3077: CURSOR c_sub_pool_csr IS
3078: SELECT effective_from_date
3079: ,effective_to_date
3080: FROM okl_subsidy_pools_b
3081: WHERE id = p_subsidy_pool_id;
3082: cv_sub_pool c_sub_pool_csr%ROWTYPE;
3083: lv_return_status VARCHAR2(1);
3084: x_return_status VARCHAR2(1);
3093: END IF;
3094: return lv_return_status;
3095: END is_sub_pool_active_by_date;
3096:
3097: FUNCTION is_sub_pool_conv_rate_valid(p_subsidy_pool_id IN okl_subsidy_pools_b.id%TYPE
3098: ,p_asset_date IN okc_k_lines_b.start_date%TYPE
3099: ,p_trx_currency_code IN okc_k_headers_b.currency_code%TYPE
3100: ,x_conversion_rate OUT NOCOPY NUMBER) RETURN VARCHAR2 IS
3101: CURSOR c_sub_pool_csr IS
3100: ,x_conversion_rate OUT NOCOPY NUMBER) RETURN VARCHAR2 IS
3101: CURSOR c_sub_pool_csr IS
3102: SELECT currency_code
3103: ,currency_conversion_type
3104: FROM okl_subsidy_pools_b
3105: WHERE id = p_subsidy_pool_id;
3106: cv_sub_pool c_sub_pool_csr%ROWTYPE;
3107: lv_return_status VARCHAR2(1);
3108: x_return_status VARCHAR2(1);
3131: x_conversion_rate := lv_conversion_rate;
3132: return lv_return_status;
3133: END is_sub_pool_conv_rate_valid;
3134:
3135: FUNCTION is_balance_valid_before_add (p_subsidy_pool_id IN okl_subsidy_pools_b.id%TYPE
3136: , x_pool_balance OUT NOCOPY NUMBER) RETURN VARCHAR2 IS
3137: CURSOR c_sub_pool_csr IS
3138: SELECT NVL(total_budgets,0) total_budget_amount
3139: ,NVL(total_subsidy_amount,0) total_subsidy_amount
3136: , x_pool_balance OUT NOCOPY NUMBER) RETURN VARCHAR2 IS
3137: CURSOR c_sub_pool_csr IS
3138: SELECT NVL(total_budgets,0) total_budget_amount
3139: ,NVL(total_subsidy_amount,0) total_subsidy_amount
3140: FROM okl_subsidy_pools_b
3141: WHERE id = p_subsidy_pool_id;
3142: cv_sub_pool c_sub_pool_csr%ROWTYPE;
3143: lv_return_status VARCHAR2(1);
3144: BEGIN
3187: FROM okc_k_lines_b
3188: WHERE id = p_asset_id;
3189: cv_get_asset c_get_asset_csr%ROWTYPE;
3190:
3191: CURSOR c_get_pool_amount_csr (p_subsidy_pool_id okl_subsidy_pools_b.id%TYPE)IS
3192: SELECT nvl(total_budgets,0) total_budgets
3193: ,nvl(total_subsidy_amount,0) total_subsidy_amount
3194: , subsidy_pool_name
3195: FROM okl_subsidy_pools_b
3191: CURSOR c_get_pool_amount_csr (p_subsidy_pool_id okl_subsidy_pools_b.id%TYPE)IS
3192: SELECT nvl(total_budgets,0) total_budgets
3193: ,nvl(total_subsidy_amount,0) total_subsidy_amount
3194: , subsidy_pool_name
3195: FROM okl_subsidy_pools_b
3196: WHERE id = p_subsidy_pool_id;
3197:
3198: --START: 24-Oct-2005 cklee - Fixed bug#4687505 |
3199: CURSOR c_subsidy_name_csr(p_subsidy_id number) IS
3206:
3207: cv_pool_amount c_get_pool_amount_csr%ROWTYPE;
3208:
3209: lv_return_status VARCHAR2(1);
3210: lx_subsidy_pool_id okl_subsidy_pools_b.id%TYPE;
3211: lx_sub_pool_curr_code okl_subsidy_pools_b.currency_code%TYPE;
3212: lx_conversion_rate NUMBER;
3213: lx_conversion_round_amt NUMBER;
3214: l_amount_in_pool_curr NUMBER;
3207: cv_pool_amount c_get_pool_amount_csr%ROWTYPE;
3208:
3209: lv_return_status VARCHAR2(1);
3210: lx_subsidy_pool_id okl_subsidy_pools_b.id%TYPE;
3211: lx_sub_pool_curr_code okl_subsidy_pools_b.currency_code%TYPE;
3212: lx_conversion_rate NUMBER;
3213: lx_conversion_round_amt NUMBER;
3214: l_amount_in_pool_curr NUMBER;
3215: l_api_version CONSTANT NUMBER DEFAULT 1.0;
3401: ,x_msg_data OUT NOCOPY VARCHAR2
3402: ) IS
3403:
3404:
3405: CURSOR c_get_pool_amount_csr (p_subsidy_pool_id okl_subsidy_pools_b.id%TYPE)IS
3406: SELECT nvl(total_budgets,0) total_budgets
3407: ,nvl(total_subsidy_amount,0) total_subsidy_amount
3408: , subsidy_pool_name
3409: FROM okl_subsidy_pools_b
3405: CURSOR c_get_pool_amount_csr (p_subsidy_pool_id okl_subsidy_pools_b.id%TYPE)IS
3406: SELECT nvl(total_budgets,0) total_budgets
3407: ,nvl(total_subsidy_amount,0) total_subsidy_amount
3408: , subsidy_pool_name
3409: FROM okl_subsidy_pools_b
3410: WHERE id = p_subsidy_pool_id;
3411:
3412: CURSOR c_subsidy_name_csr(p_subsidy_id number) IS
3413: select sub.name
3418:
3419: cv_pool_amount c_get_pool_amount_csr%ROWTYPE;
3420:
3421: lv_return_status VARCHAR2(1);
3422: lx_subsidy_pool_id okl_subsidy_pools_b.id%TYPE;
3423: lx_sub_pool_curr_code okl_subsidy_pools_b.currency_code%TYPE;
3424: lx_conversion_rate NUMBER;
3425: lx_conversion_round_amt NUMBER;
3426: l_amount_in_pool_curr NUMBER;
3419: cv_pool_amount c_get_pool_amount_csr%ROWTYPE;
3420:
3421: lv_return_status VARCHAR2(1);
3422: lx_subsidy_pool_id okl_subsidy_pools_b.id%TYPE;
3423: lx_sub_pool_curr_code okl_subsidy_pools_b.currency_code%TYPE;
3424: lx_conversion_rate NUMBER;
3425: lx_conversion_round_amt NUMBER;
3426: l_amount_in_pool_curr NUMBER;
3427: l_api_version CONSTANT NUMBER DEFAULT 1.0;