116:
117:
118: BEGIN
119:
120: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
121: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
122: '600: Entered Insert_Contract_Doc');
123: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
124: '601: p_business_document_type : ' || p_business_document_type );
117:
118: BEGIN
119:
120: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
121: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
122: '600: Entered Insert_Contract_Doc');
123: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
124: '601: p_business_document_type : ' || p_business_document_type );
125: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
119:
120: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
121: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
122: '600: Entered Insert_Contract_Doc');
123: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
124: '601: p_business_document_type : ' || p_business_document_type );
125: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
126: '602: p_business_document_id : ' || p_business_document_id );
127: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
121: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
122: '600: Entered Insert_Contract_Doc');
123: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
124: '601: p_business_document_type : ' || p_business_document_type );
125: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
126: '602: p_business_document_id : ' || p_business_document_id );
127: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
128: '603: p_business_document_version : ' || p_business_document_version );
129: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
123: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
124: '601: p_business_document_type : ' || p_business_document_type );
125: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
126: '602: p_business_document_id : ' || p_business_document_id );
127: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
128: '603: p_business_document_version : ' || p_business_document_version );
129: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
130: '604: p_attached_document_id : ' || p_attached_document_id );
131: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
125: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
126: '602: p_business_document_id : ' || p_business_document_id );
127: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
128: '603: p_business_document_version : ' || p_business_document_version );
129: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
130: '604: p_attached_document_id : ' || p_attached_document_id );
131: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
132: '605: p_external_visibility_flag : ' || p_external_visibility_flag );
133: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
127: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
128: '603: p_business_document_version : ' || p_business_document_version );
129: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
130: '604: p_attached_document_id : ' || p_attached_document_id );
131: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
132: '605: p_external_visibility_flag : ' || p_external_visibility_flag );
133: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
134: '606: p_effective_from_type : ' || p_effective_from_type );
135: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
129: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
130: '604: p_attached_document_id : ' || p_attached_document_id );
131: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
132: '605: p_external_visibility_flag : ' || p_external_visibility_flag );
133: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
134: '606: p_effective_from_type : ' || p_effective_from_type );
135: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
136: '607: p_effective_from_id : ' || p_effective_from_id );
137: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
131: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
132: '605: p_external_visibility_flag : ' || p_external_visibility_flag );
133: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
134: '606: p_effective_from_type : ' || p_effective_from_type );
135: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
136: '607: p_effective_from_id : ' || p_effective_from_id );
137: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
138: '608: p_effective_from_version : ' || p_effective_from_version );
139: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
133: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
134: '606: p_effective_from_type : ' || p_effective_from_type );
135: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
136: '607: p_effective_from_id : ' || p_effective_from_id );
137: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
138: '608: p_effective_from_version : ' || p_effective_from_version );
139: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
140: '609: p_include_for_approval_flag : ' || p_include_for_approval_flag );
141: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
135: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
136: '607: p_effective_from_id : ' || p_effective_from_id );
137: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
138: '608: p_effective_from_version : ' || p_effective_from_version );
139: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
140: '609: p_include_for_approval_flag : ' || p_include_for_approval_flag );
141: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
142: '610: p_create_fnd_attach : ' || p_create_fnd_attach );
143: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
137: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
138: '608: p_effective_from_version : ' || p_effective_from_version );
139: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
140: '609: p_include_for_approval_flag : ' || p_include_for_approval_flag );
141: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
142: '610: p_create_fnd_attach : ' || p_create_fnd_attach );
143: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
144: '611: p_program_id : ' || p_program_id );
145: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
139: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
140: '609: p_include_for_approval_flag : ' || p_include_for_approval_flag );
141: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
142: '610: p_create_fnd_attach : ' || p_create_fnd_attach );
143: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
144: '611: p_program_id : ' || p_program_id );
145: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
146: '612: p_program_application_id : ' || p_program_application_id );
147: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
141: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
142: '610: p_create_fnd_attach : ' || p_create_fnd_attach );
143: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
144: '611: p_program_id : ' || p_program_id );
145: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
146: '612: p_program_application_id : ' || p_program_application_id );
147: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
148: '613: p_request_id : ' || p_request_id );
149: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
143: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
144: '611: p_program_id : ' || p_program_id );
145: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
146: '612: p_program_application_id : ' || p_program_application_id );
147: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
148: '613: p_request_id : ' || p_request_id );
149: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
150: '614: p_program_update_date : ' || p_program_update_date );
151: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
145: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
146: '612: p_program_application_id : ' || p_program_application_id );
147: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
148: '613: p_request_id : ' || p_request_id );
149: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
150: '614: p_program_update_date : ' || p_program_update_date );
151: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
152: '615: p_parent_attached_doc_id : ' || p_parent_attached_doc_id );
153: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
147: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
148: '613: p_request_id : ' || p_request_id );
149: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
150: '614: p_program_update_date : ' || p_program_update_date );
151: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
152: '615: p_parent_attached_doc_id : ' || p_parent_attached_doc_id );
153: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
154: '616: p_generated_flag : ' || p_generated_flag );
155: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
149: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
150: '614: p_program_update_date : ' || p_program_update_date );
151: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
152: '615: p_parent_attached_doc_id : ' || p_parent_attached_doc_id );
153: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
154: '616: p_generated_flag : ' || p_generated_flag );
155: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
156: '617: p_delete_flag : ' || p_delete_flag );
157: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
151: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
152: '615: p_parent_attached_doc_id : ' || p_parent_attached_doc_id );
153: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
154: '616: p_generated_flag : ' || p_generated_flag );
155: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
156: '617: p_delete_flag : ' || p_delete_flag );
157: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
158: '618: p_primary_contract_doc_flag : ' || p_primary_contract_doc_flag );
159: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
153: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
154: '616: p_generated_flag : ' || p_generated_flag );
155: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
156: '617: p_delete_flag : ' || p_delete_flag );
157: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
158: '618: p_primary_contract_doc_flag : ' || p_primary_contract_doc_flag );
159: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
160: '619: p_mergeable_doc_flag : ' || p_mergeable_doc_flag );
161: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
155: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
156: '617: p_delete_flag : ' || p_delete_flag );
157: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
158: '618: p_primary_contract_doc_flag : ' || p_primary_contract_doc_flag );
159: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
160: '619: p_mergeable_doc_flag : ' || p_mergeable_doc_flag );
161: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
162: '620: p_versioning_flag : ' || p_versioning_flag );
163: END IF;
157: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
158: '618: p_primary_contract_doc_flag : ' || p_primary_contract_doc_flag );
159: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
160: '619: p_mergeable_doc_flag : ' || p_mergeable_doc_flag );
161: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
162: '620: p_versioning_flag : ' || p_versioning_flag );
163: END IF;
164:
165: -- Standard Start of API savepoint
224: -- Get SEQ_NUM for the new record being added
225: FOR seq_rec IN seq_csr(G_ATTACH_ENTITY_NAME, p_business_document_type, p_business_document_id,
226: p_business_document_version)
227: LOOP
228: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
229: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'640: Max seq is: ' || seq_rec.s_num);
230: END IF;
231: l_seq_num := seq_rec.s_num;
232: END LOOP;
225: FOR seq_rec IN seq_csr(G_ATTACH_ENTITY_NAME, p_business_document_type, p_business_document_id,
226: p_business_document_version)
227: LOOP
228: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
229: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'640: Max seq is: ' || seq_rec.s_num);
230: END IF;
231: l_seq_num := seq_rec.s_num;
232: END LOOP;
233: IF (l_seq_num IS NULL) THEN
241: l_pk2_value := to_char(p_business_document_id) || 'D';
242: ELSE
243: l_pk2_value := to_char(p_business_document_id);
244: END IF; -- (delete_flag = 'Y')
245: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
246: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'651: document_id is: ' || l_document_id);
247: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'652: New seq_num is: ' || l_seq_num);
248: END IF;
249: fnd_attached_documents_pkg.insert_row(
242: ELSE
243: l_pk2_value := to_char(p_business_document_id);
244: END IF; -- (delete_flag = 'Y')
245: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
246: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'651: document_id is: ' || l_document_id);
247: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'652: New seq_num is: ' || l_seq_num);
248: END IF;
249: fnd_attached_documents_pkg.insert_row(
250: x_rowid => l_rowid,
243: l_pk2_value := to_char(p_business_document_id);
244: END IF; -- (delete_flag = 'Y')
245: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
246: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'651: document_id is: ' || l_document_id);
247: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'652: New seq_num is: ' || l_seq_num);
248: END IF;
249: fnd_attached_documents_pkg.insert_row(
250: x_rowid => l_rowid,
251: x_attached_document_id => l_new_attachment_id,
290: X_create_doc => 'N'
291: );
292: l_attached_document_id := l_new_attachment_id;
293:
294: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
295: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'653: new_attached_doc_id is: ' || l_new_attachment_id);
296: END IF;
297:
298: END IF;
291: );
292: l_attached_document_id := l_new_attachment_id;
293:
294: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
295: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'653: new_attached_doc_id is: ' || l_new_attachment_id);
296: END IF;
297:
298: END IF;
299:
344: END IF;
345: -- Standard call to get message count and if count is 1, get message info.
346: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
347:
348: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
349: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'700: Leaving Insert_Contract_Doc');
350: END IF;
351:
352: EXCEPTION
345: -- Standard call to get message count and if count is 1, get message info.
346: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
347:
348: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
349: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'700: Leaving Insert_Contract_Doc');
350: END IF;
351:
352: EXCEPTION
353: WHEN FND_API.G_EXC_ERROR THEN
350: END IF;
351:
352: EXCEPTION
353: WHEN FND_API.G_EXC_ERROR THEN
354: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
355: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'800: Leaving Insert_Contract_Doc: OKC_API.G_EXCEPTION_ERROR Exception');
356: END IF;
357: IF l_attachment_id_csr%ISOPEN THEN
358: CLOSE l_attachment_id_csr;
351:
352: EXCEPTION
353: WHEN FND_API.G_EXC_ERROR THEN
354: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
355: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'800: Leaving Insert_Contract_Doc: OKC_API.G_EXCEPTION_ERROR Exception');
356: END IF;
357: IF l_attachment_id_csr%ISOPEN THEN
358: CLOSE l_attachment_id_csr;
359: END IF;
361: x_return_status := G_RET_STS_ERROR ;
362: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
363:
364: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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,'900: Leaving Insert_Contract_Doc: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
367: END IF;
368: IF l_attachment_id_csr%ISOPEN THEN
369: CLOSE l_attachment_id_csr;
362: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
363:
364: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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,'900: Leaving Insert_Contract_Doc: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
367: END IF;
368: IF l_attachment_id_csr%ISOPEN THEN
369: CLOSE l_attachment_id_csr;
370: END IF;
372: x_return_status := G_RET_STS_UNEXP_ERROR ;
373: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
374:
375: WHEN OTHERS THEN
376: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
377: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1000: Leaving Insert_Contract_Doc because of EXCEPTION: '||sqlerrm);
378: END IF;
379: IF l_attachment_id_csr%ISOPEN THEN
380: CLOSE l_attachment_id_csr;
373: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
374:
375: WHEN OTHERS THEN
376: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
377: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1000: Leaving Insert_Contract_Doc because of EXCEPTION: '||sqlerrm);
378: END IF;
379: IF l_attachment_id_csr%ISOPEN THEN
380: CLOSE l_attachment_id_csr;
381: END IF;
444:
445:
446: BEGIN
447:
448: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
449: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
450: '1600: Entered Update_Contract_Doc');
451: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
452: '1601: p_business_document_type : ' || p_business_document_type );
445:
446: BEGIN
447:
448: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
449: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
450: '1600: Entered Update_Contract_Doc');
451: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
452: '1601: p_business_document_type : ' || p_business_document_type );
453: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
447:
448: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
449: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
450: '1600: Entered Update_Contract_Doc');
451: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
452: '1601: p_business_document_type : ' || p_business_document_type );
453: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
454: '1602: p_business_document_id : ' || p_business_document_id );
455: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
449: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
450: '1600: Entered Update_Contract_Doc');
451: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
452: '1601: p_business_document_type : ' || p_business_document_type );
453: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
454: '1602: p_business_document_id : ' || p_business_document_id );
455: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
456: '1603: p_business_document_version : ' || p_business_document_version );
457: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
451: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
452: '1601: p_business_document_type : ' || p_business_document_type );
453: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
454: '1602: p_business_document_id : ' || p_business_document_id );
455: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
456: '1603: p_business_document_version : ' || p_business_document_version );
457: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
458: '1604: p_attached_document_id : ' || p_attached_document_id );
459: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
453: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
454: '1602: p_business_document_id : ' || p_business_document_id );
455: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
456: '1603: p_business_document_version : ' || p_business_document_version );
457: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
458: '1604: p_attached_document_id : ' || p_attached_document_id );
459: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
460: '1605: p_external_visibility_flag : ' || p_external_visibility_flag );
461: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
455: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
456: '1603: p_business_document_version : ' || p_business_document_version );
457: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
458: '1604: p_attached_document_id : ' || p_attached_document_id );
459: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
460: '1605: p_external_visibility_flag : ' || p_external_visibility_flag );
461: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
462: '1606: p_effective_from_type : ' || p_effective_from_type );
463: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
457: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
458: '1604: p_attached_document_id : ' || p_attached_document_id );
459: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
460: '1605: p_external_visibility_flag : ' || p_external_visibility_flag );
461: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
462: '1606: p_effective_from_type : ' || p_effective_from_type );
463: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
464: '1607: p_effective_from_id : ' || p_effective_from_id );
465: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
459: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
460: '1605: p_external_visibility_flag : ' || p_external_visibility_flag );
461: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
462: '1606: p_effective_from_type : ' || p_effective_from_type );
463: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
464: '1607: p_effective_from_id : ' || p_effective_from_id );
465: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
466: '1608: p_effective_from_version : ' || p_effective_from_version );
467: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
461: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
462: '1606: p_effective_from_type : ' || p_effective_from_type );
463: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
464: '1607: p_effective_from_id : ' || p_effective_from_id );
465: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
466: '1608: p_effective_from_version : ' || p_effective_from_version );
467: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
468: '1609: p_include_for_approval_flag : ' || p_include_for_approval_flag );
469: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
463: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
464: '1607: p_effective_from_id : ' || p_effective_from_id );
465: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
466: '1608: p_effective_from_version : ' || p_effective_from_version );
467: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
468: '1609: p_include_for_approval_flag : ' || p_include_for_approval_flag );
469: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
470: '1611: p_program_id : ' || p_program_id );
471: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
465: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
466: '1608: p_effective_from_version : ' || p_effective_from_version );
467: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
468: '1609: p_include_for_approval_flag : ' || p_include_for_approval_flag );
469: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
470: '1611: p_program_id : ' || p_program_id );
471: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
472: '1612: p_program_application_id : ' || p_program_application_id );
473: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
467: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
468: '1609: p_include_for_approval_flag : ' || p_include_for_approval_flag );
469: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
470: '1611: p_program_id : ' || p_program_id );
471: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
472: '1612: p_program_application_id : ' || p_program_application_id );
473: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
474: '1613: p_request_id : ' || p_request_id );
475: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
469: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
470: '1611: p_program_id : ' || p_program_id );
471: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
472: '1612: p_program_application_id : ' || p_program_application_id );
473: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
474: '1613: p_request_id : ' || p_request_id );
475: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
476: '1614: p_program_update_date : ' || p_program_update_date );
477: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
471: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
472: '1612: p_program_application_id : ' || p_program_application_id );
473: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
474: '1613: p_request_id : ' || p_request_id );
475: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
476: '1614: p_program_update_date : ' || p_program_update_date );
477: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
478: '1615: p_parent_attached_doc_id : ' || p_parent_attached_doc_id );
479: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
473: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
474: '1613: p_request_id : ' || p_request_id );
475: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
476: '1614: p_program_update_date : ' || p_program_update_date );
477: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
478: '1615: p_parent_attached_doc_id : ' || p_parent_attached_doc_id );
479: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
480: '1616: p_generated_flag : ' || p_generated_flag );
481: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
475: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
476: '1614: p_program_update_date : ' || p_program_update_date );
477: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
478: '1615: p_parent_attached_doc_id : ' || p_parent_attached_doc_id );
479: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
480: '1616: p_generated_flag : ' || p_generated_flag );
481: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
482: '1617: p_delete_flag : ' || p_delete_flag );
483: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
477: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
478: '1615: p_parent_attached_doc_id : ' || p_parent_attached_doc_id );
479: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
480: '1616: p_generated_flag : ' || p_generated_flag );
481: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
482: '1617: p_delete_flag : ' || p_delete_flag );
483: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
484: '1618: p_primary_contract_doc_flag : ' || p_primary_contract_doc_flag );
485: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
479: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
480: '1616: p_generated_flag : ' || p_generated_flag );
481: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
482: '1617: p_delete_flag : ' || p_delete_flag );
483: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
484: '1618: p_primary_contract_doc_flag : ' || p_primary_contract_doc_flag );
485: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
486: '1619: p_mergeable_doc_flag : ' || p_mergeable_doc_flag );
487: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
481: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
482: '1617: p_delete_flag : ' || p_delete_flag );
483: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
484: '1618: p_primary_contract_doc_flag : ' || p_primary_contract_doc_flag );
485: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
486: '1619: p_mergeable_doc_flag : ' || p_mergeable_doc_flag );
487: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
488: '1620: p_versioning_flag : ' || p_versioning_flag );
489: END IF;
483: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
484: '1618: p_primary_contract_doc_flag : ' || p_primary_contract_doc_flag );
485: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
486: '1619: p_mergeable_doc_flag : ' || p_mergeable_doc_flag );
487: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
488: '1620: p_versioning_flag : ' || p_versioning_flag );
489: END IF;
490:
491: -- Standard Start of API savepoint
567: END IF;
568: -- Standard call to get message count and if count is 1, get message info.
569: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
570:
571: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
572: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1800: Leaving Update_Contract_Doc');
573: END IF;
574:
575: EXCEPTION
568: -- Standard call to get message count and if count is 1, get message info.
569: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
570:
571: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
572: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1800: Leaving Update_Contract_Doc');
573: END IF;
574:
575: EXCEPTION
576: WHEN FND_API.G_EXC_ERROR THEN
573: END IF;
574:
575: EXCEPTION
576: WHEN FND_API.G_EXC_ERROR THEN
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,'1900: Leaving Update_Contract_Doc: OKC_API.G_EXCEPTION_ERROR Exception');
579: END IF;
580: IF (contract_doc_csr%ISOPEN) THEN
581: CLOSE contract_doc_csr ;
574:
575: EXCEPTION
576: WHEN FND_API.G_EXC_ERROR THEN
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,'1900: Leaving Update_Contract_Doc: OKC_API.G_EXCEPTION_ERROR Exception');
579: END IF;
580: IF (contract_doc_csr%ISOPEN) THEN
581: CLOSE contract_doc_csr ;
582: END IF;
584: x_return_status := G_RET_STS_ERROR ;
585: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
586:
587: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
588: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
589: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2000: Leaving Update_Contract_Doc: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
590: END IF;
591: IF (contract_doc_csr%ISOPEN) THEN
592: CLOSE contract_doc_csr ;
585: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
586:
587: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
588: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
589: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2000: Leaving Update_Contract_Doc: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
590: END IF;
591: IF (contract_doc_csr%ISOPEN) THEN
592: CLOSE contract_doc_csr ;
593: END IF;
595: x_return_status := G_RET_STS_UNEXP_ERROR ;
596: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
597:
598: WHEN OTHERS THEN
599: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
600: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2100: Leaving Update_Contract_Doc because of EXCEPTION: '||sqlerrm);
601: END IF;
602: IF (contract_doc_csr%ISOPEN) THEN
603: CLOSE contract_doc_csr ;
596: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
597:
598: WHEN OTHERS THEN
599: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
600: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2100: Leaving Update_Contract_Doc because of EXCEPTION: '||sqlerrm);
601: END IF;
602: IF (contract_doc_csr%ISOPEN) THEN
603: CLOSE contract_doc_csr ;
604: END IF;
703: fnd_doc_rec fnd_doc_csr%ROWTYPE;
704:
705: BEGIN
706:
707: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
708: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
709: '2200: Entered Delete_Contract_Doc');
710: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
711: '2201: p_business_document_type : ' || p_business_document_type );
704:
705: BEGIN
706:
707: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
708: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
709: '2200: Entered Delete_Contract_Doc');
710: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
711: '2201: p_business_document_type : ' || p_business_document_type );
712: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
706:
707: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
708: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
709: '2200: Entered Delete_Contract_Doc');
710: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
711: '2201: p_business_document_type : ' || p_business_document_type );
712: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
713: '2202: p_business_document_id : ' || p_business_document_id );
714: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
708: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
709: '2200: Entered Delete_Contract_Doc');
710: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
711: '2201: p_business_document_type : ' || p_business_document_type );
712: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
713: '2202: p_business_document_id : ' || p_business_document_id );
714: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
715: '2203: p_business_document_version : ' || p_business_document_version );
716: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
710: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
711: '2201: p_business_document_type : ' || p_business_document_type );
712: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
713: '2202: p_business_document_id : ' || p_business_document_id );
714: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
715: '2203: p_business_document_version : ' || p_business_document_version );
716: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
717: '2204: p_attached_document_id : ' || p_attached_document_id );
718: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
712: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
713: '2202: p_business_document_id : ' || p_business_document_id );
714: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
715: '2203: p_business_document_version : ' || p_business_document_version );
716: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
717: '2204: p_attached_document_id : ' || p_attached_document_id );
718: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
719: '2205: p_doc_approved_flag : ' || p_doc_approved_flag );
720: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
714: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
715: '2203: p_business_document_version : ' || p_business_document_version );
716: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
717: '2204: p_attached_document_id : ' || p_attached_document_id );
718: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
719: '2205: p_doc_approved_flag : ' || p_doc_approved_flag );
720: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
721: '2206: p_object_version_number : ' || p_object_version_number );
722: END IF;
716: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
717: '2204: p_attached_document_id : ' || p_attached_document_id );
718: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
719: '2205: p_doc_approved_flag : ' || p_doc_approved_flag );
720: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
721: '2206: p_object_version_number : ' || p_object_version_number );
722: END IF;
723:
724: -- Standard Start of API savepoint
742: AND business_document_id = p_business_document_id
743: AND business_document_version = p_business_document_version
744: AND attached_document_id = p_attached_document_id;
745:
746: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
747: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2258: parent attached doc id is: ' || l_parent_attached_doc_id);
748: END IF;
749:
750: -- Check to see if are deleting an archived record before deleting it's references in -99 version.
743: AND business_document_version = p_business_document_version
744: AND attached_document_id = p_attached_document_id;
745:
746: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
747: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2258: parent attached doc id is: ' || l_parent_attached_doc_id);
748: END IF;
749:
750: -- Check to see if are deleting an archived record before deleting it's references in -99 version.
751: FOR child_ref_attach_rec IN child_ref_attach_csr(p_business_document_type, p_business_document_id,
750: -- Check to see if are deleting an archived record before deleting it's references in -99 version.
751: FOR child_ref_attach_rec IN child_ref_attach_csr(p_business_document_type, p_business_document_id,
752: p_business_document_version, p_attached_document_id)
753: LOOP
754: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
755: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2259-1: Fetching child reference record');
756: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2260-1:doc type is: ' || child_ref_attach_rec.business_document_type);
757: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2261-1:doc id is: ' || child_ref_attach_rec.business_document_id);
758: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2262-1:doc version is: ' || child_ref_attach_rec.business_document_version);
751: FOR child_ref_attach_rec IN child_ref_attach_csr(p_business_document_type, p_business_document_id,
752: p_business_document_version, p_attached_document_id)
753: LOOP
754: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
755: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2259-1: Fetching child reference record');
756: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2260-1:doc type is: ' || child_ref_attach_rec.business_document_type);
757: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2261-1:doc id is: ' || child_ref_attach_rec.business_document_id);
758: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2262-1:doc version is: ' || child_ref_attach_rec.business_document_version);
759: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2263-1:attached_document_id is: ' || child_ref_attach_rec.attached_document_id);
752: p_business_document_version, p_attached_document_id)
753: LOOP
754: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
755: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2259-1: Fetching child reference record');
756: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2260-1:doc type is: ' || child_ref_attach_rec.business_document_type);
757: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2261-1:doc id is: ' || child_ref_attach_rec.business_document_id);
758: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2262-1:doc version is: ' || child_ref_attach_rec.business_document_version);
759: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2263-1:attached_document_id is: ' || child_ref_attach_rec.attached_document_id);
760: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2264-1:effective_from_version is: ' || child_ref_attach_rec.effective_from_version);
753: LOOP
754: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
755: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2259-1: Fetching child reference record');
756: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2260-1:doc type is: ' || child_ref_attach_rec.business_document_type);
757: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2261-1:doc id is: ' || child_ref_attach_rec.business_document_id);
758: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2262-1:doc version is: ' || child_ref_attach_rec.business_document_version);
759: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2263-1:attached_document_id is: ' || child_ref_attach_rec.attached_document_id);
760: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2264-1:effective_from_version is: ' || child_ref_attach_rec.effective_from_version);
761: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2265-1:delete_flag is: ' || child_ref_attach_rec.delete_flag);
754: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
755: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2259-1: Fetching child reference record');
756: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2260-1:doc type is: ' || child_ref_attach_rec.business_document_type);
757: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2261-1:doc id is: ' || child_ref_attach_rec.business_document_id);
758: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2262-1:doc version is: ' || child_ref_attach_rec.business_document_version);
759: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2263-1:attached_document_id is: ' || child_ref_attach_rec.attached_document_id);
760: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2264-1:effective_from_version is: ' || child_ref_attach_rec.effective_from_version);
761: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2265-1:delete_flag is: ' || child_ref_attach_rec.delete_flag);
762: END IF;
755: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2259-1: Fetching child reference record');
756: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2260-1:doc type is: ' || child_ref_attach_rec.business_document_type);
757: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2261-1:doc id is: ' || child_ref_attach_rec.business_document_id);
758: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2262-1:doc version is: ' || child_ref_attach_rec.business_document_version);
759: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2263-1:attached_document_id is: ' || child_ref_attach_rec.attached_document_id);
760: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2264-1:effective_from_version is: ' || child_ref_attach_rec.effective_from_version);
761: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2265-1:delete_flag is: ' || child_ref_attach_rec.delete_flag);
762: END IF;
763:
756: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2260-1:doc type is: ' || child_ref_attach_rec.business_document_type);
757: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2261-1:doc id is: ' || child_ref_attach_rec.business_document_id);
758: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2262-1:doc version is: ' || child_ref_attach_rec.business_document_version);
759: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2263-1:attached_document_id is: ' || child_ref_attach_rec.attached_document_id);
760: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2264-1:effective_from_version is: ' || child_ref_attach_rec.effective_from_version);
761: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2265-1:delete_flag is: ' || child_ref_attach_rec.delete_flag);
762: END IF;
763:
764: OKC_CONTRACT_DOCS_GRP.delete_contract_doc(
757: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2261-1:doc id is: ' || child_ref_attach_rec.business_document_id);
758: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2262-1:doc version is: ' || child_ref_attach_rec.business_document_version);
759: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2263-1:attached_document_id is: ' || child_ref_attach_rec.attached_document_id);
760: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2264-1:effective_from_version is: ' || child_ref_attach_rec.effective_from_version);
761: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2265-1:delete_flag is: ' || child_ref_attach_rec.delete_flag);
762: END IF;
763:
764: OKC_CONTRACT_DOCS_GRP.delete_contract_doc(
765: p_api_version => p_api_version,
785: IF ((p_business_document_version <> G_CURRENT_VERSION) AND (l_parent_attached_doc_id is not NULL)) THEN
786: FOR rel_ref_attach_rec IN rel_ref_attach_csr(p_business_document_type, p_business_document_id,
787: l_parent_attached_doc_id)
788: LOOP
789: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
790: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2259-2: Fetching related reference record');
791: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2260-2:doc type is: ' || rel_ref_attach_rec.business_document_type);
792: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2261-2:doc id is: ' || rel_ref_attach_rec.business_document_id);
793: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2262-2:doc version is: ' || rel_ref_attach_rec.business_document_version);
786: FOR rel_ref_attach_rec IN rel_ref_attach_csr(p_business_document_type, p_business_document_id,
787: l_parent_attached_doc_id)
788: LOOP
789: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
790: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2259-2: Fetching related reference record');
791: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2260-2:doc type is: ' || rel_ref_attach_rec.business_document_type);
792: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2261-2:doc id is: ' || rel_ref_attach_rec.business_document_id);
793: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2262-2:doc version is: ' || rel_ref_attach_rec.business_document_version);
794: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2263-2:attached_document_id is: ' || rel_ref_attach_rec.attached_document_id);
787: l_parent_attached_doc_id)
788: LOOP
789: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
790: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2259-2: Fetching related reference record');
791: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2260-2:doc type is: ' || rel_ref_attach_rec.business_document_type);
792: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2261-2:doc id is: ' || rel_ref_attach_rec.business_document_id);
793: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2262-2:doc version is: ' || rel_ref_attach_rec.business_document_version);
794: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2263-2:attached_document_id is: ' || rel_ref_attach_rec.attached_document_id);
795: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2264-2:effective_from_version is: ' || rel_ref_attach_rec.effective_from_version);
788: LOOP
789: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
790: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2259-2: Fetching related reference record');
791: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2260-2:doc type is: ' || rel_ref_attach_rec.business_document_type);
792: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2261-2:doc id is: ' || rel_ref_attach_rec.business_document_id);
793: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2262-2:doc version is: ' || rel_ref_attach_rec.business_document_version);
794: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2263-2:attached_document_id is: ' || rel_ref_attach_rec.attached_document_id);
795: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2264-2:effective_from_version is: ' || rel_ref_attach_rec.effective_from_version);
796: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2265-2:delete_flag is: ' || rel_ref_attach_rec.delete_flag);
789: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
790: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2259-2: Fetching related reference record');
791: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2260-2:doc type is: ' || rel_ref_attach_rec.business_document_type);
792: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2261-2:doc id is: ' || rel_ref_attach_rec.business_document_id);
793: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2262-2:doc version is: ' || rel_ref_attach_rec.business_document_version);
794: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2263-2:attached_document_id is: ' || rel_ref_attach_rec.attached_document_id);
795: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2264-2:effective_from_version is: ' || rel_ref_attach_rec.effective_from_version);
796: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2265-2:delete_flag is: ' || rel_ref_attach_rec.delete_flag);
797: END IF;
790: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2259-2: Fetching related reference record');
791: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2260-2:doc type is: ' || rel_ref_attach_rec.business_document_type);
792: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2261-2:doc id is: ' || rel_ref_attach_rec.business_document_id);
793: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2262-2:doc version is: ' || rel_ref_attach_rec.business_document_version);
794: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2263-2:attached_document_id is: ' || rel_ref_attach_rec.attached_document_id);
795: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2264-2:effective_from_version is: ' || rel_ref_attach_rec.effective_from_version);
796: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2265-2:delete_flag is: ' || rel_ref_attach_rec.delete_flag);
797: END IF;
798:
791: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2260-2:doc type is: ' || rel_ref_attach_rec.business_document_type);
792: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2261-2:doc id is: ' || rel_ref_attach_rec.business_document_id);
793: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2262-2:doc version is: ' || rel_ref_attach_rec.business_document_version);
794: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2263-2:attached_document_id is: ' || rel_ref_attach_rec.attached_document_id);
795: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2264-2:effective_from_version is: ' || rel_ref_attach_rec.effective_from_version);
796: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2265-2:delete_flag is: ' || rel_ref_attach_rec.delete_flag);
797: END IF;
798:
799: OKC_CONTRACT_DOCS_GRP.delete_contract_doc(
792: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2261-2:doc id is: ' || rel_ref_attach_rec.business_document_id);
793: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2262-2:doc version is: ' || rel_ref_attach_rec.business_document_version);
794: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2263-2:attached_document_id is: ' || rel_ref_attach_rec.attached_document_id);
795: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2264-2:effective_from_version is: ' || rel_ref_attach_rec.effective_from_version);
796: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2265-2:delete_flag is: ' || rel_ref_attach_rec.delete_flag);
797: END IF;
798:
799: OKC_CONTRACT_DOCS_GRP.delete_contract_doc(
800: p_api_version => p_api_version,
838: -- add 'D' suffix to FND_ATTACHED_DOCUMENTS record's pk2_value column.
839: FOR attach_rec IN attach_csr(p_business_document_type, p_business_document_id,
840: p_business_document_version, p_attached_document_id)
841: LOOP
842: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
843: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2260:doc type is: ' || attach_rec.business_document_type);
844: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2261:doc id is: ' || attach_rec.business_document_id);
845: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2262:doc version is: ' || attach_rec.business_document_version);
846: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2263:attached_document_id is: ' || attach_rec.attached_document_id);
839: FOR attach_rec IN attach_csr(p_business_document_type, p_business_document_id,
840: p_business_document_version, p_attached_document_id)
841: LOOP
842: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
843: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2260:doc type is: ' || attach_rec.business_document_type);
844: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2261:doc id is: ' || attach_rec.business_document_id);
845: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2262:doc version is: ' || attach_rec.business_document_version);
846: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2263:attached_document_id is: ' || attach_rec.attached_document_id);
847: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2264:effective_from_version is: ' || attach_rec.effective_from_version);
840: p_business_document_version, p_attached_document_id)
841: LOOP
842: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
843: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2260:doc type is: ' || attach_rec.business_document_type);
844: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2261:doc id is: ' || attach_rec.business_document_id);
845: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2262:doc version is: ' || attach_rec.business_document_version);
846: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2263:attached_document_id is: ' || attach_rec.attached_document_id);
847: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2264:effective_from_version is: ' || attach_rec.effective_from_version);
848: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2265:delete_flag is: ' || attach_rec.delete_flag);
841: LOOP
842: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
843: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2260:doc type is: ' || attach_rec.business_document_type);
844: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2261:doc id is: ' || attach_rec.business_document_id);
845: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2262:doc version is: ' || attach_rec.business_document_version);
846: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2263:attached_document_id is: ' || attach_rec.attached_document_id);
847: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2264:effective_from_version is: ' || attach_rec.effective_from_version);
848: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2265:delete_flag is: ' || attach_rec.delete_flag);
849: END IF;
842: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
843: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2260:doc type is: ' || attach_rec.business_document_type);
844: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2261:doc id is: ' || attach_rec.business_document_id);
845: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2262:doc version is: ' || attach_rec.business_document_version);
846: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2263:attached_document_id is: ' || attach_rec.attached_document_id);
847: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2264:effective_from_version is: ' || attach_rec.effective_from_version);
848: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2265:delete_flag is: ' || attach_rec.delete_flag);
849: END IF;
850: -- Open the fnd_attached_doc_csr and fnd_doc_csr cursors to fetch the FND attachment record to be updated.
843: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2260:doc type is: ' || attach_rec.business_document_type);
844: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2261:doc id is: ' || attach_rec.business_document_id);
845: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2262:doc version is: ' || attach_rec.business_document_version);
846: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2263:attached_document_id is: ' || attach_rec.attached_document_id);
847: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2264:effective_from_version is: ' || attach_rec.effective_from_version);
848: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2265:delete_flag is: ' || attach_rec.delete_flag);
849: END IF;
850: -- Open the fnd_attached_doc_csr and fnd_doc_csr cursors to fetch the FND attachment record to be updated.
851: OPEN fnd_attached_doc_csr;
844: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2261:doc id is: ' || attach_rec.business_document_id);
845: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2262:doc version is: ' || attach_rec.business_document_version);
846: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2263:attached_document_id is: ' || attach_rec.attached_document_id);
847: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2264:effective_from_version is: ' || attach_rec.effective_from_version);
848: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2265:delete_flag is: ' || attach_rec.delete_flag);
849: END IF;
850: -- Open the fnd_attached_doc_csr and fnd_doc_csr cursors to fetch the FND attachment record to be updated.
851: OPEN fnd_attached_doc_csr;
852: FETCH fnd_attached_doc_csr INTO fnd_attached_doc_rec;
938: FROM fnd_documents d, fnd_attached_documents ad
939: WHERE d.document_id = ad.document_id
940: AND ad.attached_document_id = p_attached_document_id;
941:
942: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
943: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2250: p_business_document_type is: ' || p_business_document_type);
944: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2251: p_business_document_id is: ' || p_business_document_id);
945: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2252: p_business_document_version is: ' || p_business_document_version);
946: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2253: p_attached_document_id is: ' || p_attached_document_id);
939: WHERE d.document_id = ad.document_id
940: AND ad.attached_document_id = p_attached_document_id;
941:
942: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
943: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2250: p_business_document_type is: ' || p_business_document_type);
944: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2251: p_business_document_id is: ' || p_business_document_id);
945: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2252: p_business_document_version is: ' || p_business_document_version);
946: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2253: p_attached_document_id is: ' || p_attached_document_id);
947: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2254: l_effective_from_type is: ' || l_effective_from_type);
940: AND ad.attached_document_id = p_attached_document_id;
941:
942: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
943: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2250: p_business_document_type is: ' || p_business_document_type);
944: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2251: p_business_document_id is: ' || p_business_document_id);
945: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2252: p_business_document_version is: ' || p_business_document_version);
946: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2253: p_attached_document_id is: ' || p_attached_document_id);
947: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2254: l_effective_from_type is: ' || l_effective_from_type);
948: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2255: l_effective_from_id is: ' || l_effective_from_id);
941:
942: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
943: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2250: p_business_document_type is: ' || p_business_document_type);
944: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2251: p_business_document_id is: ' || p_business_document_id);
945: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2252: p_business_document_version is: ' || p_business_document_version);
946: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2253: p_attached_document_id is: ' || p_attached_document_id);
947: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2254: l_effective_from_type is: ' || l_effective_from_type);
948: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2255: l_effective_from_id is: ' || l_effective_from_id);
949: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2256: l_effective_from_version is: ' || l_effective_from_version);
942: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
943: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2250: p_business_document_type is: ' || p_business_document_type);
944: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2251: p_business_document_id is: ' || p_business_document_id);
945: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2252: p_business_document_version is: ' || p_business_document_version);
946: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2253: p_attached_document_id is: ' || p_attached_document_id);
947: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2254: l_effective_from_type is: ' || l_effective_from_type);
948: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2255: l_effective_from_id is: ' || l_effective_from_id);
949: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2256: l_effective_from_version is: ' || l_effective_from_version);
950: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2257: l_datatype_id is: ' || l_datatype_id);
943: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2250: p_business_document_type is: ' || p_business_document_type);
944: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2251: p_business_document_id is: ' || p_business_document_id);
945: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2252: p_business_document_version is: ' || p_business_document_version);
946: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2253: p_attached_document_id is: ' || p_attached_document_id);
947: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2254: l_effective_from_type is: ' || l_effective_from_type);
948: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2255: l_effective_from_id is: ' || l_effective_from_id);
949: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2256: l_effective_from_version is: ' || l_effective_from_version);
950: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2257: l_datatype_id is: ' || l_datatype_id);
951: END IF;
944: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2251: p_business_document_id is: ' || p_business_document_id);
945: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2252: p_business_document_version is: ' || p_business_document_version);
946: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2253: p_attached_document_id is: ' || p_attached_document_id);
947: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2254: l_effective_from_type is: ' || l_effective_from_type);
948: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2255: l_effective_from_id is: ' || l_effective_from_id);
949: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2256: l_effective_from_version is: ' || l_effective_from_version);
950: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2257: l_datatype_id is: ' || l_datatype_id);
951: END IF;
952: -- If current document, delete data in FND tables.
945: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2252: p_business_document_version is: ' || p_business_document_version);
946: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2253: p_attached_document_id is: ' || p_attached_document_id);
947: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2254: l_effective_from_type is: ' || l_effective_from_type);
948: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2255: l_effective_from_id is: ' || l_effective_from_id);
949: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2256: l_effective_from_version is: ' || l_effective_from_version);
950: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2257: l_datatype_id is: ' || l_datatype_id);
951: END IF;
952: -- If current document, delete data in FND tables.
953: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
946: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2253: p_attached_document_id is: ' || p_attached_document_id);
947: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2254: l_effective_from_type is: ' || l_effective_from_type);
948: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2255: l_effective_from_id is: ' || l_effective_from_id);
949: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2256: l_effective_from_version is: ' || l_effective_from_version);
950: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2257: l_datatype_id is: ' || l_datatype_id);
951: END IF;
952: -- If current document, delete data in FND tables.
953: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
954: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2258: Deleting FND Attachments');
949: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2256: l_effective_from_version is: ' || l_effective_from_version);
950: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2257: l_datatype_id is: ' || l_datatype_id);
951: END IF;
952: -- If current document, delete data in FND tables.
953: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
954: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2258: Deleting FND Attachments');
955: END IF;
956: -- Call FND delete attachment API to delete Media as well
957: FND_ATTACHED_DOCUMENTS3_PKG.DELETE_ROW(
950: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2257: l_datatype_id is: ' || l_datatype_id);
951: END IF;
952: -- If current document, delete data in FND tables.
953: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
954: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2258: Deleting FND Attachments');
955: END IF;
956: -- Call FND delete attachment API to delete Media as well
957: FND_ATTACHED_DOCUMENTS3_PKG.DELETE_ROW(
958: X_attached_document_id => p_attached_document_id,
985: END IF;
986: -- Standard call to get message count and if count is 1, get message info.
987: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
988:
989: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
990: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2300: Leaving Delete_Contract_Doc');
991: END IF;
992:
993: EXCEPTION
986: -- Standard call to get message count and if count is 1, get message info.
987: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
988:
989: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
990: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2300: Leaving Delete_Contract_Doc');
991: END IF;
992:
993: EXCEPTION
994: WHEN FND_API.G_EXC_ERROR THEN
991: END IF;
992:
993: EXCEPTION
994: WHEN FND_API.G_EXC_ERROR THEN
995: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
996: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2400: Leaving Delete_Contract_Doc: OKC_API.G_EXCEPTION_ERROR Exception');
997: END IF;
998: --close cursors
999: IF (fnd_attached_doc_csr%ISOPEN) THEN
992:
993: EXCEPTION
994: WHEN FND_API.G_EXC_ERROR THEN
995: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
996: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2400: Leaving Delete_Contract_Doc: OKC_API.G_EXCEPTION_ERROR Exception');
997: END IF;
998: --close cursors
999: IF (fnd_attached_doc_csr%ISOPEN) THEN
1000: CLOSE fnd_attached_doc_csr ;
1006: x_return_status := G_RET_STS_ERROR ;
1007: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1008:
1009: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1010: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1011: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2500: Leaving Delete_Contract_Doc: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
1012: END IF;
1013: IF (fnd_attached_doc_csr%ISOPEN) THEN
1014: CLOSE fnd_attached_doc_csr ;
1007: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1008:
1009: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1010: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1011: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2500: Leaving Delete_Contract_Doc: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
1012: END IF;
1013: IF (fnd_attached_doc_csr%ISOPEN) THEN
1014: CLOSE fnd_attached_doc_csr ;
1015: END IF;
1020: x_return_status := G_RET_STS_UNEXP_ERROR ;
1021: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1022:
1023: WHEN OTHERS THEN
1024: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1025: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2600: Leaving Delete_Contract_Doc because of EXCEPTION: '||sqlerrm);
1026: END IF;
1027: IF (fnd_attached_doc_csr%ISOPEN) THEN
1028: CLOSE fnd_attached_doc_csr ;
1021: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1022:
1023: WHEN OTHERS THEN
1024: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1025: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2600: Leaving Delete_Contract_Doc because of EXCEPTION: '||sqlerrm);
1026: END IF;
1027: IF (fnd_attached_doc_csr%ISOPEN) THEN
1028: CLOSE fnd_attached_doc_csr ;
1029: END IF;
1103: WHERE d.document_id = ad.document_id
1104: AND ad.attached_document_id = l_attached_document_id;
1105:
1106: BEGIN
1107: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1108: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1109: '2700: Entered Version_Attachments');
1110: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1111: '2701: p_business_document_type : ' || p_business_document_type );
1104: AND ad.attached_document_id = l_attached_document_id;
1105:
1106: BEGIN
1107: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1108: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1109: '2700: Entered Version_Attachments');
1110: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1111: '2701: p_business_document_type : ' || p_business_document_type );
1112: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1106: BEGIN
1107: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1108: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1109: '2700: Entered Version_Attachments');
1110: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1111: '2701: p_business_document_type : ' || p_business_document_type );
1112: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1113: '2702: p_business_document_id : ' || p_business_document_id );
1114: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1108: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1109: '2700: Entered Version_Attachments');
1110: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1111: '2701: p_business_document_type : ' || p_business_document_type );
1112: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1113: '2702: p_business_document_id : ' || p_business_document_id );
1114: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1115: '2703: p_business_document_version : ' || p_business_document_version );
1116: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1110: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1111: '2701: p_business_document_type : ' || p_business_document_type );
1112: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1113: '2702: p_business_document_id : ' || p_business_document_id );
1114: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1115: '2703: p_business_document_version : ' || p_business_document_version );
1116: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1117: '2704: p_include_gen_attach : ' || p_include_gen_attach );
1118: END IF;
1112: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1113: '2702: p_business_document_id : ' || p_business_document_id );
1114: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1115: '2703: p_business_document_version : ' || p_business_document_version );
1116: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1117: '2704: p_include_gen_attach : ' || p_include_gen_attach );
1118: END IF;
1119:
1120: -- Standard Start of API savepoint
1132: x_return_status := FND_API.G_RET_STS_SUCCESS;
1133:
1134: FOR attach_rec IN attach_csr(p_business_document_type, p_business_document_id,G_CURRENT_VERSION) LOOP
1135: l_non_ref_attachment_created := 'N';
1136: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1137: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2710:doc version is: ' || attach_rec.business_document_version);
1138: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2720:attch doc id is: ' || attach_rec.attached_document_id);
1139: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2730:effective_from_type is: ' || attach_rec.effective_from_type);
1140: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2730:effective_from_id is: ' || attach_rec.effective_from_id);
1133:
1134: FOR attach_rec IN attach_csr(p_business_document_type, p_business_document_id,G_CURRENT_VERSION) LOOP
1135: l_non_ref_attachment_created := 'N';
1136: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1137: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2710:doc version is: ' || attach_rec.business_document_version);
1138: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2720:attch doc id is: ' || attach_rec.attached_document_id);
1139: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2730:effective_from_type is: ' || attach_rec.effective_from_type);
1140: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2730:effective_from_id is: ' || attach_rec.effective_from_id);
1141: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2730:effective_from_version is: ' || attach_rec.effective_from_version);
1134: FOR attach_rec IN attach_csr(p_business_document_type, p_business_document_id,G_CURRENT_VERSION) LOOP
1135: l_non_ref_attachment_created := 'N';
1136: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1137: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2710:doc version is: ' || attach_rec.business_document_version);
1138: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2720:attch doc id is: ' || attach_rec.attached_document_id);
1139: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2730:effective_from_type is: ' || attach_rec.effective_from_type);
1140: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2730:effective_from_id is: ' || attach_rec.effective_from_id);
1141: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2730:effective_from_version is: ' || attach_rec.effective_from_version);
1142: END IF;
1135: l_non_ref_attachment_created := 'N';
1136: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1137: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2710:doc version is: ' || attach_rec.business_document_version);
1138: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2720:attch doc id is: ' || attach_rec.attached_document_id);
1139: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2730:effective_from_type is: ' || attach_rec.effective_from_type);
1140: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2730:effective_from_id is: ' || attach_rec.effective_from_id);
1141: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2730:effective_from_version is: ' || attach_rec.effective_from_version);
1142: END IF;
1143: -- Set the value of effective_from_version column
1136: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1137: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2710:doc version is: ' || attach_rec.business_document_version);
1138: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2720:attch doc id is: ' || attach_rec.attached_document_id);
1139: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2730:effective_from_type is: ' || attach_rec.effective_from_type);
1140: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2730:effective_from_id is: ' || attach_rec.effective_from_id);
1141: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2730:effective_from_version is: ' || attach_rec.effective_from_version);
1142: END IF;
1143: -- Set the value of effective_from_version column
1144: IF (attach_rec.effective_from_version = G_CURRENT_VERSION) THEN
1137: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2710:doc version is: ' || attach_rec.business_document_version);
1138: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2720:attch doc id is: ' || attach_rec.attached_document_id);
1139: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2730:effective_from_type is: ' || attach_rec.effective_from_type);
1140: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2730:effective_from_id is: ' || attach_rec.effective_from_id);
1141: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2730:effective_from_version is: ' || attach_rec.effective_from_version);
1142: END IF;
1143: -- Set the value of effective_from_version column
1144: IF (attach_rec.effective_from_version = G_CURRENT_VERSION) THEN
1145: l_effective_from_version := p_business_document_version;
1148: END IF; -- (attach_rec.effective_from_version = G_CURRENT_VERSION)
1149: -- Copy the existing current version attachment to the specific version
1150: IF (attach_rec.effective_from_version <> G_CURRENT_VERSION) THEN
1151: -- Create version attachment with p_parent_attached_doc_id
1152: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1153: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2731: Inserting New Ref recpord');
1154: END IF;
1155: Insert_Contract_Doc (
1156: p_api_version => l_api_version,
1149: -- Copy the existing current version attachment to the specific version
1150: IF (attach_rec.effective_from_version <> G_CURRENT_VERSION) THEN
1151: -- Create version attachment with p_parent_attached_doc_id
1152: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1153: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2731: Inserting New Ref recpord');
1154: END IF;
1155: Insert_Contract_Doc (
1156: p_api_version => l_api_version,
1157: p_init_msg_list => FND_API.G_FALSE,
1183: x_business_document_version => l_business_document_version,
1184: x_attached_document_id => l_attached_document_id);
1185: ELSE
1186: -- Create version attachment without p_parent_attached_doc_id
1187: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1188: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2732: Inserting New Non-Ref recpord');
1189: END IF;
1190: Insert_Contract_Doc (
1191: p_api_version => l_api_version,
1184: x_attached_document_id => l_attached_document_id);
1185: ELSE
1186: -- Create version attachment without p_parent_attached_doc_id
1187: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1188: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2732: Inserting New Non-Ref recpord');
1189: END IF;
1190: Insert_Contract_Doc (
1191: p_api_version => l_api_version,
1192: p_init_msg_list => FND_API.G_FALSE,
1237:
1238:
1239: IF NOT (p_include_gen_attach = 'N' AND attach_rec.generated_flag = 'Y') THEN
1240: -- Updated current version record's effective_from_version and parent_attached_doc_id columns
1241: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1242: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2733: Updating Current attachment');
1243: END IF;
1244: Update_Contract_Doc (
1245: p_api_version => l_api_version,
1238:
1239: IF NOT (p_include_gen_attach = 'N' AND attach_rec.generated_flag = 'Y') THEN
1240: -- Updated current version record's effective_from_version and parent_attached_doc_id columns
1241: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1242: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2733: Updating Current attachment');
1243: END IF;
1244: Update_Contract_Doc (
1245: p_api_version => l_api_version,
1246: p_init_msg_list => p_init_msg_list,
1275: RAISE FND_API.G_EXC_ERROR;
1276: END IF;
1277: ELSE
1278: -- Delete the current generated record.
1279: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1280: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2734: Deleting generated Current attachment');
1281: END IF;
1282:
1283: -- get the value of FND's datatype_id. Needed for
1276: END IF;
1277: ELSE
1278: -- Delete the current generated record.
1279: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1280: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2734: Deleting generated Current attachment');
1281: END IF;
1282:
1283: -- get the value of FND's datatype_id. Needed for
1284: OPEN datatype_csr(attach_rec.attached_document_id);
1286: IF(datatype_csr%NOTFOUND) THEN
1287: RAISE NO_DATA_FOUND;
1288: END IF;
1289: CLOSE datatype_csr;
1290: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1291: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2736: Deleting FND Attachments');
1292: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2735: l_datatype_id is: '
1293: || l_datatype_id);
1294: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2735: attached_document_id is: '
1287: RAISE NO_DATA_FOUND;
1288: END IF;
1289: CLOSE datatype_csr;
1290: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1291: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2736: Deleting FND Attachments');
1292: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2735: l_datatype_id is: '
1293: || l_datatype_id);
1294: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2735: attached_document_id is: '
1295: || attach_rec.attached_document_id);
1288: END IF;
1289: CLOSE datatype_csr;
1290: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1291: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2736: Deleting FND Attachments');
1292: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2735: l_datatype_id is: '
1293: || l_datatype_id);
1294: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2735: attached_document_id is: '
1295: || attach_rec.attached_document_id);
1296: END IF;
1290: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1291: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2736: Deleting FND Attachments');
1292: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2735: l_datatype_id is: '
1293: || l_datatype_id);
1294: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2735: attached_document_id is: '
1295: || attach_rec.attached_document_id);
1296: END IF;
1297: -- Call FND delete attachment API to delete just the FND_ATTACHED_DOCUMENTS record
1298: FND_ATTACHED_DOCUMENTS3_PKG.DELETE_ROW(
1299: X_attached_document_id => attach_rec.attached_document_id,
1300: X_datatype_id => l_datatype_id,
1301: delete_document_flag => 'N'); -- Don't delete FND_DOCUMENTS records
1302:
1303: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1304: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2737: Deleting OKC_CONTRACT_DOCS record');
1305: END IF;
1306: -- Delete record in OKC_CONTRACT_DOCS table
1307: OKC_CONTRACT_DOCS_PVT.Delete_Row(
1300: X_datatype_id => l_datatype_id,
1301: delete_document_flag => 'N'); -- Don't delete FND_DOCUMENTS records
1302:
1303: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1304: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2737: Deleting OKC_CONTRACT_DOCS record');
1305: END IF;
1306: -- Delete record in OKC_CONTRACT_DOCS table
1307: OKC_CONTRACT_DOCS_PVT.Delete_Row(
1308: x_return_status => l_return_status,
1324:
1325: -- Loop to delete the older ref. attachments in current version
1326: FOR ref_del_rec IN ref_del_csr(p_business_document_type, p_business_document_id,
1327: p_business_document_version, G_CURRENT_VERSION) LOOP
1328: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1329: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2740:doc version is: ' || ref_del_rec.business_document_version);
1330: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2741:attch doc id is: ' || ref_del_rec.attached_document_id);
1331: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2742:effective_from_type is: ' || ref_del_rec.effective_from_type);
1332: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2743:effective_from_id is: ' || ref_del_rec.effective_from_id);
1325: -- Loop to delete the older ref. attachments in current version
1326: FOR ref_del_rec IN ref_del_csr(p_business_document_type, p_business_document_id,
1327: p_business_document_version, G_CURRENT_VERSION) LOOP
1328: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1329: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2740:doc version is: ' || ref_del_rec.business_document_version);
1330: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2741:attch doc id is: ' || ref_del_rec.attached_document_id);
1331: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2742:effective_from_type is: ' || ref_del_rec.effective_from_type);
1332: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2743:effective_from_id is: ' || ref_del_rec.effective_from_id);
1333: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2744:effective_from_version is: ' || ref_del_rec.effective_from_version);
1326: FOR ref_del_rec IN ref_del_csr(p_business_document_type, p_business_document_id,
1327: p_business_document_version, G_CURRENT_VERSION) LOOP
1328: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1329: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2740:doc version is: ' || ref_del_rec.business_document_version);
1330: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2741:attch doc id is: ' || ref_del_rec.attached_document_id);
1331: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2742:effective_from_type is: ' || ref_del_rec.effective_from_type);
1332: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2743:effective_from_id is: ' || ref_del_rec.effective_from_id);
1333: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2744:effective_from_version is: ' || ref_del_rec.effective_from_version);
1334: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2745: Deleting OKC_CONTRACT_DOCS ref. records');
1327: p_business_document_version, G_CURRENT_VERSION) LOOP
1328: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1329: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2740:doc version is: ' || ref_del_rec.business_document_version);
1330: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2741:attch doc id is: ' || ref_del_rec.attached_document_id);
1331: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2742:effective_from_type is: ' || ref_del_rec.effective_from_type);
1332: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2743:effective_from_id is: ' || ref_del_rec.effective_from_id);
1333: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2744:effective_from_version is: ' || ref_del_rec.effective_from_version);
1334: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2745: Deleting OKC_CONTRACT_DOCS ref. records');
1335: END IF;
1328: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1329: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2740:doc version is: ' || ref_del_rec.business_document_version);
1330: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2741:attch doc id is: ' || ref_del_rec.attached_document_id);
1331: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2742:effective_from_type is: ' || ref_del_rec.effective_from_type);
1332: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2743:effective_from_id is: ' || ref_del_rec.effective_from_id);
1333: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2744:effective_from_version is: ' || ref_del_rec.effective_from_version);
1334: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2745: Deleting OKC_CONTRACT_DOCS ref. records');
1335: END IF;
1336: -- get the value of FND's datatype_id. Needed for
1329: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2740:doc version is: ' || ref_del_rec.business_document_version);
1330: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2741:attch doc id is: ' || ref_del_rec.attached_document_id);
1331: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2742:effective_from_type is: ' || ref_del_rec.effective_from_type);
1332: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2743:effective_from_id is: ' || ref_del_rec.effective_from_id);
1333: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2744:effective_from_version is: ' || ref_del_rec.effective_from_version);
1334: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2745: Deleting OKC_CONTRACT_DOCS ref. records');
1335: END IF;
1336: -- get the value of FND's datatype_id. Needed for
1337: OPEN datatype_csr(ref_del_rec.attached_document_id);
1330: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2741:attch doc id is: ' || ref_del_rec.attached_document_id);
1331: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2742:effective_from_type is: ' || ref_del_rec.effective_from_type);
1332: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2743:effective_from_id is: ' || ref_del_rec.effective_from_id);
1333: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2744:effective_from_version is: ' || ref_del_rec.effective_from_version);
1334: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2745: Deleting OKC_CONTRACT_DOCS ref. records');
1335: END IF;
1336: -- get the value of FND's datatype_id. Needed for
1337: OPEN datatype_csr(ref_del_rec.attached_document_id);
1338: FETCH datatype_csr INTO l_datatype_id;
1339: IF(datatype_csr%NOTFOUND) THEN
1340: RAISE NO_DATA_FOUND;
1341: END IF;
1342: CLOSE datatype_csr;
1343: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1344: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2746: Deleting FND Attachments');
1345: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2747: l_datatype_id is: '
1346: || l_datatype_id);
1347: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2748: attached_document_id is: '
1340: RAISE NO_DATA_FOUND;
1341: END IF;
1342: CLOSE datatype_csr;
1343: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1344: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2746: Deleting FND Attachments');
1345: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2747: l_datatype_id is: '
1346: || l_datatype_id);
1347: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2748: attached_document_id is: '
1348: || ref_del_rec.attached_document_id);
1341: END IF;
1342: CLOSE datatype_csr;
1343: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1344: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2746: Deleting FND Attachments');
1345: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2747: l_datatype_id is: '
1346: || l_datatype_id);
1347: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2748: attached_document_id is: '
1348: || ref_del_rec.attached_document_id);
1349: END IF;
1343: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1344: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2746: Deleting FND Attachments');
1345: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2747: l_datatype_id is: '
1346: || l_datatype_id);
1347: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2748: attached_document_id is: '
1348: || ref_del_rec.attached_document_id);
1349: END IF;
1350: -- Call FND delete attachment API to delete just the FND_ATTACHED_DOCUMENTS record
1351: FND_ATTACHED_DOCUMENTS3_PKG.DELETE_ROW(
1375: END IF;
1376: -- Standard call to get message count and if count is 1, get message info.
1377: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1378:
1379: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1380: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2800: Leaving Version_Attachments');
1381: END IF;
1382:
1383: EXCEPTION
1376: -- Standard call to get message count and if count is 1, get message info.
1377: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1378:
1379: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1380: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2800: Leaving Version_Attachments');
1381: END IF;
1382:
1383: EXCEPTION
1384: WHEN FND_API.G_EXC_ERROR THEN
1381: END IF;
1382:
1383: EXCEPTION
1384: WHEN FND_API.G_EXC_ERROR THEN
1385: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1386: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2900: Leaving Version_Attachments: OKC_API.G_EXCEPTION_ERROR Exception');
1387: END IF;
1388: IF (datatype_csr%ISOPEN) THEN
1389: CLOSE datatype_csr ;
1382:
1383: EXCEPTION
1384: WHEN FND_API.G_EXC_ERROR THEN
1385: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1386: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2900: Leaving Version_Attachments: OKC_API.G_EXCEPTION_ERROR Exception');
1387: END IF;
1388: IF (datatype_csr%ISOPEN) THEN
1389: CLOSE datatype_csr ;
1390: END IF;
1392: x_return_status := G_RET_STS_ERROR ;
1393: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1394:
1395: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1396: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1397: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3000: Leaving Version_Attachments: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
1398: END IF;
1399: IF (datatype_csr%ISOPEN) THEN
1400: CLOSE datatype_csr ;
1393: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1394:
1395: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1396: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1397: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3000: Leaving Version_Attachments: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
1398: END IF;
1399: IF (datatype_csr%ISOPEN) THEN
1400: CLOSE datatype_csr ;
1401: END IF;
1403: x_return_status := G_RET_STS_UNEXP_ERROR ;
1404: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1405:
1406: WHEN OTHERS THEN
1407: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1408: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3100: Leaving Version_Attachments because of EXCEPTION: '||sqlerrm);
1409: END IF;
1410: IF (datatype_csr%ISOPEN) THEN
1411: CLOSE datatype_csr ;
1404: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1405:
1406: WHEN OTHERS THEN
1407: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1408: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3100: Leaving Version_Attachments because of EXCEPTION: '||sqlerrm);
1409: END IF;
1410: IF (datatype_csr%ISOPEN) THEN
1411: CLOSE datatype_csr ;
1412: END IF;
1459: AND business_document_version = l_bus_doc_version;
1460:
1461:
1462: BEGIN
1463: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1464: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1465: '3200: Entered Delete_Ver_Attachments');
1466: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1467: '3201: p_business_document_type : ' || p_business_document_type );
1460:
1461:
1462: BEGIN
1463: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1464: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1465: '3200: Entered Delete_Ver_Attachments');
1466: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1467: '3201: p_business_document_type : ' || p_business_document_type );
1468: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1462: BEGIN
1463: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1464: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1465: '3200: Entered Delete_Ver_Attachments');
1466: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1467: '3201: p_business_document_type : ' || p_business_document_type );
1468: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1469: '3202: p_business_document_id : ' || p_business_document_id );
1470: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1464: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1465: '3200: Entered Delete_Ver_Attachments');
1466: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1467: '3201: p_business_document_type : ' || p_business_document_type );
1468: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1469: '3202: p_business_document_id : ' || p_business_document_id );
1470: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1471: '3203: p_business_document_version : ' || p_business_document_version );
1472: END IF;
1466: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1467: '3201: p_business_document_type : ' || p_business_document_type );
1468: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1469: '3202: p_business_document_id : ' || p_business_document_id );
1470: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1471: '3203: p_business_document_version : ' || p_business_document_version );
1472: END IF;
1473:
1474: -- Standard Start of API savepoint
1487: x_return_status := FND_API.G_RET_STS_SUCCESS;
1488:
1489: FOR attach_rec IN attach_csr(p_business_document_type, p_business_document_id,
1490: p_business_document_version) LOOP
1491: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1492: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3210:doc version is: ' || attach_rec.business_document_version);
1493: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3220:attch doc id is: ' || attach_rec.attached_document_id);
1494: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3230:effective_from_version is: ' || attach_rec.effective_from_version);
1495: END IF;
1488:
1489: FOR attach_rec IN attach_csr(p_business_document_type, p_business_document_id,
1490: p_business_document_version) LOOP
1491: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1492: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3210:doc version is: ' || attach_rec.business_document_version);
1493: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3220:attch doc id is: ' || attach_rec.attached_document_id);
1494: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3230:effective_from_version is: ' || attach_rec.effective_from_version);
1495: END IF;
1496:
1489: FOR attach_rec IN attach_csr(p_business_document_type, p_business_document_id,
1490: p_business_document_version) LOOP
1491: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1492: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3210:doc version is: ' || attach_rec.business_document_version);
1493: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3220:attch doc id is: ' || attach_rec.attached_document_id);
1494: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3230:effective_from_version is: ' || attach_rec.effective_from_version);
1495: END IF;
1496:
1497: -- Delete OKC_CONTRACT_DOCS record
1490: p_business_document_version) LOOP
1491: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1492: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3210:doc version is: ' || attach_rec.business_document_version);
1493: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3220:attch doc id is: ' || attach_rec.attached_document_id);
1494: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3230:effective_from_version is: ' || attach_rec.effective_from_version);
1495: END IF;
1496:
1497: -- Delete OKC_CONTRACT_DOCS record
1498: Delete_Contract_Doc (
1523: END IF;
1524: -- Standard call to get message count and if count is 1, get message info.
1525: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1526:
1527: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1528: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3300: Leaving Delete_Ver_Attachments');
1529: END IF;
1530:
1531: EXCEPTION
1524: -- Standard call to get message count and if count is 1, get message info.
1525: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1526:
1527: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1528: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3300: Leaving Delete_Ver_Attachments');
1529: END IF;
1530:
1531: EXCEPTION
1532: WHEN FND_API.G_EXC_ERROR THEN
1529: END IF;
1530:
1531: EXCEPTION
1532: WHEN FND_API.G_EXC_ERROR THEN
1533: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1534: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3400: Leaving Delete_Ver_Attachments: OKC_API.G_EXCEPTION_ERROR Exception');
1535: END IF;
1536: ROLLBACK TO Delete_Ver_Attachments_GRP;
1537: x_return_status := G_RET_STS_ERROR ;
1530:
1531: EXCEPTION
1532: WHEN FND_API.G_EXC_ERROR THEN
1533: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1534: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3400: Leaving Delete_Ver_Attachments: OKC_API.G_EXCEPTION_ERROR Exception');
1535: END IF;
1536: ROLLBACK TO Delete_Ver_Attachments_GRP;
1537: x_return_status := G_RET_STS_ERROR ;
1538: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1537: x_return_status := G_RET_STS_ERROR ;
1538: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1539:
1540: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1541: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1542: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3500: Leaving Delete_Ver_Attachments: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
1543: END IF;
1544: ROLLBACK TO Delete_Ver_Attachments_GRP;
1545: x_return_status := G_RET_STS_UNEXP_ERROR ;
1538: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1539:
1540: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1541: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1542: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3500: Leaving Delete_Ver_Attachments: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
1543: END IF;
1544: ROLLBACK TO Delete_Ver_Attachments_GRP;
1545: x_return_status := G_RET_STS_UNEXP_ERROR ;
1546: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1545: x_return_status := G_RET_STS_UNEXP_ERROR ;
1546: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1547:
1548: WHEN OTHERS THEN
1549: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1550: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3600: Leaving Delete_Ver_Attachments because of EXCEPTION: '||sqlerrm);
1551: END IF;
1552:
1553: ROLLBACK TO Delete_Ver_Attachments_GRP;
1546: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1547:
1548: WHEN OTHERS THEN
1549: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1550: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3600: Leaving Delete_Ver_Attachments because of EXCEPTION: '||sqlerrm);
1551: END IF;
1552:
1553: ROLLBACK TO Delete_Ver_Attachments_GRP;
1554: x_return_status := G_RET_STS_UNEXP_ERROR ;
1596: ORDER by business_document_version DESC ;
1597:
1598:
1599: BEGIN
1600: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1601: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1602: '3900: Entered Delete_Doc_Attachments');
1603: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1604: '3901: p_business_document_type: ' || p_business_document_type);
1597:
1598:
1599: BEGIN
1600: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1601: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1602: '3900: Entered Delete_Doc_Attachments');
1603: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1604: '3901: p_business_document_type: ' || p_business_document_type);
1605: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1599: BEGIN
1600: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1601: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1602: '3900: Entered Delete_Doc_Attachments');
1603: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1604: '3901: p_business_document_type: ' || p_business_document_type);
1605: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1606: '3902: p_business_document_id: ' || p_business_document_id);
1607: END IF;
1601: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1602: '3900: Entered Delete_Doc_Attachments');
1603: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1604: '3901: p_business_document_type: ' || p_business_document_type);
1605: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1606: '3902: p_business_document_id: ' || p_business_document_id);
1607: END IF;
1608:
1609: -- Standard Start of API savepoint
1675: END IF;
1676: -- Standard call to get message count and if count is 1, get message info.
1677: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1678:
1679: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1680: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3900: Leaving Delete_Doc_Attachments');
1681: END IF;
1682:
1683: EXCEPTION
1676: -- Standard call to get message count and if count is 1, get message info.
1677: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1678:
1679: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1680: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3900: Leaving Delete_Doc_Attachments');
1681: END IF;
1682:
1683: EXCEPTION
1684: WHEN FND_API.G_EXC_ERROR THEN
1681: END IF;
1682:
1683: EXCEPTION
1684: WHEN FND_API.G_EXC_ERROR THEN
1685: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1686: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4000: Leaving Delete_Doc_Attachments: OKC_API.G_EXCEPTION_ERROR Exception');
1687: END IF;
1688: ROLLBACK TO Delete_Doc_Attachments_GRP;
1689: x_return_status := G_RET_STS_ERROR ;
1682:
1683: EXCEPTION
1684: WHEN FND_API.G_EXC_ERROR THEN
1685: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1686: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4000: Leaving Delete_Doc_Attachments: OKC_API.G_EXCEPTION_ERROR Exception');
1687: END IF;
1688: ROLLBACK TO Delete_Doc_Attachments_GRP;
1689: x_return_status := G_RET_STS_ERROR ;
1690: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1689: x_return_status := G_RET_STS_ERROR ;
1690: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1691:
1692: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1693: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1694: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4100: Leaving Delete_Doc_Attachments: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
1695: END IF;
1696: ROLLBACK TO Delete_Doc_Attachments_GRP;
1697: x_return_status := G_RET_STS_UNEXP_ERROR ;
1690: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1691:
1692: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1693: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1694: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4100: Leaving Delete_Doc_Attachments: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
1695: END IF;
1696: ROLLBACK TO Delete_Doc_Attachments_GRP;
1697: x_return_status := G_RET_STS_UNEXP_ERROR ;
1698: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1697: x_return_status := G_RET_STS_UNEXP_ERROR ;
1698: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1699:
1700: WHEN OTHERS THEN
1701: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1702: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4200: Leaving Delete_Doc_Attachments because of EXCEPTION: '||sqlerrm);
1703: END IF;
1704:
1705: ROLLBACK TO Delete_Doc_Attachments_GRP;
1698: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1699:
1700: WHEN OTHERS THEN
1701: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1702: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4200: Leaving Delete_Doc_Attachments because of EXCEPTION: '||sqlerrm);
1703: END IF;
1704:
1705: ROLLBACK TO Delete_Doc_Attachments_GRP;
1706: x_return_status := G_RET_STS_UNEXP_ERROR ;
1825: CURSOR category_csr4 IS
1826: SELECT category_id from FND_DOCUMENT_CATEGORIES
1827: WHERE name like 'OKC_REPO_%';
1828: BEGIN
1829: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1830: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1831: '4800: Entered Copy_Attachment_Docs');
1832: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1833: '4801: p_from_bus_doc_type: ' || p_from_bus_doc_type);
1826: SELECT category_id from FND_DOCUMENT_CATEGORIES
1827: WHERE name like 'OKC_REPO_%';
1828: BEGIN
1829: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1830: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1831: '4800: Entered Copy_Attachment_Docs');
1832: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1833: '4801: p_from_bus_doc_type: ' || p_from_bus_doc_type);
1834: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1828: BEGIN
1829: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1830: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1831: '4800: Entered Copy_Attachment_Docs');
1832: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1833: '4801: p_from_bus_doc_type: ' || p_from_bus_doc_type);
1834: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1835: '4802: p_from_bus_doc_id: ' || p_from_bus_doc_id);
1836: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1830: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1831: '4800: Entered Copy_Attachment_Docs');
1832: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1833: '4801: p_from_bus_doc_type: ' || p_from_bus_doc_type);
1834: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1835: '4802: p_from_bus_doc_id: ' || p_from_bus_doc_id);
1836: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1837: '4803: p_from_bus_doc_version: ' || p_from_bus_doc_version);
1838: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1832: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1833: '4801: p_from_bus_doc_type: ' || p_from_bus_doc_type);
1834: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1835: '4802: p_from_bus_doc_id: ' || p_from_bus_doc_id);
1836: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1837: '4803: p_from_bus_doc_version: ' || p_from_bus_doc_version);
1838: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1839: '4804: p_to_bus_doc_type: ' || p_to_bus_doc_type);
1840: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1834: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1835: '4802: p_from_bus_doc_id: ' || p_from_bus_doc_id);
1836: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1837: '4803: p_from_bus_doc_version: ' || p_from_bus_doc_version);
1838: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1839: '4804: p_to_bus_doc_type: ' || p_to_bus_doc_type);
1840: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1841: '4805: p_to_bus_doc_id: ' || p_to_bus_doc_id);
1842: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1836: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1837: '4803: p_from_bus_doc_version: ' || p_from_bus_doc_version);
1838: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1839: '4804: p_to_bus_doc_type: ' || p_to_bus_doc_type);
1840: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1841: '4805: p_to_bus_doc_id: ' || p_to_bus_doc_id);
1842: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1843: '4806: p_to_bus_doc_version: ' || p_to_bus_doc_version);
1844: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1838: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1839: '4804: p_to_bus_doc_type: ' || p_to_bus_doc_type);
1840: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1841: '4805: p_to_bus_doc_id: ' || p_to_bus_doc_id);
1842: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1843: '4806: p_to_bus_doc_version: ' || p_to_bus_doc_version);
1844: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1845: '4807: p_copy_primary_doc_flag: ' || p_copy_primary_doc_flag);
1846: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1840: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1841: '4805: p_to_bus_doc_id: ' || p_to_bus_doc_id);
1842: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1843: '4806: p_to_bus_doc_version: ' || p_to_bus_doc_version);
1844: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1845: '4807: p_copy_primary_doc_flag: ' || p_copy_primary_doc_flag);
1846: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1847: '4808: p_copy_for_amendment: ' || p_copy_for_amendment);
1848: END IF;
1842: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1843: '4806: p_to_bus_doc_version: ' || p_to_bus_doc_version);
1844: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1845: '4807: p_copy_primary_doc_flag: ' || p_copy_primary_doc_flag);
1846: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1847: '4808: p_copy_for_amendment: ' || p_copy_for_amendment);
1848: END IF;
1849:
1850: -- Standard call to check for call compatibility.
1860:
1861:
1862: FOR category_rec2 IN category_csr2
1863: LOOP
1864: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1865: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4820: Category Id : ' || category_rec2.category_id);
1866: END IF;
1867: -- Copy FND Attachments. Program Id is set to -9999.
1868: FND_ATTACHED_DOCUMENTS2_PKG.Copy_Attachments(
1861:
1862: FOR category_rec2 IN category_csr2
1863: LOOP
1864: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1865: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4820: Category Id : ' || category_rec2.category_id);
1866: END IF;
1867: -- Copy FND Attachments. Program Id is set to -9999.
1868: FND_ATTACHED_DOCUMENTS2_PKG.Copy_Attachments(
1869: X_from_entity_name => G_ATTACH_ENTITY_NAME,
1880: END LOOP; -- category_rec2 IN category_csr2
1881: ELSIF (p_copy_primary_doc_flag = 'Y') THEN -- Copy Contract caregory only
1882: FOR category_rec3 IN category_csr3
1883: LOOP
1884: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1885: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4820: Category Id : ' || category_rec3.category_id);
1886: END IF;
1887: -- Copy FND Attachments. Program Id is set to -9999.
1888: FND_ATTACHED_DOCUMENTS2_PKG.Copy_Attachments(
1881: ELSIF (p_copy_primary_doc_flag = 'Y') THEN -- Copy Contract caregory only
1882: FOR category_rec3 IN category_csr3
1883: LOOP
1884: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1885: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4820: Category Id : ' || category_rec3.category_id);
1886: END IF;
1887: -- Copy FND Attachments. Program Id is set to -9999.
1888: FND_ATTACHED_DOCUMENTS2_PKG.Copy_Attachments(
1889: X_from_entity_name => G_ATTACH_ENTITY_NAME,
1899: X_to_category_id => category_rec3.category_id);
1900: END LOOP; -- category_rec3 IN category_csr3
1901: ELSIF (p_from_bus_doc_type = p_to_bus_doc_type) THEN
1902: FND_PROFILE.GET(NAME => G_COPY_ALL_DOCS, VAL => l_copy_all_docs_yn);
1903: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1904: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1905: 'Profile OKC_REP_COPY_ALL_CON_DOCS value is: '||l_copy_all_docs_yn);
1906: END IF;
1907: IF (l_copy_all_docs_yn = 'Y') THEN -- Need to copy all seeded and custom categories.
1900: END LOOP; -- category_rec3 IN category_csr3
1901: ELSIF (p_from_bus_doc_type = p_to_bus_doc_type) THEN
1902: FND_PROFILE.GET(NAME => G_COPY_ALL_DOCS, VAL => l_copy_all_docs_yn);
1903: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1904: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1905: 'Profile OKC_REP_COPY_ALL_CON_DOCS value is: '||l_copy_all_docs_yn);
1906: END IF;
1907: IF (l_copy_all_docs_yn = 'Y') THEN -- Need to copy all seeded and custom categories.
1908:
1937: END IF;
1938:
1939: FOR category_rec4 IN category_csr4
1940: LOOP
1941: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1942: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4820: Category Id : ' || category_rec4.category_id);
1943: END IF;
1944: -- Copy FND Attachments. Program Id is set to -9999.
1945: FND_ATTACHED_DOCUMENTS2_PKG.Copy_Attachments(
1938:
1939: FOR category_rec4 IN category_csr4
1940: LOOP
1941: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1942: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4820: Category Id : ' || category_rec4.category_id);
1943: END IF;
1944: -- Copy FND Attachments. Program Id is set to -9999.
1945: FND_ATTACHED_DOCUMENTS2_PKG.Copy_Attachments(
1946: X_from_entity_name => G_ATTACH_ENTITY_NAME,
1957: END LOOP; -- category_rec4 IN category_csr4
1958: ELSE
1959: FOR category_rec1 IN category_csr1 -- Copy only contract and supporting documents
1960: LOOP
1961: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1962: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4820: Category Id : ' || category_rec1.category_id);
1963: END IF;
1964: -- Copy FND Attachments. Program Id is set to -9999.
1965: FND_ATTACHED_DOCUMENTS2_PKG.Copy_Attachments(
1958: ELSE
1959: FOR category_rec1 IN category_csr1 -- Copy only contract and supporting documents
1960: LOOP
1961: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1962: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4820: Category Id : ' || category_rec1.category_id);
1963: END IF;
1964: -- Copy FND Attachments. Program Id is set to -9999.
1965: FND_ATTACHED_DOCUMENTS2_PKG.Copy_Attachments(
1966: X_from_entity_name => G_ATTACH_ENTITY_NAME,
1978: END IF; -- l_copy_all_docs_yn = 'Y
1979: ELSE -- Copy all categories
1980: FOR category_rec2 IN category_csr2
1981: LOOP
1982: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1983: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4820: Category Id : ' || category_rec2.category_id);
1984: END IF;
1985: -- Copy FND Attachments. Program Id is set to -9999.
1986: FND_ATTACHED_DOCUMENTS2_PKG.Copy_Attachments(
1979: ELSE -- Copy all categories
1980: FOR category_rec2 IN category_csr2
1981: LOOP
1982: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1983: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4820: Category Id : ' || category_rec2.category_id);
1984: END IF;
1985: -- Copy FND Attachments. Program Id is set to -9999.
1986: FND_ATTACHED_DOCUMENTS2_PKG.Copy_Attachments(
1987: X_from_entity_name => G_ATTACH_ENTITY_NAME,
2003: l_from_bus_doc_version_latest, p_to_bus_doc_type, p_to_bus_doc_id,
2004: p_to_bus_doc_version, G_ATTACH_ENTITY_NAME, G_COPY_PROGRAM_ID)
2005: LOOP
2006:
2007: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2008: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4830:doc type is: ' || p_to_bus_doc_type);
2009: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4831:doc id is: ' || p_to_bus_doc_id);
2010: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4832:doc version is: ' || p_to_bus_doc_version);
2011: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4833:The attached_doc_id being copied is: '
2004: p_to_bus_doc_version, G_ATTACH_ENTITY_NAME, G_COPY_PROGRAM_ID)
2005: LOOP
2006:
2007: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2008: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4830:doc type is: ' || p_to_bus_doc_type);
2009: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4831:doc id is: ' || p_to_bus_doc_id);
2010: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4832:doc version is: ' || p_to_bus_doc_version);
2011: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4833:The attached_doc_id being copied is: '
2012: || attach_rec.from_attached_document_id);
2005: LOOP
2006:
2007: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2008: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4830:doc type is: ' || p_to_bus_doc_type);
2009: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4831:doc id is: ' || p_to_bus_doc_id);
2010: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4832:doc version is: ' || p_to_bus_doc_version);
2011: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4833:The attached_doc_id being copied is: '
2012: || attach_rec.from_attached_document_id);
2013: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4834:The new attached_doc_id is: '
2006:
2007: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2008: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4830:doc type is: ' || p_to_bus_doc_type);
2009: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4831:doc id is: ' || p_to_bus_doc_id);
2010: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4832:doc version is: ' || p_to_bus_doc_version);
2011: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4833:The attached_doc_id being copied is: '
2012: || attach_rec.from_attached_document_id);
2013: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4834:The new attached_doc_id is: '
2014: || attach_rec.to_attached_document_id);
2007: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2008: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4830:doc type is: ' || p_to_bus_doc_type);
2009: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4831:doc id is: ' || p_to_bus_doc_id);
2010: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4832:doc version is: ' || p_to_bus_doc_version);
2011: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4833:The attached_doc_id being copied is: '
2012: || attach_rec.from_attached_document_id);
2013: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4834:The new attached_doc_id is: '
2014: || attach_rec.to_attached_document_id);
2015: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4835:The delete_flag is: '
2009: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4831:doc id is: ' || p_to_bus_doc_id);
2010: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4832:doc version is: ' || p_to_bus_doc_version);
2011: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4833:The attached_doc_id being copied is: '
2012: || attach_rec.from_attached_document_id);
2013: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4834:The new attached_doc_id is: '
2014: || attach_rec.to_attached_document_id);
2015: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4835:The delete_flag is: '
2016: || attach_rec.delete_flag);
2017: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4836:The generated_flag is: '
2011: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4833:The attached_doc_id being copied is: '
2012: || attach_rec.from_attached_document_id);
2013: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4834:The new attached_doc_id is: '
2014: || attach_rec.to_attached_document_id);
2015: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4835:The delete_flag is: '
2016: || attach_rec.delete_flag);
2017: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4836:The generated_flag is: '
2018: || attach_rec.generated_flag);
2019: END IF;
2013: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4834:The new attached_doc_id is: '
2014: || attach_rec.to_attached_document_id);
2015: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4835:The delete_flag is: '
2016: || attach_rec.delete_flag);
2017: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4836:The generated_flag is: '
2018: || attach_rec.generated_flag);
2019: END IF;
2020: Insert_Contract_Doc (
2021: p_api_version => l_api_version,
2057:
2058: -- Standard call to get message count and if count is 1, get message info.
2059: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
2060:
2061: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2062: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4900: Leaving Copy_Attachment_Docs');
2063: END IF;
2064:
2065: EXCEPTION
2058: -- Standard call to get message count and if count is 1, get message info.
2059: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
2060:
2061: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2062: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4900: Leaving Copy_Attachment_Docs');
2063: END IF;
2064:
2065: EXCEPTION
2066: WHEN FND_API.G_EXC_ERROR THEN
2063: END IF;
2064:
2065: EXCEPTION
2066: WHEN FND_API.G_EXC_ERROR THEN
2067: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2068: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4840: Leaving Copy_Attachment_Docs: OKC_API.G_EXCEPTION_ERROR Exception');
2069: END IF;
2070:
2071: --Bug 6468721
2064:
2065: EXCEPTION
2066: WHEN FND_API.G_EXC_ERROR THEN
2067: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2068: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4840: Leaving Copy_Attachment_Docs: OKC_API.G_EXCEPTION_ERROR Exception');
2069: END IF;
2070:
2071: --Bug 6468721
2072: IF (doc_version_view_name_csr%ISOPEN) THEN
2076: x_return_status := G_RET_STS_ERROR ;
2077: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
2078:
2079: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2080: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2081: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4841: Leaving Copy_Attachment_Docs: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
2082: END IF;
2083:
2084: --Bug 6468721
2077: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
2078:
2079: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2080: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2081: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4841: Leaving Copy_Attachment_Docs: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
2082: END IF;
2083:
2084: --Bug 6468721
2085: IF (doc_version_view_name_csr%ISOPEN) THEN
2089: x_return_status := G_RET_STS_UNEXP_ERROR ;
2090: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
2091:
2092: WHEN OTHERS THEN
2093: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2094: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'482: Leaving Copy_Attachment_Docs because of EXCEPTION: '||sqlerrm);
2095: END IF;
2096:
2097: --Bug 6468721
2090: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
2091:
2092: WHEN OTHERS THEN
2093: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2094: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'482: Leaving Copy_Attachment_Docs because of EXCEPTION: '||sqlerrm);
2095: END IF;
2096:
2097: --Bug 6468721
2098: IF (doc_version_view_name_csr%ISOPEN) THEN
2175: AND fad.document_id = fd.document_id
2176: AND fd.category_id = fdc.category_id;
2177:
2178: BEGIN
2179: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2180: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2181: '5000: Entered Copy_Attachment_Refs');
2182: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2183: '5001: p_from_bus_doc_type: ' || p_from_bus_doc_type);
2176: AND fd.category_id = fdc.category_id;
2177:
2178: BEGIN
2179: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2180: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2181: '5000: Entered Copy_Attachment_Refs');
2182: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2183: '5001: p_from_bus_doc_type: ' || p_from_bus_doc_type);
2184: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2178: BEGIN
2179: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2180: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2181: '5000: Entered Copy_Attachment_Refs');
2182: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2183: '5001: p_from_bus_doc_type: ' || p_from_bus_doc_type);
2184: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2185: '5002: p_from_bus_doc_id: ' || p_from_bus_doc_id);
2186: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2180: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2181: '5000: Entered Copy_Attachment_Refs');
2182: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2183: '5001: p_from_bus_doc_type: ' || p_from_bus_doc_type);
2184: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2185: '5002: p_from_bus_doc_id: ' || p_from_bus_doc_id);
2186: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2187: '5003: p_from_bus_doc_version: ' || p_from_bus_doc_version);
2188: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2182: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2183: '5001: p_from_bus_doc_type: ' || p_from_bus_doc_type);
2184: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2185: '5002: p_from_bus_doc_id: ' || p_from_bus_doc_id);
2186: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2187: '5003: p_from_bus_doc_version: ' || p_from_bus_doc_version);
2188: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2189: '5004: p_to_bus_doc_type: ' || p_to_bus_doc_type);
2190: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2184: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2185: '5002: p_from_bus_doc_id: ' || p_from_bus_doc_id);
2186: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2187: '5003: p_from_bus_doc_version: ' || p_from_bus_doc_version);
2188: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2189: '5004: p_to_bus_doc_type: ' || p_to_bus_doc_type);
2190: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2191: '5005: p_to_bus_doc_id: ' || p_to_bus_doc_id);
2192: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2186: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2187: '5003: p_from_bus_doc_version: ' || p_from_bus_doc_version);
2188: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2189: '5004: p_to_bus_doc_type: ' || p_to_bus_doc_type);
2190: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2191: '5005: p_to_bus_doc_id: ' || p_to_bus_doc_id);
2192: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2193: '5006: p_to_bus_doc_version: ' || p_to_bus_doc_version);
2194: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2188: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2189: '5004: p_to_bus_doc_type: ' || p_to_bus_doc_type);
2190: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2191: '5005: p_to_bus_doc_id: ' || p_to_bus_doc_id);
2192: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2193: '5006: p_to_bus_doc_version: ' || p_to_bus_doc_version);
2194: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2195: '5007: p_copy_primary_doc_flag: ' || p_copy_primary_doc_flag);
2196: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2190: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2191: '5005: p_to_bus_doc_id: ' || p_to_bus_doc_id);
2192: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2193: '5006: p_to_bus_doc_version: ' || p_to_bus_doc_version);
2194: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2195: '5007: p_copy_primary_doc_flag: ' || p_copy_primary_doc_flag);
2196: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2197: '5008: p_copy_for_amendment: ' || p_copy_for_amendment);
2198: END IF;
2192: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2193: '5006: p_to_bus_doc_version: ' || p_to_bus_doc_version);
2194: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2195: '5007: p_copy_primary_doc_flag: ' || p_copy_primary_doc_flag);
2196: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2197: '5008: p_copy_for_amendment: ' || p_copy_for_amendment);
2198: END IF;
2199:
2200: -- Standard call to check for call compatibility.
2209: -- Loop through the existing attachments to create new attachments
2210: FOR attach_rec IN attach_csr(p_from_bus_doc_type, p_from_bus_doc_id,
2211: p_from_bus_doc_version)
2212: LOOP
2213: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2214: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5030:doc type is: ' || p_to_bus_doc_type);
2215: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5040:doc id is: ' || p_to_bus_doc_id);
2216: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5050:doc version is: ' || p_to_bus_doc_version);
2217: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5060:attached_document_id is: ' || attach_rec.attached_document_id);
2210: FOR attach_rec IN attach_csr(p_from_bus_doc_type, p_from_bus_doc_id,
2211: p_from_bus_doc_version)
2212: LOOP
2213: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2214: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5030:doc type is: ' || p_to_bus_doc_type);
2215: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5040:doc id is: ' || p_to_bus_doc_id);
2216: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5050:doc version is: ' || p_to_bus_doc_version);
2217: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5060:attached_document_id is: ' || attach_rec.attached_document_id);
2218: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5070:effective_from_version is: ' || attach_rec.effective_from_version);
2211: p_from_bus_doc_version)
2212: LOOP
2213: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2214: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5030:doc type is: ' || p_to_bus_doc_type);
2215: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5040:doc id is: ' || p_to_bus_doc_id);
2216: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5050:doc version is: ' || p_to_bus_doc_version);
2217: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5060:attached_document_id is: ' || attach_rec.attached_document_id);
2218: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5070:effective_from_version is: ' || attach_rec.effective_from_version);
2219: END IF;
2212: LOOP
2213: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2214: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5030:doc type is: ' || p_to_bus_doc_type);
2215: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5040:doc id is: ' || p_to_bus_doc_id);
2216: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5050:doc version is: ' || p_to_bus_doc_version);
2217: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5060:attached_document_id is: ' || attach_rec.attached_document_id);
2218: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5070:effective_from_version is: ' || attach_rec.effective_from_version);
2219: END IF;
2220: -- Get the category name of the attachment being copied.
2213: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2214: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5030:doc type is: ' || p_to_bus_doc_type);
2215: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5040:doc id is: ' || p_to_bus_doc_id);
2216: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5050:doc version is: ' || p_to_bus_doc_version);
2217: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5060:attached_document_id is: ' || attach_rec.attached_document_id);
2218: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5070:effective_from_version is: ' || attach_rec.effective_from_version);
2219: END IF;
2220: -- Get the category name of the attachment being copied.
2221: OPEN category_csr(attach_rec.attached_document_id);
2214: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5030:doc type is: ' || p_to_bus_doc_type);
2215: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5040:doc id is: ' || p_to_bus_doc_id);
2216: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5050:doc version is: ' || p_to_bus_doc_version);
2217: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5060:attached_document_id is: ' || attach_rec.attached_document_id);
2218: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5070:effective_from_version is: ' || attach_rec.effective_from_version);
2219: END IF;
2220: -- Get the category name of the attachment being copied.
2221: OPEN category_csr(attach_rec.attached_document_id);
2222: FETCH category_csr INTO l_category_name;
2223: IF(category_csr%NOTFOUND) THEN
2224: RAISE NO_DATA_FOUND;
2225: END IF;
2226:
2227: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2228: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5071: Category name is: ' || l_category_name);
2229: END IF;
2230:
2231: -- Insert the record in OKC_CONTRACT_DOCS
2224: RAISE NO_DATA_FOUND;
2225: END IF;
2226:
2227: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2228: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5071: Category name is: ' || l_category_name);
2229: END IF;
2230:
2231: -- Insert the record in OKC_CONTRACT_DOCS
2232: -- If p_copy_for_amendment = 'Y' copy everything
2287:
2288:
2289: -- Standard call to get message count and if count is 1, get message info.
2290: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
2291: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2292: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5100: Leaving Copy_Attachment_Refs');
2293: END IF;
2294:
2295: EXCEPTION
2288:
2289: -- Standard call to get message count and if count is 1, get message info.
2290: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
2291: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2292: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5100: Leaving Copy_Attachment_Refs');
2293: END IF;
2294:
2295: EXCEPTION
2296: WHEN FND_API.G_EXC_ERROR THEN
2293: END IF;
2294:
2295: EXCEPTION
2296: WHEN FND_API.G_EXC_ERROR THEN
2297: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2298: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5081: Leaving Copy_Attachment_Refs: OKC_API.G_EXCEPTION_ERROR Exception');
2299: END IF;
2300: IF (category_csr%ISOPEN) THEN
2301: CLOSE category_csr ;
2294:
2295: EXCEPTION
2296: WHEN FND_API.G_EXC_ERROR THEN
2297: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2298: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5081: Leaving Copy_Attachment_Refs: OKC_API.G_EXCEPTION_ERROR Exception');
2299: END IF;
2300: IF (category_csr%ISOPEN) THEN
2301: CLOSE category_csr ;
2302: END IF;
2303: x_return_status := G_RET_STS_ERROR ;
2304: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
2305:
2306: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2307: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2308: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5082: Leaving Copy_Attachment_Refs: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
2309: END IF;
2310: IF (category_csr%ISOPEN) THEN
2311: CLOSE category_csr ;
2304: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
2305:
2306: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2307: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2308: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5082: Leaving Copy_Attachment_Refs: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
2309: END IF;
2310: IF (category_csr%ISOPEN) THEN
2311: CLOSE category_csr ;
2312: END IF;
2313: x_return_status := G_RET_STS_UNEXP_ERROR ;
2314: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
2315:
2316: WHEN OTHERS THEN
2317: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2318: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5083: Leaving Copy_Attachment_Refs because of EXCEPTION: '||sqlerrm);
2319: END IF;
2320: IF (category_csr%ISOPEN) THEN
2321: CLOSE category_csr ;
2314: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
2315:
2316: WHEN OTHERS THEN
2317: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2318: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5083: Leaving Copy_Attachment_Refs because of EXCEPTION: '||sqlerrm);
2319: END IF;
2320: IF (category_csr%ISOPEN) THEN
2321: CLOSE category_csr ;
2322: END IF;
2377: l_api_version NUMBER:= 1;
2378:
2379:
2380: BEGIN
2381: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2382: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2383: '5100: Entered Copy_Attachments');
2384: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2385: '5101: p_from_bus_doc_type: ' || p_from_bus_doc_type);
2378:
2379:
2380: BEGIN
2381: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2382: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2383: '5100: Entered Copy_Attachments');
2384: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2385: '5101: p_from_bus_doc_type: ' || p_from_bus_doc_type);
2386: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2380: BEGIN
2381: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2382: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2383: '5100: Entered Copy_Attachments');
2384: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2385: '5101: p_from_bus_doc_type: ' || p_from_bus_doc_type);
2386: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2387: '5102: p_from_bus_doc_id: ' || p_from_bus_doc_id);
2388: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2382: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2383: '5100: Entered Copy_Attachments');
2384: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2385: '5101: p_from_bus_doc_type: ' || p_from_bus_doc_type);
2386: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2387: '5102: p_from_bus_doc_id: ' || p_from_bus_doc_id);
2388: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2389: '5103: p_from_bus_doc_version: ' || p_from_bus_doc_version);
2390: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2384: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2385: '5101: p_from_bus_doc_type: ' || p_from_bus_doc_type);
2386: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2387: '5102: p_from_bus_doc_id: ' || p_from_bus_doc_id);
2388: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2389: '5103: p_from_bus_doc_version: ' || p_from_bus_doc_version);
2390: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2391: '5104: p_to_bus_doc_type: ' || p_to_bus_doc_type);
2392: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2386: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2387: '5102: p_from_bus_doc_id: ' || p_from_bus_doc_id);
2388: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2389: '5103: p_from_bus_doc_version: ' || p_from_bus_doc_version);
2390: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2391: '5104: p_to_bus_doc_type: ' || p_to_bus_doc_type);
2392: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2393: '5105: p_to_bus_doc_id: ' || p_to_bus_doc_id);
2394: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2388: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2389: '5103: p_from_bus_doc_version: ' || p_from_bus_doc_version);
2390: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2391: '5104: p_to_bus_doc_type: ' || p_to_bus_doc_type);
2392: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2393: '5105: p_to_bus_doc_id: ' || p_to_bus_doc_id);
2394: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2395: '5106: p_to_bus_doc_version: ' || p_to_bus_doc_version);
2396: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2390: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2391: '5104: p_to_bus_doc_type: ' || p_to_bus_doc_type);
2392: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2393: '5105: p_to_bus_doc_id: ' || p_to_bus_doc_id);
2394: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2395: '5106: p_to_bus_doc_version: ' || p_to_bus_doc_version);
2396: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2397: '5107: p_copy_by_ref: ' || p_copy_by_ref);
2398: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2392: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2393: '5105: p_to_bus_doc_id: ' || p_to_bus_doc_id);
2394: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2395: '5106: p_to_bus_doc_version: ' || p_to_bus_doc_version);
2396: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2397: '5107: p_copy_by_ref: ' || p_copy_by_ref);
2398: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2399: '5108: p_copy_primary_doc_flag: ' || p_copy_primary_doc_flag);
2400: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2394: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2395: '5106: p_to_bus_doc_version: ' || p_to_bus_doc_version);
2396: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2397: '5107: p_copy_by_ref: ' || p_copy_by_ref);
2398: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2399: '5108: p_copy_primary_doc_flag: ' || p_copy_primary_doc_flag);
2400: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2401: '5109: p_copy_for_amendment: ' || p_copy_for_amendment);
2402: END IF;
2396: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2397: '5107: p_copy_by_ref: ' || p_copy_by_ref);
2398: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2399: '5108: p_copy_primary_doc_flag: ' || p_copy_primary_doc_flag);
2400: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2401: '5109: p_copy_for_amendment: ' || p_copy_for_amendment);
2402: END IF;
2403:
2404: -- Standard Start of API savepoint
2467: COMMIT WORK;
2468: END IF;
2469: -- Standard call to get message count and if count is 1, get message info.
2470: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
2471: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2472: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4400: Leaving Copy_Attachments');
2473: END IF;
2474:
2475: EXCEPTION
2468: END IF;
2469: -- Standard call to get message count and if count is 1, get message info.
2470: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
2471: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2472: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4400: Leaving Copy_Attachments');
2473: END IF;
2474:
2475: EXCEPTION
2476: WHEN FND_API.G_EXC_ERROR THEN
2473: END IF;
2474:
2475: EXCEPTION
2476: WHEN FND_API.G_EXC_ERROR THEN
2477: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2478: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4500: Leaving Copy_Attachments: OKC_API.G_EXCEPTION_ERROR Exception');
2479: END IF;
2480: ROLLBACK TO Copy_Attachments_GRP;
2481: x_return_status := G_RET_STS_ERROR ;
2474:
2475: EXCEPTION
2476: WHEN FND_API.G_EXC_ERROR THEN
2477: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2478: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4500: Leaving Copy_Attachments: OKC_API.G_EXCEPTION_ERROR Exception');
2479: END IF;
2480: ROLLBACK TO Copy_Attachments_GRP;
2481: x_return_status := G_RET_STS_ERROR ;
2482: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
2481: x_return_status := G_RET_STS_ERROR ;
2482: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
2483:
2484: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2485: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2486: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4600: Leaving Copy_Attachments: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
2487: END IF;
2488: ROLLBACK TO Copy_Attachments_GRP;
2489: x_return_status := G_RET_STS_UNEXP_ERROR ;
2482: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
2483:
2484: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2485: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2486: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4600: Leaving Copy_Attachments: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
2487: END IF;
2488: ROLLBACK TO Copy_Attachments_GRP;
2489: x_return_status := G_RET_STS_UNEXP_ERROR ;
2490: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
2489: x_return_status := G_RET_STS_UNEXP_ERROR ;
2490: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
2491:
2492: WHEN OTHERS THEN
2493: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2494: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4700: Leaving Copy_Attachments because of EXCEPTION: '||sqlerrm);
2495: END IF;
2496: ROLLBACK TO Copy_Attachments_GRP;
2497: x_return_status := G_RET_STS_UNEXP_ERROR ;
2490: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
2491:
2492: WHEN OTHERS THEN
2493: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2494: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4700: Leaving Copy_Attachments because of EXCEPTION: '||sqlerrm);
2495: END IF;
2496: ROLLBACK TO Copy_Attachments_GRP;
2497: x_return_status := G_RET_STS_UNEXP_ERROR ;
2498: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
2537: AND LOOKUPS.LOOKUP_TYPE = 'OKC_TERM_QA_LIST'
2538: AND LOOKUPS.LOOKUP_CODE='CHECK_PRIMARY_CONTRACT';
2539:
2540: BEGIN
2541: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2542: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4300: Entered qa_doc');
2543: END IF;
2544:
2545: x_return_status := G_RET_STS_SUCCESS;
2538: AND LOOKUPS.LOOKUP_CODE='CHECK_PRIMARY_CONTRACT';
2539:
2540: BEGIN
2541: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2542: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4300: Entered qa_doc');
2543: END IF;
2544:
2545: x_return_status := G_RET_STS_SUCCESS;
2546: x_qa_return_status := G_QA_STS_SUCCESS;
2578:
2579:
2580: END IF;
2581:
2582: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2583: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2300: Leaving QA_Doc');
2584: END IF;
2585: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2586:
2579:
2580: END IF;
2581:
2582: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2583: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2300: Leaving QA_Doc');
2584: END IF;
2585: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2586:
2587: EXCEPTION
2585: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2586:
2587: EXCEPTION
2588: WHEN FND_API.G_EXC_ERROR THEN
2589: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2590: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2400: Leaving QA_Doc : OKC_API.G_EXCEPTION_ERROR Exception');
2591: END IF;
2592: IF (l_get_qa_detail_csr%ISOPEN) THEN
2593: CLOSE l_get_qa_detail_csr ;
2586:
2587: EXCEPTION
2588: WHEN FND_API.G_EXC_ERROR THEN
2589: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2590: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2400: Leaving QA_Doc : OKC_API.G_EXCEPTION_ERROR Exception');
2591: END IF;
2592: IF (l_get_qa_detail_csr%ISOPEN) THEN
2593: CLOSE l_get_qa_detail_csr ;
2594: END IF;
2597: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2598:
2599: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2600: ROLLBACK TO g_QA_Doc;
2601: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2602: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2500: Leaving QA_Doc : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
2603: END IF;
2604: IF (l_get_qa_detail_csr%ISOPEN) THEN
2605: CLOSE l_get_qa_detail_csr ;
2598:
2599: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2600: ROLLBACK TO g_QA_Doc;
2601: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2602: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2500: Leaving QA_Doc : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
2603: END IF;
2604: IF (l_get_qa_detail_csr%ISOPEN) THEN
2605: CLOSE l_get_qa_detail_csr ;
2606: END IF;
2608: x_return_status := G_RET_STS_UNEXP_ERROR ;
2609: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2610:
2611: WHEN OTHERS THEN
2612: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2613: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2600: Leaving QA_Doc because of EXCEPTION: '||sqlerrm);
2614: END IF;
2615: IF (l_get_qa_detail_csr%ISOPEN) THEN
2616: CLOSE l_get_qa_detail_csr ;
2609: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2610:
2611: WHEN OTHERS THEN
2612: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2613: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2600: Leaving QA_Doc because of EXCEPTION: '||sqlerrm);
2614: END IF;
2615: IF (l_get_qa_detail_csr%ISOPEN) THEN
2616: CLOSE l_get_qa_detail_csr ;
2617: END IF;
2642:
2643: l_value VARCHAR2(1);
2644:
2645: BEGIN
2646: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2647: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1800: Entering Is_Primary_Terms_Doc_Mergeable');
2648: END IF;
2649: IF ( OKC_TERMS_UTIL_GRP.get_contract_source_code( p_document_type, p_document_id ) <> 'ATTACHED'
2650: OR OKC_TERMS_UTIL_GRP.get_authoring_party_code( p_document_type, p_document_id ) <> 'INTERNAL_ORG' )
2643: l_value VARCHAR2(1);
2644:
2645: BEGIN
2646: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2647: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1800: Entering Is_Primary_Terms_Doc_Mergeable');
2648: END IF;
2649: IF ( OKC_TERMS_UTIL_GRP.get_contract_source_code( p_document_type, p_document_id ) <> 'ATTACHED'
2650: OR OKC_TERMS_UTIL_GRP.get_authoring_party_code( p_document_type, p_document_id ) <> 'INTERNAL_ORG' )
2651: THEN
2662: END IF;
2663:
2664: EXCEPTION
2665: WHEN OTHERS THEN
2666: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2667: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2000: Leaving Is_Primary_Terms_Doc_Mergeable because of EXCEPTION: '||sqlerrm);
2668: END IF;
2669: IF (contract_doc_csr%ISOPEN) THEN
2670: CLOSE contract_doc_csr ;
2663:
2664: EXCEPTION
2665: WHEN OTHERS THEN
2666: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2667: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2000: Leaving Is_Primary_Terms_Doc_Mergeable because of EXCEPTION: '||sqlerrm);
2668: END IF;
2669: IF (contract_doc_csr%ISOPEN) THEN
2670: CLOSE contract_doc_csr ;
2671: END IF;
2695: AND docs.attached_document_id = fnd.attached_document_id
2696: AND fnd.document_id = b.document_id;
2697:
2698: BEGIN
2699: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2700: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1800: Entering Get_Primary_Terms_Doc_File_Id');
2701: END IF;
2702: OPEN contract_doc_csr;
2703: FETCH contract_doc_csr into l_media_id,l_mergeable_doc_flag;
2696: AND fnd.document_id = b.document_id;
2697:
2698: BEGIN
2699: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2700: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1800: Entering Get_Primary_Terms_Doc_File_Id');
2701: END IF;
2702: OPEN contract_doc_csr;
2703: FETCH contract_doc_csr into l_media_id,l_mergeable_doc_flag;
2704: CLOSE contract_doc_csr;
2702: OPEN contract_doc_csr;
2703: FETCH contract_doc_csr into l_media_id,l_mergeable_doc_flag;
2704: CLOSE contract_doc_csr;
2705:
2706: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2707: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1900: Return File id value:'||l_media_id);
2708: END IF;
2709:
2710: -- Start of fix for Bug 4085597
2703: FETCH contract_doc_csr into l_media_id,l_mergeable_doc_flag;
2704: CLOSE contract_doc_csr;
2705:
2706: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2707: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1900: Return File id value:'||l_media_id);
2708: END IF;
2709:
2710: -- Start of fix for Bug 4085597
2711: IF OKC_TERMS_UTIL_GRP.get_contract_source_code( p_document_type, p_document_id ) = 'STRUCTURED'
2720: RETURN l_media_id;
2721:
2722: EXCEPTION
2723: WHEN OTHERS THEN
2724: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2725: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2000: Leaving Get_Primary_Terms_Doc_File_Id because of EXCEPTION: '||sqlerrm);
2726: END IF;
2727: IF (contract_doc_csr%ISOPEN) THEN
2728: CLOSE contract_doc_csr ;
2721:
2722: EXCEPTION
2723: WHEN OTHERS THEN
2724: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2725: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2000: Leaving Get_Primary_Terms_Doc_File_Id because of EXCEPTION: '||sqlerrm);
2726: END IF;
2727: IF (contract_doc_csr%ISOPEN) THEN
2728: CLOSE contract_doc_csr ;
2729: END IF;
2746:
2747: l_result VARCHAR2(1) ;
2748:
2749: BEGIN
2750: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2751: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1800: Entering Has_Primary_Contract_Doc');
2752: END IF;
2753: OPEN contract_doc_csr;
2754: FETCH contract_doc_csr into l_result;
2747: l_result VARCHAR2(1) ;
2748:
2749: BEGIN
2750: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2751: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1800: Entering Has_Primary_Contract_Doc');
2752: END IF;
2753: OPEN contract_doc_csr;
2754: FETCH contract_doc_csr into l_result;
2755:
2762: END IF;
2763:
2764: EXCEPTION
2765: WHEN OTHERS THEN
2766: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2767: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2000: Leaving Has_Primary_Contract_Doc because of EXCEPTION: '||sqlerrm);
2768: END IF;
2769: IF (contract_doc_csr%ISOPEN) THEN
2770: CLOSE contract_doc_csr ;
2763:
2764: EXCEPTION
2765: WHEN OTHERS THEN
2766: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2767: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2000: Leaving Has_Primary_Contract_Doc because of EXCEPTION: '||sqlerrm);
2768: END IF;
2769: IF (contract_doc_csr%ISOPEN) THEN
2770: CLOSE contract_doc_csr ;
2771: END IF;
2792: l_attached_document_id OKC_CONTRACT_DOCS.ATTACHED_DOCUMENT_ID%TYPE := NULL;
2793: l_object_version_number OKC_CONTRACT_DOCS.object_version_number%TYPE;
2794:
2795: BEGIN
2796: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2797: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1800: Entering Clear_Primary_Doc_Flag');
2798: END IF;
2799: x_return_status := G_RET_STS_SUCCESS;
2800:
2793: l_object_version_number OKC_CONTRACT_DOCS.object_version_number%TYPE;
2794:
2795: BEGIN
2796: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2797: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1800: Entering Clear_Primary_Doc_Flag');
2798: END IF;
2799: x_return_status := G_RET_STS_SUCCESS;
2800:
2801: OPEN primary_doc_csr;
2815:
2816:
2817: EXCEPTION
2818: WHEN OTHERS THEN
2819: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2820: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2000: Leaving Clear_Primary_Doc_Flag because of EXCEPTION: '||sqlerrm);
2821: END IF;
2822: IF (primary_doc_csr%ISOPEN) THEN
2823: CLOSE primary_doc_csr ;
2816:
2817: EXCEPTION
2818: WHEN OTHERS THEN
2819: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2820: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2000: Leaving Clear_Primary_Doc_Flag because of EXCEPTION: '||sqlerrm);
2821: END IF;
2822: IF (primary_doc_csr%ISOPEN) THEN
2823: CLOSE primary_doc_csr ;
2824: END IF;