The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Insert_Row
(p_commit IN VARCHAR2,
p_called_by_form IN VARCHAR2,
p_item_code IN VARCHAR2,
p_location_segment_qualifier IN VARCHAR2,
p_location_segment_value IN VARCHAR2,
p_parent_segment_id IN NUMBER,
p_min_ingredients_to_print IN NUMBER,
p_rtk_reporting_level IN VARCHAR2,
p_use_msds_name_flag IN VARCHAR2,
p_rtk_name IN VARCHAR2,
p_print_cas_number_flag IN VARCHAR2,
p_trade_secret_flag IN VARCHAR2,
p_trade_secret_name IN VARCHAR2,
p_trade_secret_exp_date IN DATE,
p_trade_secret_permit IN VARCHAR2,
p_state_defined_item_type IN VARCHAR2,
p_created_by IN NUMBER,
p_creation_date IN DATE,
p_last_updated_by IN NUMBER,
p_last_update_date IN DATE,
p_last_update_login IN NUMBER,
x_rowid OUT NOCOPY VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_oracle_error OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2)
IS
/* Alpha Variables */
L_RETURN_STATUS VARCHAR2(1) := 'S';
SAVEPOINT Insert_Row;
INSERT INTO gr_item_right_to_know
(item_code,
location_segment_qualifier,
location_segment_value,
parent_segment_id,
min_ingredients_to_print,
rtk_reporting_level,
use_msds_name_flag,
rtk_name,
print_cas_number_flag,
trade_secret_flag,
trade_secret_name,
trade_secret_exp_date,
trade_secret_permit,
state_defined_item_type,
created_by,
creation_date,
last_updated_by,
last_update_date,
last_update_login)
VALUES
(p_item_code,
p_location_segment_qualifier,
p_location_segment_value,
p_parent_segment_id,
p_min_ingredients_to_print,
p_rtk_reporting_level,
p_use_msds_name_flag,
p_rtk_name,
p_print_cas_number_flag,
p_trade_secret_flag,
p_trade_secret_name,
p_trade_secret_exp_date,
p_trade_secret_permit,
p_state_defined_item_type,
p_created_by,
p_creation_date,
p_last_updated_by,
p_last_update_date,
p_last_update_login);
/* Now get the row id of the inserted record */
Check_Primary_Key
(p_item_code,
p_location_segment_qualifier,
p_location_segment_value,
p_parent_segment_id,
'F',
l_rowid,
l_key_exists);
ROLLBACK TO SAVEPOINT Insert_Row;
ROLLBACK TO SAVEPOINT Insert_Row;
ROLLBACK TO SAVEPOINT Insert_Row;
'GR_NO_RECORD_INSERTED');
ROLLBACK TO SAVEPOINT Insert_Row;
END Insert_Row;
PROCEDURE Update_Row
(p_commit IN VARCHAR2,
p_called_by_form IN VARCHAR2,
p_rowid IN VARCHAR2,
p_item_code IN VARCHAR2,
p_location_segment_qualifier IN VARCHAR2,
p_location_segment_value IN VARCHAR2,
p_parent_segment_id IN NUMBER,
p_min_ingredients_to_print IN NUMBER,
p_rtk_reporting_level IN VARCHAR2,
p_use_msds_name_flag IN VARCHAR2,
p_rtk_name IN VARCHAR2,
p_print_cas_number_flag IN VARCHAR2,
p_trade_secret_flag IN VARCHAR2,
p_trade_secret_name IN VARCHAR2,
p_trade_secret_exp_date IN DATE,
p_trade_secret_permit IN VARCHAR2,
p_state_defined_item_type IN VARCHAR2,
p_created_by IN NUMBER,
p_creation_date IN DATE,
p_last_updated_by IN NUMBER,
p_last_update_date IN DATE,
p_last_update_login IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_oracle_error OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2)
IS
/* Alpha Variables */
L_RETURN_STATUS VARCHAR2(1) := 'S';
SAVEPOINT Update_Row;
UPDATE gr_item_right_to_know
SET item_code = p_item_code,
location_segment_qualifier = p_location_segment_qualifier,
location_segment_value = p_location_segment_value,
parent_segment_id = p_parent_segment_id,
min_ingredients_to_print = p_min_ingredients_to_print,
rtk_reporting_level = p_rtk_reporting_level,
use_msds_name_flag = p_use_msds_name_flag,
rtk_name = p_rtk_name,
print_cas_number_flag = p_print_cas_number_flag,
trade_secret_flag = p_trade_secret_flag,
trade_secret_name = p_trade_secret_name,
trade_secret_exp_date = p_trade_secret_exp_date,
trade_secret_permit = p_trade_secret_permit,
state_defined_item_type = p_state_defined_item_type,
created_by = p_created_by,
creation_date = p_creation_date,
last_updated_by = p_last_updated_by,
last_update_date = p_last_update_date,
last_update_login = p_last_update_login
WHERE rowid = p_rowid;
ROLLBACK TO SAVEPOINT Update_Row;
ROLLBACK TO SAVEPOINT Update_Row;
'GR_NO_RECORD_INSERTED');
ROLLBACK TO SAVEPOINT Update_Row;
END Update_Row;
p_last_updated_by IN NUMBER,
p_last_update_date IN DATE,
p_last_update_login IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_oracle_error OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2)
IS
/* Alpha Variables */
L_RETURN_STATUS VARCHAR2(1) := 'S';
SELECT *
FROM gr_item_right_to_know
WHERE rowid = p_rowid
FOR UPDATE NOWAIT;
PROCEDURE Delete_Row
(p_commit IN VARCHAR2,
p_called_by_form IN VARCHAR2,
p_rowid IN VARCHAR2,
p_item_code IN VARCHAR2,
p_location_segment_qualifier IN VARCHAR2,
p_location_segment_value IN VARCHAR2,
p_parent_segment_id IN NUMBER,
p_min_ingredients_to_print IN NUMBER,
p_rtk_reporting_level IN VARCHAR2,
p_use_msds_name_flag IN VARCHAR2,
p_rtk_name IN VARCHAR2,
p_print_cas_number_flag IN VARCHAR2,
p_trade_secret_flag IN VARCHAR2,
p_trade_secret_name IN VARCHAR2,
p_trade_secret_exp_date IN DATE,
p_trade_secret_permit IN VARCHAR2,
p_state_defined_item_type IN VARCHAR2,
p_created_by IN NUMBER,
p_creation_date IN DATE,
p_last_updated_by IN NUMBER,
p_last_update_date IN DATE,
p_last_update_login IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_oracle_error OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2)
IS
/* Alpha Variables */
L_RETURN_STATUS VARCHAR2(1) := 'S';
SAVEPOINT Delete_Row;
DELETE FROM gr_item_right_to_know
WHERE rowid = p_rowid;
ROLLBACK TO SAVEPOINT Delete_Row;
ROLLBACK TO SAVEPOINT Delete_Row;
ROLLBACK TO SAVEPOINT Delete_Row;
END Delete_Row;
PROCEDURE Delete_Rows
(p_commit IN VARCHAR2,
p_called_by_form IN VARCHAR2,
p_item_code IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_oracle_error OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2)
IS
/* Alpha Variables */
L_RETURN_STATUS VARCHAR2(1) := 'S';
SAVEPOINT Delete_Rows;
DELETE FROM gr_item_right_to_know
WHERE item_code = p_item_code;
ROLLBACK TO SAVEPOINT Delete_Rows;
END Delete_Rows;
SELECT av.location_segment_id
FROM ar_location_values av
WHERE location_segment_qualifier = p_location_segment_qualifier
AND location_segment_value = p_location_segment_value
AND parent_segment_id = p_parent_segment_id;
SELECT irtk.rowid
FROM gr_item_right_to_know irtk
WHERE irtk.item_code = p_item_code
AND irtk.location_segment_qualifier = p_location_segment_qualifier
AND irtk.location_segment_value = p_location_segment_value
AND irtk.parent_segment_id = p_parent_segment_id;