[Home] [Help]
1066: l_log_module,
1067: C_LEVEL_STATEMENT);
1068: END IF;
1069:
1070: -- Transfer Encumbrance entries to gl_interface table.
1071: IF rows_processed > 0 THEN
1072: g_rec_transfer_flag := 'Y'; --set the globle flag to 'Y' whenever there are records transferred.
1073: g_enc_proceed := 'Y'; --set the funds check flag if there are encumbrance entries.
1074:
1077: l_log_module,
1078: C_LEVEL_STATEMENT);
1079: END IF;
1080:
1081: statement := 'INSERT INTO gl_interface(
1082: status, set_of_books_id,
1083: user_je_source_name, user_je_category_name,
1084: accounting_date, currency_code,
1085: date_created, created_by,
1291: END IF;
1292:
1293: IF p_gl_transfer_mode = 'A' THEN
1294:
1295: statement_summary := 'INSERT INTO gl_interface(
1296: status,
1297: set_of_books_id,
1298: user_je_source_name,
1299: user_je_category_name,
1370: l_log_module,
1371: C_LEVEL_STATEMENT);
1372: END IF;
1373:
1374: statement_summary := 'INSERT INTO gl_interface(
1375: status,
1376: set_of_books_id,
1377: user_je_source_name,
1378: user_je_category_name,
1600: l_log_module,
1601: C_LEVEL_STATEMENT);
1602: END IF;
1603:
1604: statement_detail := 'INSERT INTO gl_interface(
1605: status, set_of_books_id,
1606: user_je_source_name, user_je_category_name,
1607: accounting_date, currency_code,
1608: date_created, created_by,
1710: END gl_insert_detail;
1711:
1712: -- This procedure stamps the gl_sl_linkid for all those accounting
1713: -- entries transferred in Summary. This routine is called after
1714: -- lines have been transferred to GL_INTERFACE.
1715:
1716: PROCEDURE update_linkid_summary( p_request_id NUMBER,
1717: p_gl_transfer_mode VARCHAR2,
1718: p_transfer_run_id NUMBER,
1775: request_id = :b_request_id,
1776: gl_sl_link_id =
1777: (
1778: SELECT gi.gl_sl_link_id
1779: FROM gl_interface gi, ' || g_headers_table || ' aeh
1780: WHERE gi.request_id = :b_request_id
1781: AND gi.je_header_id = :b_transfer_run_id
1782: AND aeh.gl_transfer_run_id = :b_transfer_run_id
1783: AND aeh.accounting_date BETWEEN :b_start_date AND :b_end_date
2046: SELECT COUNT(*)
2047: INTO l_budget_entries
2048: FROM dual
2049: WHERE EXISTS ( SELECT 'x'
2050: FROM gl_interface
2051: WHERE user_je_source_name = p_user_source_name
2052: AND group_id = p_group_id
2053: AND set_of_books_id = p_set_of_books_id );
2054:
2555: g_batch_name := SUBSTRB(p_batch_name || ' ' || l_transfer_run_id,1,30);
2556:
2557: -- If GL is installed populate group id and inter_run_id;
2558: IF Nvl(l_gl_installed_flag,'N') = 'I' THEN
2559: SELECT gl_interface_control_s.NEXTVAL, gl_journal_import_s.NEXTVAL
2560: INTO l_group_id, l_interface_run_id
2561: FROM dual;
2562: END IF;
2563:
2879: END IF;
2880:
2881: END IF;
2882:
2883: -- Transfer encumbrance reversals to gl_interface if
2884: -- encumbrance is used.
2885: IF (Nvl(l_encumbrance_flag,'N') = 'Y') THEN
2886: IF (C_LEVEL_STATEMENT >= g_log_level) THEN
2887: xla_message('XLA_GLT_CALL_ENCUM_ROUTINE','','','','','',
3197: END IF;
3198:
3199: END IF;
3200:
3201: -- Transfer encumbrance reversals to gl_interface if
3202: -- encumbrance is used.
3203: IF (Nvl(l_encumbrance_flag,'N') = 'Y') THEN
3204: IF (C_LEVEL_STATEMENT >= g_log_level) THEN
3205: xla_message('XLA_GLT_CALL_ENCUM_ROUTINE','','','','','',
3274: xla_message('XLA_GLT_INSERT_GIC','STATUS','S','','','','',l_log_module,
3275: C_LEVEL_STATEMENT);
3276: END IF;
3277:
3278: INSERT INTO gl_interface_control
3279: ( JE_SOURCE_NAME,
3280: STATUS,
3281: INTERFACE_RUN_ID,
3282: GROUP_ID,