The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT SUM(NVL(iil.INTEREST_CHARGED,0))
FROM ar_interest_lines iil,
ar_interest_headers ii
WHERE ii.interest_header_id = iil.interest_header_id
AND ii.interest_header_id = p_interest_header_id;
P_LAST_UPDATE_DATE IN DATE,
P_LAST_UPDATED_BY IN NUMBER,
P_LAST_UPDATE_LOGIN IN NUMBER,
P_CREATED_BY IN NUMBER,
P_CREATION_DATE IN DATE,
P_ORG_ID IN NUMBER,
P_PROCESS_MESSAGE IN VARCHAR2,
P_PROCESS_STATUS IN VARCHAR2,
P_CUST_TRX_TYPE_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_HEADERS
WHERE interest_header_id = p_interest_header_id
FOR UPDATE OF interest_header_Id NOWAIT;
FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
AND (NVL(P_LAST_UPDATE_DATE,fnd_api.g_miss_date) = NVL(Recinfo.LAST_UPDATE_DATE,fnd_api.g_miss_date))
AND (NVL(P_LAST_UPDATED_BY,fnd_api.g_miss_num) = NVL(Recinfo.LAST_UPDATED_BY,fnd_api.g_miss_num))
AND (NVL(P_LAST_UPDATE_LOGIN,fnd_api.g_miss_num) = NVL(Recinfo.LAST_UPDATE_LOGIN,fnd_api.g_miss_num))
AND (NVL(P_CREATED_BY,fnd_api.g_miss_num) = NVL(Recinfo.CREATED_BY,fnd_api.g_miss_num))
AND (NVL(P_CREATION_DATE,fnd_api.g_miss_date) = NVL(Recinfo.CREATION_DATE,fnd_api.g_miss_date))
AND (NVL(P_ORG_ID,fnd_api.g_miss_num) = NVL(Recinfo.ORG_ID,fnd_api.g_miss_num))
AND (NVL(P_PROCESS_MESSAGE,fnd_api.g_miss_char) = NVL(Recinfo.PROCESS_MESSAGE,fnd_api.g_miss_char))
AND (NVL(P_PROCESS_STATUS,fnd_api.g_miss_char) = NVL(Recinfo.PROCESS_STATUS,fnd_api.g_miss_char))
AND (NVL(P_CUST_TRX_TYPE_ID,fnd_api.g_miss_num) = NVL(Recinfo.CUST_TRX_TYPE_ID,fnd_api.g_miss_num))
AND (NVL(P_OBJECT_VERSION_NUMBER,1) = NVL(Recinfo.OBJECT_VERSION_NUMBER,1))
THEN
RETURN;
p_updated_by_program IN VARCHAR2 DEFAULT 'ARIINR',
x_return_status IN OUT NOCOPY VARCHAR2)
IS
CURSOR c IS
SELECT transferred_status
FROM ar_interest_batches
WHERE interest_batch_id = p_old_rec.interest_batch_id;
IF p_action = 'UPDATE' THEN
IF p_new_rec.process_status NOT IN ('E','S','N') THEN
arp_util.debug('Column process_status can take values from E S or N only');
FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_NONUPDATEABLE_COLUMN' );
IF p_updated_by_program = 'ARIINR' THEN
arp_util.debug('Only creation of late charge document set the status to S');
IF p_action = 'DELETE' THEN
IF p_old_rec.process_status = 'S' THEN
arp_util.debug('Column process_status not updatable');
FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_NONUPDATEABLE_COLUMN' );
FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_NONUPDATEABLE_COLUMN' );
PROCEDURE update_header
(p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
P_INTEREST_HEADER_ID IN NUMBER,
P_PROCESS_MESSAGE IN VARCHAR2,
P_PROCESS_STATUS IN VARCHAR2,
p_updated_by_program IN VARCHAR2 DEFAULT 'ARIINR',
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_headers
WHERE interest_header_id = P_INTEREST_header_ID
FOR UPDATE OF INTEREST_header_ID;
arp_util.debug('update_header +');
SAVEPOINT update_header;
(p_action => 'UPDATE',
p_old_rec => l_rec,
p_new_rec => l_new_rec,
p_updated_by_program => p_updated_by_program,
x_return_status => x_return_status);
UPDATE AR_INTEREST_HEADERS
SET
PROCESS_MESSAGE = P_PROCESS_MESSAGE ,
PROCESS_STATUS = P_PROCESS_STATUS ,
LAST_UPDATE_DATE = SYSDATE,
LAST_UPDATED_BY = NVL(arp_global.last_updated_by,-1),
LAST_UPDATE_LOGIN = NVL(arp_global.LAST_UPDATE_LOGIN,-1),
object_version_number = x_object_version_number
WHERE INTEREST_HEADER_ID = p_INTEREST_HEADER_ID;
ROLLBACK TO SAVEPOINT Update_header;
arp_util.debug('EXCEPTION AR_INTEREST_HEADERS_PKG.update_header :'||x_msg_data);
ROLLBACK TO SAVEPOINT Update_header;
arp_util.debug('EXCEPTION OTHERS AR_INTEREST_HEADERS_PKG.update_header :'||SQLERRM);
END Update_header;
PROCEDURE Delete_header
(p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
p_interest_header_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_headers
WHERE interest_header_id = P_INTEREST_header_ID
FOR UPDATE OF INTEREST_header_ID;
SAVEPOINT delete_header;
(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_header_id = p_interest_header_id;
DELETE FROM AR_INTEREST_HEADERS
WHERE interest_header_id = p_interest_header_id;
ROLLBACK TO SAVEPOINT delete_header;
arp_util.debug('EXCEPTION AR_INTEREST_HEADERS_PKG.delete_header :'||x_msg_data);
ROLLBACK TO SAVEPOINT Update_header;
arp_util.debug('EXCEPTION OTHERS AR_INTEREST_HEADERS_PKG.delete_header :'||SQLERRM);
END Delete_header;