The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Insert_Row( row_id IN OUT NOCOPY VARCHAR2,
structure_id NUMBER,
column_name VARCHAR2,
column_type_code VARCHAR2,
write_flag VARCHAR2,
error_code_column_flag VARCHAR2,
last_update_date DATE,
last_updated_by NUMBER,
last_update_login NUMBER,
creation_date DATE,
created_by NUMBER) IS
CURSOR column_row IS
SELECT rowid
FROM gcs_lex_map_columns mc
WHERE mc.structure_id = insert_row.structure_id
AND mc.column_name = insert_row.column_name;
INSERT INTO gcs_lex_map_columns( column_id,
structure_id,
column_name,
column_type_code,
write_flag,
error_code_column_flag,
last_update_date,
last_updated_by,
last_update_login,
creation_date,
created_by)
SELECT gcs_lex_map_columns_s.nextval,
structure_id,
column_name,
column_type_code,
write_flag,
error_code_column_flag,
last_update_date,
last_updated_by,
last_update_login,
creation_date,
created_by
FROM dual
WHERE NOT EXISTS
(SELECT 1
FROM gcs_lex_map_columns mc
WHERE mc.structure_id = insert_row.structure_id
AND mc.column_name = insert_row.column_name);
END Insert_Row;
PROCEDURE Update_Row( structure_id NUMBER,
column_name VARCHAR2,
column_type_code VARCHAR2,
write_flag VARCHAR2,
error_code_column_flag VARCHAR2,
last_update_date DATE,
last_updated_by NUMBER,
last_update_login NUMBER) IS
BEGIN
UPDATE gcs_lex_map_columns mc
SET column_type_code = update_row.column_type_code,
write_flag = update_row.write_flag,
error_code_column_flag = update_row.error_code_column_flag,
last_update_date = update_row.last_update_date,
last_updated_by = update_row.last_updated_by,
last_update_login = update_row.last_update_login
WHERE mc.structure_id = update_row.structure_id
AND mc.column_name = update_row.column_name;
END Update_Row;
last_update_date VARCHAR2,
column_type_code VARCHAR2,
write_flag VARCHAR2,
error_code_column_flag VARCHAR2,
custom_mode VARCHAR2) IS
row_id VARCHAR2(64);
f_ludate DATE; -- entity update date in file
db_ludate DATE; -- entity update date in db
SELECT structure_id
INTO struct_id
FROM gcs_lex_map_structs ms
WHERE ms.structure_name = load_row.structure_name;
f_ludate := nvl(to_date(last_update_date, 'YYYY/MM/DD'), sysdate);
SELECT mc.last_updated_by, mc.last_update_date
INTO db_luby, db_ludate
FROM GCS_LEX_MAP_COLUMNS mc
WHERE mc.structure_id = struct_id
AND mc.column_name = load_row.column_name;
update_row( structure_id => struct_id,
column_name => column_name,
column_type_code => column_type_code,
write_flag => write_flag,
error_code_column_flag => error_code_column_flag,
last_update_date => f_ludate,
last_updated_by => f_luby,
last_update_login => 0);
insert_row( row_id => row_id,
structure_id => struct_id,
column_name => column_name,
column_type_code => column_type_code,
write_flag => write_flag,
error_code_column_flag => error_code_column_flag,
last_update_date => f_ludate,
last_updated_by => f_luby,
last_update_login => 0,
creation_date => f_ludate,
created_by => f_luby);
last_update_date VARCHAR2,
custom_mode VARCHAR2) IS
struct_id NUMBER;
f_ludate DATE; -- entity update date in file
db_ludate DATE; -- entity update date in db
SELECT structure_id
INTO struct_id
FROM gcs_lex_map_structs ms
WHERE ms.structure_name = translate_row.structure_name;
f_ludate := nvl(to_date(last_update_date, 'YYYY/MM/DD'), sysdate);
SELECT mc.last_updated_by, mc.last_update_date
INTO db_luby, db_ludate
FROM GCS_LEX_MAP_COLUMNS mc
WHERE mc.structure_id = struct_id
AND mc.column_name = translate_row.column_name;
UPDATE gcs_lex_map_columns mc
SET last_update_date = f_ludate,
last_updated_by = f_luby,
last_update_login = 0
WHERE mc.structure_id = struct_id
AND mc.column_name = translate_row.column_name;