162: p_adj_rec IN ar_adjustments%ROWTYPE );
163:
164: PROCEDURE Dump_Line_Amts(p_ae_line_rec IN ar_ae_alloc_rec_gt%ROWTYPE);
165:
166: PROCEDURE Dump_Dist_Amts(p_ae_line_rec ar_distributions%ROWTYPE);
167:
168: FUNCTION source_exec(p_process_ed_adj IN VARCHAR2,
169: p_process_uned IN VARCHAR2,
170: p_process_pay IN VARCHAR2,
851:
852: IF g_ae_doc_rec.inv_cm_app_mode = 'C' THEN
853: arp_standard.debug('Updating CM ard to stamp ref_prev_cust_trx_line_id');
854:
855: update ar_distributions ard
856: set ref_prev_cust_trx_line_id = (select previous_customer_trx_line_id
857: from ra_customer_trx_lines
858: where customer_trx_line_id = ard.ref_customer_trx_line_id)
859: where source_id = g_ae_doc_rec.source_id
871:
872: IF l_cnt > 0 THEN
873: arp_standard.debug('Updating INV ard to stamp ref_prev_cust_trx_line_id');
874:
875: update ar_distributions ard
876: set ref_prev_cust_trx_line_id = (select ref_customer_trx_line_id
877: from ar_distributions
878: where source_id = g_ae_doc_rec.source_id
879: and ref_prev_cust_trx_line_id = ard.ref_customer_trx_line_id
873: arp_standard.debug('Updating INV ard to stamp ref_prev_cust_trx_line_id');
874:
875: update ar_distributions ard
876: set ref_prev_cust_trx_line_id = (select ref_customer_trx_line_id
877: from ar_distributions
878: where source_id = g_ae_doc_rec.source_id
879: and ref_prev_cust_trx_line_id = ard.ref_customer_trx_line_id
880: and rownum = 1)
881: where source_id = g_ae_doc_rec.source_id
5610: p_ae_line_init_rec IN ar_ae_alloc_rec_gt%ROWTYPE ) IS
5611:
5612: l_ae_line_rec ar_ae_alloc_rec_gt%ROWTYPE ;
5613: l_ctr BINARY_INTEGER ;
5614: l_actual_account ar_distributions.code_combination_id%TYPE ;
5615: l_source_type ar_distributions.source_type%TYPE ;
5616:
5617: --PL/SQL table object,this collection is used for bulk processing of inserts
5618: TYPE ae_alloc_rec_gt_tab IS TABLE OF ar_ae_alloc_rec_gt%ROWTYPE INDEX BY BINARY_INTEGER;
5611:
5612: l_ae_line_rec ar_ae_alloc_rec_gt%ROWTYPE ;
5613: l_ctr BINARY_INTEGER ;
5614: l_actual_account ar_distributions.code_combination_id%TYPE ;
5615: l_source_type ar_distributions.source_type%TYPE ;
5616:
5617: --PL/SQL table object,this collection is used for bulk processing of inserts
5618: TYPE ae_alloc_rec_gt_tab IS TABLE OF ar_ae_alloc_rec_gt%ROWTYPE INDEX BY BINARY_INTEGER;
5619: l_ae_alloc_rec_gt_tab ae_alloc_rec_gt_tab;
6119:
6120: l_ae_line_rec ar_ae_alloc_rec_gt%ROWTYPE ;
6121: l_ae_line_rec_empty ar_ae_alloc_rec_gt%ROWTYPE ;
6122: l_ctr BINARY_INTEGER ;
6123: l_actual_account ar_distributions.code_combination_id%TYPE ;
6124: l_org_inv_tax_code_id ar_distributions.tax_code_id%TYPE ;
6125: l_org_inv_loc_seg_id ar_distributions.location_segment_id%TYPE ;
6126: l_taxable_amt NUMBER;
6127: l_taxable_acctd_amt NUMBER;
6120: l_ae_line_rec ar_ae_alloc_rec_gt%ROWTYPE ;
6121: l_ae_line_rec_empty ar_ae_alloc_rec_gt%ROWTYPE ;
6122: l_ctr BINARY_INTEGER ;
6123: l_actual_account ar_distributions.code_combination_id%TYPE ;
6124: l_org_inv_tax_code_id ar_distributions.tax_code_id%TYPE ;
6125: l_org_inv_loc_seg_id ar_distributions.location_segment_id%TYPE ;
6126: l_taxable_amt NUMBER;
6127: l_taxable_acctd_amt NUMBER;
6128:
6121: l_ae_line_rec_empty ar_ae_alloc_rec_gt%ROWTYPE ;
6122: l_ctr BINARY_INTEGER ;
6123: l_actual_account ar_distributions.code_combination_id%TYPE ;
6124: l_org_inv_tax_code_id ar_distributions.tax_code_id%TYPE ;
6125: l_org_inv_loc_seg_id ar_distributions.location_segment_id%TYPE ;
6126: l_taxable_amt NUMBER;
6127: l_taxable_acctd_amt NUMBER;
6128:
6129: l_source_type_secondary ar_distributions.source_type_secondary%TYPE;
6125: l_org_inv_loc_seg_id ar_distributions.location_segment_id%TYPE ;
6126: l_taxable_amt NUMBER;
6127: l_taxable_acctd_amt NUMBER;
6128:
6129: l_source_type_secondary ar_distributions.source_type_secondary%TYPE;
6130:
6131: --PL/SQL table object,this collection is used for bulk processing of inserts
6132: TYPE ae_alloc_rec_gt_tab IS TABLE OF ar_ae_alloc_rec_gt%ROWTYPE INDEX BY BINARY_INTEGER;
6133: l_ae_alloc_rec_gt_tab ae_alloc_rec_gt_tab;
7277: p_ae_line_init_rec IN ar_ae_alloc_rec_gt%ROWTYPE,
7278: p_build_all IN BOOLEAN ) IS
7279:
7280: l_ae_line_rec ar_ae_alloc_rec_gt%ROWTYPE;
7281: l_actual_account ar_distributions.code_combination_id%TYPE ;
7282: l_line_tax_amt NUMBER := 0;
7283: l_line_tax_acctd_amt NUMBER := 0;
7284:
7285: BEGIN
7982: --Bulk processing of distribution records [Bug 6454022]
7983: IF NVL(g_simul_app,'N') = 'N' THEN
7984: IF (NVL(g_ae_sys_rec.sob_type,'P') = 'P') THEN
7985:
7986: INSERT INTO ar_distributions (
7987: line_id,
7988: source_id,
7989: source_table,
7990: source_type,
8028: activity_bucket,
8029: ref_dist_ccid,
8030: ref_mf_dist_flag
8031: )
8032: SELECT ar_distributions_s.nextval,
8033: al.ae_source_id,
8034: al.ae_source_table,
8035: al.ae_line_type,
8036: al.ae_line_type_secondary,
8810: /*========================================================================
8811: | PRIVATE PROCEDURE Insert_Ae_Lines
8812: |
8813: | DESCRIPTION
8814: | Inserts into AR_DISTRIBUTIONS accounting lines
8815: | ----------------------------------------------
8816: | Calls the table handler for AR_DISTRIBUTIONS to insert accounting
8817: | for a given document into the underlying table.
8818: |
8812: |
8813: | DESCRIPTION
8814: | Inserts into AR_DISTRIBUTIONS accounting lines
8815: | ----------------------------------------------
8816: | Calls the table handler for AR_DISTRIBUTIONS to insert accounting
8817: | for a given document into the underlying table.
8818: |
8819: | PARAMETERS
8820: | p_ae_line_tbl IN Accounting lines table
8822: | 24-NOV-2003 Herve Yu Distributions in the receipt currency
8823: *=======================================================================*/
8824: PROCEDURE Insert_Ae_Lines(p_ae_line_tbl IN ar_ae_alloc_rec_gt%ROWTYPE) IS
8825:
8826: l_ae_line_rec ar_distributions%ROWTYPE;
8827: l_ae_line_rec_empty ar_distributions%ROWTYPE;
8828: l_dummy ar_distributions.line_id%TYPE;
8829:
8830: BEGIN
8823: *=======================================================================*/
8824: PROCEDURE Insert_Ae_Lines(p_ae_line_tbl IN ar_ae_alloc_rec_gt%ROWTYPE) IS
8825:
8826: l_ae_line_rec ar_distributions%ROWTYPE;
8827: l_ae_line_rec_empty ar_distributions%ROWTYPE;
8828: l_dummy ar_distributions.line_id%TYPE;
8829:
8830: BEGIN
8831:
8824: PROCEDURE Insert_Ae_Lines(p_ae_line_tbl IN ar_ae_alloc_rec_gt%ROWTYPE) IS
8825:
8826: l_ae_line_rec ar_distributions%ROWTYPE;
8827: l_ae_line_rec_empty ar_distributions%ROWTYPE;
8828: l_dummy ar_distributions.line_id%TYPE;
8829:
8830: BEGIN
8831:
8832: arp_standard.debug( 'ARP_ALLOCATION_PKG.Insert_Ae_Lines()+');
8875: l_ae_line_rec.ref_line_id := p_ae_line_tbl.ae_ref_line_id;
8876:
8877: Dump_Dist_Amts(l_ae_line_rec);
8878:
8879: --Insert into ar_distributions
8880: IF (NVL(g_ae_sys_rec.sob_type,'P') = 'P') THEN
8881:
8882: arp_distributions_pkg.insert_p(l_ae_line_rec, l_dummy);
8883: --{BUG#4301323
8891: -- arp_standard.debug('source type = ' || l_ae_line_rec.source_type);
8892: -- if (l_ae_line_rec.source_type = 'EXCH_GAIN' or
8893: -- l_ae_line_rec.source_type = 'EXCH_LOSS' or
8894: -- l_ae_line_rec.source_type = 'CURR_ROUND' ) THEN
8895: -- select ar_distributions_s.nextval
8896: -- into l_ae_line_rec.line_id
8897: -- from dual;
8898: -- ELSE
8899: -- BEGIN
8898: -- ELSE
8899: -- BEGIN
8900: -- select line_id
8901: -- into l_ae_line_rec.line_id
8902: -- from ar_distributions
8903: -- where source_id = l_ae_line_rec.source_id
8904: -- and source_table = l_ae_line_rec.source_table
8905: -- and source_type = l_ae_line_rec.source_type
8906: -- and (source_type_secondary =
8913: -- and code_combination_id = l_ae_line_rec.code_combination_id;
8914: -- EXCEPTION
8915: -- WHEN OTHERS THEN
8916: -- arp_standard.debug('Can not determine Line id so created new one');
8917: -- select ar_distributions_s.nextval
8918: -- into l_ae_line_rec.line_id
8919: -- from dual;
8920: -- END;
8921: -- arp_standard.debug('line id = ' || to_char(l_ae_line_rec.line_id));
8934: /*========================================================================
8935: | PRIVATE PROCEDURE Cache_Ae_Lines
8936: |
8937: | DESCRIPTION
8938: | Inserts into AR_DISTRIBUTIONS accounting lines
8939: | ----------------------------------------------
8940: | Calls the table handler for AR_DISTRIBUTIONS to insert accounting
8941: | for a given document into the underlying table.
8942: |
8936: |
8937: | DESCRIPTION
8938: | Inserts into AR_DISTRIBUTIONS accounting lines
8939: | ----------------------------------------------
8940: | Calls the table handler for AR_DISTRIBUTIONS to insert accounting
8941: | for a given document into the underlying table.
8942: |
8943: | PARAMETERS
8944: | p_ae_line_tbl IN Accounting lines table
9316: |
9317: | PARAMETERS
9318: | p_ae_line_rec IN Accounting lines record
9319: *==========================================================================*/
9320: PROCEDURE Dump_Dist_Amts(p_ae_line_rec IN ar_distributions%ROWTYPE) IS
9321: BEGIN
9322:
9323: IF PG_DEBUG in ('Y', 'C') THEN
9324: arp_standard.debug('ARP_ALLOCATION_PKG.Dump_Dist_Amts()+');