28: l_api_version NUMBER := 1.0;
29: l_api_name VARCHAR2(50) := 'Credit_Check';
30:
31: BEGIN
32: -- Standard Start of API savepoint
33: SAVEPOINT Credit_Check_PUB;
34:
35: -- Standard call to check for call compatibility.
36: IF NOT FND_API.Compatible_API_Call ( l_api_version,
31: BEGIN
32: -- Standard Start of API savepoint
33: SAVEPOINT Credit_Check_PUB;
34:
35: -- Standard call to check for call compatibility.
36: IF NOT FND_API.Compatible_API_Call ( l_api_version,
37: p_api_version,
38: l_api_name,
39: G_PKG_NAME)
233:
234: -- End of API body.
235: --
236:
237: -- Standard check for p_commit
238: IF FND_API.to_Boolean( p_commit )
239: THEN
240: COMMIT WORK;
241: END IF;
242:
243:
244:
245:
246: -- Standard call to get message count and if count is 1, get message info.
247: FND_MSG_PUB.Count_And_Get
248: ( p_count => x_msg_count,
249: p_data => x_msg_data
250: );