DBA Data[Home] [Help]

APPS.OKC_REP_QA_CHECK_PVT dependencies on OKC_REP_QA_CHECK_PVT

Line 1: PACKAGE BODY OKC_REP_QA_CHECK_PVT AS

1: PACKAGE BODY OKC_REP_QA_CHECK_PVT AS
2: /* $Header: OKCVREPQACHKB.pls 120.9 2008/01/23 12:17:02 harchand ship $ */
3:
4: -- Start of comments
5: --API name : check_no_external_party

Line 54: 'Entered OKC_REP_QA_CHECK_PVT.check_no_external_party ');

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,
58: 'Severity level is: ' || p_severity);

Line 96: 'Leaving OKC_REP_QA_CHECK_PVT.check_no_external_party');

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
100: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

Line 102: 'Leaving OKC_REP_QA_CHECK_PVT.check_no_external_party with G_EXC_ERROR');

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
106: IF (party_csr%ISOPEN) THEN

Line 117: 'Leaving OKC_REP_QA_CHECK_PVT.check_no_external_party with G_EXC_UNEXPECTED_ERROR');

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
121: IF (party_csr%ISOPEN) THEN

Line 133: 'Leaving OKC_REP_QA_CHECK_PVT.check_no_external_party because of EXCEPTION: ' || sqlerrm);

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,
136: p_msg_name => G_UNEXPECTED_ERROR,
137: p_token1 => G_SQLCODE_TOKEN,

Line 196: 'Entered OKC_REP_QA_CHECK_PVT.check_no_eff_date ');

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,
200: 'Severity level is: ' || p_severity);

Line 237: 'Leaving OKC_REP_QA_CHECK_PVT.check_no_eff_date');

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
241: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

Line 243: 'Leaving OKC_REP_QA_CHECK_PVT.check_no_eff_date with G_EXC_ERROR');

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(
247: p_count => x_msg_count,

Line 254: 'Leaving OKC_REP_QA_CHECK_PVT.check_no_eff_date with G_EXC_UNEXPECTED_ERROR');

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(
258: p_count => x_msg_count,

Line 266: 'Leaving OKC_REP_QA_CHECK_PVT.check_no_eff_date because of EXCEPTION: ' || sqlerrm);

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,
269: p_msg_name => G_UNEXPECTED_ERROR,
270: p_token1 => G_SQLCODE_TOKEN,

Line 329: 'Entered OKC_REP_QA_CHECK_PVT.validate_contract_type ');

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,
333: 'Severity level is: ' || p_severity);

Line 392: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contract_type');

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
396: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

Line 398: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contract_type with G_EXC_ERROR');

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 ;
402: END IF;

Line 412: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contract_type with G_EXC_UNEXPECTED_ERROR');

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 ;
416: END IF;

Line 427: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contract_type because of EXCEPTION: ' || sqlerrm);

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
430: CLOSE contract_type_csr ;
431: END IF;

Line 506: 'Entered OKC_REP_QA_CHECK_PVT.validate_external_party ');

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,
510: 'Party Id is: ' || p_party_id);

Line 586: 'Leaving OKC_REP_QA_CHECK_PVT.validate_external_party');

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
590: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

Line 592: 'Leaving OKC_REP_QA_CHECK_PVT.validate_external_party with G_EXC_ERROR');

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 ;
596: END IF;

Line 609: 'Leaving OKC_REP_QA_CHECK_PVT.validate_external_party with G_EXC_UNEXPECTED_ERROR');

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 ;
613: END IF;

Line 627: 'Leaving OKC_REP_QA_CHECK_PVT.validate_external_party because of EXCEPTION: ' || sqlerrm);

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
630: CLOSE partner_csr ;
631: END IF;

Line 743: 'Entered OKC_REP_QA_CHECK_PVT.validate_contact ');

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,
747: 'Party Id is: ' || p_party_id);

Line 863: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contact');

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
867: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

Line 869: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contact with G_EXC_ERROR');

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 ;
873: END IF;

Line 892: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contact with G_EXC_UNEXPECTED_ERROR');

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 ;
896: END IF;

Line 916: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contact because of EXCEPTION: ' || sqlerrm);

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
919: CLOSE tca_contact_csr ;
920: END IF;

Line 995: 'Entered OKC_REP_QA_CHECK_PVT.validate_contact_role ');

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,
999: 'Severity level is: ' || p_severity);

Line 1057: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contact_role');

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
1061: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

Line 1063: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contact_role with G_EXC_ERROR');

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 ;
1067: END IF;

Line 1077: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contact_role with G_EXC_UNEXPECTED_ERROR');

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 ;
1081: END IF;

Line 1092: 'Leaving OKC_REP_QA_CHECK_PVT.validate_contact_role because of EXCEPTION: ' || sqlerrm);

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
1095: CLOSE contact_role_csr ;
1096: END IF;

Line 1161: 'Entered OKC_REP_QA_CHECK_PVT.validate_risk_event ');

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,
1165: 'Severity level is: ' || p_severity);

Line 1223: 'Leaving OKC_REP_QA_CHECK_PVT.validate_risk_event');

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
1227: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

Line 1229: 'Leaving OKC_REP_QA_CHECK_PVT.validate_risk_event with G_EXC_ERROR');

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 ;
1233: END IF;

Line 1243: 'Leaving OKC_REP_QA_CHECK_PVT.validate_risk_event with G_EXC_UNEXPECTED_ERROR');

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 ;
1247: END IF;

Line 1258: 'Leaving OKC_REP_QA_CHECK_PVT.validate_risk_event because of EXCEPTION: ' || sqlerrm);

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
1261: CLOSE risk_event_csr ;
1262: END IF;

Line 1385: 'Calling OKC_REP_QA_CHECK_PVT.check_no_exteral_party() API');

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,
1389: p_init_msg_list => FND_API.G_FALSE,

Line 1399: 'Completed OKC_REP_QA_CHECK_PVT.check_no_exteral_party with returned status: ' || x_return_status);

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;
1403: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN

Line 1422: 'Calling OKC_REP_QA_CHECK_PVT.check_no_eff_date() API');

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,
1426: p_init_msg_list => FND_API.G_FALSE,

Line 1436: 'Completed OKC_REP_QA_CHECK_PVT.check_no_eff_date with returned status: ' || x_return_status);

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;
1440: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN

Line 1447: 'Calling OKC_REP_QA_CHECK_PVT.validate_contract_type() API');

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,
1451: p_init_msg_list => FND_API.G_FALSE,

Line 1461: 'Completed OKC_REP_QA_CHECK_PVT.validate_contract_type with returned status: ' || x_return_status);

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;
1465: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN

Line 1474: 'Calling OKC_REP_QA_CHECK_PVT.validate_external_party() API');

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,
1478: 'Party role code is: '|| party_rec.party_role_code);

Line 1493: 'Completed OKC_REP_QA_CHECK_PVT.validate_external_party with returned status: ' || x_return_status);

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;
1497: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN

Line 1507: 'Calling OKC_REP_QA_CHECK_PVT.validate_contact() and validate_contact_role() APIs');

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,
1511: 'Party role code is: '|| party_contact_rec.party_role_code);

Line 1530: 'Completed OKC_REP_QA_CHECK_PVT.validate_contact with returned status: ' || x_return_status);

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;
1534: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN

Line 1551: 'Completed OKC_REP_QA_CHECK_PVT.validate_contact_role with returned status: ' || x_return_status);

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;
1555: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN

Line 1566: 'Calling OKC_REP_QA_CHECK_PVT.validate_risk_event() API');

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;
1570: validate_risk_event (

Line 1582: 'Completed OKC_REP_QA_CHECK_PVT.validate_risk_event with returned status: ' || x_return_status);

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;
1586: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN

Line 1597: G_MODULE||l_api_name,'leaving OKC_REP_QA_CHECK_PVT.validate_repository_for_qa');

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
1601: WHEN FND_API.G_EXC_ERROR THEN

Line 1604: 'Leaving OKC_REP_QA_CHECK_PVT.validate_repository_for_qa with G_EXC_ERROR');

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
1608: IF (contract_csr%ISOPEN) THEN

Line 1619: 'Leaving OKC_REP_QA_CHECK_PVT.validate_repository_for_qa with G_EXC_UNEXPECTED_ERROR');

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
1623: IF (contract_csr%ISOPEN) THEN

Line 1635: 'Leaving OKC_REP_QA_CHECK_PVT.validate_repository_for_qa because of EXCEPTION: ' || sqlerrm);

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,
1638: p_msg_name => G_UNEXPECTED_ERROR,
1639: p_token1 => G_SQLCODE_TOKEN,

Line 1661: -- 1. Calls OKC_REP_QA_CHECK_PVT.validate_repository_for_qa() to qa check

1657: -- Start of comments
1658: --API name : perform_contract_qa_check
1659: --Type : Private.
1660: --Function : This API performs QA check on a Repository Contract. The API check for:
1661: -- 1. Calls OKC_REP_QA_CHECK_PVT.validate_repository_for_qa() to qa check
1662: -- repository contracts.
1663: -- 2. Calls OKC_DELIVERABLE_PROCESS_PVT.validate_deliverable_for_qa to check the
1664: -- deliverables.
1665: --Pre-reqs : None.

Line 1793: 'Calling OKC_REP_QA_CHECK_PVT.validate_repository_for_qa() API');

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,
1797: p_init_msg_list => FND_API.G_FALSE,

Line 1806: 'Completed OKC_REP_QA_CHECK_PVT.validate_repository_for_qa with returned status: ' || x_return_status);

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;
1810: ELSIF (x_return_status = G_RET_STS_ERROR) THEN

Line 1922: G_MODULE||l_api_name,'Leaving OKC_REP_QA_CHECK_PVT.perform_contract_qa_check');

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
1926: WHEN FND_API.G_EXC_ERROR THEN

Line 1930: G_MODULE||l_api_name,'Leaving OKC_REP_QA_CHECK_PVT.perform_contract_qa_check with G_EXC_ERROR');

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
1934: CLOSE contract_csr ;

Line 1946: G_MODULE||l_api_name,'Leaving OKC_REP_QA_CHECK_PVT.perform_contract_qa_check with G_EXC_UNEXPECTED_ERROR');

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
1950: CLOSE contract_csr ;

Line 1962: G_MODULE||l_api_name,'Leaving OKC_REP_QA_CHECK_PVT.perform_contract_qa_check with OTHERS EXCEPTION');

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
1966: CLOSE contract_csr ;

Line 2100: 'Leaving OKC_REP_QA_CHECK_PVT.insert_deliverables_qa_checks');

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
2104: WHEN FND_API.G_EXC_ERROR THEN

Line 2108: 'Leaving OKC_REP_QA_CHECK_PVT.insert_deliverables_qa_checks with G_EXC_ERROR');

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;
2112:

Line 2122: 'Leaving OKC_REP_QA_CHECK_PVT.insert_deliverables_qa_checks with G_EXC_UNEXPECTED_ERROR');

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;
2126:

Line 2136: 'Leaving OKC_REP_QA_CHECK_PVT.insert_deliverables_qa_checks with OTHERS EXCEPTION');

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;
2140:

Line 2155: END OKC_REP_QA_CHECK_PVT;

2151: );
2152:
2153: END insert_deliverables_qa_checks;
2154:
2155: END OKC_REP_QA_CHECK_PVT;