384: G_stage := 'CREATE_AWARD_BEGINS' ;
385: init_message_stack ;
386:
387: savepoint CREATE_AWARD_SAVE ;
388: X_return_status := FND_API.G_RET_STS_SUCCESS;
389:
390: G_stage := 'FND_API.Compatible_API_Call' ;
391:
392: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
386:
387: savepoint CREATE_AWARD_SAVE ;
388: X_return_status := FND_API.G_RET_STS_SUCCESS;
389:
390: G_stage := 'FND_API.Compatible_API_Call' ;
391:
392: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
393: p_api_version_number ,
394: l_api_name ,
388: X_return_status := FND_API.G_RET_STS_SUCCESS;
389:
390: G_stage := 'FND_API.Compatible_API_Call' ;
391:
392: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
393: p_api_version_number ,
394: l_api_name ,
395: G_PKG_NAME )
396: THEN
393: p_api_version_number ,
394: l_api_name ,
395: G_PKG_NAME )
396: THEN
397: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
398: RAISE e_ver_mismatch ;
399: END IF ;
400:
401: --=============================
582: set_return_status(X_return_status, 'B' ) ;
583: X_msg_count := G_msg_count ;
584: X_msg_data := G_msg_data ;
585:
586: WHEN fnd_api.g_exc_error THEN
587: ROLLBACK TO create_award_save ;
588: set_return_status(X_return_status, 'B' ) ;
589: X_msg_count := G_msg_count ;
590: X_msg_data := G_msg_data ;
589: X_msg_count := G_msg_count ;
590: X_msg_data := G_msg_data ;
591: WHEN others THEN
592: ROLLBACK TO create_award_save;
593: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
594: FND_MSG_PUB.add_exc_msg
595: ( p_pkg_name => G_PKG_NAME
596: , p_procedure_name => l_api_name );
597: FND_MSG_PUB.Count_And_Get
801: G_stage := 'CREATE_INSTALLMENT_BEGINS' ;
802: init_message_stack ;
803:
804: savepoint CREATE_INSTALLMENT_SAVE ;
805: X_return_status := FND_API.G_RET_STS_SUCCESS;
806:
807: G_stage := 'FND_API.Compatible_API_Call' ;
808:
809: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
803:
804: savepoint CREATE_INSTALLMENT_SAVE ;
805: X_return_status := FND_API.G_RET_STS_SUCCESS;
806:
807: G_stage := 'FND_API.Compatible_API_Call' ;
808:
809: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
810: p_api_version_number ,
811: l_api_name ,
805: X_return_status := FND_API.G_RET_STS_SUCCESS;
806:
807: G_stage := 'FND_API.Compatible_API_Call' ;
808:
809: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
810: p_api_version_number ,
811: l_api_name ,
812: G_PKG_NAME )
813: THEN
810: p_api_version_number ,
811: l_api_name ,
812: G_PKG_NAME )
813: THEN
814: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
815: RAISE e_ver_mismatch ;
816: END IF ;
817:
818: G_stage := 'SET RECORD PARAM' ;
889: x_msg_data := G_msg_data ;
890:
891: WHEN OTHERS THEN
892: ROLLBACK TO CREATE_INSTALLMENT_SAVE ;
893: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
894:
895: FND_MSG_PUB.add_exc_msg
896: ( p_pkg_name => G_PKG_NAME
897: , p_procedure_name => l_api_name );
1076: -- ============================
1077:
1078: savepoint add_funding_pub;
1079:
1080: G_stage := 'FND_API.Compatible_API_Call' ;
1081:
1082: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
1083: p_api_version_number ,
1084: l_api_name ,
1078: savepoint add_funding_pub;
1079:
1080: G_stage := 'FND_API.Compatible_API_Call' ;
1081:
1082: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
1083: p_api_version_number ,
1084: l_api_name ,
1085: G_PKG_NAME )
1086: THEN
1083: p_api_version_number ,
1084: l_api_name ,
1085: G_PKG_NAME )
1086: THEN
1087: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1088: RAISE e_ver_mismatch ;
1089: END IF ;
1090:
1091: G_stage := 'gms_award_pub.add_funding' ;
1120:
1121:
1122: WHEN OTHERS THEN
1123: ROLLBACK TO add_funding_pub;
1124: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1125:
1126: FND_MSG_PUB.add_exc_msg
1127: ( P_PKG_NAME => G_PKG_NAME
1128: , P_PROCEDURE_NAME => l_api_name );