34: BEGIN
35: SAVEPOINT Update_Credit_Hold_PVT;
36:
37: -- Standard call to check for call compatibility.
38: IF NOT FND_API.Compatible_API_Call (l_api_version,
39: p_api_version,
40: l_api_name,
41: G_PKG_NAME) THEN
42: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
38: IF NOT FND_API.Compatible_API_Call (l_api_version,
39: p_api_version,
40: l_api_name,
41: G_PKG_NAME) THEN
42: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
43: END IF;
44:
45: -- Check p_init_msg_list
46: IF FND_API.to_Boolean( p_init_msg_list ) THEN
42: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
43: END IF;
44:
45: -- Check p_init_msg_list
46: IF FND_API.to_Boolean( p_init_msg_list ) THEN
47: FND_MSG_PUB.initialize;
48: END IF;
49:
50: x_return_status := FND_API.G_RET_STS_SUCCESS;
46: IF FND_API.to_Boolean( p_init_msg_list ) THEN
47: FND_MSG_PUB.initialize;
48: END IF;
49:
50: x_return_status := FND_API.G_RET_STS_SUCCESS;
51:
52: --Begin - Andre Araujo - Bug#4662279 - Removed since the one in arp_cprof1_pkg has the same function
53:
54: --iex_dunning_pvt.WriteLog('iexvcdhb.pls:Update:'||p_account_id||';'||p_site_id||';'||p_credit_hold);
64: -- iex_dunning_pvt.WriteLog('iexvcdhb.pls:Update HZ_CUSTOMER_PROFILES=Y');
65: --else
66: -- FND_MESSAGE.Set_Name('IEX', 'IEX_CREDIT_HOLD_NOT_UPDATED');
67: -- FND_MSG_PUB.Add;
68: -- raise FND_API.G_EXC_ERROR;
69: -- iex_dunning_pvt.WriteLog('iexvcdhb.pls:Update HZ_CUSTOMER_PROFILES=N');
70: --end if;
71:
72: --End - Andre Araujo - Bug#4662279 - Removed since the one in arp_cprof1_pkg has the same function
82: iex_dunning_pvt.WriteLog('iexvcdhb.pls:Update HZ_CUSTOMER_PROFILES=Y');
83: else
84: FND_MESSAGE.Set_Name('IEX', 'IEX_CREDIT_HOLD_NOT_UPDATED');
85: FND_MSG_PUB.Add;
86: raise FND_API.G_EXC_ERROR;
87: iex_dunning_pvt.WriteLog('iexvcdhb.pls:Update HZ_CUSTOMER_PROFILES=N');
88: end if;
89:
90: x_return_status := FND_API.G_RET_STS_SUCCESS;
86: raise FND_API.G_EXC_ERROR;
87: iex_dunning_pvt.WriteLog('iexvcdhb.pls:Update HZ_CUSTOMER_PROFILES=N');
88: end if;
89:
90: x_return_status := FND_API.G_RET_STS_SUCCESS;
91:
92: -- Standard check for p_commit
93: IF FND_API.to_Boolean( p_commit )
94: THEN
89:
90: x_return_status := FND_API.G_RET_STS_SUCCESS;
91:
92: -- Standard check for p_commit
93: IF FND_API.to_Boolean( p_commit )
94: THEN
95: COMMIT WORK;
96: END IF;
97:
101: );
102:
103:
104: EXCEPTION
105: WHEN FND_API.G_EXC_ERROR THEN
106: ROLLBACK TO Update_Credit_Hold_PVT;
107: x_return_status := FND_API.G_RET_STS_ERROR;
108: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
109:
103:
104: EXCEPTION
105: WHEN FND_API.G_EXC_ERROR THEN
106: ROLLBACK TO Update_Credit_Hold_PVT;
107: x_return_status := FND_API.G_RET_STS_ERROR;
108: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
109:
110: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
111: ROLLBACK TO Update_Credit_Hold_PVT;
106: ROLLBACK TO Update_Credit_Hold_PVT;
107: x_return_status := FND_API.G_RET_STS_ERROR;
108: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
109:
110: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
111: ROLLBACK TO Update_Credit_Hold_PVT;
112: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
113: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
114:
108: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
109:
110: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
111: ROLLBACK TO Update_Credit_Hold_PVT;
112: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
113: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
114:
115: WHEN OTHERS THEN
116: ROLLBACK TO Update_Credit_Hold_PVT;
113: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
114:
115: WHEN OTHERS THEN
116: ROLLBACK TO Update_Credit_Hold_PVT;
117: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
118: iex_dunning_pvt.WriteLog('iexvcdhb.pls:other exception:'||SQLERRM);
119: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
120:
121: END UPDATE_CREDIT_HOLD;