APPS.PA_PLAN_RL_FORMATS_PVT dependencies on PA_PLAN_RL_FORMATS

Line 1: Package Body Pa_Plan_RL_Formats_Pvt as

1: Package Body Pa_Plan_RL_Formats_Pvt as
2: /* $Header: PARRFTVB.pls 120.1 2005/08/24 14:55:33 appldev noship $ */
3:
4: /****************************************************
5: * Procedure : Create_Plan_RL_Format

Line 8: * Pa_Plan_RL_Formats_Pub.Create_Plan_RL_Format

4: /****************************************************
5: * Procedure : Create_Plan_RL_Format
6: * Description : This is a Pvt procedure which takes in
7: * parameters from
8: * Pa_Plan_RL_Formats_Pub.Create_Plan_RL_Format
9: * proc.
10: ****************************************************/
11: Procedure Create_Plan_RL_Format(
12: P_Res_List_Id IN NUMBER,

Line 54: From Pa_Plan_RL_Formats prf

50: From Pa_Res_Formats_b fmt
51: Where fmt.Res_Type_Id = P_Res_Type_Id
52: And fmt.Resource_Class_Id = P_Res_Class_Id
53: And exists (Select 'Y'
54: From Pa_Plan_RL_Formats prf
55: where prf.Resource_List_Id = P_Res_List_Id
56: and prf.Res_Format_Id = fmt.Res_Format_Id);
57:
58: Cursor c3 (P_Resource_List_Id IN Number) Is

Line 69: FROM Pa_Plan_RL_Formats

65:
66: CURSOR chk_format_exists (p_resource_list_id IN Number,
67: p_res_format_id IN Number) IS
68: SELECT 'Y'
69: FROM Pa_Plan_RL_Formats
70: WHERE Resource_List_Id = p_resource_list_id
71: AND Res_Format_Id = p_res_format_id;
72:
73: l_Res_Type_Id Number := Null;

Line 99: * formats associated to the list (from pa_plan_rl_formats), and for each

95: * The validation is that the res_type_id of format 4 (from pa_res_formats_b)
96: * cannot be the
97: * same as the res_type_id for each of formats 1, 2 and 3. So, first we
98: * have to get all the
99: * formats associated to the list (from pa_plan_rl_formats), and for each
100: * of them, we have
101: * to get the res_type_id from pa_res_formats_b, and compare to the
102: * res_type_id for the p_format_id we are trying to add.
103: * If they do, then raise an error message "PA_PLAN_RL_FORMAT_WP_ERR"

Line 183: Pa_Plan_RL_Formats_Pkg.Insert_Row(

179: Fetch chk_format_exists Into l_exists;
180: Close chk_format_exists;
181:
182: IF l_exists <> 'Y' THEN
183: Pa_Plan_RL_Formats_Pkg.Insert_Row(
184: P_Resource_List_Id => P_Res_List_id,
185: P_Res_Format_Id => P_Res_Format_Id,
186: P_Last_Update_Date => SysDate,
187: P_Last_Updated_By => Fnd_Global.User_Id,

Line 247: P_Pkg_Name => 'Pa_Plan_RL_Formats_Pub',

243: X_Return_Status := Fnd_Api.G_Ret_Sts_UnExp_Error;
244: X_Plan_RL_Format_Id := Null;
245: X_Record_Version_Number := Null;
246: Fnd_Msg_Pub.Add_Exc_Msg(
247: P_Pkg_Name => 'Pa_Plan_RL_Formats_Pub',
248: P_Procedure_Name => 'Create_Plan_RL_Format');
249:
250: Raise;
251:

Line 258: * Pa_Plan_RL_Formats_Pub.Delete_Plan_RL_Format

254: /****************************************************
255: * Procedure : Delete_Plan_RL_Format
256: * Description : This is a Pvt procedure which takes in
257: * parameters from
258: * Pa_Plan_RL_Formats_Pub.Delete_Plan_RL_Format
259: * proc.
260: ****************************************************/
261: Procedure Delete_Plan_RL_Format (
262: P_Res_List_Id IN NUMBER DEFAULT NULL,

Line 291: Pa_Plan_RL_Formats

287: Select
288: Res_Format_Id,
289: Resource_List_Id
290: From
291: Pa_Plan_RL_Formats
292: Where
293: Plan_RL_Format_Id = P_Plan_RL_Format_Id;
294:
295: l_Dummy_Flag Varchar2(1) := 'N';

Line 367: Pa_Plan_RL_Formats_Pkg.Delete_Row (

363: Raise DEL_ERROR;
364:
365: Else
366:
367: Pa_Plan_RL_Formats_Pkg.Delete_Row (
368: P_Res_List_Id => P_Res_List_Id,
369: P_Res_Format_Id => P_Res_Format_Id,
370: P_Plan_RL_Format_Id => P_Plan_RL_Format_Id);
371:

Line 420: P_Pkg_Name => 'Pa_Plan_RL_Formats_Pvt',

416:
417: When Others Then
418: X_Return_Status := Fnd_Api.G_Ret_Sts_UnExp_Error;
419: Fnd_Msg_Pub.Add_Exc_Msg(
420: P_Pkg_Name => 'Pa_Plan_RL_Formats_Pvt',
421: P_Procedure_Name => 'Delete_Plan_RL_Format');
422:
423: Raise;
424:

Line 427: END Pa_Plan_RL_Formats_Pvt ;

423: Raise;
424:
425: End Delete_Plan_RL_Format;
426:
427: END Pa_Plan_RL_Formats_Pvt ;