The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE UPDATE_CREDIT_HOLD
(p_api_version IN NUMBER := 1.0,
p_init_msg_list IN VARCHAR2 ,
p_commit IN VARCHAR2 ,
p_account_id IN NUMBER,
p_site_id IN NUMBER,
p_credit_hold IN VARCHAR2,
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_Credit_Hold';
SAVEPOINT Update_Credit_Hold_PVT;
iex_dunning_pvt.WriteLog('iexvcdhb.pls:Update:update ar_customer_profiles');
l_return := arp_cprof1_pkg.update_credit_hold(
p_account_id,
p_site_id,
p_credit_hold) ;
iex_dunning_pvt.WriteLog('iexvcdhb.pls:Update HZ_CUSTOMER_PROFILES=Y');
FND_MESSAGE.Set_Name('IEX', 'IEX_CREDIT_HOLD_NOT_UPDATED');
iex_dunning_pvt.WriteLog('iexvcdhb.pls:Update HZ_CUSTOMER_PROFILES=N');
ROLLBACK TO Update_Credit_Hold_PVT;
ROLLBACK TO Update_Credit_Hold_PVT;
ROLLBACK TO Update_Credit_Hold_PVT;
END UPDATE_CREDIT_HOLD;