The following lines contain the word 'select', 'insert', 'update' or 'delete':
pa_debug.g_err_stage := 'Bulk inserting into PA_PROJ_ELEMENTS';
INSERT INTO PA_PROJ_ELEMENTS(
proj_element_id
,project_id
,object_type
,name
,element_number
,creation_date
,created_by
,last_update_date
,last_updated_by
,description
,status_code
,function_code
,pm_source_code
,pm_source_reference
,manager_person_id
,carrying_out_organization_id
,record_version_number
,last_update_login
,program_application_id
,attribute_category
,attribute1
,attribute2
,attribute3
,attribute4
,attribute5
,attribute6
,attribute7
,attribute8
,attribute9
,attribute10
,attribute11
,attribute12
,attribute13
,attribute14
,attribute15
,source_object_id
,source_object_type
)
VALUES
(
nvl(p_proj_element_id_tbl(i),pa_tasks_s.nextval )
,nvl(p_project_id,-99)
,g_actions
,p_name_tbl(i)
,pa_tasks_s.currval
,SYSDATE
,fnd_global.user_id
,SYSDATE
,fnd_global.user_id
,p_description_tbl(i)
,decode(p_completed_flag_tbl(i),'Y','DLVR_COMPLETED','DLVR_IN_PROGRESS')
,p_function_code_tbl(i)
,p_pm_source_code
,decode(p_calling_module, 'SELF_SERVICE', p_pm_source_reference , l_pm_source_reference_tbl(i)) -- added decode 3435905
,p_manager_person_id_tbl(i)
,p_carrying_out_organization_id
,1
,fnd_global.login_id
,fnd_global.prog_appl_id
,p_attribute_category_tbl(i)
,p_attribute1_tbl(i)
,p_attribute2_tbl(i)
,p_attribute3_tbl(i)
,p_attribute4_tbl(i)
,p_attribute5_tbl(i)
,p_attribute6_tbl(i)
,p_attribute7_tbl(i)
,p_attribute8_tbl(i)
,p_attribute9_tbl(i)
,p_attribute10_tbl(i)
,p_attribute11_tbl(i)
,p_attribute12_tbl(i)
,p_attribute13_tbl(i)
,p_attribute14_tbl(i)
,p_attribute15_tbl(i)
,nvl(p_project_id,-99)
,'PA_PROJECTS'
)
RETURNING proj_element_id
BULK COLLECT INTO l_proj_element_id_tbl ;
pa_debug.g_err_stage := 'Bulk inserting into PA_PROJ_ELEMENT_VERSIONS';
INSERT INTO PA_PROJ_ELEMENT_VERSIONS(
element_version_id
,proj_element_id
,object_type
,project_id
,creation_date
,created_by
,last_update_date
,last_updated_by
,record_version_number
,last_update_login
,source_object_id
,source_object_type
)
VALUES
(
nvl(p_element_version_id_tbl(i),pa_proj_element_versions_s.nextval)
,l_proj_element_id_tbl(i)
,g_actions
,nvl(p_project_id,-99)
,SYSDATE
,fnd_global.user_id
,SYSDATE
,fnd_global.user_id
,1
,fnd_global.login_id
,nvl(p_project_id,-99)
,'PA_PROJECTS'
)
RETURNING element_version_id
BULK COLLECT INTO l_element_version_id_tbl ;
pa_debug.g_err_stage := 'Bulk inserting into PA_PROJ_ELEM_VER_SCHEDULE';
INSERT INTO PA_PROJ_ELEM_VER_SCHEDULE(
pev_schedule_id
,element_version_id
,project_id
,proj_element_id
,creation_date
,created_by
,last_update_date
,last_updated_by
,last_update_login
,scheduled_finish_date
,actual_finish_date
,record_version_number
,source_object_id
,source_object_type
)
VALUES
(
pa_proj_elem_ver_schedule_s.nextval
,l_element_version_id_tbl(i)
,nvl(p_project_id,-99)
,l_proj_element_id_tbl(i)
,SYSDATE
,fnd_global.user_id
,SYSDATE
,fnd_global.user_id
,fnd_global.login_id
,p_due_date_tbl(i)
,p_completion_date_tbl(i)
,1
,nvl(p_project_id,-99)
,'PA_PROJECTS'
) ;
pa_debug.g_err_stage := 'Bulk inserting into PA_OBJECT_RELATIONSHIPS';
INSERT INTO PA_OBJECT_RELATIONSHIPS(
object_relationship_id
,object_type_from
,object_id_from1
,object_type_to
,object_id_to1
,relationship_type
,created_by
,creation_date
,last_updated_by
,last_update_date
,object_id_from2
,object_id_to2
,relationship_subtype
,record_version_number
,last_update_login
)
VALUES
(
pa_object_relationships_s.nextval
,p_object_type
,p_object_version_id
,g_actions
,l_element_version_id_tbl(i)
,'A'
,fnd_global.user_id
,SYSDATE
,fnd_global.user_id
,SYSDATE
,p_object_id
,l_proj_element_id_tbl(i)
,l_rel_subtype
,1
,fnd_global.login_id
) ;
PROCEDURE UPDATE_DLV_ACTIONS_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_name_tbl IN SYSTEM.PA_VARCHAR2_240_TBL_TYPE := SYSTEM.PA_VARCHAR2_240_TBL_TYPE()
,p_manager_person_id_tbl IN SYSTEM.PA_NUM_TBL_TYPE := SYSTEM.PA_NUM_TBL_TYPE()
,p_function_code_tbl IN SYSTEM.PA_VARCHAR2_30_TBL_TYPE := SYSTEM.PA_VARCHAR2_30_TBL_TYPE()
,p_due_date_tbl IN SYSTEM.PA_DATE_TBL_TYPE := SYSTEM.PA_DATE_TBL_TYPE()
,p_completed_flag_tbl IN SYSTEM.PA_VARCHAR2_1_TBL_TYPE := SYSTEM. PA_VARCHAR2_1_TBL_TYPE()
,p_completion_date_tbl IN SYSTEM.PA_DATE_TBL_TYPE := SYSTEM.PA_DATE_TBL_TYPE()
,p_description_tbl IN SYSTEM.PA_VARCHAR2_2000_TBL_TYPE := SYSTEM.PA_VARCHAR2_2000_TBL_TYPE()
,p_attribute_category_tbl IN SYSTEM.PA_VARCHAR2_30_TBL_TYPE := SYSTEM.PA_VARCHAR2_30_TBL_TYPE()
,p_attribute1_tbl IN SYSTEM.PA_VARCHAR2_240_TBL_TYPE := SYSTEM.PA_VARCHAR2_240_TBL_TYPE()
,p_attribute2_tbl IN SYSTEM.PA_VARCHAR2_240_TBL_TYPE := SYSTEM.PA_VARCHAR2_240_TBL_TYPE()
,p_attribute3_tbl IN SYSTEM.PA_VARCHAR2_240_TBL_TYPE := SYSTEM.PA_VARCHAR2_240_TBL_TYPE()
,p_attribute4_tbl IN SYSTEM.PA_VARCHAR2_240_TBL_TYPE := SYSTEM.PA_VARCHAR2_240_TBL_TYPE()
,p_attribute5_tbl IN SYSTEM.PA_VARCHAR2_240_TBL_TYPE := SYSTEM.PA_VARCHAR2_240_TBL_TYPE()
,p_attribute6_tbl IN SYSTEM.PA_VARCHAR2_240_TBL_TYPE := SYSTEM.PA_VARCHAR2_240_TBL_TYPE()
,p_attribute7_tbl IN SYSTEM.PA_VARCHAR2_240_TBL_TYPE := SYSTEM.PA_VARCHAR2_240_TBL_TYPE()
,p_attribute8_tbl IN SYSTEM.PA_VARCHAR2_240_TBL_TYPE := SYSTEM.PA_VARCHAR2_240_TBL_TYPE()
,p_attribute9_tbl IN SYSTEM.PA_VARCHAR2_240_TBL_TYPE := SYSTEM.PA_VARCHAR2_240_TBL_TYPE()
,p_attribute10_tbl IN SYSTEM.PA_VARCHAR2_240_TBL_TYPE := SYSTEM.PA_VARCHAR2_240_TBL_TYPE()
,p_attribute11_tbl IN SYSTEM.PA_VARCHAR2_240_TBL_TYPE := SYSTEM.PA_VARCHAR2_240_TBL_TYPE()
,p_attribute12_tbl IN SYSTEM.PA_VARCHAR2_240_TBL_TYPE := SYSTEM.PA_VARCHAR2_240_TBL_TYPE()
,p_attribute13_tbl IN SYSTEM.PA_VARCHAR2_240_TBL_TYPE := SYSTEM.PA_VARCHAR2_240_TBL_TYPE()
,p_attribute14_tbl IN SYSTEM.PA_VARCHAR2_240_TBL_TYPE := SYSTEM.PA_VARCHAR2_240_TBL_TYPE()
,p_attribute15_tbl IN SYSTEM.PA_VARCHAR2_240_TBL_TYPE := SYSTEM.PA_VARCHAR2_240_TBL_TYPE()
,p_element_version_id_tbl IN SYSTEM.PA_NUM_TBL_TYPE := SYSTEM.PA_NUM_TBL_TYPE()
,p_proj_element_id_tbl IN SYSTEM.PA_NUM_TBL_TYPE := SYSTEM.PA_NUM_TBL_TYPE()
,p_record_version_number_tbl IN SYSTEM.PA_NUM_TBL_TYPE := SYSTEM.PA_NUM_TBL_TYPE()
,p_project_id IN PA_PROJECTS_ALL.PROJECT_ID%TYPE := null
,p_object_id IN PA_OBJECT_RELATIONSHIPS.OBJECT_ID_TO1%TYPE := null -- 3578694 added default value
,p_object_version_id IN PA_OBJECT_RELATIONSHIPS.OBJECT_ID_TO1%TYPE := null
,p_object_type IN PA_LOOKUPS.LOOKUP_CODE%TYPE
,p_pm_source_code IN pa_proj_elements.pm_source_code%TYPE := null
,p_pm_source_reference IN pa_proj_elements.pm_source_reference%TYPE := null
,p_carrying_out_organization_id IN pa_proj_elements.carrying_out_organization_id%TYPE := null
,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 ;
pa_debug.g_err_stage:= 'Inside UPDATE_DLV_ACTIONS_IN_BULK ';
UPDATE pa_proj_elements
SET name = p_name_tbl(i)
,manager_person_id = p_manager_person_id_tbl(i)
,description = p_description_tbl(i)
,status_code = decode(p_completed_flag_tbl(i),'Y','DLVR_COMPLETED','DLVR_IN_PROGRESS')
,function_code = p_function_code_tbl(i)
,attribute_category = p_attribute_category_tbl(i)
,attribute1 = p_attribute1_tbl(i)
,attribute2 = p_attribute2_tbl(i)
,attribute3 = p_attribute3_tbl(i)
,attribute4 = p_attribute4_tbl(i)
,attribute5 = p_attribute5_tbl(i)
,attribute6 = p_attribute6_tbl(i)
,attribute7 = p_attribute7_tbl(i)
,attribute8 = p_attribute8_tbl(i)
,attribute9 = p_attribute9_tbl(i)
,attribute10 = p_attribute10_tbl(i)
,attribute11 = p_attribute11_tbl(i)
,attribute12 = p_attribute12_tbl(i)
,attribute13 = p_attribute13_tbl(i)
,attribute14 = p_attribute14_tbl(i)
,attribute15 = p_attribute15_tbl(i)
,record_version_number = nvl(record_version_number,0) + 1
,last_update_date = SYSDATE
,last_updated_by = fnd_global.user_id
,last_update_login = fnd_global.login_id
WHERE proj_element_id = p_proj_element_id_tbl(i) ;
UPDATE PA_PROJ_ELEM_VER_SCHEDULE
SET scheduled_finish_date = p_due_date_tbl(i)
,actual_finish_date = p_completion_date_tbl(i)
,record_version_number = nvl(record_version_number,0) + 1
,last_update_date = SYSDATE
,last_updated_by = fnd_global.user_id
,last_update_login = fnd_global.login_id
WHERE element_version_id = p_element_version_id_tbl(i) ;
pa_debug.g_err_stage := 'Exiting UPDATE_DLV_ACTIONS_IN_BULK' ;
,p_procedure_name => 'UPDATE_DLV_ACTIONS_IN_BULK');
pa_debug.write('UPDATE_DLV_ACTIONS_IN_BULK: ' || g_module_name,pa_debug.g_err_stage,5);
END UPDATE_DLV_ACTIONS_IN_BULK ;
PROCEDURE DELETE_DLV_ACTIONS_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_object_type IN PA_LOOKUPS.LOOKUP_CODE%TYPE
,p_object_id IN PA_OBJECT_RELATIONSHIPS.OBJECT_ID_TO1%TYPE
,p_element_version_id_tbl IN SYSTEM.PA_NUM_TBL_TYPE := SYSTEM.PA_NUM_TBL_TYPE()
,p_proj_element_id_tbl IN SYSTEM.PA_NUM_TBL_TYPE := SYSTEM.PA_NUM_TBL_TYPE()
,p_record_version_number_tbl IN SYSTEM.PA_NUM_TBL_TYPE := SYSTEM.PA_NUM_TBL_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
CURSOR get_element_id IS
SELECT object_id_to2,
object_relationship_id
FROM pa_object_relationships
WHERE object_id_from2 = p_object_id
AND object_type_from = p_object_type
AND object_type_to = g_actions
AND relationship_type = 'A';
PA_DEBUG.set_curr_function( p_function => 'DELETE_DLV_ACTIONS_IN_BULK'
,p_debug_mode => p_debug_mode );
pa_debug.g_err_stage:= 'Inside DELETE_DLV_ACTIONS_IN_BULK ';
DELETE FROM pa_proj_elements
WHERE proj_element_id = l_proj_element_id_tbl(i) ;
DELETE FROM pa_proj_element_versions
WHERE proj_element_id = l_proj_element_id_tbl(i)
RETURNING element_version_id
BULK COLLECT INTO l_elem_version_id_tbl;
in the below delete statement
FORALL i in l_proj_element_id_tbl.FIRST..l_proj_element_id_tbl.LAST
DELETE FROM pa_proj_elem_ver_schedule
WHERE proj_element_id = l_proj_element_id_tbl(i) ;
DELETE FROM pa_proj_elem_ver_schedule
WHERE element_version_id = l_elem_version_id_tbl(i) ;
DELETE FROM PA_OBJECT_RELATIONSHIPS
WHERE object_relationship_id = l_obj_relationship_id_tbl(i) ;
pa_debug.g_err_stage:='Delete entries from PA_OBJECT_RELATIONSHIPS table' ;
pa_debug.write('DELETE_DLV_ACTIONS_IN_BULK: ' || g_module_name,pa_debug.g_err_stage,5);
DELETE FROM PA_OBJECT_RELATIONSHIPS
WHERE OBJECT_ID_TO2 = p_proj_element_id_tbl(i)
AND OBJECT_ID_FROM2 = p_object_id ;
pa_debug.g_err_stage:='Delete entries from PA_PROJ_ELEM_VER_SCHEDULE table' ;
pa_debug.write('DELETE_DLV_ACTIONS_IN_BULK: ' || g_module_name,pa_debug.g_err_stage,5);
DELETE FROM PA_PROJ_ELEM_VER_SCHEDULE
WHERE element_version_id = p_element_version_id_tbl(i) ;
pa_debug.g_err_stage:='Delete entries from PA_ELEMENT_VERSIONS table' ;
pa_debug.write('DELETE_DLV_ACTIONS_IN_BULK: ' || g_module_name,pa_debug.g_err_stage,5);
DELETE FROM PA_PROJ_ELEMENT_VERSIONS
WHERE element_version_id = p_element_version_id_tbl(i) ;
pa_debug.g_err_stage:='Delete entries from PA_ELEMENT_VERSIONS table' ;
pa_debug.write('DELETE_DLV_ACTIONS_IN_BULK: ' || g_module_name,pa_debug.g_err_stage,5);
DELETE FROM PA_PROJ_ELEMENTS
WHERE proj_element_id = p_proj_element_id_tbl(i) ;
pa_debug.g_err_stage := 'Exiting UPDATE_DLV_ACTIONS_IN_BULK' ;
,p_procedure_name => 'DELETE_DLV_ACTIONS_IN_BULK');
pa_debug.write('DELETE_DLV_ACTIONS_IN_BULK: ' || g_module_name,pa_debug.g_err_stage,5);
END DELETE_DLV_ACTIONS_IN_BULK ;
PROCEDURE DELETE_DLV_ACTION
(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_action_id IN pa_proj_elements.proj_element_id%TYPE
,p_action_ver_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_function_code IN pa_proj_elements.function_code%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_action_del_allowed VARCHAR2(1) := 'Y';
SELECT name
,function_code
FROM pa_proj_elements
WHERE proj_element_id = c_action_elt_id
AND object_type = 'PA_ACTIONS';
PA_DEBUG.set_curr_function( p_function => 'PA_DELETE_DLV_ACTION'
,p_debug_mode => p_debug_mode );
pa_debug.g_err_stage:= 'Inside DELETE_DLV_ACTION ';
PA_ACTIONS_PVT.IS_DELETE_ACTION_ALLOWED
(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 => p_debug_mode
,p_max_msg_count => p_max_msg_count
,p_action_id => p_action_id
,p_action_ver_id => p_action_ver_id
,p_dlv_element_id => p_dlv_element_id
,p_dlv_version_id => p_dlv_version_id
,p_function_code => p_function_code
,p_project_id => p_project_id
,x_action_del_allowed => l_action_del_allowed
,x_return_status => x_return_status
,x_msg_count => x_msg_count
,x_msg_data => x_msg_data
) ;
pa_debug.g_err_stage:= 'Inside DELETE BILLING EVENTS ';
PA_BILLING_WRKBNCH_EVENTS.DELETE_DELV_EVENT
( P_Project_Id => p_project_id
,P_Deliverable_Id => p_dlv_version_id
,P_Action_Id => p_action_ver_id
,P_Action_Name => l_name
,X_Return_Status => x_return_status
) ;
pa_debug.write(g_module_name,'Returned from PA_BILLING_WRKBNCH_EVENTS.DELETE_DELV_EVENT ['||x_return_status||']',3) ;
pa_debug.write(g_module_name,'Returned from OKE_DELIVERABLE_UTILS_PUB.DELETE_ACTION ['||x_return_status||']',3) ;
, p_action => 'DELETE'
-- 3732873 earlier l_function_code was passed for p_dlv_action_type
-- and the value will be 'PROCUREMENT', but OKE expects this value to be 'REQ' for procurement
-- if the value is not 'WSH' or 'REQ' , oke will throw the error message saying invalid action type
, p_dlv_action_type => 'REQ'
, p_master_inv_org_id => null
, p_item_dlv => null
, p_dlv_ship_action_rec => l_dlv_ship_action_rec_b
, p_dlv_req_action_rec => l_dlv_req_action_rec
, x_return_status => x_return_status
, x_msg_data => x_msg_data
, x_msg_count => x_msg_count
);
, p_action => 'DELETE'
-- 3732873 earlier l_function_code was passed for p_dlv_action_type
-- and the value will be 'SHIPPING', but OKE expects this value to be 'WSH' for shipping
-- if the value is not 'WSH' or 'REQ' , oke will throw the error message saying invalid action type
, p_dlv_action_type => 'WSH'
, p_master_inv_org_id => null
, p_item_dlv => null
, p_dlv_ship_action_rec => l_dlv_ship_action_rec
, p_dlv_req_action_rec => l_dlv_req_action_rec_b
, x_return_status => x_return_status
, x_msg_data => x_msg_data
, x_msg_count => x_msg_count
);
DELETE FROM pa_proj_elements
WHERE proj_element_id = p_action_id ;
DELETE FROM pa_proj_element_versions
WHERE element_version_id = p_action_ver_id ;
DELETE FROM pa_proj_elem_ver_schedule
WHERE element_version_id = p_action_ver_id ;
DELETE FROM PA_OBJECT_RELATIONSHIPS
WHERE object_id_to2 = p_action_id
and object_id_to1 = p_action_ver_id; -- Added condition for perf bug# 3964701
pa_debug.g_err_stage := 'Exiting DELETE_DLV_ACTION' ;
pa_debug.g_err_stage := 'inside invalid arg exception of DELETE_DLV_ACTION';
,p_procedure_name => 'DELETE_DLV_ACTION');
pa_debug.write(g_module_name, 'DELETE_DLV_ACTION: ' ||pa_debug.g_err_stage,5);
END DELETE_DLV_ACTION ;
PROCEDURE IS_DELETE_ACTION_ALLOWED
(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_action_id IN pa_proj_elements.proj_element_id%TYPE
,p_action_ver_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_function_code IN pa_proj_elements.function_code%TYPE
,p_project_id IN pa_projects_all.project_id%TYPE
,x_action_del_allowed IN VARCHAR2
,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_err_message fnd_new_messages.message_name%TYPE ;
PA_DEBUG.set_curr_function( p_function => 'IS_DELETE_ACTION_ALLOWED'
,p_debug_mode => p_debug_mode );
pa_debug.g_err_stage:= 'Inside IS_DELETE_ACTION_ALLOWED ';
pa_debug.g_err_stage := 'Exiting IS_DELETE_ACTION_ALLOWED' ;
pa_debug.g_err_stage := 'Exiting IS_DELETE_ACTION_ALLOWED' ;
,p_procedure_name => 'IS_DELETE_ACTION_ALLOWED');
pa_debug.write('IS_DELETE_ACTION_ALLOWED: ' || g_module_name,pa_debug.g_err_stage,5);
END IS_DELETE_ACTION_ALLOWED;
SELECT ppe.name
,ppe.manager_person_id
,ppe.function_code
,psc.scheduled_finish_date
,'N'
-- Bug 3665911 Action Completion date should not get copied ,psc.actual_finish_date
,null -- Hence passing the completion date as null
,ppe.description
,ppe.attribute_category
,ppe.attribute1
,ppe.attribute2
,ppe.attribute3
,ppe.attribute4
,ppe.attribute5
,ppe.attribute6
,ppe.attribute7
,ppe.attribute8
,ppe.attribute9
,ppe.attribute10
,ppe.attribute11
,ppe.attribute12
,ppe.attribute13
,ppe.attribute14
,ppe.attribute15
-- ,null --Commented for Bug # 3431156 --This corresponds to the target action version id
-- ,null --Commented for Bug # 3431156 --This corresponds to target action projelementid
,ppe.proj_element_id --Source Action Proj Element Id -- Included for Bug # 3431156
,ppv.element_version_id --Source Action Version Id -- Included for Bug # 3431156
,pa_proj_element_versions_s.nextval -- Target Action Version Id -- Included for Bug # 3431156
,pa_tasks_s.nextval -- Target Action Proj Element Id -- Included for Bug # 3431156
,null -- record version number
FROM pa_proj_elements ppe,
pa_proj_element_versions ppv,
pa_proj_elem_ver_schedule psc,
pa_object_relationships obj,
pa_projects_all pa,
pa_project_types_all ppt
WHERE obj.object_id_from2 = p_source_object_id
AND obj.object_type_from = p_source_object_type
AND obj.relationship_type = 'A'
AND ppe.object_type = g_actions
AND ppe.project_id = l_proj_id /*3614361*/
AND ppv.project_id = l_proj_id /*3614361*/
AND psc.project_id = l_proj_id /*3614361*/
AND obj.object_id_to2 = ppe.proj_element_id
AND ppe.proj_element_id = ppv.proj_element_id
AND ppv.element_version_id = psc.element_version_id
AND pa.project_id = p_target_project_id
AND pa.project_type = ppt.project_type
AND pa.org_id = ppt.org_id
AND decode(ppt.project_type_class_code,'CONTRACT','X',ppe.function_code) <> 'BILLING'
AND DECODE(ppe.function_code,'PROCUREMENT','N','SHIPPING','N',PA_ALTERNATE_TASK_PVT.Is_Cbs_Enabled(pa.project_id))=PA_ALTERNATE_TASK_PVT.Is_Cbs_Enabled(pa.project_id);--16551563
SELECT element_version_id
FROM pa_proj_element_versions
WHERE proj_element_id = l_target_object_id
AND object_type = 'PA_DELIVERABLES' ;*/
SELECT element_version_id
FROM pa_proj_element_versions
WHERE proj_element_id = l_dlv_id
AND object_type = 'PA_DELIVERABLES' ;
SELECT 'TEMPLATE'
FROM pa_projects_all
WHERE project_id = p_target_project_id
AND template_flag = 'Y';
IF p_calling_mode = 'UPDATE' THEN
-- Get the target element version id of the deliverable
OPEN get_version_id (p_target_object_id);