The following lines contain the word 'select', 'insert', 'update' or 'delete':
LAST_UPDATED_BY,CREATED_BY,LAST_UPDATE_LOGIN ';
l_hdr_sql_columns:= ' LAST_UPDATED_BY,CREATED_BY,LAST_UPDATE_LOGIN ';
l_check_text_rows:= ' SELECT distinct TEXT_CODE ' ||
' FROM '||X_From_Text_Table ||
' WHERE Text_Code = :X_Text_Code';
SELECT gem5_text_code_s.nextval into l_New_Text_code
FROM DUAL;
l_TL_Sql_statement:= 'INSERT INTO '||X_To_Text_table||
' ( '||
' TEXT_CODE ' ||','||
l_TL_SQL_COLUMNS ||','||
' CREATION_DATE' ||','||
' LAST_UPDATE_DATE' ||
' ) '||
' SELECT :l_New_Text_Code '||','||
l_tl_sql_columns ||','||
'sysdate'||','||
'sysdate'||
' FROM '||X_From_Text_Table ||
' WHERE Text_Code = :X_Text_Code ';
l_TL_HDR_Sql_stmt:= 'INSERT INTO '||l_To_Hdr_Table||
' ( '||
' TEXT_CODE' ||','||
l_hdr_sql_columns ||','||
' CREATION_DATE' ||','||
' LAST_UPDATE_DATE' ||
' ) '||
' SELECT :l_New_Text_Code '||','||
l_hdr_sql_columns ||','||
'sysdate'||','||
'sysdate'||
' FROM '||l_From_Hdr_Table ||
' WHERE Text_Code = :X_Text_Code ';
Procedure Delete_Text(
X_Text_Code in NUMBER,
X_From_Text_Table in VARCHAR2
)
is
pragma AUTONOMOUS_TRANSACTION;
l_tl_sql_statement:=' DELETE FROM '|| X_From_Text_table ||
' WHERE TEXT_CODE = :X_Text_Code ';
l_tl_hdr_sql_stmt:=' DELETE FROM '|| l_From_hdr_table ||
' WHERE TEXT_CODE =:X_Text_Code ';
End Delete_Text;