143: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
144: '102: Contract Type is: ' || p_contract_type);
145: END IF;
146: -- Initialize message list if p_init_msg_list is set to TRUE.
147: IF FND_API.to_Boolean( p_init_msg_list ) THEN
148: FND_MSG_PUB.initialize;
149: END IF;
150:
151: IF (p_contract_type = 'PA_BLANKET')
188: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
189: 'Values from contract_csr: l_org_id = ' || l_org_id );
190: END IF;
191:
192: x_return_status := FND_API.G_RET_STS_SUCCESS;
193: x_has_access := FND_API.G_FALSE;
194:
195: -- Call multi-org API to check access to contract's organization by current user
196: OPEN mo_check_csr(l_org_id);
189: 'Values from contract_csr: l_org_id = ' || l_org_id );
190: END IF;
191:
192: x_return_status := FND_API.G_RET_STS_SUCCESS;
193: x_has_access := FND_API.G_FALSE;
194:
195: -- Call multi-org API to check access to contract's organization by current user
196: OPEN mo_check_csr(l_org_id);
197: FETCH mo_check_csr INTO l_org_id;
229: END IF;
230:
231: IF (l_result = 'Y') THEN
232:
233: x_has_access := FND_API.G_TRUE;
234:
235: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
236: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
237: 'intents check passed');
251: CLOSE quote_security_csr;
252:
253: IF l_result = 'Y' THEN
254:
255: x_has_access := FND_API.G_TRUE;
256:
257: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
258: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
259: 'IF l_result = Y for quoting security');
259: 'IF l_result = Y for quoting security');
260: END IF;
261: ELSE
262:
263: x_has_access := FND_API.G_FALSE;
264:
265: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
266: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
267: 'IF l_result = N for quoting security');
283: '112: x_return_status is: ' || x_return_status);
284: END IF;
285:
286: EXCEPTION
287: WHEN FND_API.G_EXC_ERROR THEN
288: --close cursors
289: IF (intents_csr%ISOPEN) THEN
290: CLOSE intents_csr ;
291: END IF;
313:
314: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
315: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
316: g_module || l_api_name || '.exception',
317: '115: Leaving check_contract_access:FND_API.G_EXC_ERROR Exception');
318: END IF;
319: x_return_status := FND_API.G_RET_STS_ERROR;
320: FND_MSG_PUB.Count_And_Get(
321: p_count => x_msg_count,
315: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
316: g_module || l_api_name || '.exception',
317: '115: Leaving check_contract_access:FND_API.G_EXC_ERROR Exception');
318: END IF;
319: x_return_status := FND_API.G_RET_STS_ERROR;
320: FND_MSG_PUB.Count_And_Get(
321: p_count => x_msg_count,
322: p_data => x_msg_data
323: );
321: p_count => x_msg_count,
322: p_data => x_msg_data
323: );
324:
325: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
326: --close cursors
327: IF (intents_csr%ISOPEN) THEN
328: CLOSE intents_csr ;
329: END IF;
351:
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 || '.exception',
355: '116:Leaving check_contract_access:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
356: END IF;
357: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
358: FND_MSG_PUB.Count_And_Get(
359: p_count => x_msg_count,
353: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
354: g_module || l_api_name || '.exception',
355: '116:Leaving check_contract_access:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
356: END IF;
357: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
358: FND_MSG_PUB.Count_And_Get(
359: p_count => x_msg_count,
360: p_data => x_msg_data
361: );
398: p_token1 => G_SQLCODE_TOKEN,
399: p_token1_value => sqlcode,
400: p_token2 => G_SQLERRM_TOKEN,
401: p_token2_value => sqlerrm);
402: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
403: FND_MSG_PUB.Count_And_Get(
404: p_count => x_msg_count,
405: p_data => x_msg_data
406: );
531: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
532: '102: Fucntion Name is: ' || p_function_name);
533: END IF;
534: -- Initialize message list if p_init_msg_list is set to TRUE.
535: IF FND_API.to_Boolean( p_init_msg_list ) THEN
536: FND_MSG_PUB.initialize;
537: END IF;
538:
539: OPEN contract_csr(p_contract_id);
546: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
547: 'Values : FND_GLOBAL.user_id() = ' || FND_GLOBAL.user_id() || ', FND_GLOBAL.user_name() = ' || FND_GLOBAL.user_name());
548: END IF;
549:
550: x_return_status := FND_API.G_RET_STS_SUCCESS;
551: x_has_access := FND_API.G_FALSE;
552:
553: IF ( p_function_name = G_UPDATE_ACCESS_LEVEL AND NOT( FND_FUNCTION.TEST(G_FUNC_OKC_REP_ADMINISTRATOR,'Y') OR FND_FUNCTION.TEST(G_FUNC_OKC_REP_USER_FUNC,'Y') ) ) THEN
554:
547: 'Values : FND_GLOBAL.user_id() = ' || FND_GLOBAL.user_id() || ', FND_GLOBAL.user_name() = ' || FND_GLOBAL.user_name());
548: END IF;
549:
550: x_return_status := FND_API.G_RET_STS_SUCCESS;
551: x_has_access := FND_API.G_FALSE;
552:
553: IF ( p_function_name = G_UPDATE_ACCESS_LEVEL AND NOT( FND_FUNCTION.TEST(G_FUNC_OKC_REP_ADMINISTRATOR,'Y') OR FND_FUNCTION.TEST(G_FUNC_OKC_REP_USER_FUNC,'Y') ) ) THEN
554:
555: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
556: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
557: 'returning FALSE, queried for UPDATE access, not an Admin, not a User, must be a Viewer');
558: END IF;
559:
560: x_return_status := FND_API.G_RET_STS_SUCCESS;
561: x_has_access := FND_API.G_FALSE;
562: RETURN;
563: END IF;
564:
557: 'returning FALSE, queried for UPDATE access, not an Admin, not a User, must be a Viewer');
558: END IF;
559:
560: x_return_status := FND_API.G_RET_STS_SUCCESS;
561: x_has_access := FND_API.G_FALSE;
562: RETURN;
563: END IF;
564:
565: -- Multi-Org Initialization
602: END IF;
603:
604: -- Check if the current user is owner of the contract
605: IF (l_user_id = l_owner_id) THEN
606: x_has_access := FND_API.G_TRUE;
607:
608: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
609: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
610: 'IF (l_user_id = l_owner_id) THEN: TRUE: x_has_access = ' || x_has_access);
617: END IF;
618:
619: IF (FND_FUNCTION.TEST(G_FUNC_OKC_REP_ADMINISTRATOR,'Y')) THEN
620:
621: x_has_access := FND_API.G_TRUE;
622:
623: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
624: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
625: 'IF (FND_FUNCTION.TEST(G_FUNC_OKC_REP_ADMINISTRATOR,''Y'')) THEN: TRUE: x_has_access = ' || x_has_access);
651: OPEN grants_csr(p_contract_id, p_contract_id, l_grantee_key, l_grantee_orig_system);
652: FETCH grants_csr INTO l_result;
653:
654: IF (grants_csr%FOUND) THEN
655: x_has_access := FND_API.G_TRUE;
656:
657: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
658: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
659: 'IF (grants_csr%FOUND) THEN: TRUE: x_has_access = ' || x_has_access);
658: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
659: 'IF (grants_csr%FOUND) THEN: TRUE: x_has_access = ' || x_has_access);
660: END IF;
661: ELSE
662: x_has_access := FND_API.G_FALSE;
663:
664: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
665: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
666: 'IF (grants_csr%FOUND) THEN: FALSE: x_has_access = ' || x_has_access);
668: END IF;
669:
670: CLOSE grants_csr;
671: ELSE
672: x_has_access := FND_API.G_TRUE;
673:
674: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
675: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
676: 'IF (l_use_acl_flag = ''Y'') THEN: FALSE: x_has_access = ' || x_has_access);
694: '112: x_return_status is: ' || x_return_status);
695: END IF;
696:
697: EXCEPTION
698: WHEN FND_API.G_EXC_ERROR THEN
699: --close cursors
700: IF (intents_csr%ISOPEN) THEN
701: CLOSE intents_csr ;
702: END IF;
709:
710: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
711: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
712: g_module || l_api_name || '.exception',
713: '115: Leaving check_contract_access:FND_API.G_EXC_ERROR Exception');
714: END IF;
715: x_return_status := FND_API.G_RET_STS_ERROR;
716: FND_MSG_PUB.Count_And_Get(
717: p_count => x_msg_count,
711: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
712: g_module || l_api_name || '.exception',
713: '115: Leaving check_contract_access:FND_API.G_EXC_ERROR Exception');
714: END IF;
715: x_return_status := FND_API.G_RET_STS_ERROR;
716: FND_MSG_PUB.Count_And_Get(
717: p_count => x_msg_count,
718: p_data => x_msg_data
719: );
717: p_count => x_msg_count,
718: p_data => x_msg_data
719: );
720:
721: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
722: --close cursors
723: IF (intents_csr%ISOPEN) THEN
724: CLOSE intents_csr ;
725: END IF;
732:
733: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
734: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
735: g_module || l_api_name || '.exception',
736: '116:Leaving check_contract_access:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
737: END IF;
738: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
739: FND_MSG_PUB.Count_And_Get(
740: p_count => x_msg_count,
734: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
735: g_module || l_api_name || '.exception',
736: '116:Leaving check_contract_access:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
737: END IF;
738: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
739: FND_MSG_PUB.Count_And_Get(
740: p_count => x_msg_count,
741: p_data => x_msg_data
742: );
763: p_token1 => G_SQLCODE_TOKEN,
764: p_token1_value => sqlcode,
765: p_token2 => G_SQLERRM_TOKEN,
766: p_token2_value => sqlerrm);
767: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
768: FND_MSG_PUB.Count_And_Get(
769: p_count => x_msg_count,
770: p_data => x_msg_data
771: );
814: END IF;
815: --- Call check_contract_access procedure.
816: check_contract_access_external(
817: p_api_version => 1.0,
818: p_init_msg_list => FND_API.G_FALSE,
819: p_contract_id => p_contract_id,
820: p_contract_type => p_contract_type,
821: x_has_access => l_has_access,
822: x_msg_data => l_msg_data,
860: --Pre-reqs : None.
861: --Parameters :
862: --IN : p_api_version IN NUMBER Required
863: -- : p_init_msg_list IN VARCHAR2 Optional
864: -- Default = FND_API.G_FALSE
865: -- : p_contract_id IN NUMBER Required
866: -- Id of the contract whose access to be checked
867: -- : p_function_name IN VARCHAR2 Required
868: -- Name of the function whose access to be checked. Possible values OKC_REP_SELECT, OKC_REP_UPDATE
898: END IF;
899: --- Call check_contract_access procedure.
900: check_contract_access(
901: p_api_version => 1.0,
902: p_init_msg_list => FND_API.G_FALSE,
903: p_contract_id => p_contract_id,
904: p_function_name => p_function_name,
905: x_has_access => l_has_access,
906: x_msg_data => l_msg_data,
979: '205: Note is: ' || p_note);
980: END IF;
981:
982: -- Initialize message list if p_init_msg_list is set to TRUE.
983: IF FND_API.to_Boolean( p_init_msg_list ) THEN
984: FND_MSG_PUB.initialize;
985: END IF;
986:
987: x_return_status := FND_API.G_RET_STS_SUCCESS;
983: IF FND_API.to_Boolean( p_init_msg_list ) THEN
984: FND_MSG_PUB.initialize;
985: END IF;
986:
987: x_return_status := FND_API.G_RET_STS_SUCCESS;
988:
989:
990: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
991: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,
1058: g_module || l_api_name,
1059: 'After inserting a row into OKC_REP_CON_STATUS_HIST');
1060: END IF;
1061: EXCEPTION
1062: WHEN FND_API.G_EXC_ERROR THEN
1063: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1064: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
1065: g_module || l_api_name || '.exception',
1066: 'Leaving change_contract_status:FND_API.G_EXC_ERROR Exception');
1062: WHEN FND_API.G_EXC_ERROR THEN
1063: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1064: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
1065: g_module || l_api_name || '.exception',
1066: 'Leaving change_contract_status:FND_API.G_EXC_ERROR Exception');
1067: END IF;
1068: x_return_status := FND_API.G_RET_STS_ERROR;
1069: FND_MSG_PUB.Count_And_Get(
1070: p_count => x_msg_count,
1064: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
1065: g_module || l_api_name || '.exception',
1066: 'Leaving change_contract_status:FND_API.G_EXC_ERROR Exception');
1067: END IF;
1068: x_return_status := FND_API.G_RET_STS_ERROR;
1069: FND_MSG_PUB.Count_And_Get(
1070: p_count => x_msg_count,
1071: p_data => x_msg_data
1072: );
1069: FND_MSG_PUB.Count_And_Get(
1070: p_count => x_msg_count,
1071: p_data => x_msg_data
1072: );
1073: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1074: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1075: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
1076: g_module || l_api_name || '.exception',
1077: 'Leaving change_contract_status: FND_API.G_EXC_UNEXPECTED_ERROR Exception');
1073: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1074: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1075: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
1076: g_module || l_api_name || '.exception',
1077: 'Leaving change_contract_status: FND_API.G_EXC_UNEXPECTED_ERROR Exception');
1078: END IF;
1079: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1080: FND_MSG_PUB.Count_And_Get(
1081: p_count => x_msg_count,
1075: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
1076: g_module || l_api_name || '.exception',
1077: 'Leaving change_contract_status: FND_API.G_EXC_UNEXPECTED_ERROR Exception');
1078: END IF;
1079: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1080: FND_MSG_PUB.Count_And_Get(
1081: p_count => x_msg_count,
1082: p_data => x_msg_data
1083: );
1092: p_token1 => G_SQLCODE_TOKEN,
1093: p_token1_value => sqlcode,
1094: p_token2 => G_SQLERRM_TOKEN,
1095: p_token2_value => sqlerrm);
1096: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1097: FND_MSG_PUB.Count_And_Get(
1098: p_count => x_msg_count,
1099: p_data => x_msg_data
1100: );
1109: --Pre-reqs : None.
1110: --Parameters :
1111: --IN : p_api_version IN NUMBER Required
1112: -- : p_init_msg_list IN VARCHAR2 Optional
1113: -- Default = FND_API.G_FALSE
1114: -- : p_contract_id IN NUMBER Required
1115: -- Contract ID of the approval history record
1116: -- : p_contract_version IN VARCHAR2 Required
1117: -- Contract version of the approval history record
1158: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
1159: '305: Note is: ' || p_note);
1160: END IF;
1161: -- Initialize message list if p_init_msg_list is set to TRUE.
1162: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1163: FND_MSG_PUB.initialize;
1164: END IF;
1165:
1166: x_return_status := FND_API.G_RET_STS_SUCCESS;
1162: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1163: FND_MSG_PUB.initialize;
1164: END IF;
1165:
1166: x_return_status := FND_API.G_RET_STS_SUCCESS;
1167:
1168: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1169: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,
1170: g_module || l_api_name,
1204: g_module || l_api_name,
1205: 'After inserting a row into OKC_REP_CON_APPROVALS');
1206: END IF;
1207: EXCEPTION
1208: WHEN FND_API.G_EXC_ERROR THEN
1209: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1210: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
1211: g_module || l_api_name || '.exception',
1212: 'Leaving add_approval_hist_record:FND_API.G_EXC_ERROR Exception');
1208: WHEN FND_API.G_EXC_ERROR THEN
1209: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1210: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
1211: g_module || l_api_name || '.exception',
1212: 'Leaving add_approval_hist_record:FND_API.G_EXC_ERROR Exception');
1213: END IF;
1214: x_return_status := FND_API.G_RET_STS_ERROR;
1215: FND_MSG_PUB.Count_And_Get(
1216: p_count => x_msg_count,
1210: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
1211: g_module || l_api_name || '.exception',
1212: 'Leaving add_approval_hist_record:FND_API.G_EXC_ERROR Exception');
1213: END IF;
1214: x_return_status := FND_API.G_RET_STS_ERROR;
1215: FND_MSG_PUB.Count_And_Get(
1216: p_count => x_msg_count,
1217: p_data => x_msg_data
1218: );
1215: FND_MSG_PUB.Count_And_Get(
1216: p_count => x_msg_count,
1217: p_data => x_msg_data
1218: );
1219: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1220: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1221: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
1222: g_module || l_api_name || '.exception',
1223: 'Leaving add_approval_hist_record: FND_API.G_EXC_UNEXPECTED_ERROR Exception');
1219: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1220: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1221: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
1222: g_module || l_api_name || '.exception',
1223: 'Leaving add_approval_hist_record: FND_API.G_EXC_UNEXPECTED_ERROR Exception');
1224: END IF;
1225: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1226: FND_MSG_PUB.Count_And_Get(
1227: p_count => x_msg_count,
1221: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
1222: g_module || l_api_name || '.exception',
1223: 'Leaving add_approval_hist_record: FND_API.G_EXC_UNEXPECTED_ERROR Exception');
1224: END IF;
1225: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1226: FND_MSG_PUB.Count_And_Get(
1227: p_count => x_msg_count,
1228: p_data => x_msg_data
1229: );
1238: p_token1 => G_SQLCODE_TOKEN,
1239: p_token1_value => sqlcode,
1240: p_token2 => G_SQLERRM_TOKEN,
1241: p_token2_value => sqlerrm);
1242: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1243: FND_MSG_PUB.Count_And_Get(
1244: p_count => x_msg_count,
1245: p_data => x_msg_data
1246: );
1254: --Pre-reqs : None.
1255: --Parameters :
1256: --IN : p_api_version IN NUMBER Required
1257: -- : p_init_msg_list IN VARCHAR2 Optional
1258: -- Default = FND_API.G_FALSE
1259: -- : p_contract_id IN NUMBER Required
1260: -- Contract ID of the party to be validated
1261: -- : p_intent IN VARCHAR2 Required
1262: -- Intent of the contract
1424: 'p_mode = ' || p_mode);
1425: END IF;
1426:
1427: -- Standard call to check for call compatibility.
1428: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1429: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1430: END IF;
1431:
1432: -- Initialize message list if p_init_msg_list is set to TRUE.
1425: END IF;
1426:
1427: -- Standard call to check for call compatibility.
1428: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1429: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1430: END IF;
1431:
1432: -- Initialize message list if p_init_msg_list is set to TRUE.
1433: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1429: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1430: END IF;
1431:
1432: -- Initialize message list if p_init_msg_list is set to TRUE.
1433: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1434: FND_MSG_PUB.initialize;
1435: END IF;
1436:
1437: -- Initialize API return status to success
1434: FND_MSG_PUB.initialize;
1435: END IF;
1436:
1437: -- Initialize API return status to success
1438: x_return_status := FND_API.G_RET_STS_SUCCESS;
1439:
1440: x_valid_party_flag := 'Y';
1441:
1442: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1975:
1976:
1977: EXCEPTION
1978:
1979: WHEN FND_API.G_EXC_ERROR THEN
1980:
1981: --close cursors
1982: IF (party_role_exist_csr%ISOPEN) THEN
1983: CLOSE party_role_exist_csr ;
2017: END IF;
2018:
2019: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2020: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
2021: 'Leaving validate_contract_party:FND_API.G_EXC_ERROR Exception');
2022: END IF;
2023:
2024: x_return_status := FND_API.G_RET_STS_ERROR;
2025: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2020: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
2021: 'Leaving validate_contract_party:FND_API.G_EXC_ERROR Exception');
2022: END IF;
2023:
2024: x_return_status := FND_API.G_RET_STS_ERROR;
2025: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2026: p_data => x_msg_data);
2027:
2028: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2024: x_return_status := FND_API.G_RET_STS_ERROR;
2025: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2026: p_data => x_msg_data);
2027:
2028: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2029:
2030: --close cursors
2031: IF (party_role_exist_csr%ISOPEN) THEN
2032: CLOSE party_role_exist_csr ;
2066: END IF;
2067:
2068: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2069: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
2070: 'Leaving validate_contract_party:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
2071: END IF;
2072:
2073: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2074: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2069: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
2070: 'Leaving validate_contract_party:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
2071: END IF;
2072:
2073: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2074: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2075: p_data => x_msg_data);
2076:
2077: WHEN OTHERS THEN
2124: p_token1 => G_SQLCODE_TOKEN,
2125: p_token1_value => sqlcode,
2126: p_token2 => G_SQLERRM_TOKEN,
2127: p_token2_value => sqlerrm);
2128: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2129: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2130: p_data => x_msg_data);
2131:
2132: END validate_contract_party;
2139: --Pre-reqs : None.
2140: --Parameters :
2141: --IN : p_api_version IN NUMBER Required
2142: -- : p_init_msg_list IN VARCHAR2 Optional
2143: -- Default = FND_API.G_FALSE
2144: -- : p_contract_id IN NUMBER Required
2145: -- Contract ID of the party contact to be validated
2146: -- : p_party_role_code IN VARCHAR2 Required
2147: -- Role code of the party of the contact to be validated
2244: 'p_contact_role_id = ' || p_contact_role_id);
2245: END IF;
2246:
2247: -- Standard call to check for call compatibility.
2248: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2249: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2250: END IF;
2251:
2252: -- Initialize message list if p_init_msg_list is set to TRUE.
2245: END IF;
2246:
2247: -- Standard call to check for call compatibility.
2248: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2249: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2250: END IF;
2251:
2252: -- Initialize message list if p_init_msg_list is set to TRUE.
2253: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2249: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2250: END IF;
2251:
2252: -- Initialize message list if p_init_msg_list is set to TRUE.
2253: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2254: FND_MSG_PUB.initialize;
2255: END IF;
2256:
2257: -- Initialize API return status to success
2254: FND_MSG_PUB.initialize;
2255: END IF;
2256:
2257: -- Initialize API return status to success
2258: x_return_status := FND_API.G_RET_STS_SUCCESS;
2259:
2260: x_valid_contact_flag := 'Y';
2261:
2262: -- Check uniqueness of the party contact
2433:
2434:
2435: EXCEPTION
2436:
2437: WHEN FND_API.G_EXC_ERROR THEN
2438:
2439: --close cursors
2440: IF (contact_unique_csr%ISOPEN) THEN
2441: CLOSE contact_unique_csr ;
2451: END IF;
2452:
2453: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2454: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
2455: 'Leaving validate_party_contact:FND_API.G_EXC_ERROR Exception');
2456: END IF;
2457:
2458: x_return_status := FND_API.G_RET_STS_ERROR;
2459: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2454: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
2455: 'Leaving validate_party_contact:FND_API.G_EXC_ERROR Exception');
2456: END IF;
2457:
2458: x_return_status := FND_API.G_RET_STS_ERROR;
2459: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2460: p_data => x_msg_data);
2461:
2462: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2458: x_return_status := FND_API.G_RET_STS_ERROR;
2459: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2460: p_data => x_msg_data);
2461:
2462: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2463:
2464: --close cursors
2465: IF (contact_unique_csr%ISOPEN) THEN
2466: CLOSE contact_unique_csr ;
2476: END IF;
2477:
2478: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2479: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
2480: 'Leaving validate_party_contact:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
2481: END IF;
2482:
2483: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2484: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2479: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
2480: 'Leaving validate_party_contact:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
2481: END IF;
2482:
2483: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2484: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2485: p_data => x_msg_data);
2486:
2487: WHEN OTHERS THEN
2510: p_token1 => G_SQLCODE_TOKEN,
2511: p_token1_value => sqlcode,
2512: p_token2 => G_SQLERRM_TOKEN,
2513: p_token2_value => sqlerrm);
2514: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2515: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2516: p_data => x_msg_data);
2517:
2518: END validate_party_contact;
2524: --Pre-reqs : None
2525: --Parameters :
2526: --IN : p_api_version IN NUMBER Required
2527: -- : p_init_msg_list IN VARCHAR2 Optional
2528: -- Default = FND_API.G_FALSE
2529: -- : p_contract_id IN NUMBER Required
2530: -- Contract ID that the error is from
2531: -- : p_error_obj_type IN VARCHAR2 Required
2532: -- Error Object Type: 'CONTRACT', 'PARTY', 'DOCUMENT'
2597:
2598: END IF;
2599:
2600: -- Standard call to check for call compatibility.
2601: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2602: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2603: END IF;
2604:
2605: -- Initialize message list if p_init_msg_list is set to TRUE.
2598: END IF;
2599:
2600: -- Standard call to check for call compatibility.
2601: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2602: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2603: END IF;
2604:
2605: -- Initialize message list if p_init_msg_list is set to TRUE.
2606: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2602: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2603: END IF;
2604:
2605: -- Initialize message list if p_init_msg_list is set to TRUE.
2606: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2607: FND_MSG_PUB.initialize;
2608: END IF;
2609:
2610: -- Initialize API return status to success
2607: FND_MSG_PUB.initialize;
2608: END IF;
2609:
2610: -- Initialize API return status to success
2611: x_return_status := FND_API.G_RET_STS_SUCCESS;
2612:
2613:
2614:
2615: OPEN ERROR_ID_CSR;
2650: 'Leaving OKC_REP_UTIL_PVT.'||l_api_name);
2651: END IF;
2652:
2653: EXCEPTION
2654: WHEN FND_API.G_EXC_ERROR THEN
2655:
2656: --close cursors
2657: IF (ERROR_ID_CSR%ISOPEN) THEN
2658: CLOSE ERROR_ID_CSR ;
2662: CLOSE ERROR_ID_CSR;
2663: END IF;
2664: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2665: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
2666: 'Leaving populate_import_errors:FND_API.G_EXC_ERROR Exception');
2667: END IF;
2668:
2669: x_return_status := FND_API.G_RET_STS_ERROR;
2670: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2665: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
2666: 'Leaving populate_import_errors:FND_API.G_EXC_ERROR Exception');
2667: END IF;
2668:
2669: x_return_status := FND_API.G_RET_STS_ERROR;
2670: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2671: p_data => x_msg_data);
2672:
2673: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2669: x_return_status := FND_API.G_RET_STS_ERROR;
2670: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2671: p_data => x_msg_data);
2672:
2673: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2674:
2675: --close cursors
2676: IF (ERROR_ID_CSR%ISOPEN) THEN
2677: CLOSE ERROR_ID_CSR ;
2682: END IF;
2683:
2684: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2685: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
2686: 'Leaving populate_import_errors:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
2687: END IF;
2688:
2689: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2690: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2685: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
2686: 'Leaving populate_import_errors:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
2687: END IF;
2688:
2689: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2690: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2691: p_data => x_msg_data);
2692:
2693: WHEN OTHERS THEN
2711: p_token1 => G_SQLCODE_TOKEN,
2712: p_token1_value => sqlcode,
2713: p_token2 => G_SQLERRM_TOKEN,
2714: p_token2_value => sqlerrm);
2715: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2716: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2717: p_data => x_msg_data);
2718:
2719: END populate_import_errors;
2728: -- : Contract documents should be saved to the OKC_REP_IMP_DOCUMENTS_T table
2729: --Parameters :
2730: --IN : p_api_version IN NUMBER Required
2731: -- : p_init_msg_list IN VARCHAR2 Optional
2732: -- Default = FND_API.G_FALSE
2733: -- : p_request_id IN NUMBER Required
2734: -- Concurrent program request id
2735: --OUT : x_return_status OUT VARCHAR2(1)
2736: -- : x_msg_count OUT NUMBER
2795:
2796: END IF;
2797:
2798: -- Standard call to check for call compatibility.
2799: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2800: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2801: END IF;
2802:
2803: -- Initialize message list if p_init_msg_list is set to TRUE.
2796: END IF;
2797:
2798: -- Standard call to check for call compatibility.
2799: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2800: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2801: END IF;
2802:
2803: -- Initialize message list if p_init_msg_list is set to TRUE.
2804: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2800: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2801: END IF;
2802:
2803: -- Initialize message list if p_init_msg_list is set to TRUE.
2804: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2805: FND_MSG_PUB.initialize;
2806: END IF;
2807:
2808: -- Initialize API return status to success
2805: FND_MSG_PUB.initialize;
2806: END IF;
2807:
2808: -- Initialize API return status to success
2809: x_return_status := FND_API.G_RET_STS_SUCCESS;
2810:
2811: OPEN IMPORT_DOCUMENTS_CSR;
2812: LOOP
2813: FETCH IMPORT_DOCUMENTS_CSR INTO l_import_documents_rec;
2977: END IF;
2978:
2979: --Populate the error message table
2980: IF(l_valid_flag = 'N' AND l_error_msg IS NOT NULL) THEN
2981: populate_import_errors(p_init_msg_list => FND_API.G_FALSE,
2982: p_api_version => 1.0,
2983: p_contract_id => l_import_documents_rec.imp_contract_id,
2984: p_error_obj_type => G_IMP_DOCUMENT_ERROR,
2985: p_error_obj_id => l_import_documents_rec.imp_document_id,
3019: 'Leaving OKC_REP_UTIL_PVT.'||l_api_name);
3020: END IF;
3021:
3022: EXCEPTION
3023: WHEN FND_API.G_EXC_ERROR THEN
3024: IF IMPORT_DOCUMENTS_CSR%ISOPEN THEN
3025: CLOSE IMPORT_DOCUMENTS_CSR;
3026: END IF;
3027:
3029: CLOSE document_category_csr;
3030: END IF;
3031: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3032: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
3033: 'Leaving '||l_api_name||':FND_API.G_EXC_ERROR Exception');
3034: END IF;
3035:
3036: x_return_status := FND_API.G_RET_STS_ERROR;
3037: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
3032: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
3033: 'Leaving '||l_api_name||':FND_API.G_EXC_ERROR Exception');
3034: END IF;
3035:
3036: x_return_status := FND_API.G_RET_STS_ERROR;
3037: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
3038: p_data => x_msg_data);
3039:
3040: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3036: x_return_status := FND_API.G_RET_STS_ERROR;
3037: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
3038: p_data => x_msg_data);
3039:
3040: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3041: IF IMPORT_DOCUMENTS_CSR%ISOPEN THEN
3042: CLOSE IMPORT_DOCUMENTS_CSR;
3043: END IF;
3044:
3046: CLOSE document_category_csr;
3047: END IF;
3048: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3049: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
3050: 'Leaving '||l_api_name||':FND_API.G_EXC_UNEXPECTED_ERROR Exception');
3051: END IF;
3052:
3053: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3054: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
3049: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
3050: 'Leaving '||l_api_name||':FND_API.G_EXC_UNEXPECTED_ERROR Exception');
3051: END IF;
3052:
3053: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3054: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
3055: p_data => x_msg_data);
3056:
3057: WHEN OTHERS THEN
3072: p_token1 => G_SQLCODE_TOKEN,
3073: p_token1_value => sqlcode,
3074: p_token2 => G_SQLERRM_TOKEN,
3075: p_token2_value => sqlerrm);
3076: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3077: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
3078: p_data => x_msg_data);
3079:
3080: END validate_import_documents;
3087: -- : Contracts should be saved to the OKC_REP_IMP_PARTIES_T table
3088: --Parameters :
3089: --IN : p_api_version IN NUMBER Required
3090: -- : p_init_msg_list IN VARCHAR2 Optional
3091: -- Default = FND_API.G_FALSE
3092: -- : p_request_id IN NUMBER Required
3093: -- Concurrent Program Request ID
3094: --OUT : x_return_status OUT VARCHAR2(1)
3095: -- : x_msg_count OUT NUMBER
3158:
3159: END IF;
3160:
3161: -- Standard call to check for call compatibility.
3162: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3163: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3164: END IF;
3165:
3166: -- Initialize message list if p_init_msg_list is set to TRUE.
3159: END IF;
3160:
3161: -- Standard call to check for call compatibility.
3162: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3163: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3164: END IF;
3165:
3166: -- Initialize message list if p_init_msg_list is set to TRUE.
3167: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3163: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3164: END IF;
3165:
3166: -- Initialize message list if p_init_msg_list is set to TRUE.
3167: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3168: FND_MSG_PUB.initialize;
3169: END IF;
3170:
3171: -- Initialize API return status to success
3168: FND_MSG_PUB.initialize;
3169: END IF;
3170:
3171: -- Initialize API return status to success
3172: x_return_status := FND_API.G_RET_STS_SUCCESS;
3173:
3174: OPEN IMPORT_PARTIES_CSR;
3175: LOOP
3176: FETCH IMPORT_PARTIES_CSR INTO l_import_parties_rec;
3369:
3370: IF (l_contract_intent IS NOT NULL ) THEN
3371:
3372: validate_contract_party(p_api_version => 1.0,
3373: p_init_msg_list => FND_API.G_FALSE,
3374: p_contract_id => l_import_parties_rec.imp_contract_id,
3375: p_party_role_code => l_party_role_code,
3376: p_party_role_txt => l_import_parties_rec.party_role_txt,
3377: p_party_id => l_party_id,
3450: --Note that in this case we do not wait until the end to populate the error table
3451: --because this time the error type is 'CONTRACT' and not 'PARTY'.
3452: --The party may still be valid by itself.
3453: l_error_msg := fnd_message.get_string(G_APP_NAME,'OKC_REP_IMP_INV_CON_TYPE');
3454: populate_import_errors(p_init_msg_list => FND_API.G_FALSE,
3455: p_api_version => 1.0,
3456: p_contract_id => l_import_parties_rec.imp_contract_id,
3457: p_error_obj_type => G_IMP_CONTRACT_ERROR,
3458: p_error_obj_id => l_import_parties_rec.imp_contract_id,
3472:
3473:
3474: --Populate the error message table
3475: IF(l_valid_flag = 'N' AND l_error_msg IS NOT NULL) THEN
3476: populate_import_errors(p_init_msg_list => FND_API.G_FALSE,
3477: p_api_version => 1.0,
3478: p_contract_id => l_import_parties_rec.imp_contract_id,
3479: p_error_obj_type => G_IMP_PARTY_ERROR,
3480: p_error_obj_id => l_import_parties_rec.imp_party_id,
3516: END IF;
3517:
3518: EXCEPTION
3519:
3520: WHEN FND_API.G_EXC_ERROR THEN
3521:
3522: IF CONTRACT_INTENT_CSR%ISOPEN THEN
3523: CLOSE CONTRACT_INTENT_CSR;
3524: END IF;
3528: END IF;
3529:
3530: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3531: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
3532: 'Leaving '||l_api_name||':FND_API.G_EXC_ERROR Exception');
3533: END IF;
3534:
3535: x_return_status := FND_API.G_RET_STS_ERROR;
3536: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
3531: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
3532: 'Leaving '||l_api_name||':FND_API.G_EXC_ERROR Exception');
3533: END IF;
3534:
3535: x_return_status := FND_API.G_RET_STS_ERROR;
3536: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
3537: p_data => x_msg_data);
3538:
3539: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3535: x_return_status := FND_API.G_RET_STS_ERROR;
3536: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
3537: p_data => x_msg_data);
3538:
3539: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3540:
3541: IF CONTRACT_INTENT_CSR%ISOPEN THEN
3542: CLOSE CONTRACT_INTENT_CSR;
3543: END IF;
3547: END IF;
3548:
3549: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3550: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
3551: 'Leaving '||l_api_name||':FND_API.G_EXC_UNEXPECTED_ERROR Exception');
3552: END IF;
3553:
3554: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3555: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
3550: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
3551: 'Leaving '||l_api_name||':FND_API.G_EXC_UNEXPECTED_ERROR Exception');
3552: END IF;
3553:
3554: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3555: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
3556: p_data => x_msg_data);
3557:
3558: WHEN OTHERS THEN
3575: p_token1 => G_SQLCODE_TOKEN,
3576: p_token1_value => sqlcode,
3577: p_token2 => G_SQLERRM_TOKEN,
3578: p_token2_value => sqlerrm);
3579: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3580: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
3581: p_data => x_msg_data);
3582:
3583: END validate_import_parties;
3593: -- : Contracts should be saved to the OKC_REP_IMP_CONTRACTS_T table
3594: --Parameters :
3595: --IN : p_api_version IN NUMBER Required
3596: -- : p_init_msg_list IN VARCHAR2 Optional
3597: -- Default = FND_API.G_FALSE
3598: -- : p_request_id IN NUMBER Required
3599: -- Concurrent Program Request ID
3600: --OUT : x_return_status OUT VARCHAR2(1)
3601: -- : x_msg_count OUT NUMBER
3792:
3793: END IF;
3794:
3795: -- Standard call to check for call compatibility.
3796: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3797: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3798: END IF;
3799:
3800: -- Initialize message list if p_init_msg_list is set to TRUE.
3793: END IF;
3794:
3795: -- Standard call to check for call compatibility.
3796: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3797: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3798: END IF;
3799:
3800: -- Initialize message list if p_init_msg_list is set to TRUE.
3801: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3797: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3798: END IF;
3799:
3800: -- Initialize message list if p_init_msg_list is set to TRUE.
3801: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3802: FND_MSG_PUB.initialize;
3803: END IF;
3804:
3805: -- Initialize API return status to success
3802: FND_MSG_PUB.initialize;
3803: END IF;
3804:
3805: -- Initialize API return status to success
3806: x_return_status := FND_API.G_RET_STS_SUCCESS;
3807:
3808: OPEN IMPORT_CONTRACTS_CSR;
3809: LOOP
3810: FETCH IMPORT_CONTRACTS_CSR INTO l_import_contracts_rec;
4606:
4607:
4608: --Populate the error message table
4609: IF(l_valid_flag = 'N' AND l_error_msg IS NOT NULL) THEN
4610: populate_import_errors(p_init_msg_list => FND_API.G_FALSE,
4611: p_api_version => 1.0,
4612: p_contract_id => l_import_contracts_rec.imp_contract_id,
4613: p_error_obj_type => G_IMP_CONTRACT_ERROR,
4614: p_error_obj_id => l_import_contracts_rec.imp_contract_id,
4695:
4696:
4697: EXCEPTION
4698:
4699: WHEN FND_API.G_EXC_ERROR THEN
4700:
4701: IF CONTRACT_ID_CSR%ISOPEN THEN
4702: CLOSE CONTRACT_ID_CSR;
4703: END IF;
4748: END IF;
4749:
4750: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4751: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
4752: 'Leaving '||l_api_name||':FND_API.G_EXC_ERROR Exception');
4753: END IF;
4754:
4755: x_return_status := FND_API.G_RET_STS_ERROR;
4756: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4751: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
4752: 'Leaving '||l_api_name||':FND_API.G_EXC_ERROR Exception');
4753: END IF;
4754:
4755: x_return_status := FND_API.G_RET_STS_ERROR;
4756: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4757: p_data => x_msg_data);
4758:
4759: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4755: x_return_status := FND_API.G_RET_STS_ERROR;
4756: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4757: p_data => x_msg_data);
4758:
4759: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4760: IF CONTRACT_ID_CSR%ISOPEN THEN
4761: CLOSE CONTRACT_ID_CSR;
4762: END IF;
4763:
4807: END IF;
4808:
4809: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4810: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
4811: 'Leaving '||l_api_name||':FND_API.G_EXC_UNEXPECTED_ERROR Exception');
4812: END IF;
4813:
4814: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4815: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4810: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
4811: 'Leaving '||l_api_name||':FND_API.G_EXC_UNEXPECTED_ERROR Exception');
4812: END IF;
4813:
4814: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4815: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4816: p_data => x_msg_data);
4817:
4818: WHEN OTHERS THEN
4877: p_token1 => G_SQLCODE_TOKEN,
4878: p_token1_value => sqlcode,
4879: p_token2 => G_SQLERRM_TOKEN,
4880: p_token2_value => sqlerrm);
4881: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4882: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4883: p_data => x_msg_data);
4884:
4885: END validate_import_contracts;
4900: -- : OKC_REP_IMP_PARTIES_T, and OKC_REP_IMP_DOCUMENTS_T
4901: --Parameters :
4902: --IN : p_api_version IN NUMBER Required
4903: -- : p_init_msg_list IN VARCHAR2 Optional
4904: -- Default = FND_API.G_FALSE
4905: -- : p_commit IN VARCHAR2 Optional
4906: -- Default = FND_API.G_FALSE
4907: -- : p_request_id IN NUMBER Required
4908: -- Concurrent Program Request ID
4902: --IN : p_api_version IN NUMBER Required
4903: -- : p_init_msg_list IN VARCHAR2 Optional
4904: -- Default = FND_API.G_FALSE
4905: -- : p_commit IN VARCHAR2 Optional
4906: -- Default = FND_API.G_FALSE
4907: -- : p_request_id IN NUMBER Required
4908: -- Concurrent Program Request ID
4909: --OUT : x_return_status OUT VARCHAR2(1)
4910: -- : x_msg_count OUT NUMBER
4963:
4964: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_insert_batch_size = ' || l_insert_batch_size);
4965:
4966: -- Standard call to check for call compatibility.
4967: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4968: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4969: END IF;
4970:
4971: -- Initialize message list if p_init_msg_list is set to TRUE.
4964: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_insert_batch_size = ' || l_insert_batch_size);
4965:
4966: -- Standard call to check for call compatibility.
4967: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4968: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4969: END IF;
4970:
4971: -- Initialize message list if p_init_msg_list is set to TRUE.
4972: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4968: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4969: END IF;
4970:
4971: -- Initialize message list if p_init_msg_list is set to TRUE.
4972: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4973: FND_MSG_PUB.initialize;
4974: END IF;
4975:
4976: -- Initialize API return status to success
4973: FND_MSG_PUB.initialize;
4974: END IF;
4975:
4976: -- Initialize API return status to success
4977: x_return_status := FND_API.G_RET_STS_SUCCESS;
4978:
4979: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4980: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
4981: 'Inserting contracts into production table...');
5224:
5225: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** EXCEPTION WHEN OTHERS *****');
5226: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
5227:
5228: x_return_status := FND_API.G_RET_STS_ERROR;
5229: x_number_inserted := 0;
5230:
5231: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
5232: p_data => x_msg_data);
5280: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** END insert_prod_data *****');
5281: FND_FILE.PUT_LINE(FND_FILE.LOG, '********************************');
5282: EXCEPTION
5283:
5284: WHEN FND_API.G_EXC_ERROR THEN
5285:
5286: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** EXCEPTION WHEN WHEN FND_API.G_EXC_ERROR *****');
5287: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
5288:
5282: EXCEPTION
5283:
5284: WHEN FND_API.G_EXC_ERROR THEN
5285:
5286: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** EXCEPTION WHEN WHEN FND_API.G_EXC_ERROR *****');
5287: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
5288:
5289: --close cursors
5290: IF (number_inserted_csr%ISOPEN) THEN
5294: CLOSE contract_id_cur ;
5295: END IF;
5296:
5297:
5298: x_return_status := FND_API.G_RET_STS_ERROR;
5299: x_number_inserted := 0;
5300:
5301: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
5302: p_data => x_msg_data);
5300:
5301: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
5302: p_data => x_msg_data);
5303:
5304: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5305:
5306: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** EXCEPTION WHEN FND_API.G_EXC_UNEXPECTED_ERROR *****');
5307: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
5308:
5302: p_data => x_msg_data);
5303:
5304: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5305:
5306: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** EXCEPTION WHEN FND_API.G_EXC_UNEXPECTED_ERROR *****');
5307: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
5308:
5309: --close cursors
5310: IF (number_inserted_csr%ISOPEN) THEN
5314: CLOSE contract_id_cur ;
5315: END IF;
5316:
5317:
5318: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5319: x_number_inserted := 0;
5320:
5321: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
5322: p_data => x_msg_data);
5340: p_token1 => G_SQLCODE_TOKEN,
5341: p_token1_value => sqlcode,
5342: p_token2 => G_SQLERRM_TOKEN,
5343: p_token2_value => sqlerrm);
5344: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5345: x_number_inserted := 0;
5346:
5347: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
5348: p_data => x_msg_data);
5360: -- : Contracts should be saved to the OKC_REP_IMP_CONTRACTS_T table
5361: --Parameters :
5362: --IN : p_api_version IN NUMBER Required
5363: -- : p_init_msg_list IN VARCHAR2 Optional
5364: -- Default = FND_API.G_FALSE
5365: -- : p_request_id IN NUMBER Required
5366: -- Concurrent Program Request ID
5367: --OUT : x_return_status OUT VARCHAR2(1)
5368: -- : x_msg_count OUT NUMBER
5391:
5392: END IF;
5393:
5394: -- Standard call to check for call compatibility.
5395: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
5396: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5397: END IF;
5398:
5399: -- Initialize message list if p_init_msg_list is set to TRUE.
5392: END IF;
5393:
5394: -- Standard call to check for call compatibility.
5395: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
5396: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5397: END IF;
5398:
5399: -- Initialize message list if p_init_msg_list is set to TRUE.
5400: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5396: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5397: END IF;
5398:
5399: -- Initialize message list if p_init_msg_list is set to TRUE.
5400: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5401: FND_MSG_PUB.initialize;
5402: END IF;
5403:
5404: -- Initialize API return status to success
5401: FND_MSG_PUB.initialize;
5402: END IF;
5403:
5404: -- Initialize API return status to success
5405: x_return_status := FND_API.G_RET_STS_SUCCESS;
5406:
5407: --We need to validate documents and parties before we validate contract headers
5408: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5409: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
5410: 'Validating Contract Documents...');
5411: END IF;
5412:
5413: validate_import_documents(p_api_version => 1.0,
5414: p_init_msg_list => FND_API.G_FALSE,
5415: p_request_id => p_request_id,
5416: x_return_status => x_return_status,
5417: x_msg_count => x_msg_count,
5418: x_msg_data => x_msg_data);
5422: 'Validating Contract Parties...');
5423: END IF;
5424:
5425: validate_import_parties(p_api_version => 1.0,
5426: p_init_msg_list => FND_API.G_FALSE,
5427: p_request_id => p_request_id,
5428: x_return_status => x_return_status,
5429: x_msg_count => x_msg_count,
5430: x_msg_data => x_msg_data);
5434: 'Validating Contract Headers...');
5435: END IF;
5436:
5437: validate_import_contracts(p_api_version => 1.0,
5438: p_init_msg_list => FND_API.G_FALSE,
5439: p_request_id => p_request_id,
5440: x_return_status => x_return_status,
5441: x_msg_count => x_msg_count,
5442: x_msg_data => x_msg_data);
5446: 'Finished validating Contracts. Now we will insert valid headers and parties into production tables.');
5447: END IF;
5448:
5449: insert_prod_data(p_api_version => 1.0,
5450: p_init_msg_list => FND_API.G_FALSE,
5451: p_commit => FND_API.G_TRUE,
5452: p_request_id => p_request_id,
5453: x_return_status => x_return_status,
5454: x_msg_count => x_msg_count,
5447: END IF;
5448:
5449: insert_prod_data(p_api_version => 1.0,
5450: p_init_msg_list => FND_API.G_FALSE,
5451: p_commit => FND_API.G_TRUE,
5452: p_request_id => p_request_id,
5453: x_return_status => x_return_status,
5454: x_msg_count => x_msg_count,
5455: x_msg_data => x_msg_data,
5455: x_msg_data => x_msg_data,
5456: x_number_inserted => x_number_inserted);
5457:
5458: EXCEPTION
5459: WHEN FND_API.G_EXC_ERROR THEN
5460: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5461: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
5462: 'Leaving '||l_api_name||':FND_API.G_EXC_ERROR Exception');
5463: END IF;
5458: EXCEPTION
5459: WHEN FND_API.G_EXC_ERROR THEN
5460: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5461: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
5462: 'Leaving '||l_api_name||':FND_API.G_EXC_ERROR Exception');
5463: END IF;
5464:
5465: x_return_status := FND_API.G_RET_STS_ERROR;
5466:
5461: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
5462: 'Leaving '||l_api_name||':FND_API.G_EXC_ERROR Exception');
5463: END IF;
5464:
5465: x_return_status := FND_API.G_RET_STS_ERROR;
5466:
5467: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
5468: p_data => x_msg_data);
5469:
5466:
5467: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
5468: p_data => x_msg_data);
5469:
5470: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5471: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5472: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
5473: 'Leaving '||l_api_name||':FND_API.G_EXC_UNEXPECTED_ERROR Exception');
5474: END IF;
5469:
5470: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5471: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5472: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
5473: 'Leaving '||l_api_name||':FND_API.G_EXC_UNEXPECTED_ERROR Exception');
5474: END IF;
5475:
5476: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5477:
5472: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
5473: 'Leaving '||l_api_name||':FND_API.G_EXC_UNEXPECTED_ERROR Exception');
5474: END IF;
5475:
5476: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5477:
5478: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
5479: p_data => x_msg_data);
5480:
5489: p_token1 => G_SQLCODE_TOKEN,
5490: p_token1_value => sqlcode,
5491: p_token2 => G_SQLERRM_TOKEN,
5492: p_token2_value => sqlerrm);
5493: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5494:
5495: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
5496: p_data => x_msg_data);
5497:
5511: --Pre-reqs : None
5512: --Parameters :
5513: --IN : p_api_version IN NUMBER Required
5514: -- : p_init_msg_list IN VARCHAR2 Optional
5515: -- Default = FND_API.G_FALSE
5516: -- : p_commit IN VARCHAR2 Optional
5517: -- Default = FND_API.G_FALSE
5518: -- : p_contract_id IN NUMBER Required
5519: -- Contract ID that the error is from
5513: --IN : p_api_version IN NUMBER Required
5514: -- : p_init_msg_list IN VARCHAR2 Optional
5515: -- Default = FND_API.G_FALSE
5516: -- : p_commit IN VARCHAR2 Optional
5517: -- Default = FND_API.G_FALSE
5518: -- : p_contract_id IN NUMBER Required
5519: -- Contract ID that the error is from
5520: -- : p_imp_document_id IN NUMBER Required
5521: -- okc_rep_imp_documents_t.imp_document_id
5578:
5579: END IF;
5580:
5581: -- Standard call to check for call compatibility.
5582: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
5583: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5584: END IF;
5585:
5586: -- Initialize message list if p_init_msg_list is set to TRUE.
5579: END IF;
5580:
5581: -- Standard call to check for call compatibility.
5582: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
5583: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5584: END IF;
5585:
5586: -- Initialize message list if p_init_msg_list is set to TRUE.
5587: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5583: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5584: END IF;
5585:
5586: -- Initialize message list if p_init_msg_list is set to TRUE.
5587: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5588: FND_MSG_PUB.initialize;
5589: END IF;
5590:
5591: -- Initialize API return status to success
5588: FND_MSG_PUB.initialize;
5589: END IF;
5590:
5591: -- Initialize API return status to success
5592: x_return_status := FND_API.G_RET_STS_SUCCESS;
5593:
5594: -- Delete contract
5595: okc_rep_contract_process_pvt.delete_contract(
5596: p_api_version => 1.0,
5593:
5594: -- Delete contract
5595: okc_rep_contract_process_pvt.delete_contract(
5596: p_api_version => 1.0,
5597: p_init_msg_list => FND_API.G_FALSE,
5598: p_commit => FND_API.G_FALSE,
5599: p_contract_id => p_contract_id,
5600: x_msg_data => x_msg_data,
5601: x_msg_count => x_msg_count,
5594: -- Delete contract
5595: okc_rep_contract_process_pvt.delete_contract(
5596: p_api_version => 1.0,
5597: p_init_msg_list => FND_API.G_FALSE,
5598: p_commit => FND_API.G_FALSE,
5599: p_contract_id => p_contract_id,
5600: x_msg_data => x_msg_data,
5601: x_msg_count => x_msg_count,
5602: x_return_status => x_return_status);
5617: 'Updated valid_flag to N');
5618: END IF;
5619:
5620: -- Insert error message
5621: populate_import_errors(p_init_msg_list => FND_API.G_FALSE,
5622: p_api_version => 1.0,
5623: p_contract_id => p_contract_id,
5624: p_error_obj_type => G_IMP_DOCUMENT_ERROR,
5625: p_error_obj_id => p_imp_document_id,
5637: 'Inserted error into okc_rep_imp_errors_t');
5638: END IF;
5639:
5640:
5641: IF(p_commit = FND_API.G_TRUE) THEN
5642: COMMIT;
5643: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5644: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT,G_MODULE||l_api_name,
5645: 'Committed transaction');
5654: END IF;
5655:
5656: EXCEPTION
5657:
5658: WHEN FND_API.G_EXC_ERROR THEN
5659: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5660: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
5661: 'Leaving delete_import_contract:FND_API.G_EXC_ERROR Exception');
5662: END IF;
5657:
5658: WHEN FND_API.G_EXC_ERROR THEN
5659: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5660: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
5661: 'Leaving delete_import_contract:FND_API.G_EXC_ERROR Exception');
5662: END IF;
5663:
5664: x_return_status := FND_API.G_RET_STS_ERROR;
5665: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
5660: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
5661: 'Leaving delete_import_contract:FND_API.G_EXC_ERROR Exception');
5662: END IF;
5663:
5664: x_return_status := FND_API.G_RET_STS_ERROR;
5665: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
5666: p_data => x_msg_data);
5667:
5668: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5664: x_return_status := FND_API.G_RET_STS_ERROR;
5665: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
5666: p_data => x_msg_data);
5667:
5668: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5669:
5670: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5671: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
5672: 'Leaving delete_import_contract:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
5668: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5669:
5670: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5671: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
5672: 'Leaving delete_import_contract:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
5673: END IF;
5674:
5675: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5676: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
5671: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
5672: 'Leaving delete_import_contract:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
5673: END IF;
5674:
5675: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5676: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
5677: p_data => x_msg_data);
5678:
5679: WHEN OTHERS THEN
5688: p_token1 => G_SQLCODE_TOKEN,
5689: p_token1_value => sqlcode,
5690: p_token2 => G_SQLERRM_TOKEN,
5691: p_token2_value => sqlerrm);
5692: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5693: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
5694: p_data => x_msg_data);
5695:
5696: END delete_import_contract;
5705: --Pre-reqs : None.
5706: --Parameters :
5707: --IN : p_api_version IN NUMBER Required
5708: -- : p_init_msg_list IN VARCHAR2 Optional
5709: -- Default = FND_API.G_FALSE
5710: -- : p_string IN VARCHAR2 Required
5711: --OUT : if p_string contains comma, return "p_string"
5712: -- otherwise return p_string
5713: -- End of comments
5778: --Pre-reqs : None.
5779: --Parameters :
5780: --IN : p_api_version IN NUMBER Required
5781: -- : p_init_msg_list IN VARCHAR2 Optional
5782: -- Default = FND_API.G_FALSE
5783: -- : p_imp_contract_id IN NUMBER Required
5784: -- okc_rep_imp_contracts_t.imp_contract_id
5785: -- End of comments
5786: FUNCTION get_csv_error_string(
6033: --Pre-reqs : None.
6034: --Parameters :
6035: --IN : p_api_version IN NUMBER Required
6036: -- : p_init_msg_list IN VARCHAR2 Optional
6037: -- Default = FND_API.G_FALSE
6038: -- End of comments
6039: FUNCTION get_csv_header_string(
6040: p_api_version IN NUMBER,
6041: p_init_msg_list IN VARCHAR2
6117: --Pre-reqs : None.
6118: --Parameters :
6119: --IN : p_api_version IN NUMBER Required
6120: -- : p_init_msg_list IN VARCHAR2 Optional
6121: -- Default = FND_API.G_FALSE
6122: -- : p_document_id IN NUMBER Required
6123: -- Id of the contract
6124: -- : p_external_party_id IN NUMBER Required
6125: -- External party ID
6169: 'p_external_party_id is: ' || to_char(p_external_party_id));
6170: END IF;
6171:
6172: -- Standard call to check for call compatibility.
6173: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
6174: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6175: END IF;
6176: -- Initialize message list if p_init_msg_list is set to TRUE.
6177: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6170: END IF;
6171:
6172: -- Standard call to check for call compatibility.
6173: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
6174: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6175: END IF;
6176: -- Initialize message list if p_init_msg_list is set to TRUE.
6177: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6178: FND_MSG_PUB.initialize;
6173: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
6174: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6175: END IF;
6176: -- Initialize message list if p_init_msg_list is set to TRUE.
6177: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6178: FND_MSG_PUB.initialize;
6179: END IF;
6180:
6181: -- Initialize API return status to success
6178: FND_MSG_PUB.initialize;
6179: END IF;
6180:
6181: -- Initialize API return status to success
6182: x_return_status := FND_API.G_RET_STS_SUCCESS;
6183:
6184: -- Get email address of the vendor contacts.
6185: l_index := 1;
6186: FOR vendor_contact_rec IN vendor_contact_csr LOOP
6210: END IF;
6211:
6212:
6213: EXCEPTION
6214: WHEN FND_API.G_EXC_ERROR THEN
6215: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6216: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
6217: g_module || l_api_name,
6218: 'Leaving get_vendor_userlist:FND_API.G_EXC_ERROR Exception');
6214: WHEN FND_API.G_EXC_ERROR THEN
6215: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6216: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
6217: g_module || l_api_name,
6218: 'Leaving get_vendor_userlist:FND_API.G_EXC_ERROR Exception');
6219: END IF;
6220: --close cursor
6221: IF (vendor_contact_csr%ISOPEN) THEN
6222: CLOSE vendor_contact_csr ;
6223: END IF;
6224: IF (vendor_email_csr%ISOPEN) THEN
6225: CLOSE vendor_email_csr ;
6226: END IF;
6227: x_return_status := FND_API.G_RET_STS_ERROR;
6228: FND_MSG_PUB.Count_And_Get(
6229: p_count => x_msg_count,
6230: p_data => x_msg_data
6231: );
6229: p_count => x_msg_count,
6230: p_data => x_msg_data
6231: );
6232:
6233: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6234: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6235: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
6236: g_module || l_api_name,
6237: 'Leaving get_vendor_userlist:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
6233: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6234: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6235: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
6236: g_module || l_api_name,
6237: 'Leaving get_vendor_userlist:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
6238: END IF;
6239: --close cursor
6240: IF (vendor_contact_csr%ISOPEN) THEN
6241: CLOSE vendor_contact_csr ;
6242: END IF;
6243: IF (vendor_email_csr%ISOPEN) THEN
6244: CLOSE vendor_email_csr ;
6245: END IF;
6246: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6247: FND_MSG_PUB.Count_And_Get(
6248: p_count => x_msg_count,
6249: p_data => x_msg_data
6250: );
6267: p_token1 => G_SQLCODE_TOKEN,
6268: p_token1_value => sqlcode,
6269: p_token2 => G_SQLERRM_TOKEN,
6270: p_token2_value => sqlerrm);
6271: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6272: FND_MSG_PUB.Count_And_Get(
6273: p_count => x_msg_count,
6274: p_data => x_msg_data
6275: );
6282: --Pre-reqs : None.
6283: --Parameters :
6284: --IN : p_api_version IN NUMBER Required
6285: -- : p_init_msg_list IN VARCHAR2 Optional
6286: -- Default = FND_API.G_FALSE
6287: -- : p_document_id IN NUMBER Required
6288: -- Id of the contract
6289: -- : p_external_party_id IN NUMBER Required
6290: -- External party ID
6337: 'p_external_party_id is: ' || to_char(p_external_party_id));
6338: END IF;
6339:
6340: -- Standard call to check for call compatibility.
6341: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
6342: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6343: END IF;
6344: -- Initialize message list if p_init_msg_list is set to TRUE.
6345: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6338: END IF;
6339:
6340: -- Standard call to check for call compatibility.
6341: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
6342: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6343: END IF;
6344: -- Initialize message list if p_init_msg_list is set to TRUE.
6345: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6346: FND_MSG_PUB.initialize;
6341: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
6342: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6343: END IF;
6344: -- Initialize message list if p_init_msg_list is set to TRUE.
6345: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6346: FND_MSG_PUB.initialize;
6347: END IF;
6348:
6349: -- Initialize API return status to success
6346: FND_MSG_PUB.initialize;
6347: END IF;
6348:
6349: -- Initialize API return status to success
6350: x_return_status := FND_API.G_RET_STS_SUCCESS;
6351:
6352: l_index := 1;
6353: FOR tca_contact_rec IN tca_contact_csr LOOP
6354:
6377: END IF;
6378:
6379:
6380: EXCEPTION
6381: WHEN FND_API.G_EXC_ERROR THEN
6382: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6383: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
6384: g_module || l_api_name,
6385: 'Leaving get_customer_userlist:FND_API.G_EXC_ERROR Exception');
6381: WHEN FND_API.G_EXC_ERROR THEN
6382: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6383: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
6384: g_module || l_api_name,
6385: 'Leaving get_customer_userlist:FND_API.G_EXC_ERROR Exception');
6386: END IF;
6387: IF (tca_contact_csr%ISOPEN) THEN
6388: CLOSE tca_contact_csr ;
6389: END IF;
6389: END IF;
6390: IF (tca_email_csr%ISOPEN) THEN
6391: CLOSE tca_email_csr ;
6392: END IF;
6393: x_return_status := FND_API.G_RET_STS_ERROR;
6394: FND_MSG_PUB.Count_And_Get(
6395: p_count => x_msg_count,
6396: p_data => x_msg_data
6397: );
6395: p_count => x_msg_count,
6396: p_data => x_msg_data
6397: );
6398:
6399: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6400: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6401: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
6402: g_module || l_api_name,
6403: 'Leaving get_customer_userlist:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
6399: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6400: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6401: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
6402: g_module || l_api_name,
6403: 'Leaving get_customer_userlist:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
6404: END IF;
6405: IF (tca_contact_csr%ISOPEN) THEN
6406: CLOSE tca_contact_csr ;
6407: END IF;
6407: END IF;
6408: IF (tca_email_csr%ISOPEN) THEN
6409: CLOSE tca_email_csr ;
6410: END IF;
6411: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6412: FND_MSG_PUB.Count_And_Get(
6413: p_count => x_msg_count,
6414: p_data => x_msg_data
6415: );
6431: p_token1 => G_SQLCODE_TOKEN,
6432: p_token1_value => sqlcode,
6433: p_token2 => G_SQLERRM_TOKEN,
6434: p_token2_value => sqlerrm);
6435: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6436: FND_MSG_PUB.Count_And_Get(
6437: p_count => x_msg_count,
6438: p_data => x_msg_data
6439: );
6447: --Pre-reqs : None.
6448: --Parameters :
6449: --IN : p_api_version IN NUMBER Required
6450: -- : p_init_msg_list IN VARCHAR2 Optional
6451: -- Default = FND_API.G_FALSE
6452: -- : p_document_id IN NUMBER Required
6453: -- Id of the contract
6454: -- : p_document_type IN VARCHAR2 Required
6455: -- Contract type.
6495: 'p_external_party_role is: ' || to_char(p_external_party_role));
6496: END IF;
6497:
6498: -- Standard call to check for call compatibility.
6499: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
6500: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6501: END IF;
6502: -- Initialize message list if p_init_msg_list is set to TRUE.
6503: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6496: END IF;
6497:
6498: -- Standard call to check for call compatibility.
6499: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
6500: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6501: END IF;
6502: -- Initialize message list if p_init_msg_list is set to TRUE.
6503: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6504: FND_MSG_PUB.initialize;
6499: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
6500: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6501: END IF;
6502: -- Initialize message list if p_init_msg_list is set to TRUE.
6503: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6504: FND_MSG_PUB.initialize;
6505: END IF;
6506:
6507: -- Initialize API return status to success
6504: FND_MSG_PUB.initialize;
6505: END IF;
6506:
6507: -- Initialize API return status to success
6508: x_return_status := FND_API.G_RET_STS_SUCCESS;
6509: if (p_external_party_role = G_PARTY_ROLE_SUPPLIER) THEN
6510: get_vendor_userlist(
6511: p_api_version => p_api_version,
6512: p_init_msg_list => p_init_msg_list,
6539: END IF;
6540:
6541:
6542: EXCEPTION
6543: WHEN FND_API.G_EXC_ERROR THEN
6544: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6545: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
6546: g_module || l_api_name,
6547: 'Leaving get_external_userlist:FND_API.G_EXC_ERROR Exception');
6543: WHEN FND_API.G_EXC_ERROR THEN
6544: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6545: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
6546: g_module || l_api_name,
6547: 'Leaving get_external_userlist:FND_API.G_EXC_ERROR Exception');
6548: END IF;
6549: x_return_status := FND_API.G_RET_STS_ERROR;
6550: FND_MSG_PUB.Count_And_Get(
6551: p_count => x_msg_count,
6545: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
6546: g_module || l_api_name,
6547: 'Leaving get_external_userlist:FND_API.G_EXC_ERROR Exception');
6548: END IF;
6549: x_return_status := FND_API.G_RET_STS_ERROR;
6550: FND_MSG_PUB.Count_And_Get(
6551: p_count => x_msg_count,
6552: p_data => x_msg_data
6553: );
6551: p_count => x_msg_count,
6552: p_data => x_msg_data
6553: );
6554:
6555: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6556: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6557: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
6558: g_module || l_api_name,
6559: 'Leaving get_external_userlist:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
6555: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6556: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6557: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
6558: g_module || l_api_name,
6559: 'Leaving get_external_userlist:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
6560: END IF;
6561: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6562: FND_MSG_PUB.Count_And_Get(
6563: p_count => x_msg_count,
6557: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
6558: g_module || l_api_name,
6559: 'Leaving get_external_userlist:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
6560: END IF;
6561: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6562: FND_MSG_PUB.Count_And_Get(
6563: p_count => x_msg_count,
6564: p_data => x_msg_data
6565: );
6575: p_token1 => G_SQLCODE_TOKEN,
6576: p_token1_value => sqlcode,
6577: p_token2 => G_SQLERRM_TOKEN,
6578: p_token2_value => sqlerrm);
6579: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6580: FND_MSG_PUB.Count_And_Get(
6581: p_count => x_msg_count,
6582: p_data => x_msg_data
6583: );
6594: --Pre-reqs : None.
6595: --Parameters :
6596: --IN : p_api_version IN NUMBER Required
6597: -- : p_init_msg_list IN VARCHAR2 Optional
6598: -- Default = FND_API.G_FALSE
6599: -- : p_doc_id IN NUMBER Required
6600: -- Id of the contract
6601: -- : p_validation_string IN VARCHAR2 Optional
6602: -- Validation string
6644: END IF;
6645:
6646: l_api_version := 1.0;
6647: l_api_name := 'ok_to_commit';
6648: l_ok_to_commit := FND_API.G_FALSE;
6649:
6650:
6651: -- Standard call to check for call compatibility.
6652: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
6648: l_ok_to_commit := FND_API.G_FALSE;
6649:
6650:
6651: -- Standard call to check for call compatibility.
6652: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
6653: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6654: END IF;
6655:
6656: -- Initialize message list if p_init_msg_list is set to TRUE.
6649:
6650:
6651: -- Standard call to check for call compatibility.
6652: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
6653: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6654: END IF;
6655:
6656: -- Initialize message list if p_init_msg_list is set to TRUE.
6657: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6653: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6654: END IF;
6655:
6656: -- Initialize message list if p_init_msg_list is set to TRUE.
6657: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6658: FND_MSG_PUB.initialize;
6659: END IF;
6660:
6661: -- Initialize API return status to success
6658: FND_MSG_PUB.initialize;
6659: END IF;
6660:
6661: -- Initialize API return status to success
6662: x_return_status := FND_API.G_RET_STS_SUCCESS;
6663:
6664: -- If p_validation_string is NULL, check only the header record. Otherwise check contract
6665: -- status as well.
6666: IF (p_validation_string is NULL) THEN
6670: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6671: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
6672: 'Contract not found');
6673: END IF;
6674: l_ok_to_commit := FND_API.G_FALSE;
6675: CLOSE l_contract_exist_csr;
6676: ELSE
6677: -- Update the CONTRACT_LAST_UPDATE_DATE and CONTRACT_LAST_UPDATE_BY columns
6678: -- No need to updated these columns. These are updated upon View Contract.
6679: -- UPDATE okc_rep_contracts_all
6680: -- SET CONTRACT_LAST_UPDATE_DATE = sysdate,
6681: -- CONTRACT_LAST_UPDATED_BY = FND_GLOBAL.user_id()
6682: -- WHERE contract_id = p_doc_id;
6683: l_ok_to_commit := FND_API.G_TRUE;
6684: CLOSE l_contract_exist_csr;
6685: END IF; -- (l_contract_exist_csr%NOTFOUND)
6686: ELSE
6687: OPEN l_contract_updatable_csr;
6690: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6691: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
6692: 'Contract not found');
6693: END IF;
6694: l_ok_to_commit := FND_API.G_FALSE;
6695: CLOSE l_contract_updatable_csr;
6696: ELSE
6697: -- Update the CONTRACT_LAST_UPDATE_DATE and CONTRACT_LAST_UPDATE_BY columns
6698: -- No need to updated these columns. These are updated upon View Contract.
6699: -- UPDATE okc_rep_contracts_all
6700: -- SET CONTRACT_LAST_UPDATE_DATE = sysdate,
6701: -- CONTRACT_LAST_UPDATED_BY = FND_GLOBAL.user_id()
6702: -- WHERE contract_id = p_doc_id;
6703: l_ok_to_commit := FND_API.G_TRUE;
6704: CLOSE l_contract_updatable_csr;
6705: END IF; -- (l_contract_updatable_csr%NOTFOUND)
6706: END IF; -- (p_validation_string is NULL)
6707: -- Standard call to get message count and if count is 1, get message info.
6728: END IF;
6729: IF (l_contract_updatable_csr%ISOPEN) THEN
6730: CLOSE l_contract_updatable_csr ;
6731: END IF;
6732: x_return_status := FND_API.G_RET_STS_ERROR;
6733: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
6734: p_msg_name => G_UNEXPECTED_ERROR,
6735: p_token1 => G_SQLCODE_TOKEN,
6736: p_token1_value => sqlcode,
7014: -- Call AP API to create a vendor contact as per user entered information
7015: AP_VENDOR_PUB_PKG.create_vendor_contact(
7016: p_api_version => 1.0,
7017: p_vendor_contact_rec => l_vendor_contact_rec,
7018: p_commit => FND_API.G_FALSE,
7019: x_vendor_contact_id => x_vendor_contact_id,
7020: x_return_status => l_return_status,
7021: x_msg_count => l_msg_count,
7022: x_msg_data => l_msg_data,
7098: -- Standard Start of API savepoint
7099: SAVEPOINT sync_con_header_attributes;
7100:
7101: -- Standard call to check for call compatibility.
7102: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
7103: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7104: END IF;
7105:
7106: -- Initialize message list if p_init_msg_list is set to TRUE.
7099: SAVEPOINT sync_con_header_attributes;
7100:
7101: -- Standard call to check for call compatibility.
7102: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
7103: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7104: END IF;
7105:
7106: -- Initialize message list if p_init_msg_list is set to TRUE.
7107: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7103: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7104: END IF;
7105:
7106: -- Initialize message list if p_init_msg_list is set to TRUE.
7107: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7108: FND_MSG_PUB.initialize;
7109: END IF;
7110:
7111: -- Initialize API return status to success
7108: FND_MSG_PUB.initialize;
7109: END IF;
7110:
7111: -- Initialize API return status to success
7112: x_return_status := FND_API.G_RET_STS_SUCCESS;
7113:
7114: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7115: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
7116: 'Entering OKC_REP_UTIL_PVT.sync_con_header_attributes');
7243: p_token1 => G_SQLCODE_TOKEN,
7244: p_token1_value => sqlcode,
7245: p_token2 => G_SQLERRM_TOKEN,
7246: p_token2_value => sqlerrm);
7247: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7248: FND_MSG_PUB.Count_And_Get(
7249: p_count => x_msg_count,
7250: p_data => x_msg_data
7251: );