[Home] [Help]
421:
422:
423: ------------------------------------------------------------
424: -- Get group Id for the Journal Entries to be inserted in --
425: -- GL_INTERFACE. --
426: -- It also returns the inflation adjustment gain and loss --
427: -- account template and the index value for the particular--
428: -- period (the 'to' period). --
429: ------------------------------------------------------------
440: statement VARCHAR2 (20);
441:
442: BEGIN
443: statement := 'GROUP ID';
444: SELECT gl_interface_control_s.nextval
445: INTO p_group_id
446: FROM sys.dual;
447:
448: statement := 'REI ACCOUNT';
870: END get_cursor_values;
871:
872:
873: ------------------------------------------------------------
874: -- Inserts in GL_INTERFACE the lines passed as parameters.--
875: -- If the amount is 0 then do not insert any row. --
876: -- --
877: ------------------------------------------------------------
878: FUNCTION insert_gl_interface (p_set_of_books_id IN NUMBER
874: -- Inserts in GL_INTERFACE the lines passed as parameters.--
875: -- If the amount is 0 then do not insert any row. --
876: -- --
877: ------------------------------------------------------------
878: FUNCTION insert_gl_interface (p_set_of_books_id IN NUMBER
879: , p_code_combination_id IN NUMBER
880: , p_accounting_date IN DATE
881: , p_currency_code IN VARCHAR2
882: , p_amount IN NUMBER
891: ------------------------------------------------------------
892: -- If there's nothing to adjust, then do nothing... --
893: ------------------------------------------------------------
894: IF p_amount <> 0 THEN
895: INSERT INTO gl_interface (status
896: , set_of_books_id
897: , accounting_date
898: , currency_code
899: , date_created
934: p_err_msg_name := substr (SQLERRM, 1, 100);
935: p_err_msg_code := 'ORA';
936: RETURN FALSE;
937:
938: END insert_gl_interface;
939:
940:
941: ------------------------------------------------------------
942: -- Gets the inflation adjustment gain and loss account --
1291: IF NOT same_value (to_char (c_code_combination_id)
1292: , previous_code_combination_id) THEN
1293:
1294: ------------------------------------------------------------
1295: -- Rounding before inserting in GL_INTERFACE and before --
1296: -- adding to the balancing segment total avoids unbalanced--
1297: -- journal entries. --
1298: ------------------------------------------------------------
1299: acct_total_adj_amount := round ((acct_total_adj_amount +
1299: acct_total_adj_amount := round ((acct_total_adj_amount +
1300: acct_begin_YTD_adj_amount)
1301: , currency_precision);
1302:
1303: IF NOT insert_gl_interface (p_set_of_books_id
1304: , previous_code_combination_id
1305: , accounting_date
1306: , set_of_books_currency_code
1307: , acct_total_adj_amount
1370:
1371: RAISE program_abort;
1372: END IF;
1373:
1374: IF NOT insert_gl_interface (p_set_of_books_id
1375: , infl_adj_gla
1376: , accounting_date
1377: , set_of_books_currency_code
1378: , balancing_segment_tot_amount
1489: ------------------------------------------------------------
1490: -- Insert the last JE's last account. --
1491: ------------------------------------------------------------
1492: ------------------------------------------------------------
1493: -- Rounding before inserting in GL_INTERFACE and before --
1494: -- adding to the balancing segment total avoids unbalanced--
1495: -- journal entries. --
1496: ------------------------------------------------------------
1497: acct_total_adj_amount := round ((acct_total_adj_amount
1497: acct_total_adj_amount := round ((acct_total_adj_amount
1498: + acct_begin_YTD_adj_amount)
1499: , currency_precision);
1500:
1501: IF NOT insert_gl_interface (p_set_of_books_id
1502: , previous_code_combination_id
1503: , accounting_date
1504: , set_of_books_currency_code
1505: , acct_total_adj_amount
1542: RAISE program_abort;
1543:
1544: END IF;
1545:
1546: IF NOT insert_gl_interface (p_set_of_books_id
1547: , infl_adj_gla
1548: , accounting_date
1549: , set_of_books_currency_code
1550: , balancing_segment_tot_amount