The following lines contain the word 'select', 'insert', 'update' or 'delete':
This procedure inserts a row into the pa_perf_rules table.
==================================================================*/
PROCEDURE create_rule(
P_RULE_ID IN NUMBER,
P_RULE_NAME IN VARCHAR2,
P_RULE_DESCRIPTION IN VARCHAR2,
P_RULE_TYPE IN VARCHAR2,
P_KPA_CODE IN VARCHAR2,
P_MEASURE_ID IN NUMBER,
P_MEASURE_FORMAT IN VARCHAR2,
P_CURRENCY_TYPE IN VARCHAR2,
P_PERIOD_TYPE IN VARCHAR2,
P_PRECISION IN NUMBER,
P_START_DATE_ACTIVE IN DATE,
P_END_DATE_ACTIVE IN DATE,
P_SCORE_METHOD IN VARCHAR2,
P_RECORD_VERSION_NUMBER IN NUMBER,
P_CREATION_DATE IN DATE,
P_CREATED_BY IN NUMBER,
P_LAST_UPDATE_DATE IN DATE,
P_LAST_UPDATED_BY IN NUMBER,
P_LAST_UPDATE_LOGIN IN NUMBER,
X_RETURN_STATUS OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
X_MSG_COUNT OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
X_MSG_DATA OUT NOCOPY VARCHAR2 ) --File.Sql.39 bug 4440895
IS
l_msg_count NUMBER := 0;
SELECT 1
FROM PA_PERF_RULES --Changed to PA_PERF_RULES from PA_PERF_RULES_V for Bug# 3639469
WHERE RULE_NAME=P_RULE_NAME
AND RULE_TYPE = P_RULE_TYPE; -- Added for Bug 4199228
PA_PERF_RULES_PKG.insert_row(
X_ROWID => l_rowid,
X_RULE_ID => P_RULE_ID,
X_RULE_NAME => P_RULE_NAME,
X_RULE_DESCRIPTION => P_RULE_DESCRIPTION,
X_RULE_TYPE => P_RULE_TYPE,
X_KPA_CODE => P_KPA_CODE,
X_MEASURE_ID => P_MEASURE_ID,
X_MEASURE_FORMAT => P_MEASURE_FORMAT,
X_CURRENCY_TYPE => P_CURRENCY_TYPE,
X_PERIOD_TYPE => P_PERIOD_TYPE,
X_PRECISION => P_PRECISION,
X_START_DATE_ACTIVE => P_START_DATE_ACTIVE,
X_END_DATE_ACTIVE => P_END_DATE_ACTIVE,
X_SCORE_METHOD => P_SCORE_METHOD,
X_RECORD_VERSION_NUMBER => P_RECORD_VERSION_NUMBER,
X_CREATION_DATE => P_CREATION_DATE,
X_CREATED_BY => P_CREATED_BY,
X_LAST_UPDATE_DATE => P_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY => P_LAST_UPDATED_BY,
X_LAST_UPDATE_LOGIN => P_LAST_UPDATE_LOGIN
);
update_rule
PURPOSE
This procedure updates a row into the pa_perf_rules table.
==================================================================*/
PROCEDURE update_rule(
P_RULE_ID IN NUMBER,
P_RULE_NAME IN VARCHAR2,
P_RULE_DESCRIPTION IN VARCHAR2,
P_RULE_TYPE IN VARCHAR2,
P_KPA_CODE IN VARCHAR2,
P_MEASURE_ID IN NUMBER,
P_MEASURE_FORMAT IN VARCHAR2,
P_CURRENCY_TYPE IN VARCHAR2,
P_PERIOD_TYPE IN VARCHAR2,
P_PRECISION IN NUMBER,
P_START_DATE_ACTIVE IN DATE,
P_END_DATE_ACTIVE IN DATE,
P_SCORE_METHOD IN VARCHAR2,
P_RECORD_VERSION_NUMBER IN NUMBER,
P_LAST_UPDATE_DATE IN DATE,
P_LAST_UPDATED_BY IN NUMBER,
P_LAST_UPDATE_LOGIN IN NUMBER,
X_RETURN_STATUS OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
X_MSG_COUNT OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
X_MSG_DATA OUT NOCOPY VARCHAR2 ) --File.Sql.39 bug 4440895
IS
Invalid_Ret_Status EXCEPTION;
SELECT 1
FROM PA_PERF_RULES --Changed to PA_PERF_RULES from PA_PERF_RULES_V for Bug# 3639469
WHERE RULE_NAME=P_RULE_NAME
AND RULE_ID <> P_RULE_ID
AND RULE_TYPE = P_RULE_TYPE; -- Added for Bug 4199228
PA_DEBUG.init_err_stack('PA_PERF_RULES_PVT.Update_Rule');
pa_debug.set_curr_function( p_function => 'PA_PERF_RULES_PVT.update_rule',
p_debug_mode => l_debug_mode );
pa_debug.g_err_stage:= 'Entered PA_PERF_RULES_PVT.update_rule';
pa_debug.g_err_stage:= 'about to call PA_PERF_RULES_PKG.UPDATE_ROW';
PA_PERF_RULES_PKG.UPDATE_ROW(
X_RULE_ID => P_RULE_ID,
X_RULE_NAME => P_RULE_NAME,
X_RULE_DESCRIPTION => P_RULE_DESCRIPTION,
X_RULE_TYPE => P_RULE_TYPE,
X_KPA_CODE => P_KPA_CODE,
X_MEASURE_ID => P_MEASURE_ID,
X_MEASURE_FORMAT => P_MEASURE_FORMAT,
X_CURRENCY_TYPE => P_CURRENCY_TYPE,
X_PERIOD_TYPE => P_PERIOD_TYPE,
X_PRECISION => P_PRECISION,
X_START_DATE_ACTIVE => P_START_DATE_ACTIVE,
X_END_DATE_ACTIVE => P_END_DATE_ACTIVE,
X_SCORE_METHOD => P_SCORE_METHOD,
X_RECORD_VERSION_NUMBER => P_RECORD_VERSION_NUMBER,
X_LAST_UPDATE_DATE => P_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY => P_LAST_UPDATED_BY,
X_LAST_UPDATE_LOGIN => P_LAST_UPDATE_LOGIN );
pa_debug.g_err_stage:= 'Exiting PA_PERF_RULES_PVT.update_rule';
END update_rule;
delete_rule
PURPOSE
This procedure deletes a row from the pa_perf_rules table.
==================================================================*/
PROCEDURE delete_rule (
P_RULE_ID IN NUMBER,
P_RECORD_VERSION_NUMBER IN NUMBER,
X_RETURN_STATUS OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
X_MSG_COUNT OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
X_MSG_DATA OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
)
IS
Invalid_Ret_Status EXCEPTION;
SELECT threshold_id, record_version_number
FROM pa_perf_thresholds
WHERE thres_obj_id= rule_id_par;
SELECT object_rule_id ,record_version_number
FROM pa_perf_object_rules
WHERE rule_id = rule_id_par;
PA_DEBUG.init_err_stack('PA_PERF_RULES_PVT.Delete_Row');
pa_debug.set_curr_function( p_function => 'PA_PERF_RULES_PVT.delete_rule',
p_debug_mode => l_debug_mode );
pa_debug.g_err_stage:= 'Entered PA_PERF_RULES_PVT.delete_rule';
pa_debug.g_err_stage:= 'about to call PA_PERF_RULES_PKG.delete_row';
PA_PERF_THRESHOLDS_PVT.delete_rule_det (
P_THRESHOLD_ID => cur_var.threshold_id,
P_RECORD_VERSION_NUMBER => cur_var.record_version_number,
X_RETURN_STATUS => l_return_status,
X_MSG_COUNT => l_msg_count,
X_MSG_DATA => l_msg_data );
pa_debug.g_err_stage:= 'about to delete the Rule Threshold, Threshold_id : '|| cur_var.threshold_id;
PA_PERF_OBJECT_RULES_PVT.delete_rule_object (
P_OBJECT_RULE_ID => cur_var.object_rule_id,
P_RECORD_VERSION_NUMBER => cur_var.record_version_number,
X_RETURN_STATUS => l_return_status,
X_MSG_COUNT => l_msg_count,
X_MSG_DATA => l_msg_data,
X_RULE_NAME => l_rule_name );
pa_debug.g_err_stage:= 'about to delete the Rule Object Association, object_rule_id : '|| cur_var.object_rule_id;
PA_PERF_RULES_PKG.DELETE_ROW
( X_RULE_ID => P_RULE_ID);
pa_debug.g_err_stage:= 'Exiting PA_PERF_RULES_PVT.delete_rule';
END delete_rule;
This procedure validates the performance rule to be inserted .
==================================================================*/
PROCEDURE validate_rule(
P_RULE_ID IN NUMBER,
P_RULE_NAME IN VARCHAR2,
P_RULE_TYPE IN VARCHAR2,
P_PRECISION IN NUMBER,
P_START_DATE_ACTIVE IN DATE,
P_END_DATE_ACTIVE IN DATE,
P_THRESHOLD_ID IN SYSTEM.PA_NUM_TBL_TYPE,
P_THRES_OBJ_ID IN SYSTEM.PA_NUM_TBL_TYPE,
P_FROM_VALUE IN SYSTEM.PA_NUM_TBL_TYPE,
P_TO_VALUE IN SYSTEM.PA_NUM_TBL_TYPE,
P_INDICATOR_CODE IN SYSTEM.pa_varchar2_30_tbl_type,
X_RETURN_STATUS OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
X_MSG_COUNT OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
X_MSG_DATA OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
P_WEIGHTING IN SYSTEM.PA_NUM_TBL_TYPE )
IS
j NUMBER;