[Home] [Help]
15: l_api_version CONSTANT NUMBER := 1;
16: l_init_msg_list VARCHAR2(1);
17: sty_count NUMBER;
18: vsite_count NUMBER;
19: l_disb_start_date OKL_DISB_RULES_B.START_DATE%TYPE;
20: l_disb_end_date OKL_DISB_RULES_B.END_DATE%TYPE;
21: l_vsite_start_date OKL_DISB_RULE_VENDOR_SITES.START_DATE%TYPE;
22: l_vsite_end_date OKL_DISB_RULE_VENDOR_SITES.END_DATE%TYPE;
23: l_exist_start_date OKL_DISB_RULE_VENDOR_SITES.START_DATE%TYPE;
16: l_init_msg_list VARCHAR2(1);
17: sty_count NUMBER;
18: vsite_count NUMBER;
19: l_disb_start_date OKL_DISB_RULES_B.START_DATE%TYPE;
20: l_disb_end_date OKL_DISB_RULES_B.END_DATE%TYPE;
21: l_vsite_start_date OKL_DISB_RULE_VENDOR_SITES.START_DATE%TYPE;
22: l_vsite_end_date OKL_DISB_RULE_VENDOR_SITES.END_DATE%TYPE;
23: l_exist_start_date OKL_DISB_RULE_VENDOR_SITES.START_DATE%TYPE;
24: l_exist_end_date OKL_DISB_RULE_VENDOR_SITES.END_DATE%TYPE;
465:
466: -- API name : create_v_disbursement_rulete_v_disbursement_rule
467: -- Pre-reqs : None
468: -- Function : Associate the Vendor with the Rule uses
469: -- OKL_DISB_RULES_B, OKL_DISB_RULES_TL,
470: -- OKL_DISB_RULE_STY_TYPES and OKL_DISB_RULE_VENDOR_SITES
471: -- Parameters :
472: -- IN : p_api_version - Standard input parameter
473: -- p_init_msg_list - Standard input parameter
512: l_old_end_seq_no OKL_DISB_RULE_VENDOR_SITES.INVOICE_SEQ_END%TYPE;
513:
514: flag VARCHAR(50);
515:
516: CURSOR get_drav_rec(c_disb_rule_id OKL_DISB_RULES_B.DISB_RULE_ID%TYPE) IS
517: SELECT DISB_RULE_ID ,START_DATE ,end_date ,fee_basis ,fee_option ,fee_amount ,
518: fee_percent ,consolidate_by_due_date ,frequency ,day_of_month ,scheduled_month
519: FROM OKL_DISB_RULES_B
520: WHERE DISB_RULE_ID = c_disb_rule_id;
515:
516: CURSOR get_drav_rec(c_disb_rule_id OKL_DISB_RULES_B.DISB_RULE_ID%TYPE) IS
517: SELECT DISB_RULE_ID ,START_DATE ,end_date ,fee_basis ,fee_option ,fee_amount ,
518: fee_percent ,consolidate_by_due_date ,frequency ,day_of_month ,scheduled_month
519: FROM OKL_DISB_RULES_B
520: WHERE DISB_RULE_ID = c_disb_rule_id;
521:
522: CURSOR get_drs_tbl(c_disb_rule_id OKL_DISB_RULE_STY_TYPES.DISB_RULE_ID%TYPE) IS
523: SELECT DISB_RULE_ID ,STREAM_TYPE_PURPOSE ,DISB_RULE_STY_TYPE_ID
847: i NUMBER;
848:
849: -- Cursor to check the unique rule name
850: CURSOR disb_rule_name_csr IS
851: SELECT 'Y' FROM OKL_DISB_RULES_B
852: WHERE RULE_NAME = p_disb_rule_name;
853:
854: l_found VARCHAR2(1) := 'N';
855:
1082: -- Start of comments
1083: -- API name : create_disbursement_rule
1084: -- Pre-reqs : None
1085: -- Function : create disbursement rule in the following tables
1086: -- OKL_DISB_RULES_B, OKL_DISB_RULES_TL,
1087: -- OKL_DISB_RULE_STY_TYPES and OKL_DISB_RULE_VENDOR_SITES
1088: -- Parameters :
1089: -- IN : p_api_version - Standard input parameter
1090: -- p_init_msg_list - Standard input parameter
1191:
1192:
1193:
1194: --g_debug_proc('Validated Rule');
1195: -- insert record in to OKL_DISB_RULES_B and TL
1196: okl_dra_pvt.insert_row( p_api_version => l_api_version
1197: , p_init_msg_list => p_init_msg_list
1198: , x_return_status => x_return_status
1199: , x_msg_count => x_msg_count
1433: -- Start of comments
1434: -- API name : update_disbursement_rule
1435: -- Pre-reqs : None
1436: -- Function : update disbursement rule in the following tables
1437: -- OKL_DISB_RULES_B, OKL_DISB_RULES_TL,
1438: -- OKL_DISB_RULE_STY_TYPES and OKL_DISB_RULE_VENDOR_SITES
1439: -- Parameters :
1440: -- IN : p_api_version - Standard input parameter
1441: -- p_init_msg_list - Standard input parameter
1531:
1532: l_drav_rec := p_drav_rec;
1533: --g_debug_proc('DRA PArams ' || l_drav_rec.description || ' , ' || l_drav_rec.scheduled_month);
1534:
1535: -- update record in to OKL_DISB_RULES_B and TL
1536: okl_dra_pvt.update_row( p_api_version => l_api_version
1537: , p_init_msg_list => p_init_msg_list
1538: , x_return_status => x_return_status
1539: , x_msg_count => x_msg_count