The following lines contain the word 'select', 'insert', 'update' or 'delete':
P_LAST_UPDATE_DATE IN DATE,
P_LAST_UPDATED_BY IN NUMBER,
P_LAST_UPDATE_LOGIN IN NUMBER,
P_PROCESS_STATUS IN VARCHAR2,
P_PROCESS_MESSAGE IN VARCHAR2,
P_ORG_ID IN NUMBER,
P_OBJECT_VERSION_NUMBER IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2)
IS
CURSOR C IS
SELECT *
FROM AR_INTEREST_LINES
WHERE interest_line_id = p_interest_line_id
FOR UPDATE of Interest_Line_Id NOWAIT;
FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
AND (NVL(Recinfo.last_update_date,fnd_api.g_miss_date) = NVL(P_LAST_UPDATE_DATE,fnd_api.g_miss_date))
AND (NVL(Recinfo.last_updated_by,fnd_api.g_miss_num) = NVL(P_LAST_UPDATED_BY,fnd_api.g_miss_num))
AND (NVL(Recinfo.last_update_login,fnd_api.g_miss_num) = NVL(P_LAST_UPDATE_LOGIN,fnd_api.g_miss_num))
AND (NVL(Recinfo.process_status,'X') = NVL(P_PROCESS_STATUS,'X'))
AND (NVL(Recinfo.process_message,'X') = NVL(P_PROCESS_MESSAGE,'X'))
AND (NVL(Recinfo.org_id,fnd_api.g_miss_num) = NVL(P_ORG_ID,fnd_api.g_miss_num))
AND (NVL(Recinfo.object_version_number,1) = NVL(P_object_version_number,1))
THEN
RETURN;
SELECT process_status
FROM ar_interest_headers
WHERE interest_header_id = p_old_rec.interest_header_id;
IF p_action = 'UPDATE' THEN
IF l_header_status = 'S' THEN
IF p_old_rec.process_status <> p_new_rec.process_status THEN
arp_util.debug('Column process_status not updatable');
FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_NONUPDATEABLE_COLUMN' );
IF p_action = 'DELETE' THEN
IF l_header_status = 'S' THEN
IF p_old_rec.process_status <> p_new_rec.process_status THEN
arp_util.debug('Column process_status not updatable');
FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_NONUPDATEABLE_COLUMN' );
PROCEDURE Update_line
(p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
P_INTEREST_LINE_ID IN NUMBER,
P_PROCESS_STATUS IN VARCHAR2,
P_PROCESS_MESSAGE IN VARCHAR2,
x_object_version_number IN OUT NOCOPY NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2)
IS
CURSOR c IS
SELECT *
FROM ar_interest_lines
WHERE interest_line_id = P_INTEREST_line_ID
FOR UPDATE OF INTEREST_line_ID;
arp_util.debug('AR_INTEREST_BATCHES_PKG.update_line +');
SAVEPOINT Update_line;
(p_action => 'UPDATE',
p_old_rec => l_rec,
p_new_rec => l_new_rec,
x_return_status => x_return_status);
UPDATE AR_INTEREST_LINES
SET
LAST_UPDATE_DATE = SYSDATE,
LAST_UPDATED_BY = NVL(arp_global.last_updated_by,-1),
LAST_UPDATE_LOGIN = NVL(arp_global.LAST_UPDATE_LOGIN,-1),
PROCESS_STATUS = P_PROCESS_STATUS,
PROCESS_MESSAGE = P_PROCESS_MESSAGE,
object_version_number = x_object_version_number
WHERE interest_line_id = P_INTEREST_LINE_ID;
arp_util.debug('AR_INTEREST_BATCHES_PKG.update_line -');
ROLLBACK TO SAVEPOINT Update_line;
arp_util.debug('EXCEPTION AR_INTEREST_BATCHES_PKG.update_line :'||x_msg_data);
ROLLBACK TO SAVEPOINT Update_line;
arp_util.debug('EXCEPTION OTHERS AR_INTEREST_BATCHES_PKG.update_line :'||SQLERRM);
END Update_Line;
PROCEDURE Delete_line
(p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
p_interest_line_id IN NUMBER,
x_object_version_number IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2)
IS
CURSOR c IS
SELECT *
FROM ar_interest_lines
WHERE interest_line_id = P_INTEREST_line_ID
FOR UPDATE OF INTEREST_line_ID;
arp_util.debug('AR_INTEREST_BATCHES_PKG.delete_line +');
SAVEPOINT Delete_line;
(p_action => 'DELETE',
p_old_rec => l_rec,
p_new_rec => l_new_rec,
x_return_status => x_return_status);
DELETE FROM AR_INTEREST_LINES
WHERE interest_line_id = p_interest_line_id;
arp_util.debug('AR_INTEREST_BATCHES_PKG.delete_line -');
ROLLBACK TO SAVEPOINT Delete_line;
arp_util.debug('EXCEPTION AR_INTEREST_BATCHES_PKG.delete_line :'||x_msg_data);
ROLLBACK TO SAVEPOINT Delete_line;
arp_util.debug('EXCEPTION OTHERS AR_INTEREST_BATCHES_PKG.delete_line :'||SQLERRM);
END Delete_line;