The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT name INTO l_task_number
FROM Pa_Proj_Elements
WHERE proj_element_id = p_task_id;
SELECT segment1 INTO l_project_number
FROM Pa_Projects_All
WHERE project_id = p_project_id;
, p_calling_mode => 'INSERT'
, x_return_status => x_return_status
, x_msg_count => x_msg_count
, x_msg_data => x_msg_data
);
SELECT PA_PROJ_ELEMENT_VERSIONS_S.nextval
INTO l_dlvr_version_id
FROM DUAL;
SELECT Pa_Deliverable_Utils.IS_Dlvr_Item_Based(element_version_id), element_version_id
INTO l_item_dlv, l_dlv_elem_ver_id
FROM Pa_Proj_Element_Versions
WHERE proj_element_id = p_dlvr_item_id
AND project_id = p_project_id;
PROCEDURE Update_Deliverable
(
p_api_version IN NUMBER := 1.0
, p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
, p_commit IN VARCHAR2 := FND_API.G_FALSE
, p_validate_only IN VARCHAR2 := FND_API.G_TRUE
, p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
, p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
, p_debug_mode IN VARCHAR2 := 'N'
, p_max_msg_count IN NUMBER := NULL
, p_record_version_number IN NUMBER := 1
, p_object_type IN PA_PROJ_ELEMENTS.OBJECT_TYPE%TYPE := 'PA_DELIVERABLES'
, p_project_id IN PA_PROJ_ELEMENTS.PROJECT_ID%TYPE
, p_dlvr_number IN PA_PROJ_ELEMENTS.ELEMENT_NUMBER%TYPE
, p_dlvr_name IN PA_PROJ_ELEMENTS.NAME%TYPE
, p_dlvr_description IN PA_PROJ_ELEMENTS.DESCRIPTION%TYPE := NULL
, p_dlvr_owner_id IN PA_PROJ_ELEMENTS.MANAGER_PERSON_ID%TYPE := NULL
, p_dlvr_owner_name IN VARCHAR2 := NULL
, p_carrying_out_org_id IN PA_PROJ_ELEMENTS.CARRYING_OUT_ORGANIZATION_ID%TYPE := NULL
, p_carrying_out_org_name IN VARCHAR2 := NULL
, p_dlvr_version_id IN PA_PROJ_ELEMENT_VERSIONS.ELEMENT_VERSION_ID%TYPE := NULL
, p_status_code IN PA_PROJ_ELEMENTS.STATUS_CODE%TYPE := NULL
, p_parent_structure_id IN PA_PROJ_ELEMENTS.PARENT_STRUCTURE_ID%TYPE := NULL
, p_dlvr_type_id IN PA_PROJ_ELEMENTS.TYPE_ID%TYPE := NULL
, p_dlvr_type_name IN VARCHAR2 := NULL
, p_progress_weight IN PA_PROJ_ELEMENTS.PROGRESS_WEIGHT%TYPE := NULL
, p_scheduled_finish_date IN PA_PROJ_ELEM_VER_SCHEDULE.SCHEDULED_FINISH_DATE%TYPE := NULL
, p_actual_finish_date IN PA_PROJ_ELEM_VER_SCHEDULE.ACTUAL_FINISH_DATE%TYPE := NULL
, p_task_id IN NUMBER := NULL
, p_task_version_id IN NUMBER := NULL
, p_task_name IN VARCHAR2 := NULL
, p_deliverable_reference IN VARCHAR2 := NULL
, p_attribute_category IN PA_PROJ_ELEMENTS.ATTRIBUTE_CATEGORY%TYPE := NULL
, p_attribute1 IN PA_PROJ_ELEMENTS.ATTRIBUTE1%TYPE := NULL
, p_attribute2 IN PA_PROJ_ELEMENTS.ATTRIBUTE2%TYPE := NULL
, p_attribute3 IN PA_PROJ_ELEMENTS.ATTRIBUTE3%TYPE := NULL
, p_attribute4 IN PA_PROJ_ELEMENTS.ATTRIBUTE4%TYPE := NULL
, p_attribute5 IN PA_PROJ_ELEMENTS.ATTRIBUTE5%TYPE := NULL
, p_attribute6 IN PA_PROJ_ELEMENTS.ATTRIBUTE6%TYPE := NULL
, p_attribute7 IN PA_PROJ_ELEMENTS.ATTRIBUTE7%TYPE := NULL
, p_attribute8 IN PA_PROJ_ELEMENTS.ATTRIBUTE8%TYPE := NULL
, p_attribute9 IN PA_PROJ_ELEMENTS.ATTRIBUTE9%TYPE := NULL
, p_attribute10 IN PA_PROJ_ELEMENTS.ATTRIBUTE10%TYPE := NULL
, p_attribute11 IN PA_PROJ_ELEMENTS.ATTRIBUTE11%TYPE := NULL
, p_attribute12 IN PA_PROJ_ELEMENTS.ATTRIBUTE12%TYPE := NULL
, p_attribute13 IN PA_PROJ_ELEMENTS.ATTRIBUTE13%TYPE := NULL
, p_attribute14 IN PA_PROJ_ELEMENTS.ATTRIBUTE14%TYPE := NULL
, p_attribute15 IN PA_PROJ_ELEMENTS.ATTRIBUTE15%TYPE := NULL
, p_item_id IN NUMBER := NULL
, p_inventory_org_id IN NUMBER := NULL
, p_quantity IN NUMBER := NULL
, p_uom_code IN VARCHAR2 := NULL
, p_item_description IN VARCHAR2 := NULL
, p_unit_price IN NUMBER := NULL
, p_unit_number IN VARCHAR2 := NULL
, p_currency_code IN VARCHAR2 := NULL
, p_dlvr_item_id IN PA_PROJ_ELEMENTS.PROJ_ELEMENT_ID%TYPE
, p_pm_source_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR /* Bug no. 3651113 */
, x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
, x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
, x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
)
IS
l_msg_count NUMBER := 0;
Cursor C_dlvr IS SELECT
decode( p_dlvr_name , PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR, element_name, p_dlvr_name) element_name
, decode( p_dlvr_description , PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR, description , p_dlvr_description) description
, decode( p_dlvr_owner_id , PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM, manager_person_id, p_dlvr_owner_id) manager_person_id
, decode( p_carrying_out_org_id , PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM, null , p_carrying_out_org_id) carrying_out_org_id -- to be derived later
, decode( p_status_code , PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,status_code , p_status_code) status_code
, decode( p_dlvr_type_id , PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM, dlvr_type_id, p_dlvr_type_id) dlvr_type_id
, decode( p_progress_weight , PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM, progress_weight, p_progress_weight) progress_weight
, decode( p_scheduled_finish_date, PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE,due_date , p_scheduled_finish_date) due_date
, decode( p_actual_finish_date , PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE,completion_date, p_actual_finish_date) completion_date
, decode( p_task_id , PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM, null , p_task_id) task_id -- added bug 3651538
, decode( p_deliverable_reference, PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR, pm_source_reference, p_deliverable_reference) pm_source_reference -- added for bug# 3749447
FROM pa_deliverables_v
WHERE element_version_id = p_dlvr_version_id;
Cursor C_oke IS SELECT
decode( p_item_id , PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM , item_id, p_item_id) item_id
, decode( p_inventory_org_id , PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM , inventory_org_id, p_inventory_org_id) inventory_org_id
, decode( p_quantity , PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM , quantity, p_quantity) quantity
, decode( p_uom_code , PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR , uom_code, p_uom_code) uom_code
, decode( p_item_description , PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR , description, p_item_description) description
, decode( p_unit_price , PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM , unit_price, p_unit_price) unit_price
, decode( p_unit_number , PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR , unit_number, p_unit_number) unit_number -- 3749447 changed from G_PA_MISS_NUM to G_PA_MISS_CHAR
, decode( p_currency_code , PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR , currency_code, p_currency_code) currency_code
FROM oke_deliverables_vl
WHERE source_deliverable_id = p_dlvr_version_id; -- 3749447 changed where clause condition from deliverable_number = p_dlvr_number to use deliverable ver id
PA_DEBUG.set_curr_function( p_function => 'UPDATE_DELIVERABLE',
p_debug_mode => l_debug_mode );
Pa_Debug.g_err_stage:= 'UPDATE_DELIVERABLE : Printing Input parameters';
savepoint UPDATE_DLVR_PUB;
, p_calling_mode => 'UPDATE'
, x_return_status => x_return_status
, x_msg_count => x_msg_count
, x_msg_data => x_msg_data );
Pa_Debug.WRITE(g_module_name,' Calling PA_DELIVERABLE_PVT.Update_Deliverable',
l_debug_level3);
PA_DELIVERABLE_PVT.Update_Deliverable
(
p_api_version => p_api_version
,p_init_msg_list => FND_API.G_FALSE
,p_commit => p_commit
,p_validate_only => p_validate_only
,p_validation_level => p_validation_level
,p_calling_module => p_calling_module
,p_debug_mode => l_debug_mode
,p_max_msg_count => p_max_msg_count
,p_record_version_number => p_record_version_number
,p_object_type => p_object_type
,p_project_id => p_project_id
,p_dlvr_number => p_dlvr_number
,p_dlvr_name => l_dlvr_name
,p_dlvr_description => l_dlvr_description
,p_dlvr_owner_id => l_dlvr_owner_id
,p_dlvr_owner_name => p_dlvr_owner_name
,p_carrying_out_org_id => l_carrying_out_org
,p_carrying_out_org_name => p_carrying_out_org_name
,p_dlvr_version_id => p_dlvr_version_id
,p_status_code => l_status_code
,p_parent_structure_id => l_structure_id
,p_parent_struct_ver_id => l_element_structure_id
,p_dlvr_type_id => l_dlvr_type_id
,p_dlvr_type_name => p_dlvr_type_name
,p_progress_weight => l_progress_weight
,p_scheduled_finish_date => l_scheduled_finish_date
,p_actual_finish_date => l_actual_finish_date
,p_task_id => l_task_id -- changed p_task_id to l_task_id 3651538
,p_task_version_id => p_task_version_id
,p_task_name => p_task_name
,p_attribute_category => p_attribute_category
,p_attribute1 => p_attribute1
,p_attribute2 => p_attribute2
,p_attribute3 => p_attribute3
,p_attribute4 => p_attribute4
,p_attribute5 => p_attribute5
,p_attribute6 => p_attribute6
,p_attribute7 => p_attribute7
,p_attribute8 => p_attribute8
,p_attribute9 => p_attribute9
,p_attribute10 => p_attribute10
,p_attribute11 => p_attribute11
,p_attribute12 => p_attribute12
,p_attribute13 => p_attribute13
,p_attribute14 => p_attribute14
,p_attribute15 => p_attribute15
,p_dlvr_item_id => p_dlvr_item_id
,p_pm_source_code => p_pm_source_code /* Bug no. 3651113 */
,p_deliverable_reference => l_deliverable_reference -- added for bug# 3749447
,x_return_status => x_return_status
,x_msg_count => l_msg_count
,x_msg_data => l_msg_data
);
Pa_Debug.WRITE(g_module_name,' Returned from PA_DELIVERABLE_PVT.Update_Deliverable',
l_debug_level3);
SELECT Pa_Deliverable_Utils.IS_Dlvr_Item_Based(element_version_id), element_version_id
INTO l_item_dlv, l_dlv_elem_ver_id
FROM Pa_Proj_Element_Versions
WHERE proj_element_id = p_dlvr_item_id
AND project_id = p_project_id;
SELECT 'N' INTO l_manage_dlv_flag
FROM OKE_DELIVERABLES_B
WHERE project_id = p_project_id
AND source_deliverable_id = l_dlv_elem_ver_id
AND CURRENCY_CODE = l_currency_code
AND nvl(unit_number,-99) = nvl(l_unit_number,-99)
AND nvl(unit_price,-99) = nvl(l_unit_price,-99)
AND uom_code = l_uom_code
AND nvl(quantity,-99) = nvl(l_quantity,-99)
AND inventory_org_id = l_inventory_org_id
AND item_id = l_item_id;
, p_action => 'UPDATE'
, p_item_dlv => l_item_dlv
, p_master_inv_org_id => l_master_inv_org_id -- 3651542 passing retrieved master inventory org id
, p_dlv_rec => l_dlv_rec
, x_return_status => x_return_status
, x_msg_data => x_msg_data
, x_msg_count => x_msg_count
);
ROLLBACK TO UPDATE_DLVR_PUB;
x_msg_data := 'PA_DELIVERABLE_PUB : Update_Deliverable : NULL PARAMETERS ARE PASSED OR CURSOR DIDNT RETURN ANY ROWS';
ROLLBACK TO UPDATE_DLVR_PUB;
, p_procedure_name => 'Update_Deliverable'
, p_error_text => x_msg_data);
ROLLBACK TO UPDATE_DLVR_PUB;
, p_procedure_name => 'Update_Deliverable'
, p_error_text => x_msg_data);
END Update_Deliverable;
PROCEDURE DELETE_DLV_TASK_ASSOCIATION
(p_api_version IN NUMBER :=1.0
,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
,p_commit IN VARCHAR2 :=FND_API.G_FALSE
,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
,p_debug_mode IN VARCHAR2 :='N'
,p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
,p_task_element_id IN pa_proj_elements.proj_element_id%TYPE
,p_task_version_id IN pa_proj_element_versions.element_version_id%TYPE
,p_dlv_element_id IN pa_proj_elements.proj_element_id%TYPE
,p_dlv_version_id IN pa_proj_element_versions.element_version_id%TYPE
,p_object_relationship_id IN pa_object_relationships.object_relationship_id%TYPE
,p_obj_rec_ver_number IN pa_object_relationships.record_version_number%TYPE
,p_project_id IN pa_projects_all.project_id%TYPE
,p_calling_context IN VARCHAR2 := 'TASKS'
,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
)
IS
l_debug_mode VARCHAR2(10);
PA_DEBUG.set_curr_function( p_function => 'DELETE_DLV_TASK_ASSOCIATION',
p_debug_mode => l_debug_mode );
pa_debug.g_err_stage:= 'Inside DELETE_DLV_TASK_ASSOCIATION ';
pa_debug.g_err_stage:= 'Calling PA_DELIVERABLE_PVT.DELETE_DLV_TASK_ASSOCIATION ';
PA_DELIVERABLE_PVT.DELETE_DLV_TASK_ASSOCIATION
(p_api_version => p_api_version
,p_init_msg_list => p_init_msg_list
,p_commit => p_commit
,p_validate_only => p_validate_only
,p_validation_level => p_validation_level
,p_calling_module => p_calling_module
,p_debug_mode => l_debug_mode
,p_max_msg_count => p_max_msg_count
,p_task_element_id => p_task_element_id
,p_task_version_id => p_task_version_id
,p_dlv_element_id => p_dlv_element_id
,p_dlv_version_id => p_dlv_version_id
,p_object_relationship_id => p_object_relationship_id
,p_obj_rec_ver_number => p_obj_rec_ver_number
,p_project_id => p_project_id
,p_calling_context => p_calling_context
,x_return_status => x_return_status
,x_msg_count => x_msg_count
,x_msg_data => x_msg_data
) ;
pa_debug.g_err_stage:= 'Exiting DELETE_DLV_TASK_ASSOCIATION' ;
pa_debug.g_err_stage := 'inside invalid arg exception of DELETE_DLV_TASK_ASSOCIATION';
,p_procedure_name => 'DELETE_DLV_TASK_ASSOCIATION');
pa_debug.write('DELETE_DLV_TASK_ASSOCIATION: ' || g_module_name,pa_debug.g_err_stage,5);
END DELETE_DLV_TASK_ASSOCIATION ;
PROCEDURE DELETE_DELIVERABLES_IN_BULK
(p_api_version IN NUMBER :=1.0
,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
,p_commit IN VARCHAR2 :=FND_API.G_FALSE
,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
,p_debug_mode IN VARCHAR2 :='N'
,p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
,p_dlv_element_id_tbl IN SYSTEM.PA_NUM_TBL_TYPE := SYSTEM.PA_NUM_TBL_TYPE()
,p_dlv_version_id_tbl IN SYSTEM.PA_NUM_TBL_TYPE := SYSTEM.PA_NUM_TBL_TYPE()
,p_rec_ver_number_tbl IN SYSTEM.PA_NUM_TBL_TYPE := SYSTEM.PA_NUM_TBL_TYPE()
,p_dlv_name_tbl IN SYSTEM.PA_VARCHAR2_240_TBL_TYPE := SYSTEM.PA_VARCHAR2_240_TBL_TYPE()
,p_dlv_number_tbl IN SYSTEM.PA_VARCHAR2_240_TBL_TYPE := SYSTEM.PA_VARCHAR2_240_TBL_TYPE()
,p_project_id IN pa_projects_all.project_id%TYPE
,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
)
IS
l_msg_count NUMBER := 0;
PA_DEBUG.set_curr_function( p_function => 'DELETE_DELIVERABLES_IN_BULK',
p_debug_mode => l_debug_mode );
pa_debug.g_err_stage:= 'Inside DELETE_DELIVERABLES_IN_BULK ';
SAVEPOINT DELETE_DELIVERABLES ;
PA_DELIVERABLE_PVT.DELETE_DELIVERABLE
(p_api_version => p_api_version
,p_init_msg_list => p_init_msg_list
,p_commit => p_commit
,p_validate_only => p_validate_only
,p_validation_level => p_validation_level
,p_calling_module => p_calling_module
,p_debug_mode => l_debug_mode
,p_max_msg_count => p_max_msg_count
,p_dlv_element_id => p_dlv_element_id_tbl(i)
,p_dlv_version_id => p_dlv_version_id_tbl(i)
,p_rec_ver_number => p_rec_ver_number_tbl(i)
,p_project_id => p_project_id
,x_return_status => l_return_status
,x_msg_count => l_msg_count
,x_msg_data => l_msg_data
);
ROLLBACK TO DELETE_DELIVERABLES;
ROLLBACK TO DELETE_DELIVERABLES;
,p_procedure_name => 'DELETE_DELIVERABLES_IN_BULK' );
pa_debug.write('DELETE_DELIVERABLES_IN_BULK' || g_module_name,SQLERRM,4);
pa_debug.write('DELETE_DELIVERABLES_IN_BULK' || g_module_name,pa_debug.G_Err_Stack,4);
END DELETE_DELIVERABLES_IN_BULK ;
PROCEDURE DELETE_DELIVERABLE_STRUCTURE
(p_api_version IN NUMBER :=1.0
,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
,p_commit IN VARCHAR2 :=FND_API.G_FALSE
,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
,p_debug_mode IN VARCHAR2 :='N'
,p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
,p_project_id IN pa_projects_all.project_id%TYPE
,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
)
IS
l_msg_count NUMBER := 0;
PA_DEBUG.set_curr_function( p_function => 'DELETE_DELIVERABLE_STRUCTURE',
p_debug_mode => l_debug_mode );
pa_debug.g_err_stage:= 'Inside DELETE_DELIVERABLE_STRUCTURE ';
SAVEPOINT DELETE_DELIVERABLE_STRUCTURE;
pa_debug.g_err_stage:= 'Calling PA_DELIVERABLE_PVT.DELETE_DELIVERABLE_STRUCTURE';
PA_DELIVERABLE_PVT.DELETE_DELIVERABLE_STRUCTURE
(p_debug_mode => l_debug_mode
,p_project_id => p_project_id
,x_return_status => x_return_status
,x_msg_count => x_msg_count
,x_msg_data => x_msg_data
) ;
ROLLBACK TO DELETE_DELIVERABLE_STRUCTURE;
pa_debug.g_err_stage := 'inside invalid arg exception of DELETE_DELIVERABLE_STRUCTURE';
ROLLBACK TO DELETE_DELIVERABLE_STRUCTURE;
,p_procedure_name => 'DELETE_DELIVERABLE_STRUCTURE' );
pa_debug.write('DELETE_DELIVERABLE_STRUCTURE' || g_module_name,SQLERRM,4);
pa_debug.write('DELETE_DELIVERABLE_STRUCTURE' || g_module_name,pa_debug.G_Err_Stack,4);
END DELETE_DELIVERABLE_STRUCTURE ;
PROCEDURE DELETE_DLV_TASK_ASSCN_IN_BULK
(p_api_version IN NUMBER :=1.0
,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
,p_commit IN VARCHAR2 :=FND_API.G_FALSE
,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
,p_debug_mode IN VARCHAR2 :='N'
,p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
,p_calling_context IN VARCHAR2 := 'PA_TASKS'
,p_task_element_id IN pa_proj_elements.proj_element_id%TYPE
,p_task_version_id IN pa_proj_element_versions.element_version_id%TYPE
,p_project_id IN pa_projects_all.project_id%TYPE
,p_delete_or_validate IN VARCHAR2 := 'B' -- 3955848 V- Validate , D - Delete, B - Validate and Delete
,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
)
IS
l_debug_mode VARCHAR2(10);
PA_DEBUG.set_curr_function( p_function => 'DELETE_DLV_TASK_ASSCN_IN_BULK',
p_debug_mode => l_debug_mode );
pa_debug.g_err_stage:= 'Inside DELETE_DLV_TASK_ASSCN_IN_BULK ';
ROLLBACK TO DELETE_DLV_TASK_ASSCN_IN_BULK ;
PA_DELIVERABLE_PVT.DELETE_DLV_TASK_ASSCN_IN_BULK
(p_api_version => p_api_version
,p_init_msg_list => p_init_msg_list
,p_commit => p_commit
,p_validate_only => p_validate_only
,p_validation_level => p_validation_level
,p_calling_module => p_calling_module
,p_debug_mode => l_debug_mode
,p_max_msg_count => p_max_msg_count
,p_calling_context => p_calling_context
,p_task_element_id => p_task_element_id
,p_task_version_id => p_task_version_id
,p_project_id => p_project_id
,p_delete_or_validate => p_delete_or_validate -- 3955848 passing it to pvt api
,x_return_status => x_return_status
,x_msg_count => x_msg_count
,x_msg_data => x_msg_data
) ;
pa_debug.g_err_stage:= 'Exiting DELETE_DLV_TASK_ASSCN_IN_BULK' ;
pa_debug.g_err_stage := 'inside invalid arg exception of DELETE_DLV_TASK_ASSCN_IN_BULK';
ROLLBACK TO DELETE_DLV_TASK_ASSCN_IN_BULK ;
ROLLBACK TO DELETE_DLV_TASK_ASSCN_IN_BULK ;
,p_procedure_name => 'DELETE_DLV_TASK_ASSCN_IN_BULK');
pa_debug.write('DELETE_DLV_TASK_ASSCN_IN_BULK: ' || g_module_name,pa_debug.g_err_stage,5);
END DELETE_DLV_TASK_ASSCN_IN_BULK ;
PROCEDURE DELETE_DLV_ASSOCIATIONS
(p_api_version IN NUMBER :=1.0
,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
,p_commit IN VARCHAR2 :=FND_API.G_FALSE
,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
,p_debug_mode IN VARCHAR2 :='N'
,p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
,p_project_id IN NUMBER
,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
)
IS
l_debug_mode VARCHAR2(10);
PA_DEBUG.set_curr_function( p_function => 'DELETE_DLV_ASSOCIATIONS',
p_debug_mode => l_debug_mode );
pa_debug.g_err_stage:= 'Inside DELETE_DLV_TASK_ASSOCIATION ';
pa_debug.g_err_stage:= 'Calling PA_DELIVERABLE_PVT.DELETE_DLV_ASSOCIATIONS';
PA_DELIVERABLE_PVT.DELETE_DLV_ASSOCIATIONS
(p_api_version => p_api_version
,p_init_msg_list => p_init_msg_list
,p_commit => p_commit
,p_validate_only => p_validate_only
,p_validation_level => p_validation_level
,p_calling_module => p_calling_module
,p_debug_mode => l_debug_mode
,p_max_msg_count => p_max_msg_count
,p_project_id => p_project_id
,x_return_status => x_return_status
,x_msg_count => x_msg_count
,x_msg_data => x_msg_data
) ;
pa_debug.g_err_stage:= 'Exiting DELETE_DLV_ASSOCIATIONS' ;
pa_debug.g_err_stage := 'inside invalid arg exception of DELETE_DLV_ASSOCIATIONS';
,p_procedure_name => 'DELETE_DLV_ASSOCIATIONS');
pa_debug.write('DELETE_DLV_ASSOCIATIONS: ' || g_module_name,pa_debug.g_err_stage,5);
END DELETE_DLV_ASSOCIATIONS ;
pa_debug.write('DELETE_DLV_ASSOCIATIONS: ' || g_module_name,pa_debug.g_err_stage,5);
SELECT ppe.proj_element_id
,pev1.element_version_id
,ppe.element_number
,ppe.name
FROM pa_proj_elements ppe
,pa_proj_element_versions pev1
,pa_proj_element_versions pev2
,pa_object_relationships obj
WHERE pev2.element_version_id = c_task_version_id
AND obj.object_id_from2 = pev2.proj_element_id
AND obj.object_type_from = 'PA_TASKS'
AND obj.object_type_to = 'PA_DELIVERABLES'
AND obj.relationship_type = 'A'
AND obj.relationship_subtype = 'TASK_TO_DELIVERABLE'
AND obj.object_id_to2 = ppe.proj_element_id
AND pev1.proj_element_id = ppe.proj_element_id ; -- 3461959 changed from element_version_id to proj_element_id
SELECT ppe.proj_element_id
,ppe.project_id
FROM pa_proj_elements ppe ,
pa_proj_element_versions pev
WHERE pev.element_version_id = c_task_version_id
AND ppe.proj_element_id = pev.proj_element_id
AND nvl(ppe.base_percent_comp_deriv_code,'X') <> 'DELIVERABLE' ; -- 3461959 added nvl function