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_DISTRIBUTION_LISTS_PKG.INSERT_ROW (
P_LIST_ID => P_LIST_ID,
P_NAME => P_NAME,
P_DESCRIPTION => P_DESCRIPTION,
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_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_NAME in VARCHAR2,
P_DESCRIPTION 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_distribution_lists
where list_id = p_list_id
and record_version_number = p_record_version_number
for update of list_id;
SAVEPOINT UPDATE_DIST_LIST;
PA_DISTRIBUTION_LISTS_PKG.UPDATE_ROW (
P_LIST_ID => P_LIST_ID,
P_NAME => P_NAME,
P_DESCRIPTION => P_DESCRIPTION,
P_RECORD_VERSION_NUMBER => P_RECORD_VERSION_NUMBER,
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_DIST_LIST;
ROLLBACK TO UPDATE_DIST_LIST;
p_procedure_name => 'UPDATE_DIST_LIST',
p_error_text => SUBSTRB(SQLERRM,1,240));
END UPDATE_DIST_LIST;
procedure DELETE_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_DELETE_LIST_ITEM_FLAG in VARCHAR2 default 'N',
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_DIST_LIST;
PA_DISTRIBUTION_LISTS_PKG.DELETE_ROW (
P_LIST_ID => P_LIST_ID) ;
IF (P_DELETE_LIST_ITEM_FLAG = 'Y') then
Delete from PA_DIST_LIST_ITEMS
where list_id = p_list_id;
ROLLBACK TO DELETE_DIST_LIST;
ROLLBACK TO DELETE_DIST_LIST;
p_procedure_name => 'DELETE_DIST_LIST',
p_error_text => SUBSTRB(SQLERRM,1,240));
End DELETE_DIST_LIST;
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_DIST_LIST_ITEMS_PKG.INSERT_ROW (
P_LIST_ITEM_ID => P_LIST_ITEM_ID,
P_LIST_ID => P_LIST_ID ,
P_RECIPIENT_TYPE => P_RECIPIENT_TYPE ,
P_RECIPIENT_ID => P_RECIPIENT_ID,
P_ACCESS_LEVEL => P_ACCESS_LEVEL,
P_MENU_ID => P_MENU_ID ,
P_EMAIL => P_EMAIL ,
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_DIST_LIST_ITEM (
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_ITEM_ID in NUMBER := null,
P_LIST_ID in NUMBER := null,
P_RECIPIENT_TYPE in VARCHAR2 := null,
P_RECIPIENT_ID in VARCHAR2 := null,
P_ACCESS_LEVEL in NUMBER := null,
P_MENU_ID in NUMBER := null,
P_EMAIL in VARCHAR2 := null,
P_RECORD_VERSION_NUMBER in NUMBER := 1,
P_LAST_UPDATED_BY in NUMBER := fnd_global.user_id,
P_LAST_UPDATE_DATE in DATE := sysdate,
P_LAST_UPDATE_LOGIN in NUMBER := 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);
select rowid
from pa_dist_list_items
where list_item_id = p_list_item_id
and record_version_number = p_record_version_number
for update ;
SAVEPOINT UPDATE_DIST_LIST_ITEM;
PA_DIST_LIST_ITEMS_PKG.UPDATE_ROW (
P_LIST_ITEM_ID => P_LIST_ITEM_ID,
P_LIST_ID => P_LIST_ID ,
P_RECIPIENT_TYPE => P_RECIPIENT_TYPE ,
P_RECIPIENT_ID => P_RECIPIENT_ID,
P_ACCESS_LEVEL => P_ACCESS_LEVEL,
P_EMAIL => P_EMAIL,
P_MENU_ID => P_MENU_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_DIST_LIST_ITEM;
ROLLBACK TO UPDATE_DIST_LIST_ITEM;
p_procedure_name => 'UPDATE_DIST_LIST_ITEM',
p_error_text => SUBSTRB(SQLERRM,1,240));
End UPDATE_DIST_LIST_ITEM;
procedure DELETE_DIST_LIST_ITEM (
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_ITEM_ID in NUMBER,
P_RECORD_VERSION_NUMBER in NUMBER := 1,
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_dist_list_items
where list_item_id = p_list_item_id
and record_version_number = p_record_version_number
for update ;
SAVEPOINT DELETE_DIST_LIST_ITEM;
PA_DIST_LIST_ITEMS_PKG.DELETE_ROW (
P_LIST_ITEM_ID => P_LIST_ITEM_ID) ;
ROLLBACK TO DELETE_DIST_LIST_ITEM;
ROLLBACK TO DELETE_DIST_LIST_ITEM;
p_procedure_name => 'DELETE_DIST_LIST_ITEM',
p_error_text => SUBSTRB(SQLERRM,1,240));
End DELETE_DIST_LIST_ITEM;