DBA Data[Home] [Help]

APPS.FUN_BAL_PKG dependencies on FUN_BAL_INTER_INT_GT

Line 38: DELETE FROM fun_bal_inter_int_gt;

34:
35: DELETE FROM fun_bal_results_gt;
36: DELETE FROM fun_bal_errors_gt;
37: DELETE FROM fun_bal_le_bsv_map_gt;
38: DELETE FROM fun_bal_inter_int_gt;
39: DELETE FROM fun_bal_intra_int_gt;
40: /* Using delete rather than truncate as shown in the code below. The reason is that truncate (or any DDL operations)
41: perform an implicit commit => need to use autonomous transaction to perform such operation. However, we would
42: like to make sure the calling program does not see the rows that gets deleted, therefore truncate is not used.

Line 49: dbms_sql.parse(cur_hdl, 'TRUNCATE TABLE ' || g_fun_schema || '.FUN_BAL_INTER_INT_GT', dbms_sql.native);

45: cur_hdl := dbms_sql.open_cursor;
46: dbms_sql.parse(cur_hdl, 'TRUNCATE TABLE ' || g_fun_schema || '.FUN_BAL_RESULTS_GT', dbms_sql.native);
47: dbms_sql.parse(cur_hdl, 'TRUNCATE TABLE ' || g_fun_schema || '.FUN_BAL_ERRORS_GT', dbms_sql.native);
48: dbms_sql.parse(cur_hdl, 'TRUNCATE TABLE ' || g_fun_schema || '.FUN_BAL_LE_BSV_MAP_GT', dbms_sql.native);
49: dbms_sql.parse(cur_hdl, 'TRUNCATE TABLE ' || g_fun_schema || '.FUN_BAL_INTER_INT_GT', dbms_sql.native);
50: dbms_sql.parse(cur_hdl, 'TRUNCATE TABLE ' || g_fun_schema || '.FUN_BAL_INTRA_INT_GT', dbms_sql.native);
51: dbms_sql.parse(cur_hdl, 'TRUNCATE TABLE ' || g_fun_schema || '.FUN_BAL_RESULTS_T', dbms_sql.native);
52: dbms_sql.parse(cur_hdl, 'TRUNCATE TABLE ' || g_fun_schema || '.FUN_BAL_ERRORS_T', dbms_sql.native);
53: dbms_sql.parse(cur_hdl, 'TRUNCATE TABLE ' || g_fun_schema || '.FUN_BAL_LINES_T', dbms_sql.native);

Line 88: stmt_str := 'UPDATE fun_bal_inter_int_gt inter_int ' ||

84: LOOP
85: FETCH bal_seg_val_cur INTO l_bal_seg_column_name;
86: EXIT WHEN bal_seg_val_cur%NOTFOUND;
87: cur_hdl := dbms_sql.open_cursor;
88: stmt_str := 'UPDATE fun_bal_inter_int_gt inter_int ' ||
89: ' SET rec_bsv = ' ||
90: ' (SELECT ' || l_bal_seg_column_name ||
91: ' FROM gl_code_combinations ' ||
92: ' WHERE code_combination_id = inter_int.rec_acct ' ||

Line 100: stmt_str := 'UPDATE fun_bal_inter_int_gt inter_int ' ||

96: rows_processed := dbms_sql.execute(cur_hdl);
97: dbms_sql.close_cursor(cur_hdl); -- close cursor
98:
99: cur_hdl := dbms_sql.open_cursor;
100: stmt_str := 'UPDATE fun_bal_inter_int_gt inter_int ' ||
101: ' SET pay_bsv = ' ||
102: ' (SELECT ' || l_bal_seg_column_name ||
103: ' FROM gl_code_combinations ' ||
104: ' WHERE code_combination_id = inter_int.pay_acct ' ||

Line 669: SELECT * FROM fun_bal_inter_int_gt;

665: l_inter_int_tab inter_int_tab_type;
666: CURSOR l_le_bsv_map_cursor IS
667: SELECT * FROM fun_bal_le_bsv_map_gt;
668: CURSOR l_inter_int_cursor IS
669: SELECT * FROM fun_bal_inter_int_gt;
670: l_le_bsv_map_count NUMBER;
671: l_inter_int_count NUMBER;
672: BEGIN
673: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level) THEN

Line 934: -- Insert into FUN_BAL_INTER_INT_GT with all lines that require Intercompany balancing

930: AND (headers.driving_dr_le_id IS NULL
931: OR
932: headers.driving_cr_le_id IS NULL));
933:
934: -- Insert into FUN_BAL_INTER_INT_GT with all lines that require Intercompany balancing
935: INSERT INTO fun_bal_inter_int_gt(group_id, ledger_id, gl_date, status, driving_dr_le_id, driving_cr_le_id,
936: intercompany_mode, le_id, entered_currency_code, exchange_date, exchange_rate, exchange_rate_type,
937: accounted_amt_cr, accounted_amt_dr, entered_amt_cr, entered_amt_dr, bal_seg_column_name, type)
938: SELECT hdrs.group_id, hdrs.ledger_id, hdrs.gl_date, hdrs.status, hdrs.driving_dr_le_id, hdrs.driving_cr_le_id,

Line 935: INSERT INTO fun_bal_inter_int_gt(group_id, ledger_id, gl_date, status, driving_dr_le_id, driving_cr_le_id,

931: OR
932: headers.driving_cr_le_id IS NULL));
933:
934: -- Insert into FUN_BAL_INTER_INT_GT with all lines that require Intercompany balancing
935: INSERT INTO fun_bal_inter_int_gt(group_id, ledger_id, gl_date, status, driving_dr_le_id, driving_cr_le_id,
936: intercompany_mode, le_id, entered_currency_code, exchange_date, exchange_rate, exchange_rate_type,
937: accounted_amt_cr, accounted_amt_dr, entered_amt_cr, entered_amt_dr, bal_seg_column_name, type)
938: SELECT hdrs.group_id, hdrs.ledger_id, hdrs.gl_date, hdrs.status, hdrs.driving_dr_le_id, hdrs.driving_cr_le_id,
939: hdrs.intercompany_mode, le_bsv_map.le_id, lines.entered_currency_code,

Line 982: UPDATE fun_bal_inter_int_gt upd

978: -- the Legal Entity and BSV value. Initially we found the account using
979: -- only the LE id.
980: -- Find out the balancing segment values for the dr le id
981: -- This will set the value correctly where mode is 1 : 1 or 1 : M
982: UPDATE fun_bal_inter_int_gt upd
983: SET driving_dr_le_bsv =
984: (SELECT DECODE((COUNT(DISTINCT le_bsv_map.bal_seg_val)),
985: 1, MIN(le_bsv_map.bal_seg_val),
986: 'Many')

Line 994: UPDATE fun_bal_inter_int_gt upd

990: GROUP BY le_bsv_map.group_id, le_bsv_map.le_id);
991:
992: -- Find out the balancing segment values for the cr le id
993: -- This will set the value correctly where mode is 1 : 1 or M : 1
994: UPDATE fun_bal_inter_int_gt upd
995: SET driving_cr_le_bsv =
996: (SELECT DECODE((COUNT(DISTINCT le_bsv_map.bal_seg_val)),
997: 1, MIN(le_bsv_map.bal_seg_val),
998: 'Many')

Line 1006: UPDATE fun_bal_inter_int_gt upd

1002: GROUP BY le_bsv_map.group_id, le_bsv_map.le_id);
1003:
1004: -- Find out the balancing segment values for the cr le id
1005: -- This will set the value correctly where mode is 1 : 1 or M : 1
1006: UPDATE fun_bal_inter_int_gt upd
1007: SET line_le_bsv =
1008: (SELECT DECODE((COUNT(DISTINCT le_bsv_map.bal_seg_val)),
1009: 1, MIN(le_bsv_map.bal_seg_val),
1010: 'Many')

Line 1044: UPDATE fun_bal_inter_int_gt inter_int

1040: -- 4) From LE => To LE
1041: -- 4) From LE => To All Others
1042:
1043: -- For 1:1, search from rule 1 and progress through to rule 5 if not found
1044: UPDATE fun_bal_inter_int_gt inter_int
1045: SET rec_acct =
1046: (SELECT ccid
1047: FROM fun_inter_accounts accts
1048: WHERE inter_int.ledger_id = accts.ledger_id

Line 1087: UPDATE fun_bal_inter_int_gt inter_int

1083: AND driving_dr_le_bsv <> 'Many'
1084: AND driving_cr_le_bsv <> 'Many';
1085:
1086: -- For 1:M, search for rule 2
1087: UPDATE fun_bal_inter_int_gt inter_int
1088: SET rec_acct =
1089: (SELECT ccid
1090: FROM fun_inter_accounts accts
1091: WHERE inter_int.ledger_id = accts.ledger_id

Line 1123: UPDATE fun_bal_inter_int_gt inter_int

1119: WHERE inter_int.intercompany_mode IN (1,2,3)
1120: AND inter_int.rec_acct IS NULL;
1121:
1122: -- For M:1, search from rule 3 and progress through to rule 5 if not found
1123: UPDATE fun_bal_inter_int_gt inter_int
1124: SET rec_acct =
1125: (SELECT ccid
1126: FROM fun_inter_accounts accts
1127: WHERE inter_int.ledger_id = accts.ledger_id

Line 1161: UPDATE fun_bal_inter_int_gt inter_int

1157:
1158: -- The above will take care of rules 1 to 3.
1159: -- The account has not been found, the following will deal with rule 4
1160: -- ie it looks at specific LE without checking for the BSV
1161: UPDATE fun_bal_inter_int_gt inter_int
1162: SET rec_acct =
1163: (SELECT ccid
1164: FROM fun_inter_accounts accts
1165: WHERE inter_int.ledger_id = accts.ledger_id

Line 1192: UPDATE fun_bal_inter_int_gt inter_int

1188: -- End, Balancing API Changes, Feb 2005
1189:
1190: -- Update receivables account for other LE if no account specified for specific LE
1191: -- This will handle rule 5
1192: UPDATE fun_bal_inter_int_gt inter_int
1193: SET rec_acct =
1194: (SELECT ccid
1195: FROM fun_inter_accounts accts
1196: WHERE inter_int.ledger_id = accts.ledger_id

Line 1215: UPDATE fun_bal_inter_int_gt inter_int

1211: WHERE inter_int.rec_acct IS NULL;
1212:
1213: -- Update payables account for specific LE
1214: -- 1:1 mapping to begin with
1215: UPDATE fun_bal_inter_int_gt inter_int
1216: SET pay_acct =
1217: (SELECT ccid
1218: FROM fun_inter_accounts accts
1219: WHERE inter_int.ledger_id = accts.ledger_id

Line 1257: UPDATE fun_bal_inter_int_gt inter_int

1253: AND driving_cr_le_bsv <> 'Many'
1254: AND driving_dr_le_bsv <> 'Many';
1255:
1256: -- 1:M - next
1257: UPDATE fun_bal_inter_int_gt inter_int
1258: SET pay_acct =
1259: (SELECT ccid
1260: FROM fun_inter_accounts accts
1261: WHERE inter_int.ledger_id = accts.ledger_id

Line 1292: UPDATE fun_bal_inter_int_gt inter_int

1288: WHERE inter_int.intercompany_mode IN (1,2,3)
1289: AND inter_int.pay_acct IS NULL;
1290:
1291: -- M:1 - next
1292: UPDATE fun_bal_inter_int_gt inter_int
1293: SET pay_acct =
1294: (SELECT ccid
1295: FROM fun_inter_accounts accts
1296: WHERE inter_int.ledger_id = accts.ledger_id

Line 1328: UPDATE fun_bal_inter_int_gt inter_int

1324: AND inter_int.pay_acct IS NULL ;
1325:
1326: -- If the payables account was not found, look for an account as per rule 4
1327: -- ie from le to te
1328: UPDATE fun_bal_inter_int_gt inter_int
1329: SET pay_acct =
1330: (SELECT ccid
1331: FROM fun_inter_accounts accts
1332: WHERE inter_int.ledger_id = accts.ledger_id

Line 1359: UPDATE fun_bal_inter_int_gt inter_int

1355: -- End, Balancing API changes
1356:
1357: -- Update payables account for other LE if no account specified for specific LE
1358: -- This will deal with rule 5, From LE to All Others
1359: UPDATE fun_bal_inter_int_gt inter_int
1360: SET pay_acct =
1361: (SELECT ccid
1362: FROM fun_inter_accounts accts
1363: WHERE inter_int.ledger_id = accts.ledger_id

Line 1381: --FND_STATS.GATHER_TABLE_STATS(g_fun_schema, 'FUN_BAL_INTER_INT_GT');

1377: TRUNC(NVL(accts.end_date, inter_int.gl_date))))
1378: WHERE inter_int.pay_acct IS NULL;
1379:
1380:
1381: --FND_STATS.GATHER_TABLE_STATS(g_fun_schema, 'FUN_BAL_INTER_INT_GT');
1382:
1383: UPDATE fun_bal_inter_int_gt inter_int
1384: SET rec_acct = -1
1385: WHERE rec_acct IS NULL AND

Line 1383: UPDATE fun_bal_inter_int_gt inter_int

1379:
1380:
1381: --FND_STATS.GATHER_TABLE_STATS(g_fun_schema, 'FUN_BAL_INTER_INT_GT');
1382:
1383: UPDATE fun_bal_inter_int_gt inter_int
1384: SET rec_acct = -1
1385: WHERE rec_acct IS NULL AND
1386: EXISTS (SELECT 'Receivables Accounts exist but not defaulted'
1387: FROM fun_inter_accounts accts

Line 1412: UPDATE fun_bal_inter_int_gt inter_int

1408: NULL) = accts.to_le_id
1409: OR
1410: accts.to_le_id = -99));
1411:
1412: UPDATE fun_bal_inter_int_gt inter_int
1413: SET pay_acct = -1
1414: WHERE pay_acct IS NULL AND
1415: EXISTS (SELECT 'Payables Accounts exist but not defaulted'
1416: FROM fun_inter_accounts accts

Line 1468: FROM fun_bal_inter_int_gt inter_int, fun_bal_headers_gt hdrs

1464: DECODE(inter_int.rec_acct, -1, NULL, inter_int.rec_acct), 'R',
1465: get_ccid_concat_disp(DECODE(inter_int.rec_acct, -1, NULL, inter_int.rec_acct), hdrs.chart_of_accounts_id,
1466: NULL, NULL, NULL, NULL),
1467: inter_int.driving_dr_le_bsv, inter_int.driving_cr_le_bsv
1468: FROM fun_bal_inter_int_gt inter_int, fun_bal_headers_gt hdrs
1469: WHERE inter_int.group_id = hdrs.group_id AND
1470: ((inter_int.intercompany_mode = 1 AND
1471: inter_int.type = 'C')
1472: OR

Line 1516: FROM fun_bal_inter_int_gt inter_int, fun_bal_headers_gt hdrs

1512: DECODE(inter_int.pay_acct, -1, NULL, inter_int.pay_acct), 'P',
1513: get_ccid_concat_disp(DECODE(inter_int.pay_acct, -1, NULL, inter_int.pay_acct), hdrs.chart_of_accounts_id,
1514: NULL, NULL, NULL, NULL),
1515: inter_int.driving_dr_le_bsv, inter_int.driving_cr_le_bsv
1516: FROM fun_bal_inter_int_gt inter_int, fun_bal_headers_gt hdrs
1517: WHERE inter_int.group_id = hdrs.group_id AND
1518: ((inter_int.intercompany_mode = 1 AND
1519: inter_int.type = 'D')
1520: OR

Line 1558: DELETE FROM fun_bal_inter_int_gt inter_int

1554: 'FUN_INTER_PAY_NOT_VALID',
1555: 'FUN_INTER_REC_NOT_VALID'))
1556: AND headers.status = 'OK';
1557:
1558: DELETE FROM fun_bal_inter_int_gt inter_int
1559: WHERE EXISTS (SELECT group_id
1560: FROM fun_bal_headers_gt headers
1561: WHERE headers.status = 'ERROR'
1562: AND inter_int.group_id = headers.group_id);

Line 1568: Update fun_bal_inter_int_gt bal_inter_int

1564: --Enhancement 7520196 Start
1565: -- Update the Payable and receivable BSV with the minimum unbalanced bsv
1566: -- for each of the transacting Legal Entity.
1567:
1568: Update fun_bal_inter_int_gt bal_inter_int
1569: set Rec_BSV = (select min_bal_seg_val from (
1570: select min(lines.bal_seg_val) min_bal_seg_val, le_bsv_map.le_id le_id, hdrs.group_id group_id
1571: FROM fun_bal_le_bsv_map_gt le_bsv_map, fun_bal_lines_gt lines,
1572: fun_bal_headers_gt hdrs

Line 1592: Update fun_bal_inter_int_gt bal_inter_int

1588: 3, (decode (bal_inter_int.type, 'D', bal_inter_int.DRIVING_CR_LE_ID, bal_inter_int.LE_ID)), NULL)
1589: and min_bsv.group_id = bal_inter_int.group_id
1590: and bal_inter_int.status = 'OK');
1591:
1592: Update fun_bal_inter_int_gt bal_inter_int
1593: set Pay_BSV = (select min_bal_seg_val from (
1594: select min(lines.bal_seg_val) min_bal_seg_val, le_bsv_map.le_id le_id, hdrs.group_id group_id
1595: FROM fun_bal_le_bsv_map_gt le_bsv_map, fun_bal_lines_gt lines,
1596: fun_bal_headers_gt hdrs

Line 1619: Update fun_bal_inter_int_gt bal_inter_int

1615:
1616: -- Switch the Intercompany and Balancing segment value for the
1617: -- Payables and Receivables accounts. And update the table with
1618: -- the new account numbers.
1619: Update fun_bal_inter_int_gt bal_inter_int
1620: Set (REC_ACCT, PAY_ACCT) =
1621: (select get_ccid (bal_inter_int.REC_ACCT,
1622: hdrs.CHART_OF_ACCOUNTS_ID,
1623: bal_inter_int.REC_BSV,

Line 1665: FROM fun_bal_inter_int_gt inter_int, fun_bal_headers_gt hdrs

1661: DECODE(inter_int.rec_acct, -1, NULL, inter_int.rec_acct), 'R',
1662: get_ccid_concat_disp(DECODE(inter_int.rec_acct, -1, NULL, inter_int.rec_acct), hdrs.chart_of_accounts_id,
1663: NULL, NULL, NULL, NULL),
1664: inter_int.driving_dr_le_bsv, inter_int.driving_cr_le_bsv
1665: FROM fun_bal_inter_int_gt inter_int, fun_bal_headers_gt hdrs
1666: WHERE inter_int.group_id = hdrs.group_id AND
1667: ((inter_int.intercompany_mode = 1 AND
1668: inter_int.type = 'C')
1669: OR

Line 1713: FROM fun_bal_inter_int_gt inter_int, fun_bal_headers_gt hdrs

1709: DECODE(inter_int.pay_acct, -1, NULL, inter_int.pay_acct), 'P',
1710: get_ccid_concat_disp(DECODE(inter_int.pay_acct, -1, NULL, inter_int.pay_acct), hdrs.chart_of_accounts_id,
1711: NULL, NULL, NULL, NULL),
1712: inter_int.driving_dr_le_bsv, inter_int.driving_cr_le_bsv
1713: FROM fun_bal_inter_int_gt inter_int, fun_bal_headers_gt hdrs
1714: WHERE inter_int.group_id = hdrs.group_id AND
1715: ((inter_int.intercompany_mode = 1 AND
1716: inter_int.type = 'D')
1717: OR

Line 1755: DELETE FROM fun_bal_inter_int_gt inter_int

1751: 'FUN_INTER_PAY_NOT_VALID',
1752: 'FUN_INTER_REC_NOT_VALID'))
1753: AND headers.status = 'OK';
1754:
1755: DELETE FROM fun_bal_inter_int_gt inter_int
1756: WHERE EXISTS (SELECT group_id
1757: FROM fun_bal_headers_gt headers
1758: WHERE headers.status = 'ERROR'
1759: AND inter_int.group_id = headers.group_id);

Line 1806: FROM FUN_BAL_INTER_INT_GT BAL_INTER_INT

1802: SYSDATE,
1803: fnd_global.login_id,
1804: BAL_INTER_INT.REC_BSV,
1805: BAL_INTER_INT.PAY_BSV
1806: FROM FUN_BAL_INTER_INT_GT BAL_INTER_INT
1807: WHERE BAL_INTER_INT.STATUS = 'OK'
1808: AND BAL_INTER_INT.REC_ACCT IS NOT NULL
1809: AND BAL_INTER_INT.PAY_BSV IS NOT NULL
1810: AND BAL_INTER_INT.REC_BSV IS NOT NULL

Line 1874: FROM FUN_BAL_INTER_INT_GT BAL_INTER_INT

1870: SYSDATE,
1871: fnd_global.login_id,
1872: BAL_INTER_INT.PAY_BSV,
1873: BAL_INTER_INT.REC_BSV
1874: FROM FUN_BAL_INTER_INT_GT BAL_INTER_INT
1875: WHERE BAL_INTER_INT.STATUS = 'OK'
1876: AND BAL_INTER_INT.PAY_ACCT IS NOT NULL
1877: AND BAL_INTER_INT.PAY_BSV IS NOT NULL
1878: AND BAL_INTER_INT.REC_BSV IS NOT NULL

Line 1930: FROM fun_bal_inter_int_gt sum_lines, fun_bal_generate_lines gen

1926: 'D', sum_lines.accounted_amt_dr),
1927: NULL),
1928: DECODE(gen.value, 'C', sum_lines.pay_acct, 'D', sum_lines.rec_acct, NULL),
1929: 'Y'
1930: FROM fun_bal_inter_int_gt sum_lines, fun_bal_generate_lines gen
1931: WHERE gen.value = DECODE(sum_lines.intercompany_mode,
1932: 1, DECODE(sum_lines.type, gen.value, 'X', gen.value),
1933: 2, DECODE(sum_lines.le_id, sum_lines.driving_dr_le_id, 'X', gen.value),
1934: 3, DECODE(sum_lines.le_id, sum_lines.driving_cr_le_id, 'X', gen.value),