The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Update_Venue_Base (
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,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_venue_rec IN Venue_Rec_Type,
p_object_type IN VARCHAR2
);
SELECT ams_venues_b_s.NEXTVAL
FROM dual;
SELECT 1
FROM dual
WHERE EXISTS (SELECT 1
FROM ams_venues_vl
WHERE venue_id = x_id);
SELECT sysdate
FROM dual;
AMS_Utility_PVT.debug_message (l_full_name || ': Insert ' || p_object_type || ', ' || l_venue_rec.venue_id);
INSERT INTO ams_venues_b (
VENUE_ID,
CUSTOM_SETUP_ID,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_LOGIN,
OBJECT_VERSION_NUMBER,
VENUE_TYPE_CODE,
DIRECT_PHONE_FLAG,
INTERNAL_FLAG,
ENABLED_FLAG,
RATING_CODE,
TELECOM_CODE,
CAPACITY,
AREA_SIZE,
AREA_SIZE_UOM_CODE,
CEILING_HEIGHT,
CEILING_HEIGHT_UOM_CODE,
USAGE_COST,
USAGE_COST_UOM_CODE,
USAGE_COST_CURRENCY_CODE,
PARENT_VENUE_ID,
LOCATION_ID,
DIRECTIONS,
VENUE_CODE,
OBJECT_TYPE,
PARTY_ID,
ATTRIBUTE_CATEGORY,
ATTRIBUTE1,
ATTRIBUTE2,
ATTRIBUTE3,
ATTRIBUTE4,
ATTRIBUTE5,
ATTRIBUTE6,
ATTRIBUTE7,
ATTRIBUTE8,
ATTRIBUTE9,
ATTRIBUTE10,
ATTRIBUTE11,
ATTRIBUTE12,
ATTRIBUTE13,
ATTRIBUTE14,
ATTRIBUTE15
)
VALUES (
l_venue_rec.venue_id,
l_venue_rec.custom_setup_id,
-- standard who columns
SYSDATE,
FND_GLOBAL.User_Id,
SYSDATE,
FND_GLOBAL.User_Id,
FND_GLOBAL.Conc_Login_Id,
1, -- object_version_number
l_venue_rec.venue_type_code,
NVL (l_venue_rec.direct_phone_flag, 'N'), -- Default is 'N'
NVL (l_venue_rec.internal_flag, 'Y'), -- Default is 'Y'
NVL (l_venue_rec.enabled_flag, 'Y'), -- Default is 'Y'
l_venue_rec.rating_code,
l_venue_rec.telecom_code,
l_venue_rec.capacity,
l_venue_rec.area_size,
l_venue_rec.area_size_uom_code,
l_venue_rec.ceiling_height,
l_venue_rec.ceiling_height_uom_code,
l_venue_rec.usage_cost,
l_venue_rec.usage_cost_uom_code,
l_venue_rec.usage_cost_currency_code,
l_venue_rec.parent_venue_id,
l_venue_rec.location_id,
l_venue_rec.directions,
l_venue_rec.venue_code,
p_object_type,
l_venue_rec.party_id,
l_venue_rec.attribute_category,
l_venue_rec.attribute1,
l_venue_rec.attribute2,
l_venue_rec.attribute3,
l_venue_rec.attribute4,
l_venue_rec.attribute5,
l_venue_rec.attribute6,
l_venue_rec.attribute7,
l_venue_rec.attribute8,
l_venue_rec.attribute9,
l_venue_rec.attribute10,
l_venue_rec.attribute11,
l_venue_rec.attribute12,
l_venue_rec.attribute13,
l_venue_rec.attribute14,
l_venue_rec.attribute15
);
INSERT INTO ams_venues_tl (
venue_id,
language,
last_update_date,
last_updated_by,
creation_date,
created_by,
last_update_login,
source_lang,
venue_name,
description
)
SELECT l_venue_rec.venue_id,
l.language_code,
-- standard who columns
SYSDATE,
FND_GLOBAL.User_Id,
SYSDATE,
FND_GLOBAL.User_Id,
FND_GLOBAL.Conc_Login_Id,
USERENV('LANG'),
l_venue_rec.venue_name,
l_venue_rec.description
FROM fnd_languages l
WHERE l.installed_flag IN ('I', 'B')
AND NOT EXISTS (SELECT NULL
FROM ams_venues_tl t
WHERE t.venue_id = l_venue_rec.venue_id
AND t.language = l.language_code);
PROCEDURE Update_Venue (
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,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_venue_rec IN Venue_Rec_Type
)
IS
CURSOR c_location(ven_id IN NUMBER) IS
SELECT loc.address1, loc.address2, loc.city, loc.state, loc.country
FROM hz_parties loc, ams_venues_vl ven
WHERE loc.party_id = ven.party_id
and ven.venue_id = ven_id;
L_API_NAME CONSTANT VARCHAR2(30) := 'Update_Venue';
SAVEPOINT Update_Venue;
Update_Venue_Base( p_api_version => p_api_version
, p_init_msg_list => p_init_msg_list
, p_commit => p_commit
, p_validation_level => p_validation_level
, x_return_status => x_return_status
, x_msg_count => x_msg_count
, x_msg_data => x_msg_data
, p_venue_rec => l_venue_rec
, p_object_type => 'VENU'
);
ROLLBACK TO Update_Venue;
ROLLBACK TO Update_Venue;
ROLLBACK TO Update_Venue;
END Update_Venue;
PROCEDURE Update_Room (
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,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_venue_rec IN Venue_Rec_Type
)
IS
L_API_VERSION CONSTANT NUMBER := 1.0;
L_API_NAME CONSTANT VARCHAR2(30) := 'Update_Room';
SAVEPOINT Update_Venue;
Update_Venue_Base( p_api_version => p_api_version
, p_init_msg_list => p_init_msg_list
, p_commit => p_commit
, p_validation_level => p_validation_level
, x_return_status => x_return_status
, x_msg_count => x_msg_count
, x_msg_data => x_msg_data
, p_venue_rec => l_venue_rec
, p_object_type => 'ROOM'
);
ROLLBACK TO Update_Venue;
ROLLBACK TO Update_Venue;
ROLLBACK TO Update_Venue;
END Update_Room;
PROCEDURE Update_Venue_Base (
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,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_venue_rec IN Venue_Rec_Type,
p_object_type IN VARCHAR2
)
IS
/*
CURSOR c_location(ven_id IN NUMBER) IS
SELECT loc.address1, loc.address2, loc.city, loc.state, loc.country
FROM hz_locations loc, ams_venues_vl ven
WHERE loc.location_id = ven.location_id
and ven.venue_id = ven_id;
L_API_NAME CONSTANT VARCHAR2(30) := 'Update_Venue_Base';
p_validation_mode => JTF_PLSQL_API.g_update,
x_return_status => l_return_status
);
SELECT count(*)
INTO l_rec_cnt
FROM ams_venues_tl
where venue_id <> l_venue_rec.venue_id
and venue_name = l_venue_rec.venue_name
and SOURCE_LANG = USERENV('LANG');
AMS_Utility_PVT.debug_message (l_full_name || ': Update');
UPDATE ams_venues_b
SET
last_update_date = SYSDATE,
last_updated_by = FND_GLOBAL.User_Id,
last_update_login = FND_GLOBAL.Conc_Login_Id,
object_version_number = object_version_number + 1,
venue_type_code = l_venue_rec.venue_type_code,
custom_setup_id = l_venue_rec.custom_setup_id,
direct_phone_flag = NVL (l_venue_rec.direct_phone_flag, 'N'),
internal_flag = NVL (l_venue_rec.internal_flag, 'Y'),
enabled_flag = NVL (l_venue_rec.enabled_flag, 'Y'),
rating_code = l_venue_rec.rating_code,
capacity = l_venue_rec.capacity,
area_size = l_venue_rec.area_size,
area_size_uom_code = l_venue_rec.area_size_uom_code,
ceiling_height = l_venue_rec.ceiling_height,
ceiling_height_uom_code = l_venue_rec.ceiling_height_uom_code,
usage_cost = l_venue_rec.usage_cost,
usage_cost_uom_code = l_venue_rec.usage_cost_uom_code,
usage_cost_currency_code = l_venue_rec.usage_cost_currency_code,
parent_venue_id = l_venue_rec.parent_venue_id,
location_id = l_venue_rec.location_id,
directions = l_venue_rec.directions,
venue_code = l_venue_rec.venue_code,
telecom_code = l_venue_rec.telecom_code, -- Added Bug 4083293
attribute_category = l_venue_rec.attribute_category,
attribute1 = l_venue_rec.attribute1,
attribute2 = l_venue_rec.attribute2,
attribute3 = l_venue_rec.attribute3,
attribute4 = l_venue_rec.attribute4,
attribute5 = l_venue_rec.attribute5,
attribute6 = l_venue_rec.attribute6,
attribute7 = l_venue_rec.attribute7,
attribute8 = l_venue_rec.attribute8,
attribute9 = l_venue_rec.attribute9,
attribute10 = l_venue_rec.attribute10,
attribute11 = l_venue_rec.attribute11,
attribute12 = l_venue_rec.attribute12,
attribute13 = l_venue_rec.attribute13,
attribute14 = l_venue_rec.attribute14,
attribute15 = l_venue_rec.attribute15
WHERE venue_id = l_venue_rec.venue_id
AND object_version_number = l_venue_rec.object_version_number;
UPDATE ams_venues_tl
SET
last_update_date = SYSDATE,
last_updated_by = FND_GLOBAL.User_Id,
last_update_login = FND_GLOBAL.Conc_Login_Id,
source_lang = USERENV('LANG'),
venue_name = l_venue_rec.venue_name,
description = l_venue_rec.description
WHERE venue_id = l_venue_rec.venue_id
AND USERENV('LANG') IN (LANGUAGE, SOURCE_LANG);
ROLLBACK TO Update_Venue;
ROLLBACK TO Update_Venue;
ROLLBACK TO Update_Venue;
END Update_Venue_Base;
PROCEDURE Delete_Venue (
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,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_venue_id IN NUMBER,
p_object_version IN NUMBER
)
IS
l_api_version CONSTANT NUMBER := 1.0;
l_api_name CONSTANT VARCHAR2(30) := 'Delete_Venue';
SAVEPOINT Delete_Venue;
AMS_Utility_PVT.debug_message (l_full_name || ': Delete');
DELETE FROM ams_venues_tl
WHERE venue_id = p_venue_id;
DELETE FROM ams_venues_b
WHERE venue_id = p_venue_id
AND object_version_number = p_object_version;
ROLLBACK TO Delete_Venue;
ROLLBACK TO Delete_Venue;
ROLLBACK TO Delete_Venue;
END Delete_Venue;
SELECT object_version_number
FROM ams_venues_vl
WHERE venue_id = p_venue_id
AND object_version_number = p_object_version
FOR UPDATE NOWAIT;
/* dbiswas added the following two conditions to check that no more than 15 chars are inserted for
ceiling height and capacity on May 9, 2003 for bug 2950429 */
IF(length(p_venue_rec.ceiling_height) > 15)
THEN
IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.G_MSG_LVL_ERROR)
THEN
Fnd_Message.set_name('AMS', 'AMS_OVERSIZE_CEILING_HEIGHT');
/* end update by dbiswas on May 9, 2003 */
IF x_return_status <> FND_API.g_ret_sts_success THEN
RETURN;
x_venue_rec.last_update_date := FND_API.g_miss_date;
x_venue_rec.last_updated_by := FND_API.g_miss_num;
x_venue_rec.last_update_login := FND_API.g_miss_num;
SELECT *
FROM ams_venues_vl
WHERE venue_id = id_in;
SELECT address1, address2, city, state, country
FROM hz_parties
WHERE party_id = p_party_id;
SELECT 1 FROM DUAL WHERE EXISTS (select 1 from ams_venues_vl
where VENUE_NAME = vnu_name_in);
SELECT 1 FROM DUAL WHERE EXISTS (select 1 from ams_venues_vl
where VENUE_NAME = room_name_in and parent_venue_id = venue_id_in);
SELECT 1 FROM DUAL WHERE EXISTS (select 1 from ams_venues_vl
where VENUE_NAME = vnu_name_in
and VENUE_ID = vnu_id_in);
IF ( (p_validation_mode = JTF_PLSQL_API.g_create OR p_validation_mode = JTF_PLSQL_API.g_update )
AND (p_object_type = 'ROOM')
)
THEN
open c_room_name(p_venue_rec.venue_name, p_venue_rec.parent_venue_id);