The following lines contain the word 'select', 'insert', 'update' or 'delete':
raise_gma_insert_message EXCEPTION;
RAISE raise_gma_insert_message;
SELECT gma_mig_run_id_s.nextval INTO v_run_id
FROM dual;
RAISE raise_gma_insert_message;
INSERT INTO gma_migration_control
(application_short_name,
run_id,
mig_name,
mig_start_date
)
VALUES (p_app_short_name,
v_run_id,
p_mig_name,
v_mig_date
);
WHEN raise_gma_insert_message THEN
gma_insert_message(
p_run_id => v_run_id,
p_table_name => 'gma_migration_log',
p_DB_ERROR => SQLERRM,
p_param1 => NULL,
p_param2 => NULL,
p_param3 => NULL,
p_param4 => NULL,
p_param5 => NULL,
p_message_token => v_message_token,
p_message_type => 'D',
p_line_no => NULL,
p_position => l_pos,
p_base_message => ''
);
gma_insert_message(
p_run_id => v_run_id,
p_table_name => 'gma_migration_log',
p_DB_ERROR => SQLERRM,
p_param1 => 'an error occurred while updating gma_migration_log',
p_param2 => NULL,
p_param3 => NULL,
p_param4 => NULL,
p_param5 => NULL,
p_message_token => v_message_token,
p_message_type => 'D',
p_line_no => NULL,
p_position => l_pos,
p_base_message => ''
);
PROCEDURE gma_insert_message(
p_run_id IN NUMBER,
p_table_name IN VARCHAR2,
p_DB_ERROR IN VARCHAR2,
p_param1 IN VARCHAR2,
p_param2 IN VARCHAR2,
p_param3 IN VARCHAR2,
p_param4 IN VARCHAR2,
p_param5 IN VARCHAR2,
p_message_token IN VARCHAR2,
p_message_type IN VARCHAR2,
p_line_no IN NUMBER,
p_position IN NUMBER,
p_base_message IN VARCHAR2
) IS
BEGIN
GMA_COMMON_LOGGING.Gma_Migration_CentraL_Log(
P_Run_Id => p_run_id,
P_log_level => 5,
P_App_short_name => 'GMA',
P_Message_Token => p_message_token,
P_context => NULL,
P_Table_Name => p_table_name,
P_Param1 => p_param1,
P_Param2 => p_param2,
P_Param3 => p_param3,
P_Param4 => p_param4,
P_Param5 => p_param5,
P_Db_Error => p_db_error);
END gma_insert_message;
raise_gma_insert_message EXCEPTION;
RAISE raise_gma_insert_message;
RAISE raise_gma_insert_message;
UPDATE gma_migration_control
SET mig_end_date = v_mig_end_date
WHERE run_id = l_run_id;
WHEN raise_gma_insert_message THEN
gma_insert_message(
p_run_id => l_run_id,
p_table_name => 'gma_migration_log',
p_DB_ERROR => SQLERRM,
p_param1 => 'an error occurred while updating gma_migration_log',
p_param2 => NULL,
p_param3 => NULL,
p_param4 => NULL,
p_param5 => NULL,
p_message_token => v_message_token,
p_message_type => 'D',
p_line_no => NULL,
p_position => l_pos,
p_base_message => ''
);
gma_insert_message(
p_run_id => l_run_id,
p_table_name => 'gma_migration_log',
p_DB_ERROR => SQLERRM,
p_param1 => NULL,
p_param2 => NULL,
p_param3 => NULL,
p_param4 => NULL,
p_param5 => NULL,
p_message_token => v_message_token,
p_message_type => 'D',
p_line_no => NULL,
p_position => l_pos,
p_base_message => ''
);
SELECT run_id from gma_migration_control WHERE mig_name = p_mig_name
AND mig_end_date is NULL
ORDER BY run_id desc;
SELECT mig_name from gma_migration_control WHERE run_id = p_run_id
ORDER BY run_id desc;
gma_insert_message(
p_run_id => p_run_id,
p_table_name => 'gma_migration_log',
p_DB_ERROR => SQLERRM,
p_param1 => NULL,
p_param2 => NULL,
p_param3 => NULL,
p_param4 => NULL,
p_param5 => NULL,
p_message_token => 'GMA_MIGRATION_DB_ERROR',
p_message_type => 'D',
p_line_no => NULL,
p_position => NULL,
p_base_message => ''
);
SELECT *
FROM gma_migration_log
WHERE message_token = p_name AND
rowid = p_rowid;
gma_insert_message(
p_run_id => v_run_id,
p_table_name => 'gma_migration_log',
p_DB_ERROR => SQLERRM,
p_param1 => NULL,
p_param2 => NULL,
p_param3 => NULL,
p_param4 => NULL,
p_param5 => NULL,
p_message_token => 'GMA_MIGRATION_DB_ERROR',
p_message_type => 'D',
p_line_no => NULL,
p_position => l_pos,
p_base_message => ''
);