[Home] [Help]
1483:
1484: ELSIF (p_flag = 1) THEN
1485: l_top_id := p_id;
1486: IF (l_lse_id = 46 ) THEN
1487: l_tang := OKS_SUBSCRIPTION_PUB.IS_SUBS_TANGIBLE(P_ID) ;
1488: END IF;
1489:
1490: IF (l_lse_id = 12) THEN
1491: OPEN line_billed_cur(p_id);
1543: IF l_period_start IS NOT NULL AND
1544: l_period_type IS NOT NULL AND
1545: l_pricing_method = 'EFFECTIVITY' THEN
1546: x_amount := l_billed_amount - l_orig_price +
1547: OKS_SUBSCRIPTION_PUB.subs_termn_amount(
1548: p_cle_id =>p_id ,
1549: p_termn_date =>l_term_date );
1550: ELSE*/
1551: x_amount := l_billed_amount -
1548: p_cle_id =>p_id ,
1549: p_termn_date =>l_term_date );
1550: ELSE*/
1551: x_amount := l_billed_amount -
1552: OKS_SUBSCRIPTION_PUB.subs_termn_amount(
1553: p_cle_id =>p_id ,
1554: p_termn_date =>l_term_date );
1555: --END IF;
1556: If x_amount < 0 then
1693: l_billed := FALSE;
1694: X_amount := 0;
1695:
1696: IF (line_rec.lse_id = 46 ) THEN
1697: l_tang := OKS_SUBSCRIPTION_PUB.IS_SUBS_TANGIBLE(line_rec.id) ;
1698: END IF;
1699:
1700: IF (line_rec.lse_id = 12) THEN
1701: OPEN line_billed_cur(line_rec.id);
1744: IF l_period_start IS NOT NULL AND
1745: l_period_type IS NOT NULL AND
1746: l_pricing_method = 'EFFECTIVITY' THEN
1747: x_amount := x_amount + l_billed_amount - line_rec.price_negotiated +
1748: OKS_SUBSCRIPTION_PUB.subs_termn_amount(
1749: p_cle_id =>line_rec.id ,
1750: p_termn_date =>l_term_date );
1751: ELSE*/
1752: x_amount := x_amount + l_billed_amount -
1749: p_cle_id =>line_rec.id ,
1750: p_termn_date =>l_term_date );
1751: ELSE*/
1752: x_amount := x_amount + l_billed_amount -
1753: OKS_SUBSCRIPTION_PUB.subs_termn_amount(
1754: p_cle_id =>line_rec.id ,
1755: p_termn_date =>l_term_date );
1756: --END IF;
1757:
3629: --if p_tang is false then ship amount is always 0 and if it is not at billed then billed amt is
3630: ---also 0. so p_tang condition moved inside if.
3631:
3632: IF p_tang THEN
3633: OKS_SUBSCRIPTION_PUB.recreate_schedule
3634: ( p_api_version => 1.0,
3635: p_init_msg_list => 'T',
3636: x_return_status => l_return_status,
3637: x_msg_count => l_msg_count,
3648: x_msg_count => l_msg_count,
3649: x_msg_data => l_msg_data);
3650: ELSE
3651: IF p_tang then
3652: OKS_SUBSCRIPTION_PUB.recreate_schedule
3653: (p_api_version => 1.0,
3654: p_init_msg_list => 'T',
3655: x_return_status => l_return_status,
3656: x_msg_count => l_msg_count,
3869: END IF;
3870: ELSE
3871: IF (p_termination_amount is NULL) THEN
3872: l_amount := OKS_EXTWAR_UTIL_PVT.round_currency_amt(( bsl_rec.amount -
3873: OKS_SUBSCRIPTION_PUB.subs_termn_amount
3874: ( p_cle_id =>p_line_id ,
3875: p_termn_date =>p_termination_date )),
3876: bcl_rec.currency_code) ;
3877: l_round_amount := l_round_amount + l_amount;
3877: l_round_amount := l_round_amount + l_amount;
3878: l_bslv_tbl_in(1).AMOUNT := -1* l_amount ;
3879: ELSE
3880: l_amount:= OKS_EXTWAR_UTIL_PVT.round_currency_amt
3881: ((p_termination_amount *(( bsl_rec.amount - OKS_SUBSCRIPTION_PUB.subs_termn_amount
3882: ( p_cle_id =>p_line_id ,
3883: p_termn_date =>p_termination_date ))
3884: ))/
3885: p_con_termination_amount ,
4484: l_billed := FALSE;
4485: END IF;
4486: CLOSE billed_subscr_amount;
4487:
4488: l_tang := OKS_SUBSCRIPTION_PUB.IS_SUBS_TANGIBLE(P_ID);
4489: IF l_tang THEN
4490: OPEN fullfilled_subscr_amount(p_id);
4491: FETCH fullfilled_subscr_amount into l_shipped_amount,l_next_ship_date;
4492: CLOSE fullfilled_subscr_amount;
4919: l_billed := FALSE;
4920: END IF;
4921: CLOSE billed_subscr_amount;
4922:
4923: l_tang := OKS_SUBSCRIPTION_PUB.IS_SUBS_TANGIBLE(line_rec.id);
4924:
4925: IF l_tang THEN
4926: OPEN fullfilled_subscr_amount(line_rec.id);
4927: FETCH fullfilled_subscr_amount into l_shipped_amount,l_next_ship_date;