[Home] [Help]
60: FROM okc_rep_contracts_all
61: WHERE CONTRACT_id = p_contract_id;
62:
63: BEGIN
64: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
65: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
66: 'Entered OKC_REP_QA_CHECK_PVT.check_no_external_party ');
67: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
68: 'Contract Id is: ' || p_contract_id);
61: WHERE CONTRACT_id = p_contract_id;
62:
63: BEGIN
64: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
65: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
66: 'Entered OKC_REP_QA_CHECK_PVT.check_no_external_party ');
67: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
68: 'Contract Id is: ' || p_contract_id);
69: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
63: BEGIN
64: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
65: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
66: 'Entered OKC_REP_QA_CHECK_PVT.check_no_external_party ');
67: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
68: 'Contract Id is: ' || p_contract_id);
69: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
70: 'Severity level is: ' || p_severity);
71: END IF;
65: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
66: 'Entered OKC_REP_QA_CHECK_PVT.check_no_external_party ');
67: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
68: 'Contract Id is: ' || p_contract_id);
69: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
70: 'Severity level is: ' || p_severity);
71: END IF;
72: -- Standard call to check for call compatibility.
73: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
90: FETCH party_csr INTO party_rec;
91: IF (l_doc_type not in ('REP_SBCR', 'REP_ACQ', 'REP_CCT') )THEN
92:
93: IF party_csr%NOTFOUND THEN
94: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
95: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT, G_MODULE||l_api_name,
96: 'External Party is not found');
97: END IF;
98: -- Set the Qa Table index.
91: IF (l_doc_type not in ('REP_SBCR', 'REP_ACQ', 'REP_CCT') )THEN
92:
93: IF party_csr%NOTFOUND THEN
94: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
95: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT, G_MODULE||l_api_name,
96: 'External Party is not found');
97: END IF;
98: -- Set the Qa Table index.
99: l_resolved_msg_name := OKC_API.resolve_message(G_OKC_REP_NO_EXT_PARTY,l_doc_type);
130:
131: -- Standard call to get message count and if count is 1, get message info.
132: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
133:
134: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
135: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
136: 'Leaving OKC_REP_QA_CHECK_PVT.check_no_external_party');
137: END IF;
138: EXCEPTION
131: -- Standard call to get message count and if count is 1, get message info.
132: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
133:
134: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
135: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
136: 'Leaving OKC_REP_QA_CHECK_PVT.check_no_external_party');
137: END IF;
138: EXCEPTION
139: WHEN FND_API.G_EXC_ERROR THEN
136: 'Leaving OKC_REP_QA_CHECK_PVT.check_no_external_party');
137: END IF;
138: EXCEPTION
139: WHEN FND_API.G_EXC_ERROR THEN
140: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
141: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION , G_MODULE||l_api_name,
142: 'Leaving OKC_REP_QA_CHECK_PVT.check_no_external_party with G_EXC_ERROR');
143: END IF;
144: x_return_status := G_RET_STS_ERROR;
137: END IF;
138: EXCEPTION
139: WHEN FND_API.G_EXC_ERROR THEN
140: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
141: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION , G_MODULE||l_api_name,
142: 'Leaving OKC_REP_QA_CHECK_PVT.check_no_external_party with G_EXC_ERROR');
143: END IF;
144: x_return_status := G_RET_STS_ERROR;
145: --close cursors
151: p_data => x_msg_data
152: );
153:
154: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
155: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
156: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,G_MODULE||l_api_name,
157: 'Leaving OKC_REP_QA_CHECK_PVT.check_no_external_party with G_EXC_UNEXPECTED_ERROR');
158: END IF;
159: x_return_status := G_RET_STS_UNEXP_ERROR;
152: );
153:
154: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
155: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
156: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,G_MODULE||l_api_name,
157: 'Leaving OKC_REP_QA_CHECK_PVT.check_no_external_party with G_EXC_UNEXPECTED_ERROR');
158: END IF;
159: x_return_status := G_RET_STS_UNEXP_ERROR;
160: --close cursors
168: );
169:
170: WHEN OTHERS THEN
171:
172: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
173: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
174: G_MODULE || l_api_name,
175: 'Leaving OKC_REP_QA_CHECK_PVT.check_no_external_party because of EXCEPTION: ' || sqlerrm);
176: END IF;
169:
170: WHEN OTHERS THEN
171:
172: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
173: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
174: G_MODULE || l_api_name,
175: 'Leaving OKC_REP_QA_CHECK_PVT.check_no_external_party because of EXCEPTION: ' || sqlerrm);
176: END IF;
177: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
247:
248:
249: BEGIN
250:
251: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
252: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
253: 'Entered OKC_REP_QA_CHECK_PVT.check_no_eff_date ');
254: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
255: 'Effective Date is: ' || p_effective_date);
248:
249: BEGIN
250:
251: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
252: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
253: 'Entered OKC_REP_QA_CHECK_PVT.check_no_eff_date ');
254: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
255: 'Effective Date is: ' || p_effective_date);
256: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
250:
251: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
252: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
253: 'Entered OKC_REP_QA_CHECK_PVT.check_no_eff_date ');
254: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
255: 'Effective Date is: ' || p_effective_date);
256: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
257: 'Severity level is: ' || p_severity);
258: END IF;
252: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
253: 'Entered OKC_REP_QA_CHECK_PVT.check_no_eff_date ');
254: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
255: 'Effective Date is: ' || p_effective_date);
256: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
257: 'Severity level is: ' || p_severity);
258: END IF;
259:
260: -- Standard call to check for call compatibility.
276: x_return_status := FND_API.G_RET_STS_SUCCESS;
277:
278: --Check for effective date
279: IF (p_effective_date IS NULL) THEN
280: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
281: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT, G_MODULE||l_api_name,
282: 'Effective Date is NULL');
283: END IF;
284: l_resolved_msg_name := OKC_API.resolve_message(G_OKC_REP_NO_EFF_DATE,l_doc_type);
277:
278: --Check for effective date
279: IF (p_effective_date IS NULL) THEN
280: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
281: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT, G_MODULE||l_api_name,
282: 'Effective Date is NULL');
283: END IF;
284: l_resolved_msg_name := OKC_API.resolve_message(G_OKC_REP_NO_EFF_DATE,l_doc_type);
285:
308:
309: -- Standard call to get message count and if count is 1, get message info.
310: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
311:
312: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
313: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
314: 'Leaving OKC_REP_QA_CHECK_PVT.check_no_eff_date');
315: END IF;
316: EXCEPTION
309: -- Standard call to get message count and if count is 1, get message info.
310: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
311:
312: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
313: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
314: 'Leaving OKC_REP_QA_CHECK_PVT.check_no_eff_date');
315: END IF;
316: EXCEPTION
317: WHEN FND_API.G_EXC_ERROR THEN
314: 'Leaving OKC_REP_QA_CHECK_PVT.check_no_eff_date');
315: END IF;
316: EXCEPTION
317: WHEN FND_API.G_EXC_ERROR THEN
318: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
319: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION , G_MODULE||l_api_name,
320: 'Leaving OKC_REP_QA_CHECK_PVT.check_no_eff_date with G_EXC_ERROR');
321: END IF;
322: x_return_status := G_RET_STS_ERROR;
315: END IF;
316: EXCEPTION
317: WHEN FND_API.G_EXC_ERROR THEN
318: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
319: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION , G_MODULE||l_api_name,
320: 'Leaving OKC_REP_QA_CHECK_PVT.check_no_eff_date with G_EXC_ERROR');
321: END IF;
322: x_return_status := G_RET_STS_ERROR;
323:
326: p_data => x_msg_data
327: );
328:
329: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
330: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
331: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,G_MODULE||l_api_name,
332: 'Leaving OKC_REP_QA_CHECK_PVT.check_no_eff_date with G_EXC_UNEXPECTED_ERROR');
333: END IF;
334:
327: );
328:
329: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
330: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
331: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,G_MODULE||l_api_name,
332: 'Leaving OKC_REP_QA_CHECK_PVT.check_no_eff_date with G_EXC_UNEXPECTED_ERROR');
333: END IF;
334:
335: x_return_status := G_RET_STS_UNEXP_ERROR;
339: );
340:
341: WHEN OTHERS THEN
342:
343: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
344: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
345: G_MODULE || l_api_name,
346: 'Leaving OKC_REP_QA_CHECK_PVT.check_no_eff_date because of EXCEPTION: ' || sqlerrm);
347: END IF;
340:
341: WHEN OTHERS THEN
342:
343: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
344: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
345: G_MODULE || l_api_name,
346: 'Leaving OKC_REP_QA_CHECK_PVT.check_no_eff_date because of EXCEPTION: ' || sqlerrm);
347: END IF;
348: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
414:
415:
416: BEGIN
417:
418: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
419: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
420: 'Entered OKC_REP_QA_CHECK_PVT.check_expiry_check ');
421: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
422: 'Expiration Date is: ' || p_expiration_date);
415:
416: BEGIN
417:
418: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
419: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
420: 'Entered OKC_REP_QA_CHECK_PVT.check_expiry_check ');
421: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
422: 'Expiration Date is: ' || p_expiration_date);
423: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
417:
418: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
419: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
420: 'Entered OKC_REP_QA_CHECK_PVT.check_expiry_check ');
421: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
422: 'Expiration Date is: ' || p_expiration_date);
423: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
424: 'Severity level is: ' || p_severity);
425: END IF;
419: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
420: 'Entered OKC_REP_QA_CHECK_PVT.check_expiry_check ');
421: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
422: 'Expiration Date is: ' || p_expiration_date);
423: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
424: 'Severity level is: ' || p_severity);
425: END IF;
426:
427: -- Standard call to check for call compatibility.
443: x_return_status := FND_API.G_RET_STS_SUCCESS;
444:
445: --Check for effective date
446: IF (p_expiration_date <= SYSDATE ) THEN
447: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
448: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT, G_MODULE||l_api_name,
449: 'Contract expired');
450: END IF;
451:
444:
445: --Check for effective date
446: IF (p_expiration_date <= SYSDATE ) THEN
447: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
448: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT, G_MODULE||l_api_name,
449: 'Contract expired');
450: END IF;
451:
452: l_resolved_msg_name := OKC_API.resolve_message(G_OKC_REP_EXPIRED,l_doc_type);
475:
476: -- Standard call to get message count and if count is 1, get message info.
477: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
478:
479: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
480: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
481: 'Leaving OKC_REP_QA_CHECK_PVT.check_expiry_check');
482: END IF;
483: EXCEPTION
476: -- Standard call to get message count and if count is 1, get message info.
477: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
478:
479: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
480: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
481: 'Leaving OKC_REP_QA_CHECK_PVT.check_expiry_check');
482: END IF;
483: EXCEPTION
484: WHEN FND_API.G_EXC_ERROR THEN
481: 'Leaving OKC_REP_QA_CHECK_PVT.check_expiry_check');
482: END IF;
483: EXCEPTION
484: WHEN FND_API.G_EXC_ERROR THEN
485: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
486: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION , G_MODULE||l_api_name,
487: 'Leaving OKC_REP_QA_CHECK_PVT.check_expiry_check with G_EXC_ERROR');
488: END IF;
489: x_return_status := G_RET_STS_ERROR;
482: END IF;
483: EXCEPTION
484: WHEN FND_API.G_EXC_ERROR THEN
485: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
486: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION , G_MODULE||l_api_name,
487: 'Leaving OKC_REP_QA_CHECK_PVT.check_expiry_check with G_EXC_ERROR');
488: END IF;
489: x_return_status := G_RET_STS_ERROR;
490:
493: p_data => x_msg_data
494: );
495:
496: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
497: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
498: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,G_MODULE||l_api_name,
499: 'Leaving OKC_REP_QA_CHECK_PVT.check_expiry_check with G_EXC_UNEXPECTED_ERROR');
500: END IF;
501:
494: );
495:
496: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
497: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
498: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,G_MODULE||l_api_name,
499: 'Leaving OKC_REP_QA_CHECK_PVT.check_expiry_check with G_EXC_UNEXPECTED_ERROR');
500: END IF;
501:
502: x_return_status := G_RET_STS_UNEXP_ERROR;
506: );
507:
508: WHEN OTHERS THEN
509:
510: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
511: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
512: G_MODULE || l_api_name,
513: 'Leaving OKC_REP_QA_CHECK_PVT.check_expiry_check because of EXCEPTION: ' || sqlerrm);
514: END IF;
507:
508: WHEN OTHERS THEN
509:
510: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
511: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
512: G_MODULE || l_api_name,
513: 'Leaving OKC_REP_QA_CHECK_PVT.check_expiry_check because of EXCEPTION: ' || sqlerrm);
514: END IF;
515: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
621: l_contact_cnt NUMBER;
622:
623: BEGIN
624:
625: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
626: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
627: 'Entered OKC_REP_QA_CHECK_PVT.validate_E_Signature ');
628: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
629: 'Contract type is: ' || p_contract_type);
622:
623: BEGIN
624:
625: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
626: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
627: 'Entered OKC_REP_QA_CHECK_PVT.validate_E_Signature ');
628: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
629: 'Contract type is: ' || p_contract_type);
630: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
624:
625: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
626: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
627: 'Entered OKC_REP_QA_CHECK_PVT.validate_E_Signature ');
628: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
629: 'Contract type is: ' || p_contract_type);
630: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
631: 'Severity level is: ' || p_severity);
632: END IF;
626: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
627: 'Entered OKC_REP_QA_CHECK_PVT.validate_E_Signature ');
628: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
629: 'Contract type is: ' || p_contract_type);
630: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
631: 'Severity level is: ' || p_severity);
632: END IF;
633:
634: -- Standard call to check for call compatibility.
650:
651: OPEN contract_type_csr;
652: FETCH contract_type_csr INTO contract_type_rec;
653: IF contract_type_csr%NOTFOUND THEN
654: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
655: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION ,
656: G_MODULE||l_api_name, 'Contract Type: '|| p_contract_type || ' does not exist');
657: END IF;
658: RAISE FND_API.G_EXC_ERROR;
651: OPEN contract_type_csr;
652: FETCH contract_type_csr INTO contract_type_rec;
653: IF contract_type_csr%NOTFOUND THEN
654: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
655: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION ,
656: G_MODULE||l_api_name, 'Contract Type: '|| p_contract_type || ' does not exist');
657: END IF;
658: RAISE FND_API.G_EXC_ERROR;
659: END IF; -- contract_type_csr%NOTFOUND
659: END IF; -- contract_type_csr%NOTFOUND
660:
661: IF contract_type_rec.signature_workflow_name IS NULL THEN
662:
663: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
664: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT, G_MODULE||l_api_name,
665: 'Contract E Signature validation failed');
666: END IF;
667: l_index := px_qa_result_tbl.count + 1;
660:
661: IF contract_type_rec.signature_workflow_name IS NULL THEN
662:
663: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
664: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT, G_MODULE||l_api_name,
665: 'Contract E Signature validation failed');
666: END IF;
667: l_index := px_qa_result_tbl.count + 1;
668: px_qa_result_tbl(l_index).error_record_type := G_REP_QA_TYPE;
681: END IF;
682:
683: IF Nvl(l_contact_cnt,0) = 0 THEN
684:
685: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
686: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT, G_MODULE||l_api_name,
687: 'Contract E Signature validation failed ');
688: END IF;
689:
682:
683: IF Nvl(l_contact_cnt,0) = 0 THEN
684:
685: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
686: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT, G_MODULE||l_api_name,
687: 'Contract E Signature validation failed ');
688: END IF;
689:
690: l_index := px_qa_result_tbl.count + 1;
728:
729: END IF;
730:
731: IF l_user_name IS NULL THEN
732: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
733: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT, G_MODULE||l_api_name,
734: 'Contract E Signature validation failed at step3 ');
735: END IF;
736:
729: END IF;
730:
731: IF l_user_name IS NULL THEN
732: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
733: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT, G_MODULE||l_api_name,
734: 'Contract E Signature validation failed at step3 ');
735: END IF;
736:
737: l_index := px_qa_result_tbl.count + 1;
759:
760: -- Standard call to get message count and if count is 1, get message info.
761: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
762:
763: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
764: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
765: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contract_type');
766: END IF;
767: EXCEPTION
760: -- Standard call to get message count and if count is 1, get message info.
761: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
762:
763: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
764: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
765: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contract_type');
766: END IF;
767: EXCEPTION
768: WHEN FND_API.G_EXC_ERROR THEN
765: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contract_type');
766: END IF;
767: EXCEPTION
768: WHEN FND_API.G_EXC_ERROR THEN
769: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
770: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION , G_MODULE||l_api_name,
771: 'Leaving OKC_REP_QA_CHECK_PVT.validate_E_Signature with G_EXC_ERROR');
772: END IF;
773: IF (contract_type_csr%ISOPEN) THEN
766: END IF;
767: EXCEPTION
768: WHEN FND_API.G_EXC_ERROR THEN
769: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
770: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION , G_MODULE||l_api_name,
771: 'Leaving OKC_REP_QA_CHECK_PVT.validate_E_Signature with G_EXC_ERROR');
772: END IF;
773: IF (contract_type_csr%ISOPEN) THEN
774: CLOSE contract_type_csr ;
779: p_data => x_msg_data
780: );
781:
782: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
783: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
784: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,G_MODULE||l_api_name,
785: 'Leaving OKC_REP_QA_CHECK_PVT.validate_E_Signature with G_EXC_UNEXPECTED_ERROR');
786: END IF;
787: IF (contract_type_csr%ISOPEN) THEN
780: );
781:
782: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
783: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
784: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,G_MODULE||l_api_name,
785: 'Leaving OKC_REP_QA_CHECK_PVT.validate_E_Signature with G_EXC_UNEXPECTED_ERROR');
786: END IF;
787: IF (contract_type_csr%ISOPEN) THEN
788: CLOSE contract_type_csr ;
793: p_data => x_msg_data
794: );
795:
796: WHEN OTHERS THEN
797: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
798: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
799: G_MODULE || l_api_name,
800: 'Leaving OKC_REP_QA_CHECK_PVT.validate_E_Signature because of EXCEPTION: ' || sqlerrm);
801: END IF;
794: );
795:
796: WHEN OTHERS THEN
797: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
798: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
799: G_MODULE || l_api_name,
800: 'Leaving OKC_REP_QA_CHECK_PVT.validate_E_Signature because of EXCEPTION: ' || sqlerrm);
801: END IF;
802: IF (contract_type_csr%ISOPEN) THEN
862: WHERE document_type = p_contract_type;
863: contract_type_rec contract_type_csr%ROWTYPE;
864: BEGIN
865:
866: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
867: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
868: 'Entered OKC_REP_QA_CHECK_PVT.validate_contract_type ');
869: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
870: 'Contract type is: ' || p_contract_type);
863: contract_type_rec contract_type_csr%ROWTYPE;
864: BEGIN
865:
866: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
867: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
868: 'Entered OKC_REP_QA_CHECK_PVT.validate_contract_type ');
869: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
870: 'Contract type is: ' || p_contract_type);
871: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
865:
866: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
867: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
868: 'Entered OKC_REP_QA_CHECK_PVT.validate_contract_type ');
869: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
870: 'Contract type is: ' || p_contract_type);
871: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
872: 'Severity level is: ' || p_severity);
873: END IF;
867: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
868: 'Entered OKC_REP_QA_CHECK_PVT.validate_contract_type ');
869: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
870: 'Contract type is: ' || p_contract_type);
871: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
872: 'Severity level is: ' || p_severity);
873: END IF;
874:
875: -- Standard call to check for call compatibility.
887:
888: OPEN contract_type_csr;
889: FETCH contract_type_csr INTO contract_type_rec;
890: IF contract_type_csr%NOTFOUND THEN
891: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
892: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION ,
893: G_MODULE||l_api_name, 'Contract Type: '|| p_contract_type || ' does not exist');
894: END IF;
895: RAISE FND_API.G_EXC_ERROR;
888: OPEN contract_type_csr;
889: FETCH contract_type_csr INTO contract_type_rec;
890: IF contract_type_csr%NOTFOUND THEN
891: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
892: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION ,
893: G_MODULE||l_api_name, 'Contract Type: '|| p_contract_type || ' does not exist');
894: END IF;
895: RAISE FND_API.G_EXC_ERROR;
896: END IF; -- contract_type_csr%NOTFOUND
903: CLOSE contract_type_csr;
904:
905: --Check for contract type
906: IF (l_valid_contract_type_flag = 'N') THEN
907: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
908: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT, G_MODULE||l_api_name,
909: 'Contract Type is invalid');
910: END IF;
911: l_index := px_qa_result_tbl.count + 1;
904:
905: --Check for contract type
906: IF (l_valid_contract_type_flag = 'N') THEN
907: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
908: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT, G_MODULE||l_api_name,
909: 'Contract Type is invalid');
910: END IF;
911: l_index := px_qa_result_tbl.count + 1;
912: px_qa_result_tbl(l_index).error_record_type := G_REP_QA_TYPE;
925: END IF; -- l_valid_contract_type_flag = 'N'
926: -- Standard call to get message count and if count is 1, get message info.
927: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
928:
929: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
930: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
931: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contract_type');
932: END IF;
933: EXCEPTION
926: -- Standard call to get message count and if count is 1, get message info.
927: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
928:
929: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
930: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
931: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contract_type');
932: END IF;
933: EXCEPTION
934: WHEN FND_API.G_EXC_ERROR THEN
931: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contract_type');
932: END IF;
933: EXCEPTION
934: WHEN FND_API.G_EXC_ERROR THEN
935: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
936: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION , G_MODULE||l_api_name,
937: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contract_type with G_EXC_ERROR');
938: END IF;
939: IF (contract_type_csr%ISOPEN) THEN
932: END IF;
933: EXCEPTION
934: WHEN FND_API.G_EXC_ERROR THEN
935: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
936: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION , G_MODULE||l_api_name,
937: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contract_type with G_EXC_ERROR');
938: END IF;
939: IF (contract_type_csr%ISOPEN) THEN
940: CLOSE contract_type_csr ;
945: p_data => x_msg_data
946: );
947:
948: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
949: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
950: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,G_MODULE||l_api_name,
951: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contract_type with G_EXC_UNEXPECTED_ERROR');
952: END IF;
953: IF (contract_type_csr%ISOPEN) THEN
946: );
947:
948: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
949: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
950: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,G_MODULE||l_api_name,
951: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contract_type with G_EXC_UNEXPECTED_ERROR');
952: END IF;
953: IF (contract_type_csr%ISOPEN) THEN
954: CLOSE contract_type_csr ;
959: p_data => x_msg_data
960: );
961:
962: WHEN OTHERS THEN
963: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
964: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
965: G_MODULE || l_api_name,
966: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contract_type because of EXCEPTION: ' || sqlerrm);
967: END IF;
960: );
961:
962: WHEN OTHERS THEN
963: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
964: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
965: G_MODULE || l_api_name,
966: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contract_type because of EXCEPTION: ' || sqlerrm);
967: END IF;
968: IF (contract_type_csr%ISOPEN) THEN
1039: WHERE vendor_id = p_party_id;
1040: vendor_rec vendor_csr%ROWTYPE;
1041:
1042: BEGIN
1043: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1044: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1045: 'Entered OKC_REP_QA_CHECK_PVT.validate_external_party ');
1046: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1047: 'Party Role Code is: ' || p_party_role_code);
1040: vendor_rec vendor_csr%ROWTYPE;
1041:
1042: BEGIN
1043: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1044: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1045: 'Entered OKC_REP_QA_CHECK_PVT.validate_external_party ');
1046: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1047: 'Party Role Code is: ' || p_party_role_code);
1048: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1042: BEGIN
1043: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1044: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1045: 'Entered OKC_REP_QA_CHECK_PVT.validate_external_party ');
1046: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1047: 'Party Role Code is: ' || p_party_role_code);
1048: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1049: 'Party Id is: ' || p_party_id);
1050: END IF;
1044: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1045: 'Entered OKC_REP_QA_CHECK_PVT.validate_external_party ');
1046: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1047: 'Party Role Code is: ' || p_party_role_code);
1048: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1049: 'Party Id is: ' || p_party_id);
1050: END IF;
1051:
1052: -- Standard call to check for call compatibility.
1066: p_party_role_code = G_PARTY_ROLE_CUSTOMER) THEN
1067: OPEN partner_csr;
1068: FETCH partner_csr INTO partner_rec;
1069: IF partner_csr%NOTFOUND THEN
1070: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1071: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION ,
1072: G_MODULE||l_api_name, 'Party with Party Id: '|| p_party_id || ' does not exist');
1073: END IF;
1074: RAISE FND_API.G_EXC_ERROR;
1067: OPEN partner_csr;
1068: FETCH partner_csr INTO partner_rec;
1069: IF partner_csr%NOTFOUND THEN
1070: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1071: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION ,
1072: G_MODULE||l_api_name, 'Party with Party Id: '|| p_party_id || ' does not exist');
1073: END IF;
1074: RAISE FND_API.G_EXC_ERROR;
1075: END IF; -- partner_csr%NOTFOUND
1081: ELSE
1082: OPEN vendor_csr;
1083: FETCH vendor_csr INTO vendor_rec;
1084: IF vendor_csr%NOTFOUND THEN
1085: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1086: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION ,
1087: G_MODULE||l_api_name, 'Vendor with vendor Id: '|| p_party_id || ' does not exist');
1088: END IF;
1089: RAISE FND_API.G_EXC_ERROR;
1082: OPEN vendor_csr;
1083: FETCH vendor_csr INTO vendor_rec;
1084: IF vendor_csr%NOTFOUND THEN
1085: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1086: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION ,
1087: G_MODULE||l_api_name, 'Vendor with vendor Id: '|| p_party_id || ' does not exist');
1088: END IF;
1089: RAISE FND_API.G_EXC_ERROR;
1090: END IF; -- vendor_csr%NOTFOUND
1097: END IF; -- p_party_role_code = G_PARTY_ROLE_PARTNER
1098:
1099: --Check for external party
1100: IF (l_valid_external_party_flag = 'N') THEN
1101: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1102: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT, G_MODULE||l_api_name,
1103: 'External party is invalid: ' || l_party_name);
1104: END IF;
1105: l_index := px_qa_result_tbl.count + 1;
1098:
1099: --Check for external party
1100: IF (l_valid_external_party_flag = 'N') THEN
1101: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1102: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT, G_MODULE||l_api_name,
1103: 'External party is invalid: ' || l_party_name);
1104: END IF;
1105: l_index := px_qa_result_tbl.count + 1;
1106: px_qa_result_tbl(l_index).error_record_type := G_REP_QA_TYPE;
1119:
1120: -- Standard call to get message count and if count is 1, get message info.
1121: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1122:
1123: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1124: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1125: 'Leaving OKC_REP_QA_CHECK_PVT.validate_external_party');
1126: END IF;
1127: EXCEPTION
1120: -- Standard call to get message count and if count is 1, get message info.
1121: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1122:
1123: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1124: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1125: 'Leaving OKC_REP_QA_CHECK_PVT.validate_external_party');
1126: END IF;
1127: EXCEPTION
1128: WHEN FND_API.G_EXC_ERROR THEN
1125: 'Leaving OKC_REP_QA_CHECK_PVT.validate_external_party');
1126: END IF;
1127: EXCEPTION
1128: WHEN FND_API.G_EXC_ERROR THEN
1129: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1130: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION , G_MODULE||l_api_name,
1131: 'Leaving OKC_REP_QA_CHECK_PVT.validate_external_party with G_EXC_ERROR');
1132: END IF;
1133: IF (partner_csr%ISOPEN) THEN
1126: END IF;
1127: EXCEPTION
1128: WHEN FND_API.G_EXC_ERROR THEN
1129: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1130: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION , G_MODULE||l_api_name,
1131: 'Leaving OKC_REP_QA_CHECK_PVT.validate_external_party with G_EXC_ERROR');
1132: END IF;
1133: IF (partner_csr%ISOPEN) THEN
1134: CLOSE partner_csr ;
1142: p_data => x_msg_data
1143: );
1144:
1145: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1146: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1147: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,G_MODULE||l_api_name,
1148: 'Leaving OKC_REP_QA_CHECK_PVT.validate_external_party with G_EXC_UNEXPECTED_ERROR');
1149: END IF;
1150: IF (partner_csr%ISOPEN) THEN
1143: );
1144:
1145: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1146: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1147: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,G_MODULE||l_api_name,
1148: 'Leaving OKC_REP_QA_CHECK_PVT.validate_external_party with G_EXC_UNEXPECTED_ERROR');
1149: END IF;
1150: IF (partner_csr%ISOPEN) THEN
1151: CLOSE partner_csr ;
1159: p_data => x_msg_data
1160: );
1161:
1162: WHEN OTHERS THEN
1163: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1164: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
1165: G_MODULE || l_api_name,
1166: 'Leaving OKC_REP_QA_CHECK_PVT.validate_external_party because of EXCEPTION: ' || sqlerrm);
1167: END IF;
1160: );
1161:
1162: WHEN OTHERS THEN
1163: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1164: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
1165: G_MODULE || l_api_name,
1166: 'Leaving OKC_REP_QA_CHECK_PVT.validate_external_party because of EXCEPTION: ' || sqlerrm);
1167: END IF;
1168: IF (partner_csr%ISOPEN) THEN
1276: employee_contact_rec employee_contact_csr%ROWTYPE;
1277:
1278:
1279: BEGIN
1280: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1281: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1282: 'Entered OKC_REP_QA_CHECK_PVT.validate_contact ');
1283: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1284: 'Party Role Code is: ' || p_party_role_code);
1277:
1278:
1279: BEGIN
1280: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1281: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1282: 'Entered OKC_REP_QA_CHECK_PVT.validate_contact ');
1283: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1284: 'Party Role Code is: ' || p_party_role_code);
1285: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1279: BEGIN
1280: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1281: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1282: 'Entered OKC_REP_QA_CHECK_PVT.validate_contact ');
1283: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1284: 'Party Role Code is: ' || p_party_role_code);
1285: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1286: 'Party Id is: ' || p_party_id);
1287: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1281: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1282: 'Entered OKC_REP_QA_CHECK_PVT.validate_contact ');
1283: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1284: 'Party Role Code is: ' || p_party_role_code);
1285: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1286: 'Party Id is: ' || p_party_id);
1287: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1288: 'Contact Id is: ' || p_contact_id);
1289: END IF;
1283: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1284: 'Party Role Code is: ' || p_party_role_code);
1285: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1286: 'Party Id is: ' || p_party_id);
1287: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1288: 'Contact Id is: ' || p_contact_id);
1289: END IF;
1290:
1291: -- Standard call to check for call compatibility.
1306: OPEN tca_contact_csr;
1307: FETCH tca_contact_csr INTO tca_contact_rec;
1308:
1309: IF tca_contact_csr%NOTFOUND THEN
1310: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1311: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION ,
1312: G_MODULE||l_api_name, 'Contact with Contact Id: '|| p_contact_id || ' does not exist');
1313: END IF;
1314: RAISE FND_API.G_EXC_ERROR;
1307: FETCH tca_contact_csr INTO tca_contact_rec;
1308:
1309: IF tca_contact_csr%NOTFOUND THEN
1310: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1311: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION ,
1312: G_MODULE||l_api_name, 'Contact with Contact Id: '|| p_contact_id || ' does not exist');
1313: END IF;
1314: RAISE FND_API.G_EXC_ERROR;
1315: END IF; -- partner_csr%NOTFOUND
1330: OPEN vendor_contact_csr;
1331: FETCH vendor_contact_csr INTO vendor_contact_rec;
1332:
1333: IF vendor_contact_csr%NOTFOUND THEN
1334: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1335: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION ,
1336: G_MODULE||l_api_name, 'Vendor contact Id: '|| p_contact_id || ' does not exist');
1337: END IF;
1338: RAISE FND_API.G_EXC_ERROR;
1331: FETCH vendor_contact_csr INTO vendor_contact_rec;
1332:
1333: IF vendor_contact_csr%NOTFOUND THEN
1334: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1335: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION ,
1336: G_MODULE||l_api_name, 'Vendor contact Id: '|| p_contact_id || ' does not exist');
1337: END IF;
1338: RAISE FND_API.G_EXC_ERROR;
1339: END IF; -- vendor_contact_csr%NOTFOUND
1353: FETCH employee_contact_csr INTO employee_contact_rec;
1354:
1355: -- If row doesn't exist then flag the current contact as invalid
1356: IF employee_contact_csr%NOTFOUND THEN
1357: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1358: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION ,
1359: G_MODULE||l_api_name, 'Contact with Contact Id: '|| p_contact_id || ' does not exist');
1360: END IF;
1361:
1354:
1355: -- If row doesn't exist then flag the current contact as invalid
1356: IF employee_contact_csr%NOTFOUND THEN
1357: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1358: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION ,
1359: G_MODULE||l_api_name, 'Contact with Contact Id: '|| p_contact_id || ' does not exist');
1360: END IF;
1361:
1362: l_valid_contact_flag := 'N';
1374: OPEN employee_name_csr;
1375: FETCH employee_name_csr INTO l_contact_name;
1376: CLOSE employee_name_csr;
1377:
1378: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1379: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT, G_MODULE||l_api_name,
1380: 'Party Contact is invalid: ' || l_contact_name);
1381: END IF;
1382: l_index := px_qa_result_tbl.count + 1;
1375: FETCH employee_name_csr INTO l_contact_name;
1376: CLOSE employee_name_csr;
1377:
1378: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1379: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT, G_MODULE||l_api_name,
1380: 'Party Contact is invalid: ' || l_contact_name);
1381: END IF;
1382: l_index := px_qa_result_tbl.count + 1;
1383: px_qa_result_tbl(l_index).error_record_type := G_REP_QA_TYPE;
1396:
1397: -- Standard call to get message count and if count is 1, get message info.
1398: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1399:
1400: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1401: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1402: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contact');
1403: END IF;
1404: EXCEPTION
1397: -- Standard call to get message count and if count is 1, get message info.
1398: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1399:
1400: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1401: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1402: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contact');
1403: END IF;
1404: EXCEPTION
1405: WHEN FND_API.G_EXC_ERROR THEN
1402: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contact');
1403: END IF;
1404: EXCEPTION
1405: WHEN FND_API.G_EXC_ERROR THEN
1406: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1407: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION , G_MODULE||l_api_name,
1408: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contact with G_EXC_ERROR');
1409: END IF;
1410: IF (tca_contact_csr%ISOPEN) THEN
1403: END IF;
1404: EXCEPTION
1405: WHEN FND_API.G_EXC_ERROR THEN
1406: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1407: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION , G_MODULE||l_api_name,
1408: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contact with G_EXC_ERROR');
1409: END IF;
1410: IF (tca_contact_csr%ISOPEN) THEN
1411: CLOSE tca_contact_csr ;
1425: p_data => x_msg_data
1426: );
1427:
1428: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1429: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1430: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,G_MODULE||l_api_name,
1431: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contact with G_EXC_UNEXPECTED_ERROR');
1432: END IF;
1433: IF (tca_contact_csr%ISOPEN) THEN
1426: );
1427:
1428: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1429: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1430: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,G_MODULE||l_api_name,
1431: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contact with G_EXC_UNEXPECTED_ERROR');
1432: END IF;
1433: IF (tca_contact_csr%ISOPEN) THEN
1434: CLOSE tca_contact_csr ;
1448: p_data => x_msg_data
1449: );
1450:
1451: WHEN OTHERS THEN
1452: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1453: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
1454: G_MODULE || l_api_name,
1455: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contact because of EXCEPTION: ' || sqlerrm);
1456: END IF;
1449: );
1450:
1451: WHEN OTHERS THEN
1452: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1453: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
1454: G_MODULE || l_api_name,
1455: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contact because of EXCEPTION: ' || sqlerrm);
1456: END IF;
1457: IF (tca_contact_csr%ISOPEN) THEN
1528: WHERE contact_role_id = p_contact_role_id;
1529: contact_role_rec contact_role_csr%ROWTYPE;
1530: BEGIN
1531:
1532: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1533: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1534: 'Entered OKC_REP_QA_CHECK_PVT.validate_contact_role ');
1535: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1536: 'Contact Role Id is: ' || p_contact_role_id);
1529: contact_role_rec contact_role_csr%ROWTYPE;
1530: BEGIN
1531:
1532: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1533: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1534: 'Entered OKC_REP_QA_CHECK_PVT.validate_contact_role ');
1535: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1536: 'Contact Role Id is: ' || p_contact_role_id);
1537: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1531:
1532: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1533: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1534: 'Entered OKC_REP_QA_CHECK_PVT.validate_contact_role ');
1535: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1536: 'Contact Role Id is: ' || p_contact_role_id);
1537: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1538: 'Severity level is: ' || p_severity);
1539: END IF;
1533: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1534: 'Entered OKC_REP_QA_CHECK_PVT.validate_contact_role ');
1535: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1536: 'Contact Role Id is: ' || p_contact_role_id);
1537: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1538: 'Severity level is: ' || p_severity);
1539: END IF;
1540:
1541: -- Standard call to check for call compatibility.
1553:
1554: OPEN contact_role_csr;
1555: FETCH contact_role_csr INTO contact_role_rec;
1556: IF contact_role_csr%NOTFOUND THEN
1557: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1558: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION ,
1559: G_MODULE||l_api_name, 'Contact role with id : '|| p_contact_role_id || ' does not exist');
1560: END IF;
1561: RAISE FND_API.G_EXC_ERROR;
1554: OPEN contact_role_csr;
1555: FETCH contact_role_csr INTO contact_role_rec;
1556: IF contact_role_csr%NOTFOUND THEN
1557: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1558: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION ,
1559: G_MODULE||l_api_name, 'Contact role with id : '|| p_contact_role_id || ' does not exist');
1560: END IF;
1561: RAISE FND_API.G_EXC_ERROR;
1562: END IF; -- contact_role_csr%NOTFOUND
1569: CLOSE contact_role_csr;
1570:
1571: --Check for Contract Role
1572: IF (l_valid_contact_role_flag = 'N') THEN
1573: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1574: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT, G_MODULE||l_api_name,
1575: 'Contract Role is invalid');
1576: END IF;
1577: l_index := px_qa_result_tbl.count + 1;
1570:
1571: --Check for Contract Role
1572: IF (l_valid_contact_role_flag = 'N') THEN
1573: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1574: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT, G_MODULE||l_api_name,
1575: 'Contract Role is invalid');
1576: END IF;
1577: l_index := px_qa_result_tbl.count + 1;
1578: px_qa_result_tbl(l_index).error_record_type := G_REP_QA_TYPE;
1590: END IF; -- l_valid_contact_role_flag = 'N'
1591: -- Standard call to get message count and if count is 1, get message info.
1592: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1593:
1594: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1595: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1596: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contact_role');
1597: END IF;
1598: EXCEPTION
1591: -- Standard call to get message count and if count is 1, get message info.
1592: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1593:
1594: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1595: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1596: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contact_role');
1597: END IF;
1598: EXCEPTION
1599: WHEN FND_API.G_EXC_ERROR THEN
1596: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contact_role');
1597: END IF;
1598: EXCEPTION
1599: WHEN FND_API.G_EXC_ERROR THEN
1600: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1601: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION , G_MODULE||l_api_name,
1602: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contact_role with G_EXC_ERROR');
1603: END IF;
1604: IF (contact_role_csr%ISOPEN) THEN
1597: END IF;
1598: EXCEPTION
1599: WHEN FND_API.G_EXC_ERROR THEN
1600: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1601: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION , G_MODULE||l_api_name,
1602: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contact_role with G_EXC_ERROR');
1603: END IF;
1604: IF (contact_role_csr%ISOPEN) THEN
1605: CLOSE contact_role_csr ;
1610: p_data => x_msg_data
1611: );
1612:
1613: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1614: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1615: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,G_MODULE||l_api_name,
1616: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contact_role with G_EXC_UNEXPECTED_ERROR');
1617: END IF;
1618: IF (contact_role_csr%ISOPEN) THEN
1611: );
1612:
1613: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1614: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1615: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,G_MODULE||l_api_name,
1616: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contact_role with G_EXC_UNEXPECTED_ERROR');
1617: END IF;
1618: IF (contact_role_csr%ISOPEN) THEN
1619: CLOSE contact_role_csr ;
1624: p_data => x_msg_data
1625: );
1626:
1627: WHEN OTHERS THEN
1628: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1629: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
1630: G_MODULE || l_api_name,
1631: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contact_role because of EXCEPTION: ' || sqlerrm);
1632: END IF;
1625: );
1626:
1627: WHEN OTHERS THEN
1628: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1629: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
1630: G_MODULE || l_api_name,
1631: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contact_role because of EXCEPTION: ' || sqlerrm);
1632: END IF;
1633: IF (contact_role_csr%ISOPEN) THEN
1694: WHERE risk_event_id = p_risk_event_id;
1695: risk_event_rec risk_event_csr%ROWTYPE;
1696: BEGIN
1697:
1698: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1699: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1700: 'Entered OKC_REP_QA_CHECK_PVT.validate_risk_event ');
1701: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1702: 'Risk Event Id is: ' || p_risk_event_id);
1695: risk_event_rec risk_event_csr%ROWTYPE;
1696: BEGIN
1697:
1698: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1699: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1700: 'Entered OKC_REP_QA_CHECK_PVT.validate_risk_event ');
1701: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1702: 'Risk Event Id is: ' || p_risk_event_id);
1703: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1697:
1698: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1699: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1700: 'Entered OKC_REP_QA_CHECK_PVT.validate_risk_event ');
1701: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1702: 'Risk Event Id is: ' || p_risk_event_id);
1703: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1704: 'Severity level is: ' || p_severity);
1705: END IF;
1699: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1700: 'Entered OKC_REP_QA_CHECK_PVT.validate_risk_event ');
1701: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1702: 'Risk Event Id is: ' || p_risk_event_id);
1703: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1704: 'Severity level is: ' || p_severity);
1705: END IF;
1706:
1707: -- Standard call to check for call compatibility.
1719:
1720: OPEN risk_event_csr;
1721: FETCH risk_event_csr INTO risk_event_rec;
1722: IF risk_event_csr%NOTFOUND THEN
1723: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1724: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION ,
1725: G_MODULE||l_api_name, 'Risk Event with id : '|| p_risk_event_id || ' does not exist');
1726: END IF;
1727: RAISE FND_API.G_EXC_ERROR;
1720: OPEN risk_event_csr;
1721: FETCH risk_event_csr INTO risk_event_rec;
1722: IF risk_event_csr%NOTFOUND THEN
1723: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1724: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION ,
1725: G_MODULE||l_api_name, 'Risk Event with id : '|| p_risk_event_id || ' does not exist');
1726: END IF;
1727: RAISE FND_API.G_EXC_ERROR;
1728: END IF; -- risk_event_csr%NOTFOUND
1735: CLOSE risk_event_csr;
1736:
1737: --Check for Risk Event
1738: IF (l_valid_risk_event_flag = 'N') THEN
1739: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1740: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT, G_MODULE||l_api_name,
1741: 'Risk Event is invalid');
1742: END IF;
1743: l_index := px_qa_result_tbl.count + 1;
1736:
1737: --Check for Risk Event
1738: IF (l_valid_risk_event_flag = 'N') THEN
1739: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1740: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT, G_MODULE||l_api_name,
1741: 'Risk Event is invalid');
1742: END IF;
1743: l_index := px_qa_result_tbl.count + 1;
1744: px_qa_result_tbl(l_index).error_record_type := G_REP_QA_TYPE;
1756: END IF; -- l_valid_risk_event_flag = 'N'
1757: -- Standard call to get message count and if count is 1, get message info.
1758: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1759:
1760: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1761: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1762: 'Leaving OKC_REP_QA_CHECK_PVT.validate_risk_event');
1763: END IF;
1764: EXCEPTION
1757: -- Standard call to get message count and if count is 1, get message info.
1758: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1759:
1760: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1761: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1762: 'Leaving OKC_REP_QA_CHECK_PVT.validate_risk_event');
1763: END IF;
1764: EXCEPTION
1765: WHEN FND_API.G_EXC_ERROR THEN
1762: 'Leaving OKC_REP_QA_CHECK_PVT.validate_risk_event');
1763: END IF;
1764: EXCEPTION
1765: WHEN FND_API.G_EXC_ERROR THEN
1766: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1767: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION , G_MODULE||l_api_name,
1768: 'Leaving OKC_REP_QA_CHECK_PVT.validate_risk_event with G_EXC_ERROR');
1769: END IF;
1770: IF (risk_event_csr%ISOPEN) THEN
1763: END IF;
1764: EXCEPTION
1765: WHEN FND_API.G_EXC_ERROR THEN
1766: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1767: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION , G_MODULE||l_api_name,
1768: 'Leaving OKC_REP_QA_CHECK_PVT.validate_risk_event with G_EXC_ERROR');
1769: END IF;
1770: IF (risk_event_csr%ISOPEN) THEN
1771: CLOSE risk_event_csr ;
1776: p_data => x_msg_data
1777: );
1778:
1779: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1780: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1781: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,G_MODULE||l_api_name,
1782: 'Leaving OKC_REP_QA_CHECK_PVT.validate_risk_event with G_EXC_UNEXPECTED_ERROR');
1783: END IF;
1784: IF (risk_event_csr%ISOPEN) THEN
1777: );
1778:
1779: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1780: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1781: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,G_MODULE||l_api_name,
1782: 'Leaving OKC_REP_QA_CHECK_PVT.validate_risk_event with G_EXC_UNEXPECTED_ERROR');
1783: END IF;
1784: IF (risk_event_csr%ISOPEN) THEN
1785: CLOSE risk_event_csr ;
1790: p_data => x_msg_data
1791: );
1792:
1793: WHEN OTHERS THEN
1794: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1795: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
1796: G_MODULE || l_api_name,
1797: 'Leaving OKC_REP_QA_CHECK_PVT.validate_risk_event because of EXCEPTION: ' || sqlerrm);
1798: END IF;
1791: );
1792:
1793: WHEN OTHERS THEN
1794: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1795: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
1796: G_MODULE || l_api_name,
1797: 'Leaving OKC_REP_QA_CHECK_PVT.validate_risk_event because of EXCEPTION: ' || sqlerrm);
1798: END IF;
1799: IF (risk_event_csr%ISOPEN) THEN
1882: l_attr_count NUMBER;
1883:
1884: BEGIN
1885:
1886: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1887: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
1888: 'Entered contract_type_spec_validat');
1889: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
1890: 'Contract Type is: ' || p_contract_type);
1883:
1884: BEGIN
1885:
1886: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1887: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
1888: 'Entered contract_type_spec_validat');
1889: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
1890: 'Contract Type is: ' || p_contract_type);
1891: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
1885:
1886: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1887: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
1888: 'Entered contract_type_spec_validat');
1889: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
1890: 'Contract Type is: ' || p_contract_type);
1891: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
1892: 'Contract Id is: ' || p_contract_id);
1893: END IF;
1887: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
1888: 'Entered contract_type_spec_validat');
1889: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
1890: 'Contract Type is: ' || p_contract_type);
1891: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
1892: 'Contract Id is: ' || p_contract_id);
1893: END IF;
1894: x_return_status := G_RET_STS_SUCCESS;
1895:
1901: --Validations for Closeout Checklist Template Contract Type
1902: IF (p_contract_type = 'REP_CCT') THEN
1903:
1904: --Check for Deliverables
1905: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1906: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1907: 'Check for Deliverables ');
1908: END IF;
1909:
1902: IF (p_contract_type = 'REP_CCT') THEN
1903:
1904: --Check for Deliverables
1905: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1906: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1907: 'Check for Deliverables ');
1908: END IF;
1909:
1910: OPEN c_check_del_cct;
1911: FETCH c_check_del_cct INTO l_del_count;
1912: CLOSE c_check_del_cct;
1913:
1914: IF (l_del_count = 0) THEN
1915: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1916: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT, G_MODULE||l_api_name,
1917: 'No Deliverables exists for the contract');
1918: END IF;
1919: l_index := px_qa_result_tbl.count + 1;
1912: CLOSE c_check_del_cct;
1913:
1914: IF (l_del_count = 0) THEN
1915: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1916: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT, G_MODULE||l_api_name,
1917: 'No Deliverables exists for the contract');
1918: END IF;
1919: l_index := px_qa_result_tbl.count + 1;
1920: px_qa_result_tbl(l_index).error_record_type := G_REP_QA_TYPE;
1935: --Validations for SBCR Contract Type
1936: IF (p_contract_type = 'REP_SBCR') THEN
1937:
1938: --Check Role and Contacts
1939: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1940: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1941: 'Check for Role and Contacts ');
1942: END IF;
1943:
1936: IF (p_contract_type = 'REP_SBCR') THEN
1937:
1938: --Check Role and Contacts
1939: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1940: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1941: 'Check for Role and Contacts ');
1942: END IF;
1943:
1944: SELECT Count(contact_id) INTO l_con_count FROM OKC_REP_PARTY_CONTACTS
1949: FETCH c_contact_role_count INTO l_contact_count;
1950: CLOSE c_contact_role_count;
1951:
1952: IF (l_contact_count > 0) THEN
1953: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1954: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT, G_MODULE||l_api_name,
1955: 'No Deliverables exists for the contract');
1956: END IF;
1957: l_index := px_qa_result_tbl.count + 1;
1950: CLOSE c_contact_role_count;
1951:
1952: IF (l_contact_count > 0) THEN
1953: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1954: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT, G_MODULE||l_api_name,
1955: 'No Deliverables exists for the contract');
1956: END IF;
1957: l_index := px_qa_result_tbl.count + 1;
1958: px_qa_result_tbl(l_index).error_record_type := G_REP_QA_TYPE;
1984: AND assoc.CLASSIFICATION_CODE = pg.CLASSIFICATION_CODE;
1985:
1986: IF (l_attr_count = 2) THEN
1987:
1988: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1989: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1990: 'Check for UDA Acquisition History ');
1991: END IF;
1992:
1985:
1986: IF (l_attr_count = 2) THEN
1987:
1988: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1989: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1990: 'Check for UDA Acquisition History ');
1991: END IF;
1992:
1993: SELECT fcu.application_column_name INTO l_acq_type_col_name
2025: WHERE contract_id = p_contract_id
2026: AND attr_group_id = l_prev_acq_ag_id;
2027:
2028: IF (l_pre_acq_count > 0) THEN
2029: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2030: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT, G_MODULE||l_api_name,
2031: 'Acquisition History and Previous Acquisition do not match');
2032: END IF;
2033:
2026: AND attr_group_id = l_prev_acq_ag_id;
2027:
2028: IF (l_pre_acq_count > 0) THEN
2029: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2030: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT, G_MODULE||l_api_name,
2031: 'Acquisition History and Previous Acquisition do not match');
2032: END IF;
2033:
2034: l_index := px_qa_result_tbl.count + 1;
2061: AND assoc.CLASSIFICATION_CODE = pg.CLASSIFICATION_CODE;
2062:
2063: IF (l_attr_count = 2) THEN
2064:
2065: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2066: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2067: 'Check for UDA Recommendation ');
2068: END IF;
2069:
2062:
2063: IF (l_attr_count = 2) THEN
2064:
2065: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2066: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2067: 'Check for UDA Recommendation ');
2068: END IF;
2069:
2070: SELECT fcu.application_column_name INTO l_remarks_col_name
2103: END;
2104:
2105: IF (l_remarks IS NULL ) THEN
2106:
2107: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2108: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT, G_MODULE||l_api_name,
2109: 'Both Recommendation and Remarks are not entered');
2110: END IF;
2111:
2104:
2105: IF (l_remarks IS NULL ) THEN
2106:
2107: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2108: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT, G_MODULE||l_api_name,
2109: 'Both Recommendation and Remarks are not entered');
2110: END IF;
2111:
2112: l_index := px_qa_result_tbl.count + 1;
2130: END IF;--p_contract_type = 'REP_SBCR'
2131:
2132: -- Standard call to get message count and if count is 1, get message info.
2133: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
2134: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2135: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,
2136: G_MODULE||l_api_name,'leaving OKC_REP_QA_CHECK_PVT.contract_type_spec_validat');
2137: END IF;
2138:
2131:
2132: -- Standard call to get message count and if count is 1, get message info.
2133: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
2134: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2135: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,
2136: G_MODULE||l_api_name,'leaving OKC_REP_QA_CHECK_PVT.contract_type_spec_validat');
2137: END IF;
2138:
2139: EXCEPTION
2137: END IF;
2138:
2139: EXCEPTION
2140: WHEN FND_API.G_EXC_ERROR THEN
2141: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2142: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION , G_MODULE||l_api_name,
2143: 'Leaving OKC_REP_QA_CHECK_PVT.contract_type_spec_validat with G_EXC_ERROR');
2144: END IF;
2145: x_return_status := G_RET_STS_ERROR;
2138:
2139: EXCEPTION
2140: WHEN FND_API.G_EXC_ERROR THEN
2141: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2142: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION , G_MODULE||l_api_name,
2143: 'Leaving OKC_REP_QA_CHECK_PVT.contract_type_spec_validat with G_EXC_ERROR');
2144: END IF;
2145: x_return_status := G_RET_STS_ERROR;
2146: --close cursors
2156: p_data => x_msg_data
2157: );
2158:
2159: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2160: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2161: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,G_MODULE||l_api_name,
2162: 'Leaving OKC_REP_QA_CHECK_PVT.contract_type_spec_validat with G_EXC_UNEXPECTED_ERROR');
2163: END IF;
2164: x_return_status := G_RET_STS_UNEXP_ERROR;
2157: );
2158:
2159: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2160: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2161: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,G_MODULE||l_api_name,
2162: 'Leaving OKC_REP_QA_CHECK_PVT.contract_type_spec_validat with G_EXC_UNEXPECTED_ERROR');
2163: END IF;
2164: x_return_status := G_RET_STS_UNEXP_ERROR;
2165: --close cursors
2175: p_data => x_msg_data
2176: );
2177:
2178: WHEN OTHERS THEN
2179: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2180: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
2181: G_MODULE || l_api_name,
2182: 'Leaving OKC_REP_QA_CHECK_PVT.contract_type_spec_validat because of EXCEPTION: ' || sqlerrm);
2183: END IF;
2176: );
2177:
2178: WHEN OTHERS THEN
2179: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2180: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
2181: G_MODULE || l_api_name,
2182: 'Leaving OKC_REP_QA_CHECK_PVT.contract_type_spec_validat because of EXCEPTION: ' || sqlerrm);
2183: END IF;
2184: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2252: contract_type_rec contract_type_csr%ROWTYPE;
2253:
2254: BEGIN
2255:
2256: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2257: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2258: 'Entered OKC_REP_QA_CHECK_PVT.validate_E_Signature ');
2259: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2260: 'Contract type is: ' || p_contract_type);
2253:
2254: BEGIN
2255:
2256: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2257: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2258: 'Entered OKC_REP_QA_CHECK_PVT.validate_E_Signature ');
2259: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2260: 'Contract type is: ' || p_contract_type);
2261: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2255:
2256: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2257: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2258: 'Entered OKC_REP_QA_CHECK_PVT.validate_E_Signature ');
2259: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2260: 'Contract type is: ' || p_contract_type);
2261: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2262: 'Severity level is: ' || p_severity);
2263: END IF;
2257: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2258: 'Entered OKC_REP_QA_CHECK_PVT.validate_E_Signature ');
2259: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2260: 'Contract type is: ' || p_contract_type);
2261: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2262: 'Severity level is: ' || p_severity);
2263: END IF;
2264:
2265: -- Standard call to check for call compatibility.
2276:
2277: OPEN contract_type_csr;
2278: FETCH contract_type_csr INTO contract_type_rec;
2279: IF contract_type_csr%NOTFOUND THEN
2280: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2281: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION ,
2282: G_MODULE||l_api_name, 'Contract Type: '|| p_contract_type || ' does not exist');
2283: END IF;
2284: RAISE FND_API.G_EXC_ERROR;
2277: OPEN contract_type_csr;
2278: FETCH contract_type_csr INTO contract_type_rec;
2279: IF contract_type_csr%NOTFOUND THEN
2280: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2281: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION ,
2282: G_MODULE||l_api_name, 'Contract Type: '|| p_contract_type || ' does not exist');
2283: END IF;
2284: RAISE FND_API.G_EXC_ERROR;
2285: END IF; -- contract_type_csr%NOTFOUND
2285: END IF; -- contract_type_csr%NOTFOUND
2286:
2287: IF contract_type_rec.approval_workflow_name IS NULL THEN
2288:
2289: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2290: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT, G_MODULE||l_api_name,
2291: 'Contract Approval Workflow not available for the given contrcat type');
2292: END IF;
2293: l_index := px_qa_result_tbl.count + 1;
2286:
2287: IF contract_type_rec.approval_workflow_name IS NULL THEN
2288:
2289: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2290: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT, G_MODULE||l_api_name,
2291: 'Contract Approval Workflow not available for the given contrcat type');
2292: END IF;
2293: l_index := px_qa_result_tbl.count + 1;
2294: px_qa_result_tbl(l_index).error_record_type := G_REP_QA_TYPE;
2307:
2308: -- Standard call to get message count and if count is 1, get message info.
2309: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
2310:
2311: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2312: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2313: 'Leaving OKC_REP_QA_CHECK_PVT.validate_Approval_Workflow');
2314: END IF;
2315: EXCEPTION
2308: -- Standard call to get message count and if count is 1, get message info.
2309: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
2310:
2311: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2312: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2313: 'Leaving OKC_REP_QA_CHECK_PVT.validate_Approval_Workflow');
2314: END IF;
2315: EXCEPTION
2316: WHEN FND_API.G_EXC_ERROR THEN
2313: 'Leaving OKC_REP_QA_CHECK_PVT.validate_Approval_Workflow');
2314: END IF;
2315: EXCEPTION
2316: WHEN FND_API.G_EXC_ERROR THEN
2317: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2318: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION , G_MODULE||l_api_name,
2319: 'Leaving OKC_REP_QA_CHECK_PVT.validate_Approval_Workflow with G_EXC_ERROR');
2320: END IF;
2321: --close cursors
2314: END IF;
2315: EXCEPTION
2316: WHEN FND_API.G_EXC_ERROR THEN
2317: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2318: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION , G_MODULE||l_api_name,
2319: 'Leaving OKC_REP_QA_CHECK_PVT.validate_Approval_Workflow with G_EXC_ERROR');
2320: END IF;
2321: --close cursors
2322: IF (contract_type_csr%ISOPEN) THEN
2330: p_data => x_msg_data
2331: );
2332:
2333: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2334: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2335: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,G_MODULE||l_api_name,
2336: 'Leaving OKC_REP_QA_CHECK_PVT.validate_Approval_Workflow with G_EXC_UNEXPECTED_ERROR');
2337: END IF;
2338: --close cursors
2331: );
2332:
2333: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2334: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2335: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,G_MODULE||l_api_name,
2336: 'Leaving OKC_REP_QA_CHECK_PVT.validate_Approval_Workflow with G_EXC_UNEXPECTED_ERROR');
2337: END IF;
2338: --close cursors
2339: IF (contract_type_csr%ISOPEN) THEN
2346: );
2347:
2348: WHEN OTHERS THEN
2349:
2350: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2351: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
2352: G_MODULE || l_api_name,
2353: 'Leaving OKC_REP_QA_CHECK_PVT.validate_Approval_Workflow because of EXCEPTION: ' || sqlerrm);
2354: END IF;
2347:
2348: WHEN OTHERS THEN
2349:
2350: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2351: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
2352: G_MODULE || l_api_name,
2353: 'Leaving OKC_REP_QA_CHECK_PVT.validate_Approval_Workflow because of EXCEPTION: ' || sqlerrm);
2354: END IF;
2355: --close cursors
2450: risk_rec risk_csr%ROWTYPE;
2451:
2452: BEGIN
2453:
2454: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2455: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
2456: 'Entered validate_repository_for_qa');
2457: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
2458: 'Contract Type is: ' || p_contract_type);
2451:
2452: BEGIN
2453:
2454: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2455: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
2456: 'Entered validate_repository_for_qa');
2457: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
2458: 'Contract Type is: ' || p_contract_type);
2459: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
2453:
2454: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2455: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
2456: 'Entered validate_repository_for_qa');
2457: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
2458: 'Contract Type is: ' || p_contract_type);
2459: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
2460: 'Contract Id is: ' || p_contract_id);
2461: END IF;
2455: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
2456: 'Entered validate_repository_for_qa');
2457: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
2458: 'Contract Type is: ' || p_contract_type);
2459: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
2460: 'Contract Id is: ' || p_contract_id);
2461: END IF;
2462: x_return_status := G_RET_STS_SUCCESS;
2463: x_return_status := OKC_API.START_ACTIVITY(l_api_name,
2476: FND_MSG_PUB.initialize;
2477: END IF;
2478:
2479: --Check for external party
2480: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2481: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2482: 'Calling OKC_REP_QA_CHECK_PVT.check_no_exteral_party() API');
2483: END IF;
2484: check_no_external_party (
2477: END IF;
2478:
2479: --Check for external party
2480: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2481: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2482: 'Calling OKC_REP_QA_CHECK_PVT.check_no_exteral_party() API');
2483: END IF;
2484: check_no_external_party (
2485: p_api_version => 1,
2490: x_msg_data => x_msg_data,
2491: x_msg_count => x_msg_count,
2492: x_return_status => x_return_status
2493: );
2494: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2495: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT , G_MODULE||l_api_name,
2496: 'Completed OKC_REP_QA_CHECK_PVT.check_no_exteral_party with returned status: ' || x_return_status);
2497: END IF;
2498: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2491: x_msg_count => x_msg_count,
2492: x_return_status => x_return_status
2493: );
2494: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2495: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT , G_MODULE||l_api_name,
2496: 'Completed OKC_REP_QA_CHECK_PVT.check_no_exteral_party with returned status: ' || x_return_status);
2497: END IF;
2498: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2499: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2510:
2511: IF Nvl(contract_rec.esignature_required,'N') ='E' THEN
2512:
2513: --Check for ESignature
2514: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2515: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2516: 'Calling OKC_REP_QA_CHECK_PVT.validate_E_Signature() API');
2517: END IF;
2518:
2511: IF Nvl(contract_rec.esignature_required,'N') ='E' THEN
2512:
2513: --Check for ESignature
2514: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2515: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2516: 'Calling OKC_REP_QA_CHECK_PVT.validate_E_Signature() API');
2517: END IF;
2518:
2519: validate_E_Signature (
2526: x_msg_data => x_msg_data,
2527: x_msg_count => x_msg_count,
2528: x_return_status => x_return_status
2529: );
2530: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2531: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT , G_MODULE||l_api_name,
2532: 'Completed OKC_REP_QA_CHECK_PVT.validate_E_Signature with returned status: ' || x_return_status);
2533: END IF;
2534: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2527: x_msg_count => x_msg_count,
2528: x_return_status => x_return_status
2529: );
2530: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2531: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT , G_MODULE||l_api_name,
2532: 'Completed OKC_REP_QA_CHECK_PVT.validate_E_Signature with returned status: ' || x_return_status);
2533: END IF;
2534: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2535: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2539:
2540: END IF;
2541:
2542: -- Log effective date columns
2543: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2544: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,
2545: G_MODULE||l_api_name,'Contract Effective Date is : '
2546: || contract_rec.contract_effective_date);
2547: END IF;
2540: END IF;
2541:
2542: -- Log effective date columns
2543: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2544: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,
2545: G_MODULE||l_api_name,'Contract Effective Date is : '
2546: || contract_rec.contract_effective_date);
2547: END IF;
2548: --Check for null effective date
2545: G_MODULE||l_api_name,'Contract Effective Date is : '
2546: || contract_rec.contract_effective_date);
2547: END IF;
2548: --Check for null effective date
2549: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2550: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2551: 'Calling OKC_REP_QA_CHECK_PVT.check_no_eff_date() API');
2552: END IF;
2553:
2546: || contract_rec.contract_effective_date);
2547: END IF;
2548: --Check for null effective date
2549: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2550: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2551: 'Calling OKC_REP_QA_CHECK_PVT.check_no_eff_date() API');
2552: END IF;
2553:
2554: if(p_contract_type <> 'REP_SBCR') then
2563: x_msg_count => x_msg_count,
2564: x_return_status => x_return_status);
2565: end if;
2566:
2567: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2568: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT , G_MODULE||l_api_name,
2569: 'Completed OKC_REP_QA_CHECK_PVT.check_no_eff_date with returned status: ' || x_return_status);
2570: END IF;
2571: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2564: x_return_status => x_return_status);
2565: end if;
2566:
2567: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2568: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT , G_MODULE||l_api_name,
2569: 'Completed OKC_REP_QA_CHECK_PVT.check_no_eff_date with returned status: ' || x_return_status);
2570: END IF;
2571: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2572: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2580: IF(contract_exp_csr%NOTFOUND) THEN
2581: RAISE NO_DATA_FOUND;
2582: END IF;
2583: -- Log expiration date columns
2584: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2585: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,
2586: G_MODULE||l_api_name,'Contract Expiration Date is : '
2587: || contract_exp_rec.contract_expiration_date);
2588: END IF;
2581: RAISE NO_DATA_FOUND;
2582: END IF;
2583: -- Log expiration date columns
2584: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2585: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,
2586: G_MODULE||l_api_name,'Contract Expiration Date is : '
2587: || contract_exp_rec.contract_expiration_date);
2588: END IF;
2589: --Check for expiry
2586: G_MODULE||l_api_name,'Contract Expiration Date is : '
2587: || contract_exp_rec.contract_expiration_date);
2588: END IF;
2589: --Check for expiry
2590: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2591: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2592: 'Calling OKC_REP_QA_CHECK_PVT.check_expiry_check() API');
2593: END IF;
2594:
2587: || contract_exp_rec.contract_expiration_date);
2588: END IF;
2589: --Check for expiry
2590: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2591: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2592: 'Calling OKC_REP_QA_CHECK_PVT.check_expiry_check() API');
2593: END IF;
2594:
2595:
2607:
2608:
2609:
2610:
2611: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2612: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT , G_MODULE||l_api_name,
2613: 'Completed OKC_REP_QA_CHECK_PVT.check_expiry_check with returned status: ' || x_return_status);
2614: END IF;
2615: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2608:
2609:
2610:
2611: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2612: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT , G_MODULE||l_api_name,
2613: 'Completed OKC_REP_QA_CHECK_PVT.check_expiry_check with returned status: ' || x_return_status);
2614: END IF;
2615: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2616: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2618: RAISE OKC_API.G_EXCEPTION_ERROR;
2619: END IF;
2620:
2621: --Validate contract type
2622: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2623: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2624: 'Calling OKC_REP_QA_CHECK_PVT.validate_contract_type() API');
2625: END IF;
2626: validate_contract_type (
2619: END IF;
2620:
2621: --Validate contract type
2622: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2623: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2624: 'Calling OKC_REP_QA_CHECK_PVT.validate_contract_type() API');
2625: END IF;
2626: validate_contract_type (
2627: p_api_version => 1,
2632: x_msg_data => x_msg_data,
2633: x_msg_count => x_msg_count,
2634: x_return_status => x_return_status
2635: );
2636: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2637: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT , G_MODULE||l_api_name,
2638: 'Completed OKC_REP_QA_CHECK_PVT.validate_contract_type with returned status: ' || x_return_status);
2639: END IF;
2640: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2633: x_msg_count => x_msg_count,
2634: x_return_status => x_return_status
2635: );
2636: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2637: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT , G_MODULE||l_api_name,
2638: 'Completed OKC_REP_QA_CHECK_PVT.validate_contract_type with returned status: ' || x_return_status);
2639: END IF;
2640: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2641: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2643: RAISE OKC_API.G_EXCEPTION_ERROR;
2644: END IF;
2645:
2646: --Validate approval Workflow
2647: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2648: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2649: 'Calling OKC_REP_QA_CHECK_PVT.validate_Approval_Workflow() API');
2650: END IF;
2651:
2644: END IF;
2645:
2646: --Validate approval Workflow
2647: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2648: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2649: 'Calling OKC_REP_QA_CHECK_PVT.validate_Approval_Workflow() API');
2650: END IF;
2651:
2652: validate_Approval_Workflow (
2660: x_msg_count => x_msg_count,
2661: x_return_status => x_return_status
2662: );
2663:
2664: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2665: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT , G_MODULE||l_api_name,
2666: 'Completed OKC_REP_QA_CHECK_PVT.validate_Approval_Workflow with returned status: ' || x_return_status);
2667: END IF;
2668: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2661: x_return_status => x_return_status
2662: );
2663:
2664: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2665: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT , G_MODULE||l_api_name,
2666: 'Completed OKC_REP_QA_CHECK_PVT.validate_Approval_Workflow with returned status: ' || x_return_status);
2667: END IF;
2668: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2669: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2673:
2674: -- Validate Parties
2675: -- Loop through all the external parties and check if these are still valid.
2676: FOR party_rec IN party_csr LOOP
2677: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2678: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2679: 'Calling OKC_REP_QA_CHECK_PVT.validate_external_party() API');
2680: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2681: 'Party Id is: '|| party_rec.party_id);
2674: -- Validate Parties
2675: -- Loop through all the external parties and check if these are still valid.
2676: FOR party_rec IN party_csr LOOP
2677: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2678: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2679: 'Calling OKC_REP_QA_CHECK_PVT.validate_external_party() API');
2680: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2681: 'Party Id is: '|| party_rec.party_id);
2682: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2676: FOR party_rec IN party_csr LOOP
2677: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2678: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2679: 'Calling OKC_REP_QA_CHECK_PVT.validate_external_party() API');
2680: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2681: 'Party Id is: '|| party_rec.party_id);
2682: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2683: 'Party role code is: '|| party_rec.party_role_code);
2684: END IF;
2678: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2679: 'Calling OKC_REP_QA_CHECK_PVT.validate_external_party() API');
2680: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2681: 'Party Id is: '|| party_rec.party_id);
2682: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2683: 'Party role code is: '|| party_rec.party_role_code);
2684: END IF;
2685: validate_external_party (
2686: p_api_version => 1,
2692: x_msg_data => x_msg_data,
2693: x_msg_count => x_msg_count,
2694: x_return_status => x_return_status
2695: );
2696: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2697: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT , G_MODULE||l_api_name,
2698: 'Completed OKC_REP_QA_CHECK_PVT.validate_external_party with returned status: ' || x_return_status);
2699: END IF;
2700: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2693: x_msg_count => x_msg_count,
2694: x_return_status => x_return_status
2695: );
2696: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2697: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT , G_MODULE||l_api_name,
2698: 'Completed OKC_REP_QA_CHECK_PVT.validate_external_party with returned status: ' || x_return_status);
2699: END IF;
2700: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2701: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2706:
2707: -- Validate contacts and contact roles
2708: -- Loop through all the external contacts and check if these are still valid.
2709: FOR party_contact_rec IN party_contact_csr LOOP
2710: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2711: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2712: 'Calling OKC_REP_QA_CHECK_PVT.validate_contact() and validate_contact_role() APIs');
2713: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2714: 'Party Id is: '|| party_contact_rec.party_id);
2707: -- Validate contacts and contact roles
2708: -- Loop through all the external contacts and check if these are still valid.
2709: FOR party_contact_rec IN party_contact_csr LOOP
2710: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2711: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2712: 'Calling OKC_REP_QA_CHECK_PVT.validate_contact() and validate_contact_role() APIs');
2713: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2714: 'Party Id is: '|| party_contact_rec.party_id);
2715: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2709: FOR party_contact_rec IN party_contact_csr LOOP
2710: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2711: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2712: 'Calling OKC_REP_QA_CHECK_PVT.validate_contact() and validate_contact_role() APIs');
2713: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2714: 'Party Id is: '|| party_contact_rec.party_id);
2715: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2716: 'Party role code is: '|| party_contact_rec.party_role_code);
2717: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2711: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2712: 'Calling OKC_REP_QA_CHECK_PVT.validate_contact() and validate_contact_role() APIs');
2713: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2714: 'Party Id is: '|| party_contact_rec.party_id);
2715: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2716: 'Party role code is: '|| party_contact_rec.party_role_code);
2717: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2718: 'Contact Id is: '|| party_contact_rec.contact_id);
2719: END IF;
2713: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2714: 'Party Id is: '|| party_contact_rec.party_id);
2715: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2716: 'Party role code is: '|| party_contact_rec.party_role_code);
2717: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2718: 'Contact Id is: '|| party_contact_rec.contact_id);
2719: END IF;
2720: -- Validate contact
2721: validate_contact (
2729: x_msg_data => x_msg_data,
2730: x_msg_count => x_msg_count,
2731: x_return_status => x_return_status
2732: );
2733: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2734: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT , G_MODULE||l_api_name,
2735: 'Completed OKC_REP_QA_CHECK_PVT.validate_contact with returned status: ' || x_return_status);
2736: END IF;
2737: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2730: x_msg_count => x_msg_count,
2731: x_return_status => x_return_status
2732: );
2733: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2734: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT , G_MODULE||l_api_name,
2735: 'Completed OKC_REP_QA_CHECK_PVT.validate_contact with returned status: ' || x_return_status);
2736: END IF;
2737: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2738: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2750: x_msg_data => x_msg_data,
2751: x_msg_count => x_msg_count,
2752: x_return_status => x_return_status
2753: );
2754: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2755: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT , G_MODULE||l_api_name,
2756: 'Completed OKC_REP_QA_CHECK_PVT.validate_contact_role with returned status: ' || x_return_status);
2757: END IF;
2758: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2751: x_msg_count => x_msg_count,
2752: x_return_status => x_return_status
2753: );
2754: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2755: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT , G_MODULE||l_api_name,
2756: 'Completed OKC_REP_QA_CHECK_PVT.validate_contact_role with returned status: ' || x_return_status);
2757: END IF;
2758: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2759: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2765:
2766: -- Validate Parties
2767: -- Loop through all contract risk events and check if these are still valid.
2768: FOR risk_rec IN risk_csr LOOP
2769: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2770: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2771: 'Calling OKC_REP_QA_CHECK_PVT.validate_risk_event() API');
2772: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2773: 'Risk Event Id is: '|| risk_rec.risk_event_id);
2766: -- Validate Parties
2767: -- Loop through all contract risk events and check if these are still valid.
2768: FOR risk_rec IN risk_csr LOOP
2769: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2770: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2771: 'Calling OKC_REP_QA_CHECK_PVT.validate_risk_event() API');
2772: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2773: 'Risk Event Id is: '|| risk_rec.risk_event_id);
2774: END IF;
2768: FOR risk_rec IN risk_csr LOOP
2769: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2770: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2771: 'Calling OKC_REP_QA_CHECK_PVT.validate_risk_event() API');
2772: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2773: 'Risk Event Id is: '|| risk_rec.risk_event_id);
2774: END IF;
2775: validate_risk_event (
2776: p_api_version => 1,
2781: x_msg_data => x_msg_data,
2782: x_msg_count => x_msg_count,
2783: x_return_status => x_return_status
2784: );
2785: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2786: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT , G_MODULE||l_api_name,
2787: 'Completed OKC_REP_QA_CHECK_PVT.validate_risk_event with returned status: ' || x_return_status);
2788: END IF;
2789: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2782: x_msg_count => x_msg_count,
2783: x_return_status => x_return_status
2784: );
2785: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2786: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT , G_MODULE||l_api_name,
2787: 'Completed OKC_REP_QA_CHECK_PVT.validate_risk_event with returned status: ' || x_return_status);
2788: END IF;
2789: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2790: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2794: END LOOP;
2795:
2796: --Document Type Specific validations
2797:
2798: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2799: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2800: 'Calling OKC_REP_QA_CHECK_PVT.contract_type_spec_validat() API');
2801: END IF;
2802: contract_type_spec_validat(p_api_version => 1,
2795:
2796: --Document Type Specific validations
2797:
2798: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2799: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2800: 'Calling OKC_REP_QA_CHECK_PVT.contract_type_spec_validat() API');
2801: END IF;
2802: contract_type_spec_validat(p_api_version => 1,
2803: p_init_msg_list => FND_API.G_FALSE,
2807: x_msg_data => x_msg_data,
2808: x_msg_count => x_msg_count,
2809: x_return_status => x_return_status );
2810:
2811: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2812: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT , G_MODULE||l_api_name,
2813: 'Completed OKC_REP_QA_CHECK_PVT.contract_type_spec_validat with returned status: ' || x_return_status);
2814: END IF;
2815: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2808: x_msg_count => x_msg_count,
2809: x_return_status => x_return_status );
2810:
2811: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2812: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT , G_MODULE||l_api_name,
2813: 'Completed OKC_REP_QA_CHECK_PVT.contract_type_spec_validat with returned status: ' || x_return_status);
2814: END IF;
2815: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2816: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2819: END IF;
2820:
2821: --Call Custom Code hook for additional validations
2822:
2823: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2824: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2825: 'Calling OKC_REP_VAL_CODE_HOOK.CUSTOM_CONT_VALIDATE() API');
2826: END IF;
2827: OKC_REP_VAL_CODE_HOOK.CUSTOM_CONT_VALIDATE(p_api_version => 1,
2820:
2821: --Call Custom Code hook for additional validations
2822:
2823: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2824: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2825: 'Calling OKC_REP_VAL_CODE_HOOK.CUSTOM_CONT_VALIDATE() API');
2826: END IF;
2827: OKC_REP_VAL_CODE_HOOK.CUSTOM_CONT_VALIDATE(p_api_version => 1,
2828: p_init_msg_list => FND_API.G_FALSE,
2832: x_msg_data => x_msg_data,
2833: x_msg_count => x_msg_count,
2834: x_return_status => x_return_status );
2835:
2836: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2837: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT , G_MODULE||l_api_name,
2838: 'Completed OKC_REP_VAL_CODE_HOOK.CUSTOM_CONT_VALIDATE with returned status: ' || x_return_status);
2839: END IF;
2840:
2833: x_msg_count => x_msg_count,
2834: x_return_status => x_return_status );
2835:
2836: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2837: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT , G_MODULE||l_api_name,
2838: 'Completed OKC_REP_VAL_CODE_HOOK.CUSTOM_CONT_VALIDATE with returned status: ' || x_return_status);
2839: END IF;
2840:
2841: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2847: -- Close all cursors.
2848: CLOSE contract_csr;
2849: -- Standard call to get message count and if count is 1, get message info.
2850: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
2851: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2852: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,
2853: G_MODULE||l_api_name,'leaving OKC_REP_QA_CHECK_PVT.validate_repository_for_qa');
2854: END IF;
2855:
2848: CLOSE contract_csr;
2849: -- Standard call to get message count and if count is 1, get message info.
2850: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
2851: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2852: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,
2853: G_MODULE||l_api_name,'leaving OKC_REP_QA_CHECK_PVT.validate_repository_for_qa');
2854: END IF;
2855:
2856: EXCEPTION
2854: END IF;
2855:
2856: EXCEPTION
2857: WHEN FND_API.G_EXC_ERROR THEN
2858: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2859: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION , G_MODULE||l_api_name,
2860: 'Leaving OKC_REP_QA_CHECK_PVT.validate_repository_for_qa with G_EXC_ERROR');
2861: END IF;
2862: x_return_status := G_RET_STS_ERROR;
2855:
2856: EXCEPTION
2857: WHEN FND_API.G_EXC_ERROR THEN
2858: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2859: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION , G_MODULE||l_api_name,
2860: 'Leaving OKC_REP_QA_CHECK_PVT.validate_repository_for_qa with G_EXC_ERROR');
2861: END IF;
2862: x_return_status := G_RET_STS_ERROR;
2863: --close cursors
2869: p_data => x_msg_data
2870: );
2871:
2872: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2873: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2874: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,G_MODULE||l_api_name,
2875: 'Leaving OKC_REP_QA_CHECK_PVT.validate_repository_for_qa with G_EXC_UNEXPECTED_ERROR');
2876: END IF;
2877: x_return_status := G_RET_STS_UNEXP_ERROR;
2870: );
2871:
2872: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2873: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2874: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,G_MODULE||l_api_name,
2875: 'Leaving OKC_REP_QA_CHECK_PVT.validate_repository_for_qa with G_EXC_UNEXPECTED_ERROR');
2876: END IF;
2877: x_return_status := G_RET_STS_UNEXP_ERROR;
2878: --close cursors
2884: p_data => x_msg_data
2885: );
2886:
2887: WHEN OTHERS THEN
2888: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2889: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
2890: G_MODULE || l_api_name,
2891: 'Leaving OKC_REP_QA_CHECK_PVT.validate_repository_for_qa because of EXCEPTION: ' || sqlerrm);
2892: END IF;
2885: );
2886:
2887: WHEN OTHERS THEN
2888: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2889: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
2890: G_MODULE || l_api_name,
2891: 'Leaving OKC_REP_QA_CHECK_PVT.validate_repository_for_qa because of EXCEPTION: ' || sqlerrm);
2892: END IF;
2893: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2963: contract_rec contract_csr%ROWTYPE;
2964:
2965: BEGIN
2966:
2967: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2968: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
2969: 'Entered perform_contract_qa_check');
2970: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
2971: 'Contract Id is: ' || p_contract_id);
2964:
2965: BEGIN
2966:
2967: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2968: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
2969: 'Entered perform_contract_qa_check');
2970: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
2971: 'Contract Id is: ' || p_contract_id);
2972: END IF;
2966:
2967: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2968: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
2969: 'Entered perform_contract_qa_check');
2970: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
2971: 'Contract Id is: ' || p_contract_id);
2972: END IF;
2973: x_qa_return_status := G_QA_STS_SUCCESS;
2974: x_return_status := G_RET_STS_SUCCESS;
2991: -- Get effective dates and contract_type of the contract.
2992: OPEN contract_csr;
2993: FETCH contract_csr INTO contract_rec;
2994: IF(contract_csr%NOTFOUND) THEN
2995: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2996: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION ,
2997: G_MODULE||l_api_name,
2998: 'Invalid Contract Id: '|| p_contract_id);
2999: END IF;
2992: OPEN contract_csr;
2993: FETCH contract_csr INTO contract_rec;
2994: IF(contract_csr%NOTFOUND) THEN
2995: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2996: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION ,
2997: G_MODULE||l_api_name,
2998: 'Invalid Contract Id: '|| p_contract_id);
2999: END IF;
3000: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
3005: -- RAISE NO_DATA_FOUND;
3006: END IF;
3007:
3008:
3009: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3010: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
3011: 'Contract Type is: ' || contract_rec.contract_type);
3012: END IF;
3013:
3006: END IF;
3007:
3008:
3009: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3010: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
3011: 'Contract Type is: ' || contract_rec.contract_type);
3012: END IF;
3013:
3014: -- Repository Enhancement 12.1 (For Validate Action)
3012: END IF;
3013:
3014: -- Repository Enhancement 12.1 (For Validate Action)
3015:
3016: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3017: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
3018: 'Calling OKC_TERMS_QA_GRP.QA_Doc API');
3019: END IF;
3020:
3013:
3014: -- Repository Enhancement 12.1 (For Validate Action)
3015:
3016: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3017: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
3018: 'Calling OKC_TERMS_QA_GRP.QA_Doc API');
3019: END IF;
3020:
3021:
3030: p_doc_id => p_contract_id,
3031: x_qa_result_tbl => l_qa_result_tbl,
3032: x_qa_return_status => x_qa_return_status);
3033:
3034: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3035: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT , G_MODULE||l_api_name,
3036: 'Completed OKC_TERMS_QA_GRP.QA_Doc with returned status: ' || x_return_status);
3037: END IF;
3038:
3031: x_qa_result_tbl => l_qa_result_tbl,
3032: x_qa_return_status => x_qa_return_status);
3033:
3034: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3035: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT , G_MODULE||l_api_name,
3036: 'Completed OKC_TERMS_QA_GRP.QA_Doc with returned status: ' || x_return_status);
3037: END IF;
3038:
3039: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3043: END IF;
3044: -- Repository Enhancement 12.1 Ends (For Validate Action)
3045:
3046: -- Make call for Repository QA check
3047: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3048: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
3049: 'Calling OKC_REP_QA_CHECK_PVT.validate_repository_for_qa() API');
3050: END IF;
3051: validate_repository_for_qa (
3044: -- Repository Enhancement 12.1 Ends (For Validate Action)
3045:
3046: -- Make call for Repository QA check
3047: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3048: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
3049: 'Calling OKC_REP_QA_CHECK_PVT.validate_repository_for_qa() API');
3050: END IF;
3051: validate_repository_for_qa (
3052: p_api_version => 1,
3056: p_qa_result_tbl => l_qa_result_tbl,
3057: x_msg_data => x_msg_data,
3058: x_msg_count => x_msg_count,
3059: x_return_status => x_return_status);
3060: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3061: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT , G_MODULE||l_api_name,
3062: 'Completed OKC_REP_QA_CHECK_PVT.validate_repository_for_qa with returned status: ' || x_return_status);
3063: END IF;
3064: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3057: x_msg_data => x_msg_data,
3058: x_msg_count => x_msg_count,
3059: x_return_status => x_return_status);
3060: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3061: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT , G_MODULE||l_api_name,
3062: 'Completed OKC_REP_QA_CHECK_PVT.validate_repository_for_qa with returned status: ' || x_return_status);
3063: END IF;
3064: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3065: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3068: END IF;
3069:
3070: -- Make call for deliverables QA check
3071:
3072: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3073: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
3074: 'Calling OKC_DELIVERABLE_PROCESS_PVT.validate_deliverable_for_qa() API');
3075: END IF;
3076: l_bus_doc_date_events_tbl(1).event_code := G_CONTRACT_EFFECTIVE_EVENT;
3069:
3070: -- Make call for deliverables QA check
3071:
3072: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3073: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
3074: 'Calling OKC_DELIVERABLE_PROCESS_PVT.validate_deliverable_for_qa() API');
3075: END IF;
3076: l_bus_doc_date_events_tbl(1).event_code := G_CONTRACT_EFFECTIVE_EVENT;
3077: l_bus_doc_date_events_tbl(1).event_date := contract_rec.contract_effective_date;
3091: x_msg_count => x_msg_count,
3092: x_return_status => x_return_status,
3093: x_qa_return_status => x_qa_return_status);
3094:
3095: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3096: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT , G_MODULE||l_api_name,
3097: 'Completed OKC_DELIVERABLE_PROCESS_PVT.validate_deliverable_for_qa with returned status: ' || x_return_status);
3098: END IF;
3099: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3092: x_return_status => x_return_status,
3093: x_qa_return_status => x_qa_return_status);
3094:
3095: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3096: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT , G_MODULE||l_api_name,
3097: 'Completed OKC_DELIVERABLE_PROCESS_PVT.validate_deliverable_for_qa with returned status: ' || x_return_status);
3098: END IF;
3099: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3100: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3107: -- Now insert into Temp table.
3108: --------------------------------------------
3109: -- Save result from PLSQL table into DB table
3110: --------------------------------------------
3111: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3112: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,
3113: G_MODULE||l_api_name,'1015: Save result from PLSQL table into DB table');
3114: END IF;
3115:
3108: --------------------------------------------
3109: -- Save result from PLSQL table into DB table
3110: --------------------------------------------
3111: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3112: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,
3113: G_MODULE||l_api_name,'1015: Save result from PLSQL table into DB table');
3114: END IF;
3115:
3116:
3117: -- After calling the validation APIs we need to find out about the x_qa_return_status. We should loop through
3118: -- this only if we get
3119: IF l_qa_result_tbl.COUNT > 0 THEN
3120: FOR i IN l_qa_result_tbl.FIRST..l_qa_result_tbl.LAST LOOP
3121: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3122: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
3123: 'Updating pl/sql table record: ' || i);
3124: END IF;
3125: l_qa_result_tbl(i).error_record_type_name := okc_util.decode_lookup('OKC_ERROR_RECORD_TYPE',l_qa_result_tbl(i).error_record_type);
3118: -- this only if we get
3119: IF l_qa_result_tbl.COUNT > 0 THEN
3120: FOR i IN l_qa_result_tbl.FIRST..l_qa_result_tbl.LAST LOOP
3121: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3122: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
3123: 'Updating pl/sql table record: ' || i);
3124: END IF;
3125: l_qa_result_tbl(i).error_record_type_name := okc_util.decode_lookup('OKC_ERROR_RECORD_TYPE',l_qa_result_tbl(i).error_record_type);
3126: l_qa_result_tbl(i).error_severity_name := okc_util.decode_lookup('OKC_QA_SEVERITY',l_qa_result_tbl(i).error_severity);
3141: x_qa_return_status := G_QA_STS_WARNING;
3142: END IF;
3143: END IF; -- l_qa_result_tbl.COUNT > 0 THEN
3144:
3145: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3146: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
3147: 'Calling OKC_TERMS_QA_PVT.Log_QA_Messages');
3148: END IF;
3149: -- Load eror in the DB table
3142: END IF;
3143: END IF; -- l_qa_result_tbl.COUNT > 0 THEN
3144:
3145: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3146: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
3147: 'Calling OKC_TERMS_QA_PVT.Log_QA_Messages');
3148: END IF;
3149: -- Load eror in the DB table
3150: OKC_TERMS_QA_PVT.Log_QA_Messages(
3152:
3153: p_qa_result_tbl => l_qa_result_tbl,
3154: x_sequence_id => x_sequence_id
3155: );
3156: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3157: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
3158: 'Completed OKC_TERMS_QA_PVT.Log_QA_Messages');
3159: END IF;
3160: --------------------------------------------
3153: p_qa_result_tbl => l_qa_result_tbl,
3154: x_sequence_id => x_sequence_id
3155: );
3156: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3157: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
3158: 'Completed OKC_TERMS_QA_PVT.Log_QA_Messages');
3159: END IF;
3160: --------------------------------------------
3161: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3172:
3173: -- Standard call to get message count and if count is 1, get message info.
3174: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
3175:
3176: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3177: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,
3178: G_MODULE||l_api_name,'Leaving OKC_REP_QA_CHECK_PVT.perform_contract_qa_check');
3179: END IF;
3180:
3173: -- Standard call to get message count and if count is 1, get message info.
3174: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
3175:
3176: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3177: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,
3178: G_MODULE||l_api_name,'Leaving OKC_REP_QA_CHECK_PVT.perform_contract_qa_check');
3179: END IF;
3180:
3181: EXCEPTION
3180:
3181: EXCEPTION
3182: WHEN FND_API.G_EXC_ERROR THEN
3183:
3184: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3185: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
3186: G_MODULE||l_api_name,'Leaving OKC_REP_QA_CHECK_PVT.perform_contract_qa_check with G_EXC_ERROR');
3187: END IF;
3188: --close cursors
3181: EXCEPTION
3182: WHEN FND_API.G_EXC_ERROR THEN
3183:
3184: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3185: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
3186: G_MODULE||l_api_name,'Leaving OKC_REP_QA_CHECK_PVT.perform_contract_qa_check with G_EXC_ERROR');
3187: END IF;
3188: --close cursors
3189: IF (contract_csr%ISOPEN) THEN
3196: );
3197:
3198: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3199:
3200: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3201: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
3202: G_MODULE||l_api_name,'Leaving OKC_REP_QA_CHECK_PVT.perform_contract_qa_check with G_EXC_UNEXPECTED_ERROR');
3203: END IF;
3204: --close cursors
3197:
3198: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3199:
3200: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3201: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
3202: G_MODULE||l_api_name,'Leaving OKC_REP_QA_CHECK_PVT.perform_contract_qa_check with G_EXC_UNEXPECTED_ERROR');
3203: END IF;
3204: --close cursors
3205: IF (contract_csr%ISOPEN) THEN
3212: );
3213:
3214: WHEN OTHERS THEN
3215:
3216: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3217: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
3218: G_MODULE||l_api_name,'Leaving OKC_REP_QA_CHECK_PVT.perform_contract_qa_check with OTHERS EXCEPTION');
3219: END IF;
3220: --close cursors
3213:
3214: WHEN OTHERS THEN
3215:
3216: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3217: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
3218: G_MODULE||l_api_name,'Leaving OKC_REP_QA_CHECK_PVT.perform_contract_qa_check with OTHERS EXCEPTION');
3219: END IF;
3220: --close cursors
3221: IF (contract_csr%ISOPEN) THEN
3268: l_user_id FND_USER.USER_ID%TYPE;
3269:
3270: BEGIN
3271:
3272: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3273: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
3274: 'Entered insert_deliverables_qa_checks');
3275: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
3276: 'Contract Type is: ' || p_contract_type);
3269:
3270: BEGIN
3271:
3272: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3273: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
3274: 'Entered insert_deliverables_qa_checks');
3275: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
3276: 'Contract Type is: ' || p_contract_type);
3277: END IF;
3271:
3272: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3273: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
3274: 'Entered insert_deliverables_qa_checks');
3275: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
3276: 'Contract Type is: ' || p_contract_type);
3277: END IF;
3278:
3279: x_return_status := G_RET_STS_SUCCESS;
3314: l_user_id := FND_GLOBAL.user_id();
3315:
3316: FOR i IN l_okc_doc_qa_lists_tbl.FIRST..l_okc_doc_qa_lists_tbl.LAST LOOP
3317:
3318: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3319: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
3320: 'Inserting pl/sql table record: ' || i);
3321: END IF;
3322:
3315:
3316: FOR i IN l_okc_doc_qa_lists_tbl.FIRST..l_okc_doc_qa_lists_tbl.LAST LOOP
3317:
3318: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3319: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
3320: 'Inserting pl/sql table record: ' || i);
3321: END IF;
3322:
3323: insert into OKC_DOC_QA_LISTS(
3340: l_user_id,
3341: sysdate,
3342: l_okc_doc_qa_lists_tbl(i).enable_qa_yn);
3343:
3344: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3345: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT, g_module || l_api_name,
3346: 'After inserting a row into OKC_DOC_QA_LISTS');
3347: END IF;
3348:
3341: sysdate,
3342: l_okc_doc_qa_lists_tbl(i).enable_qa_yn);
3343:
3344: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3345: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT, g_module || l_api_name,
3346: 'After inserting a row into OKC_DOC_QA_LISTS');
3347: END IF;
3348:
3349: END LOOP;
3350:
3351: -- Standard call to get message count and if count is 1, get message info.
3352: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
3353:
3354: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3355: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
3356: 'Leaving OKC_REP_QA_CHECK_PVT.insert_deliverables_qa_checks');
3357: END IF;
3358:
3351: -- Standard call to get message count and if count is 1, get message info.
3352: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
3353:
3354: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3355: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
3356: 'Leaving OKC_REP_QA_CHECK_PVT.insert_deliverables_qa_checks');
3357: END IF;
3358:
3359: EXCEPTION
3358:
3359: EXCEPTION
3360: WHEN FND_API.G_EXC_ERROR THEN
3361:
3362: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3363: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,
3364: 'Leaving OKC_REP_QA_CHECK_PVT.insert_deliverables_qa_checks with G_EXC_ERROR');
3365: END IF;
3366:
3359: EXCEPTION
3360: WHEN FND_API.G_EXC_ERROR THEN
3361:
3362: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3363: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,
3364: 'Leaving OKC_REP_QA_CHECK_PVT.insert_deliverables_qa_checks with G_EXC_ERROR');
3365: END IF;
3366:
3367: x_return_status := G_RET_STS_ERROR;
3372: );
3373:
3374: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3375:
3376: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3377: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,
3378: 'Leaving OKC_REP_QA_CHECK_PVT.insert_deliverables_qa_checks with G_EXC_UNEXPECTED_ERROR');
3379: END IF;
3380:
3373:
3374: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3375:
3376: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3377: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,
3378: 'Leaving OKC_REP_QA_CHECK_PVT.insert_deliverables_qa_checks with G_EXC_UNEXPECTED_ERROR');
3379: END IF;
3380:
3381: x_return_status := G_RET_STS_UNEXP_ERROR;
3386: );
3387:
3388: WHEN OTHERS THEN
3389:
3390: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3391: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,
3392: 'Leaving OKC_REP_QA_CHECK_PVT.insert_deliverables_qa_checks with OTHERS EXCEPTION');
3393: END IF;
3394:
3387:
3388: WHEN OTHERS THEN
3389:
3390: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3391: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,
3392: 'Leaving OKC_REP_QA_CHECK_PVT.insert_deliverables_qa_checks with OTHERS EXCEPTION');
3393: END IF;
3394:
3395: x_return_status := G_RET_STS_UNEXP_ERROR;