1: PACKAGE BODY ARP_LLCA_ADJUST_PKG AS
2: /* $Header: ARLLADJB.pls 120.2.12010000.4 2009/03/17 06:53:42 nproddut ship $ */
3:
4:
5: /*=======================================================================+
79: -- Added for Line Level Adjustment
80: l_from_llca_call VARCHAR2(1);
81:
82: BEGIN
83: arp_util.debug('ARP_LLCA_ADJUST_PKG.LLCA_Adjustments()+');
84: arp_util.debug('line adjusted : ' || to_char(p_line_adjusted));
85: arp_util.debug('tax adjusted : ' || to_char(p_tax_adjusted));
86:
87: -- At the point this is called, it is assumed that the
200:
201: -- call to prorate the amount over the tax lines.
202: -- then insert the records into the GT table.
203: IF (p_tax_adjusted <> 0 ) then
204: arp_llca_adjust_pkg.prorate_tax_amount(
205: p_customer_trx_line_id => p_customer_trx_line_id,
206: p_customer_trx_id => p_customer_trx_id,
207: p_tax_adjusted => p_tax_adjusted,
208: p_adjustment_id => p_adj_id,
261: END IF;
262:
263: END IF; -- if gt_id is 0
264:
265: arp_util.debug('ARP_LLCA_ADJUST_PKG.LLCA_Adjustments()-');
266: END LLCA_Adjustments;
267:
268: /*=============================================================================
269: | PROCEDURE Prorate_tax_Amount
308: AND lines.link_to_cust_trx_line_id = p_customer_trx_line_id;
309:
310:
311: BEGIN
312: arp_util.debug('ARP_LLCA_ADJUST_PKG.Prorate_tax_amount()+');
313:
314: /* get the divisor for the proration equation */
315: SELECT
316: sum(tl.extended_amount),
395: );
396:
397: END LOOP;
398:
399: arp_util.debug('ARP_LLCA_ADJUST_PKG.Prorate_tax_amount()-');
400: END Prorate_tax_amount;
401:
402: END ARP_LLCA_ADJUST_PKG;
403:
398:
399: arp_util.debug('ARP_LLCA_ADJUST_PKG.Prorate_tax_amount()-');
400: END Prorate_tax_amount;
401:
402: END ARP_LLCA_ADJUST_PKG;
403: