The following lines contain the word 'select', 'insert', 'update' or 'delete':
p_last_update_login IN NUMBER DEFAULT fnd_global.user_id,
x_ci_type_id OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
x_dist_list_id OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
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_status_list_id IN NUMBER
)
IS
l_rowid VARCHAR2(30);
SELECT pa_ci_types_b_s.NEXTVAL
INTO x_ci_type_id
FROM sys.dual;
pa_ci_types_pkg.insert_row(
x_rowid => l_rowid,
x_ci_type_id => x_ci_type_id,
x_ci_type_class_code => p_ci_type_class_code,
x_auto_number_flag => p_auto_number_flag,
x_resolution_required_flag => p_resolution_required_flag,
x_approval_required_flag => p_approval_required_flag,
x_source_attrs_enabled_flag => p_source_attrs_enabled_flag,
x_allow_all_usage_flag => p_allow_all_usage_flag,
x_record_version_number => 0,
x_start_date_active => p_start_date_active,
x_end_date_active => p_end_date_active,
x_classification_category => p_classification_category,
x_reason_category => p_reason_category,
x_resolution_category => p_resolution_category,
x_attribute_category => p_attribute_category,
x_attribute1 => p_attribute1,
x_attribute2 => p_attribute2,
x_attribute3 => p_attribute3,
x_attribute4 => p_attribute4,
x_attribute5 => p_attribute5,
x_attribute6 => p_attribute6,
x_attribute7 => p_attribute7,
x_attribute8 => p_attribute8,
x_attribute9 => p_attribute9,
x_attribute10 => p_attribute10,
x_attribute11 => p_attribute11,
x_attribute12 => p_attribute12,
x_attribute13 => p_attribute13,
x_attribute14 => p_attribute14,
x_attribute15 => p_attribute15,
x_name => p_name,
x_short_name => p_short_name,
x_description => p_description,
x_creation_date => p_creation_date,
x_created_by => p_created_by,
x_last_update_date => p_creation_date,
x_last_updated_by => p_created_by,
x_last_update_login => p_last_update_login);
SELECT pa_distribution_lists_s.NEXTVAL
INTO x_dist_list_id
FROM sys.dual;
p_last_update_date => p_creation_date,
p_last_updated_by => p_created_by,
p_last_update_login => p_last_update_login,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
SELECT pa_obj_status_lists_s.NEXTVAL
INTO l_obj_status_list_id
FROM sys.dual;
pa_obj_status_lists_pkg.INSERT_ROW (
X_ROWID => l_obj_sl_rowid,
X_OBJ_STATUS_LIST_ID => l_obj_status_list_id,
X_OBJECT_TYPE => 'PA_CI_TYPES',
X_OBJECT_ID => x_ci_type_id,
X_STATUS_LIST_ID => p_status_list_id,
X_STATUS_TYPE => 'CONTROL_ITEM',
X_CREATION_DATE => p_creation_date,
X_CREATED_BY => p_created_by,
X_LAST_UPDATE_DATE => p_creation_date,
X_LAST_UPDATED_BY => p_created_by,
X_LAST_UPDATE_LOGIN => p_last_update_login
);
p_last_update_date => p_creation_date,
p_last_updated_by => p_created_by,
p_last_update_login => p_last_update_login,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
PROCEDURE update_ci_type (
p_api_version IN NUMBER := 1.0,
p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
p_commit IN VARCHAR2 := FND_API.g_false,
p_validate_only IN VARCHAR2 := FND_API.g_true,
p_max_msg_count IN NUMBER := FND_API.g_miss_num,
p_ci_type_id IN NUMBER,
p_name IN VARCHAR2,
p_short_name IN VARCHAR2,
p_description IN VARCHAR2,
p_ci_type_class_code IN VARCHAR2,
p_auto_number_flag IN VARCHAR2,
p_resolution_required_flag IN VARCHAR2,
p_approval_required_flag IN VARCHAR2,
p_source_attrs_enabled_flag IN VARCHAR2,
p_allow_all_usage_flag IN VARCHAR2,
p_start_date_active IN DATE,
p_end_date_active IN DATE,
p_classification_category IN VARCHAR2,
p_reason_category IN VARCHAR2,
p_resolution_category 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_last_updated_by IN NUMBER DEFAULT fnd_global.user_id,
p_last_update_date IN DATE DEFAULT SYSDATE,
p_last_update_login IN NUMBER DEFAULT fnd_global.user_id,
p_record_version_number IN OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
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_status_list_id IN NUMBER,
p_obj_status_list_id IN NUMBER
)
IS
l_temp VARCHAR2(1);
pa_debug.set_err_stack ('PA_CI_TYPES_PVT.UPDATE_CI_TYPE');
SAVEPOINT update_ci_type;
SELECT classification_category,
reason_category,
resolution_category
INTO l_classification_category,
l_reason_category,
l_resolution_category
FROM pa_ci_types_vl
WHERE ci_type_id = p_ci_type_id
AND record_version_number = p_record_version_number;
SELECT 'X' INTO l_temp
FROM PA_CONTROL_ITEMS
WHERE ci_type_id = p_ci_type_id
AND classification_code_id IS NOT NULL
AND ROWNUM < 2;
SELECT 'X' INTO l_temp
FROM PA_CONTROL_ITEMS
WHERE ci_type_id = p_ci_type_id
AND reason_code_id IS NOT NULL
AND ROWNUM < 2;
SELECT 'X' INTO l_temp
FROM PA_CONTROL_ITEMS
WHERE ci_type_id = p_ci_type_id
AND resolution_code_id IS NOT NULL
AND ROWNUM < 2;
SELECT 'X'
INTO l_temp
FROM pa_ci_types_b cit,
pa_control_items ci
WHERE cit.ci_type_id = p_ci_type_id
AND cit.auto_number_flag <> 'Y'
AND ci.ci_type_id = p_ci_type_id
AND ROWNUM=1;
pa_ci_types_pkg.update_row(
x_ci_type_id => p_ci_type_id,
x_ci_type_class_code => p_ci_type_class_code,
x_auto_number_flag => p_auto_number_flag,
x_resolution_required_flag => p_resolution_required_flag,
x_approval_required_flag => p_approval_required_flag,
x_source_attrs_enabled_flag => p_source_attrs_enabled_flag,
x_allow_all_usage_flag => p_allow_all_usage_flag,
x_record_version_number => p_record_version_number,
x_start_date_active => p_start_date_active,
x_end_date_active => p_end_date_active,
x_classification_category => p_classification_category,
x_reason_category => p_reason_category,
x_resolution_category => p_resolution_category,
x_attribute_category => p_attribute_category,
x_attribute1 => p_attribute1,
x_attribute2 => p_attribute2,
x_attribute3 => p_attribute3,
x_attribute4 => p_attribute4,
x_attribute5 => p_attribute5,
x_attribute6 => p_attribute6,
x_attribute7 => p_attribute7,
x_attribute8 => p_attribute8,
x_attribute9 => p_attribute9,
x_attribute10 => p_attribute10,
x_attribute11 => p_attribute11,
x_attribute12 => p_attribute12,
x_attribute13 => p_attribute13,
x_attribute14 => p_attribute14,
x_attribute15 => p_attribute15,
x_name => p_name,
x_short_name => p_short_name,
x_description => p_description,
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_obj_status_lists_pkg.UPDATE_ROW (
X_OBJ_STATUS_LIST_ID => p_obj_status_list_id,
X_OBJECT_TYPE => 'PA_CI_TYPES',
X_OBJECT_ID => p_ci_type_id,
X_STATUS_LIST_ID => p_status_list_id,
X_STATUS_TYPE => 'CONTROL_ITEM',
X_LAST_UPDATE_DATE => p_last_update_date,
X_LAST_UPDATED_BY => p_last_updated_by,
X_LAST_UPDATE_LOGIN => p_last_update_login
);
ROLLBACK TO update_ci_type;
ROLLBACK TO update_ci_type;
p_procedure_name => 'UPDATE_CI_TYPE',
p_error_text => SUBSTRB(SQLERRM,1,240));
END update_ci_type;
PROCEDURE delete_ci_type (
p_api_version IN NUMBER := 1.0,
p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
p_commit IN VARCHAR2 := FND_API.g_false,
p_validate_only IN VARCHAR2 := FND_API.g_true,
p_max_msg_count IN NUMBER := FND_API.g_miss_num,
p_ci_type_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
p_obj_status_list_id IN NUMBER
)
IS
CURSOR c_ci_type_usage IS
SELECT *
FROM pa_ci_type_usage
WHERE ci_type_id = p_ci_type_id;
SELECT *
FROM pa_ci_impact_type_usage
WHERE ci_type_id = p_ci_type_id;
SELECT *
FROM pa_obj_status_lists
WHERE obj_status_list_id = p_obj_status_list_id;
pa_debug.set_err_stack ('PA_CI_TYPES_PVT.DELETE_CI_TYPE');
SAVEPOINT delete_ci_type;
SELECT 'X' INTO l_temp
FROM pa_ci_types_vl
WHERE ci_type_id = p_ci_type_id
AND record_version_number = p_record_version_number;
SELECT 'X' INTO l_temp
FROM pa_control_items
WHERE ci_type_id = p_ci_type_id
AND ROWNUM=1;
fnd_message.set_name('PA','PA_CI_TYPE_NO_DELETE_IN_USE');
if Pa_Fp_Control_Items_Utils.validate_fp_ci_type_delete( p_ci_type_id) <> 'Y' then
x_return_status := 'E';
pa_object_dist_lists_pvt.delete_assoc_dist_lists (
p_validate_only => p_validate_only,
p_object_type => 'PA_CI_TYPES',
p_object_id => p_ci_type_id,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
pa_ci_type_usage_pvt.delete_ci_type_usage (
p_validate_only => p_validate_only,
p_ci_type_usage_id => rec.ci_type_usage_id,
p_project_type_id => rec.project_type_id,
p_ci_type_id => p_ci_type_id,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
pa_ci_impact_type_usage_pvt.delete_ci_impact_type_usage (
p_validate_only => p_validate_only,
p_ci_impact_type_usage_id => rec.ci_impact_type_usage_id,
p_impact_type_code => rec.impact_type_code,
p_ci_type_class_code => NULL,
p_ci_type_id => p_ci_type_id,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
pa_ci_types_pkg.delete_row(
x_ci_type_id => p_ci_type_id);
pa_obj_status_lists_pkg.delete_row(
x_obj_status_list_id => p_obj_status_list_id);
ROLLBACK TO delete_ci_type;
ROLLBACK TO delete_ci_type;
p_procedure_name => 'DELETE_CI_TYPE',
p_error_text => SUBSTRB(SQLERRM,1,240));
END delete_ci_type;