[Home] [Help]
59: 'Contract Id is: ' || p_contract_id);
60: END IF;
61: l_api_name := 'submit_contract_for_approval';
62: l_api_version := 1.0;
63: -- Standard Start of API savepoint
64: SAVEPOINT submit_contract_PVT;
65: -- Standard call to check for call compatibility.
66: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
67: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
61: l_api_name := 'submit_contract_for_approval';
62: l_api_version := 1.0;
63: -- Standard Start of API savepoint
64: SAVEPOINT submit_contract_PVT;
65: -- Standard call to check for call compatibility.
66: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
67: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
68: END IF;
69: -- Initialize message list if p_init_msg_list is set to TRUE.
224: WHERE contract_id=p_contract_id;
225:
226: COMMIT WORK;
227:
228: -- Standard call to get message count and if count is 1, get message info.
229: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
230:
231: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
232: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
333: 'Contract Id is: ' || to_char(p_contract_id));
334: END IF;
335: l_api_name := 'delete_contacts';
336: l_api_version := 1.0;
337: -- Standard Start of API savepoint
338: SAVEPOINT delete_contacts_PVT;
339: -- Standard call to check for call compatibility.
340: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
341: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
335: l_api_name := 'delete_contacts';
336: l_api_version := 1.0;
337: -- Standard Start of API savepoint
338: SAVEPOINT delete_contacts_PVT;
339: -- Standard call to check for call compatibility.
340: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
341: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
342: END IF;
343: -- Initialize message list if p_init_msg_list is set to TRUE.
351: -- Delete the records. The records are locked in the delete_contract API.
352: DELETE FROM OKC_REP_PARTY_CONTACTS
353: WHERE CONTRACT_ID = p_CONTRACT_ID;
354:
355: -- Standard check of p_commit
356: IF FND_API.To_Boolean( p_commit ) THEN
357: COMMIT WORK;
358: END IF;
359:
356: IF FND_API.To_Boolean( p_commit ) THEN
357: COMMIT WORK;
358: END IF;
359:
360: -- Standard call to get message count and if count is 1, get message info.
361: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
362:
363: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
364: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
452: 'Contract Id is: ' || p_contract_id);
453: END IF;
454: l_api_name := 'delete_parties';
455: l_api_version := 1.0;
456: -- Standard Start of API savepoint
457: SAVEPOINT delete_parties_PVT;
458: -- Standard call to check for call compatibility.
459: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
454: l_api_name := 'delete_parties';
455: l_api_version := 1.0;
456: -- Standard Start of API savepoint
457: SAVEPOINT delete_parties_PVT;
458: -- Standard call to check for call compatibility.
459: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
461: END IF;
462: -- Initialize message list if p_init_msg_list is set to TRUE.
470: -- Delete the records. The records are locked in the delete_contract API.
471: DELETE FROM OKC_REP_CONTRACT_PARTIES
472: WHERE CONTRACT_ID = p_CONTRACT_ID;
473:
474: -- Standard check of p_commit
475: IF FND_API.To_Boolean( p_commit ) THEN
476: COMMIT WORK;
477: END IF;
478:
475: IF FND_API.To_Boolean( p_commit ) THEN
476: COMMIT WORK;
477: END IF;
478:
479: -- Standard call to get message count and if count is 1, get message info.
480: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
481:
482: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
483: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
579: 'Contract Id is: ' || p_contract_id);
580: END IF;
581: l_api_name := 'delete_risks';
582: l_api_version := 1.0;
583: -- Standard Start of API savepoint
584: SAVEPOINT delete_risks_PVT;
585: -- Standard call to check for call compatibility.
586: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
587: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
581: l_api_name := 'delete_risks';
582: l_api_version := 1.0;
583: -- Standard Start of API savepoint
584: SAVEPOINT delete_risks_PVT;
585: -- Standard call to check for call compatibility.
586: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
587: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
588: END IF;
589: -- Initialize message list if p_init_msg_list is set to TRUE.
615: AND BUSINESS_DOCUMENT_ID = p_CONTRACT_ID
616: AND BUSINESS_DOCUMENT_VERSION = contract_rec.contract_version_num;
617: -- Close cursor
618: CLOSE contract_csr;
619: -- Standard check of p_commit
620: IF FND_API.To_Boolean( p_commit ) THEN
621: COMMIT WORK;
622: END IF;
623:
620: IF FND_API.To_Boolean( p_commit ) THEN
621: COMMIT WORK;
622: END IF;
623:
624: -- Standard call to get message count and if count is 1, get message info.
625: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
626:
627: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
628: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
728: 'Contract Id is: ' || p_contract_id);
729: END IF;
730: l_api_name := 'delete_related_contracts';
731: l_api_version := 1.0;
732: -- Standard Start of API savepoint
733: SAVEPOINT delete_related_contracts_PVT;
734: -- Standard call to check for call compatibility.
735: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
736: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
730: l_api_name := 'delete_related_contracts';
731: l_api_version := 1.0;
732: -- Standard Start of API savepoint
733: SAVEPOINT delete_related_contracts_PVT;
734: -- Standard call to check for call compatibility.
735: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
736: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
737: END IF;
738: -- Initialize message list if p_init_msg_list is set to TRUE.
746: -- Delete the records. The records are locked in the delete_related_contracts API.
747: DELETE FROM OKC_REP_CONTRACT_RELS
748: WHERE CONTRACT_ID = p_CONTRACT_ID;
749:
750: -- Standard check of p_commit
751: IF FND_API.To_Boolean( p_commit ) THEN
752: COMMIT WORK;
753: END IF;
754:
751: IF FND_API.To_Boolean( p_commit ) THEN
752: COMMIT WORK;
753: END IF;
754:
755: -- Standard call to get message count and if count is 1, get message info.
756: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
757:
758: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
759: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
865: 'Contract Id is: ' || p_contract_id);
866: END IF;
867: l_api_name := 'delete_ACL';
868: l_api_version := 1.0;
869: -- Standard Start of API savepoint
870: SAVEPOINT delete_ACL_PVT;
871: -- Standard call to check for call compatibility.
872: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
873: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
867: l_api_name := 'delete_ACL';
868: l_api_version := 1.0;
869: -- Standard Start of API savepoint
870: SAVEPOINT delete_ACL_PVT;
871: -- Standard call to check for call compatibility.
872: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
873: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
874: END IF;
875: -- Initialize message list if p_init_msg_list is set to TRUE.
917: RAISE OKC_API.G_EXCEPTION_ERROR;
918: END IF;
919: --------------------------------------------------------
920: END LOOP;
921: -- Standard check of p_commit
922: IF FND_API.To_Boolean( p_commit ) THEN
923: COMMIT WORK;
924: END IF;
925:
922: IF FND_API.To_Boolean( p_commit ) THEN
923: COMMIT WORK;
924: END IF;
925:
926: -- Standard call to get message count and if count is 1, get message info.
927: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
928:
929: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
930: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
1034: 'Contract Version is: ' || to_char(p_contract_version));
1035: END IF;
1036: l_api_name := 'delete_status_history';
1037: l_api_version := 1.0;
1038: -- Standard Start of API savepoint
1039: SAVEPOINT delete_status_history_PVT;
1040: -- Standard call to check for call compatibility.
1041: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1042: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1036: l_api_name := 'delete_status_history';
1037: l_api_version := 1.0;
1038: -- Standard Start of API savepoint
1039: SAVEPOINT delete_status_history_PVT;
1040: -- Standard call to check for call compatibility.
1041: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1042: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1043: END IF;
1044: -- Initialize message list if p_init_msg_list is set to TRUE.
1053: DELETE FROM OKC_REP_CON_STATUS_HIST
1054: WHERE CONTRACT_ID = p_CONTRACT_ID
1055: AND CONTRACT_VERSION_NUM = p_contract_version;
1056:
1057: -- Standard check of p_commit
1058: IF FND_API.To_Boolean( p_commit ) THEN
1059: COMMIT WORK;
1060: END IF;
1061:
1058: IF FND_API.To_Boolean( p_commit ) THEN
1059: COMMIT WORK;
1060: END IF;
1061:
1062: -- Standard call to get message count and if count is 1, get message info.
1063: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1064:
1065: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1066: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
1163: 'Contract Version is: ' || to_char(p_contract_version));
1164: END IF;
1165: l_api_name := 'delete_approval_history';
1166: l_api_version := 1.0;
1167: -- Standard Start of API savepoint
1168: SAVEPOINT delete_approval_history_PVT;
1169: -- Standard call to check for call compatibility.
1170: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1171: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1165: l_api_name := 'delete_approval_history';
1166: l_api_version := 1.0;
1167: -- Standard Start of API savepoint
1168: SAVEPOINT delete_approval_history_PVT;
1169: -- Standard call to check for call compatibility.
1170: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1171: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1172: END IF;
1173: -- Initialize message list if p_init_msg_list is set to TRUE.
1182: DELETE FROM OKC_REP_CON_APPROVALS
1183: WHERE CONTRACT_ID = p_CONTRACT_ID
1184: AND CONTRACT_VERSION_NUM = p_contract_version;
1185:
1186: -- Standard check of p_commit
1187: IF FND_API.To_Boolean( p_commit ) THEN
1188: COMMIT WORK;
1189: END IF;
1190:
1187: IF FND_API.To_Boolean( p_commit ) THEN
1188: COMMIT WORK;
1189: END IF;
1190:
1191: -- Standard call to get message count and if count is 1, get message info.
1192: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1193:
1194: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1195: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
1286: 'Contract Id is: ' || p_contract_id);
1287: END IF;
1288: l_api_name := 'delete_bookmarks';
1289: l_api_version := 1.0;
1290: -- Standard Start of API savepoint
1291: SAVEPOINT delete_bookmarks_PVT;
1292: -- Standard call to check for call compatibility.
1293: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1294: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1288: l_api_name := 'delete_bookmarks';
1289: l_api_version := 1.0;
1290: -- Standard Start of API savepoint
1291: SAVEPOINT delete_bookmarks_PVT;
1292: -- Standard call to check for call compatibility.
1293: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1294: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1295: END IF;
1296: -- Initialize message list if p_init_msg_list is set to TRUE.
1308: WHERE OBJECT_TYPE = p_contract_type
1309: AND OBJECT_ID = p_CONTRACT_ID
1310: AND BOOKMARK_TYPE_CODE = G_CONTRACT_BOOKMARK_TYPE;
1311:
1312: -- Standard check of p_commit
1313: IF FND_API.To_Boolean( p_commit ) THEN
1314: COMMIT WORK;
1315: END IF;
1316:
1313: IF FND_API.To_Boolean( p_commit ) THEN
1314: COMMIT WORK;
1315: END IF;
1316:
1317: -- Standard call to get message count and if count is 1, get message info.
1318: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1319:
1320: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1321: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
1632: 'Contract Id is: ' || p_contract_id);
1633: END IF;
1634: l_api_name := 'delete_contract';
1635: l_api_version := 1.0;
1636: -- Standard Start of API savepoint
1637: SAVEPOINT delete_contract_PVT;
1638: -- Standard call to check for call compatibility.
1639: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1640: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1634: l_api_name := 'delete_contract';
1635: l_api_version := 1.0;
1636: -- Standard Start of API savepoint
1637: SAVEPOINT delete_contract_PVT;
1638: -- Standard call to check for call compatibility.
1639: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1640: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1641: END IF;
1642: -- Initialize message list if p_init_msg_list is set to TRUE.
2230: WHERE contract_id = p_contract_id
2231: AND contract_version_num = l_prev_version;
2232: END IF; -- (contract_rec.contract_version_num > 1)
2233:
2234: -- Standard check of p_commit
2235: IF FND_API.To_Boolean( p_commit ) THEN
2236: COMMIT WORK;
2237: END IF;
2238:
2236: COMMIT WORK;
2237: END IF;
2238:
2239: CLOSE contract_csr;
2240: -- Standard call to get message count and if count is 1, get message info.
2241: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
2242:
2243: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2244: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
2360: 'Target Contract Id is: ' || to_char(p_target_contract_id));
2361: END IF;
2362: l_api_name := 'copy_contacts';
2363: l_api_version := 1.0;
2364: -- Standard Start of API savepoint
2365: SAVEPOINT copy_contacts_PVT;
2366: -- Standard call to check for call compatibility.
2367: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2368: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2362: l_api_name := 'copy_contacts';
2363: l_api_version := 1.0;
2364: -- Standard Start of API savepoint
2365: SAVEPOINT copy_contacts_PVT;
2366: -- Standard call to check for call compatibility.
2367: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2368: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2369: END IF;
2370: -- Initialize message list if p_init_msg_list is set to TRUE.
2418: l_last_updated_by,
2419: l_last_update_date,
2420: l_last_update_login);
2421: END LOOP;
2422: -- Standard check of p_commit
2423: IF FND_API.To_Boolean( p_commit ) THEN
2424: COMMIT WORK;
2425: END IF;
2426:
2423: IF FND_API.To_Boolean( p_commit ) THEN
2424: COMMIT WORK;
2425: END IF;
2426:
2427: -- Standard call to get message count and if count is 1, get message info.
2428: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
2429:
2430: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2431: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
2535: 'Target Contract Id is: ' || to_char(p_target_contract_id));
2536: END IF;
2537: l_api_name := 'copy_parties';
2538: l_api_version := 1.0;
2539: -- Standard Start of API savepoint
2540: SAVEPOINT copy_parties_PVT;
2541: -- Standard call to check for call compatibility.
2542: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2543: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2537: l_api_name := 'copy_parties';
2538: l_api_version := 1.0;
2539: -- Standard Start of API savepoint
2540: SAVEPOINT copy_parties_PVT;
2541: -- Standard call to check for call compatibility.
2542: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2543: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2544: END IF;
2545: -- Initialize message list if p_init_msg_list is set to TRUE.
2588: l_last_updated_by,
2589: l_last_update_date,
2590: l_last_update_login);
2591: END LOOP;
2592: -- Standard check of p_commit
2593: IF FND_API.To_Boolean( p_commit ) THEN
2594: COMMIT WORK;
2595: END IF;
2596:
2593: IF FND_API.To_Boolean( p_commit ) THEN
2594: COMMIT WORK;
2595: END IF;
2596:
2597: -- Standard call to get message count and if count is 1, get message info.
2598: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
2599:
2600: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2601: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
2716: 'Target Contract Id is: ' || to_char(p_target_contract_id));
2717: END IF;
2718: l_api_name := 'copy_risks';
2719: l_api_version := 1.0;
2720: -- Standard Start of API savepoint
2721: SAVEPOINT copy_risks_PVT;
2722: -- Standard call to check for call compatibility.
2723: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2724: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2718: l_api_name := 'copy_risks';
2719: l_api_version := 1.0;
2720: -- Standard Start of API savepoint
2721: SAVEPOINT copy_risks_PVT;
2722: -- Standard call to check for call compatibility.
2723: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2724: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2725: END IF;
2726: -- Initialize message list if p_init_msg_list is set to TRUE.
2815: l_last_updated_by,
2816: l_last_update_date,
2817: l_last_update_login);
2818: END LOOP;
2819: -- Standard check of p_commit
2820: IF FND_API.To_Boolean( p_commit ) THEN
2821: COMMIT WORK;
2822: END IF;
2823:
2820: IF FND_API.To_Boolean( p_commit ) THEN
2821: COMMIT WORK;
2822: END IF;
2823:
2824: -- Standard call to get message count and if count is 1, get message info.
2825: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
2826:
2827: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2828: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
2956: 'Target Contract Id is: ' || p_target_contract_id);
2957: END IF;
2958: l_api_name := 'copy_ACL';
2959: l_api_version := 1.0;
2960: -- Standard Start of API savepoint
2961: SAVEPOINT copy_ACL_PVT;
2962: -- Standard call to check for call compatibility.
2963: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2964: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2958: l_api_name := 'copy_ACL';
2959: l_api_version := 1.0;
2960: -- Standard Start of API savepoint
2961: SAVEPOINT copy_ACL_PVT;
2962: -- Standard call to check for call compatibility.
2963: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2964: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2965: END IF;
2966: -- Initialize message list if p_init_msg_list is set to TRUE.
3015: RAISE OKC_API.G_EXCEPTION_ERROR;
3016: END IF;
3017: --------------------------------------------------------
3018: END LOOP;
3019: -- Standard check of p_commit
3020: IF FND_API.To_Boolean( p_commit ) THEN
3021: COMMIT WORK;
3022: END IF;
3023:
3020: IF FND_API.To_Boolean( p_commit ) THEN
3021: COMMIT WORK;
3022: END IF;
3023:
3024: -- Standard call to get message count and if count is 1, get message info.
3025: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
3026:
3027: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3028: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
3154: 'Target Contract Number is: ' || p_target_contract_number);
3155: END IF;
3156: l_api_name := 'copy_contract_details';
3157: l_api_version := 1.0;
3158: -- Standard Start of API savepoint
3159: SAVEPOINT copy_contract_details_PVT;
3160: -- Standard call to check for call compatibility.
3161: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3162: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3156: l_api_name := 'copy_contract_details';
3157: l_api_version := 1.0;
3158: -- Standard Start of API savepoint
3159: SAVEPOINT copy_contract_details_PVT;
3160: -- Standard call to check for call compatibility.
3161: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3162: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3163: END IF;
3164: -- Initialize message list if p_init_msg_list is set to TRUE.
3403: -- close open cursors
3404: CLOSE source_contract_csr;
3405: CLOSE party_csr;
3406:
3407: -- Standard check of p_commit
3408: IF FND_API.To_Boolean( p_commit ) THEN
3409: COMMIT WORK;
3410: END IF;
3411:
3408: IF FND_API.To_Boolean( p_commit ) THEN
3409: COMMIT WORK;
3410: END IF;
3411:
3412: -- Standard call to get message count and if count is 1, get message info.
3413: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
3414:
3415: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3416: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
3544: 'Contract Id is: ' || p_contract_id);
3545: END IF;
3546: l_api_name := 'version_contract_details';
3547: l_api_version := 1.0;
3548: -- Standard Start of API savepoint
3549: SAVEPOINT version_contract_details_PVT;
3550: -- Standard call to check for call compatibility.
3551: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3552: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3546: l_api_name := 'version_contract_details';
3547: l_api_version := 1.0;
3548: -- Standard Start of API savepoint
3549: SAVEPOINT version_contract_details_PVT;
3550: -- Standard call to check for call compatibility.
3551: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3552: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3553: END IF;
3554: -- Initialize message list if p_init_msg_list is set to TRUE.
3899: -- Delete the header record
3900: DELETE FROM OKC_REP_CONTRACTS_ALL
3901: WHERE contract_id=p_contract_id;
3902:
3903: -- Standard check of p_commit
3904: IF FND_API.To_Boolean( p_commit ) THEN
3905: COMMIT WORK;
3906: END IF;
3907:
3904: IF FND_API.To_Boolean( p_commit ) THEN
3905: COMMIT WORK;
3906: END IF;
3907:
3908: -- Standard call to get message count and if count is 1, get message info.
3909: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
3910:
3911: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3912: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
4039: 'Contract Id is: ' || p_contract_id);
4040: END IF;
4041: l_api_name := 'sign_contacts';
4042: l_api_version := 1.0;
4043: -- Standard Start of API savepoint
4044: SAVEPOINT sign_contract_PVT;
4045: -- Standard call to check for call compatibility.
4046: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4047: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4041: l_api_name := 'sign_contacts';
4042: l_api_version := 1.0;
4043: -- Standard Start of API savepoint
4044: SAVEPOINT sign_contract_PVT;
4045: -- Standard call to check for call compatibility.
4046: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4047: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4048: END IF;
4049: -- Initialize message list if p_init_msg_list is set to TRUE.
4316: UPDATE okc_rep_contracts_all
4317: SET latest_signed_ver_number = contract_rec.contract_version_num
4318: WHERE contract_id = p_contract_id;
4319: CLOSE contract_csr;
4320: -- Standard check of p_commit
4321: IF FND_API.To_Boolean( p_commit ) THEN
4322: COMMIT WORK;
4323: END IF;
4324:
4321: IF FND_API.To_Boolean( p_commit ) THEN
4322: COMMIT WORK;
4323: END IF;
4324:
4325: -- Standard call to get message count and if count is 1, get message info.
4326: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
4327:
4328: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4329: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
4457: 'Termination date is: ' || to_char(p_termination_date));
4458: END IF;
4459: l_api_name := 'terminate_contacts';
4460: l_api_version := 1.0;
4461: -- Standard Start of API savepoint
4462: SAVEPOINT terminate_contract_PVT;
4463: -- Standard call to check for call compatibility.
4464: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4465: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4459: l_api_name := 'terminate_contacts';
4460: l_api_version := 1.0;
4461: -- Standard Start of API savepoint
4462: SAVEPOINT terminate_contract_PVT;
4463: -- Standard call to check for call compatibility.
4464: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4465: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4466: END IF;
4467: -- Initialize message list if p_init_msg_list is set to TRUE.
4619: END IF; -- contract_rec.termination_date = null
4620:
4621: CLOSE contract_csr;
4622:
4623: -- Standard check of p_commit
4624: IF FND_API.To_Boolean( p_commit ) THEN
4625: COMMIT WORK;
4626: END IF;
4627:
4624: IF FND_API.To_Boolean( p_commit ) THEN
4625: COMMIT WORK;
4626: END IF;
4627:
4628: -- Standard call to get message count and if count is 1, get message info.
4629: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
4630:
4631: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4632: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
4805:
4806: l_message_token_con_number := 'CONTRACT_NUMBER';
4807: l_message_token_con_version := 'CONTRACT_VERSION';
4808:
4809: -- Standard Start of API savepoint
4810: SAVEPOINT repository_notifier_pvt;
4811:
4812: -- Standard call to check for call compatibility.
4813: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4808:
4809: -- Standard Start of API savepoint
4810: SAVEPOINT repository_notifier_pvt;
4811:
4812: -- Standard call to check for call compatibility.
4813: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4814: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4815: END IF;
4816:
4935: itemtype => l_item_type,
4936: itemkey => l_item_key,
4937: process => l_process_name);
4938:
4939: --set standard parameter
4940: wf_engine.SetItemUserKey (
4941: itemtype => l_item_type,
4942: itemkey => l_item_key,
4943: userkey => l_item_key);
5044: END IF;
5045:
5046: END IF;
5047:
5048: -- Standard call to get message count and if count is 1, get message info.
5049: FND_MSG_PUB.Count_And_Get(
5050: p_count => x_msg_count,
5051: p_data => x_msg_data );
5052:
5186: END IF;
5187: l_api_name := 'cancel_approval';
5188: l_api_version := 1.0;
5189:
5190: -- Standard Start of API savepoint
5191: SAVEPOINT submit_contract_PVT;
5192:
5193: -- Standard call to check for call compatibility.
5194: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
5189:
5190: -- Standard Start of API savepoint
5191: SAVEPOINT submit_contract_PVT;
5192:
5193: -- Standard call to check for call compatibility.
5194: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
5195: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5196: END IF;
5197:
5313: --------------------------------------------------------
5314:
5315: COMMIT WORK;
5316:
5317: -- Standard call to get message count and if count is 1, get message info.
5318: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
5319:
5320: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5321: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
5470: END IF;
5471: l_api_name := 'get_next_contract_number';
5472: l_api_version := 1.0;
5473:
5474: -- Standard Start of API savepoint
5475: SAVEPOINT submit_contract_PVT;
5476:
5477: -- Standard call to check for call compatibility.
5478: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
5473:
5474: -- Standard Start of API savepoint
5475: SAVEPOINT submit_contract_PVT;
5476:
5477: -- Standard call to check for call compatibility.
5478: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
5479: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5480: END IF;
5481:
5580: x_contract_number := p_contract_number;
5581: END IF;
5582:
5583:
5584: -- Standard call to get message count and if count is 1, get message info.
5585: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
5586:
5587: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5588: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,