1467:
1468: /** Code for changing/splitting service lines **/
1469:
1470: procedure get_rev_distr(p_cle_id IN NUMBER,
1471: x_rev_tbl OUT NOCOPY OKS_REV_DISTR_PUB.rdsv_tbl_type) IS
1472: cursor rev_cur is
1473: select
1474: chr_id, cle_id,
1475: account_class,
1496: end loop;
1497: end get_rev_distr;
1498:
1499: procedure create_rev_distr(p_cle_id IN NUMBER,
1500: p_rev_tbl IN OUT NOCOPY OKS_REV_DISTR_PUB.rdsv_tbl_type,
1501: x_status OUT NOCOPY VARCHAR2) IS
1502: l_api_version NUMBER := 1.0;
1503: l_msg_count NUMBER;
1504: l_msg_data VARCHAR2(2000);
1501: x_status OUT NOCOPY VARCHAR2) IS
1502: l_api_version NUMBER := 1.0;
1503: l_msg_count NUMBER;
1504: l_msg_data VARCHAR2(2000);
1505: l_rev_tbl OKS_REV_DISTR_PUB.rdsv_tbl_type;
1506: i NUMBER;
1507: begin
1508: i := p_rev_tbl.FIRST;
1509: Loop
1510: p_rev_tbl(i).cle_id := p_cle_id;
1511: exit when i = p_rev_tbl.LAST;
1512: i := p_rev_tbl.NEXT(i);
1513: End Loop;
1514: OKS_REV_DISTR_PUB.insert_Revenue_Distr(
1515: p_api_version => l_api_version,
1516: x_return_status => x_status,
1517: x_msg_count => l_msg_count,
1518: x_msg_data => l_msg_data,
1875:
1876: idx NUMBER;
1877: l_rgp_id NUMBER;
1878: l_return_status VARCHAR2(20);
1879: l_rev_tbl OKS_REV_DISTR_PUB.rdsv_tbl_type;
1880: l_salescr_tbl OKS_SALES_CREDIT_PUB.scrv_tbl_type;
1881: l_msg_index NUMBER;
1882: l_msg_data VARCHAR2(2000);
1883: l_total_pct NUMBER := 0;