[Home] [Help]
The following lines contain the word 'select', 'insert', 'update' or 'delete':
| when selecting the TAT sources: |
| Introduced local variables so that OUT |
| params are assigned at the end. |
| build_implementations: |
| removed condition on compile status |
| when selecting the TAT sources: |
| build_global_temp_table |
| removed condition on compile status |
| when selecting the TAT sources: |
| 30-JUL-04 A.Quaglia changed message tokens |
| 18-MAI-05 K.Boussema added the column dummy_rowid in GT tables |
| to fix bug 4344773 |
| 10-MAR-2006 Jorge Larre Bug 5088359 |
| Add ORDER BY xsb.source_code to the selects that retrieve the |
| sources to build the interface table to be in sync with the |
| select that retrieves the source to build the compiled package. |
| 11-AUG-2006 Jorge Larre Bug 5318196 |
| a)In procedure write_online_tab (C_TMPL_TAB_WRITE_PROC_IMPL) |
| the determination of the new index for inserting a new row in |
| g_array_xla_tab must be done with COUNT + 1 instead of COUNT. |
| The loop that uses l_watermark must be begin with FIRST |
| instead of 0. |
| b)In procedure read_online_tab (C_TMPL_TAB_READ_PROC_IMPL) |
| the loop that uses l_watermark must be begin with FIRST |
| instead of 0. |
| 15-AUG-2006 Jorge Larre Bug 5318196 |
| a)In procedure write_online_tab (C_TMPL_TAB_WRITE_PROC_IMPL) |
| the array may be empty, so we must use a variable to store |
| the value of FIRST and nullify it with 1. New variable: |
| l_start. |
| b)In procedure read_online_tab (C_TMPL_TAB_READ_PROC_IMPL) |
| the array may be empty, so we must use a variable to store |
| the value of FIRST and nullify it with 1. New variable: |
| l_start. |
+======================================================================*/
--
-- Private exceptions
--
le_fatal_error EXCEPTION;
ON COMMIT DELETE ROWS';
' g_array_xla_tab$OBJECT_NAME_AFFIX$.DELETE;
g_array_xla_tab$OBJECT_NAME_AFFIX$.DELETE;
g_array_xla_tab$OBJECT_NAME_AFFIX$.DELETE;
g_array_xla_tab$OBJECT_NAME_AFFIX$.DELETE(i);
SELECT xte.msg_data
BULK COLLECT
INTO l_table_of_row_errors
FROM xla_tab_errors_gt xte
WHERE xte.base_rowid = l_row_base_rowid;
g_array_xla_tab$OBJECT_NAME_AFFIX$.DELETE;
g_array_xla_tab$OBJECT_NAME_AFFIX$.DELETE;
IF NOT remove_deleted_tats
(
p_application_id => p_application_id
)
THEN
IF (C_LEVEL_ERROR >= g_log_level) THEN
trace
(p_module => l_log_module
,p_msg => 'remove_deleted_tats failed, aborting...'
,p_level => C_LEVEL_ERROR);
UPDATE xla_tab_acct_types_b xtat
SET xtat.compile_status_code =
xla_cmp_common_pkg.G_COMPILE_STATUS_CODE_COMPILED
WHERE xtat.application_id = p_application_id
AND xtat.enabled_flag = 'Y'
AND xtat.compile_status_code IS NOT NULL;
SELECT DISTINCT xsb.source_code
,xsb.source_type_code
,xsb.enabled_flag
,xsb.datatype_code
FROM xla_tab_acct_types_b xtat
,xla_tab_acct_type_srcs xtsrc
,xla_sources_b xsb
WHERE xtat.application_id = g_application_info.application_id
AND NVL( xtat.object_name_affix
,LPAD('A',32, 'A')
)
= NVL( g_all_object_name_affixes(affix_index)
,LPAD('A',32, 'A')
)
AND xtat.enabled_flag = 'Y'
AND xtsrc.account_type_code = xtat.account_type_code
AND xsb.application_id = xtsrc.source_application_id
AND xsb.source_code = xtsrc.source_code
AND xsb.source_type_code = xtsrc.source_type_code
ORDER BY xsb.source_code
)
LOOP
IF (C_LEVEL_STATEMENT >= g_log_level) THEN
trace
( p_module => l_log_module
,p_msg => 'Source code: ' || source_rec.source_code
,p_level => C_LEVEL_STATEMENT);
SELECT DISTINCT xsb.source_code
,xsb.source_type_code
,xsb.enabled_flag
,xsb.datatype_code
FROM xla_tab_acct_types_b xtat
,xla_tab_acct_type_srcs xtsrc
,xla_sources_b xsb
WHERE xtat.application_id = g_application_info.application_id
AND NVL( xtat.object_name_affix
,LPAD('A',32, 'A')
)
= NVL( g_all_object_name_affixes(affix_index)
,LPAD('A',32, 'A')
)
AND xtat.enabled_flag = 'Y'
AND xtsrc.account_type_code = xtat.account_type_code
AND xsb.application_id = xtsrc.source_application_id
AND xsb.source_code = xtsrc.source_code
AND xsb.source_type_code = xtsrc.source_type_code
ORDER BY xsb.source_code
)
LOOP
IF (C_LEVEL_STATEMENT >= g_log_level) THEN
trace
( p_module => l_log_module
,p_msg => 'Source code: ' || source_rec.source_code
,p_level => C_LEVEL_STATEMENT);
SELECT DISTINCT xsb.source_code
,xsb.datatype_code
BULK COLLECT
INTO l_table_of_sources
,l_table_of_source_datatypes
FROM xla_tab_acct_types_b xtat
,xla_tab_acct_type_srcs xtsrc
,xla_sources_b xsb
WHERE xtat.application_id = g_application_info.application_id
AND NVL( xtat.object_name_affix
,LPAD('A',32, 'A')
)
= NVL( p_object_name_affix
,LPAD('A',32, 'A')
)
AND xtat.enabled_flag = 'Y'
AND xtat.compile_status_code =
xla_cmp_common_pkg.G_COMPILE_STATUS_CODE_COMPILED
AND xtsrc.account_type_code = xtat.account_type_code
AND xsb.application_id = xtsrc.source_application_id
AND xsb.source_code = xtsrc.source_code
AND xsb.source_type_code = xtsrc.source_type_code
AND xsb.source_type_code = 'S' --only seeded sources
ORDER BY xsb.source_code;
SELECT DISTINCT xsb.source_code
,xsb.source_type_code
,xsb.enabled_flag
,xsb.datatype_code
FROM xla_tab_acct_types_b xtat
,xla_tab_acct_type_srcs xtsrc
,xla_sources_b xsb
WHERE xtat.application_id = g_application_info.application_id
AND NVL( xtat.object_name_affix
,LPAD('A',32, 'A')
)
= NVL( p_object_name_affix
,LPAD('A',32, 'A')
)
AND xtat.enabled_flag = 'Y'
AND xtsrc.account_type_code = xtat.account_type_code
AND xsb.application_id = xtsrc.source_application_id
AND xsb.source_code = xtsrc.source_code
AND xsb.source_type_code = xtsrc.source_type_code
ORDER BY xsb.source_code
)
LOOP
IF (C_LEVEL_STATEMENT >= g_log_level) THEN
trace
( p_module => l_log_module
,p_msg => 'Source code: ' || source_rec.source_code
,p_level => C_LEVEL_STATEMENT);
SELECT DISTINCT xtat.object_name_affix
BULK COLLECT
INTO g_all_object_name_affixes
FROM xla_tab_acct_types_b xtat
WHERE xtat.application_id = g_application_info.application_id
AND xtat.enabled_flag = 'Y'
ORDER BY NVL(xtat.object_name_affix, ' ');
SELECT DISTINCT xtat.object_name_affix
BULK COLLECT
INTO g_compiled_object_name_affixes
FROM xla_tab_acct_types_b xtat
WHERE xtat.application_id = g_application_info.application_id
AND xtat.compile_status_code
= xla_cmp_common_pkg.G_COMPILE_STATUS_CODE_COMPILED
ORDER BY NVL(xtat.object_name_affix, ' ');
FUNCTION remove_deleted_tats
(
p_application_id IN NUMBER
)
RETURN BOOLEAN
IS
l_return_value BOOLEAN;
l_log_module := C_DEFAULT_MODULE||'.remove_deleted_tats';
DELETE
FROM xla_tab_acct_types_b xtat
WHERE xtat.application_id = p_application_id
AND xtat.compile_status_code =
xla_cmp_common_pkg.G_COMPILE_STATUS_CODE_DELETE;
|| ' row(s) deleted from xla_tab_acct_types_b'
,p_level => C_LEVEL_STATEMENT);
(p_location => 'xla_cmp_tab_pkg.remove_deleted_tats');
END remove_deleted_tats;
SELECT xtat.object_name_affix
INTO l_object_name_affix
FROM xla_tab_acct_types_b xtat
WHERE xtat.application_id = g_application_info.application_id
AND xtat.account_type_code = p_account_type_code
AND xtat.enabled_flag = 'Y'
ORDER BY NVL(xtat.object_name_affix, ' ');
,select_comb_from_view => NULL
)
THEN
l_fatal_error_message := 'FND_FLEX_KEYVAL.validate_ccid failed';