[Home] [Help]
168: -- if it is deliveable_based and progress is enabled, check progress_weight is not null
169:
170: -- 3570283 added , to retrieve deliverable type information
171:
172: PA_DELIVERABLE_UTILS.get_dlvr_type_info
173: (
174: p_dlvr_type_id => p_dlvr_type_id
175: ,x_dlvr_prg_enabled => l_dlvr_prg_flag
176: ,x_dlvr_action_enabled => l_dlvr_act_flag
187: -- manadatory progress weight parameter
188:
189: IF p_task_id IS NOT NULL AND l_dlvr_prg_flag = 'Y' THEN -- 3570283 added l_dlvr_prg_flag condition
190:
191: l_prog_rollup_method := PA_DELIVERABLE_UTILS.get_progress_rollup_method
192: (
193: p_task_id => p_task_id
194: );
195:
891: -- in case of deliverable list page, task id will be null, so the above check will fail
892: -- though it should not fail
893:
894: /*
895: l_prog_rollup_method := PA_DELIVERABLE_UTILS.get_progress_rollup_method
896: (
897: p_task_id => p_task_id
898: );
899:
908:
909: -- retrieve dlvr_progress_flag and enale_dlvr_action_flag for deliveable type
910:
911: IF l_debug_mode = 'Y' THEN
912: Pa_Debug.WRITE(g_module_name,' PA_DELIVERABLE_UTILS.GET_DLVR_TYPE_INFO Called ',
913: l_debug_level3);
914: END IF;
915:
916: PA_DELIVERABLE_UTILS.GET_DLVR_TYPE_INFO
912: Pa_Debug.WRITE(g_module_name,' PA_DELIVERABLE_UTILS.GET_DLVR_TYPE_INFO Called ',
913: l_debug_level3);
914: END IF;
915:
916: PA_DELIVERABLE_UTILS.GET_DLVR_TYPE_INFO
917: (
918: p_dlvr_type_id => p_dlvr_type_id,
919: x_dlvr_prg_enabled => l_dlvr_prg_enabled,
920: x_dlvr_action_enabled => l_dlvr_action_enabled,
936: -- if yes, check progress weight is entered or not
937:
938: IF l_dlvr_prg_enabled = 'Y' THEN
939:
940: l_dlvr_based_assc_exists := PA_DELIVERABLE_UTILS.IS_DLV_BASED_ASSCN_EXISTS
941: (
942: p_dlv_element_id => p_dlvr_item_id
943: );
944:
968: -- if "Ready to Ship" or "Ready to Procure" is checked ( i.e. 'Y' THEN )
969: -- then deliverable due date ( i.e. scheduled_finish_date ) update is not allowed
970: -- add the error message and set return_status to errror
971: -- To retrieve "Ready to Ship" or "Ready to Procure" statuses call
972: -- PA_DELIVERABLE_UTILS.PA_DLVR_OKE_INTEGRATION and retrieve the required statuses
973:
974:
975: IF trim(l_dlvr_info_rec.scheduled_finish_date) <> trim(p_scheduled_finish_date) THEN
976:
979: l_debug_level3);
980: END IF;
981:
982: IF l_debug_mode = 'Y' THEN
983: Pa_Debug.WRITE(g_module_name,' PA_DELIVERABLE_UTILS.GET_OKE_FLAGS Called ',
984: l_debug_level3);
985: END IF;
986:
987: PA_DELIVERABLE_UTILS.GET_OKE_FLAGS
983: Pa_Debug.WRITE(g_module_name,' PA_DELIVERABLE_UTILS.GET_OKE_FLAGS Called ',
984: l_debug_level3);
985: END IF;
986:
987: PA_DELIVERABLE_UTILS.GET_OKE_FLAGS
988: (
989: P_PROJECT_ID => p_project_id
990: ,P_DLVR_ITEM_ID => p_dlvr_item_id
991: ,P_DLVR_VERSION_ID => p_dlvr_version_id
1007: ,X_MSG_DATA => l_utl_msg_data
1008: );
1009:
1010: IF l_debug_mode = 'Y' THEN
1011: Pa_Debug.WRITE(g_module_name,' Out of PA_DELIVERABLE_UTILS.GET_OKE_FLAGS ',
1012: l_debug_level3);
1013: END IF;
1014:
1015: -- set l_function_call_done to 'Y' if PA_DELIVERABLE_UTILS.PA_DLVR_OKE_INTEGRATION
1011: Pa_Debug.WRITE(g_module_name,' Out of PA_DELIVERABLE_UTILS.GET_OKE_FLAGS ',
1012: l_debug_level3);
1013: END IF;
1014:
1015: -- set l_function_call_done to 'Y' if PA_DELIVERABLE_UTILS.PA_DLVR_OKE_INTEGRATION
1016: -- if l_function_call_done is set to 'Y' , the above function will not be called again
1017: l_function_call_done := 'Y';
1018:
1019: IF l_utl_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1079: -- 4. billing event is processed or not
1080:
1081: IF l_complete_sys_status_code = l_system_status_code THEN
1082:
1083: PA_DELIVERABLE_UTILS.IS_DLV_STATUS_CHANGE_ALLOWED
1084: (
1085: P_PROJECT_ID => p_project_id
1086: ,P_DLVR_ITEM_ID => p_dlvr_item_id
1087: ,P_DLVR_VERSION_ID => p_dlvr_version_id
1119: -- 3661686 commented l_dlvr_action_enabled condition ,
1120: -- according to latest FD, for l_dlvr_action_enabled condition should not be checked
1121: -- while checking for the progress record existance
1122: -- IF l_dlvr_action_enabled = 'Y' THEN
1123: l_dlvr_has_progress := PA_DELIVERABLE_UTILS.IS_DELIVERABLE_HAS_PROGRESS
1124: (
1125: p_project_id => p_project_id,
1126: p_proj_element_id => p_dlvr_item_id
1127: );
1151: l_debug_level3);
1152: END IF;
1153:
1154: -- if user changes status to 'cancelled' or 'on hold ', delivearble action functions needs to be validated
1155: -- call PA_DELIVERABLE_UTILS.IS_DLV_STATUS_CHANGE_ALLOWED for this validation
1156: -- if x_change_allowed is set to 'N', set return status to error
1157:
1158: IF l_dlvr_info_rec.status_code <> p_status_code THEN
1159:
1163:
1164: -- IF p_status_code = l_cancel_status or p_status_code = l_hold_status THEN
1165:
1166: IF l_system_status_code = l_cancel_status or l_system_status_code = l_hold_status THEN
1167: PA_DELIVERABLE_UTILS.IS_DLV_STATUS_CHANGE_ALLOWED
1168: (
1169: P_PROJECT_ID => p_project_id
1170: ,P_DLVR_ITEM_ID => p_dlvr_item_id
1171: ,P_DLVR_VERSION_ID => p_dlvr_version_id
1202: -- if user changes dlvr type, check wether deliverable actions for that delivearble exists or not
1203: -- if dlvr actions are existing, set return status to error
1204:
1205: IF l_dlvr_info_rec.type_id <> p_dlvr_type_id THEN
1206: is_dlvr_actions_exists := PA_DELIVERABLE_UTILS.IS_ACTIONS_EXISTS
1207: (
1208: p_project_id => p_project_id,
1209: p_proj_element_id => p_dlvr_item_id
1210: );
1213: p_msg_name => 'PA_DLVR_ACTION_EXISTS');
1214: x_return_status := FND_API.G_RET_STS_ERROR;
1215: END IF;
1216:
1217: l_dlvr_has_progress := PA_DELIVERABLE_UTILS.IS_DELIVERABLE_HAS_PROGRESS
1218: (
1219: p_project_id => p_project_id,
1220: p_proj_element_id => p_dlvr_item_id
1221: );
1744: RAISE Invalid_Arg_Exc_Dlv ;
1745: END IF ;
1746:
1747:
1748: IF nvl(PA_DELIVERABLE_UTILS.IS_DELIVERABLE_HAS_PROGRESS(p_project_id,p_dlv_element_id),'N') = 'Y' THEN
1749: x_return_status := FND_API.G_RET_STS_ERROR;
1750: PA_UTILS.ADD_MESSAGE('PA','PA_DLV_PROGRESS_NO_DLTN') ;
1751: END IF ;
1752:
1754: -- if shipping is initiated, show error message for shipping initiation
1755: -- else check for ready to ship flags for shipping action
1756: -- if ready to ship flag is set for shipping action, throw error message for ready to ship
1757:
1758: IF nvl(PA_DELIVERABLE_UTILS.IS_SHIPPING_INITIATED(p_dlv_element_id,p_dlv_version_id),'N') = 'Y' THEN
1759: x_return_status := FND_API.G_RET_STS_ERROR;
1760: PA_UTILS.ADD_MESSAGE('PA','PA_DEL_DLVR_SHIP_INIT_ERR') ;
1761: ELSE
1762: IF nvl(PA_DELIVERABLE_UTILS.GET_READY_TO_SHIP_FLAG(p_dlv_element_id,p_dlv_version_id),'N') = 'Y' THEN
1758: IF nvl(PA_DELIVERABLE_UTILS.IS_SHIPPING_INITIATED(p_dlv_element_id,p_dlv_version_id),'N') = 'Y' THEN
1759: x_return_status := FND_API.G_RET_STS_ERROR;
1760: PA_UTILS.ADD_MESSAGE('PA','PA_DEL_DLVR_SHIP_INIT_ERR') ;
1761: ELSE
1762: IF nvl(PA_DELIVERABLE_UTILS.GET_READY_TO_SHIP_FLAG(p_dlv_element_id,p_dlv_version_id),'N') = 'Y' THEN
1763: x_return_status := FND_API.G_RET_STS_ERROR;
1764: PA_UTILS.ADD_MESSAGE('PA','PA_DLV_SHIP_ACTION_NO_DLTN') ;
1765: END IF ;
1766: END IF;
1770: -- else check for ready to procure flags for procurement action
1771: -- if ready to ship flag is set for procurement action, throw error message for ready to procure
1772:
1773:
1774: IF nvl(PA_DELIVERABLE_UTILS.IS_PROCUREMENT_INITIATED(p_dlv_element_id,p_dlv_version_id),'N') = 'Y' THEN
1775: x_return_status := FND_API.G_RET_STS_ERROR;
1776: PA_UTILS.ADD_MESSAGE('PA','PA_DEL_DLVR_PROC_INIT_ERR') ;
1777: ELSE
1778: IF nvl(PA_DELIVERABLE_UTILS.GET_READY_TO_PROC_FLAG(p_dlv_element_id,p_dlv_version_id),'N') = 'Y' THEN
1774: IF nvl(PA_DELIVERABLE_UTILS.IS_PROCUREMENT_INITIATED(p_dlv_element_id,p_dlv_version_id),'N') = 'Y' THEN
1775: x_return_status := FND_API.G_RET_STS_ERROR;
1776: PA_UTILS.ADD_MESSAGE('PA','PA_DEL_DLVR_PROC_INIT_ERR') ;
1777: ELSE
1778: IF nvl(PA_DELIVERABLE_UTILS.GET_READY_TO_PROC_FLAG(p_dlv_element_id,p_dlv_version_id),'N') = 'Y' THEN
1779: x_return_status := FND_API.G_RET_STS_ERROR;
1780: PA_UTILS.ADD_MESSAGE('PA','PA_DLV_PROC_ACTION_NO_DLTN') ;
1781: END IF ;
1782: END IF;
1786: -- if billing event is processed, show error message for billing event process
1787: -- else show error message for billing function exists
1788: -- end if
1789:
1790: IF nvl(PA_DELIVERABLE_UTILS.IS_BILLING_FUNCTION_EXISTS(p_project_id,p_dlv_element_id),'N') = 'Y' THEN
1791: IF nvl(PA_DELIVERABLE_UTILS.IS_BILLING_EVENT_PROCESSED(p_dlv_element_id,p_dlv_version_id),'N') = 'Y' THEN
1792: x_return_status := FND_API.G_RET_STS_ERROR;
1793: PA_UTILS.ADD_MESSAGE('PA','PA_DEL_DLVR_BILL_PROC_ERR') ;
1794: ELSE
1787: -- else show error message for billing function exists
1788: -- end if
1789:
1790: IF nvl(PA_DELIVERABLE_UTILS.IS_BILLING_FUNCTION_EXISTS(p_project_id,p_dlv_element_id),'N') = 'Y' THEN
1791: IF nvl(PA_DELIVERABLE_UTILS.IS_BILLING_EVENT_PROCESSED(p_dlv_element_id,p_dlv_version_id),'N') = 'Y' THEN
1792: x_return_status := FND_API.G_RET_STS_ERROR;
1793: PA_UTILS.ADD_MESSAGE('PA','PA_DEL_DLVR_BILL_PROC_ERR') ;
1794: ELSE
1795: x_return_status := FND_API.G_RET_STS_ERROR;
1804: -- 3733321 Added code to retrieve deliverable deliverable type
1805:
1806: IF (p_calling_module = 'AMG') THEN
1807:
1808: SELECT Pa_Deliverable_Utils.IS_Dlvr_Item_Based(element_version_id)
1809: INTO l_item_dlv
1810: FROM Pa_Proj_Element_Versions
1811: WHERE proj_element_id = p_dlv_element_id
1812: AND project_id = p_project_id;
1856:
1857: --Start Bug 3538320 <
1858: --Delete the Attachment records of the deliverable
1859:
1860: IF nvl(PA_DELIVERABLE_UTILS.IS_DLV_DOC_DEFINED(p_dlv_element_id,p_dlv_version_id),'N')='Y' THEN
1861: fnd_attached_documents2_pkg.delete_attachments
1862: (X_entity_name => 'PA_DLVR_DOC_ATTACH',
1863: X_pk1_value => to_char(p_dlv_version_id),
1864: X_delete_document_flag => 'Y');
2335: END IF;
2336:
2337:
2338: IF p_task_element_id IS NOT NULL THEN
2339: IF nvl(PA_DELIVERABLE_UTILS.GET_PROGRESS_ROLLUP_METHOD(p_task_element_id),'X') = g_deliverable_based THEN
2340:
2341: -- Bug 3651781 While deleting association between a deliverable based task and a deliverable ,we have to
2342: -- Look for 'PUBLISHED' progress records ,NOT mere existence of progress records
2343:
2340:
2341: -- Bug 3651781 While deleting association between a deliverable based task and a deliverable ,we have to
2342: -- Look for 'PUBLISHED' progress records ,NOT mere existence of progress records
2343:
2344: -- IF nvl(PA_DELIVERABLE_UTILS.IS_DELIVERABLE_HAS_PROGRESS(p_project_id,p_dlv_element_id),'N') = 'Y' THEN
2345: IF nvl(PA_PROGRESS_UTILS.published_dlv_prog_exists(p_project_id,p_dlv_element_id),'N') = 'Y' THEN
2346: IF p_calling_context = 'TASKS' THEN -- Bug 3555460 Calling context newly introduced
2347: PA_UTILS.ADD_MESSAGE('PA','PA_TASK_PROGRESS_NO_DISASCN') ;
2348: ELSIF p_calling_context = 'DELIVERABLES' THEN
2356:
2357: --Bug 3555460 While deleting a task to deliverable association,Only check that has to be made is
2358: --If the workplan task is deliverable based, and deliverable associated to the task has progress records
2359: --So,Rest of the validations need to be commented out .
2360: /*IF nvl(PA_DELIVERABLE_UTILS.GET_READY_TO_SHIP_FLAG(p_dlv_element_id,p_dlv_version_id),'N') = 'Y' THEN
2361: PA_UTILS.ADD_MESSAGE('PA','PA_DLV_SHIP_ACTION_NO_DISASCN') ;
2362: x_return_status := FND_API.G_RET_STS_ERROR;
2363: x_disassociation_allowed := 'N';
2364: END IF ;
2362: x_return_status := FND_API.G_RET_STS_ERROR;
2363: x_disassociation_allowed := 'N';
2364: END IF ;
2365:
2366: IF nvl(PA_DELIVERABLE_UTILS.GET_READY_TO_PROC_FLAG(p_dlv_element_id,p_dlv_version_id),'N') = 'Y' THEN
2367: PA_UTILS.ADD_MESSAGE('PA','PA_DLV_PROC_ACTION_NO_DISASCN') ;
2368: x_return_status := FND_API.G_RET_STS_ERROR;
2369: x_disassociation_allowed := 'N';
2370: END IF ;
2368: x_return_status := FND_API.G_RET_STS_ERROR;
2369: x_disassociation_allowed := 'N';
2370: END IF ;
2371:
2372: IF nvl(PA_DELIVERABLE_UTILS.IS_BILLING_FUNCTION_EXISTS(p_project_id,p_dlv_element_id),'N') = 'Y' THEN
2373: PA_UTILS.ADD_MESSAGE('PA','PA_DLV_BILLING_FUNC_NO_DISASCN') ;
2374: x_return_status := FND_API.G_RET_STS_ERROR;
2375: x_disassociation_allowed := 'N';
2376: END IF ;*/
2486: -- page as well as ASSOCIATE DELIVERABLE page
2487:
2488: IF p_task_or_dlv = 'PA_TASKS' THEN
2489:
2490: IF nvl(PA_DELIVERABLE_UTILS.GET_PROGRESS_ROLLUP_METHOD(p_task_or_dlv_elt_id),'X') = g_deliverable_based THEN
2491: -- Initialize the error message beforehand so as to avoid unnecessary
2492: -- call of FND_MESSAGE.GET_STRING API again and again in LOOP
2493: l_err_message := FND_MESSAGE.GET_STRING('PA','PA_DLV_ASSCN_ERR') ;
2494: IF nvl(p_element_id_tbl.LAST,0)>0 THEN
2493: l_err_message := FND_MESSAGE.GET_STRING('PA','PA_DLV_ASSCN_ERR') ;
2494: IF nvl(p_element_id_tbl.LAST,0)>0 THEN
2495: --3614361 Explicitly mentioned param name
2496: FOR i in p_element_id_tbl.FIRST..p_element_id_tbl.LAST LOOP
2497: IF nvl(PA_DELIVERABLE_UTILS.IS_DLV_BASED_ASSCN_EXISTS(p_dlv_element_id => p_element_id_tbl(i)),'X') = 'Y' THEN
2498: PA_UTILS.ADD_MESSAGE
2499: (p_app_short_name => 'PA',
2500: p_msg_name => 'PA_PS_TASK_NAME_NUM_ERR',
2501: p_token1 => 'TASK_NAME',
2511: END IF ;
2512: END IF ;
2513: ELSE -- p_task_or_dlv = 'TASKS'
2514: --3614361 Explicitly mentioned param name
2515: IF nvl(PA_DELIVERABLE_UTILS.IS_DLV_BASED_ASSCN_EXISTS(p_dlv_element_id=>p_task_or_dlv_elt_id),'X') = 'Y' THEN
2516:
2517: -- Initialize the error message beforehand so as to avoid unnecessary
2518: -- call of FND_MESSAGE.GET_STRING API again and again in LOOP
2519: l_err_message := FND_MESSAGE.GET_STRING('PA','PA_TASK_ASSCN_ERR') ;
2519: l_err_message := FND_MESSAGE.GET_STRING('PA','PA_TASK_ASSCN_ERR') ;
2520:
2521: IF nvl(p_element_id_tbl.LAST,0) > 0 THEN
2522: FOR i in p_element_id_tbl.FIRST..p_element_id_tbl.LAST LOOP
2523: IF nvl(PA_DELIVERABLE_UTILS.GET_PROGRESS_ROLLUP_METHOD(p_element_id_tbl(i)),'X') = g_deliverable_based THEN
2524: PA_UTILS.ADD_MESSAGE
2525: (p_app_short_name => 'PA',
2526: p_msg_name => 'PA_PS_TASK_NAME_NUM_ERR',
2527: p_token1 => 'TASK_NAME',
2538: ELSE
2539: IF nvl(p_element_id_tbl.LAST,0)>0 THEN
2540: l_prog_enabled_dlv_count := 0 ;
2541: FOR i in p_element_id_tbl.FIRST..p_element_id_tbl.LAST LOOP
2542: IF nvl(PA_DELIVERABLE_UTILS.GET_PROGRESS_ROLLUP_METHOD(p_element_id_tbl(i)),'X') = g_deliverable_based THEN
2543: -- 3625019 changed variable , initialization was done one l_prog_enabled_dlv_count and
2544: -- variable value increment is done on l_dlv_based_task_count and if condition checking is done on l_prog_enabled_dlv_count
2545: -- IF l_prog_enabled_dlv_count > 1 THEN condition will always fail
2546: l_prog_enabled_dlv_count := l_prog_enabled_dlv_count+1 ;
2749: -- 1.1 If Task is Deliverable based then
2750: -- ASSOCIATION IS NOT ALLOWED
2751: -- 3614361 Explicitly mentioned param names
2752:
2753: IF nvl(PA_DELIVERABLE_UTILS.IS_DLV_BASED_ASSCN_EXISTS(p_dlv_element_id => p_dlv_element_id,p_dlv_version_id => p_dlv_version_id),'X') = 'Y'
2754: THEN
2755: IF nvl(PA_DELIVERABLE_UTILS.GET_PROGRESS_ROLLUP_METHOD(p_task_element_id),'X') = g_deliverable_based THEN
2756: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
2757: ,p_msg_name => 'PA_DLV_ASSCN_ERR');
2751: -- 3614361 Explicitly mentioned param names
2752:
2753: IF nvl(PA_DELIVERABLE_UTILS.IS_DLV_BASED_ASSCN_EXISTS(p_dlv_element_id => p_dlv_element_id,p_dlv_version_id => p_dlv_version_id),'X') = 'Y'
2754: THEN
2755: IF nvl(PA_DELIVERABLE_UTILS.GET_PROGRESS_ROLLUP_METHOD(p_task_element_id),'X') = g_deliverable_based THEN
2756: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
2757: ,p_msg_name => 'PA_DLV_ASSCN_ERR');
2758: x_return_status := FND_API.G_RET_STS_ERROR;
2759: END IF ;
2795: -- from below if
2796:
2797: -- IF ( p_calling_module = 'AMG' AND p_calling_context = 'PA_TASKS' AND
2798: IF ( p_calling_context = 'PA_TASKS' AND
2799: (PA_DELIVERABLE_UTILS.GET_DLVR_TASK_ASSCN_ID(p_dlv_element_id,p_task_element_id) IS NOT NULL)) THEN
2800: is_asscn_exists := 'Y';
2801: END IF;
2802:
2803:
2816: -- 3651542 incorporated review comments , the association existance will be checked for both AMG and SS
2817: -- removing p_calling_module = 'SELF_SERVICE' and p_calling_module = 'AMG' conditions from below if
2818: IF ( is_asscn_exists = 'N' )
2819: -- IF (p_calling_module = 'SELF_SERVICE') OR ( p_calling_module = 'AMG' AND is_asscn_exists = 'N' ) --OR
2820: -- ( p_calling_module = 'AMG' AND nvl(PA_DELIVERABLE_UTILS.GET_DLVR_TASK_ASSCN_ID(p_dlv_element_id,p_task_element_id),-99) = -99) -- 3749487 changed from 'X' to -99
2821: THEN
2822: -- Populate object relationship table
2823: INSERT INTO PA_OBJECT_RELATIONSHIPS (
2824: object_relationship_id
2958: FND_MSG_PUB.initialize;
2959: END IF;
2960:
2961: -- Validate mandatory input parameter
2962: PA_DELIVERABLE_UTILS.CHECK_DLVR_DISABLE_ALLOWED
2963: ( p_debug_mode => p_debug_mode
2964: ,p_project_id => p_project_id
2965: ,x_return_flag => l_return_flag
2966: ,x_return_status => x_return_status
2972: RAISE Invalid_Arg_Exc_Dlv ;
2973: END IF ;
2974:
2975: /* Bug 3597178 We can still go about Disabling Deliverable Structure ,Even If Deliverable Based Tasks Exist for that project
2976: l_dlv_based_task_exists := PA_DELIVERABLE_UTILS.IS_DLV_BASED_TASK_EXISTS (p_project_id);
2977: IF (l_dlv_based_task_exists = 'Y') THEN
2978: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_DLV_BASED_TASK_EXISTS');
2979: RAISE Invalid_Arg_Exc_Dlv ;
2980: END IF;
3076:
3077: --Start Bug 3538320 <
3078: --Delete the Attachment records of the deliverable
3079:
3080: IF nvl(PA_DELIVERABLE_UTILS.IS_DLV_DOC_DEFINED(l_dlv_proj_elt_tbl(i),l_dlv_version_tbl(i)),'N')='Y' THEN
3081: fnd_attached_documents2_pkg.delete_attachments
3082: (X_entity_name => 'PA_DLVR_DOC_ATTACH',
3083: X_pk1_value => to_char(l_dlv_version_tbl(i)),
3084: X_delete_document_flag => 'Y');
3221: AND obj2.object_id_to2 = pev.proj_element_id
3222: AND (nvl(OKE_DELIVERABLE_UTILS_PUB.WSH_Initiated_Yn(pev.element_version_id),'N') = 'Y'
3223: OR nvl(OKE_DELIVERABLE_UTILS_PUB.REQ_Initiated_Yn(pev.element_version_id),'N') = 'Y'
3224: OR nvl(OKE_DELIVERABLE_UTILS_PUB.MDS_Initiated_Yn(pev.element_version_id),'N') = 'Y'
3225: OR PA_DELIVERABLE_UTILS.GET_FUNCTION_CODE(pev.proj_element_id) = 'BILLING'
3226: -- OR nvl(PA_DELIVERABLE_UTILS.IS_DELIVERABLE_HAS_PROGRESS(c_project_id,pev.proj_element_id),'N') = 'Y' Commented for 3651781
3227: OR nvl(PA_PROGRESS_UTILS.published_dlv_prog_exists(c_project_id , pev.proj_element_id),'N') = 'Y'
3228: )
3229: );
3222: AND (nvl(OKE_DELIVERABLE_UTILS_PUB.WSH_Initiated_Yn(pev.element_version_id),'N') = 'Y'
3223: OR nvl(OKE_DELIVERABLE_UTILS_PUB.REQ_Initiated_Yn(pev.element_version_id),'N') = 'Y'
3224: OR nvl(OKE_DELIVERABLE_UTILS_PUB.MDS_Initiated_Yn(pev.element_version_id),'N') = 'Y'
3225: OR PA_DELIVERABLE_UTILS.GET_FUNCTION_CODE(pev.proj_element_id) = 'BILLING'
3226: -- OR nvl(PA_DELIVERABLE_UTILS.IS_DELIVERABLE_HAS_PROGRESS(c_project_id,pev.proj_element_id),'N') = 'Y' Commented for 3651781
3227: OR nvl(PA_PROGRESS_UTILS.published_dlv_prog_exists(c_project_id , pev.proj_element_id),'N') = 'Y'
3228: )
3229: );
3230: */
3455: AND obj2.object_id_to2 = pev.proj_element_id
3456: AND (nvl(OKE_DELIVERABLE_UTILS_PUB.WSH_Initiated_Yn(pev.element_version_id),'N') = 'Y'
3457: OR nvl(OKE_DELIVERABLE_UTILS_PUB.REQ_Initiated_Yn(pev.element_version_id),'N') = 'Y'
3458: OR nvl(OKE_DELIVERABLE_UTILS_PUB.MDS_Initiated_Yn(pev.element_version_id),'N') = 'Y'
3459: OR PA_DELIVERABLE_UTILS.GET_FUNCTION_CODE(pev.proj_element_id) = 'BILLING'
3460: OR nvl(PA_PROGRESS_UTILS.published_dlv_prog_exists(c_project_id , pev.proj_element_id),'N') = 'Y'
3461: )
3462: );
3463: */
3505: END IF;
3506:
3507: /* Commented for Bug 3906015 : Incorrect Check was being performed
3508: -- Validate mandatory input parameter
3509: PA_DELIVERABLE_UTILS.CHECK_DLVR_DISABLE_ALLOWED
3510: ( p_debug_mode => p_debug_mode
3511: ,p_project_id => p_project_id
3512: ,x_return_flag => l_return_flag
3513: ,x_return_status => x_return_status
4411: ,SYSDATE
4412: ,fnd_global.user_id
4413: ,fnd_global.login_id
4414: ,decode(p_calling_context,'COPY_PROJECT', -- 3493612
4415: PA_DELIVERABLE_UTILS.GET_ADJUSTED_DATES
4416: (p_target_project_id
4417: ,l_due_date_tbl(i)
4418: ,p_delta
4419: ), l_due_date_tbl(i))