The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT 'N'
INTO l_locked
FROM igw_prop_science_codes
WHERE rowid = p_rowid
AND record_version_number = p_record_version_number;
SELECT 'Y'
INTO l_valid
FROM igw_science_codes
WHERE science_code = p_science_code;
SELECT count(1)
INTO l_count
FROM igw_prop_science_codes
WHERE proposal_id = l_proposal_id
AND science_code = l_science_code;
** Invoke Table Handler to insert data
*/
Igw_Prop_Science_Codes_Tbh.Insert_Row
(
x_rowid => x_rowid,
p_proposal_id => l_proposal_id,
p_science_code => l_science_code,
x_return_status => l_return_status
);
PROCEDURE Update_Prop_Science_Code
(
p_init_msg_list IN VARCHAR2 := Fnd_Api.G_False,
p_validate_only IN VARCHAR2 := Fnd_Api.G_False,
p_commit IN VARCHAR2 := Fnd_Api.G_False,
p_rowid IN VARCHAR2,
p_proposal_id IN NUMBER,
p_proposal_number IN VARCHAR2,
p_science_code IN VARCHAR2,
p_description IN VARCHAR2,
p_record_version_number IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) IS
l_api_name CONSTANT VARCHAR2(30) := 'Update_Prop_Science_Code';
SAVEPOINT Update_Prop_Science_Code_Pvt;
SELECT count(1)
INTO l_count
FROM igw_prop_science_codes
WHERE rowid <> p_rowid
AND proposal_id = l_proposal_id
AND science_code = l_science_code;
** Invoke Table Handler to Update data
*/
Igw_Prop_Science_Codes_Tbh.Update_Row
(
p_rowid => p_rowid,
p_proposal_id => l_proposal_id,
p_science_code => l_science_code,
p_record_version_number => p_record_version_number,
x_return_status => x_return_status
);
ROLLBACK TO Update_Prop_Science_Code_Pvt;
ROLLBACK TO Update_Prop_Science_Code_Pvt;
ROLLBACK TO Update_Prop_Science_Code_Pvt;
END Update_Prop_Science_Code;
PROCEDURE Delete_Prop_Science_Code
(
p_init_msg_list IN VARCHAR2 := Fnd_Api.G_False,
p_validate_only IN VARCHAR2 := Fnd_Api.G_False,
p_commit IN VARCHAR2 := Fnd_Api.G_False,
p_rowid IN VARCHAR2,
p_proposal_id IN NUMBER,
p_record_version_number IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) IS
l_api_name CONSTANT VARCHAR2(30) := 'Delete_Prop_Science_Code';
SAVEPOINT Delete_Prop_Science_Code_Pvt;
** Invoke Table Handler to Delete data
*/
Igw_Prop_Science_Codes_Tbh.Delete_Row
(
p_rowid => p_rowid,
p_record_version_number => p_record_version_number,
x_return_status => x_return_status
);
ROLLBACK TO Delete_Prop_Science_Code_Pvt;
ROLLBACK TO Delete_Prop_Science_Code_Pvt;
ROLLBACK TO Delete_Prop_Science_Code_Pvt;
END Delete_Prop_Science_Code;