The following lines contain the word 'select', 'insert', 'update' or 'delete':
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,
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_error_msg_code varchar2(30);
PA_OBJECT_DIST_LISTS_PKG.INSERT_ROW (
P_LIST_ID => P_LIST_ID,
P_OBJECT_TYPE => P_OBJECT_TYPE,
P_OBJECT_ID => P_OBJECT_ID,
P_RECORD_VERSION_NUMBER => 1,
P_CREATED_BY => P_CREATED_BY,
P_CREATION_DATE => P_CREATION_DATE,
P_LAST_UPDATED_BY => P_LAST_UPDATED_BY,
P_LAST_UPDATE_DATE => P_LAST_UPDATE_DATE,
P_LAST_UPDATE_LOGIN => P_LAST_UPDATE_LOGIN ) ;
procedure UPDATE_OBJECT_DIST_LIST (
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_LIST_ID in NUMBER,
P_OBJECT_TYPE in VARCHAR2,
P_OBJECT_ID in VARCHAR2,
P_RECORD_VERSION_NUMBER in NUMBER,
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,
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
Cursor check_record_changed IS
select rowid
from pa_object_dist_lists
where list_id = p_list_id
and object_type = p_object_type
and object_id = p_object_id
and record_version_number = p_record_version_number
for update of list_id;
SAVEPOINT UPDATE_OBJECT_DIST_LIST;
PA_OBJECT_DIST_LISTS_PKG.UPDATE_ROW (
P_LIST_ID => P_LIST_ID,
P_OBJECT_TYPE => P_OBJECT_TYPE,
P_OBJECT_ID => P_OBJECT_ID,
P_RECORD_VERSION_NUMBER => P_RECORD_VERSION_NUMBER + 1,
P_LAST_UPDATED_BY => P_LAST_UPDATED_BY,
P_LAST_UPDATE_DATE => P_LAST_UPDATE_DATE,
P_LAST_UPDATE_LOGIN => P_LAST_UPDATE_LOGIN ) ;
ROLLBACK TO UPDATE_OBJECT_DIST_LIST;
ROLLBACK TO UPDATE_OBJECT_DIST_LIST;
p_procedure_name => 'UPDATE_OBJECT_DIST_LIST',
p_error_text => SUBSTRB(SQLERRM,1,240));
End UPDATE_OBJECT_DIST_LIST;
procedure DELETE_OBJECT_DIST_LIST (
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_LIST_ID in NUMBER,
P_OBJECT_TYPE in VARCHAR2,
P_OBJECT_ID in VARCHAR2,
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
Begin
IF p_commit = FND_API.G_TRUE
THEN
SAVEPOINT DELETE_OBJECT_DIST_LIST;
PA_OBJECT_DIST_LISTS_PKG.DELETE_ROW (
P_LIST_ID => P_LIST_ID
,P_OBJECT_TYPE => P_OBJECT_TYPE
,P_OBJECT_ID => P_OBJECT_ID ) ;
ROLLBACK TO DELETE_OBJECT_DIST_LIST;
ROLLBACK TO DELETE_OBJECT_DIST_LIST;
p_procedure_name => 'DELETE_OBJECT_DIST_LIST',
p_error_text => SUBSTRB(SQLERRM,1,240));
End DELETE_OBJECT_DIST_LIST;
procedure DELETE_ASSOC_DIST_LISTS (
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_OBJECT_TYPE in VARCHAR2,
P_OBJECT_ID in VARCHAR2,
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
CURSOR c_list_ids IS
SELECT list_id list_id
FROM pa_object_dist_lists
WHERE object_type = p_object_type
AND object_id = p_object_id;
SELECT 'Y'
FROM pa_object_dist_lists
WHERE list_id = cp_list_id
AND (object_type <> p_object_type
OR object_id <> p_object_id)
AND ROWNUM = 1;
SAVEPOINT DELETE_ASSOC_DIST_LISTS;
PA_OBJECT_DIST_LISTS_PKG.DELETE_ROW (
P_LIST_ID => rec.list_id
,P_OBJECT_TYPE => P_OBJECT_TYPE
,P_OBJECT_ID => P_OBJECT_ID );
pa_distribution_lists_pvt.delete_dist_list (
p_validate_only => fnd_api.g_false,
p_list_id => rec.list_id,
p_delete_list_item_flag => 'Y',
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
ROLLBACK TO DELETE_ASSOC_DIST_LISTS;
ROLLBACK TO DELETE_ASSOC_DIST_LISTS;
p_procedure_name => 'DELETE_ASSOC_DIST_LISTS',
p_error_text => SUBSTRB(SQLERRM,1,240));
End DELETE_ASSOC_DIST_LISTS;