48: party_rec party_csr%ROWTYPE;
49:
50:
51: BEGIN
52: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
53: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
54: 'Entered OKC_REP_QA_CHECK_PVT.check_no_external_party ');
55: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
56: 'Contract Id is: ' || p_contract_id);
49:
50:
51: BEGIN
52: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
53: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
54: 'Entered OKC_REP_QA_CHECK_PVT.check_no_external_party ');
55: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
56: 'Contract Id is: ' || p_contract_id);
57: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
51: BEGIN
52: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
53: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
54: 'Entered OKC_REP_QA_CHECK_PVT.check_no_external_party ');
55: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
56: 'Contract Id is: ' || p_contract_id);
57: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
58: 'Severity level is: ' || p_severity);
59: END IF;
53: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
54: 'Entered OKC_REP_QA_CHECK_PVT.check_no_external_party ');
55: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
56: 'Contract Id is: ' || p_contract_id);
57: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
58: 'Severity level is: ' || p_severity);
59: END IF;
60: -- Standard call to check for call compatibility.
61: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
71:
72: OPEN party_csr;
73: FETCH party_csr INTO party_rec;
74: IF party_csr%NOTFOUND THEN
75: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
76: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT, G_MODULE||l_api_name,
77: 'External Party is not found');
78: END IF;
79: -- Set the Qa Table index.
72: OPEN party_csr;
73: FETCH party_csr INTO party_rec;
74: IF party_csr%NOTFOUND THEN
75: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
76: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT, G_MODULE||l_api_name,
77: 'External Party is not found');
78: END IF;
79: -- Set the Qa Table index.
80: l_index := px_qa_result_tbl.count + 1;
90: END IF;
91: -- Standard call to get message count and if count is 1, get message info.
92: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
93:
94: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
95: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
96: 'Leaving OKC_REP_QA_CHECK_PVT.check_no_external_party');
97: END IF;
98: EXCEPTION
91: -- Standard call to get message count and if count is 1, get message info.
92: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
93:
94: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
95: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
96: 'Leaving OKC_REP_QA_CHECK_PVT.check_no_external_party');
97: END IF;
98: EXCEPTION
99: WHEN FND_API.G_EXC_ERROR THEN
96: 'Leaving OKC_REP_QA_CHECK_PVT.check_no_external_party');
97: END IF;
98: EXCEPTION
99: WHEN FND_API.G_EXC_ERROR THEN
100: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
101: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION , G_MODULE||l_api_name,
102: 'Leaving OKC_REP_QA_CHECK_PVT.check_no_external_party with G_EXC_ERROR');
103: END IF;
104: x_return_status := G_RET_STS_ERROR;
97: END IF;
98: EXCEPTION
99: WHEN FND_API.G_EXC_ERROR THEN
100: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
101: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION , G_MODULE||l_api_name,
102: 'Leaving OKC_REP_QA_CHECK_PVT.check_no_external_party with G_EXC_ERROR');
103: END IF;
104: x_return_status := G_RET_STS_ERROR;
105: --close cursors
111: p_data => x_msg_data
112: );
113:
114: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
115: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
116: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,G_MODULE||l_api_name,
117: 'Leaving OKC_REP_QA_CHECK_PVT.check_no_external_party with G_EXC_UNEXPECTED_ERROR');
118: END IF;
119: x_return_status := G_RET_STS_UNEXP_ERROR;
112: );
113:
114: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
115: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
116: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,G_MODULE||l_api_name,
117: 'Leaving OKC_REP_QA_CHECK_PVT.check_no_external_party with G_EXC_UNEXPECTED_ERROR');
118: END IF;
119: x_return_status := G_RET_STS_UNEXP_ERROR;
120: --close cursors
126: p_data => x_msg_data
127: );
128:
129: WHEN OTHERS THEN
130: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
131: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
132: G_MODULE || l_api_name,
133: 'Leaving OKC_REP_QA_CHECK_PVT.check_no_external_party because of EXCEPTION: ' || sqlerrm);
134: END IF;
127: );
128:
129: WHEN OTHERS THEN
130: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
131: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
132: G_MODULE || l_api_name,
133: 'Leaving OKC_REP_QA_CHECK_PVT.check_no_external_party because of EXCEPTION: ' || sqlerrm);
134: END IF;
135: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
190:
191:
192: BEGIN
193:
194: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
195: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
196: 'Entered OKC_REP_QA_CHECK_PVT.check_no_eff_date ');
197: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
198: 'Effective Date is: ' || p_effective_date);
191:
192: BEGIN
193:
194: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
195: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
196: 'Entered OKC_REP_QA_CHECK_PVT.check_no_eff_date ');
197: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
198: 'Effective Date is: ' || p_effective_date);
199: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
193:
194: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
195: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
196: 'Entered OKC_REP_QA_CHECK_PVT.check_no_eff_date ');
197: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
198: 'Effective Date is: ' || p_effective_date);
199: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
200: 'Severity level is: ' || p_severity);
201: END IF;
195: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
196: 'Entered OKC_REP_QA_CHECK_PVT.check_no_eff_date ');
197: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
198: 'Effective Date is: ' || p_effective_date);
199: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
200: 'Severity level is: ' || p_severity);
201: END IF;
202:
203: -- Standard call to check for call compatibility.
213: x_return_status := FND_API.G_RET_STS_SUCCESS;
214:
215: --Check for effective date
216: IF (p_effective_date IS NULL) THEN
217: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
218: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT, G_MODULE||l_api_name,
219: 'Effective Date is NULL');
220: END IF;
221: l_index := px_qa_result_tbl.count + 1;
214:
215: --Check for effective date
216: IF (p_effective_date IS NULL) THEN
217: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
218: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT, G_MODULE||l_api_name,
219: 'Effective Date is NULL');
220: END IF;
221: l_index := px_qa_result_tbl.count + 1;
222: px_qa_result_tbl(l_index).error_record_type := G_REP_QA_TYPE;
231: END IF; -- p_effective_date IS NULL
232: -- Standard call to get message count and if count is 1, get message info.
233: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
234:
235: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
236: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
237: 'Leaving OKC_REP_QA_CHECK_PVT.check_no_eff_date');
238: END IF;
239: EXCEPTION
232: -- Standard call to get message count and if count is 1, get message info.
233: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
234:
235: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
236: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
237: 'Leaving OKC_REP_QA_CHECK_PVT.check_no_eff_date');
238: END IF;
239: EXCEPTION
240: WHEN FND_API.G_EXC_ERROR THEN
237: 'Leaving OKC_REP_QA_CHECK_PVT.check_no_eff_date');
238: END IF;
239: EXCEPTION
240: WHEN FND_API.G_EXC_ERROR THEN
241: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
242: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION , G_MODULE||l_api_name,
243: 'Leaving OKC_REP_QA_CHECK_PVT.check_no_eff_date with G_EXC_ERROR');
244: END IF;
245: x_return_status := G_RET_STS_ERROR;
238: END IF;
239: EXCEPTION
240: WHEN FND_API.G_EXC_ERROR THEN
241: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
242: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION , G_MODULE||l_api_name,
243: 'Leaving OKC_REP_QA_CHECK_PVT.check_no_eff_date with G_EXC_ERROR');
244: END IF;
245: x_return_status := G_RET_STS_ERROR;
246: FND_MSG_PUB.Count_And_Get(
248: p_data => x_msg_data
249: );
250:
251: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
252: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
253: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,G_MODULE||l_api_name,
254: 'Leaving OKC_REP_QA_CHECK_PVT.check_no_eff_date with G_EXC_UNEXPECTED_ERROR');
255: END IF;
256: x_return_status := G_RET_STS_UNEXP_ERROR;
249: );
250:
251: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
252: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
253: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,G_MODULE||l_api_name,
254: 'Leaving OKC_REP_QA_CHECK_PVT.check_no_eff_date with G_EXC_UNEXPECTED_ERROR');
255: END IF;
256: x_return_status := G_RET_STS_UNEXP_ERROR;
257: FND_MSG_PUB.Count_And_Get(
259: p_data => x_msg_data
260: );
261:
262: WHEN OTHERS THEN
263: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
264: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
265: G_MODULE || l_api_name,
266: 'Leaving OKC_REP_QA_CHECK_PVT.check_no_eff_date because of EXCEPTION: ' || sqlerrm);
267: END IF;
260: );
261:
262: WHEN OTHERS THEN
263: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
264: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
265: G_MODULE || l_api_name,
266: 'Leaving OKC_REP_QA_CHECK_PVT.check_no_eff_date because of EXCEPTION: ' || sqlerrm);
267: END IF;
268: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
323: WHERE document_type = p_contract_type;
324: contract_type_rec contract_type_csr%ROWTYPE;
325: BEGIN
326:
327: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
328: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
329: 'Entered OKC_REP_QA_CHECK_PVT.validate_contract_type ');
330: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
331: 'Contract type is: ' || p_contract_type);
324: contract_type_rec contract_type_csr%ROWTYPE;
325: BEGIN
326:
327: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
328: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
329: 'Entered OKC_REP_QA_CHECK_PVT.validate_contract_type ');
330: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
331: 'Contract type is: ' || p_contract_type);
332: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
326:
327: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
328: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
329: 'Entered OKC_REP_QA_CHECK_PVT.validate_contract_type ');
330: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
331: 'Contract type is: ' || p_contract_type);
332: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
333: 'Severity level is: ' || p_severity);
334: END IF;
328: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
329: 'Entered OKC_REP_QA_CHECK_PVT.validate_contract_type ');
330: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
331: 'Contract type is: ' || p_contract_type);
332: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
333: 'Severity level is: ' || p_severity);
334: END IF;
335:
336: -- Standard call to check for call compatibility.
348:
349: OPEN contract_type_csr;
350: FETCH contract_type_csr INTO contract_type_rec;
351: IF contract_type_csr%NOTFOUND THEN
352: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
353: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION ,
354: G_MODULE||l_api_name, 'Contract Type: '|| p_contract_type || ' does not exist');
355: END IF;
356: RAISE FND_API.G_EXC_ERROR;
349: OPEN contract_type_csr;
350: FETCH contract_type_csr INTO contract_type_rec;
351: IF contract_type_csr%NOTFOUND THEN
352: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
353: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION ,
354: G_MODULE||l_api_name, 'Contract Type: '|| p_contract_type || ' does not exist');
355: END IF;
356: RAISE FND_API.G_EXC_ERROR;
357: END IF; -- contract_type_csr%NOTFOUND
364: CLOSE contract_type_csr;
365:
366: --Check for contract type
367: IF (l_valid_contract_type_flag = 'N') THEN
368: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
369: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT, G_MODULE||l_api_name,
370: 'Contract Type is invalid');
371: END IF;
372: l_index := px_qa_result_tbl.count + 1;
365:
366: --Check for contract type
367: IF (l_valid_contract_type_flag = 'N') THEN
368: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
369: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT, G_MODULE||l_api_name,
370: 'Contract Type is invalid');
371: END IF;
372: l_index := px_qa_result_tbl.count + 1;
373: px_qa_result_tbl(l_index).error_record_type := G_REP_QA_TYPE;
386: END IF; -- l_valid_contract_type_flag = 'N'
387: -- Standard call to get message count and if count is 1, get message info.
388: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
389:
390: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
391: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
392: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contract_type');
393: END IF;
394: EXCEPTION
387: -- Standard call to get message count and if count is 1, get message info.
388: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
389:
390: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
391: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
392: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contract_type');
393: END IF;
394: EXCEPTION
395: WHEN FND_API.G_EXC_ERROR THEN
392: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contract_type');
393: END IF;
394: EXCEPTION
395: WHEN FND_API.G_EXC_ERROR THEN
396: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
397: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION , G_MODULE||l_api_name,
398: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contract_type with G_EXC_ERROR');
399: END IF;
400: IF (contract_type_csr%ISOPEN) THEN
393: END IF;
394: EXCEPTION
395: WHEN FND_API.G_EXC_ERROR THEN
396: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
397: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION , G_MODULE||l_api_name,
398: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contract_type with G_EXC_ERROR');
399: END IF;
400: IF (contract_type_csr%ISOPEN) THEN
401: CLOSE contract_type_csr ;
406: p_data => x_msg_data
407: );
408:
409: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
410: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
411: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,G_MODULE||l_api_name,
412: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contract_type with G_EXC_UNEXPECTED_ERROR');
413: END IF;
414: IF (contract_type_csr%ISOPEN) THEN
407: );
408:
409: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
410: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
411: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,G_MODULE||l_api_name,
412: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contract_type with G_EXC_UNEXPECTED_ERROR');
413: END IF;
414: IF (contract_type_csr%ISOPEN) THEN
415: CLOSE contract_type_csr ;
420: p_data => x_msg_data
421: );
422:
423: WHEN OTHERS THEN
424: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
425: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
426: G_MODULE || l_api_name,
427: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contract_type because of EXCEPTION: ' || sqlerrm);
428: END IF;
421: );
422:
423: WHEN OTHERS THEN
424: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
425: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
426: G_MODULE || l_api_name,
427: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contract_type because of EXCEPTION: ' || sqlerrm);
428: END IF;
429: IF (contract_type_csr%ISOPEN) THEN
500: WHERE vendor_id = p_party_id;
501: vendor_rec vendor_csr%ROWTYPE;
502:
503: BEGIN
504: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
505: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
506: 'Entered OKC_REP_QA_CHECK_PVT.validate_external_party ');
507: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
508: 'Party Role Code is: ' || p_party_role_code);
501: vendor_rec vendor_csr%ROWTYPE;
502:
503: BEGIN
504: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
505: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
506: 'Entered OKC_REP_QA_CHECK_PVT.validate_external_party ');
507: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
508: 'Party Role Code is: ' || p_party_role_code);
509: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
503: BEGIN
504: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
505: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
506: 'Entered OKC_REP_QA_CHECK_PVT.validate_external_party ');
507: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
508: 'Party Role Code is: ' || p_party_role_code);
509: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
510: 'Party Id is: ' || p_party_id);
511: END IF;
505: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
506: 'Entered OKC_REP_QA_CHECK_PVT.validate_external_party ');
507: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
508: 'Party Role Code is: ' || p_party_role_code);
509: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
510: 'Party Id is: ' || p_party_id);
511: END IF;
512:
513: -- Standard call to check for call compatibility.
527: p_party_role_code = G_PARTY_ROLE_CUSTOMER) THEN
528: OPEN partner_csr;
529: FETCH partner_csr INTO partner_rec;
530: IF partner_csr%NOTFOUND THEN
531: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
532: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION ,
533: G_MODULE||l_api_name, 'Party with Party Id: '|| p_party_id || ' does not exist');
534: END IF;
535: RAISE FND_API.G_EXC_ERROR;
528: OPEN partner_csr;
529: FETCH partner_csr INTO partner_rec;
530: IF partner_csr%NOTFOUND THEN
531: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
532: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION ,
533: G_MODULE||l_api_name, 'Party with Party Id: '|| p_party_id || ' does not exist');
534: END IF;
535: RAISE FND_API.G_EXC_ERROR;
536: END IF; -- partner_csr%NOTFOUND
542: ELSE
543: OPEN vendor_csr;
544: FETCH vendor_csr INTO vendor_rec;
545: IF vendor_csr%NOTFOUND THEN
546: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
547: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION ,
548: G_MODULE||l_api_name, 'Vendor with vendor Id: '|| p_party_id || ' does not exist');
549: END IF;
550: RAISE FND_API.G_EXC_ERROR;
543: OPEN vendor_csr;
544: FETCH vendor_csr INTO vendor_rec;
545: IF vendor_csr%NOTFOUND THEN
546: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
547: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION ,
548: G_MODULE||l_api_name, 'Vendor with vendor Id: '|| p_party_id || ' does not exist');
549: END IF;
550: RAISE FND_API.G_EXC_ERROR;
551: END IF; -- vendor_csr%NOTFOUND
558: END IF; -- p_party_role_code = G_PARTY_ROLE_PARTNER
559:
560: --Check for external party
561: IF (l_valid_external_party_flag = 'N') THEN
562: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
563: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT, G_MODULE||l_api_name,
564: 'External party is invalid: ' || l_party_name);
565: END IF;
566: l_index := px_qa_result_tbl.count + 1;
559:
560: --Check for external party
561: IF (l_valid_external_party_flag = 'N') THEN
562: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
563: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT, G_MODULE||l_api_name,
564: 'External party is invalid: ' || l_party_name);
565: END IF;
566: l_index := px_qa_result_tbl.count + 1;
567: px_qa_result_tbl(l_index).error_record_type := G_REP_QA_TYPE;
580:
581: -- Standard call to get message count and if count is 1, get message info.
582: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
583:
584: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
585: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
586: 'Leaving OKC_REP_QA_CHECK_PVT.validate_external_party');
587: END IF;
588: EXCEPTION
581: -- Standard call to get message count and if count is 1, get message info.
582: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
583:
584: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
585: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
586: 'Leaving OKC_REP_QA_CHECK_PVT.validate_external_party');
587: END IF;
588: EXCEPTION
589: WHEN FND_API.G_EXC_ERROR THEN
586: 'Leaving OKC_REP_QA_CHECK_PVT.validate_external_party');
587: END IF;
588: EXCEPTION
589: WHEN FND_API.G_EXC_ERROR THEN
590: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
591: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION , G_MODULE||l_api_name,
592: 'Leaving OKC_REP_QA_CHECK_PVT.validate_external_party with G_EXC_ERROR');
593: END IF;
594: IF (partner_csr%ISOPEN) THEN
587: END IF;
588: EXCEPTION
589: WHEN FND_API.G_EXC_ERROR THEN
590: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
591: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION , G_MODULE||l_api_name,
592: 'Leaving OKC_REP_QA_CHECK_PVT.validate_external_party with G_EXC_ERROR');
593: END IF;
594: IF (partner_csr%ISOPEN) THEN
595: CLOSE partner_csr ;
603: p_data => x_msg_data
604: );
605:
606: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
607: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
608: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,G_MODULE||l_api_name,
609: 'Leaving OKC_REP_QA_CHECK_PVT.validate_external_party with G_EXC_UNEXPECTED_ERROR');
610: END IF;
611: IF (partner_csr%ISOPEN) THEN
604: );
605:
606: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
607: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
608: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,G_MODULE||l_api_name,
609: 'Leaving OKC_REP_QA_CHECK_PVT.validate_external_party with G_EXC_UNEXPECTED_ERROR');
610: END IF;
611: IF (partner_csr%ISOPEN) THEN
612: CLOSE partner_csr ;
620: p_data => x_msg_data
621: );
622:
623: WHEN OTHERS THEN
624: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
625: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
626: G_MODULE || l_api_name,
627: 'Leaving OKC_REP_QA_CHECK_PVT.validate_external_party because of EXCEPTION: ' || sqlerrm);
628: END IF;
621: );
622:
623: WHEN OTHERS THEN
624: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
625: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
626: G_MODULE || l_api_name,
627: 'Leaving OKC_REP_QA_CHECK_PVT.validate_external_party because of EXCEPTION: ' || sqlerrm);
628: END IF;
629: IF (partner_csr%ISOPEN) THEN
737: employee_contact_rec employee_contact_csr%ROWTYPE;
738:
739:
740: BEGIN
741: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
742: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
743: 'Entered OKC_REP_QA_CHECK_PVT.validate_contact ');
744: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
745: 'Party Role Code is: ' || p_party_role_code);
738:
739:
740: BEGIN
741: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
742: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
743: 'Entered OKC_REP_QA_CHECK_PVT.validate_contact ');
744: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
745: 'Party Role Code is: ' || p_party_role_code);
746: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
740: BEGIN
741: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
742: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
743: 'Entered OKC_REP_QA_CHECK_PVT.validate_contact ');
744: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
745: 'Party Role Code is: ' || p_party_role_code);
746: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
747: 'Party Id is: ' || p_party_id);
748: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
742: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
743: 'Entered OKC_REP_QA_CHECK_PVT.validate_contact ');
744: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
745: 'Party Role Code is: ' || p_party_role_code);
746: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
747: 'Party Id is: ' || p_party_id);
748: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
749: 'Contact Id is: ' || p_contact_id);
750: END IF;
744: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
745: 'Party Role Code is: ' || p_party_role_code);
746: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
747: 'Party Id is: ' || p_party_id);
748: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
749: 'Contact Id is: ' || p_contact_id);
750: END IF;
751:
752: -- Standard call to check for call compatibility.
767: OPEN tca_contact_csr;
768: FETCH tca_contact_csr INTO tca_contact_rec;
769:
770: IF tca_contact_csr%NOTFOUND THEN
771: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
772: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION ,
773: G_MODULE||l_api_name, 'Contact with Contact Id: '|| p_contact_id || ' does not exist');
774: END IF;
775: RAISE FND_API.G_EXC_ERROR;
768: FETCH tca_contact_csr INTO tca_contact_rec;
769:
770: IF tca_contact_csr%NOTFOUND THEN
771: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
772: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION ,
773: G_MODULE||l_api_name, 'Contact with Contact Id: '|| p_contact_id || ' does not exist');
774: END IF;
775: RAISE FND_API.G_EXC_ERROR;
776: END IF; -- partner_csr%NOTFOUND
791: OPEN vendor_contact_csr;
792: FETCH vendor_contact_csr INTO vendor_contact_rec;
793:
794: IF vendor_contact_csr%NOTFOUND THEN
795: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
796: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION ,
797: G_MODULE||l_api_name, 'Vendor contact Id: '|| p_contact_id || ' does not exist');
798: END IF;
799: RAISE FND_API.G_EXC_ERROR;
792: FETCH vendor_contact_csr INTO vendor_contact_rec;
793:
794: IF vendor_contact_csr%NOTFOUND THEN
795: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
796: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION ,
797: G_MODULE||l_api_name, 'Vendor contact Id: '|| p_contact_id || ' does not exist');
798: END IF;
799: RAISE FND_API.G_EXC_ERROR;
800: END IF; -- vendor_contact_csr%NOTFOUND
814: FETCH employee_contact_csr INTO employee_contact_rec;
815:
816: -- If row doesn't exist then flag the current contact as invalid
817: IF employee_contact_csr%NOTFOUND THEN
818: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
819: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION ,
820: G_MODULE||l_api_name, 'Contact with Contact Id: '|| p_contact_id || ' does not exist');
821: END IF;
822:
815:
816: -- If row doesn't exist then flag the current contact as invalid
817: IF employee_contact_csr%NOTFOUND THEN
818: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
819: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION ,
820: G_MODULE||l_api_name, 'Contact with Contact Id: '|| p_contact_id || ' does not exist');
821: END IF;
822:
823: l_valid_contact_flag := 'N';
835: OPEN employee_name_csr;
836: FETCH employee_name_csr INTO l_contact_name;
837: CLOSE employee_name_csr;
838:
839: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
840: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT, G_MODULE||l_api_name,
841: 'Party Contact is invalid: ' || l_contact_name);
842: END IF;
843: l_index := px_qa_result_tbl.count + 1;
836: FETCH employee_name_csr INTO l_contact_name;
837: CLOSE employee_name_csr;
838:
839: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
840: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT, G_MODULE||l_api_name,
841: 'Party Contact is invalid: ' || l_contact_name);
842: END IF;
843: l_index := px_qa_result_tbl.count + 1;
844: px_qa_result_tbl(l_index).error_record_type := G_REP_QA_TYPE;
857:
858: -- Standard call to get message count and if count is 1, get message info.
859: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
860:
861: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
862: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
863: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contact');
864: END IF;
865: EXCEPTION
858: -- Standard call to get message count and if count is 1, get message info.
859: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
860:
861: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
862: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
863: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contact');
864: END IF;
865: EXCEPTION
866: WHEN FND_API.G_EXC_ERROR THEN
863: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contact');
864: END IF;
865: EXCEPTION
866: WHEN FND_API.G_EXC_ERROR THEN
867: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
868: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION , G_MODULE||l_api_name,
869: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contact with G_EXC_ERROR');
870: END IF;
871: IF (tca_contact_csr%ISOPEN) THEN
864: END IF;
865: EXCEPTION
866: WHEN FND_API.G_EXC_ERROR THEN
867: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
868: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION , G_MODULE||l_api_name,
869: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contact with G_EXC_ERROR');
870: END IF;
871: IF (tca_contact_csr%ISOPEN) THEN
872: CLOSE tca_contact_csr ;
886: p_data => x_msg_data
887: );
888:
889: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
890: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
891: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,G_MODULE||l_api_name,
892: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contact with G_EXC_UNEXPECTED_ERROR');
893: END IF;
894: IF (tca_contact_csr%ISOPEN) THEN
887: );
888:
889: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
890: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
891: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,G_MODULE||l_api_name,
892: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contact with G_EXC_UNEXPECTED_ERROR');
893: END IF;
894: IF (tca_contact_csr%ISOPEN) THEN
895: CLOSE tca_contact_csr ;
909: p_data => x_msg_data
910: );
911:
912: WHEN OTHERS THEN
913: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
914: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
915: G_MODULE || l_api_name,
916: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contact because of EXCEPTION: ' || sqlerrm);
917: END IF;
910: );
911:
912: WHEN OTHERS THEN
913: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
914: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
915: G_MODULE || l_api_name,
916: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contact because of EXCEPTION: ' || sqlerrm);
917: END IF;
918: IF (tca_contact_csr%ISOPEN) THEN
989: WHERE contact_role_id = p_contact_role_id;
990: contact_role_rec contact_role_csr%ROWTYPE;
991: BEGIN
992:
993: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
994: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
995: 'Entered OKC_REP_QA_CHECK_PVT.validate_contact_role ');
996: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
997: 'Contact Role Id is: ' || p_contact_role_id);
990: contact_role_rec contact_role_csr%ROWTYPE;
991: BEGIN
992:
993: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
994: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
995: 'Entered OKC_REP_QA_CHECK_PVT.validate_contact_role ');
996: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
997: 'Contact Role Id is: ' || p_contact_role_id);
998: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
992:
993: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
994: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
995: 'Entered OKC_REP_QA_CHECK_PVT.validate_contact_role ');
996: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
997: 'Contact Role Id is: ' || p_contact_role_id);
998: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
999: 'Severity level is: ' || p_severity);
1000: END IF;
994: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
995: 'Entered OKC_REP_QA_CHECK_PVT.validate_contact_role ');
996: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
997: 'Contact Role Id is: ' || p_contact_role_id);
998: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
999: 'Severity level is: ' || p_severity);
1000: END IF;
1001:
1002: -- Standard call to check for call compatibility.
1014:
1015: OPEN contact_role_csr;
1016: FETCH contact_role_csr INTO contact_role_rec;
1017: IF contact_role_csr%NOTFOUND THEN
1018: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1019: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION ,
1020: G_MODULE||l_api_name, 'Contact role with id : '|| p_contact_role_id || ' does not exist');
1021: END IF;
1022: RAISE FND_API.G_EXC_ERROR;
1015: OPEN contact_role_csr;
1016: FETCH contact_role_csr INTO contact_role_rec;
1017: IF contact_role_csr%NOTFOUND THEN
1018: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1019: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION ,
1020: G_MODULE||l_api_name, 'Contact role with id : '|| p_contact_role_id || ' does not exist');
1021: END IF;
1022: RAISE FND_API.G_EXC_ERROR;
1023: END IF; -- contact_role_csr%NOTFOUND
1030: CLOSE contact_role_csr;
1031:
1032: --Check for Contract Role
1033: IF (l_valid_contact_role_flag = 'N') THEN
1034: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1035: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT, G_MODULE||l_api_name,
1036: 'Contract Role is invalid');
1037: END IF;
1038: l_index := px_qa_result_tbl.count + 1;
1031:
1032: --Check for Contract Role
1033: IF (l_valid_contact_role_flag = 'N') THEN
1034: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1035: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT, G_MODULE||l_api_name,
1036: 'Contract Role is invalid');
1037: END IF;
1038: l_index := px_qa_result_tbl.count + 1;
1039: px_qa_result_tbl(l_index).error_record_type := G_REP_QA_TYPE;
1051: END IF; -- l_valid_contact_role_flag = 'N'
1052: -- Standard call to get message count and if count is 1, get message info.
1053: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1054:
1055: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1056: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1057: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contact_role');
1058: END IF;
1059: EXCEPTION
1052: -- Standard call to get message count and if count is 1, get message info.
1053: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1054:
1055: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1056: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1057: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contact_role');
1058: END IF;
1059: EXCEPTION
1060: WHEN FND_API.G_EXC_ERROR THEN
1057: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contact_role');
1058: END IF;
1059: EXCEPTION
1060: WHEN FND_API.G_EXC_ERROR THEN
1061: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1062: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION , G_MODULE||l_api_name,
1063: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contact_role with G_EXC_ERROR');
1064: END IF;
1065: IF (contact_role_csr%ISOPEN) THEN
1058: END IF;
1059: EXCEPTION
1060: WHEN FND_API.G_EXC_ERROR THEN
1061: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1062: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION , G_MODULE||l_api_name,
1063: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contact_role with G_EXC_ERROR');
1064: END IF;
1065: IF (contact_role_csr%ISOPEN) THEN
1066: CLOSE contact_role_csr ;
1071: p_data => x_msg_data
1072: );
1073:
1074: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1075: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1076: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,G_MODULE||l_api_name,
1077: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contact_role with G_EXC_UNEXPECTED_ERROR');
1078: END IF;
1079: IF (contact_role_csr%ISOPEN) THEN
1072: );
1073:
1074: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1075: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1076: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,G_MODULE||l_api_name,
1077: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contact_role with G_EXC_UNEXPECTED_ERROR');
1078: END IF;
1079: IF (contact_role_csr%ISOPEN) THEN
1080: CLOSE contact_role_csr ;
1085: p_data => x_msg_data
1086: );
1087:
1088: WHEN OTHERS THEN
1089: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1090: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
1091: G_MODULE || l_api_name,
1092: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contact_role because of EXCEPTION: ' || sqlerrm);
1093: END IF;
1086: );
1087:
1088: WHEN OTHERS THEN
1089: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1090: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
1091: G_MODULE || l_api_name,
1092: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contact_role because of EXCEPTION: ' || sqlerrm);
1093: END IF;
1094: IF (contact_role_csr%ISOPEN) THEN
1155: WHERE risk_event_id = p_risk_event_id;
1156: risk_event_rec risk_event_csr%ROWTYPE;
1157: BEGIN
1158:
1159: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1160: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1161: 'Entered OKC_REP_QA_CHECK_PVT.validate_risk_event ');
1162: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1163: 'Risk Event Id is: ' || p_risk_event_id);
1156: risk_event_rec risk_event_csr%ROWTYPE;
1157: BEGIN
1158:
1159: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1160: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1161: 'Entered OKC_REP_QA_CHECK_PVT.validate_risk_event ');
1162: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1163: 'Risk Event Id is: ' || p_risk_event_id);
1164: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1158:
1159: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1160: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1161: 'Entered OKC_REP_QA_CHECK_PVT.validate_risk_event ');
1162: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1163: 'Risk Event Id is: ' || p_risk_event_id);
1164: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1165: 'Severity level is: ' || p_severity);
1166: END IF;
1160: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1161: 'Entered OKC_REP_QA_CHECK_PVT.validate_risk_event ');
1162: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1163: 'Risk Event Id is: ' || p_risk_event_id);
1164: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1165: 'Severity level is: ' || p_severity);
1166: END IF;
1167:
1168: -- Standard call to check for call compatibility.
1180:
1181: OPEN risk_event_csr;
1182: FETCH risk_event_csr INTO risk_event_rec;
1183: IF risk_event_csr%NOTFOUND THEN
1184: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1185: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION ,
1186: G_MODULE||l_api_name, 'Risk Event with id : '|| p_risk_event_id || ' does not exist');
1187: END IF;
1188: RAISE FND_API.G_EXC_ERROR;
1181: OPEN risk_event_csr;
1182: FETCH risk_event_csr INTO risk_event_rec;
1183: IF risk_event_csr%NOTFOUND THEN
1184: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1185: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION ,
1186: G_MODULE||l_api_name, 'Risk Event with id : '|| p_risk_event_id || ' does not exist');
1187: END IF;
1188: RAISE FND_API.G_EXC_ERROR;
1189: END IF; -- risk_event_csr%NOTFOUND
1196: CLOSE risk_event_csr;
1197:
1198: --Check for Risk Event
1199: IF (l_valid_risk_event_flag = 'N') THEN
1200: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1201: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT, G_MODULE||l_api_name,
1202: 'Risk Event is invalid');
1203: END IF;
1204: l_index := px_qa_result_tbl.count + 1;
1197:
1198: --Check for Risk Event
1199: IF (l_valid_risk_event_flag = 'N') THEN
1200: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1201: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT, G_MODULE||l_api_name,
1202: 'Risk Event is invalid');
1203: END IF;
1204: l_index := px_qa_result_tbl.count + 1;
1205: px_qa_result_tbl(l_index).error_record_type := G_REP_QA_TYPE;
1217: END IF; -- l_valid_risk_event_flag = 'N'
1218: -- Standard call to get message count and if count is 1, get message info.
1219: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1220:
1221: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1222: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1223: 'Leaving OKC_REP_QA_CHECK_PVT.validate_risk_event');
1224: END IF;
1225: EXCEPTION
1218: -- Standard call to get message count and if count is 1, get message info.
1219: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1220:
1221: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1222: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1223: 'Leaving OKC_REP_QA_CHECK_PVT.validate_risk_event');
1224: END IF;
1225: EXCEPTION
1226: WHEN FND_API.G_EXC_ERROR THEN
1223: 'Leaving OKC_REP_QA_CHECK_PVT.validate_risk_event');
1224: END IF;
1225: EXCEPTION
1226: WHEN FND_API.G_EXC_ERROR THEN
1227: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1228: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION , G_MODULE||l_api_name,
1229: 'Leaving OKC_REP_QA_CHECK_PVT.validate_risk_event with G_EXC_ERROR');
1230: END IF;
1231: IF (risk_event_csr%ISOPEN) THEN
1224: END IF;
1225: EXCEPTION
1226: WHEN FND_API.G_EXC_ERROR THEN
1227: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1228: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION , G_MODULE||l_api_name,
1229: 'Leaving OKC_REP_QA_CHECK_PVT.validate_risk_event with G_EXC_ERROR');
1230: END IF;
1231: IF (risk_event_csr%ISOPEN) THEN
1232: CLOSE risk_event_csr ;
1237: p_data => x_msg_data
1238: );
1239:
1240: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1241: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1242: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,G_MODULE||l_api_name,
1243: 'Leaving OKC_REP_QA_CHECK_PVT.validate_risk_event with G_EXC_UNEXPECTED_ERROR');
1244: END IF;
1245: IF (risk_event_csr%ISOPEN) THEN
1238: );
1239:
1240: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1241: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1242: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,G_MODULE||l_api_name,
1243: 'Leaving OKC_REP_QA_CHECK_PVT.validate_risk_event with G_EXC_UNEXPECTED_ERROR');
1244: END IF;
1245: IF (risk_event_csr%ISOPEN) THEN
1246: CLOSE risk_event_csr ;
1251: p_data => x_msg_data
1252: );
1253:
1254: WHEN OTHERS THEN
1255: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1256: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
1257: G_MODULE || l_api_name,
1258: 'Leaving OKC_REP_QA_CHECK_PVT.validate_risk_event because of EXCEPTION: ' || sqlerrm);
1259: END IF;
1252: );
1253:
1254: WHEN OTHERS THEN
1255: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1256: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
1257: G_MODULE || l_api_name,
1258: 'Leaving OKC_REP_QA_CHECK_PVT.validate_risk_event because of EXCEPTION: ' || sqlerrm);
1259: END IF;
1260: IF (risk_event_csr%ISOPEN) THEN
1353: risk_rec risk_csr%ROWTYPE;
1354:
1355: BEGIN
1356:
1357: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1358: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
1359: 'Entered validate_repository_for_qa');
1360: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
1361: 'Contract Type is: ' || p_contract_type);
1354:
1355: BEGIN
1356:
1357: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1358: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
1359: 'Entered validate_repository_for_qa');
1360: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
1361: 'Contract Type is: ' || p_contract_type);
1362: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
1356:
1357: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1358: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
1359: 'Entered validate_repository_for_qa');
1360: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
1361: 'Contract Type is: ' || p_contract_type);
1362: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
1363: 'Contract Id is: ' || p_contract_id);
1364: END IF;
1358: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
1359: 'Entered validate_repository_for_qa');
1360: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
1361: 'Contract Type is: ' || p_contract_type);
1362: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
1363: 'Contract Id is: ' || p_contract_id);
1364: END IF;
1365: x_return_status := G_RET_STS_SUCCESS;
1366: x_return_status := OKC_API.START_ACTIVITY(l_api_name,
1379: FND_MSG_PUB.initialize;
1380: END IF;
1381:
1382: --Check for external party
1383: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1384: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1385: 'Calling OKC_REP_QA_CHECK_PVT.check_no_exteral_party() API');
1386: END IF;
1387: check_no_external_party (
1380: END IF;
1381:
1382: --Check for external party
1383: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1384: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1385: 'Calling OKC_REP_QA_CHECK_PVT.check_no_exteral_party() API');
1386: END IF;
1387: check_no_external_party (
1388: p_api_version => 1,
1393: x_msg_data => x_msg_data,
1394: x_msg_count => x_msg_count,
1395: x_return_status => x_return_status
1396: );
1397: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1398: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT , G_MODULE||l_api_name,
1399: 'Completed OKC_REP_QA_CHECK_PVT.check_no_exteral_party with returned status: ' || x_return_status);
1400: END IF;
1401: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1394: x_msg_count => x_msg_count,
1395: x_return_status => x_return_status
1396: );
1397: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1398: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT , G_MODULE||l_api_name,
1399: 'Completed OKC_REP_QA_CHECK_PVT.check_no_exteral_party with returned status: ' || x_return_status);
1400: END IF;
1401: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1402: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1410: IF(contract_csr%NOTFOUND) THEN
1411: RAISE NO_DATA_FOUND;
1412: END IF;
1413: -- Log effective date columns
1414: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1415: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,
1416: G_MODULE||l_api_name,'Contract Effective Date is : '
1417: || contract_rec.contract_effective_date);
1418: END IF;
1411: RAISE NO_DATA_FOUND;
1412: END IF;
1413: -- Log effective date columns
1414: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1415: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,
1416: G_MODULE||l_api_name,'Contract Effective Date is : '
1417: || contract_rec.contract_effective_date);
1418: END IF;
1419: --Check for null effective date
1416: G_MODULE||l_api_name,'Contract Effective Date is : '
1417: || contract_rec.contract_effective_date);
1418: END IF;
1419: --Check for null effective date
1420: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1421: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1422: 'Calling OKC_REP_QA_CHECK_PVT.check_no_eff_date() API');
1423: END IF;
1424: check_no_eff_date (
1417: || contract_rec.contract_effective_date);
1418: END IF;
1419: --Check for null effective date
1420: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1421: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1422: 'Calling OKC_REP_QA_CHECK_PVT.check_no_eff_date() API');
1423: END IF;
1424: check_no_eff_date (
1425: p_api_version => 1,
1430: x_msg_data => x_msg_data,
1431: x_msg_count => x_msg_count,
1432: x_return_status => x_return_status);
1433:
1434: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1435: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT , G_MODULE||l_api_name,
1436: 'Completed OKC_REP_QA_CHECK_PVT.check_no_eff_date with returned status: ' || x_return_status);
1437: END IF;
1438: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1431: x_msg_count => x_msg_count,
1432: x_return_status => x_return_status);
1433:
1434: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1435: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT , G_MODULE||l_api_name,
1436: 'Completed OKC_REP_QA_CHECK_PVT.check_no_eff_date with returned status: ' || x_return_status);
1437: END IF;
1438: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1439: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1441: RAISE OKC_API.G_EXCEPTION_ERROR;
1442: END IF;
1443:
1444: --Validate contract type
1445: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1446: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1447: 'Calling OKC_REP_QA_CHECK_PVT.validate_contract_type() API');
1448: END IF;
1449: validate_contract_type (
1442: END IF;
1443:
1444: --Validate contract type
1445: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1446: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1447: 'Calling OKC_REP_QA_CHECK_PVT.validate_contract_type() API');
1448: END IF;
1449: validate_contract_type (
1450: p_api_version => 1,
1455: x_msg_data => x_msg_data,
1456: x_msg_count => x_msg_count,
1457: x_return_status => x_return_status
1458: );
1459: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1460: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT , G_MODULE||l_api_name,
1461: 'Completed OKC_REP_QA_CHECK_PVT.validate_contract_type with returned status: ' || x_return_status);
1462: END IF;
1463: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1456: x_msg_count => x_msg_count,
1457: x_return_status => x_return_status
1458: );
1459: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1460: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT , G_MODULE||l_api_name,
1461: 'Completed OKC_REP_QA_CHECK_PVT.validate_contract_type with returned status: ' || x_return_status);
1462: END IF;
1463: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1464: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1468:
1469: -- Validate Parties
1470: -- Loop through all the external parties and check if these are still valid.
1471: FOR party_rec IN party_csr LOOP
1472: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1473: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1474: 'Calling OKC_REP_QA_CHECK_PVT.validate_external_party() API');
1475: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1476: 'Party Id is: '|| party_rec.party_id);
1469: -- Validate Parties
1470: -- Loop through all the external parties and check if these are still valid.
1471: FOR party_rec IN party_csr LOOP
1472: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1473: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1474: 'Calling OKC_REP_QA_CHECK_PVT.validate_external_party() API');
1475: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1476: 'Party Id is: '|| party_rec.party_id);
1477: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1471: FOR party_rec IN party_csr LOOP
1472: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1473: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1474: 'Calling OKC_REP_QA_CHECK_PVT.validate_external_party() API');
1475: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1476: 'Party Id is: '|| party_rec.party_id);
1477: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1478: 'Party role code is: '|| party_rec.party_role_code);
1479: END IF;
1473: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1474: 'Calling OKC_REP_QA_CHECK_PVT.validate_external_party() API');
1475: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1476: 'Party Id is: '|| party_rec.party_id);
1477: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1478: 'Party role code is: '|| party_rec.party_role_code);
1479: END IF;
1480: validate_external_party (
1481: p_api_version => 1,
1487: x_msg_data => x_msg_data,
1488: x_msg_count => x_msg_count,
1489: x_return_status => x_return_status
1490: );
1491: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1492: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT , G_MODULE||l_api_name,
1493: 'Completed OKC_REP_QA_CHECK_PVT.validate_external_party with returned status: ' || x_return_status);
1494: END IF;
1495: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1488: x_msg_count => x_msg_count,
1489: x_return_status => x_return_status
1490: );
1491: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1492: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT , G_MODULE||l_api_name,
1493: 'Completed OKC_REP_QA_CHECK_PVT.validate_external_party with returned status: ' || x_return_status);
1494: END IF;
1495: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1496: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1501:
1502: -- Validate contacts and contact roles
1503: -- Loop through all the external contacts and check if these are still valid.
1504: FOR party_contact_rec IN party_contact_csr LOOP
1505: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1506: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1507: 'Calling OKC_REP_QA_CHECK_PVT.validate_contact() and validate_contact_role() APIs');
1508: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1509: 'Party Id is: '|| party_contact_rec.party_id);
1502: -- Validate contacts and contact roles
1503: -- Loop through all the external contacts and check if these are still valid.
1504: FOR party_contact_rec IN party_contact_csr LOOP
1505: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1506: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1507: 'Calling OKC_REP_QA_CHECK_PVT.validate_contact() and validate_contact_role() APIs');
1508: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1509: 'Party Id is: '|| party_contact_rec.party_id);
1510: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1504: FOR party_contact_rec IN party_contact_csr LOOP
1505: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1506: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1507: 'Calling OKC_REP_QA_CHECK_PVT.validate_contact() and validate_contact_role() APIs');
1508: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1509: 'Party Id is: '|| party_contact_rec.party_id);
1510: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1511: 'Party role code is: '|| party_contact_rec.party_role_code);
1512: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1506: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1507: 'Calling OKC_REP_QA_CHECK_PVT.validate_contact() and validate_contact_role() APIs');
1508: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1509: 'Party Id is: '|| party_contact_rec.party_id);
1510: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1511: 'Party role code is: '|| party_contact_rec.party_role_code);
1512: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1513: 'Contact Id is: '|| party_contact_rec.contact_id);
1514: END IF;
1508: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1509: 'Party Id is: '|| party_contact_rec.party_id);
1510: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1511: 'Party role code is: '|| party_contact_rec.party_role_code);
1512: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1513: 'Contact Id is: '|| party_contact_rec.contact_id);
1514: END IF;
1515: -- Validate contact
1516: validate_contact (
1524: x_msg_data => x_msg_data,
1525: x_msg_count => x_msg_count,
1526: x_return_status => x_return_status
1527: );
1528: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1529: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT , G_MODULE||l_api_name,
1530: 'Completed OKC_REP_QA_CHECK_PVT.validate_contact with returned status: ' || x_return_status);
1531: END IF;
1532: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1525: x_msg_count => x_msg_count,
1526: x_return_status => x_return_status
1527: );
1528: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1529: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT , G_MODULE||l_api_name,
1530: 'Completed OKC_REP_QA_CHECK_PVT.validate_contact with returned status: ' || x_return_status);
1531: END IF;
1532: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1533: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1545: x_msg_data => x_msg_data,
1546: x_msg_count => x_msg_count,
1547: x_return_status => x_return_status
1548: );
1549: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1550: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT , G_MODULE||l_api_name,
1551: 'Completed OKC_REP_QA_CHECK_PVT.validate_contact_role with returned status: ' || x_return_status);
1552: END IF;
1553: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1546: x_msg_count => x_msg_count,
1547: x_return_status => x_return_status
1548: );
1549: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1550: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT , G_MODULE||l_api_name,
1551: 'Completed OKC_REP_QA_CHECK_PVT.validate_contact_role with returned status: ' || x_return_status);
1552: END IF;
1553: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1554: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1560:
1561: -- Validate Parties
1562: -- Loop through all contract risk events and check if these are still valid.
1563: FOR risk_rec IN risk_csr LOOP
1564: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1565: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1566: 'Calling OKC_REP_QA_CHECK_PVT.validate_risk_event() API');
1567: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1568: 'Risk Event Id is: '|| risk_rec.risk_event_id);
1561: -- Validate Parties
1562: -- Loop through all contract risk events and check if these are still valid.
1563: FOR risk_rec IN risk_csr LOOP
1564: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1565: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1566: 'Calling OKC_REP_QA_CHECK_PVT.validate_risk_event() API');
1567: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1568: 'Risk Event Id is: '|| risk_rec.risk_event_id);
1569: END IF;
1563: FOR risk_rec IN risk_csr LOOP
1564: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1565: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1566: 'Calling OKC_REP_QA_CHECK_PVT.validate_risk_event() API');
1567: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1568: 'Risk Event Id is: '|| risk_rec.risk_event_id);
1569: END IF;
1570: validate_risk_event (
1571: p_api_version => 1,
1576: x_msg_data => x_msg_data,
1577: x_msg_count => x_msg_count,
1578: x_return_status => x_return_status
1579: );
1580: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1581: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT , G_MODULE||l_api_name,
1582: 'Completed OKC_REP_QA_CHECK_PVT.validate_risk_event with returned status: ' || x_return_status);
1583: END IF;
1584: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1577: x_msg_count => x_msg_count,
1578: x_return_status => x_return_status
1579: );
1580: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1581: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT , G_MODULE||l_api_name,
1582: 'Completed OKC_REP_QA_CHECK_PVT.validate_risk_event with returned status: ' || x_return_status);
1583: END IF;
1584: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1585: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1591: -- Close all cursors.
1592: CLOSE contract_csr;
1593: -- Standard call to get message count and if count is 1, get message info.
1594: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1595: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1596: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,
1597: G_MODULE||l_api_name,'leaving OKC_REP_QA_CHECK_PVT.validate_repository_for_qa');
1598: END IF;
1599:
1592: CLOSE contract_csr;
1593: -- Standard call to get message count and if count is 1, get message info.
1594: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1595: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1596: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,
1597: G_MODULE||l_api_name,'leaving OKC_REP_QA_CHECK_PVT.validate_repository_for_qa');
1598: END IF;
1599:
1600: EXCEPTION
1598: END IF;
1599:
1600: EXCEPTION
1601: WHEN FND_API.G_EXC_ERROR THEN
1602: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1603: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION , G_MODULE||l_api_name,
1604: 'Leaving OKC_REP_QA_CHECK_PVT.validate_repository_for_qa with G_EXC_ERROR');
1605: END IF;
1606: x_return_status := G_RET_STS_ERROR;
1599:
1600: EXCEPTION
1601: WHEN FND_API.G_EXC_ERROR THEN
1602: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1603: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION , G_MODULE||l_api_name,
1604: 'Leaving OKC_REP_QA_CHECK_PVT.validate_repository_for_qa with G_EXC_ERROR');
1605: END IF;
1606: x_return_status := G_RET_STS_ERROR;
1607: --close cursors
1613: p_data => x_msg_data
1614: );
1615:
1616: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1617: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1618: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,G_MODULE||l_api_name,
1619: 'Leaving OKC_REP_QA_CHECK_PVT.validate_repository_for_qa with G_EXC_UNEXPECTED_ERROR');
1620: END IF;
1621: x_return_status := G_RET_STS_UNEXP_ERROR;
1614: );
1615:
1616: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1617: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1618: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,G_MODULE||l_api_name,
1619: 'Leaving OKC_REP_QA_CHECK_PVT.validate_repository_for_qa with G_EXC_UNEXPECTED_ERROR');
1620: END IF;
1621: x_return_status := G_RET_STS_UNEXP_ERROR;
1622: --close cursors
1628: p_data => x_msg_data
1629: );
1630:
1631: WHEN OTHERS THEN
1632: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1633: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
1634: G_MODULE || l_api_name,
1635: 'Leaving OKC_REP_QA_CHECK_PVT.validate_repository_for_qa because of EXCEPTION: ' || sqlerrm);
1636: END IF;
1629: );
1630:
1631: WHEN OTHERS THEN
1632: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1633: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
1634: G_MODULE || l_api_name,
1635: 'Leaving OKC_REP_QA_CHECK_PVT.validate_repository_for_qa because of EXCEPTION: ' || sqlerrm);
1636: END IF;
1637: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1707: contract_rec contract_csr%ROWTYPE;
1708:
1709: BEGIN
1710:
1711: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1712: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
1713: 'Entered perform_contract_qa_check');
1714: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
1715: 'Contract Id is: ' || p_contract_id);
1708:
1709: BEGIN
1710:
1711: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1712: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
1713: 'Entered perform_contract_qa_check');
1714: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
1715: 'Contract Id is: ' || p_contract_id);
1716: END IF;
1710:
1711: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1712: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
1713: 'Entered perform_contract_qa_check');
1714: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
1715: 'Contract Id is: ' || p_contract_id);
1716: END IF;
1717: x_qa_return_status := G_QA_STS_SUCCESS;
1718: x_return_status := G_RET_STS_SUCCESS;
1735: -- Get effective dates and contract_type of the contract.
1736: OPEN contract_csr;
1737: FETCH contract_csr INTO contract_rec;
1738: IF(contract_csr%NOTFOUND) THEN
1739: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1740: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION ,
1741: G_MODULE||l_api_name,
1742: 'Invalid Contract Id: '|| p_contract_id);
1743: END IF;
1736: OPEN contract_csr;
1737: FETCH contract_csr INTO contract_rec;
1738: IF(contract_csr%NOTFOUND) THEN
1739: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1740: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION ,
1741: G_MODULE||l_api_name,
1742: 'Invalid Contract Id: '|| p_contract_id);
1743: END IF;
1744: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1749: -- RAISE NO_DATA_FOUND;
1750: END IF;
1751:
1752:
1753: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1754: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
1755: 'Contract Type is: ' || contract_rec.contract_type);
1756: END IF;
1757:
1750: END IF;
1751:
1752:
1753: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1754: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
1755: 'Contract Type is: ' || contract_rec.contract_type);
1756: END IF;
1757:
1758: -- Repository Enhancement 12.1 (For Validate Action)
1756: END IF;
1757:
1758: -- Repository Enhancement 12.1 (For Validate Action)
1759:
1760: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1761: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1762: 'Calling OKC_TERMS_QA_GRP.QA_Doc API');
1763: END IF;
1764:
1757:
1758: -- Repository Enhancement 12.1 (For Validate Action)
1759:
1760: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1761: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1762: 'Calling OKC_TERMS_QA_GRP.QA_Doc API');
1763: END IF;
1764:
1765:
1774: p_doc_id => p_contract_id,
1775: x_qa_result_tbl => l_qa_result_tbl,
1776: x_qa_return_status => x_qa_return_status);
1777:
1778: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1779: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT , G_MODULE||l_api_name,
1780: 'Completed OKC_TERMS_QA_GRP.QA_Doc with returned status: ' || x_return_status);
1781: END IF;
1782:
1775: x_qa_result_tbl => l_qa_result_tbl,
1776: x_qa_return_status => x_qa_return_status);
1777:
1778: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1779: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT , G_MODULE||l_api_name,
1780: 'Completed OKC_TERMS_QA_GRP.QA_Doc with returned status: ' || x_return_status);
1781: END IF;
1782:
1783: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1787: END IF;
1788: -- Repository Enhancement 12.1 Ends (For Validate Action)
1789:
1790: -- Make call for Repository QA check
1791: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1792: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1793: 'Calling OKC_REP_QA_CHECK_PVT.validate_repository_for_qa() API');
1794: END IF;
1795: validate_repository_for_qa (
1788: -- Repository Enhancement 12.1 Ends (For Validate Action)
1789:
1790: -- Make call for Repository QA check
1791: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1792: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1793: 'Calling OKC_REP_QA_CHECK_PVT.validate_repository_for_qa() API');
1794: END IF;
1795: validate_repository_for_qa (
1796: p_api_version => 1,
1800: p_qa_result_tbl => l_qa_result_tbl,
1801: x_msg_data => x_msg_data,
1802: x_msg_count => x_msg_count,
1803: x_return_status => x_return_status);
1804: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1805: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT , G_MODULE||l_api_name,
1806: 'Completed OKC_REP_QA_CHECK_PVT.validate_repository_for_qa with returned status: ' || x_return_status);
1807: END IF;
1808: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1801: x_msg_data => x_msg_data,
1802: x_msg_count => x_msg_count,
1803: x_return_status => x_return_status);
1804: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1805: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT , G_MODULE||l_api_name,
1806: 'Completed OKC_REP_QA_CHECK_PVT.validate_repository_for_qa with returned status: ' || x_return_status);
1807: END IF;
1808: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1809: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1812: END IF;
1813:
1814: -- Make call for deliverables QA check
1815:
1816: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1817: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1818: 'Calling OKC_DELIVERABLE_PROCESS_PVT.validate_deliverable_for_qa() API');
1819: END IF;
1820: l_bus_doc_date_events_tbl(1).event_code := G_CONTRACT_EFFECTIVE_EVENT;
1813:
1814: -- Make call for deliverables QA check
1815:
1816: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1817: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1818: 'Calling OKC_DELIVERABLE_PROCESS_PVT.validate_deliverable_for_qa() API');
1819: END IF;
1820: l_bus_doc_date_events_tbl(1).event_code := G_CONTRACT_EFFECTIVE_EVENT;
1821: l_bus_doc_date_events_tbl(1).event_date := contract_rec.contract_effective_date;
1835: x_msg_count => x_msg_count,
1836: x_return_status => x_return_status,
1837: x_qa_return_status => x_qa_return_status);
1838:
1839: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1840: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT , G_MODULE||l_api_name,
1841: 'Completed OKC_DELIVERABLE_PROCESS_PVT.validate_deliverable_for_qa with returned status: ' || x_return_status);
1842: END IF;
1843: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1836: x_return_status => x_return_status,
1837: x_qa_return_status => x_qa_return_status);
1838:
1839: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1840: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT , G_MODULE||l_api_name,
1841: 'Completed OKC_DELIVERABLE_PROCESS_PVT.validate_deliverable_for_qa with returned status: ' || x_return_status);
1842: END IF;
1843: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1844: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1851: -- Now insert into Temp table.
1852: --------------------------------------------
1853: -- Save result from PLSQL table into DB table
1854: --------------------------------------------
1855: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1856: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,
1857: G_MODULE||l_api_name,'1015: Save result from PLSQL table into DB table');
1858: END IF;
1859:
1852: --------------------------------------------
1853: -- Save result from PLSQL table into DB table
1854: --------------------------------------------
1855: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1856: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,
1857: G_MODULE||l_api_name,'1015: Save result from PLSQL table into DB table');
1858: END IF;
1859:
1860:
1861: -- After calling the validation APIs we need to find out about the x_qa_return_status. We should loop through
1862: -- this only if we get
1863: IF l_qa_result_tbl.COUNT > 0 THEN
1864: FOR i IN l_qa_result_tbl.FIRST..l_qa_result_tbl.LAST LOOP
1865: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1866: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1867: 'Updating pl/sql table record: ' || i);
1868: END IF;
1869: 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);
1862: -- this only if we get
1863: IF l_qa_result_tbl.COUNT > 0 THEN
1864: FOR i IN l_qa_result_tbl.FIRST..l_qa_result_tbl.LAST LOOP
1865: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1866: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1867: 'Updating pl/sql table record: ' || i);
1868: END IF;
1869: 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);
1870: l_qa_result_tbl(i).error_severity_name := okc_util.decode_lookup('OKC_QA_SEVERITY',l_qa_result_tbl(i).error_severity);
1885: x_qa_return_status := G_QA_STS_WARNING;
1886: END IF;
1887: END IF; -- l_qa_result_tbl.COUNT > 0 THEN
1888:
1889: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1890: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1891: 'Calling OKC_TERMS_QA_PVT.Log_QA_Messages');
1892: END IF;
1893: -- Load eror in the DB table
1886: END IF;
1887: END IF; -- l_qa_result_tbl.COUNT > 0 THEN
1888:
1889: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1890: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1891: 'Calling OKC_TERMS_QA_PVT.Log_QA_Messages');
1892: END IF;
1893: -- Load eror in the DB table
1894: OKC_TERMS_QA_PVT.Log_QA_Messages(
1896:
1897: p_qa_result_tbl => l_qa_result_tbl,
1898: x_sequence_id => x_sequence_id
1899: );
1900: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1901: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1902: 'Completed OKC_TERMS_QA_PVT.Log_QA_Messages');
1903: END IF;
1904: --------------------------------------------
1897: p_qa_result_tbl => l_qa_result_tbl,
1898: x_sequence_id => x_sequence_id
1899: );
1900: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1901: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
1902: 'Completed OKC_TERMS_QA_PVT.Log_QA_Messages');
1903: END IF;
1904: --------------------------------------------
1905: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1916:
1917: -- Standard call to get message count and if count is 1, get message info.
1918: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1919:
1920: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1921: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,
1922: G_MODULE||l_api_name,'Leaving OKC_REP_QA_CHECK_PVT.perform_contract_qa_check');
1923: END IF;
1924:
1917: -- Standard call to get message count and if count is 1, get message info.
1918: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1919:
1920: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1921: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,
1922: G_MODULE||l_api_name,'Leaving OKC_REP_QA_CHECK_PVT.perform_contract_qa_check');
1923: END IF;
1924:
1925: EXCEPTION
1924:
1925: EXCEPTION
1926: WHEN FND_API.G_EXC_ERROR THEN
1927:
1928: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1929: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
1930: G_MODULE||l_api_name,'Leaving OKC_REP_QA_CHECK_PVT.perform_contract_qa_check with G_EXC_ERROR');
1931: END IF;
1932: --close cursors
1925: EXCEPTION
1926: WHEN FND_API.G_EXC_ERROR THEN
1927:
1928: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1929: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
1930: G_MODULE||l_api_name,'Leaving OKC_REP_QA_CHECK_PVT.perform_contract_qa_check with G_EXC_ERROR');
1931: END IF;
1932: --close cursors
1933: IF (contract_csr%ISOPEN) THEN
1940: );
1941:
1942: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1943:
1944: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1945: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
1946: G_MODULE||l_api_name,'Leaving OKC_REP_QA_CHECK_PVT.perform_contract_qa_check with G_EXC_UNEXPECTED_ERROR');
1947: END IF;
1948: --close cursors
1941:
1942: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1943:
1944: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1945: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
1946: G_MODULE||l_api_name,'Leaving OKC_REP_QA_CHECK_PVT.perform_contract_qa_check with G_EXC_UNEXPECTED_ERROR');
1947: END IF;
1948: --close cursors
1949: IF (contract_csr%ISOPEN) THEN
1956: );
1957:
1958: WHEN OTHERS THEN
1959:
1960: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1961: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
1962: G_MODULE||l_api_name,'Leaving OKC_REP_QA_CHECK_PVT.perform_contract_qa_check with OTHERS EXCEPTION');
1963: END IF;
1964: --close cursors
1957:
1958: WHEN OTHERS THEN
1959:
1960: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1961: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
1962: G_MODULE||l_api_name,'Leaving OKC_REP_QA_CHECK_PVT.perform_contract_qa_check with OTHERS EXCEPTION');
1963: END IF;
1964: --close cursors
1965: IF (contract_csr%ISOPEN) THEN
2012: l_user_id FND_USER.USER_ID%TYPE;
2013:
2014: BEGIN
2015:
2016: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2017: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
2018: 'Entered insert_deliverables_qa_checks');
2019: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
2020: 'Contract Type is: ' || p_contract_type);
2013:
2014: BEGIN
2015:
2016: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2017: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
2018: 'Entered insert_deliverables_qa_checks');
2019: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
2020: 'Contract Type is: ' || p_contract_type);
2021: END IF;
2015:
2016: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2017: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
2018: 'Entered insert_deliverables_qa_checks');
2019: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
2020: 'Contract Type is: ' || p_contract_type);
2021: END IF;
2022:
2023: x_return_status := G_RET_STS_SUCCESS;
2058: l_user_id := FND_GLOBAL.user_id();
2059:
2060: FOR i IN l_okc_doc_qa_lists_tbl.FIRST..l_okc_doc_qa_lists_tbl.LAST LOOP
2061:
2062: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2063: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2064: 'Inserting pl/sql table record: ' || i);
2065: END IF;
2066:
2059:
2060: FOR i IN l_okc_doc_qa_lists_tbl.FIRST..l_okc_doc_qa_lists_tbl.LAST LOOP
2061:
2062: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2063: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2064: 'Inserting pl/sql table record: ' || i);
2065: END IF;
2066:
2067: insert into OKC_DOC_QA_LISTS(
2084: l_user_id,
2085: sysdate,
2086: l_okc_doc_qa_lists_tbl(i).enable_qa_yn);
2087:
2088: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2089: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT, g_module || l_api_name,
2090: 'After inserting a row into OKC_DOC_QA_LISTS');
2091: END IF;
2092:
2085: sysdate,
2086: l_okc_doc_qa_lists_tbl(i).enable_qa_yn);
2087:
2088: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2089: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT, g_module || l_api_name,
2090: 'After inserting a row into OKC_DOC_QA_LISTS');
2091: END IF;
2092:
2093: END LOOP;
2094:
2095: -- Standard call to get message count and if count is 1, get message info.
2096: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
2097:
2098: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2099: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
2100: 'Leaving OKC_REP_QA_CHECK_PVT.insert_deliverables_qa_checks');
2101: END IF;
2102:
2095: -- Standard call to get message count and if count is 1, get message info.
2096: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
2097:
2098: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2099: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
2100: 'Leaving OKC_REP_QA_CHECK_PVT.insert_deliverables_qa_checks');
2101: END IF;
2102:
2103: EXCEPTION
2102:
2103: EXCEPTION
2104: WHEN FND_API.G_EXC_ERROR THEN
2105:
2106: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2107: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,
2108: 'Leaving OKC_REP_QA_CHECK_PVT.insert_deliverables_qa_checks with G_EXC_ERROR');
2109: END IF;
2110:
2103: EXCEPTION
2104: WHEN FND_API.G_EXC_ERROR THEN
2105:
2106: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2107: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,
2108: 'Leaving OKC_REP_QA_CHECK_PVT.insert_deliverables_qa_checks with G_EXC_ERROR');
2109: END IF;
2110:
2111: x_return_status := G_RET_STS_ERROR;
2116: );
2117:
2118: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2119:
2120: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2121: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,
2122: 'Leaving OKC_REP_QA_CHECK_PVT.insert_deliverables_qa_checks with G_EXC_UNEXPECTED_ERROR');
2123: END IF;
2124:
2117:
2118: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2119:
2120: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2121: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,
2122: 'Leaving OKC_REP_QA_CHECK_PVT.insert_deliverables_qa_checks with G_EXC_UNEXPECTED_ERROR');
2123: END IF;
2124:
2125: x_return_status := G_RET_STS_UNEXP_ERROR;
2130: );
2131:
2132: WHEN OTHERS THEN
2133:
2134: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2135: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,
2136: 'Leaving OKC_REP_QA_CHECK_PVT.insert_deliverables_qa_checks with OTHERS EXCEPTION');
2137: END IF;
2138:
2131:
2132: WHEN OTHERS THEN
2133:
2134: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2135: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,
2136: 'Leaving OKC_REP_QA_CHECK_PVT.insert_deliverables_qa_checks with OTHERS EXCEPTION');
2137: END IF;
2138:
2139: x_return_status := G_RET_STS_UNEXP_ERROR;