The following lines contain the word 'select', 'insert', 'update' or 'delete':
Ams_Appr_Hist_Pkg.Insert_Row(
p_object_id => l_object_id,
p_object_type_code => p_appr_hist_rec.object_type_code,
p_sequence_num => p_appr_hist_rec.sequence_num,
p_object_version_num => p_appr_hist_rec.object_version_num,
p_last_update_date => SYSDATE,
p_last_updated_by => FND_GLOBAL.USER_ID,
p_creation_date => SYSDATE,
p_created_by => FND_GLOBAL.USER_ID,
p_action_code => p_appr_hist_rec.action_code,
p_action_date => p_appr_hist_rec.action_date,
p_approver_id => p_appr_hist_rec.approver_id,
p_approval_detail_id => p_appr_hist_rec.approval_detail_id,
p_note => p_appr_hist_rec.note,
p_last_update_login => FND_GLOBAL.conc_login_id,
p_approval_type => p_appr_hist_rec.approval_type,
p_approver_type => p_appr_hist_rec.approver_type,
p_custom_setup_id => p_appr_hist_rec.custom_setup_id,
p_log_message => p_appr_hist_rec.log_message
);
PROCEDURE Update_Appr_Hist(
p_api_version_number IN NUMBER,
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_appr_hist_rec IN appr_hist_rec_type
)
IS
CURSOR c_get_appr_hist IS
SELECT *
FROM AMS_APPROVAL_HISTORY
WHERE object_id = p_appr_hist_rec.object_id
AND object_type_code = p_appr_hist_rec.object_type_code
AND approval_type = p_appr_hist_rec.approval_type
AND sequence_num = p_appr_hist_rec.sequence_num;
L_API_NAME CONSTANT VARCHAR2(30) := 'Update_Appr_Hist';
SAVEPOINT update_appr_hist_pvt;
AMS_Utility_PVT.Error_Message(p_message_name => 'API_MISSING_UPDATE_TARGET',
p_token_name => 'INFO',
p_token_value => 'Appr_Hist') ;
p_token_value => 'Last_Update_Date') ;
p_validation_mode => JTF_PLSQL_API.g_update,
p_appr_hist_rec => p_appr_hist_rec,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
Ams_Appr_Hist_Pkg.Update_Row(
p_object_id => p_appr_hist_rec.object_id,
p_object_type_code => p_appr_hist_rec.object_type_code,
p_sequence_num => p_appr_hist_rec.sequence_num,
p_object_version_num => p_appr_hist_rec.object_version_num,
p_last_update_date => SYSDATE,
p_last_updated_by => FND_GLOBAL.USER_ID,
p_action_code => p_appr_hist_rec.action_code,
p_action_date => p_appr_hist_rec.action_date,
p_approver_id => p_appr_hist_rec.approver_id,
p_approval_detail_id => p_appr_hist_rec.approval_detail_id,
p_note => p_appr_hist_rec.note,
p_last_update_login => FND_GLOBAL.conc_login_id,
p_approval_type => p_appr_hist_rec.approval_type,
p_approver_type => p_appr_hist_rec.approver_type,
p_custom_setup_id => p_appr_hist_rec.custom_setup_id,
p_log_message => p_appr_hist_rec.log_message);
ROLLBACK TO UPDATE_Appr_Hist_PVT;
ROLLBACK TO UPDATE_Appr_Hist_PVT;
ROLLBACK TO UPDATE_Appr_Hist_PVT;
End Update_Appr_Hist;
PROCEDURE Delete_Appr_Hist(
p_api_version_number IN NUMBER,
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_object_id IN NUMBER,
p_object_type_code IN VARCHAR2,
p_sequence_num IN NUMBER,
p_action_code IN VARCHAR2,
p_object_version_num IN NUMBER,
p_approval_type IN VARCHAR2
)
IS
L_API_NAME CONSTANT VARCHAR2(30) := 'Delete_Appr_Hist';
SAVEPOINT delete_appr_hist_pvt;
Ams_Appr_Hist_Pkg.Delete_Row(
p_object_id => p_object_id,
p_object_type_code => p_object_type_code,
p_sequence_num => p_sequence_num,
p_action_code => p_action_code,
p_object_version_num => p_object_version_num,
p_approval_type => p_approval_type);
ROLLBACK TO DELETE_Appr_Hist_PVT;
ROLLBACK TO DELETE_Appr_Hist_PVT;
ROLLBACK TO DELETE_Appr_Hist_PVT;
End Delete_Appr_Hist;
SELECT *
FROM ams_approval_history
WHERE object_id = p_appr_hist_rec.object_id;
IF p_appr_hist_rec.last_update_date IS NULL THEN
x_complete_rec.last_update_date := l_appr_hist_rec.last_update_date;
IF p_appr_hist_rec.last_updated_by IS NULL THEN
x_complete_rec.last_updated_by := l_appr_hist_rec.last_updated_by;
IF p_appr_hist_rec.last_update_login IS NULL THEN
x_complete_rec.last_update_login := l_appr_hist_rec.last_update_login;