The following lines contain the word 'select', 'insert', 'update' or 'delete':
FUNCTION jtf_obj_select_stmt (
select_id IN jtf_objects_b.select_id%TYPE DEFAULT NULL,
select_name IN jtf_objects_b.select_name%TYPE DEFAULT NULL,
select_details IN jtf_objects_b.select_details%TYPE DEFAULT NULL,
from_table IN jtf_objects_b.from_table%TYPE DEFAULT NULL,
where_clause IN jtf_objects_b.where_clause%TYPE DEFAULT NULL,
p_inactive_clause IN jtf_objects_b.inactive_clause%TYPE DEFAULT NULL,
order_by_clause IN jtf_objects_b.order_by_clause%TYPE DEFAULT NULL
)
RETURN VARCHAR2
IS
l_select_id jtf_objects_b.select_id%TYPE := select_id;
l_select_name jtf_objects_b.select_name%TYPE := select_name;
l_select_details jtf_objects_b.select_details%TYPE
:= select_details;
IF l_select_id IS NULL
THEN
IF l_select_name IS NULL
THEN
IF l_select_details IS NULL
THEN
RETURN NULL;
str := 'select ' || l_select_details;
IF l_select_details IS NULL
THEN
str := 'select ' || l_select_name;
str := 'select ' || l_select_name || ', ' || l_select_details;
IF l_select_name IS NULL
THEN
IF l_select_details IS NULL
THEN
str := 'select ' || l_select_id;
str := 'select ' || l_select_id || ', ' || l_select_details;
IF l_select_details IS NULL
THEN
str := 'select ' || l_select_id || ', ' || l_select_name;
str := 'select ' ||
l_select_id ||
', ' ||
l_select_name ||
', ' ||
l_select_details;
END jtf_obj_select_stmt;
p_select_id IN jtf_objects_b.select_id%TYPE DEFAULT NULL,
p_select_name IN jtf_objects_b.select_name%TYPE DEFAULT NULL,
p_select_details IN jtf_objects_b.select_details%TYPE
DEFAULT NULL,
p_from_table IN jtf_objects_b.from_table%TYPE DEFAULT NULL,
p_where_clause IN jtf_objects_b.where_clause%TYPE
DEFAULT NULL,
p_inactive_clause IN jtf_objects_b.inactive_clause%TYPE DEFAULT NULL, -- Added for Bug# 2557586
p_order_by_clause IN jtf_objects_b.order_by_clause%TYPE
DEFAULT NULL,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
x_sql_statement OUT NOCOPY VARCHAR2
)
IS
l_api_name VARCHAR2(240)
:= 'CHECK_SYNTAX';
l_select_id jtf_objects_b.select_id%TYPE
:= p_select_id;
l_select_name jtf_objects_b.select_name%TYPE
:= p_select_name;
l_select_details jtf_objects_b.select_details%TYPE
:= p_select_details;
l_select_columns NUMBER := 0;
l_dummy_select_id VARCHAR2(2000);
l_dummy_select_name VARCHAR2(2000);
l_dummy_select_details VARCHAR2(2000);
IF l_select_id IS NOT NULL
THEN
x_sql_statement := ' select ' || l_select_id;
l_select_columns := l_select_columns + 1;
IF l_select_name IS NOT NULL
THEN
IF initialized = TRUE
THEN
x_sql_statement := x_sql_statement || ', ' || l_select_name;
l_select_columns := l_select_columns + 1;
x_sql_statement := ' select ' || l_select_name;
IF l_select_details IS NOT NULL
THEN
IF initialized = TRUE
THEN
x_sql_statement := x_sql_statement || ', ' || l_select_details;
l_select_columns := l_select_columns + 1;
x_sql_statement := ' select ' || l_select_details;
x_sql_statement := ' select 1 ';
IF l_select_columns = 1
THEN
EXECUTE IMMEDIATE x_sql_statement
INTO l_dummy_select_id;
IF l_select_columns = 2
THEN
EXECUTE IMMEDIATE x_sql_statement
INTO l_dummy_select_id, l_dummy_select_name;
IF l_select_columns = 3
THEN
EXECUTE IMMEDIATE x_sql_statement
INTO l_dummy_select_id, l_dummy_select_name, l_dummy_select_details;
G_OBJECT_PG_TBL.DELETE;
SELECT 1 AS OBJ_ROW_TYPE
, JOPD.PG_REGION_PATH
, JOPP.DEST_PARAM
, JOPP.SOURCE_PARAM
FROM JTF_OBJECTS_B JOB
, JTF_OBJECT_PG_DTLS JOPD
, JTF_OBJECT_PG_PARAMS JOPP
WHERE JOB.OBJECT_CODE = b_object_code
AND JOPD.OBJECT_CODE = JOB.OBJECT_CODE
AND JOPD.APPLICATION_ID = b_application_id
AND JOPD.PAGE_TYPE = 'OA_PAGE'
AND JOPP.OBJECT_DTLS_ID = JOPD.OBJECT_DTLS_ID
UNION ALL
SELECT 2 AS OBJ_ROW_TYPE
, JOPD.PG_REGION_PATH
, JOPP.DEST_PARAM
, JOPP.SOURCE_PARAM
FROM JTF_OBJECTS_B JOB
, JTF_OBJECT_PG_DTLS JOPD
, JTF_OBJECT_PG_PARAMS JOPP
WHERE JOB.OBJECT_CODE = b_default_object_code
AND JOPD.OBJECT_CODE = JOB.OBJECT_CODE
AND JOPD.APPLICATION_ID = JOB.APPLICATION_ID
AND JOPD.PAGE_TYPE = 'OA_PAGE'
AND JOPP.OBJECT_DTLS_ID = JOPD.OBJECT_DTLS_ID;