10: */
11:
12: PROCEDURE LOG_EVENT(
13: p_api_version IN number := 1.0,
14: p_init_msg_list IN varchar2 := fnd_api.g_false,
15: p_commit IN varchar2 := fnd_api.g_false,
16: p_validation_level IN number := fnd_api.g_valid_level_full,
17: p_event_date IN date := sysdate,
18: p_event_type IN varchar2,
11:
12: PROCEDURE LOG_EVENT(
13: p_api_version IN number := 1.0,
14: p_init_msg_list IN varchar2 := fnd_api.g_false,
15: p_commit IN varchar2 := fnd_api.g_false,
16: p_validation_level IN number := fnd_api.g_valid_level_full,
17: p_event_date IN date := sysdate,
18: p_event_type IN varchar2,
19: p_event_id IN number,
12: PROCEDURE LOG_EVENT(
13: p_api_version IN number := 1.0,
14: p_init_msg_list IN varchar2 := fnd_api.g_false,
15: p_commit IN varchar2 := fnd_api.g_false,
16: p_validation_level IN number := fnd_api.g_valid_level_full,
17: p_event_date IN date := sysdate,
18: p_event_type IN varchar2,
19: p_event_id IN number,
20: p_organization_id IN number := null,
66: /* Standard Start of API savepoint */
67: SAVEPOINT EAM_ASSET_LOG_PUB_SV;
68:
69: /* Standard call to check for call compatibility. */
70: IF NOT FND_API.Compatible_API_Call
71: ( l_api_version ,
72: p_api_version ,
73: l_api_name ,
74: G_PKG_NAME
73: l_api_name ,
74: G_PKG_NAME
75: )
76: THEN
77: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
78: END IF;
79:
80: /* Initialize message list if p_init_msg_list is set to TRUE. */
81: IF FND_API.to_Boolean( p_init_msg_list ) THEN
77: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
78: END IF;
79:
80: /* Initialize message list if p_init_msg_list is set to TRUE. */
81: IF FND_API.to_Boolean( p_init_msg_list ) THEN
82: FND_MSG_PUB.initialize;
83: END IF;
84:
85: /* Initialize API return status to success */
82: FND_MSG_PUB.initialize;
83: END IF;
84:
85: /* Initialize API return status to success */
86: x_return_status := FND_API.G_RET_STS_SUCCESS;
87:
88: /* API body */
89:
90: /* Start validation calls */
97: ( application => 'EAM'
98: , name => 'EAM_EVENT_TYPE_INVALID'
99: );
100: fnd_msg_pub.add;
101: x_return_status:= fnd_api.g_ret_sts_error;
102: fnd_msg_pub.count_and_get
103: ( p_count => x_msg_count,
104: p_data => x_msg_data
105: );
203: END IF;
204: CLOSE corgid;
205: END IF;
206:
207: IF x_return_status = fnd_api.g_ret_sts_success THEN
208: IF l_log_id IS NOT NULL THEN
209: l_equipment_gen_object_id := NULL;
210: ELSE
211: l_equipment_gen_object_id := p_equipment_gen_object_id;
242:
243: END IF; --l_count > 0
244:
245: /* Standard check of p_commit. */
246: IF FND_API.TO_BOOLEAN( P_COMMIT ) THEN
247: COMMIT WORK;
248: END IF;
249: -- Standard call to get message count and if count is 1, get message info.
250: FND_MSG_PUB.GET
252: p_data => x_msg_data
253: );
254:
255: EXCEPTION
256: WHEN FND_API.G_EXC_ERROR THEN
257: ROLLBACK TO EAM_ASSET_LOG_PUB_SV;
258: x_return_status := FND_API.G_RET_STS_ERROR ;
259: FND_MSG_PUB.Get
260: ( p_msg_index_out => x_msg_count ,
254:
255: EXCEPTION
256: WHEN FND_API.G_EXC_ERROR THEN
257: ROLLBACK TO EAM_ASSET_LOG_PUB_SV;
258: x_return_status := FND_API.G_RET_STS_ERROR ;
259: FND_MSG_PUB.Get
260: ( p_msg_index_out => x_msg_count ,
261: p_data => x_msg_data
262: );
260: ( p_msg_index_out => x_msg_count ,
261: p_data => x_msg_data
262: );
263:
264: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
265: ROLLBACK TO EAM_ASSET_LOG_PUB_SV;
266: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
267: FND_MSG_PUB.get
268: ( p_msg_index_out => x_msg_count ,
262: );
263:
264: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
265: ROLLBACK TO EAM_ASSET_LOG_PUB_SV;
266: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
267: FND_MSG_PUB.get
268: ( p_msg_index_out => x_msg_count ,
269: p_data => x_msg_data
270: );
270: );
271:
272: WHEN OTHERS THEN
273: ROLLBACK TO EAM_ASSET_LOG_PUB_SV;
274: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
275:
276: IF FND_MSG_PUB.Check_Msg_Level
277: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
278: THEN