132: END IF;
133:
134:
135: IF FND_MSG_PUB.check_msg_level( NVL(G_msg_count,0) ) THEN
136: Raise FND_API.G_EXC_ERROR ;
137: ELSE
138: NULL ;
139: END IF;
140:
151: begin
152:
153: IF p_type = 'B' THEN
154:
155: IF NVL(X_return_status, FND_API.G_RET_STS_SUCCESS) = FND_API.G_RET_STS_SUCCESS then
156: X_return_status := FND_API.G_RET_STS_ERROR ;
157: END IF ;
158: ELSE
159:
152:
153: IF p_type = 'B' THEN
154:
155: IF NVL(X_return_status, FND_API.G_RET_STS_SUCCESS) = FND_API.G_RET_STS_SUCCESS then
156: X_return_status := FND_API.G_RET_STS_ERROR ;
157: END IF ;
158: ELSE
159:
160: IF NVL(X_return_status, FND_API.G_RET_STS_SUCCESS) = FND_API.G_RET_STS_SUCCESS then
156: X_return_status := FND_API.G_RET_STS_ERROR ;
157: END IF ;
158: ELSE
159:
160: IF NVL(X_return_status, FND_API.G_RET_STS_SUCCESS) = FND_API.G_RET_STS_SUCCESS then
161: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
162: END IF ;
163: END IF ;
164: END set_return_status ;
157: END IF ;
158: ELSE
159:
160: IF NVL(X_return_status, FND_API.G_RET_STS_SUCCESS) = FND_API.G_RET_STS_SUCCESS then
161: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
162: END IF ;
163: END IF ;
164: END set_return_status ;
165:
643: -- ============
644: -- Initialize the return status.
645: -- ============
646:
647: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) not in
648: ( FND_API.G_RET_STS_UNEXP_ERROR, FND_API.G_RET_STS_ERROR ) THEN
649:
650: X_return_status := FND_API.G_RET_STS_SUCCESS ;
651:
644: -- Initialize the return status.
645: -- ============
646:
647: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) not in
648: ( FND_API.G_RET_STS_UNEXP_ERROR, FND_API.G_RET_STS_ERROR ) THEN
649:
650: X_return_status := FND_API.G_RET_STS_SUCCESS ;
651:
652: END IF ;
646:
647: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) not in
648: ( FND_API.G_RET_STS_UNEXP_ERROR, FND_API.G_RET_STS_ERROR ) THEN
649:
650: X_return_status := FND_API.G_RET_STS_SUCCESS ;
651:
652: END IF ;
653:
654:
674: set_return_status ( X_return_status, 'U') ;
675:
676: END IF;
677:
678: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS then
679: RAISE FND_API.G_EXC_ERROR;
680: END IF ; */
681:
682:
675:
676: END IF;
677:
678: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS then
679: RAISE FND_API.G_EXC_ERROR;
680: END IF ; */
681:
682:
683: G_stage := 'FND_API.Compatible_API_Call' ;
679: RAISE FND_API.G_EXC_ERROR;
680: END IF ; */
681:
682:
683: G_stage := 'FND_API.Compatible_API_Call' ;
684:
685: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
686: p_api_version_number ,
687: l_api_name ,
681:
682:
683: G_stage := 'FND_API.Compatible_API_Call' ;
684:
685: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
686: p_api_version_number ,
687: l_api_name ,
688: G_pkg_name )
689: THEN
720:
721: add_message_to_stack( P_label => 'GMS_AWD_PRJ_MISSING' ) ;
722: set_return_status ( X_return_status, 'B') ;
723: close c_awd_project ;
724: Raise fnd_api.g_exc_error ;
725:
726: END IF ;
727:
728: close c_awd_project ;
750:
751: -- =================
752: -- Make sure that X_return_status is success before continue.
753: -- =================
754: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS THEN
755:
756: Raise fnd_api.g_exc_error ;
757: END IF ;
758:
752: -- Make sure that X_return_status is success before continue.
753: -- =================
754: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS THEN
755:
756: Raise fnd_api.g_exc_error ;
757: END IF ;
758:
759: -- ********* ERROR Return Here ********
760: -- =======
767:
768: -- =================
769: -- Make sure that X_return_status is success before continue.
770: -- =================
771: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS THEN
772:
773: -- ********* ERROR Return Here ********
774: Raise fnd_api.g_exc_error ;
775: END IF ;
770: -- =================
771: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS THEN
772:
773: -- ********* ERROR Return Here ********
774: Raise fnd_api.g_exc_error ;
775: END IF ;
776:
777: G_stage := 'Insert_award ' ;
778: insert_award_record ( X_return_status ) ;
779:
780: -- =================
781: -- Make sure that X_return_status is success before continue.
782: -- =================
783: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS THEN
784:
785: -- ********* ERROR Return Here ********
786: Raise fnd_api.g_exc_error ;
787: END IF ;
782: -- =================
783: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS THEN
784:
785: -- ********* ERROR Return Here ********
786: Raise fnd_api.g_exc_error ;
787: END IF ;
788:
789: -- ===============================================
790: -- Create Award Manger Personnel
788:
789: -- ===============================================
790: -- Create Award Manger Personnel
791: -- ===============================================
792: IF X_return_status = FND_API.G_RET_STS_SUCCESS THEN
793:
794: gms_award_manager_pkg.insert_award_manager_id ( g_award_rec.award_id,
795: g_award_rec.award_manager_id,
796: g_award_rec.start_date_active ) ;
795: g_award_rec.award_manager_id,
796: g_award_rec.start_date_active ) ;
797: END IF ;
798:
799: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS THEN
800: Raise fnd_api.g_exc_error ;
801: END IF ;
802:
803: -- =============
796: g_award_rec.start_date_active ) ;
797: END IF ;
798:
799: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS THEN
800: Raise fnd_api.g_exc_error ;
801: END IF ;
802:
803: -- =============
804: -- Creating Billing /Shipping contacts for award creation in progress.
850:
851: -- =================
852: -- Make sure that X_return_status is success before continue.
853: -- =================
854: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS THEN
855: -- ********* ERROR Return Here ********
856: Raise fnd_api.g_exc_error ;
857: END IF;
858: END IF;
852: -- Make sure that X_return_status is success before continue.
853: -- =================
854: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS THEN
855: -- ********* ERROR Return Here ********
856: Raise fnd_api.g_exc_error ;
857: END IF;
858: END IF;
859:
860: L_contact_rec.contact_id := G_bill_contact_rec.ship_to_contact_id ;
881:
882: -- =================
883: -- Make sure that X_return_status is success before continue.
884: -- =================
885: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS THEN
886:
887: -- ********* ERROR Return Here ********
888: Raise fnd_api.g_exc_error ;
889: END IF ;
884: -- =================
885: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS THEN
886:
887: -- ********* ERROR Return Here ********
888: Raise fnd_api.g_exc_error ;
889: END IF ;
890: END IF ;
891: reset_message_flag ;
892: x_award_id := G_award_rec.award_id ;
901: set_return_status(X_return_status, 'B' ) ;
902: x_msg_count := G_msg_count ;
903: x_msg_data := G_msg_data ;
904:
905: WHEN FND_API.G_EXC_ERROR THEN
906: ROLLBACK TO save_award_pvt ;
907: set_return_status(X_return_status, 'B' ) ;
908: x_msg_count := G_msg_count ;
909: x_msg_data := G_msg_data ;
908: x_msg_count := G_msg_count ;
909: x_msg_data := G_msg_data ;
910: WHEN OTHERS THEN
911: ROLLBACK TO save_award_pvt;
912: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
913:
914: FND_MSG_PUB.add_exc_msg
915: ( p_pkg_name => G_PKG_NAME
916: , p_procedure_name => l_api_name );
2023: ,x_return_status => l_return_status );
2024:
2025:
2026: IF l_Return_Status <> 'S' then
2027: RAISE FND_API.G_EXC_ERROR;
2028: END IF;
2029:
2030: -- Create Options for the award project template.
2031: insert into pa_project_options
2058:
2059: end if;
2060:
2061: EXCEPTION
2062: WHEN FND_API.G_EXC_ERROR then
2063: X_return_status := l_return_status;
2064:
2065: WHEN OTHERS then
2066: X_return_status := l_return_status;
2099: CLOSE c_bill_to_customer_overridable;
2100:
2101: IF l_project_id IS NULL AND x_field_name = 'BILL_TO_CUSTOMER' THEN
2102: PA_PROJ_TEMPLATE_SETUP_PUB.ADD_QUICK_ENTRY_FIELD( p_api_version => 1.0,
2103: p_init_msg_list => FND_API.G_TRUE,
2104: p_commit => FND_API.G_FALSE,
2105: p_validate_only => FND_API.G_FALSE,
2106: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2107: p_calling_module => 'FORM',
2100:
2101: IF l_project_id IS NULL AND x_field_name = 'BILL_TO_CUSTOMER' THEN
2102: PA_PROJ_TEMPLATE_SETUP_PUB.ADD_QUICK_ENTRY_FIELD( p_api_version => 1.0,
2103: p_init_msg_list => FND_API.G_TRUE,
2104: p_commit => FND_API.G_FALSE,
2105: p_validate_only => FND_API.G_FALSE,
2106: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2107: p_calling_module => 'FORM',
2108: p_debug_mode => 'N',
2101: IF l_project_id IS NULL AND x_field_name = 'BILL_TO_CUSTOMER' THEN
2102: PA_PROJ_TEMPLATE_SETUP_PUB.ADD_QUICK_ENTRY_FIELD( p_api_version => 1.0,
2103: p_init_msg_list => FND_API.G_TRUE,
2104: p_commit => FND_API.G_FALSE,
2105: p_validate_only => FND_API.G_FALSE,
2106: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2107: p_calling_module => 'FORM',
2108: p_debug_mode => 'N',
2109: p_max_msg_count => PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
2102: PA_PROJ_TEMPLATE_SETUP_PUB.ADD_QUICK_ENTRY_FIELD( p_api_version => 1.0,
2103: p_init_msg_list => FND_API.G_TRUE,
2104: p_commit => FND_API.G_FALSE,
2105: p_validate_only => FND_API.G_FALSE,
2106: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2107: p_calling_module => 'FORM',
2108: p_debug_mode => 'N',
2109: p_max_msg_count => PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
2110: p_project_id => x_award_project_id,
2120: x_msg_data => l_msg_data);
2121:
2122:
2123: IF l_Return_Status < 'S' then
2124: RAISE FND_API.G_EXC_ERROR;
2125: END IF;
2126:
2127: END IF;
2128:
2128:
2129:
2130: IF l_project_id IS NULL AND x_field_name = 'SHIP_TO_CUSTOMER' THEN
2131: PA_PROJ_TEMPLATE_SETUP_PUB.ADD_QUICK_ENTRY_FIELD( p_api_version => 1.0,
2132: p_init_msg_list => FND_API.G_TRUE,
2133: p_commit => FND_API.G_FALSE,
2134: p_validate_only => FND_API.G_FALSE,
2135: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2136: p_calling_module => 'FORM',
2129:
2130: IF l_project_id IS NULL AND x_field_name = 'SHIP_TO_CUSTOMER' THEN
2131: PA_PROJ_TEMPLATE_SETUP_PUB.ADD_QUICK_ENTRY_FIELD( p_api_version => 1.0,
2132: p_init_msg_list => FND_API.G_TRUE,
2133: p_commit => FND_API.G_FALSE,
2134: p_validate_only => FND_API.G_FALSE,
2135: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2136: p_calling_module => 'FORM',
2137: p_debug_mode => 'N',
2130: IF l_project_id IS NULL AND x_field_name = 'SHIP_TO_CUSTOMER' THEN
2131: PA_PROJ_TEMPLATE_SETUP_PUB.ADD_QUICK_ENTRY_FIELD( p_api_version => 1.0,
2132: p_init_msg_list => FND_API.G_TRUE,
2133: p_commit => FND_API.G_FALSE,
2134: p_validate_only => FND_API.G_FALSE,
2135: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2136: p_calling_module => 'FORM',
2137: p_debug_mode => 'N',
2138: p_max_msg_count => PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
2131: PA_PROJ_TEMPLATE_SETUP_PUB.ADD_QUICK_ENTRY_FIELD( p_api_version => 1.0,
2132: p_init_msg_list => FND_API.G_TRUE,
2133: p_commit => FND_API.G_FALSE,
2134: p_validate_only => FND_API.G_FALSE,
2135: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2136: p_calling_module => 'FORM',
2137: p_debug_mode => 'N',
2138: p_max_msg_count => PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
2139: p_project_id => x_award_project_id,
2149: x_msg_data => l_msg_data);
2150:
2151:
2152: IF l_Return_Status < 'S' then
2153: RAISE FND_API.G_EXC_ERROR;
2154: END IF;
2155:
2156: END IF;
2157: EXCEPTION
2154: END IF;
2155:
2156: END IF;
2157: EXCEPTION
2158: WHEN FND_API.G_EXC_ERROR then
2159: X_Return_Status := l_return_status;
2160:
2161: WHEN OTHERS then
2162: X_Return_Status := l_return_status;
2267: p_class_categories => L_Class_Categories_IN_TBL,
2268: p_tasks_in => L_Tasks_IN_TBL,
2269: p_tasks_out => L_Tasks_OUT_TBL,
2270: p_workflow_started => L_Workflow_Started,
2271: P_commit => FND_API.G_FALSE,
2272: /** Bug 3576717 **/
2273: P_deliverables_in => L_Deliverable_IN_TBL,
2274: --P_deliverables_out => L_Deliverable_OUT_TBL, (3650374)
2275: P_deliverable_actions_in => L_Deliverable_Action_IN_TBL
2274: --P_deliverables_out => L_Deliverable_OUT_TBL, (3650374)
2275: P_deliverable_actions_in => L_Deliverable_Action_IN_TBL
2276: --P_deliverable_actions_out=> L_Deliverable_Action_OUT_TBL (3650374)
2277: );
2278: IF X_Return_Status <> FND_API.G_RET_STS_SUCCESS then
2279:
2280: -- -------------------------------------------------
2281: -- Create award project failed So return to the create
2282: -- award. Failure status is allready set by
2508:
2509: -- ============
2510: -- Initialize the return status.
2511: -- ============
2512: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) not in
2513: ( FND_API.G_RET_STS_UNEXP_ERROR, FND_API.G_RET_STS_ERROR ) THEN
2514:
2515: X_return_status := FND_API.G_RET_STS_SUCCESS ;
2516:
2509: -- ============
2510: -- Initialize the return status.
2511: -- ============
2512: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) not in
2513: ( FND_API.G_RET_STS_UNEXP_ERROR, FND_API.G_RET_STS_ERROR ) THEN
2514:
2515: X_return_status := FND_API.G_RET_STS_SUCCESS ;
2516:
2517: END IF ;
2511: -- ============
2512: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) not in
2513: ( FND_API.G_RET_STS_UNEXP_ERROR, FND_API.G_RET_STS_ERROR ) THEN
2514:
2515: X_return_status := FND_API.G_RET_STS_SUCCESS ;
2516:
2517: END IF ;
2518:
2519: SAVEPOINT copy_award_pvt ;
2517: END IF ;
2518:
2519: SAVEPOINT copy_award_pvt ;
2520:
2521: G_stage := 'FND_API.Compatible_API_Call' ;
2522:
2523: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
2524: p_api_version_number ,
2525: l_api_name ,
2519: SAVEPOINT copy_award_pvt ;
2520:
2521: G_stage := 'FND_API.Compatible_API_Call' ;
2522:
2523: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
2524: p_api_version_number ,
2525: l_api_name ,
2526: G_pkg_name )
2527: THEN
2786:
2787: -- =================
2788: -- Make sure that X_return_status is success before continue.
2789: -- =================
2790: IF NVL(X_return_status,FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS THEN
2791:
2792: -- ********* ERROR Return Here ********
2793: Raise fnd_api.g_exc_error ;
2794: END IF ;
2789: -- =================
2790: IF NVL(X_return_status,FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS THEN
2791:
2792: -- ********* ERROR Return Here ********
2793: Raise fnd_api.g_exc_error ;
2794: END IF ;
2795:
2796: p_award_number := g_award_rec.award_number ;
2797:
2853:
2854: -- =================
2855: -- Make sure that X_return_status is success before continue.
2856: -- =================
2857: IF NVL(X_return_status,FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS THEN
2858: Raise fnd_api.g_exc_error ;
2859: END IF ;
2860:
2861: END LOOP ;
2854: -- =================
2855: -- Make sure that X_return_status is success before continue.
2856: -- =================
2857: IF NVL(X_return_status,FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS THEN
2858: Raise fnd_api.g_exc_error ;
2859: END IF ;
2860:
2861: END LOOP ;
2862: end if;
2916:
2917: -- =================
2918: -- Make sure that X_return_status is success before continue.
2919: -- =================
2920: IF NVL(X_return_status,FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS THEN
2921: Raise fnd_api.g_exc_error ;
2922: END IF ;
2923:
2924: END LOOP ;
2917: -- =================
2918: -- Make sure that X_return_status is success before continue.
2919: -- =================
2920: IF NVL(X_return_status,FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS THEN
2921: Raise fnd_api.g_exc_error ;
2922: END IF ;
2923:
2924: END LOOP ;
2925:
2957:
2958: -- =================
2959: -- Make sure that X_return_status is success before continue.
2960: -- =================
2961: IF NVL(X_return_status,FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS THEN
2962: Raise fnd_api.g_exc_error ;
2963: END IF ;
2964:
2965: END LOOP ;
2958: -- =================
2959: -- Make sure that X_return_status is success before continue.
2960: -- =================
2961: IF NVL(X_return_status,FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS THEN
2962: Raise fnd_api.g_exc_error ;
2963: END IF ;
2964:
2965: END LOOP ;
2966:
2994: l_refnum_rec ) ;
2995: -- =================
2996: -- Make sure that X_return_status is success before continue.
2997: -- =================
2998: IF NVL(X_return_status,FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS THEN
2999: Raise fnd_api.g_exc_error ;
3000: END IF ;
3001:
3002: END LOOP ;
2995: -- =================
2996: -- Make sure that X_return_status is success before continue.
2997: -- =================
2998: IF NVL(X_return_status,FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS THEN
2999: Raise fnd_api.g_exc_error ;
3000: END IF ;
3001:
3002: END LOOP ;
3003:
3029: l_termscond_rec ) ;
3030: -- =================
3031: -- Make sure that X_return_status is success before continue.
3032: -- =================
3033: IF NVL(X_return_status,FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS THEN
3034: Raise fnd_api.g_exc_error ;
3035: END IF ;
3036:
3037: END LOOP ;
3030: -- =================
3031: -- Make sure that X_return_status is success before continue.
3032: -- =================
3033: IF NVL(X_return_status,FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS THEN
3034: Raise fnd_api.g_exc_error ;
3035: END IF ;
3036:
3037: END LOOP ;
3038:
3043:
3044: -- =================
3045: -- Make sure that X_return_status is success before continue.
3046: -- =================
3047: IF NVL(X_return_status,FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS THEN
3048: Raise fnd_api.g_exc_error ;
3049: END IF ;
3050:
3051: reset_message_flag ;
3044: -- =================
3045: -- Make sure that X_return_status is success before continue.
3046: -- =================
3047: IF NVL(X_return_status,FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS THEN
3048: Raise fnd_api.g_exc_error ;
3049: END IF ;
3050:
3051: reset_message_flag ;
3052:
3059: set_return_status(X_return_status, 'B' ) ;
3060: x_msg_count := G_msg_count ;
3061: x_msg_data := G_msg_data ;
3062:
3063: WHEN FND_API.G_EXC_ERROR THEN
3064: ROLLBACK TO copy_award_pvt ;
3065: set_return_status(X_return_status, 'B' ) ;
3066: x_msg_count := G_msg_count ;
3067: x_msg_data := G_msg_data ;
3066: x_msg_count := G_msg_count ;
3067: x_msg_data := G_msg_data ;
3068: WHEN OTHERS THEN
3069: ROLLBACK TO copy_award_pvt ;
3070: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3071: FND_MSG_PUB.add_exc_msg ( p_pkg_name => G_PKG_NAME
3072: , p_procedure_name => l_api_name );
3073: FND_MSG_PUB.Count_And_Get
3074: ( p_count => x_msg_count ,
3254:
3255: -- ============
3256: -- Initialize the return status.
3257: -- ============
3258: IF NVL(x_return_status , FND_API.G_RET_STS_SUCCESS) NOT IN
3259: ( FND_API.G_RET_STS_UNEXP_ERROR, FND_API.G_RET_STS_ERROR ) THEN
3260: x_return_status := FND_API.G_RET_STS_SUCCESS ;
3261: END IF ;
3262:
3255: -- ============
3256: -- Initialize the return status.
3257: -- ============
3258: IF NVL(x_return_status , FND_API.G_RET_STS_SUCCESS) NOT IN
3259: ( FND_API.G_RET_STS_UNEXP_ERROR, FND_API.G_RET_STS_ERROR ) THEN
3260: x_return_status := FND_API.G_RET_STS_SUCCESS ;
3261: END IF ;
3262:
3263: SAVEPOINT create_installment_pvt ;
3256: -- Initialize the return status.
3257: -- ============
3258: IF NVL(x_return_status , FND_API.G_RET_STS_SUCCESS) NOT IN
3259: ( FND_API.G_RET_STS_UNEXP_ERROR, FND_API.G_RET_STS_ERROR ) THEN
3260: x_return_status := FND_API.G_RET_STS_SUCCESS ;
3261: END IF ;
3262:
3263: SAVEPOINT create_installment_pvt ;
3264:
3261: END IF ;
3262:
3263: SAVEPOINT create_installment_pvt ;
3264:
3265: G_stage := 'FND_API.Compatible_API_Call' ;
3266:
3267: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
3268: p_api_version_number ,
3269: l_api_name ,
3263: SAVEPOINT create_installment_pvt ;
3264:
3265: G_stage := 'FND_API.Compatible_API_Call' ;
3266:
3267: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
3268: p_api_version_number ,
3269: l_api_name ,
3270: G_pkg_name ) THEN
3271: RAISE e_ver_mismatch ;
3310: CLOSE l_installment_type_csr ;
3311:
3312:
3313:
3314: G_stage := 'FND_API.Verify_Instal_start_date_with_Award_start_date';
3315:
3316: IF G_installment_rec.start_date_active IS NOT NULL
3317: and l_award_start_date_active IS NOT NULL
3318: and G_installment_rec.start_date_active < l_award_start_date_active THEN
3320: set_return_status ( X_return_status, 'B') ;
3321: END IF ;
3322:
3323:
3324: G_stage := 'FND_API.Verify_Instal_start_date_with_Instal_end_date';
3325:
3326: IF G_installment_rec.start_date_active IS NOT NULL
3327: and G_installment_rec.end_date_active IS NOT NULL
3328: and G_installment_rec.start_date_active > G_installment_rec.end_date_active THEN
3329: add_message_to_stack( P_label => 'GMS_INST_ENDATE_BEF_INS_STDATE');
3330: set_return_status ( X_return_status, 'B') ;
3331: END IF ;
3332:
3333: G_stage := 'FND_API.Verify_Instal_end_date_with_Award_end_date';
3334:
3335: IF G_installment_rec.start_date_active IS NOT NULL
3336: and G_installment_rec.end_date_active IS NOT NULL
3337: and G_installment_rec.end_date_active > l_award_end_date_active THEN
3338: add_message_to_stack( P_label =>'GMS_INS_ENDATE_AFTER_AWENDATE');
3339: set_return_status ( X_return_status, 'B') ;
3340: END IF ;
3341:
3342: G_stage := 'FND_API.Verify_Instal_end_date_with_Instal_close_date';
3343:
3344: IF G_installment_rec.end_date_active IS NOT NULL
3345: and G_installment_rec.close_date IS NOT NULL
3346: and G_installment_rec.end_date_active > G_installment_rec.close_date THEN
3347: add_message_to_stack( P_label => 'GMS_INS_CLOSEDATE_BEF_ENDDATE') ;
3348: set_return_status ( X_return_status, 'B') ;
3349: END IF ;
3350:
3351: G_stage := 'FND_API.Verify_Instal_close_date_with_Award_close_date';
3352:
3353: IF G_installment_rec.close_date IS NOT NULL
3354: and l_award_close_date is NOT NULL
3355: and G_installment_rec.close_date > l_award_close_date THEN
3358: END IF ;
3359:
3360: -- If the return_status <> g_ret_sts_success then we don't proceed with the Inserts.
3361:
3362: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS then
3363: RAISE FND_API.G_EXC_ERROR;
3364: END IF ;
3365:
3366:
3359:
3360: -- If the return_status <> g_ret_sts_success then we don't proceed with the Inserts.
3361:
3362: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS then
3363: RAISE FND_API.G_EXC_ERROR;
3364: END IF ;
3365:
3366:
3367: SELECT gms_installments_s.nextval
3367: SELECT gms_installments_s.nextval
3368: INTO G_installment_rec.installment_id
3369: FROM dual;
3370:
3371: G_stage := 'FND_API.Create_Installment' ;
3372:
3373: gms_installments_pkg.insert_row(
3374: X_ROWID => l_rowid,
3375: X_INSTALLMENT_ID => G_installment_rec.installment_id,
3402: X_ATTRIBUTE14 =>G_installment_rec.attribute14,
3403: X_ATTRIBUTE15 =>G_installment_rec.attribute15,
3404: X_MODE => 'R' );
3405:
3406: G_stage := 'FND_API.Create_Notification' ;
3407:
3408: IF G_installment_rec.active_flag = 'Y' THEN
3409: gms_wf_pkg.init_installment_wf(x_installment_id=> G_installment_rec.installment_id ,
3410: x_award_id => G_installment_rec.award_id);
3428: set_return_status(X_return_status, 'B' ) ;
3429: x_msg_count := G_msg_count ;
3430: x_msg_data := G_msg_data ;
3431:
3432: WHEN FND_API.G_EXC_ERROR THEN
3433: G_installment_rec := NULL ; -- Resetting the record vaarible.
3434: ROLLBACK TO create_installment_pvt ;
3435: set_return_status(X_return_status, 'B' ) ;
3436: x_msg_count := G_msg_count ;
3437: x_msg_data := G_msg_data ;
3438: WHEN OTHERS THEN
3439: G_installment_rec := NULL ; -- Resetting the record vaarible.
3440: ROLLBACK TO create_installment_pvt ;
3441: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3442:
3443: FND_MSG_PUB.add_exc_msg
3444: ( p_pkg_name => G_PKG_NAME
3445: , p_procedure_name => l_api_name );
3707: , X_MSG_DATA => x_msg_data
3708: );
3709:
3710:
3711: IF x_return_status <> FND_API.G_RET_STS_SUCCESS then
3712: set_return_status ( X_return_status, 'B') ;
3713:
3714: END IF ;
3715: END Create_Pa_Key_Member ;
3728:
3729: -- =============================
3730: -- Initialize the return status.
3731: -- =============================
3732: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) NOT IN
3733: ( FND_API.G_RET_STS_UNEXP_ERROR, FND_API.G_RET_STS_ERROR ) THEN
3734: X_return_status := FND_API.G_RET_STS_SUCCESS ;
3735: END IF ;
3736:
3729: -- =============================
3730: -- Initialize the return status.
3731: -- =============================
3732: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) NOT IN
3733: ( FND_API.G_RET_STS_UNEXP_ERROR, FND_API.G_RET_STS_ERROR ) THEN
3734: X_return_status := FND_API.G_RET_STS_SUCCESS ;
3735: END IF ;
3736:
3737: SAVEPOINT create_personnel_pvt ;
3730: -- Initialize the return status.
3731: -- =============================
3732: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) NOT IN
3733: ( FND_API.G_RET_STS_UNEXP_ERROR, FND_API.G_RET_STS_ERROR ) THEN
3734: X_return_status := FND_API.G_RET_STS_SUCCESS ;
3735: END IF ;
3736:
3737: SAVEPOINT create_personnel_pvt ;
3738:
3735: END IF ;
3736:
3737: SAVEPOINT create_personnel_pvt ;
3738:
3739: G_stage := 'FND_API.Compatible_API_Call' ;
3740:
3741: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
3742: p_api_version_number ,
3743: l_api_name ,
3737: SAVEPOINT create_personnel_pvt ;
3738:
3739: G_stage := 'FND_API.Compatible_API_Call' ;
3740:
3741: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
3742: p_api_version_number ,
3743: l_api_name ,
3744: G_pkg_name )
3745: THEN
3787:
3788: -- =========================================================
3789: -- Make sure that X_return_status is success before continue.
3790: -- =========================================================
3791: IF NVL(X_return_status,FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS THEN
3792: Raise fnd_api.g_exc_error ;
3793: END IF ;
3794:
3795: -- ==================================================================
3788: -- =========================================================
3789: -- Make sure that X_return_status is success before continue.
3790: -- =========================================================
3791: IF NVL(X_return_status,FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS THEN
3792: Raise fnd_api.g_exc_error ;
3793: END IF ;
3794:
3795: -- ==================================================================
3796: -- If the Start_Date_Active is NULL for PERSONNEL record then take the
3800: If G_personnel_rec.start_date_active IS NULL THEN
3801: G_personnel_rec.start_date_active := l_start_date_active ;
3802: END IF ;
3803:
3804: G_stage := 'FND_API.Check_Start_Date_Active' ;
3805: Verify_dates(p_validate , X_return_status ) ;
3806:
3807: G_stage := 'FND_API.Verify_Award_Manager_Dates' ;
3808: Verify_Award_Manager_Dates (p_validate , X_return_status) ;
3803:
3804: G_stage := 'FND_API.Check_Start_Date_Active' ;
3805: Verify_dates(p_validate , X_return_status ) ;
3806:
3807: G_stage := 'FND_API.Verify_Award_Manager_Dates' ;
3808: Verify_Award_Manager_Dates (p_validate , X_return_status) ;
3809:
3810: G_stage := 'FND_API.Verify_User_Status' ;
3811: Verify_User_Status(p_validate , X_return_status) ;
3806:
3807: G_stage := 'FND_API.Verify_Award_Manager_Dates' ;
3808: Verify_Award_Manager_Dates (p_validate , X_return_status) ;
3809:
3810: G_stage := 'FND_API.Verify_User_Status' ;
3811: Verify_User_Status(p_validate , X_return_status) ;
3812:
3813:
3814: IF G_personnel_rec.award_role = 'AM'AND l_award_template_flag = 'DEFERRED' THEN
3812:
3813:
3814: IF G_personnel_rec.award_role = 'AM'AND l_award_template_flag = 'DEFERRED' THEN
3815:
3816: G_stage := 'FND_API.Create_Pa_Key_Member' ;
3817: Create_Pa_Key_Member( p_validate , X_return_status ) ;
3818: END IF ;
3819:
3820: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS then
3816: G_stage := 'FND_API.Create_Pa_Key_Member' ;
3817: Create_Pa_Key_Member( p_validate , X_return_status ) ;
3818: END IF ;
3819:
3820: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS then
3821: RAISE FND_API.G_EXC_ERROR;
3822: END IF ;
3823:
3824:
3817: Create_Pa_Key_Member( p_validate , X_return_status ) ;
3818: END IF ;
3819:
3820: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS then
3821: RAISE FND_API.G_EXC_ERROR;
3822: END IF ;
3823:
3824:
3825: SELECT gms_personnel_s.nextval
3825: SELECT gms_personnel_s.nextval
3826: INTO G_personnel_rec.personnel_id
3827: FROM DUAL ;
3828:
3829: G_stage := 'FND_API.Create_Personnel_Record' ;
3830: gms_personnel_pkg.insert_row
3831: ( x_rowid => L_rowid,
3832: x_personnel_id => G_personnel_rec.personnel_id,
3833: x_award_id => G_personnel_rec.award_id,
3838: x_required_flag => G_personnel_rec.required_flag,
3839: x_mode => 'R'
3840: );
3841:
3842: G_stage := 'FND_API.Create_Person_Events' ;
3843: gms_notification_pkg.crt_default_person_events
3844: ( p_award_id => G_personnel_rec.award_id,
3845: p_person_id => G_personnel_rec.person_id,
3846: x_err_code => l_error_code,
3858: set_return_status(X_return_status, 'B' ) ;
3859: x_msg_count := G_msg_count ;
3860: x_msg_data := G_msg_data ;
3861:
3862: WHEN FND_API.G_EXC_ERROR THEN
3863: G_personnel_rec := NULL ; -- Resetting the record vaarible.
3864: ROLLBACK TO create_personnel_pvt ;
3865: set_return_status(X_return_status, 'B' ) ;
3866: x_msg_count := G_msg_count ;
3867: x_msg_data := G_msg_data ;
3868: WHEN OTHERS THEN
3869: G_personnel_rec := NULL ; -- Resetting the record vaarible.
3870: ROLLBACK TO create_personnel_pvt;
3871: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3872:
3873: FND_MSG_PUB.add_exc_msg
3874: ( p_pkg_name => G_PKG_NAME
3875: , p_procedure_name => l_api_name );
4013:
4014: -- ============================
4015: -- Initialize the return status.
4016: -- ============================
4017: IF NVL(x_return_status , FND_API.G_RET_STS_SUCCESS) NOT IN
4018: ( FND_API.G_RET_STS_UNEXP_ERROR, FND_API.G_RET_STS_ERROR ) THEN
4019: x_return_status := FND_API.G_RET_STS_SUCCESS ;
4020: END IF ;
4021:
4014: -- ============================
4015: -- Initialize the return status.
4016: -- ============================
4017: IF NVL(x_return_status , FND_API.G_RET_STS_SUCCESS) NOT IN
4018: ( FND_API.G_RET_STS_UNEXP_ERROR, FND_API.G_RET_STS_ERROR ) THEN
4019: x_return_status := FND_API.G_RET_STS_SUCCESS ;
4020: END IF ;
4021:
4022: SAVEPOINT create_award_term_cond_pvt ;
4015: -- Initialize the return status.
4016: -- ============================
4017: IF NVL(x_return_status , FND_API.G_RET_STS_SUCCESS) NOT IN
4018: ( FND_API.G_RET_STS_UNEXP_ERROR, FND_API.G_RET_STS_ERROR ) THEN
4019: x_return_status := FND_API.G_RET_STS_SUCCESS ;
4020: END IF ;
4021:
4022: SAVEPOINT create_award_term_cond_pvt ;
4023:
4020: END IF ;
4021:
4022: SAVEPOINT create_award_term_cond_pvt ;
4023:
4024: G_stage := 'FND_API.Compatible_API_Call' ;
4025:
4026: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
4027: p_api_version_number ,
4028: l_api_name ,
4022: SAVEPOINT create_award_term_cond_pvt ;
4023:
4024: G_stage := 'FND_API.Compatible_API_Call' ;
4025:
4026: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
4027: p_api_version_number ,
4028: l_api_name ,
4029: G_pkg_name ) THEN
4030: RAISE e_ver_mismatch ;
4076: CLOSE l_check_duplicate_csr ;
4077:
4078: END IF ; -- end if for p_validate.
4079:
4080: IF NVL(x_return_status,FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS THEN
4081: RAISE fnd_api.g_exc_error ;
4082: END IF ; -- end if for nvl(x_return_status) .
4083:
4084: G_stage := 'FND_API.Creating_Award_term_condition_record ' ;
4077:
4078: END IF ; -- end if for p_validate.
4079:
4080: IF NVL(x_return_status,FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS THEN
4081: RAISE fnd_api.g_exc_error ;
4082: END IF ; -- end if for nvl(x_return_status) .
4083:
4084: G_stage := 'FND_API.Creating_Award_term_condition_record ' ;
4085: gms_awards_tc_pkg.insert_row
4080: IF NVL(x_return_status,FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS THEN
4081: RAISE fnd_api.g_exc_error ;
4082: END IF ; -- end if for nvl(x_return_status) .
4083:
4084: G_stage := 'FND_API.Creating_Award_term_condition_record ' ;
4085: gms_awards_tc_pkg.insert_row
4086: ( X_ROWID => l_rowid,
4087: X_AWARD_ID => G_term_condition_rec.award_id,
4088: X_CATEGORY_ID => G_term_condition_rec.category_id,
4092: X_MODE => 'R'
4093: ) ;
4094: G_term_condition_rec := NULL ; -- Resetting the record vaarible.
4095:
4096: G_stage := 'FND_API.Succefully_created_award_term_condition' ;
4097:
4098:
4099: EXCEPTION
4100: WHEN E_VER_MISMATCH THEN
4104: set_return_status(x_return_status, 'B' ) ;
4105: X_msg_count := G_msg_count ;
4106: X_msg_data := G_msg_data ;
4107:
4108: WHEN FND_API.G_EXC_ERROR THEN
4109: G_term_condition_rec := NULL ; -- Resetting the record vaarible.
4110: ROLLBACK TO create_award_term_cond_pvt ;
4111: set_return_status(x_return_status, 'B' ) ;
4112: X_msg_count := G_msg_count ;
4113: X_msg_data := G_msg_data ;
4114: WHEN OTHERS THEN
4115: G_term_condition_rec := NULL ; -- Resetting the record vaarible.
4116: ROLLBACK TO create_award_term_cond_pvt ;
4117: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4118:
4119: FND_MSG_PUB.add_exc_msg
4120: ( p_pkg_name => G_PKG_NAME
4121: , p_procedure_name => l_api_name );
4209:
4210: -- =============================
4211: -- Initialize the return status.
4212: -- =============================
4213: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) NOT IN
4214: ( FND_API.G_RET_STS_UNEXP_ERROR, FND_API.G_RET_STS_ERROR ) THEN
4215: X_return_status := FND_API.G_RET_STS_SUCCESS ;
4216: END IF ;
4217:
4210: -- =============================
4211: -- Initialize the return status.
4212: -- =============================
4213: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) NOT IN
4214: ( FND_API.G_RET_STS_UNEXP_ERROR, FND_API.G_RET_STS_ERROR ) THEN
4215: X_return_status := FND_API.G_RET_STS_SUCCESS ;
4216: END IF ;
4217:
4218: SAVEPOINT create_reference_number_pvt ;
4211: -- Initialize the return status.
4212: -- =============================
4213: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) NOT IN
4214: ( FND_API.G_RET_STS_UNEXP_ERROR, FND_API.G_RET_STS_ERROR ) THEN
4215: X_return_status := FND_API.G_RET_STS_SUCCESS ;
4216: END IF ;
4217:
4218: SAVEPOINT create_reference_number_pvt ;
4219:
4216: END IF ;
4217:
4218: SAVEPOINT create_reference_number_pvt ;
4219:
4220: G_stage := 'FND_API.Compatible_API_Call' ;
4221:
4222: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
4223: p_api_version_number ,
4224: l_api_name ,
4218: SAVEPOINT create_reference_number_pvt ;
4219:
4220: G_stage := 'FND_API.Compatible_API_Call' ;
4221:
4222: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
4223: p_api_version_number ,
4224: l_api_name ,
4225: G_pkg_name ) THEN
4226: RAISE e_ver_mismatch ;
4255: CLOSE l_duplicate_ref_type ;
4256: END IF ; -- end if for p_validate.
4257:
4258: -- ==============================================================================
4259: -- Here we check whether the return_staus <> FND_API.G_RET_STS_SUCCESS because of
4260: -- any above validations . If it is that means some error has happened and we don't
4261: -- insert the record but the control go to exception section.
4262: -- ==============================================================================
4263:
4260: -- any above validations . If it is that means some error has happened and we don't
4261: -- insert the record but the control go to exception section.
4262: -- ==============================================================================
4263:
4264: IF NVL(X_return_status,FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS THEN
4265: RAISE fnd_api.g_exc_error ;
4266: END IF ; -- end if for nvl(X_return_status) .
4267:
4268: -- Creating the Reference_number Record .
4261: -- insert the record but the control go to exception section.
4262: -- ==============================================================================
4263:
4264: IF NVL(X_return_status,FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS THEN
4265: RAISE fnd_api.g_exc_error ;
4266: END IF ; -- end if for nvl(X_return_status) .
4267:
4268: -- Creating the Reference_number Record .
4269:
4266: END IF ; -- end if for nvl(X_return_status) .
4267:
4268: -- Creating the Reference_number Record .
4269:
4270: G_stage := 'FND_API.Creating_reference_number' ;
4271: gms_reference_numbers_pkg.insert_row
4272: ( x_rowid => l_rowid,
4273: x_award_id => G_reference_number_rec.award_id,
4274: x_type => G_reference_number_rec.type,
4278: );
4279: G_reference_number_rec := NULL ; -- Resetting the record vaarible.
4280:
4281:
4282: G_stage := 'FND_API.Succefully_created_reference_number ' ;
4283:
4284: EXCEPTION
4285: WHEN E_VER_MISMATCH THEN
4286: add_message_to_stack( P_label => 'GMS_API_VER_MISMATCH',
4289: set_return_status(X_return_status, 'B' ) ;
4290: x_msg_count := G_msg_count ;
4291: x_msg_data := G_msg_data ;
4292:
4293: WHEN FND_API.G_EXC_ERROR THEN
4294: G_reference_number_rec := NULL ; -- Resetting the record vaarible.
4295: ROLLBACK TO create_reference_number_pvt ;
4296: set_return_status(X_return_status, 'B' ) ;
4297: x_msg_count := G_msg_count ;
4298: x_msg_data := G_msg_data ;
4299: WHEN OTHERS THEN
4300: G_reference_number_rec := NULL ; -- Resetting the record vaarible.
4301: ROLLBACK TO create_reference_number_pvt ;
4302: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4303:
4304: FND_MSG_PUB.add_exc_msg
4305: ( p_pkg_name => G_PKG_NAME
4306: , p_procedure_name => l_api_name );
4382: -- =============================
4383: -- Initialize the return status.
4384: -- =============================
4385:
4386: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) not in
4387: ( FND_API.G_RET_STS_UNEXP_ERROR, FND_API.G_RET_STS_ERROR ) THEN
4388: X_return_status := FND_API.G_RET_STS_SUCCESS ;
4389: END IF ;
4390:
4383: -- Initialize the return status.
4384: -- =============================
4385:
4386: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) not in
4387: ( FND_API.G_RET_STS_UNEXP_ERROR, FND_API.G_RET_STS_ERROR ) THEN
4388: X_return_status := FND_API.G_RET_STS_SUCCESS ;
4389: END IF ;
4390:
4391: -- =========================
4384: -- =============================
4385:
4386: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) not in
4387: ( FND_API.G_RET_STS_UNEXP_ERROR, FND_API.G_RET_STS_ERROR ) THEN
4388: X_return_status := FND_API.G_RET_STS_SUCCESS ;
4389: END IF ;
4390:
4391: -- =========================
4392: -- Establish the Save Point.
4398: -- Compare the caller version number to the API version number in
4399: -- order to detect incompatible API calls.
4400: -- ==============================================================
4401:
4402: G_stage := 'FND_API.Compatible_API_Call' ;
4403:
4404: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
4405: p_api_version_number ,
4406: l_api_name ,
4400: -- ==============================================================
4401:
4402: G_stage := 'FND_API.Compatible_API_Call' ;
4403:
4404: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
4405: p_api_version_number ,
4406: l_api_name ,
4407: G_pkg_name )
4408: THEN
4452: -- validations. There is no point in doing further validations as the
4453: -- required columns donot have values. So we raise an Error.
4454: -- ===================================================================
4455:
4456: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS then
4457: RAISE FND_API.G_EXC_ERROR;
4458: END IF ;
4459:
4460: -- ======================================================================
4453: -- required columns donot have values. So we raise an Error.
4454: -- ===================================================================
4455:
4456: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS then
4457: RAISE FND_API.G_EXC_ERROR;
4458: END IF ;
4459:
4460: -- ======================================================================
4461: -- Verify the contacts for validity by cross checking with funding source
4517:
4518: CLOSE l_dup_usage_csr ;
4519:
4520:
4521: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS then
4522: RAISE FND_API.G_EXC_ERROR;
4523: END IF ;
4524:
4525:
4518: CLOSE l_dup_usage_csr ;
4519:
4520:
4521: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS then
4522: RAISE FND_API.G_EXC_ERROR;
4523: END IF ;
4524:
4525:
4526: -- ===========================================================================================
4572: set_return_status(X_return_status, 'B' ) ;
4573: x_msg_count := G_msg_count ;
4574: x_msg_data := G_msg_data ;
4575:
4576: WHEN FND_API.G_EXC_ERROR THEN
4577: ROLLBACK TO create_contact_pvt ;
4578: set_return_status(X_return_status, 'B' ) ;
4579: x_msg_count := G_msg_count ;
4580: x_msg_data := G_msg_data ;
4579: x_msg_count := G_msg_count ;
4580: x_msg_data := G_msg_data ;
4581: WHEN OTHERS THEN
4582: ROLLBACK TO create_contact_pvt;
4583: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4584:
4585: FND_MSG_PUB.add_exc_msg
4586: ( p_pkg_name => G_PKG_NAME
4587: , p_procedure_name => l_api_name );
4657: -- ============================
4658: -- Initialize the return status.
4659: -- ============================
4660:
4661: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) not in
4662: ( FND_API.G_RET_STS_UNEXP_ERROR, FND_API.G_RET_STS_ERROR ) THEN
4663: X_return_status := FND_API.G_RET_STS_SUCCESS ;
4664: END IF ;
4665:
4658: -- Initialize the return status.
4659: -- ============================
4660:
4661: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) not in
4662: ( FND_API.G_RET_STS_UNEXP_ERROR, FND_API.G_RET_STS_ERROR ) THEN
4663: X_return_status := FND_API.G_RET_STS_SUCCESS ;
4664: END IF ;
4665:
4666: -- =========================
4659: -- ============================
4660:
4661: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) not in
4662: ( FND_API.G_RET_STS_UNEXP_ERROR, FND_API.G_RET_STS_ERROR ) THEN
4663: X_return_status := FND_API.G_RET_STS_SUCCESS ;
4664: END IF ;
4665:
4666: -- =========================
4667: -- Establish the Save Point.
4673: -- Compare the caller version number to the API version number in
4674: -- order to detect incompatible API calls.
4675: -- ==============================================================
4676:
4677: G_stage := 'FND_API.Compatible_API_Call' ;
4678:
4679: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
4680: p_api_version_number ,
4681: l_api_name ,
4675: -- ==============================================================
4676:
4677: G_stage := 'FND_API.Compatible_API_Call' ;
4678:
4679: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
4680: p_api_version_number ,
4681: l_api_name ,
4682: G_pkg_name )
4683: THEN
4732: -- validations. There is no point in doing further validations as the
4733: -- required columns donot have values. So we raise an Error.
4734: -- ===================================================================
4735:
4736: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS then
4737: RAISE FND_API.G_EXC_ERROR;
4738: END IF ;
4739:
4740: -- =================================
4733: -- required columns donot have values. So we raise an Error.
4734: -- ===================================================================
4735:
4736: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS then
4737: RAISE FND_API.G_EXC_ERROR;
4738: END IF ;
4739:
4740: -- =================================
4741: -- Verify the frequency for validity
4753:
4754: CLOSE l_valid_frequency_csr ;
4755:
4756:
4757: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS then
4758: RAISE FND_API.G_EXC_ERROR;
4759: END IF ;
4760:
4761: -- =====================================
4754: CLOSE l_valid_frequency_csr ;
4755:
4756:
4757: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS then
4758: RAISE FND_API.G_EXC_ERROR;
4759: END IF ;
4760:
4761: -- =====================================
4762: -- Verify the Site Use Code for validity
4777: CLOSE l_valid_site_code_csr ;
4778:
4779: END IF;
4780:
4781: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS then
4782: RAISE FND_API.G_EXC_ERROR;
4783: END IF ;
4784:
4785: -- ==============================================
4778:
4779: END IF;
4780:
4781: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS then
4782: RAISE FND_API.G_EXC_ERROR;
4783: END IF ;
4784:
4785: -- ==============================================
4786: -- Verify the duplicate reports for a given award
4798:
4799: CLOSE l_dup_reports_csr ;
4800:
4801:
4802: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS then
4803: RAISE FND_API.G_EXC_ERROR;
4804: END IF ;
4805:
4806: -- ==================================================
4799: CLOSE l_dup_reports_csr ;
4800:
4801:
4802: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS then
4803: RAISE FND_API.G_EXC_ERROR;
4804: END IF ;
4805:
4806: -- ==================================================
4807: -- Sequence number is required for default report id.
4872: set_return_status ( X_return_status, 'B') ;
4873:
4874: END IF;
4875:
4876: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS then
4877: RAISE FND_API.G_EXC_ERROR;
4878: END IF ;
4879:
4880: X_DEFAULT_REPORT_ID := G_report_rec.default_report_id ;
4873:
4874: END IF;
4875:
4876: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS then
4877: RAISE FND_API.G_EXC_ERROR;
4878: END IF ;
4879:
4880: X_DEFAULT_REPORT_ID := G_report_rec.default_report_id ;
4881: G_stage := 'Report Created Successfully' ;
4889: set_return_status(X_return_status, 'B' ) ;
4890: x_msg_count := G_msg_count ;
4891: x_msg_data := G_msg_data ;
4892:
4893: WHEN FND_API.G_EXC_ERROR THEN
4894: ROLLBACK TO create_report_pvt ;
4895: set_return_status(X_return_status, 'B' ) ;
4896: x_msg_count := G_msg_count ;
4897: x_msg_data := G_msg_data ;
4896: x_msg_count := G_msg_count ;
4897: x_msg_data := G_msg_data ;
4898: WHEN OTHERS THEN
4899: ROLLBACK TO create_report_pvt;
4900: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4901:
4902: FND_MSG_PUB.add_exc_msg
4903: ( p_pkg_name => G_PKG_NAME
4904: , p_procedure_name => l_api_name );
4965: -- ============
4966: -- Initialize the return status.
4967: -- ============
4968:
4969: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) not in
4970: ( FND_API.G_RET_STS_UNEXP_ERROR, FND_API.G_RET_STS_ERROR ) THEN
4971: X_return_status := FND_API.G_RET_STS_SUCCESS ;
4972: END IF ;
4973:
4966: -- Initialize the return status.
4967: -- ============
4968:
4969: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) not in
4970: ( FND_API.G_RET_STS_UNEXP_ERROR, FND_API.G_RET_STS_ERROR ) THEN
4971: X_return_status := FND_API.G_RET_STS_SUCCESS ;
4972: END IF ;
4973:
4974: SAVEPOINT create_notification_pvt ;
4967: -- ============
4968:
4969: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) not in
4970: ( FND_API.G_RET_STS_UNEXP_ERROR, FND_API.G_RET_STS_ERROR ) THEN
4971: X_return_status := FND_API.G_RET_STS_SUCCESS ;
4972: END IF ;
4973:
4974: SAVEPOINT create_notification_pvt ;
4975:
4972: END IF ;
4973:
4974: SAVEPOINT create_notification_pvt ;
4975:
4976: G_stage := 'FND_API.Compatible_API_Call' ;
4977:
4978: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
4979: p_api_version_number ,
4980: l_api_name ,
4974: SAVEPOINT create_notification_pvt ;
4975:
4976: G_stage := 'FND_API.Compatible_API_Call' ;
4977:
4978: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
4979: p_api_version_number ,
4980: l_api_name ,
4981: G_pkg_name )
4982: THEN
5011: -- validations. There is no point in doing further validations as the
5012: -- required columns donot have values. So we raise an Error.
5013: -- ===================================================================
5014:
5015: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS then
5016: RAISE FND_API.G_EXC_ERROR;
5017: END IF ;
5018:
5019: -- =============================================
5012: -- required columns donot have values. So we raise an Error.
5013: -- ===================================================================
5014:
5015: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS then
5016: RAISE FND_API.G_EXC_ERROR;
5017: END IF ;
5018:
5019: -- =============================================
5020: -- Verify the duplicate events for a given award
5031: END IF;
5032: CLOSE l_dup_event_csr ;
5033:
5034:
5035: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS then
5036: RAISE FND_API.G_EXC_ERROR;
5037: END IF ;
5038:
5039:
5032: CLOSE l_dup_event_csr ;
5033:
5034:
5035: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS then
5036: RAISE FND_API.G_EXC_ERROR;
5037: END IF ;
5038:
5039:
5040: G_stage := 'create_notification.Verify_report_existence' ;
5066: CLOSE l_dup_event_csr ;
5067: END IF;
5068:
5069: END IF;
5070: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS then
5071: RAISE FND_API.G_EXC_ERROR;
5072: END IF ;
5073:
5074: G_stage := 'gms_notification_pkg.insert_row' ;
5067: END IF;
5068:
5069: END IF;
5070: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS then
5071: RAISE FND_API.G_EXC_ERROR;
5072: END IF ;
5073:
5074: G_stage := 'gms_notification_pkg.insert_row' ;
5075:
5091: set_return_status(X_return_status, 'B' ) ;
5092: x_msg_count := G_msg_count ;
5093: x_msg_data := G_msg_data ;
5094:
5095: WHEN FND_API.G_EXC_ERROR THEN
5096: ROLLBACK TO create_notification_pvt ;
5097: set_return_status(X_return_status, 'B' ) ;
5098: x_msg_count := G_msg_count ;
5099: x_msg_data := G_msg_data ;
5098: x_msg_count := G_msg_count ;
5099: x_msg_data := G_msg_data ;
5100: WHEN OTHERS THEN
5101: ROLLBACK TO create_notification_pvt;
5102: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5103:
5104: FND_MSG_PUB.add_exc_msg
5105: ( p_pkg_name => G_PKG_NAME
5106: , p_procedure_name => l_api_name );
5219: -- ============================
5220: -- Initialize the return status.
5221: -- ============================
5222:
5223: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) not in
5224: ( FND_API.G_RET_STS_UNEXP_ERROR, FND_API.G_RET_STS_ERROR ) THEN
5225: X_return_status := FND_API.G_RET_STS_SUCCESS ;
5226: END IF ;
5227:
5220: -- Initialize the return status.
5221: -- ============================
5222:
5223: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) not in
5224: ( FND_API.G_RET_STS_UNEXP_ERROR, FND_API.G_RET_STS_ERROR ) THEN
5225: X_return_status := FND_API.G_RET_STS_SUCCESS ;
5226: END IF ;
5227:
5228: SAVEPOINT add_funding_pvt ;
5221: -- ============================
5222:
5223: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) not in
5224: ( FND_API.G_RET_STS_UNEXP_ERROR, FND_API.G_RET_STS_ERROR ) THEN
5225: X_return_status := FND_API.G_RET_STS_SUCCESS ;
5226: END IF ;
5227:
5228: SAVEPOINT add_funding_pvt ;
5229:
5247: set_return_status ( X_return_status, 'U') ;
5248:
5249: END IF;
5250:
5251: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS then
5252: RAISE FND_API.G_EXC_ERROR;
5253: END IF ;
5254:
5255: G_stage := 'FND_API.Compatible_API_Call' ;
5248:
5249: END IF;
5250:
5251: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS then
5252: RAISE FND_API.G_EXC_ERROR;
5253: END IF ;
5254:
5255: G_stage := 'FND_API.Compatible_API_Call' ;
5256:
5251: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS then
5252: RAISE FND_API.G_EXC_ERROR;
5253: END IF ;
5254:
5255: G_stage := 'FND_API.Compatible_API_Call' ;
5256:
5257: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
5258: p_api_version_number ,
5259: l_api_name ,
5253: END IF ;
5254:
5255: G_stage := 'FND_API.Compatible_API_Call' ;
5256:
5257: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
5258: p_api_version_number ,
5259: l_api_name ,
5260: G_pkg_name )
5261: THEN
5307: -- validations. There is no point in doing further validations as the
5308: -- required columns donot have values. So we raise an Error.
5309: -- ===================================================================
5310:
5311: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS then
5312: RAISE FND_API.G_EXC_ERROR;
5313: END IF ;
5314:
5315: -- ===================================================================
5308: -- required columns donot have values. So we raise an Error.
5309: -- ===================================================================
5310:
5311: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS then
5312: RAISE FND_API.G_EXC_ERROR;
5313: END IF ;
5314:
5315: -- ===================================================================
5316: -- Check for the Award Validity
5540: add_message_to_stack( P_label => 'GMS_FUNDING_AMOUNT_EXCEEDED' ) ;
5541: set_return_status ( X_return_status, 'B') ;
5542: END IF ;
5543:
5544: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS then
5545: RAISE FND_API.G_EXC_ERROR;
5546: END IF ;
5547:
5548: -- ======================================================
5541: set_return_status ( X_return_status, 'B') ;
5542: END IF ;
5543:
5544: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS then
5545: RAISE FND_API.G_EXC_ERROR;
5546: END IF ;
5547:
5548: -- ======================================================
5549: -- Sequence number is required for gms_project_funding_id
5591: set_return_status ( X_return_status, 'B') ;
5592:
5593: END IF;
5594:
5595: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS then
5596: RAISE FND_API.G_EXC_ERROR;
5597: END IF ;
5598:
5599: -- ============================================================
5592:
5593: END IF;
5594:
5595: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS then
5596: RAISE FND_API.G_EXC_ERROR;
5597: END IF ;
5598:
5599: -- ============================================================
5600: -- PA_PROJECT_FUNDINGS and PA_SUMMARY_PROJECT_FUNDINGS
5623: set_return_status ( X_RETURN_STATUS, 'B') ;
5624:
5625: END IF;
5626:
5627: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS then
5628: RAISE FND_API.G_EXC_ERROR;
5629: END IF ;
5630:
5631: G_stage := 'At the End of the ADD_FUNDING';
5624:
5625: END IF;
5626:
5627: IF NVL(X_return_status , FND_API.G_RET_STS_SUCCESS) <> FND_API.G_RET_STS_SUCCESS then
5628: RAISE FND_API.G_EXC_ERROR;
5629: END IF ;
5630:
5631: G_stage := 'At the End of the ADD_FUNDING';
5632:
5639: set_return_status(X_RETURN_STATUS, 'B' ) ;
5640: x_msg_count := G_msg_count ;
5641: x_msg_data := G_msg_data ;
5642:
5643: WHEN FND_API.G_EXC_ERROR THEN
5644: ROLLBACK TO add_funding_pvt ;
5645: set_return_status(X_RETURN_STATUS, 'B' ) ;
5646: x_msg_count := G_msg_count ;
5647: x_msg_data := G_msg_data ;
5646: x_msg_count := G_msg_count ;
5647: x_msg_data := G_msg_data ;
5648: WHEN OTHERS THEN
5649: ROLLBACK TO add_funding_pvt;
5650: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5651:
5652: FND_MSG_PUB.add_exc_msg
5653: ( P_PKG_NAME => G_PKG_NAME
5654: , P_PROCEDURE_NAME => l_api_name );