11: p_calling_fn in varchar2,
12: p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null) RETURN BOOLEAN IS
13:
14: l_reporting_flag varchar2(1);
15: l_sob_tbl FA_CACHE_PKG.fazcrsob_sob_tbl_type;
16:
17: l_calling_fn varchar2(30) := 'fa_interco_pvt.do_all_books';
18: interco_err EXCEPTION;
19:
24: fa_debug_pkg.add(l_calling_fn, 'p_claling_fn', p_calling_fn
25: ,p_log_level_rec => p_log_level_rec);
26: end if;
27: --exit from the function if intercompany posting not allowed fapost enhancement strat
28: if (nvl(fa_cache_pkg.fazcbc_record.intercompany_posting_flag,'Y') = 'N')then
29: if (p_log_level_rec.statement_level) then
30: fa_debug_pkg.add(l_calling_fn, 'Intercompany posting not allowed exiting', p_calling_fn
31: ,p_log_level_rec => p_log_level_rec);
32: end if;
47: end if;
48: g_group_reclass := FALSE;
49: end if;
50: -- call the sob cache to get the table of sob_ids
51: if not FA_CACHE_PKG.fazcrsob
52: (x_book_type_code => p_src_asset_hdr_rec.book_type_code,
53: x_sob_tbl => l_sob_tbl
54: ,p_log_level_rec => p_log_level_rec) then
55: raise interco_err;
70: END IF;
71:
72: -- call the cache to set the sob_id used for rounding and other lower
73: -- level code for each book.
74: if NOT fa_cache_pkg.fazcbcs(X_book => p_src_asset_hdr_rec.book_type_code
75: ,p_log_level_rec => p_log_level_rec) then
76: raise interco_err;
77: end if;
78:
193:
194: BEGIN
195:
196:
197: l_account_flex := fa_cache_pkg.fazcbc_record.ACCOUNTING_FLEX_STRUCTURE;
198: --exit from the function if intercompany posting not allowed fapost enhancement strat
199: if (nvl(fa_cache_pkg.fazcbc_record.intercompany_posting_flag,'Y') <> 'Y')then
200: if (p_log_level_rec.statement_level) then
201: fa_debug_pkg.add(l_calling_fn, 'Intercompany posting not allowed exiting', p_calling_fn
195:
196:
197: l_account_flex := fa_cache_pkg.fazcbc_record.ACCOUNTING_FLEX_STRUCTURE;
198: --exit from the function if intercompany posting not allowed fapost enhancement strat
199: if (nvl(fa_cache_pkg.fazcbc_record.intercompany_posting_flag,'Y') <> 'Y')then
200: if (p_log_level_rec.statement_level) then
201: fa_debug_pkg.add(l_calling_fn, 'Intercompany posting not allowed exiting', p_calling_fn
202: ,p_log_level_rec => p_log_level_rec);
203: end if;
267:
268:
269: -- not needed
270: -- call the ccb cache for src
271: -- if not fa_cache_pkg.fazccb
272: -- (X_book => p_src_asset_hdr_rec.book_type_code,
273: -- X_cat_id => p_src_asset_cat_rec.category_id
274: --) then raise interco_err;
275: -- end if;
273: -- X_cat_id => p_src_asset_cat_rec.category_id
274: --) then raise interco_err;
275: -- end if;
276: --
277: -- l_src_cat_book_rec := fa_cache_pkg.fazccb_record;
278:
279:
280: -- get each balancing segment and the sum of the amounts
281: l_cursor_id := DBMS_SQL.OPEN_CURSOR;
357: DBMS_SQL.PARSE(l_cursor_id, l_statement, DBMS_SQL.NATIVE);
358:
359: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':p_asset_id', p_src_asset_hdr_rec.asset_id);
360: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':p_book', p_src_asset_hdr_rec.book_type_code);
361: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':p_period_counter', fa_cache_pkg.fazcbc_record.last_period_counter + 1);
362: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':p_thid', p_src_trans_rec.transaction_header_id);
363:
364:
365: DBMS_SQL.DEFINE_COLUMN(l_cursor_id, 1, l_balancing_seg, 30);
414: l_dest_trans_rec := p_dest_trans_rec;
415:
416: -- not needed
417: -- call the ccb cache for src
418: -- if not fa_cache_pkg.fazccb
419: -- (X_book => l_dest_asset_hdr_rec.book_type_code,
420: -- X_cat_id => l_dest_asset_cat_rec.category_id
421: --) then raise interco_err;
422: -- end if;
420: -- X_cat_id => l_dest_asset_cat_rec.category_id
421: --) then raise interco_err;
422: -- end if;
423: --
424: -- l_dest_cat_book_rec := fa_cache_pkg.fazccb_record;
425:
426:
427: -- get each balancing segment and the sum of the amounts
428: l_cursor_id := DBMS_SQL.OPEN_CURSOR;
503: DBMS_SQL.PARSE(l_cursor_id, l_statement, DBMS_SQL.NATIVE);
504:
505: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':p_asset_id', p_dest_asset_hdr_rec.asset_id);
506: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':p_book', p_dest_asset_hdr_rec.book_type_code);
507: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':p_period_counter', fa_cache_pkg.fazcbc_record.last_period_counter + 1);
508: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':p_thid', p_dest_trans_rec.transaction_header_Id);
509:
510: DBMS_SQL.DEFINE_COLUMN(l_cursor_id, 1, l_balancing_seg, 30);
511: DBMS_SQL.DEFINE_COLUMN(l_cursor_id, 2, l_sum_amount);
953: ,p_log_level_rec => p_log_level_rec);
954: end if;
955:
956:
957: l_interco_ar_acct := fa_cache_pkg.fazcbc_record.ar_intercompany_acct;
958: l_interco_ap_acct := fa_cache_pkg.fazcbc_record.ap_intercompany_acct;
959:
960:
961: -- set the source type code...
954: end if;
955:
956:
957: l_interco_ar_acct := fa_cache_pkg.fazcbc_record.ar_intercompany_acct;
958: l_interco_ap_acct := fa_cache_pkg.fazcbc_record.ap_intercompany_acct;
959:
960:
961: -- set the source type code...
962: -- currently only transaction that should call this engine
998: fa_debug_pkg.add(l_calling_fn, 'dest source_type_code', l_dest_source_type_code
999: ,p_log_level_rec => p_log_level_rec);
1000: end if;
1001:
1002: l_adj.period_counter_created := fa_cache_pkg.fazcbc_record.last_period_counter + 1;
1003: l_adj.period_counter_adjusted := fa_cache_pkg.fazcbc_record.last_period_counter + 1;
1004: l_adj.last_update_date := p_src_trans_rec.transaction_date_entered;
1005: l_adj.selection_mode := FA_ADJUST_TYPE_PKG.FA_AJ_SINGLE;
1006: l_adj.selection_thid := 0;
999: ,p_log_level_rec => p_log_level_rec);
1000: end if;
1001:
1002: l_adj.period_counter_created := fa_cache_pkg.fazcbc_record.last_period_counter + 1;
1003: l_adj.period_counter_adjusted := fa_cache_pkg.fazcbc_record.last_period_counter + 1;
1004: l_adj.last_update_date := p_src_trans_rec.transaction_date_entered;
1005: l_adj.selection_mode := FA_ADJUST_TYPE_PKG.FA_AJ_SINGLE;
1006: l_adj.selection_thid := 0;
1007: l_adj.selection_retid := 0;
1069: -- need to use local for dest variable for intra-asset trxs
1070: if (l_summary_tbl(l_summary_count).type = 'SRC') then
1071: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':p_asset_id', p_src_asset_hdr_rec.asset_id);
1072: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':p_book_type_code', p_src_asset_hdr_rec.book_type_code);
1073: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':p_period_counter_created', fa_cache_pkg.fazcbc_record.last_period_counter + 1);
1074: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':p_thid', p_src_trans_rec.transaction_header_id);
1075: else
1076: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':p_asset_id', l_dest_asset_hdr_rec.asset_id);
1077: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':p_book_type_code', l_dest_asset_hdr_rec.book_type_code);
1074: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':p_thid', p_src_trans_rec.transaction_header_id);
1075: else
1076: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':p_asset_id', l_dest_asset_hdr_rec.asset_id);
1077: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':p_book_type_code', l_dest_asset_hdr_rec.book_type_code);
1078: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':p_period_counter_created', fa_cache_pkg.fazcbc_record.last_period_counter + 1);
1079: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':p_thid', l_dest_trans_rec.transaction_header_id);
1080: end if;
1081:
1082: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':p_balancing_segment', l_summary_tbl(l_summary_count).balancing_segment);
1305: fa_debug_pkg.add(l_calling_fn, 'inside', 'validate interco code'
1306: ,p_log_level_rec => p_log_level_rec);
1307: end if;
1308:
1309: l_account_flex := fa_cache_pkg.fazcbc_record.ACCOUNTING_FLEX_STRUCTURE;
1310:
1311: /*
1312: l_status := fnd_flex_apis.get_qualifier_segnum(appl_id => 101,
1313: key_flex_code => 'GL#',
1671: fa_debug_pkg.add(l_calling_fn, 'inside', 'validate interco code'
1672: ,p_log_level_rec => p_log_level_rec);
1673: end if;
1674:
1675: l_account_flex := fa_cache_pkg.fazcbc_record.ACCOUNTING_FLEX_STRUCTURE;
1676:
1677: /*
1678: l_status := fnd_flex_apis.get_qualifier_segnum(appl_id => 101,
1679: key_flex_code => 'GL#',