[Home] [Help]
2369: IF( p_profile_info.use_inv_acct_for_cm_flag = 'Y'
2370: AND p_account_class = REC
2371: AND p_code_combination_id IS NULL ) THEN
2372:
2373: l_inv_gl_dist_table := CRLF ||'ra_cust_trx_line_gl_dist lgd_inv_rec,';
2374:
2375: END IF;
2376:
2377: IF( l_based_on_salesrep_flag ) THEN
2389: END IF;
2390:
2391: IF( p_account_class = REC ) THEN
2392:
2393: l_gl_dist_table := CRLF ||'ra_cust_trx_line_gl_dist lgd,';
2394:
2395: END IF;
2396:
2397: ------------------------------------------------------------------------
2447: AND not exists
2448: (SELECT ';
2449: -- bug 7557904
2450: IF( p_request_id IS NOT NULL ) THEN
2451: l_prevent_dup_rec_pred := l_prevent_dup_rec_pred || ' /*+ INDEX (lgd RA_CUST_TRX_LINE_GL_DIST_N10)*/ ';
2452: ELSE
2453: l_prevent_dup_rec_pred := l_prevent_dup_rec_pred || ' /*+ INDEX (lgd RA_CUST_TRX_LINE_GL_DIST_N1)*/ ';
2454: END IF;
2455:
2449: -- bug 7557904
2450: IF( p_request_id IS NOT NULL ) THEN
2451: l_prevent_dup_rec_pred := l_prevent_dup_rec_pred || ' /*+ INDEX (lgd RA_CUST_TRX_LINE_GL_DIST_N10)*/ ';
2452: ELSE
2453: l_prevent_dup_rec_pred := l_prevent_dup_rec_pred || ' /*+ INDEX (lgd RA_CUST_TRX_LINE_GL_DIST_N1)*/ ';
2454: END IF;
2455:
2456: l_prevent_dup_rec_pred := l_prevent_dup_rec_pred || '
2457: ''distribution exists''
2454: END IF;
2455:
2456: l_prevent_dup_rec_pred := l_prevent_dup_rec_pred || '
2457: ''distribution exists''
2458: FROM ra_cust_trx_line_gl_dist lgd
2459: WHERE ctl.customer_trx_id = lgd.customer_trx_id
2460: AND ctl.customer_trx_line_id = lgd.customer_trx_line_id ';
2461:
2462:
2678: || CRLF ||
2679: 'fnd_currencies fc_foreign,'
2680: || l_gl_dist_table
2681: || CRLF ||
2682: 'ra_cust_trx_line_gl_dist rgd,
2683: ra_customer_trx_lines ctl,
2684: ra_customer_trx ct
2685: WHERE ct.customer_trx_id = ctl.customer_trx_id(+)
2686: AND ct.invoice_currency_code = fc_foreign.currency_code'
3124: p_concat_segments IN varchar2,
3125: p_segment_table IN fnd_flex_ext.SegmentArray,
3126: p_segment_cnt IN BINARY_INTEGER,
3127: p_account_class IN
3128: ra_cust_trx_line_gl_dist.account_class%type,
3129: p_result OUT NOCOPY BOOLEAN
3130: ) RETURN BINARY_INTEGER IS
3131:
3132: hash_value NUMBER;
3338: arp_trx_global.system_info_rec_type,
3339: p_segment_table IN fnd_flex_ext.SegmentArray,
3340: p_segment_cnt IN BINARY_INTEGER,
3341: p_account_class IN
3342: ra_cust_trx_line_gl_dist.account_class%type,
3343: p_concat_segments IN VARCHAR2 )
3344:
3345: RETURN BINARY_INTEGER IS
3346:
4851: --
4852: -- Construct the Delete Statement
4853: --
4854: l_delete_stmt :=
4855: 'DELETE from ra_cust_trx_line_gl_dist gd
4856: WHERE gl_posted_date is null'
4857: || l_account_class_pred
4858: || l_request_id_pred
4859: || l_ctid_pred
5066: /* Bug 2560036 - modified insert to set rec_offset_flag in
5067: support of directly inserted UNEARN rows for RAM-C */
5068:
5069: FORALL i IN p_low..p_high
5070: INSERT into ra_cust_trx_line_gl_dist
5071: (
5072: cust_trx_line_gl_dist_id,
5073: created_by,
5074: creation_date,
5098: ,org_id
5099: )
5100: VALUES
5101: (
5102: ra_cust_trx_line_gl_dist_s.nextval,
5103: p_profile_info.user_id,
5104: sysdate,
5105: p_profile_info.user_id,
5106: sysdate,
5886: arp_standard.debug('do_autoaccounting: ' || 'before loop for MRC processing...');
5887: END IF;
5888: FOR I in gl_dist_array.FIRST .. gl_dist_array.LAST LOOP
5889: /*---------------------------------------------------------+
5890: | call mrc engine to delete from ra_cust_trx_line_gl_dist |
5891: +---------------------------------------------------------*/
5892: IF PG_DEBUG in ('Y', 'C') THEN
5893: arp_standard.debug('do_autoaccounting: ' || 'before calling maintain_mrc ');
5894: arp_standard.debug('do_autoaccounting: ' || 'gl dist array('||to_char(I) || ') = ' ||
5896: END IF;
5897:
5898: ar_mrc_engine.maintain_mrc_data(
5899: p_event_mode => 'DELETE',
5900: p_table_name => 'RA_CUST_TRX_LINE_GL_DIST',
5901: p_mode => 'SINGLE',
5902: p_key_value => gl_dist_array(I));
5903: END LOOP;
5904: END IF;