263: EXCEPTION
264: WHEN table_not_found THEN
265: NULL;
266: WHEN OTHERS THEN
267: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_ERROR ) THEN
268: FND_MESSAGE.set_name('OKE','OKE_VERS_SQL_ERROR');
269: FND_MESSAGE.set_token('NUM', (-1) * sqlcode);
270: FND_MESSAGE.set_token('TABLE', p_table_name);
271: FND_MSG_PUB.add;
267: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_ERROR ) THEN
268: FND_MESSAGE.set_name('OKE','OKE_VERS_SQL_ERROR');
269: FND_MESSAGE.set_token('NUM', (-1) * sqlcode);
270: FND_MESSAGE.set_token('TABLE', p_table_name);
271: FND_MSG_PUB.add;
272: END IF;
273: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
274: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,statement);
275: END IF;
463: EXCEPTION
464: WHEN table_not_found THEN
465: NULL;
466: WHEN OTHERS THEN
467: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_ERROR ) THEN
468: FND_MESSAGE.set_name('OKE','OKE_VERS_SQL_ERROR');
469: FND_MESSAGE.set_token('NUM', sqlcode);
470: FND_MESSAGE.set_token('TABLE', p_table_name);
471: FND_MSG_PUB.add;
467: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_ERROR ) THEN
468: FND_MESSAGE.set_name('OKE','OKE_VERS_SQL_ERROR');
469: FND_MESSAGE.set_token('NUM', sqlcode);
470: FND_MESSAGE.set_token('TABLE', p_table_name);
471: FND_MSG_PUB.add;
472: END IF;
473: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
474: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,statement);
475: END IF;
537: --
538: -- Initialize the message table if requested.
539: --
540: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
541: FND_MSG_PUB.initialize;
542: END IF;
543:
544: --
545: -- Get the current version number from OKC
559:
560: IF cvmv%notfound THEN
561: CLOSE cvmv;
562: ROLLBACK TO version_contract_pvt;
563: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_ERROR ) THEN
564: FND_MESSAGE.set_name('OKE','OKE_VERS_INVALID_CONTRACT');
565: FND_MSG_PUB.add;
566: END IF;
567: x_return_status := FND_API.G_RET_STS_ERROR;
561: CLOSE cvmv;
562: ROLLBACK TO version_contract_pvt;
563: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_ERROR ) THEN
564: FND_MESSAGE.set_name('OKE','OKE_VERS_INVALID_CONTRACT');
565: FND_MSG_PUB.add;
566: END IF;
567: x_return_status := FND_API.G_RET_STS_ERROR;
568: RAISE FND_API.G_EXC_ERROR;
569: END IF;
678: --
679: -- Standard call to get message count and if count is 1, get message
680: -- info
681: --
682: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
683: , p_data => x_msg_data );
684:
685: TimeStamp('version_contract() >>');
686:
687: EXCEPTION
688: WHEN FND_API.G_EXC_ERROR THEN
689: ROLLBACK TO version_contract_pvt;
690: x_return_status := FND_API.G_RET_STS_ERROR;
691: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
692: , p_data => x_msg_data );
693:
694: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
695: ROLLBACK TO version_contract_pvt;
693:
694: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
695: ROLLBACK TO version_contract_pvt;
696: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
697: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
698: , p_data => x_msg_data );
699:
700: WHEN OTHERS THEN
701: ROLLBACK TO version_contract_pvt;
699:
700: WHEN OTHERS THEN
701: ROLLBACK TO version_contract_pvt;
702: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
703: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
704: FND_MSG_PUB.add_exc_msg
705: ( p_pkg_name => G_PKG_NAME
706: , p_procedure_name => 'VERSION_CONTRACT(' || progress || ')');
707:
700: WHEN OTHERS THEN
701: ROLLBACK TO version_contract_pvt;
702: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
703: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
704: FND_MSG_PUB.add_exc_msg
705: ( p_pkg_name => G_PKG_NAME
706: , p_procedure_name => 'VERSION_CONTRACT(' || progress || ')');
707:
708: END IF;
705: ( p_pkg_name => G_PKG_NAME
706: , p_procedure_name => 'VERSION_CONTRACT(' || progress || ')');
707:
708: END IF;
709: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
710: , p_data => x_msg_data );
711:
712:
713: END version_contract;
770: --
771: -- Initialize the message table if requested.
772: --
773: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
774: FND_MSG_PUB.initialize;
775: END IF;
776: /* bug#4451971
777: --
778: -- First version the current state of the contract
847: --
848: -- Standard call to get message count and if count is 1, get message
849: -- info
850: --
851: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
852: , p_data => x_msg_data );
853:
854: TimeStamp('restore_contract_version() >>');
855:
856: EXCEPTION
857: WHEN FND_API.G_EXC_ERROR THEN
858: ROLLBACK TO rstr_contract_version_pvt;
859: x_return_status := FND_API.G_RET_STS_ERROR;
860: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
861: , p_data => x_msg_data );
862:
863: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
864: ROLLBACK TO rstr_contract_version_pvt;
862:
863: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
864: ROLLBACK TO rstr_contract_version_pvt;
865: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
866: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
867: , p_data => x_msg_data );
868:
869: WHEN OTHERS THEN
870: ROLLBACK TO rstr_contract_version_pvt;
868:
869: WHEN OTHERS THEN
870: ROLLBACK TO rstr_contract_version_pvt;
871: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
872: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
873: FND_MSG_PUB.add_exc_msg
874: ( p_pkg_name => G_PKG_NAME
875: , p_procedure_name => 'RESTORE_CONTRACT_VERSION' );
876:
869: WHEN OTHERS THEN
870: ROLLBACK TO rstr_contract_version_pvt;
871: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
872: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
873: FND_MSG_PUB.add_exc_msg
874: ( p_pkg_name => G_PKG_NAME
875: , p_procedure_name => 'RESTORE_CONTRACT_VERSION' );
876:
877: END IF;
874: ( p_pkg_name => G_PKG_NAME
875: , p_procedure_name => 'RESTORE_CONTRACT_VERSION' );
876:
877: END IF;
878: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
879: , p_data => x_msg_data );
880:
881:
882: END restore_contract_version;