[Home] [Help]
31: l_segment_array FND_FLEX_EXT.SEGMENTARRAY;
32: l_number_of_segments NUMBER;
33: l_delimiter VARCHAR2(1);
34: l_chart_of_accounts_id NUMBER;
35: l_concatenated_segments gl_code_combinations_kfv.concatenated_segments%TYPE;
36:
37: begin
38:
39: if (intercompany_column_number > 0 and intercompany_column_number < 31) then
39: if (intercompany_column_number > 0 and intercompany_column_number < 31) then
40:
41: SELECT concatenated_segments, chart_of_accounts_id
42: INTO l_concatenated_segments, l_chart_of_accounts_id
43: FROM gl_code_combinations_kfv
44: WHERE code_combination_id = ccid;
45:
46: l_delimiter := fnd_flex_ext.get_delimiter('SQLGL', 'GL#', l_chart_of_accounts_id);
47:
119: cur_hdl := dbms_sql.open_cursor;
120: stmt_str := 'UPDATE fun_bal_inter_int_gt inter_int ' ||
121: ' SET rec_bsv = ' ||
122: ' (SELECT ' || l_bal_seg_column_name ||
123: ' FROM gl_code_combinations ' ||
124: ' WHERE code_combination_id = inter_int.rec_acct ' ||
125: ' AND inter_int.bal_seg_column_name = ''' || l_bal_seg_column_name || ''') ' ||
126: ' WHERE inter_int.rec_acct IS NOT NULL AND inter_int.rec_acct <> -1';
127: dbms_sql.parse(cur_hdl, stmt_str, dbms_sql.native);
131: cur_hdl := dbms_sql.open_cursor;
132: stmt_str := 'UPDATE fun_bal_inter_int_gt inter_int ' ||
133: ' SET pay_bsv = ' ||
134: ' (SELECT ' || l_bal_seg_column_name ||
135: ' FROM gl_code_combinations ' ||
136: ' WHERE code_combination_id = inter_int.pay_acct ' ||
137: ' AND inter_int.bal_seg_column_name = ''' || l_bal_seg_column_name || ''') ' ||
138: ' WHERE inter_int.pay_acct IS NOT NULL AND inter_int.pay_acct <> -1';
139: dbms_sql.parse(cur_hdl, stmt_str, dbms_sql.native);
574: END IF;
575:
576:
577: -- Note: bal_seg_column_number is different from SUBSTR(bal_seg_column_name, 8),
578: -- since bal_seg_column_name refers to the naming in GL_CODE_COMBINATIONS,
579: -- but bal_seg_column_number refers to the position relative to the COA.
580: -- These 2 values are used in different context (name when dealing with GL_CODE_COMB table
581: -- and number when dealing with AOL routines. Do not be confused.
582: -- Problem here: Later on when we deal with performance and decided to check whether the
579: -- but bal_seg_column_number refers to the position relative to the COA.
580: -- These 2 values are used in different context (name when dealing with GL_CODE_COMB table
581: -- and number when dealing with AOL routines. Do not be confused.
582: -- Problem here: Later on when we deal with performance and decided to check whether the
583: -- code combination already exists in gl_code_combinations table, we would also need to
584: -- retrieve the correct segment_name for intercompany segment.
585: -- update balancing segment column, chart of accounts
586: --ASLAI_INIT_01
587: UPDATE fun_bal_headers_gt headers
2439: inter_int.rec_acct = -1
2440: OR
2441: (inter_int.rec_acct IS NOT NULL AND
2442: NOT EXISTS (SELECT 'Receivables account not valid'
2443: FROM gl_code_combinations cc
2444: WHERE inter_int.rec_acct = cc.code_combination_id
2445: AND cc.detail_posting_allowed_flag = 'Y'
2446: AND cc.enabled_flag = 'Y'
2447: AND cc.summary_flag = 'N'
2488: inter_int.pay_acct = -1
2489: OR
2490: (inter_int.pay_acct IS NOT NULL AND
2491: NOT EXISTS (SELECT 'Payables account not valid'
2492: FROM gl_code_combinations cc
2493: WHERE inter_int.pay_acct = cc.code_combination_id
2494: AND cc.detail_posting_allowed_flag = 'Y'
2495: AND cc.enabled_flag = 'Y'
2496: AND cc.summary_flag = 'N'
2638: inter_int.rec_acct = -1
2639: OR
2640: (inter_int.rec_acct IS NOT NULL AND
2641: NOT EXISTS (SELECT 'Receivables account not valid'
2642: FROM gl_code_combinations cc
2643: WHERE inter_int.rec_acct = cc.code_combination_id
2644: AND cc.detail_posting_allowed_flag = 'Y'
2645: AND cc.enabled_flag = 'Y'
2646: AND cc.summary_flag = 'N'
2687: inter_int.pay_acct = -1
2688: OR
2689: (inter_int.pay_acct IS NOT NULL AND
2690: NOT EXISTS (SELECT 'Payables account not valid'
2691: FROM gl_code_combinations cc
2692: WHERE inter_int.pay_acct = cc.code_combination_id
2693: AND cc.detail_posting_allowed_flag = 'Y'
2694: AND cc.enabled_flag = 'Y'
2695: AND cc.summary_flag = 'N'
3342: AND 'OTHER1234567890123456789012345' = accts.cr_bsv
3343: AND 'OTHER1234567890123456789012345' = accts.dr_bsv)
3344: WHERE cr_dr_debit_ccid IS NULL;
3345:
3346: /* Not done for checking ccid valid through gl_code_combinations directly
3347: UPDATE fun_bal_le_bsv_map_gt le_bsv_map
3348: SET (dr_cr_debit_ccid, dr_cr_debit_complete) =
3349: (SELECT code_combination_id, DECODE(ccid, NULL, 'N', 'Y')
3350: FROM gl_code_combinations cc1,
3346: /* Not done for checking ccid valid through gl_code_combinations directly
3347: UPDATE fun_bal_le_bsv_map_gt le_bsv_map
3348: SET (dr_cr_debit_ccid, dr_cr_debit_complete) =
3349: (SELECT code_combination_id, DECODE(ccid, NULL, 'N', 'Y')
3350: FROM gl_code_combinations cc1,
3351: gl_code_combinations cc2
3352: WHERE le_bsv_map.dr_cr_debit_ccid = cc1.code_combination_id
3353: AND cc1.segment1 = DECODE(le_bsv_map.bal_seg_column_no, 1, le_bsv_)
3354: WHERE dr_cr_debit_complete = 'N'
3347: UPDATE fun_bal_le_bsv_map_gt le_bsv_map
3348: SET (dr_cr_debit_ccid, dr_cr_debit_complete) =
3349: (SELECT code_combination_id, DECODE(ccid, NULL, 'N', 'Y')
3350: FROM gl_code_combinations cc1,
3351: gl_code_combinations cc2
3352: WHERE le_bsv_map.dr_cr_debit_ccid = cc1.code_combination_id
3353: AND cc1.segment1 = DECODE(le_bsv_map.bal_seg_column_no, 1, le_bsv_)
3354: WHERE dr_cr_debit_complete = 'N'
3355: */
3729: results.acct_type, get_ccid_concat_disp(results.ccid, headers.chart_of_accounts_id,
3730: DECODE(results.acct_type, 'C', results.cr_bsv, results.dr_bsv),
3731: DECODE(results.acct_type, 'C', results.dr_bsv, results.cr_bsv),
3732: headers.bal_seg_column_number, headers.intercompany_column_number)
3733: FROM fun_bal_headers_gt headers, fun_bal_results_gt results, gl_code_combinations cc
3734: WHERE headers.group_id = results.group_id
3735: AND headers.status = 'OK'
3736: AND results.ccid = cc.code_combination_id(+)
3737: AND (results.ccid < 0