[Home] [Help]
2387: IF( p_profile_info.use_inv_acct_for_cm_flag = 'Y'
2388: AND p_account_class = REC
2389: AND p_code_combination_id IS NULL ) THEN
2390:
2391: l_inv_gl_dist_table := CRLF ||'ra_cust_trx_line_gl_dist lgd_inv_rec,';
2392:
2393: END IF;
2394:
2395: IF( l_based_on_salesrep_flag ) THEN
2407: END IF;
2408:
2409: IF( p_account_class = REC ) THEN
2410:
2411: l_gl_dist_table := CRLF ||'ra_cust_trx_line_gl_dist lgd,';
2412:
2413: END IF;
2414:
2415: ------------------------------------------------------------------------
2465: AND not exists
2466: (SELECT ';
2467: -- bug 7557904
2468: IF( p_request_id IS NOT NULL ) THEN
2469: l_prevent_dup_rec_pred := l_prevent_dup_rec_pred || ' /*+ INDEX (lgd RA_CUST_TRX_LINE_GL_DIST_N10)*/ ';
2470: ELSE
2471: l_prevent_dup_rec_pred := l_prevent_dup_rec_pred || ' /*+ INDEX (lgd RA_CUST_TRX_LINE_GL_DIST_N1)*/ ';
2472: END IF;
2473:
2467: -- bug 7557904
2468: IF( p_request_id IS NOT NULL ) THEN
2469: l_prevent_dup_rec_pred := l_prevent_dup_rec_pred || ' /*+ INDEX (lgd RA_CUST_TRX_LINE_GL_DIST_N10)*/ ';
2470: ELSE
2471: l_prevent_dup_rec_pred := l_prevent_dup_rec_pred || ' /*+ INDEX (lgd RA_CUST_TRX_LINE_GL_DIST_N1)*/ ';
2472: END IF;
2473:
2474: l_prevent_dup_rec_pred := l_prevent_dup_rec_pred || '
2475: ''distribution exists''
2472: END IF;
2473:
2474: l_prevent_dup_rec_pred := l_prevent_dup_rec_pred || '
2475: ''distribution exists''
2476: FROM ra_cust_trx_line_gl_dist lgd
2477: WHERE ctl.customer_trx_id = lgd.customer_trx_id
2478: AND ctl.customer_trx_line_id = lgd.customer_trx_line_id ';
2479:
2480:
2696: || CRLF ||
2697: 'fnd_currencies fc_foreign,'
2698: || l_gl_dist_table
2699: || CRLF ||
2700: 'ra_cust_trx_line_gl_dist rgd,
2701: ra_customer_trx_lines ctl,
2702: ra_customer_trx ct
2703: WHERE ct.customer_trx_id = ctl.customer_trx_id(+)
2704: AND ct.invoice_currency_code = fc_foreign.currency_code'
3141: p_concat_segments IN varchar2,
3142: p_segment_table IN fnd_flex_ext.SegmentArray,
3143: p_segment_cnt IN BINARY_INTEGER,
3144: p_account_class IN
3145: ra_cust_trx_line_gl_dist.account_class%type,
3146: p_result OUT NOCOPY BOOLEAN
3147: ) RETURN BINARY_INTEGER IS
3148:
3149: hash_value NUMBER;
3355: arp_trx_global.system_info_rec_type,
3356: p_segment_table IN fnd_flex_ext.SegmentArray,
3357: p_segment_cnt IN BINARY_INTEGER,
3358: p_account_class IN
3359: ra_cust_trx_line_gl_dist.account_class%type,
3360: p_concat_segments IN VARCHAR2 )
3361:
3362: RETURN BINARY_INTEGER IS
3363:
4915: --
4916: -- Construct the Delete Statement
4917: --
4918: l_delete_stmt :=
4919: 'DELETE from ra_cust_trx_line_gl_dist gd
4920: WHERE gl_posted_date is null'
4921: || l_account_class_pred
4922: || l_request_id_pred
4923: || l_ctid_pred
5130: /* Bug 2560036 - modified insert to set rec_offset_flag in
5131: support of directly inserted UNEARN rows for RAM-C */
5132:
5133: FORALL i IN p_low..p_high
5134: INSERT into ra_cust_trx_line_gl_dist
5135: (
5136: cust_trx_line_gl_dist_id,
5137: created_by,
5138: creation_date,
5162: ,org_id
5163: )
5164: VALUES
5165: (
5166: ra_cust_trx_line_gl_dist_s.nextval,
5167: p_profile_info.user_id,
5168: sysdate,
5169: p_profile_info.user_id,
5170: sysdate,
5960: arp_standard.debug('do_autoaccounting: ' || 'before loop for MRC processing...');
5961: END IF;
5962: FOR I in gl_dist_array.FIRST .. gl_dist_array.LAST LOOP
5963: /*---------------------------------------------------------+
5964: | call mrc engine to delete from ra_cust_trx_line_gl_dist |
5965: +---------------------------------------------------------*/
5966: IF PG_DEBUG in ('Y', 'C') THEN
5967: arp_standard.debug('do_autoaccounting: ' || 'before calling maintain_mrc ');
5968: arp_standard.debug('do_autoaccounting: ' || 'gl dist array('||to_char(I) || ') = ' ||
5970: END IF;
5971:
5972: ar_mrc_engine.maintain_mrc_data(
5973: p_event_mode => 'DELETE',
5974: p_table_name => 'RA_CUST_TRX_LINE_GL_DIST',
5975: p_mode => 'SINGLE',
5976: p_key_value => gl_dist_array(I));
5977: END LOOP;
5978: END IF;