The following lines contain the word 'select', 'insert', 'update' or 'delete':
IS SELECT msite_resp_id FROM ibe_msite_resps_b
WHERE msite_id = l_c_msite_id
AND responsibility_id = l_c_responsibility_id
AND application_id = l_c_application_id;
PROCEDURE Update_Delete_Msite_Resps
(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
p_msite_resp_ids IN JTF_NUMBER_TABLE,
p_object_version_numbers IN JTF_NUMBER_TABLE,
p_start_date_actives IN JTF_DATE_TABLE,
p_end_date_actives IN JTF_DATE_TABLE,
p_sort_orders IN JTF_NUMBER_TABLE,
p_display_names IN JTF_VARCHAR2_TABLE_300,
p_delete_flags IN JTF_VARCHAR2_TABLE_100,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
)
IS
l_api_name CONSTANT VARCHAR2(30) := 'Update_Delete_Msite_Resps';
SAVEPOINT Update_Delete_Msite_Resps_Pvt;
IF (p_delete_flags(i) = 'Y') THEN
Ibe_Msite_Resp_Pvt.Delete_Msite_Resp
(
p_api_version => p_api_version,
p_init_msg_list => FND_API.G_FALSE,
p_commit => FND_API.G_FALSE,
p_validation_level => p_validation_level,
p_msite_resp_id => p_msite_resp_ids(i),
p_msite_id => FND_API.G_MISS_NUM,
p_responsibility_id => FND_API.G_MISS_NUM,
p_application_id => FND_API.G_MISS_NUM,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_DELETE_MSITE_RESP_FL');
FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_DELETE_MSITE_RESP_FL');
Ibe_Msite_Resp_Pvt.Update_Msite_Resp
(
p_api_version => p_api_version,
p_init_msg_list => FND_API.G_FALSE,
p_commit => FND_API.G_FALSE,
p_validation_level => p_validation_level,
p_msite_resp_id => p_msite_resp_ids(i),
p_object_version_number => p_object_version_numbers(i),
p_msite_id => FND_API.G_MISS_NUM,
p_responsibility_id => FND_API.G_MISS_NUM,
p_application_id => FND_API.G_MISS_NUM,
p_start_date_active => p_start_date_actives(i),
p_end_date_active => p_end_date_actives(i),
p_sort_order => p_sort_orders(i),
p_display_name => p_display_names(i),
p_group_code => FND_API.G_MISS_CHAR,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_UPDATE_MSITE_RESP_FL');
FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_UPDATE_MSITE_RESP_FL');
ROLLBACK TO Update_Delete_Msite_Resps_Pvt;
ROLLBACK TO Update_Delete_Msite_Resps_Pvt;
ROLLBACK TO Update_Delete_Msite_Resps_Pvt;
END Update_Delete_Msite_Resps;
PROCEDURE Update_Delete_Msite_Resps
(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
p_msite_resp_ids IN JTF_NUMBER_TABLE,
p_msite_ids IN JTF_NUMBER_TABLE,
p_responsibility_ids IN JTF_NUMBER_TABLE,
p_application_ids IN JTF_NUMBER_TABLE,
p_object_version_numbers IN JTF_NUMBER_TABLE,
p_start_date_actives IN JTF_DATE_TABLE,
p_end_date_actives IN JTF_DATE_TABLE,
p_sort_orders IN JTF_NUMBER_TABLE,
p_display_names IN JTF_VARCHAR2_TABLE_300,
p_group_codes IN JTF_VARCHAR2_TABLE_300,
p_delete_flags IN JTF_VARCHAR2_TABLE_100,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
)
IS
l_api_name CONSTANT VARCHAR2(30) := 'Update_Delete_Msite_Resps';
Is Select group_code
From ibe_msite_resps_b
where msite_resp_id = l_msite_resp_id;
SAVEPOINT Update_Delete_Msite_Resps_Pvt;
IF (p_delete_flags(i) = 'Y') THEN
Ibe_Msite_Resp_Pvt.Delete_Msite_Resp
(
p_api_version => p_api_version,
p_init_msg_list => FND_API.G_FALSE,
p_commit => FND_API.G_FALSE,
p_validation_level => p_validation_level,
p_msite_resp_id => p_msite_resp_ids(i),
p_msite_id => FND_API.G_MISS_NUM,
p_responsibility_id => FND_API.G_MISS_NUM,
p_application_id => FND_API.G_MISS_NUM,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_DELETE_MSITE_RESP_FL');
FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_DELETE_MSITE_RESP_FL');
ELSIF (p_delete_flags(i) = 'IG') THEN
Open C_msite_resp_group(p_msite_resp_ids(i));
Ibe_Msite_Resp_Pvt.Update_Msite_Resp
(
p_api_version => p_api_version,
p_init_msg_list => FND_API.G_FALSE,
p_commit => FND_API.G_FALSE,
p_validation_level => p_validation_level,
p_msite_resp_id => p_msite_resp_ids(i),
p_object_version_number => p_object_version_numbers(i),
p_msite_id => FND_API.G_MISS_NUM,
p_responsibility_id => FND_API.G_MISS_NUM,
p_application_id => FND_API.G_MISS_NUM,
p_start_date_active => p_start_date_actives(i),
p_end_date_active => p_end_date_actives(i),
p_sort_order => p_sort_orders(i),
p_display_name => p_display_names(i),
p_group_code => p_group_codes(i),
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_UPDATE_MSITE_RESP_FL');
FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_UPDATE_MSITE_RESP_FL');
ELSIF (p_delete_flags(i) = 'DG') THEN
Ibe_Msite_Resp_Pvt.Delete_Msite_Resp_Group
(
p_api_version => p_api_version,
p_init_msg_list => FND_API.G_FALSE,
p_commit => FND_API.G_FALSE,
p_validation_level => p_validation_level,
p_msite_resp_id => p_msite_resp_ids(i),
p_msite_id => FND_API.G_MISS_NUM,
p_responsibility_id => FND_API.G_MISS_NUM,
p_application_id => FND_API.G_MISS_NUM,
p_group_code => p_group_codes(i),
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_UPDATE_MSITE_RESP_FL');
FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_UPDATE_MSITE_RESP_FL');
ELSIF (p_delete_flags(i) = 'N') THEN
NULL;
ROLLBACK TO Update_Delete_Msite_Resps_Pvt;
ROLLBACK TO Update_Delete_Msite_Resps_Pvt;
ROLLBACK TO Update_Delete_Msite_Resps_Pvt;
END Update_Delete_Msite_Resps;
OPEN x_msite_csr FOR SELECT msite_name, msite_description
FROM ibe_msites_vl
WHERE msite_id = p_msite_id and site_type = 'I';
OPEN x_msite_resp_csr FOR SELECT MR.msite_resp_id,
MR.object_version_number, R.responsibility_id, R.application_id,
MR.display_name, A.application_name,
R.responsibility_key, R.responsibility_name, MR.start_date_active,
MR.end_date_active, MR.sort_order
FROM ibe_msite_resps_vl MR, fnd_responsibility_vl R, fnd_application_vl A
WHERE MR.msite_id = p_msite_id
AND MR.responsibility_id = R.responsibility_id
AND MR.application_id = R.application_id
AND R.application_id = A.application_id;
OPEN x_msite_resp_csr FOR SELECT MR.msite_resp_id,
MR.object_version_number, R.responsibility_id, R.application_id,
MR.display_name, A.application_name,
R.responsibility_key, R.responsibility_name, MR.start_date_active,
MR.end_date_active, MR.sort_order
FROM ibe_msite_resps_vl MR, fnd_responsibility_vl R, fnd_application_vl A
WHERE MR.msite_id = p_msite_id
AND MR.application_id = p_application_id
AND MR.responsibility_id = R.responsibility_id
AND MR.application_id = R.application_id
AND R.application_id = A.application_id;
PROCEDURE Update_Msite_Resps
(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
p_msite_resp_ids IN JTF_NUMBER_TABLE,
p_object_version_numbers IN JTF_NUMBER_TABLE,
p_sort_orders IN JTF_NUMBER_TABLE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
)
IS
l_api_name CONSTANT VARCHAR2(30) := 'Update_Msite_Resps';
SAVEPOINT Update_Msite_Resps_Pvt;
Ibe_Msite_Resp_Pvt.Update_Msite_Resp
(
p_api_version => p_api_version,
p_init_msg_list => FND_API.G_FALSE,
p_commit => FND_API.G_FALSE,
p_validation_level => p_validation_level,
p_msite_resp_id => p_msite_resp_ids(i),
p_object_version_number => p_object_version_numbers(i),
p_msite_id => FND_API.G_MISS_NUM,
p_responsibility_id => FND_API.G_MISS_NUM,
p_application_id => FND_API.G_MISS_NUM,
p_start_date_active => FND_API.G_MISS_DATE,
p_end_date_active => FND_API.G_MISS_DATE,
p_sort_order => p_sort_orders(i),
p_display_name => FND_API.G_MISS_CHAR,
p_group_code => FND_API.G_MISS_CHAR,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_UPDATE_MSITE_RESP_FL');
FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_UPDATE_MSITE_RESP_FL');
ROLLBACK TO Update_Delete_Msite_Resps_Pvt;
ROLLBACK TO Update_Delete_Msite_Resps_Pvt;
ROLLBACK TO Update_Delete_Msite_Resps_Pvt;
END Update_Msite_Resps;