10: --Pre-reqs : None.
11: --Parameters :
12: --IN : p_api_version IN NUMBER Required
13: -- : p_init_msg_list IN VARCHAR2 Optional
14: -- Default = FND_API.G_FALSE
15: -- : p_contract_id IN NUMBER Required
16: -- ID of the contract to be checked
17: -- : p_severity IN VARCHAR2 Required
18: -- Severity level for this check. Possible values are ERROR, WARNING.
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
62: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
63: END IF;
64: -- Initialize message list if p_init_msg_list is set to TRUE.
65: IF FND_API.to_Boolean( p_init_msg_list ) THEN
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
62: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
63: END IF;
64: -- Initialize message list if p_init_msg_list is set to TRUE.
65: IF FND_API.to_Boolean( p_init_msg_list ) THEN
66: FND_MSG_PUB.initialize;
61: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
62: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
63: END IF;
64: -- Initialize message list if p_init_msg_list is set to TRUE.
65: IF FND_API.to_Boolean( p_init_msg_list ) THEN
66: FND_MSG_PUB.initialize;
67: END IF;
68:
69: -- Initialize API return status to success
66: FND_MSG_PUB.initialize;
67: END IF;
68:
69: -- Initialize API return status to success
70: x_return_status := FND_API.G_RET_STS_SUCCESS;
71:
72: OPEN party_csr;
73: FETCH party_csr INTO party_rec;
74: IF party_csr%NOTFOUND 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
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;
110: p_count => x_msg_count,
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;
160: --Pre-reqs : None.
161: --Parameters :
162: --IN : p_api_version IN NUMBER Required
163: -- : p_init_msg_list IN VARCHAR2 Optional
164: -- Default = FND_API.G_FALSE
165: -- : p_effective_date IN NUMBER Required
166: -- Effective date of the contract to be checked
167: -- : p_severity IN VARCHAR2 Required
168: -- Severity level for this check. Possible values are ERROR, WARNING.
200: 'Severity level is: ' || p_severity);
201: END IF;
202:
203: -- Standard call to check for call compatibility.
204: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
205: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
206: END IF;
207: -- Initialize message list if p_init_msg_list is set to TRUE.
208: IF FND_API.to_Boolean( p_init_msg_list ) THEN
201: END IF;
202:
203: -- Standard call to check for call compatibility.
204: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
205: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
206: END IF;
207: -- Initialize message list if p_init_msg_list is set to TRUE.
208: IF FND_API.to_Boolean( p_init_msg_list ) THEN
209: FND_MSG_PUB.initialize;
204: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
205: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
206: END IF;
207: -- Initialize message list if p_init_msg_list is set to TRUE.
208: IF FND_API.to_Boolean( p_init_msg_list ) THEN
209: FND_MSG_PUB.initialize;
210: END IF;
211:
212: -- Initialize API return status to success
209: FND_MSG_PUB.initialize;
210: END IF;
211:
212: -- Initialize API return status to success
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
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
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;
247: p_count => x_msg_count,
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;
287: --Pre-reqs : None.
288: --Parameters :
289: --IN : p_api_version IN NUMBER Required
290: -- : p_init_msg_list IN VARCHAR2 Optional
291: -- Default = FND_API.G_FALSE
292: -- : p_contract_type IN NUMBER Required
293: -- Contract type to be validated
294: -- : p_severity IN VARCHAR2 Required
295: -- Severity level for this check. Possible values are ERROR, WARNING.
333: 'Severity level is: ' || p_severity);
334: END IF;
335:
336: -- Standard call to check for call compatibility.
337: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
338: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
339: END IF;
340: -- Initialize message list if p_init_msg_list is set to TRUE.
341: IF FND_API.to_Boolean( p_init_msg_list ) THEN
334: END IF;
335:
336: -- Standard call to check for call compatibility.
337: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
338: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
339: END IF;
340: -- Initialize message list if p_init_msg_list is set to TRUE.
341: IF FND_API.to_Boolean( p_init_msg_list ) THEN
342: FND_MSG_PUB.initialize;
337: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
338: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
339: END IF;
340: -- Initialize message list if p_init_msg_list is set to TRUE.
341: IF FND_API.to_Boolean( p_init_msg_list ) THEN
342: FND_MSG_PUB.initialize;
343: END IF;
344:
345: -- Initialize API return status to success
342: FND_MSG_PUB.initialize;
343: END IF;
344:
345: -- Initialize API return status to success
346: x_return_status := FND_API.G_RET_STS_SUCCESS;
347: l_valid_contract_type_flag := 'Y';
348:
349: OPEN contract_type_csr;
350: FETCH contract_type_csr INTO contract_type_rec;
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
358: l_contract_type_name := contract_type_rec.name;
359: IF (sysdate BETWEEN nvl(contract_type_rec.start_date, sysdate) AND nvl(contract_type_rec.end_date, sysdate)) THEN
360: l_valid_contract_type_flag := 'Y';
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
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;
405: p_count => x_msg_count,
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;
452: --Pre-reqs : None.
453: --Parameters :
454: --IN : p_api_version IN NUMBER Required
455: -- : p_init_msg_list IN VARCHAR2 Optional
456: -- Default = FND_API.G_FALSE
457: -- : p_party_role_code IN VARCHER Required
458: -- external party role code
459: -- : p_party_id IN NUMBER Required
460: -- party id of the external party.
510: 'Party Id is: ' || p_party_id);
511: END IF;
512:
513: -- Standard call to check for call compatibility.
514: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
515: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
516: END IF;
517: -- Initialize message list if p_init_msg_list is set to TRUE.
518: IF FND_API.to_Boolean( p_init_msg_list ) THEN
511: END IF;
512:
513: -- Standard call to check for call compatibility.
514: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
515: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
516: END IF;
517: -- Initialize message list if p_init_msg_list is set to TRUE.
518: IF FND_API.to_Boolean( p_init_msg_list ) THEN
519: FND_MSG_PUB.initialize;
514: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
515: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
516: END IF;
517: -- Initialize message list if p_init_msg_list is set to TRUE.
518: IF FND_API.to_Boolean( p_init_msg_list ) THEN
519: FND_MSG_PUB.initialize;
520: END IF;
521:
522: -- Initialize API return status to success
519: FND_MSG_PUB.initialize;
520: END IF;
521:
522: -- Initialize API return status to success
523: x_return_status := FND_API.G_RET_STS_SUCCESS;
524: l_valid_external_party_flag := 'Y';
525:
526: IF (p_party_role_code = G_PARTY_ROLE_PARTNER OR
527: p_party_role_code = G_PARTY_ROLE_CUSTOMER) 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
537: l_party_name := partner_rec.party_name;
538: if (partner_rec.status <> 'A') THEN
539: l_valid_external_party_flag := 'N';
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
552: l_party_name := vendor_rec.vendor_name;
553: if (vendor_rec.enabled_flag <> 'Y' AND
554: SYSDATE BETWEEN NVL(vendor_rec.start_date_active, SYSDATE - 1) AND NVL(vendor_rec.end_date_active, SYSDATE + 1)) 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
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;
602: p_count => x_msg_count,
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;
657: --Pre-reqs : None.
658: --Parameters :
659: --IN : p_api_version IN NUMBER Required
660: -- : p_init_msg_list IN VARCHAR2 Optional
661: -- Default = FND_API.G_FALSE
662: -- : p_party_role_code IN VARCHER Required
663: -- external party role code
664: -- : p_party_id IN NUMBER Required
665: -- party id of the external party.
749: 'Contact Id is: ' || p_contact_id);
750: END IF;
751:
752: -- Standard call to check for call compatibility.
753: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
754: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
755: END IF;
756: -- Initialize message list if p_init_msg_list is set to TRUE.
757: IF FND_API.to_Boolean( p_init_msg_list ) THEN
750: END IF;
751:
752: -- Standard call to check for call compatibility.
753: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
754: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
755: END IF;
756: -- Initialize message list if p_init_msg_list is set to TRUE.
757: IF FND_API.to_Boolean( p_init_msg_list ) THEN
758: FND_MSG_PUB.initialize;
753: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
754: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
755: END IF;
756: -- Initialize message list if p_init_msg_list is set to TRUE.
757: IF FND_API.to_Boolean( p_init_msg_list ) THEN
758: FND_MSG_PUB.initialize;
759: END IF;
760:
761: -- Initialize API return status to success
758: FND_MSG_PUB.initialize;
759: END IF;
760:
761: -- Initialize API return status to success
762: x_return_status := FND_API.G_RET_STS_SUCCESS;
763: l_valid_contact_flag := 'Y';
764:
765: IF ((p_party_role_code = G_PARTY_ROLE_PARTNER) OR (p_party_role_code = G_PARTY_ROLE_CUSTOMER)) THEN
766:
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
777:
778: l_contact_name := tca_contact_rec.contact_name;
779:
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
801:
802: l_contact_name := vendor_contact_rec.contact_name;
803:
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
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;
885: p_count => x_msg_count,
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;
953: --Pre-reqs : None.
954: --Parameters :
955: --IN : p_api_version IN NUMBER Required
956: -- : p_init_msg_list IN VARCHAR2 Optional
957: -- Default = FND_API.G_FALSE
958: -- : p_contact_role_id IN NUMBER Required
959: -- Contract Role Id to be validated
960: -- : p_severity IN VARCHAR2 Required
961: -- Severity level for this check. Possible values are ERROR, WARNING.
999: 'Severity level is: ' || p_severity);
1000: END IF;
1001:
1002: -- Standard call to check for call compatibility.
1003: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1004: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1005: END IF;
1006: -- Initialize message list if p_init_msg_list is set to TRUE.
1007: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1000: END IF;
1001:
1002: -- Standard call to check for call compatibility.
1003: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1004: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1005: END IF;
1006: -- Initialize message list if p_init_msg_list is set to TRUE.
1007: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1008: FND_MSG_PUB.initialize;
1003: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1004: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1005: END IF;
1006: -- Initialize message list if p_init_msg_list is set to TRUE.
1007: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1008: FND_MSG_PUB.initialize;
1009: END IF;
1010:
1011: -- Initialize API return status to success
1008: FND_MSG_PUB.initialize;
1009: END IF;
1010:
1011: -- Initialize API return status to success
1012: x_return_status := FND_API.G_RET_STS_SUCCESS;
1013: l_valid_contact_role_flag := 'Y';
1014:
1015: OPEN contact_role_csr;
1016: FETCH contact_role_csr INTO contact_role_rec;
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
1024: l_contact_role_name := contact_role_rec.name;
1025: IF (sysdate BETWEEN nvl(contact_role_rec.start_date, sysdate) AND nvl(contact_role_rec.end_date, sysdate)) THEN
1026: l_valid_contact_role_flag := 'Y';
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
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;
1070: p_count => x_msg_count,
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;
1119: --Pre-reqs : None.
1120: --Parameters :
1121: --IN : p_api_version IN NUMBER Required
1122: -- : p_init_msg_list IN VARCHAR2 Optional
1123: -- Default = FND_API.G_FALSE
1124: -- : p_contact_role IN NUMBER Required
1125: -- Contract type to be validated
1126: -- : p_severity IN VARCHAR2 Required
1127: -- Severity level for this check. Possible values are ERROR, WARNING.
1165: 'Severity level is: ' || p_severity);
1166: END IF;
1167:
1168: -- Standard call to check for call compatibility.
1169: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1170: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1171: END IF;
1172: -- Initialize message list if p_init_msg_list is set to TRUE.
1173: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1166: END IF;
1167:
1168: -- Standard call to check for call compatibility.
1169: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1170: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1171: END IF;
1172: -- Initialize message list if p_init_msg_list is set to TRUE.
1173: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1174: FND_MSG_PUB.initialize;
1169: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1170: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1171: END IF;
1172: -- Initialize message list if p_init_msg_list is set to TRUE.
1173: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1174: FND_MSG_PUB.initialize;
1175: END IF;
1176:
1177: -- Initialize API return status to success
1174: FND_MSG_PUB.initialize;
1175: END IF;
1176:
1177: -- Initialize API return status to success
1178: x_return_status := FND_API.G_RET_STS_SUCCESS;
1179: l_valid_risk_event_flag := 'Y';
1180:
1181: OPEN risk_event_csr;
1182: FETCH risk_event_csr INTO risk_event_rec;
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
1190: l_risk_event_name := risk_event_rec.name;
1191: IF (sysdate BETWEEN nvl(risk_event_rec.start_date, sysdate) AND nvl(risk_event_rec.end_date, sysdate)) THEN
1192: l_valid_risk_event_flag := 'Y';
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
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;
1236: p_count => x_msg_count,
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;
1298: --Pre-reqs : None.
1299: --Parameters :
1300: --IN : p_api_version IN NUMBER Required
1301: -- : p_init_msg_list IN VARCHAR2 Optional
1302: -- : Default = FND_API.G_FALSE
1303: -- : p_contract_id IN NUMBER Required
1304: -- : Contract ID of the contract to be QA checked
1305: -- : p_contract_type IN NUMBER Required
1306: -- : Type of the contract to be QA checked
1374: RAISE OKC_API.G_EXCEPTION_ERROR;
1375: END IF;
1376:
1377: -- Initialize message list if p_init_msg_list is set to TRUE.
1378: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1379: FND_MSG_PUB.initialize;
1380: END IF;
1381:
1382: --Check for external party
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,
1389: p_init_msg_list => FND_API.G_FALSE,
1390: p_contract_id => p_contract_id,
1391: p_severity => G_QA_STS_WARNING,
1392: px_qa_result_tbl => p_qa_result_tbl,
1393: x_msg_data => x_msg_data,
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,
1426: p_init_msg_list => FND_API.G_FALSE,
1427: p_effective_date => contract_rec.contract_effective_date,
1428: p_severity => G_QA_STS_ERROR,
1429: px_qa_result_tbl => p_qa_result_tbl,
1430: x_msg_data => x_msg_data,
1447: 'Calling OKC_REP_QA_CHECK_PVT.validate_contract_type() API');
1448: END IF;
1449: validate_contract_type (
1450: p_api_version => 1,
1451: p_init_msg_list => FND_API.G_FALSE,
1452: p_contract_type => p_contract_type,
1453: p_severity => G_QA_STS_WARNING,
1454: px_qa_result_tbl => p_qa_result_tbl,
1455: x_msg_data => x_msg_data,
1478: 'Party role code is: '|| party_rec.party_role_code);
1479: END IF;
1480: validate_external_party (
1481: p_api_version => 1,
1482: p_init_msg_list => FND_API.G_FALSE,
1483: p_party_role_code => party_rec.party_role_code,
1484: p_party_id => party_rec.party_id,
1485: p_severity => G_QA_STS_WARNING,
1486: px_qa_result_tbl => p_qa_result_tbl,
1514: END IF;
1515: -- Validate contact
1516: validate_contact (
1517: p_api_version => 1,
1518: p_init_msg_list => FND_API.G_FALSE,
1519: p_party_role_code => party_contact_rec.party_role_code,
1520: p_party_id => party_contact_rec.party_id,
1521: p_contact_id => party_contact_rec.contact_id,
1522: p_severity => G_QA_STS_WARNING,
1537:
1538: -- Validate contact role
1539: validate_contact_role (
1540: p_api_version => 1,
1541: p_init_msg_list => FND_API.G_FALSE,
1542: p_contact_role_id => party_contact_rec.contact_role_id,
1543: p_severity => G_QA_STS_WARNING,
1544: px_qa_result_tbl => p_qa_result_tbl,
1545: x_msg_data => x_msg_data,
1568: 'Risk Event Id is: '|| risk_rec.risk_event_id);
1569: END IF;
1570: validate_risk_event (
1571: p_api_version => 1,
1572: p_init_msg_list => FND_API.G_FALSE,
1573: p_risk_event_id => risk_rec.risk_event_id,
1574: p_severity => G_QA_STS_WARNING,
1575: px_qa_result_tbl => p_qa_result_tbl,
1576: x_msg_data => x_msg_data,
1597: G_MODULE||l_api_name,'leaving OKC_REP_QA_CHECK_PVT.validate_repository_for_qa');
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;
1612: p_count => x_msg_count,
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;
1665: --Pre-reqs : None.
1666: --Parameters :
1667: --IN : p_api_version IN NUMBER Required
1668: -- : p_init_msg_list IN VARCHAR2 Optional
1669: -- Default = FND_API.G_FALSE
1670: -- : p_contract_id IN NUMBER Required
1671: -- Contract ID of the contract to be QA checked
1672: --OUT : x_return_status OUT VARCHAR2(1)
1673: -- : x_msg_count OUT NUMBER
1727: RAISE OKC_API.G_EXCEPTION_ERROR;
1728: END IF;
1729:
1730: -- Initialize message list if p_init_msg_list is set to TRUE.
1731: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1732: FND_MSG_PUB.initialize;
1733: END IF;
1734:
1735: -- Get effective dates and contract_type of the contract.
1744: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1745: p_msg_name => G_INVALID_CONTRACT_ID_MSG,
1746: p_token1 => G_CONTRACT_ID_TOKEN,
1747: p_token1_value => to_char(p_contract_id));
1748: RAISE FND_API.G_EXC_ERROR;
1749: -- RAISE NO_DATA_FOUND;
1750: END IF;
1751:
1752:
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,
1797: p_init_msg_list => FND_API.G_FALSE,
1798: p_contract_type => contract_rec.contract_type,
1799: p_contract_id => p_contract_id,
1800: p_qa_result_tbl => l_qa_result_tbl,
1801: x_msg_data => x_msg_data,
1824: l_bus_doc_date_events_tbl(2).event_date := contract_rec.contract_expiration_date;
1825:
1826: OKC_DELIVERABLE_PROCESS_PVT.validate_deliverable_for_qa (
1827: p_api_version => 1,
1828: p_init_msg_list => FND_API.G_FALSE,
1829: p_doc_type => contract_rec.contract_type,
1830: p_doc_id => p_contract_id,
1831: p_mode => G_NORMAL_QA,
1832: p_bus_doc_date_events_tbl => l_bus_doc_date_events_tbl,
1902: 'Completed OKC_TERMS_QA_PVT.Log_QA_Messages');
1903: END IF;
1904: --------------------------------------------
1905: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1906: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1907: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1908: RAISE FND_API.G_EXC_ERROR ;
1909: END IF;
1910: --------------------------------------------
1904: --------------------------------------------
1905: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1906: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1907: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1908: RAISE FND_API.G_EXC_ERROR ;
1909: END IF;
1910: --------------------------------------------
1911:
1912: -- We should commit work now
1922: G_MODULE||l_api_name,'Leaving OKC_REP_QA_CHECK_PVT.perform_contract_qa_check');
1923: END IF;
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');
1938: p_count => x_msg_count,
1939: p_data => x_msg_data
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');
2100: 'Leaving OKC_REP_QA_CHECK_PVT.insert_deliverables_qa_checks');
2101: END IF;
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');
2114: p_count => x_msg_count,
2115: p_data => x_msg_data
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');