37: -- Standard Start of API savepoint
38: SAVEPOINT startOPStats_pvt;
39:
40: -- Standard call to check for call compatibility.
41: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
42: 1.0,
43: l_api_name,
44: G_PKG_NAME)
45: THEN
42: 1.0,
43: l_api_name,
44: G_PKG_NAME)
45: THEN
46: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
47: END IF;
48:
49: -- Initialize message list if p_init_msg_list is set to TRUE.
50: IF FND_API.to_Boolean( p_init_msg_list )
46: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
47: END IF;
48:
49: -- Initialize message list if p_init_msg_list is set to TRUE.
50: IF FND_API.to_Boolean( p_init_msg_list )
51: THEN
52: FND_MSG_PUB.initialize;
53: END IF;
54:
52: FND_MSG_PUB.initialize;
53: END IF;
54:
55: -- Initialize API return status to SUCCESS
56: x_return_status := FND_API.G_RET_STS_SUCCESS;
57:
58: -----------------------Code------------------------
59:
60: select IEM_OP_CONTROLLER_STATS_S1.nextval into l_con_sequence from dual;
88:
89:
90: -------------------End Code------------------------
91: -- Standard Check Of p_commit.
92: IF FND_API.To_Boolean(p_commit) THEN
93: COMMIT WORK;
94: END IF;
95:
96: -- Standard callto get message count and if count is 1, get message info.
98: ( p_count => x_msg_count,
99: p_data => x_msg_data
100: );
101: EXCEPTION
102: WHEN FND_API.G_EXC_ERROR THEN
103: ROLLBACK TO startOPStats_pvt;
104: x_return_status := FND_API.G_RET_STS_ERROR ;
105: FND_MSG_PUB.Count_And_Get(
106: p_count => x_msg_count,
100: );
101: EXCEPTION
102: WHEN FND_API.G_EXC_ERROR THEN
103: ROLLBACK TO startOPStats_pvt;
104: x_return_status := FND_API.G_RET_STS_ERROR ;
105: FND_MSG_PUB.Count_And_Get(
106: p_count => x_msg_count,
107: p_data => x_msg_data);
108:
105: FND_MSG_PUB.Count_And_Get(
106: p_count => x_msg_count,
107: p_data => x_msg_data);
108:
109: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
110: ROLLBACK TO startOPStats_pvt;
111: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
112: FND_MSG_PUB.Count_And_Get(
113: p_count => x_msg_count,
107: p_data => x_msg_data);
108:
109: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
110: ROLLBACK TO startOPStats_pvt;
111: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
112: FND_MSG_PUB.Count_And_Get(
113: p_count => x_msg_count,
114: p_data => x_msg_data);
115: WHEN OTHERS THEN
113: p_count => x_msg_count,
114: p_data => x_msg_data);
115: WHEN OTHERS THEN
116: ROLLBACK TO startOPStats_pvt;
117: x_return_status := FND_API.G_RET_STS_ERROR;
118: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
119: THEN
120: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME , l_api_name);
121: END IF;
161: -- Standard Start of API savepoint
162: SAVEPOINT recordOPStats_pvt;
163:
164: -- Standard call to check for call compatibility.
165: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
166: 1.0,
167: l_api_name,
168: G_PKG_NAME)
169: THEN
166: 1.0,
167: l_api_name,
168: G_PKG_NAME)
169: THEN
170: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
171: END IF;
172:
173: -- Initialize message list if p_init_msg_list is set to TRUE.
174: IF FND_API.to_Boolean( p_init_msg_list )
170: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
171: END IF;
172:
173: -- Initialize message list if p_init_msg_list is set to TRUE.
174: IF FND_API.to_Boolean( p_init_msg_list )
175: THEN
176: FND_MSG_PUB.initialize;
177: END IF;
178:
176: FND_MSG_PUB.initialize;
177: END IF;
178:
179: -- Initialize API return status to SUCCESS
180: x_return_status := FND_API.G_RET_STS_SUCCESS;
181:
182: -----------------------Code------------------------
183:
184: l_CONTROLLER_ID := p_controller_id;
235: END IF;
236:
237: -------------------End Code------------------------
238: -- Standard Check Of p_commit.
239: IF FND_API.To_Boolean(p_commit) THEN
240: COMMIT WORK;
241: END IF;
242:
243: -- Standard callto get message count and if count is 1, get message info.
245: ( p_count => x_msg_count,
246: p_data => x_msg_data
247: );
248: EXCEPTION
249: WHEN FND_API.G_EXC_ERROR THEN
250: ROLLBACK TO recordOPStats_pvt;
251: x_return_status := FND_API.G_RET_STS_ERROR ;
252: FND_MSG_PUB.Count_And_Get(
253: p_count => x_msg_count,
247: );
248: EXCEPTION
249: WHEN FND_API.G_EXC_ERROR THEN
250: ROLLBACK TO recordOPStats_pvt;
251: x_return_status := FND_API.G_RET_STS_ERROR ;
252: FND_MSG_PUB.Count_And_Get(
253: p_count => x_msg_count,
254: p_data => x_msg_data);
255:
252: FND_MSG_PUB.Count_And_Get(
253: p_count => x_msg_count,
254: p_data => x_msg_data);
255:
256: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
257: ROLLBACK TO recordOPStats_pvt;
258: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
259: FND_MSG_PUB.Count_And_Get(
260: p_count => x_msg_count,
254: p_data => x_msg_data);
255:
256: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
257: ROLLBACK TO recordOPStats_pvt;
258: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
259: FND_MSG_PUB.Count_And_Get(
260: p_count => x_msg_count,
261: p_data => x_msg_data);
262: WHEN OTHERS THEN
260: p_count => x_msg_count,
261: p_data => x_msg_data);
262: WHEN OTHERS THEN
263: ROLLBACK TO recordOPStats_pvt;
264: x_return_status := FND_API.G_RET_STS_ERROR;
265: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
266: THEN
267: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME , l_api_name);
268: END IF;