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_sequence_number IN NUMBER,
p_european_index_number IN VARCHAR2,
p_concentration_low IN NUMBER,
p_concentration_high IN NUMBER,
p_hazard_classification_code IN VARCHAR2,
p_consolidated_risk_phrase IN VARCHAR2,
p_calculation_id 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_ein_asl_concs
(sequence_number,
european_index_number,
concentration_low,
concentration_high,
hazard_classification_code,
consolidated_risk_phrase,
calculation_id,
created_by,
creation_date,
last_updated_by,
last_update_date,
last_update_login)
VALUES
(p_sequence_number,
p_european_index_number,
p_concentration_low,
p_concentration_high,
p_hazard_classification_code,
p_consolidated_risk_phrase,
p_calculation_id,
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_sequence_number,
p_european_index_number,
p_concentration_low,
p_concentration_high,
p_hazard_classification_code,
p_consolidated_risk_phrase,
p_calculation_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_sequence_number IN NUMBER,
p_european_index_number IN VARCHAR2,
p_concentration_low IN NUMBER,
p_concentration_high IN NUMBER,
p_hazard_classification_code IN VARCHAR2,
p_consolidated_risk_phrase IN VARCHAR2,
p_calculation_id 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_ein_asl_concs
SET sequence_number = p_sequence_number,
european_index_number = p_european_index_number,
concentration_low = p_concentration_low,
concentration_high = p_concentration_high,
hazard_classification_code = p_hazard_classification_code,
consolidated_risk_phrase = p_consolidated_risk_phrase,
calculation_id = p_calculation_id,
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 last_update_date
FROM gr_ein_asl_concs
WHERE rowid = p_rowid
FOR UPDATE NOWAIT;
IF LockEinRcd.last_update_date <> p_last_update_date THEN
RAISE RECORD_CHANGED_ERROR;
PROCEDURE Delete_Row
(p_commit IN VARCHAR2,
p_called_by_form IN VARCHAR2,
p_rowid IN VARCHAR2,
p_sequence_number IN NUMBER,
p_european_index_number IN VARCHAR2,
p_concentration_low IN NUMBER,
p_concentration_high IN NUMBER,
p_hazard_classification_code IN VARCHAR2,
p_consolidated_risk_phrase IN VARCHAR2,
p_calculation_id 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_Row;
DELETE FROM gr_ein_asl_concs
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_european_index_number 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_ein_asl_concs
WHERE european_index_number = p_european_index_number;
ROLLBACK TO SAVEPOINT Delete_Rows;
END Delete_Rows;
SELECT hazard_classification_code
FROM gr_eurohazards_b
WHERE hazard_classification_code = p_hazard_classification_code;
SELECT eic.rowid
FROM gr_ein_asl_concs eic
WHERE eic.european_index_number = p_european_index_number
AND eic.concentration_low = p_concentration_low
AND eic.concentration_high = p_concentration_high
AND ( (eic.hazard_classification_code IS NULL
AND p_hazard_classification_code IS NULL)
OR (eic.hazard_classification_code = p_hazard_classification_code));