The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT pv_channel_types_s.NEXTVAL FROM DUAL;
SELECT 1 FROM PV_CHANNEL_TYPES
WHERE channel_lookup_type = pc_lookup_type
and channel_lookup_code = pc_lookup_code;
PVX_Utility_PVT.debug_message(l_full_name ||': insert');
INSERT INTO PV_CHANNEL_TYPES (
CHANNEL_TYPE_ID,
CHANNEL_LOOKUP_TYPE,
CHANNEL_LOOKUP_CODE,
INDIRECT_CHANNEL_FLAG,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_LOGIN,
OBJECT_VERSION_NUMBER,
RANK
) VALUES (
l_channel_type_rec.channel_type_id
,l_channel_type_rec.channel_lookup_type
,l_channel_type_rec.channel_lookup_code
,l_channel_type_rec.indirect_channel_flag
,SYSDATE -- LAST_UPDATE_DATE
,NVL(FND_GLOBAL.user_id,-1) -- LAST_UPDATED_BY
,SYSDATE -- CREATION_DATE
,NVL(FND_GLOBAL.user_id,-1) -- CREATED_BY
,NVL(FND_GLOBAL.conc_login_id,-1) -- LAST_UPDATE_LOGIN
,l_object_version_number -- object_version_number
,l_channel_type_rec.rank
);
PROCEDURE Delete_channel_type(
p_api_version IN NUMBER
,p_init_msg_list IN VARCHAR2 := FND_API.g_false
,p_commit IN VARCHAR2 := FND_API.g_false
,p_channel_type_id IN NUMBER
,p_object_version IN NUMBER
,x_return_status OUT NOCOPY VARCHAR2
,x_msg_count OUT NOCOPY NUMBER
,x_msg_data OUT NOCOPY VARCHAR2
)
IS
l_api_version CONSTANT NUMBER := 1.0;
l_api_name CONSTANT VARCHAR2(30) := 'Delete_channel_type';
SAVEPOINT Delete_channel_type;
PVX_Utility_PVT.debug_message(l_full_name ||': delete');
FND_MESSAGE.set_token('TEXT', 'Cannot delete a seeded channel type');
DELETE FROM PV_channel_types
WHERE channel_type_id = p_channel_type_id
AND object_version_number = p_object_version;
ROLLBACK TO Delete_channel_type;
ROLLBACK TO Delete_channel_type;
ROLLBACK TO Delete_channel_type;
END Delete_channel_type;
PROCEDURE Update_channel_type(
p_api_version IN NUMBER := 1.0
,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_channel_type_rec IN channel_type_rec_type
,x_return_status OUT NOCOPY VARCHAR2
,x_msg_count OUT NOCOPY NUMBER
,x_msg_data OUT NOCOPY VARCHAR2)
IS
l_api_version CONSTANT NUMBER := 1.0;
l_api_name CONSTANT VARCHAR2(30) := 'Update_channel_type';
SELECT indirect_channel_flag
FROM pv_channel_types
WHERE channel_type_id = pc_channel_type_id;
SAVEPOINT Update_channel_type;
FND_MESSAGE.set_token('TEXT', 'Cannot update a seeded channel type');
PVX_Utility_PVT.debug_message(l_full_name ||': update');
UPDATE PV_CHANNEL_TYPES
SET
last_update_date = SYSDATE
,last_updated_by = NVL(FND_GLOBAL.user_id,-1)
,last_update_login = NVL(FND_GLOBAL.conc_login_id,-1)
,channel_lookup_type = l_channel_type_rec.channel_lookup_type
,channel_lookup_code = l_channel_type_rec.channel_lookup_code
,indirect_channel_flag = l_channel_type_rec.indirect_channel_flag
,object_version_number = l_channel_type_rec.object_version_number + 1
,rank = l_channel_type_rec.rank
WHERE channel_type_id = l_channel_type_rec.channel_type_id
AND object_version_number = l_channel_type_rec.object_version_number;
ROLLBACK TO Update_channel_type;
ROLLBACK TO Update_channel_type;
ROLLBACK TO Update_channel_type;
END Update_channel_type;
SELECT *
FROM PV_CHANNEL_TYPES
WHERE channel_type_id = p_channel_type_rec.channel_type_id;