[Home] [Help]
142: the unique CCIDS that transactions to the candidate assets have been
143: posted to. Get the conversion info, check conversion status and ensure
144: that all periods have been posted to in the Primary Book before
145: calculating balances. After the balances have been obtained for all the
146: CCIDS, we will create rows in GL_INTERFACE for them to be posted.
147: Any out of balance entries for a balancing segment caused due to
148: activity to revenue/expense accounts for past years will be plugged
149: into retained earnings account for that balancing segment.
150: ************************************************************************ */
1428: This procedure will obtain the Chart of Accounts Info for the reporting
1429: book for which we are initializing the account balances. We get the
1430: balancing segment for the coa and all the active segments in a buffer
1431: which will be used to dynamically build the retained earnings account
1432: when creating the balancing entry to retained earnings in GL_INTERFACE
1433: ************************************************************************ */
1434:
1435: l_bal_seg_num NUMBER;
1436: l_segcount NUMBER;
1544: p_accounted_cr IN NUMBER,
1545: p_accounted_dr IN NUMBER,
1546: p_ccid IN NUMBER) IS
1547: /* ************************************************************************
1548: This procedure inserts a row into gl_interface and obtains the segment
1549: values from gl_code_combination using the CCID. We get all the segment
1550: values for each CCID since it is required for the GROUP BY in
1551: insert_ret_earnings procedure. We insert the entered and accounted
1552: amounts for each CCID.
1552: amounts for each CCID.
1553: ************************************************************************ */
1554:
1555: BEGIN
1556: INSERT INTO gl_interface (
1557: set_of_books_id,
1558: status,
1559: code_combination_id,
1560: user_je_source_name,
1662: p_rsob_id IN NUMBER) IS
1663: /* ************************************************************************
1664: This procedure created the balancing entry to retained earnings for a
1665: given balancing segment. After all the CCID balances have been obtained
1666: and inserted into GL_INTERFACE, we will have to balance each balancing
1667: segment. This is because we do not obtain the balances of revenue/expense
1668: accounts for past years and this will cause the entries in GL_INTERFACE
1669: to be out of balance. We use the template RE ccid in gl_sets_of_books
1670: in the dynamic sql and group by the balancing segment to create the plug
1664: This procedure created the balancing entry to retained earnings for a
1665: given balancing segment. After all the CCID balances have been obtained
1666: and inserted into GL_INTERFACE, we will have to balance each balancing
1667: segment. This is because we do not obtain the balances of revenue/expense
1668: accounts for past years and this will cause the entries in GL_INTERFACE
1669: to be out of balance. We use the template RE ccid in gl_sets_of_books
1670: in the dynamic sql and group by the balancing segment to create the plug
1671: to the correct retained earning account.
1672: ************************************************************************ */
1687:
1688: BEGIN
1689: if (g_print_debug) then
1690: fa_debug_pkg.add('calculate_balances',
1691: 'Inserting retained earnings in GL_INTERFACE',
1692: 'start');
1693: end if;
1694:
1695: G_insert_buf := '';
1693: end if;
1694:
1695: G_insert_buf := '';
1696: G_insert_buf := G_insert_buf ||
1697: 'INSERT INTO gl_interface(' ||
1698: 'status,' ||
1699: 'set_of_books_id,' ||
1700: 'user_je_source_name,' ||
1701: 'user_je_category_name,' ||
1753: G_insert_buf := G_insert_buf || ':group_id' ;
1754: G_insert_buf := G_insert_buf ||
1755: ' FROM ' ||
1756: 'gl_code_combinations glcc,' ||
1757: 'gl_interface gli ' ||
1758: 'WHERE ' ||
1759: 'gli.user_je_source_name = :source and ' ||
1760: 'gli.set_of_books_id = :rsob_id and ' ||
1761: 'gli.group_id = :group_id and ' ||
1846: dbms_sql.close_cursor(insert_cursor);
1847:
1848: if (g_print_debug) then
1849: fa_debug_pkg.add('calculate_balances',
1850: 'Inserting retained earnings in GL_INTERFACE',
1851: 'success');
1852: end if;
1853: EXCEPTION
1854: WHEN OTHERS THEN
1863: p_rsob_id IN NUMBER) IS
1864: /* ************************************************************************
1865: This procedure loops thro each of the global arrays that hold the CCID's
1866: and the entered and accounted amounts and calls inert_rec to insert the
1867: row in GL_INTERFACE.
1868: ************************************************************************ */
1869:
1870: BEGIN
1871: if (g_print_debug) then
1869:
1870: BEGIN
1871: if (g_print_debug) then
1872: fa_debug_pkg.add('calculate_balances',
1873: 'Inserting account balances in GL_INTERFACE',
1874: 'start');
1875: end if;
1876:
1877: -- get the group_id from sequence
1874: 'start');
1875: end if;
1876:
1877: -- get the group_id from sequence
1878: SELECT gl_interface_control_s.nextval
1879: INTO G_group_id
1880: FROM dual;
1881:
1882: -- dbms_output.put_line('Group id is: ' || G_group_id);
1892: INTO G_source_name
1893: FROM GL_JE_SOURCES
1894: WHERE je_source_name = 'Assets';
1895:
1896: -- LOOP thro all ccid arrays and insert rows into gl_interface
1897:
1898: FOR i IN 1..G_adj_ccid_count LOOP
1899: insert_rec(
1900: p_rsob_id,
1967: END LOOP;
1968:
1969: if (g_print_debug) then
1970: fa_debug_pkg.add('calculate_balances',
1971: 'Inserting account balances in GL_INTERFACE',
1972: 'success');
1973: end if;
1974: EXCEPTION
1975: WHEN OTHERS THEN