The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE check_and_insert
(
p_program_name IN VARCHAR2,
p_errbuf OUT NOCOPY VARCHAR2,
p_retcode OUT NOCOPY NUMBER
)
IS
l_module_name VARCHAR2(200);
l_module_name := g_module_name || 'check_and_insert';
log ('Inserting Program '||p_program_name||' into request_group');
PROCEDURE insert_into_request_group
(
p_errbuf OUT NOCOPY VARCHAR2,
p_retcode OUT NOCOPY NUMBER
)
IS
l_module_name VARCHAR2(200);
l_module_name := g_module_name || 'insert_into_request_group';
log ('Calling check_and_insert with '||l_program_name);
check_and_insert
(
p_program_name => l_program_name,
p_errbuf => p_errbuf,
p_retcode => p_retcode
);
log ('Calling check_and_insert with '||l_program_name);
check_and_insert
(
p_program_name => l_program_name,
p_errbuf => p_errbuf,
p_retcode => p_retcode
);
log ('Calling check_and_insert with '||l_program_name);
check_and_insert
(
p_program_name => l_program_name,
p_errbuf => p_errbuf,
p_retcode => p_retcode
);
log ('Calling check_and_insert with '||l_program_name);
check_and_insert
(
p_program_name => l_program_name,
p_errbuf => p_errbuf,
p_retcode => p_retcode
);
log ('Calling check_and_insert with '||l_program_name);
check_and_insert
(
p_program_name => l_program_name,
p_errbuf => p_errbuf,
p_retcode => p_retcode
);
log ('Calling check_and_insert with '||l_program_name);
check_and_insert
(
p_program_name => l_program_name,
p_errbuf => p_errbuf,
p_retcode => p_retcode
);
log ('Calling check_and_insert with '||l_program_name);
check_and_insert
(
p_program_name => l_program_name,
p_errbuf => p_errbuf,
p_retcode => p_retcode
);
log ('Calling check_and_insert with '||l_program_name);
check_and_insert
(
p_program_name => l_program_name,
p_errbuf => p_errbuf,
p_retcode => p_retcode
);
log ('Calling check_and_insert with '||l_program_name);
check_and_insert
(
p_program_name => l_program_name,
p_errbuf => p_errbuf,
p_retcode => p_retcode
);
UPDATE fnd_columns
SET flexfield_usage_code = 'K'
WHERE table_id = (SELECT table_id
FROM fnd_tables
WHERE application_id = 101
AND table_name = 'GL_CODE_COMBINATIONS')
AND column_name LIKE 'SEGMENT_ATTRIBUTE%';
log ('Updated '||SQL%ROWCOUNT||' rows');
l_location := 'update_fnd_columns';
UPDATE fnd_flex_value_sets
SET format_type = 'C'
WHERE flex_value_set_name LIKE 'Reporting Attribute:%'
AND format_type = 'V';
log ('Updated '||SQL%ROWCOUNT||' rows');
l_location := 'update_fnd_flex_value_sets';
UPDATE gl_lookups
SET enabled_flag = 'Y'
WHERE lookup_type = 'ACCOUNT TYPE'
AND lookup_code IN ('C', 'D');
log ('Updated '||SQL%ROWCOUNT||' rows');
UPDATE fnd_lookups
SET enabled_flag = 'Y'
WHERE lookup_type = 'ACCOUNT_TYPE'
AND lookup_code IN ('C', 'D');
log ('Inserting '||p_lookup_type||':'||p_lookup_code);
INSERT INTO fnd_lookup_values
(
lookup_type,
language,
lookup_code,
meaning,
description,
enabled_flag,
start_date_active,
end_date_active,
created_by,
creation_date,
last_updated_by,
last_update_date,
last_update_login,
source_lang,
security_group_id,
view_application_id
)
SELECT p_lookup_type,
'US',
p_lookup_code,
p_lookup_meaning,
p_lookup_desc,
'Y',
NULL,
NULL,
0,
sysdate,
0,
sysdate,
0,
'US',
0,
0
FROM sys.dual
WHERE NOT EXISTS (SELECT 1
FROM fnd_lookup_values
WHERE lookup_type = p_lookup_type
AND language = 'US'
AND lookup_code = p_lookup_code
AND security_group_id = 0
AND view_application_id = 0);
log ('Inserted '||SQL%ROWCOUNT||' rows');
PROCEDURE insert_fnd_lookups
(
p_errbuf OUT NOCOPY VARCHAR2,
p_retcode OUT NOCOPY NUMBER
)
IS
l_module_name VARCHAR2(200);
l_module_name := g_module_name || 'insert_fnd_lookups';
log ('Inserting lookup value Fund');
log ('Inserting lookup value Revenue');
log ('Inserting lookup value Fund Balance');
log ('Inserting lookup value Net Revenue');
log ('Inserting lookup value Order');
log ('Inserting lookup value Agent');
log ('Inserting lookup value Agent');
log ('Inserting lookup value Agent');
SELECT industry
INTO l_industry_value
FROM fnd_product_installations
WHERE application_id=101;
UPDATE fnd_product_installations a
SET a.industry = 'G'
WHERE a.application_id in (SELECT application_id
FROM fnd_application
WHERE application_short_name IN ('FND',
'SYSADMIN',
'SQLGL',
'SQLAP',
'PO',
'AR'));
log('Calling insert_into_request_group');
insert_into_request_group (p_errbuf, p_retcode);
insert_fnd_lookups (p_errbuf, p_retcode);