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
55:
56: -- Standard begin of API savepoint
57: SAVEPOINT Update_ExecutionDetails_PVT;
58: -- Standard call to check for call compatibility.
59: IF NOT FND_API.Compatible_API_Call ( l_api_version,
60: p_api_version,
61: l_api_name,
62: G_PKG_NAME)
63: THEN
60: p_api_version,
61: l_api_name,
62: G_PKG_NAME)
63: THEN
64: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
65: END IF;
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
63: THEN
64: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
65: END IF;
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:
73: IF g_debug THEN
74: DPP_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
75: END IF;
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('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('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
220: );
221:
222: --Exception Handling
223: EXCEPTION
224: WHEN FND_API.G_EXC_ERROR THEN
225: ROLLBACK TO Update_ExecutionDetails_PVT;
226: x_return_status := FND_API.G_RET_STS_ERROR;
227: -- Standard call to get message count and if count=1, get the message
228: FND_MSG_PUB.Count_And_Get (
222: --Exception Handling
223: EXCEPTION
224: WHEN FND_API.G_EXC_ERROR THEN
225: ROLLBACK TO Update_ExecutionDetails_PVT;
226: x_return_status := FND_API.G_RET_STS_ERROR;
227: -- Standard call to get message count and if count=1, get the message
228: FND_MSG_PUB.Count_And_Get (
229: p_encoded => FND_API.G_FALSE,
230: p_count => x_msg_count,
225: ROLLBACK TO Update_ExecutionDetails_PVT;
226: x_return_status := FND_API.G_RET_STS_ERROR;
227: -- Standard call to get message count and if count=1, get the message
228: FND_MSG_PUB.Count_And_Get (
229: p_encoded => FND_API.G_FALSE,
230: p_count => x_msg_count,
231: p_data => x_msg_data
232: );
233: IF x_msg_count > 1 THEN
234: FOR I IN 1..x_msg_count LOOP
235: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
236: END LOOP;
237: END IF;
238: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
239: ROLLBACK TO Update_ExecutionDetails_PVT;
240: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
241: -- Standard call to get message count and if count=1, get the message
242: FND_MSG_PUB.Count_And_Get (
236: END LOOP;
237: END IF;
238: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
239: ROLLBACK TO Update_ExecutionDetails_PVT;
240: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
241: -- Standard call to get message count and if count=1, get the message
242: FND_MSG_PUB.Count_And_Get (
243: p_encoded => FND_API.G_FALSE,
244: p_count => x_msg_count,
239: ROLLBACK TO Update_ExecutionDetails_PVT;
240: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
241: -- Standard call to get message count and if count=1, get the message
242: FND_MSG_PUB.Count_And_Get (
243: p_encoded => FND_API.G_FALSE,
244: p_count => x_msg_count,
245: p_data => x_msg_data
246: );
247: IF x_msg_count > 1 THEN
250: END LOOP;
251: END IF;
252: WHEN OTHERS THEN
253: ROLLBACK TO Update_ExecutionDetails_PVT;
254: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
255: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
256: fnd_message.set_token('ROUTINE', 'DPP_EXECUTIONDETAILS_PVT.Update_ExecutionDetails');
257: fnd_message.set_token('ERRNO', sqlcode);
258: fnd_message.set_token('REASON', sqlerrm);
258: fnd_message.set_token('REASON', sqlerrm);
259: fnd_msg_pub.add;
260: -- Standard call to get message count and if count=1, get the message
261: FND_MSG_PUB.Count_And_Get (
262: p_encoded => FND_API.G_FALSE,
263: p_count => x_msg_count,
264: p_data => x_msg_data
265: );
266: IF x_msg_count > 1 THEN
285: ----------------------------------------------------------------------
286:
287: PROCEDURE Update_ESB_InstanceID(
288: p_api_version IN NUMBER
289: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
290: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
291: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
292: ,x_return_status OUT NOCOPY VARCHAR2
293: ,x_msg_count OUT NOCOPY NUMBER
286:
287: PROCEDURE Update_ESB_InstanceID(
288: p_api_version IN NUMBER
289: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
290: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
291: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
292: ,x_return_status OUT NOCOPY VARCHAR2
293: ,x_msg_count OUT NOCOPY NUMBER
294: ,x_msg_data OUT NOCOPY VARCHAR2
287: PROCEDURE Update_ESB_InstanceID(
288: p_api_version IN NUMBER
289: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
290: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
291: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
292: ,x_return_status OUT NOCOPY VARCHAR2
293: ,x_msg_count OUT NOCOPY NUMBER
294: ,x_msg_data OUT NOCOPY VARCHAR2
295: ,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:
328: IF g_debug THEN
329: DPP_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
330: END IF;
331: -- Initialize API return status to sucess
332: l_return_status := FND_API.G_RET_STS_SUCCESS;
333:
334: --
335: -- API body
336: --
342: WHERE execution_detail_id = p_execution_detail_id;
343:
344: l_update_count := SQL%ROWCOUNT;
345: IF SQL%ROWCOUNT = 0 THEN
346: l_return_status := FND_API.G_RET_STS_ERROR;
347: DPP_UTILITY_PVT.debug_message('Invalid Execution Detail ID: ' || p_Execution_Detail_ID);
348: END IF;
349:
350: x_return_status := l_return_status;
348: END IF;
349:
350: x_return_status := l_return_status;
351: -- Standard check for p_commit
352: IF FND_API.to_Boolean( p_commit )
353: THEN
354: COMMIT WORK;
355: END IF;
356: -- Debug Message
364: );
365:
366: --Exception Handling
367: EXCEPTION
368: WHEN FND_API.G_EXC_ERROR THEN
369: ROLLBACK TO Update_ESB_InstanceID_PVT;
370: x_return_status := FND_API.G_RET_STS_ERROR;
371: -- Standard call to get message count and if count=1, get the message
372: FND_MSG_PUB.Count_And_Get (
366: --Exception Handling
367: EXCEPTION
368: WHEN FND_API.G_EXC_ERROR THEN
369: ROLLBACK TO Update_ESB_InstanceID_PVT;
370: x_return_status := FND_API.G_RET_STS_ERROR;
371: -- Standard call to get message count and if count=1, get the message
372: FND_MSG_PUB.Count_And_Get (
373: p_encoded => FND_API.G_FALSE,
374: p_count => x_msg_count,
369: ROLLBACK TO Update_ESB_InstanceID_PVT;
370: x_return_status := FND_API.G_RET_STS_ERROR;
371: -- Standard call to get message count and if count=1, get the message
372: FND_MSG_PUB.Count_And_Get (
373: p_encoded => FND_API.G_FALSE,
374: p_count => x_msg_count,
375: p_data => x_msg_data
376: );
377: IF x_msg_count > 1 THEN
378: FOR I IN 1..x_msg_count LOOP
379: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
380: END LOOP;
381: END IF;
382: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
383: ROLLBACK TO Update_ESB_InstanceID_PVT;
384: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
385: -- Standard call to get message count and if count=1, get the message
386: FND_MSG_PUB.Count_And_Get (
380: END LOOP;
381: END IF;
382: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
383: ROLLBACK TO Update_ESB_InstanceID_PVT;
384: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
385: -- Standard call to get message count and if count=1, get the message
386: FND_MSG_PUB.Count_And_Get (
387: p_encoded => FND_API.G_FALSE,
388: p_count => x_msg_count,
383: ROLLBACK TO Update_ESB_InstanceID_PVT;
384: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
385: -- Standard call to get message count and if count=1, get the message
386: FND_MSG_PUB.Count_And_Get (
387: p_encoded => FND_API.G_FALSE,
388: p_count => x_msg_count,
389: p_data => x_msg_data
390: );
391: IF x_msg_count > 1 THEN
394: END LOOP;
395: END IF;
396: WHEN OTHERS THEN
397: ROLLBACK TO Update_ESB_InstanceID_PVT;
398: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
399: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
400: fnd_message.set_token('ROUTINE', 'DPP_EXECUTIONDETAILS_PVT.Update_ESB_InstanceID');
401: fnd_message.set_token('ERRNO', sqlcode);
402: fnd_message.set_token('REASON', sqlerrm);
402: fnd_message.set_token('REASON', sqlerrm);
403: fnd_msg_pub.add;
404: -- Standard call to get message count and if count=1, get the message
405: FND_MSG_PUB.Count_And_Get (
406: p_encoded => FND_API.G_FALSE,
407: p_count => x_msg_count,
408: p_data => x_msg_data
409: );
410: IF x_msg_count > 1 THEN