26: ----------------------------------------------------------------------
27:
28: PROCEDURE Update_ExecutionDetails(
29: p_api_version IN NUMBER
30: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
31: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
32: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
33: ,x_return_status OUT NOCOPY VARCHAR2
34: ,x_msg_count OUT NOCOPY NUMBER
27:
28: PROCEDURE Update_ExecutionDetails(
29: p_api_version IN NUMBER
30: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
31: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
32: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
33: ,x_return_status OUT NOCOPY VARCHAR2
34: ,x_msg_count OUT NOCOPY NUMBER
35: ,x_msg_data OUT NOCOPY VARCHAR2
28: PROCEDURE Update_ExecutionDetails(
29: p_api_version IN NUMBER
30: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
31: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
32: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
33: ,x_return_status OUT NOCOPY VARCHAR2
34: ,x_msg_count OUT NOCOPY NUMBER
35: ,x_msg_data OUT NOCOPY VARCHAR2
36: ,p_EXE_UPDATE_rec IN OUT NOCOPY DPP_EXE_UPDATE_REC_TYPE
56:
57: -- Standard begin of API savepoint
58: SAVEPOINT Update_ExecutionDetails_PVT;
59: -- Standard call to check for call compatibility.
60: IF NOT FND_API.Compatible_API_Call ( l_api_version,
61: p_api_version,
62: l_api_name,
63: G_PKG_NAME)
64: THEN
61: p_api_version,
62: l_api_name,
63: G_PKG_NAME)
64: THEN
65: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
66: END IF;
67: -- Initialize message list if p_init_msg_list is set to TRUE.
68: IF FND_API.to_Boolean( p_init_msg_list )
69: THEN
64: THEN
65: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
66: END IF;
67: -- Initialize message list if p_init_msg_list is set to TRUE.
68: IF FND_API.to_Boolean( p_init_msg_list )
69: THEN
70: FND_MSG_PUB.initialize;
71: END IF;
72:
73: -- Debug Message
74: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_PROCEDURE, l_module, 'Private API: ' || l_api_name || 'start');
75:
76: -- Initialize API return status to sucess
77: l_return_status := FND_API.G_RET_STS_SUCCESS;
78:
79: --
80: -- API body
81: --
88: WHERE execution_detail_id = l_exe_update_rec.execution_detail_id;
89: EXCEPTION
90: WHEN NO_DATA_FOUND THEN
91: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_EXCEPTION, l_module, 'Invalid Execution Detail ID: ' || l_exe_update_rec.execution_detail_id);
92: RAISE FND_API.G_EXC_ERROR;
93: END;
94:
95: UPDATE DPP_EXECUTION_DETAILS
96: SET execution_end_date = sysdate
104: WHERE transaction_header_id = l_exe_update_rec.transaction_header_id
105: AND execution_detail_id = l_exe_update_rec.Execution_Detail_ID;
106: l_update_count := SQL%ROWCOUNT;
107: IF SQL%ROWCOUNT = 0 THEN
108: l_return_status := FND_API.G_RET_STS_ERROR;
109: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Invalid Execution Detail ID: ' || l_exe_update_rec.Execution_Detail_ID);
110: END IF;
111:
112: FOR i IN l_status_Update_tbl.FIRST..l_status_Update_tbl.LAST
204: END LOOP;
205:
206: x_return_status := l_return_status;
207: -- Standard check for p_commit
208: IF FND_API.to_Boolean( p_commit )
209: THEN
210: COMMIT WORK;
211: END IF;
212: -- Debug Message
219: );
220:
221: --Exception Handling
222: EXCEPTION
223: WHEN FND_API.G_EXC_ERROR THEN
224: ROLLBACK TO Update_ExecutionDetails_PVT;
225: x_return_status := FND_API.G_RET_STS_ERROR;
226: -- Standard call to get message count and if count=1, get the message
227: FND_MSG_PUB.Count_And_Get (
221: --Exception Handling
222: EXCEPTION
223: WHEN FND_API.G_EXC_ERROR THEN
224: ROLLBACK TO Update_ExecutionDetails_PVT;
225: x_return_status := FND_API.G_RET_STS_ERROR;
226: -- Standard call to get message count and if count=1, get the message
227: FND_MSG_PUB.Count_And_Get (
228: p_encoded => FND_API.G_FALSE,
229: p_count => x_msg_count,
224: ROLLBACK TO Update_ExecutionDetails_PVT;
225: x_return_status := FND_API.G_RET_STS_ERROR;
226: -- Standard call to get message count and if count=1, get the message
227: FND_MSG_PUB.Count_And_Get (
228: p_encoded => FND_API.G_FALSE,
229: p_count => x_msg_count,
230: p_data => x_msg_data
231: );
232: IF x_msg_count > 1 THEN
233: FOR I IN 1..x_msg_count LOOP
234: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
235: END LOOP;
236: END IF;
237: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
238: ROLLBACK TO Update_ExecutionDetails_PVT;
239: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
240: -- Standard call to get message count and if count=1, get the message
241: FND_MSG_PUB.Count_And_Get (
235: END LOOP;
236: END IF;
237: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
238: ROLLBACK TO Update_ExecutionDetails_PVT;
239: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
240: -- Standard call to get message count and if count=1, get the message
241: FND_MSG_PUB.Count_And_Get (
242: p_encoded => FND_API.G_FALSE,
243: p_count => x_msg_count,
238: ROLLBACK TO Update_ExecutionDetails_PVT;
239: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
240: -- Standard call to get message count and if count=1, get the message
241: FND_MSG_PUB.Count_And_Get (
242: p_encoded => FND_API.G_FALSE,
243: p_count => x_msg_count,
244: p_data => x_msg_data
245: );
246: IF x_msg_count > 1 THEN
249: END LOOP;
250: END IF;
251: WHEN OTHERS THEN
252: ROLLBACK TO Update_ExecutionDetails_PVT;
253: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
254: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
255: fnd_message.set_token('ROUTINE', 'DPP_EXECUTIONDETAILS_PVT.Update_ExecutionDetails');
256: fnd_message.set_token('ERRNO', sqlcode);
257: fnd_message.set_token('REASON', sqlerrm);
257: fnd_message.set_token('REASON', sqlerrm);
258: fnd_msg_pub.add;
259: -- Standard call to get message count and if count=1, get the message
260: FND_MSG_PUB.Count_And_Get (
261: p_encoded => FND_API.G_FALSE,
262: p_count => x_msg_count,
263: p_data => x_msg_data
264: );
265: IF x_msg_count > 1 THEN
284: ----------------------------------------------------------------------
285:
286: PROCEDURE Update_ESB_InstanceID(
287: p_api_version IN NUMBER
288: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
289: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
290: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
291: ,x_return_status OUT NOCOPY VARCHAR2
292: ,x_msg_count OUT NOCOPY NUMBER
285:
286: PROCEDURE Update_ESB_InstanceID(
287: p_api_version IN NUMBER
288: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
289: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
290: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
291: ,x_return_status OUT NOCOPY VARCHAR2
292: ,x_msg_count OUT NOCOPY NUMBER
293: ,x_msg_data OUT NOCOPY VARCHAR2
286: PROCEDURE Update_ESB_InstanceID(
287: p_api_version IN NUMBER
288: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
289: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
290: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
291: ,x_return_status OUT NOCOPY VARCHAR2
292: ,x_msg_count OUT NOCOPY NUMBER
293: ,x_msg_data OUT NOCOPY VARCHAR2
294: ,p_execution_detail_id IN NUMBER
310:
311: -- Standard begin of API savepoint
312: SAVEPOINT Update_ESB_InstanceID_PVT;
313: -- Standard call to check for call compatibility.
314: IF NOT FND_API.Compatible_API_Call ( l_api_version,
315: p_api_version,
316: l_api_name,
317: G_PKG_NAME)
318: THEN
315: p_api_version,
316: l_api_name,
317: G_PKG_NAME)
318: THEN
319: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
320: END IF;
321: -- Initialize message list if p_init_msg_list is set to TRUE.
322: IF FND_API.to_Boolean( p_init_msg_list )
323: THEN
318: THEN
319: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
320: END IF;
321: -- Initialize message list if p_init_msg_list is set to TRUE.
322: IF FND_API.to_Boolean( p_init_msg_list )
323: THEN
324: FND_MSG_PUB.initialize;
325: END IF;
326:
327: -- Debug Message
328: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_PROCEDURE, l_module, 'Private API: ' || l_api_name || 'start');
329:
330: -- Initialize API return status to sucess
331: l_return_status := FND_API.G_RET_STS_SUCCESS;
332:
333: --
334: -- API body
335: --
341: WHERE execution_detail_id = p_execution_detail_id;
342:
343: l_update_count := SQL%ROWCOUNT;
344: IF SQL%ROWCOUNT = 0 THEN
345: l_return_status := FND_API.G_RET_STS_ERROR;
346: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Invalid Execution Detail ID: ' || p_Execution_Detail_ID);
347: END IF;
348:
349: x_return_status := l_return_status;
347: END IF;
348:
349: x_return_status := l_return_status;
350: -- Standard check for p_commit
351: IF FND_API.to_Boolean( p_commit )
352: THEN
353: COMMIT WORK;
354: END IF;
355: -- Debug Message
362: );
363:
364: --Exception Handling
365: EXCEPTION
366: WHEN FND_API.G_EXC_ERROR THEN
367: ROLLBACK TO Update_ESB_InstanceID_PVT;
368: x_return_status := FND_API.G_RET_STS_ERROR;
369: -- Standard call to get message count and if count=1, get the message
370: FND_MSG_PUB.Count_And_Get (
364: --Exception Handling
365: EXCEPTION
366: WHEN FND_API.G_EXC_ERROR THEN
367: ROLLBACK TO Update_ESB_InstanceID_PVT;
368: x_return_status := FND_API.G_RET_STS_ERROR;
369: -- Standard call to get message count and if count=1, get the message
370: FND_MSG_PUB.Count_And_Get (
371: p_encoded => FND_API.G_FALSE,
372: p_count => x_msg_count,
367: ROLLBACK TO Update_ESB_InstanceID_PVT;
368: x_return_status := FND_API.G_RET_STS_ERROR;
369: -- Standard call to get message count and if count=1, get the message
370: FND_MSG_PUB.Count_And_Get (
371: p_encoded => FND_API.G_FALSE,
372: p_count => x_msg_count,
373: p_data => x_msg_data
374: );
375: IF x_msg_count > 1 THEN
376: FOR I IN 1..x_msg_count LOOP
377: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
378: END LOOP;
379: END IF;
380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
381: ROLLBACK TO Update_ESB_InstanceID_PVT;
382: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
383: -- Standard call to get message count and if count=1, get the message
384: FND_MSG_PUB.Count_And_Get (
378: END LOOP;
379: END IF;
380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
381: ROLLBACK TO Update_ESB_InstanceID_PVT;
382: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
383: -- Standard call to get message count and if count=1, get the message
384: FND_MSG_PUB.Count_And_Get (
385: p_encoded => FND_API.G_FALSE,
386: p_count => x_msg_count,
381: ROLLBACK TO Update_ESB_InstanceID_PVT;
382: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
383: -- Standard call to get message count and if count=1, get the message
384: FND_MSG_PUB.Count_And_Get (
385: p_encoded => FND_API.G_FALSE,
386: p_count => x_msg_count,
387: p_data => x_msg_data
388: );
389: IF x_msg_count > 1 THEN
392: END LOOP;
393: END IF;
394: WHEN OTHERS THEN
395: ROLLBACK TO Update_ESB_InstanceID_PVT;
396: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
397: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
398: fnd_message.set_token('ROUTINE', 'DPP_EXECUTIONDETAILS_PVT.Update_ESB_InstanceID');
399: fnd_message.set_token('ERRNO', sqlcode);
400: fnd_message.set_token('REASON', sqlerrm);
400: fnd_message.set_token('REASON', sqlerrm);
401: fnd_msg_pub.add;
402: -- Standard call to get message count and if count=1, get the message
403: FND_MSG_PUB.Count_And_Get (
404: p_encoded => FND_API.G_FALSE,
405: p_count => x_msg_count,
406: p_data => x_msg_data
407: );
408: IF x_msg_count > 1 THEN