[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,
1603: l_log_module,
1604: C_LEVEL_STATEMENT);
1605: END IF;
1606:
1607: statement_detail := 'INSERT INTO gl_interface(
1608: status, set_of_books_id,
1609: user_je_source_name, user_je_category_name,
1610: accounting_date, currency_code,
1611: date_created, created_by,
1713: END gl_insert_detail;
1714:
1715: -- This procedure stamps the gl_sl_linkid for all those accounting
1716: -- entries transferred in Summary. This routine is called after
1717: -- lines have been transferred to GL_INTERFACE.
1718:
1719: PROCEDURE update_linkid_summary( p_request_id NUMBER,
1720: p_gl_transfer_mode VARCHAR2,
1721: p_transfer_run_id NUMBER,
1778: request_id = :b_request_id,
1779: gl_sl_link_id =
1780: (
1781: SELECT gi.gl_sl_link_id
1782: FROM gl_interface gi, ' || g_headers_table || ' aeh
1783: WHERE gi.request_id = :b_request_id
1784: AND gi.je_header_id = :b_transfer_run_id
1785: AND aeh.gl_transfer_run_id = :b_transfer_run_id
1786: AND aeh.accounting_date BETWEEN :b_start_date AND :b_end_date
2049: SELECT COUNT(*)
2050: INTO l_budget_entries
2051: FROM dual
2052: WHERE EXISTS ( SELECT 'x'
2053: FROM gl_interface
2054: WHERE user_je_source_name = p_user_source_name
2055: AND group_id = p_group_id
2056: AND set_of_books_id = p_set_of_books_id );
2057:
2558: g_batch_name := SUBSTRB(p_batch_name || ' ' || l_transfer_run_id,1,30);
2559:
2560: -- If GL is installed populate group id and inter_run_id;
2561: IF Nvl(l_gl_installed_flag,'N') = 'I' THEN
2562: SELECT gl_interface_control_s.NEXTVAL, gl_journal_import_s.NEXTVAL
2563: INTO l_group_id, l_interface_run_id
2564: FROM dual;
2565: END IF;
2566:
2891: END IF;
2892:
2893: END IF;
2894:
2895: -- Transfer encumbrance reversals to gl_interface if
2896: -- encumbrance is used.
2897: IF (Nvl(l_encumbrance_flag,'N') = 'Y') THEN
2898: IF (C_LEVEL_STATEMENT >= g_log_level) THEN
2899: xla_message('XLA_GLT_CALL_ENCUM_ROUTINE','','','','','',
3209: END IF;
3210:
3211: END IF;
3212:
3213: -- Transfer encumbrance reversals to gl_interface if
3214: -- encumbrance is used.
3215: IF (Nvl(l_encumbrance_flag,'N') = 'Y') THEN
3216: IF (C_LEVEL_STATEMENT >= g_log_level) THEN
3217: xla_message('XLA_GLT_CALL_ENCUM_ROUTINE','','','','','',
3286: xla_message('XLA_GLT_INSERT_GIC','STATUS','S','','','','',l_log_module,
3287: C_LEVEL_STATEMENT);
3288: END IF;
3289:
3290: INSERT INTO gl_interface_control
3291: ( JE_SOURCE_NAME,
3292: STATUS,
3293: INTERFACE_RUN_ID,
3294: GROUP_ID,