[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: ************************************************************************ */
1437: This procedure will obtain the Chart of Accounts Info for the reporting
1438: book for which we are initializing the account balances. We get the
1439: balancing segment for the coa and all the active segments in a buffer
1440: which will be used to dynamically build the retained earnings account
1441: when creating the balancing entry to retained earnings in GL_INTERFACE
1442: ************************************************************************ */
1443:
1444: l_bal_seg_num NUMBER;
1445: l_segcount NUMBER;
1553: p_accounted_cr IN NUMBER,
1554: p_accounted_dr IN NUMBER,
1555: p_ccid IN NUMBER) IS
1556: /* ************************************************************************
1557: This procedure inserts a row into gl_interface and obtains the segment
1558: values from gl_code_combination using the CCID. We get all the segment
1559: values for each CCID since it is required for the GROUP BY in
1560: insert_ret_earnings procedure. We insert the entered and accounted
1561: amounts for each CCID.
1561: amounts for each CCID.
1562: ************************************************************************ */
1563:
1564: BEGIN
1565: INSERT INTO gl_interface (
1566: set_of_books_id,
1567: status,
1568: code_combination_id,
1569: user_je_source_name,
1671: p_rsob_id IN NUMBER) IS
1672: /* ************************************************************************
1673: This procedure created the balancing entry to retained earnings for a
1674: given balancing segment. After all the CCID balances have been obtained
1675: and inserted into GL_INTERFACE, we will have to balance each balancing
1676: segment. This is because we do not obtain the balances of revenue/expense
1677: accounts for past years and this will cause the entries in GL_INTERFACE
1678: to be out of balance. We use the template RE ccid in gl_sets_of_books
1679: in the dynamic sql and group by the balancing segment to create the plug
1673: This procedure created the balancing entry to retained earnings for a
1674: given balancing segment. After all the CCID balances have been obtained
1675: and inserted into GL_INTERFACE, we will have to balance each balancing
1676: segment. This is because we do not obtain the balances of revenue/expense
1677: accounts for past years and this will cause the entries in GL_INTERFACE
1678: to be out of balance. We use the template RE ccid in gl_sets_of_books
1679: in the dynamic sql and group by the balancing segment to create the plug
1680: to the correct retained earning account.
1681: ************************************************************************ */
1696:
1697: BEGIN
1698: if (g_print_debug) then
1699: fa_debug_pkg.add('calculate_balances',
1700: 'Inserting retained earnings in GL_INTERFACE',
1701: 'start');
1702: end if;
1703:
1704: G_insert_buf := '';
1702: end if;
1703:
1704: G_insert_buf := '';
1705: G_insert_buf := G_insert_buf ||
1706: 'INSERT INTO gl_interface(' ||
1707: 'status,' ||
1708: 'set_of_books_id,' ||
1709: 'user_je_source_name,' ||
1710: 'user_je_category_name,' ||
1762: G_insert_buf := G_insert_buf || ':group_id' ;
1763: G_insert_buf := G_insert_buf ||
1764: ' FROM ' ||
1765: 'gl_code_combinations glcc,' ||
1766: 'gl_interface gli ' ||
1767: 'WHERE ' ||
1768: 'gli.user_je_source_name = :source and ' ||
1769: 'gli.set_of_books_id = :rsob_id and ' ||
1770: 'gli.group_id = :group_id and ' ||
1855: dbms_sql.close_cursor(insert_cursor);
1856:
1857: if (g_print_debug) then
1858: fa_debug_pkg.add('calculate_balances',
1859: 'Inserting retained earnings in GL_INTERFACE',
1860: 'success');
1861: end if;
1862: EXCEPTION
1863: WHEN OTHERS THEN
1872: p_rsob_id IN NUMBER) IS
1873: /* ************************************************************************
1874: This procedure loops thro each of the global arrays that hold the CCID's
1875: and the entered and accounted amounts and calls inert_rec to insert the
1876: row in GL_INTERFACE.
1877: ************************************************************************ */
1878:
1879: BEGIN
1880: if (g_print_debug) then
1878:
1879: BEGIN
1880: if (g_print_debug) then
1881: fa_debug_pkg.add('calculate_balances',
1882: 'Inserting account balances in GL_INTERFACE',
1883: 'start');
1884: end if;
1885:
1886: -- get the group_id from sequence
1883: 'start');
1884: end if;
1885:
1886: -- get the group_id from sequence
1887: SELECT gl_interface_control_s.nextval
1888: INTO G_group_id
1889: FROM dual;
1890:
1891: -- dbms_output.put_line('Group id is: ' || G_group_id);
1901: INTO G_source_name
1902: FROM GL_JE_SOURCES
1903: WHERE je_source_name = 'Assets';
1904:
1905: -- LOOP thro all ccid arrays and insert rows into gl_interface
1906:
1907: FOR i IN 1..G_adj_ccid_count LOOP
1908: insert_rec(
1909: p_rsob_id,
1976: END LOOP;
1977:
1978: if (g_print_debug) then
1979: fa_debug_pkg.add('calculate_balances',
1980: 'Inserting account balances in GL_INTERFACE',
1981: 'success');
1982: end if;
1983: EXCEPTION
1984: WHEN OTHERS THEN