The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Insert_Row ( p_Prog_request_id NUMBER ,
p_Object_type VARCHAR2,
p_Object_name VARCHAR2,
p_Refresh_type VARCHAR2,
p_Object_row_count NUMBER,
p_Object_space_usage NUMBER ,
p_Tablespace_name VARCHAR2,
p_Free_tablespace_size VARCHAR2,
p_Creation_date DATE,
p_Created_by NUMBER,
p_Last_update_date DATE,
p_Last_updated_by NUMBER
)
is
CURSOR C_check IS SELECT 1 from BIS_OBJ_REFRESH_HISTORY
where Prog_request_id =p_Prog_request_id and
OBJECT_TYPE =p_Object_type and
OBJECT_NAME =p_Object_name ;
insert into BIS_OBJ_REFRESH_HISTORY
(Prog_request_id ,
Object_type ,
Object_name ,
Refresh_type ,
Object_row_count ,
Object_space_usage,
Tablespace_name ,
Free_tablespace_size,
Creation_date ,
Created_by ,
Last_update_date ,
Last_updated_by )
values
(p_Prog_request_id ,
p_Object_type ,
p_Object_name ,
p_Refresh_type ,
p_Object_row_count ,
p_Object_space_usage,
p_Tablespace_name ,
p_Free_tablespace_size,
p_Creation_date ,
p_Created_by ,
p_Last_update_date ,
p_Last_updated_by
);
BIS_COLLECTION_UTILITIES.put_line('Exception happens in BIS_OBJ_REFRESH_HISTORY_PKG.Insert_Row ' || sqlerrm);
FUNCTION Update_Row ( p_Prog_request_id NUMBER,
p_new_Prog_request_id NUMBER DEFAULT NULL,
p_Object_type VARCHAR2 DEFAULT NULL,
p_Object_name VARCHAR2 DEFAULT NULL,
p_Refresh_type VARCHAR2 DEFAULT NULL,
p_Object_row_count NUMBER DEFAULT NULL,
p_Object_space_usage NUMBER DEFAULT NULL,
p_Tablespace_name VARCHAR2 DEFAULT NULL,
p_Free_tablespace_size VARCHAR2 DEFAULT NULL,
p_Last_update_date DATE,
p_Last_updated_by NUMBER) RETURN BOOLEAN
IS
setClause varchar2(1024):=null;
if(p_Prog_request_id is null or p_Last_update_date is null or p_Last_updated_by is null
or p_Object_type is null or p_Object_name is null) THEN
return FALSE;
/* Object Type and Object Name should not be updateable; they form the primary key
setClause :=setClause || 'Last_update_date = ''' || p_Last_update_date || ''', ' ;
setClause :=setClause || 'Last_updated_by= ' || p_Last_updated_by ;
stmt := stmt || 'update BIS_OBJ_REFRESH_HISTORY set ' || setClause ;
BIS_COLLECTION_UTILITIES.put_line('Exception happens in BIS_OBJ_REFRESH_HISTORY_PKG.Update_Row ' || sqlerrm);
PROCEDURE Delete_Row (p_prog_req_id number)
IS
BEGIN
DELETE FROM BIS_OBJ_REFRESH_HISTORY
WHERE PROG_REQUEST_ID = p_prog_req_id;
BIS_COLLECTION_UTILITIES.put_line('Exception happens in BIS_OBJ_REFRESH_HISTORY_PKG.Delete_Row ' || sqlerrm);