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_toxic_exposure_code IN VARCHAR2,
p_label_code IN VARCHAR2,
p_item_code IN VARCHAR2,
p_toxic_route_code IN VARCHAR2,
p_toxic_species_code IN VARCHAR2,
p_toxic_effect_code IN VARCHAR2,
p_toxic_dose IN NUMBER,
p_toxic_uom IN VARCHAR2,
p_exposure_time IN VARCHAR2,
p_toxic_note IN VARCHAR2,
p_attribute_category IN VARCHAR2,
p_attribute1 IN VARCHAR2,
p_attribute2 IN VARCHAR2,
p_attribute3 IN VARCHAR2,
p_attribute4 IN VARCHAR2,
p_attribute5 IN VARCHAR2,
p_attribute6 IN VARCHAR2,
p_attribute7 IN VARCHAR2,
p_attribute8 IN VARCHAR2,
p_attribute9 IN VARCHAR2,
p_attribute10 IN VARCHAR2,
p_attribute11 IN VARCHAR2,
p_attribute12 IN VARCHAR2,
p_attribute13 IN VARCHAR2,
p_attribute14 IN VARCHAR2,
p_attribute15 IN VARCHAR2,
p_attribute16 IN VARCHAR2,
p_attribute17 IN VARCHAR2,
p_attribute18 IN VARCHAR2,
p_attribute19 IN VARCHAR2,
p_attribute20 IN VARCHAR2,
p_attribute21 IN VARCHAR2,
p_attribute22 IN VARCHAR2,
p_attribute23 IN VARCHAR2,
p_attribute24 IN VARCHAR2,
p_attribute25 IN VARCHAR2,
p_attribute26 IN VARCHAR2,
p_attribute27 IN VARCHAR2,
p_attribute28 IN VARCHAR2,
p_attribute29 IN VARCHAR2,
p_attribute30 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_toxic
(toxic_exposure_code,
label_code,
item_code,
toxic_route_code,
toxic_species_code,
toxic_effect_code,
toxic_dose,
toxic_uom,
exposure_time,
toxic_note,
attribute_category,
attribute1,
attribute2,
attribute3,
attribute4,
attribute5,
attribute6,
attribute7,
attribute8,
attribute9,
attribute10,
attribute11,
attribute12,
attribute13,
attribute14,
attribute15,
attribute16,
attribute17,
attribute18,
attribute19,
attribute20,
attribute21,
attribute22,
attribute23,
attribute24,
attribute25,
attribute26,
attribute27,
attribute28,
attribute29,
attribute30,
created_by,
creation_date,
last_updated_by,
last_update_date,
last_update_login)
VALUES
(p_toxic_exposure_code,
p_label_code,
p_item_code,
p_toxic_route_code,
p_toxic_species_code,
p_toxic_effect_code,
p_toxic_dose,
p_toxic_uom,
p_exposure_time,
p_toxic_note,
p_attribute_category,
p_attribute1,
p_attribute2,
p_attribute3,
p_attribute4,
p_attribute5,
p_attribute6,
p_attribute7,
p_attribute8,
p_attribute9,
p_attribute10,
p_attribute11,
p_attribute12,
p_attribute13,
p_attribute14,
p_attribute15,
p_attribute16,
p_attribute17,
p_attribute18,
p_attribute19,
p_attribute20,
p_attribute21,
p_attribute22,
p_attribute23,
p_attribute24,
p_attribute25,
p_attribute26,
p_attribute27,
p_attribute28,
p_attribute29,
p_attribute30,
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_label_code,
p_toxic_exposure_code,
p_toxic_route_code,
p_toxic_species_code,
'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_toxic_exposure_code IN VARCHAR2,
p_label_code IN VARCHAR2,
p_item_code IN VARCHAR2,
p_toxic_route_code IN VARCHAR2,
p_toxic_species_code IN VARCHAR2,
p_toxic_effect_code IN VARCHAR2,
p_toxic_dose IN NUMBER,
p_toxic_uom IN VARCHAR2,
p_exposure_time IN VARCHAR2,
p_toxic_note IN VARCHAR2,
p_attribute_category IN VARCHAR2,
p_attribute1 IN VARCHAR2,
p_attribute2 IN VARCHAR2,
p_attribute3 IN VARCHAR2,
p_attribute4 IN VARCHAR2,
p_attribute5 IN VARCHAR2,
p_attribute6 IN VARCHAR2,
p_attribute7 IN VARCHAR2,
p_attribute8 IN VARCHAR2,
p_attribute9 IN VARCHAR2,
p_attribute10 IN VARCHAR2,
p_attribute11 IN VARCHAR2,
p_attribute12 IN VARCHAR2,
p_attribute13 IN VARCHAR2,
p_attribute14 IN VARCHAR2,
p_attribute15 IN VARCHAR2,
p_attribute16 IN VARCHAR2,
p_attribute17 IN VARCHAR2,
p_attribute18 IN VARCHAR2,
p_attribute19 IN VARCHAR2,
p_attribute20 IN VARCHAR2,
p_attribute21 IN VARCHAR2,
p_attribute22 IN VARCHAR2,
p_attribute23 IN VARCHAR2,
p_attribute24 IN VARCHAR2,
p_attribute25 IN VARCHAR2,
p_attribute26 IN VARCHAR2,
p_attribute27 IN VARCHAR2,
p_attribute28 IN VARCHAR2,
p_attribute29 IN VARCHAR2,
p_attribute30 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_toxic
SET toxic_exposure_code = p_toxic_exposure_code,
label_code = p_label_code,
item_code = p_item_code,
toxic_route_code = p_toxic_route_code,
toxic_species_code = p_toxic_species_code,
toxic_effect_code = p_toxic_effect_code,
toxic_dose = p_toxic_dose,
toxic_uom = p_toxic_uom,
exposure_time = p_exposure_time,
toxic_note = p_toxic_note,
attribute_category = p_attribute_category,
attribute1 = p_attribute1,
attribute2 = p_attribute2,
attribute3 = p_attribute3,
attribute4 = p_attribute4,
attribute5 = p_attribute5,
attribute6 = p_attribute6,
attribute7 = p_attribute7,
attribute8 = p_attribute8,
attribute9 = p_attribute9,
attribute10 = p_attribute10,
attribute11 = p_attribute11,
attribute12 = p_attribute12,
attribute13 = p_attribute13,
attribute14 = p_attribute14,
attribute15 = p_attribute15,
attribute16 = p_attribute16,
attribute17 = p_attribute17,
attribute18 = p_attribute18,
attribute19 = p_attribute19,
attribute20 = p_attribute20,
attribute21 = p_attribute21,
attribute22 = p_attribute22,
attribute23 = p_attribute23,
attribute24 = p_attribute24,
attribute25 = p_attribute25,
attribute26 = p_attribute26,
attribute27 = p_attribute27,
attribute28 = p_attribute28,
attribute29 = p_attribute29,
attribute30 = p_attribute30,
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_toxic
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_toxic_exposure_code IN VARCHAR2,
p_label_code IN VARCHAR2,
p_item_code IN VARCHAR2,
p_toxic_route_code IN VARCHAR2,
p_toxic_species_code IN VARCHAR2,
p_toxic_effect_code IN VARCHAR2,
p_toxic_dose IN NUMBER,
p_toxic_uom IN VARCHAR2,
p_exposure_time IN VARCHAR2,
p_toxic_note IN VARCHAR2,
p_attribute_category IN VARCHAR2,
p_attribute1 IN VARCHAR2,
p_attribute2 IN VARCHAR2,
p_attribute3 IN VARCHAR2,
p_attribute4 IN VARCHAR2,
p_attribute5 IN VARCHAR2,
p_attribute6 IN VARCHAR2,
p_attribute7 IN VARCHAR2,
p_attribute8 IN VARCHAR2,
p_attribute9 IN VARCHAR2,
p_attribute10 IN VARCHAR2,
p_attribute11 IN VARCHAR2,
p_attribute12 IN VARCHAR2,
p_attribute13 IN VARCHAR2,
p_attribute14 IN VARCHAR2,
p_attribute15 IN VARCHAR2,
p_attribute16 IN VARCHAR2,
p_attribute17 IN VARCHAR2,
p_attribute18 IN VARCHAR2,
p_attribute19 IN VARCHAR2,
p_attribute20 IN VARCHAR2,
p_attribute21 IN VARCHAR2,
p_attribute22 IN VARCHAR2,
p_attribute23 IN VARCHAR2,
p_attribute24 IN VARCHAR2,
p_attribute25 IN VARCHAR2,
p_attribute26 IN VARCHAR2,
p_attribute27 IN VARCHAR2,
p_attribute28 IN VARCHAR2,
p_attribute29 IN VARCHAR2,
p_attribute30 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_toxic
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_delete_option IN VARCHAR2,
p_item_code IN VARCHAR2,
p_label_code IN VARCHAR2,
p_toxic_exposure_code IN VARCHAR2,
p_toxic_route_code IN VARCHAR2,
p_toxic_species_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';
NULL_DELETE_OPTION_ERROR EXCEPTION;
SAVEPOINT Delete_Rows;
** p delete option has one of five values
** 'I' - Delete all rows for the specified item.
** 'L' - Delete all rows for the specified label.
** 'E' - Delete all rows for the specified exposure code.
** 'R' - Delete all rows for the specified toxic route.
** 'S' - Delete all rows for the specified toxic species.
** 'B' - Delete all rows using the item, label, type, route
** and species combination.
*/
IF p_delete_option = 'I' THEN
IF p_item_code IS NULL THEN
l_msg_token := 'Item Code';
RAISE Null_Delete_Option_Error;
DELETE FROM gr_item_toxic
WHERE item_code = p_item_code;
ELSIF p_delete_option = 'L' THEN
IF p_label_code IS NULL THEN
l_msg_token := 'Label Code';
RAISE Null_Delete_Option_Error;
DELETE FROM gr_item_toxic
WHERE label_code = p_label_code;
ELSIF p_delete_option = 'E' THEN
IF p_toxic_exposure_code IS NULL THEN
l_msg_token := 'Exposure Code';
RAISE Null_Delete_Option_Error;
DELETE FROM gr_item_toxic
WHERE toxic_exposure_code = p_toxic_exposure_code;
ELSIF p_delete_option = 'R' THEN
IF p_toxic_route_code IS NULL THEN
l_msg_token := 'Route Code';
RAISE Null_Delete_Option_Error;
DELETE FROM gr_item_toxic
WHERE toxic_route_code = p_toxic_route_code;
ELSIF p_delete_option = 'S' THEN
IF p_toxic_species_code IS NULL THEN
l_msg_token := 'Species Code';
RAISE Null_Delete_Option_Error;
DELETE FROM gr_item_toxic
WHERE toxic_species_code = p_toxic_species_code;
ELSIF p_delete_option = 'B' THEN
IF p_item_code IS NULL OR
p_label_code IS NULL OR
p_toxic_exposure_code IS NULL OR
p_toxic_route_code IS NULL OR
p_toxic_species_code IS NULL THEN
l_msg_token := 'Item, Label, Exposure, Route or Species Code';
RAISE Null_Delete_Option_Error;
DELETE FROM gr_item_toxic
WHERE item_code = p_item_code
AND label_code = p_label_code
AND toxic_exposure_code = p_toxic_exposure_code
AND toxic_route_code = p_toxic_route_code
AND toxic_species_code = p_toxic_species_code;
WHEN Null_Delete_Option_Error THEN
x_return_status := 'E';
ROLLBACK TO SAVEPOINT Delete_Rows;
END Delete_Rows;
SELECT it.rowid
FROM gr_item_toxic it
WHERE it.item_code = p_item_code
AND it.label_code = p_label_code
AND it.toxic_exposure_code = p_toxic_exposure_code
AND it.toxic_route_code = p_toxic_route_code
AND it.toxic_species_code = p_toxic_species_code;