The following lines contain the word 'select', 'insert', 'update' or 'delete':
l_event_name VARCHAR2(100) := 'oracle.apps.gcs.transaction.adjustment.update';
'SELECT net_to_re_flag' || g_nl ||
'INTO l_net_to_re_flag' || g_nl ||
'FROM gcs_categories_b' || g_nl ||
'WHERE category_code = ' || p_category_code);
SELECT net_to_re_flag
INTO l_net_to_re_flag
FROM gcs_categories_b
WHERE category_code = p_category_code;
'SELECT CASE fcpa_start_year.number_assign_value
WHEN NVL (fcpa_end_year.number_assign_value, 0)
THEN NULL
ELSE fcpa_start_year.number_assign_value + 1
END
INTO l_year_to_apply_re
FROM fem_cal_periods_attr fcpa_start_year,
fem_cal_periods_attr fcpa_end_year
WHERE fcpa_start_year.cal_period_id = ' ||
l_start_cal_period_id || '
AND fcpa_start_year.attribute_id = ' ||
g_dimension_attr_info('CAL_PERIOD_ID-ACCOUNTING_YEAR')
.attribute_id || '
AND fcpa_start_year.version_id = ' ||
g_dimension_attr_info('CAL_PERIOD_ID-ACCOUNTING_YEAR')
.version_id || '
AND fcpa_end_year.cal_period_id(+) = ' ||
l_end_cal_period_id || '
AND fcpa_end_year.attribute_id(+) = fcpa_start_year.attribute_id
AND fcpa_end_year.version_id(+) = fcpa_start_year.version_id');
SELECT CASE fcpa_start_year.number_assign_value
WHEN NVL(fcpa_end_year.number_assign_value, 0) THEN
NULL
ELSE
fcpa_start_year.number_assign_value + 1
END
INTO l_year_to_apply_re
FROM fem_cal_periods_attr fcpa_start_year,
fem_cal_periods_attr fcpa_end_year
WHERE fcpa_start_year.cal_period_id = l_start_cal_period_id
AND fcpa_start_year.attribute_id =
g_dimension_attr_info('CAL_PERIOD_ID-ACCOUNTING_YEAR')
.attribute_id
AND fcpa_start_year.version_id =
g_dimension_attr_info('CAL_PERIOD_ID-ACCOUNTING_YEAR')
.version_id
AND fcpa_end_year.cal_period_id(+) = l_end_cal_period_id
AND fcpa_end_year.attribute_id(+) = fcpa_start_year.attribute_id
AND fcpa_end_year.version_id(+) = fcpa_start_year.version_id;
SELECT hierarchy_id, gcs_entry_headers_s.NEXTVAL BULK COLLECT
INTO l_hierarchy_id, l_entry_id
FROM gcs_hier_grp_members
WHERE hierarchy_grp_id = p_hierarchy_grp_id;
INSERT INTO gcs_entry_headers
(entry_id,
entry_name,
hierarchy_id,
disabled_flag,
entity_id,
currency_code,
balance_type_code,
start_cal_period_id,
end_cal_period_id,
year_to_apply_re,
description,
entry_type_code,
assoc_entry_id,
processed_run_name,
category_code,
process_code,
creation_date,
created_by,
last_update_date,
last_updated_by,
last_update_login,
period_init_entry_flag)
VALUES
(l_entry_id(l_counter),
p_entry_name,
l_hierarchy_id(l_counter),
'N',
p_entity_id,
p_currency_code,
p_balance_type_code,
l_start_cal_period_id,
l_end_cal_period_id,
l_year_to_apply_re,
p_description,
'MANUAL',
null,
null,
p_category_code,
p_process_code,
sysdate,
l_user_id,
sysdate,
l_user_id,
l_user_id,
'N');
'INSERT INTO gcs_entry_lines(
entry_id ,
line_type_code,
description ,
company_cost_center_org_id,
financial_elem_id,
product_id ,
natural_account_id,
channel_id ,
line_item_id,
project_id ,
customer_id,
intercompany_id ,
task_id ,
user_dim1_id,
user_dim2_id,
user_dim3_id,
user_dim4_id,
user_dim5_id,
user_dim6_id,
user_dim7_id,
user_dim8_id,
user_dim9_id,
user_dim10_id ,
xtd_balance_e,
ytd_balance_e ,
ptd_debit_balance_e ,
ptd_credit_balance_e,
ytd_debit_balance_e ,
ytd_credit_balance_e,
creation_date ,
created_by,
last_update_date,
last_updated_by ,
last_update_login,
entry_line_number )
SELECT :1,
line_type_code,
description ,
company_cost_center_org_id,
financial_elem_id,
product_id ,
natural_account_id,
channel_id ,
line_item_id,
project_id ,
customer_id,
intercompany_id ,
task_id ,
user_dim1_id,
user_dim2_id,
user_dim3_id,
user_dim4_id,
user_dim5_id,
user_dim6_id,
user_dim7_id,
user_dim8_id,
user_dim9_id,
user_dim10_id ,
xtd_balance_e ,
ytd_balance_e ,
ptd_debit_balance_e,
ptd_credit_balance_e,
ytd_debit_balance_e ,
ytd_credit_balance_e,
creation_date ,
created_by,
last_update_date,
last_updated_by ,
last_update_login,
entry_line_number
FROM gcs_entry_lines
WHERE entry_id = :2 '
USING l_entry_id(l_counter),
p_entry_id
;
'SELECT decode(start_cal_period_id, end_cal_period_id, ''ONE_TIME'',
''RECURRING''), year_to_apply_re, hierarchy_id, balance_type_code,
entity_id, NVL (minimum_accountable_unit, POWER (10, -PRECISION))' || g_nl ||
'INTO l_entry_type_code, l_year_to_apply_re, l_hierarchy_id,
l_balance_code, l_entity_id, l_precision' || g_nl ||
'FROM fnd_currencies fc, gcs_entry_headers geh' || g_nl ||
'WHERE fc.currency_code = geh.currency_code ' || g_nl ||
'AND geh.entry_id = ' || l_entry_id(1));
SELECT DECODE(start_cal_period_id,
end_cal_period_id,
'ONE_TIME',
'RECURRING'),
NVL(minimum_accountable_unit, POWER(10, -PRECISION))
INTO l_entry_type_code, l_precision
FROM fnd_currencies fc, gcs_entry_headers geh
WHERE fc.currency_code = geh.currency_code
AND geh.entry_id = l_entry_id(1);
UPDATE gcs_entry_lines
SET ytd_debit_balance_e = ROUND(ytd_debit_balance_e /
l_precision) * l_precision,
ytd_credit_balance_e = ROUND(ytd_credit_balance_e /
l_precision) * l_precision,
ytd_balance_e = ROUND(nvl(ytd_debit_balance_e, 0) /
l_precision) * l_precision -
ROUND(nvl(ytd_credit_balance_e, 0) /
l_precision) * l_precision,
line_type_code = CASE WHEN (SELECT feata.dim_attribute_varchar_member
FROM fem_ext_acct_types_attr feata,
fem_ln_items_attr flia
WHERE gcs_entry_lines.line_item_id =
flia.line_item_id
AND flia.value_set_id =
g_gcs_dimension_info('LINE_ITEM_ID')
.associated_value_set_id
AND flia.attribute_id =
g_dimension_attr_info('LINE_ITEM_ID-EXTENDED_ACCOUNT_TYPE')
.attribute_id
AND feata.attribute_id =
g_dimension_attr_info('EXT_ACCOUNT_TYPE_CODE-BASIC_ACCOUNT_TYPE_CODE')
.attribute_id
AND flia.version_id =
g_dimension_attr_info('LINE_ITEM_ID-EXTENDED_ACCOUNT_TYPE')
.version_id
AND feata.version_id =
g_dimension_attr_info('EXT_ACCOUNT_TYPE_CODE-BASIC_ACCOUNT_TYPE_CODE')
.version_id
AND feata.DIM_ATTRIBUTE_NUMERIC_MEMBER IS NULL
AND feata.ext_account_type_code =
flia.dim_attribute_varchar_member) IN ('REVENUE', 'EXPENSE') THEN 'PROFIT_LOSS' ELSE 'BALANCE_SHEET' END
WHERE entry_id = l_entry_id(l_counter);
UPDATE gcs_entry_lines
SET ytd_debit_balance_e = ROUND(ytd_debit_balance_e /
l_precision) * l_precision,
ytd_credit_balance_e = ROUND(ytd_credit_balance_e /
l_precision) * l_precision,
ytd_balance_e = ROUND(nvl(ytd_debit_balance_e, 0) /
l_precision) * l_precision -
ROUND(nvl(ytd_credit_balance_e, 0) /
l_precision) * l_precision
WHERE entry_id = l_entry_id(l_counter);
DELETE FROM gcs_entry_lines WHERE entry_id = p_entry_id;
'SELECT CASE fcpa_start_year.number_assign_value
WHEN NVL (fcpa_end_year.number_assign_value, 0)
THEN NULL
ELSE fcpa_start_year.number_assign_value + 1
END
INTO l_year_to_apply_re
FROM fem_cal_periods_attr fcpa_start_year,
fem_cal_periods_attr fcpa_end_year
WHERE fcpa_start_year.cal_period_id = ' ||
l_start_cal_period_id || '
AND fcpa_start_year.attribute_id = ' ||
g_dimension_attr_info('CAL_PERIOD_ID-ACCOUNTING_YEAR')
.attribute_id || '
AND fcpa_start_year.version_id = ' ||
g_dimension_attr_info('CAL_PERIOD_ID-ACCOUNTING_YEAR')
.version_id || '
AND fcpa_end_year.cal_period_id(+) = ' ||
l_end_cal_period_id || '
AND fcpa_end_year.attribute_id(+) = fcpa_start_year.attribute_id
AND fcpa_end_year.version_id(+) = fcpa_start_year.version_id');
'SELECT DECODE (COUNT (entry_id), 0, ''ACTUAL'', ''ADB'')'
|| g_nl
|| 'INTO l_balance_type_code'
|| g_nl
|| 'FROM gcs_entry_lines'
|| g_nl
|| 'WHERE entry_id = '||p_new_entry_id
|| g_nl
|| 'AND FINANCIAL_ELEM_ID = 140'
);
SELECT DECODE (COUNT (entry_id), 0, 'ACTUAL', 'ADB')
INTO l_balance_type_code
FROM gcs_entry_lines
WHERE entry_id = p_new_entry_id AND financial_elem_id = 140;
SELECT net_to_re_flag
INTO l_net_to_re_flag
FROM gcs_categories_b
WHERE category_code = p_category_code;
SELECT CASE fcpa_start_year.number_assign_value
WHEN NVL(fcpa_end_year.number_assign_value, 0) THEN
NULL
ELSE
fcpa_start_year.number_assign_value + 1
END
INTO l_year_to_apply_re
FROM fem_cal_periods_attr fcpa_start_year,
fem_cal_periods_attr fcpa_end_year
WHERE fcpa_start_year.cal_period_id = l_start_cal_period_id
AND fcpa_start_year.attribute_id =
g_dimension_attr_info('CAL_PERIOD_ID-ACCOUNTING_YEAR')
.attribute_id
AND fcpa_start_year.version_id =
g_dimension_attr_info('CAL_PERIOD_ID-ACCOUNTING_YEAR')
.version_id
AND fcpa_end_year.cal_period_id(+) = l_end_cal_period_id
AND fcpa_end_year.attribute_id(+) = fcpa_start_year.attribute_id
AND fcpa_end_year.version_id(+) = fcpa_start_year.version_id;
SELECT 'Y'
INTO l_existed_entry_flag
FROM gcs_entry_headers geh
WHERE geh.entry_id = p_entry_id;
insert_entry_header(p_entry_id => p_new_entry_id,
p_hierarchy_id => p_hierarchy_id,
p_entity_id => p_entity_id,
p_year_to_apply_re => l_year_to_apply_re,
p_start_cal_period_id => l_start_cal_period_id,
p_end_cal_period_id => l_end_cal_period_id,
p_entry_type_code => 'MANUAL',
p_balance_type_code => p_balance_type_code,
p_currency_code => p_currency_code,
p_process_code => p_process_code,
p_description => p_description,
p_entry_name => p_entry_name,
p_category_code => p_category_code,
x_errbuf => l_errbuf,
x_retcode => l_retcode);
SELECT 'Y'
INTO l_processed_entry_flag
FROM DUAL
WHERE EXISTS (SELECT run_detail_id
FROM gcs_cons_eng_run_dtls gcerd
WHERE gcerd.entry_id = p_entry_id);
'UPDATE gcs_entry_headers' || g_nl ||
'SET balance_type_code = ' ||
p_balance_type_code || ',' || g_nl ||
' end_cal_period_id = ' || l_end_cal_period_id || ',' || g_nl ||
' entry_type_code = MANUAL,' || g_nl ||
' hierarchy_id = ' || p_hierarchy_id || ',' || g_nl ||
' entity_id = ' || p_entity_id || ',' || g_nl ||
' start_cal_period_id = ' ||
l_start_cal_period_id || ',' || g_nl ||
' currency_code = ' || p_currency_code || ',' || g_nl ||
' process_code = ' || p_process_code || ',' || g_nl ||
' description = ' || p_description || ',' || g_nl ||
' entry_name = ' || p_entry_name || ',' || g_nl ||
' category_code = ' || p_category_code || ',' || g_nl ||
' last_update_date = SYSDATE,' || g_nl ||
' last_updated_by = ' || fnd_global.user_id ||
' WHERE entry_id = ' || p_entry_id);
UPDATE gcs_entry_headers
SET balance_type_code = p_balance_type_code,
end_cal_period_id = l_end_cal_period_id,
year_to_apply_re = l_year_to_apply_re,
entry_type_code = 'MANUAL',
hierarchy_id = p_hierarchy_id,
entity_id = p_entity_id,
start_cal_period_id = l_start_cal_period_id,
currency_code = p_currency_code,
process_code = p_process_code,
description = p_description,
entry_name = p_entry_name,
category_code = p_category_code,
last_update_date = SYSDATE,
last_updated_by = fnd_global.user_id
WHERE entry_id = p_entry_id;
'DELETE FROM gcs_entry_lines' || g_nl ||
'WHERE entry_id = ' || p_entry_id);
DELETE FROM gcs_entry_lines WHERE entry_id = p_entry_id;
'UPDATE gcs_entry_lines' || g_nl ||
'set entry_id = ' || p_entry_id || g_nl ||
'WHERE entry_id = ' || p_new_entry_id);
UPDATE gcs_entry_lines
SET entry_id = p_entry_id
WHERE entry_id = p_new_entry_id;
'UPDATE gcs_entry_headers' || g_nl ||
'SET disabled_flag = ''Y'', entry_name = substr(entry_name, 0, 55) || '' OLD -'' || ' ||
p_new_entry_id || g_nl || 'WHERE entry_id = ' ||
p_entry_id);
UPDATE gcs_entry_headers
SET disabled_flag = 'Y',
entry_name = substr(entry_name, 0, 55) || ' OLD -' ||
p_new_entry_id,
--Bugfix 6351281: Update the disabled cal period id as well
disabled_cal_period_id = start_cal_period_id
WHERE entry_id = p_entry_id;
insert_entry_header(p_entry_id => p_new_entry_id,
p_hierarchy_id => p_hierarchy_id,
p_entity_id => p_entity_id,
p_year_to_apply_re => l_year_to_apply_re,
p_start_cal_period_id => l_start_cal_period_id,
p_end_cal_period_id => l_end_cal_period_id,
p_entry_type_code => 'MANUAL',
p_balance_type_code => p_balance_type_code,
p_currency_code => p_currency_code,
p_process_code => p_process_code,
p_description => p_description,
p_entry_name => p_entry_name,
p_category_code => p_category_code,
x_errbuf => l_errbuf,
x_retcode => l_retcode);
'SELECT entity_name INTO l_entity_name ' ||
' FROM fem_entities_vl WHERE entity_id = ' ||
p_entity_id);
SELECT entity_name
INTO l_entity_name
FROM fem_entities_vl
WHERE entity_id = p_entity_id;
'SELECT rule_name INTO l_rule_name ' ||
' FROM gcs_elim_rules_vl WHERE rule_id = ' ||
p_rule_id);
SELECT rule_name
INTO l_rule_name
FROM gcs_elim_rules_vl
WHERE rule_id = p_rule_id;
PROCEDURE insert_entry_header(x_errbuf OUT NOCOPY VARCHAR2,
x_retcode OUT NOCOPY VARCHAR2,
p_entry_id IN NUMBER,
p_hierarchy_id IN NUMBER,
p_entity_id IN NUMBER,
p_year_to_apply_re IN NUMBER,
p_start_cal_period_id IN NUMBER,
p_end_cal_period_id IN NUMBER,
p_entry_type_code IN VARCHAR2,
p_balance_type_code IN VARCHAR2,
p_currency_code IN VARCHAR2,
p_process_code IN VARCHAR2,
p_category_code IN VARCHAR2,
p_entry_name IN VARCHAR2,
p_description IN VARCHAR2,
p_period_init_entry_flag IN VARCHAR2 DEFAULT 'N') IS
l_api_name VARCHAR2(30) := 'INSERT_ENTRY_HEADER';
SAVEPOINT gcs_insert_header_start;
'INSERT INTO gcs_entry_headers' || g_nl ||
'(entry_id, entry_name, hierarchy_id, disabled_flag,' || g_nl ||
'entity_id, currency_code, balance_type_code,' || g_nl ||
'start_cal_period_id, end_cal_period_id,' || g_nl ||
'year_to_apply_re, description, entry_type_code,' || g_nl ||
'assoc_entry_id, processed_run_name, category_code,' || g_nl ||
'process_code, creation_date, created_by,' || g_nl ||
'last_update_date, last_updated_by, last_update_login, period_init_entry_flag' || g_nl ||
')VALUES (' || p_entry_id || ', ''' || p_entry_name ||
''', ' || p_hierarchy_id || ', ''N'',' || g_nl ||
p_entity_id || ', ''' || p_currency_code || ''', ''' ||
p_balance_type_code || ''', ' || g_nl ||
p_start_cal_period_id || ', ' || p_end_cal_period_id || ', ' || g_nl ||
p_year_to_apply_re || ', ''' || p_description ||
''', ''' || p_entry_type_code || ''', ' || g_nl ||
'NULL, NULL, ''' || p_category_code || ''', ''' || g_nl ||
p_process_code || ''', SYSDATE, ' ||
fnd_global.user_id || ', ' || g_nl || 'SYSDATE, ' ||
fnd_global.user_id || ', ' || fnd_global.login_id ||
', ''' || p_period_init_entry_flag || ''');');
INSERT INTO gcs_entry_headers
(entry_id,
entry_name,
hierarchy_id,
disabled_flag,
entity_id,
currency_code,
balance_type_code,
start_cal_period_id,
end_cal_period_id,
year_to_apply_re,
description,
entry_type_code,
assoc_entry_id,
processed_run_name,
category_code,
process_code,
creation_date,
created_by,
last_update_date,
last_updated_by,
last_update_login,
period_init_entry_flag)
VALUES
(p_entry_id,
p_entry_name,
p_hierarchy_id,
'N',
p_entity_id,
p_currency_code,
p_balance_type_code,
p_start_cal_period_id,
p_end_cal_period_id,
p_year_to_apply_re,
p_description,
p_entry_type_code,
NULL,
NULL,
p_category_code,
p_process_code,
SYSDATE,
fnd_global.user_id,
SYSDATE,
fnd_global.user_id,
fnd_global.login_id,
p_period_init_entry_flag);
ROLLBACK TO gcs_insert_header_start;
END insert_entry_header;
SELECT gcs_entry_headers_s.NEXTVAL INTO p_entry_id FROM DUAL;
insert_entry_header(p_entry_id => p_entry_id,
p_hierarchy_id => p_hierarchy_id,
p_entity_id => p_entity_id,
p_year_to_apply_re => NULL,
p_start_cal_period_id => p_start_cal_period_id,
p_end_cal_period_id => p_end_cal_period_id,
p_entry_type_code => p_entry_type_code,
p_balance_type_code => p_balance_type_code,
p_currency_code => p_currency_code,
p_process_code => p_process_code,
p_description => l_header_info.description,
p_entry_name => l_header_info.NAME,
p_category_code => p_category_code,
x_errbuf => x_errbuf,
x_retcode => x_retcode,
p_period_init_entry_flag => p_period_init_entry_flag);
l_event_name VARCHAR2(100) := 'oracle.apps.gcs.transaction.adjustment.update';
'SELECT decode(start_cal_period_id, end_cal_period_id, ''ONE_TIME'',
''RECURRING''), year_to_apply_re, hierarchy_id, balance_type_code,
entity_id, NVL (minimum_accountable_unit, POWER (10, -PRECISION))' || g_nl ||
'INTO l_entry_type_code, l_year_to_apply_re, l_hierarchy_id,
l_balance_code, l_entity_id, l_precision' || g_nl ||
'FROM fnd_currencies fc, gcs_entry_headers geh' || g_nl ||
'WHERE fc.currency_code = geh.currency_code ' || g_nl ||
'AND geh.entry_id = ' || l_entry_id);
SELECT DECODE(start_cal_period_id,
end_cal_period_id,
'ONE_TIME',
'RECURRING'),
year_to_apply_re,
hierarchy_id,
balance_type_code,
entity_id,
NVL(minimum_accountable_unit, POWER(10, -PRECISION))
INTO l_entry_type_code,
l_year_to_apply_re,
l_hierarchy_id,
l_balance_code,
l_entity_id,
l_precision
FROM fnd_currencies fc, gcs_entry_headers geh
WHERE fc.currency_code = geh.currency_code
AND geh.entry_id = l_entry_id;
'UPDATE gcs_entry_lines' || g_nl ||
'SET ytd_debit_balance_e = ROUND (ytd_debit_balance_e / l_precision)
* l_precision, ' || g_nl ||
'ytd_credit_balance_e = ROUND (ytd_credit_balance_e / l_precision)
* l_precision, ' || g_nl ||
'ytd_balance_e = ROUND (nvl(ytd_debit_balance_e, 0) / l_precision) * l_precision ' || g_nl ||
'- ROUND (nvl(ytd_credit_balance_e, 0) / l_precision) * l_precision, ' || g_nl ||
' line_type_code =
CASE
WHEN (SELECT feata.dim_attribute_varchar_member
FROM fem_ext_acct_types_attr feata,
fem_ln_items_attr flia
WHERE gcs_entry_lines.line_item_id = flia.line_item_id
AND flia.attribute_id = ' ||
g_dimension_attr_info('LINE_ITEM_ID-EXTENDED_ACCOUNT_TYPE')
.attribute_id || '
AND feata.attribute_id = ' ||
g_dimension_attr_info('EXT_ACCOUNT_TYPE_CODE-BASIC_ACCOUNT_TYPE_CODE')
.attribute_id || '
AND flia.version_id = ' ||
g_dimension_attr_info('LINE_ITEM_ID-EXTENDED_ACCOUNT_TYPE')
.version_id || '
AND feata.version_id = ' ||
g_dimension_attr_info('EXT_ACCOUNT_TYPE_CODE-BASIC_ACCOUNT_TYPE_CODE')
.version_id || '
AND feata.DIM_ATTRIBUTE_NUMERIC_MEMBER IS NULL
AND flia.value_set_id =' ||
g_gcs_dimension_info('LINE_ITEM_ID')
.associated_value_set_id ||
' AND feata.ext_account_type_code =
flia.dim_attribute_varchar_member) IN
(''REVENUE'', ''EXPENSE'')
THEN ''PROFIT_LOSS''
ELSE ''BALANCE_SHEET''
END ' ||
'WHERE entry_id = ' || l_entry_id);
UPDATE gcs_entry_lines
SET ytd_debit_balance_e = ROUND(ytd_debit_balance_e /
l_precision) * l_precision,
ytd_credit_balance_e = ROUND(ytd_credit_balance_e /
l_precision) * l_precision,
ytd_balance_e = ROUND(nvl(ytd_debit_balance_e, 0) /
l_precision) * l_precision -
ROUND(nvl(ytd_credit_balance_e, 0) /
l_precision) * l_precision,
line_type_code = CASE WHEN (SELECT feata.dim_attribute_varchar_member
FROM fem_ext_acct_types_attr feata,
fem_ln_items_attr flia
WHERE gcs_entry_lines.line_item_id =
flia.line_item_id
AND flia.value_set_id =
g_gcs_dimension_info('LINE_ITEM_ID')
.associated_value_set_id
AND flia.attribute_id =
g_dimension_attr_info('LINE_ITEM_ID-EXTENDED_ACCOUNT_TYPE')
.attribute_id
AND feata.attribute_id =
g_dimension_attr_info('EXT_ACCOUNT_TYPE_CODE-BASIC_ACCOUNT_TYPE_CODE')
.attribute_id
AND flia.version_id =
g_dimension_attr_info('LINE_ITEM_ID-EXTENDED_ACCOUNT_TYPE')
.version_id
AND feata.version_id =
g_dimension_attr_info('EXT_ACCOUNT_TYPE_CODE-BASIC_ACCOUNT_TYPE_CODE')
.version_id
AND feata.DIM_ATTRIBUTE_NUMERIC_MEMBER IS NULL
AND feata.ext_account_type_code =
flia.dim_attribute_varchar_member) IN ('REVENUE', 'EXPENSE') THEN 'PROFIT_LOSS' ELSE 'BALANCE_SHEET' END
WHERE entry_id = l_entry_id;
'UPDATE gcs_entry_lines' || g_nl ||
'SET ytd_debit_balance_e = ROUND (ytd_debit_balance_e / l_precision) * l_precision, ' || g_nl ||
'ytd_credit_balance_e = ROUND (ytd_credit_balance_e / l_precision) * l_precision, ' || g_nl ||
'ytd_balance_e = ROUND (nvl(ytd_debit_balance_e, 0) / l_precision) * l_precision ' || g_nl ||
'- ROUND (nvl(ytd_credit_balance_e, 0) / l_precision) * l_precision, ' || g_nl ||
'WHERE entry_id = ' || l_entry_id);
UPDATE gcs_entry_lines
SET ytd_debit_balance_e = ROUND(ytd_debit_balance_e /
l_precision) * l_precision,
ytd_credit_balance_e = ROUND(ytd_credit_balance_e /
l_precision) * l_precision,
ytd_balance_e = ROUND(nvl(ytd_debit_balance_e, 0) /
l_precision) * l_precision -
ROUND(nvl(ytd_credit_balance_e, 0) /
l_precision) * l_precision
WHERE entry_id = l_entry_id;
PROCEDURE delete_entry(p_entry_id IN NUMBER,
x_errbuf OUT NOCOPY VARCHAR2,
x_retcode OUT NOCOPY VARCHAR2) IS
l_api_name VARCHAR2(30) := 'DELETE_ENTRY';
SAVEPOINT gcs_delete_entry_start;
'DELETE FROM gcs_entry_headers' || g_nl ||
'WHERE entry_id = ' || p_entry_id);
DELETE FROM gcs_entry_headers
WHERE entry_id = p_entry_id;
'DELETE FROM gcs_entry_lines' || g_nl ||
'WHERE entry_id = ' || p_entry_id);
DELETE FROM gcs_entry_lines WHERE entry_id = p_entry_id;
ROLLBACK TO gcs_delete_entry_start;
ROLLBACK TO gcs_delete_entry_start;
END delete_entry;