33: x_msg_data OUT NOCOPY VARCHAR2
34: ) is
35: l_api_name VARCHAR2(255):='CREATE_DP_LOG';
36: l_api_version_number NUMBER:=1.0;
37: l_return_status VARCHAR2(20) := FND_API.G_RET_STS_SUCCESS;
38: l_msg_count NUMBER := 0;
39: l_msg_data VARCHAR2(2000);
40: l_seq_id NUMBER := 10000;
41:
54: SAVEPOINT create_item_PVT;
55:
56: -- Standard call to check for call compatibility.
57:
58: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
59: p_api_version_number,
60: l_api_name,
61: G_PKG_NAME)
62: THEN
59: p_api_version_number,
60: l_api_name,
61: G_PKG_NAME)
62: THEN
63: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
64: END IF;
65:
66: -- Initialize message list if p_init_msg_list is set to TRUE.
67: IF FND_API.to_Boolean( p_init_msg_list )
63: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
64: END IF;
65:
66: -- Initialize message list if p_init_msg_list is set to TRUE.
67: IF FND_API.to_Boolean( p_init_msg_list )
68: THEN
69: FND_MSG_PUB.initialize;
70: END IF;
71:
70: END IF;
71:
72:
73: -- Initialize API return status to SUCCESS
74: x_return_status := FND_API.G_RET_STS_SUCCESS;
75:
76: --begins here
77:
78: --fixme after expand error_message column to 2000.
160:
161: end if;
162:
163: -- Standard Check Of p_commit.
164: IF FND_API.To_Boolean(p_commit) THEN
165: COMMIT WORK;
166: END IF;
167:
168: -- Standard callto get message count and if count is 1, get message info.
171: p_data => x_msg_data
172: );
173: EXCEPTION
174:
175: WHEN FND_API.G_EXC_ERROR THEN
176: ROLLBACK TO create_item_PVT;
177: x_return_status := FND_API.G_RET_STS_ERROR ;
178:
179: FND_MSG_PUB.Count_And_Get
173: EXCEPTION
174:
175: WHEN FND_API.G_EXC_ERROR THEN
176: ROLLBACK TO create_item_PVT;
177: x_return_status := FND_API.G_RET_STS_ERROR ;
178:
179: FND_MSG_PUB.Count_And_Get
180:
181: ( p_count => x_msg_count,
181: ( p_count => x_msg_count,
182: p_data => x_msg_data
183: );
184:
185: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
186: ROLLBACK TO create_item_PVT;
187: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
188: FND_MSG_PUB.Count_And_Get
189: ( p_count => x_msg_count,
183: );
184:
185: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
186: ROLLBACK TO create_item_PVT;
187: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
188: FND_MSG_PUB.Count_And_Get
189: ( p_count => x_msg_count,
190: p_data => x_msg_data
191: );
191: );
192:
193: WHEN OTHERS THEN
194: ROLLBACK TO create_item_PVT;
195: x_return_status := FND_API.G_RET_STS_ERROR;
196: IF FND_MSG_PUB.Check_Msg_Level
197: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
198: THEN
199: FND_MSG_PUB.Add_Exc_Msg