The following lines contain the word 'select', 'insert', 'update' or 'delete':
select rowid
from pa_project_subteam_parties
where primary_subteam_flag = 'Y' and object_id = p_object_id
and object_type = p_object_type;
PA_PROJECT_SUBTEAM_PARTIES_PKG.Insert_Row
(
p_project_subteam_id => p_project_subteam_id
,p_object_type => p_object_type
,p_object_id => p_object_id
,p_primary_subteam_flag => p_primary_subteam_flag
,x_project_subteam_party_row_id => x_project_subteam_party_row_id
,x_project_subteam_party_id => x_project_subteam_party_id
,x_return_status => x_return_status
,x_msg_count => x_msg_count
,x_msg_data => x_msg_data
);
PROCEDURE Update_Subteam_Party
(
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_validation_level IN NUMBER := FND_API.g_valid_level_full,
p_calling_module IN VARCHAR2
:= 'SELF_SERVICE',
p_debug_mode IN VARCHAR2 := 'N',
p_max_msg_count IN NUMBER := FND_API.g_miss_num,
p_project_subteam_party_row_id IN ROWID := null,
p_project_subteam_party_id IN pa_project_subteam_parties.project_subteam_party_id%TYPE := FND_API.g_miss_num,
p_project_subteam_id IN pa_project_subteam_parties.project_subteam_id%TYPE := FND_API.g_miss_num,
p_object_type IN varchar2,
p_object_id IN NUMBER := fnd_api.g_miss_num,
p_primary_subteam_flag IN VARCHAR2 := fnd_api.g_miss_char,
p_record_version_number IN pa_project_subteams.record_version_number%TYPE := fnd_api.g_miss_num,
x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
x_record_version_number OUT NOCOPY NUMBER , --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_count number;
l_delete_flag NUMBER := 0;
select rowid
from pa_project_subteam_parties
where primary_subteam_flag = 'Y' and object_id = p_object_id
and object_type = p_object_type AND
project_subteam_party_id <> p_project_subteam_party_id;
PA_DEBUG.init_err_stack('PA_PROJECT_SUBTEAM_PARTIES_PVT.Update_Subteam_Party');
SAVEPOINT STP_PVT_UPDATE_STP;
l_delete_flag := 1;
IF (p_validate_only <> FND_API.G_TRUE AND l_delete_flag = 1) THEN
PA_PROJECT_SUBTEAM_PARTIES_PKG.Delete_Row
(
p_project_subteam_party_row_id => p_project_subteam_party_row_id
,p_project_subteam_party_id => p_project_subteam_party_id
,p_record_version_number => l_record_version_number
,x_return_status => x_return_status
,x_msg_count => l_name_count
,x_msg_data => x_msg_data
);
PA_PROJECT_SUBTEAM_PARTIES_PKG.Update_Row
(
p_project_subteam_party_row_id => p_project_subteam_party_row_id
,p_project_subteam_party_id => p_project_subteam_party_id
,p_project_subteam_id => p_project_subteam_id
,p_primary_subteam_flag => p_primary_subteam_flag
,p_record_version_number => l_record_version_number
,x_return_status => x_return_status
,x_msg_count => l_name_count
,x_msg_data => x_msg_data
);
SELECT record_version_number
into x_record_version_number
FROM pa_project_subteam_parties
WHERE project_subteam_party_id = p_project_subteam_party_id;
SELECT record_version_number
into x_record_version_number
FROM pa_project_subteam_parties
WHERE project_subteam_party_id = p_project_subteam_party_id;
ROLLBACK TO STP_PVT_UPDATE_STP;
FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_SUBTEAM_PARTIES_PVT.Update_Subteam'
,p_procedure_name => PA_DEBUG.G_Err_Stack );
END Update_Subteam_Party;
PROCEDURE Update_SPT_Assgn
(
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_validation_level IN NUMBER := FND_API.g_valid_level_full,
p_calling_module IN VARCHAR2
:= 'SELF_SERVICE',
p_debug_mode IN VARCHAR2 := 'N',
p_max_msg_count IN NUMBER := FND_API.g_miss_num,
p_project_subteam_party_row_id IN ROWID := null,
p_project_subteam_party_id IN pa_project_subteam_parties.project_subteam_party_id%TYPE := NULL,
p_project_subteam_id IN pa_project_subteam_parties.project_subteam_id%TYPE := NULL,
p_object_type IN varchar2,
p_object_id IN NUMBER := fnd_api.g_miss_num,
p_primary_subteam_flag IN VARCHAR2 := fnd_api.g_miss_char,
p_record_version_number IN pa_project_subteams.record_version_number%TYPE := FND_API.G_MISS_NUM,
p_get_subteam_party_id_flag IN VARCHAR2 := 'N',
x_project_subteam_party_id OUT NOCOPY pa_project_subteam_parties.project_subteam_party_id%TYPE, --File.Sql.39 bug 4440895
x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
x_record_version_number OUT NOCOPY NUMBER , --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_project_subteam_party_row_id ROWID;
SELECT project_subteam_party_id
From pa_project_subteam_parties
WHERE object_id = p_object_id
AND object_type = 'PA_PROJECT_ASSIGNMENTS'
AND primary_subteam_flag = 'Y';
pa_project_subteam_parties_pvt.update_subteam_party(
p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
p_commit =>p_commit,
p_validate_only => p_validate_only,
p_validation_level => p_validation_level,
p_calling_module => p_calling_module,
p_debug_mode => p_debug_mode,
p_max_msg_count => p_max_msg_count,
p_project_subteam_party_row_id => p_project_subteam_party_row_id,
p_project_subteam_party_id => l_project_subteam_party_id,
p_project_subteam_id => l_project_subteam_id,
p_object_type => p_object_type,
p_object_id => p_object_id,
p_primary_subteam_flag => p_primary_subteam_flag,
p_record_version_number => l_record_version_number,
x_return_status => x_return_status,
x_record_version_number => x_record_version_number,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data );
pa_project_subteam_parties_pvt.delete_subteam_party(
p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
p_commit =>p_commit,
p_validate_only => p_validate_only,
p_validation_level => p_validation_level,
p_calling_module => p_calling_module,
p_debug_mode => p_debug_mode,
p_max_msg_count => p_max_msg_count,
p_project_subteam_party_row_id => p_project_subteam_party_row_id,
p_project_subteam_party_id => l_project_subteam_party_id,
p_record_version_number => l_record_version_number,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data );
END Update_SPT_Assgn;
PROCEDURE Delete_Subteam_Party
(
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_validation_level IN NUMBER := FND_API.g_valid_level_full,
p_calling_module IN VARCHAR2
:= 'SELF_SERVICE',
p_debug_mode IN VARCHAR2 := 'N',
p_max_msg_count IN NUMBER := FND_API.g_miss_num,
p_project_subteam_party_row_id IN ROWID := NULL,
p_project_subteam_party_id IN pa_project_subteams.project_subteam_id%TYPE := fnd_api.g_miss_num,
p_record_version_number IN NUMBER := FND_API.G_MISS_NUM,
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_count NUMBER;
PA_DEBUG.init_err_stack('PA_PROJECT_SUBTEAM_PARTIES_PVT.Delete_Subteam_Party');
SAVEPOINT STP_PVT_DELETE_STP;
PA_PROJECT_SUBTEAM_PARTIES_PKG.Delete_Row
( p_project_subteam_party_row_id => p_project_subteam_party_row_id
,p_project_subteam_party_id => p_project_subteam_party_id
,p_record_version_number => l_record_version_number
,x_return_status => x_return_status
,x_msg_count => x_msg_count
,x_msg_data => x_msg_data
);
ROLLBACK TO STP_PVT_DELETE_STP;
FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_PROJECT_SUBTEAM_PARTIES_PVT.Delete_Subteam_Party'
,p_procedure_name => PA_DEBUG.G_Err_Stack );
END Delete_Subteam_Party;
PROCEDURE Delete_SubteamParty_By_Obj
(
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_validation_level IN NUMBER := FND_API.g_valid_level_full,
p_calling_module IN VARCHAR2
:= NULL,
p_debug_mode IN VARCHAR2 := 'N',
p_max_msg_count IN NUMBER := FND_API.g_miss_num,
p_object_type IN varchar2,
p_object_id IN NUMBER := fnd_api.g_miss_num,
-- p_project_subteam_party_row_id IN ROWID := NULL,
-- p_record_version_number IN NUMBER := FND_API.G_MISS_NUM,
-- p_project_subteam_party_id IN pa_project_subteams.project_subteam_id%TYPE := fnd_api.g_miss_num,
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 get_id IS
SELECT project_subteam_party_id
FROM pa_project_subteam_parties
WHERE object_id = p_object_id
AND object_type = p_object_type;
PA_DEBUG.init_err_stack('PA_PROJECT_SUBTEAM_PARTIES_PVT.Delete_Subteam_Party');
SAVEPOINT STP_PVT_DELETE_STP;
PA_PROJECT_SUBTEAM_PARTIES_PKG.Delete_Row
( p_project_subteam_party_row_id => l_row_id
,p_project_subteam_party_id => subteam_p_id.project_subteam_party_id
,p_record_version_number => NULL
,x_return_status => x_return_status
,x_msg_count => x_msg_count
,x_msg_data => x_msg_data
);
ROLLBACK TO STP_PVT_DELETE_STP;
FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_PROJECT_SUBTEAM_PARTIES_PVT.Delete_Subteam_Party'
,p_procedure_name => PA_DEBUG.G_Err_Stack );