[Home] [Help]
1469:
1470: ELSIF (p_flag = 1) THEN
1471: l_top_id := p_id;
1472: IF (l_lse_id = 46 ) THEN
1473: l_tang := OKS_SUBSCRIPTION_PUB.IS_SUBS_TANGIBLE(P_ID) ;
1474: END IF;
1475:
1476: IF (l_lse_id = 12) THEN
1477: OPEN line_billed_cur(p_id);
1529: IF l_period_start IS NOT NULL AND
1530: l_period_type IS NOT NULL AND
1531: l_pricing_method = 'EFFECTIVITY' THEN
1532: x_amount := l_billed_amount - l_orig_price +
1533: OKS_SUBSCRIPTION_PUB.subs_termn_amount(
1534: p_cle_id =>p_id ,
1535: p_termn_date =>l_term_date );
1536: ELSE*/
1537: x_amount := l_billed_amount -
1534: p_cle_id =>p_id ,
1535: p_termn_date =>l_term_date );
1536: ELSE*/
1537: x_amount := l_billed_amount -
1538: OKS_SUBSCRIPTION_PUB.subs_termn_amount(
1539: p_cle_id =>p_id ,
1540: p_termn_date =>l_term_date );
1541: --END IF;
1542: If x_amount < 0 then
1679: l_billed := FALSE;
1680: X_amount := 0;
1681:
1682: IF (line_rec.lse_id = 46 ) THEN
1683: l_tang := OKS_SUBSCRIPTION_PUB.IS_SUBS_TANGIBLE(line_rec.id) ;
1684: END IF;
1685:
1686: IF (line_rec.lse_id = 12) THEN
1687: OPEN line_billed_cur(line_rec.id);
1730: IF l_period_start IS NOT NULL AND
1731: l_period_type IS NOT NULL AND
1732: l_pricing_method = 'EFFECTIVITY' THEN
1733: x_amount := x_amount + l_billed_amount - line_rec.price_negotiated +
1734: OKS_SUBSCRIPTION_PUB.subs_termn_amount(
1735: p_cle_id =>line_rec.id ,
1736: p_termn_date =>l_term_date );
1737: ELSE*/
1738: x_amount := x_amount + l_billed_amount -
1735: p_cle_id =>line_rec.id ,
1736: p_termn_date =>l_term_date );
1737: ELSE*/
1738: x_amount := x_amount + l_billed_amount -
1739: OKS_SUBSCRIPTION_PUB.subs_termn_amount(
1740: p_cle_id =>line_rec.id ,
1741: p_termn_date =>l_term_date );
1742: --END IF;
1743:
3603: --if p_tang is false then ship amount is always 0 and if it is not at billed then billed amt is
3604: ---also 0. so p_tang condition moved inside if.
3605:
3606: IF p_tang THEN
3607: OKS_SUBSCRIPTION_PUB.recreate_schedule
3608: ( p_api_version => 1.0,
3609: p_init_msg_list => 'T',
3610: x_return_status => l_return_status,
3611: x_msg_count => l_msg_count,
3622: x_msg_count => l_msg_count,
3623: x_msg_data => l_msg_data);
3624: ELSE
3625: IF p_tang then
3626: OKS_SUBSCRIPTION_PUB.recreate_schedule
3627: (p_api_version => 1.0,
3628: p_init_msg_list => 'T',
3629: x_return_status => l_return_status,
3630: x_msg_count => l_msg_count,
3843: END IF;
3844: ELSE
3845: IF (p_termination_amount is NULL) THEN
3846: l_amount := OKS_EXTWAR_UTIL_PVT.round_currency_amt(( bsl_rec.amount -
3847: OKS_SUBSCRIPTION_PUB.subs_termn_amount
3848: ( p_cle_id =>p_line_id ,
3849: p_termn_date =>p_termination_date )),
3850: bcl_rec.currency_code) ;
3851: l_round_amount := l_round_amount + l_amount;
3851: l_round_amount := l_round_amount + l_amount;
3852: l_bslv_tbl_in(1).AMOUNT := -1* l_amount ;
3853: ELSE
3854: l_amount:= OKS_EXTWAR_UTIL_PVT.round_currency_amt
3855: ((p_termination_amount *(( bsl_rec.amount - OKS_SUBSCRIPTION_PUB.subs_termn_amount
3856: ( p_cle_id =>p_line_id ,
3857: p_termn_date =>p_termination_date ))
3858: ))/
3859: p_con_termination_amount ,
4458: l_billed := FALSE;
4459: END IF;
4460: CLOSE billed_subscr_amount;
4461:
4462: l_tang := OKS_SUBSCRIPTION_PUB.IS_SUBS_TANGIBLE(P_ID);
4463: IF l_tang THEN
4464: OPEN fullfilled_subscr_amount(p_id);
4465: FETCH fullfilled_subscr_amount into l_shipped_amount,l_next_ship_date;
4466: CLOSE fullfilled_subscr_amount;
4893: l_billed := FALSE;
4894: END IF;
4895: CLOSE billed_subscr_amount;
4896:
4897: l_tang := OKS_SUBSCRIPTION_PUB.IS_SUBS_TANGIBLE(line_rec.id);
4898:
4899: IF l_tang THEN
4900: OPEN fullfilled_subscr_amount(line_rec.id);
4901: FETCH fullfilled_subscr_amount into l_shipped_amount,l_next_ship_date;