[Home] [Help]
1: PACKAGE BODY PA_DELIVERABLE_UTILS AS
2: /* $Header: PADLUTLB.pls 120.8 2007/11/23 06:02:29 rthumma ship $ */
3: g_module_name VARCHAR2(100) := 'pa.plsql.PA_DELIVERABLE_UTILS';
4: l_debug_level2 CONSTANT NUMBER := 2;
5: l_debug_level3 CONSTANT NUMBER := 3;
1: PACKAGE BODY PA_DELIVERABLE_UTILS AS
2: /* $Header: PADLUTLB.pls 120.8 2007/11/23 06:02:29 rthumma ship $ */
3: g_module_name VARCHAR2(100) := 'pa.plsql.PA_DELIVERABLE_UTILS';
4: l_debug_level2 CONSTANT NUMBER := 2;
5: l_debug_level3 CONSTANT NUMBER := 3;
6: l_debug_level4 CONSTANT NUMBER := 4;
7: l_debug_level5 CONSTANT NUMBER := 5;
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'
516: ,p_procedure_name => 'GET_OKE_FLAGS');
517:
518: IF l_debug_mode = 'Y' THEN
519: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
610: AND obj.relationship_type = 'A'
611: AND obj.relationship_subtype = 'DELIVERABLE_TO_ACTION'
612: AND (nvl(OKE_DELIVERABLE_UTILS_PUB.WSH_Initiated_Yn(ver.element_version_id),'N') = 'Y'
613: OR nvl(OKE_DELIVERABLE_UTILS_PUB.REQ_Initiated_Yn(ver.element_version_id),'N') = 'Y'
614: OR PA_DELIVERABLE_UTILS.GET_FUNCTION_CODE(object_id_to2) = 'BILLING')
615: ) ;
616:
617: -- This cursor will fetch the system_status_code
618: -- for the given status_code .
640: AND obj.object_id_to2 = ver.proj_element_id
641: AND
642: (
643: (
644: PA_DELIVERABLE_UTILS.GET_FUNCTION_CODE(object_id_to2) = 'SHIPPING'
645: -- Commented for Bug 3503296 AND nvl(OKE_DELIVERABLE_UTILS_PUB.WSH_Initiated_Yn(ver.element_version_id),'N') = 'Y'
646: AND nvl(OKE_DELIVERABLE_UTILS_PUB.WSH_Initiated_Yn(ver.element_version_id),'N') = 'N' --Included for Bug 3503296
647: )
648: OR
646: AND nvl(OKE_DELIVERABLE_UTILS_PUB.WSH_Initiated_Yn(ver.element_version_id),'N') = 'N' --Included for Bug 3503296
647: )
648: OR
649: (
650: PA_DELIVERABLE_UTILS.GET_FUNCTION_CODE(object_id_to2) = 'PROCUREMENT'
651: -- Commented for Bug 3503296 AND nvl(OKE_DELIVERABLE_UTILS_PUB.REQ_Initiated_Yn(ver.element_version_id),'N') = 'Y'
652: AND nvl(OKE_DELIVERABLE_UTILS_PUB.REQ_Initiated_Yn(ver.element_version_id),'N') = 'N' --Included for Bug 3503296
653: )
654: )
668: AND obj.object_type_from = 'PA_DELIVERABLES'
669: AND obj.object_id_to2 = ver.proj_element_id
670: AND
671: (
672: PA_DELIVERABLE_UTILS.GET_FUNCTION_CODE(object_id_to2) = 'BILLING'
673: AND nvl(PA_BILLING_WRKBNCH_EVENTS.CHECK_DELV_EVENT_PROCESSED(ver.project_id,p_dlvr_version_id,ver.element_version_id) ,'N') = 'N'
674: )
675: );
676:
724: -- 5. Item based document has no item defined .
725:
726: IF l_system_status_code = 'DLVR_COMPLETED' THEN
727:
728: IF PA_DELIVERABLE_UTILS.GET_DLV_TYPE_CLASS_CODE(p_dlv_type_id) = 'DOCUMENT' THEN
729:
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',
726: IF l_system_status_code = 'DLVR_COMPLETED' THEN
727:
728: IF PA_DELIVERABLE_UTILS.GET_DLV_TYPE_CLASS_CODE(p_dlv_type_id) = 'DOCUMENT' THEN
729:
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:
739: ELSIF PA_DELIVERABLE_UTILS.GET_DLV_TYPE_CLASS_CODE(p_dlv_type_id) = 'ITEM' THEN
740:
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',
796: CLOSE c_complete_dlv_bill_check;
797: END IF;
798:
799: Fnd_Msg_Pub.add_exc_msg
800: ( p_pkg_name => 'PA_DELIVERABLE_UTILS'
801: , p_procedure_name => 'IS_DLV_STATUS_CHANGE_ALLOWED'
802: , p_error_text => x_msg_data);
803:
804: END IS_DLV_STATUS_CHANGE_ALLOWED ;
924: CLOSE l_doc_exists_csr;
925: END IF;
926:
927: Fnd_Msg_Pub.add_exc_msg
928: ( p_pkg_name => 'PA_DELIVERABLE_UTILS'
929: , p_procedure_name => 'IS_DLV_DOC_DEFINED'
930: , p_error_text => SUBSTRB(SQLERRM,1,240));
931:
932:
1074: CLOSE l_struct_info_csr;
1075: END IF;
1076:
1077: Fnd_Msg_Pub.add_exc_msg
1078: ( p_pkg_name => 'PA_DELIVERABLE_UTILS'
1079: , p_procedure_name => 'GET_STRUCTURE_INFO'
1080: , p_error_text => x_msg_data);
1081:
1082: IF l_debug_mode = 'Y' THEN
1138:
1139: WHEN OTHERS THEN
1140:
1141: Fnd_Msg_Pub.add_exc_msg
1142: ( p_pkg_name => 'PA_DELIVERABLE_UTILS'
1143: , p_procedure_name => 'GET_CARRYING_OUT_ORG'
1144: , p_error_text => SUBSTRB(SQLERRM,1,240));
1145:
1146: RAISE;
1199:
1200: WHEN OTHERS THEN
1201:
1202: Fnd_Msg_Pub.add_exc_msg
1203: ( p_pkg_name => 'PA_DELIVERABLE_UTILS'
1204: , p_procedure_name => 'GET_PROGRESS_ROLLUP_METHOD'
1205: , p_error_text => SUBSTRB(SQLERRM,1,240));
1206:
1207: RAISE;
1259:
1260: WHEN OTHERS THEN
1261:
1262: Fnd_Msg_Pub.add_exc_msg
1263: ( p_pkg_name => 'PA_DELIVERABLE_UTILS'
1264: , p_procedure_name => 'IS_ACTIONS_EXISTS'
1265: , p_error_text => SUBSTRB(SQLERRM,1,240));
1266:
1267: RAISE;
1322:
1323: WHEN OTHERS THEN
1324:
1325: Fnd_Msg_Pub.add_exc_msg
1326: ( p_pkg_name => 'PA_DELIVERABLE_UTILS'
1327: , p_procedure_name => 'IS_BILLING_FUNCTION_EXISTS'
1328: , p_error_text => SUBSTRB(SQLERRM,1,240));
1329:
1330: RAISE;
1370: return x_deliverable_has_progress;
1371:
1372: WHEN OTHERS THEN
1373: Fnd_Msg_Pub.add_exc_msg
1374: ( p_pkg_name => 'PA_DELIVERABLE_UTILS'
1375: , p_procedure_name => 'IS_DELIVERABLE_HAS_PROGRESS'
1376: , p_error_text => SUBSTRB(SQLERRM,1,240));
1377:
1378: RAISE;
1424:
1425: WHEN OTHERS THEN
1426:
1427: Fnd_Msg_Pub.add_exc_msg
1428: ( p_pkg_name => 'PA_DELIVERABLE_UTILS'
1429: , p_procedure_name => 'IS_DLVR_PRG_ENABLED'
1430: , p_error_text => SUBSTRB(SQLERRM,1,240));
1431:
1432: IF l_dlvr_type_info_csr%ISOPEN THEN
1483:
1484: WHEN OTHERS THEN
1485:
1486: Fnd_Msg_Pub.add_exc_msg
1487: ( p_pkg_name => 'PA_DELIVERABLE_UTILS'
1488: , p_procedure_name => 'GET_DLVR_DETAIL'
1489: , p_error_text => SUBSTRB(SQLERRM,1,240));
1490:
1491: IF l_dlvr_info_csr%ISOPEN THEN
1545:
1546: WHEN OTHERS THEN
1547:
1548: Fnd_Msg_Pub.add_exc_msg
1549: ( p_pkg_name => 'PA_DELIVERABLE_UTILS'
1550: , p_procedure_name => 'GET_ACTION_DETAIL'
1551: , p_error_text => SUBSTRB(SQLERRM,1,240));
1552:
1553: IF l_dlvr_action_info_csr%ISOPEN THEN
1603:
1604: WHEN OTHERS THEN
1605:
1606: Fnd_Msg_Pub.add_exc_msg
1607: ( p_pkg_name => 'PA_DELIVERABLE_UTILS'
1608: , p_procedure_name => 'GET_PROJ_CURRENCY_CODE'
1609: , p_error_text => SUBSTRB(SQLERRM,1,240));
1610:
1611: RAISE;
1657:
1658: WHEN OTHERS THEN
1659:
1660: Fnd_Msg_Pub.add_exc_msg
1661: ( p_pkg_name => 'PA_DELIVERABLE_UTILS'
1662: , p_procedure_name => 'GET_DLVR_PROJECT_DETAIL'
1663: , p_error_text => SUBSTRB(SQLERRM,1,240));
1664:
1665: IF l_project_info_csr%ISOPEN THEN
1716:
1717: WHEN OTHERS THEN
1718:
1719: Fnd_Msg_Pub.add_exc_msg
1720: ( p_pkg_name => 'PA_DELIVERABLE_UTILS'
1721: , p_procedure_name => 'GET_ACTION_PROJECT_DETAIL'
1722: , p_error_text => SUBSTRB(SQLERRM,1,240));
1723:
1724: IF l_project_info_csr%ISOPEN THEN
1774: CLOSE l_task_info_csr;
1775: END IF;
1776:
1777: Fnd_Msg_Pub.add_exc_msg
1778: ( p_pkg_name => 'PA_DELIVERABLE_UTILS'
1779: , p_procedure_name => 'GET_ACTION_TASK_DETAIL'
1780: , p_error_text => SUBSTRB(SQLERRM,1,240));
1781:
1782: RAISE;
1846:
1847: WHEN OTHERS THEN
1848:
1849: Fnd_Msg_Pub.add_exc_msg
1850: ( p_pkg_name => 'PA_DELIVERABLE_UTILS'
1851: , p_procedure_name => 'GET_DEFAULT_DLVR_OWNER'
1852: , p_error_text => SUBSTRB(SQLERRM,1,240));
1853:
1854: IF l_owner_info_csr%ISOPEN THEN
1951:
1952: WHEN OTHERS THEN
1953:
1954: Fnd_Msg_Pub.add_exc_msg
1955: ( p_pkg_name => 'PA_DELIVERABLE_UTILS'
1956: , p_procedure_name => 'GET_DEFAULT_DLVR_DATE'
1957: , p_error_text => SUBSTRB(SQLERRM,1,240));
1958:
1959: IF l_proj_date_info_csr%ISOPEN THEN
2017:
2018: WHEN OTHERS THEN
2019:
2020: Fnd_Msg_Pub.add_exc_msg
2021: ( p_pkg_name => 'PA_DELIVERABLE_UTILS'
2022: , p_procedure_name => 'GET_DEFAULT_ACTION_OWNER'
2023: , p_error_text => SUBSTRB(SQLERRM,1,240));
2024:
2025: IF l_owner_info_csr%ISOPEN THEN
2152:
2153: WHEN OTHERS THEN
2154:
2155: Fnd_Msg_Pub.add_exc_msg
2156: ( p_pkg_name => 'PA_DELIVERABLE_UTILS'
2157: , p_procedure_name => 'GET_DEFAULT_ACTION_DATE'
2158: , p_error_text => SUBSTRB(SQLERRM,1,240));
2159:
2160: IF l_proj_date_info_csr%ISOPEN THEN
2180: RETURN VARCHAR2
2181: IS
2182: l_dummy VARCHAR2(1) := 'N' ;
2183: l_return_status VARCHAR2(1) := 'N' ;
2184: -- Bug: 3902158 - Changing Cursor query to avoid call to function PA_DELIVERABLE_UTILS.GET_PROGRESS_ROLLUP_METHOD
2185: /*CURSOR c_dlv_based_task_exists IS
2186: SELECT 'X'
2187: FROM DUAL
2188: WHERE EXISTS (SELECT 'X'
2194: and obj.object_type_from = 'PA_TASKS'
2195: and obj.object_type_to = 'PA_DELIVERABLES' -- 3570283 removed extra spaces
2196: and obj.relationship_subtype = 'TASK_TO_DELIVERABLE'
2197: and obj.relationship_type = 'A'
2198: and nvl(PA_DELIVERABLE_UTILS.GET_PROGRESS_ROLLUP_METHOD(obj.object_id_from2),'X') = 'DELIVERABLE'
2199: ); */
2200:
2201: CURSOR c_dlv_based_task_exists IS
2202: SELECT 'X'
2424:
2425: WHEN OTHERS THEN
2426:
2427: Fnd_Msg_Pub.add_exc_msg
2428: ( p_pkg_name => 'PA_DELIVERABLE_UTILS'
2429: , p_procedure_name => 'GET_PROJECT_DETAILS'
2430: , p_error_text => SUBSTRB(SQLERRM,1,240));
2431:
2432: IF l_project_detail_csr%ISOPEN THEN
2641:
2642: WHEN OTHERS THEN
2643:
2644: Fnd_Msg_Pub.add_exc_msg
2645: ( p_pkg_name => 'PA_DELIVERABLE_UTILS'
2646: , p_procedure_name => 'GET_DEFAULT_ACTN_DATE'
2647: , p_error_text => SUBSTRB(SQLERRM,1,240));
2648:
2649: IF l_proj_date_info_csr%ISOPEN THEN
2680: AND ppe.project_id = p_project_id
2681: AND ppev.project_id = p_project_id
2682: AND ppe.object_type = ppev.object_type
2683: AND ppe.object_type = 'PA_DELIVERABLES'
2684: AND 'Y' = PA_DELIVERABLE_UTILS.IS_DLV_BASED_ASSCN_EXISTS(ppe.proj_element_id,ppev.element_version_id)
2685: );
2686: */
2687:
2688: CURSOR cur_dlvr_progress IS
2691: SELECT 1
2692: FROM pa_proj_elements ppe
2693: WHERE ppe.project_id = p_project_id
2694: AND ppe.object_type = 'PA_DELIVERABLES'
2695: AND 'Y' = PA_DELIVERABLE_UTILS.IS_DELIVERABLE_HAS_PROGRESS(p_project_id,ppe.proj_element_id)
2696: );
2697: /* Commented the following SELECT statement for Performance Bug Fix 3614361 */
2698: /*
2699: SELECT 1 FROM dual
2702: FROM pa_proj_elements ppe,
2703: pa_proj_element_versions ppev
2704: WHERE ppe.project_id = p_project_id
2705: AND ppe.object_type = 'PA_DELIVERABLES'
2706: AND 'Y' = PA_DELIVERABLE_UTILS.IS_DELIVERABLE_HAS_PROGRESS(p_project_id,ppe.proj_element_id)
2707: );
2708: */
2709:
2710: CURSOR cur_ship_or_proc IS
2717: AND ppe.project_id = p_project_id
2718: AND ppev.project_id = p_project_id
2719: AND ppe.object_type = ppev.object_type
2720: AND ppe.object_type = 'PA_ACTIONS'
2721: AND ( 'Y' = PA_DELIVERABLE_UTILS.GET_READY_TO_SHIP_FLAG(ppe.proj_element_id,ppev.element_version_id)
2722: OR 'Y' = PA_DELIVERABLE_UTILS.GET_READY_TO_PROC_FLAG(ppe.proj_element_id,ppev.element_version_id) )
2723: );
2724:
2725: CURSOR cur_billing_fn IS
2718: AND ppev.project_id = p_project_id
2719: AND ppe.object_type = ppev.object_type
2720: AND ppe.object_type = 'PA_ACTIONS'
2721: AND ( 'Y' = PA_DELIVERABLE_UTILS.GET_READY_TO_SHIP_FLAG(ppe.proj_element_id,ppev.element_version_id)
2722: OR 'Y' = PA_DELIVERABLE_UTILS.GET_READY_TO_PROC_FLAG(ppe.proj_element_id,ppev.element_version_id) )
2723: );
2724:
2725: CURSOR cur_billing_fn IS
2726: SELECT 1 FROM dual
2728: SELECT 1
2729: FROM pa_proj_elements ppe
2730: WHERE ppe.project_id = p_project_id
2731: AND ppe.object_type = 'PA_ACTIONS'
2732: AND PA_DELIVERABLE_UTILS.GET_FUNCTION_CODE(ppe.proj_element_id) = 'BILLING'
2733: AND 'Y' = PA_Billing_Wrkbnch_Events.CHECK_BILLING_EVENT_EXISTS(p_project_id,ppe.proj_element_id)
2734: );
2735:
2736: l_debug_mode VARCHAR2(1);
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
2752: PA_DEBUG.set_curr_function( p_function => 'PA_DELIVERABLE_UTILS : CHECK_DLVR_DISABLE_ALLOWED',
2753: p_debug_mode => l_debug_mode );
2754: END IF;
2755:
2756: IF l_debug_mode = 'Y' THEN
2753: p_debug_mode => l_debug_mode );
2754: END IF;
2755:
2756: IF l_debug_mode = 'Y' THEN
2757: Pa_Debug.g_err_stage:= 'PA_DELIVERABLE_UTILS : CHECK_DLVR_DISABLE_ALLOWED : Printing Input parameters';
2758: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
2759: l_debug_level3);
2760: Pa_Debug.WRITE(g_module_name,'p_project_id'||':'||p_project_id,
2761: l_debug_level3);
2847: pa_debug.reset_curr_function;
2848: END IF ;
2849:
2850: Fnd_Msg_Pub.add_exc_msg
2851: ( p_pkg_name => 'PA_DELIVERABLE_UTILS'
2852: , p_procedure_name => 'CHECK_DLVR_DISABLE_ALLOWED'
2853: , p_error_text => x_msg_data );
2854: RAISE;
2855: END CHECK_DLVR_DISABLE_ALLOWED;
2892: AND ppv.proj_element_id=obj2.object_id_to2
2893: AND ppv.object_type='PA_ACTIONS'
2894: AND ( nvl(OKE_DELIVERABLE_UTILS_PUB.WSH_Initiated_Yn(ppv.element_version_id),'N') = 'Y'
2895: OR nvl(OKE_DELIVERABLE_UTILS_PUB.REQ_Initiated_Yn(ppv.element_version_id),'N') = 'Y'
2896: OR PA_DELIVERABLE_UTILS.GET_FUNCTION_CODE(obj2.object_id_to2) = 'BILLING' )
2897: );
2898: CURSOR cur_get_assoc_dlvr IS
2899: SELECT proj_element_id
2900: FROM pa_proj_elements ppe,
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
2924: PA_DEBUG.set_curr_function( p_function => 'PA_DELIVERABLE_UTILS : UPDATE_TSK_STATUS_CANCELLED',
2925: p_debug_mode => l_debug_mode );
2926: END IF;
2927: IF l_debug_mode = 'Y' THEN
2928: Pa_Debug.g_err_stage:= 'PA_DELIVERABLE_UTILS : UPDATE_TSK_STATUS_CANCELLED : Printing Input parameters';
2924: PA_DEBUG.set_curr_function( p_function => 'PA_DELIVERABLE_UTILS : UPDATE_TSK_STATUS_CANCELLED',
2925: p_debug_mode => l_debug_mode );
2926: END IF;
2927: IF l_debug_mode = 'Y' THEN
2928: Pa_Debug.g_err_stage:= 'PA_DELIVERABLE_UTILS : UPDATE_TSK_STATUS_CANCELLED : Printing Input parameters';
2929: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
2930: l_debug_level3);
2931: Pa_Debug.WRITE(g_module_name,'p_task_id'||':'||p_task_id,
2932: l_debug_level3);
2938: FROM pa_project_statuses
2939: WHERE STATUS_TYPE='TASK'
2940: AND PROJECT_STATUS_CODE=p_status_code;
2941:
2942: IF 'DELIVERABLE' <> PA_DELIVERABLE_UTILS.GET_PROGRESS_ROLLUP_METHOD(p_task_id)
2943: OR (l_system_code <> 'CANCELLED' AND l_system_code <> 'ON_HOLD') THEN
2944: return;
2945: ELSIF l_system_code = 'CANCELLED' THEN
2946: OPEN cur_check_cancel_possible;
2982: pa_debug.reset_curr_function;
2983: END IF ;
2984:
2985: Fnd_Msg_Pub.add_exc_msg
2986: ( p_pkg_name => 'PA_DELIVERABLE_UTILS'
2987: , p_procedure_name => 'UPDATE_TSK_STATUS_CANCELLED'
2988: , p_error_text => x_msg_data );
2989: RAISE;
2990: END UPDATE_TSK_STATUS_CANCELLED;
3027: AND ppv.object_type='PA_ACTIONS'
3028: AND ( nvl(OKE_DELIVERABLE_UTILS_PUB.WSH_Initiated_Yn(ppv.element_version_id),'N') = 'Y'
3029: OR nvl(OKE_DELIVERABLE_UTILS_PUB.REQ_Initiated_Yn(ppv.element_version_id),'N') = 'Y'
3030: OR nvl(OKE_DELIVERABLE_UTILS_PUB.MDS_Initiated_Yn(ppv.element_version_id),'N') = 'Y'
3031: OR PA_DELIVERABLE_UTILS.GET_FUNCTION_CODE(obj2.object_id_to2) = 'BILLING' )
3032: );
3033:
3034: l_debug_mode VARCHAR2(1);
3035: l_debug_level2 CONSTANT NUMBER := 2;
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
3047: PA_DEBUG.set_curr_function( p_function => 'PA_DELIVERABLE_UTILS : CHECK_CHANGE_MAPPING_OK',
3048: p_debug_mode => l_debug_mode );
3049: END IF;
3050:
3051: IF l_debug_mode = 'Y' THEN
3048: p_debug_mode => l_debug_mode );
3049: END IF;
3050:
3051: IF l_debug_mode = 'Y' THEN
3052: Pa_Debug.g_err_stage := 'PA_DELIVERABLE_UTILS : CHECK_CHANGE_MAPPING_OK : Printing Input parameters';
3053: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
3054: l_debug_level3);
3055: Pa_Debug.WRITE(g_module_name,'p_wp_task_version_id'||':'||p_wp_task_version_id,
3056: l_debug_level3);
3083: IF l_debug_mode = 'Y' THEN --Added for bug 4945876
3084: pa_debug.reset_curr_function;
3085: END IF ;
3086: Fnd_Msg_Pub.add_exc_msg
3087: ( p_pkg_name => 'PA_DELIVERABLE_UTILS'
3088: , p_procedure_name => 'CHECK_DLVR_DISABLE_ALLOWED'
3089: , p_error_text => x_msg_data );
3090: RAISE;
3091: END CHECK_CHANGE_MAPPING_OK;
3120: AND obj.object_id_from2=p_task_id
3121: AND obj.object_type_from='PA_TASKS'
3122: AND obj.object_type_to='PA_DELIVERABLES'
3123: AND ppe.proj_element_id = obj.object_id_to2
3124: AND 'Y' = PA_DELIVERABLE_UTILS.IS_DELIVERABLE_HAS_PROGRESS(ppe.project_id,ppe.proj_element_id)
3125: );
3126: */
3127:
3128: CURSOR cur_dlvr_assoc_exists IS
3142: AND ppev.proj_element_id = obj.object_id_to2
3143: AND ppev.project_id = ppe.project_id
3144: /*This AND Clause is Wrong as the 1st param passed is the Task ID whereas IS_DLV_BASED_ASSCN_EXISTS API
3145: expects the 1st param as the Deliverable's Proj Element ID
3146: AND 'Y' = PA_DELIVERABLE_UTILS.IS_DLV_BASED_ASSCN_EXISTS(ppe.proj_element_id,
3147: ppev.element_version_id)
3148: So,Included the new AND CLause as below */
3149: AND 'Y' = PA_DELIVERABLE_UTILS.IS_DLV_BASED_ASSCN_EXISTS(ppev.proj_element_id ,
3150: ppev.element_version_id)
3145: expects the 1st param as the Deliverable's Proj Element ID
3146: AND 'Y' = PA_DELIVERABLE_UTILS.IS_DLV_BASED_ASSCN_EXISTS(ppe.proj_element_id,
3147: ppev.element_version_id)
3148: So,Included the new AND CLause as below */
3149: AND 'Y' = PA_DELIVERABLE_UTILS.IS_DLV_BASED_ASSCN_EXISTS(ppev.proj_element_id ,
3150: ppev.element_version_id)
3151: );
3152:
3153: l_dummy NUMBER;
3157: x_msg_count := 0;
3158:
3159: /* Commented this code because we dont need this code
3160: In the Context ,this API is used .
3161: IF 'DELIVERABLE' = PA_DELIVERABLE_UTILS.GET_PROGRESS_ROLLUP_METHOD(p_task_id)
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
3170: return;
3171: ELSIF */
3172:
3173: --nvl check needed in following if Clause as NULL Value also can be returned
3174: IF 'DELIVERABLE' <> nvl(PA_DELIVERABLE_UTILS.GET_PROGRESS_ROLLUP_METHOD(p_task_id),'X')
3175: AND 'DELIVERABLE' = p_prog_method_code THEN
3176:
3177: OPEN cur_dlvr_assoc_exists;
3178: FETCH cur_dlvr_assoc_exists INTO l_dummy;
3207: CLOSE cur_dlvr_assoc_exists;
3208: END IF;
3209:
3210: Fnd_Msg_Pub.add_exc_msg
3211: ( p_pkg_name => 'PA_DELIVERABLE_UTILS'
3212: , p_procedure_name => 'CHECK_PROGRESS_MTH_CODE_VALID'
3213: , p_error_text => x_msg_data );
3214: RAISE;
3215: END CHECK_PROGRESS_MTH_CODE_VALID;
3255: AND ppe2.object_type='PA_TASKS'
3256: AND ( nvl(OKE_DELIVERABLE_UTILS_PUB.WSH_Initiated_Yn(ppev.element_version_id),'N') = 'Y'
3257: OR nvl(OKE_DELIVERABLE_UTILS_PUB.REQ_Initiated_Yn(ppev.element_version_id),'N') = 'Y'
3258: OR nvl(OKE_DELIVERABLE_UTILS_PUB.MDS_Initiated_Yn(ppev.element_version_id),'N') = 'Y'
3259: OR PA_DELIVERABLE_UTILS.GET_FUNCTION_CODE(ppe.proj_element_id) = 'BILLING' )
3260: );
3261:
3262: l_debug_mode VARCHAR2(1);
3263: l_debug_level2 CONSTANT NUMBER := 2;
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
3275: PA_DEBUG.set_curr_function( p_function => 'PA_DELIVERABLE_UTILS : CHECK_PROJ_DLV_TXN_EXISTS',
3276: p_debug_mode => l_debug_mode );
3277: END IF;
3278: IF l_debug_mode = 'Y' THEN
3279: Pa_Debug.g_err_stage:= 'PA_DELIVERABLE_UTILS : CHECK_PROJ_DLV_TXN_EXISTS : Printing Input parameters';
3275: PA_DEBUG.set_curr_function( p_function => 'PA_DELIVERABLE_UTILS : CHECK_PROJ_DLV_TXN_EXISTS',
3276: p_debug_mode => l_debug_mode );
3277: END IF;
3278: IF l_debug_mode = 'Y' THEN
3279: Pa_Debug.g_err_stage:= 'PA_DELIVERABLE_UTILS : CHECK_PROJ_DLV_TXN_EXISTS : Printing Input parameters';
3280: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
3281: l_debug_level3);
3282: Pa_Debug.WRITE(g_module_name,'p_project_id'||':'||p_project_id,
3283: l_debug_level3);
3313: pa_debug.reset_curr_function;
3314: END IF ;
3315:
3316: Fnd_Msg_Pub.add_exc_msg
3317: ( p_pkg_name => 'PA_DELIVERABLE_UTILS'
3318: , p_procedure_name => 'CHECK_PROJ_DLV_TXN_EXISTS'
3319: , p_error_text => x_msg_data );
3320: RAISE;
3321: END CHECK_PROJ_DLV_TXN_EXISTS;
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
3967: l_err_message := FND_MESSAGE.GET_STRING('PA','DLVR_TYPE_INVALID') ;
3968: PA_UTILS.ADD_MESSAGE
3969: (p_app_short_name => 'PA',
4030: END IF;
4031: END IF;
4032:
4033: -- Validating Status Code - valid value
4034: l_status_code_valid := Pa_Deliverable_Utils.IS_STATUS_CODE_VALID(px_status_code, p_calling_mode);
4035:
4036: IF l_debug_mode = 'Y' THEN
4037: Pa_Debug.WRITE(g_module_name,' validated status code ['||px_status_code||'] outcome ['||l_status_code_valid||']' , l_debug_level3);
4038: END IF;
4098: RAISE FND_API.G_EXC_ERROR;
4099: END IF;
4100: END IF;
4101:
4102: Pa_Deliverable_Utils.Progress_Enabled_Validation
4103: (
4104: p_deliverable_id => p_deliverable_id
4105: , p_project_id => p_project_id
4106: , p_dlvr_type_id => p_dlvr_type_id
4977: l_status_code Pa_task_types.initial_status_code%TYPE := NULL;
4978:
4979: BEGIN
4980: -- Fetching information based on deliverable type
4981: PA_DELIVERABLE_UTILS.get_dlvr_type_info
4982: (
4983: p_dlvr_type_id => p_dlvr_type_id,
4984: x_dlvr_prg_enabled => l_dlvr_prg_enabled,
4985: x_dlvr_action_enabled => l_dlvr_action_enabled,
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'
5823: ,p_procedure_name => 'GET_DEFAULT_TASK');
5824:
5825: IF l_debug_mode = 'Y' THEN
5826: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
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'
6044: ,p_procedure_name => 'GET_BILLING_DETAILS');
6045:
6046: IF l_debug_mode = 'Y' THEN
6047: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
6247: CLOSE l_proc_info_csr;
6248:
6249: END GET_SHIP_PROC_ACTN_DETAIL;
6250:
6251: END PA_DELIVERABLE_UTILS;