40: l_api_name CONSTANT VARCHAR2(30) := 'Version_Doc';
41: l_contract_source VARCHAR2(30);
42:
43: BEGIN
44: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
45: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: Entered Version_Doc');
46: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'110: p_init_msg_list='||p_init_msg_list);
47: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'120: p_commit='||p_commit);
48: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'130: p_doc_type='||p_doc_type);
41: l_contract_source VARCHAR2(30);
42:
43: BEGIN
44: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
45: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: Entered Version_Doc');
46: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'110: p_init_msg_list='||p_init_msg_list);
47: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'120: p_commit='||p_commit);
48: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'130: p_doc_type='||p_doc_type);
49: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'140: p_doc_id='||p_doc_id);
42:
43: BEGIN
44: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
45: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: Entered Version_Doc');
46: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'110: p_init_msg_list='||p_init_msg_list);
47: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'120: p_commit='||p_commit);
48: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'130: p_doc_type='||p_doc_type);
49: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'140: p_doc_id='||p_doc_id);
50: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'150: p_version_number='||p_version_number);
43: BEGIN
44: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
45: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: Entered Version_Doc');
46: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'110: p_init_msg_list='||p_init_msg_list);
47: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'120: p_commit='||p_commit);
48: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'130: p_doc_type='||p_doc_type);
49: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'140: p_doc_id='||p_doc_id);
50: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'150: p_version_number='||p_version_number);
51: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'160: p_clear_amendment='||p_clear_amendment);
44: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
45: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: Entered Version_Doc');
46: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'110: p_init_msg_list='||p_init_msg_list);
47: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'120: p_commit='||p_commit);
48: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'130: p_doc_type='||p_doc_type);
49: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'140: p_doc_id='||p_doc_id);
50: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'150: p_version_number='||p_version_number);
51: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'160: p_clear_amendment='||p_clear_amendment);
52: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'170: p_include_gen_attach='||p_include_gen_attach);
45: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: Entered Version_Doc');
46: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'110: p_init_msg_list='||p_init_msg_list);
47: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'120: p_commit='||p_commit);
48: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'130: p_doc_type='||p_doc_type);
49: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'140: p_doc_id='||p_doc_id);
50: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'150: p_version_number='||p_version_number);
51: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'160: p_clear_amendment='||p_clear_amendment);
52: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'170: p_include_gen_attach='||p_include_gen_attach);
53: END IF;
46: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'110: p_init_msg_list='||p_init_msg_list);
47: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'120: p_commit='||p_commit);
48: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'130: p_doc_type='||p_doc_type);
49: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'140: p_doc_id='||p_doc_id);
50: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'150: p_version_number='||p_version_number);
51: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'160: p_clear_amendment='||p_clear_amendment);
52: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'170: p_include_gen_attach='||p_include_gen_attach);
53: END IF;
54: -- Standard Start of API savepoint
47: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'120: p_commit='||p_commit);
48: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'130: p_doc_type='||p_doc_type);
49: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'140: p_doc_id='||p_doc_id);
50: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'150: p_version_number='||p_version_number);
51: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'160: p_clear_amendment='||p_clear_amendment);
52: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'170: p_include_gen_attach='||p_include_gen_attach);
53: END IF;
54: -- Standard Start of API savepoint
55: SAVEPOINT g_Version_Doc;
48: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'130: p_doc_type='||p_doc_type);
49: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'140: p_doc_id='||p_doc_id);
50: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'150: p_version_number='||p_version_number);
51: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'160: p_clear_amendment='||p_clear_amendment);
52: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'170: p_include_gen_attach='||p_include_gen_attach);
53: END IF;
54: -- Standard Start of API savepoint
55: SAVEPOINT g_Version_Doc;
56: -- Standard call to check for call compatibility.
74:
75: --------------------------------------------
76: -- Call internal Version_Doc
77: --------------------------------------------
78: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
79: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'200: Call Private Version_Doc ');
80: END IF;
81:
82: OKC_TERMS_VERSION_PVT.Version_Doc(
75: --------------------------------------------
76: -- Call internal Version_Doc
77: --------------------------------------------
78: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
79: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'200: Call Private Version_Doc ');
80: END IF;
81:
82: OKC_TERMS_VERSION_PVT.Version_Doc(
83: x_return_status => x_return_status,
98: --Only need to version usages record in case of offline authoring
99: --------------------------------------------
100: -- Call Create_Version for template usages
101: --------------------------------------------
102: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
103: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'300: Call Create_Version for template usages');
104: END IF;
105:
106: x_return_status := OKC_TEMPLATE_USAGES_PVT.Create_Version(
99: --------------------------------------------
100: -- Call Create_Version for template usages
101: --------------------------------------------
102: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
103: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'300: Call Create_Version for template usages');
104: END IF;
105:
106: x_return_status := OKC_TEMPLATE_USAGES_PVT.Create_Version(
107: p_doc_type => p_doc_type,
119:
120: --------------------------------------------
121: -- Call private version_deliverables
122: --------------------------------------------
123: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
124: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'200: Call Private Version_Doc ');
125: END IF;
126: OKC_DELIVERABLE_PROCESS_PVT.Version_Deliverables (
127: p_api_version => p_api_version,
120: --------------------------------------------
121: -- Call private version_deliverables
122: --------------------------------------------
123: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
124: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'200: Call Private Version_Doc ');
125: END IF;
126: OKC_DELIVERABLE_PROCESS_PVT.Version_Deliverables (
127: p_api_version => p_api_version,
128: p_init_msg_list => p_init_msg_list,
143: --------------------------------------------
144: --------------------------------------------
145: -- Call private version_attachements
146: --------------------------------------------
147: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
148: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'200: Call Private version_Attachments ');
149: END IF;
150: OKC_CONTRACT_DOCS_GRP.version_Attachments (
151: p_api_version => p_api_version,
144: --------------------------------------------
145: -- Call private version_attachements
146: --------------------------------------------
147: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
148: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'200: Call Private version_Attachments ');
149: END IF;
150: OKC_CONTRACT_DOCS_GRP.version_Attachments (
151: p_api_version => p_api_version,
152: p_init_msg_list => p_init_msg_list,
191: COMMIT;
192: END IF;
193: -- Standard call to get message count and if count is 1, get message info.
194: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
195: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
196: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'300: Leaving Version_Doc');
197: END IF;
198:
199: EXCEPTION
192: END IF;
193: -- Standard call to get message count and if count is 1, get message info.
194: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
195: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
196: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'300: Leaving Version_Doc');
197: END IF;
198:
199: EXCEPTION
200: WHEN FND_API.G_EXC_ERROR THEN
198:
199: EXCEPTION
200: WHEN FND_API.G_EXC_ERROR THEN
201: ROLLBACK TO g_Version_Doc;
202: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
203: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'400: Leaving Version_Doc : OKC_API.G_EXCEPTION_ERROR Exception');
204: END IF;
205: x_return_status := G_RET_STS_ERROR ;
206: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
199: EXCEPTION
200: WHEN FND_API.G_EXC_ERROR THEN
201: ROLLBACK TO g_Version_Doc;
202: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
203: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'400: Leaving Version_Doc : OKC_API.G_EXCEPTION_ERROR Exception');
204: END IF;
205: x_return_status := G_RET_STS_ERROR ;
206: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
207:
206: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
207:
208: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
209: ROLLBACK TO g_Version_Doc;
210: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
211: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'500: Leaving Version_Doc : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
212: END IF;
213: x_return_status := G_RET_STS_UNEXP_ERROR ;
214: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
207:
208: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
209: ROLLBACK TO g_Version_Doc;
210: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
211: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'500: Leaving Version_Doc : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
212: END IF;
213: x_return_status := G_RET_STS_UNEXP_ERROR ;
214: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
215:
214: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
215:
216: WHEN OTHERS THEN
217: ROLLBACK TO g_Version_Doc;
218: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
219: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'600: Leaving Version_Doc because of EXCEPTION: '||sqlerrm);
220: END IF;
221:
222: x_return_status := G_RET_STS_UNEXP_ERROR ;
215:
216: WHEN OTHERS THEN
217: ROLLBACK TO g_Version_Doc;
218: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
219: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'600: Leaving Version_Doc because of EXCEPTION: '||sqlerrm);
220: END IF;
221:
222: x_return_status := G_RET_STS_UNEXP_ERROR ;
223: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
245: ) IS
246: l_api_version CONSTANT NUMBER := 1;
247: l_api_name CONSTANT VARCHAR2(30) := 'Restore_Doc_Version';
248: BEGIN
249: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
250: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: Entered Restore_Doc_Version');
251: END IF;
252: -- Standard Start of API savepoint
253: SAVEPOINT g_Restore_Doc_Version;
246: l_api_version CONSTANT NUMBER := 1;
247: l_api_name CONSTANT VARCHAR2(30) := 'Restore_Doc_Version';
248: BEGIN
249: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
250: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: Entered Restore_Doc_Version');
251: END IF;
252: -- Standard Start of API savepoint
253: SAVEPOINT g_Restore_Doc_Version;
254: -- Standard call to check for call compatibility.
264:
265: --------------------------------------------
266: -- Delete current document terms
267: --------------------------------------------
268: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
269: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: Delete current document terms');
270: END IF;
271: OKC_TERMS_UTIL_PVT.Delete_Doc(
272: x_return_status => x_return_status,
265: --------------------------------------------
266: -- Delete current document terms
267: --------------------------------------------
268: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
269: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: Delete current document terms');
270: END IF;
271: OKC_TERMS_UTIL_PVT.Delete_Doc(
272: x_return_status => x_return_status,
273:
284:
285: --------------------------------------------
286: -- Call internal Restore_Doc_Version
287: --------------------------------------------
288: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
289: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'200: Call Private Restore_Doc_Version ');
290: END IF;
291:
292: OKC_TERMS_VERSION_PVT.Restore_Doc_Version(
285: --------------------------------------------
286: -- Call internal Restore_Doc_Version
287: --------------------------------------------
288: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
289: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'200: Call Private Restore_Doc_Version ');
290: END IF;
291:
292: OKC_TERMS_VERSION_PVT.Restore_Doc_Version(
293: x_return_status => x_return_status,
309: COMMIT;
310: END IF;
311: -- Standard call to get message count and if count is 1, get message info.
312: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
313: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
314: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'300: Leaving Restore_Doc_Version');
315: END IF;
316: EXCEPTION
317: WHEN FND_API.G_EXC_ERROR THEN
310: END IF;
311: -- Standard call to get message count and if count is 1, get message info.
312: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
313: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
314: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'300: Leaving Restore_Doc_Version');
315: END IF;
316: EXCEPTION
317: WHEN FND_API.G_EXC_ERROR THEN
318: ROLLBACK TO g_Restore_Doc_Version;
315: END IF;
316: EXCEPTION
317: WHEN FND_API.G_EXC_ERROR THEN
318: ROLLBACK TO g_Restore_Doc_Version;
319: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
320: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'400: Leaving Restore_Doc_Version : OKC_API.G_EXCEPTION_ERROR Exception');
321: END IF;
322: x_return_status := G_RET_STS_ERROR ;
323: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
316: EXCEPTION
317: WHEN FND_API.G_EXC_ERROR THEN
318: ROLLBACK TO g_Restore_Doc_Version;
319: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
320: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'400: Leaving Restore_Doc_Version : OKC_API.G_EXCEPTION_ERROR Exception');
321: END IF;
322: x_return_status := G_RET_STS_ERROR ;
323: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
324:
323: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
324:
325: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
326: ROLLBACK TO g_Restore_Doc_Version;
327: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
328: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'500: Leaving Restore_Doc_Version : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
329: END IF;
330: x_return_status := G_RET_STS_UNEXP_ERROR ;
331: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
324:
325: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
326: ROLLBACK TO g_Restore_Doc_Version;
327: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
328: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'500: Leaving Restore_Doc_Version : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
329: END IF;
330: x_return_status := G_RET_STS_UNEXP_ERROR ;
331: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
332:
331: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
332:
333: WHEN OTHERS THEN
334: ROLLBACK TO g_Restore_Doc_Version;
335: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
336: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'600: Leaving Restore_Doc_Version because of EXCEPTION: '||sqlerrm);
337: END IF;
338:
339: x_return_status := G_RET_STS_UNEXP_ERROR ;
332:
333: WHEN OTHERS THEN
334: ROLLBACK TO g_Restore_Doc_Version;
335: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
336: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'600: Leaving Restore_Doc_Version because of EXCEPTION: '||sqlerrm);
337: END IF;
338:
339: x_return_status := G_RET_STS_UNEXP_ERROR ;
340: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
361: ) IS
362: l_api_version CONSTANT NUMBER := 1;
363: l_api_name CONSTANT VARCHAR2(30) := 'Delete_Doc_Version';
364: BEGIN
365: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
366: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: Entered Delete_Doc_Version');
367: END IF;
368: -- Standard Start of API savepoint
369: SAVEPOINT g_Delete_Doc_Version;
362: l_api_version CONSTANT NUMBER := 1;
363: l_api_name CONSTANT VARCHAR2(30) := 'Delete_Doc_Version';
364: BEGIN
365: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
366: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: Entered Delete_Doc_Version');
367: END IF;
368: -- Standard Start of API savepoint
369: SAVEPOINT g_Delete_Doc_Version;
370: -- Standard call to check for call compatibility.
380:
381: --------------------------------------------
382: -- Call internal Delete_Doc_Version
383: --------------------------------------------
384: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
385: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'200: Call Private Delete_Doc_Version ');
386: END IF;
387:
388: OKC_TERMS_VERSION_PVT.Delete_Doc_Version(
381: --------------------------------------------
382: -- Call internal Delete_Doc_Version
383: --------------------------------------------
384: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
385: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'200: Call Private Delete_Doc_Version ');
386: END IF;
387:
388: OKC_TERMS_VERSION_PVT.Delete_Doc_Version(
389: x_return_status => x_return_status,
399: RAISE FND_API.G_EXC_ERROR ;
400: END IF;
401: --------------------------------------------
402: -- Call Deliverable API to delete delevirable from the document.
403: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
404: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3900: Delete delevirable for the doc version');
405: END IF;
406: OKC_DELIVERABLE_PROCESS_PVT.Delete_Deliverables(
407: p_api_version => l_api_version,
400: END IF;
401: --------------------------------------------
402: -- Call Deliverable API to delete delevirable from the document.
403: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
404: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3900: Delete delevirable for the doc version');
405: END IF;
406: OKC_DELIVERABLE_PROCESS_PVT.Delete_Deliverables(
407: p_api_version => l_api_version,
408: p_init_msg_list => FND_API.G_FALSE,
422: --------------------------------------------
423: --------------------------------------------
424: -- Call private Delete_All_Version_Attach
425: --------------------------------------------
426: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
427: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'200: Call Private version_Attachments ');
428: END IF;
429: OKC_CONTRACT_DOCS_GRP.Delete_Ver_Attachments(
430: p_api_version => p_api_version,
423: --------------------------------------------
424: -- Call private Delete_All_Version_Attach
425: --------------------------------------------
426: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
427: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'200: Call Private version_Attachments ');
428: END IF;
429: OKC_CONTRACT_DOCS_GRP.Delete_Ver_Attachments(
430: p_api_version => p_api_version,
431: p_init_msg_list => p_init_msg_list,
451: COMMIT;
452: END IF;
453: -- Standard call to get message count and if count is 1, get message info.
454: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
455: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
456: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'300: Leaving Delete_Doc_Version');
457: END IF;
458: EXCEPTION
459: WHEN FND_API.G_EXC_ERROR THEN
452: END IF;
453: -- Standard call to get message count and if count is 1, get message info.
454: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
455: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
456: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'300: Leaving Delete_Doc_Version');
457: END IF;
458: EXCEPTION
459: WHEN FND_API.G_EXC_ERROR THEN
460: ROLLBACK TO g_Delete_Doc_Version;
457: END IF;
458: EXCEPTION
459: WHEN FND_API.G_EXC_ERROR THEN
460: ROLLBACK TO g_Delete_Doc_Version;
461: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
462: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'400: Leaving Delete_Doc_Version : OKC_API.G_EXCEPTION_ERROR Exception');
463: END IF;
464: x_return_status := G_RET_STS_ERROR ;
465: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
458: EXCEPTION
459: WHEN FND_API.G_EXC_ERROR THEN
460: ROLLBACK TO g_Delete_Doc_Version;
461: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
462: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'400: Leaving Delete_Doc_Version : OKC_API.G_EXCEPTION_ERROR Exception');
463: END IF;
464: x_return_status := G_RET_STS_ERROR ;
465: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
466:
465: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
466:
467: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
468: ROLLBACK TO g_Delete_Doc_Version;
469: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
470: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'500: Leaving Delete_Doc_Version : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
471: END IF;
472: x_return_status := G_RET_STS_UNEXP_ERROR ;
473: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
466:
467: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
468: ROLLBACK TO g_Delete_Doc_Version;
469: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
470: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'500: Leaving Delete_Doc_Version : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
471: END IF;
472: x_return_status := G_RET_STS_UNEXP_ERROR ;
473: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
474:
473: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
474:
475: WHEN OTHERS THEN
476: ROLLBACK TO g_Delete_Doc_Version;
477: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
478: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'600: Leaving Delete_Doc_Version because of EXCEPTION: '||sqlerrm);
479: END IF;
480:
481: x_return_status := G_RET_STS_UNEXP_ERROR ;
474:
475: WHEN OTHERS THEN
476: ROLLBACK TO g_Delete_Doc_Version;
477: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
478: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'600: Leaving Delete_Doc_Version because of EXCEPTION: '||sqlerrm);
479: END IF;
480:
481: x_return_status := G_RET_STS_UNEXP_ERROR ;
482: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
501: ) IS
502: l_api_version CONSTANT NUMBER := 1;
503: l_api_name CONSTANT VARCHAR2(30) := 'clear_amendment';
504: BEGIN
505: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
506: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: Entered clear_amendment');
507: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'110: p_init_msg_list='||p_init_msg_list);
508: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'120: p_commit='||p_commit);
509: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'130: p_doc_type='||p_doc_type);
502: l_api_version CONSTANT NUMBER := 1;
503: l_api_name CONSTANT VARCHAR2(30) := 'clear_amendment';
504: BEGIN
505: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
506: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: Entered clear_amendment');
507: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'110: p_init_msg_list='||p_init_msg_list);
508: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'120: p_commit='||p_commit);
509: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'130: p_doc_type='||p_doc_type);
510: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'140: p_doc_id='||p_doc_id);
503: l_api_name CONSTANT VARCHAR2(30) := 'clear_amendment';
504: BEGIN
505: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
506: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: Entered clear_amendment');
507: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'110: p_init_msg_list='||p_init_msg_list);
508: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'120: p_commit='||p_commit);
509: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'130: p_doc_type='||p_doc_type);
510: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'140: p_doc_id='||p_doc_id);
511: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'150: p_keep_summary='||p_keep_summary);
504: BEGIN
505: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
506: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: Entered clear_amendment');
507: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'110: p_init_msg_list='||p_init_msg_list);
508: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'120: p_commit='||p_commit);
509: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'130: p_doc_type='||p_doc_type);
510: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'140: p_doc_id='||p_doc_id);
511: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'150: p_keep_summary='||p_keep_summary);
512: END IF;
505: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
506: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: Entered clear_amendment');
507: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'110: p_init_msg_list='||p_init_msg_list);
508: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'120: p_commit='||p_commit);
509: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'130: p_doc_type='||p_doc_type);
510: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'140: p_doc_id='||p_doc_id);
511: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'150: p_keep_summary='||p_keep_summary);
512: END IF;
513: -- Standard Start of API savepoint
506: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: Entered clear_amendment');
507: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'110: p_init_msg_list='||p_init_msg_list);
508: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'120: p_commit='||p_commit);
509: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'130: p_doc_type='||p_doc_type);
510: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'140: p_doc_id='||p_doc_id);
511: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'150: p_keep_summary='||p_keep_summary);
512: END IF;
513: -- Standard Start of API savepoint
514: SAVEPOINT g_clear_amendment;
507: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'110: p_init_msg_list='||p_init_msg_list);
508: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'120: p_commit='||p_commit);
509: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'130: p_doc_type='||p_doc_type);
510: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'140: p_doc_id='||p_doc_id);
511: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'150: p_keep_summary='||p_keep_summary);
512: END IF;
513: -- Standard Start of API savepoint
514: SAVEPOINT g_clear_amendment;
515: -- Standard call to check for call compatibility.
524: x_return_status := G_RET_STS_SUCCESS;
525: --------------------------------------------
526: -- Call internal clear_amendment
527: --------------------------------------------
528: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
529: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'200: Call Private clear_amendment ');
530: END IF;
531:
532: OKC_TERMS_VERSION_PVT.clear_amendment(
525: --------------------------------------------
526: -- Call internal clear_amendment
527: --------------------------------------------
528: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
529: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'200: Call Private clear_amendment ');
530: END IF;
531:
532: OKC_TERMS_VERSION_PVT.clear_amendment(
533: x_return_status => x_return_status,
542: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
543: RAISE FND_API.G_EXC_ERROR ;
544: END IF;
545: --------------------------------------------
546: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
547: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'300: calling deliverables clear_amendment_operation');
548: END IF;
549:
550: OKC_DELIVERABLE_PROCESS_PVT.clear_amendment_operation (
543: RAISE FND_API.G_EXC_ERROR ;
544: END IF;
545: --------------------------------------------
546: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
547: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'300: calling deliverables clear_amendment_operation');
548: END IF;
549:
550: OKC_DELIVERABLE_PROCESS_PVT.clear_amendment_operation (
551: p_api_version => 1,
563: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
564: RAISE FND_API.G_EXC_ERROR ;
565: END IF;
566: --------------------------------------------
567: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
568: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'300: leaving deliverables clear_amendment_operation');
569: END IF;
570:
571: -- commit changes if asked
564: RAISE FND_API.G_EXC_ERROR ;
565: END IF;
566: --------------------------------------------
567: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
568: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'300: leaving deliverables clear_amendment_operation');
569: END IF;
570:
571: -- commit changes if asked
572: IF FND_API.to_Boolean( p_commit ) THEN
573: COMMIT;
574: END IF;
575: -- Standard call to get message count and if count is 1, get message info.
576: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
577: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
578: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'300: Leaving clear_amendment');
579: END IF;
580:
581:
574: END IF;
575: -- Standard call to get message count and if count is 1, get message info.
576: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
577: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
578: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'300: Leaving clear_amendment');
579: END IF;
580:
581:
582: EXCEPTION
581:
582: EXCEPTION
583: WHEN FND_API.G_EXC_ERROR THEN
584: ROLLBACK TO g_clear_amendment;
585: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
586: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'400: Leaving clear_amendment : OKC_API.G_EXCEPTION_ERROR Exception');
587: END IF;
588: x_return_status := G_RET_STS_ERROR ;
589: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
582: EXCEPTION
583: WHEN FND_API.G_EXC_ERROR THEN
584: ROLLBACK TO g_clear_amendment;
585: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
586: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'400: Leaving clear_amendment : OKC_API.G_EXCEPTION_ERROR Exception');
587: END IF;
588: x_return_status := G_RET_STS_ERROR ;
589: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
590:
589: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
590:
591: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
592: ROLLBACK TO g_clear_amendment;
593: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
594: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'500: Leaving clear_amendment : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
595: END IF;
596: x_return_status := G_RET_STS_UNEXP_ERROR ;
597: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
590:
591: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
592: ROLLBACK TO g_clear_amendment;
593: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
594: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'500: Leaving clear_amendment : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
595: END IF;
596: x_return_status := G_RET_STS_UNEXP_ERROR ;
597: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
598:
597: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
598:
599: WHEN OTHERS THEN
600: ROLLBACK TO g_clear_amendment;
601: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
602: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'600: Leaving clear_amendment because of EXCEPTION: '||sqlerrm);
603: END IF;
604:
605: x_return_status := G_RET_STS_UNEXP_ERROR ;
598:
599: WHEN OTHERS THEN
600: ROLLBACK TO g_clear_amendment;
601: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
602: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'600: Leaving clear_amendment because of EXCEPTION: '||sqlerrm);
603: END IF;
604:
605: x_return_status := G_RET_STS_UNEXP_ERROR ;
606: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN