[Home] [Help]
457:
458: BEGIN
459:
460: x_msg_count := 0;
461: x_return_status := FND_API.G_RET_STS_SUCCESS;
462: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
463:
464: IF l_debug_mode = 'Y' THEN
465: PA_DEBUG.set_curr_function( p_function => 'GET_OKE_FLAGS'
507: END IF ;
508:
509: EXCEPTION
510: WHEN OTHERS THEN
511: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
512: x_msg_count := 1;
513: x_msg_data := SQLERRM;
514:
515: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_DELIVERABLE_UTILS'
677: l_system_status_code pa_lookups.lookup_code%TYPE ;
678: l_status_change_allowed VARCHAR2(1) ;
679: BEGIN
680:
681: x_return_status := FND_API.G_RET_STS_SUCCESS;
682:
683: OPEN c_get_system_status ;
684: FETCH c_get_system_status INTO l_system_status_code ;
685: IF c_get_system_status%NOTFOUND THEN
682:
683: OPEN c_get_system_status ;
684: FETCH c_get_system_status INTO l_system_status_code ;
685: IF c_get_system_status%NOTFOUND THEN
686: x_return_status := FND_API.G_RET_STS_SUCCESS;
687: END IF ;
688: CLOSE c_get_system_status ;
689:
690: -- Status mapped to system defined DLVR_ON_HOLD/DLVR_CANCELLED
706: -- not allowed
707: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
708: p_msg_name => 'PA_DLV_STATUS_CHG_NOT_ALLOWED');
709: -- 4229934 end
710: x_return_status := FND_API.G_RET_STS_ERROR;
711: END IF ;
712:
713: CLOSE c_ship_procure_flag_dlv ;
714:
730: IF PA_DELIVERABLE_UTILS.IS_DLV_DOC_DEFINED(p_dlvr_item_id,p_dlvr_version_id) = 'N' THEN
731: l_status_change_allowed := 'N' ;
732: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
733: p_msg_name => 'PA_DLV_DOC_NOT_DEFINED');
734: x_return_status := FND_API.G_RET_STS_ERROR;
735: ELSE
736: l_status_change_allowed := 'Y' ;
737: END IF ;
738:
741: IF OKE_DELIVERABLE_UTILS_PUB.Item_Defined_Yn(p_dlvr_version_id) = 'N' THEN
742: l_status_change_allowed := 'N' ;
743: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
744: p_msg_name => 'PA_DLV_ITEM_NOT_DEFINED');
745: x_return_status := FND_API.G_RET_STS_ERROR;
746: ELSE
747: l_status_change_allowed := 'Y' ;
748: END IF ;
749:
757: ELSE
758: l_status_change_allowed := 'N' ;
759: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
760: p_msg_name => 'PA_DLV_WSH_REQ_NOT_INITIATED');
761: x_return_status := FND_API.G_RET_STS_ERROR;
762: END IF ;
763: CLOSE c_complete_dlv_check ;
764:
765:
771: ELSE
772: l_status_change_allowed := 'N' ;
773: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
774: p_msg_name => 'PA_DLV_BILL_EVT_NOT_INITIATED');
775: x_return_status := FND_API.G_RET_STS_ERROR;
776: END IF ;
777: CLOSE c_complete_dlv_bill_check ;
778:
779: END IF ;
779: END IF ;
780: EXCEPTION
781: WHEN OTHERS THEN
782:
783: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
784: x_msg_count := 1;
785: x_msg_data := SQLERRM;
786:
787: IF c_ship_procure_flag_dlv%ISOPEN THEN
1024: */
1025:
1026: BEGIN
1027: x_msg_count := 0;
1028: x_return_status := FND_API.G_RET_STS_SUCCESS;
1029: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
1030:
1031: IF l_debug_mode = 'Y' THEN
1032: PA_DEBUG.set_curr_function( p_function => 'GET_STRICTURE_INFO',
1055:
1056: x_proj_element_id := l_proj_element_id;
1057: x_element_version_id := l_element_version_id;
1058:
1059: x_return_status := FND_API.G_RET_STS_SUCCESS;
1060:
1061: IF l_debug_mode = 'Y' THEN --Added for bug 4945876
1062: pa_debug.reset_curr_function;
1063: END IF ;
1065: EXCEPTION
1066:
1067: WHEN OTHERS THEN
1068:
1069: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1070: x_msg_count := 1;
1071: x_msg_data := SQLERRM;
1072:
1073: IF l_struct_info_csr%ISOPEN THEN
2743:
2744: BEGIN
2745:
2746: x_return_flag := null;
2747: x_return_status := FND_API.G_RET_STS_SUCCESS;
2748: x_msg_count := 0;
2749: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
2750:
2751: IF l_debug_mode = 'Y' THEN
2769: OPEN cur_tsk_assoc;
2770: FETCH cur_tsk_assoc INTO l_dummy;
2771: IF cur_tsk_assoc%FOUND THEN
2772: x_return_flag := 'N';
2773: x_return_status := FND_API.G_RET_STS_ERROR;
2774: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
2775: p_msg_name => 'PA_DLV_TASK_ASSN_EXISTS' );
2776: CLOSE cur_tsk_assoc;
2777: return;
2783: OPEN cur_dlvr_progress;
2784: FETCH cur_dlvr_progress INTO l_dummy;
2785: IF cur_dlvr_progress%FOUND THEN
2786: x_return_flag := 'N';
2787: x_return_status := FND_API.G_RET_STS_ERROR;
2788: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
2789: p_msg_name => 'PA_DLV_HAS_PROGRESS' );
2790: CLOSE cur_dlvr_progress;
2791: return;
2796: OPEN cur_ship_or_proc;
2797: FETCH cur_ship_or_proc INTO l_dummy;
2798: IF cur_ship_or_proc%FOUND THEN
2799: x_return_flag := 'N';
2800: x_return_status := FND_API.G_RET_STS_ERROR;
2801: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
2802: p_msg_name => 'PA_DLV_ACTION_TXN_EXISTS' );
2803: CLOSE cur_ship_or_proc;
2804: return;
2809: OPEN cur_billing_fn;
2810: FETCH cur_billing_fn INTO l_dummy;
2811: IF cur_billing_fn%FOUND THEN
2812: x_return_flag := 'N';
2813: x_return_status := FND_API.G_RET_STS_ERROR;
2814: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
2815: p_msg_name => 'PA_DLV_ACTION_TXN_EXISTS' );
2816: CLOSE cur_billing_fn;
2817: return;
2819: CLOSE cur_billing_fn;
2820: END IF;
2821:
2822: -- x_return_flag := 'W';
2823: -- x_return_status := FND_API.G_RET_STS_ERROR;
2824: -- PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
2825: -- p_msg_name => 'PA_DLV_DEFINED' );
2826: return;
2827: END IF;
2831: END IF ;
2832:
2833: EXCEPTION
2834: WHEN OTHERS THEN
2835: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2836: x_msg_count := 1;
2837: x_msg_data := SQLERRM;
2838:
2839: IF cur_dlvr_progress%ISOPEN THEN
2915:
2916: l_system_code PA_PROJECT_STATUSES.PROJECT_SYSTEM_STATUS_CODE%TYPE;
2917: l_dummy NUMBER;
2918: BEGIN
2919: x_return_status := FND_API.G_RET_STS_SUCCESS;
2920: x_msg_count := 0;
2921: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
2922:
2923: IF l_debug_mode = 'Y' THEN
2945: ELSIF l_system_code = 'CANCELLED' THEN
2946: OPEN cur_check_cancel_possible;
2947: FETCH cur_check_cancel_possible INTO l_dummy;
2948: IF cur_check_cancel_possible%FOUND THEN
2949: x_return_status := FND_API.G_RET_STS_ERROR;
2950: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
2951: p_msg_name => 'PA_TSK_DEL_TXN_EXISTS' );
2952: CLOSE cur_check_cancel_possible;
2953: return;
2966: END IF ;
2967:
2968: EXCEPTION
2969: WHEN OTHERS THEN
2970: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2971: x_msg_count := 1;
2972: x_msg_data := SQLERRM;
2973:
2974: IF cur_check_cancel_possible%ISOPEN THEN
3038: l_debug_level5 CONSTANT NUMBER := 5;
3039:
3040: l_dummy NUMBER;
3041: BEGIN
3042: x_return_status := FND_API.G_RET_STS_SUCCESS;
3043: x_msg_count := 0;
3044: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
3045:
3046: IF l_debug_mode = 'Y' THEN
3060:
3061: OPEN cur_check_transaction_init;
3062: FETCH cur_check_transaction_init INTO l_dummy;
3063: IF cur_check_transaction_init%FOUND THEN
3064: x_return_status := FND_API.G_RET_STS_ERROR;
3065: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
3066: p_msg_name => 'PA_PS_WP_MAPPING_TXN_EXISTS' );
3067: END IF;
3068: CLOSE cur_check_transaction_init;
3072: END IF ;
3073:
3074: EXCEPTION
3075: WHEN OTHERS THEN
3076: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3077: x_msg_count := 1;
3078: x_msg_data := SQLERRM;
3079:
3080: IF cur_check_transaction_init%ISOPEN THEN
3152:
3153: l_dummy NUMBER;
3154:
3155: BEGIN
3156: x_return_status := FND_API.G_RET_STS_SUCCESS;
3157: x_msg_count := 0;
3158:
3159: /* Commented this code because we dont need this code
3160: In the Context ,this API is used .
3162: AND 'DELIVERABLE' <> p_prog_method_code THEN
3163: OPEN cur_assoc_dlvr_has_prog;
3164: FETCH cur_assoc_dlvr_has_prog INTO l_dummy;
3165: IF cur_assoc_dlvr_has_prog%FOUND THEN
3166: x_return_status := FND_API.G_RET_STS_ERROR;
3167: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
3168: p_msg_name => 'PA_TSK_PROGRESS_LOSE_WARN' );
3169: CLOSE cur_assoc_dlvr_has_prog;
3170: return;
3178: FETCH cur_dlvr_assoc_exists INTO l_dummy;
3179: CLOSE cur_dlvr_assoc_exists;
3180:
3181: IF nvl(l_dummy,0)=1 THEN
3182: x_return_status := FND_API.G_RET_STS_ERROR;
3183: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
3184: p_msg_name => 'PA_TSK_PROGRESS_MTH_ERR' );
3185: /* CLOSE cur_assoc_dlvr_has_prog; Commented as Cursor not used*/
3186: END IF;
3192: END IF; Commented as this cursor not used anymore */
3193:
3194: EXCEPTION
3195: WHEN OTHERS THEN
3196: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3197: x_msg_count := 1;
3198: x_msg_data := SQLERRM;
3199:
3200: /* IF cur_assoc_dlvr_has_prog%ISOPEN THEN
3266: l_debug_level5 CONSTANT NUMBER := 5;
3267:
3268: l_return_flag VARCHAR2(1) := 'Y';
3269: BEGIN
3270: x_return_status := FND_API.G_RET_STS_SUCCESS;
3271: x_msg_count := 0;
3272: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
3273:
3274: IF l_debug_mode = 'Y' THEN
3285:
3286: OPEN cur_proj_txn_exists;
3287: FETCH cur_proj_txn_exists INTO l_return_flag;
3288: IF cur_proj_txn_exists%FOUND THEN
3289: x_return_status := FND_API.G_RET_STS_ERROR;
3290: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
3291: p_msg_name => 'PA_STR_SETUP_CHANGE_ERR' );
3292: ELSE
3293: l_return_flag := 'N';
3300:
3301: return l_return_flag;
3302: EXCEPTION
3303: WHEN OTHERS THEN
3304: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3305: x_msg_count := 1;
3306: x_msg_data := SQLERRM;
3307:
3308: IF cur_proj_txn_exists%ISOPEN THEN
3628: OPEN cur_projects_all;
3629: FETCH cur_projects_all INTO l_project_type_class_code;
3630: CLOSE cur_projects_all;
3631: RETURN l_project_type_class_code;
3632: x_return_status:= FND_API.G_RET_STS_SUCCESS;
3633: EXCEPTION
3634: WHEN OTHERS THEN
3635: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
3636: END Get_Project_Type_Class;
3631: RETURN l_project_type_class_code;
3632: x_return_status:= FND_API.G_RET_STS_SUCCESS;
3633: EXCEPTION
3634: WHEN OTHERS THEN
3635: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
3636: END Get_Project_Type_Class;
3637:
3638: -- SubProgram : IS_DLVR_ITEM_BASED
3639: -- Type : UTIL FUNCTION
3848:
3849: BEGIN
3850:
3851: x_msg_count := 0;
3852: x_return_status := FND_API.G_RET_STS_SUCCESS;
3853: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
3854:
3855: IF l_debug_mode = 'Y' THEN
3856: PA_DEBUG.set_curr_function( p_function => 'VALIDATE_DELIVERABLE', p_debug_mode => l_debug_mode );
3903: p_token4 => 'MESSAGE',
3904: p_value4 => l_err_message
3905: );
3906: END IF;
3907: x_return_status := FND_API.G_RET_STS_ERROR;
3908: RAISE FND_API.G_EXC_ERROR;
3909: END IF;
3910:
3911: IF l_debug_mode = 'Y' THEN
3904: p_value4 => l_err_message
3905: );
3906: END IF;
3907: x_return_status := FND_API.G_RET_STS_ERROR;
3908: RAISE FND_API.G_EXC_ERROR;
3909: END IF;
3910:
3911: IF l_debug_mode = 'Y' THEN
3912: Pa_Debug.WRITE(g_module_name,' validating deliverable name '||p_dlvr_name, l_debug_level3);
3930: p_token4 => 'MESSAGE',
3931: p_value4 => l_err_message
3932: );
3933: END IF;
3934: x_return_status := FND_API.G_RET_STS_ERROR;
3935: RAISE FND_API.G_EXC_ERROR;
3936: END IF;
3937:
3938: IF l_debug_mode = 'Y' THEN
3931: p_value4 => l_err_message
3932: );
3933: END IF;
3934: x_return_status := FND_API.G_RET_STS_ERROR;
3935: RAISE FND_API.G_EXC_ERROR;
3936: END IF;
3937:
3938: IF l_debug_mode = 'Y' THEN
3939: Pa_Debug.WRITE(g_module_name,' validating deliverable short name '||p_dlvr_number, l_debug_level3);
3957: p_token4 => 'MESSAGE',
3958: p_value4 => l_err_message
3959: );
3960: END IF;
3961: x_return_status := FND_API.G_RET_STS_ERROR;
3962: RAISE FND_API.G_EXC_ERROR;
3963:
3964: ELSE -- Deliverable type is not null, checking for valid value
3965: IF (Pa_Deliverable_Utils.IS_DLV_TYPE_ID_VALID(p_dlvr_type_id) = 'N') THEN
3958: p_value4 => l_err_message
3959: );
3960: END IF;
3961: x_return_status := FND_API.G_RET_STS_ERROR;
3962: RAISE FND_API.G_EXC_ERROR;
3963:
3964: ELSE -- Deliverable type is not null, checking for valid value
3965: IF (Pa_Deliverable_Utils.IS_DLV_TYPE_ID_VALID(p_dlvr_type_id) = 'N') THEN
3966: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3977: p_token4 => 'MESSAGE',
3978: p_value4 => l_err_message
3979: );
3980: END IF;
3981: x_return_status := FND_API.G_RET_STS_ERROR;
3982: RAISE FND_API.G_EXC_ERROR;
3983: END IF;
3984: END IF;
3985:
3978: p_value4 => l_err_message
3979: );
3980: END IF;
3981: x_return_status := FND_API.G_RET_STS_ERROR;
3982: RAISE FND_API.G_EXC_ERROR;
3983: END IF;
3984: END IF;
3985:
3986: IF l_debug_mode = 'Y' THEN
4003: Pa_Debug.WRITE(g_module_name,' validated owner id'||l_dlvr_owner_id||x_return_status , l_debug_level3);
4004: END IF;
4005:
4006: -- added for bug: 4537865
4007: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
4008: l_dlvr_owner_id := l_new_dlvr_owner_id;
4009: END IF;
4010: -- added for bug: 4537865
4011:
4008: l_dlvr_owner_id := l_new_dlvr_owner_id;
4009: END IF;
4010: -- added for bug: 4537865
4011:
4012: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4013: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4014: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
4015: l_err_message := FND_MESSAGE.GET_STRING('PA','DLVR_OWNER_INVALID') ;
4016: PA_UTILS.ADD_MESSAGE
4009: END IF;
4010: -- added for bug: 4537865
4011:
4012: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4013: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4014: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
4015: l_err_message := FND_MESSAGE.GET_STRING('PA','DLVR_OWNER_INVALID') ;
4016: PA_UTILS.ADD_MESSAGE
4017: (p_app_short_name => 'PA',
4010: -- added for bug: 4537865
4011:
4012: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4013: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4014: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
4015: l_err_message := FND_MESSAGE.GET_STRING('PA','DLVR_OWNER_INVALID') ;
4016: PA_UTILS.ADD_MESSAGE
4017: (p_app_short_name => 'PA',
4018: p_msg_name => 'PA_DLVR_VALID_ERR',
4024: p_value3 => p_deliverable_reference,
4025: p_token4 => 'MESSAGE',
4026: p_value4 => l_err_message
4027: );
4028: x_return_status := FND_API.G_RET_STS_ERROR;
4029: RAISE FND_API.G_EXC_ERROR;
4030: END IF;
4031: END IF;
4032:
4025: p_token4 => 'MESSAGE',
4026: p_value4 => l_err_message
4027: );
4028: x_return_status := FND_API.G_RET_STS_ERROR;
4029: RAISE FND_API.G_EXC_ERROR;
4030: END IF;
4031: END IF;
4032:
4033: -- Validating Status Code - valid value
4053: p_value4 => l_err_message
4054: );
4055:
4056: END IF;
4057: x_return_status := FND_API.G_RET_STS_ERROR;
4058: RAISE FND_API.G_EXC_ERROR;
4059: END IF;
4060:
4061: -- Validating Carrying Out Org Id - valid value
4054: );
4055:
4056: END IF;
4057: x_return_status := FND_API.G_RET_STS_ERROR;
4058: RAISE FND_API.G_EXC_ERROR;
4059: END IF;
4060:
4061: -- Validating Carrying Out Org Id - valid value
4062: IF (l_carrying_out_org_id IS NOT NULL ) THEN
4072: Pa_Debug.WRITE(g_module_name,' validating carrying out org'||l_carrying_out_org_id||x_return_status, l_debug_level3);
4073: END IF;
4074:
4075: -- added for Bug: 4537685
4076: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
4077: l_carrying_out_org_id := l_new_carrying_out_org_id;
4078: END IF;
4079: -- added for Bug: 4537685
4080:
4077: l_carrying_out_org_id := l_new_carrying_out_org_id;
4078: END IF;
4079: -- added for Bug: 4537685
4080:
4081: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4082: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4083: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
4084: l_err_message := FND_MESSAGE.GET_STRING('PA','DLVR_CARRYING_ORG_INVALID') ;
4085: PA_UTILS.ADD_MESSAGE
4078: END IF;
4079: -- added for Bug: 4537685
4080:
4081: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4082: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4083: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
4084: l_err_message := FND_MESSAGE.GET_STRING('PA','DLVR_CARRYING_ORG_INVALID') ;
4085: PA_UTILS.ADD_MESSAGE
4086: (p_app_short_name => 'PA',
4079: -- added for Bug: 4537685
4080:
4081: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4082: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4083: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
4084: l_err_message := FND_MESSAGE.GET_STRING('PA','DLVR_CARRYING_ORG_INVALID') ;
4085: PA_UTILS.ADD_MESSAGE
4086: (p_app_short_name => 'PA',
4087: p_msg_name => 'PA_DLVR_VALID_ERR',
4093: p_value3 => p_deliverable_reference,
4094: p_token4 => 'MESSAGE',
4095: p_value4 => l_err_message
4096: );
4097: x_return_status := FND_API.G_RET_STS_ERROR;
4098: RAISE FND_API.G_EXC_ERROR;
4099: END IF;
4100: END IF;
4101:
4094: p_token4 => 'MESSAGE',
4095: p_value4 => l_err_message
4096: );
4097: x_return_status := FND_API.G_RET_STS_ERROR;
4098: RAISE FND_API.G_EXC_ERROR;
4099: END IF;
4100: END IF;
4101:
4102: Pa_Deliverable_Utils.Progress_Enabled_Validation
4114: pa_debug.reset_curr_function;
4115: END IF ;
4116:
4117: EXCEPTION
4118: WHEN FND_API.G_EXC_ERROR THEN
4119: x_return_status := FND_API.G_RET_STS_ERROR;
4120: IF l_debug_mode = 'Y' THEN --Added for bug 4945876
4121: pa_debug.reset_curr_function;
4122: END IF ;
4115: END IF ;
4116:
4117: EXCEPTION
4118: WHEN FND_API.G_EXC_ERROR THEN
4119: x_return_status := FND_API.G_RET_STS_ERROR;
4120: IF l_debug_mode = 'Y' THEN --Added for bug 4945876
4121: pa_debug.reset_curr_function;
4122: END IF ;
4123:
4120: IF l_debug_mode = 'Y' THEN --Added for bug 4945876
4121: pa_debug.reset_curr_function;
4122: END IF ;
4123:
4124: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4125: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4126: IF l_debug_mode = 'Y' THEN --Added for bug 4945876
4127: pa_debug.reset_curr_function;
4128: END IF ;
4121: pa_debug.reset_curr_function;
4122: END IF ;
4123:
4124: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4125: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4126: IF l_debug_mode = 'Y' THEN --Added for bug 4945876
4127: pa_debug.reset_curr_function;
4128: END IF ;
4129:
4127: pa_debug.reset_curr_function;
4128: END IF ;
4129:
4130: WHEN OTHERS THEN
4131: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4132:
4133: IF l_debug_mode = 'Y' THEN --Added for bug 4945876
4134: pa_debug.reset_curr_function;
4135: END IF ;
4338:
4339:
4340: BEGIN
4341:
4342: x_return_status := FND_API.G_RET_STS_SUCCESS;
4343:
4344: IF p_deliverable_reference <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
4345: AND p_deliverable_reference IS NOT NULL
4346: THEN
4364: p_value4 => l_err_message
4365: );
4366: END IF;
4367: x_unique_flag := 'N';
4368: --RAISE FND_API.G_EXC_ERROR; Commented bug 3651538 as Exception should not be raised as
4369: -- it indicates that dlvr is to be updated.
4370: ELSE --l_dlvr_ref_csr%FOUND
4371: x_unique_flag := 'Y';
4372: END IF; --l_dlvr_ref_csr%FOUND
4389: p_value4 => l_err_message
4390: );
4391: END IF;
4392: x_unique_flag := Null;
4393: RAISE FND_API.G_EXC_ERROR;
4394:
4395: END IF; -- If p_deliverable_reference <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
4396:
4397:
4395: END IF; -- If p_deliverable_reference <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
4396:
4397:
4398: EXCEPTION
4399: WHEN FND_API.G_EXC_ERROR THEN
4400: x_return_status := FND_API.G_RET_STS_ERROR;
4401:
4402: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4403: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4396:
4397:
4398: EXCEPTION
4399: WHEN FND_API.G_EXC_ERROR THEN
4400: x_return_status := FND_API.G_RET_STS_ERROR;
4401:
4402: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4403: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4404:
4398: EXCEPTION
4399: WHEN FND_API.G_EXC_ERROR THEN
4400: x_return_status := FND_API.G_RET_STS_ERROR;
4401:
4402: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4403: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4404:
4405: WHEN OTHERS THEN
4406: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4399: WHEN FND_API.G_EXC_ERROR THEN
4400: x_return_status := FND_API.G_RET_STS_ERROR;
4401:
4402: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4403: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4404:
4405: WHEN OTHERS THEN
4406: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4407: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4402: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4403: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4404:
4405: WHEN OTHERS THEN
4406: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4407: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4408: FND_MSG_PUB.add_exc_msg
4409: ( p_pkg_name => G_MODULE_NAME
4410: , p_procedure_name => l_api_name );
4463: l_project_number Pa_Projects_All.Segment1%TYPE;
4464:
4465: BEGIN
4466:
4467: p_return_status := FND_API.G_RET_STS_SUCCESS;
4468:
4469: OPEN proj_num;
4470: FETCH proj_num INTO l_project_number;
4471: CLOSE proj_num;
4495: p_value4 => l_err_message
4496: );
4497: END IF;
4498: CLOSE l_dlvr_id_csr;
4499: RAISE FND_API.G_EXC_ERROR;
4500: END IF;
4501:
4502: CLOSE l_dlvr_id_csr;
4503: p_out_deliverable_id := p_deliverable_id;
4527: p_value4 => l_err_message
4528: );
4529: END IF;
4530: CLOSE l_dlvr_ref_csr;
4531: RAISE FND_API.G_EXC_ERROR;
4532: END IF;
4533:
4534: CLOSE l_dlvr_ref_csr;
4535: p_out_deliverable_id := l_deliverable_id;
4546: p_token3 => 'MESSAGE',
4547: p_value3 => l_err_message
4548: );
4549: END IF;
4550: RAISE FND_API.G_EXC_ERROR;
4551:
4552: END IF; -- If p_deliverable_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
4553:
4554: EXCEPTION
4551:
4552: END IF; -- If p_deliverable_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
4553:
4554: EXCEPTION
4555: WHEN FND_API.G_EXC_ERROR THEN
4556: p_return_status := FND_API.G_RET_STS_ERROR;
4557:
4558: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4559: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4552: END IF; -- If p_deliverable_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
4553:
4554: EXCEPTION
4555: WHEN FND_API.G_EXC_ERROR THEN
4556: p_return_status := FND_API.G_RET_STS_ERROR;
4557:
4558: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4559: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4560:
4554: EXCEPTION
4555: WHEN FND_API.G_EXC_ERROR THEN
4556: p_return_status := FND_API.G_RET_STS_ERROR;
4557:
4558: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4559: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4560:
4561: WHEN OTHERS THEN
4562: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4555: WHEN FND_API.G_EXC_ERROR THEN
4556: p_return_status := FND_API.G_RET_STS_ERROR;
4557:
4558: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4559: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4560:
4561: WHEN OTHERS THEN
4562: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4563: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4558: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4559: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4560:
4561: WHEN OTHERS THEN
4562: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4563: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4564: FND_MSG_PUB.add_exc_msg
4565: ( p_pkg_name => G_MODULE_NAME
4566: , p_procedure_name => l_api_name );
4656: l_deliverable_name Pa_proj_elements.name%TYPE;
4657:
4658: BEGIN
4659:
4660: x_return_status := FND_API.G_RET_STS_SUCCESS;
4661:
4662: OPEN proj_num;
4663: FETCH proj_num INTO l_project_number, l_deliverable_name;
4664: CLOSE proj_num;
4687: END IF; -- fnd_msg_pub.g_msg_lvl_error
4688:
4689: CLOSE l_action_ref_csr;
4690: x_unique_flag := 'N';
4691: RAISE FND_API.G_EXC_ERROR;
4692:
4693: END IF; -- l_action_dlvr_relation%FOUND
4694: CLOSE l_action_ref_csr;
4695:
4711: END IF;-- fnd_msg_pub.g_msg_lvl_error
4712:
4713: x_unique_flag := Null;
4714:
4715: RAISE FND_API.G_EXC_ERROR;
4716:
4717: END IF; -- p_action_reference IS NULL
4718:
4719: x_unique_flag := 'Y';
4718:
4719: x_unique_flag := 'Y';
4720:
4721: EXCEPTION
4722: WHEN FND_API.G_EXC_ERROR THEN
4723: x_return_status := FND_API.G_RET_STS_ERROR;
4724:
4725: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4726: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4719: x_unique_flag := 'Y';
4720:
4721: EXCEPTION
4722: WHEN FND_API.G_EXC_ERROR THEN
4723: x_return_status := FND_API.G_RET_STS_ERROR;
4724:
4725: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4726: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4727:
4721: EXCEPTION
4722: WHEN FND_API.G_EXC_ERROR THEN
4723: x_return_status := FND_API.G_RET_STS_ERROR;
4724:
4725: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4726: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4727:
4728: WHEN OTHERS THEN
4729: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4722: WHEN FND_API.G_EXC_ERROR THEN
4723: x_return_status := FND_API.G_RET_STS_ERROR;
4724:
4725: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4726: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4727:
4728: WHEN OTHERS THEN
4729: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4730: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4725: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4726: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4727:
4728: WHEN OTHERS THEN
4729: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4730: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4731: FND_MSG_PUB.add_exc_msg
4732: ( p_pkg_name => G_MODULE_NAME
4733: , p_procedure_name => l_api_name );
4827: l_deliverable_name Pa_proj_elements.name%TYPE;
4828:
4829: BEGIN
4830:
4831: p_return_status := FND_API.G_RET_STS_SUCCESS;
4832:
4833: OPEN proj_num;
4834: FETCH proj_num INTO l_project_number, l_deliverable_name;
4835: CLOSE proj_num;
4860: );
4861:
4862: END IF;
4863: CLOSE l_action_id_csr;
4864: RAISE FND_API.G_EXC_ERROR;
4865: END IF;
4866:
4867: CLOSE l_action_id_csr;
4868: p_out_action_id := p_action_id;
4893: );
4894: END IF;
4895:
4896: CLOSE l_action_ref_csr;
4897: RAISE FND_API.G_EXC_ERROR;
4898: END IF;
4899:
4900: CLOSE l_action_ref_csr;
4901: p_out_action_id := l_action_id;
4914: p_token4 => 'MESSAGE',
4915: p_value4 => l_err_message
4916: );
4917: END IF;
4918: RAISE FND_API.G_EXC_ERROR;
4919:
4920: END IF; -- If p_action_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
4921:
4922: EXCEPTION
4919:
4920: END IF; -- If p_action_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
4921:
4922: EXCEPTION
4923: WHEN FND_API.G_EXC_ERROR THEN
4924: p_return_status := FND_API.G_RET_STS_ERROR;
4925:
4926: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4927: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4920: END IF; -- If p_action_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
4921:
4922: EXCEPTION
4923: WHEN FND_API.G_EXC_ERROR THEN
4924: p_return_status := FND_API.G_RET_STS_ERROR;
4925:
4926: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4927: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4928:
4922: EXCEPTION
4923: WHEN FND_API.G_EXC_ERROR THEN
4924: p_return_status := FND_API.G_RET_STS_ERROR;
4925:
4926: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4927: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4928:
4929: WHEN OTHERS THEN
4930: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4923: WHEN FND_API.G_EXC_ERROR THEN
4924: p_return_status := FND_API.G_RET_STS_ERROR;
4925:
4926: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4927: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4928:
4929: WHEN OTHERS THEN
4930: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4931: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4926: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4927: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4928:
4929: WHEN OTHERS THEN
4930: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4931: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4932: FND_MSG_PUB.add_exc_msg
4933: ( p_pkg_name => G_MODULE_NAME
4934: , p_procedure_name => l_api_name );
5028: -- creating Structure, Structure Versions, Structure Version Attributes
5029:
5030: Procedure enable_deliverable(
5031: p_api_version IN NUMBER := 1.0
5032: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
5033: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
5034: , p_debug_mode IN VARCHAR2 := 'N'
5035: , p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
5036: , p_project_id IN Pa_Projects_All.project_id%TYPE
5029:
5030: Procedure enable_deliverable(
5031: p_api_version IN NUMBER := 1.0
5032: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
5033: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
5034: , p_debug_mode IN VARCHAR2 := 'N'
5035: , p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
5036: , p_project_id IN Pa_Projects_All.project_id%TYPE
5037: , x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
5031: p_api_version IN NUMBER := 1.0
5032: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
5033: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
5034: , p_debug_mode IN VARCHAR2 := 'N'
5035: , p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
5036: , p_project_id IN Pa_Projects_All.project_id%TYPE
5037: , x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
5038: , x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
5039: , x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
5055: -- added for Bug:4537865
5056: BEGIN
5057:
5058: -- Initialize the message table if requested.
5059: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
5060: FND_MSG_PUB.initialize;
5061: END IF;
5062:
5063: IF (p_commit = FND_API.G_TRUE) THEN
5059: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
5060: FND_MSG_PUB.initialize;
5061: END IF;
5062:
5063: IF (p_commit = FND_API.G_TRUE) THEN
5064: savepoint CREATE_DELIVERABLE_PUB;
5065: END IF;
5066:
5067: IF p_debug_mode = 'Y' THEN
5071: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
5072: END IF;
5073:
5074: -- Set API return status to success
5075: x_return_status := FND_API.G_RET_STS_SUCCESS;
5076:
5077: OPEN C_name;
5078: FETCH C_name INTO l_name;
5079: CLOSE C_name;
5098: IF p_debug_mode = 'Y' THEN
5099: pa_debug.write(g_module_name,'PA_PROJECT_STRUCTURE_PUB1.create_structure Return Status ['||x_return_status||']Struc ID['||l_structure_id||']',3) ;
5100: END IF;
5101:
5102: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5103: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5104: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5105: RAISE FND_API.G_EXC_ERROR;
5106: END IF;
5099: pa_debug.write(g_module_name,'PA_PROJECT_STRUCTURE_PUB1.create_structure Return Status ['||x_return_status||']Struc ID['||l_structure_id||']',3) ;
5100: END IF;
5101:
5102: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5103: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5104: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5105: RAISE FND_API.G_EXC_ERROR;
5106: END IF;
5107:
5100: END IF;
5101:
5102: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5103: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5104: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5105: RAISE FND_API.G_EXC_ERROR;
5106: END IF;
5107:
5108:
5101:
5102: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5103: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5104: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5105: RAISE FND_API.G_EXC_ERROR;
5106: END IF;
5107:
5108:
5109: PA_PROJECT_STRUCTURE_PUB1.Create_Structure_Version (
5123: IF p_debug_mode = 'Y' THEN
5124: pa_debug.write(g_module_name,'PA_PROJECT_STRUCTURE_PUB1.Create_Structure_Version Return Status ['||x_return_status||']Struc Vers ID['||l_structure_version_id||']',3) ;
5125: END IF;
5126:
5127: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5128: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5129: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5130: RAISE FND_API.G_EXC_ERROR;
5131: END IF;
5124: pa_debug.write(g_module_name,'PA_PROJECT_STRUCTURE_PUB1.Create_Structure_Version Return Status ['||x_return_status||']Struc Vers ID['||l_structure_version_id||']',3) ;
5125: END IF;
5126:
5127: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5128: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5129: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5130: RAISE FND_API.G_EXC_ERROR;
5131: END IF;
5132:
5125: END IF;
5126:
5127: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5128: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5129: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5130: RAISE FND_API.G_EXC_ERROR;
5131: END IF;
5132:
5133:
5126:
5127: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5128: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5129: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5130: RAISE FND_API.G_EXC_ERROR;
5131: END IF;
5132:
5133:
5134: PA_PROJECT_STRUCTURE_PUB1.Create_Structure_Version_Attr (
5151: IF p_debug_mode = 'Y' THEN
5152: pa_debug.write(g_module_name,'PA_PROJECT_STRUCTURE_PUB1.Create_Structure_Version_Attr Return Status ['||x_return_status||']Struc ID['||l_pev_structure_id||']',3) ;
5153: END IF;
5154:
5155: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5156: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5157: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5158: RAISE FND_API.G_EXC_ERROR;
5159: END IF;
5152: pa_debug.write(g_module_name,'PA_PROJECT_STRUCTURE_PUB1.Create_Structure_Version_Attr Return Status ['||x_return_status||']Struc ID['||l_pev_structure_id||']',3) ;
5153: END IF;
5154:
5155: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5156: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5157: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5158: RAISE FND_API.G_EXC_ERROR;
5159: END IF;
5160:
5153: END IF;
5154:
5155: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5156: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5157: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5158: RAISE FND_API.G_EXC_ERROR;
5159: END IF;
5160:
5161: IF p_debug_mode = 'Y' THEN --Added for bug 4945876
5154:
5155: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5156: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5157: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5158: RAISE FND_API.G_EXC_ERROR;
5159: END IF;
5160:
5161: IF p_debug_mode = 'Y' THEN --Added for bug 4945876
5162: pa_debug.reset_curr_function;
5162: pa_debug.reset_curr_function;
5163: END IF ;
5164:
5165: EXCEPTION
5166: WHEN FND_API.G_EXC_ERROR THEN
5167: IF (p_commit = FND_API.G_TRUE) THEN
5168: ROLLBACK TO CREATE_DELIVERABLE_PUB;
5169: END IF;
5170: IF p_debug_mode = 'Y' THEN
5163: END IF ;
5164:
5165: EXCEPTION
5166: WHEN FND_API.G_EXC_ERROR THEN
5167: IF (p_commit = FND_API.G_TRUE) THEN
5168: ROLLBACK TO CREATE_DELIVERABLE_PUB;
5169: END IF;
5170: IF p_debug_mode = 'Y' THEN
5171: pa_debug.reset_curr_function;
5170: IF p_debug_mode = 'Y' THEN
5171: pa_debug.reset_curr_function;
5172: pa_debug.write(g_module_name,l_api_name||': Inside G_EXC_ERROR exception',5);
5173: END IF;
5174: x_return_status := FND_API.G_RET_STS_ERROR;
5175: x_msg_count := FND_MSG_PUB.count_msg;
5176:
5177: IF x_msg_count = 1 THEN
5178: PA_INTERFACE_UTILS_PUB.get_messages
5175: x_msg_count := FND_MSG_PUB.count_msg;
5176:
5177: IF x_msg_count = 1 THEN
5178: PA_INTERFACE_UTILS_PUB.get_messages
5179: (p_encoded => FND_API.G_FALSE,
5180: p_msg_index => 1,
5181: p_msg_count => x_msg_count,
5182: p_msg_data => x_msg_data,
5183: -- p_data => x_msg_data, * commented for Bug: 4537865
5188: x_msg_data := l_new_msg_data;
5189: -- added for Bug: 4537865
5190: END IF;
5191:
5192: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5193: IF (p_commit = FND_API.G_TRUE) THEN
5194: ROLLBACK TO CREATE_DELIVERABLE_PUB;
5195: END IF;
5196: IF p_debug_mode = 'Y' THEN
5189: -- added for Bug: 4537865
5190: END IF;
5191:
5192: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5193: IF (p_commit = FND_API.G_TRUE) THEN
5194: ROLLBACK TO CREATE_DELIVERABLE_PUB;
5195: END IF;
5196: IF p_debug_mode = 'Y' THEN
5197: pa_debug.reset_curr_function;
5197: pa_debug.reset_curr_function;
5198:
5199: pa_debug.write(g_module_name,l_api_name||': Inside G_EXC_UNEXPECTED_ERROR exception',5);
5200: END IF;
5201: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5202: x_msg_count := FND_MSG_PUB.count_msg;
5203:
5204: IF x_msg_count = 1 THEN
5205: PA_INTERFACE_UTILS_PUB.get_messages
5202: x_msg_count := FND_MSG_PUB.count_msg;
5203:
5204: IF x_msg_count = 1 THEN
5205: PA_INTERFACE_UTILS_PUB.get_messages
5206: (p_encoded => FND_API.G_FALSE,
5207: p_msg_index => 1,
5208: p_msg_count => x_msg_count,
5209: p_msg_data => x_msg_data,
5210: -- p_data => x_msg_data, * commented for Bug: 4537865
5217:
5218: END IF;
5219:
5220: WHEN OTHERS THEN
5221: IF (p_commit = FND_API.G_TRUE) THEN
5222: ROLLBACK TO CREATE_DELIVERABLE_PUB;
5223: END IF;
5224: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5225: x_msg_count := 1;
5220: WHEN OTHERS THEN
5221: IF (p_commit = FND_API.G_TRUE) THEN
5222: ROLLBACK TO CREATE_DELIVERABLE_PUB;
5223: END IF;
5224: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5225: x_msg_count := 1;
5226: x_msg_data := SQLERRM;
5227:
5228: IF p_debug_mode = 'Y' THEN
5679:
5680: BEGIN
5681:
5682: x_msg_count := 0;
5683: x_return_status := FND_API.G_RET_STS_SUCCESS;
5684: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
5685:
5686: IF l_debug_mode = 'Y' THEN
5687: PA_DEBUG.set_curr_function( p_function => 'GET_DEFAULT_TASK'
5814: pa_debug.reset_curr_function;
5815: END IF;
5816: EXCEPTION
5817: WHEN OTHERS THEN
5818: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5819: x_msg_count := 1;
5820: x_msg_data := SQLERRM;
5821:
5822: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_DELIVERABLE_UTILS'
6013:
6014: BEGIN
6015:
6016: x_msg_count := 0;
6017: x_return_status := FND_API.G_RET_STS_SUCCESS;
6018: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
6019:
6020: IF l_debug_mode = 'Y' THEN
6021: PA_DEBUG.set_curr_function( p_function => 'GET_BILLING_DETAILS'
6035: END IF;
6036:
6037: EXCEPTION
6038: WHEN OTHERS THEN
6039: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6040: x_msg_count := 1;
6041: x_msg_data := SQLERRM;
6042:
6043: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_DELIVERABLE_UTILS'