The following lines contain the word 'select', 'insert', 'update' or 'delete':
CURSOR insert_update(flex_num NUMBER) IS
SELECT id_flex_num
FROM FND_ID_FLEX_STRUCTURES
WHERE application_id = 101
AND id_flex_code = 'GLLE'
AND id_flex_num = flex_num;
SELECT id_flex_num
FROM FND_ID_FLEX_SEGMENTS
WHERE application_id = 101
AND id_flex_code = 'GL#'
AND id_flex_num = flex_num;
OPEN insert_update(X_id_flex_num);
FETCH insert_update INTO x_num;
IF(insert_update%FOUND)THEN
DELETE FROM FND_ID_FLEX_STRUCTURES
WHERE application_id = 101
AND id_flex_code = 'GLLE'
AND id_flex_num = X_id_flex_num;
DELETE FROM FND_ID_FLEX_STRUCTURES_TL
WHERE application_id = 101
AND id_flex_code = 'GLLE'
AND id_flex_num = X_id_flex_num;
DELETE FROM FND_ID_FLEX_SEGMENTS
WHERE application_id = 101
AND id_flex_code = 'GLLE'
AND id_flex_num = X_id_flex_num;
DELETE FROM FND_ID_FLEX_SEGMENTS_TL
WHERE application_id = 101
AND id_flex_code = 'GLLE'
AND id_flex_num = X_id_flex_num;
DELETE FROM FND_SEGMENT_ATTRIBUTE_VALUES
WHERE application_id = 101
AND id_flex_code = 'GLLE'
AND id_flex_num = X_id_flex_num;
DELETE FROM FND_COMPILED_ID_FLEX_STRUCTS
WHERE application_id = 101
AND id_flex_code = 'GLLE'
AND id_flex_num = X_id_flex_num;
fnd_message.set_name('SQLGL','GL_COA_MIRROR_DELETE');
CLOSE insert_update;
INSERT INTO FND_ID_FLEX_STRUCTURES
(application_id,
id_flex_code,
id_flex_num,
last_update_date,
last_updated_by,
creation_date,
created_by,
last_update_login,
concatenated_segment_delimiter,
cross_segment_validation_flag,
dynamic_inserts_allowed_flag,
enabled_flag,
freeze_flex_definition_flag,
freeze_structured_hier_flag,
shorthand_enabled_flag,
shorthand_length,
structure_view_name,
id_flex_structure_code)
-- security_group_id)
SELECT
101,
'GLLE',
X_id_flex_num,
sysdate,
x_user_id,
sysdate,
x_user_id,
x_login_id,
concatenated_segment_delimiter,
cross_segment_validation_flag,
'N',
enabled_flag,
'Y',
freeze_structured_hier_flag,
shorthand_enabled_flag,
shorthand_length,
structure_view_name,
id_flex_structure_code--,
-- security_group_id
FROM FND_ID_FLEX_STRUCTURES
WHERE application_id = 101
AND id_flex_code = 'GL#'
AND id_flex_num = X_id_flex_num;
INSERT INTO FND_ID_FLEX_STRUCTURES_TL
(application_id,
id_flex_code,
id_flex_num,
language,
last_update_date,
last_updated_by,
creation_date,
created_by,
last_update_login,
id_flex_structure_name,
description,
shorthand_prompt,
source_lang)
-- security_group_id)
SELECT
101,
'GLLE',
X_id_flex_num,
language,
sysdate,
x_user_id,
sysdate,
x_user_id,
x_login_id,
id_flex_structure_name,
description,
shorthand_prompt,
source_lang
-- security_group_id
FROM FND_ID_FLEX_STRUCTURES_TL
WHERE application_id = 101
AND id_flex_code = 'GL#'
AND id_flex_num = X_id_flex_num;
INSERT INTO FND_ID_FLEX_SEGMENTS
(application_id,
id_flex_code,
id_flex_num,
application_column_name,
segment_name,
last_update_date,
last_updated_by,
creation_date,
created_by,
last_update_login,
segment_num,
application_column_index_flag,
enabled_flag,
required_flag,
display_flag,
display_size,
security_enabled_flag,
maximum_description_len,
concatenation_description_len,
flex_value_set_id,
range_code,
default_type,
default_value,
runtime_property_function)
-- security_group_id)
SELECT
101,
'GLLE',
X_id_flex_num,
'LEDGER_SEGMENT',
lv.meaning,
sysdate,
x_user_id,
sysdate,
x_user_id,
x_login_id,
1,
'Y',
'Y',
'Y',
'Y',
20,
'N',
50,
25,
fv.flex_value_set_id,
null,
'S',
'SELECT short_name FROM gl_ledgers WHERE ledger_id = gl_formsinfo.get_default_ledger(:$PROFILES$.access_set_id,''R'',NULL)',
null
-- security_group_id
FROM FND_FLEX_VALUE_SETS fv,
FND_LANGUAGES l,
FND_LOOKUP_VALUES lv
WHERE fv.flex_value_set_name = 'GL_COA_MIRROR_LEDGER'
AND l.installed_flag = 'B'
AND lv.language = l.language_code
AND lv.lookup_type = 'LEDGERS'
AND lv.lookup_code = 'L'
AND lv.view_application_id = 101;
INSERT INTO FND_ID_FLEX_SEGMENTS
(application_id,
id_flex_code,
id_flex_num,
application_column_name,
segment_name,
last_update_date,
last_updated_by,
creation_date,
created_by,
last_update_login,
segment_num,
application_column_index_flag,
enabled_flag,
required_flag,
display_flag,
display_size,
security_enabled_flag,
maximum_description_len,
concatenation_description_len,
flex_value_set_id,
range_code,
default_type,
default_value,
runtime_property_function)
-- security_group_id)
SELECT
101,
'GLLE',
X_id_flex_num,
application_column_name,
segment_name,
sysdate,
x_user_id,
sysdate,
x_user_id,
x_login_id,
segment_num+1,
application_column_index_flag,
enabled_flag,
required_flag,
display_flag,
display_size,
security_enabled_flag,
maximum_description_len,
concatenation_description_len,
flex_value_set_id,
range_code,
default_type,
default_value,
runtime_property_function
-- security_group_id
FROM FND_ID_FLEX_SEGMENTS
WHERE application_id = 101
AND id_flex_code = 'GL#'
AND id_flex_num = X_id_flex_num;
INSERT INTO FND_ID_FLEX_SEGMENTS_TL
(application_id,
id_flex_code,
id_flex_num,
application_column_name,
language,
last_update_date,
last_updated_by,
creation_date,
created_by,
last_update_login,
form_left_prompt,
form_above_prompt,
description,
source_lang)
-- security_group_id)
SELECT
101,
'GLLE',
X_id_flex_num,
'LEDGER_SEGMENT',
l.language_code,
sysdate,
x_user_id,
sysdate,
x_user_id,
x_login_id,
lv.meaning,
lv.meaning,
lv.description,
userenv('LANG')
-- security_group_id
FROM FND_LOOKUP_VALUES lv,
FND_LANGUAGES l
WHERE l.installed_flag in ('B','I')
AND NOT EXISTS
(SELECT NULL
FROM FND_ID_FLEX_SEGMENTS_TL t
WHERE t.application_id = 101
AND t.id_flex_code = 'GLLE'
AND t.id_flex_num = X_id_flex_num
AND t.application_column_name = 'LEDGER_SEGMENT'
AND t.language = l.language_code)
AND lv.lookup_type = 'LEDGERS'
AND lv.lookup_code = 'L'
AND lv.language = l.language_code
AND lv.view_application_id = 101;
INSERT INTO FND_ID_FLEX_SEGMENTS_TL
(application_id,
id_flex_code,
id_flex_num,
application_column_name,
language,
last_update_date,
last_updated_by,
creation_date,
created_by,
last_update_login,
form_left_prompt,
form_above_prompt,
description,
source_lang)
-- security_group_id)
SELECT
101,
'GLLE',
X_id_flex_num,
application_column_name,
language,
sysdate,
x_user_id,
sysdate,
x_user_id,
x_login_id,
form_left_prompt,
form_above_prompt,
description,
source_lang
-- security_group_id
FROM FND_ID_FLEX_SEGMENTS_TL
WHERE application_id = 101
AND id_flex_code = 'GL#'
AND id_flex_num = X_id_flex_num;
INSERT INTO FND_SEGMENT_ATTRIBUTE_VALUES
(application_id,
id_flex_code,
id_flex_num,
application_column_name,
segment_attribute_type,
last_update_date,
last_updated_by,
creation_date,
created_by,
last_update_login,
attribute_value)
-- security_group_id)
SELECT
101,
'GLLE',
X_id_flex_num,
application_column_name,
'GL_LEDGER',
sysdate,
x_user_id,
sysdate,
x_user_id,
x_login_id,
decode(application_column_name,'LEDGER_SEGMENT','Y','N')
-- security_group_id
FROM FND_ID_FLEX_SEGMENTS
WHERE application_id =101
AND id_flex_code = 'GLLE'
AND id_flex_num = X_id_flex_num;
INSERT INTO FND_SEGMENT_ATTRIBUTE_VALUES
(application_id,
id_flex_code,
id_flex_num,
application_column_name,
segment_attribute_type,
last_update_date,
last_updated_by,
creation_date,
created_by,
last_update_login,
attribute_value)
-- security_group_id)
SELECT
101,
'GLLE',
X_id_flex_num,
'LEDGER_SEGMENT',
val.segment_attribute_type,
sysdate,
x_user_id,
sysdate,
x_user_id,
x_login_id,
decode(val.segment_attribute_type,'GL_GLOBAL','Y','N')
-- security_group_id
FROM FND_SEGMENT_ATTRIBUTE_VALUES val,
FND_SEGMENT_ATTRIBUTE_TYPES typ
WHERE val.application_id=101
AND val.id_flex_code = 'GL#'
AND val.id_flex_num = X_id_flex_num
AND val.application_column_name =
(SELECT application_column_name
FROM FND_ID_FLEX_SEGMENTS
WHERE application_id = 101
AND id_flex_code = 'GL#'
AND id_flex_num = X_id_flex_num
AND rownum=1)
AND typ.application_id = 101
AND typ.id_flex_code = 'GLLE'
AND typ.segment_attribute_type = val.segment_attribute_type;
INSERT INTO FND_SEGMENT_ATTRIBUTE_VALUES
(application_id,
id_flex_code,
id_flex_num,
application_column_name,
segment_attribute_type,
last_update_date,
last_updated_by,
creation_date,
created_by,
last_update_login,
attribute_value)
-- security_group_id)
SELECT
101,
'GLLE',
X_id_flex_num,
val.application_column_name,
val.segment_attribute_type,
sysdate,
x_user_id,
sysdate,
x_user_id,
x_login_id,
val.attribute_value
-- security_group_id
FROM FND_SEGMENT_ATTRIBUTE_VALUES val,
FND_SEGMENT_ATTRIBUTE_TYPES typ
WHERE val.application_id = 101
AND val.id_flex_code = 'GL#'
AND val.id_flex_num = X_id_flex_num
AND typ.application_id = 101
AND typ.id_flex_code = 'GLLE'
AND typ.segment_attribute_type = val.segment_attribute_type;
SELECT id_flex_structure_code
INTO x_id_flex_strt_code
FROM FND_ID_FLEX_STRUCTURES
WHERE application_id = 101
AND id_flex_code = 'GLLE'
AND id_flex_num = X_id_flex_num;