The following lines contain the word 'select', 'insert', 'update' or 'delete':
* Description : We are selecting the res_type_code as well
* In this cursor because, for Work_planned
* enabled flag being Yes, we need to be restrictive
* while creating Plan formats for certain
* res_type_code and not all.
********************************************************/
Cursor c1 is
Select
b.res_type_code,a.Res_Type_Id, a.resource_class_id
From
Pa_Res_Formats_B a,pa_res_types_b b
Where
Res_Format_Id = P_Res_Format_Id
AND a.res_type_id = b.res_type_id;
SELECT 'Y'
FROM Pa_Res_Formats_B fmt,
pa_res_types_b typ
WHERE fmt.Res_Format_Id = P_Res_Format_Id
AND fmt.res_type_id = typ.res_type_id
AND typ.res_type_code = 'JOB';
Select 'Y'
From Pa_Res_Formats_b fmt
Where fmt.Res_Type_Id = P_Res_Type_Id
And fmt.Resource_Class_Id = P_Res_Class_Id
And exists (Select 'Y'
From Pa_Plan_RL_Formats prf
where prf.Resource_List_Id = P_Res_List_Id
and prf.Res_Format_Id = fmt.Res_Format_Id);
Select
Use_For_WP_Flag
From
pa_resource_lists_all_bg
Where
Resource_List_Id = P_Resource_List_Id;
SELECT 'Y'
FROM Pa_Plan_RL_Formats
WHERE Resource_List_Id = p_resource_list_id
AND Res_Format_Id = p_res_format_id;
SELECT job_group_id
INTO l_jg_id
FROM pa_resource_lists_all_bg
WHERE resource_list_id = p_res_list_id;
Pa_Plan_RL_Formats_Pkg.Insert_Row(
P_Resource_List_Id => P_Res_List_id,
P_Res_Format_Id => P_Res_Format_Id,
P_Last_Update_Date => SysDate,
P_Last_Updated_By => Fnd_Global.User_Id,
P_Creation_Date => SysDate,
P_Created_By => Fnd_Global.User_Id,
P_Last_Update_Login => Fnd_Global.Login_Id,
X_Plan_RL_Format_Id => X_Plan_RL_Format_Id,
X_Record_Version_Number => X_Record_Version_Number);
* Procedure : Delete_Plan_RL_Format
* Description : This is a Pvt procedure which takes in
* parameters from
* Pa_Plan_RL_Formats_Pub.Delete_Plan_RL_Format
* proc.
****************************************************/
Procedure Delete_Plan_RL_Format (
P_Res_List_Id IN NUMBER DEFAULT NULL,
P_Res_Format_Id IN NUMBER DEFAULT NULL,
P_Plan_RL_Format_Id IN NUMBER DEFAULT NULL,
X_Return_Status OUT NOCOPY VARCHAR2,
X_Msg_Count OUT NOCOPY NUMBER,
X_Msg_Data OUT NOCOPY VARCHAR2)
Is
Cursor c1 (P_Resource_Format_Id IN Number,
P_Resource_List_Id IN Number) is
Select
'Y'
From
Dual
Where Exists (
Select
'Y'
From
Pa_Resource_List_Members
Where
Res_Format_Id = P_Resource_Format_Id
And Resource_List_Id = P_Resource_List_Id);
Select
Res_Format_Id,
Resource_List_Id
From
Pa_Plan_RL_Formats
Where
Plan_RL_Format_Id = P_Plan_RL_Format_Id;
-- Checks whether there are any planning resources for this format before it can be deleted.
-- Check from pa_resource_list_members where res_format_id = p_res_format_id.
-- You need to check if any exists, and if so, raise an error:
Fnd_Msg_Pub.Initialize;
Pa_Plan_RL_Formats_Pkg.Delete_Row (
P_Res_List_Id => P_Res_List_Id,
P_Res_Format_Id => P_Res_Format_Id,
P_Plan_RL_Format_Id => P_Plan_RL_Format_Id);
P_Procedure_Name => 'Delete_Plan_RL_Format');
End Delete_Plan_RL_Format;