The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT AMS_MET_TPL_DETAILS_s.NEXTVAL
FROM dual;
SELECT 1
FROM AMS_MET_TPL_DETAILS
WHERE METRIC_TEMPLATE_DETAIL_ID = l_id;
Ams_Met_Tpl_Details_Pkg.Insert_Row(
px_metric_template_detail_id => l_metric_template_detail_id,
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_last_update_login => FND_GLOBAL.CONC_LOGIN_ID,
px_object_version_number => l_object_version_number,
p_metric_tpl_header_id => p_met_tpl_dtl_rec.metric_tpl_header_id,
p_metric_id => p_met_tpl_dtl_rec.metric_id,
p_enabled_flag => p_met_tpl_dtl_rec.enabled_flag);
PROCEDURE Update_Met_Tpl_Dtl(
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_met_tpl_dtl_rec IN met_tpl_dtl_rec_type,
x_object_version_number OUT NOCOPY NUMBER
)
IS
CURSOR c_get_met_tpl_dtl(l_metric_template_detail_id NUMBER) IS
SELECT METRIC_TEMPLATE_DETAIL_ID,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_LOGIN,
OBJECT_VERSION_NUMBER,
METRIC_TPL_HEADER_ID,
METRIC_ID,
ENABLED_FLAG
FROM AMS_MET_TPL_DETAILS
WHERE METRIC_TEMPLATE_DETAIL_ID = l_metric_template_detail_id;
L_API_NAME CONSTANT VARCHAR2(30) := 'Update_Met_Tpl_Dtl';
SAVEPOINT UPDATE_Met_Tpl_Dtl_PVT;
Ams_Utility_Pvt.debug_message('Private API: - Open Cursor to Select');
Ams_Utility_Pvt.Error_Message(p_message_name => 'API_MISSING_UPDATE_TARGET',
p_token_name => 'INFO',
p_token_value => 'Met_Tpl_Dtl');
p_token_value => 'Last_Update_Date');
p_validation_mode => JTF_PLSQL_API.g_update,
p_met_tpl_dtl_rec => l_tar_met_tpl_dtl_rec,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
Ams_Utility_Pvt.debug_message('Private API: Calling update table handler');
Ams_Met_Tpl_Details_Pkg.Update_Row(
p_metric_template_detail_id => p_met_tpl_dtl_rec.metric_template_detail_id,
p_last_update_date => SYSDATE,
p_last_updated_by => FND_GLOBAL.USER_ID,
p_last_update_login => FND_GLOBAL.CONC_LOGIN_ID,
p_object_version_number => l_object_version_number,
p_metric_tpl_header_id => p_met_tpl_dtl_rec.metric_tpl_header_id,
p_metric_id => p_met_tpl_dtl_rec.metric_id,
p_enabled_flag => p_met_tpl_dtl_rec.enabled_flag);
ROLLBACK TO UPDATE_Met_Tpl_Dtl_PVT;
ROLLBACK TO UPDATE_Met_Tpl_Dtl_PVT;
ROLLBACK TO UPDATE_Met_Tpl_Dtl_PVT;
END Update_Met_Tpl_Dtl;
PROCEDURE Delete_Met_Tpl_Dtl(
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_metric_template_detail_id IN NUMBER,
p_object_version_number IN NUMBER
)
IS
L_API_NAME CONSTANT VARCHAR2(30) := 'Delete_Met_Tpl_Dtl';
SAVEPOINT DELETE_Met_Tpl_Dtl_PVT;
Ams_Utility_Pvt.debug_message( 'Private API: Calling delete table handler');
Ams_Met_Tpl_Details_Pkg.Delete_Row(
p_METRIC_TEMPLATE_DETAIL_ID => p_METRIC_TEMPLATE_DETAIL_ID);
ROLLBACK TO DELETE_Met_Tpl_Dtl_PVT;
ROLLBACK TO DELETE_Met_Tpl_Dtl_PVT;
ROLLBACK TO DELETE_Met_Tpl_Dtl_PVT;
END Delete_Met_Tpl_Dtl;
SELECT METRIC_TEMPLATE_DETAIL_ID
FROM AMS_MET_TPL_DETAILS
WHERE METRIC_TEMPLATE_DETAIL_ID = p_METRIC_TEMPLATE_DETAIL_ID
AND object_version_number = p_object_version
FOR UPDATE NOWAIT;
SELECT 1 FROM AMS_MET_TPL_DETAILS
WHERE METRIC_TPL_HEADER_ID = p_METRIC_TPL_HEADER_ID
AND METRIC_ID = p_METRIC_ID;
ELSE -- Update
IF p_met_tpl_dtl_rec.metric_template_detail_id IS NULL THEN
Ams_Utility_Pvt.Error_Message(p_message_name => 'AMS_MTD_NO_MET_TPL_DTL_ID');
SELECT 1 FROM AMS_MET_TPL_HEADERS_VL
WHERE METRIC_TPL_HEADER_ID = p_METRIC_TPL_HEADER_ID;
SELECT 1 FROM ams_metrics_all_b
WHERE metric_id = p_metric_id
AND metric_calculation_type IN ('FUNCTION', 'MANUAL', 'FORMULA');