[Home] [Help]
145: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
146: '102: Contract Type is: ' || p_contract_type);
147: END IF;
148: -- Initialize message list if p_init_msg_list is set to TRUE.
149: IF FND_API.to_Boolean( p_init_msg_list ) THEN
150: FND_MSG_PUB.initialize;
151: END IF;
152:
153: IF (p_contract_type = 'PA_BLANKET')
190: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
191: 'Values from contract_csr: l_org_id = ' || l_org_id );
192: END IF;
193:
194: x_return_status := FND_API.G_RET_STS_SUCCESS;
195: x_has_access := FND_API.G_FALSE;
196:
197: -- Call multi-org API to check access to contract's organization by current user
198: OPEN mo_check_csr(l_org_id);
191: 'Values from contract_csr: l_org_id = ' || l_org_id );
192: END IF;
193:
194: x_return_status := FND_API.G_RET_STS_SUCCESS;
195: x_has_access := FND_API.G_FALSE;
196:
197: -- Call multi-org API to check access to contract's organization by current user
198: OPEN mo_check_csr(l_org_id);
199: FETCH mo_check_csr INTO l_org_id;
231: END IF;
232:
233: IF (l_result = 'Y') THEN
234:
235: x_has_access := FND_API.G_TRUE;
236:
237: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
238: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
239: 'intents check passed');
253: CLOSE quote_security_csr;
254:
255: IF l_result = 'Y' THEN
256:
257: x_has_access := FND_API.G_TRUE;
258:
259: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
260: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
261: 'IF l_result = Y for quoting security');
261: 'IF l_result = Y for quoting security');
262: END IF;
263: ELSE
264:
265: x_has_access := FND_API.G_FALSE;
266:
267: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
268: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
269: 'IF l_result = N for quoting security');
285: '112: x_return_status is: ' || x_return_status);
286: END IF;
287:
288: EXCEPTION
289: WHEN FND_API.G_EXC_ERROR THEN
290: --close cursors
291: IF (intents_csr%ISOPEN) THEN
292: CLOSE intents_csr ;
293: END IF;
315:
316: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
317: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
318: g_module || l_api_name || '.exception',
319: '115: Leaving check_contract_access:FND_API.G_EXC_ERROR Exception');
320: END IF;
321: x_return_status := FND_API.G_RET_STS_ERROR;
322: FND_MSG_PUB.Count_And_Get(
323: p_count => x_msg_count,
317: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
318: g_module || l_api_name || '.exception',
319: '115: Leaving check_contract_access:FND_API.G_EXC_ERROR Exception');
320: END IF;
321: x_return_status := FND_API.G_RET_STS_ERROR;
322: FND_MSG_PUB.Count_And_Get(
323: p_count => x_msg_count,
324: p_data => x_msg_data
325: );
323: p_count => x_msg_count,
324: p_data => x_msg_data
325: );
326:
327: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
328: --close cursors
329: IF (intents_csr%ISOPEN) THEN
330: CLOSE intents_csr ;
331: END IF;
353:
354: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
355: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
356: g_module || l_api_name || '.exception',
357: '116:Leaving check_contract_access:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
358: END IF;
359: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
360: FND_MSG_PUB.Count_And_Get(
361: p_count => x_msg_count,
355: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
356: g_module || l_api_name || '.exception',
357: '116:Leaving check_contract_access:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
358: END IF;
359: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
360: FND_MSG_PUB.Count_And_Get(
361: p_count => x_msg_count,
362: p_data => x_msg_data
363: );
400: p_token1 => G_SQLCODE_TOKEN,
401: p_token1_value => sqlcode,
402: p_token2 => G_SQLERRM_TOKEN,
403: p_token2_value => sqlerrm);
404: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
405: FND_MSG_PUB.Count_And_Get(
406: p_count => x_msg_count,
407: p_data => x_msg_data
408: );
551: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
552: '102: Fucntion Name is: ' || p_function_name);
553: END IF;
554: -- Initialize message list if p_init_msg_list is set to TRUE.
555: IF FND_API.to_Boolean( p_init_msg_list ) THEN
556: FND_MSG_PUB.initialize;
557: END IF;
558:
559: OPEN contract_csr(p_contract_id);
568: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
569: 'Values : FND_GLOBAL.user_id() = ' || FND_GLOBAL.user_id() || ', FND_GLOBAL.user_name() = ' || FND_GLOBAL.user_name());
570: END IF;
571:
572: x_return_status := FND_API.G_RET_STS_SUCCESS;
573: x_has_access := FND_API.G_FALSE;
574: l_user_name := FND_GLOBAL.user_name();
575: l_user_id := FND_GLOBAL.user_id();
576:
569: 'Values : FND_GLOBAL.user_id() = ' || FND_GLOBAL.user_id() || ', FND_GLOBAL.user_name() = ' || FND_GLOBAL.user_name());
570: END IF;
571:
572: x_return_status := FND_API.G_RET_STS_SUCCESS;
573: x_has_access := FND_API.G_FALSE;
574: l_user_name := FND_GLOBAL.user_name();
575: l_user_id := FND_GLOBAL.user_id();
576:
577: -- Multi-Org Initialization
605:
606: FOR i IN 1 .. l_approversOut.count
607: LOOP
608: IF l_approversOut(i).name = l_user_name THEN
609: x_has_access := FND_API.G_TRUE;
610:
611: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
612: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name, '200:Approver is the current user. so user have access.');
613: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name, '200:x_has_access is: ' || x_has_access);
628:
629: FOR REC IN contract_signers_csr(p_contract_id)
630: LOOP
631: IF (REC.user_id = l_user_id) THEN
632: x_has_access := FND_API.G_TRUE;
633:
634: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
635: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name, '210:Signer is the current user. so user have access.');
636: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name, '200:x_has_access is: ' || x_has_access);
650: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
651: 'returning FALSE, queried for UPDATE access, not an Admin, not a User, must be a Viewer');
652: END IF;
653:
654: x_return_status := FND_API.G_RET_STS_SUCCESS;
655: x_has_access := FND_API.G_FALSE;
656: RETURN;
657: END IF;
658:
651: 'returning FALSE, queried for UPDATE access, not an Admin, not a User, must be a Viewer');
652: END IF;
653:
654: x_return_status := FND_API.G_RET_STS_SUCCESS;
655: x_has_access := FND_API.G_FALSE;
656: RETURN;
657: END IF;
658:
659: IF (l_result = 'Y') THEN
683: END IF;
684:
685: -- Check if the current user is owner of the contract
686: IF (l_user_id = l_owner_id) THEN
687: x_has_access := FND_API.G_TRUE;
688:
689: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
690: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
691: 'IF (l_user_id = l_owner_id) THEN: TRUE: x_has_access = ' || x_has_access);
698: END IF;
699:
700: IF (FND_FUNCTION.TEST(G_FUNC_OKC_REP_ADMINISTRATOR,'Y')) THEN
701:
702: x_has_access := FND_API.G_TRUE;
703:
704: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
705: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
706: 'IF (FND_FUNCTION.TEST(G_FUNC_OKC_REP_ADMINISTRATOR,''Y'')) THEN: TRUE: x_has_access = ' || x_has_access);
732: OPEN grants_csr(p_contract_id, p_contract_id, l_grantee_key, l_grantee_orig_system);
733: FETCH grants_csr INTO l_result;
734:
735: IF (grants_csr%FOUND) THEN
736: x_has_access := FND_API.G_TRUE;
737:
738: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
739: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
740: 'IF (grants_csr%FOUND) THEN: TRUE: x_has_access = ' || x_has_access);
739: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
740: 'IF (grants_csr%FOUND) THEN: TRUE: x_has_access = ' || x_has_access);
741: END IF;
742: ELSE
743: x_has_access := FND_API.G_FALSE;
744:
745: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
746: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
747: 'IF (grants_csr%FOUND) THEN: FALSE: x_has_access = ' || x_has_access);
749: END IF;
750:
751: CLOSE grants_csr;
752: ELSE
753: x_has_access := FND_API.G_FALSE;
754:
755: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
756: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
757: 'IF (l_use_acl_flag = ''Y'') THEN: FALSE: x_has_access = ' || x_has_access);
775: '112: x_return_status is: ' || x_return_status);
776: END IF;
777:
778: EXCEPTION
779: WHEN FND_API.G_EXC_ERROR THEN
780: --close cursors
781: IF (intents_csr%ISOPEN) THEN
782: CLOSE intents_csr ;
783: END IF;
790:
791: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
792: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
793: g_module || l_api_name || '.exception',
794: '115: Leaving check_contract_access:FND_API.G_EXC_ERROR Exception');
795: END IF;
796: x_return_status := FND_API.G_RET_STS_ERROR;
797: FND_MSG_PUB.Count_And_Get(
798: p_count => x_msg_count,
792: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
793: g_module || l_api_name || '.exception',
794: '115: Leaving check_contract_access:FND_API.G_EXC_ERROR Exception');
795: END IF;
796: x_return_status := FND_API.G_RET_STS_ERROR;
797: FND_MSG_PUB.Count_And_Get(
798: p_count => x_msg_count,
799: p_data => x_msg_data
800: );
798: p_count => x_msg_count,
799: p_data => x_msg_data
800: );
801:
802: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
803: --close cursors
804: IF (intents_csr%ISOPEN) THEN
805: CLOSE intents_csr ;
806: END IF;
813:
814: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
815: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
816: g_module || l_api_name || '.exception',
817: '116:Leaving check_contract_access:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
818: END IF;
819: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
820: FND_MSG_PUB.Count_And_Get(
821: p_count => x_msg_count,
815: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
816: g_module || l_api_name || '.exception',
817: '116:Leaving check_contract_access:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
818: END IF;
819: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
820: FND_MSG_PUB.Count_And_Get(
821: p_count => x_msg_count,
822: p_data => x_msg_data
823: );
844: p_token1 => G_SQLCODE_TOKEN,
845: p_token1_value => sqlcode,
846: p_token2 => G_SQLERRM_TOKEN,
847: p_token2_value => sqlerrm);
848: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
849: FND_MSG_PUB.Count_And_Get(
850: p_count => x_msg_count,
851: p_data => x_msg_data
852: );
895: END IF;
896: --- Call check_contract_access procedure.
897: check_contract_access_external(
898: p_api_version => 1.0,
899: p_init_msg_list => FND_API.G_FALSE,
900: p_contract_id => p_contract_id,
901: p_contract_type => p_contract_type,
902: x_has_access => l_has_access,
903: x_msg_data => l_msg_data,
941: --Pre-reqs : None.
942: --Parameters :
943: --IN : p_api_version IN NUMBER Required
944: -- : p_init_msg_list IN VARCHAR2 Optional
945: -- Default = FND_API.G_FALSE
946: -- : p_contract_id IN NUMBER Required
947: -- Id of the contract whose access to be checked
948: -- : p_function_name IN VARCHAR2 Required
949: -- Name of the function whose access to be checked. Possible values OKC_REP_SELECT, OKC_REP_UPDATE
979: END IF;
980: --- Call check_contract_access procedure.
981: check_contract_access(
982: p_api_version => 1.0,
983: p_init_msg_list => FND_API.G_FALSE,
984: p_contract_id => p_contract_id,
985: p_function_name => p_function_name,
986: x_has_access => l_has_access,
987: x_msg_data => l_msg_data,
1060: '205: Note is: ' || p_note);
1061: END IF;
1062:
1063: -- Initialize message list if p_init_msg_list is set to TRUE.
1064: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1065: FND_MSG_PUB.initialize;
1066: END IF;
1067:
1068: x_return_status := FND_API.G_RET_STS_SUCCESS;
1064: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1065: FND_MSG_PUB.initialize;
1066: END IF;
1067:
1068: x_return_status := FND_API.G_RET_STS_SUCCESS;
1069:
1070:
1071: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1072: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,
1139: g_module || l_api_name,
1140: 'After inserting a row into OKC_REP_CON_STATUS_HIST');
1141: END IF;
1142: EXCEPTION
1143: WHEN FND_API.G_EXC_ERROR THEN
1144: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1145: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
1146: g_module || l_api_name || '.exception',
1147: 'Leaving change_contract_status:FND_API.G_EXC_ERROR Exception');
1143: WHEN FND_API.G_EXC_ERROR THEN
1144: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1145: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
1146: g_module || l_api_name || '.exception',
1147: 'Leaving change_contract_status:FND_API.G_EXC_ERROR Exception');
1148: END IF;
1149: x_return_status := FND_API.G_RET_STS_ERROR;
1150: FND_MSG_PUB.Count_And_Get(
1151: p_count => x_msg_count,
1145: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
1146: g_module || l_api_name || '.exception',
1147: 'Leaving change_contract_status:FND_API.G_EXC_ERROR Exception');
1148: END IF;
1149: x_return_status := FND_API.G_RET_STS_ERROR;
1150: FND_MSG_PUB.Count_And_Get(
1151: p_count => x_msg_count,
1152: p_data => x_msg_data
1153: );
1150: FND_MSG_PUB.Count_And_Get(
1151: p_count => x_msg_count,
1152: p_data => x_msg_data
1153: );
1154: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1155: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1156: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
1157: g_module || l_api_name || '.exception',
1158: 'Leaving change_contract_status: FND_API.G_EXC_UNEXPECTED_ERROR Exception');
1154: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1155: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1156: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
1157: g_module || l_api_name || '.exception',
1158: 'Leaving change_contract_status: FND_API.G_EXC_UNEXPECTED_ERROR Exception');
1159: END IF;
1160: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1161: FND_MSG_PUB.Count_And_Get(
1162: p_count => x_msg_count,
1156: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
1157: g_module || l_api_name || '.exception',
1158: 'Leaving change_contract_status: FND_API.G_EXC_UNEXPECTED_ERROR Exception');
1159: END IF;
1160: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1161: FND_MSG_PUB.Count_And_Get(
1162: p_count => x_msg_count,
1163: p_data => x_msg_data
1164: );
1173: p_token1 => G_SQLCODE_TOKEN,
1174: p_token1_value => sqlcode,
1175: p_token2 => G_SQLERRM_TOKEN,
1176: p_token2_value => sqlerrm);
1177: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1178: FND_MSG_PUB.Count_And_Get(
1179: p_count => x_msg_count,
1180: p_data => x_msg_data
1181: );
1190: --Pre-reqs : None.
1191: --Parameters :
1192: --IN : p_api_version IN NUMBER Required
1193: -- : p_init_msg_list IN VARCHAR2 Optional
1194: -- Default = FND_API.G_FALSE
1195: -- : p_contract_id IN NUMBER Required
1196: -- Contract ID of the approval history record
1197: -- : p_contract_version IN VARCHAR2 Required
1198: -- Contract version of the approval history record
1244: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
1245: '306: Forwarded User Id is: ' || to_char(p_forward_user_id));
1246: END IF;
1247: -- Initialize message list if p_init_msg_list is set to TRUE.
1248: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1249: FND_MSG_PUB.initialize;
1250: END IF;
1251:
1252: x_return_status := FND_API.G_RET_STS_SUCCESS;
1248: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1249: FND_MSG_PUB.initialize;
1250: END IF;
1251:
1252: x_return_status := FND_API.G_RET_STS_SUCCESS;
1253:
1254: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1255: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,
1256: g_module || l_api_name,
1292: g_module || l_api_name,
1293: 'After inserting a row into OKC_REP_CON_APPROVALS');
1294: END IF;
1295: EXCEPTION
1296: WHEN FND_API.G_EXC_ERROR THEN
1297: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1298: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
1299: g_module || l_api_name || '.exception',
1300: 'Leaving add_approval_hist_record:FND_API.G_EXC_ERROR Exception');
1296: WHEN FND_API.G_EXC_ERROR THEN
1297: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1298: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
1299: g_module || l_api_name || '.exception',
1300: 'Leaving add_approval_hist_record:FND_API.G_EXC_ERROR Exception');
1301: END IF;
1302: x_return_status := FND_API.G_RET_STS_ERROR;
1303: FND_MSG_PUB.Count_And_Get(
1304: p_count => x_msg_count,
1298: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
1299: g_module || l_api_name || '.exception',
1300: 'Leaving add_approval_hist_record:FND_API.G_EXC_ERROR Exception');
1301: END IF;
1302: x_return_status := FND_API.G_RET_STS_ERROR;
1303: FND_MSG_PUB.Count_And_Get(
1304: p_count => x_msg_count,
1305: p_data => x_msg_data
1306: );
1303: FND_MSG_PUB.Count_And_Get(
1304: p_count => x_msg_count,
1305: p_data => x_msg_data
1306: );
1307: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1308: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1309: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
1310: g_module || l_api_name || '.exception',
1311: 'Leaving add_approval_hist_record: FND_API.G_EXC_UNEXPECTED_ERROR Exception');
1307: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1308: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1309: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
1310: g_module || l_api_name || '.exception',
1311: 'Leaving add_approval_hist_record: FND_API.G_EXC_UNEXPECTED_ERROR Exception');
1312: END IF;
1313: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1314: FND_MSG_PUB.Count_And_Get(
1315: p_count => x_msg_count,
1309: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
1310: g_module || l_api_name || '.exception',
1311: 'Leaving add_approval_hist_record: FND_API.G_EXC_UNEXPECTED_ERROR Exception');
1312: END IF;
1313: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1314: FND_MSG_PUB.Count_And_Get(
1315: p_count => x_msg_count,
1316: p_data => x_msg_data
1317: );
1326: p_token1 => G_SQLCODE_TOKEN,
1327: p_token1_value => sqlcode,
1328: p_token2 => G_SQLERRM_TOKEN,
1329: p_token2_value => sqlerrm);
1330: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1331: FND_MSG_PUB.Count_And_Get(
1332: p_count => x_msg_count,
1333: p_data => x_msg_data
1334: );
1342: --Pre-reqs : None.
1343: --Parameters :
1344: --IN : p_api_version IN NUMBER Required
1345: -- : p_init_msg_list IN VARCHAR2 Optional
1346: -- Default = FND_API.G_FALSE
1347: -- : p_contract_id IN NUMBER Required
1348: -- Contract ID of the approval history record
1349: -- : p_contract_version IN VARCHAR2 Required
1350: -- Contract version of the approval history record
1401: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
1402: '306: Forwarded User Id is: ' || to_char(p_forward_user_id));
1403: END IF;
1404: -- Initialize message list if p_init_msg_list is set to TRUE.
1405: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1406: FND_MSG_PUB.initialize;
1407: END IF;
1408:
1409: x_return_status := FND_API.G_RET_STS_SUCCESS;
1405: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1406: FND_MSG_PUB.initialize;
1407: END IF;
1408:
1409: x_return_status := FND_API.G_RET_STS_SUCCESS;
1410:
1411: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1412: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,
1413: g_module || l_api_name,
1459: g_module || l_api_name,
1460: 'After inserting a row into OKC_REP_SIGNATURE_DETAILS');
1461: END IF;
1462: EXCEPTION
1463: WHEN FND_API.G_EXC_ERROR THEN
1464: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1465: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
1466: g_module || l_api_name || '.exception',
1467: 'Leaving add_signature_hist_record:FND_API.G_EXC_ERROR Exception');
1463: WHEN FND_API.G_EXC_ERROR THEN
1464: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1465: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
1466: g_module || l_api_name || '.exception',
1467: 'Leaving add_signature_hist_record:FND_API.G_EXC_ERROR Exception');
1468: END IF;
1469: x_return_status := FND_API.G_RET_STS_ERROR;
1470: FND_MSG_PUB.Count_And_Get(
1471: p_count => x_msg_count,
1465: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
1466: g_module || l_api_name || '.exception',
1467: 'Leaving add_signature_hist_record:FND_API.G_EXC_ERROR Exception');
1468: END IF;
1469: x_return_status := FND_API.G_RET_STS_ERROR;
1470: FND_MSG_PUB.Count_And_Get(
1471: p_count => x_msg_count,
1472: p_data => x_msg_data
1473: );
1470: FND_MSG_PUB.Count_And_Get(
1471: p_count => x_msg_count,
1472: p_data => x_msg_data
1473: );
1474: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1475: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1476: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
1477: g_module || l_api_name || '.exception',
1478: 'Leaving add_signature_hist_record: FND_API.G_EXC_UNEXPECTED_ERROR Exception');
1474: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1475: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1476: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
1477: g_module || l_api_name || '.exception',
1478: 'Leaving add_signature_hist_record: FND_API.G_EXC_UNEXPECTED_ERROR Exception');
1479: END IF;
1480: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1481: FND_MSG_PUB.Count_And_Get(
1482: p_count => x_msg_count,
1476: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,
1477: g_module || l_api_name || '.exception',
1478: 'Leaving add_signature_hist_record: FND_API.G_EXC_UNEXPECTED_ERROR Exception');
1479: END IF;
1480: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1481: FND_MSG_PUB.Count_And_Get(
1482: p_count => x_msg_count,
1483: p_data => x_msg_data
1484: );
1493: p_token1 => G_SQLCODE_TOKEN,
1494: p_token1_value => sqlcode,
1495: p_token2 => G_SQLERRM_TOKEN,
1496: p_token2_value => sqlerrm);
1497: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1498: FND_MSG_PUB.Count_And_Get(
1499: p_count => x_msg_count,
1500: p_data => x_msg_data
1501: );
1512: --Pre-reqs : None.
1513: --Parameters :
1514: --IN : p_api_version IN NUMBER Required
1515: -- : p_init_msg_list IN VARCHAR2 Optional
1516: -- Default = FND_API.G_FALSE
1517: -- : p_contract_id IN NUMBER Required
1518: -- Contract ID of the party to be validated
1519: -- : p_intent IN VARCHAR2 Required
1520: -- Intent of the contract
1682: 'p_mode = ' || p_mode);
1683: END IF;
1684:
1685: -- Standard call to check for call compatibility.
1686: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1687: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1688: END IF;
1689:
1690: -- Initialize message list if p_init_msg_list is set to TRUE.
1683: END IF;
1684:
1685: -- Standard call to check for call compatibility.
1686: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1687: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1688: END IF;
1689:
1690: -- Initialize message list if p_init_msg_list is set to TRUE.
1691: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1687: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1688: END IF;
1689:
1690: -- Initialize message list if p_init_msg_list is set to TRUE.
1691: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1692: FND_MSG_PUB.initialize;
1693: END IF;
1694:
1695: -- Initialize API return status to success
1692: FND_MSG_PUB.initialize;
1693: END IF;
1694:
1695: -- Initialize API return status to success
1696: x_return_status := FND_API.G_RET_STS_SUCCESS;
1697:
1698: x_valid_party_flag := 'Y';
1699:
1700: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2233:
2234:
2235: EXCEPTION
2236:
2237: WHEN FND_API.G_EXC_ERROR THEN
2238:
2239: --close cursors
2240: IF (party_role_exist_csr%ISOPEN) THEN
2241: CLOSE party_role_exist_csr ;
2275: END IF;
2276:
2277: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2278: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
2279: 'Leaving validate_contract_party:FND_API.G_EXC_ERROR Exception');
2280: END IF;
2281:
2282: x_return_status := FND_API.G_RET_STS_ERROR;
2283: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2278: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
2279: 'Leaving validate_contract_party:FND_API.G_EXC_ERROR Exception');
2280: END IF;
2281:
2282: x_return_status := FND_API.G_RET_STS_ERROR;
2283: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2284: p_data => x_msg_data);
2285:
2286: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2282: x_return_status := FND_API.G_RET_STS_ERROR;
2283: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2284: p_data => x_msg_data);
2285:
2286: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2287:
2288: --close cursors
2289: IF (party_role_exist_csr%ISOPEN) THEN
2290: CLOSE party_role_exist_csr ;
2324: END IF;
2325:
2326: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2327: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
2328: 'Leaving validate_contract_party:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
2329: END IF;
2330:
2331: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2332: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2327: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
2328: 'Leaving validate_contract_party:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
2329: END IF;
2330:
2331: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2332: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2333: p_data => x_msg_data);
2334:
2335: WHEN OTHERS THEN
2382: p_token1 => G_SQLCODE_TOKEN,
2383: p_token1_value => sqlcode,
2384: p_token2 => G_SQLERRM_TOKEN,
2385: p_token2_value => sqlerrm);
2386: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2387: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2388: p_data => x_msg_data);
2389:
2390: END validate_contract_party;
2397: --Pre-reqs : None.
2398: --Parameters :
2399: --IN : p_api_version IN NUMBER Required
2400: -- : p_init_msg_list IN VARCHAR2 Optional
2401: -- Default = FND_API.G_FALSE
2402: -- : p_contract_id IN NUMBER Required
2403: -- Contract ID of the party contact to be validated
2404: -- : p_party_role_code IN VARCHAR2 Required
2405: -- Role code of the party of the contact to be validated
2502: 'p_contact_role_id = ' || p_contact_role_id);
2503: END IF;
2504:
2505: -- Standard call to check for call compatibility.
2506: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2507: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2508: END IF;
2509:
2510: -- Initialize message list if p_init_msg_list is set to TRUE.
2503: END IF;
2504:
2505: -- Standard call to check for call compatibility.
2506: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2507: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2508: END IF;
2509:
2510: -- Initialize message list if p_init_msg_list is set to TRUE.
2511: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2507: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2508: END IF;
2509:
2510: -- Initialize message list if p_init_msg_list is set to TRUE.
2511: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2512: FND_MSG_PUB.initialize;
2513: END IF;
2514:
2515: -- Initialize API return status to success
2512: FND_MSG_PUB.initialize;
2513: END IF;
2514:
2515: -- Initialize API return status to success
2516: x_return_status := FND_API.G_RET_STS_SUCCESS;
2517:
2518: x_valid_contact_flag := 'Y';
2519:
2520: -- Check uniqueness of the party contact
2691:
2692:
2693: EXCEPTION
2694:
2695: WHEN FND_API.G_EXC_ERROR THEN
2696:
2697: --close cursors
2698: IF (contact_unique_csr%ISOPEN) THEN
2699: CLOSE contact_unique_csr ;
2709: END IF;
2710:
2711: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2712: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
2713: 'Leaving validate_party_contact:FND_API.G_EXC_ERROR Exception');
2714: END IF;
2715:
2716: x_return_status := FND_API.G_RET_STS_ERROR;
2717: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2712: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
2713: 'Leaving validate_party_contact:FND_API.G_EXC_ERROR Exception');
2714: END IF;
2715:
2716: x_return_status := FND_API.G_RET_STS_ERROR;
2717: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2718: p_data => x_msg_data);
2719:
2720: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2716: x_return_status := FND_API.G_RET_STS_ERROR;
2717: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2718: p_data => x_msg_data);
2719:
2720: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2721:
2722: --close cursors
2723: IF (contact_unique_csr%ISOPEN) THEN
2724: CLOSE contact_unique_csr ;
2734: END IF;
2735:
2736: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2737: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
2738: 'Leaving validate_party_contact:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
2739: END IF;
2740:
2741: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2742: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2737: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
2738: 'Leaving validate_party_contact:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
2739: END IF;
2740:
2741: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2742: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2743: p_data => x_msg_data);
2744:
2745: WHEN OTHERS THEN
2768: p_token1 => G_SQLCODE_TOKEN,
2769: p_token1_value => sqlcode,
2770: p_token2 => G_SQLERRM_TOKEN,
2771: p_token2_value => sqlerrm);
2772: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2773: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2774: p_data => x_msg_data);
2775:
2776: END validate_party_contact;
2782: --Pre-reqs : None
2783: --Parameters :
2784: --IN : p_api_version IN NUMBER Required
2785: -- : p_init_msg_list IN VARCHAR2 Optional
2786: -- Default = FND_API.G_FALSE
2787: -- : p_contract_id IN NUMBER Required
2788: -- Contract ID that the error is from
2789: -- : p_error_obj_type IN VARCHAR2 Required
2790: -- Error Object Type: 'CONTRACT', 'PARTY', 'DOCUMENT'
2855:
2856: END IF;
2857:
2858: -- Standard call to check for call compatibility.
2859: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2860: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2861: END IF;
2862:
2863: -- Initialize message list if p_init_msg_list is set to TRUE.
2856: END IF;
2857:
2858: -- Standard call to check for call compatibility.
2859: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2860: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2861: END IF;
2862:
2863: -- Initialize message list if p_init_msg_list is set to TRUE.
2864: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2860: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2861: END IF;
2862:
2863: -- Initialize message list if p_init_msg_list is set to TRUE.
2864: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2865: FND_MSG_PUB.initialize;
2866: END IF;
2867:
2868: -- Initialize API return status to success
2865: FND_MSG_PUB.initialize;
2866: END IF;
2867:
2868: -- Initialize API return status to success
2869: x_return_status := FND_API.G_RET_STS_SUCCESS;
2870:
2871:
2872:
2873: OPEN ERROR_ID_CSR;
2910: 'Leaving OKC_REP_UTIL_PVT.'||l_api_name);
2911: END IF;
2912:
2913: EXCEPTION
2914: WHEN FND_API.G_EXC_ERROR THEN
2915:
2916: --close cursors
2917: IF (ERROR_ID_CSR%ISOPEN) THEN
2918: CLOSE ERROR_ID_CSR ;
2922: CLOSE ERROR_ID_CSR;
2923: END IF;
2924: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2925: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
2926: 'Leaving populate_import_errors:FND_API.G_EXC_ERROR Exception');
2927: END IF;
2928:
2929: x_return_status := FND_API.G_RET_STS_ERROR;
2930: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2925: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
2926: 'Leaving populate_import_errors:FND_API.G_EXC_ERROR Exception');
2927: END IF;
2928:
2929: x_return_status := FND_API.G_RET_STS_ERROR;
2930: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2931: p_data => x_msg_data);
2932:
2933: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2929: x_return_status := FND_API.G_RET_STS_ERROR;
2930: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2931: p_data => x_msg_data);
2932:
2933: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2934:
2935: --close cursors
2936: IF (ERROR_ID_CSR%ISOPEN) THEN
2937: CLOSE ERROR_ID_CSR ;
2942: END IF;
2943:
2944: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2945: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
2946: 'Leaving populate_import_errors:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
2947: END IF;
2948:
2949: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2950: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2945: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
2946: 'Leaving populate_import_errors:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
2947: END IF;
2948:
2949: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2950: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2951: p_data => x_msg_data);
2952:
2953: WHEN OTHERS THEN
2971: p_token1 => G_SQLCODE_TOKEN,
2972: p_token1_value => sqlcode,
2973: p_token2 => G_SQLERRM_TOKEN,
2974: p_token2_value => sqlerrm);
2975: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2976: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2977: p_data => x_msg_data);
2978:
2979: END populate_import_errors;
2988: -- : Contract documents should be saved to the OKC_REP_IMP_DOCUMENTS_T table
2989: --Parameters :
2990: --IN : p_api_version IN NUMBER Required
2991: -- : p_init_msg_list IN VARCHAR2 Optional
2992: -- Default = FND_API.G_FALSE
2993: -- : p_run_id IN NUMBER Required
2994: -- Concurrent program request id
2995: --OUT : x_return_status OUT VARCHAR2(1)
2996: -- : x_msg_count OUT NUMBER
3055:
3056: END IF;
3057:
3058: -- Standard call to check for call compatibility.
3059: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3060: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3061: END IF;
3062:
3063: -- Initialize message list if p_init_msg_list is set to TRUE.
3056: END IF;
3057:
3058: -- Standard call to check for call compatibility.
3059: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3060: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3061: END IF;
3062:
3063: -- Initialize message list if p_init_msg_list is set to TRUE.
3064: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3060: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3061: END IF;
3062:
3063: -- Initialize message list if p_init_msg_list is set to TRUE.
3064: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3065: FND_MSG_PUB.initialize;
3066: END IF;
3067:
3068: -- Initialize API return status to success
3065: FND_MSG_PUB.initialize;
3066: END IF;
3067:
3068: -- Initialize API return status to success
3069: x_return_status := FND_API.G_RET_STS_SUCCESS;
3070:
3071: OPEN IMPORT_DOCUMENTS_CSR;
3072: LOOP
3073: FETCH IMPORT_DOCUMENTS_CSR INTO l_import_documents_rec;
3237: END IF;
3238:
3239: --Populate the error message table
3240: IF(l_valid_flag = 'N' AND l_error_msg IS NOT NULL) THEN
3241: populate_import_errors(p_init_msg_list => FND_API.G_FALSE,
3242: p_api_version => 1.0,
3243: p_contract_id => l_import_documents_rec.imp_contract_id,
3244: p_error_obj_type => G_IMP_DOCUMENT_ERROR,
3245: p_error_obj_id => l_import_documents_rec.imp_document_id,
3279: 'Leaving OKC_REP_UTIL_PVT.'||l_api_name);
3280: END IF;
3281:
3282: EXCEPTION
3283: WHEN FND_API.G_EXC_ERROR THEN
3284: IF IMPORT_DOCUMENTS_CSR%ISOPEN THEN
3285: CLOSE IMPORT_DOCUMENTS_CSR;
3286: END IF;
3287:
3289: CLOSE document_category_csr;
3290: END IF;
3291: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3292: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
3293: 'Leaving '||l_api_name||':FND_API.G_EXC_ERROR Exception');
3294: END IF;
3295:
3296: x_return_status := FND_API.G_RET_STS_ERROR;
3297: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
3292: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
3293: 'Leaving '||l_api_name||':FND_API.G_EXC_ERROR Exception');
3294: END IF;
3295:
3296: x_return_status := FND_API.G_RET_STS_ERROR;
3297: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
3298: p_data => x_msg_data);
3299:
3300: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3296: x_return_status := FND_API.G_RET_STS_ERROR;
3297: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
3298: p_data => x_msg_data);
3299:
3300: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3301: IF IMPORT_DOCUMENTS_CSR%ISOPEN THEN
3302: CLOSE IMPORT_DOCUMENTS_CSR;
3303: END IF;
3304:
3306: CLOSE document_category_csr;
3307: END IF;
3308: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3309: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
3310: 'Leaving '||l_api_name||':FND_API.G_EXC_UNEXPECTED_ERROR Exception');
3311: END IF;
3312:
3313: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3314: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
3309: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
3310: 'Leaving '||l_api_name||':FND_API.G_EXC_UNEXPECTED_ERROR Exception');
3311: END IF;
3312:
3313: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3314: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
3315: p_data => x_msg_data);
3316:
3317: WHEN OTHERS THEN
3332: p_token1 => G_SQLCODE_TOKEN,
3333: p_token1_value => sqlcode,
3334: p_token2 => G_SQLERRM_TOKEN,
3335: p_token2_value => sqlerrm);
3336: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3337: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
3338: p_data => x_msg_data);
3339:
3340: END validate_import_documents;
3347: -- : Contracts should be saved to the OKC_REP_IMP_PARTIES_T table
3348: --Parameters :
3349: --IN : p_api_version IN NUMBER Required
3350: -- : p_init_msg_list IN VARCHAR2 Optional
3351: -- Default = FND_API.G_FALSE
3352: -- : p_run_id IN NUMBER Required
3353: -- Concurrent Program Request ID
3354: --OUT : x_return_status OUT VARCHAR2(1)
3355: -- : x_msg_count OUT NUMBER
3426:
3427: END IF;
3428:
3429: -- Standard call to check for call compatibility.
3430: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3431: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3432: END IF;
3433:
3434: -- Initialize message list if p_init_msg_list is set to TRUE.
3427: END IF;
3428:
3429: -- Standard call to check for call compatibility.
3430: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3431: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3432: END IF;
3433:
3434: -- Initialize message list if p_init_msg_list is set to TRUE.
3435: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3431: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3432: END IF;
3433:
3434: -- Initialize message list if p_init_msg_list is set to TRUE.
3435: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3436: FND_MSG_PUB.initialize;
3437: END IF;
3438:
3439: -- Initialize API return status to success
3436: FND_MSG_PUB.initialize;
3437: END IF;
3438:
3439: -- Initialize API return status to success
3440: x_return_status := FND_API.G_RET_STS_SUCCESS;
3441:
3442: OPEN IMPORT_PARTIES_CSR;
3443: LOOP
3444: FETCH IMPORT_PARTIES_CSR INTO l_import_parties_rec;
3645:
3646: IF (l_contract_intent IS NOT NULL ) THEN
3647:
3648: validate_contract_party(p_api_version => 1.0,
3649: p_init_msg_list => FND_API.G_FALSE,
3650: p_contract_id => l_import_parties_rec.imp_contract_id,
3651: p_party_role_code => l_party_role_code,
3652: p_party_role_txt => l_import_parties_rec.party_role_txt,
3653: p_party_id => l_party_id,
3726: --Note that in this case we do not wait until the end to populate the error table
3727: --because this time the error type is 'CONTRACT' and not 'PARTY'.
3728: --The party may still be valid by itself.
3729: l_error_msg := fnd_message.get_string(G_APP_NAME,'OKC_REP_IMP_INV_CON_TYPE');
3730: populate_import_errors(p_init_msg_list => FND_API.G_FALSE,
3731: p_api_version => 1.0,
3732: p_contract_id => l_import_parties_rec.imp_contract_id,
3733: p_error_obj_type => G_IMP_CONTRACT_ERROR,
3734: p_error_obj_id => l_import_parties_rec.imp_contract_id,
3748:
3749:
3750: --Populate the error message table
3751: IF(l_valid_flag = 'N' AND l_error_msg IS NOT NULL) THEN
3752: populate_import_errors(p_init_msg_list => FND_API.G_FALSE,
3753: p_api_version => 1.0,
3754: p_contract_id => l_import_parties_rec.imp_contract_id,
3755: p_error_obj_type => G_IMP_PARTY_ERROR,
3756: p_error_obj_id => l_import_parties_rec.imp_party_id,
3792: END IF;
3793:
3794: EXCEPTION
3795:
3796: WHEN FND_API.G_EXC_ERROR THEN
3797:
3798: IF CONTRACT_INTENT_CSR%ISOPEN THEN
3799: CLOSE CONTRACT_INTENT_CSR;
3800: END IF;
3804: END IF;
3805:
3806: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3807: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
3808: 'Leaving '||l_api_name||':FND_API.G_EXC_ERROR Exception');
3809: END IF;
3810:
3811: x_return_status := FND_API.G_RET_STS_ERROR;
3812: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
3807: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
3808: 'Leaving '||l_api_name||':FND_API.G_EXC_ERROR Exception');
3809: END IF;
3810:
3811: x_return_status := FND_API.G_RET_STS_ERROR;
3812: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
3813: p_data => x_msg_data);
3814:
3815: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3811: x_return_status := FND_API.G_RET_STS_ERROR;
3812: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
3813: p_data => x_msg_data);
3814:
3815: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3816:
3817: IF CONTRACT_INTENT_CSR%ISOPEN THEN
3818: CLOSE CONTRACT_INTENT_CSR;
3819: END IF;
3823: END IF;
3824:
3825: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3826: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
3827: 'Leaving '||l_api_name||':FND_API.G_EXC_UNEXPECTED_ERROR Exception');
3828: END IF;
3829:
3830: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3831: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
3826: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
3827: 'Leaving '||l_api_name||':FND_API.G_EXC_UNEXPECTED_ERROR Exception');
3828: END IF;
3829:
3830: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3831: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
3832: p_data => x_msg_data);
3833:
3834: WHEN OTHERS THEN
3851: p_token1 => G_SQLCODE_TOKEN,
3852: p_token1_value => sqlcode,
3853: p_token2 => G_SQLERRM_TOKEN,
3854: p_token2_value => sqlerrm);
3855: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3856: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
3857: p_data => x_msg_data);
3858:
3859: END validate_import_parties;
3868: -- : Contracts should be saved to the OKC_REP_IMP_CONTRACTS_T table
3869: --Parameters :
3870: --IN : p_api_version IN NUMBER Required
3871: -- : p_init_msg_list IN VARCHAR2 Optional
3872: -- Default = FND_API.G_FALSE
3873: -- : p_run_id IN NUMBER Required
3874: -- Concurrent Program Request ID
3875: --OUT : x_return_status OUT VARCHAR2(1)
3876: -- : x_msg_count OUT NUMBER
4155:
4156: END IF;
4157:
4158: -- Standard call to check for call compatibility.
4159: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4160: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4161: END IF;
4162:
4163: -- Initialize message list if p_init_msg_list is set to TRUE.
4156: END IF;
4157:
4158: -- Standard call to check for call compatibility.
4159: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4160: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4161: END IF;
4162:
4163: -- Initialize message list if p_init_msg_list is set to TRUE.
4164: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4160: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4161: END IF;
4162:
4163: -- Initialize message list if p_init_msg_list is set to TRUE.
4164: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4165: FND_MSG_PUB.initialize;
4166: END IF;
4167:
4168: -- Initialize API return status to success
4165: FND_MSG_PUB.initialize;
4166: END IF;
4167:
4168: -- Initialize API return status to success
4169: x_return_status := FND_API.G_RET_STS_SUCCESS;
4170:
4171: OPEN IMPORT_CONTRACTS_CSR;
4172: LOOP
4173: FETCH IMPORT_CONTRACTS_CSR INTO l_import_contracts_rec;
5287:
5288:
5289: --Populate the error message table
5290: IF(l_valid_flag = 'N' AND l_error_msg IS NOT NULL) THEN
5291: populate_import_errors(p_init_msg_list => FND_API.G_FALSE,
5292: p_api_version => 1.0,
5293: p_contract_id => l_import_contracts_rec.imp_contract_id,
5294: p_error_obj_type => G_IMP_CONTRACT_ERROR,
5295: p_error_obj_id => l_import_contracts_rec.imp_contract_id,
5380:
5381:
5382: EXCEPTION
5383:
5384: WHEN FND_API.G_EXC_ERROR THEN
5385:
5386: IF CONTRACT_ID_CSR%ISOPEN THEN
5387: CLOSE CONTRACT_ID_CSR;
5388: END IF;
5436: END IF;
5437:
5438: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5439: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
5440: 'Leaving '||l_api_name||':FND_API.G_EXC_ERROR Exception');
5441: END IF;
5442:
5443: x_return_status := FND_API.G_RET_STS_ERROR;
5444: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
5439: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
5440: 'Leaving '||l_api_name||':FND_API.G_EXC_ERROR Exception');
5441: END IF;
5442:
5443: x_return_status := FND_API.G_RET_STS_ERROR;
5444: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
5445: p_data => x_msg_data);
5446:
5447: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5443: x_return_status := FND_API.G_RET_STS_ERROR;
5444: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
5445: p_data => x_msg_data);
5446:
5447: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5448: IF CONTRACT_ID_CSR%ISOPEN THEN
5449: CLOSE CONTRACT_ID_CSR;
5450: END IF;
5451:
5498: END IF;
5499:
5500: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5501: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
5502: 'Leaving '||l_api_name||':FND_API.G_EXC_UNEXPECTED_ERROR Exception');
5503: END IF;
5504:
5505: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5506: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
5501: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
5502: 'Leaving '||l_api_name||':FND_API.G_EXC_UNEXPECTED_ERROR Exception');
5503: END IF;
5504:
5505: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5506: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
5507: p_data => x_msg_data);
5508:
5509: WHEN OTHERS THEN
5571: p_token1 => G_SQLCODE_TOKEN,
5572: p_token1_value => sqlcode,
5573: p_token2 => G_SQLERRM_TOKEN,
5574: p_token2_value => sqlerrm);
5575: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5576: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
5577: p_data => x_msg_data);
5578:
5579: END validate_import_contracts;
5596: -- : OKC_REP_IMP_PARTIES_T, and OKC_REP_IMP_DOCUMENTS_T
5597: --Parameters :
5598: --IN : p_api_version IN NUMBER Required
5599: -- : p_init_msg_list IN VARCHAR2 Optional
5600: -- Default = FND_API.G_FALSE
5601: -- : p_commit IN VARCHAR2 Optional
5602: -- Default = FND_API.G_FALSE
5603: -- : p_run_id IN NUMBER Required
5604: -- Concurrent Program Request ID
5598: --IN : p_api_version IN NUMBER Required
5599: -- : p_init_msg_list IN VARCHAR2 Optional
5600: -- Default = FND_API.G_FALSE
5601: -- : p_commit IN VARCHAR2 Optional
5602: -- Default = FND_API.G_FALSE
5603: -- : p_run_id IN NUMBER Required
5604: -- Concurrent Program Request ID
5605: --OUT : x_return_status OUT VARCHAR2(1)
5606: -- : x_msg_count OUT NUMBER
5659:
5660: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_insert_batch_size = ' || l_insert_batch_size);
5661:
5662: -- Standard call to check for call compatibility.
5663: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
5664: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5665: END IF;
5666:
5667: -- Initialize message list if p_init_msg_list is set to TRUE.
5660: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_insert_batch_size = ' || l_insert_batch_size);
5661:
5662: -- Standard call to check for call compatibility.
5663: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
5664: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5665: END IF;
5666:
5667: -- Initialize message list if p_init_msg_list is set to TRUE.
5668: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5664: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5665: END IF;
5666:
5667: -- Initialize message list if p_init_msg_list is set to TRUE.
5668: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5669: FND_MSG_PUB.initialize;
5670: END IF;
5671:
5672: -- Initialize API return status to success
5669: FND_MSG_PUB.initialize;
5670: END IF;
5671:
5672: -- Initialize API return status to success
5673: x_return_status := FND_API.G_RET_STS_SUCCESS;
5674:
5675: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5676: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
5677: 'Inserting contracts into production table...');
6076:
6077: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** EXCEPTION WHEN OTHERS *****');
6078: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
6079:
6080: x_return_status := FND_API.G_RET_STS_ERROR;
6081: x_number_inserted := 0;
6082:
6083: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
6084: p_data => x_msg_data);
6132: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** END insert_prod_data *****');
6133: FND_FILE.PUT_LINE(FND_FILE.LOG, '********************************');
6134: EXCEPTION
6135:
6136: WHEN FND_API.G_EXC_ERROR THEN
6137:
6138: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** EXCEPTION WHEN WHEN FND_API.G_EXC_ERROR *****');
6139: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
6140:
6134: EXCEPTION
6135:
6136: WHEN FND_API.G_EXC_ERROR THEN
6137:
6138: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** EXCEPTION WHEN WHEN FND_API.G_EXC_ERROR *****');
6139: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
6140:
6141: --close cursors
6142: IF (number_inserted_csr%ISOPEN) THEN
6146: CLOSE contract_id_cur ;
6147: END IF;
6148:
6149:
6150: x_return_status := FND_API.G_RET_STS_ERROR;
6151: x_number_inserted := 0;
6152:
6153: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
6154: p_data => x_msg_data);
6152:
6153: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
6154: p_data => x_msg_data);
6155:
6156: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6157:
6158: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** EXCEPTION WHEN FND_API.G_EXC_UNEXPECTED_ERROR *****');
6159: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
6160:
6154: p_data => x_msg_data);
6155:
6156: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6157:
6158: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** EXCEPTION WHEN FND_API.G_EXC_UNEXPECTED_ERROR *****');
6159: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
6160:
6161: --close cursors
6162: IF (number_inserted_csr%ISOPEN) THEN
6166: CLOSE contract_id_cur ;
6167: END IF;
6168:
6169:
6170: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6171: x_number_inserted := 0;
6172:
6173: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
6174: p_data => x_msg_data);
6192: p_token1 => G_SQLCODE_TOKEN,
6193: p_token1_value => sqlcode,
6194: p_token2 => G_SQLERRM_TOKEN,
6195: p_token2_value => sqlerrm);
6196: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6197: x_number_inserted := 0;
6198:
6199: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
6200: p_data => x_msg_data);
6212: -- : Contracts should be saved to the OKC_REP_IMP_CONTRACTS_T table
6213: --Parameters :
6214: --IN : p_api_version IN NUMBER Required
6215: -- : p_init_msg_list IN VARCHAR2 Optional
6216: -- Default = FND_API.G_FALSE
6217: -- : p_run_id IN NUMBER Required
6218: -- Concurrent Program Request ID
6219: --OUT : x_return_status OUT VARCHAR2(1)
6220: -- : x_msg_count OUT NUMBER
6245:
6246: END IF;
6247:
6248: -- Standard call to check for call compatibility.
6249: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
6250: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6251: END IF;
6252:
6253: -- Initialize message list if p_init_msg_list is set to TRUE.
6246: END IF;
6247:
6248: -- Standard call to check for call compatibility.
6249: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
6250: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6251: END IF;
6252:
6253: -- Initialize message list if p_init_msg_list is set to TRUE.
6254: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6250: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6251: END IF;
6252:
6253: -- Initialize message list if p_init_msg_list is set to TRUE.
6254: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6255: FND_MSG_PUB.initialize;
6256: END IF;
6257:
6258: -- Initialize API return status to success
6255: FND_MSG_PUB.initialize;
6256: END IF;
6257:
6258: -- Initialize API return status to success
6259: x_return_status := FND_API.G_RET_STS_SUCCESS;
6260:
6261: --We need to validate documents and parties before we validate contract headers
6262: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6263: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
6264: 'Validating Contract Documents...');
6265: END IF;
6266:
6267: validate_import_documents(p_api_version => 1.0,
6268: p_init_msg_list => FND_API.G_FALSE,
6269: p_run_id => p_run_id,
6270: x_return_status => x_return_status,
6271: x_msg_count => x_msg_count,
6272: x_msg_data => x_msg_data);
6276: 'Validating Contract Parties...');
6277: END IF;
6278:
6279: validate_import_parties(p_api_version => 1.0,
6280: p_init_msg_list => FND_API.G_FALSE,
6281: p_run_id => p_run_id,
6282: x_return_status => x_return_status,
6283: x_msg_count => x_msg_count,
6284: x_msg_data => x_msg_data);
6289: 'Validating Party Contacts...');
6290: END IF;
6291:
6292: validate_import_contacts(p_api_version => 1.0,
6293: p_init_msg_list => FND_API.G_FALSE,
6294: p_run_id => p_run_id,
6295: x_return_status => x_return_status,
6296: x_msg_count => x_msg_count,
6297: x_msg_data => x_msg_data);
6301: 'Validating Contract risks...');
6302: END IF;
6303:
6304: validate_import_risks(p_api_version => 1.0,
6305: p_init_msg_list => FND_API.G_FALSE,
6306: p_run_id => p_run_id,
6307: x_return_status => x_return_status,
6308: x_msg_count => x_msg_count,
6309: x_msg_data => x_msg_data);
6313: 'Validating Contract Headers...');
6314: END IF;
6315:
6316: validate_import_contracts(p_api_version => 1.0,
6317: p_init_msg_list => FND_API.G_FALSE,
6318: p_run_id => p_run_id,
6319: p_call_source => p_call_source,
6320: x_return_status => x_return_status,
6321: x_msg_count => x_msg_count,
6328: IF p_validate_only = 'N' THEN
6329:
6330:
6331: insert_prod_data(p_api_version => 1.0,
6332: p_init_msg_list => FND_API.G_FALSE,
6333: p_commit => FND_API.G_TRUE,
6334: p_run_id => p_run_id,
6335: x_return_status => x_return_status,
6336: x_msg_count => x_msg_count,
6329:
6330:
6331: insert_prod_data(p_api_version => 1.0,
6332: p_init_msg_list => FND_API.G_FALSE,
6333: p_commit => FND_API.G_TRUE,
6334: p_run_id => p_run_id,
6335: x_return_status => x_return_status,
6336: x_msg_count => x_msg_count,
6337: x_msg_data => x_msg_data,
6338: x_number_inserted => x_number_inserted);
6339: END IF;
6340:
6341: EXCEPTION
6342: WHEN FND_API.G_EXC_ERROR THEN
6343: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6344: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
6345: 'Leaving '||l_api_name||':FND_API.G_EXC_ERROR Exception');
6346: END IF;
6341: EXCEPTION
6342: WHEN FND_API.G_EXC_ERROR THEN
6343: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6344: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
6345: 'Leaving '||l_api_name||':FND_API.G_EXC_ERROR Exception');
6346: END IF;
6347:
6348: x_return_status := FND_API.G_RET_STS_ERROR;
6349:
6344: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
6345: 'Leaving '||l_api_name||':FND_API.G_EXC_ERROR Exception');
6346: END IF;
6347:
6348: x_return_status := FND_API.G_RET_STS_ERROR;
6349:
6350: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
6351: p_data => x_msg_data);
6352:
6349:
6350: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
6351: p_data => x_msg_data);
6352:
6353: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6354: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6355: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
6356: 'Leaving '||l_api_name||':FND_API.G_EXC_UNEXPECTED_ERROR Exception');
6357: END IF;
6352:
6353: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6354: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6355: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
6356: 'Leaving '||l_api_name||':FND_API.G_EXC_UNEXPECTED_ERROR Exception');
6357: END IF;
6358:
6359: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6360:
6355: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
6356: 'Leaving '||l_api_name||':FND_API.G_EXC_UNEXPECTED_ERROR Exception');
6357: END IF;
6358:
6359: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6360:
6361: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
6362: p_data => x_msg_data);
6363:
6372: p_token1 => G_SQLCODE_TOKEN,
6373: p_token1_value => sqlcode,
6374: p_token2 => G_SQLERRM_TOKEN,
6375: p_token2_value => sqlerrm);
6376: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6377:
6378: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
6379: p_data => x_msg_data);
6380:
6394: --Pre-reqs : None
6395: --Parameters :
6396: --IN : p_api_version IN NUMBER Required
6397: -- : p_init_msg_list IN VARCHAR2 Optional
6398: -- Default = FND_API.G_FALSE
6399: -- : p_commit IN VARCHAR2 Optional
6400: -- Default = FND_API.G_FALSE
6401: -- : p_contract_id IN NUMBER Required
6402: -- Contract ID that the error is from
6396: --IN : p_api_version IN NUMBER Required
6397: -- : p_init_msg_list IN VARCHAR2 Optional
6398: -- Default = FND_API.G_FALSE
6399: -- : p_commit IN VARCHAR2 Optional
6400: -- Default = FND_API.G_FALSE
6401: -- : p_contract_id IN NUMBER Required
6402: -- Contract ID that the error is from
6403: -- : p_imp_document_id IN NUMBER Required
6404: -- okc_rep_imp_documents_t.imp_document_id
6461:
6462: END IF;
6463:
6464: -- Standard call to check for call compatibility.
6465: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
6466: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6467: END IF;
6468:
6469: -- Initialize message list if p_init_msg_list is set to TRUE.
6462: END IF;
6463:
6464: -- Standard call to check for call compatibility.
6465: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
6466: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6467: END IF;
6468:
6469: -- Initialize message list if p_init_msg_list is set to TRUE.
6470: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6466: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6467: END IF;
6468:
6469: -- Initialize message list if p_init_msg_list is set to TRUE.
6470: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6471: FND_MSG_PUB.initialize;
6472: END IF;
6473:
6474: -- Initialize API return status to success
6471: FND_MSG_PUB.initialize;
6472: END IF;
6473:
6474: -- Initialize API return status to success
6475: x_return_status := FND_API.G_RET_STS_SUCCESS;
6476:
6477: -- Delete contract
6478: okc_rep_contract_process_pvt.delete_contract(
6479: p_api_version => 1.0,
6476:
6477: -- Delete contract
6478: okc_rep_contract_process_pvt.delete_contract(
6479: p_api_version => 1.0,
6480: p_init_msg_list => FND_API.G_FALSE,
6481: p_commit => FND_API.G_FALSE,
6482: p_contract_id => p_contract_id,
6483: x_msg_data => x_msg_data,
6484: x_msg_count => x_msg_count,
6477: -- Delete contract
6478: okc_rep_contract_process_pvt.delete_contract(
6479: p_api_version => 1.0,
6480: p_init_msg_list => FND_API.G_FALSE,
6481: p_commit => FND_API.G_FALSE,
6482: p_contract_id => p_contract_id,
6483: x_msg_data => x_msg_data,
6484: x_msg_count => x_msg_count,
6485: x_return_status => x_return_status);
6500: 'Updated valid_flag to N');
6501: END IF;
6502:
6503: -- Insert error message
6504: populate_import_errors(p_init_msg_list => FND_API.G_FALSE,
6505: p_api_version => 1.0,
6506: p_contract_id => p_contract_id,
6507: p_error_obj_type => G_IMP_DOCUMENT_ERROR,
6508: p_error_obj_id => p_imp_document_id,
6520: 'Inserted error into okc_rep_imp_errors_t');
6521: END IF;
6522:
6523:
6524: IF(p_commit = FND_API.G_TRUE) THEN
6525: COMMIT;
6526: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6527: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT,G_MODULE||l_api_name,
6528: 'Committed transaction');
6537: END IF;
6538:
6539: EXCEPTION
6540:
6541: WHEN FND_API.G_EXC_ERROR THEN
6542: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6543: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
6544: 'Leaving delete_import_contract:FND_API.G_EXC_ERROR Exception');
6545: END IF;
6540:
6541: WHEN FND_API.G_EXC_ERROR THEN
6542: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6543: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
6544: 'Leaving delete_import_contract:FND_API.G_EXC_ERROR Exception');
6545: END IF;
6546:
6547: x_return_status := FND_API.G_RET_STS_ERROR;
6548: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
6543: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
6544: 'Leaving delete_import_contract:FND_API.G_EXC_ERROR Exception');
6545: END IF;
6546:
6547: x_return_status := FND_API.G_RET_STS_ERROR;
6548: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
6549: p_data => x_msg_data);
6550:
6551: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6547: x_return_status := FND_API.G_RET_STS_ERROR;
6548: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
6549: p_data => x_msg_data);
6550:
6551: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6552:
6553: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6554: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
6555: 'Leaving delete_import_contract:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
6551: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6552:
6553: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6554: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
6555: 'Leaving delete_import_contract:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
6556: END IF;
6557:
6558: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6559: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
6554: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
6555: 'Leaving delete_import_contract:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
6556: END IF;
6557:
6558: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6559: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
6560: p_data => x_msg_data);
6561:
6562: WHEN OTHERS THEN
6571: p_token1 => G_SQLCODE_TOKEN,
6572: p_token1_value => sqlcode,
6573: p_token2 => G_SQLERRM_TOKEN,
6574: p_token2_value => sqlerrm);
6575: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6576: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
6577: p_data => x_msg_data);
6578:
6579: END delete_import_contract;
6588: --Pre-reqs : None.
6589: --Parameters :
6590: --IN : p_api_version IN NUMBER Required
6591: -- : p_init_msg_list IN VARCHAR2 Optional
6592: -- Default = FND_API.G_FALSE
6593: -- : p_string IN VARCHAR2 Required
6594: --OUT : if p_string contains comma, return "p_string"
6595: -- otherwise return p_string
6596: -- End of comments
6661: --Pre-reqs : None.
6662: --Parameters :
6663: --IN : p_api_version IN NUMBER Required
6664: -- : p_init_msg_list IN VARCHAR2 Optional
6665: -- Default = FND_API.G_FALSE
6666: -- : p_imp_contract_id IN NUMBER Required
6667: -- okc_rep_imp_contracts_t.imp_contract_id
6668: -- End of comments
6669: FUNCTION get_csv_error_string(
6916: --Pre-reqs : None.
6917: --Parameters :
6918: --IN : p_api_version IN NUMBER Required
6919: -- : p_init_msg_list IN VARCHAR2 Optional
6920: -- Default = FND_API.G_FALSE
6921: -- End of comments
6922: FUNCTION get_csv_header_string(
6923: p_api_version IN NUMBER,
6924: p_init_msg_list IN VARCHAR2
7000: --Pre-reqs : None.
7001: --Parameters :
7002: --IN : p_api_version IN NUMBER Required
7003: -- : p_init_msg_list IN VARCHAR2 Optional
7004: -- Default = FND_API.G_FALSE
7005: -- : p_document_id IN NUMBER Required
7006: -- Id of the contract
7007: -- : p_external_party_id IN NUMBER Required
7008: -- External party ID
7052: 'p_external_party_id is: ' || to_char(p_external_party_id));
7053: END IF;
7054:
7055: -- Standard call to check for call compatibility.
7056: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
7057: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7058: END IF;
7059: -- Initialize message list if p_init_msg_list is set to TRUE.
7060: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7053: END IF;
7054:
7055: -- Standard call to check for call compatibility.
7056: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
7057: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7058: END IF;
7059: -- Initialize message list if p_init_msg_list is set to TRUE.
7060: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7061: FND_MSG_PUB.initialize;
7056: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
7057: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7058: END IF;
7059: -- Initialize message list if p_init_msg_list is set to TRUE.
7060: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7061: FND_MSG_PUB.initialize;
7062: END IF;
7063:
7064: -- Initialize API return status to success
7061: FND_MSG_PUB.initialize;
7062: END IF;
7063:
7064: -- Initialize API return status to success
7065: x_return_status := FND_API.G_RET_STS_SUCCESS;
7066:
7067: -- Get email address of the vendor contacts.
7068: l_index := 1;
7069: FOR vendor_contact_rec IN vendor_contact_csr LOOP
7093: END IF;
7094:
7095:
7096: EXCEPTION
7097: WHEN FND_API.G_EXC_ERROR THEN
7098: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7099: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
7100: g_module || l_api_name,
7101: 'Leaving get_vendor_userlist:FND_API.G_EXC_ERROR Exception');
7097: WHEN FND_API.G_EXC_ERROR THEN
7098: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7099: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
7100: g_module || l_api_name,
7101: 'Leaving get_vendor_userlist:FND_API.G_EXC_ERROR Exception');
7102: END IF;
7103: --close cursor
7104: IF (vendor_contact_csr%ISOPEN) THEN
7105: CLOSE vendor_contact_csr ;
7106: END IF;
7107: IF (vendor_email_csr%ISOPEN) THEN
7108: CLOSE vendor_email_csr ;
7109: END IF;
7110: x_return_status := FND_API.G_RET_STS_ERROR;
7111: FND_MSG_PUB.Count_And_Get(
7112: p_count => x_msg_count,
7113: p_data => x_msg_data
7114: );
7112: p_count => x_msg_count,
7113: p_data => x_msg_data
7114: );
7115:
7116: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7117: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7118: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
7119: g_module || l_api_name,
7120: 'Leaving get_vendor_userlist:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
7116: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7117: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7118: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
7119: g_module || l_api_name,
7120: 'Leaving get_vendor_userlist:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
7121: END IF;
7122: --close cursor
7123: IF (vendor_contact_csr%ISOPEN) THEN
7124: CLOSE vendor_contact_csr ;
7125: END IF;
7126: IF (vendor_email_csr%ISOPEN) THEN
7127: CLOSE vendor_email_csr ;
7128: END IF;
7129: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7130: FND_MSG_PUB.Count_And_Get(
7131: p_count => x_msg_count,
7132: p_data => x_msg_data
7133: );
7150: p_token1 => G_SQLCODE_TOKEN,
7151: p_token1_value => sqlcode,
7152: p_token2 => G_SQLERRM_TOKEN,
7153: p_token2_value => sqlerrm);
7154: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7155: FND_MSG_PUB.Count_And_Get(
7156: p_count => x_msg_count,
7157: p_data => x_msg_data
7158: );
7165: --Pre-reqs : None.
7166: --Parameters :
7167: --IN : p_api_version IN NUMBER Required
7168: -- : p_init_msg_list IN VARCHAR2 Optional
7169: -- Default = FND_API.G_FALSE
7170: -- : p_document_id IN NUMBER Required
7171: -- Id of the contract
7172: -- : p_external_party_id IN NUMBER Required
7173: -- External party ID
7220: 'p_external_party_id is: ' || to_char(p_external_party_id));
7221: END IF;
7222:
7223: -- Standard call to check for call compatibility.
7224: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
7225: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7226: END IF;
7227: -- Initialize message list if p_init_msg_list is set to TRUE.
7228: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7221: END IF;
7222:
7223: -- Standard call to check for call compatibility.
7224: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
7225: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7226: END IF;
7227: -- Initialize message list if p_init_msg_list is set to TRUE.
7228: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7229: FND_MSG_PUB.initialize;
7224: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
7225: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7226: END IF;
7227: -- Initialize message list if p_init_msg_list is set to TRUE.
7228: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7229: FND_MSG_PUB.initialize;
7230: END IF;
7231:
7232: -- Initialize API return status to success
7229: FND_MSG_PUB.initialize;
7230: END IF;
7231:
7232: -- Initialize API return status to success
7233: x_return_status := FND_API.G_RET_STS_SUCCESS;
7234:
7235: l_index := 1;
7236: FOR tca_contact_rec IN tca_contact_csr LOOP
7237:
7260: END IF;
7261:
7262:
7263: EXCEPTION
7264: WHEN FND_API.G_EXC_ERROR THEN
7265: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7266: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
7267: g_module || l_api_name,
7268: 'Leaving get_customer_userlist:FND_API.G_EXC_ERROR Exception');
7264: WHEN FND_API.G_EXC_ERROR THEN
7265: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7266: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
7267: g_module || l_api_name,
7268: 'Leaving get_customer_userlist:FND_API.G_EXC_ERROR Exception');
7269: END IF;
7270: IF (tca_contact_csr%ISOPEN) THEN
7271: CLOSE tca_contact_csr ;
7272: END IF;
7272: END IF;
7273: IF (tca_email_csr%ISOPEN) THEN
7274: CLOSE tca_email_csr ;
7275: END IF;
7276: x_return_status := FND_API.G_RET_STS_ERROR;
7277: FND_MSG_PUB.Count_And_Get(
7278: p_count => x_msg_count,
7279: p_data => x_msg_data
7280: );
7278: p_count => x_msg_count,
7279: p_data => x_msg_data
7280: );
7281:
7282: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7283: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7284: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
7285: g_module || l_api_name,
7286: 'Leaving get_customer_userlist:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
7282: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7283: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7284: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
7285: g_module || l_api_name,
7286: 'Leaving get_customer_userlist:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
7287: END IF;
7288: IF (tca_contact_csr%ISOPEN) THEN
7289: CLOSE tca_contact_csr ;
7290: END IF;
7290: END IF;
7291: IF (tca_email_csr%ISOPEN) THEN
7292: CLOSE tca_email_csr ;
7293: END IF;
7294: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7295: FND_MSG_PUB.Count_And_Get(
7296: p_count => x_msg_count,
7297: p_data => x_msg_data
7298: );
7314: p_token1 => G_SQLCODE_TOKEN,
7315: p_token1_value => sqlcode,
7316: p_token2 => G_SQLERRM_TOKEN,
7317: p_token2_value => sqlerrm);
7318: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7319: FND_MSG_PUB.Count_And_Get(
7320: p_count => x_msg_count,
7321: p_data => x_msg_data
7322: );
7330: --Pre-reqs : None.
7331: --Parameters :
7332: --IN : p_api_version IN NUMBER Required
7333: -- : p_init_msg_list IN VARCHAR2 Optional
7334: -- Default = FND_API.G_FALSE
7335: -- : p_document_id IN NUMBER Required
7336: -- Id of the contract
7337: -- : p_document_type IN VARCHAR2 Required
7338: -- Contract type.
7378: 'p_external_party_role is: ' || to_char(p_external_party_role));
7379: END IF;
7380:
7381: -- Standard call to check for call compatibility.
7382: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
7383: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7384: END IF;
7385: -- Initialize message list if p_init_msg_list is set to TRUE.
7386: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7379: END IF;
7380:
7381: -- Standard call to check for call compatibility.
7382: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
7383: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7384: END IF;
7385: -- Initialize message list if p_init_msg_list is set to TRUE.
7386: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7387: FND_MSG_PUB.initialize;
7382: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
7383: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7384: END IF;
7385: -- Initialize message list if p_init_msg_list is set to TRUE.
7386: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7387: FND_MSG_PUB.initialize;
7388: END IF;
7389:
7390: -- Initialize API return status to success
7387: FND_MSG_PUB.initialize;
7388: END IF;
7389:
7390: -- Initialize API return status to success
7391: x_return_status := FND_API.G_RET_STS_SUCCESS;
7392: if (p_external_party_role = G_PARTY_ROLE_SUPPLIER) THEN
7393: get_vendor_userlist(
7394: p_api_version => p_api_version,
7395: p_init_msg_list => p_init_msg_list,
7422: END IF;
7423:
7424:
7425: EXCEPTION
7426: WHEN FND_API.G_EXC_ERROR THEN
7427: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7428: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
7429: g_module || l_api_name,
7430: 'Leaving get_external_userlist:FND_API.G_EXC_ERROR Exception');
7426: WHEN FND_API.G_EXC_ERROR THEN
7427: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7428: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
7429: g_module || l_api_name,
7430: 'Leaving get_external_userlist:FND_API.G_EXC_ERROR Exception');
7431: END IF;
7432: x_return_status := FND_API.G_RET_STS_ERROR;
7433: FND_MSG_PUB.Count_And_Get(
7434: p_count => x_msg_count,
7428: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
7429: g_module || l_api_name,
7430: 'Leaving get_external_userlist:FND_API.G_EXC_ERROR Exception');
7431: END IF;
7432: x_return_status := FND_API.G_RET_STS_ERROR;
7433: FND_MSG_PUB.Count_And_Get(
7434: p_count => x_msg_count,
7435: p_data => x_msg_data
7436: );
7434: p_count => x_msg_count,
7435: p_data => x_msg_data
7436: );
7437:
7438: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7439: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7440: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
7441: g_module || l_api_name,
7442: 'Leaving get_external_userlist:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
7438: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7439: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7440: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
7441: g_module || l_api_name,
7442: 'Leaving get_external_userlist:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
7443: END IF;
7444: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7445: FND_MSG_PUB.Count_And_Get(
7446: p_count => x_msg_count,
7440: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
7441: g_module || l_api_name,
7442: 'Leaving get_external_userlist:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
7443: END IF;
7444: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7445: FND_MSG_PUB.Count_And_Get(
7446: p_count => x_msg_count,
7447: p_data => x_msg_data
7448: );
7458: p_token1 => G_SQLCODE_TOKEN,
7459: p_token1_value => sqlcode,
7460: p_token2 => G_SQLERRM_TOKEN,
7461: p_token2_value => sqlerrm);
7462: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7463: FND_MSG_PUB.Count_And_Get(
7464: p_count => x_msg_count,
7465: p_data => x_msg_data
7466: );
7477: --Pre-reqs : None.
7478: --Parameters :
7479: --IN : p_api_version IN NUMBER Required
7480: -- : p_init_msg_list IN VARCHAR2 Optional
7481: -- Default = FND_API.G_FALSE
7482: -- : p_doc_id IN NUMBER Required
7483: -- Id of the contract
7484: -- : p_validation_string IN VARCHAR2 Optional
7485: -- Validation string
7527: END IF;
7528:
7529: l_api_version := 1.0;
7530: l_api_name := 'ok_to_commit';
7531: l_ok_to_commit := FND_API.G_FALSE;
7532:
7533:
7534: -- Standard call to check for call compatibility.
7535: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
7531: l_ok_to_commit := FND_API.G_FALSE;
7532:
7533:
7534: -- Standard call to check for call compatibility.
7535: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
7536: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7537: END IF;
7538:
7539: -- Initialize message list if p_init_msg_list is set to TRUE.
7532:
7533:
7534: -- Standard call to check for call compatibility.
7535: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
7536: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7537: END IF;
7538:
7539: -- Initialize message list if p_init_msg_list is set to TRUE.
7540: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7536: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7537: END IF;
7538:
7539: -- Initialize message list if p_init_msg_list is set to TRUE.
7540: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7541: FND_MSG_PUB.initialize;
7542: END IF;
7543:
7544: -- Initialize API return status to success
7541: FND_MSG_PUB.initialize;
7542: END IF;
7543:
7544: -- Initialize API return status to success
7545: x_return_status := FND_API.G_RET_STS_SUCCESS;
7546:
7547: -- If p_validation_string is NULL, check only the header record. Otherwise check contract
7548: -- status as well.
7549: IF (p_validation_string is NULL) THEN
7553: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7554: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
7555: 'Contract not found');
7556: END IF;
7557: l_ok_to_commit := FND_API.G_FALSE;
7558: CLOSE l_contract_exist_csr;
7559: ELSE
7560: -- Update the CONTRACT_LAST_UPDATE_DATE and CONTRACT_LAST_UPDATE_BY columns
7561: -- No need to updated these columns. These are updated upon View Contract.
7562: -- UPDATE okc_rep_contracts_all
7563: -- SET CONTRACT_LAST_UPDATE_DATE = sysdate,
7564: -- CONTRACT_LAST_UPDATED_BY = FND_GLOBAL.user_id()
7565: -- WHERE contract_id = p_doc_id;
7566: l_ok_to_commit := FND_API.G_TRUE;
7567: CLOSE l_contract_exist_csr;
7568: END IF; -- (l_contract_exist_csr%NOTFOUND)
7569: ELSE
7570: OPEN l_contract_updatable_csr;
7573: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7574: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
7575: 'Contract not found');
7576: END IF;
7577: l_ok_to_commit := FND_API.G_FALSE;
7578: CLOSE l_contract_updatable_csr;
7579: ELSE
7580: -- Update the CONTRACT_LAST_UPDATE_DATE and CONTRACT_LAST_UPDATE_BY columns
7581: -- No need to updated these columns. These are updated upon View Contract.
7582: -- UPDATE okc_rep_contracts_all
7583: -- SET CONTRACT_LAST_UPDATE_DATE = sysdate,
7584: -- CONTRACT_LAST_UPDATED_BY = FND_GLOBAL.user_id()
7585: -- WHERE contract_id = p_doc_id;
7586: l_ok_to_commit := FND_API.G_TRUE;
7587: CLOSE l_contract_updatable_csr;
7588: END IF; -- (l_contract_updatable_csr%NOTFOUND)
7589: END IF; -- (p_validation_string is NULL)
7590: -- Standard call to get message count and if count is 1, get message info.
7611: END IF;
7612: IF (l_contract_updatable_csr%ISOPEN) THEN
7613: CLOSE l_contract_updatable_csr ;
7614: END IF;
7615: x_return_status := FND_API.G_RET_STS_ERROR;
7616: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
7617: p_msg_name => G_UNEXPECTED_ERROR,
7618: p_token1 => G_SQLCODE_TOKEN,
7619: p_token1_value => sqlcode,
7916: -- Call AP API to create a vendor contact as per user entered information
7917: AP_VENDOR_PUB_PKG.create_vendor_contact(
7918: p_api_version => 1.0,
7919: p_vendor_contact_rec => l_vendor_contact_rec,
7920: p_commit => FND_API.G_FALSE,
7921: x_vendor_contact_id => x_vendor_contact_id,
7922: x_return_status => l_return_status,
7923: x_msg_count => l_msg_count,
7924: x_msg_data => l_msg_data,
8000: -- Standard Start of API savepoint
8001: SAVEPOINT sync_con_header_attributes;
8002:
8003: -- Standard call to check for call compatibility.
8004: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
8005: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8006: END IF;
8007:
8008: -- Initialize message list if p_init_msg_list is set to TRUE.
8001: SAVEPOINT sync_con_header_attributes;
8002:
8003: -- Standard call to check for call compatibility.
8004: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
8005: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8006: END IF;
8007:
8008: -- Initialize message list if p_init_msg_list is set to TRUE.
8009: IF FND_API.to_Boolean( p_init_msg_list ) THEN
8005: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8006: END IF;
8007:
8008: -- Initialize message list if p_init_msg_list is set to TRUE.
8009: IF FND_API.to_Boolean( p_init_msg_list ) THEN
8010: FND_MSG_PUB.initialize;
8011: END IF;
8012:
8013: -- Initialize API return status to success
8010: FND_MSG_PUB.initialize;
8011: END IF;
8012:
8013: -- Initialize API return status to success
8014: x_return_status := FND_API.G_RET_STS_SUCCESS;
8015:
8016: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8017: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
8018: 'Entering OKC_REP_UTIL_PVT.sync_con_header_attributes');
8145: p_token1 => G_SQLCODE_TOKEN,
8146: p_token1_value => sqlcode,
8147: p_token2 => G_SQLERRM_TOKEN,
8148: p_token2_value => sqlerrm);
8149: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8150: FND_MSG_PUB.Count_And_Get(
8151: p_count => x_msg_count,
8152: p_data => x_msg_data
8153: );
8416: -- : Contacts should be saved to the okc_rep_imp_contacts_t table
8417: --Parameters :
8418: --IN : p_api_version IN NUMBER Required
8419: -- : p_init_msg_list IN VARCHAR2 Optional
8420: -- Default = FND_API.G_FALSE
8421: -- : p_run_id IN NUMBER Required
8422: -- import Run Id
8423: --OUT : x_return_status OUT VARCHAR2(1)
8424: -- : x_msg_count OUT NUMBER
8495:
8496: END IF;
8497:
8498: -- Standard call to check for call compatibility.
8499: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
8500: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8501: END IF;
8502:
8503: -- Initialize message list if p_init_msg_list is set to TRUE.
8496: END IF;
8497:
8498: -- Standard call to check for call compatibility.
8499: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
8500: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8501: END IF;
8502:
8503: -- Initialize message list if p_init_msg_list is set to TRUE.
8504: IF FND_API.to_Boolean( p_init_msg_list ) THEN
8500: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8501: END IF;
8502:
8503: -- Initialize message list if p_init_msg_list is set to TRUE.
8504: IF FND_API.to_Boolean( p_init_msg_list ) THEN
8505: FND_MSG_PUB.initialize;
8506: END IF;
8507:
8508: -- Initialize API return status to success
8505: FND_MSG_PUB.initialize;
8506: END IF;
8507:
8508: -- Initialize API return status to success
8509: x_return_status := FND_API.G_RET_STS_SUCCESS;
8510:
8511: OPEN IMPORT_CONTACTS_CSR;
8512: LOOP
8513: FETCH IMPORT_CONTACTS_CSR INTO l_import_contacts_rec;
8716: --Now call validate_party_contact API
8717: IF (l_valid_flag = 'Y') THEN
8718:
8719: validate_party_contact(p_api_version => 1.0,
8720: p_init_msg_list => FND_API.G_FALSE,
8721: p_contract_id => l_import_contacts_rec.imp_contract_id,
8722: p_party_role_code => l_party_role_code,
8723: p_party_id => l_party_id,
8724: p_contact_id => l_import_contacts_rec.contact_id,
8761:
8762:
8763: --Populate the error message table
8764: IF(l_valid_flag = 'N' AND l_error_msg IS NOT NULL) THEN
8765: populate_import_errors(p_init_msg_list => FND_API.G_FALSE,
8766: p_api_version => 1.0,
8767: p_contract_id => l_import_contacts_rec.imp_contract_id,
8768: p_error_obj_type => G_IMP_CONTACTS_ERROR,
8769: p_error_obj_id => l_import_contacts_rec.imp_party_id,
8805: END IF;
8806:
8807: EXCEPTION
8808:
8809: WHEN FND_API.G_EXC_ERROR THEN
8810:
8811: IF IMPORT_CONTACTS_CSR%ISOPEN THEN
8812: CLOSE IMPORT_CONTACTS_CSR;
8813: END IF;
8821: END IF;
8822:
8823: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8824: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
8825: 'Leaving '||l_api_name||':FND_API.G_EXC_ERROR Exception');
8826: END IF;
8827:
8828: x_return_status := FND_API.G_RET_STS_ERROR;
8829: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
8824: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
8825: 'Leaving '||l_api_name||':FND_API.G_EXC_ERROR Exception');
8826: END IF;
8827:
8828: x_return_status := FND_API.G_RET_STS_ERROR;
8829: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
8830: p_data => x_msg_data);
8831:
8832: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8828: x_return_status := FND_API.G_RET_STS_ERROR;
8829: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
8830: p_data => x_msg_data);
8831:
8832: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8833:
8834: IF IMPORT_CONTACTS_CSR%ISOPEN THEN
8835: CLOSE IMPORT_CONTACTS_CSR;
8836: END IF;
8844: END IF;
8845:
8846: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8847: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
8848: 'Leaving '||l_api_name||':FND_API.G_EXC_UNEXPECTED_ERROR Exception');
8849: END IF;
8850:
8851: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8852: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
8847: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
8848: 'Leaving '||l_api_name||':FND_API.G_EXC_UNEXPECTED_ERROR Exception');
8849: END IF;
8850:
8851: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8852: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
8853: p_data => x_msg_data);
8854:
8855: WHEN OTHERS THEN
8876: p_token1 => G_SQLCODE_TOKEN,
8877: p_token1_value => sqlcode,
8878: p_token2 => G_SQLERRM_TOKEN,
8879: p_token2_value => sqlerrm);
8880: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8881: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
8882: p_data => x_msg_data);
8883:
8884: END validate_import_contacts;
8892: -- : Contacts should be saved to the okc_rep_imp_risks_t table
8893: --Parameters :
8894: --IN : p_api_version IN NUMBER Required
8895: -- : p_init_msg_list IN VARCHAR2 Optional
8896: -- Default = FND_API.G_FALSE
8897: -- : p_run_id IN NUMBER Required
8898: -- import Run Id
8899: --OUT : x_return_status OUT VARCHAR2(1)
8900: -- : x_msg_count OUT NUMBER
8977:
8978: END IF;
8979:
8980: -- Standard call to check for call compatibility.
8981: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
8982: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8983: END IF;
8984:
8985: -- Initialize message list if p_init_msg_list is set to TRUE.
8978: END IF;
8979:
8980: -- Standard call to check for call compatibility.
8981: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
8982: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8983: END IF;
8984:
8985: -- Initialize message list if p_init_msg_list is set to TRUE.
8986: IF FND_API.to_Boolean( p_init_msg_list ) THEN
8982: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8983: END IF;
8984:
8985: -- Initialize message list if p_init_msg_list is set to TRUE.
8986: IF FND_API.to_Boolean( p_init_msg_list ) THEN
8987: FND_MSG_PUB.initialize;
8988: END IF;
8989:
8990: -- Initialize API return status to success
8987: FND_MSG_PUB.initialize;
8988: END IF;
8989:
8990: -- Initialize API return status to success
8991: x_return_status := FND_API.G_RET_STS_SUCCESS;
8992:
8993: OPEN IMPORT_RISKS_CSR;
8994: LOOP
8995: FETCH IMPORT_RISKS_CSR INTO l_import_risks_rec;
9140: CLOSE c_get_contract_details_csr;
9141:
9142: --Populate the error message table
9143: IF(l_valid_flag = 'N' AND l_error_msg IS NOT NULL) THEN
9144: populate_import_errors(p_init_msg_list => FND_API.G_FALSE,
9145: p_api_version => 1.0,
9146: p_contract_id => l_import_risks_rec.imp_contract_id,
9147: p_error_obj_type => G_IMP_RISKS_ERROR,
9148: p_error_obj_id => l_risk_event_id,
9190: END IF;
9191:
9192: EXCEPTION
9193:
9194: WHEN FND_API.G_EXC_ERROR THEN
9195:
9196: IF IMPORT_RISKS_CSR%ISOPEN THEN
9197: CLOSE IMPORT_RISKS_CSR;
9198: END IF;
9210: END IF;
9211:
9212: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9213: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
9214: 'Leaving '||l_api_name||':FND_API.G_EXC_ERROR Exception');
9215: END IF;
9216:
9217: x_return_status := FND_API.G_RET_STS_ERROR;
9218: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
9213: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
9214: 'Leaving '||l_api_name||':FND_API.G_EXC_ERROR Exception');
9215: END IF;
9216:
9217: x_return_status := FND_API.G_RET_STS_ERROR;
9218: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
9219: p_data => x_msg_data);
9220:
9221: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9217: x_return_status := FND_API.G_RET_STS_ERROR;
9218: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
9219: p_data => x_msg_data);
9220:
9221: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9222:
9223: IF IMPORT_RISKS_CSR%ISOPEN THEN
9224: CLOSE IMPORT_RISKS_CSR;
9225: END IF;
9237: END IF;
9238:
9239: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9240: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
9241: 'Leaving '||l_api_name||':FND_API.G_EXC_UNEXPECTED_ERROR Exception');
9242: END IF;
9243:
9244: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9245: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
9240: fnd_log.string(FND_LOG.LEVEL_EXCEPTION, g_module || l_api_name,
9241: 'Leaving '||l_api_name||':FND_API.G_EXC_UNEXPECTED_ERROR Exception');
9242: END IF;
9243:
9244: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9245: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
9246: p_data => x_msg_data);
9247:
9248: WHEN OTHERS THEN
9273: p_token1 => G_SQLCODE_TOKEN,
9274: p_token1_value => sqlcode,
9275: p_token2 => G_SQLERRM_TOKEN,
9276: p_token2_value => sqlerrm);
9277: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9278: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
9279: p_data => x_msg_data);
9280:
9281: END validate_import_risks;