30: l_api_name CONSTANT VARCHAR2(30) := 'INSERT_PRB';
31: l_api_version NUMBER := p_api_version;
32:
33: BEGIN
34: -- Standard Start of API savepoint
35: SAVEPOINT INSERT_PRB;
36:
37: -- Standard call to check for call compatibility.
38: IF NOT FND_API.Compatible_API_Call (
33: BEGIN
34: -- Standard Start of API savepoint
35: SAVEPOINT INSERT_PRB;
36:
37: -- Standard call to check for call compatibility.
38: IF NOT FND_API.Compatible_API_Call (
39: l_api_version,
40: p_api_version,
41: l_api_name,
88:
89: -----------------------
90: -- end of real logic --
91:
92: -- Standard check of p_commit.
93: IF (FND_API.To_Boolean(p_commit)) THEN
94: COMMIT WORK;
95: END IF;
96:
93: IF (FND_API.To_Boolean(p_commit)) THEN
94: COMMIT WORK;
95: END IF;
96:
97: -- Standard call to get message count and if count is 1, get message info.
98: FND_MSG_PUB.Count_And_Get(
99: p_count => x_msg_count,
100: p_data => x_msg_data );
101: