1: package body Pa_Plan_RL_Formats_Pkg as
2: /* $Header: PARRFTTB.pls 120.0 2005/05/30 03:13:25 appldev noship $ */
3: /************************************************************
4: * This is a Table Handler Procedure for Inserting into
5: * pa_plan_rl_formats table. It takes in parameters from
1: package body Pa_Plan_RL_Formats_Pkg as
2: /* $Header: PARRFTTB.pls 120.0 2005/05/30 03:13:25 appldev noship $ */
3: /************************************************************
4: * This is a Table Handler Procedure for Inserting into
5: * pa_plan_rl_formats table. It takes in parameters from
6: * the Pa_Plan_RL_Formats_Pvt.Create_Plan_RL_Format procedure.
7: *********************************************************/
8: Procedure Insert_Row (
9: P_Resource_List_Id IN Number,
2: /* $Header: PARRFTTB.pls 120.0 2005/05/30 03:13:25 appldev noship $ */
3: /************************************************************
4: * This is a Table Handler Procedure for Inserting into
5: * pa_plan_rl_formats table. It takes in parameters from
6: * the Pa_Plan_RL_Formats_Pvt.Create_Plan_RL_Format procedure.
7: *********************************************************/
8: Procedure Insert_Row (
9: P_Resource_List_Id IN Number,
10: P_Res_Format_Id IN Number,
21: Cursor Return_RowId(P_Plan_RL_Format_Ident IN Number) is
22: Select
23: RowId
24: From
25: Pa_Plan_RL_Formats
26: Where
27: Plan_RL_Format_Id = P_Plan_RL_Format_Ident;
28:
29: Cursor Get_ItemId is
27: Plan_RL_Format_Id = P_Plan_RL_Format_Ident;
28:
29: Cursor Get_ItemId is
30: Select
31: Pa_Plan_RL_Formats_S.nextval
32: From
33: Dual;
34:
35: l_Plan_RL_Format_id NUMBER := Null;
41: Open Get_ItemId;
42: Fetch Get_ItemId Into l_Plan_RL_Format_Id;
43: Close Get_ItemId;
44:
45: Insert Into Pa_Plan_RL_Formats (
46: Plan_RL_Format_Id ,
47: Resource_List_Id ,
48: Res_Format_Id ,
49: Record_Version_Number ,
82: /********************/
83:
84: /************************************************************
85: * This is a Table Handler Procedure for Deleting from
86: * pa_plan_rl_formats table. It takes in parameters from
87: * the Pa_Plan_RL_Formats_Pvt.Delete_Plan_RL_Format procedure.
88: *********************************************************/
89: Procedure Delete_Row (
90: P_Res_List_Id IN Number Default Null,
83:
84: /************************************************************
85: * This is a Table Handler Procedure for Deleting from
86: * pa_plan_rl_formats table. It takes in parameters from
87: * the Pa_Plan_RL_Formats_Pvt.Delete_Plan_RL_Format procedure.
88: *********************************************************/
89: Procedure Delete_Row (
90: P_Res_List_Id IN Number Default Null,
91: P_Res_Format_Id IN Number Default Null,
96: Begin
97:
98: If P_Plan_RL_Format_Id is Null Then
99:
100: Delete from Pa_Plan_RL_Formats
101: where
102: Resource_List_Id = P_Res_List_Id
103: and Res_Format_Id = P_Res_Format_Id;
104:
103: and Res_Format_Id = P_Res_Format_Id;
104:
105: Else
106:
107: Delete from Pa_Plan_RL_Formats
108: Where
109: Plan_RL_Format_Id = P_Plan_RL_Format_Id;
110:
111: End If;
112:
113: End Delete_Row;
114: /*******************/
115:
116: END Pa_Plan_RL_Formats_Pkg ;